

                ;
                ;        NAME    B3780C          ;USER CONFIGURATION MODULE
                ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;                                                               ;
                ;       (C) 1982 MICRO-INTEGRATION INC. ALL RIGHTS RESERVED,    ;
                ;       NO PART OF THIS PROGRAM OR PUBLICATION MAY BE           ;
                ;       REPRODUCED, TRANSMITTED, TRANSCRIBED, STORED IN         ;
                ;       A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY LANGUAGE     ;
                ;       OR COMPUTER LANGUAGE, IN ANY FORM OR BY ANY MEANS,      ;
                ;       ELECTRONIC, MECHANICAL, MAGNETIC, OPTICAL, CHEMICAL,    ;
                ;       MANUAL OR OTHERWISE, WITHOUT THE PRIOR WRITTEN          ;
                ;       PERMISSION OF:                                          ;
                ;                     MICRO-INTEGRATION INC.                    ;
                ;                     63 MAPLE STREET                           ;
                ;                     FRIENDSVILLE, MD. 21531                   ;
                ;                     USA , EARTH                               ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;
                ;
                ;
                ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;                                                               ;
                ;	PROGRAM		: BISYNC 80/3780			;
                ;			  USER CONFIGURATION MODULE		;
                ;	VERSION		: 4.2   (1982)				;
                ;                                                               ;
                ;	COMPUTER	: PHILIPS  P3500         		;
                ;	TERMINAL	: PHILIPS  P2711/P2712   		;
                ;								;
                ;	PREPARED BY	: FRANK VAN DE RIDDER			;
                ;	  		: PHILIPS DATA SYSTEMS			;
                ;	  		: POSTBUS 245         			;
                ;			: 7300 AE  APELDOORN          		;
                ;								;
                ;	DATE		: 30.09.82				;
                ;	UPDATE		: 07.03.83				;
                ;                                                               ;
                ;                                                               ;
                ;       THIS MODULE MUST BE CHANGED IF THE LINK'S INITIAL       ;
                ;       I/O PORT ADDRESSES OR RUN TIME PARAMETERS ARE TO BE     ;
                ;       CHANGED.                                                ;
                ;                                                               ;
                ;                                                               ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;
 0001 =         TRUE    EQU     1
 0000 =         FALSE   EQU     0
 0004 =         M2770   EQU     4
 0002 =         M3780   EQU     2
 0006 =         M3741	EQU	6
 0000 =         M2780	EQU	0
 0008 =         MCPU    EQU     8
 0002 =         IN8251  EQU     2
 0003 =         Z80SIO  EQU     3
 0003 =         IN8274	EQU	3
 0005 =         CPM	EQU	5
 0100 =         BASEAD  EQU     100H            ;BASE ADDRESS FOR THIS MODULE
 0100                   ORG     BASEAD          ;ORG TO MODULE START ADDRESS
 0100 C3A103            JMP     USDTIN          ;USART DATA INPUT
 0103 C3A403            JMP     USDTOT          ;USART DATA OUTPUT
 0106 C3A703            JMP     USSTIN          ;USART STATUS INPUT
 0109 C3AA03            JMP     USSTOT          ;USART STATUS OUTPUT
 010C C3AD03            JMP     TMCTOT          ;TIMER CONTROL OUTPUT
 010F C3AE03            JMP     TMDTIN          ;TIMER DATA INPUT
 0112 C3AF03    	JMP	TMDTOT		;TIMER DATA OUTPUT
 0115 C3B003    	JMP	RTMODE		;RETURN DEVICE MODE
 0118 C3B303            JMP     RTCMPR          ;RETURN COMPRESS DEFAULT
 011B C3B603            JMP     RTCMTB          ;RETURN COMMAND TABLE ADDRESS
 011E C3BA03            JMP     RTXLAT          ;RETURN TRANSLATE TABLE ADDRESS
 0121 C3BE03            JMP     RTFLEX          ;RETURN NOTRANSLATE FILE EXTENSIONS
 0124 C3C203    	JMP	RTRTSA		;RETURN REQUEST TO SEND ASSERT MODE
 0127 C3C503            JMP     RTSCBR          ;RETURN BAUD RATE CLOCK SET VALUE
 012A C35301            JMP     LSTDRV          ;LIST CHAR ROUTINE
 012D C3D303    	JMP     SETIO		;SET I/O DEVICE BYTE
 0130 C3D603    	JMP	SETCPU		;ADJUST TIMING FOR CPU SPEED
 0133 C3C903            JMP     RTCNTM          ;RETURN CONSOLE TIMING VALUE
 0136 6901      SUPPTR:	DW	STARTUP         ;START UP FILE NAME POINTERS
 0138 C3E803    	JMP	FSTEXT		;
 013B C3E903    	JMP	EXTEXT		;
 013E C3EA03    	JMP	INEXT		;
 0141 C3EB03    	JMP	OUTEXT		;
 0144 C3EC03    	JMP	INTEXT		;
 0147 C3ED03    	JMP	RTSEXT		;
 014A C3EE03    	JMP	RSTEXT		;
 014D C3EF03    	JMP	XMTEXT		;
 0150 C3F003    	JMP	RCVEXT		;
                ;
                ;       THE FOLLOWING EQUATE STATEMENTS MAY BE CHANGED
                ;       TO RECONFIGURE THE LINK'S FACTORY SUPPLIED PARAMETERS FOR --
                ;
                ;               -       2780, 3780, 2770, 3741, OR CPU INITIAL STARTUP MODE
                ;               -       8251 USART, 8274 MPSC, OR SIO SERIAL PORT USE
                ;               -       CPU CLOCK SPEED
                ;               -       CONSOLE TERMINAL BAUD RATE
                ;               -       LIST DEVICE DRIVER ROUTINE
                ;               -       RJE COMMAND IDENTIFIER
                ;               -       TRANSLATE TABLES
                ;               -       FILENAME EXTENSIONS
                ;               -       3780 BLANK COMPRESSION
                ;               -       SELF CLOCKING BAUD RATE
                ;
 0002 =         DEVICE  EQU     M3780           ;CHANGE THIS STATEMENT TO 'M2780'
                ;                               ;TO CHANGE THE INITIAL STARTUP
                ;                               ;DEVICE MODE TO 2780 MODE OR TO
                ;                               ;'MCPU' TO CHANGE THE INITIAL
                ;				;STARTUP DEVICE MODE TO CPU
                ;				;OR M2770 FOR 2770 MODE OR M3741
                ;				;FOR 3741 STARTUP MODE.
                ;                               ;                                  
                ;                               ;LEAVE THIS STATEMENT 'M3780' TO HAVE
                ;                               ;THE INITIAL STARTUP MODE REMAIN
                ;                               ;3780 MODE.
                ;
 0003 =         IODEV   EQU     Z80SIO          ;CHANGE THIS STATEMENT TO 'Z80SIO'
                ;                               ;FOR USE WITH A Z-80 SIO I/O DEVICE.
                ;				;CHANGE THIS STATEMENT TO
                ;				;'IN8274' IF AN INTEL
                ;				;8274 MPSC DEVICE IS USED
                ;				;
                ;				;LEAVE THIS STATEMENT AS-IS IF
                ;				;THE LINK IS RUNNING ON AN INTEL
                ;				;8251 I/O DEVICE.
                ;
 0000 =         USDATA  EQU     00H             ;CHANGE THIS STATEMENT TO REFLECT
                ;                               ;THE I/O DEVICE DATA PORT ADDRESS
                ;				;ON THE Z-80 SIO, 8274 MPSC, OR
                ;				;8251 USARTBASED I/O BOARD
                ;                               ;BEING USED.
                ;                               ;SUPPLIED ADDRESS OF 80H.
                ;					
 0002 =         USSTAT  EQU     02H             ;CHANGE THIS STATEMENT TO REFLECT
                ;                               ;THE I/O DEVICE STATUS PORT ADDRESS
                ;                               ;ON THE Z-80 SIO, 8274 MPSC, OR
                ;				;8251 USART BASED I/O BOARD
                ;                               ;BEING USED.
                ;                               ;SUPPLIED ADDRESS OF 81H.
                ;
 0002 =         CPUSPD  EQU     02H		;CHANGE THIS STATEMENT TO REFLECT
                ;                               ;THE CPU CLOCK SPEED IN MEGA-HERTZ
                ;
 12C0 =         CONSPD  EQU     4800            ;CHANGE THIS STATEMENT TO REFLECT
                ;                               ;THE MICROCOMPUTER CONSOLE TERMINAL
                ;                               ;BAUD RATE.
                ;
                ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;
                ;	THE FOLLOWING IS THE ROUTINE USED TO WRITE DATA TO THE LIST   
                ;	DEVICE (PRINTER).  IF THE CP/M BIOS ROUTINE IS MODIFIED TO NOT 
                ;	WAIT ON THE PRINTER, THEN THIS ROUTINE MAY BE LEFT AS A CP/M  
                ;       CALL. IF THE CP/M BIOS ROUTINE IS NOT MODIFIED THEN CHANGE THIS
                ;       ROUTINE TO WRITE DATA TO THE PRINTER WITHOUT WAITING ON PRINTER
                ;       READY, PER THE USER MANUAL. SEE APPENDIX E FOR MORE DETAIL.    
                ;
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ;
 0153 =         LSTDRV	EQU	$		;                            
 0153 CD0500    	CALL	CPM		; CPM LIST DRIVER ROUTINE
 0156 C9        	RET			;BACK TO CALLER
                ;
                ;
                ;       THE FOLLOWING TABLE DEFINES THE HASP AND POWER CONSOLE
                ;       COMMAND IDENTIFIERS AND THE STRINGS TO BE SUBSTITUTED
                ;       FOR THE IDENTIFIER WHEN TRANSMITTING A CONSOLE COMMAND.
                ;       THE IDENTIFIERS AND/OR THE STRINGS MAY BE MODIFIED TO CAUSE
                ;       TRANSMISSION OF ANY STRING FOR ANY IDENTIFIER.
                ;
                ;       TABLE FORMAT :
                ;               1 BYTE IDENTIFIER LENGTH
                ;               N BYTES OF IDENTIFIER
                ;               2 BYTE ADDRESS OF SUBSTITUTE STRING
                ;
                ;               END OF TABLE DELIMITED BY A LENGTH BYTE
                ;               WITH A VALUE OF ZERO.
                ;
                ;       SUBSTITUTE STRING FORMAT:
                ;               1 BYTE STRING LENGTH
                ;               N BYTES OF STRING
                ;
                ;
                ;
                ;
 0157 =         CMDTAB  EQU     $
 0157 01        	DB	1		;IDENTIFIER LENGTH (MAX 255)
 0158 24        	DB	'$'		;IDENTIFIER
 0159 6001              DW      HASPCM          ;ADDRESS OF STRING TO SUBSTITUTE
                ;				;FOR IDENTIFIER
 015B 01        	DB	1		;IDENTIFIER LENGTH
 015C 2A                DB      '*'             ;IDENTIFIER
 015D 6301              DW      POWRCM          ;ADDRESS OF STRING TO SUBSTITUTE
                ;                               ;FOR IDENTIFIER
                ;
 015F 00                DB      0               ;END OF TABLE - DO NOT REMOVE THIS
                ;                               ;STATEMENT
                ;
 0160 02        HASPCM: DB      2               ;SUBSTITUTE STRING LINGTH
 0161 2F2A              DB      '/*'            ;SUBSTITUTE STRING
                ;
 0163 05        POWRCM: DB      5               ;SUBSTITUTE STRING LENGTH
 0164 2A202E2E20        DB      '* .. '         ;SUBSTITUTE STRING
                ;
                ;				;CHANGE FOLLOWING TWO STATEMENTS
                ;				;TO REFLECT THE LENGTH OF
                ;				;STRING (DO NOT INCLUDE THE LENGTH
                ;				;BYTE ITSELF) DEFINING THE
                ;				;START UP FILE NAME, IF
                ;				;NONE IS WANTED USE ZERO
                ;				FOR STRING LENGTH.
                ;
 0169 00        STARTUP:DB	0		;STRING LENGTH INCLUDING TERMINATORS
 016A 46494C4E41	DB	'FILNAM.EXT'	;FILE NAME STRING
 0174 0D0A      	DB	0DH,0AH		;SCAN TERMINATOR (DO NOT REMOVE)
                ;
                ;
                ;
                ;       THE FOLLOWING TWO TABLES ARE THE ASCII TO EBCDIC
                ;       AND EBCDIC TO ASCII TRANSLATE TABLES USED BY THE
                ;       LINK IN CODE CONVERSION.  THESE TABLES MAY BE
                ;       MODIFIED TO ALLOW TRANSLATION OF ANY CHARACTER TO
                ;       ANY OTHER CHARACTER, SO LONG AS LINE CONTROL
                ;       CHARACTERS ARE NOT TRANSMITTED IN NON-TRANSPARENT
                ;       MODE.
                ;
                ;
 0176 =         ASCEBC  EQU     $               ;ASCII TO EBCDIC TRANSLATE TABLE
                ;
 0176 0001020337        DB      000H,001H,002H,003H,037H,02DH,02EH,02FH	 ;00H-07H
 017E 1605250B0C        DB      016H,005H,025H,00BH,00CH,00DH,00EH,00FH  ;08H-0FH
 0186 101112133C        DB      010H,011H,012H,013H,03CH,03DH,032H,026H  ;10H-17H
 018E 18193F271C        DB      018H,019H,03FH,027H,01CH,01DH,01EH,01FH  ;18H-1FH
 0196 404F7F7B5B        DB      040H,04FH,07FH,07BH,05BH,06CH,050H,07DH  ;20H-27H
 019E 4D5D5C4E6B        DB      04DH,05DH,05CH,04EH,06BH,060H,04BH,061H  ;28H-2FH
 01A6 F0F1F2F3F4        DB      0F0H,0F1H,0F2H,0F3H,0F4H,0F5H,0F6H,0F7H  ;30H-37H
 01AE F8F97A5E4C        DB      0F8H,0F9H,07AH,05EH,04CH,07EH,06EH,06FH  ;38H-3FH
 01B6 7CC1C2C3C4        DB      07CH,0C1H,0C2H,0C3H,0C4H,0C5H,0C6H,0C7H  ;40H-47H
 01BE C8C9D1D2D3        DB      0C8H,0C9H,0D1H,0D2H,0D3H,0D4H,0D5H,0D6H  ;48H-4FH
 01C6 D7D8D9E2E3        DB      0D7H,0D8H,0D9H,0E2H,0E3H,0E4H,0E5H,0E6H  ;50H-57H
 01CE E7E8E94AE0        DB      0E7H,0E8H,0E9H,04AH,0E0H,05AH,05FH,06DH  ;58H-5FH
 01D6 7981828384        DB      079H,081H,082H,083H,084H,085H,086H,087H  ;60H-67H
 01DE 8889919293        DB      088H,089H,091H,092H,093H,094H,095H,096H  ;68H-6FH
 01E6 979899A2A3        DB      097H,098H,099H,0A2H,0A3H,0A4H,0A5H,0A6H  ;70H-77H
 01EE A7A8A9C06A        DB      0A7H,0A8H,0A9H,0C0H,06AH,0D0H,0A1H,007H  ;78H-7FH
 01F6 2021222324        DB      020H,021H,022H,023H,024H,015H,006H,017H  ;80H-87H
 01FE 28292A2B2C        DB      028H,029H,02AH,02BH,02CH,009H,00AH,01BH  ;88H-8FH
 0206 30311A3334        DB      030H,031H,01AH,033H,034H,035H,036H,008H  ;90H-97H
 020E 38393A3B04        DB      038H,039H,03AH,03BH,004H,014H,03EH,0E1H  ;98H-9FH
 0216 4142434445        DB      041H,042H,043H,044H,045H,046H,047H,048H  ;A0H-A7H
 021E 4951525354        DB      049H,051H,052H,053H,054H,055H,056H,057H  ;A8H-AFH
 0226 5859626364        DB      058H,059H,062H,063H,064H,065H,066H,067H  ;B0H-B7H
 022E 6869707172        DB      068H,069H,070H,071H,072H,073H,074H,075H  ;B8H-BFH
 0236 767778808A        DB      076H,077H,078H,080H,08AH,08BH,08CH,08DH  ;C0H-C7H
 023E 8E8F909A9B        DB      08EH,08FH,090H,09AH,09BH,09CH,09DH,09EH  ;C8-CFH
 0246 9FA0AAABAC        DB      09FH,0A0H,0AAH,0ABH,0ACH,0ADH,0AEH,0AFH  ;D0H-D7H
 024E B0B1B2B3B4        DB      0B0H,0B1H,0B2H,0B3H,0B4H,0B5H,0B6H,0B7H  ;D8H-DFH
 0256 B8B9BABBBC        DB      0B8H,0B9H,0BAH,0BBH,0BCH,0BDH,0BEH,0BFH  ;E0H-E7H
 025E CACBCCCDCE        DB      0CAH,0CBH,0CCH,0CDH,0CEH,0CFH,0DAH,0DBH  ;E8H-EFH
 0266 DCDDDEDFEA        DB      0DCH,0DDH,0DEH,0DFH,0EAH,0EBH,0ECH,0EDH  ;F0H-F7H
 026E EEEFFAFBFC        DB      0EEH,0EFH,0FAH,0FBH,0FCH,0FDH,0FEH,0FFH  ;F8H-FFH
                ;
 0276 =         EBCASC  EQU     $               ;EBCDIC TO ASCII TRANSLATE TABLE
                ;
 0276 000102039C        DB      000H,001H,002H,003H,09CH,009H,086H,07FH  ;00H-07H
 027E 978D8E0B0C        DB      097H,08DH,08EH,00BH,00CH,00DH,00EH,00FH  ;08H-0FH
 0286 101112139D        DB      010H,011H,012H,013H,09DH,085H,008H,087H  ;10H-17H
 028E 1819928F1C        DB      018H,019H,092H,08FH,01CH,01DH,01EH,01FH  ;18H-1FH
 0296 8081828384        DB      080H,081H,082H,083H,084H,00AH,017H,01BH  ;20H-27H
 029E 88898A8B8C        DB      088H,089H,08AH,08BH,08CH,005H,006H,007H  ;28H-2FH
 02A6 9091169394        DB      090H,091H,016H,093H,094H,095H,096H,004H  ;30H-37H
 02AE 98999A9B14        DB      098H,099H,09AH,09BH,014H,015H,09EH,01AH  ;38H-3FH
 02B6 20A0A1A2A3        DB      020H,0A0H,0A1H,0A2H,0A3H,0A4H,0A5H,0A6H  ;40H-47H
 02BE A7A85B2E3C        DB      0A7H,0A8H,05BH,02EH,03CH,028H,02BH,021H  ;48H-4FH
 02C6 26A9AAABAC        DB      026H,0A9H,0AAH,0ABH,0ACH,0ADH,0AEH,0AFH  ;50H-57H
 02CE B0B15D242A        DB      0B0H,0B1H,05DH,024H,02AH,029H,03BH,05EH  ;58H-5FH
 02D6 2D2FB2B3B4        DB      02DH,02FH,0B2H,0B3H,0B4H,0B5H,0B6H,0B7H  ;60H-67H
 02DE B8B97C2C25        DB      0B8H,0B9H,07CH,02CH,025H,05FH,03EH,03FH  ;68H-6FH
 02E6 BABBBCBDBE        DB      0BAH,0BBH,0BCH,0BDH,0BEH,0BFH,0C0H,0C1H  ;70H-77H
 02EE C2603A2340        DB      0C2H,060H,03AH,023H,040H,027H,03DH,022H  ;78H-7FH
 02F6 C361626364        DB      0C3H,061H,062H,063H,064H,065H,066H,067H  ;80H-87H
 02FE 6869C4C5C6        DB      068H,069H,0C4H,0C5H,0C6H,0C7H,0C8H,0C9H  ;88H-8FH
 0306 CA6A6B6C6D        DB      0CAH,06AH,06BH,06CH,06DH,06EH,06FH,070H  ;90H-97H
 030E 7172CBCCCD        DB      071H,072H,0CBH,0CCH,0CDH,0CEH,0CFH,0D0H  ;98H-9FH
 0316 D17E737475        DB      0D1H,07EH,073H,074H,075H,076H,077H,078H  ;A0H-A7H
 031E 797AD2D3D4        DB      079H,07AH,0D2H,0D3H,0D4H,0D5H,0D6H,0D7H  ;A8H-AFH
 0326 D8D9DADBDC        DB      0D8H,0D9H,0DAH,0DBH,0DCH,0DDH,0DEH,0DFH  ;B0H-B7H
 032E E0E1E2E3E4        DB      0E0H,0E1H,0E2H,0E3H,0E4H,0E5H,0E6H,0E7H  ;B8H-BFH
 0336 7B41424344        DB      07BH,041H,042H,043H,044H,045H,046H,047H  ;C0H-C7H
 033E 4849E8E9EA        DB      048H,049H,0E8H,0E9H,0EAH,0EBH,0ECH,0EDH  ;C8H-CFH
 0346 7D4A4B4C4D        DB      07DH,04AH,04BH,04CH,04DH,04EH,04FH,050H  ;D0H-D7H
 034E 5152EEEFF0        DB      051H,052H,0EEH,0EFH,0F0H,0F1H,0F2H,0F3H  ;D8H-DFH
 0356 5C9F535455        DB      05CH,09FH,053H,054H,055H,056H,057H,058H  ;E0H-E7H
 035E 595AF4F5F6        DB      059H,05AH,0F4H,0F5H,0F6H,0F7H,0F8H,0F9H  ;E8H-EFH
 0366 3031323334        DB      030H,031H,032H,033H,034H,035H,036H,037H  ;F0H-F7H
 036E 3839FAFBFC        DB      038H,039H,0FAH,0FBH,0FCH,0FDH,0FEH,0FFH  ;F8H-FFH
                ;
                ;
                ;       THE FOLLOWING TABLE DEFINES THE FILENAME EXTENSIONS FOR
                ;       FILES THAT ARE NOT TO BE TRANSLATED TO AND FROM EBCDIC.
                ;       THE TABLE HAS THE SAME FORMAT AS THE RJE CONSOLE IDENTIFIER
                ;       TABLE SHOWN ABOVE.  THE TABLE MUST HAVE AT LEAST ONE ENTRY.
                ;
                ;
 0376 04        FILXTB: DB      4               ;ENTRY LENGTH
 0377 2E434F4D  	DB	'.COM'		;.COM FILES ARE NOT TRANSLATED
 037B 0000      	DW	0		;REQUIRED
 037D 04        	DB	4		;ENTRY LENGTH
 037E 2E52454C          DB      '.REL'          ;.REL FILES ARE NOT TRANSLATED
 0382 0000              DW      0               ;REQUIRED TABLE ENTRY
 0384 04                DB      4               ;ENTRY LENGTH
 0385 2E484558  	DB	'.HEX'	        ;.HEX FILES ARE NOT TRANSLATED
 0389 0000      	DW	0		;REQUIRED
 038B 04                DB      4               ;ENTRY LENGTH
 038C 2E434F42          DB      '.COB'          ;.COB FILES ARE NOT TRANSLATED
 0390 0000              DW      0               ;REQUIRED
 0392 04                DB      4               ;ENTRY LENGTH
 0393 2E43424C          DB      '.CBL'          ;.CBL FILES ARE NOT TRANSLATED
 0397 0000              DW      0               ;REQUIRED
 0399 04                DB      4               ;ENTRY LENGTH
 039A 4E554C4C          DB      'NULL'          ;NULL EXTENSION FILES ARE NOT
                ;                               ;TRANSLATED.  NOTE THAT THE STRING
                ;                               ;'NULL' MEANS NO EXTENSION.
 039E 0000              DW      0               ;REQUIRED
                ;
 03A0 00                DB      0               ;END OF TABLE - REQUIRED
                ;
 0001 =         COMPRS  EQU     TRUE            ;CHANGE THIS STATEMENT TO 'FALSE'
                ;                               ;TO DISABLE BLANK COMPRESSION IN
                ;                               ;3780 MODE.
                ;
                
 2580 =         BAUDRT  EQU     9600            ;CHANGE THIS STATEMENT TO REFLECT THE
                ;                               ;BAUD RATE DESIRED WHEN RUNNING THE
                ;                               ;LINK IN SELF-CLOCKING (DIRECT CONNECTED)
                ;                               ;CONFIGURATIONS.  POSSIBLE VALUES ARE
                ;                               ;1200, 2400, 4800, AND 9600,
                ;                               ;CORRESPONDING TO 1200, 2400, 4800, AND
                ;                               ;9600 BAUD RESPECTIVELY.  THIS PARAMETER
                ;                               ;NEED NOT BE CHANGED IF THE LINK IS
                ;                               ;RUNNING WITH A MODEM OR MODEM
                ;                               ;ELIMINATOR.
                ;
                ;
                ;
                ;
                ;       THE FOLLOWING ROUTINES MUST NOT BE USER MODIFIED.
                ;
                ;
 03A1 DB00      USDTIN: IN      USDATA          ;GET USART BYTE
 03A3 C9                RET                     ;BACK TO CALLER
 03A4 D300      USDTOT: OUT     USDATA          ;WRITE USART BYTE
 03A6 C9                RET                     ;BACK TO CALLER
 03A7 DB02      USSTIN: IN      USSTAT          ;GET USART STATUS
 03A9 C9                RET                     ;BACK TO CALLER
 03AA D302      USSTOT: OUT     USSTAT          ;WRITE USART COMMAND
 03AC C9                RET                     ;BACK TO CALLER
 03AD =         TMCTOT  EQU     $
 03AD C9                RET                     ;BACK TO CALLER
 03AE =         TMDTIN  EQU     $
 03AE C9                RET                     ;BACK TO CALLER
 03AF =         TMDTOT  EQU     $
 03AF C9                RET                     ;BACK TO CALLER
 03B0 3E02      RTMODE: MVI     A,DEVICE        ;GET DEVICE MODE
 03B2 C9                RET                     ;BACK TO CALLER
 03B3 3E01      RTCMPR: MVI     A,COMPRS        ;GET COMPRESS MODE
 03B5 C9                RET                     ;BACK TO CALLER
 03B6 215701    RTCMTB: LXI     H,CMDTAB        ;GET CONSOLE COMMAND TABLE ADDRESS
 03B9 C9                RET                     ;BACK TO CALLER
 03BA 217601    RTXLAT: LXI     H,ASCEBC        ;GET TRANSLATE TABLE ADDRESS
 03BD C9                RET                     ;BACK TO CALLER
 03BE 217603    RTFLEX: LXI     H,FILXTB        ;GET NOTRANSLATE FILE EXTENSION TABLE
 03C1 C9        	RET			;BACK TO CALLER
 03C2 3E00      RTRTSA:	MVI	A,FALSE		;GET RTS ASSERT MODE BYTE
 03C4 C9                RET                     ;BACK TO CALLER
 03C5 218025    RTSCBR: LXI     H,BAUDRT        ;GET BAUD RATE TIMER VALUE
 03C8 C9                RET                     ;BACK TO CALLER
                ;
 0000 =         DATA    EQU     USDATA
 0002 =         STAT    EQU     USSTAT
                ;
 03C9 =         RTCNTM  EQU     $
 03C9 3AD203            LDA     CONVAL          ;GET CONSOLE VALUE
 03CC FE00              CPI     0               ;ZERO?
 03CE C0                RNZ                     ;NO - OK RETURN
 03CF 3E01              MVI     A,1             ;YES - CHANGE TO ONE
 03D1 C9                RET                     ;RETURN
                ;
                ;
 03D2 01        CONVAL: DB      4800/CONSPD
                ;
                ;
 03D3 =         SETIO   EQU     $
 03D3 3E03      	MVI     A,IODEV         ;GET IODEV VALUE
                ;
 03D5 C9                RET                     ;BACK TO CALLER
                ;
 03D6 =         SETCPU  EQU     $
 03D6 3E02              MVI     A,CPUSPD        ;GET CPU SPEED
 03D8 2AE603            LHLD    TIMVAL          ;GET TIME CONSTANT
 03DB 44                MOV     B,H             ;PUT INTO
 03DC 4D                MOV     C,L             ;REG B,C
 03DD 210000            LXI     H,0             ;CLEAR H,L
 03E0 =         SETVAL  EQU     $
 03E0 09                DAD     B               ;GET NEW TIME CONSTANT
 03E1 3D                DCR     A               ;FINISHED?
 03E2 C2E003            JNZ     SETVAL          ;NO - ADD AGAIN
 03E5 C9                RET                     ;YES - RETURN
                ;
                ;
 03E6 B700      TIMVAL: DW      00B7H           ;TIME CONSTANT
 03E8 C9        FSTEXT:	RET
 03E9 C9        EXTEXT:	RET
 03EA C9        INEXT:	RET
 03EB C9        OUTEXT:	RET
 03EC C9        INTEXT:	RET
 03ED C9        RTSEXT:	RET
 03EE C9        RSTEXT:	RET
 03EF C9        XMTEXT:	RET
 03F0 C9        RCVEXT:	RET
                ;
 03F1                   END
