|
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: 170382 (0x2998e)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/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 1 1 - MEMORY MANAGEMENT UNIT DSKPAG EQU 0 1 - DISC PAGING SWPBLK EQU 0 1 - SWAPPABLE WORK BLOCK HANDLING EDM EQU 0 1 - EXTENDED DATA MANAGEMENT X:A EQU 1 X:B EQU 1 X:C EQU 1 X:D EQU 1 X:E EQU 1 X:F EQU 1 X:G EQU 1 X:H EQU 1 X:I EQU 1 X:J EQU 1 X:K EQU 0 X:L EQU 1 X:M EQU 0 * SUML EQU 00 SUMR EQU 00 SALCUZ EQU 00 ASCU4Z EQU 00 FT80 EQU 00 PLCL EQU 01 PLCR EQU 01 VIDEO EQU 00 TEDVCL EQU 01 SPDVCL EQU 01 NOEXMB EQU X:K FM EQU 00 DC EQU 01 EJECT * * COMMON DISPLACEMENTS AND CONSTANTS * ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3 APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE APPLNO EQU 18 APPLICATION NUMBER BUFSIZ EQU 14 TEMPORARY BUFFER SIZE CONLEN EQU 0 LENGTH OF CONFIGURATION DATA CONSTA EQU 2 START OF CONFIGURATION DATA DATEND EQU 34 END OF DDIV PROTOTYPE FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART MAPLEN EQU 30 LENGTH OF AREA TO MAP MMFROM EQU 36 2ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATION CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) TTAB EQU 32 WORK AREA FOR MMU TABLE COM01 EQU 40 COMMON SAVE AREA 1 COM02 EQU 42 COMMON SAVE AREA 2 COM03 EQU 44 COMMON SAVE AREA 3 TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG COM04 EQU 50 COMMON SAVE AREA 4 DCBLK EQU 54 START OF DC CONF. DATA EJECT * * DISPLACEMENT IN LOCAL STACK AREA * TCLA EQU 0 ADDRESS TO TCLASS SCLA EQU 2 ADDRESS TO SCLASS CUTENT EQU 4 FIRST USER TASK ENTRY FWTSIZ EQU 6 FWT AREA SIZE IN WORDS APCTAB EQU 8 CURRENT APPL CONTROL BLOCK SFASAV EQU 10 SAVE START OF FREE AREA NBRTSK EQU 12 NUMBER OF TASKS IN CLASS TASKID EQU 14 TASK IDENTIFICATION FWTFLG EQU 16 FWT FLAG TCLSAV EQU 18 TASK CLASS TSKLEV EQU 20 TASK LEVEL INTTAB EQU 22 TEMP INTTERRUPT TABLE FWTSTA EQU 24 START OF FWT AREA LIMIT EQU 26 CURRENT END OF SYSTEM AREA NBRCOM EQU 28 NUMBER OF COMMON TDC:S CLASID EQU 30 CLASS ID CONTYP EQU 32 CONNECTION TYPE LCNBR EQU 34 LINE CONNECTION NUMBER CLANBR EQU 36 CLASS NUMBER MAXSGM EQU 38 MAXIMUM SEGMENT SIZE * WRK1 EQU 42 WORK AREA 1 WRK2 EQU 44 WORK AREA 2 WRK3 EQU 46 WORK AREA 3 WRK4 EQU 48 WORK AREA 4 BRDTAB EQU 50 BOARD CONF TABLE LCDSTA EQU 52 CONFIGURATION DATA POINTER NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES APLNO EQU 58 NUMBR OF APPLICATIONS ECHTAB EQU 60 ECHO TABLE ADDRESS SGMCNT EQU 62 SEGMENT COUNTER NUMDTE EQU 64 NUMBER OF DTE:S DEFINED DTENAM EQU 66 SDTE IDENTIFICATION DTETYP EQU 68 TYPE OF CONNECTION NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA NALNG EQU 72 LENGTH OF NETWORK ADDRESS DTENSA EQU 74 NO OF SUBADDRESSES DEFINED DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK NSAADR EQU 78 START OF SUBADDRESSES(DC) APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS SWBBLK EQU FWTFLG START OF SWB CONF. DATA SWBNAM EQU FWTSTA ADDRESS TO SWB NAME SWBTBL EQU NBRTSK LENGTH OF S:BTAB TCTEND EQU NBRTSK LAST TCTAB ENTRY SWBCNT EQU TASKID NUMBER OF SWB:S EJECT * * DISPLACEMENT IN APPLICATION CONTROL TABLE * APLREL EQU 18 APPLICATION RELOCATION BASE =6 APLIOE EQU 0 APPLICATION RESTART ADDRESS APLLAC EQU 14 APPLICATION LOAD ADDRESS APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL) APLMMC EQU 10 APPL MMU START ENTRY APLMMP EQU 8 SEGMENT START MMU ENTRY APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU APLSWB EQU 2 SWB TABLE ADDRESS APLSTA EQU 16 APPL PROGRAM START ADDRESS APLTYP EQU 8 APPLICATION TYPE APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 EJECT * * CONSTANTS * S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS SWBLEN EQU 4 LENGTH OF SWB SWBSEC EQU 6 DISPL. TO SECTOR LENGTH UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB UPNAME EQU 4 PROTOTYPE NAME WBLEN EQU -4 LENGTH OF WORKBLOCK ******************************* * DISPLACEMENT IN CONFIGURATION DATA ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 FIRST TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 7 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: * CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 FIRST SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK * UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 FIRST UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH * * DATA COMMUNICATION DEFINITION BLOCK * IDLIM EQU 4 ID DELIMITER OFFSET TYPOFS EQU 7 START OF TYPE RECORD NANSA EQU 2 NA-NSA RECORD QUALIFIER POS. NAOFS EQU 3 START OF NA NUMBER NSAOFS EQU 4 START OF NSA RECORD DTEFIX EQU 8 FIX PART OF DTE BLOCK EJECT **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE LMP2 EQU /200 NOT USED LMP3 EQU /100 MEMORY OVERFLOW LMP4 EQU /80 ERROR IN CONFIGURATION DATA LMP5 EQU /40 NOT USED LMP6 EQU /20 NOT USED LMP7 EQU /10 NOT USED LMP8 EQU 8 NOT USED LMP9 EQU 4 NOT USED LMP10 EQU 2 NOT USED LMP11 EQU 1 NOT USED ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT * * MXSTAB DISPLACEMENTS * MXSBL EQU 6 SEGMENT BLOCK LENGTH MXNOX EQU 6 NUMBER OF EXTENTS MX:NOS EQU 8 NUMBER OF SEGMENT TABLES MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:LEV EQU /0031 MONITOR TASK LEVEL MX:LEN EQU 4 MONITOR EXTENT LENGTH MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:STA EQU 2 MONITOR EXTENT START ADDRESS EJECT * * *********** * * PAGTAB * * *********** * PAGQF EQU 0 QUEUE POINTER FORWARD PAGQB EQU 2 QUEUE POINTER BACKWARD PAGPA EQU 4 PAGE ADDRESS PAGSB EQU 6 SEGMENT BLOCK ADDRESS EJECT * * ************* * * SEGTAB * * ************* * SEGPB EQU 6 SEGMENT POINTER SEGSB EQU 6 PAGE BLOCK ADDRESS EJECT * * ******************* * * MISCELLANOUES * * ******************* * BUFLEN EQU -4 DEVIND EQU -2 DWTLEN EQU 6 TDCDD1 EQU 5 TDCDD2 EQU 6 TDCLCN EQU 10 DISP. TO LINE CON. NBR SLL0 EQU /3940 SLL A1,0 CONSTANT NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY) EJECT ****************************************************** * * * * * THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * * * * IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * * PARAMETERS: * * * * A1 - POINTER TO CURRENT LOCATION OF SYSLDX * * A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * * * * * ****************************************************** SYSLDM EQU * LDR A8,P INIT STACK POINTER LDKL A1,REL+2 RELOCATION ROUTINE ENTRY AD A1,STKCOM+M:REL RELOCATE ADDRESS CFR A8,A1 LDKL A11,SYSLOD START OF SYSLOD LDKL A2,TCLASS GET ADDRESS TO TCLASS CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? RF(E) NO:TCL YES:DUMMY TCLASS! CALL CHPTRS RELOCATE POINTERS IN TCLASS ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS CALL CHPTRS RELOCATE POINTERS IN SCLASS ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS RF CLEAR EJECT *********************************************** * CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * *********************************************** * * ENTRY: A2 - POINTER TO TCLASS/SCLASS * A11 - SYSLOD START ADDRESS * A12 - RELOCATION CONSTANT * * EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: * CHPTRS EQU * ADR A2,A12 RELOCATE POINTER LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS CHPT10 EQU * SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? RF(Z) CHPT30 NO! ADK A3,2 NEXT ENTRY LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE LDR* A6,A5 GET LENGTH OF CLASS CHPT20 EQU * SUK A6,4 MOORE DEVICES IN THIS CLASS? RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE LDR* A7,A5 GET DWT-ADDRESS LDR A9,A7 GET DWT-ADDRESS CALL CMPADR COMPARE ADDRESSES RB(G) CHPT20 DWT IN DRIVER! ADR A7,A12 RELOCATE STR A7,A5 STORE RELOCATED DW-ADDRESS LD A8,SCTOPT GET OPTION WORD ANKL A8,1 MMU IN SYSTEM? RB(Z) CHPT20 NO! LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS LDR A9,A8 GET MONITOR ECB ADDRESS ANKL A9,1 ADDRESS ALREADY RELOCATED? RB(NZ) CHPT20 YES! ADR A8,A12 RELOCATE ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * RTN A14 EJECT CLEAR EQU * * * CLEAR ALL WORDS IN SYSTEM AREA * LD A2,SCTSFA LDR A1,P GET PROGRAM COUNTER CLRSYS EQU * SUK A1,2 CMR A1 CWR A1,A2 RB(NE) CLRSYS LDKL A1,CONMON AD A1,STKCOM+M:REL ABR A1 EJECT ************************************************** * B:TCT - BUILD TASK CONTROL TABLE * ************************************************** * * REFERENCED IN: MONCON * * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A7,A11,A12 * * SUBROUTINES: * * TASK CONTROL TABLE LAYOUT * _________________________ * I LENGTH I * _________________________ * I MONITOR TASKS I * _________________________ * I USER TASKS I * __________________________ * EJECT B:TCT EQU * LD A12,SCTSFA GET START OF FREE AREA ST A12,SCTTCT STORE ADDRESS TO TCTAB ADKL A12,2 FIRST TTAB ADDRESS ENTRY IFF EDM=0 * * RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT * AND MONITOR SEGMENT TASKS * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BTCT20 NOT PRESENT! CALL MX:TDB GET FIRST MONITOR EXTENT TDB BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BTCT05 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT04 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT02 NO MORE! LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY IN TCTAB RB BTCT04 BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES RF(N) BTCT20 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT08 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT06 NO MORE LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY TCTAB RB BTCT08 XIF EJECT * * RESERVE ENTRIES IN TCTAB FOR USER TASKS * BTCT20 EQU * ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY LD A7,SYSLOD GET NUMBER OF APPLICATIONS LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK BTCT30 SUK A7,1 MORE APPLICATIONS? RF(N) BTCT70 NO! LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA AD A11,STKCOM+CONSTA RELOCATE POINTER ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR HALT EJECT BTCT35 EQU * * * COMPUTE NUMBER OF TASK IN EACH TASK CLASS * BTCT40 EQU * CALL GETTSK GET NUMBER OF TASKS BTCT50 EQU * ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB SUK A1,1 MOORE TASKS IN THIS CLASS? RB(P) BTCT50 YES CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BTCT40 YES BTCT60 EQU * ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK RB BTCT30 * * ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB * BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA SU A12,SCTTCT COMPUTE LENGTH ST* A12,SCTTCT STORE RTN A14 IFF EDM=0 EJECT ***************************************************** * * * RESTCT - RESERVE ENTRY IN TCTAB * * =============================== * * * * REFERENCED IN: B:TCT * * * * ENTRY: A2 - CURRENT TASK ID * * A12 - NEXT FREE ENTRY IN TCTAB * * * * EXIT: A12 - NEXT FREE ENTRY IN TCTAB * * * * WORK REGISTERS: A3 * * * * SUBROUTINES: * * * ***************************************************** RESTCT EQU * LDR A3,A12 GET END OF TCTAB REST10 SUK A3,2 NEXT ENTRY CW A3,SCTTCT ALL ENTRIES CHECKED? RF(NE) REST30 NOT YET STR A2,A12 STORE TASK ID IN TCTAB ADKL A12,2 NEXT FREEE ENTRY IN TCTAB REST20 RTN A14 RETURN REST30 CWR* A2,A3 CHECK IF SAME TASK ID RB(NE) REST10 NOT THE SAME RB REST20 COINCIDENCE: RETURN XIF IFF FM=0 EJECT *************************************************** * * * B:FWT - BUILD FILE WORK TABLE * * ============================= * * * *************************************************** * * * REFERENCED IN: CONMON * * * * ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * * SCTNOF - NUMBER OF GENERAL FM-FILES * * SCTFWL - FILE WORK TABLE LENGTH IN * * BYTES * * * * EXIT: SCTFWT - ADDRESS TO FIRST FWT * * SCTNOF - TOTAL NUMBER OF FM-FILES * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: ERROR,MULT * * * * FUNCTIONAL DESCRIPTION: * * THIS SUBROUTINE RESERVES MEMORY AREA FOR * * FILE WORK TABLES. * * SIZE OF THE AREA RESERVED IS GIVEN BY THE * * FORMULA: A=L*(G+N*T) * * WHERE A=AREA SIZE IN BYTES * * L= FWT LENGTH IN BYTES * * G=NUMBER OF GENERAL FM-FILES * * T=NUMBER OF FM-FILES PER TASK * * N=NUMBER OF USER TASKS * * * *************************************************** EJECT B:FWT EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT COMPUTE END OF TCTAB SU A2,STKEND+CUTENT LENGTH OF USER PART SRL A2,1 NUMBER OF USER TASKS LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK CALL MULT MULTIPLY AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES LD A2,SCTFWL GET FILE WORK TABLE LENGTH CALL MULT MULTIPLY SRL A3,1 NUMBER OF WORDS TO BE RESERVED ADK A3,0 ANY FWT:S AT ALL? RF(Z) FWT70 NO! ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS LD A2,SCTSFA GET START OF FREE AREA ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) FWT60 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR FWT60 CMR A2 CLEAR FWT AREA ADK A2,2 RESERVE ANOTHER WORD SUK A3,1 DECREMENT WORD COUNTER RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ST A2,SCTSFA UPDATE START OF FREE AREA SUK A2,2 ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. FWT70 RTN A14 XIF EJECT ************************************** * MONBLK - GENERATE MONITOR BLOCKS * ************************************** * * NUMBER OF BLOCKS TO BE GENERATED: * 20+N*(NUMBER OF TASKS IN SYSTEM) * WHERE N IS A SYSTEM CONSTANT * DEFINED AT SYSTEM GENERATION * * * REFERENCED IN: SYSLOD * * ENTRY: SCTSFA - START OF FREE AREA * SCTEFA - END OF FREE AREA * * EXIT: BLOCKS - POINTER TO FIRST BLOCK * * WORK REGISTERS: A1,A2,A7,A12 * * SUBROUTINES: BLKGEN * EJECT MONBLK EQU * LDK A1,0 LD A12,SCTSFA START OF FREE AREA ST A12,FREQUE SAVE POINTER TO FIRST BLOCK * * GET NUMBER OF TASKS IN SYSTEM * LD* A7,SCTTCT GET LENGTH OF TC:TAB * * GET NUMBER OF BLOCKS PER TASK TO GENERATE * LD A2,SCTBLK ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA MON:10 EQU * SUK A7,2 MOORE TASKS? RF(Z) MON:20 NO CALL BLKGEN RB MON:10 MON:20 EQU * * * GENERATE EXTRA MONITOR BLOCKS * LDK A2,19 ADK A2,NOEXMB AD A2,SCTNOF AD A2,SCTNOF CALL BLKGEN * * GENERATE END BLOCK * STR A1,A12 ST A1,2,A12 ST A1,4,A12 * * CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A * IF NOT - USE LAST MONITOR BLOCK AS BUFFER * LD A1,STKCOM+BUFSIZ GET BUFFER SIZE CWK A1,4 >4? RF(NL) MON:30 NOT LESS ANYWAY! LDK A1,4 BUFFER SIZE ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE ADKL A12,2 ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS MON:30 EQU * ADKL A12,6 ST A12,SCTSFA UPDATE END OF FREE AREA RTN A14 EJECT ************************************* * BLKGEN - GENERATE MONITOR BLOCK * ************************************* * * REFERENCED IN: MONBLK * * ENTRY: A1=0 * A2 - NUMBER OF BLOCKS TO BE GENERATED * A12 - NEXT FREE ENTRY * * EXIT: A1=0 * A12 - NEXT FREE ENTRY * * WORK REGISTES: A3,A4 * * SUBROUTINES: * * MONITOR BLOCK LAYOUT * -------------------- * I DATA *+6 I * -------------------- * I DATA 0 I * -------------------- * I DATA 0 I * -------------------- * EJECT BLKGEN EQU * LDR A3,A2 BLK:10 EQU * RF(Z) BLKEX LDK A4,3 NUMBER OF WORDS/BLOCK BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) BLK:30 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BLK:30 ADKL A12,2 RESERVE ANOTHER WORD SUK A4,1 MORE WORDS WANTED? RB(NZ) BLK:20 YES ST A12,-6,A12 ST A1,-4,A12 ST A1,-2,A12 SUK A3,1 RB BLK:10 BLKEX EQU * RTN A14 IFF EDM=0 EJECT ******************************************************************* * * * B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * * ============================================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A4 * * * * SUBROUTINES: MX:TDB,MXTTAB * * * ******************************************************************* B:MXTT EQU * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BMX99 NOT PRESENT LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK ST* A4,SCTTCT IN TCTAB CALL MX:TDB FIND FIRST MONITOR EXTENT TDB LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE RF(NZ) BMX05 ALREADY DEFINED LD A4,SCTSFA START OF FREE AREA ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE ST* A4,SCTMOX STORE IN FIRST WORD SUK A4,2 RESET TASK ID COUNTER LDR A2,A1 GET POINTER TO TDB LDR A3,A7 GET NUMBER OF EXTENTS SUK A2,2 BMX01 SUK A3,1 MORE EXTENTS? RF(N) BMX03 NO ADK A2,2 ADDRESS NUMBER OF TASK ID:S LDR* A6,A2 GET NUMBER OF TASK ID:S ADR* A4,A2 ADD NUMBER OF TASK ID:S BMX02 SUK A6,1 MORE TASK ID:S? RB(N) BMX01 NO ADK A2,2 ADDRESS NEXT TASK ID RB BMX02 BMX03 SLL A4,2 INCLUDE LENGTH ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE AD A4,SCTSFA END OF START-ADDRESS TABLE ST A4,SCTSFA UPDATE START OF FREE AREA LDR A11,A4 GET TABLE END LDR A9,P GET CURRENT LOCATION CALL CMPADR COMPARE ADDRESSES RF(NG) BMXS05 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA BMX05 SUK A1,2 BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BMX99 NO MORE LD A12,SCTSFA GET START OF FREE AREA ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK ST A12,SCTSFA UPDATE START OF FREE AREA ADK A1,2 NUMBER OF TASK ID:S LDR* A4,A1 GET NUMBER OF TASK ID:S BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BMX10 NO MORE ADK A1,2 NEXT TASK ID CALL MXTTAB RB BMX20 BMX99 RTN A14 RETURN EJECT ******************************************************************** * * * MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK * * ============================================== * * * * ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * A12 - POINTER TO START OF FREE AREA * * * * EXIT: A1 - POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * * * WORK REGISTER: A2 * * * * SUBROUTINES: IMXTT,STRMOX,INBIMA * * * ******************************************************************** EJECT MXTTAB EQU * MSR 4,A15 SAVE REGISTER A1-A4 ON STACK CALL BMXSTT BUILD MONITOR EXTENT TTAB CALL IMXTT INIT MMU TABLE LDR* A2,A1 GET TASK ID CALL STRMOX STORE IN MOXTAB LD A2,MX:STA,A5 GET START ADDRESS LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 ST A2,APLSTA,A3 STORE START ADDRESS =6 CALL STRMOX STORE IN MOXTAB LDR* A2,A5 GET EXTENT ADDRESS ANKL A2,/3FF GET DISPLACEMENT SLL A2,2 MAKE IT 12 BITS ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS ADK A2,12 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 1 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 00 «, t00=0x000c, t01=0x012a}
0x013f8…0140c Head {h00=0x0010, h01=0x0050, text=»SUMR EQU 00 «, t00=0x000c, t01=0x013e}
0x0140c…01422 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU 00 «, t00=0x000c, t01=0x0152}
0x01422…01438 Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU 00 «, t00=0x000c, t01=0x0168}
0x01438…0144c Head {h00=0x0010, h01=0x0050, text=»FT80 EQU 00 «, t00=0x000c, t01=0x017e}
0x0144c…01460 (13, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PLCL EQU 01 «, t00=0x000d, t01=0x0004}
0x01460…01474 Head {h00=0x0010, h01=0x0050, text=»PLCR EQU 01 «, t00=0x000d, t01=0x0018}
0x01474…01488 Head {h00=0x0010, h01=0x0050, text=»VIDEO EQU 00«, t00=0x000d, t01=0x002c}
0x01488…0149e Head {h00=0x0012, h01=0x0050, text=»TEDVCL EQU 01 «, t00=0x000d, t01=0x0040}
0x0149e…014b4 Head {h00=0x0012, h01=0x0050, text=»SPDVCL EQU 01 «, t00=0x000d, t01=0x0056}
0x014b4…014ca Head {h00=0x0012, h01=0x0050, text=»NOEXMB EQU X:K«, t00=0x000d, t01=0x006c}
0x014ca…014dc Head {h00=0x000e, h01=0x0050, text=»FM EQU 00 «, t00=0x000d, t01=0x0082}
0x014dc…014ee Head {h00=0x000e, h01=0x0050, text=»DC EQU 01 «, t00=0x000d, t01=0x0094}
0x014ee…014fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a6}
0x014fc…01506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b4}
0x01506…01534 Head {h00=0x002a, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS «, t00=0x000d, t01=0x00be}
0x01534…0153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x0153e…01570 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3«, t00=0x000d, t01=0x00f6}
0x01570…015a4 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000d, t01=0x0128}
0x015a4…015cc Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000d, t01=0x015c}
0x015cc…015f8 Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000d, t01=0x0184}
0x015f8…0162a Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x0020}
0x0162a…0165a Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x0052}
0x0165a…01686 Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000e, t01=0x0082}
0x01686…016c4 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000e, t01=0x00ae}
0x016c4…016f2 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000e, t01=0x00ec}
0x016f2…01722 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000e, t01=0x011a}
0x01722…0175c Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000e, t01=0x014a}
0x0175c…01788 Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000e, t01=0x0184}
0x01788…017b6 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x0020}
0x017b6…017e2 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x004e}
0x017e2…0180a Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000f, t01=0x007a}
0x0180a…0183a Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000f, t01=0x00a2}
0x0183a…01870 Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x000f, t01=0x00d2}
0x01870…018a4 Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x000f, t01=0x0108}
0x018a4…018d0 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000f, t01=0x013c}
0x018d0…018f8 Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x000f, t01=0x0168}
0x018f8…01920 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x000f, t01=0x0190}
0x01920…01948 Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x0028}
0x01948…01976 Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x0050}
0x01976…019a6 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0010, t01=0x007e}
0x019a6…019ce Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0010, t01=0x00ae}
0x019ce…019fa Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0010, t01=0x00d6}
0x019fa…01a08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0102}
0x01a08…01a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x01a12…01a3e Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN LOCAL STACK AREA «, t00=0x0010, t01=0x011a}
0x01a3e…01a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0146}
0x01a48…01a6c Head {h00=0x0020, h01=0x0050, text=»TCLA EQU 0 ADDRESS TO TCLASS«, t00=0x0010, t01=0x0150}
0x01a6c…01a90 Head {h00=0x0020, h01=0x0050, text=»SCLA EQU 2 ADDRESS TO SCLASS«, t00=0x0010, t01=0x0174}
0x01a90…01aba Head {h00=0x0026, h01=0x0050, text=»CUTENT EQU 4 FIRST USER TASK ENTRY«, t00=0x0011, t01=0x0008}
0x01aba…01ae6 Head {h00=0x0028, h01=0x0050, text=»FWTSIZ EQU 6 FWT AREA SIZE IN WORDS «, t00=0x0011, t01=0x0032}
0x01ae6…01b16 Head {h00=0x002c, h01=0x0050, text=»APCTAB EQU 8 CURRENT APPL CONTROL BLOCK «, t00=0x0011, t01=0x005e}
0x01b16…01b44 Head {h00=0x002a, h01=0x0050, text=»SFASAV EQU 10 SAVE START OF FREE AREA «, t00=0x0011, t01=0x008e}
0x01b44…01b72 Head {h00=0x002a, h01=0x0050, text=»NBRTSK EQU 12 NUMBER OF TASKS IN CLASS«, t00=0x0011, t01=0x00bc}
0x01b72…01b9c Head {h00=0x0026, h01=0x0050, text=»TASKID EQU 14 TASK IDENTIFICATION «, t00=0x0011, t01=0x00ea}
0x01b9c…01bba Head {h00=0x001a, h01=0x0050, text=»FWTFLG EQU 16 FWT FLAG«, t00=0x0011, t01=0x0114}
0x01bba…01bda Head {h00=0x001c, h01=0x0050, text=»TCLSAV EQU 18 TASK CLASS«, t00=0x0011, t01=0x0132}
0x01bda…01bfa Head {h00=0x001c, h01=0x0050, text=»TSKLEV EQU 20 TASK LEVEL«, t00=0x0011, t01=0x0152}
0x01bfa…01c26 Head {h00=0x0028, h01=0x0050, text=»INTTAB EQU 22 TEMP INTTERRUPT TABLE «, t00=0x0011, t01=0x0172}
0x01c26…01c4e Head {h00=0x0024, h01=0x0050, text=»FWTSTA EQU 24 START OF FWT AREA «, t00=0x0012, t01=0x000e}
0x01c4e…01c7e Head {h00=0x002c, h01=0x0050, text=»LIMIT EQU 26 CURRENT END OF SYSTEM AREA «, t00=0x0012, t01=0x0036}
0x01c7e…01caa Head {h00=0x0028, h01=0x0050, text=»NBRCOM EQU 28 NUMBER OF COMMON TDC:S«, t00=0x0012, t01=0x0066}
0x01caa…01cc8 Head {h00=0x001a, h01=0x0050, text=»CLASID EQU 30 CLASS ID«, t00=0x0012, t01=0x0092}
0x01cc8…01cee Head {h00=0x0022, h01=0x0050, text=»CONTYP EQU 32 CONNECTION TYPE «, t00=0x0012, t01=0x00b0}
0x01cee…01d1a Head {h00=0x0028, h01=0x0050, text=»LCNBR EQU 34 LINE CONNECTION NUMBER «, t00=0x0012, t01=0x00d6}
0x01d1a…01d3c Head {h00=0x001e, h01=0x0050, text=»CLANBR EQU 36 CLASS NUMBER«, t00=0x0012, t01=0x0102}
0x01d3c…01d66 Head {h00=0x0026, h01=0x0050, text=»MAXSGM EQU 38 MAXIMUM SEGMENT SIZE«, t00=0x0012, t01=0x0124}
0x01d66…01d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x01d70…01d90 Head {h00=0x001c, h01=0x0050, text=»WRK1 EQU 42 WORK AREA 1 «, t00=0x0012, t01=0x0158}
0x01d90…01db0 Head {h00=0x001c, h01=0x0050, text=»WRK2 EQU 44 WORK AREA 2 «, t00=0x0012, t01=0x0178}
0x01db0…01dd0 Head {h00=0x001c, h01=0x0050, text=»WRK3 EQU 46 WORK AREA 3 «, t00=0x0013, t01=0x0008}
0x01dd0…01df0 Head {h00=0x001c, h01=0x0050, text=»WRK4 EQU 48 WORK AREA 4 «, t00=0x0013, t01=0x0028}
0x01df0…01e16 Head {h00=0x0022, h01=0x0050, text=»BRDTAB EQU 50 BOARD CONF TABLE«, t00=0x0013, t01=0x0048}
0x01e16…01e46 Head {h00=0x002c, h01=0x0050, text=»LCDSTA EQU 52 CONFIGURATION DATA POINTER«, t00=0x0013, t01=0x006e}
0x01e46…01e7c Head {h00=0x0032, h01=0x0050, text=»NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES«, t00=0x0013, t01=0x009e}
0x01e7c…01eb4 Head {h00=0x0034, h01=0x0050, text=»NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0013, t01=0x00d4}
0x01eb4…01ede Head {h00=0x0026, h01=0x0050, text=»APLNO EQU 58 NUMBR OF APPLICATIONS«, t00=0x0013, t01=0x010c}
0x01ede…01f06 Head {h00=0x0024, h01=0x0050, text=»ECHTAB EQU 60 ECHO TABLE ADDRESS«, t00=0x0013, t01=0x0136}
0x01f06…01f2c Head {h00=0x0022, h01=0x0050, text=»SGMCNT EQU 62 SEGMENT COUNTER «, t00=0x0013, t01=0x015e}
0x01f2c…01f5a Head {h00=0x002a, h01=0x0050, text=»NUMDTE EQU 64 NUMBER OF DTE:S DEFINED «, t00=0x0013, t01=0x0184}
0x01f5a…01f84 Head {h00=0x0026, h01=0x0050, text=»DTENAM EQU 66 SDTE IDENTIFICATION «, t00=0x0014, t01=0x0022}
0x01f84…01fac Head {h00=0x0024, h01=0x0050, text=»DTETYP EQU 68 TYPE OF CONNECTION«, t00=0x0014, t01=0x004c}
0x01fac…01fe4 Head {h00=0x0034, h01=0x0050, text=»NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA«, t00=0x0014, t01=0x0074}
0x01fe4…02012 Head {h00=0x002a, h01=0x0050, text=»NALNG EQU 72 LENGTH OF NETWORK ADDRESS«, t00=0x0014, t01=0x00ac}
0x02012…02042 Head {h00=0x002c, h01=0x0050, text=»DTENSA EQU 74 NO OF SUBADDRESSES DEFINED«, t00=0x0014, t01=0x00da}
0x02042…0207a Head {h00=0x0034, h01=0x0050, text=»DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK «, t00=0x0014, t01=0x010a}
0x0207a…020aa Head {h00=0x002c, h01=0x0050, text=»NSAADR EQU 78 START OF SUBADDRESSES(DC) «, t00=0x0014, t01=0x0142}
0x020aa…020e6 Head {h00=0x0038, h01=0x0050, text=»APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK «, t00=0x0014, t01=0x0172}
0x020e6…0211e Head {h00=0x0034, h01=0x0050, text=»SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK «, t00=0x0015, t01=0x001e}
0x0211e…02154 Head {h00=0x0032, h01=0x0050, text=»EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK«, t00=0x0015, t01=0x0056}
0x02154…02184 Head {h00=0x002c, h01=0x0050, text=»NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS «, t00=0x0015, t01=0x008c}
0x02184…021b6 Head {h00=0x002e, h01=0x0050, text=»SWBBLK EQU FWTFLG START OF SWB CONF. DATA «, t00=0x0015, t01=0x00bc}
0x021b6…021e4 Head {h00=0x002a, h01=0x0050, text=»SWBNAM EQU FWTSTA ADDRESS TO SWB NAME «, t00=0x0015, t01=0x00ee}
0x021e4…0220e Head {h00=0x0026, h01=0x0050, text=»SWBTBL EQU NBRTSK LENGTH OF S:BTAB«, t00=0x0015, t01=0x011c}
0x0220e…02238 Head {h00=0x0026, h01=0x0050, text=»TCTEND EQU NBRTSK LAST TCTAB ENTRY«, t00=0x0015, t01=0x0146}
0x02238…02262 Head {h00=0x0026, h01=0x0050, text=»SWBCNT EQU TASKID NUMBER OF SWB:S «, t00=0x0015, t01=0x0170}
0x02262…02270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x000a}
0x02270…0227a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x0227a…022ae Head {h00=0x0030, h01=0x0050, text=»* DISPLACEMENT IN APPLICATION CONTROL TABLE«, t00=0x0016, t01=0x0022}
0x022ae…022b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0056}
0x022b8…022ec Head {h00=0x0030, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE =6«, t00=0x0016, t01=0x0060}
0x022ec…0231c Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x0016, t01=0x0094}
0x0231c…0234a Head {h00=0x002a, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDRESS«, t00=0x0016, t01=0x00c4}
0x0234a…02374 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x0016, t01=0x00f2}
0x02374…023a6 Head {h00=0x002e, h01=0x0050, text=»APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL)«, t00=0x0016, t01=0x011c}
0x023a6…023d0 Head {h00=0x0026, h01=0x0050, text=»APLMMC EQU 10 APPL MMU START ENTRY«, t00=0x0016, t01=0x014e}
0x023d0…023fc Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x0016, t01=0x0178}
0x023fc…0242e Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x0017, t01=0x0014}
0x0242e…02460 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x0017, t01=0x0046}
0x02460…02486 Head {h00=0x0022, h01=0x0050, text=»APLSWB EQU 2 SWB TABLE ADDRESS«, t00=0x0017, t01=0x0078}
0x02486…024b6 Head {h00=0x002c, h01=0x0050, text=»APLSTA EQU 16 APPL PROGRAM START ADDRESS«, t00=0x0017, t01=0x009e}
0x024b6…024dc Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x0017, t01=0x00ce}
0x024dc…02518 Head {h00=0x0038, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 «, t00=0x0017, t01=0x00f4}
0x02518…0254a Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 «, t00=0x0017, t01=0x0130}
0x0254a…02558 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0162}
0x02558…02564 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0017, t01=0x0170}
0x02564…0256e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017c}
0x0256e…02582 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0017, t01=0x0186}
0x02582…0258c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000a}
0x0258c…025ba Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0018, t01=0x0014}
0x025ba…025dc Head {h00=0x001e, h01=0x0050, text=»SWBLEN EQU 4 LENGTH OF SWB«, t00=0x0018, t01=0x0042}
0x025dc…02608 Head {h00=0x0028, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO SECTOR LENGTH«, t00=0x0018, t01=0x0064}
0x02608…0263c Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0018, t01=0x0090}
0x0263c…02660 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0018, t01=0x00c4}
0x02660…02688 Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0018, t01=0x00e8}
0x02688…02694 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0110}
0x02694…026a0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x011c}
0x026a0…026c8 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x0128}
0x026c8…026f4 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN CONFIGURATION DATA«, t00=0x0018, t01=0x0150}
0x026f4…0271c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x017c}
0x0271c…02728 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0014}
0x02728…02748 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0019, t01=0x0020}
0x02748…0276a Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0019, t01=0x0040}
0x0276a…02796 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0019, t01=0x0062}
0x02796…027c6 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0019, t01=0x008e}
0x027c6…027f6 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0019, t01=0x00be}
0x027f6…0281e Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0019, t01=0x00ee}
0x0281e…0285c Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0019, t01=0x0116}
0x0285c…02866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0154}
0x02866…02890 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0019, t01=0x015e}
0x02890…028b8 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0019, t01=0x0188}
0x028b8…028da Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x001a, t01=0x0020}
0x028da…02906 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001a, t01=0x0042}
0x02906…02910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x02910…0293e Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001a, t01=0x0078}
0x0293e…02948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a6}
0x02948…0296c Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001a, t01=0x00b0}
0x0296c…02976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d4}
0x02976…02998 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001a, t01=0x00de}
0x02998…029d2 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001a, t01=0x0100}
0x029d2…029fe Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001a, t01=0x013a}
0x029fe…02a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0166}
0x02a08…02a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0170}
0x02a12…02a3c Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001a, t01=0x017a}
0x02a3c…02a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0014}
0x02a46…02a68 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x001e}
0x02a68…02a98 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001b, t01=0x0040}
0x02a98…02aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0070}
0x02aa2…02ace Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001b, t01=0x007a}
0x02ace…02aee Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001b, t01=0x00a6}
0x02aee…02b14 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001b, t01=0x00c6}
0x02b14…02b46 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001b, t01=0x00ec}
0x02b46…02b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011e}
0x02b50…02b7e Head {h00=0x002a, h01=0x0050, text=»* DATA COMMUNICATION DEFINITION BLOCK«, t00=0x001b, t01=0x0128}
0x02b7e…02b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0156}
0x02b88…02bb0 Head {h00=0x0024, h01=0x0050, text=»IDLIM EQU 4 ID DELIMITER OFFSET «, t00=0x001b, t01=0x0160}
0x02bb0…02bda Head {h00=0x0026, h01=0x0050, text=»TYPOFS EQU 7 START OF TYPE RECORD «, t00=0x001b, t01=0x0188}
0x02bda…02c0a Head {h00=0x002c, h01=0x0050, text=»NANSA EQU 2 NA-NSA RECORD QUALIFIER POS.«, t00=0x001c, t01=0x0022}
0x02c0a…02c30 Head {h00=0x0022, h01=0x0050, text=»NAOFS EQU 3 START OF NA NUMBER«, t00=0x001c, t01=0x0052}
0x02c30…02c58 Head {h00=0x0024, h01=0x0050, text=»NSAOFS EQU 4 START OF NSA RECORD«, t00=0x001c, t01=0x0078}
0x02c58…02c82 Head {h00=0x0026, h01=0x0050, text=»DTEFIX EQU 8 FIX PART OF DTE BLOCK«, t00=0x001c, t01=0x00a0}
0x02c82…02c90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00ca}
0x02c90…02ca8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001c, t01=0x00d8}
0x02ca8…02cc0 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x001c, t01=0x00f0}
0x02cc0…02cd8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001c, t01=0x0108}
0x02cd8…02cfa Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x001c, t01=0x0120}
0x02cfa…02d02 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0142}
0x02d02…02d30 Head {h00=0x002a, h01=0x0050, text=»LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE «, t00=0x001c, t01=0x014a}
0x02d30…02d4e Head {h00=0x001a, h01=0x0050, text=»LMP2 EQU /200 NOT USED«, t00=0x001c, t01=0x0178}
0x02d4e…02d74 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x001d, t01=0x0008}
0x02d74…02da4 Head {h00=0x002c, h01=0x0050, text=»LMP4 EQU /80 ERROR IN CONFIGURATION DATA«, t00=0x001d, t01=0x002e}
0x02da4…02dc2 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 NOT USED «, t00=0x001d, t01=0x005e}
0x02dc2…02de0 Head {h00=0x001a, h01=0x0050, text=»LMP6 EQU /20 NOT USED «, t00=0x001d, t01=0x007c}
0x02de0…02dfe Head {h00=0x001a, h01=0x0050, text=»LMP7 EQU /10 NOT USED «, t00=0x001d, t01=0x009a}
0x02dfe…02e1a Head {h00=0x0018, h01=0x0050, text=»LMP8 EQU 8 NOT USED «, t00=0x001d, t01=0x00b8}
0x02e1a…02e36 Head {h00=0x0018, h01=0x0050, text=»LMP9 EQU 4 NOT USED «, t00=0x001d, t01=0x00d4}
0x02e36…02e52 Head {h00=0x0018, h01=0x0050, text=»LMP10 EQU 2 NOT USED«, t00=0x001d, t01=0x00f0}
0x02e52…02e6e Head {h00=0x0018, h01=0x0050, text=»LMP11 EQU 1 NOT USED«, t00=0x001d, t01=0x010c}
0x02e6e…02e7a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x0128}
0x02e7a…02ec4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001d, t01=0x0134}
0x02ec4…02f0e Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x001d, t01=0x017e}
0x02f0e…02f58 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x001e, t01=0x0038}
0x02f58…02fa2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0082}
0x02fa2…02fec Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001e, t01=0x00cc}
0x02fec…02ff8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0116}
0x02ff8…03004 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0122}
0x03004…03010 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x012e}
0x03010…0302e Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x001e, t01=0x013a}
0x0302e…0303c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0158}
0x0303c…03046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0166}
0x03046…03066 Head {h00=0x001c, h01=0x0050, text=»* MXSTAB DISPLACEMENTS «, t00=0x001e, t01=0x0170}
0x03066…03070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0190}
0x03070…03098 Head {h00=0x0024, h01=0x0050, text=»MXSBL EQU 6 SEGMENT BLOCK LENGTH«, t00=0x001f, t01=0x000a}
0x03098…030be Head {h00=0x0022, h01=0x0050, text=»MXNOX EQU 6 NUMBER OF EXTENTS «, t00=0x001f, t01=0x0032}
0x030be…030ec Head {h00=0x002a, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT TABLES «, t00=0x001f, t01=0x0058}
0x030ec…0311c Head {h00=0x002c, h01=0x0050, text=»MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x001f, t01=0x0086}
0x0311c…03148 Head {h00=0x0028, h01=0x0050, text=»MX:LEV EQU /0031 MONITOR TASK LEVEL «, t00=0x001f, t01=0x00b6}
0x03148…03172 Head {h00=0x0026, h01=0x0050, text=»MX:LEN EQU 4 MONITOR EXTENT LENGTH«, t00=0x001f, t01=0x00e2}
0x03172…031a6 Head {h00=0x0030, h01=0x0050, text=»MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 «, t00=0x001f, t01=0x010c}
0x031a6…031e2 Head {h00=0x0038, h01=0x0050, text=»MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 «, t00=0x001f, t01=0x0140}
0x031e2…03218 Head {h00=0x0032, h01=0x0050, text=»MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS «, t00=0x001f, t01=0x017c}
0x03218…03248 Head {h00=0x002c, h01=0x0050, text=»MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0020, t01=0x0022}
0x03248…0327a Head {h00=0x002e, h01=0x0050, text=»MX:STA EQU 2 MONITOR EXTENT START ADDRESS «, t00=0x0020, t01=0x0052}
0x0327a…03288 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0084}
0x03288…03292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0092}
0x03292…032b8 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0020, t01=0x009c}
0x032b8…032de Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x0020, t01=0x00c2}
0x032de…03304 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0020, t01=0x00e8}
0x03304…0330e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010e}
0x0330e…03338 Head {h00=0x0026, h01=0x0050, text=»PAGQF EQU 0 QUEUE POINTER FORWARD «, t00=0x0020, t01=0x0118}
0x03338…03362 Head {h00=0x0026, h01=0x0050, text=»PAGQB EQU 2 QUEUE POINTER BACKWARD«, t00=0x0020, t01=0x0142}
0x03362…03382 Head {h00=0x001c, h01=0x0050, text=»PAGPA EQU 4 PAGE ADDRESS«, t00=0x0020, t01=0x016c}
0x03382…033ac Head {h00=0x0026, h01=0x0050, text=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS «, t00=0x0020, t01=0x018c}
0x033ac…033ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0026}
0x033ba…033c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0034}
0x033c4…033ee Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0021, t01=0x003e}
0x033ee…03418 Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x0021, t01=0x0068}
0x03418…03442 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0021, t01=0x0092}
0x03442…0344c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00bc}
0x0344c…03470 Head {h00=0x0020, h01=0x0050, text=»SEGPB EQU 6 SEGMENT POINTER «, t00=0x0021, t01=0x00c6}
0x03470…03496 Head {h00=0x0022, h01=0x0050, text=»SEGSB EQU 6 PAGE BLOCK ADDRESS«, t00=0x0021, t01=0x00ea}
0x03496…0349e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0110}
0x0349e…034ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0118}
0x034ac…034b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0126}
0x034b6…034e4 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0021, t01=0x0130}
0x034e4…03512 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x0021, t01=0x015e}
0x03512…03540 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0021, t01=0x018c}
0x03540…0354a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002a}
0x0354a…03560 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x0022, t01=0x0034}
0x03560…03576 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x0022, t01=0x004a}
0x03576…0358a Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x0022, t01=0x0060}
0x0358a…0359e Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x0022, t01=0x0074}
0x0359e…035b2 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x0022, t01=0x0088}
0x035b2…035de Head {h00=0x0028, h01=0x0050, text=»TDCLCN EQU 10 DISP. TO LINE CON. NBR«, t00=0x0022, t01=0x009c}
0x035de…03606 Head {h00=0x0024, h01=0x0050, text=»SLL0 EQU /3940 SLL A1,0 CONSTANT«, t00=0x0022, t01=0x00c8}
0x03606…03642 Head {h00=0x0038, h01=0x0050, text=»NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY)«, t00=0x0022, t01=0x00f0}
0x03642…03650 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x012c}
0x03650…0368e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0022, t01=0x013a}
0x0368e…036cc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0178}
0x036cc…0370a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0026}
0x0370a…03748 Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0023, t01=0x0064}
0x03748…03786 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x00a2}
0x03786…037c4 Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0023, t01=0x00e0}
0x037c4…03802 Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0023, t01=0x011e}
0x03802…03840 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x015c}
0x03840…0387e Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDX *«, t00=0x0024, t01=0x000a}
0x0387e…038bc Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX *«, t00=0x0024, t01=0x0048}
0x038bc…038fa Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0086}
0x038fa…03938 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00c4}
0x03938…03976 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0024, t01=0x0102}
0x03976…0398a Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0024, t01=0x0140}
0x0398a…039ae Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0024, t01=0x0154}
0x039ae…039de Head {h00=0x002c, h01=0x0050, text=» LDKL A1,REL+2 RELOCATION ROUTINE ENTRY «, t00=0x0024, t01=0x0178}
0x039de…03a0a Head {h00=0x0028, h01=0x0050, text=» AD A1,STKCOM+M:REL RELOCATE ADDRESS«, t00=0x0025, t01=0x0018}
0x03a0a…03a1c Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0025, t01=0x0044}
0x03a1c…03a44 Head {h00=0x0024, h01=0x0050, text=» LDKL A11,SYSLOD START OF SYSLOD«, t00=0x0025, t01=0x0056}
0x03a44…03a72 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0025, t01=0x007e}
0x03a72…03aa4 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0025, t01=0x00ac}
0x03aa4…03acc Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0025, t01=0x00de}
0x03acc…03afc Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0025, t01=0x0106}
0x03afc…03b38 Head {h00=0x0038, h01=0x0050, text=» ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS «, t00=0x0025, t01=0x0136}
0x03b38…03b6c Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0025, t01=0x0172}
0x03b6c…03b9c Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0026, t01=0x0016}
0x03b9c…03bd0 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS «, t00=0x0026, t01=0x0046}
0x03bd0…03be2 Head {h00=0x000e, h01=0x0050, text=» RF CLEAR «, t00=0x0026, t01=0x007a}
0x03be2…03bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x008c}
0x03bf0…03c28 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0026, t01=0x009a}
0x03c28…03c60 Head {h00=0x0034, h01=0x0050, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0026, t01=0x00d2}
0x03c60…03c98 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0026, t01=0x010a}
0x03c98…03ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0142}
0x03ca2…03cd2 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0026, t01=0x014c}
0x03cd2…03cfe Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0026, t01=0x017c}
0x03cfe…03d2a Head {h00=0x0028, h01=0x0050, text=»* A12 - RELOCATION CONSTANT «, t00=0x0027, t01=0x0018}
0x03d2a…03d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0044}
0x03d34…03d6a Head {h00=0x0032, h01=0x0050, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0027, t01=0x004e}
0x03d6a…03d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0084}
0x03d74…03d92 Head {h00=0x001a, h01=0x0050, text=»* WORK REGISTER:A1-A7«, t00=0x0027, t01=0x008e}
0x03d92…03d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ac}
0x03d9c…03db4 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0027, t01=0x00b6}
0x03db4…03dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ce}
0x03dbe…03dd2 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0027, t01=0x00d8}
0x03dd2…03df6 Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0027, t01=0x00ec}
0x03df6…03e2c Head {h00=0x0032, h01=0x0050, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0027, t01=0x0110}
0x03e2c…03e5c Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0027, t01=0x0146}
0x03e5c…03e70 Head {h00=0x0010, h01=0x0050, text=»CHPT10 EQU *«, t00=0x0027, t01=0x0176}
0x03e70…03ea2 Head {h00=0x002e, h01=0x0050, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0027, t01=0x018a}
0x03ea2…03ebc Head {h00=0x0016, h01=0x0050, text=» RF(Z) CHPT30 NO! «, t00=0x0028, t01=0x002c}
0x03ebc…03ed8 Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 NEXT ENTRY«, t00=0x0028, t01=0x0046}
0x03ed8…03f00 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0028, t01=0x0062}
0x03f00…03f1c Head {h00=0x0018, h01=0x0050, text=» ADR A5,A12 RELOCATE«, t00=0x0028, t01=0x008a}
0x03f1c…03f34 Head {h00=0x0014, h01=0x0050, text=» STR A5,A3 STORE«, t00=0x0028, t01=0x00a6}
0x03f34…03f5c Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0028, t01=0x00be}
0x03f5c…03f70 Head {h00=0x0010, h01=0x0050, text=»CHPT20 EQU *«, t00=0x0028, t01=0x00e6}
0x03f70…03f9e Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0028, t01=0x00fa}
0x03f9e…03fb8 Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0028, t01=0x0128}
0x03fb8…03fd6 Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x0028, t01=0x0142}
0x03fd6…03ffa Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0028, t01=0x0160}
0x03ffa…0401c Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x0028, t01=0x0184}
0x0401c…04042 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x0029, t01=0x0016}
0x04042…04066 Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x0029, t01=0x003c}
0x04066…04082 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A12 RELOCATE«, t00=0x0029, t01=0x0060}
0x04082…040b0 Head {h00=0x002a, h01=0x0050, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x0029, t01=0x007c}
0x040b0…040d6 Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x0029, t01=0x00aa}
0x040d6…040f8 Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x0029, t01=0x00d0}
0x040f8…04112 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x0029, t01=0x00f2}
0x04112…04142 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x0029, t01=0x010c}
0x04142…0416c Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x0029, t01=0x013c}
0x0416c…0419a Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x0029, t01=0x0166}
0x0419a…041b6 (42, 0, 398) Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x002a, t01=0x0004}
0x041b6…041d2 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x002a, t01=0x0020}
0x041d2…04204 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x002a, t01=0x003c}
0x04204…04234 Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x002a, t01=0x006e}
0x04234…04246 Head {h00=0x000e, h01=0x0050, text=» RB CHPT20«, t00=0x002a, t01=0x009e}
0x04246…0425a Head {h00=0x0010, h01=0x0050, text=»CHPT30 EQU *«, t00=0x002a, t01=0x00b0}
0x0425a…0426a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00c4}
0x0426a…04278 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00d4}
0x04278…0428c Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x002a, t01=0x00e2}
0x0428c…04296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f6}
0x04296…042c0 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x002a, t01=0x0100}
0x042c0…042ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012a}
0x042ca…042e0 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x002a, t01=0x0134}
0x042e0…04306 Head {h00=0x0022, h01=0x0050, text=» LDR A1,P GET PROGRAM COUNTER «, t00=0x002a, t01=0x014a}
0x04306…0431a Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x002a, t01=0x0170}
0x0431a…0432c Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x002a, t01=0x0184}
0x0432c…0433c Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002b, t01=0x0008}
0x0433c…0434e Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x002b, t01=0x0018}
0x0434e…04364 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x002b, t01=0x002a}
0x04364…0437c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x002b, t01=0x0040}
0x0437c…04398 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x002b, t01=0x0058}
0x04398…043a8 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x002b, t01=0x0074}
0x043a8…043b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0084}
0x043b6…043f0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002b, t01=0x0092}
0x043f0…0442a Head {h00=0x0036, h01=0x0050, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x002b, t01=0x00cc}
0x0442a…04464 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002b, t01=0x0106}
0x04464…0446e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0140}
0x0446e…0448e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x002b, t01=0x014a}
0x0448e…04498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x016a}
0x04498…044a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0174}
0x044a2…044b4 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x002b, t01=0x017e}
0x044b4…044be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0190}
0x044be…044ce Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x002c, t01=0x000a}
0x044ce…044d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x044d8…04502 Head {h00=0x0026, h01=0x0050, text=»* WORK REGISTERS: A1-A7,A11,A12 «, t00=0x002c, t01=0x0024}
0x04502…0450c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004e}
0x0450c…04524 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x002c, t01=0x0058}
0x04524…0452e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0070}
0x0452e…04560 Head {h00=0x002e, h01=0x0050, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x002c, t01=0x007a}
0x04560…04592 Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002c, t01=0x00ac}
0x04592…045c4 Head {h00=0x002e, h01=0x0050, text=»* I LENGTH I«, t00=0x002c, t01=0x00de}
0x045c4…045f6 Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002c, t01=0x0110}
0x045f6…04628 Head {h00=0x002e, h01=0x0050, text=»* I MONITOR TASKS I«, t00=0x002c, t01=0x0142}
0x04628…0465a Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002c, t01=0x0174}
0x0465a…0468c Head {h00=0x002e, h01=0x0050, text=»* I USER TASKS I«, t00=0x002d, t01=0x0016}
0x0468c…046be Head {h00=0x002e, h01=0x0050, text=»* __________________________ «, t00=0x002d, t01=0x0048}
0x046be…046c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007a}
0x046c8…046d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0084}
0x046d6…046ea Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x002d, t01=0x0092}
0x046ea…04718 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x002d, t01=0x00a6}
0x04718…04746 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTTCT STORE ADDRESS TO TCTAB «, t00=0x002d, t01=0x00d4}
0x04746…04772 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,2 FIRST TTAB ADDRESS ENTRY«, t00=0x002d, t01=0x0102}
0x04772…04784 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x002d, t01=0x012e}
0x04784…0478e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0140}
0x0478e…047c4 Head {h00=0x0032, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT«, t00=0x002d, t01=0x014a}
0x047c4…047e8 Head {h00=0x0020, h01=0x0050, text=»* AND MONITOR SEGMENT TASKS«, t00=0x002d, t01=0x0180}
0x047e8…047f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0014}
0x047f2…0481e Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x002e, t01=0x001e}
0x0481e…04840 Head {h00=0x001e, h01=0x0050, text=» RF(Z) BTCT20 NOT PRESENT!«, t00=0x002e, t01=0x004a}
0x04840…04872 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR EXTENT TDB «, t00=0x002e, t01=0x006c}
0x04872…048a6 Head {h00=0x0030, h01=0x0050, text=»BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS «, t00=0x002e, t01=0x009e}
0x048a6…048c4 Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT05 NO MORE!«, t00=0x002e, t01=0x00d2}
0x048c4…048f0 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002e, t01=0x00f0}
0x048f0…04914 Head {h00=0x0020, h01=0x0050, text=»BTCT04 ADK A1,2 NEXT TASK ID«, t00=0x002e, t01=0x011c}
0x04914…04944 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002e, t01=0x0140}
0x04944…04962 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT02 NO MORE!«, t00=0x002e, t01=0x0170}
0x04962…04982 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x002e, t01=0x018e}
0x04982…049ae Head {h00=0x0028, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY IN TCTAB «, t00=0x002f, t01=0x001e}
0x049ae…049c0 Head {h00=0x000e, h01=0x0050, text=» RB BTCT04«, t00=0x002f, t01=0x004a}
0x049c0…049f8 Head {h00=0x0034, h01=0x0050, text=»BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB«, t00=0x002f, t01=0x005c}
0x049f8…04a3a Head {h00=0x003e, h01=0x0050, text=»BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x002f, t01=0x0094}
0x04a3a…04a58 Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT20 NO MORE!«, t00=0x002f, t01=0x00d6}
0x04a58…04a84 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002f, t01=0x00f4}
0x04a84…04aa8 Head {h00=0x0020, h01=0x0050, text=»BTCT08 ADK A1,2 NEXT TASK ID«, t00=0x002f, t01=0x0120}
0x04aa8…04ad8 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002f, t01=0x0144}
0x04ad8…04af6 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT06 NO MORE «, t00=0x002f, t01=0x0174}
0x04af6…04b16 (48, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0030, t01=0x0004}
0x04b16…04b3e Head {h00=0x0024, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY TCTAB«, t00=0x0030, t01=0x0024}
0x04b3e…04b50 Head {h00=0x000e, h01=0x0050, text=» RB BTCT08«, t00=0x0030, t01=0x004c}
0x04b50…04b5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x005e}
0x04b5c…04b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x006a}
0x04b6a…04b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x04b74…04ba6 Head {h00=0x002e, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR USER TASKS«, t00=0x0030, t01=0x0082}
0x04ba6…04bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b4}
0x04bb0…04bc4 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x0030, t01=0x00be}
0x04bc4…04bfe Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY«, t00=0x0030, t01=0x00d2}
0x04bfe…04c2e Head {h00=0x002c, h01=0x0050, text=» LD A7,SYSLOD GET NUMBER OF APPLICATIONS«, t00=0x0030, t01=0x010c}
0x04c2e…04c68 Head {h00=0x0036, h01=0x0050, text=» LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK «, t00=0x0030, t01=0x013c}
0x04c68…04c92 Head {h00=0x0026, h01=0x0050, text=»BTCT30 SUK A7,1 MORE APPLICATIONS?«, t00=0x0030, t01=0x0176}
0x04c92…04cac Head {h00=0x0016, h01=0x0050, text=» RF(N) BTCT70 NO! «, t00=0x0031, t01=0x0010}
0x04cac…04ce6 Head {h00=0x0036, h01=0x0050, text=» LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA «, t00=0x0031, t01=0x002a}
0x04ce6…04d14 Head {h00=0x002a, h01=0x0050, text=» AD A11,STKCOM+CONSTA RELOCATE POINTER«, t00=0x0031, t01=0x0064}
0x04d14…04d4a Head {h00=0x0032, h01=0x0050, text=» ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY «, t00=0x0031, t01=0x0092}
0x04d4a…04d6c Head {h00=0x001e, h01=0x0050, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x0031, t01=0x00c8}
0x04d6c…04d98 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0031, t01=0x00ea}
0x04d98…04db2 Head {h00=0x0016, h01=0x0050, text=» RF(E) BTCT35 YES «, t00=0x0031, t01=0x0116}
0x04db2…04dd4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0031, t01=0x0130}
0x04dd4…04dec Head {h00=0x0014, h01=0x0050, text=» CALL ERROR HALT«, t00=0x0031, t01=0x0152}
0x04dec…04dfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x016a}
0x04dfa…04e0e Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x0031, t01=0x0178}
0x04e0e…04e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018c}
0x04e18…04e4c Head {h00=0x0030, h01=0x0050, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x0032, t01=0x0008}
0x04e4c…04e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x04e56…04e6a Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0032, t01=0x0046}
0x04e6a…04e92 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0032, t01=0x005a}
0x04e92…04ea6 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0032, t01=0x0082}
0x04ea6…04ed8 Head {h00=0x002e, h01=0x0050, text=» ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0032, t01=0x0096}
0x04ed8…04f04 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0032, t01=0x00c8}
0x04f04…04f1e Head {h00=0x0016, h01=0x0050, text=» RB(P) BTCT50 YES «, t00=0x0032, t01=0x00f4}
0x04f1e…04f46 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0032, t01=0x010e}
0x04f46…04f72 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0032, t01=0x0136}
0x04f72…04f8c Head {h00=0x0016, h01=0x0050, text=» RB(E) BTCT40 YES «, t00=0x0032, t01=0x0162}
0x04f8c…04fa0 Head {h00=0x0010, h01=0x0050, text=»BTCT60 EQU *«, t00=0x0032, t01=0x017c}
0x04fa0…04fd0 Head {h00=0x002c, h01=0x0050, text=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK «, t00=0x0032, t01=0x0190}
0x04fd0…04fe2 Head {h00=0x000e, h01=0x0050, text=» RB BTCT30«, t00=0x0033, t01=0x0030}
0x04fe2…04fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0042}
0x04fec…05024 Head {h00=0x0034, h01=0x0050, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0033, t01=0x004c}
0x05024…0502e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0084}
0x0502e…05062 Head {h00=0x0030, h01=0x0050, text=»BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0033, t01=0x008e}
0x05062…05088 Head {h00=0x0022, h01=0x0050, text=» SU A12,SCTTCT COMPUTE LENGTH «, t00=0x0033, t01=0x00c2}
0x05088…050a6 Head {h00=0x001a, h01=0x0050, text=» ST* A12,SCTTCT STORE «, t00=0x0033, t01=0x00e8}
0x050a6…050b6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0106}
0x050b6…050c8 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0033, t01=0x0116}
0x050c8…050d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0128}
0x050d6…05114 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0033, t01=0x0136}
0x05114…05152 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0174}
0x05152…05190 Head {h00=0x003a, h01=0x0050, text=»* RESTCT - RESERVE ENTRY IN TCTAB * «, t00=0x0034, t01=0x0022}
0x05190…051ce Head {h00=0x003a, h01=0x0050, text=»* =============================== * «, t00=0x0034, t01=0x0060}
0x051ce…0520c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x009e}
0x0520c…0524a Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: B:TCT * «, t00=0x0034, t01=0x00dc}
0x0524a…05288 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x011a}
0x05288…052c6 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A2 - CURRENT TASK ID * «, t00=0x0034, t01=0x0158}
0x052c6…05304 Head {h00=0x003a, h01=0x0050, text=»* A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0035, t01=0x0008}
0x05304…05342 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0046}
0x05342…05380 Head {h00=0x003a, h01=0x0050, text=»* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0035, t01=0x0084}
0x05380…053be Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00c2}
0x053be…053fc Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A3 * «, t00=0x0035, t01=0x0100}
0x053fc…0543a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x013e}
0x0543a…05478 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0035, t01=0x017c}
0x05478…054b6 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x002a}
0x054b6…054f4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0036, t01=0x0068}
0x054f4…05508 Head {h00=0x0010, h01=0x0050, text=»RESTCT EQU *«, t00=0x0036, t01=0x00a6}
0x05508…0552c Head {h00=0x0020, h01=0x0050, text=» LDR A3,A12 GET END OF TCTAB«, t00=0x0036, t01=0x00ba}
0x0552c…0554e Head {h00=0x001e, h01=0x0050, text=»REST10 SUK A3,2 NEXT ENTRY«, t00=0x0036, t01=0x00de}
0x0554e…05578 Head {h00=0x0026, h01=0x0050, text=» CW A3,SCTTCT ALL ENTRIES CHECKED?«, t00=0x0036, t01=0x0100}
0x05578…05596 Head {h00=0x001a, h01=0x0050, text=» RF(NE) REST30 NOT YET«, t00=0x0036, t01=0x012a}
0x05596…055c0 Head {h00=0x0026, h01=0x0050, text=» STR A2,A12 STORE TASK ID IN TCTAB«, t00=0x0036, t01=0x0148}
0x055c0…055ee Head {h00=0x002a, h01=0x0050, text=» ADKL A12,2 NEXT FREEE ENTRY IN TCTAB «, t00=0x0036, t01=0x0172}
0x055ee…0560c Head {h00=0x001a, h01=0x0050, text=»REST20 RTN A14 RETURN «, t00=0x0037, t01=0x0010}
0x0560c…0563c Head {h00=0x002c, h01=0x0050, text=»REST30 CWR* A2,A3 CHECK IF SAME TASK ID «, t00=0x0037, t01=0x002e}
0x0563c…05660 Head {h00=0x0020, h01=0x0050, text=» RB(NE) REST10 NOT THE SAME «, t00=0x0037, t01=0x005e}
0x05660…05686 Head {h00=0x0022, h01=0x0050, text=» RB REST20 COINCIDENCE: RETURN«, t00=0x0037, t01=0x0082}
0x05686…05692 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00a8}
0x05692…056a4 Head {h00=0x000e, h01=0x0050, text=» IFF FM=0 «, t00=0x0037, t01=0x00b4}
0x056a4…056b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00c6}
0x056b2…056ee Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0037, t01=0x00d4}
0x056ee…0572a Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0037, t01=0x0110}
0x0572a…05766 Head {h00=0x0038, h01=0x0050, text=»* B:FWT - BUILD FILE WORK TABLE * «, t00=0x0037, t01=0x014c}
0x05766…057a2 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x0037, t01=0x0188}
0x057a2…057de Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x0034}
0x057de…0581a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0038, t01=0x0070}
0x0581a…05856 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x00ac}
0x05856…05892 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0038, t01=0x00e8}
0x05892…058ce Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x0124}
0x058ce…0590a Head {h00=0x0038, h01=0x0050, text=»* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * «, t00=0x0038, t01=0x0160}
0x0590a…05946 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - NUMBER OF GENERAL FM-FILES * «, t00=0x0039, t01=0x000c}
0x05946…05982 Head {h00=0x0038, h01=0x0050, text=»* SCTFWL - FILE WORK TABLE LENGTH IN * «, t00=0x0039, t01=0x0048}
0x05982…059be Head {h00=0x0038, h01=0x0050, text=»* BYTES * «, t00=0x0039, t01=0x0084}
0x059be…059fa Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00c0}
0x059fa…05a36 Head {h00=0x0038, h01=0x0050, text=»* EXIT: SCTFWT - ADDRESS TO FIRST FWT * «, t00=0x0039, t01=0x00fc}
0x05a36…05a72 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - TOTAL NUMBER OF FM-FILES * «, t00=0x0039, t01=0x0138}
0x05a72…05aae Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0174}
0x05aae…05aea Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x003a, t01=0x0020}
0x05aea…05b26 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x005c}
0x05b26…05b62 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: ERROR,MULT * «, t00=0x003a, t01=0x0098}
0x05b62…05b9e Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x00d4}
0x05b9e…05bda Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x003a, t01=0x0110}
0x05bda…05c16 Head {h00=0x0038, h01=0x0050, text=»* THIS SUBROUTINE RESERVES MEMORY AREA FOR * «, t00=0x003a, t01=0x014c}
0x05c16…05c52 Head {h00=0x0038, h01=0x0050, text=»* FILE WORK TABLES. * «, t00=0x003a, t01=0x0188}
0x05c52…05c8e Head {h00=0x0038, h01=0x0050, text=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * «, t00=0x003b, t01=0x0034}
0x05c8e…05cca Head {h00=0x0038, h01=0x0050, text=»* FORMULA: A=L*(G+N*T) * «, t00=0x003b, t01=0x0070}
0x05cca…05d06 Head {h00=0x0038, h01=0x0050, text=»* WHERE A=AREA SIZE IN BYTES * «, t00=0x003b, t01=0x00ac}
0x05d06…05d42 Head {h00=0x0038, h01=0x0050, text=»* L= FWT LENGTH IN BYTES * «, t00=0x003b, t01=0x00e8}
0x05d42…05d7e Head {h00=0x0038, h01=0x0050, text=»* G=NUMBER OF GENERAL FM-FILES * «, t00=0x003b, t01=0x0124}
0x05d7e…05dba Head {h00=0x0038, h01=0x0050, text=»* T=NUMBER OF FM-FILES PER TASK * «, t00=0x003b, t01=0x0160}
0x05dba…05df6 Head {h00=0x0038, h01=0x0050, text=»* N=NUMBER OF USER TASKS * «, t00=0x003c, t01=0x000c}
0x05df6…05e32 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0048}
0x05e32…05e6e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x003c, t01=0x0084}
0x05e6e…05e7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00c0}
0x05e7c…05e90 Head {h00=0x0010, h01=0x0050, text=»B:FWT EQU * «, t00=0x003c, t01=0x00ce}
0x05e90…05eba Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x003c, t01=0x00e2}
0x05eba…05ee4 Head {h00=0x0026, h01=0x0050, text=» AD A2,SCTTCT COMPUTE END OF TCTAB«, t00=0x003c, t01=0x010c}
0x05ee4…05f14 Head {h00=0x002c, h01=0x0050, text=» SU A2,STKEND+CUTENT LENGTH OF USER PART«, t00=0x003c, t01=0x0136}
0x05f14…05f3a Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 NUMBER OF USER TASKS«, t00=0x003c, t01=0x0166}
0x05f3a…05f70 Head {h00=0x0032, h01=0x0050, text=» LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK «, t00=0x003c, t01=0x018c}
0x05f70…05f8c Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003d, t01=0x0032}
0x05f8c…05fc0 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES«, t00=0x003d, t01=0x004e}
0x05fc0…05ff4 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES«, t00=0x003d, t01=0x0082}
0x05ff4…06024 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTFWL GET FILE WORK TABLE LENGTH«, t00=0x003d, t01=0x00b6}
0x06024…06040 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003d, t01=0x00e6}
0x06040…06070 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 NUMBER OF WORDS TO BE RESERVED«, t00=0x003d, t01=0x0102}
0x06070…06094 Head {h00=0x0020, h01=0x0050, text=» ADK A3,0 ANY FWT:S AT ALL? «, t00=0x003d, t01=0x0132}
0x06094…060ac Head {h00=0x0014, h01=0x0050, text=» RF(Z) FWT70 NO!«, t00=0x003d, t01=0x0156}
0x060ac…060e4 Head {h00=0x0034, h01=0x0050, text=» ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS«, t00=0x003d, t01=0x016e}
0x060e4…06110 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x003e, t01=0x0016}
0x06110…06140 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTFWT STORE ADDRESS TO FIRST FWT«, t00=0x003e, t01=0x0042}
0x06140…06174 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+FWTSTA SAVE START OF FWT AREA «, t00=0x003e, t01=0x0072}
0x06174…061a8 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x003e, t01=0x00a6}
0x061a8…061da Head {h00=0x002e, h01=0x0050, text=»FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x003e, t01=0x00da}
0x061da…061f8 Head {h00=0x001a, h01=0x0050, text=» RF(NE) FWT60 NOT YET!«, t00=0x003e, t01=0x010c}
0x061f8…06226 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003e, t01=0x012a}
0x06226…0623a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x0158}
0x0623a…0625e Head {h00=0x0020, h01=0x0050, text=»FWT60 CMR A2 CLEAR FWT AREA «, t00=0x003e, t01=0x016c}
0x0625e…06284 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 RESERVE ANOTHER WORD«, t00=0x003e, t01=0x0190}
0x06284…062ac Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT WORD COUNTER«, t00=0x003f, t01=0x0026}
0x062ac…062da Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW«, t00=0x003f, t01=0x004e}
0x062da…0630a Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTSFA UPDATE START OF FREE AREA «, t00=0x003f, t01=0x007c}
0x0630a…0631c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x003f, t01=0x00ac}
0x0631c…06350 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. «, t00=0x003f, t01=0x00be}
0x06350…06366 Head {h00=0x0012, h01=0x0050, text=»FWT70 RTN A14 «, t00=0x003f, t01=0x00f2}
0x06366…06372 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0108}
0x06372…06380 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0114}
0x06380…063ae Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x003f, t01=0x0122}
0x063ae…063dc Head {h00=0x002a, h01=0x0050, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x003f, t01=0x0150}
0x063dc…0640a Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x003f, t01=0x017e}
0x0640a…06414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001c}
0x06414…06440 Head {h00=0x0028, h01=0x0050, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x0040, t01=0x0026}
0x06440…0646c Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x0040, t01=0x0052}
0x0646c…06494 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x0040, t01=0x007e}
0x06494…064bc Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x0040, t01=0x00a6}
0x064bc…064c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ce}
0x064c6…064d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d8}
0x064d0…064f0 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLOD«, t00=0x0040, t01=0x00e2}
0x064f0…064fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0102}
0x064fa…06528 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0040, t01=0x010c}
0x06528…06554 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x0040, t01=0x013a}
0x06554…0655e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0166}
0x0655e…06590 Head {h00=0x002e, h01=0x0050, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x0040, t01=0x0170}
0x06590…0659a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0012}
0x0659a…065c2 Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x0041, t01=0x001c}
0x065c2…065cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0044}
0x065cc…065ec Head {h00=0x001c, h01=0x0050, text=»* SUBROUTINES: BLKGEN «, t00=0x0041, t01=0x004e}
0x065ec…065f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006e}
0x065f6…06604 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0078}
0x06604…06618 Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x0041, t01=0x0086}
0x06618…0662a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0041, t01=0x009a}
0x0662a…06654 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0041, t01=0x00ac}
0x06654…06686 Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x0041, t01=0x00d6}
0x06686…06690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0108}
0x06690…066b8 Head {h00=0x0024, h01=0x0050, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x0041, t01=0x0112}
0x066b8…066c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x013a}
0x066c2…066ee Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0041, t01=0x0144}
0x066ee…066f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0170}
0x066f8…0672c Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x0041, t01=0x017a}
0x0672c…06736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x001e}
0x06736…0674c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x0042, t01=0x0028}
0x0674c…06780 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0042, t01=0x003e}
0x06780…06794 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x0042, t01=0x0072}
0x06794…067b2 Head {h00=0x001a, h01=0x0050, text=» SUK A7,2 MOORE TASKS?«, t00=0x0042, t01=0x0086}
0x067b2…067cc Head {h00=0x0016, h01=0x0050, text=» RF(Z) MON:20 NO «, t00=0x0042, t01=0x00a4}
0x067cc…067e0 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0042, t01=0x00be}
0x067e0…067f2 Head {h00=0x000e, h01=0x0050, text=» RB MON:10«, t00=0x0042, t01=0x00d2}
0x067f2…06806 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x0042, t01=0x00e4}
0x06806…06810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00f8}
0x06810…06838 Head {h00=0x0024, h01=0x0050, text=»* GENERATE EXTRA MONITOR BLOCKS«, t00=0x0042, t01=0x0102}
0x06838…06842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012a}
0x06842…06854 Head {h00=0x000e, h01=0x0050, text=» LDK A2,19«, t00=0x0042, t01=0x0134}
0x06854…0686a Head {h00=0x0012, h01=0x0050, text=» ADK A2,NOEXMB«, t00=0x0042, t01=0x0146}
0x0686a…06880 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0042, t01=0x015c}
0x06880…06896 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0042, t01=0x0172}
0x06896…068aa Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0042, t01=0x0188}
0x068aa…068b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x000c}
0x068b4…068d2 Head {h00=0x001a, h01=0x0050, text=»* GENERATE END BLOCK «, t00=0x0043, t01=0x0016}
0x068d2…068dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0034}
0x068dc…068f0 Head {h00=0x0010, h01=0x0050, text=» STR A1,A12 «, t00=0x0043, t01=0x003e}
0x068f0…06904 Head {h00=0x0010, h01=0x0050, text=» ST A1,2,A12«, t00=0x0043, t01=0x0052}
0x06904…06918 Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A12«, t00=0x0043, t01=0x0066}
0x06918…06922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007a}
0x06922…0696c Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A«, t00=0x0043, t01=0x0084}
0x0696c…069a0 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x0043, t01=0x00ce}
0x069a0…069aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0102}
0x069aa…069d6 Head {h00=0x0028, h01=0x0050, text=» LD A1,STKCOM+BUFSIZ GET BUFFER SIZE«, t00=0x0043, t01=0x010c}
0x069d6…069ec Head {h00=0x0012, h01=0x0050, text=» CWK A1,4 >4? «, t00=0x0043, t01=0x0138}
0x069ec…06a14 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x0043, t01=0x014e}
0x06a14…06a32 Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 BUFFER SIZE«, t00=0x0043, t01=0x0176}
0x06a32…06a66 (68, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE «, t00=0x0044, t01=0x0004}
0x06a66…06a7a Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0044, t01=0x0038}
0x06a7a…06aae Head {h00=0x0030, h01=0x0050, text=» ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS «, t00=0x0044, t01=0x004c}
0x06aae…06ac2 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x0044, t01=0x0080}
0x06ac2…06ad6 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,6 «, t00=0x0044, t01=0x0094}
0x06ad6…06ade Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x00a8}
0x06ade…06b0c Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0044, t01=0x00b0}
0x06b0c…06b1c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0044, t01=0x00de}
0x06b1c…06b2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00ee}
0x06b2a…06b58 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x00fc}
0x06b58…06b86 Head {h00=0x002a, h01=0x0050, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x0044, t01=0x012a}
0x06b86…06bb4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x0158}
0x06bb4…06bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0186}
0x06bbe…06be0 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: MONBLK «, t00=0x0044, t01=0x0190}
0x06be0…06bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0022}
0x06bea…06c02 Head {h00=0x0014, h01=0x0050, text=»* ENTRY: A1=0 «, t00=0x0045, t01=0x002c}
0x06c02…06c3a Head {h00=0x0034, h01=0x0050, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0045, t01=0x0044}
0x06c3a…06c62 Head {h00=0x0024, h01=0x0050, text=»* A12 - NEXT FREE ENTRY «, t00=0x0045, t01=0x007c}
0x06c62…06c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a4}
0x06c6c…06c82 Head {h00=0x0012, h01=0x0050, text=»* EXIT: A1=0«, t00=0x0045, t01=0x00ae}
0x06c82…06ca8 Head {h00=0x0022, h01=0x0050, text=»* A12 - NEXT FREE ENTRY«, t00=0x0045, t01=0x00c4}
0x06ca8…06cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ea}
0x06cb2…06cd2 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTES: A3,A4 «, t00=0x0045, t01=0x00f4}
0x06cd2…06cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0114}
0x06cdc…06cf4 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0045, t01=0x011e}
0x06cf4…06cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x06cfe…06d32 Head {h00=0x0030, h01=0x0050, text=»* MONITOR BLOCK LAYOUT«, t00=0x0045, t01=0x0140}
0x06d32…06d66 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0045, t01=0x0174}
0x06d66…06d9a Head {h00=0x0030, h01=0x0050, text=»* I DATA *+6 I«, t00=0x0046, t01=0x0018}
0x06d9a…06dce Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0046, t01=0x004c}
0x06dce…06e02 Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0046, t01=0x0080}
0x06e02…06e36 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0046, t01=0x00b4}
0x06e36…06e6a Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0046, t01=0x00e8}
0x06e6a…06e9e Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0046, t01=0x011c}
0x06e9e…06ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0150}
0x06ea8…06eb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x015a}
0x06eb6…06eca Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0046, t01=0x0168}
0x06eca…06ede Head {h00=0x0010, h01=0x0050, text=» LDR A3,A2 «, t00=0x0046, t01=0x017c}
0x06ede…06ef2 Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0046, t01=0x0190}
0x06ef2…06f06 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BLKEX«, t00=0x0047, t01=0x0014}
0x06f06…06f2e Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF WORDS/BLOCK «, t00=0x0047, t01=0x0028}
0x06f2e…06f62 Head {h00=0x0030, h01=0x0050, text=»BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x0047, t01=0x0050}
0x06f62…06f82 Head {h00=0x001c, h01=0x0050, text=» RF(NE) BLK:30 NOT YET! «, t00=0x0047, t01=0x0084}
0x06f82…06fb0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0047, t01=0x00a4}
0x06fb0…06fc4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x00d2}
0x06fc4…06ff2 Head {h00=0x002a, h01=0x0050, text=»BLK:30 ADKL A12,2 RESERVE ANOTHER WORD«, t00=0x0047, t01=0x00e6}
0x06ff2…07016 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE WORDS WANTED?«, t00=0x0047, t01=0x0114}
0x07016…07030 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BLK:20 YES«, t00=0x0047, t01=0x0138}
0x07030…07046 Head {h00=0x0012, h01=0x0050, text=» ST A12,-6,A12«, t00=0x0047, t01=0x0152}
0x07046…0705c Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0047, t01=0x0168}
0x0705c…07072 Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A12 «, t00=0x0047, t01=0x017e}
0x07072…07084 (72, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0048, t01=0x0004}
0x07084…07096 Head {h00=0x000e, h01=0x0050, text=» RB BLK:10«, t00=0x0048, t01=0x0016}
0x07096…070aa Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0048, t01=0x0028}
0x070aa…070ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x003c}
0x070ba…070cc Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0048, t01=0x004c}
0x070cc…070da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x005e}
0x070da…07126 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x006c}
0x07126…07172 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x00b8}
0x07172…071be Head {h00=0x0048, h01=0x0050, text=»* B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * «, t00=0x0048, t01=0x0104}
0x071be…0720a Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0048, t01=0x0150}
0x0720a…07256 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x000c}
0x07256…072a2 Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x0049, t01=0x0058}
0x072a2…072ee Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00a4}
0x072ee…0733a Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0049, t01=0x00f0}
0x0733a…07386 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x013c}
0x07386…073d2 Head {h00=0x0048, h01=0x0050, text=»* EXIT: * «, t00=0x0049, t01=0x0188}
0x073d2…0741e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0044}
0x0741e…0746a Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A4 * «, t00=0x004a, t01=0x0090}
0x0746a…074b6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00dc}
0x074b6…07502 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: MX:TDB,MXTTAB * «, t00=0x004a, t01=0x0128}
0x07502…0754e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0174}
0x0754e…0759a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004b, t01=0x0030}
0x0759a…075ae Head {h00=0x0010, h01=0x0050, text=»B:MXTT EQU *«, t00=0x004b, t01=0x007c}
0x075ae…075da Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x004b, t01=0x0090}
0x075da…075fa Head {h00=0x001c, h01=0x0050, text=» RF(Z) BMX99 NOT PRESENT«, t00=0x004b, t01=0x00bc}
0x075fa…0762e Head {h00=0x0030, h01=0x0050, text=» LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK «, t00=0x004b, t01=0x00dc}
0x0762e…0764e Head {h00=0x001c, h01=0x0050, text=» ST* A4,SCTTCT IN TCTAB «, t00=0x004b, t01=0x0110}
0x0764e…07680 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB FIND FIRST MONITOR EXTENT TDB«, t00=0x004b, t01=0x0130}
0x07680…076b8 Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE«, t00=0x004b, t01=0x0162}
0x076b8…076de Head {h00=0x0022, h01=0x0050, text=» RF(NZ) BMX05 ALREADY DEFINED «, t00=0x004c, t01=0x000a}
0x076de…07706 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTSFA START OF FREE AREA«, t00=0x004c, t01=0x0030}
0x07706…0773a Head {h00=0x0030, h01=0x0050, text=» ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE«, t00=0x004c, t01=0x0058}
0x0773a…07772 Head {h00=0x0034, h01=0x0050, text=» LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE «, t00=0x004c, t01=0x008c}
0x07772…0779c Head {h00=0x0026, h01=0x0050, text=» ST* A4,SCTMOX STORE IN FIRST WORD«, t00=0x004c, t01=0x00c4}
0x0779c…077c4 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 RESET TASK ID COUNTER «, t00=0x004c, t01=0x00ee}
0x077c4…077ea Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 GET POINTER TO TDB «, t00=0x004c, t01=0x0116}
0x077ea…07812 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A7 GET NUMBER OF EXTENTS«, t00=0x004c, t01=0x013c}
0x07812…07824 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004c, t01=0x0164}
0x07824…07848 Head {h00=0x0020, h01=0x0050, text=»BMX01 SUK A3,1 MORE EXTENTS?«, t00=0x004c, t01=0x0176}
0x07848…07860 Head {h00=0x0014, h01=0x0050, text=» RF(N) BMX03 NO «, t00=0x004d, t01=0x000a}
0x07860…0788e Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 ADDRESS NUMBER OF TASK ID:S «, t00=0x004d, t01=0x0022}
0x0788e…078ba Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A2 GET NUMBER OF TASK ID:S «, t00=0x004d, t01=0x0050}
0x078ba…078e6 Head {h00=0x0028, h01=0x0050, text=» ADR* A4,A2 ADD NUMBER OF TASK ID:S «, t00=0x004d, t01=0x007c}
0x078e6…0790c Head {h00=0x0022, h01=0x0050, text=»BMX02 SUK A6,1 MORE TASK ID:S?«, t00=0x004d, t01=0x00a8}
0x0790c…07924 Head {h00=0x0014, h01=0x0050, text=» RB(N) BMX01 NO «, t00=0x004d, t01=0x00ce}
0x07924…0794a Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADDRESS NEXT TASK ID«, t00=0x004d, t01=0x00e6}
0x0794a…0795c Head {h00=0x000e, h01=0x0050, text=» RB BMX02 «, t00=0x004d, t01=0x010c}
0x0795c…07982 Head {h00=0x0022, h01=0x0050, text=»BMX03 SLL A4,2 INCLUDE LENGTH «, t00=0x004d, t01=0x011e}
0x07982…079ba Head {h00=0x0034, h01=0x0050, text=» ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE «, t00=0x004d, t01=0x0144}
0x079ba…079ea Head {h00=0x002c, h01=0x0050, text=» AD A4,SCTSFA END OF START-ADDRESS TABLE«, t00=0x004d, t01=0x017c}
0x079ea…07a1a Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTSFA UPDATE START OF FREE AREA «, t00=0x004e, t01=0x001c}
0x07a1a…07a3c Head {h00=0x001e, h01=0x0050, text=» LDR A11,A4 GET TABLE END «, t00=0x004e, t01=0x004c}
0x07a3c…07a62 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET CURRENT LOCATION«, t00=0x004e, t01=0x006e}
0x07a62…07a88 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x004e, t01=0x0094}
0x07a88…07aa2 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMXS05 OK «, t00=0x004e, t01=0x00ba}
0x07aa2…07ad0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x004e, t01=0x00d4}
0x07ad0…07ae4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004e, t01=0x0102}
0x07ae4…07b1e Head {h00=0x0036, h01=0x0050, text=»BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x004e, t01=0x0116}
0x07b1e…07b34 Head {h00=0x0012, h01=0x0050, text=»BMX05 SUK A1,2«, t00=0x004e, t01=0x0150}
0x07b34…07b66 Head {h00=0x002e, h01=0x0050, text=»BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS«, t00=0x004e, t01=0x0166}
0x07b66…07b82 Head {h00=0x0018, h01=0x0050, text=» RF(N) BMX99 NO MORE«, t00=0x004f, t01=0x0008}
0x07b82…07bb0 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x004f, t01=0x0024}
0x07bb0…07bea Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK«, t00=0x004f, t01=0x0052}
0x07bea…07c22 Head {h00=0x0034, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK «, t00=0x004f, t01=0x008c}
0x07c22…07c52 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x004f, t01=0x00c4}
0x07c52…07c78 Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 NUMBER OF TASK ID:S «, t00=0x004f, t01=0x00f4}
0x07c78…07ca4 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x004f, t01=0x011a}
0x07ca4…07cd8 Head {h00=0x0030, h01=0x0050, text=»BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S«, t00=0x004f, t01=0x0146}
0x07cd8…07cf4 Head {h00=0x0018, h01=0x0050, text=» RB(N) BMX10 NO MORE«, t00=0x004f, t01=0x017a}
0x07cf4…07d12 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT TASK ID«, t00=0x0050, t01=0x0008}
0x07d12…07d26 Head {h00=0x0010, h01=0x0050, text=» CALL MXTTAB«, t00=0x0050, t01=0x0026}
0x07d26…07d38 Head {h00=0x000e, h01=0x0050, text=» RB BMX20 «, t00=0x0050, t01=0x003a}
0x07d38…07d54 Head {h00=0x0018, h01=0x0050, text=»BMX99 RTN A14 RETURN«, t00=0x0050, t01=0x004c}
0x07d54…07d62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0068}
0x07d62…07dae Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0050, t01=0x0076}
0x07dae…07dfa Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0050, t01=0x00c2}
0x07dfa…07e46 Head {h00=0x0048, h01=0x0050, text=»* MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK *«, t00=0x0050, t01=0x010e}
0x07e46…07e92 Head {h00=0x0048, h01=0x0050, text=»* ============================================== *«, t00=0x0050, t01=0x015a}
0x07e92…07ede Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x0016}
0x07ede…07f2a Head {h00=0x0048, h01=0x0050, text=»* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB *«, t00=0x0051, t01=0x0062}
0x07f2a…07f76 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0051, t01=0x00ae}
0x07f76…07fc2 Head {h00=0x0048, h01=0x0050, text=»* A12 - POINTER TO START OF FREE AREA *«, t00=0x0051, t01=0x00fa}
0x07fc2…0800e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x0146}
0x0800e…0805a (82, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* EXIT: A1 - POINTER TO TASK ID IN MXSTAB *«, t00=0x0052, t01=0x0004}
0x0805a…080a6 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0052, t01=0x0050}
0x080a6…080f2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x009c}
0x080f2…0813e Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTER: A2 *«, t00=0x0052, t01=0x00e8}
0x0813e…0818a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0134}
0x0818a…081d6 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: IMXTT,STRMOX,INBIMA *«, t00=0x0052, t01=0x0180}
0x081d6…08222 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x003c}
0x08222…0826e Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0053, t01=0x0088}
0x0826e…0827c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00d4}
0x0827c…08290 Head {h00=0x0010, h01=0x0050, text=»MXTTAB EQU *«, t00=0x0053, t01=0x00e2}
0x08290…082c0 Head {h00=0x002c, h01=0x0050, text=» MSR 4,A15 SAVE REGISTER A1-A4 ON STACK «, t00=0x0053, t01=0x00f6}
0x082c0…082ee Head {h00=0x002a, h01=0x0050, text=» CALL BMXSTT BUILD MONITOR EXTENT TTAB«, t00=0x0053, t01=0x0126}
0x082ee…08310 Head {h00=0x001e, h01=0x0050, text=» CALL IMXTT INIT MMU TABLE«, t00=0x0053, t01=0x0154}
0x08310…08330 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0053, t01=0x0176}
0x08330…08354 Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0054, t01=0x0008}
0x08354…0837e Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:STA,A5 GET START ADDRESS«, t00=0x0054, t01=0x002c}
0x0837e…083b6 Head {h00=0x0034, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6«, t00=0x0054, t01=0x0056}
0x083b6…083e6 Head {h00=0x002c, h01=0x0050, text=» ST A2,APLSTA,A3 STORE START ADDRESS =6 «, t00=0x0054, t01=0x008e}
0x083e6…0840a Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0054, t01=0x00be}
0x0840a…08430 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A5 GET EXTENT ADDRESS«, t00=0x0054, t01=0x00e2}
0x08430…08456 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/3FF GET DISPLACEMENT«, t00=0x0054, t01=0x0108}
0x08456…08478 Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 MAKE IT 12 BITS «, t00=0x0054, t01=0x012e}
0x08478…084b4 Head {h00=0x0038, h01=0x0050, text=» ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS«, t00=0x0054, t01=0x0150}
0x084b4…084c6 Head {h00=0x000e, h01=0x0050, text=» ADK A2,12«, t00=0x0054, t01=0x018c}
0x084c6…084fa Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA «, t00=0x0055, t01=0x000e}
0x084fa…08538 Head {h00=0x003a, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK «, t00=0x0055, t01=0x0042}
0x08538…08574 Head {h00=0x0038, h01=0x0050, text=» ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART «, t00=0x0055, t01=0x0080}
0x08574…085a6 Head {h00=0x002e, h01=0x0050, text=» ST A2,APLREL,A3 STORE RELOCATION BASE =6 «, t00=0x0055, t01=0x00bc}
0x085a6…085d4 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TTB:MT DISPL. TO COMMON PART «, t00=0x0055, t01=0x00ee}
0x085d4…0860a Head {h00=0x0032, h01=0x0050, text=» ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK«, t00=0x0055, t01=0x011c}
0x0860a…08646 Head {h00=0x0038, h01=0x0050, text=» ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS«, t00=0x0055, t01=0x0152}
0x08646…0866c Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0055, t01=0x018e}
0x0866c…08684 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/20 EMM?«, t00=0x0056, t01=0x0024}
0x08684…0869c Head {h00=0x0014, h01=0x0050, text=» RF(Z) MXTT20 NO«, t00=0x0056, t01=0x003c}
0x0869c…086c6 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:LEN,A5 GET EXTENT LENGTH«, t00=0x0056, t01=0x0054}
0x086c6…086e4 Head {h00=0x001a, h01=0x0050, text=» ST A2,MAPLEN,A13 SAVE«, t00=0x0056, t01=0x007e}
0x086e4…0870e Head {h00=0x0026, h01=0x0050, text=» ST A12,TTAB,A13 SAVE TTAB ADDRESS«, t00=0x0056, t01=0x009c}
0x0870e…08730 Head {h00=0x001e, h01=0x0050, text=» CALL INBIMA INIT BIP MAP «, t00=0x0056, t01=0x00c6}
0x08730…0875a Head {h00=0x0026, h01=0x0050, text=»MXTT20 MLR 4,A15 RESTORE REGISTERS«, t00=0x0056, t01=0x00e8}
0x0875a…08772 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0056, t01=0x0112}
0x08772…08780 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x012a}
0x08780…087b6 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x0138}
0x087b6…087ec Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0056, t01=0x016e}
0x087ec…08822 Head {h00=0x0032, h01=0x0050, text=»* STRMOX - STORE START ADDRRESS IN MOXTAB * «, t00=0x0057, t01=0x0014}
0x08822…08858 Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x0057, t01=0x004a}
0x08858…0888e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0080}
0x0888e…088c4 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: MXTTAB * «, t00=0x0057, t01=0x00b6}
0x088c4…088fa Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00ec}
0x088fa…08930 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A2 - VALUE TO STORE * «, t00=0x0057, t01=0x0122}
0x08930…08966 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0158}
0x08966…0899c Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x0057, t01=0x018e}
0x0899c…089d2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0034}
0x089d2…08a08 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0058, t01=0x006a}
0x08a08…08a3e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x00a0}
0x08a3e…08a74 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0058, t01=0x00d6}
0x08a74…08aaa Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x010c}
0x08aaa…08ae0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0058, t01=0x0142}
0x08ae0…08af4 Head {h00=0x0010, h01=0x0050, text=»STRMOX EQU *«, t00=0x0058, t01=0x0178}
0x08af4…08b1e Head {h00=0x0026, h01=0x0050, text=» LD* A3,SCTMOX GET CURRENT LENGTH «, t00=0x0058, t01=0x018c}
0x08b1e…08b4e Head {h00=0x002c, h01=0x0050, text=» AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY«, t00=0x0059, t01=0x0026}
0x08b4e…08b74 Head {h00=0x0022, h01=0x0050, text=» STR A2,A3 STORE START ADDRESS«, t00=0x0059, t01=0x0056}
0x08b74…08b98 Head {h00=0x0020, h01=0x0050, text=» IM* SCTMOX INCREMENT LENGTH«, t00=0x0059, t01=0x007c}
0x08b98…08bb2 Head {h00=0x0016, h01=0x0050, text=» IM* SCTMOX TWICE «, t00=0x0059, t01=0x00a0}
0x08bb2…08bca Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0059, t01=0x00ba}
0x08bca…08bd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00d2}
0x08bd8…08c14 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0059, t01=0x00e0}
0x08c14…08c50 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x0059, t01=0x011c}
0x08c50…08c8c Head {h00=0x0038, h01=0x0050, text=»* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK *«, t00=0x0059, t01=0x0158}
0x08c8c…08cc8 (90, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* ============================================== *«, t00=0x005a, t01=0x0004}
0x08cc8…08d04 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0040}
0x08d04…08d40 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: MXTTAB *«, t00=0x005a, t01=0x007c}
0x08d40…08d7c Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x00b8}
0x08d7c…08db8 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PHYSICAL ADDRESS *«, t00=0x005a, t01=0x00f4}
0x08db8…08df4 Head {h00=0x0038, h01=0x0050, text=»* A12 - TTAB ENTRY POINTER *«, t00=0x005a, t01=0x0130}
0x08df4…08e30 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x016c}
0x08e30…08e6c Head {h00=0x0038, h01=0x0050, text=»* EXIT: *«, t00=0x005b, t01=0x0018}
0x08e6c…08ea8 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0054}
0x08ea8…08ee4 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A4,A9,A11 *«, t00=0x005b, t01=0x0090}
0x08ee4…08f20 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x00cc}
0x08f20…08f5c Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CMPADR *«, t00=0x005b, t01=0x0108}
0x08f5c…08f98 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0144}
0x08f98…08fd4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005b, t01=0x0180}
0x08fd4…08fe2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x002c}
0x08fe2…08ff6 Head {h00=0x0010, h01=0x0050, text=»IMXTT EQU * «, t00=0x005c, t01=0x003a}
0x08ff6…09018 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A12 GET TTAB ENTRY«, t00=0x005c, t01=0x004e}
0x09018…09046 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,TTB:MT GET START OF MMU TABLE«, t00=0x005c, t01=0x0070}
0x09046…09078 Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT«, t00=0x005c, t01=0x009e}
0x09078…09090 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x005c, t01=0x00d0}
0x09090…090bc Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/FC00 PHYSICAL PAGE ADDRESS«, t00=0x005c, t01=0x00e8}
0x090bc…090de Head {h00=0x001e, h01=0x0050, text=» ANKL A4,/3FF DISPLACEMENT«, t00=0x005c, t01=0x0114}
0x090de…09100 Head {h00=0x001e, h01=0x0050, text=» SLL A4,2 MAKE IT 12 BITS «, t00=0x005c, t01=0x0136}
0x09100…0912a Head {h00=0x0026, h01=0x0050, text=» LDKL A9,/1000 PHYSICAL PAGE SIZE «, t00=0x005c, t01=0x0158}
0x0912a…09142 Head {h00=0x0014, h01=0x0050, text=» SUR A9,A4 SAVE «, t00=0x005c, t01=0x0182}
0x09142…0916e Head {h00=0x0028, h01=0x0050, text=» LD A11,MX:LEN,A5 GET EXTENT LENGTH «, t00=0x005d, t01=0x000a}
0x0916e…091a2 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x005d, t01=0x0036}
0x091a2…091ba Head {h00=0x0014, h01=0x0050, text=» RF(G) IMX10 NO!«, t00=0x005d, t01=0x006a}
0x091ba…091e4 Head {h00=0x0026, h01=0x0050, text=» XRR A11,A11 INDICATE SINGLE ENTRY«, t00=0x005d, t01=0x0082}
0x091e4…091f6 Head {h00=0x000e, h01=0x0050, text=» RF IMX20 «, t00=0x005d, t01=0x00ac}
0x091f6…09236 Head {h00=0x003c, h01=0x0050, text=»IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE«, t00=0x005d, t01=0x00be}
0x09236…09260 Head {h00=0x0026, h01=0x0050, text=»IMX20 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005d, t01=0x00fe}
0x09260…0928c Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005d, t01=0x0128}
0x0928c…092b6 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005d, t01=0x0154}
0x092b6…092dc Head {h00=0x0022, h01=0x0050, text=» ADKL A11,0 ONE ENTRY ENOUGTH?«, t00=0x005d, t01=0x017e}
0x092dc…092f6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IMX99 YES! «, t00=0x005e, t01=0x0014}
0x092f6…09312 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IMX30 <32KB «, t00=0x005e, t01=0x002e}
0x09312…0933a Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005e, t01=0x004a}
0x0933a…0934c Head {h00=0x000e, h01=0x0050, text=» RB IMX20 «, t00=0x005e, t01=0x0072}
0x0934c…09376 Head {h00=0x0026, h01=0x0050, text=»IMX30 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005e, t01=0x0084}
0x09376…093a2 Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005e, t01=0x00ae}
0x093a2…093cc Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005e, t01=0x00da}
0x093cc…093f4 Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005e, t01=0x0104}
0x093f4…09408 Head {h00=0x0010, h01=0x0050, text=» RB(P) IMX30«, t00=0x005e, t01=0x012c}
0x09408…09420 Head {h00=0x0014, h01=0x0050, text=»IMX99 EQU * =6 «, t00=0x005e, t01=0x0140}
0x09420…09446 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A12 GET TTAB ENTRY =6 «, t00=0x005e, t01=0x0158}
0x09446…09478 Head {h00=0x002e, h01=0x0050, text=» ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6«, t00=0x005e, t01=0x017e}
0x09478…09492 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/FC00 =6«, t00=0x005f, t01=0x0020}
0x09492…094aa Head {h00=0x0014, h01=0x0050, text=»IMX100 EQU * =6 «, t00=0x005f, t01=0x003a}
0x094aa…094da Head {h00=0x002c, h01=0x0050, text=» CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6«, t00=0x005f, t01=0x0052}
0x094da…094f6 Head {h00=0x0018, h01=0x0050, text=» RF(E) IMX110 NO! =6«, t00=0x005f, t01=0x0082}
0x094f6…0952a Head {h00=0x0030, h01=0x0050, text=» STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 «, t00=0x005f, t01=0x009e}
0x0952a…0954e Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 NEXT MMU-ENTRY =6 «, t00=0x005f, t01=0x00d2}
0x0954e…09564 Head {h00=0x0012, h01=0x0050, text=» RB IMX100 =6«, t00=0x005f, t01=0x00f6}
0x09564…0957c Head {h00=0x0014, h01=0x0050, text=»IMX110 EQU * =6«, t00=0x005f, t01=0x010c}
0x0957c…09590 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =6«, t00=0x005f, t01=0x0124}
0x09590…0959e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0138}
0x0959e…095de Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005f, t01=0x0146}
0x095de…0961e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x005f, t01=0x0186}
0x0961e…0965e Head {h00=0x003c, h01=0x0050, text=»* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS *«, t00=0x0060, t01=0x0036}
0x0965e…0969e Head {h00=0x003c, h01=0x0050, text=»* ================================================== *«, t00=0x0060, t01=0x0076}
0x0969e…096de Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0060, t01=0x00b6}
0x096de…0971e Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLDM *«, t00=0x0060, t01=0x00f6}
0x0971e…0975e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0060, t01=0x0136}
0x0975e…0979e Head {h00=0x003c, h01=0x0050, text=»* ENTRY: *«, t00=0x0060, t01=0x0176}
0x0979e…097de Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0026}
0x097de…0981e Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x0061, t01=0x0066}
0x0981e…0985e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x00a6}
0x0985e…0989e Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 *«, t00=0x0061, t01=0x00e6}
0x0989e…098de Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0126}
0x098de…0991e Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT *«, t00=0x0061, t01=0x0166}
0x0991e…0995e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0016}
0x0995e…0999e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0062, t01=0x0056}
0x0999e…099ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0096}
0x099ac…099c0 Head {h00=0x0010, h01=0x0050, text=»B:MSEG EQU *«, t00=0x0062, t01=0x00a4}
0x099c0…099f6 Head {h00=0x0032, h01=0x0050, text=» CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE «, t00=0x0062, t01=0x00b8}
0x099f6…09a2a Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0062, t01=0x00ee}
0x09a2a…09a5e Head {h00=0x0030, h01=0x0050, text=» LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS«, t00=0x0062, t01=0x0122}
0x09a5e…09a9c Head {h00=0x003a, h01=0x0050, text=» LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE«, t00=0x0062, t01=0x0156}
0x09a9c…09ad6 (99, 0, 400) Head {h00=0x0036, h01=0x0050, text=» CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK«, t00=0x0063, t01=0x0004}
0x09ad6…09af2 Head {h00=0x0018, h01=0x0050, text=» DEFINITION BLOCK «, t00=0x0063, t01=0x003e}
0x09af2…09b34 Head {h00=0x003e, h01=0x0050, text=»BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0063, t01=0x005a}
0x09b34…09b52 Head {h00=0x001a, h01=0x0050, text=» RF(N) BMSG99 NO MORE!«, t00=0x0063, t01=0x009c}
0x09b52…09b92 Head {h00=0x003c, h01=0x0050, text=» CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK«, t00=0x0063, t01=0x00ba}
0x09b92…09bc6 Head {h00=0x0030, h01=0x0050, text=» CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE«, t00=0x0063, t01=0x00fa}
0x09bc6…09c00 Head {h00=0x0036, h01=0x0050, text=» ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS «, t00=0x0063, t01=0x012e}
0x09c00…09c30 Head {h00=0x002c, h01=0x0050, text=» CALL BMSTAB BUILD MONITOR SEGMENT TABLE«, t00=0x0063, t01=0x0168}
0x09c30…09c62 Head {h00=0x002e, h01=0x0050, text=» LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB «, t00=0x0064, t01=0x0008}
0x09c62…09c86 Head {h00=0x0020, h01=0x0050, text=»BMSG20 ADK A1,2 NEXT TASK ID«, t00=0x0064, t01=0x003a}
0x09c86…09cb6 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0064, t01=0x005e}
0x09cb6…09cd4 Head {h00=0x001a, h01=0x0050, text=» RB(N) BMSG10 NO MORE!«, t00=0x0064, t01=0x008e}
0x09cd4…09d06 Head {h00=0x002e, h01=0x0050, text=» CALL CHKTAD CHECK IF TASK ALREADY DEFINED«, t00=0x0064, t01=0x00ac}
0x09d06…09d32 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) BMSG30 TASK ALREADY DEFINED!«, t00=0x0064, t01=0x00de}
0x09d32…09d6a Head {h00=0x0034, h01=0x0050, text=» CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK«, t00=0x0064, t01=0x010a}
0x09d6a…09da2 Head {h00=0x0034, h01=0x0050, text=» LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK «, t00=0x0064, t01=0x0142}
0x09da2…09dd8 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED«, t00=0x0064, t01=0x017a}
0x09dd8…09e06 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0065, t01=0x0020}
0x09e06…09e20 Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0065, t01=0x004e}
0x09e20…09e5a Head {h00=0x0036, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK«, t00=0x0065, t01=0x0068}
0x09e5a…09e8a Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0065, t01=0x00a2}
0x09e8a…09ed2 Head {h00=0x0044, h01=0x0050, text=»BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x00d2}
0x09ed2…09f0e Head {h00=0x0038, h01=0x0050, text=»BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER «, t00=0x0065, t01=0x011a}
0x09f0e…09f4e Head {h00=0x003c, h01=0x0050, text=» LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x0156}
0x09f4e…09f84 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0066, t01=0x0008}
0x09f84…09fb2 Head {h00=0x002a, h01=0x0050, text=» ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES «, t00=0x0066, t01=0x003e}
0x09fb2…09fe8 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES «, t00=0x0066, t01=0x006c}
0x09fe8…0a014 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/F000 END OF LOGICAL MEMORY«, t00=0x0066, t01=0x00a2}
0x0a014…0a044 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS «, t00=0x0066, t01=0x00ce}
0x0a044…0a07a Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0066, t01=0x00fe}
0x0a07a…0a0a2 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFF EVEN 4K-MULTIPLE? «, t00=0x0066, t01=0x0134}
0x0a0a2…0a0bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BMSG40 NO!«, t00=0x0066, t01=0x015c}
0x0a0bc…0a0e6 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,/1000 SAVE ONE MMU ENTRY «, t00=0x0066, t01=0x0176}
0x0a0e6…0a124 Head {h00=0x003a, h01=0x0050, text=»BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x0010}
0x0a124…0a146 Head {h00=0x001e, h01=0x0050, text=» SRL A2,12 MMU TABLE ENTRY«, t00=0x0067, t01=0x004e}
0x0a146…0a16e Head {h00=0x0024, h01=0x0050, text=» LDK A3,16 NUMBER OF MMU ENTRIES«, t00=0x0067, t01=0x0070}
0x0a16e…0a1a0 Head {h00=0x002e, h01=0x0050, text=» SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x0067, t01=0x0098}
0x0a1a0…0a1d8 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x00ca}
0x0a1d8…0a1fa Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 MULTIPLY BY TWO «, t00=0x0067, t01=0x0102}
0x0a1fa…0a228 Head {h00=0x002a, h01=0x0050, text=» NGR A3,A3 MAKE NEGATIVE DISPLACEMENT «, t00=0x0067, t01=0x0124}
0x0a228…0a25a Head {h00=0x002e, h01=0x0050, text=» ADKL A3,TTB:CB DISPL TO END OF MMU TABLE «, t00=0x0067, t01=0x0152}
0x0a25a…0a292 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x0184}
0x0a292…0a2c8 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0068, t01=0x002c}
0x0a2c8…0a2fc Head {h00=0x0030, h01=0x0050, text=» ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES«, t00=0x0068, t01=0x0062}
0x0a2fc…0a332 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES «, t00=0x0068, t01=0x0096}
0x0a332…0a35e Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET CURRENT SEGMENT SIZE«, t00=0x0068, t01=0x00cc}
0x0a35e…0a388 Head {h00=0x0026, h01=0x0050, text=» LD A9,SCTPSZ GET MAX SEGMENT SIZE«, t00=0x0068, t01=0x00f8}
0x0a388…0a3b6 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CURRENT SEGMENT GREATER? «, t00=0x0068, t01=0x0122}
0x0a3b6…0a3ce Head {h00=0x0014, h01=0x0050, text=» RB(L) BMSG20 NO«, t00=0x0068, t01=0x0150}
0x0a3ce…0a3fc Head {h00=0x002a, h01=0x0050, text=» ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE «, t00=0x0068, t01=0x0168}
0x0a3fc…0a40e Head {h00=0x000e, h01=0x0050, text=» RB BMSG20«, t00=0x0069, t01=0x0008}
0x0a40e…0a42c Head {h00=0x001a, h01=0x0050, text=»BMSG99 RTN A14 RETURN «, t00=0x0069, t01=0x001a}
0x0a42c…0a43a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0038}
0x0a43a…0a47c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0046}
0x0a47c…0a4be Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x0088}
0x0a4be…0a500 Head {h00=0x003e, h01=0x0050, text=»* BMSTAB - BUILD MONITOR SEGMENT TABLE *«, t00=0x0069, t01=0x00ca}
0x0a500…0a542 Head {h00=0x003e, h01=0x0050, text=»* ==================================== *«, t00=0x0069, t01=0x010c}
0x0a542…0a584 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x014e}
0x0a584…0a5c6 Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0069, t01=0x0190}
0x0a5c6…0a608 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x0042}
0x0a608…0a64a Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS *«, t00=0x006a, t01=0x0084}
0x0a64a…0a68c Head {h00=0x003e, h01=0x0050, text=»* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB *«, t00=0x006a, t01=0x00c6}
0x0a68c…0a6ce Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x0108}
0x0a6ce…0a710 Head {h00=0x003e, h01=0x0050, text=»* EXIT: A5 - SEGMENT TABLE ADDRESS *«, t00=0x006a, t01=0x014a}
0x0a710…0a752 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x018c}
0x0a752…0a794 Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A9,A11 *«, t00=0x006b, t01=0x003e}
0x0a794…0a7d6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0080}
0x0a7d6…0a818 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR *«, t00=0x006b, t01=0x00c2}
0x0a818…0a85a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0104}
0x0a85a…0a89c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0146}
0x0a89c…0a8aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0188}
0x0a8aa…0a8be Head {h00=0x0010, h01=0x0050, text=»BMSTAB EQU *«, t00=0x006c, t01=0x0008}
0x0a8be…0a8ec Head {h00=0x002a, h01=0x0050, text=» STR A1,A15 SAVE REGISTER A1 ON STACK «, t00=0x006c, t01=0x001c}
0x0a8ec…0a918 Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTSFA GET START OF FREE AREA«, t00=0x006c, t01=0x004a}
0x0a918…0a946 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x006c, t01=0x0076}
0x0a946…0a970 Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 STORE IN SEGMENT TABLE «, t00=0x006c, t01=0x00a4}
0x0a970…0a99e Head {h00=0x002a, h01=0x0050, text=» ADK A5,2 NEXT ENTRY IN SEGMENT TABLE «, t00=0x006c, t01=0x00ce}
0x0a99e…0a9c8 Head {h00=0x0026, h01=0x0050, text=» LDR* A9,A4 GET NUMBER OF SEGMENTS«, t00=0x006c, t01=0x00fc}
0x0a9c8…0a9e0 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x006c, t01=0x0126}
0x0a9e0…0aa0a Head {h00=0x0026, h01=0x0050, text=» STR A9,A5 STORE IN SEGMENT TABLE «, t00=0x006c, t01=0x013e}
0x0aa0a…0aa4a Head {h00=0x003c, h01=0x0050, text=» ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS«, t00=0x006c, t01=0x0168}
0x0aa4a…0aa70 Head {h00=0x0022, h01=0x0050, text=» ADK A5,2 SEGMENT TABLE ENTRY «, t00=0x006d, t01=0x0018}
0x0aa70…0aa88 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A5 SAVE «, t00=0x006d, t01=0x003e}
0x0aa88…0aa92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0056}
0x0aa92…0aab2 Head {h00=0x001c, h01=0x0050, text=»* BUILD SEGMENT BLOCK 0«, t00=0x006d, t01=0x0060}
0x0aab2…0aabc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0080}
0x0aabc…0aae8 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x006d, t01=0x008a}
0x0aae8…0ab14 Head {h00=0x0028, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK 0 «, t00=0x006d, t01=0x00b6}
0x0ab14…0ab4e Head {h00=0x0036, h01=0x0050, text=»BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS«, t00=0x006d, t01=0x00e2}
0x0ab4e…0ab72 Head {h00=0x0020, h01=0x0050, text=» ADK A3,8 NEXT SEGMENT BLOCK«, t00=0x006d, t01=0x011c}
0x0ab72…0aba4 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x006d, t01=0x0140}
0x0aba4…0abd2 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET END OF SEGMENT BLOCKS «, t00=0x006d, t01=0x0172}
0x0abd2…0abf8 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x006e, t01=0x0010}
0x0abf8…0ac12 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMST25 OK «, t00=0x006e, t01=0x0036}
0x0ac12…0ac40 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x006e, t01=0x0050}
0x0ac40…0ac54 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006e, t01=0x007e}
0x0ac54…0ac7e Head {h00=0x0026, h01=0x0050, text=»BMST25 LDR* A2,A8 GET SEGMENT TYPE«, t00=0x006e, t01=0x0092}
0x0ac7e…0ac98 Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 ISOLATE «, t00=0x006e, t01=0x00bc}
0x0ac98…0acc4 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'RR' CORE RESIDENT SEGMENT? «, t00=0x006e, t01=0x00d6}
0x0acc4…0acde Head {h00=0x0016, h01=0x0050, text=» RF(E) BMST40 YES!«, t00=0x006e, t01=0x0102}
0x0acde…0ad04 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x006e, t01=0x011c}
0x0ad04…0ad22 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x006e, t01=0x0142}
0x0ad22…0ad3c Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMST40 NO! «, t00=0x006e, t01=0x0160}
0x0ad3c…0ad46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x017a}
0x0ad46…0ad74 Head {h00=0x002a, h01=0x0050, text=»* DISC PAGING & DISC RESIDENT SEGMENT«, t00=0x006e, t01=0x0184}
0x0ad74…0ad7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0022}
0x0ad7e…0adaa Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x006f, t01=0x002c}
0x0adaa…0adde Head {h00=0x0030, h01=0x0050, text=» LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31«, t00=0x006f, t01=0x0058}
0x0adde…0ae12 Head {h00=0x0030, h01=0x0050, text=» LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 «, t00=0x006f, t01=0x008c}
0x0ae12…0ae3a Head {h00=0x0024, h01=0x0050, text=» LD A10,2,A8 GET RELOCATION BASE«, t00=0x006f, t01=0x00c0}
0x0ae3a…0ae64 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A10 RELOCATE DISC ADDRESS «, t00=0x006f, t01=0x00e8}
0x0ae64…0ae84 Head {h00=0x001c, h01=0x0050, text=» RF(P) BMST30 NO CARRY! «, t00=0x006f, t01=0x0112}
0x0ae84…0aea6 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF CLEAR BIT 0«, t00=0x006f, t01=0x0132}
0x0aea6…0aec2 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x006f, t01=0x0154}
0x0aec2…0aee4 Head {h00=0x001e, h01=0x0050, text=» RF(P) BMST30 NOT OVERFLOW«, t00=0x006f, t01=0x0170}
0x0aee4…0af10 (112, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 DISC ADDRESS OVERFLOW«, t00=0x0070, t01=0x0004}
0x0af10…0af24 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0070, t01=0x0030}
0x0af24…0af5c Head {h00=0x0034, h01=0x0050, text=»BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT «, t00=0x0070, t01=0x0044}
0x0af5c…0af94 Head {h00=0x0034, h01=0x0050, text=» STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 «, t00=0x0070, t01=0x007c}
0x0af94…0afce Head {h00=0x0036, h01=0x0050, text=» ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 «, t00=0x0070, t01=0x00b4}
0x0afce…0afe0 Head {h00=0x000e, h01=0x0050, text=» RF BMST50«, t00=0x0070, t01=0x00ee}
0x0afe0…0afea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0100}
0x0afea…0b01c Head {h00=0x002e, h01=0x0050, text=»* DISC RESIDENT SEGMENT OR NO DISC PAGING«, t00=0x0070, t01=0x010a}
0x0b01c…0b026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x013c}
0x0b026…0b064 Head {h00=0x003a, h01=0x0050, text=»BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT «, t00=0x0070, t01=0x0146}
0x0b064…0b08e Head {h00=0x0026, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK «, t00=0x0070, t01=0x0184}
0x0b08e…0b0ba Head {h00=0x0028, h01=0x0050, text=»BMST50 LD A9,4,A8 GET SEGMENT LENGTH«, t00=0x0071, t01=0x001e}
0x0b0ba…0b0f2 Head {h00=0x0034, h01=0x0050, text=» LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH«, t00=0x0071, t01=0x004a}
0x0b0f2…0b106 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0071, t01=0x0082}
0x0b106…0b138 Head {h00=0x002e, h01=0x0050, text=» RF(NL) BMST55 CURRENT SEGMENT NOT GREATER«, t00=0x0071, t01=0x0096}
0x0b138…0b172 Head {h00=0x0036, h01=0x0050, text=» ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH«, t00=0x0071, t01=0x00c8}
0x0b172…0b1b2 Head {h00=0x003c, h01=0x0050, text=»BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK «, t00=0x0071, t01=0x0102}
0x0b1b2…0b1e0 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,6 INCREMENT POINTER IN MXSTAB«, t00=0x0071, t01=0x0142}
0x0b1e0…0b214 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS «, t00=0x0071, t01=0x0170}
0x0b214…0b226 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0072, t01=0x0014}
0x0b226…0b24a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) BMST20 MORE SEGMENTS«, t00=0x0072, t01=0x0026}
0x0b24a…0b270 Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 END OF SEGMENT TABLE«, t00=0x0072, t01=0x004a}
0x0b270…0b2a6 Head {h00=0x0032, h01=0x0050, text=»BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA «, t00=0x0072, t01=0x0070}
0x0b2a6…0b2ce Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A15 RESTORE REGISTER A1«, t00=0x0072, t01=0x00a6}
0x0b2ce…0b2de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00ce}
0x0b2de…0b2ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x00de}
0x0b2ec…0b330 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0072, t01=0x00ec}
0x0b330…0b374 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x0130}
0x0b374…0b3b8 Head {h00=0x0040, h01=0x0050, text=»* CHKTAD - CHECK IF TASK ALREADY DEFINED *«, t00=0x0072, t01=0x0174}
0x0b3b8…0b3fc Head {h00=0x0040, h01=0x0050, text=»* ====================================== *«, t00=0x0073, t01=0x0028}
0x0b3fc…0b440 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x006c}
0x0b440…0b484 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0073, t01=0x00b0}
0x0b484…0b4c8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x00f4}
0x0b4c8…0b50c Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A1 - POINTER TO TASK ID *«, t00=0x0073, t01=0x0138}
0x0b50c…0b550 Head {h00=0x0040, h01=0x0050, text=»* FOR MONITOR SEGMENT TASK *«, t00=0x0073, t01=0x017c}
0x0b550…0b594 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0030}
0x0b594…0b5d8 Head {h00=0x0040, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED *«, t00=0x0074, t01=0x0074}
0x0b5d8…0b61c Head {h00=0x0040, h01=0x0050, text=»* A12 = 0 IF TASK NOT DEFINED *«, t00=0x0074, t01=0x00b8}
0x0b61c…0b660 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00fc}
0x0b660…0b6a4 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x0074, t01=0x0140}
0x0b6a4…0b6e8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0184}
0x0b6e8…0b72c Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: PSW *«, t00=0x0075, t01=0x0038}
0x0b72c…0b770 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x007c}
0x0b770…0b7b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0075, t01=0x00c0}
0x0b7b4…0b7c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0104}
0x0b7c2…0b7d6 Head {h00=0x0010, h01=0x0050, text=»CHKTAD EQU *«, t00=0x0075, t01=0x0112}
0x0b7d6…0b800 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x0075, t01=0x0126}
0x0b800…0b822 Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x0075, t01=0x0150}
0x0b822…0b854 Head {h00=0x002e, h01=0x0050, text=»CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB«, t00=0x0075, t01=0x0172}
0x0b854…0b87a Head {h00=0x0022, h01=0x0050, text=» CW A2,SCTTCT START OF TCTAB? «, t00=0x0076, t01=0x0014}
0x0b87a…0b8a8 Head {h00=0x002a, h01=0x0050, text=» RF(E) CHKT30 YES: ALL TASKS CHECKED! «, t00=0x0076, t01=0x003a}
0x0b8a8…0b8d0 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET POINTER TO TTAB «, t00=0x0076, t01=0x0068}
0x0b8d0…0b8f4 Head {h00=0x0020, h01=0x0050, text=» LD A3,TTB:ID,A3 GET TASK ID«, t00=0x0076, t01=0x0090}
0x0b8f4…0b920 Head {h00=0x0028, h01=0x0050, text=» CWR* A3,A1 EQUAL TO CURRENT TASKS? «, t00=0x0076, t01=0x00b4}
0x0b920…0b93a Head {h00=0x0016, h01=0x0050, text=» RB(NE) CHKT20 NO «, t00=0x0076, t01=0x00e0}
0x0b93a…0b960 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A2 GET TTAB POINTER «, t00=0x0076, t01=0x00fa}
0x0b960…0b972 Head {h00=0x000e, h01=0x0050, text=» RF CHKT50«, t00=0x0076, t01=0x0120}
0x0b972…0b9a4 Head {h00=0x002e, h01=0x0050, text=»CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND «, t00=0x0076, t01=0x0132}
0x0b9a4…0b9d6 Head {h00=0x002e, h01=0x0050, text=»CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK «, t00=0x0076, t01=0x0164}
0x0b9d6…0b9e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0008}
0x0b9e6…0b9f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0018}
0x0b9f4…0ba40 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x0026}
0x0ba40…0ba8c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0072}
0x0ba8c…0bad8 Head {h00=0x0048, h01=0x0050, text=»* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * «, t00=0x0077, t01=0x00be}
0x0bad8…0bb24 Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0077, t01=0x010a}
0x0bb24…0bb70 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0156}
0x0bb70…0bbbc Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: MXTTAB,B:MSEG * «, t00=0x0078, t01=0x0012}
0x0bbbc…0bc08 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x005e}
0x0bc08…0bc54 Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0078, t01=0x00aa}
0x0bc54…0bca0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00f6}
0x0bca0…0bcec Head {h00=0x0048, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS * «, t00=0x0078, t01=0x0142}
0x0bcec…0bd38 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x018e}
0x0bd38…0bd84 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A2,A9,A10,A11 * «, t00=0x0079, t01=0x004a}
0x0bd84…0bdd0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0096}
0x0bdd0…0be1c Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR * «, t00=0x0079, t01=0x00e2}
0x0be1c…0be68 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x012e}
0x0be68…0beb4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0079, t01=0x017a}
0x0beb4…0bec8 Head {h00=0x0010, h01=0x0050, text=»BMXSTT EQU *«, t00=0x007a, t01=0x0036}
0x0bec8…0bef6 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x007a, t01=0x004a}
0x0bef6…0bf26 Head {h00=0x002c, h01=0x0050, text=» LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH «, t00=0x007a, t01=0x0078}
0x0bf26…0bf4c Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x007a, t01=0x00a8}
0x0bf4c…0bf64 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/21 EMM?«, t00=0x007a, t01=0x00ce}
0x0bf64…0bf78 Head {h00=0x0010, h01=0x0050, text=» XRK A2,/21 «, t00=0x007a, t01=0x00e6}
0x0bf78…0bf8e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) BMXS20«, t00=0x007a, t01=0x00fa}
0x0bf8e…0bfc6 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP «, t00=0x007a, t01=0x0110}
0x0bfc6…0bfee Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:AM INCLUDE LENGTH «, t00=0x007a, t01=0x0148}
0x0bfee…0c000 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007a, t01=0x0170}
0x0c000…0c02c Head {h00=0x0028, h01=0x0050, text=»BMXS20 LD A2,SCTOPT GET OPTION WORD «, t00=0x007a, t01=0x0182}
0x0c02c…0c04a Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x007b, t01=0x001e}
0x0c04a…0c064 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMXS30 NO! «, t00=0x007b, t01=0x003c}
0x0c064…0c096 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB«, t00=0x007b, t01=0x0056}
0x0c096…0c0be Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:MT INCLUDE LENGTH «, t00=0x007b, t01=0x0088}
0x0c0be…0c0d0 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007b, t01=0x00b0}
0x0c0d0…0c0fc Head {h00=0x0028, h01=0x0050, text=»BMXS30 LD A2,SCTOPT GET OPTION WORD «, t00=0x007b, t01=0x00c2}
0x0c0fc…0c11a Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x007b, t01=0x00ee}
0x0c11a…0c130 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BMXS40 «, t00=0x007b, t01=0x010c}
0x0c130…0c168 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING«, t00=0x007b, t01=0x0122}
0x0c168…0c192 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,TTB:CB INCLUDE IN LENGTH«, t00=0x007b, t01=0x015a}
0x0c192…0c1ca Head {h00=0x0034, h01=0x0050, text=»BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA «, t00=0x007b, t01=0x0184}
0x0c1ca…0c1e2 Head {h00=0x0014, h01=0x0050, text=» LDR A9,A10 SAVE«, t00=0x007c, t01=0x002c}
0x0c1e2…0c216 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x007c, t01=0x0044}
0x0c216…0c23c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x007c, t01=0x0078}
0x0c23c…0c256 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BMXS50 NO!«, t00=0x007c, t01=0x009e}
0x0c256…0c26c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007c, t01=0x00b8}
0x0c26c…0c298 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x007c, t01=0x00ce}
0x0c298…0c2ce Head {h00=0x0032, h01=0x0050, text=»BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x007c, t01=0x00fa}
0x0c2ce…0c2f8 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET CURRENT LENGTH «, t00=0x007c, t01=0x0130}
0x0c2f8…0c326 Head {h00=0x002a, h01=0x0050, text=» AD A2,SCTTCT COMPUTE NEXT FREE ENTRY «, t00=0x007c, t01=0x015a}
0x0c326…0c34c Head {h00=0x0022, h01=0x0050, text=» STR A12,A2 STORE TTAB ADDRESS«, t00=0x007c, t01=0x0188}
0x0c34c…0c378 Head {h00=0x0028, h01=0x0050, text=» IM* SCTTCT INCREMENT CURRENT LENGTH«, t00=0x007d, t01=0x001e}
0x0c378…0c392 Head {h00=0x0016, h01=0x0050, text=» IM* SCTTCT TWICE «, t00=0x007d, t01=0x004a}
0x0c392…0c3b2 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x007d, t01=0x0064}
0x0c3b2…0c3da Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ID,A12 STORE IN TTAB «, t00=0x007d, t01=0x0084}
0x0c3da…0c408 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MX:LEV GET MONITOR TASK LEVEL«, t00=0x007d, t01=0x00ac}
0x0c408…0c430 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ST,A12 STORE IN TTAB «, t00=0x007d, t01=0x00da}
0x0c430…0c442 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x007d, t01=0x0102}
0x0c442…0c468 Head {h00=0x0022, h01=0x0050, text=» ORKL A2,/00C1 PROGRAM STATUS «, t00=0x007d, t01=0x0114}
0x0c468…0c49c Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD «, t00=0x007d, t01=0x013a}
0x0c49c…0c4da Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS «, t00=0x007d, t01=0x016e}
0x0c4da…0c502 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:AP,A12 STORE IN TTAB «, t00=0x007e, t01=0x001c}
0x0c502…0c514 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x007e, t01=0x0044}
0x0c514…0c548 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH «, t00=0x007e, t01=0x0056}
0x0c548…0c560 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x007e, t01=0x008a}
0x0c560…0c56e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x00a2}
0x0c56e…0c5b4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x007e, t01=0x00b0}
0x0c5b4…0c5fa Head {h00=0x0042, h01=0x0050, text=»* MX:MEB - FIND FIRST MONITOR EXTENT BLOCK *«, t00=0x007e, t01=0x00f6}
0x0c5fa…0c640 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x007e, t01=0x013c}
0x0c640…0c686 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007e, t01=0x0182}
0x0c686…0c6cc Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:MST *«, t00=0x007f, t01=0x0038}
0x0c6cc…0c712 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007f, t01=0x007e}
0x0c712…0c758 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE *«, t00=0x007f, t01=0x00c4}
0x0c758…0c79e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007f, t01=0x010a}
0x0c79e…0c7e4 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x007f, t01=0x0150}
0x0c7e4…0c82a Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0080, t01=0x0008}
0x0c82a…0c870 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0080, t01=0x004e}
0x0c870…0c8b6 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0080, t01=0x0094}
0x0c8b6…0c8fc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00da}
0x0c8fc…0c942 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0080, t01=0x0120}
0x0c942…0c988 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0166}
0x0c988…0c9ce Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0081, t01=0x001c}
0x0c9ce…0ca14 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0081, t01=0x0062}
0x0ca14…0ca5a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0081, t01=0x00a8}
0x0ca5a…0ca68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00ee}
0x0ca68…0ca7c Head {h00=0x0010, h01=0x0050, text=»MX:MEB EQU *«, t00=0x0081, t01=0x00fc}
0x0ca7c…0caa8 Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0081, t01=0x0110}
0x0caa8…0cac0 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A7 SAVE «, t00=0x0081, t01=0x013c}
0x0cac0…0cae0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MEB99 NOT PRESENT«, t00=0x0081, t01=0x0154}
0x0cae0…0cb0e Head {h00=0x002a, h01=0x0050, text=» LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS«, t00=0x0081, t01=0x0174}
0x0cb0e…0cb26 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A2 SAVE «, t00=0x0082, t01=0x0012}
0x0cb26…0cb50 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A7 SAVE ADDRESS TO MXSTAB «, t00=0x0082, t01=0x002a}
0x0cb50…0cb7e Head {h00=0x002a, h01=0x0050, text=» LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS«, t00=0x0082, t01=0x0054}
0x0cb7e…0cbae Head {h00=0x002c, h01=0x0050, text=» ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS«, t00=0x0082, t01=0x0082}
0x0cbae…0cbc6 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 SAVE «, t00=0x0082, t01=0x00b2}
0x0cbc6…0cbf8 Head {h00=0x002e, h01=0x0050, text=»MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x0082, t01=0x00ca}
0x0cbf8…0cc18 Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 MORE SEGTABS? «, t00=0x0082, t01=0x00fc}
0x0cc18…0cc32 Head {h00=0x0016, h01=0x0050, text=» RB(NN) MEB10 YES «, t00=0x0082, t01=0x011c}
0x0cc32…0cc4e Head {h00=0x0018, h01=0x0050, text=»MEB99 RTN A14 RETURN«, t00=0x0082, t01=0x0136}
0x0cc4e…0cc5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0152}
0x0cc5c…0cca2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0082, t01=0x0160}
0x0cca2…0cce8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x0016}
0x0cce8…0cd2e Head {h00=0x0042, h01=0x0050, text=»* MX:MST - GET FIRST MONITOR SEGMENT TABLE *«, t00=0x0083, t01=0x005c}
0x0cd2e…0cd74 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x0083, t01=0x00a2}
0x0cd74…0cdba Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x00e8}
0x0cdba…0ce00 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0083, t01=0x012e}
0x0ce00…0ce46 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x0174}
0x0ce46…0ce8c Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB *«, t00=0x0084, t01=0x002a}
0x0ce8c…0ced2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x0070}
0x0ced2…0cf18 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE *«, t00=0x0084, t01=0x00b6}
0x0cf18…0cf5e Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0084, t01=0x00fc}
0x0cf5e…0cfa4 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0084, t01=0x0142}
0x0cfa4…0cfea Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0084, t01=0x0188}
0x0cfea…0d030 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x003e}
0x0d030…0d076 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0085, t01=0x0084}
0x0d076…0d0bc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x00ca}
0x0d0bc…0d102 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MEB *«, t00=0x0085, t01=0x0110}
0x0d102…0d148 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x0156}
0x0d148…0d18e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0086, t01=0x000c}
0x0d18e…0d19c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0052}
0x0d19c…0d1b0 Head {h00=0x0010, h01=0x0050, text=»MX:MST EQU *«, t00=0x0086, t01=0x0060}
0x0d1b0…0d1ee Head {h00=0x003a, h01=0x0050, text=» CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK«, t00=0x0086, t01=0x0074}
0x0d1ee…0d224 Head {h00=0x0032, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0086, t01=0x00b2}
0x0d224…0d264 Head {h00=0x003c, h01=0x0050, text=»MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0086, t01=0x00e8}
0x0d264…0d290 Head {h00=0x0028, h01=0x0050, text=» RF(N) MST99 NO MORE MONITOR EXTENTS«, t00=0x0086, t01=0x0128}
0x0d290…0d2c8 Head {h00=0x0034, h01=0x0050, text=» ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK«, t00=0x0086, t01=0x0154}
0x0d2c8…0d2da Head {h00=0x000e, h01=0x0050, text=» RB MST10 «, t00=0x0086, t01=0x018c}
0x0d2da…0d2f6 Head {h00=0x0018, h01=0x0050, text=»MST99 RTN A14 RETURN«, t00=0x0087, t01=0x000e}
0x0d2f6…0d304 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x002a}
0x0d304…0d34a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0087, t01=0x0038}
0x0d34a…0d390 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0087, t01=0x007e}
0x0d390…0d3d6 Head {h00=0x0042, h01=0x0050, text=»* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * «, t00=0x0087, t01=0x00c4}
0x0d3d6…0d41c Head {h00=0x0042, h01=0x0050, text=»* ======================================================= * «, t00=0x0087, t01=0x010a}
0x0d41c…0d462 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0087, t01=0x0150}
0x0d462…0d4a8 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:STD * «, t00=0x0088, t01=0x0008}
0x0d4a8…0d4ee Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x004e}
0x0d4ee…0d534 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB * «, t00=0x0088, t01=0x0094}
0x0d534…0d57a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x00da}
0x0d57a…0d5c0 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * «, t00=0x0088, t01=0x0120}
0x0d5c0…0d606 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK * «, t00=0x0088, t01=0x0166}
0x0d606…0d64c Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * «, t00=0x0089, t01=0x001c}
0x0d64c…0d692 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES * «, t00=0x0089, t01=0x0062}
0x0d692…0d6d8 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS * «, t00=0x0089, t01=0x00a8}
0x0d6d8…0d71e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x00ee}
0x0d71e…0d764 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x0089, t01=0x0134}
0x0d764…0d7aa Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x017a}
0x0d7aa…0d7f0 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MST * «, t00=0x008a, t01=0x0030}
0x0d7f0…0d836 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008a, t01=0x0076}
0x0d836…0d87c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008a, t01=0x00bc}
0x0d87c…0d88a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0102}
0x0d88a…0d89e Head {h00=0x0010, h01=0x0050, text=»MX:TDB EQU *«, t00=0x008a, t01=0x0110}
0x0d89e…0d8d2 Head {h00=0x0030, h01=0x0050, text=» CALL MX:MST GET FIRST MONITOR SEGMENT TABLE«, t00=0x008a, t01=0x0124}
0x0d8d2…0d902 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A6 GET NUMBER OF SEGMENT TABLES «, t00=0x008a, t01=0x0158}
0x0d902…0d934 Head {h00=0x002e, h01=0x0050, text=»TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x008a, t01=0x0188}
0x0d934…0d962 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF SEGTABS «, t00=0x008b, t01=0x002a}
0x0d962…0d986 Head {h00=0x0020, h01=0x0050, text=» RF(N) TDB99 NO MORE SEGTABS«, t00=0x008b, t01=0x0058}
0x0d986…0d9b0 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A5 GET NUMBER OF SEGMENTS«, t00=0x008b, t01=0x007c}
0x0d9b0…0d9e4 Head {h00=0x0030, h01=0x0050, text=»TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS «, t00=0x008b, t01=0x00a6}
0x0d9e4…0da0a Head {h00=0x0022, h01=0x0050, text=» RB(N) TDB10 NO MORE SEGMENTS «, t00=0x008b, t01=0x00da}
0x0da0a…0da40 Head {h00=0x0032, h01=0x0050, text=» ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER«, t00=0x008b, t01=0x0100}
0x0da40…0da52 Head {h00=0x000e, h01=0x0050, text=» RB TDB20 «, t00=0x008b, t01=0x0136}
0x0da52…0da6e Head {h00=0x0018, h01=0x0050, text=»TDB99 RTN A14 RETURN«, t00=0x008b, t01=0x0148}
0x0da6e…0da7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0164}
0x0da7c…0dac2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008b, t01=0x0172}
0x0dac2…0db08 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x0028}
0x0db08…0db4e Head {h00=0x0042, h01=0x0050, text=»* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK *«, t00=0x008c, t01=0x006e}
0x0db4e…0db94 Head {h00=0x0042, h01=0x0050, text=»* ======================================================== *«, t00=0x008c, t01=0x00b4}
0x0db94…0dbda Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x00fa}
0x0dbda…0dc20 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MXST *«, t00=0x008c, t01=0x0140}
0x0dc20…0dc66 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x0186}
0x0dc66…0dcac Head {h00=0x0042, h01=0x0050, text=»* ENTRY: *«, t00=0x008d, t01=0x003c}
0x0dcac…0dcf2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x0082}
0x0dcf2…0dd38 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *«, t00=0x008d, t01=0x00c8}
0x0dd38…0dd7e Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK *«, t00=0x008d, t01=0x010e}
0x0dd7e…0ddc4 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x008d, t01=0x0154}
0x0ddc4…0de0a Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x008e, t01=0x000a}
0x0de0a…0de50 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x008e, t01=0x0050}
0x0de50…0de96 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x0096}
0x0de96…0dedc Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x008e, t01=0x00dc}
0x0dedc…0df22 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x0122}
0x0df22…0df68 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:TDB *«, t00=0x008e, t01=0x0168}
0x0df68…0dfae Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x001e}
0x0dfae…0dff4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008f, t01=0x0064}
0x0dff4…0e002 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x00aa}
0x0e002…0e016 Head {h00=0x0010, h01=0x0050, text=»MX:STD EQU *«, t00=0x008f, t01=0x00b8}
0x0e016…0e04c Head {h00=0x0032, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK«, t00=0x008f, t01=0x00cc}
0x0e04c…0e07c Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENTS«, t00=0x008f, t01=0x0102}
0x0e07c…0e0b6 Head {h00=0x0036, h01=0x0050, text=»STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS«, t00=0x008f, t01=0x0132}
0x0e0b6…0e0da Head {h00=0x0020, h01=0x0050, text=» RF(N) STD99 NO MORE EXTENTS«, t00=0x008f, t01=0x016c}
0x0e0da…0e10c Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT «, t00=0x008f, t01=0x0190}
0x0e10c…0e132 Head {h00=0x0022, h01=0x0050, text=»STD20 ADK A1,2 ADDRESS TASK ID«, t00=0x0090, t01=0x0032}
0x0e132…0e15e Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TASKS «, t00=0x0090, t01=0x0058}
0x0e15e…0e17e Head {h00=0x001c, h01=0x0050, text=» RB(NN) STD20 MORE TASKS«, t00=0x0090, t01=0x0084}
0x0e17e…0e19c Head {h00=0x001a, h01=0x0050, text=» RB STD10 NEXT EXTENT «, t00=0x0090, t01=0x00a4}
0x0e19c…0e1b8 Head {h00=0x0018, h01=0x0050, text=»STD99 RTN A14 RETURN«, t00=0x0090, t01=0x00c2}
0x0e1b8…0e1c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0090, t01=0x00de}
0x0e1c4…0e1d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00ea}
0x0e1d2…0e1f8 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0090, t01=0x00f8}
0x0e1f8…0e21e Head {h00=0x0022, h01=0x0050, text=»* B:TT - BUILD TASK TABLES *«, t00=0x0090, t01=0x011e}
0x0e21e…0e244 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0090, t01=0x0144}
0x0e244…0e24e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x016a}
0x0e24e…0e26e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLDM«, t00=0x0090, t01=0x0174}
0x0e26e…0e278 (145, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0004}
0x0e278…0e28a Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x0091, t01=0x000e}
0x0e28a…0e294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0020}
0x0e294…0e2d0 Head {h00=0x0038, h01=0x0050, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x0091, t01=0x002a}
0x0e2d0…0e2da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0066}
0x0e2da…0e2fc Head {h00=0x001e, h01=0x0050, text=»* WORK REGISERS: A1-A12 «, t00=0x0091, t01=0x0070}
0x0e2fc…0e306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0092}
0x0e306…0e342 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x0091, t01=0x009c}
0x0e342…0e34c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00d8}
0x0e34c…0e378 Head {h00=0x0028, h01=0x0050, text=»* TASK TABLE LAYOUT «, t00=0x0091, t01=0x00e2}
0x0e378…0e382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x010e}
0x0e382…0e3b0 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0091, t01=0x0118}
0x0e3b0…0e3de Head {h00=0x002a, h01=0x0050, text=»* TTB:AM I MMU ALLOCATION I«, t00=0x0091, t01=0x0146}
0x0e3de…0e40c Head {h00=0x002a, h01=0x0050, text=»* I BIT MAP (4 WORDS) I«, t00=0x0091, t01=0x0174}
0x0e40c…0e43a Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x0012}
0x0e43a…0e468 Head {h00=0x002a, h01=0x0050, text=»* TTB:MT I MMU I«, t00=0x0092, t01=0x0040}
0x0e468…0e496 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0092, t01=0x006e}
0x0e496…0e4c4 Head {h00=0x002a, h01=0x0050, text=»* I 16 I«, t00=0x0092, t01=0x009c}
0x0e4c4…0e4f2 Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0092, t01=0x00ca}
0x0e4f2…0e520 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x00f8}
0x0e520…0e54e Head {h00=0x002a, h01=0x0050, text=»* TTB:CB I CSB POINTER I«, t00=0x0092, t01=0x0126}
0x0e54e…0e57c Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x0154}
0x0e57c…0e5aa Head {h00=0x002a, h01=0x0050, text=»* TTB:SP I SEGTAB POINTER I«, t00=0x0092, t01=0x0182}
0x0e5aa…0e5d8 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x0020}
0x0e5d8…0e606 Head {h00=0x002a, h01=0x0050, text=»* TTB:SB I SEGM. BLOCK POINTER I«, t00=0x0093, t01=0x004e}
0x0e606…0e634 Head {h00=0x002a, h01=0x0050, text=»* I----------------------I«, t00=0x0093, t01=0x007c}
0x0e634…0e662 Head {h00=0x002a, h01=0x0050, text=»* TTB:AP I ACB POINTER I«, t00=0x0093, t01=0x00aa}
0x0e662…0e690 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0093, t01=0x00d8}
0x0e690…0e6be Head {h00=0x002a, h01=0x0050, text=»* TASK ENTRY I QUEUE I«, t00=0x0093, t01=0x0106}
0x0e6be…0e6ec Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0093, t01=0x0134}
0x0e6ec…0e71a Head {h00=0x002a, h01=0x0050, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x0093, t01=0x0162}
0x0e71a…0e748 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0093, t01=0x0190}
0x0e748…0e776 Head {h00=0x002a, h01=0x0050, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x0094, t01=0x002e}
0x0e776…0e7a4 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x005c}
0x0e7a4…0e7d2 Head {h00=0x002a, h01=0x0050, text=»* TTB:PP I PENDING QUEUE I«, t00=0x0094, t01=0x008a}
0x0e7d2…0e800 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x00b8}
0x0e800…0e82e Head {h00=0x002a, h01=0x0050, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x0094, t01=0x00e6}
0x0e82e…0e85c Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x0114}
0x0e85c…0e88a Head {h00=0x002a, h01=0x0050, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x0094, t01=0x0142}
0x0e88a…0e8b8 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x0170}
0x0e8b8…0e8e6 Head {h00=0x002a, h01=0x0050, text=»* I REGISTER I«, t00=0x0095, t01=0x000e}
0x0e8e6…0e914 Head {h00=0x002a, h01=0x0050, text=»* I SAVE I«, t00=0x0095, t01=0x003c}
0x0e914…0e942 Head {h00=0x002a, h01=0x0050, text=»* I AREA I«, t00=0x0095, t01=0x006a}
0x0e942…0e970 Head {h00=0x002a, h01=0x0050, text=»* I 14 I«, t00=0x0095, t01=0x0098}
0x0e970…0e99e Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0095, t01=0x00c6}
0x0e99e…0e9cc Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x00f4}
0x0e9cc…0e9fa Head {h00=0x002a, h01=0x0050, text=»* TTB:TD I TASK I«, t00=0x0095, t01=0x0122}
0x0e9fa…0ea28 Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x0095, t01=0x0150}
0x0ea28…0ea56 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0095, t01=0x017e}
0x0ea56…0ea84 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0096, t01=0x001c}
0x0ea84…0eab2 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0096, t01=0x004a}
0x0eab2…0eae0 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0096, t01=0x0078}
0x0eae0…0eb16 Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x0096, t01=0x00a6}
0x0eb16…0eb4a Head {h00=0x0030, h01=0x0050, text=»* ______________________________«, t00=0x0096, t01=0x00dc}
0x0eb4a…0eb7e Head {h00=0x0030, h01=0x0050, text=»* I LENGTH I«, t00=0x0096, t01=0x0110}
0x0eb7e…0ebb2 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0096, t01=0x0144}
0x0ebb2…0ebe6 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILCODE I«, t00=0x0096, t01=0x0178}
0x0ebe6…0ec1a Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x001c}
0x0ec1a…0ec4e Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0097, t01=0x0050}
0x0ec4e…0ec82 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x0084}
0x0ec82…0ecb6 Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x00b8}
0x0ecb6…0ecea Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x00ec}
0x0ecea…0ed1e Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x0120}
0x0ed1e…0ed52 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILECODE I«, t00=0x0097, t01=0x0154}
0x0ed52…0ed86 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x0188}
0x0ed86…0edba Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0098, t01=0x002c}
0x0edba…0edee Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x0060}
0x0edee…0edfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0094}
0x0edfc…0ee0e Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0098, t01=0x00a2}
0x0ee0e…0ee38 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x0098, t01=0x00b4}
0x0ee38…0ee66 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0098, t01=0x00de}
0x0ee66…0ee88 Head {h00=0x001e, h01=0x0050, text=» ST A12,STKEND+SFASAV SAVE«, t00=0x0098, t01=0x010c}
0x0ee88…0eebc Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0098, t01=0x012e}
0x0eebc…0eeea Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK1 SAVE PROGRAM COUNTER«, t00=0x0098, t01=0x0162}
0x0eeea…0ef28 Head {h00=0x003a, h01=0x0050, text=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER «, t00=0x0098, t01=0x0190}
0x0ef28…0ef56 Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK2 SAVE PROGRAM COUNTER«, t00=0x0099, t01=0x003e}
0x0ef56…0ef60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x006c}
0x0ef60…0ef8c Head {h00=0x0028, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x0099, t01=0x0076}
0x0ef8c…0ef96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00a2}
0x0ef96…0efaa Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x0099, t01=0x00ac}
0x0efaa…0efdc Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS «, t00=0x0099, t01=0x00c0}
0x0efdc…0efe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f2}
0x0efe6…0f008 Head {h00=0x001e, h01=0x0050, text=»* GET TASK ID START VALUE«, t00=0x0099, t01=0x00fc}
0x0f008…0f012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x011e}
0x0f012…0f03e Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x0099, t01=0x0128}
0x0f03e…0f062 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0099, t01=0x0154}
0x0f062…0f090 Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x0099, t01=0x0178}
0x0f090…0f0c6 Head {h00=0x0032, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TASK ID START VALUE «, t00=0x009a, t01=0x0016}
0x0f0c6…0f0d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x004c}
0x0f0d0…0f0f6 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x009a, t01=0x0056}
0x0f0f6…0f100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x007c}
0x0f100…0f13a Head {h00=0x0036, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK«, t00=0x009a, t01=0x0086}
0x0f13a…0f168 Head {h00=0x002a, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPLICATION TYPE «, t00=0x009a, t01=0x00c0}
0x0f168…0f190 Head {h00=0x0024, h01=0x0050, text=» CWK A5,'CR' CREDIT APPLICATION?«, t00=0x009a, t01=0x00ee}
0x0f190…0f1a6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT21 «, t00=0x009a, t01=0x0116}
0x0f1a6…0f1b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x012c}
0x0f1b4…0f1be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x013a}
0x0f1be…0f1e6 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x009a, t01=0x0144}
0x0f1e6…0f1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x016c}
0x0f1f0…0f220 Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x009a, t01=0x0176}
0x0f220…0f244 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009b, t01=0x0016}
0x0f244…0f276 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x009b, t01=0x003a}
0x0f276…0f29e Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x009b, t01=0x006c}
0x0f29e…0f2c0 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x009b, t01=0x0094}
0x0f2c0…0f2d4 Head {h00=0x0010, h01=0x0050, text=»BTT21 EQU * «, t00=0x009b, t01=0x00b6}
0x0f2d4…0f2e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00ca}
0x0f2e2…0f2ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00d8}
0x0f2ec…0f306 Head {h00=0x0016, h01=0x0050, text=»* GET TASK LEVEL «, t00=0x009b, t01=0x00e2}
0x0f306…0f310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00fc}
0x0f310…0f344 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x009b, t01=0x0106}
0x0f344…0f368 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009b, t01=0x013a}
0x0f368…0f39c Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x009b, t01=0x015e}
0x0f39c…0f3c2 (156, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x009c, t01=0x0004}
0x0f3c2…0f3e4 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+TSKLEV SAVE «, t00=0x009c, t01=0x002a}
0x0f3e4…0f3f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x004c}
0x0f3f2…0f3fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x005a}
0x0f3fc…0f442 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE «, t00=0x009c, t01=0x0064}
0x0f442…0f44c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00aa}
0x0f44c…0f476 Head {h00=0x0026, h01=0x0050, text=» LDKL A10,TTB:TD+4 STANDARD LENGTH«, t00=0x009c, t01=0x00b4}
0x0f476…0f49c Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009c, t01=0x00de}
0x0f49c…0f4d4 Head {h00=0x0034, h01=0x0050, text=» ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED«, t00=0x009c, t01=0x0104}
0x0f4d4…0f4f6 Head {h00=0x001e, h01=0x0050, text=» XRK A5,/21 BOTH INCLUDED?«, t00=0x009c, t01=0x013c}
0x0f4f6…0f510 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BTT22 NO! «, t00=0x009c, t01=0x015e}
0x0f510…0f544 Head {h00=0x0030, h01=0x0050, text=» SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH«, t00=0x009c, t01=0x0178}
0x0f544…0f576 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP «, t00=0x009d, t01=0x001c}
0x0f576…0f588 Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009d, t01=0x004e}
0x0f588…0f5a2 Head {h00=0x0016, h01=0x0050, text=»BTT22 LD A5,SCTOPT«, t00=0x009d, t01=0x0060}
0x0f5a2…0f5c0 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 MMU PAGING? «, t00=0x009d, t01=0x007a}
0x0f5c0…0f5d8 Head {h00=0x0014, h01=0x0050, text=» RF(NN) BTT25 NO«, t00=0x009d, t01=0x0098}
0x0f5d8…0f60a Head {h00=0x002e, h01=0x0050, text=» SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU «, t00=0x009d, t01=0x00b0}
0x0f60a…0f640 Head {h00=0x0032, h01=0x0050, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x009d, t01=0x00e2}
0x0f640…0f652 Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009d, t01=0x0118}
0x0f652…0f666 Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x009d, t01=0x012a}
0x0f666…0f684 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 DISC PAGING?«, t00=0x009d, t01=0x013e}
0x0f684…0f69e Head {h00=0x0016, h01=0x0050, text=» RF(NN) BTT30 NO! «, t00=0x009d, t01=0x015c}
0x0f69e…0f6d8 Head {h00=0x0036, h01=0x0050, text=» SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING «, t00=0x009d, t01=0x0176}
0x0f6d8…0f70c Head {h00=0x0030, h01=0x0050, text=» SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD«, t00=0x009e, t01=0x0020}
0x0f70c…0f720 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x009e, t01=0x0054}
0x0f720…0f72e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x0068}
0x0f72e…0f738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0076}
0x0f738…0f778 Head {h00=0x003c, h01=0x0050, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x009e, t01=0x0080}
0x0f778…0f79e Head {h00=0x0022, h01=0x0050, text=»* OF TASK CONFIGURATION TABLE«, t00=0x009e, t01=0x00c0}
0x0f79e…0f7a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00e6}
0x0f7a8…0f7c6 Head {h00=0x001a, h01=0x0050, text=» LDK A6,0 RESET LENGTH«, t00=0x009e, t01=0x00f0}
0x0f7c6…0f804 Head {h00=0x003a, h01=0x0050, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x009e, t01=0x010e}
0x0f804…0f83c Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x009e, t01=0x014c}
0x0f83c…0f864 Head {h00=0x0024, h01=0x0050, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x009e, t01=0x0184}
0x0f864…0f87c Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x009f, t01=0x001c}
0x0f87c…0f890 Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x009f, t01=0x0034}
0x0f890…0f8a4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT40«, t00=0x009f, t01=0x0048}
0x0f8a4…0f8d0 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x009f, t01=0x005c}
0x0f8d0…0f8fa Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x009f, t01=0x0088}
0x0f8fa…0f92a Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x009f, t01=0x00b2}
0x0f92a…0f93e Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x009f, t01=0x00e2}
0x0f93e…0f950 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x009f, t01=0x00f6}
0x0f950…0f962 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x009f, t01=0x0108}
0x0f962…0f978 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x009f, t01=0x011a}
0x0f978…0f98e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x009f, t01=0x0130}
0x0f98e…0f9b8 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x009f, t01=0x0146}
0x0f9b8…0f9cc Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x009f, t01=0x0170}
0x0f9cc…0f9f2 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x009f, t01=0x0184}
0x0f9f2…0fa1a Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a0, t01=0x001a}
0x0fa1a…0fa42 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a0, t01=0x0042}
0x0fa42…0fa68 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a0, t01=0x006a}
0x0fa68…0fa94 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a0, t01=0x0090}
0x0fa94…0fac6 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a0, t01=0x00bc}
0x0fac6…0faea Head {h00=0x0020, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x00a0, t01=0x00ee}
0x0faea…0fb16 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x00a0, t01=0x0112}
0x0fb16…0fb28 Head {h00=0x000e, h01=0x0050, text=» RB BTT35 «, t00=0x00a0, t01=0x013e}
0x0fb28…0fb36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x0150}
0x0fb36…0fb4a Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x00a0, t01=0x015e}
0x0fb4a…0fb54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0172}
0x0fb54…0fb96 Head {h00=0x003e, h01=0x0050, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x00a0, t01=0x017c}
0x0fb96…0fbba Head {h00=0x0020, h01=0x0050, text=»* TASK CONFIGURATION TABLE «, t00=0x00a1, t01=0x002e}
0x0fbba…0fbc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0052}
0x0fbc4…0fbfe Head {h00=0x0036, h01=0x0050, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00a1, t01=0x005c}
0x0fbfe…0fc22 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x00a1, t01=0x0096}
0x0fc22…0fc3a Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x00a1, t01=0x00ba}
0x0fc3a…0fc4e Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x00a1, t01=0x00d2}
0x0fc4e…0fc72 Head {h00=0x0020, h01=0x0050, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x00a1, t01=0x00e6}
0x0fc72…0fc9e Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a1, t01=0x010a}
0x0fc9e…0fcc8 Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a1, t01=0x0136}
0x0fcc8…0fcf8 Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00a1, t01=0x0160}
0x0fcf8…0fd0c Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a1, t01=0x0190}
0x0fd0c…0fd1e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a2, t01=0x0014}
0x0fd1e…0fd30 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a2, t01=0x0026}
0x0fd30…0fd46 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x00a2, t01=0x0038}
0x0fd46…0fd5c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a2, t01=0x004e}
0x0fd5c…0fd86 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a2, t01=0x0064}
0x0fd86…0fd9a Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x00a2, t01=0x008e}
0x0fd9a…0fdc0 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x00a2, t01=0x00a2}
0x0fdc0…0fde8 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a2, t01=0x00c8}
0x0fde8…0fe10 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a2, t01=0x00f0}
0x0fe10…0fe36 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a2, t01=0x0118}
0x0fe36…0fe62 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a2, t01=0x013e}
0x0fe62…0fe94 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a2, t01=0x016a}
0x0fe94…0feb4 Head {h00=0x001c, h01=0x0050, text=» ADKL A9,SDC NEXT CLASS «, t00=0x00a3, t01=0x000c}
0x0feb4…0fee0 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x00a3, t01=0x002c}
0x0fee0…0fef2 Head {h00=0x000e, h01=0x0050, text=» RB BTT50 «, t00=0x00a3, t01=0x0058}
0x0fef2…0ff06 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x00a3, t01=0x006a}
0x0ff06…0ff18 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x00a3, t01=0x007e}
0x0ff18…0ff42 Head {h00=0x0026, h01=0x0050, text=» ADKL A10,14 7 EXTRA WORDS FOR EDM«, t00=0x00a3, t01=0x0090}
0x0ff42…0ff4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x00ba}
0x0ff4e…0ff74 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x00a3, t01=0x00c6}
0x0ff74…0ffac Head {h00=0x0034, h01=0x0050, text=» LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00a3, t01=0x00ec}
0x0ffac…0ffea Head {h00=0x003a, h01=0x0050, text=» LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00a3, t01=0x0124}
0x0ffea…0fffe Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x00a3, t01=0x0162}
0x0fffe…10012 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT70«, t00=0x00a3, t01=0x0176}
0x10012…10034 Head {h00=0x001e, h01=0x0050, text=» ST A9,STKEND+WRK3 SAVE A9«, t00=0x00a3, t01=0x018a}
0x10034…10058 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK4 SAVE A11«, t00=0x00a4, t01=0x001c}
0x10058…1007c Head {h00=0x0020, h01=0x0050, text=» LDR A9,A10 GET TTAB LENGTH «, t00=0x00a4, t01=0x0040}
0x1007c…100b4 Head {h00=0x0034, h01=0x0050, text=» AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2«, t00=0x00a4, t01=0x0064}
0x100b4…100d4 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+SFASAV =2«, t00=0x00a4, t01=0x009c}
0x100d4…10108 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x00a4, t01=0x00bc}
0x10108…10136 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00a4, t01=0x00f0}
0x10136…10154 Head {h00=0x001a, h01=0x0050, text=» RF(NL) BTT61 NOT YET «, t00=0x00a4, t01=0x011e}
0x10154…10182 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a4, t01=0x013c}
0x10182…10196 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a4, t01=0x016a}
0x10196…101c0 Head {h00=0x0026, h01=0x0050, text=»BTT61 LD A9,STKEND+WRK3 RESTORE A9«, t00=0x00a4, t01=0x017e}
0x101c0…101e8 Head {h00=0x0024, h01=0x0050, text=» LD A11,STKEND+WRK4 RESTORE A11 «, t00=0x00a5, t01=0x0018}
0x101e8…101f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0040}
0x101f2…1022e Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x00a5, t01=0x004a}
0x1022e…10238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0086}
0x10238…10252 Head {h00=0x0016, h01=0x0050, text=» ST A6,TTB:TD,A12 «, t00=0x00a5, t01=0x0090}
0x10252…1025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x00aa}
0x1025c…1029a Head {h00=0x003a, h01=0x0050, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x00a5, t01=0x00b4}
0x1029a…102a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x00f2}
0x102a4…102d0 Head {h00=0x0028, h01=0x0050, text=» LD A5,STKEND+TSKLEV GET TASK LEVEL «, t00=0x00a5, t01=0x00fc}
0x102d0…102f8 Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x00a5, t01=0x0128}
0x102f8…10302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0150}
0x10302…10342 Head {h00=0x003c, h01=0x0050, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x00a5, t01=0x015a}
0x10342…1034c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x000a}
0x1034c…10376 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x00a6, t01=0x0014}
0x10376…1038c Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x00a6, t01=0x003e}
0x1038c…103b2 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00a6, t01=0x0054}
0x103b2…103d0 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x00a6, t01=0x007a}
0x103d0…103f4 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x00a6, t01=0x0098}
0x103f4…1041c Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x00a6, t01=0x00bc}
0x1041c…10432 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x00a6, t01=0x00e4}
0x10432…1045c Head {h00=0x0026, h01=0x0050, text=» CALL MMUINI INITIALIZE MMU TABLE «, t00=0x00a6, t01=0x00fa}
0x1045c…10468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a6, t01=0x0124}
0x10468…10472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0130}
0x10472…1049e Head {h00=0x0028, h01=0x0050, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x00a6, t01=0x013a}
0x1049e…104a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0166}
0x104a8…104d6 Head {h00=0x002a, h01=0x0050, text=»BTT62 LD A5,STKEND+TASKID GET TASK ID «, t00=0x00a6, t01=0x0170}
0x104d6…104fe Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x00a7, t01=0x000e}
0x104fe…10522 Head {h00=0x0020, h01=0x0050, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x00a7, t01=0x0036}
0x10522…1055e Head {h00=0x0038, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS«, t00=0x00a7, t01=0x005a}
0x1055e…10592 Head {h00=0x0030, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK«, t00=0x00a7, t01=0x0096}
0x10592…105c2 Head {h00=0x002c, h01=0x0050, text=» ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB «, t00=0x00a7, t01=0x00ca}
0x105c2…105ea Head {h00=0x0024, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPL. TYPE «, t00=0x00a7, t01=0x00fa}
0x105ea…10606 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'CR' CREDIT?«, t00=0x00a7, t01=0x0122}
0x10606…1061e Head {h00=0x0014, h01=0x0050, text=» RF(NE) BTT65 NO«, t00=0x00a7, t01=0x013e}
0x1061e…10628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0156}
0x10628…10654 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x00a7, t01=0x0160}
0x10654…1065e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x018c}
0x1065e…1068e Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLSAV GET TCL START VALUE«, t00=0x00a8, t01=0x0008}
0x1068e…106b4 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x00a8, t01=0x0038}
0x106b4…106d4 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x00a8, t01=0x005e}
0x106d4…106f6 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x00a8, t01=0x007e}
0x106f6…1070a Head {h00=0x0010, h01=0x0050, text=»BTT65 EQU * «, t00=0x00a8, t01=0x00a0}
0x1070a…1073a Head {h00=0x002c, h01=0x0050, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x00a8, t01=0x00b4}
0x1073a…10760 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00a8, t01=0x00e4}
0x10760…1079a Head {h00=0x0036, h01=0x0050, text=» ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY «, t00=0x00a8, t01=0x010a}
0x1079a…107d2 Head {h00=0x0034, h01=0x0050, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x00a8, t01=0x0144}
0x107d2…1080c Head {h00=0x0036, h01=0x0050, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x00a8, t01=0x017c}
0x1080c…1081e Head {h00=0x000e, h01=0x0050, text=» RB BTT60 «, t00=0x00a9, t01=0x0026}
0x1081e…1082c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x0038}
0x1082c…10840 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x00a9, t01=0x0046}
0x10840…1084a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x005a}
0x1084a…10878 Head {h00=0x002a, h01=0x0050, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x00a9, t01=0x0064}
0x10878…10882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0092}
0x10882…108a0 Head {h00=0x001a, h01=0x0050, text=» LD A12,STKEND+SFASAV «, t00=0x00a9, t01=0x009c}
0x108a0…108b4 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x00a9, t01=0x00ba}
0x108b4…108d8 Head {h00=0x0020, h01=0x0050, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x00a9, t01=0x00ce}
0x108d8…10904 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00a9, t01=0x00f2}
0x10904…1091a Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x00a9, t01=0x011e}
0x1091a…10934 Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK2 «, t00=0x00a9, t01=0x0134}
0x10934…10948 Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x00a9, t01=0x014e}
0x10948…1096e Head {h00=0x0022, h01=0x0050, text=» CALL NXTAPL NEXT APPLICATION «, t00=0x00a9, t01=0x0162}
0x1096e…10982 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT98«, t00=0x00a9, t01=0x0188}
0x10982…1099c Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK1 «, t00=0x00aa, t01=0x000c}
0x1099c…109d0 Head {h00=0x0030, h01=0x0050, text=»BTT98 ST A12,SCTSFA SAVE START OF FREE AREA «, t00=0x00aa, t01=0x0026}
0x109d0…109f4 Head {h00=0x0020, h01=0x0050, text=» SU A7,SCTTCT COMPUTE LENGTH«, t00=0x00aa, t01=0x005a}
0x109f4…10a10 Head {h00=0x0018, h01=0x0050, text=» ST* A7,SCTTCT STORE«, t00=0x00aa, t01=0x007e}
0x10a10…10a28 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00aa, t01=0x009a}
0x10a28…10a3e Head {h00=0x0012, h01=0x0050, text=» IFF SWPBLK=0 «, t00=0x00aa, t01=0x00b2}
0x10a3e…10a4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x00c8}
0x10a4c…10a60 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x00aa, t01=0x00d6}
0x10a60…10a88 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE REGISTER A1-A14 «, t00=0x00aa, t01=0x00ea}
0x10a88…10aae Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0112}
0x10aae…10ad4 Head {h00=0x0022, h01=0x0050, text=» ANK A1,8 SWB OPTION INCLUDED «, t00=0x00aa, t01=0x0138}
0x10ad4…10aec Head {h00=0x0014, h01=0x0050, text=» RF(Z) BSWT42 NO«, t00=0x00aa, t01=0x015e}
0x10aec…10b20 Head {h00=0x0030, h01=0x0050, text=» CM STKCOM+APPLNO RESET APPLICATION COUNTER «, t00=0x00aa, t01=0x0176}
0x10b20…10b50 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+LIMIT SAVE LOCATION COUNTER«, t00=0x00ab, t01=0x001a}
0x10b50…10b84 Head {h00=0x0030, h01=0x0050, text=»BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT «, t00=0x00ab, t01=0x004a}
0x10b84…10bb4 Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP GET NEXT CREDIT APPLICATION«, t00=0x00ab, t01=0x007e}
0x10bb4…10bde Head {h00=0x0026, h01=0x0050, text=» RF(Z) BSWT42 NO MORE APPLICATIONS«, t00=0x00ab, t01=0x00ae}
0x10bde…10c02 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A1 GET ACB ADDRESS «, t00=0x00ab, t01=0x00d8}
0x10c02…10c24 Head {h00=0x001e, h01=0x0050, text=» ST A10,STKEND+APCSTA SAVE«, t00=0x00ab, t01=0x00fc}
0x10c24…10c4e Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00ab, t01=0x011e}
0x10c4e…10c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0148}
0x10c58…10c96 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x00ab, t01=0x0152}
0x10c96…10ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0190}
0x10ca0…10cca Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ac, t01=0x000a}
0x10cca…10cf6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ac, t01=0x0034}
0x10cf6…10d10 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x00ac, t01=0x0060}
0x10d10…10d44 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x00ac, t01=0x007a}
0x10d44…10d5e Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x00ac, t01=0x00ae}
0x10d5e…10d72 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x00ac, t01=0x00c8}
0x10d72…10d98 Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x00ac, t01=0x00dc}
0x10d98…10dce Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x00ac, t01=0x0102}
0x10dce…10de8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x00ac, t01=0x0138}
0x10de8…10e0c Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x00ac, t01=0x0152}
0x10e0c…10e20 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ac, t01=0x0176}
0x10e20…10e4a Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x00ac, t01=0x018a}
0x10e4a…10e62 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x00ad, t01=0x0024}
0x10e62…10e8a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ad, t01=0x003c}
0x10e8a…10eb6 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x00ad, t01=0x0064}
0x10eb6…10ee2 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x00ad, t01=0x0090}
0x10ee2…10f0a Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x00ad, t01=0x00bc}
0x10f0a…10f2a Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x00ad, t01=0x00e4}
0x10f2a…10f5a Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x00ad, t01=0x0104}
0x10f5a…10f8e Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x00ad, t01=0x0134}
0x10f8e…10fa8 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x00ad, t01=0x0168}
0x10fa8…10fd4 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x00ad, t01=0x0182}
0x10fd4…11000 Head {h00=0x0028, h01=0x0050, text=» ST A1,APLSWB,A10 CLEAR SWB POINTER «, t00=0x00ae, t01=0x001e}
0x11000…1103e Head {h00=0x003a, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 «, t00=0x00ae, t01=0x004a}
0x1103e…11068 Head {h00=0x0026, h01=0x0050, text=»BSWT42 CALL POB RESTORE REGISTERS «, t00=0x00ae, t01=0x0088}
0x11068…11078 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ae, t01=0x00b2}
0x11078…110a2 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x00ae, t01=0x00c2}
0x110a2…110d4 Head {h00=0x002e, h01=0x0050, text=» ST A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00ae, t01=0x00ec}
0x110d4…110e8 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ae, t01=0x011e}
0x110e8…1110a Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x00ae, t01=0x0132}
0x1110a…11122 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x00ae, t01=0x0154}
0x11122…1114a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ae, t01=0x016c}
0x1114a…1117e (175, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS «, t00=0x00af, t01=0x0004}
0x1117e…1119e Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK1 SAVE «, t00=0x00af, t01=0x0038}
0x1119e…111d0 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP«, t00=0x00af, t01=0x0058}
0x111d0…111f4 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x00af, t01=0x008a}
0x111f4…1121a Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x00af, t01=0x00ae}
0x1121a…1122e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00af, t01=0x00d4}
0x1122e…1126c Head {h00=0x003a, h01=0x0050, text=»BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE«, t00=0x00af, t01=0x00e8}
0x1126c…1129e Head {h00=0x002e, h01=0x0050, text=» CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER «, t00=0x00af, t01=0x0126}
0x1129e…112c0 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x00af, t01=0x0158}
0x112c0…112da Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x00af, t01=0x017a}
0x112da…11302 (176, 0, 400) Head {h00=0x0024, h01=0x0050, text=»BSWT50 ADKL A10,2 BYPASS POINTER«, t00=0x00b0, t01=0x0004}
0x11302…1132e Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF TYPES «, t00=0x00b0, t01=0x002c}
0x1132e…11344 Head {h00=0x0012, h01=0x0050, text=» RB(P) BSWT50 «, t00=0x00b0, t01=0x0058}
0x11344…1134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x006e}
0x1134e…11378 Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x00b0, t01=0x0078}
0x11378…11382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00a2}
0x11382…113b2 Head {h00=0x002c, h01=0x0050, text=» LD A2,STKEND+APCSTA GET ADDRESS TO ACB «, t00=0x00b0, t01=0x00ac}
0x113b2…113dc Head {h00=0x0026, h01=0x0050, text=» LD* A1,APLMMC,A2 GET TTAB ADDRESS«, t00=0x00b0, t01=0x00dc}
0x113dc…11404 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A1 LOAD MMU REGISTERS«, t00=0x00b0, t01=0x0106}
0x11404…11430 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A2 GET P:MTAB ADDRESS «, t00=0x00b0, t01=0x012e}
0x11430…11458 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x00b0, t01=0x015a}
0x11458…11470 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b0, t01=0x0182}
0x11470…114a0 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x00b1, t01=0x000a}
0x114a0…114c8 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x00b1, t01=0x003a}
0x114c8…114f6 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x00b1, t01=0x0062}
0x114f6…11524 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x00b1, t01=0x0090}
0x11524…11546 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x00b1, t01=0x00be}
0x11546…11568 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+SWBNAM SAVE «, t00=0x00b1, t01=0x00e0}
0x11568…1159c Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x00b1, t01=0x0102}
0x1159c…115cc Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x00b1, t01=0x0136}
0x115cc…115e4 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x00b1, t01=0x0166}
0x115e4…115ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x017e}
0x115ee…11624 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION «, t00=0x00b1, t01=0x0188}
0x11624…1162e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x002e}
0x1162e…1164e Head {h00=0x001c, h01=0x0050, text=» XRR A2,A2 RESET COUNTER«, t00=0x00b2, t01=0x0038}
0x1164e…11676 Head {h00=0x0024, h01=0x0050, text=»BSWT52 SUK A1,6 DECREMENT LENGTH«, t00=0x00b2, t01=0x0058}
0x11676…1169e Head {h00=0x0024, h01=0x0050, text=» RF(N) BSWT55 NO MORE SWB-BLOCKS«, t00=0x00b2, t01=0x0080}
0x1169e…116c4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 INCR. BLOCK COUNTER «, t00=0x00b2, t01=0x00a8}
0x116c4…116d6 Head {h00=0x000e, h01=0x0050, text=» RB BSWT52«, t00=0x00b2, t01=0x00ce}
0x116d6…116fc Head {h00=0x0022, h01=0x0050, text=»BSWT55 SLL A2,3 MULTIPLY BY 8 «, t00=0x00b2, t01=0x00e0}
0x116fc…11724 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A10 GET START OF BLOCKS «, t00=0x00b2, t01=0x0106}
0x11724…11742 Head {h00=0x001a, h01=0x0050, text=» ADR A9,A2 ADD LENGTH «, t00=0x00b2, t01=0x012e}
0x11742…11770 Head {h00=0x002a, h01=0x0050, text=» LD A11,STKEND+LIMIT GET CURRENT LIMIT«, t00=0x00b2, t01=0x014c}
0x11770…11796 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00b2, t01=0x017a}
0x11796…117b0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BSWT57 NO!«, t00=0x00b3, t01=0x0010}
0x117b0…117de Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00b3, t01=0x002a}
0x117de…117f2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b3, t01=0x0058}
0x117f2…1181a Head {h00=0x0024, h01=0x0050, text=»BSWT57 SUK A4,2 SKIP LENGTH WORD«, t00=0x00b3, t01=0x006c}
0x1181a…11840 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x00b3, t01=0x0094}
0x11840…11870 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x00b3, t01=0x00ba}
0x11870…11892 Head {h00=0x001e, h01=0x0050, text=» ST A4,STKEND+SWBTBL SAVE «, t00=0x00b3, t01=0x00ea}
0x11892…118c4 Head {h00=0x002e, h01=0x0050, text=» LD A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00b3, t01=0x010c}
0x118c4…118f6 Head {h00=0x002e, h01=0x0050, text=» LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS«, t00=0x00b3, t01=0x013e}
0x118f6…1192e Head {h00=0x0034, h01=0x0050, text=»BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. «, t00=0x00b3, t01=0x0170}
0x1192e…11956 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x00b4, t01=0x0018}
0x11956…11982 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x00b4, t01=0x0040}
0x11982…119a6 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x00b4, t01=0x006c}
0x119a6…119ca Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x00b4, t01=0x0090}
0x119ca…119f0 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x00b4, t01=0x00b4}
0x119f0…11a1a Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x00b4, t01=0x00da}
0x11a1a…11a34 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x00b4, t01=0x0104}
0x11a34…11a5a Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x00b4, t01=0x011e}
0x11a5a…11a7e Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x00b4, t01=0x0144}
0x11a7e…11a9e Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x00b4, t01=0x0168}
0x11a9e…11ad2 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x00b4, t01=0x0188}
0x11ad2…11af4 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x00b5, t01=0x002c}
0x11af4…11b1a Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x00b5, t01=0x004e}
0x11b1a…11b34 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x00b5, t01=0x0074}
0x11b34…11b5c Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x00b5, t01=0x008e}
0x11b5c…11b88 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x00b5, t01=0x00b6}
0x11b88…11ba8 Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x00b5, t01=0x00e2}
0x11ba8…11bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0102}
0x11bb2…11c04 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x00b5, t01=0x010c}
0x11c04…11c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x015e}
0x11c0e…11c2c Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x00b5, t01=0x0168}
0x11c2c…11c4a Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x00b5, t01=0x0186}
0x11c4a…11c68 Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x00b6, t01=0x0014}
0x11c68…11c86 Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x00b6, t01=0x0032}
0x11c86…11c98 Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x00b6, t01=0x0050}
0x11c98…11cac Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x00b6, t01=0x0062}
0x11cac…11cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0076}
0x11cb6…11cd4 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x00b6, t01=0x0080}
0x11cd4…11cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x009e}
0x11cde…11d10 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES«, t00=0x00b6, t01=0x00a8}
0x11d10…11d2c Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 DECREMENT «, t00=0x00b6, t01=0x00da}
0x11d2c…11d4c Head {h00=0x001c, h01=0x0050, text=» ST A3,STKEND+WRK1 SAVE «, t00=0x00b6, t01=0x00f6}
0x11d4c…11d76 Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x00b6, t01=0x0116}
0x11d76…11d8a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00b6, t01=0x0140}
0x11d8a…11daa Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x00b6, t01=0x0154}
0x11daa…11dd4 Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x00b6, t01=0x0174}
0x11dd4…11e04 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 NUMBER OF COPIES IN LEFT BYTE «, t00=0x00b7, t01=0x000e}
0x11e04…11e46 Head {h00=0x003e, h01=0x0050, text=» OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE«, t00=0x00b7, t01=0x003e}
0x11e46…11e6c Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x00b7, t01=0x0080}
0x11e6c…11e9c Head {h00=0x002c, h01=0x0050, text=» SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE«, t00=0x00b7, t01=0x00a6}
0x11e9c…11ed4 Head {h00=0x0034, h01=0x0050, text=» LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 «, t00=0x00b7, t01=0x00d6}
0x11ed4…11eee Head {h00=0x0016, h01=0x0050, text=» ST A8,2,A10 SAVE «, t00=0x00b7, t01=0x010e}
0x11eee…11f10 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x00b7, t01=0x0128}
0x11f10…11f38 Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x00b7, t01=0x014a}
0x11f38…11f62 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x00b7, t01=0x0172}
0x11f62…11f7a Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b8, t01=0x000c}
0x11f7a…11fa4 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x00b8, t01=0x0024}
0x11fa4…11fb8 Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x00b8, t01=0x004e}
0x11fb8…11fe6 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x00b8, t01=0x0062}
0x11fe6…1201a Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x00b8, t01=0x0090}
0x1201a…12040 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x00b8, t01=0x00c4}
0x12040…12078 Head {h00=0x0034, h01=0x0050, text=»BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS«, t00=0x00b8, t01=0x00ea}
0x12078…1208e Head {h00=0x0012, h01=0x0050, text=» RF(O) BSWT88 «, t00=0x00b8, t01=0x0122}
0x1208e…120a0 Head {h00=0x000e, h01=0x0050, text=» RF BSWT90«, t00=0x00b8, t01=0x0138}
0x120a0…120c2 Head {h00=0x001e, h01=0x0050, text=»BSWT88 IM STKCOM+SWBFSA+2 «, t00=0x00b8, t01=0x014a}
0x120c2…120dc Head {h00=0x0016, h01=0x0050, text=» CM STKCOM+SWBFSA «, t00=0x00b8, t01=0x016c}
0x120dc…120f0 Head {h00=0x0010, h01=0x0050, text=»BSWT90 EQU *«, t00=0x00b8, t01=0x0186}
0x120f0…1211a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x00b9, t01=0x000a}
0x1211a…12140 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,256 DECREMENT LENGTH «, t00=0x00b9, t01=0x0034}
0x12140…12164 Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT86 MOORE SECTORS?«, t00=0x00b9, t01=0x005a}
0x12164…12184 Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x00b9, t01=0x007e}
0x12184…1219e Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x00b9, t01=0x009e}
0x1219e…121cc Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x00b9, t01=0x00b8}
0x121cc…12202 Head {h00=0x0032, h01=0x0050, text=» IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER «, t00=0x00b9, t01=0x00e6}
0x12202…12220 Head {h00=0x001a, h01=0x0050, text=» LD A8,STKCOM+SWBFSA+2«, t00=0x00b9, t01=0x011c}
0x12220…1223e Head {h00=0x001a, h01=0x0050, text=» CW A8,STKCOM+SWBFSE+2«, t00=0x00b9, t01=0x013a}
0x1223e…1226a Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 $SWAP-FILE TOO SMALL! «, t00=0x00b9, t01=0x0158}
0x1226a…12280 Head {h00=0x0012, h01=0x0050, text=» RF(L) BSWT95 «, t00=0x00b9, t01=0x0184}
0x12280…1229c Head {h00=0x0018, h01=0x0050, text=» LD A8,STKCOM+SWBFSA«, t00=0x00ba, t01=0x000a}
0x1229c…122b8 Head {h00=0x0018, h01=0x0050, text=» CW A8,STKCOM+SWBFSE«, t00=0x00ba, t01=0x0026}
0x122b8…122e4 Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 SWAPP-FILE TOO SMALL! «, t00=0x00ba, t01=0x0042}
0x122e4…12312 Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x00ba, t01=0x006e}
0x12312…12332 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x00ba, t01=0x009c}
0x12332…1235c Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x00ba, t01=0x00bc}
0x1235c…12398 Head {h00=0x0038, h01=0x0050, text=» LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB «, t00=0x00ba, t01=0x00e6}
0x12398…123ca Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x00ba, t01=0x0122}
0x123ca…123ec Head {h00=0x001e, h01=0x0050, text=» ST A2,STKEND+SWBNAM SAVE «, t00=0x00ba, t01=0x0154}
0x123ec…12424 Head {h00=0x0034, h01=0x0050, text=» LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB «, t00=0x00ba, t01=0x0176}
0x12424…12444 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x00bb, t01=0x001e}
0x12444…12466 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x00bb, t01=0x003e}
0x12466…12498 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED?«, t00=0x00bb, t01=0x0060}
0x12498…124b2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BSWT98 NO! «, t00=0x00bb, t01=0x0092}
0x124b2…124e4 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? «, t00=0x00bb, t01=0x00ac}
0x124e4…12500 Head {h00=0x0018, h01=0x0050, text=» RF(NP) BSWT99 YES! «, t00=0x00bb, t01=0x00de}
0x12500…1251c Head {h00=0x0018, h01=0x0050, text=»BSWT98 LDKL A1,LMP6 «, t00=0x00bb, t01=0x00fa}
0x1251c…1253a Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x00bb, t01=0x0116}
0x1253a…12570 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bb, t01=0x0134}
0x12570…125a6 Head {h00=0x0032, h01=0x0050, text=» LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS «, t00=0x00bb, t01=0x016a}
0x125a6…125d4 Head {h00=0x002a, h01=0x0050, text=» ST* A9,APLSWB,A10 NUMBER OF SWB TYPES«, t00=0x00bc, t01=0x0010}
0x125d4…1260e Head {h00=0x0036, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION«, t00=0x00bc, t01=0x003e}
0x1260e…1261a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x0078}
0x1261a…12636 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x00bc, t01=0x0084}
0x12636…12644 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x00a0}
0x12644…12680 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bc, t01=0x00ae}
0x12680…126bc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bc, t01=0x00ea}
0x126bc…126f8 Head {h00=0x0038, h01=0x0050, text=»* B:STAB - BUILD SEGMENT TABLES * «, t00=0x00bc, t01=0x0126}
0x126f8…12734 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x00bc, t01=0x0162}
0x12734…12770 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x000e}
0x12770…127ac Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x00bd, t01=0x004a}
0x127ac…127e8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0086}
0x127e8…12824 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: * «, t00=0x00bd, t01=0x00c2}
0x12824…12860 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x00fe}
0x12860…1289c Head {h00=0x0038, h01=0x0050, text=»* EXIT: * «, t00=0x00bd, t01=0x013a}
0x1289c…128d8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0176}
0x128d8…12914 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * «, t00=0x00be, t01=0x0022}
0x12914…12950 Head {h00=0x0038, h01=0x0050, text=»* CONTENTS ARE SAVED ON STACK * «, t00=0x00be, t01=0x005e}
0x12950…1298c Head {h00=0x0038, h01=0x0050, text=»* AND RESTORED BEFORE EXIT) * «, t00=0x00be, t01=0x009a}
0x1298c…129c8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x00d6}
0x129c8…12a04 Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x00be, t01=0x0112}
0x12a04…12a40 Head {h00=0x0038, h01=0x0050, text=»* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * «, t00=0x00be, t01=0x014e}
0x12a40…12a7c Head {h00=0x0038, h01=0x0050, text=»* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * «, t00=0x00be, t01=0x018a}
0x12a7c…12ab8 Head {h00=0x0038, h01=0x0050, text=»* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * «, t00=0x00bf, t01=0x0036}
0x12ab8…12af4 Head {h00=0x0038, h01=0x0050, text=»* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * «, t00=0x00bf, t01=0x0072}
0x12af4…12b30 Head {h00=0x0038, h01=0x0050, text=»* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * «, t00=0x00bf, t01=0x00ae}
0x12b30…12b6c Head {h00=0x0038, h01=0x0050, text=»* CATIONS CONTAIN ZERO. * «, t00=0x00bf, t01=0x00ea}
0x12b6c…12ba8 Head {h00=0x0038, h01=0x0050, text=»* FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * «, t00=0x00bf, t01=0x0126}
0x12ba8…12be4 Head {h00=0x0038, h01=0x0050, text=»* TABLE PER APPLICATION IS GENERATED. STATUS, * «, t00=0x00bf, t01=0x0162}
0x12be4…12c20 Head {h00=0x0038, h01=0x0050, text=»* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * «, t00=0x00c0, t01=0x000e}
0x12c20…12c5c Head {h00=0x0038, h01=0x0050, text=»* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * «, t00=0x00c0, t01=0x004a}
0x12c5c…12c98 Head {h00=0x0038, h01=0x0050, text=»* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * «, t00=0x00c0, t01=0x0086}
0x12c98…12cd4 Head {h00=0x0038, h01=0x0050, text=»* TASK IN THE APPLICATION. * «, t00=0x00c0, t01=0x00c2}
0x12cd4…12d10 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x00fe}
0x12d10…12d4c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c0, t01=0x013a}
0x12d4c…12d5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0176}
0x12d5a…12d6e Head {h00=0x0010, h01=0x0050, text=»B:STAB EQU *«, t00=0x00c0, t01=0x0184}
0x12d6e…12d96 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE A1-A14 ON STACK «, t00=0x00c1, t01=0x0008}
0x12d96…12dc0 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00c1, t01=0x0030}
0x12dc0…12de6 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET LIMIT FOR WRITE «, t00=0x00c1, t01=0x005a}
0x12de6…12e26 Head {h00=0x003c, h01=0x0050, text=»BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB «, t00=0x00c1, t01=0x0080}
0x12e26…12e58 Head {h00=0x002e, h01=0x0050, text=» CALL NXTAPL GET NEXT APPL. CONTROL BLOCK «, t00=0x00c1, t01=0x00c0}
0x12e58…12e7c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BST020 NOT LAST YET «, t00=0x00c1, t01=0x00f2}
0x12e7c…12ea6 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x00c1, t01=0x0116}
0x12ea6…12ec8 Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x00c1, t01=0x0140}
0x12ec8…12eda Head {h00=0x000e, h01=0x0050, text=» RF BST040«, t00=0x00c1, t01=0x0162}
0x12eda…12f12 Head {h00=0x0034, h01=0x0050, text=»BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES «, t00=0x00c1, t01=0x0174}
0x12f12…12f3a Head {h00=0x0024, h01=0x0050, text=»BST040 ST A2,STKEND+TCTEND SAVE «, t00=0x00c2, t01=0x001c}
0x12f3a…12f4c Head {h00=0x000e, h01=0x0050, text=» LDR A8,P «, t00=0x00c2, t01=0x0044}
0x12f4c…12f88 Head {h00=0x0038, h01=0x0050, text=»BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS«, t00=0x00c2, t01=0x0056}
0x12f88…12fbe Head {h00=0x0032, h01=0x0050, text=» LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE«, t00=0x00c2, t01=0x0092}
0x12fbe…12fea Head {h00=0x0028, h01=0x0050, text=» CWK A5,'AS' ASSEMBLER APPLICATION? «, t00=0x00c2, t01=0x00c8}
0x12fea…13020 Head {h00=0x0032, h01=0x0050, text=» ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! «, t00=0x00c2, t01=0x00f4}
0x13020…13050 Head {h00=0x002c, h01=0x0050, text=» LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY «, t00=0x00c2, t01=0x012a}
0x13050…1306c Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c2, t01=0x015a}
0x1306c…13086 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST050 NO «, t00=0x00c2, t01=0x0176}
0x13086…130aa Head {h00=0x0020, h01=0x0050, text=» SUR A2,A8 2*NUMBER OF TASKS«, t00=0x00c2, t01=0x0190}
0x130aa…130cc Head {h00=0x001e, h01=0x0050, text=» SRL A2,1 NUMBER OF TASKS «, t00=0x00c3, t01=0x0024}
0x130cc…130ec Head {h00=0x001c, h01=0x0050, text=» ST A2,STKEND+WRK1 SAVE «, t00=0x00c3, t01=0x0046}
0x130ec…1310a Head {h00=0x001a, h01=0x0050, text=» ST A2,APLNPE,A10 SAVE«, t00=0x00c3, t01=0x0066}
0x1310a…1313c Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c3, t01=0x0084}
0x1313c…1315c Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c3, t01=0x00b6}
0x1315c…13184 Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c3, t01=0x00d6}
0x13184…131a2 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A3 SAVE LENGTH«, t00=0x00c3, t01=0x00fe}
0x131a2…131da Head {h00=0x0034, h01=0x0050, text=» CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA «, t00=0x00c3, t01=0x011c}
0x131da…131ec Head {h00=0x000e, h01=0x0050, text=» RF BST090«, t00=0x00c3, t01=0x0154}
0x131ec…131fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x0166}
0x131fa…13226 Head {h00=0x0028, h01=0x0050, text=»BST050 LD A2,SCTOPT GET OPTION WORD «, t00=0x00c3, t01=0x0174}
0x13226…1323c Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MMU?«, t00=0x00c4, t01=0x0010}
0x1323c…13254 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BST070 NO«, t00=0x00c4, t01=0x0026}
0x13254…13278 Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 GET TTAB ADDRESS«, t00=0x00c4, t01=0x003e}
0x13278…1329c Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x00c4, t01=0x0062}
0x1329c…132ca Head {h00=0x002a, h01=0x0050, text=»BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB«, t00=0x00c4, t01=0x0086}
0x132ca…132f8 Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00c4, t01=0x00b4}
0x132f8…13324 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET NUMBER OF SEGMENTS «, t00=0x00c4, t01=0x00e2}
0x13324…1333c Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00c4, t01=0x010e}
0x1333c…13354 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00c4, t01=0x0126}
0x13354…13374 Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c4, t01=0x013e}
0x13374…1339c Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c4, t01=0x015e}
0x1339c…133d0 Head {h00=0x0030, h01=0x0050, text=»BST090 LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00c4, t01=0x0186}
0x133d0…133fc Head {h00=0x0028, h01=0x0050, text=» LDR A2,A11 SAVE CONF. DATA POINTER «, t00=0x00c5, t01=0x002a}
0x133fc…13416 Head {h00=0x0016, h01=0x0050, text=» LDR A11,A12 SAVE «, t00=0x00c5, t01=0x0056}
0x13416…13444 Head {h00=0x002a, h01=0x0050, text=» ADR A11,A3 END OF SEGMENT TABLE AREA «, t00=0x00c5, t01=0x0070}
0x13444…1346a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00c5, t01=0x009e}
0x1346a…13484 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST100 NO «, t00=0x00c5, t01=0x00c4}
0x13484…134b2 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00c5, t01=0x00de}
0x134b2…134c6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00c5, t01=0x010c}
0x134c6…134fe Head {h00=0x0034, h01=0x0050, text=»BST100 ST A11,SCTSFA INDICATE START OF FREE AREA«, t00=0x00c5, t01=0x0120}
0x134fe…1352c Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 RESTORE CONF. DATA POINTER«, t00=0x00c5, t01=0x0158}
0x1352c…13548 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c5, t01=0x0186}
0x13548…13562 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST200 NO «, t00=0x00c6, t01=0x0012}
0x13562…13590 Head {h00=0x002a, h01=0x0050, text=» LD A2,STKEND+WRK1 GET NUMBER OF TASKS«, t00=0x00c6, t01=0x002c}
0x13590…135c2 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c6, t01=0x005a}
0x135c2…135f6 Head {h00=0x0030, h01=0x0050, text=» ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK«, t00=0x00c6, t01=0x008c}
0x135f6…13612 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x00c6, t01=0x00c0}
0x13612…13640 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A3 GET MAX NUMBER OF SEGMENTS «, t00=0x00c6, t01=0x00dc}
0x13640…1367e Head {h00=0x003a, h01=0x0050, text=» ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c6, t01=0x010a}
0x1367e…136bc Head {h00=0x003a, h01=0x0050, text=» ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL«, t00=0x00c6, t01=0x0148}
0x136bc…136ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x0186}
0x136ca…136d4 (199, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0004}
0x136d4…136f8 Head {h00=0x0020, h01=0x0050, text=»* CLEAR SEGMENT TABLE AREA «, t00=0x00c7, t01=0x000e}
0x136f8…13702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0032}
0x13702…13736 Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTSFA GET END OF SEGMENT TABLE AREA «, t00=0x00c7, t01=0x003c}
0x13736…13760 Head {h00=0x0026, h01=0x0050, text=»BST110 SUK A2,2 DECREMENT POINTER «, t00=0x00c7, t01=0x0070}
0x13760…13776 Head {h00=0x0012, h01=0x0050, text=» CMR A2 CLEAR «, t00=0x00c7, t01=0x009a}
0x13776…137a6 Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 START OF SEGMENT TABLE AREA?«, t00=0x00c7, t01=0x00b0}
0x137a6…137c4 Head {h00=0x001a, h01=0x0050, text=» RB(NE) BST110 NOT YET«, t00=0x00c7, t01=0x00e0}
0x137c4…137f6 Head {h00=0x002e, h01=0x0050, text=»BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH «, t00=0x00c7, t01=0x00fe}
0x137f6…13826 Head {h00=0x002c, h01=0x0050, text=» CW A2,SCTSFA END OF SEGMENT TABLE AREA?«, t00=0x00c7, t01=0x0130}
0x13826…13840 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00c7, t01=0x0160}
0x13840…13876 Head {h00=0x0032, h01=0x0050, text=» ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE «, t00=0x00c7, t01=0x017a}
0x13876…138ac Head {h00=0x0032, h01=0x0050, text=» ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE «, t00=0x00c8, t01=0x0020}
0x138ac…138dc Head {h00=0x002c, h01=0x0050, text=» ADR A12,A4 START OF NEXT SEGMENT TABLE «, t00=0x00c8, t01=0x0056}
0x138dc…138f4 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A12 SAVE«, t00=0x00c8, t01=0x0086}
0x138f4…13906 Head {h00=0x000e, h01=0x0050, text=» RB BST120«, t00=0x00c8, t01=0x009e}
0x13906…1393a Head {h00=0x0030, h01=0x0050, text=»BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x00b0}
0x1393a…13964 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A6 GET NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x00e4}
0x13964…139a2 Head {h00=0x003a, h01=0x0050, text=» ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x010e}
0x139a2…139d6 Head {h00=0x0030, h01=0x0050, text=» LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE «, t00=0x00c8, t01=0x014c}
0x139d6…139f0 Head {h00=0x0016, h01=0x0050, text=» STR A3,A12 STORE «, t00=0x00c8, t01=0x0180}
0x139f0…13a1c Head {h00=0x0028, h01=0x0050, text=» ADKL A12,4 ADDRESS SEGMENT BLOCK 0 «, t00=0x00c9, t01=0x000a}
0x13a1c…13a34 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A12 SAVE«, t00=0x00c9, t01=0x0036}
0x13a34…13a66 Head {h00=0x002e, h01=0x0050, text=»BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x00c9, t01=0x004e}
0x13a66…13a8c Head {h00=0x0022, h01=0x0050, text=» STR A2,A12 STORE IN SEGBLK 0 «, t00=0x00c9, t01=0x0080}
0x13a8c…13aba Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00c9, t01=0x00a6}
0x13aba…13ae4 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET ADDRESS TO P:MTAB«, t00=0x00c9, t01=0x00d4}
0x13ae4…13afc Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00c9, t01=0x00fe}
0x13afc…13b1e Head {h00=0x001e, h01=0x0050, text=» ADK A2,6 ADDRESS TO P:BAS«, t00=0x00c9, t01=0x0116}
0x13b1e…13b3c Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x00c9, t01=0x0138}
0x13b3c…13b62 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A12 STORE IN SEGBLK 0«, t00=0x00c9, t01=0x0156}
0x13b62…13b90 Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00c9, t01=0x017c}
0x13b90…13bbe Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00ca, t01=0x001a}
0x13bbe…13bea Head {h00=0x0028, h01=0x0050, text=»BST220 ADKL A12,8 NEXT SEGMENT BLOCK«, t00=0x00ca, t01=0x0048}
0x13bea…13c0e Head {h00=0x0020, h01=0x0050, text=» SUK A6,1 ANY MORE SEGMENTS?«, t00=0x00ca, t01=0x0074}
0x13c0e…13c26 Head {h00=0x0014, h01=0x0050, text=» RF(N) BST300 NO«, t00=0x00ca, t01=0x0098}
0x13c26…13c48 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INIT STATUS BYTE«, t00=0x00ca, t01=0x00b0}
0x13c48…13c7e Head {h00=0x0032, h01=0x0050, text=» ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK«, t00=0x00ca, t01=0x00d2}
0x13c7e…13cb0 Head {h00=0x002e, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE/DISC ADDRESS«, t00=0x00ca, t01=0x0108}
0x13cb0…13cc8 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00ca, t01=0x013a}
0x13cc8…13cf0 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF ISOLATE DISC ADDRESS«, t00=0x00ca, t01=0x0152}
0x13cf0…13d16 Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 ISOLATE SEGMENT TYPE«, t00=0x00ca, t01=0x017a}
0x13d16…13d42 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x00cb, t01=0x0010}
0x13d42…13d5c Head {h00=0x0016, h01=0x0050, text=» RF(E) BST230 YES «, t00=0x00cb, t01=0x003c}
0x13d5c…13d82 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00cb, t01=0x0056}
0x13d82…13da0 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00cb, t01=0x007c}
0x13da0…13dba Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BST240 YES«, t00=0x00cb, t01=0x009a}
0x13dba…13de0 Head {h00=0x0022, h01=0x0050, text=» XRR A3,A3 CLEAR DISC ADDRESS «, t00=0x00cb, t01=0x00b4}
0x13de0…13e18 Head {h00=0x0034, h01=0x0050, text=» LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cb, t01=0x00da}
0x13e18…13e50 Head {h00=0x0034, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 «, t00=0x00cb, t01=0x0112}
0x13e50…13e62 Head {h00=0x000e, h01=0x0050, text=» RF BST270«, t00=0x00cb, t01=0x014a}
0x13e62…13ea0 Head {h00=0x003a, h01=0x0050, text=»BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cb, t01=0x015c}
0x13ea0…13ece Head {h00=0x002a, h01=0x0050, text=»BST240 ADK A2,2 DISC ADDRESS BIT 8-23 «, t00=0x00cc, t01=0x000a}
0x13ece…13efc Head {h00=0x002a, h01=0x0050, text=» CALL GETCON GET SEGMENT DISC ADDRESS «, t00=0x00cc, t01=0x0038}
0x13efc…13f30 Head {h00=0x0030, h01=0x0050, text=» AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A.«, t00=0x00cc, t01=0x0066}
0x13f30…13f4c Head {h00=0x0018, h01=0x0050, text=» RF(O) BST250 CARRY «, t00=0x00cc, t01=0x009a}
0x13f4c…13f5e Head {h00=0x000e, h01=0x0050, text=» RF BST260«, t00=0x00cc, t01=0x00b6}
0x13f5e…13f8c Head {h00=0x002a, h01=0x0050, text=»BST250 ADK A3,1 INCR. PART 1 OF D. A. «, t00=0x00cc, t01=0x00c8}
0x13f8c…13fbe Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) «, t00=0x00cc, t01=0x00f6}
0x13fbe…13ff6 Head {h00=0x0034, h01=0x0050, text=»BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A.«, t00=0x00cc, t01=0x0128}
0x13ff6…14028 Head {h00=0x002e, h01=0x0050, text=» CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? «, t00=0x00cc, t01=0x0160}
0x14028…14042 (205, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST270 NO!«, t00=0x00cd, t01=0x0004}
0x14042…1406e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 INDICATE DEVICE ERROR«, t00=0x00cd, t01=0x001e}
0x1406e…14082 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cd, t01=0x004a}
0x14082…140b8 Head {h00=0x0032, h01=0x0050, text=»BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS«, t00=0x00cd, t01=0x005e}
0x140b8…140d2 Head {h00=0x0016, h01=0x0050, text=» STR A7,A12 STORE «, t00=0x00cd, t01=0x0094}
0x140d2…14102 Head {h00=0x002c, h01=0x0050, text=» ST A1,2,A12 STORE DISC ADDRESS BIT 8-23«, t00=0x00cd, t01=0x00ae}
0x14102…1412a Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT LENGTH«, t00=0x00cd, t01=0x00de}
0x1412a…14152 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH«, t00=0x00cd, t01=0x0106}
0x14152…14176 Head {h00=0x0020, h01=0x0050, text=» ST A1,4,A12 STORE IN SEGTAB«, t00=0x00cd, t01=0x012e}
0x14176…141a0 Head {h00=0x0026, h01=0x0050, text=» CM 6,A12 CLEAR PAGEBLOCK POINTER «, t00=0x00cd, t01=0x0152}
0x141a0…141b2 Head {h00=0x000e, h01=0x0050, text=» RB BST220«, t00=0x00cd, t01=0x017c}
0x141b2…141e6 Head {h00=0x0030, h01=0x0050, text=»BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY?«, t00=0x00cd, t01=0x018e}
0x141e6…14200 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00ce, t01=0x0032}
0x14200…14224 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 GET TTAB ADDRESS«, t00=0x00ce, t01=0x004c}
0x14224…14258 Head {h00=0x0030, h01=0x0050, text=» ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER«, t00=0x00ce, t01=0x0070}
0x14258…14286 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,2 INCREMENT POINTER IN TCTAB «, t00=0x00ce, t01=0x00a4}
0x14286…14298 Head {h00=0x000e, h01=0x0050, text=» RB BST300«, t00=0x00ce, t01=0x00d2}
0x14298…142d4 Head {h00=0x0038, h01=0x0050, text=»BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS«, t00=0x00ce, t01=0x00e4}
0x142d4…142fe Head {h00=0x0026, h01=0x0050, text=» RF(Z) BST410 NO MORE APPLICATIONS«, t00=0x00ce, t01=0x0120}
0x142fe…1431e Head {h00=0x001c, h01=0x0050, text=» ABR A9 NEXT APPLICATION«, t00=0x00ce, t01=0x014a}
0x1431e…14332 Head {h00=0x0010, h01=0x0050, text=»BST410 EQU *«, t00=0x00ce, t01=0x016a}
0x14332…14356 Head {h00=0x0020, h01=0x0050, text=» CALL POB RESTORE REGISTERS «, t00=0x00ce, t01=0x017e}
0x14356…1436e Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00cf, t01=0x0012}
0x1436e…1437a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x002a}
0x1437a…14396 Head {h00=0x0018, h01=0x0050, text=» IFF SPDVCL+TEDVCL=0«, t00=0x00cf, t01=0x0036}
0x14396…143a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cf, t01=0x0052}
0x143a4…143f4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00cf, t01=0x0060}
0x143f4…14442 Head {h00=0x004a, h01=0x0050, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x00cf, t01=0x00b0}
0x14442…14492 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00cf, t01=0x00fe}
0x14492…1449c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x014e}
0x1449c…144bc Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00cf, t01=0x0158}
0x144bc…144c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0178}
0x144c6…144f6 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x00cf, t01=0x0182}
0x144f6…1452c Head {h00=0x0032, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA«, t00=0x00d0, t01=0x0022}
0x1452c…14558 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA «, t00=0x00d0, t01=0x0058}
0x14558…14562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0084}
0x14562…14572 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00d0, t01=0x008e}
0x14572…1457c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x009e}
0x1457c…1459e Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12«, t00=0x00d0, t01=0x00a8}
0x1459e…145a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00ca}
0x145a8…145e8 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x00d0, t01=0x00d4}
0x145e8…145f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0114}
0x145f2…14600 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d0, t01=0x011e}
0x14600…14614 Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x00d0, t01=0x012c}
0x14614…1461e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0140}
0x1461e…14648 Head {h00=0x0026, h01=0x0050, text=»* GET START OF CONFIGURATION FILE«, t00=0x00d0, t01=0x014a}
0x14648…14652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0174}
0x14652…1467c Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00d0, t01=0x017e}
0x1467c…14686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0018}
0x14686…146c0 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x00d1, t01=0x0022}
0x146c0…146ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x005c}
0x146ca…146f4 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00d1, t01=0x0066}
0x146f4…14728 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x00d1, t01=0x0090}
0x14728…14758 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+ECHTAB START OF ECHO TABLE «, t00=0x00d1, t01=0x00c4}
0x14758…14762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00f4}
0x14762…14782 Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS TO TC:TAB«, t00=0x00d1, t01=0x00fe}
0x14782…1478c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x011e}
0x1478c…147c0 Head {h00=0x0030, h01=0x0050, text=»DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY«, t00=0x00d1, t01=0x0128}
0x147c0…147d2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x00d1, t01=0x015c}
0x147d2…147e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x016e}
0x147e0…147f4 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x00d1, t01=0x017c}
0x147f4…147fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0190}
0x147fe…14830 Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00d2, t01=0x000a}
0x14830…1483a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x003c}
0x1483a…1484e Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x00d2, t01=0x0046}
0x1484e…14862 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x00d2, t01=0x005a}
0x14862…14884 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE «, t00=0x00d2, t01=0x006e}
0x14884…1488e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0090}
0x1488e…148bc Head {h00=0x002a, h01=0x0050, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x00d2, t01=0x009a}
0x148bc…148c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00c8}
0x148c6…148da Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x00d2, t01=0x00d2}
0x148da…14900 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00d2, t01=0x00e6}
0x14900…14926 Head {h00=0x0022, h01=0x0050, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x00d2, t01=0x010c}
0x14926…14958 Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY«, t00=0x00d2, t01=0x0132}
0x14958…14962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0164}
0x14962…14996 Head {h00=0x0030, h01=0x0050, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x00d2, t01=0x016e}
0x14996…149a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0012}
0x149a0…149d2 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00d3, t01=0x001c}
0x149d2…14a02 Head {h00=0x002c, h01=0x0050, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x00d3, t01=0x004e}
0x14a02…14a10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x007e}
0x14a10…14a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x008c}
0x14a1a…14a52 Head {h00=0x0034, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x00d3, t01=0x0096}
0x14a52…14a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00ce}
0x14a5c…14a70 Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00d3, t01=0x00d8}
0x14a70…14a82 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00d3, t01=0x00ec}
0x14a82…14a96 Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x00d3, t01=0x00fe}
0x14a96…14aac Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x00d3, t01=0x0112}
0x14aac…14acc Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x00d3, t01=0x0128}
0x14acc…14ade Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d3, t01=0x0148}
0x14ade…14b0e Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00d3, t01=0x015a}
0x14b0e…14b30 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x00d3, t01=0x018a}
0x14b30…14b58 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00d4, t01=0x001c}
0x14b58…14b80 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00d4, t01=0x0044}
0x14b80…14ba6 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00d4, t01=0x006c}
0x14ba6…14bd4 Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x00d4, t01=0x0092}
0x14bd4…14c08 Head {h00=0x0030, h01=0x0050, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x00d4, t01=0x00c0}
0x14c08…14c34 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x00d4, t01=0x00f4}
0x14c34…14c46 Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x00d4, t01=0x0120}
0x14c46…14c5a Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x00d4, t01=0x0132}
0x14c5a…14c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0146}
0x14c64…14c94 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00d4, t01=0x0150}
0x14c94…14c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0180}
0x14c9e…14cb2 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00d4, t01=0x018a}
0x14cb2…14cd0 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00d5, t01=0x000e}
0x14cd0…14ce2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00d5, t01=0x002c}
0x14ce2…14cf6 Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x00d5, t01=0x003e}
0x14cf6…14d0c Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x00d5, t01=0x0052}
0x14d0c…14d2e Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRSDC SAVE «, t00=0x00d5, t01=0x0068}
0x14d2e…14d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x008a}
0x14d38…14d62 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00d5, t01=0x0094}
0x14d62…14d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00be}
0x14d6c…14d80 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00d5, t01=0x00c8}
0x14d80…14d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00dc}
0x14d8a…14dc6 Head {h00=0x0038, h01=0x0050, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x00d5, t01=0x00e6}
0x14dc6…14dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0122}
0x14dd0…14de2 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d5, t01=0x012c}
0x14de2…14e0e Head {h00=0x0028, h01=0x0050, text=» LD A6,STKEND+SCLA POINTER TO SCLASS«, t00=0x00d5, t01=0x013e}
0x14e0e…14e2e Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x00d5, t01=0x016a}
0x14e2e…14e56 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00d5, t01=0x018a}
0x14e56…14e6e Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x00d6, t01=0x0022}
0x14e6e…14e8c Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x00d6, t01=0x003a}
0x14e8c…14eb2 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00d6, t01=0x0058}
0x14eb2…14ec6 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x00d6, t01=0x007e}
0x14ec6…14ee2 Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET DEVICE«, t00=0x00d6, t01=0x0092}
0x14ee2…14f0e Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x00d6, t01=0x00ae}
0x14f0e…14f3a Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00d6, t01=0x00da}
0x14f3a…14f52 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x00d6, t01=0x0106}
0x14f52…14f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x011e}
0x14f5c…14f70 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00d6, t01=0x0128}
0x14f70…14f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x013c}
0x14f7a…14f98 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00d6, t01=0x0146}
0x14f98…14fc8 Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00d6, t01=0x0164}
0x14fc8…14fe6 (215, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00d7, t01=0x0004}
0x14fe6…14ff4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x0022}
0x14ff4…14ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0030}
0x14ffe…15036 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00d7, t01=0x003a}
0x15036…15040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0072}
0x15040…15066 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00d7, t01=0x007c}
0x15066…15086 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00d7, t01=0x00a2}
0x15086…150a0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x00d7, t01=0x00c2}
0x150a0…150cc Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00d7, t01=0x00dc}
0x150cc…150fa Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00d7, t01=0x0108}
0x150fa…1512a Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00d7, t01=0x0136}
0x1512a…15146 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00d7, t01=0x0166}
0x15146…1516e Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x00d7, t01=0x0182}
0x1516e…15194 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00d8, t01=0x001a}
0x15194…151a8 Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x00d8, t01=0x0040}
0x151a8…151d0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x00d8, t01=0x0054}
0x151d0…151e4 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x00d8, t01=0x007c}
0x151e4…151ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0090}
0x151ee…15220 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00d8, t01=0x009a}
0x15220…1522a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00cc}
0x1522a…15250 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x00d8, t01=0x00d6}
0x15250…15278 Head {h00=0x0024, h01=0x0050, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x00d8, t01=0x00fc}
0x15278…15298 Head {h00=0x001c, h01=0x0050, text=» STR A1,A10 SAVE IN TTAB«, t00=0x00d8, t01=0x0124}
0x15298…152ce Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK CONFIGURATION POINTER «, t00=0x00d8, t01=0x0144}
0x152ce…152e2 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x00d8, t01=0x017a}
0x152e2…15310 Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x00d8, t01=0x018e}
0x15310…15332 Head {h00=0x001e, h01=0x0050, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x00d9, t01=0x002c}
0x15332…15340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d9, t01=0x004e}
0x15340…1534a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x005c}
0x1534a…15382 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x00d9, t01=0x0066}
0x15382…1538c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x009e}
0x1538c…153a2 Head {h00=0x0012, h01=0x0050, text=» ADKL A9,SDC «, t00=0x00d9, t01=0x00a8}
0x153a2…153be Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRSDC«, t00=0x00d9, t01=0x00be}
0x153be…153d0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x00da}
0x153d0…153e2 Head {h00=0x000e, h01=0x0050, text=» RB DWTS50«, t00=0x00d9, t01=0x00ec}
0x153e2…153f6 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x00d9, t01=0x00fe}
0x153f6…15400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0112}
0x15400…1543c Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION «, t00=0x00d9, t01=0x011c}
0x1543c…15446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0158}
0x15446…15462 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRTSK«, t00=0x00d9, t01=0x0162}
0x15462…15474 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x017e}
0x15474…1548a Head {h00=0x0012, h01=0x0050, text=» RB(P) DWTS20 «, t00=0x00d9, t01=0x0190}
0x1548a…15494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0016}
0x15494…154c4 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00da, t01=0x0020}
0x154c4…154ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0050}
0x154ce…154e2 Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00da, t01=0x005a}
0x154e2…1550e Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00da, t01=0x006e}
0x1550e…15528 Head {h00=0x0016, h01=0x0050, text=» RB(E) DWTS10 YES «, t00=0x00da, t01=0x009a}
0x15528…15552 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00da, t01=0x00b4}
0x15552…15580 Head {h00=0x002a, h01=0x0050, text=» RB(P) DWTS05 PROCESS NEXT APPLICATION«, t00=0x00da, t01=0x00de}
0x15580…15596 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x00da, t01=0x010c}
0x15596…155a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0122}
0x155a0…155d6 Head {h00=0x0032, h01=0x0050, text=»* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE «, t00=0x00da, t01=0x012c}
0x155d6…15600 Head {h00=0x0026, h01=0x0050, text=»* AND TEMPORARY INTERRUPT TABLES «, t00=0x00da, t01=0x0162}
0x15600…1560a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x018c}
0x1560a…15634 Head {h00=0x0026, h01=0x0050, text=» LDR A1,P GET LOCATION COUNTER =4 «, t00=0x00db, t01=0x0008}
0x15634…15668 Head {h00=0x0030, h01=0x0050, text=»DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 «, t00=0x00db, t01=0x0032}
0x15668…1568c Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =4«, t00=0x00db, t01=0x0066}
0x1568c…156b8 Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =4 «, t00=0x00db, t01=0x008a}
0x156b8…156d6 Head {h00=0x001a, h01=0x0050, text=» RB(NE) DWTS95 NO! =4 «, t00=0x00db, t01=0x00b6}
0x156d6…156ee Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00db, t01=0x00d4}
0x156ee…156fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00db, t01=0x00ec}
0x156fa…15710 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x00db, t01=0x00f8}
0x15710…1571e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x010e}
0x1571e…15756 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00db, t01=0x011c}
0x15756…1578e Head {h00=0x0034, h01=0x0050, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x00db, t01=0x0154}
0x1578e…157c6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00db, t01=0x018c}
0x157c6…157fe Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dc, t01=0x0034}
0x157fe…15808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x006c}
0x15808…15828 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00dc, t01=0x0076}
0x15828…15832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0096}
0x15832…15844 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x00dc, t01=0x00a0}
0x15844…1584e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00b2}
0x1584e…1585e Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00dc, t01=0x00bc}
0x1585e…15868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00cc}
0x15868…1588a Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00dc, t01=0x00d6}
0x1588a…15894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00f8}
0x15894…158dc Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x00dc, t01=0x0102}
0x158dc…158e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x014a}
0x158e6…158f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0154}
0x158f4…15908 Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x00dc, t01=0x0162}
0x15908…15930 Head {h00=0x0024, h01=0x0050, text=» CM STKEND+FWTFLG CLEAR FWT FLAG«, t00=0x00dc, t01=0x0176}
0x15930…15958 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTFWT START OF FWT AREA «, t00=0x00dd, t01=0x000e}
0x15958…15980 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BDWT15 FWT AREA RESERVED«, t00=0x00dd, t01=0x0036}
0x15980…1599c Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+LIMIT «, t00=0x00dd, t01=0x005e}
0x1599c…159d8 Head {h00=0x0038, h01=0x0050, text=» ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA «, t00=0x00dd, t01=0x007a}
0x159d8…159fc Head {h00=0x0020, h01=0x0050, text=» IM STKEND+FWTFLG INCREMENT «, t00=0x00dd, t01=0x00b6}
0x159fc…15a10 Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x00dd, t01=0x00da}
0x15a10…15a1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x00ee}
0x15a1e…15a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00fc}
0x15a28…15a52 Head {h00=0x0026, h01=0x0050, text=»* INIT CONFIGURATION DATA POINTER«, t00=0x00dd, t01=0x0106}
0x15a52…15a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0130}
0x15a5c…15a86 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00dd, t01=0x013a}
0x15a86…15ab4 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00dd, t01=0x0164}
0x15ab4…15abe (222, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0004}
0x15abe…15b04 Head {h00=0x0042, h01=0x0050, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x00de, t01=0x000e}
0x15b04…15b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0054}
0x15b0e…15b40 Head {h00=0x002e, h01=0x0050, text=» LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY«, t00=0x00de, t01=0x005e}
0x15b40…15b7e Head {h00=0x003a, h01=0x0050, text=» ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY «, t00=0x00de, t01=0x0090}
0x15b7e…15b92 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x00de, t01=0x00ce}
0x15b92…15b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00e2}
0x15b9c…15bce Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00de, t01=0x00ec}
0x15bce…15bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x011e}
0x15bd8…15c00 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x00de, t01=0x0128}
0x15c00…15c14 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x00de, t01=0x0150}
0x15c14…15c42 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE BINARY VALUE«, t00=0x00de, t01=0x0164}
0x15c42…15c4c (223, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0004}
0x15c4c…15c90 Head {h00=0x0040, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x00df, t01=0x000e}
0x15c90…15c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0052}
0x15c9a…15cae Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00df, t01=0x005c}
0x15cae…15cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0070}
0x15cb8…15ce0 Head {h00=0x0024, h01=0x0050, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x00df, t01=0x007a}
0x15ce0…15cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00a2}
0x15cea…15d12 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x00df, t01=0x00ac}
0x15d12…15d2a Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00df, t01=0x00d4}
0x15d2a…15d68 Head {h00=0x003a, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS «, t00=0x00df, t01=0x00ec}
0x15d68…15d98 Head {h00=0x002c, h01=0x0050, text=» LD* A10,STKEND+CUTENT GET TTAB ADDRESS «, t00=0x00df, t01=0x012a}
0x15d98…15dd2 Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x00df, t01=0x015a}
0x15dd2…15ddc (224, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0004}
0x15ddc…15e08 Head {h00=0x0028, h01=0x0050, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x00e0, t01=0x000e}
0x15e08…15e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x003a}
0x15e12…15e44 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00e0, t01=0x0044}
0x15e44…15e7c Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x00e0, t01=0x0076}
0x15e7c…15e90 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x00e0, t01=0x00ae}
0x15e90…15eb6 Head {h00=0x0022, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x00e0, t01=0x00c2}
0x15eb6…15ee4 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+CLANBR SAVE BINARY VALUE«, t00=0x00e0, t01=0x00e8}
0x15ee4…15eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0116}
0x15eee…15f2c Head {h00=0x003a, h01=0x0050, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x00e0, t01=0x0120}
0x15f2c…15f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x015e}
0x15f36…15f70 Head {h00=0x0036, h01=0x0050, text=» LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID «, t00=0x00e0, t01=0x0168}
0x15f70…15f88 Head {h00=0x0014, h01=0x0050, text=» ADR A2,A2 2*ID «, t00=0x00e1, t01=0x0012}
0x15f88…15fb4 Head {h00=0x0028, h01=0x0050, text=» LD A7,STKEND+TCLA POINTER TO TCLASS«, t00=0x00e1, t01=0x002a}
0x15fb4…15fd0 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x00e1, t01=0x0056}
0x15fd0…15ff8 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00e1, t01=0x0072}
0x15ff8…16002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x009a}
0x16002…16046 Head {h00=0x0040, h01=0x0050, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x00e1, t01=0x00a4}
0x16046…1605e Head {h00=0x0014, h01=0x0050, text=»* IN THIS TASK «, t00=0x00e1, t01=0x00e8}
0x1605e…16068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0100}
0x16068…16098 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00e1, t01=0x010a}
0x16098…160bc Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x00e1, t01=0x013a}
0x160bc…160ec Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00e1, t01=0x015e}
0x160ec…16114 Head {h00=0x0024, h01=0x0050, text=» CCK A4,'AA' ASCU4Z CONNECTION? «, t00=0x00e1, t01=0x018e}
0x16114…1612e Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT58 NO!«, t00=0x00e2, t01=0x0026}
0x1612e…16160 Head {h00=0x002e, h01=0x0050, text=» LDR* A8,A7 YES! GET LENGTH OF THIS CLASS «, t00=0x00e2, t01=0x0040}
0x16160…16188 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00e2, t01=0x0072}
0x16188…161a6 Head {h00=0x001a, h01=0x0050, text=» CWK A8,4 ONE DEVICE? «, t00=0x00e2, t01=0x009a}
0x161a6…161c0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT57 NO!«, t00=0x00e2, t01=0x00b8}
0x161c0…161ec Head {h00=0x0028, h01=0x0050, text=» LD A8,4,A7 GET ADDRESS TO PROT.DWT «, t00=0x00e2, t01=0x00d2}
0x161ec…16210 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTTAB,A8 GET DEVICE «, t00=0x00e2, t01=0x00fe}
0x16210…1622e Head {h00=0x001a, h01=0x0050, text=» CWK A4,/C459 /C459 ? «, t00=0x00e2, t01=0x0122}
0x1622e…16248 Head {h00=0x0016, h01=0x0050, text=» RF(E) BDWT58 YES!«, t00=0x00e2, t01=0x0140}
0x16248…1625c Head {h00=0x0010, h01=0x0050, text=»BDWT57 EQU *«, t00=0x00e2, t01=0x015a}
0x1625c…1628e Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e2, t01=0x016e}
0x1628e…162a2 Head {h00=0x0010, h01=0x0050, text=»BDWT58 EQU *«, t00=0x00e3, t01=0x0010}
0x162a2…162d4 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e3, t01=0x0024}
0x162d4…1630c Head {h00=0x0034, h01=0x0050, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x00e3, t01=0x0056}
0x1630c…16338 Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+5,A9 STORE ASCII DIGIT =2«, t00=0x00e3, t01=0x008e}
0x16338…16362 Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 MOVE LEFT ASCII DIGIT =2«, t00=0x00e3, t01=0x00ba}
0x16362…1638e Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+4,A9 STORE ASCII DIGIT =2«, t00=0x00e3, t01=0x00e4}
0x1638e…163c0 Head {h00=0x002e, h01=0x0050, text=» SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2«, t00=0x00e3, t01=0x0110}
0x163c0…163ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x0142}
0x163ce…163d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0150}
0x163d8…16400 Head {h00=0x0024, h01=0x0050, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x00e3, t01=0x015a}
0x16400…16436 Head {h00=0x0032, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x00e3, t01=0x0182}
0x16436…16466 Head {h00=0x002c, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x00e4, t01=0x0028}
0x16466…16470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x0058}
0x16470…164a2 Head {h00=0x002e, h01=0x0050, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x00e4, t01=0x0062}
0x164a2…164d4 Head {h00=0x002e, h01=0x0050, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x00e4, t01=0x0094}
0x164d4…16512 Head {h00=0x003a, h01=0x0050, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x00e4, t01=0x00c6}
0x16512…1651c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x0104}
0x1651c…16530 Head {h00=0x0010, h01=0x0050, text=» CALL DWTGEN«, t00=0x00e4, t01=0x010e}
0x16530…16544 Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x00e4, t01=0x0122}
0x16544…16586 Head {h00=0x003e, h01=0x0050, text=» LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x00e4, t01=0x0136}
0x16586…165b6 Head {h00=0x002c, h01=0x0050, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x00e4, t01=0x0178}
0x165b6…165ce Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00e5, t01=0x0018}
0x165ce…16600 Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER«, t00=0x00e5, t01=0x0030}
0x16600…16628 Head {h00=0x0024, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x00e5, t01=0x0062}
0x16628…1663a Head {h00=0x000e, h01=0x0050, text=» RB BDWT55«, t00=0x00e5, t01=0x008a}
0x1663a…1664e Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x00e5, t01=0x009c}
0x1664e…16674 Head {h00=0x0022, h01=0x0050, text=» CALL ECHO INIT ECHO POINTERS «, t00=0x00e5, t01=0x00b0}
0x16674…166ac Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00e5, t01=0x00d6}
0x166ac…166d6 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x00e5, t01=0x010e}
0x166d6…166f8 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CUTENT SAVE «, t00=0x00e5, t01=0x0138}
0x166f8…16736 Head {h00=0x003a, h01=0x0050, text=» LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00e5, t01=0x015a}
0x16736…1675c Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x00e6, t01=0x0008}
0x1675c…16776 Head {h00=0x0016, h01=0x0050, text=» RB(P) BDWT50 YES «, t00=0x00e6, t01=0x002e}
0x16776…167a6 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00e6, t01=0x0048}
0x167a6…167b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0078}
0x167b0…167d8 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x00e6, t01=0x0082}
0x167d8…16804 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e6, t01=0x00aa}
0x16804…1681e Head {h00=0x0016, h01=0x0050, text=» RB(E) BDWT40 YES «, t00=0x00e6, t01=0x00d6}
0x1681e…1682c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x00f0}
0x1682c…16856 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00e6, t01=0x00fe}
0x16856…1686c Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT40 «, t00=0x00e6, t01=0x0128}
0x1686c…1689c Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00e6, t01=0x013e}
0x1689c…168b4 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00e6, t01=0x016e}
0x168b4…168c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0186}
0x168c0…168d0 (231, 0, 400) Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x00e7, t01=0x0004}
0x168d0…16900 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e7, t01=0x0014}
0x16900…16930 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x00e7, t01=0x0044}
0x16930…16960 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e7, t01=0x0074}
0x16960…1696a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00a4}
0x1696a…1698c Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: SYSLDM «, t00=0x00e7, t01=0x00ae}
0x1698c…16996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00d0}
0x16996…169c4 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00e7, t01=0x00da}
0x169c4…169fc Head {h00=0x0034, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA «, t00=0x00e7, t01=0x0108}
0x169fc…16a28 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x00e7, t01=0x0140}
0x16a28…16a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x016c}
0x16a32…16a6a Head {h00=0x0034, h01=0x0050, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x00e7, t01=0x0176}
0x16a6a…16a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x001e}
0x16a74…16a96 Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00e8, t01=0x0028}
0x16a96…16aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x004a}
0x16aa0…16ae0 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x00e8, t01=0x0054}
0x16ae0…16aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0094}
0x16aea…16af8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e8, t01=0x009e}
0x16af8…16b0c Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x00e8, t01=0x00ac}
0x16b0c…16b36 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00e8, t01=0x00c0}
0x16b36…16b54 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x00e8, t01=0x00ea}
0x16b54…16b7e Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00e8, t01=0x0108}
0x16b7e…16b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0132}
0x16b88…16bb6 Head {h00=0x002a, h01=0x0050, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x00e8, t01=0x013c}
0x16bb6…16bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x016a}
0x16bc0…16bd4 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x00e8, t01=0x0174}
0x16bd4…16be8 Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00e8, t01=0x0188}
0x16be8…16c14 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e9, t01=0x000c}
0x16c14…16c2e Head {h00=0x0016, h01=0x0050, text=» RB(E) CDG:10 YES «, t00=0x00e9, t01=0x0038}
0x16c2e…16c5a Head {h00=0x0028, h01=0x0050, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x00e9, t01=0x0052}
0x16c5a…16c74 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x00e9, t01=0x007e}
0x16c74…16c82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x0098}
0x16c82…16c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00a6}
0x16c8c…16cca Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00e9, t01=0x00b0}
0x16cca…16d06 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x00e9, t01=0x00ee}
0x16d06…16d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x012a}
0x16d10…16d44 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x00e9, t01=0x0134}
0x16d44…16d7e Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00e9, t01=0x0168}
0x16d7e…16da8 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00ea, t01=0x0012}
0x16da8…16dc0 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00ea, t01=0x003c}
0x16dc0…16de6 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x00ea, t01=0x0054}
0x16de6…16e18 Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x00ea, t01=0x007a}
0x16e18…16e48 Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x00ea, t01=0x00ac}
0x16e48…16e78 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00ea, t01=0x00dc}
0x16e78…16ea0 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x00ea, t01=0x010c}
0x16ea0…16ec0 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x00ea, t01=0x0134}
0x16ec0…16eea Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x00ea, t01=0x0154}
0x16eea…16f04 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x00ea, t01=0x017e}
0x16f04…16f28 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x00eb, t01=0x0008}
0x16f28…16f3c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00eb, t01=0x002c}
0x16f3c…16f6c Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x00eb, t01=0x0040}
0x16f6c…16f94 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00eb, t01=0x0070}
0x16f94…16fbc Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x00eb, t01=0x0098}
0x16fbc…16fe2 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00eb, t01=0x00c0}
0x16fe2…1700c Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x00eb, t01=0x00e6}
0x1700c…1703e Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00eb, t01=0x0110}
0x1703e…17064 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x00eb, t01=0x0142}
0x17064…17076 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x00eb, t01=0x0168}
0x17076…17084 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x017a}
0x17084…17098 Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x00eb, t01=0x0188}
0x17098…170a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x000c}
0x170a2…170e0 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ec, t01=0x0016}
0x170e0…1711c Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x00ec, t01=0x0054}
0x1711c…17126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0090}
0x17126…1713a Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00ec, t01=0x009a}
0x1713a…17158 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00ec, t01=0x00ae}
0x17158…1716a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00ec, t01=0x00cc}
0x1716a…1717e Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x00ec, t01=0x00de}
0x1717e…17194 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BCDTEX «, t00=0x00ec, t01=0x00f2}
0x17194…171a8 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00ec, t01=0x0108}
0x171a8…171ba Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00ec, t01=0x011c}
0x171ba…171ea Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ec, t01=0x012e}
0x171ea…171fe Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x00ec, t01=0x015e}
0x171fe…17210 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00ec, t01=0x0172}
0x17210…17222 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00ec, t01=0x0184}
0x17222…17238 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x00ed, t01=0x0008}
0x17238…1724e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00ed, t01=0x001e}
0x1724e…17262 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ed, t01=0x0034}
0x17262…17276 Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x00ed, t01=0x0048}
0x17276…17296 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x00ed, t01=0x005c}
0x17296…172be Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ed, t01=0x007c}
0x172be…172dc Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x00ed, t01=0x00a4}
0x172dc…172ee Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00ed, t01=0x00c2}
0x172ee…17302 Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00ed, t01=0x00d4}
0x17302…17314 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x00ed, t01=0x00e8}
0x17314…17326 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x00ed, t01=0x00fa}
0x17326…17338 Head {h00=0x000e, h01=0x0050, text=» RB BCDT10«, t00=0x00ed, t01=0x010c}
0x17338…1734c Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x00ed, t01=0x011e}
0x1734c…17376 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00ed, t01=0x0132}
0x17376…1739e Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:10 MORE APPLICATIONS?«, t00=0x00ed, t01=0x015c}
0x1739e…173c8 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00ed, t01=0x0184}
0x173c8…173f2 Head {h00=0x0026, h01=0x0050, text=»B:CT35 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ee, t01=0x001e}
0x173f2…1741e Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ee, t01=0x0048}
0x1741e…17438 Head {h00=0x0016, h01=0x0050, text=» RB(E) B:CT35 YES «, t00=0x00ee, t01=0x0074}
0x17438…17446 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x008e}
0x17446…17450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x009c}
0x17450…17490 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ee, t01=0x00a6}
0x17490…174ca Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x00ee, t01=0x00e6}
0x174ca…174d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0120}
0x174d4…1750e Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x00ee, t01=0x012a}
0x1750e…17552 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x00ee, t01=0x0164}
0x17552…1755c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0018}
0x1755c…175aa Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x00ef, t01=0x0022}
0x175aa…175b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0070}
0x175b4…175de Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x00ef, t01=0x007a}
0x175de…17604 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x00ef, t01=0x00a4}
0x17604…17620 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x00ef, t01=0x00ca}
0x17620…17646 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ef, t01=0x00e6}
0x17646…1766e Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E DISC PAGING OR SWB:S?«, t00=0x00ef, t01=0x010c}
0x1766e…1769e Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x00ef, t01=0x0134}
0x1769e…176b8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:12 NO! «, t00=0x00ef, t01=0x0164}
0x176b8…176e8 Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ef, t01=0x017e}
0x176e8…17710 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x00f0, t01=0x001e}
0x17710…17736 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00f0, t01=0x0046}
0x17736…1775e Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x00f0, t01=0x006c}
0x1775e…1778c Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x00f0, t01=0x0094}
0x1778c…177b8 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x00f0, t01=0x00c2}
0x177b8…177de Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f0, t01=0x00ee}
0x177de…17808 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x00f0, t01=0x0114}
0x17808…1781c Head {h00=0x0010, h01=0x0050, text=»CDG:12 EQU *«, t00=0x00f0, t01=0x013e}
0x1781c…1782e Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00f0, t01=0x0152}
0x1782e…17842 Head {h00=0x0010, h01=0x0050, text=» STR A7,A12 «, t00=0x00f0, t01=0x0164}
0x17842…17858 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x00f0, t01=0x0178}
0x17858…1786c Head {h00=0x0010, h01=0x0050, text=» ADR A12,A7 «, t00=0x00f0, t01=0x018e}
0x1786c…17890 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK1 SAVE A11«, t00=0x00f1, t01=0x0012}
0x17890…178b6 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A12 GET END OF CDTAB «, t00=0x00f1, t01=0x0036}
0x178b6…178e8 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x00f1, t01=0x005c}
0x178e8…17916 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00f1, t01=0x008e}
0x17916…17930 Head {h00=0x0016, h01=0x0050, text=» RF(NG) CDG:13 OK «, t00=0x00f1, t01=0x00bc}
0x17930…1795e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00f1, t01=0x00d6}
0x1795e…17972 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f1, t01=0x0104}
0x17972…179a0 Head {h00=0x002a, h01=0x0050, text=»CDG:13 LD A11,STKEND+WRK1 RESTORE A11 «, t00=0x00f1, t01=0x0118}
0x179a0…179ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0146}
0x179ae…179b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0154}
0x179b8…179f2 Head {h00=0x0036, h01=0x0050, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x00f1, t01=0x015e}
0x179f2…179fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0008}
0x179fc…17a28 Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x00f2, t01=0x0012}
0x17a28…17a56 Head {h00=0x002a, h01=0x0050, text=»CDG:15 LCR A2,A11 GET FIRST CHARACTER «, t00=0x00f2, t01=0x003e}
0x17a56…17a88 Head {h00=0x002e, h01=0x0050, text=»CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ «, t00=0x00f2, t01=0x006c}
0x17a88…17aa2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CDG:17 NO!«, t00=0x00f2, t01=0x009e}
0x17aa2…17ac4 Head {h00=0x001e, h01=0x0050, text=» CALL NXTBLK GET NEXT BLCK«, t00=0x00f2, t01=0x00b8}
0x17ac4…17ad6 Head {h00=0x000e, h01=0x0050, text=» RB CDG:16«, t00=0x00f2, t01=0x00da}
0x17ad6…17b04 Head {h00=0x002a, h01=0x0050, text=»CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? «, t00=0x00f2, t01=0x00ec}
0x17b04…17b1e Head {h00=0x0016, h01=0x0050, text=» RF(E) CDG:19 YES!«, t00=0x00f2, t01=0x011a}
0x17b1e…17b50 Head {h00=0x002e, h01=0x0050, text=» SUR A8,A8 INDICATE NO COMMON WORK BLOCKS «, t00=0x00f2, t01=0x0134}
0x17b50…17b7c Head {h00=0x0028, h01=0x0050, text=»CDG:18 RF(N) CDG:EX CDTAB COMPLETE! «, t00=0x00f2, t01=0x0166}
0x17b7c…17ba6 (243, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00f3, t01=0x0004}
0x17ba6…17bce Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:15 MORE APPLICATIONS «, t00=0x00f3, t01=0x002e}
0x17bce…17bf4 Head {h00=0x0022, h01=0x0050, text=» RF CDGEX NO MORE APPLICATIONS«, t00=0x00f3, t01=0x0056}
0x17bf4…17c08 Head {h00=0x0010, h01=0x0050, text=»CDG:19 EQU *«, t00=0x00f3, t01=0x007c}
0x17c08…17c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0090}
0x17c12…17c54 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x00f3, t01=0x009a}
0x17c54…17c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00dc}
0x17c5e…17c8c Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x00f3, t01=0x00e6}
0x17c8c…17cc6 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00f3, t01=0x0114}
0x17cc6…17cf0 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00f3, t01=0x014e}
0x17cf0…17d20 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x00f3, t01=0x0178}
0x17d20…17d40 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x00f4, t01=0x0018}
0x17d40…17d62 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRCOM SAVE «, t00=0x00f4, t01=0x0038}
0x17d62…17d8e Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x00f4, t01=0x005a}
0x17d8e…17db0 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CLASID SAVE «, t00=0x00f4, t01=0x0086}
0x17db0…17de0 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00f4, t01=0x00a8}
0x17de0…17df8 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00f4, t01=0x00d8}
0x17df8…17e2c Head {h00=0x0030, h01=0x0050, text=» LD A2,STKEND+CLASID GET CLASS IDENT NUMBER «, t00=0x00f4, t01=0x00f0}
0x17e2c…17e56 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x00f4, t01=0x0124}
0x17e56…17e86 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00f4, t01=0x014e}
0x17e86…17eb0 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x00f4, t01=0x017e}
0x17eb0…17ed8 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00f5, t01=0x0018}
0x17ed8…17f0a Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x00f5, t01=0x0040}
0x17f0a…17f3c Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00f5, t01=0x0072}
0x17f3c…17f6e Head {h00=0x002e, h01=0x0050, text=» LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. «, t00=0x00f5, t01=0x00a4}
0x17f6e…17f92 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x00f5, t01=0x00d6}
0x17f92…17fa4 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x00f5, t01=0x00fa}
0x17fa4…17fbc Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x00f5, t01=0x010c}
0x17fbc…17fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x0124}
0x17fca…17fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0132}
0x17fd4…18004 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00f5, t01=0x013c}
0x18004…1800e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x016c}
0x1800e…18022 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00f5, t01=0x0176}
0x18022…18040 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00f5, t01=0x018a}
0x18040…18052 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x00f6, t01=0x0018}
0x18052…18066 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x00f6, t01=0x002a}
0x18066…1807c Head {h00=0x0012, h01=0x0050, text=» RB(NP) CDG:18«, t00=0x00f6, t01=0x003e}
0x1807c…18086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0054}
0x18086…180b0 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00f6, t01=0x005e}
0x180b0…180ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0088}
0x180ba…180ce Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00f6, t01=0x0092}
0x180ce…180d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x00a6}
0x180d8…1810c Head {h00=0x0030, h01=0x0050, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x00f6, t01=0x00b0}
0x1810c…18116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x00e4}
0x18116…1812c Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1 T «, t00=0x00f6, t01=0x00ee}
0x1812c…1815c Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f6, t01=0x0104}
0x1815c…1817c Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x00f6, t01=0x0134}
0x1817c…181a6 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x00f6, t01=0x0154}
0x181a6…181ce Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00f6, t01=0x017e}
0x181ce…181f6 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x00f7, t01=0x0016}
0x181f6…1821c Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f7, t01=0x003e}
0x1821c…18230 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x00f7, t01=0x0064}
0x18230…1824e Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x00f7, t01=0x0078}
0x1824e…18272 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x00f7, t01=0x0096}
0x18272…1829e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00f7, t01=0x00ba}
0x1829e…182b6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CDG:40 NO«, t00=0x00f7, t01=0x00e6}
0x182b6…182c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00fe}
0x182c0…182d4 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00f7, t01=0x0108}
0x182d4…182de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x011c}
0x182de…182fc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00f7, t01=0x0126}
0x182fc…1832c Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00f7, t01=0x0144}
0x1832c…1834a Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00f7, t01=0x0174}
0x1834a…18354 (248, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0004}
0x18354…1838c Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00f8, t01=0x000e}
0x1838c…18396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0046}
0x18396…183bc Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00f8, t01=0x0050}
0x183bc…183dc Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00f8, t01=0x0076}
0x183dc…183f6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x00f8, t01=0x0096}
0x183f6…18422 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00f8, t01=0x00b0}
0x18422…18450 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00f8, t01=0x00dc}
0x18450…18480 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00f8, t01=0x010a}
0x18480…184a4 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x00f8, t01=0x013a}
0x184a4…184c0 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00f8, t01=0x015e}
0x184c0…184e6 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00f8, t01=0x017a}
0x184e6…184fa Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x00f9, t01=0x0010}
0x184fa…18520 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x00f9, t01=0x0024}
0x18520…18534 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x00f9, t01=0x004a}
0x18534…1853e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x005e}
0x1853e…18570 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00f9, t01=0x0068}
0x18570…1857a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x009a}
0x1857a…185a0 Head {h00=0x0022, h01=0x0050, text=» ST A1,4,A10 STORE DWT-ADDRESS«, t00=0x00f9, t01=0x00a4}
0x185a0…185c2 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x00f9, t01=0x00ca}
0x185c2…185e4 Head {h00=0x001e, h01=0x0050, text=» ST A1,2,A10 STORE IN TTAB«, t00=0x00f9, t01=0x00ec}
0x185e4…1860c Head {h00=0x0024, h01=0x0050, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x00f9, t01=0x010e}
0x1860c…18636 Head {h00=0x0026, h01=0x0050, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x00f9, t01=0x0136}
0x18636…18658 Head {h00=0x001e, h01=0x0050, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x00f9, t01=0x0160}
0x18658…18666 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x0182}
0x18666…18670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0190}
0x18670…186a0 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x00fa, t01=0x000a}
0x186a0…186aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x003a}
0x186aa…186be Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00fa, t01=0x0044}
0x186be…186d0 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x00fa, t01=0x0058}
0x186d0…186e2 Head {h00=0x000e, h01=0x0050, text=» RB CDG:20«, t00=0x00fa, t01=0x006a}
0x186e2…186f6 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x00fa, t01=0x007c}
0x186f6…1871c Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x00fa, t01=0x0090}
0x1871c…18744 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x00fa, t01=0x00b6}
0x18744…18760 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x00fa, t01=0x00de}
0x18760…18786 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00fa, t01=0x00fa}
0x18786…187ae Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x00fa, t01=0x0120}
0x187ae…187de Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x00fa, t01=0x0148}
0x187de…187f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x00fa, t01=0x0178}
0x187f8…18828 (251, 0, 398) Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00fb, t01=0x0004}
0x18828…18850 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x00fb, t01=0x0034}
0x18850…18876 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00fb, t01=0x005c}
0x18876…18898 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x00fb, t01=0x0082}
0x18898…188c6 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x00fb, t01=0x00a4}
0x188c6…188f2 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x00fb, t01=0x00d2}
0x188f2…18918 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00fb, t01=0x00fe}
0x18918…1892a Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x00fb, t01=0x0124}
0x1892a…1893e Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x00fb, t01=0x0136}
0x1893e…1896e Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00fb, t01=0x014a}
0x1896e…18986 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00fb, t01=0x017a}
0x18986…18994 (252, 0, 400) Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00fc, t01=0x0004}
0x18994…189a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x0012}
0x189a2…189f0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fc, t01=0x0020}
0x189f0…18a3c Head {h00=0x0048, h01=0x0050, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x00fc, t01=0x006e}
0x18a3c…18a8a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fc, t01=0x00ba}
0x18a8a…18a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0108}
0x18a94…18acc Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x00fc, t01=0x0112}
0x18acc…18b0e Head {h00=0x003e, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x00fc, t01=0x014a}
0x18b0e…18b3c Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00fc, t01=0x018c}
0x18b3c…18b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x002a}
0x18b46…18b56 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00fd, t01=0x0034}
0x18b56…18b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0044}
0x18b60…18b80 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTERS: A1-A8«, t00=0x00fd, t01=0x004e}
0x18b80…18b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x006e}
0x18b8a…18bac Head {h00=0x001e, h01=0x0050, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x00fd, t01=0x0078}
0x18bac…18bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x009a}
0x18bb6…18bc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x00a4}
0x18bc4…18bd8 Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x00fd, t01=0x00b2}
0x18bd8…18c10 Head {h00=0x0034, h01=0x0050, text=» ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER «, t00=0x00fd, t01=0x00c6}
0x18c10…18c3c Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x00fd, t01=0x00fe}
0x18c3c…18c64 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00fd, t01=0x012a}
0x18c64…18c84 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 FIRST FILECODE«, t00=0x00fd, t01=0x0152}
0x18c84…18c98 Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x00fd, t01=0x0172}
0x18c98…18cca Head {h00=0x002e, h01=0x0050, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x00fd, t01=0x0186}
0x18cca…18d00 Head {h00=0x0032, h01=0x0050, text=» LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER«, t00=0x00fe, t01=0x0028}
0x18d00…18d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x005e}
0x18d0a…18d2a Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x00fe, t01=0x0068}
0x18d2a…18d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0088}
0x18d34…18d64 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00fe, t01=0x0092}
0x18d64…18d8c Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x00fe, t01=0x00c2}
0x18d8c…18da6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x00fe, t01=0x00ea}
0x18da6…18dda Head {h00=0x0030, h01=0x0050, text=» CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ «, t00=0x00fe, t01=0x0104}
0x18dda…18dec Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00fe, t01=0x0138}
0x18dec…18e18 Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00fe, t01=0x014a}
0x18e18…18e32 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT07 NO! «, t00=0x00fe, t01=0x0176}
0x18e32…18e64 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z«, t00=0x00fe, t01=0x0190}
0x18e64…18e76 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0032}
0x18e76…18ea4 Head {h00=0x002a, h01=0x0050, text=»DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? «, t00=0x00ff, t01=0x0044}
0x18ea4…18eba Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWT11 «, t00=0x00ff, t01=0x0072}
0x18eba…18eee Head {h00=0x0030, h01=0x0050, text=» CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4«, t00=0x00ff, t01=0x0088}
0x18eee…18f00 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x00bc}
0x18f00…18f2a Head {h00=0x0026, h01=0x0050, text=»DWT11 CCK A4,'PP' PLC CONNECTION? «, t00=0x00ff, t01=0x00ce}
0x18f2a…18f44 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT12 NO! «, t00=0x00ff, t01=0x00f8}
0x18f44…18f74 Head {h00=0x002c, h01=0x0050, text=» CALL I:CHPC INIT CHANNEL PARAMETERS PLC«, t00=0x00ff, t01=0x0112}
0x18f74…18f86 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0142}
0x18f86…18fae Head {h00=0x0024, h01=0x0050, text=»DWT12 CCK A4,'LL' LT CONNECTION?«, t00=0x00ff, t01=0x0154}
0x18fae…18fc8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT08 NO! «, t00=0x00ff, t01=0x017c}
0x18fc8…18ff8 Head {h00=0x002c, h01=0x0050, text=» CALL I:CHLT INIT CHANNEL PARAMETERS LT «, t00=0x0100, t01=0x0008}
0x18ff8…1900a Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0038}
0x1900a…19032 Head {h00=0x0024, h01=0x0050, text=»DWT08 CCK A4,'RR' RT CONNECTION?«, t00=0x0100, t01=0x004a}
0x19032…1904c Head {h00=0x0016, h01=0x0050, text=» RF(E) DWT09 YES! «, t00=0x0100, t01=0x0072}
0x1904c…19078 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0100, t01=0x008c}
0x19078…1908c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0100, t01=0x00b8}
0x1908c…190c0 Head {h00=0x0030, h01=0x0050, text=»DWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT«, t00=0x0100, t01=0x00cc}
0x190c0…190d4 Head {h00=0x0010, h01=0x0050, text=»DWT31 EQU * «, t00=0x0100, t01=0x0100}
0x190d4…190f6 Head {h00=0x001e, h01=0x0050, text=» ST A3,STKEND+CONTYP SAVE «, t00=0x0100, t01=0x0114}
0x190f6…19116 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK3 SAVE «, t00=0x0100, t01=0x0136}
0x19116…19136 Head {h00=0x001c, h01=0x0050, text=» ST A6,STKEND+WRK4 SAVE «, t00=0x0100, t01=0x0156}
0x19136…19140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0176}
0x19140…19176 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0100, t01=0x0180}
0x19176…19180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0026}
0x19180…191b0 Head {h00=0x002c, h01=0x0050, text=» LD A4,STKEND+INTTAB GET START OF T.I.T.«, t00=0x0101, t01=0x0030}
0x191b0…191d8 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 GET NUMBER OF BLOCKS«, t00=0x0101, t01=0x0060}
0x191d8…191ea Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0101, t01=0x0088}
0x191ea…191fc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0101, t01=0x009a}
0x191fc…19210 Head {h00=0x0010, h01=0x0050, text=»DWT13 EQU * «, t00=0x0101, t01=0x00ac}
0x19210…19224 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT32«, t00=0x0101, t01=0x00c0}
0x19224…1925e Head {h00=0x0036, h01=0x0050, text=» LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE «, t00=0x0101, t01=0x00d4}
0x1925e…1927a Head {h00=0x0018, h01=0x0050, text=» CW A3,-4,A4 EQUAL? «, t00=0x0101, t01=0x010e}
0x1927a…19294 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWT15 YES! «, t00=0x0101, t01=0x012a}
0x19294…192a8 Head {h00=0x0010, h01=0x0050, text=»DWT14 EQU * «, t00=0x0101, t01=0x0144}
0x192a8…192c8 Head {h00=0x001c, h01=0x0050, text=» SUK A4,6 GET NEXT BLOCK«, t00=0x0101, t01=0x0158}
0x192c8…192f4 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF BLOCKS«, t00=0x0101, t01=0x0178}
0x192f4…19306 Head {h00=0x000e, h01=0x0050, text=» RB DWT13 «, t00=0x0102, t01=0x0014}
0x19306…1931a Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0102, t01=0x0026}
0x1931a…19348 Head {h00=0x002a, h01=0x0050, text=» LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS «, t00=0x0102, t01=0x003a}
0x19348…19378 Head {h00=0x002c, h01=0x0050, text=» LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2«, t00=0x0102, t01=0x0068}
0x19378…193a0 Head {h00=0x0024, h01=0x0050, text=» ANK A6,/003F GET DEVICE ADDRESS«, t00=0x0102, t01=0x0098}
0x193a0…193d2 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2«, t00=0x0102, t01=0x00c0}
0x193d2…193fa Head {h00=0x0024, h01=0x0050, text=» ANK A3,/003F GET DEVICE ADDRESS«, t00=0x0102, t01=0x00f2}
0x193fa…19414 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0102, t01=0x011a}
0x19414…1942e Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0102, t01=0x0134}
0x1942e…19458 Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTST,A2 GET DEVICE STATUS «, t00=0x0102, t01=0x014e}
0x19458…1947e Head {h00=0x0022, h01=0x0050, text=» ANK A6,/00C0 GET BITS 8 AND 9«, t00=0x0102, t01=0x0178}
0x1947e…194a8 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A1 GET DEVICE STATUS «, t00=0x0103, t01=0x000e}
0x194a8…194ce Head {h00=0x0022, h01=0x0050, text=» ANK A3,/00C0 GET BITS 8 AND 9«, t00=0x0103, t01=0x0038}
0x194ce…194e8 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0103, t01=0x005e}
0x194e8…194fe Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWT14 «, t00=0x0103, t01=0x0078}
0x194fe…19526 Head {h00=0x0024, h01=0x0050, text=» LD A6,DWTTAB,A2 GET DEVICE TYPE«, t00=0x0103, t01=0x008e}
0x19526…1954e Head {h00=0x0024, h01=0x0050, text=» ANKL A6,/8000 ISOLATE ECHO BIT «, t00=0x0103, t01=0x00b6}
0x1954e…19576 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTTAB,A1 GET DEVICE TYPE«, t00=0x0103, t01=0x00de}
0x19576…1959e Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/8000 ISOLATE ECHO BIT «, t00=0x0103, t01=0x0106}
0x1959e…195b8 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0103, t01=0x012e}
0x195b8…195d2 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0103, t01=0x0148}
0x195d2…195e6 Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x0103, t01=0x0162}
0x195e6…195fc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x0103, t01=0x0176}
0x195fc…19618 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0103, t01=0x018c}
0x19618…19628 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0104, t01=0x0018}
0x19628…1963c Head {h00=0x0010, h01=0x0050, text=»DWT32 EQU * «, t00=0x0104, t01=0x0028}
0x1963c…19668 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A12 GET RUN TIME DWT-ADDRESS«, t00=0x0104, t01=0x003c}
0x19668…19696 Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0104, t01=0x0068}
0x19696…196a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x0096}
0x196a0…196c0 Head {h00=0x001c, h01=0x0050, text=»* COPY DEVICE TYPE DWT «, t00=0x0104, t01=0x00a0}
0x196c0…196ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x00c0}
0x196ca…196e8 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0104, t01=0x00ca}
0x196e8…19706 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0104, t01=0x00e8}
0x19706…1972a Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0104, t01=0x0106}
0x1972a…1973e Head {h00=0x0010, h01=0x0050, text=» CALL CHKMOV«, t00=0x0104, t01=0x012a}
0x1973e…1974c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x013e}
0x1974c…19756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x014c}
0x19756…1977e Head {h00=0x0024, h01=0x0050, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0104, t01=0x0156}
0x1977e…197a2 Head {h00=0x0020, h01=0x0050, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0104, t01=0x017e}
0x197a2…197ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0012}
0x197ac…197c6 Head {h00=0x0016, h01=0x0050, text=» LD A6,STKEND+WRK4«, t00=0x0105, t01=0x001c}
0x197c6…197e0 Head {h00=0x0016, h01=0x0050, text=» LD A5,STKEND+WRK3«, t00=0x0105, t01=0x0036}
0x197e0…1980e Head {h00=0x002a, h01=0x0050, text=» STR A6,A2 STORE CHANNEL PARAMETERS -1«, t00=0x0105, t01=0x0050}
0x1980e…19842 Head {h00=0x0030, h01=0x0050, text=» ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2«, t00=0x0105, t01=0x007e}
0x19842…1984c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00b2}
0x1984c…1986c Head {h00=0x001c, h01=0x0050, text=»* CHECK IF INPUT DEVICE«, t00=0x0105, t01=0x00bc}
0x1986c…19876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00dc}
0x19876…19898 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A1 GET DWT STATUS«, t00=0x0105, t01=0x00e6}
0x19898…198bc Head {h00=0x0020, h01=0x0050, text=» ANK A3,/0040 INPUT DEVICE? «, t00=0x0105, t01=0x0108}
0x198bc…198d4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x0105, t01=0x012c}
0x198d4…198de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0144}
0x198de…198f6 Head {h00=0x0014, h01=0x0050, text=»* INPUT DEVICE:«, t00=0x0105, t01=0x014e}
0x198f6…19912 Head {h00=0x0018, h01=0x0050, text=»* CHECK IF KEYBOARD«, t00=0x0105, t01=0x0166}
0x19912…1991c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0182}
0x1991c…19936 Head {h00=0x0016, h01=0x0050, text=» LD A3,DWTADR,A1 «, t00=0x0105, t01=0x018c}
0x19936…1994e Head {h00=0x0014, h01=0x0050, text=» LD A3,DEVIND,A3«, t00=0x0106, t01=0x0016}
0x1994e…19960 Head {h00=0x000e, h01=0x0050, text=» CWK A3,6 «, t00=0x0106, t01=0x002e}
0x19960…19982 Head {h00=0x001e, h01=0x0050, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0106, t01=0x0040}
0x19982…1998c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0062}
0x1998c…199ae Head {h00=0x001e, h01=0x0050, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0106, t01=0x006c}
0x199ae…199c2 Head {h00=0x0010, h01=0x0050, text=»* IF ECHO: «, t00=0x0106, t01=0x008e}
0x199c2…199cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00a2}
0x199cc…199fc Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x0106, t01=0x00ac}
0x199fc…19a3a Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x0106, t01=0x00dc}
0x19a3a…19a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x011a}
0x19a44…19a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0124}
0x19a4e…19a6c Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x0106, t01=0x012e}
0x19a6c…19a84 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT40 NO «, t00=0x0106, t01=0x014c}
0x19a84…19aa0 Head {h00=0x0018, h01=0x0050, text=» AD A5,STKCOM+M:REL «, t00=0x0106, t01=0x0164}
0x19aa0…19ade Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0106, t01=0x0180}
0x19ade…19b0a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x0107, t01=0x002e}
0x19b0a…19b40 Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x0107, t01=0x005a}
0x19b40…19b64 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x0107, t01=0x0090}
0x19b64…19b90 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x0107, t01=0x00b4}
0x19b90…19bcc Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x0107, t01=0x00e0}
0x19bcc…19c0c Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x0107, t01=0x011c}
0x19c0c…19c2c Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x0107, t01=0x015c}
0x19c2c…19c5a Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB SAVE NEW LENGTH «, t00=0x0107, t01=0x017c}
0x19c5a…19c68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x001a}
0x19c68…19c7c Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x0108, t01=0x0028}
0x19c7c…19c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x003c}
0x19c86…19cbc Head {h00=0x0032, h01=0x0050, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x0108, t01=0x0046}
0x19cbc…19cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x007c}
0x19cc6…19ce8 Head {h00=0x001e, h01=0x0050, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x0108, t01=0x0086}
0x19ce8…19d1e Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x0108, t01=0x00a8}
0x19d1e…19d46 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x0108, t01=0x00de}
0x19d46…19d6e Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x0108, t01=0x0106}
0x19d6e…19d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x012e}
0x19d78…19d96 Head {h00=0x001a, h01=0x0050, text=»* IF DOUBLE KEYBOARD:«, t00=0x0108, t01=0x0138}
0x19d96…19dde Head {h00=0x0044, h01=0x0050, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x0108, t01=0x0156}
0x19dde…19e18 Head {h00=0x0036, h01=0x0050, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x0109, t01=0x000e}
0x19e18…19e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0048}
0x19e22…19e58 Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT«, t00=0x0109, t01=0x0052}
0x19e58…19e84 Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF GET EIGTH RIGHTMOST BITS«, t00=0x0109, t01=0x0088}
0x19e84…19eac Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x0109, t01=0x00b4}
0x19eac…19ed4 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x0109, t01=0x00dc}
0x19ed4…19eee Head {h00=0x0016, h01=0x0050, text=» ADK A5,1 ADD ONE «, t00=0x0109, t01=0x0104}
0x19eee…19f1c Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0109, t01=0x011e}
0x19f1c…19f2e Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0109, t01=0x014c}
0x19f2e…19f56 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A5 GET REAL DWT-ADDRESS «, t00=0x0109, t01=0x015e}
0x19f56…19f68 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x0109, t01=0x0186}
0x19f68…19f76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0008}
0x19f76…19f8e Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x010a, t01=0x0016}
0x19f8e…19fa0 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010a, t01=0x002e}
0x19fa0…19fb4 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x010a, t01=0x0040}
0x19fb4…19fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0054}
0x19fbe…19fd8 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x010a, t01=0x005e}
0x19fd8…1a008 Head {h00=0x002c, h01=0x0050, text=»* IF BIT 0 IN SIXTH WORD IN DWT IS SET «, t00=0x010a, t01=0x0078}
0x1a008…1a03c Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x010a, t01=0x00a8}
0x1a03c…1a076 Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x010a, t01=0x00dc}
0x1a076…1a0aa Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x010a, t01=0x0116}
0x1a0aa…1a0b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x014a}
0x1a0b4…1a0e8 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x010a, t01=0x0154}
0x1a0e8…1a118 Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x010a, t01=0x0188}
0x1a118…1a156 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x010b, t01=0x0028}
0x1a156…1a180 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x010b, t01=0x0066}
0x1a180…1a1a0 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x010b, t01=0x0090}
0x1a1a0…1a1c4 Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x010b, t01=0x00b0}
0x1a1c4…1a1f0 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x010b, t01=0x00d4}
0x1a1f0…1a222 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x010b, t01=0x0100}
0x1a222…1a252 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x010b, t01=0x0132}
0x1a252…1a272 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x010b, t01=0x0162}
0x1a272…1a2a0 Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB STORE NEW LENGTH«, t00=0x010b, t01=0x0182}
0x1a2a0…1a2b6 Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x010c, t01=0x0020}
0x1a2b6…1a2ca Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x010c, t01=0x0036}
0x1a2ca…1a2d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x004a}
0x1a2d4…1a2ee Head {h00=0x0016, h01=0x0050, text=»* CHECK IF PAGING«, t00=0x010c, t01=0x0054}
0x1a2ee…1a2f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x006e}
0x1a2f8…1a31e Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x010c, t01=0x0078}
0x1a31e…1a33c Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x010c, t01=0x009e}
0x1a33c…1a350 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT70«, t00=0x010c, t01=0x00bc}
0x1a350…1a35e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010c, t01=0x00d0}
0x1a35e…1a38e Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x010c, t01=0x00de}
0x1a38e…1a3ba Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x010c, t01=0x010e}
0x1a3ba…1a3e8 Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x010c, t01=0x013a}
0x1a3e8…1a418 Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x010c, t01=0x0168}
0x1a418…1a440 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x010d, t01=0x0008}
0x1a440…1a466 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x010d, t01=0x0030}
0x1a466…1a470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0056}
0x1a470…1a4b0 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x010d, t01=0x0060}
0x1a4b0…1a4ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x00a0}
0x1a4ba…1a4e4 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x010d, t01=0x00aa}
0x1a4e4…1a51a Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x010d, t01=0x00d4}
0x1a51a…1a542 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x010d, t01=0x010a}
0x1a542…1a54c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0132}
0x1a54c…1a59c Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x010d, t01=0x013c}
0x1a59c…1a5a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x018c}
0x1a5a6…1a5d6 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x010e, t01=0x0008}
0x1a5d6…1a602 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x010e, t01=0x0038}
0x1a602…1a616 Head {h00=0x0010, h01=0x0050, text=» ADK A3,1 «, t00=0x010e, t01=0x0064}
0x1a616…1a646 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x010e, t01=0x0078}
0x1a646…1a660 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x010e, t01=0x00a8}
0x1a660…1a67e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x010e, t01=0x00c2}
0x1a67e…1a6a8 Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x010e, t01=0x00e0}
0x1a6a8…1a6d8 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH «, t00=0x010e, t01=0x010a}
0x1a6d8…1a6e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x013a}
0x1a6e6…1a6f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0148}
0x1a6f0…1a728 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x010e, t01=0x0152}
0x1a728…1a762 Head {h00=0x0036, h01=0x0050, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x010e, t01=0x018a}
0x1a762…1a79a Head {h00=0x0034, h01=0x0050, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x010f, t01=0x0034}
0x1a79a…1a7ca Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x010f, t01=0x006c}
0x1a7ca…1a7d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x009c}
0x1a7d4…1a7f2 Head {h00=0x001a, h01=0x0050, text=» CW A3,STKCOM+BUFSIZ «, t00=0x010f, t01=0x00a6}
0x1a7f2…1a808 Head {h00=0x0012, h01=0x0050, text=» RF(NG) DWT65 «, t00=0x010f, t01=0x00c4}
0x1a808…1a824 Head {h00=0x0018, h01=0x0050, text=» ST A3,STKCOM+BUFSIZ«, t00=0x010f, t01=0x00da}
0x1a824…1a842 Head {h00=0x001a, h01=0x0050, text=» ST A12,STKCOM+SYSBUF «, t00=0x010f, t01=0x00f6}
0x1a842…1a856 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x010f, t01=0x0114}
0x1a856…1a87a Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x010f, t01=0x0128}
0x1a87a…1a888 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010f, t01=0x014c}
0x1a888…1a89c Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x010f, t01=0x015a}
0x1a89c…1a8a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x016e}
0x1a8a6…1a8d8 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x010f, t01=0x0178}
0x1a8d8…1a8e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x001a}
0x1a8e2…1a908 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0110, t01=0x0024}
0x1a908…1a92e Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x0110, t01=0x004a}
0x1a92e…1a95c Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x0110, t01=0x0070}
0x1a95c…1a982 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0110, t01=0x009e}
0x1a982…1a9a8 Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x0110, t01=0x00c4}
0x1a9a8…1a9b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00ea}
0x1a9b2…1a9e2 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x0110, t01=0x00f4}
0x1a9e2…1a9ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0124}
0x1a9ec…1a9fe Head {h00=0x000e, h01=0x0050, text=» SUKL A8,4«, t00=0x0110, t01=0x012e}
0x1a9fe…1aa12 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWTEX«, t00=0x0110, t01=0x0140}
0x1aa12…1aa30 Head {h00=0x001a, h01=0x0050, text=» ADK A7,4 NEXT DEVICE «, t00=0x0110, t01=0x0154}
0x1aa30…1aa46 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x0110, t01=0x0172}
0x1aa46…1aa62 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0110, t01=0x0188}
0x1aa62…1aa72 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0111, t01=0x0014}
0x1aa72…1aa86 Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x0111, t01=0x0024}
0x1aa86…1aa96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0111, t01=0x0038}
0x1aa96…1aaa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x0048}
0x1aaa4…1aaae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0056}
0x1aaae…1aae8 Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x0111, t01=0x0060}
0x1aae8…1ab20 Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x0111, t01=0x009a}
0x1ab20…1ab58 Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x0111, t01=0x00d2}
0x1ab58…1ab8c Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x0111, t01=0x010a}
0x1ab8c…1abc2 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x0111, t01=0x013e}
0x1abc2…1abf8 Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x0111, t01=0x0174}
0x1abf8…1ac16 Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x0112, t01=0x001a}
0x1ac16…1ac52 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x0112, t01=0x0038}
0x1ac52…1ac7e Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x0112, t01=0x0074}
0x1ac7e…1ac88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00a0}
0x1ac88…1acca Head {h00=0x003e, h01=0x0050, text=»ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x00aa}
0x1acca…1acf0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x0112, t01=0x00ec}
0x1acf0…1ad2e Head {h00=0x003a, h01=0x0050, text=» AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x0112}
0x1ad2e…1ad6a Head {h00=0x0038, h01=0x0050, text=» LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x0150}
0x1ad6a…1ad8a Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x0112, t01=0x018c}
0x1ad8a…1adca Head {h00=0x003c, h01=0x0050, text=»DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE«, t00=0x0113, t01=0x001c}
0x1adca…1adea Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x0113, t01=0x005c}
0x1adea…1ae24 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x0113, t01=0x007c}
0x1ae24…1ae66 Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x0113, t01=0x00b6}
0x1ae66…1ae88 Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x0113, t01=0x00f8}
0x1ae88…1aeaa Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x0113, t01=0x011a}
0x1aeaa…1aed6 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x0113, t01=0x013c}
0x1aed6…1aefe Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x0113, t01=0x0168}
0x1aefe…1af10 Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x0113, t01=0x0190}
0x1af10…1af4e Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x0114, t01=0x0012}
0x1af4e…1af86 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x0114, t01=0x0050}
0x1af86…1afc2 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x0114, t01=0x0088}
0x1afc2…1afe6 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x0114, t01=0x00c4}
0x1afe6…1b00c Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x0114, t01=0x00e8}
0x1b00c…1b034 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x0114, t01=0x010e}
0x1b034…1b060 Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x0136}
0x1b060…1b07a Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x0114, t01=0x0162}
0x1b07a…1b0a8 Head {h00=0x002a, h01=0x0050, text=»DWT150 CM* STKEND+ECHTAB CLEAR LENGTH «, t00=0x0114, t01=0x017c}
0x1b0a8…1b0c6 Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x0115, t01=0x001a}
0x1b0c6…1b0d4 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0115, t01=0x0038}
0x1b0d4…1b0e6 Head {h00=0x000e, h01=0x0050, text=» IFT DC=1 «, t00=0x0115, t01=0x0046}
0x1b0e6…1b0f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x0058}
0x1b0f4…1b134 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0115, t01=0x0066}
0x1b134…1b174 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0115, t01=0x00a6}
0x1b174…1b1b4 Head {h00=0x003c, h01=0x0050, text=»* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * «, t00=0x0115, t01=0x00e6}
0x1b1b4…1b1f4 Head {h00=0x003c, h01=0x0050, text=»* ========================================== * «, t00=0x0115, t01=0x0126}
0x1b1f4…1b234 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0115, t01=0x0166}
0x1b234…1b274 Head {h00=0x003c, h01=0x0050, text=»* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * «, t00=0x0116, t01=0x0016}
0x1b274…1b2b4 Head {h00=0x003c, h01=0x0050, text=»* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * «, t00=0x0116, t01=0x0056}
0x1b2b4…1b2f4 Head {h00=0x003c, h01=0x0050, text=»* TABLE START IS DEFINED BY THE POINTER SCTDCT * «, t00=0x0116, t01=0x0096}
0x1b2f4…1b334 Head {h00=0x003c, h01=0x0050, text=»* IN SYSTAB. * «, t00=0x0116, t01=0x00d6}
0x1b334…1b374 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * «, t00=0x0116, t01=0x0116}
0x1b374…1b3b4 Head {h00=0x003c, h01=0x0050, text=»* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * «, t00=0x0116, t01=0x0156}
0x1b3b4…1b3f4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0117, t01=0x0008}
0x1b3f4…1b434 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0117, t01=0x0048}
0x1b434…1b474 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES CALLED: GETDTE, P:DTE * «, t00=0x0117, t01=0x0088}
0x1b474…1b4b4 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0117, t01=0x00c8}
0x1b4b4…1b4f4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0117, t01=0x0108}
0x1b4f4…1b534 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0117, t01=0x0148}
0x1b534…1b540 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x0188}
0x1b540…1b54c (280, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0118, t01=0x0004}
0x1b54c…1b560 Head {h00=0x0010, h01=0x0050, text=»B:CNA EQU * «, t00=0x0118, t01=0x0010}
0x1b560…1b57c Head {h00=0x0018, h01=0x0050, text=» LD A11,DCBLK+STKCOM«, t00=0x0118, t01=0x0024}
0x1b57c…1b5aa Head {h00=0x002a, h01=0x0050, text=» RF(Z) B:CN20 NO DATA COMMUNICATION =1«, t00=0x0118, t01=0x0040}
0x1b5aa…1b5b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x006e}
0x1b5b4…1b5f4 Head {h00=0x003c, h01=0x0050, text=» AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA «, t00=0x0118, t01=0x0078}
0x1b5f4…1b622 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0118, t01=0x00b8}
0x1b622…1b64e Head {h00=0x0028, h01=0x0050, text=» ST A12,SCTDCT UPDATE SYSTAB POINTER«, t00=0x0118, t01=0x00e6}
0x1b64e…1b682 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0118, t01=0x0112}
0x1b682…1b6ae Head {h00=0x0028, h01=0x0050, text=» CALL GETDTE GET NO OF DTE:S DEFINED«, t00=0x0118, t01=0x0146}
0x1b6ae…1b6e2 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,2 ADVANCE TO START OF SDTE RECORD «, t00=0x0118, t01=0x0172}
0x1b6e2…1b6f6 Head {h00=0x0010, h01=0x0050, text=»B:CN00 EQU *«, t00=0x0119, t01=0x0016}
0x1b6f6…1b708 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0119, t01=0x002a}
0x1b708…1b73e Head {h00=0x0032, h01=0x0050, text=» RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA«, t00=0x0119, t01=0x003c}
0x1b73e…1b748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0072}
0x1b748…1b77a Head {h00=0x002e, h01=0x0050, text=» ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT«, t00=0x0119, t01=0x007c}
0x1b77a…1b7aa Head {h00=0x002c, h01=0x0050, text=» ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME«, t00=0x0119, t01=0x00ae}
0x1b7aa…1b7d4 Head {h00=0x0026, h01=0x0050, text=» CALL P:DTE PROCESS THIS DTE BLOCK«, t00=0x0119, t01=0x00de}
0x1b7d4…1b80a Head {h00=0x0032, h01=0x0050, text=» LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS «, t00=0x0119, t01=0x0108}
0x1b80a…1b838 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A12 GET ADDRESS TO NEXT DTE «, t00=0x0119, t01=0x013e}
0x1b838…1b84a Head {h00=0x000e, h01=0x0050, text=» RB B:CN00«, t00=0x0119, t01=0x016c}
0x1b84a…1b854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x017e}
0x1b854…1b868 Head {h00=0x0010, h01=0x0050, text=»B:CN10 EQU *«, t00=0x0119, t01=0x0188}
0x1b868…1b886 Head {h00=0x001a, h01=0x0050, text=» CM 0,A12 AND RESET IT«, t00=0x011a, t01=0x000c}
0x1b886…1b89a Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x011a, t01=0x002a}
0x1b89a…1b8ca Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x011a, t01=0x003e}
0x1b8ca…1b8e4 Head {h00=0x0016, h01=0x0050, text=»B:CN20 EQU * =1 «, t00=0x011a, t01=0x006e}
0x1b8e4…1b8f4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011a, t01=0x0088}
0x1b8f4…1b902 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x0098}
0x1b902…1b942 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x011a, t01=0x00a6}
0x1b942…1b982 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011a, t01=0x00e6}
0x1b982…1b9c2 Head {h00=0x003c, h01=0x0050, text=»* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * «, t00=0x011a, t01=0x0126}
0x1b9c2…1ba02 Head {h00=0x003c, h01=0x0050, text=»* ============================================== * «, t00=0x011a, t01=0x0166}
0x1ba02…1ba42 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011b, t01=0x0016}
0x1ba42…1ba82 Head {h00=0x003c, h01=0x0050, text=»* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * «, t00=0x011b, t01=0x0056}
0x1ba82…1bac2 Head {h00=0x003c, h01=0x0050, text=»* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * «, t00=0x011b, t01=0x0096}
0x1bac2…1bb02 Head {h00=0x003c, h01=0x0050, text=»* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * «, t00=0x011b, t01=0x00d6}
0x1bb02…1bb42 Head {h00=0x003c, h01=0x0050, text=»* TIMES SPECIFIED. * «, t00=0x011b, t01=0x0116}
0x1bb42…1bb82 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011b, t01=0x0156}
0x1bb82…1bbc2 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * «, t00=0x011c, t01=0x0008}
0x1bbc2…1bc02 Head {h00=0x003c, h01=0x0050, text=»* SDTE NAME IN CONF. DATA * «, t00=0x011c, t01=0x0048}
0x1bc02…1bc42 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO START OF CURRENT * «, t00=0x011c, t01=0x0088}
0x1bc42…1bc82 Head {h00=0x003c, h01=0x0050, text=»* DTE BLOCK IN SCTDCT TABLE * «, t00=0x011c, t01=0x00c8}
0x1bc82…1bcc2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011c, t01=0x0108}
0x1bcc2…1bd02 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * «, t00=0x011c, t01=0x0148}
0x1bd02…1bd42 Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DTE-BLOCK IN CONF. DATA * «, t00=0x011c, t01=0x0188}
0x1bd42…1bd82 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO LAST DEFINED DTE-BLOCK * «, t00=0x011d, t01=0x0038}
0x1bd82…1bdc2 Head {h00=0x003c, h01=0x0050, text=»* DEFINED IN SCTDCT TABLE * «, t00=0x011d, t01=0x0078}
0x1bdc2…1be02 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011d, t01=0x00b8}
0x1be02…1be42 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: B:CNA * «, t00=0x011d, t01=0x00f8}
0x1be42…1be82 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * «, t00=0x011d, t01=0x0138}
0x1be82…1bec2 Head {h00=0x003c, h01=0x0050, text=»* AND MOVE * «, t00=0x011d, t01=0x0178}
0x1bec2…1bf02 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011e, t01=0x0028}
0x1bf02…1bf42 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x011e, t01=0x0068}
0x1bf42…1bf4e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x00a8}
0x1bf4e…1bf5a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x00b4}
0x1bf5a…1bf6e Head {h00=0x0010, h01=0x0050, text=»P:DTE EQU * «, t00=0x011e, t01=0x00c0}
0x1bf6e…1bf9c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/3000 INITIALIZE NAME FILLER «, t00=0x011e, t01=0x00d4}
0x1bf9c…1bfcc Head {h00=0x002c, h01=0x0050, text=» LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME «, t00=0x011e, t01=0x0102}
0x1bfcc…1bffe Head {h00=0x002e, h01=0x0050, text=» LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T)«, t00=0x011e, t01=0x0132}
0x1bffe…1c012 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x011e, t01=0x0164}
0x1c012…1c03c Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' START OF TYPE RECORD?«, t00=0x011e, t01=0x0178}
0x1c03c…1c056 Head {h00=0x0016, h01=0x0050, text=» RF(E) PDTE00 YES!«, t00=0x011f, t01=0x0012}
0x1c056…1c060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x002c}
0x1c060…1c08a Head {h00=0x0026, h01=0x0050, text=» SLL A1,8 NO LEFT ADJUST CHAR. AND«, t00=0x011f, t01=0x0036}
0x1c08a…1c0b2 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A11 GET NEXT CHARACTER «, t00=0x011f, t01=0x0060}
0x1c0b2…1c0c6 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x011f, t01=0x0088}
0x1c0c6…1c0da Head {h00=0x0010, h01=0x0050, text=»PDTE00 EQU *«, t00=0x011f, t01=0x009c}
0x1c0da…1c10a Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENAM+STKEND SAVE NAME IN STACK «, t00=0x011f, t01=0x00b0}
0x1c10a…1c130 Head {h00=0x0022, h01=0x0050, text=» CALL GETCOP GET NO OF COPIES «, t00=0x011f, t01=0x00e0}
0x1c130…1c156 Head {h00=0x0022, h01=0x0050, text=» ST A1,DTECOP+STKEND AND SAVE «, t00=0x011f, t01=0x0106}
0x1c156…1c18a Head {h00=0x0030, h01=0x0050, text=» ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER «, t00=0x011f, t01=0x012c}
0x1c18a…1c19e Head {h00=0x0010, h01=0x0050, text=» LC A1,1,A11«, t00=0x011f, t01=0x0160}
0x1c19e…1c1c4 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 FORM TYPE IDENTIFIER«, t00=0x011f, t01=0x0174}
0x1c1c4…1c1d8 Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0120, t01=0x000a}
0x1c1d8…1c202 Head {h00=0x0026, h01=0x0050, text=» ST A1,DTETYP+STKEND SAVE IN STACK«, t00=0x0120, t01=0x001e}
0x1c202…1c216 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0120, t01=0x0048}
0x1c216…1c242 Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 RESET NETWORK ADDR. LENGTH«, t00=0x0120, t01=0x005c}
0x1c242…1c266 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0120, t01=0x0088}
0x1c266…1c278 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0120, t01=0x00ac}
0x1c278…1c292 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE05 YES!«, t00=0x0120, t01=0x00be}
0x1c292…1c29c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x00d8}
0x1c29c…1c2ce Head {h00=0x002e, h01=0x0050, text=» LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER«, t00=0x0120, t01=0x00e2}
0x1c2ce…1c2e2 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'AA'«, t00=0x0120, t01=0x0114}
0x1c2e2…1c30c Head {h00=0x0026, h01=0x0050, text=» RF(NE) PDTE05 NSA OR SDTE RECORD «, t00=0x0120, t01=0x0128}
0x1c30c…1c316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0152}
0x1c316…1c348 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0120, t01=0x015c}
0x1c348…1c372 Head {h00=0x0026, h01=0x0050, text=» ST A11,NASTRT+STKEND SAVE ADDRESS«, t00=0x0120, t01=0x018e}
0x1c372…1c39c Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0121, t01=0x0028}
0x1c39c…1c3b0 Head {h00=0x0010, h01=0x0050, text=» LC A7,2,A11«, t00=0x0121, t01=0x0052}
0x1c3b0…1c3c4 Head {h00=0x0010, h01=0x0050, text=»PDTE05 EQU *«, t00=0x0121, t01=0x0066}
0x1c3c4…1c3f2 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0121, t01=0x007a}
0x1c3f2…1c404 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0121, t01=0x00a8}
0x1c404…1c428 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0121, t01=0x00ba}
0x1c428…1c43a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0121, t01=0x00de}
0x1c43a…1c454 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE07 YES!«, t00=0x0121, t01=0x00f0}
0x1c454…1c45e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x010a}
0x1c45e…1c472 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'SS'«, t00=0x0121, t01=0x0114}
0x1c472…1c496 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PDTE07 NO NSA RECORD«, t00=0x0121, t01=0x0128}
0x1c496…1c4a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x014c}
0x1c4a0…1c4d2 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0121, t01=0x0156}
0x1c4d2…1c4e6 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0121, t01=0x0188}
0x1c4e6…1c514 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,2 SKIP NSA NR IN CONF. DATA «, t00=0x0122, t01=0x000c}
0x1c514…1c528 Head {h00=0x0010, h01=0x0050, text=»PDTE07 EQU *«, t00=0x0122, t01=0x003a}
0x1c528…1c55e Head {h00=0x0032, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. «, t00=0x0122, t01=0x004e}
0x1c55e…1c586 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/FF LOOK IF LEGAL NUMBER«, t00=0x0122, t01=0x0084}
0x1c586…1c5a2 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PDTE10 YES! «, t00=0x0122, t01=0x00ac}
0x1c5a2…1c5ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x00c8}
0x1c5ac…1c5c0 Head {h00=0x0010, h01=0x0050, text=»NSAERR EQU *«, t00=0x0122, t01=0x00d2}
0x1c5c0…1c5ee Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 NO, ERROR IN CONF. FILE «, t00=0x0122, t01=0x00e6}
0x1c5ee…1c602 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0122, t01=0x0114}
0x1c602…1c616 Head {h00=0x0010, h01=0x0050, text=»PDTE10 EQU *«, t00=0x0122, t01=0x0128}
0x1c616…1c628 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0122, t01=0x013c}
0x1c628…1c64e Head {h00=0x0022, h01=0x0050, text=» RF(Z) PDTE15 NO SUBADDRESSES «, t00=0x0122, t01=0x014e}
0x1c64e…1c658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0174}
0x1c658…1c690 Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR.«, t00=0x0122, t01=0x017e}
0x1c690…1c6a2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0123, t01=0x0026}
0x1c6a2…1c6d4 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE STAT OF NEXT RECORD «, t00=0x0123, t01=0x0038}
0x1c6d4…1c6e8 Head {h00=0x0010, h01=0x0050, text=»PDTE15 EQU *«, t00=0x0123, t01=0x006a}
0x1c6e8…1c71e Head {h00=0x0032, h01=0x0050, text=» CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK «, t00=0x0123, t01=0x007e}
0x1c71e…1c74a Head {h00=0x0028, h01=0x0050, text=» CALL UPDDTE UPDATE DTE BLOCK IN DCT«, t00=0x0123, t01=0x00b4}
0x1c74a…1c778 Head {h00=0x002a, h01=0x0050, text=» LD A7,DTECOP+STKEND GET NO OF COPIES «, t00=0x0123, t01=0x00e0}
0x1c778…1c78c Head {h00=0x0010, h01=0x0050, text=»PDTE20 EQU *«, t00=0x0123, t01=0x010e}
0x1c78c…1c79e Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0123, t01=0x0122}
0x1c79e…1c7ce Head {h00=0x002c, h01=0x0050, text=» RF(Z) PDTE40 NO COPIES LEFT TO PROCESS «, t00=0x0123, t01=0x0134}
0x1c7ce…1c7fe Head {h00=0x002c, h01=0x0050, text=» LDK A5,1 INITIALIZE INCREMENT CONSTANT «, t00=0x0123, t01=0x0164}
0x1c7fe…1c82c (292, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A4,DTENAM+STKEND GET PREVIOUS NAME«, t00=0x0124, t01=0x0004}
0x1c82c…1c83e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0124, t01=0x0032}
0x1c83e…1c86c Head {h00=0x002a, h01=0x0050, text=» ANK A3,/FF ISOLATE RIGHT BYTE OF NAME«, t00=0x0124, t01=0x0044}
0x1c86c…1c890 Head {h00=0x0020, h01=0x0050, text=» CWK A3,/5F UPPER BOUNDARY? «, t00=0x0124, t01=0x0072}
0x1c890…1c8aa Head {h00=0x0016, h01=0x0050, text=» RF(L) PDTE25 NO! «, t00=0x0124, t01=0x0096}
0x1c8aa…1c8b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00b0}
0x1c8b4…1c8e4 Head {h00=0x002c, h01=0x0050, text=» LC A4,/30 RESET RIGHT BYTE TO ASCII '0'«, t00=0x0124, t01=0x00ba}
0x1c8e4…1c90e Head {h00=0x0026, h01=0x0050, text=» SLL A5,8 LEFT BYTE INCREMENTATION«, t00=0x0124, t01=0x00ea}
0x1c90e…1c922 Head {h00=0x0010, h01=0x0050, text=»PDTE25 EQU *«, t00=0x0124, t01=0x0114}
0x1c922…1c94c Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 INCREMENT SYMBOLIC NAME«, t00=0x0124, t01=0x0128}
0x1c94c…1c968 Head {h00=0x0018, h01=0x0050, text=» ST A4,DTENAM+STKEND«, t00=0x0124, t01=0x0152}
0x1c968…1c972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x016e}
0x1c972…1c996 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0124, t01=0x0178}
0x1c996…1c9a8 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0125, t01=0x000c}
0x1c9a8…1c9c2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0125, t01=0x001e}
0x1c9c2…1c9cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0038}
0x1c9cc…1c9fe Head {h00=0x002e, h01=0x0050, text=» LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD «, t00=0x0125, t01=0x0042}
0x1c9fe…1ca32 Head {h00=0x0030, h01=0x0050, text=» CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. «, t00=0x0125, t01=0x0074}
0x1ca32…1ca48 Head {h00=0x0012, h01=0x0050, text=» RF(E) PDTE35 «, t00=0x0125, t01=0x00a8}
0x1ca48…1ca52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00be}
0x1ca52…1ca74 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'SS' IF NSA RECORD«, t00=0x0125, t01=0x00c8}
0x1ca74…1caa2 Head {h00=0x002a, h01=0x0050, text=» RF(E) PDTE30 USE OLD NETWORK ADDRESS «, t00=0x0125, t01=0x00ea}
0x1caa2…1caac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0118}
0x1caac…1cade Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0125, t01=0x0122}
0x1cade…1cafc Head {h00=0x001a, h01=0x0050, text=» ST A11,NASTRT+STKEND «, t00=0x0125, t01=0x0154}
0x1cafc…1cb26 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0125, t01=0x0172}
0x1cb26…1cb54 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0126, t01=0x000c}
0x1cb54…1cb5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x003a}
0x1cb5e…1cb82 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0126, t01=0x0044}
0x1cb82…1cb94 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0126, t01=0x0068}
0x1cb94…1cbae Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0126, t01=0x007a}
0x1cbae…1cbb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0094}
0x1cbb8…1cbcc Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0126, t01=0x009e}
0x1cbcc…1cbe0 Head {h00=0x0010, h01=0x0050, text=» CCK A1,'SS'«, t00=0x0126, t01=0x00b2}
0x1cbe0…1cc0c Head {h00=0x0028, h01=0x0050, text=» RF(NE) PDTE35 NO NSA RECORD PRESENT«, t00=0x0126, t01=0x00c6}
0x1cc0c…1cc16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00f2}
0x1cc16…1cc2a Head {h00=0x0010, h01=0x0050, text=»PDTE30 EQU *«, t00=0x0126, t01=0x00fc}
0x1cc2a…1cc5c Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0126, t01=0x0110}
0x1cc5c…1cc70 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0126, t01=0x0142}
0x1cc70…1cca0 Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR.«, t00=0x0126, t01=0x0156}
0x1cca0…1ccb4 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0126, t01=0x0186}
0x1ccb4…1ccc6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0127, t01=0x000a}
0x1ccc6…1ccea Head {h00=0x0020, h01=0x0050, text=» RF(Z) PDTE35 NO SUBADDRESSE«, t00=0x0127, t01=0x001c}
0x1ccea…1ccf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0040}
0x1ccf4…1cd08 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/FF «, t00=0x0127, t01=0x004a}
0x1cd08…1cd38 Head {h00=0x002c, h01=0x0050, text=» RB(G) NSAERR TOO MANY SUBADDR. DEFINED «, t00=0x0127, t01=0x005e}
0x1cd38…1cd42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x008e}
0x1cd42…1cd7a Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR.«, t00=0x0127, t01=0x0098}
0x1cd7a…1cd8c Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0127, t01=0x00d0}
0x1cd8c…1cdbe Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE START OF NEXT RECORD«, t00=0x0127, t01=0x00e2}
0x1cdbe…1cdd2 Head {h00=0x0010, h01=0x0050, text=»PDTE35 EQU *«, t00=0x0127, t01=0x0114}
0x1cdd2…1ce04 Head {h00=0x002e, h01=0x0050, text=» LDR* A12,A12 GET START OF NEXT DTE BLOCK «, t00=0x0127, t01=0x0128}
0x1ce04…1ce3c Head {h00=0x0034, h01=0x0050, text=» CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK «, t00=0x0127, t01=0x015a}
0x1ce3c…1ce50 (296, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL UPDDTE«, t00=0x0128, t01=0x0004}
0x1ce50…1ce62 Head {h00=0x000e, h01=0x0050, text=» RB PDTE20«, t00=0x0128, t01=0x0018}
0x1ce62…1ce6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x002a}
0x1ce6c…1ce80 Head {h00=0x0010, h01=0x0050, text=»PDTE40 EQU *«, t00=0x0128, t01=0x0034}
0x1ce80…1ce90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0048}
0x1ce90…1ce9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0058}
0x1ce9e…1cede Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0128, t01=0x0066}
0x1cede…1cf1e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0128, t01=0x00a6}
0x1cf1e…1cf5e Head {h00=0x003c, h01=0x0050, text=»* DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK *«, t00=0x0128, t01=0x00e6}
0x1cf5e…1cf9e Head {h00=0x003c, h01=0x0050, text=»* ============================================ *«, t00=0x0128, t01=0x0126}
0x1cf9e…1cfde Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0128, t01=0x0166}
0x1cfde…1d01e Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A12 START OF CURRENT DTE BLOCK *«, t00=0x0129, t01=0x0016}
0x1d01e…1d05e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0129, t01=0x0056}
0x1d05e…1d09e Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTER: A1,A9 *«, t00=0x0129, t01=0x0096}
0x1d09e…1d0de Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0129, t01=0x00d6}
0x1d0de…1d11e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0129, t01=0x0116}
0x1d11e…1d126 Head {h00=0x0004, h01=0x0050, t00=0x0129, t01=0x0156}
0x1d126…1d12e Head {h00=0x0004, h01=0x0050, t00=0x0129, t01=0x015e}
0x1d12e…1d142 Head {h00=0x0010, h01=0x0050, text=»DTESIZ EQU *«, t00=0x0129, t01=0x0166}
0x1d142…1d15e Head {h00=0x0018, h01=0x0050, text=» ST A11,WRK1+STKEND «, t00=0x0129, t01=0x017a}
0x1d15e…1d198 Head {h00=0x0036, h01=0x0050, text=» LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS «, t00=0x012a, t01=0x0008}
0x1d198…1d1aa Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x012a, t01=0x0042}
0x1d1aa…1d1d2 Head {h00=0x0024, h01=0x0050, text=» SRL A1,1 2 DIGITS IN EACH BYTE «, t00=0x012a, t01=0x0054}
0x1d1d2…1d202 Head {h00=0x002c, h01=0x0050, text=» AD A1,DTENSA+STKEND ADD NO OF SUBADDR. «, t00=0x012a, t01=0x007c}
0x1d202…1d234 Head {h00=0x002e, h01=0x0050, text=» ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 «, t00=0x012a, t01=0x00ac}
0x1d234…1d254 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FFFE MAKE EVEN«, t00=0x012a, t01=0x00de}
0x1d254…1d280 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A12 START OF NEXT DTE BLOCK «, t00=0x012a, t01=0x00fe}
0x1d280…1d2aa Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 UPDATE DTE BLOCK LINK «, t00=0x012a, t01=0x012a}
0x1d2aa…1d2bc Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x012a, t01=0x0154}
0x1d2bc…1d2e0 Head {h00=0x0020, h01=0x0050, text=» ST A11,WRK1+STKEND SAVE A11«, t00=0x012a, t01=0x0166}
0x1d2e0…1d314 Head {h00=0x0030, h01=0x0050, text=» LD A11,LIMIT+STKEND GET END OF SYSTEM AREA «, t00=0x012a, t01=0x018a}
0x1d314…1d33a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x012b, t01=0x002e}
0x1d33a…1d354 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DTSIZ0 NO!«, t00=0x012b, t01=0x0054}
0x1d354…1d35e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x006e}
0x1d35e…1d378 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 YES!«, t00=0x012b, t01=0x0078}
0x1d378…1d38c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x0092}
0x1d38c…1d396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00a6}
0x1d396…1d3aa Head {h00=0x0010, h01=0x0050, text=»DTSIZ0 EQU *«, t00=0x012b, t01=0x00b0}
0x1d3aa…1d3e4 Head {h00=0x0036, h01=0x0050, text=» LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA«, t00=0x012b, t01=0x00c4}
0x1d3e4…1d3f4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012b, t01=0x00fe}
0x1d3f4…1d402 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x010e}
0x1d402…1d442 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x012b, t01=0x011c}
0x1d442…1d482 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x012b, t01=0x015c}
0x1d482…1d4c2 Head {h00=0x003c, h01=0x0050, text=»* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: *«, t00=0x012c, t01=0x000c}
0x1d4c2…1d502 Head {h00=0x003c, h01=0x0050, text=»* ====== *«, t00=0x012c, t01=0x004c}
0x1d502…1d542 Head {h00=0x003c, h01=0x0050, text=»* NAME *«, t00=0x012c, t01=0x008c}
0x1d542…1d582 Head {h00=0x003c, h01=0x0050, text=»* TYPE *«, t00=0x012c, t01=0x00cc}
0x1d582…1d5c2 Head {h00=0x003c, h01=0x0050, text=»* NETWORK ADDRES *«, t00=0x012c, t01=0x010c}
0x1d5c2…1d602 Head {h00=0x003c, h01=0x0050, text=»* SUBADDRESSES *«, t00=0x012c, t01=0x014c}
0x1d602…1d642 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x012c, t01=0x018c}
0x1d642…1d682 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x012d, t01=0x003c}
0x1d682…1d68a Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x007c}
0x1d68a…1d692 Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0084}
0x1d692…1d6a6 Head {h00=0x0010, h01=0x0050, text=»UPDDTE EQU *«, t00=0x012d, t01=0x008c}
0x1d6a6…1d6de Head {h00=0x0034, h01=0x0050, text=» LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY«, t00=0x012d, t01=0x00a0}
0x1d6de…1d700 Head {h00=0x001e, h01=0x0050, text=» ADK A6,2 SKIP LINK ENTRY «, t00=0x012d, t01=0x00d8}
0x1d700…1d730 Head {h00=0x002c, h01=0x0050, text=» LD A1,DTENAM+STKEND GET NAME FROM STACK«, t00=0x012d, t01=0x00fa}
0x1d730…1d74e Head {h00=0x001a, h01=0x0050, text=» STR A1,A6 SAVE IN DCT«, t00=0x012d, t01=0x012a}
0x1d74e…1d76a Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT ENTRY«, t00=0x012d, t01=0x0148}
0x1d76a…1d79a Head {h00=0x002c, h01=0x0050, text=» LD A1,DTETYP+STKEND GET TYPE FROM STACK«, t00=0x012d, t01=0x0164}
0x1d79a…1d7bc (302, 0, 400) Head {h00=0x001e, h01=0x0050, text=» STR A1,A6 AND SAVE IN DCT«, t00=0x012e, t01=0x0004}
0x1d7bc…1d7ce Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x012e, t01=0x0026}
0x1d7ce…1d7f0 Head {h00=0x001e, h01=0x0050, text=» LDK A5,4 GET NO OF SHIFTS«, t00=0x012e, t01=0x0038}
0x1d7f0…1d822 Head {h00=0x002e, h01=0x0050, text=» ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. «, t00=0x012e, t01=0x005a}
0x1d822…1d85a Head {h00=0x0034, h01=0x0050, text=» LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. «, t00=0x012e, t01=0x008c}
0x1d85a…1d882 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE NO OF CHARACTERS«, t00=0x012e, t01=0x00c4}
0x1d882…1d8a0 Head {h00=0x001a, h01=0x0050, text=» SLL A2,8 LEFT ADJUST «, t00=0x012e, t01=0x00ec}
0x1d8a0…1d8d0 Head {h00=0x002c, h01=0x0050, text=» RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED«, t00=0x012e, t01=0x010a}
0x1d8d0…1d8da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x013a}
0x1d8da…1d912 Head {h00=0x0034, h01=0x0050, text=» LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. «, t00=0x012e, t01=0x0144}
0x1d912…1d93e Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK NA TO DCT«, t00=0x012e, t01=0x017c}
0x1d93e…1d966 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/1F ISOLATE SHIFT COUNT«, t00=0x012f, t01=0x0018}
0x1d966…1d990 Head {h00=0x0026, h01=0x0050, text=» CWK A5,4 LESS THAN ONE BYTE LEFT?«, t00=0x012f, t01=0x0040}
0x1d990…1d9ac Head {h00=0x0018, h01=0x0050, text=» RF(NG) UPDTE2 YES! «, t00=0x012f, t01=0x006a}
0x1d9ac…1d9c0 Head {h00=0x0010, h01=0x0050, text=»UPDTE0 EQU *«, t00=0x012f, t01=0x0086}
0x1d9c0…1d9e2 Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 SET NO OF SHIFTS«, t00=0x012f, t01=0x009a}
0x1d9e2…1d9f4 Head {h00=0x000e, h01=0x0050, text=» RF UPDTE4«, t00=0x012f, t01=0x00bc}
0x1d9f4…1d9fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x00ce}
0x1d9fe…1da12 Head {h00=0x0010, h01=0x0050, text=»UPDTE2 EQU *«, t00=0x012f, t01=0x00d8}
0x1da12…1da36 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 STORE WORD IN DCT«, t00=0x012f, t01=0x00ec}
0x1da36…1da58 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x012f, t01=0x0110}
0x1da58…1da80 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x012f, t01=0x0132}
0x1da80…1daa2 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 GET NO OF SHIFTS«, t00=0x012f, t01=0x015a}
0x1daa2…1dab6 Head {h00=0x0010, h01=0x0050, text=»UPDTE4 EQU *«, t00=0x012f, t01=0x017c}
0x1dab6…1dae6 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. «, t00=0x012f, t01=0x0190}
0x1dae6…1db1e Head {h00=0x0034, h01=0x0050, text=» LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED «, t00=0x0130, t01=0x0030}
0x1db1e…1db48 Head {h00=0x0026, h01=0x0050, text=» RF(Z) UPDTE8 NO SUBADDR. DEFINED «, t00=0x0130, t01=0x0068}
0x1db48…1db52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0092}
0x1db52…1db8a Head {h00=0x0034, h01=0x0050, text=» LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR.«, t00=0x0130, t01=0x009c}
0x1db8a…1db9c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0130, t01=0x00d4}
0x1db9c…1dbca Head {h00=0x002a, h01=0x0050, text=» SLL A3,1 2 DIGITS FOR EACH SUDADDRESS«, t00=0x0130, t01=0x00e6}
0x1dbca…1dbe0 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0130, t01=0x0114}
0x1dbe0…1dc0a Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 AND CONFIGURE DCT WORD «, t00=0x0130, t01=0x012a}
0x1dc0a…1dc2a Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0130, t01=0x0154}
0x1dc2a…1dc44 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UPDTE6 NO!«, t00=0x0130, t01=0x0174}
0x1dc44…1dc4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x018e}
0x1dc4e…1dc72 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0131, t01=0x0008}
0x1dc72…1dc94 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0131, t01=0x002c}
0x1dc94…1dcba Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 ADVANCE DCT POINTER «, t00=0x0131, t01=0x004e}
0x1dcba…1dcda Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0131, t01=0x0074}
0x1dcda…1dd0a Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR.«, t00=0x0131, t01=0x0094}
0x1dd0a…1dd1e Head {h00=0x0010, h01=0x0050, text=»UPDTE6 EQU *«, t00=0x0131, t01=0x00c4}
0x1dd1e…1dd3c Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0131, t01=0x00d8}
0x1dd3c…1dd68 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK INTO DCT «, t00=0x0131, t01=0x00f6}
0x1dd68…1dd7c Head {h00=0x0010, h01=0x0050, text=»UPDTE8 EQU *«, t00=0x0131, t01=0x0122}
0x1dd7c…1dd8e Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0131, t01=0x0136}
0x1dd8e…1dd9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0131, t01=0x0148}
0x1dd9e…1ddac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0131, t01=0x0158}
0x1ddac…1ddec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0131, t01=0x0166}
0x1ddec…1de2c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0132, t01=0x0016}
0x1de2c…1de6c Head {h00=0x003c, h01=0x0050, text=»* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS *«, t00=0x0132, t01=0x0056}
0x1de6c…1deac Head {h00=0x003c, h01=0x0050, text=»* IN ONE WORD. *«, t00=0x0132, t01=0x0096}
0x1deac…1deec Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0132, t01=0x00d6}
0x1deec…1df2c Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A2 WORD TO PACK *«, t00=0x0132, t01=0x0116}
0x1df2c…1df6c Head {h00=0x003c, h01=0x0050, text=»* A3 NO OF CHARACTERS TO PROCESS *«, t00=0x0132, t01=0x0156}
0x1df6c…1dfac Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO FIRST ASCII DIGIT *«, t00=0x0133, t01=0x0008}
0x1dfac…1dfec Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0133, t01=0x0048}
0x1dfec…1e02c Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE PACKED WORD *«, t00=0x0133, t01=0x0088}
0x1e02c…1e06c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0133, t01=0x00c8}
0x1e06c…1e0ac Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD *«, t00=0x0133, t01=0x0108}
0x1e0ac…1e0ec Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO CHAR. FOLLOWING LAST *«, t00=0x0133, t01=0x0148}
0x1e0ec…1e12c Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DIGIT *«, t00=0x0133, t01=0x0188}
0x1e12c…1e16c Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0134, t01=0x0038}
0x1e16c…1e1ac Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE NEXT WORD *«, t00=0x0134, t01=0x0078}
0x1e1ac…1e1ec Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0134, t01=0x00b8}
0x1e1ec…1e22c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0134, t01=0x00f8}
0x1e22c…1e238 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0134, t01=0x0138}
0x1e238…1e244 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0134, t01=0x0144}
0x1e244…1e258 Head {h00=0x0010, h01=0x0050, text=»HEXCPY EQU *«, t00=0x0134, t01=0x0150}
0x1e258…1e26a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0134, t01=0x0164}
0x1e26a…1e28c Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A4 GET CHARACTER «, t00=0x0134, t01=0x0176}
0x1e28c…1e2b0 Head {h00=0x0020, h01=0x0050, text=» CALL HEXCNV CONVERT TO HEX «, t00=0x0135, t01=0x0008}
0x1e2b0…1e2c6 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0135, t01=0x002c}
0x1e2c6…1e2ec Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 CONFIGURE DCT WORD «, t00=0x0135, t01=0x0042}
0x1e2ec…1e318 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NO OF CHARACTERS«, t00=0x0135, t01=0x0068}
0x1e318…1e340 Head {h00=0x0024, h01=0x0050, text=» RF(Z) HXCPY8 WHOLE NA PROCESSED«, t00=0x0135, t01=0x0094}
0x1e340…1e34a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x00bc}
0x1e34a…1e36a Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0135, t01=0x00c6}
0x1e36a…1e384 Head {h00=0x0016, h01=0x0050, text=» RF(NE) HXCPY6 NO!«, t00=0x0135, t01=0x00e6}
0x1e384…1e38e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0100}
0x1e38e…1e3b2 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0135, t01=0x010a}
0x1e3b2…1e3d4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0135, t01=0x012e}
0x1e3d4…1e3fc Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x0135, t01=0x0150}
0x1e3fc…1e41c Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0135, t01=0x0178}
0x1e41c…1e44c Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR.«, t00=0x0136, t01=0x0008}
0x1e44c…1e460 Head {h00=0x0010, h01=0x0050, text=»HXCPY6 EQU *«, t00=0x0136, t01=0x0038}
0x1e460…1e47e Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0136, t01=0x004c}
0x1e47e…1e4ac Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER IN CONF. DATA«, t00=0x0136, t01=0x006a}
0x1e4ac…1e4be Head {h00=0x000e, h01=0x0050, text=» RB HEXCPY«, t00=0x0136, t01=0x0098}
0x1e4be…1e4c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x00aa}
0x1e4c8…1e4dc Head {h00=0x0010, h01=0x0050, text=»HXCPY8 EQU *«, t00=0x0136, t01=0x00b4}
0x1e4dc…1e4ec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0136, t01=0x00c8}
0x1e4ec…1e4fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x00d8}
0x1e4fa…1e53a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0136, t01=0x00e6}
0x1e53a…1e57a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0136, t01=0x0126}
0x1e57a…1e5ba Head {h00=0x003c, h01=0x0050, text=»* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE *«, t00=0x0136, t01=0x0166}
0x1e5ba…1e5fa Head {h00=0x003c, h01=0x0050, text=»* TO CORRESPONDING HEXADECIMAL VALUE *«, t00=0x0137, t01=0x0016}
0x1e5fa…1e63a Head {h00=0x003c, h01=0x0050, text=»* (4 BITS BINARY CODE) *«, t00=0x0137, t01=0x0056}
0x1e63a…1e67a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0137, t01=0x0096}
0x1e67a…1e6ba Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 CHARACTER TO CONVERT *«, t00=0x0137, t01=0x00d6}
0x1e6ba…1e6fa Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0137, t01=0x0116}
0x1e6fa…1e73a Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A1 CONVERTED CARACTER *«, t00=0x0137, t01=0x0156}
0x1e73a…1e77a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0138, t01=0x0008}
0x1e77a…1e7ba Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0138, t01=0x0048}
0x1e7ba…1e7c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x0088}
0x1e7c6…1e7d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x0094}
0x1e7d2…1e7e6 Head {h00=0x0010, h01=0x0050, text=»HEXCNV EQU *«, t00=0x0138, t01=0x00a0}
0x1e7e6…1e80c Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF ISOLATE CHARACTER «, t00=0x0138, t01=0x00b4}
0x1e80c…1e820 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/29 «, t00=0x0138, t01=0x00da}
0x1e820…1e844 Head {h00=0x0020, h01=0x0050, text=» RF(L) TYPERR ERRANEOUS TYPE«, t00=0x0138, t01=0x00ee}
0x1e844…1e84e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0112}
0x1e84e…1e874 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/40 DIGIT BETWEEN 0-9?«, t00=0x0138, t01=0x011c}
0x1e874…1e88e Head {h00=0x0016, h01=0x0050, text=» RF(L) HXCN00 YES!«, t00=0x0138, t01=0x0142}
0x1e88e…1e8b8 Head {h00=0x0026, h01=0x0050, text=» RF(E) TYPERR NO NEXADECIMAL DIGIT«, t00=0x0138, t01=0x015c}
0x1e8b8…1e8c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0186}
0x1e8c2…1e8e8 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/46 DIGIT BETWEEN A-F?«, t00=0x0138, t01=0x0190}
0x1e8e8…1e900 Head {h00=0x0014, h01=0x0050, text=» RF(G) TYPERR NO«, t00=0x0139, t01=0x0026}
0x1e900…1e90a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x003e}
0x1e90a…1e920 Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 YES!«, t00=0x0139, t01=0x0048}
0x1e920…1e934 Head {h00=0x0010, h01=0x0050, text=»HXCN00 EQU *«, t00=0x0139, t01=0x005e}
0x1e934…1e95a Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F ISOLATE HEX NUMBER «, t00=0x0139, t01=0x0072}
0x1e95a…1e96a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0139, t01=0x0098}
0x1e96a…1e974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x00a8}
0x1e974…1e988 Head {h00=0x0010, h01=0x0050, text=»TYPERR EQU *«, t00=0x0139, t01=0x00b2}
0x1e988…1e9ae Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP4 CONF. DATA ERROR«, t00=0x0139, t01=0x00c6}
0x1e9ae…1e9c2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0139, t01=0x00ec}
0x1e9c2…1e9d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0139, t01=0x0100}
0x1e9d0…1ea10 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0139, t01=0x010e}
0x1ea10…1ea50 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0139, t01=0x014e}
0x1ea50…1ea90 Head {h00=0x003c, h01=0x0050, text=»* P:NA PROCESS NETWORK ADDRESS *«, t00=0x0139, t01=0x018e}
0x1ea90…1ead0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013a, t01=0x003e}
0x1ead0…1eb10 Head {h00=0x003c, h01=0x0050, text=»* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. *«, t00=0x013a, t01=0x007e}
0x1eb10…1eb50 Head {h00=0x003c, h01=0x0050, text=»* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE *«, t00=0x013a, t01=0x00be}
0x1eb50…1eb90 Head {h00=0x003c, h01=0x0050, text=»* CONTINUATION DEFINITIONS (C=..), SO THAT THE *«, t00=0x013a, t01=0x00fe}
0x1eb90…1ebd0 Head {h00=0x003c, h01=0x0050, text=»* WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- *«, t00=0x013a, t01=0x013e}
0x1ebd0…1ec10 Head {h00=0x003c, h01=0x0050, text=»* TIONS. *«, t00=0x013a, t01=0x017e}
0x1ec10…1ec50 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013b, t01=0x002e}
0x1ec50…1ec90 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK *«, t00=0x013b, t01=0x006e}
0x1ec90…1ecd0 Head {h00=0x003c, h01=0x0050, text=»* ADDRESS. *«, t00=0x013b, t01=0x00ae}
0x1ecd0…1ed10 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013b, t01=0x00ee}
0x1ed10…1ed50 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LENGTH OF NETWORK ADDRESS *«, t00=0x013b, t01=0x012e}
0x1ed50…1ed90 Head {h00=0x003c, h01=0x0050, text=»* A11 START OF NSA RECORD IN CONF. DATA *«, t00=0x013b, t01=0x016e}
0x1ed90…1edd0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013c, t01=0x001e}
0x1edd0…1ee10 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x013c, t01=0x005e}
0x1ee10…1ee1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013c, t01=0x009e}
0x1ee1c…1ee28 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013c, t01=0x00aa}
0x1ee28…1ee3a Head {h00=0x000e, h01=0x0050, text=»P:NA EQU *«, t00=0x013c, t01=0x00b6}
0x1ee3a…1ee62 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 RESET PACKING CONSTANT«, t00=0x013c, t01=0x00c8}
0x1ee62…1ee88 Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET ADDRESS LENGTH«, t00=0x013c, t01=0x00f0}
0x1ee88…1ee9c Head {h00=0x0010, h01=0x0050, text=»P:NA00 EQU *«, t00=0x013c, t01=0x0116}
0x1ee9c…1eeae Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x013c, t01=0x012a}
0x1eeae…1eed0 Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A11 GET CHARACTER«, t00=0x013c, t01=0x013c}
0x1eed0…1eefa Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 SET CONDITION REGISTER «, t00=0x013c, t01=0x015e}
0x1eefa…1ef22 Head {h00=0x0024, h01=0x0050, text=» RF(Z) P:NA06 END OF CONF. DATA «, t00=0x013c, t01=0x0188}
0x1ef22…1ef2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0020}
0x1ef2c…1ef50 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/FF END OF D-BLOCK? «, t00=0x013d, t01=0x002a}
0x1ef50…1ef6a Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA05 YES!«, t00=0x013d, t01=0x004e}
0x1ef6a…1ef74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0068}
0x1ef74…1ef9e Head {h00=0x0026, h01=0x0050, text=» CCK A1,'==' CONTINUATION RECORD? «, t00=0x013d, t01=0x0072}
0x1ef9e…1efb8 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA04 YES!«, t00=0x013d, t01=0x009c}
0x1efb8…1efc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00b6}
0x1efc2…1eff4 Head {h00=0x002e, h01=0x0050, text=» CCK A1,'NN' NO! START OF NA OR NSA RECORD«, t00=0x013d, t01=0x00c0}
0x1eff4…1f016 Head {h00=0x001e, h01=0x0050, text=» RF(E) P:NA06 YES! RETURN «, t00=0x013d, t01=0x00f2}
0x1f016…1f020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0114}
0x1f020…1f04a Head {h00=0x0026, h01=0x0050, text=» CCK A1,'SS' START OF SDTE RECORD?«, t00=0x013d, t01=0x011e}
0x1f04a…1f064 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA06 YES!«, t00=0x013d, t01=0x0148}
0x1f064…1f06e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0162}
0x1f06e…1f09c Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT NA ADDRESS LENGTH «, t00=0x013d, t01=0x016c}
0x1f09c…1f0c0 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/FF TOO MANY DIGITS?«, t00=0x013e, t01=0x000a}
0x1f0c0…1f0da Head {h00=0x0016, h01=0x0050, text=» RF(NG) P:NA02 NO!«, t00=0x013e, t01=0x002e}
0x1f0da…1f0e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0048}
0x1f0e4…1f112 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 YES! ERROR IN CONF. DATA«, t00=0x013e, t01=0x0052}
0x1f112…1f126 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013e, t01=0x0080}
0x1f126…1f13a Head {h00=0x0010, h01=0x0050, text=»P:NA02 EQU *«, t00=0x013e, t01=0x0094}
0x1f13a…1f14c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x013e, t01=0x00a8}
0x1f14c…1f172 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 REPACKING ADDRESS «, t00=0x013e, t01=0x00ba}
0x1f172…1f1a0 Head {h00=0x002a, h01=0x0050, text=» SCR A1,A3 PUT CHARACTER BACK IN FILE «, t00=0x013e, t01=0x00e0}
0x1f1a0…1f1c6 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,1 GET NEXT CHARACTER«, t00=0x013e, t01=0x010e}
0x1f1c6…1f1d8 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x013e, t01=0x0134}
0x1f1d8…1f1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0146}
0x1f1e2…1f1f6 Head {h00=0x0010, h01=0x0050, text=»P:NA04 EQU *«, t00=0x013e, t01=0x0150}
0x1f1f6…1f22c Head {h00=0x0032, h01=0x0050, text=» SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER «, t00=0x013e, t01=0x0164}
0x1f22c…1f254 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SET REPACKING CONSTANT«, t00=0x013f, t01=0x000a}
0x1f254…1f282 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 ADVANCE TO NEXT CHARACTER «, t00=0x013f, t01=0x0032}
0x1f282…1f294 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x013f, t01=0x0060}
0x1f294…1f29e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0072}
0x1f29e…1f2b2 Head {h00=0x0010, h01=0x0050, text=»P:NA05 EQU *«, t00=0x013f, t01=0x007c}
0x1f2b2…1f2d8 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 DECREMENT NA LENGTH «, t00=0x013f, t01=0x0090}
0x1f2d8…1f306 Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 AND POSITION IN CONF. DATA«, t00=0x013f, t01=0x00b6}
0x1f306…1f310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00e4}
0x1f310…1f324 Head {h00=0x0010, h01=0x0050, text=»P:NA06 EQU *«, t00=0x013f, t01=0x00ee}
0x1f324…1f334 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013f, t01=0x0102}
0x1f334…1f342 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013f, t01=0x0112}
0x1f342…1f34a Head {h00=0x0004, h01=0x0050, t00=0x013f, t01=0x0120}
0x1f34a…1f38a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x013f, t01=0x0128}
0x1f38a…1f3ca Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013f, t01=0x0168}
0x1f3ca…1f40a Head {h00=0x003c, h01=0x0050, text=»* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK *«, t00=0x0140, t01=0x0018}
0x1f40a…1f44a Head {h00=0x003c, h01=0x0050, text=»* ================================================= *«, t00=0x0140, t01=0x0058}
0x1f44a…1f48a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0140, t01=0x0098}
0x1f48a…1f4ca Head {h00=0x003c, h01=0x0050, text=»* END OF BLOCK IS DEFINED BY A RECORD BEGINNING *«, t00=0x0140, t01=0x00d8}
0x1f4ca…1f50a Head {h00=0x003c, h01=0x0050, text=»* WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR *«, t00=0x0140, t01=0x0118}
0x1f50a…1f54a Head {h00=0x003c, h01=0x0050, text=»* BY A CHARACTER = 0 (BINARY) MEANING END OF *«, t00=0x0140, t01=0x0158}
0x1f54a…1f58a Head {h00=0x003c, h01=0x0050, text=»* CONFIGURATION DATA. *«, t00=0x0141, t01=0x0008}
0x1f58a…1f5ca Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x0048}
0x1f5ca…1f60a Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA *«, t00=0x0141, t01=0x0088}
0x1f60a…1f64a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x00c8}
0x1f64a…1f68a Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A8 = 0 IF END OF BLOCK *«, t00=0x0141, t01=0x0108}
0x1f68a…1f6ca Head {h00=0x003c, h01=0x0050, text=»* A8 NOT ZERO OTHERVISE *«, t00=0x0141, t01=0x0148}
0x1f6ca…1f70a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x0188}
0x1f70a…1f74a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0142, t01=0x0038}
0x1f74a…1f752 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0078}
0x1f752…1f75a Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0080}
0x1f75a…1f76e Head {h00=0x0010, h01=0x0050, text=»ENDBLK EQU *«, t00=0x0142, t01=0x0088}
0x1f76e…1f796 Head {h00=0x0024, h01=0x0050, text=» LC A8,1,A11 GET NEXT CHARACTER «, t00=0x0142, t01=0x009c}
0x1f796…1f7bc Head {h00=0x0022, h01=0x0050, text=» CCK A8,/00 END OF CONF. DATA?«, t00=0x0142, t01=0x00c4}
0x1f7bc…1f7d6 Head {h00=0x0016, h01=0x0050, text=» RF(E) ENDBL0 YES!«, t00=0x0142, t01=0x00ea}
0x1f7d6…1f7e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0104}
0x1f7e0…1f810 Head {h00=0x002c, h01=0x0050, text=» CCK A8,'AA' START OF APPL. DEF. BLOCK? «, t00=0x0142, t01=0x010e}
0x1f810…1f83e Head {h00=0x002a, h01=0x0050, text=» RF(NE) ENDBL2 NO! NOT END OF D-BLOCK «, t00=0x0142, t01=0x013e}
0x1f83e…1f848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x016c}
0x1f848…1f85c Head {h00=0x0010, h01=0x0050, text=»ENDBL0 EQU *«, t00=0x0142, t01=0x0176}
0x1f85c…1f888 Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 SET END OF D-BLOCK COND. «, t00=0x0142, t01=0x018a}
0x1f888…1f89c Head {h00=0x0010, h01=0x0050, text=»ENDBL2 EQU *«, t00=0x0143, t01=0x0026}
0x1f89c…1f8ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0143, t01=0x003a}
0x1f8ac…1f8b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x004a}
0x1f8b8…1f8c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0143, t01=0x0056}
0x1f8c6…1f8fc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0143, t01=0x0064}
0x1f8fc…1f932 Head {h00=0x0032, h01=0x0050, text=»* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * «, t00=0x0143, t01=0x009a}
0x1f932…1f968 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0143, t01=0x00d0}
0x1f968…1f972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0106}
0x1f972…1f992 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0143, t01=0x0110}
0x1f992…1f99c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0130}
0x1f99c…1f9cc Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0143, t01=0x013a}
0x1f9cc…1f9f8 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0143, t01=0x016a}
0x1f9f8…1fa26 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0144, t01=0x0008}
0x1fa26…1fa30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0036}
0x1fa30…1fa5e Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0144, t01=0x0040}
0x1fa5e…1fa8c Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0144, t01=0x006e}
0x1fa8c…1fabe Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0144, t01=0x009c}
0x1fabe…1faec Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0144, t01=0x00ce}
0x1faec…1fb06 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0144, t01=0x00fc}
0x1fb06…1fb10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0116}
0x1fb10…1fb28 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0144, t01=0x0120}
0x1fb28…1fb32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0138}
0x1fb32…1fb46 Head {h00=0x0010, h01=0x0050, text=»I:CHSZ EQU *«, t00=0x0144, t01=0x0142}
0x1fb46…1fb5c Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0144, t01=0x0156}
0x1fb5c…1fb84 Head {h00=0x0024, h01=0x0050, text=» CWK A6,8 CONNECTION NUMBER <=8?«, t00=0x0144, t01=0x016c}
0x1fb84…1fb9e (325, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0145, t01=0x0004}
0x1fb9e…1fbc6 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0145, t01=0x001e}
0x1fbc6…1fbe0 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0145, t01=0x0046}
0x1fbe0…1fc10 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0145, t01=0x0060}
0x1fc10…1fc44 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0145, t01=0x0090}
0x1fc44…1fc6c Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0145, t01=0x00c4}
0x1fc6c…1fca0 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0145, t01=0x00ec}
0x1fca0…1fcc6 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0145, t01=0x0120}
0x1fcc6…1fcf2 Head {h00=0x0028, h01=0x0050, text=» ADK A3,2 ADD CONNECTION TYPE SALCUZ«, t00=0x0145, t01=0x0146}
0x1fcf2…1fd24 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ «, t00=0x0145, t01=0x0172}
0x1fd24…1fd3c Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0146, t01=0x0014}
0x1fd3c…1fd48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x002c}
0x1fd48…1fd5e Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=0 «, t00=0x0146, t01=0x0038}
0x1fd5e…1fd74 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0146, t01=0x004e}
0x1fd74…1fd88 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0146, t01=0x0064}
0x1fd88…1fd94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x0078}
0x1fd94…1fda2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0146, t01=0x0084}
0x1fda2…1fde0 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0146, t01=0x0092}
0x1fde0…1fe16 Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * «, t00=0x0146, t01=0x00d0}
0x1fe16…1fe54 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0146, t01=0x0106}
0x1fe54…1fe5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0144}
0x1fe5e…1fe7e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0146, t01=0x014e}
0x1fe7e…1fe88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x016e}
0x1fe88…1feb8 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0146, t01=0x0178}
0x1feb8…1fee4 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0147, t01=0x0018}
0x1fee4…1ff10 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x0147, t01=0x0044}
0x1ff10…1ff3e Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0147, t01=0x0070}
0x1ff3e…1ff48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x009e}
0x1ff48…1ff76 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0147, t01=0x00a8}
0x1ff76…1ffa4 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0147, t01=0x00d6}
0x1ffa4…1ffd6 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0147, t01=0x0104}
0x1ffd6…20004 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0147, t01=0x0136}
0x20004…2000e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0164}
0x2000e…20028 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0147, t01=0x016e}
0x20028…20032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0188}
0x20032…2004a (328, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0148, t01=0x0004}
0x2004a…20054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x001c}
0x20054…20068 Head {h00=0x0010, h01=0x0050, text=»I:CHAZ EQU *«, t00=0x0148, t01=0x0026}
0x20068…2007e Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0148, t01=0x003a}
0x2007e…200a8 Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x0148, t01=0x0050}
0x200a8…200c2 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0148, t01=0x007a}
0x200c2…200ea Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0148, t01=0x0094}
0x200ea…20104 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0148, t01=0x00bc}
0x20104…20134 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0148, t01=0x00d6}
0x20134…20168 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0148, t01=0x0106}
0x20168…20190 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0148, t01=0x013a}
0x20190…201c4 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0148, t01=0x0162}
0x201c4…201e4 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0149, t01=0x0008}
0x201e4…2020e Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x0149, t01=0x0028}
0x2020e…20238 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0149, t01=0x0052}
0x20238…2026e Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0149, t01=0x007c}
0x2026e…20280 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0149, t01=0x00b2}
0x20280…202b0 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x0149, t01=0x00c4}
0x202b0…202d4 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x0149, t01=0x00f4}
0x202d4…20300 Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD CONNECTION TYPE ASCU4Z«, t00=0x0149, t01=0x0118}
0x20300…20332 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z «, t00=0x0149, t01=0x0144}
0x20332…20342 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0149, t01=0x0176}
0x20342…2034e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0149, t01=0x0186}
0x2034e…20364 (330, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=0 «, t00=0x014a, t01=0x0004}
0x20364…2037a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x014a, t01=0x001a}
0x2037a…2038e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014a, t01=0x0030}
0x2038e…2039a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014a, t01=0x0044}
0x2039a…203a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014a, t01=0x0050}
0x203a8…203e6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x014a, t01=0x005e}
0x203e6…2041c Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 *«, t00=0x014a, t01=0x009c}
0x2041c…2045a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x014a, t01=0x00d2}
0x2045a…20464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0110}
0x20464…20484 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x014a, t01=0x011a}
0x20484…2048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x013a}
0x2048e…204be Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x014a, t01=0x0144}
0x204be…204ea Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x014a, t01=0x0174}
0x204ea…20516 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x014b, t01=0x0010}
0x20516…20544 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x014b, t01=0x003c}
0x20544…2054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x006a}
0x2054e…2057c Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x014b, t01=0x0074}
0x2057c…205aa Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x014b, t01=0x00a2}
0x205aa…205dc Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x014b, t01=0x00d0}
0x205dc…2060a Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x014b, t01=0x0102}
0x2060a…20614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0130}
0x20614…2062e Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x014b, t01=0x013a}
0x2062e…20638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0154}
0x20638…20650 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x014b, t01=0x015e}
0x20650…2065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0176}
0x2065a…2066e Head {h00=0x0010, h01=0x0050, text=»I:CHVC EQU *«, t00=0x014b, t01=0x0180}
0x2066e…20682 (332, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x014c, t01=0x0004}
0x20682…206ac Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x014c, t01=0x0018}
0x206ac…206c6 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x014c, t01=0x0042}
0x206c6…206ee Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x014c, t01=0x005c}
0x206ee…20708 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x014c, t01=0x0084}
0x20708…20738 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x014c, t01=0x009e}
0x20738…2076c Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x014c, t01=0x00ce}
0x2076c…20794 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x014c, t01=0x0102}
0x20794…207c8 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x014c, t01=0x012a}
0x207c8…207e8 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x014c, t01=0x015e}
0x207e8…20812 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x014c, t01=0x017e}
0x20812…2083c Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x014d, t01=0x0018}
0x2083c…20872 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x014d, t01=0x0042}
0x20872…20884 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x014d, t01=0x0078}
0x20884…208b4 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x014d, t01=0x008a}
0x208b4…208d8 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x014d, t01=0x00ba}
0x208d8…20906 Head {h00=0x002a, h01=0x0050, text=» ADK A3,7 ADD CONNECTION TYPE VCCU1/4 «, t00=0x014d, t01=0x00de}
0x20906…20938 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4«, t00=0x014d, t01=0x010c}
0x20938…20948 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x014d, t01=0x013e}
0x20948…20954 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014d, t01=0x014e}
0x20954…20968 Head {h00=0x0010, h01=0x0050, text=» IFT VIDEO=0«, t00=0x014d, t01=0x015a}
0x20968…2097e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x014d, t01=0x016e}
0x2097e…20992 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014d, t01=0x0184}
0x20992…2099e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014e, t01=0x0008}
0x2099e…209ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014e, t01=0x0014}
0x209ac…209de Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x014e, t01=0x0022}
0x209de…20a10 Head {h00=0x002e, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS PLC *«, t00=0x014e, t01=0x0054}
0x20a10…20a42 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x014e, t01=0x0086}
0x20a42…20a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00b8}
0x20a4c…20a6c Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x014e, t01=0x00c2}
0x20a6c…20a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00e2}
0x20a76…20aa6 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x014e, t01=0x00ec}
0x20aa6…20ad2 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x014e, t01=0x011c}
0x20ad2…20b00 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x014e, t01=0x0148}
0x20b00…20b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0176}
0x20b0a…20b38 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x014e, t01=0x0180}
0x20b38…20b66 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x014f, t01=0x001e}
0x20b66…20b98 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x014f, t01=0x004c}
0x20b98…20bc6 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x014f, t01=0x007e}
0x20bc6…20bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00ac}
0x20bd0…20bea Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x014f, t01=0x00b6}
0x20bea…20c02 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x014f, t01=0x00d0}
0x20c02…20c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00e8}
0x20c0c…20c20 Head {h00=0x0010, h01=0x0050, text=»I:CHPC EQU *«, t00=0x014f, t01=0x00f2}
0x20c20…20c34 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x014f, t01=0x0106}
0x20c34…20c60 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x014f, t01=0x011a}
0x20c60…20c7a Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x014f, t01=0x0146}
0x20c7a…20ca2 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x014f, t01=0x0160}
0x20ca2…20cbc Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x014f, t01=0x0188}
0x20cbc…20cce Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0150, t01=0x0012}
0x20cce…20d02 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0150, t01=0x0024}
0x20d02…20d2a Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0150, t01=0x0058}
0x20d2a…20d58 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0150, t01=0x0080}
0x20d58…20d7c Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0150, t01=0x00ae}
0x20d7c…20d8e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0150, t01=0x00d2}
0x20d8e…20db2 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0150, t01=0x00e4}
0x20db2…20ddc Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0150, t01=0x0108}
0x20ddc…20e0a Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0150, t01=0x0132}
0x20e0a…20e1c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0150, t01=0x0160}
0x20e1c…20e42 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0150, t01=0x0172}
0x20e42…20e6c Head {h00=0x0026, h01=0x0050, text=» ADK A3,5 ADD CONNECTION TYPE PLC «, t00=0x0151, t01=0x0008}
0x20e6c…20e9c Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x0151, t01=0x0032}
0x20e9c…20ec2 Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x0151, t01=0x0062}
0x20ec2…20ef0 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0500 ADD CONNECTION TYPE PLC«, t00=0x0151, t01=0x0088}
0x20ef0…20f00 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0151, t01=0x00b6}
0x20f00…20f0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0151, t01=0x00c6}
0x20f0c…20f20 Head {h00=0x0010, h01=0x0050, text=» IFT PLCL=0 «, t00=0x0151, t01=0x00d2}
0x20f20…20f36 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0151, t01=0x00e6}
0x20f36…20f4a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0151, t01=0x00fc}
0x20f4a…20f56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0151, t01=0x0110}
0x20f56…20f64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x011c}
0x20f64…20f92 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0151, t01=0x012a}
0x20f92…20fc4 Head {h00=0x002e, h01=0x0050, text=»* I:CHLT - INIT CHANNEL PARAMETERS LT * «, t00=0x0151, t01=0x0158}
0x20fc4…20ff2 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0151, t01=0x018a}
0x20ff2…20ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0028}
0x20ffc…2101c Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0152, t01=0x0032}
0x2101c…21026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0052}
0x21026…21056 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0152, t01=0x005c}
0x21056…21082 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0152, t01=0x008c}
0x21082…210b0 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0152, t01=0x00b8}
0x210b0…210ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x00e6}
0x210ba…210e8 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS -1 «, t00=0x0152, t01=0x00f0}
0x210e8…21116 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS -2 «, t00=0x0152, t01=0x011e}
0x21116…21148 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0152, t01=0x014c}
0x21148…21176 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0152, t01=0x017e}
0x21176…21180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x001c}
0x21180…2119a Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0153, t01=0x0026}
0x2119a…211a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0040}
0x211a4…211bc Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0153, t01=0x004a}
0x211bc…211c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0062}
0x211c6…211d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0153, t01=0x006c}
0x211d4…211e8 Head {h00=0x0010, h01=0x0050, text=»I:CHLT EQU *«, t00=0x0153, t01=0x007a}
0x211e8…211fc Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x0153, t01=0x008e}
0x211fc…2122a Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x0153, t01=0x00a2}
0x2122a…21244 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0153, t01=0x00d0}
0x21244…21270 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x0153, t01=0x00ea}
0x21270…2128a Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0153, t01=0x0116}
0x2128a…212ba Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0153, t01=0x0130}
0x212ba…212ee Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0153, t01=0x0160}
0x212ee…2131a (340, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0154, t01=0x0004}
0x2131a…21350 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0154, t01=0x0030}
0x21350…21370 Head {h00=0x001c, h01=0x0050, text=» ANK A3,7 GET BITS 13-15«, t00=0x0154, t01=0x0066}
0x21370…21392 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 5-7«, t00=0x0154, t01=0x0086}
0x21392…213bc Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0154, t01=0x00a8}
0x213bc…213f2 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0154, t01=0x00d2}
0x213f2…21404 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0154, t01=0x0108}
0x21404…21426 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/18 GET BITS 11-12«, t00=0x0154, t01=0x011a}
0x21426…2144a Head {h00=0x0020, h01=0x0050, text=» SRL A6,3 MOVE TO BITS 14-15«, t00=0x0154, t01=0x013c}
0x2144a…2145a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0154, t01=0x0160}
0x2145a…21466 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0154, t01=0x0170}
0x21466…2147a Head {h00=0x0010, h01=0x0050, text=» IFT SUML=0 «, t00=0x0154, t01=0x017c}
0x2147a…21490 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0154, t01=0x0190}
0x21490…214a4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0155, t01=0x0016}
0x214a4…214b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0155, t01=0x002a}
0x214b0…214be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0036}
0x214be…214f0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0155, t01=0x0044}
0x214f0…21522 Head {h00=0x002e, h01=0x0050, text=»* I:CHRT - INIT CHANNEL PARAMETERS RT * «, t00=0x0155, t01=0x0076}
0x21522…21554 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0155, t01=0x00a8}
0x21554…2155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x00da}
0x2155e…2157e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0155, t01=0x00e4}
0x2157e…21588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0104}
0x21588…215b8 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0155, t01=0x010e}
0x215b8…215e4 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0155, t01=0x013e}
0x215e4…21612 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0155, t01=0x016a}
0x21612…2161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0008}
0x2161c…2164a Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS - 1«, t00=0x0156, t01=0x0012}
0x2164a…21678 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS - 2«, t00=0x0156, t01=0x0040}
0x21678…216aa Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0156, t01=0x006e}
0x216aa…216d8 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0156, t01=0x00a0}
0x216d8…216e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00ce}
0x216e2…216fc Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0156, t01=0x00d8}
0x216fc…21706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00f2}
0x21706…2171e Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0156, t01=0x00fc}
0x2171e…21728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0114}
0x21728…21736 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0156, t01=0x011e}
0x21736…2174a Head {h00=0x0010, h01=0x0050, text=»I:CHRT EQU *«, t00=0x0156, t01=0x012c}
0x2174a…2175e Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x0156, t01=0x0140}
0x2175e…2178c Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x0156, t01=0x0154}
0x2178c…217a6 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0156, t01=0x0182}
0x217a6…217d2 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=1? «, t00=0x0157, t01=0x000c}
0x217d2…217ec Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0157, t01=0x0038}
0x217ec…2181c Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0157, t01=0x0052}
0x2181c…21850 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0157, t01=0x0082}
0x21850…2187c Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0157, t01=0x00b6}
0x2187c…218b2 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0157, t01=0x00e2}
0x218b2…218d2 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0157, t01=0x0118}
0x218d2…218f4 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 6-7«, t00=0x0157, t01=0x0138}
0x218f4…2191e Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0157, t01=0x015a}
0x2191e…21954 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0157, t01=0x0184}
0x21954…21966 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0158, t01=0x002a}
0x21966…2198e Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 ADD CONNECTION TYPE RT«, t00=0x0158, t01=0x003c}
0x2198e…219b0 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/C GET BITS 12-13 «, t00=0x0158, t01=0x0064}
0x219b0…219d4 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 14-15«, t00=0x0158, t01=0x0086}
0x219d4…21a02 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0100 ADD CONNECTION TYPE RT «, t00=0x0158, t01=0x00aa}
0x21a02…21a12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0158, t01=0x00d8}
0x21a12…21a1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0158, t01=0x00e8}
0x21a1e…21a32 Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x0158, t01=0x00f4}
0x21a32…21a5e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0158, t01=0x0108}
0x21a5e…21a72 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0158, t01=0x0134}
0x21a72…21a88 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x0158, t01=0x0148}
0x21a88…21a96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x015e}
0x21a96…21acc Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0158, t01=0x016c}
0x21acc…21b02 Head {h00=0x0032, h01=0x0050, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x0159, t01=0x0012}
0x21b02…21b38 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0159, t01=0x0048}
0x21b38…21b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x007e}
0x21b42…21b64 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: DWTGEN «, t00=0x0159, t01=0x0088}
0x21b64…21b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x00aa}
0x21b6e…21b9c Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0159, t01=0x00b4}
0x21b9c…21ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x00e2}
0x21ba6…21bd6 Head {h00=0x002c, h01=0x0050, text=»* EXIT: REAL TIME INTERRUPT TABLES FOR«, t00=0x0159, t01=0x00ec}
0x21bd6…21c0c Head {h00=0x0032, h01=0x0050, text=»* LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z «, t00=0x0159, t01=0x011c}
0x21c0c…21c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0152}
0x21c16…21c2c Head {h00=0x0012, h01=0x0050, text=»* SUBROUTINES«, t00=0x0159, t01=0x015c}
0x21c2c…21c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0172}
0x21c36…21c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0159, t01=0x017c}
0x21c44…21c7a Head {h00=0x0032, h01=0x0050, text=»B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES «, t00=0x0159, t01=0x018a}
0x21c7a…21c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0030}
0x21c84…21cb6 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR LT «, t00=0x015a, t01=0x003a}
0x21cb6…21cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x006c}
0x21cc0…21ccc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015a, t01=0x0076}
0x21ccc…21ce0 Head {h00=0x0010, h01=0x0050, text=»B:ITLT EQU *«, t00=0x015a, t01=0x0082}
0x21ce0…21cf4 Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x015a, t01=0x0096}
0x21cf4…21d1c Head {h00=0x0024, h01=0x0050, text=» LDKL A8,0 CONNECTION TYPE = LT «, t00=0x015a, t01=0x00aa}
0x21d1c…21d3a Head {h00=0x001a, h01=0x0050, text=» LDKL A9,7 1:ST BOARD «, t00=0x015a, t01=0x00d2}
0x21d3a…21d6c Head {h00=0x002e, h01=0x0050, text=» LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE«, t00=0x015a, t01=0x00f0}
0x21d6c…21d8c Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x015a, t01=0x0122}
0x21d8c…21daa Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x015a, t01=0x0142}
0x21daa…21dc8 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015a, t01=0x0160}
0x21dc8…21de6 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015a, t01=0x017e}
0x21de6…21dfa Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x015b, t01=0x000c}
0x21dfa…21e0e Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015b, t01=0x0020}
0x21e0e…21e22 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015b, t01=0x0034}
0x21e22…21e50 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015b, t01=0x0048}
0x21e50…21e76 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015b, t01=0x0076}
0x21e76…21e8e Head {h00=0x0014, h01=0x0050, text=» RF(Z) BIT15 NO!«, t00=0x015b, t01=0x009c}
0x21e8e…21eac Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015b, t01=0x00b4}
0x21eac…21eea Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x015b, t01=0x00d2}
0x21eea…21f08 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTLT1,A1 SAVE «, t00=0x015b, t01=0x0110}
0x21f08…21f1c Head {h00=0x0010, h01=0x0050, text=»BIT15 EQU * «, t00=0x015b, t01=0x012e}
0x21f1c…21f2e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x015b, t01=0x0142}
0x21f2e…21f58 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x015b, t01=0x0154}
0x21f58…21f6a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x015b, t01=0x017e}
0x21f6a…21f8a Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x015b, t01=0x0190}
0x21f8a…21fa8 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,7 NEXT BOARD «, t00=0x015c, t01=0x0020}
0x21fa8…21fc6 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x015c, t01=0x003e}
0x21fc6…21fe0 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITRT YES!«, t00=0x015c, t01=0x005c}
0x21fe0…21ff2 Head {h00=0x000e, h01=0x0050, text=» RB BIT10 «, t00=0x015c, t01=0x0076}
0x21ff2…21ffe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015c, t01=0x0088}
0x21ffe…2200c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015c, t01=0x0094}
0x2200c…22016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00a2}
0x22016…22048 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR RT «, t00=0x015c, t01=0x00ac}
0x22048…22052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00de}
0x22052…22066 Head {h00=0x0010, h01=0x0050, text=»B:ITRT EQU *«, t00=0x015c, t01=0x00e8}
0x22066…2207a Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x015c, t01=0x00fc}
0x2207a…220a2 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,1 CONNECTION TYPE = RT «, t00=0x015c, t01=0x0110}
0x220a2…220c0 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x015c, t01=0x0138}
0x220c0…220f2 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x015c, t01=0x0156}
0x220f2…22112 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x015c, t01=0x0188}
0x22112…22130 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x015d, t01=0x0018}
0x22130…2214e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015d, t01=0x0036}
0x2214e…2216c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015d, t01=0x0054}
0x2216c…22180 Head {h00=0x0010, h01=0x0050, text=»BRT10 EQU * «, t00=0x015d, t01=0x0072}
0x22180…22194 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015d, t01=0x0086}
0x22194…221a8 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015d, t01=0x009a}
0x221a8…221d6 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015d, t01=0x00ae}
0x221d6…221fc Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015d, t01=0x00dc}
0x221fc…22214 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BRT15 NO!«, t00=0x015d, t01=0x0102}
0x22214…22232 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015d, t01=0x011a}
0x22232…22270 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x015d, t01=0x0138}
0x22270…2228e Head {h00=0x001a, h01=0x0050, text=» ST A2,INTRT1,A1 SAVE «, t00=0x015d, t01=0x0176}
0x2228e…222a2 (350, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BRT15 EQU * «, t00=0x015e, t01=0x0004}
0x222a2…222b4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x015e, t01=0x0018}
0x222b4…222de Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x015e, t01=0x002a}
0x222de…222f0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x015e, t01=0x0054}
0x222f0…22310 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x015e, t01=0x0066}
0x22310…2232e Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x015e, t01=0x0086}
0x2232e…2234c Head {h00=0x001a, h01=0x0050, text=» CWK A9,15 LAST BOARD?«, t00=0x015e, t01=0x00a4}
0x2234c…22366 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITPC YES!«, t00=0x015e, t01=0x00c2}
0x22366…22378 Head {h00=0x000e, h01=0x0050, text=» RB BRT10 «, t00=0x015e, t01=0x00dc}
0x22378…22384 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015e, t01=0x00ee}
0x22384…22392 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x00fa}
0x22392…2239c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0108}
0x2239c…223ce Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC«, t00=0x015e, t01=0x0112}
0x223ce…223d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0144}
0x223d8…223ec Head {h00=0x0010, h01=0x0050, text=»B:ITPC EQU *«, t00=0x015e, t01=0x014e}
0x223ec…22400 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x015e, t01=0x0162}
0x22400…22428 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,5 CONNECTION TYPE = PLC«, t00=0x015e, t01=0x0176}
0x22428…22446 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x015f, t01=0x000e}
0x22446…2247a Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x015f, t01=0x002c}
0x2247a…22494 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x015f, t01=0x0060}
0x22494…224aa Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x015f, t01=0x007a}
0x224aa…224c8 Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x015f, t01=0x0090}
0x224c8…224e6 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015f, t01=0x00ae}
0x224e6…22504 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015f, t01=0x00cc}
0x22504…22518 Head {h00=0x0010, h01=0x0050, text=»BPC10 EQU * «, t00=0x015f, t01=0x00ea}
0x22518…2252c Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015f, t01=0x00fe}
0x2252c…22540 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015f, t01=0x0112}
0x22540…2256e Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015f, t01=0x0126}
0x2256e…22594 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015f, t01=0x0154}
0x22594…225ac Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPC15 NO!«, t00=0x015f, t01=0x017a}
0x225ac…225c4 (352, 0, 398) Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0160, t01=0x0004}
0x225c4…2260a Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0160, t01=0x001c}
0x2260a…22628 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPL1,A1 SAVE «, t00=0x0160, t01=0x0062}
0x22628…2263c Head {h00=0x0010, h01=0x0050, text=»BPC15 EQU * «, t00=0x0160, t01=0x0080}
0x2263c…2264e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0160, t01=0x0094}
0x2264e…22678 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0160, t01=0x00a6}
0x22678…2268a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0160, t01=0x00d0}
0x2268a…226a4 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0160, t01=0x00e2}
0x226a4…226c2 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x0160, t01=0x00fc}
0x226c2…226e2 Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x0160, t01=0x011a}
0x226e2…226fc Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITVU YES!«, t00=0x0160, t01=0x013a}
0x226fc…2270e Head {h00=0x000e, h01=0x0050, text=» RB BPC10 «, t00=0x0160, t01=0x0154}
0x2270e…2271a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0160, t01=0x0166}
0x2271a…22728 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0160, t01=0x0172}
0x22728…22730 Head {h00=0x0004, h01=0x0050, t00=0x0160, t01=0x0180}
0x22730…2273a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0188}
0x2273a…22770 (353, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4«, t00=0x0161, t01=0x0004}
0x22770…2277a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x003a}
0x2277a…2278e Head {h00=0x0010, h01=0x0050, text=»B:ITVU EQU *«, t00=0x0161, t01=0x0044}
0x2278e…227a2 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0161, t01=0x0058}
0x227a2…227ce Head {h00=0x0028, h01=0x0050, text=» LDKL A8,7 CONNECTION TYPE = VCCU1/4«, t00=0x0161, t01=0x006c}
0x227ce…227ec Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0161, t01=0x0098}
0x227ec…2281e Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x0161, t01=0x00b6}
0x2281e…2283e Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0161, t01=0x00e8}
0x2283e…2285c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0161, t01=0x0108}
0x2285c…2287a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0161, t01=0x0126}
0x2287a…22898 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0161, t01=0x0144}
0x22898…228ac Head {h00=0x0010, h01=0x0050, text=»BVU10 EQU * «, t00=0x0161, t01=0x0162}
0x228ac…228c0 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0161, t01=0x0176}
0x228c0…228d4 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0161, t01=0x018a}
0x228d4…22902 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0162, t01=0x000e}
0x22902…22928 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0162, t01=0x003c}
0x22928…22940 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BVU15 NO!«, t00=0x0162, t01=0x0062}
0x22940…2295e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0162, t01=0x007a}
0x2295e…2299c Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0162, t01=0x0098}
0x2299c…229ba Head {h00=0x001a, h01=0x0050, text=» ST A2,INTVU1,A1 SAVE «, t00=0x0162, t01=0x00d6}
0x229ba…229ce Head {h00=0x0010, h01=0x0050, text=»BVU15 EQU * «, t00=0x0162, t01=0x00f4}
0x229ce…229e0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0162, t01=0x0108}
0x229e0…22a0a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0162, t01=0x011a}
0x22a0a…22a1c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0162, t01=0x0144}
0x22a1c…22a3c Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x0162, t01=0x0156}
0x22a3c…22a5a Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0162, t01=0x0176}
0x22a5a…22a78 (355, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0163, t01=0x0004}
0x22a78…22a92 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITSZ YES!«, t00=0x0163, t01=0x0022}
0x22a92…22aa4 Head {h00=0x000e, h01=0x0050, text=» RB BVU10 «, t00=0x0163, t01=0x003c}
0x22aa4…22ab0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0163, t01=0x004e}
0x22ab0…22ab8 Head {h00=0x0004, h01=0x0050, t00=0x0163, t01=0x005a}
0x22ab8…22ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x0062}
0x22ac6…22ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x0070}
0x22ad0…22b06 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ «, t00=0x0163, t01=0x007a}
0x22b06…22b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00b0}
0x22b10…22b24 Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x0163, t01=0x00ba}
0x22b24…22b3a Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0163, t01=0x00ce}
0x22b3a…22b66 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,2 CONNECTION TYPE = SALCUZ «, t00=0x0163, t01=0x00e4}
0x22b66…22b84 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,0 1:ST BOARD «, t00=0x0163, t01=0x0110}
0x22b84…22bb6 Head {h00=0x002e, h01=0x0050, text=» LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0163, t01=0x012e}
0x22bb6…22bd0 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0163, t01=0x0160}
0x22bd0…22bee Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0163, t01=0x017a}
0x22bee…22c0c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0164, t01=0x0008}
0x22c0c…22c2a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0164, t01=0x0026}
0x22c2a…22c3e Head {h00=0x0010, h01=0x0050, text=»BSZ10 EQU * «, t00=0x0164, t01=0x0044}
0x22c3e…22c52 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0164, t01=0x0058}
0x22c52…22c66 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0164, t01=0x006c}
0x22c66…22c94 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0164, t01=0x0080}
0x22c94…22cba Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0164, t01=0x00ae}
0x22cba…22cce Head {h00=0x0010, h01=0x0050, text=» RF(Z) BSZ15«, t00=0x0164, t01=0x00d4}
0x22cce…22ce6 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0164, t01=0x00e8}
0x22ce6…22d24 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0164, t01=0x0100}
0x22d24…22d42 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTSL1,A1 SAVE «, t00=0x0164, t01=0x013e}
0x22d42…22d56 Head {h00=0x0010, h01=0x0050, text=»BSZ15 EQU * «, t00=0x0164, t01=0x015c}
0x22d56…22d68 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0164, t01=0x0170}
0x22d68…22d92 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0164, t01=0x0182}
0x22d92…22da4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0165, t01=0x001c}
0x22da4…22dbe Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0165, t01=0x002e}
0x22dbe…22ddc Head {h00=0x001a, h01=0x0050, text=» CWK A9,7 LAST BOARD? «, t00=0x0165, t01=0x0048}
0x22ddc…22df6 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITAZ YES!«, t00=0x0165, t01=0x0066}
0x22df6…22e08 Head {h00=0x000e, h01=0x0050, text=» RB BSZ10 «, t00=0x0165, t01=0x0080}
0x22e08…22e14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x0092}
0x22e14…22e22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0165, t01=0x009e}
0x22e22…22e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00ac}
0x22e2c…22e62 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z «, t00=0x0165, t01=0x00b6}
0x22e62…22e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00ec}
0x22e6c…22e80 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x0165, t01=0x00f6}
0x22e80…22e96 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0165, t01=0x010a}
0x22e96…22ec2 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,3 CONNECTION TYPE = ASCU4Z «, t00=0x0165, t01=0x0120}
0x22ec2…22ee0 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0165, t01=0x014c}
0x22ee0…22f12 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0165, t01=0x016a}
0x22f12…22f2c Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0166, t01=0x000c}
0x22f2c…22f4a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0166, t01=0x0026}
0x22f4a…22f68 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0166, t01=0x0044}
0x22f68…22f86 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0166, t01=0x0062}
0x22f86…22f9a Head {h00=0x0010, h01=0x0050, text=»BAZ10 EQU * «, t00=0x0166, t01=0x0080}
0x22f9a…22fae Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0166, t01=0x0094}
0x22fae…22fc2 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0166, t01=0x00a8}
0x22fc2…22ff0 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0166, t01=0x00bc}
0x22ff0…23014 Head {h00=0x0020, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES«, t00=0x0166, t01=0x00ea}
0x23014…23028 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BAZ15«, t00=0x0166, t01=0x010e}
0x23028…23040 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0166, t01=0x0122}
0x23040…23086 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0166, t01=0x013a}
0x23086…230a4 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTAS1,A1 SAVE «, t00=0x0166, t01=0x0180}
0x230a4…230b8 Head {h00=0x0010, h01=0x0050, text=»BAZ15 EQU * «, t00=0x0167, t01=0x000e}
0x230b8…230ca Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0167, t01=0x0022}
0x230ca…230f4 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0167, t01=0x0034}
0x230f4…23106 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0167, t01=0x005e}
0x23106…23120 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0167, t01=0x0070}
0x23120…2313e Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0167, t01=0x008a}
0x2313e…2315c Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0167, t01=0x00a8}
0x2315c…23176 Head {h00=0x0016, h01=0x0050, text=» RF(G) BAZ20 YES! «, t00=0x0167, t01=0x00c6}
0x23176…23188 Head {h00=0x000e, h01=0x0050, text=» RB BAZ10 «, t00=0x0167, t01=0x00e0}
0x23188…2319c Head {h00=0x0010, h01=0x0050, text=»BAZ20 EQU * «, t00=0x0167, t01=0x00f2}
0x2319c…231a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0167, t01=0x0106}
0x231a8…231b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0167, t01=0x0112}
0x231b8…231c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0167, t01=0x0122}
0x231c6…231ca Head {h00=0x0054, h01=0x0050}
0x231ca…231ce Head {h00=0x2a3d, h01=0x2a3d}
0x231ce…231e0 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆*=*=*=*=*=*=*=*=*=┆
0x231e0…2322a 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 50 2a 20 20 20 20 20 20 20 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= g 0 6 P* ┆
0x2322a…2327a (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*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x2327a…232ca 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 50 01 68 00 8a 00 04 00 50 01 68 00 92 00 04 00 50 01 68 00 9a 00 38 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= h 2 P h P h P h 8┆
0x232ca…2331a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 68 00 a2 00 38 00 50 2a 20 20 20 47 45 54 54 53 4b 20 2d 20 47 45 54 20 4e ┆ P**************************************************** h 8 P* GETTSK - GET N┆
0x2331a…2336a 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┆
0x2336a…233ba 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 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 ┆MMON TERMINAL CLASSES h $ P* h ^ 8 P****************************************┆
0x233ba…2340a (361, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 68 01 68 00 06 00 50 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 50 2a 20 01 69 00 44 00 3e 00 50 2a 20 ┆************ h h P* i " P* REFERENCED IN: B:TCT,B:CDT i P* i D > P* ┆
0x2340a…2345a 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 50 2a 20 01 69 00 90 00 46 00 50 2a 20 20 45 58 49 ┆ ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK i N P* i F P* EXI┆
0x2345a…234aa 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 50 2a 20 01 69 00 e4 00 1a 00 50 2a 20 ┆T: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) i P* i P* ┆
0x234aa…234fa 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 50 2a 20 01 69 01 0c 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 69 01 16 00 06 00 50 2a 20 01 69 01 36 00 10 00 50 ┆ WORK REGISTERS: A5 i P* i P* SUBROUTINES: CONVRT i P* i 6 P┆
0x234fa…2354a 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┆
0x2354a…2359a (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 ┆
0x2359a…235ea 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 50 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 P SLL A5,8 j P LC A5┆
0x235ea…2363a 2c 54 44 42 4e 54 2b 31 2c 41 31 31 01 6a 00 9a 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 6a 00 b4 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 6a 00 c8 00 0a 00 50 5c 45 4a 45 43 54 01 6a 00 d8 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,TDBNT+1,A11 j P CALL CONVRT j P RTN A14 j P EJECT j 8 P**********┆
0x2363a…2368a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 50 2a 20 20 47 45 54 54 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d ┆****************************************** j 8 P* GETTDC - GET NUMBER OF TERM┆
0x2368a…236da 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 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 ┆INAL DEVICE CLASSES * j " 8 P**************************************************┆
0x236da…2372a (363, 0, 400) 2a 2a 01 6a 01 5e 00 06 00 50 2a 20 01 6b 00 0a 00 1c 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 6b 00 14 00 06 00 50 2a 20 01 6b 00 34 00 3e 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 ┆** j ^ P* k P* REFERENCED IN: B:TT k P* k 4 > P* ENTRY: A11 - P┆
0x2372a…2377a 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 50 2a 20 01 6b 00 80 00 44 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 ┆OINTER TO START OF TASK DEFINITION BLOCK k > P* k D P* EXIT: A1 - NUMBE┆
0x2377a…237ca 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 50 2a 20 01 6b 00 d2 00 1a 00 50 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 P* k P* WORK REGISTERS: ┆
0x237ca…2381a 41 35 01 6b 00 dc 00 06 00 50 2a 20 01 6b 00 fa 00 1a 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 43 4f 4e 56 52 54 01 6b 01 04 00 06 00 50 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 50 ┆A5 k P* k P* SUBROUTINES: CONVRT k P* k " PGETTDC EQU * k , P┆
0x2381a…2386a 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 01 6b 01 40 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 6b 01 58 00 16 00 50 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 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 ┆ LC A5,TDBNC,A11 k @ P SLL A5,8 k X P LC A5,TDBNC+1,A11 k j P CALL CONVRT┆
0x2386a…238ba (364, 0, 400) 01 6b 01 84 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 6c 00 08 00 0a 00 50 5c 45 4a 45 43 54 01 6c 00 18 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ k P RTN A14 l P EJECT l 8 P******************************************┆
0x238ba…2390a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 6c 00 26 00 38 00 50 2a 20 20 47 45 54 53 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 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 50 2a 2a ┆********* l & 8 P* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * l b 8 P**┆
0x2390a…2395a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 50 2a 20 01 6c 00 da 00 1c 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 ┆************************************************* l P* l P* REFERENCE┆
0x2395a…239aa 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 6c 00 e4 00 06 00 50 2a 20 01 6c 01 04 00 34 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 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 P* l 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD l┆
0x239aa…239fa 01 0e 00 06 00 50 2a 20 01 6c 01 46 00 44 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 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 ┆ P* l F D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) ┆
0x239fa…23a4a (365, 0, 400) 01 6c 01 50 00 06 00 50 2a 20 01 6d 00 08 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 35 20 01 6d 00 12 00 06 00 50 2a 20 01 6d 00 30 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 ┆ l P P* m P* WORK REGISTERS: A5 m P* m 0 P* SUBROUTINES: CONVR┆
0x23a4a…23a9a 54 20 01 6d 00 3a 00 06 00 50 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 50 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 50 5c 4c 43 5c ┆T m : P* m Z PGETSDC EQU * m d P LCR A5,A9 m x P SLL A5,8 m P LC ┆
0x23a9a…23aea 41 35 2c 31 2c 41 39 20 01 6d 00 9c 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 6d 00 b0 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 6d 00 c4 00 0a 00 50 5c 45 4a 45 43 54 01 6d 00 d4 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A5,1,A9 m P CALL CONVRT m P RTN A14 m P EJECT m 2 P**************┆
0x23aea…23b3a 2a 2a 2a 2a 2a 2a 2a 2a 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 50 2a 20 20 47 45 54 43 4c 4e 20 2d 20 47 45 54 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d ┆******************************** m 2 P* GETCLN - GET CLASS IDENTIFICATION NUM┆
0x23b3a…23b8a 42 45 52 20 20 2a 01 6d 01 18 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 6d 01 4e 00 06 00 50 2a 20 01 6d 01 84 00 1c 00 50 2a 20 ┆BER * m 2 P********************************************** m N P* m P* ┆
0x23b8a…23bda (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 50 2a 20 01 6e 00 1e 00 36 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 ┆ REFERENCED IN: B:TT m P* n 6 P* ENTRY: A9 - POINTER TO CLASS DEFINIT┆
0x23bda…23c2a 49 4f 4e 20 52 45 43 4f 52 44 01 6e 00 28 00 06 00 50 2a 20 01 6e 00 62 00 3e 00 50 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 ( P* n b > P* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY ┆
0x23c2a…23c7a 56 41 4c 55 45 29 01 6e 00 6c 00 06 00 50 2a 20 01 6e 00 ae 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 6e 00 b8 00 06 00 50 2a 20 01 6e 00 d6 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 ┆VALUE) n l P* n P* WORK REGISTERS: A5 n P* n P* SUBROUTINES: ┆
0x23c7a…23cca 20 43 4f 4e 56 52 54 20 01 6e 00 e0 00 06 00 50 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 P* n PGETCLN EQU * n P LC A5,TDCDD1,A9 n P SLL A5,8 ┆
0x23cca…23d1a 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 50 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 ` P RTN A14 RETURN n t P EJE┆
0x23d1a…23d6a (367, 0, 400) 43 54 01 6e 01 8c 00 2e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 6f 00 0a 00 2e 00 50 2a 20 20 47 45 54 4c 43 4e 20 2d 20 47 45 54 20 4c 49 4e 45 ┆CT n . P***************************************** o . P* GETLCN - GET LINE┆
0x23d6a…23dba 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 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 6f 00 6e 00 06 00 50 ┆ CONNECTION NUMBER * o < . P***************************************** o n P┆
0x23dba…23e0a 2a 20 01 6f 00 a0 00 1e 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 44 57 54 54 20 01 6f 00 aa 00 06 00 50 2a 20 01 6f 00 cc 00 38 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f ┆* o P* REFERENCED IN: B:DWTT o P* o 8 P* ENTRY: A9 - POINTER TO┆
0x23e0a…23e5a 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 50 2a 20 01 6f 01 12 00 3a 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 ┆ CLASS DEFINITION RECORD o P* o : P* EXIT: A1 - LINE CONNECTION NUMB┆
0x23e5a…23eaa 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 50 2a 20 01 6f 01 5a 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 6f 01 64 00 06 00 50 2a 20 01 6f 01 82 00 1c 00 50 2a 20 20 53 ┆ER (BINARY VALUE) o P* o Z P* WORK REGISTERS: A5 o d P* o P* S┆
0x23eaa…23efa (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 50 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* p PGETLCN EQU * p & * P STR A4,A15 SAVE REGIS┆
0x23efa…23f4a 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┆
0x23f4a…23f9a 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┆
0x23f9a…23fea 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┆
0x23fea…2403a 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┆
0x2403a…2408a (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 50 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 ~ P RTN A14 q " P EJECT q 2 : P****************┆
0x2408a…240da 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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* ┆
0x240da…2412a 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 ┆
0x2412a…2417a 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* ┆
0x2417a…241ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆
0x241ca…241ce (370, 0, 400) 20 20 20 20 ┆ ┆
0x241ce…2898e […elided…]
0x2898e…2899c 01 40 00 44 00 50 2a 20 20 20 20 20 20 20 ┆ @ D P* ┆
0x2899c…289ec (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┆
0x289ec…28a3c 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* ┆
0x28a3c…28a8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆
0x28a8c…28adc 20 20 20 20 20 20 20 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* ┆
0x28adc…28b2c 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************************************************┆
0x28b2c…28b7c (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 ┆
0x28b7c…28bcc 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┆
0x28bcc…28c1c 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,┆
0x28c1c…28c6c 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┆
0x28c6c…28cbc 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┆
0x28cbc…28d0c (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* ┆
0x28d0c…28d5c 20 20 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 ┆
0x28d5c…28dac 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* ┆
0x28dac…28dfc 20 20 20 20 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: ┆
0x28dfc…28e4c 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 ┆
0x28e4c…28e9c (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 ┆
0x28e9c…28eec 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┆
0x28eec…28f3c 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 ┆
0x28f3c…28f8c 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: ┆
0x28f8c…28fdc 20 20 20 20 20 20 20 20 20 20 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* ┆
0x28fdc…2902c (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* ┆
0x2902c…2907c 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆
0x2907c…290cc 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******┆
0x290cc…2911c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ┆
0x2911c…2916c 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┆
0x2916c…291bc (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┆
0x291bc…2920c 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(┆
0x2920c…2925c 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┆
0x2925c…292ac 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 ┆
0x292ac…292fc 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 ┆
0x292fc…2934c (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┆
0x2934c…2939c 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**************┆
0x2939c…293ec 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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┆
0x293ec…2943c 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******************************┆
0x2943c…2948c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ┆
0x2948c…294dc (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 ┆
0x294dc…2952c 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┆
0x2952c…2957c 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┆
0x2957c…295cc 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 ┆
0x295cc…2961a 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 ┆
0x2961a…2966a (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) ┆
0x2966a…296ba 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┆
0x296ba…2970a 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┆
0x2970a…2975a 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┆
0x2975a…297a8 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┆
0x297a8…297f8 (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┆
0x297f8…29848 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******************************************************┆
0x29848…29898 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 ┆
0x29898…298e8 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 * ┆
0x298e8…29936 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┆
0x29936…2994a (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 @ ┆
0x2994a…29986 (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┆
0x29986…2998e (428, 1, 8) 20 04 00 00 01 ac 00 04 ┆ ┆