'
'   Advanced Communication Board Developers Toolkit 
'   (c)Copyright 1993-1995, Sealevel Systems Incorporated
'
'====================================================================
'      BASTERM.BAS - ASYNCHRONOUS TERMINAL EMULATOR PROGRAM
'====================================================================
       
        DATAPORT = &H238                        'BOARD BASE ADDRESS
        CONTROL = DATAPORT + 1                  'CHANNEL A CONTROL PORT

'====================================================================
'                         INITIALIZE THE 8530
'====================================================================

L1:     READ REG                                'GET REGISTER #
        IF REG = 255 THEN GOTO HEAD             'DATA DELIMITER
        OUT CONTROL, REG                        'SET REGISTER #
        READ D                                  'READ REGISTER DATA
        OUT CONTROL, D                          'SEND IT
        GOTO L1                                 'LOOP UNTIL DONE

'====================================================================
'                           PRINT HEADING
'====================================================================

HEAD:   CLS
        COLOR 0, 7
        LOCATE 1, 5
        PRINT " BASTERM.EXE - TERMINAL EMULATOR PROGRAM  [ Press <ESC> to exit ] "
        COLOR 7, 0
        PRINT
        VIEW PRINT 3 TO 25                      'LEAVE 2 TOP LINES       

'====================================================================
'                         CHECK THE KEYBOARD       
'====================================================================
CHECKEY:
        S$ = INKEY$                             'ANY KEY PRESSED?           
        IF S$ = "" THEN GOTO CHECKRX            'NO - CHECK RECEIVED DATA

        IF ASC(S$) = 27 THEN                    'ESCAPE KEY - EXIT
        VIEW PRINT                              'CLEAR ENTIRE SCREEN
        CLS : END                               'END
        END IF
                         
'====================================================================
'                            SEND A CHARACTER       
'====================================================================

        OUT DATAPORT, ASC(S$)                   'SEND THE CHARACTER

'====================================================================
'                     CHECK FOR RECEIVED DATA AVAILABLE
'====================================================================

CHECKRX: OUT CONTROL, 0                                 'READ REGISTER 0

        IF (INP(CONTROL) AND 1) <> 1 THEN GOTO CHECKEY  'NO DATA AVAILABLE
        PRINT CHR$(INP(DATAPORT));                      'PRINT CHARACTER
        GOTO CHECKEY                                    'CHECK THE KEYBOARD

'====================================================================
'                 8530 INITIALIZATION VALUES
'====================================================================

        DATA 9,&HC0        
                        'FORCE HARDWARE RESET                 
        DATA 4,&H44        
                        'X16 CLOCK MODE, 1 STOP BIT / CHAR
        DATA 3,&HC1        
                        'RX ENABLED, RX 8 BITS / CHAR
        DATA 2,0           
                        'INTERRUPT VECTOR - NOT USED
        DATA 5,&H69        
                        'TX 8 BITS / CHAR
        DATA 6,0           
                        'SYNC INFORMATION - NOT USED
        DATA 7,0           
                        'SYNC INFORMATION - NOT USED
        DATA 10,0          
                        'NRZ MODE
        DATA 11,&H56       
                        'RX / TX CLOCK = BAUD RATE GENERATOR
	DATA 12,&HFE
			'TIME CONSTANT - LOW BYTE - 4800 BAUD
	DATA 13,1
                        'TIME CONSTANT - HIGH BYTE
        DATA 14,3          
                        'BAUD RATE GENERATOR ENABLED / SOURCE
        DATA 15,0          
                        'MISCELLANEOUS CONTROL BITS - NOT USED
        DATA 0,&H10        
                        'RESET EXTERNAL STATUS INTERRUPTS
        DATA 0,&H10        
                        'AGAIN
        DATA 1,0           
                        'READY / REQUEST - READY SELECTED
        DATA 255           
                        'END OF DATA

'====================================================================
'       End of File
'====================================================================