prog47g.asm

主要是8051源代码

;  PROG47G - Working through the Electronic Breakout Box  
;
;
;  Start Taking User Input.
;
;  PROG47G - Start Taking Serial Input/Displaying it on the LCD.  
;
;  PROG47F - Get and Set the Data Rate.  This is Just a Simulator exercise. 
;
;  PROG47E1 - Put in PROG47E Code, But Look for Problems - Found with the 
;              Mix-Up in Registers, the 5 msec delay wasn't executed with the 
;              change in the registers.  
;
;  PROG47D - Read (and Debounce) the Button
;
;  PROG47C - Output a Table and Save the Blank Positions in R5, R6 and R7 
;
;  Myke Predko
;  98.06.22
;
;  Hardware Notes:
;  DS87C520 is used as the Microcontroller
;   - Oscillator Speed is 11.052 MHz
;  P2.4-7 are the LCD Data Bits (NOTE: Bits Are Reversed)
;  P0.3 is Pulled up with a 4.7L K resistor and used for the LCD "RS" Bit
;  P0.4 is Pulled up with a 4.7K Resistor and used for the LCD "E" Bit
;  P2.0 is Used as the "Select" Button
;  P2.1 is Used as the "Enter" Button
;
;  P2.2 is Used as Left _DTE/DCE Control
;  P2.3 is Used as the Right _DTE/DCE Control

;  Constant Declarations
define RS=P0.3                  ;  Define the LCD "RS" Bit
define EStrobe=P0.4             ;  Define the LCD "E" Bit

define Select=P2.0              ;  Define the "Select" Button
define Enter=P2.1               ;  Define the "Enter" Button

define LeftDCE=P2.2             ;  Define the _DTE/DCE Bits
define RightDCE=P2.3

;  Variable Declarations
BufferHold   EQU 020h           ;  Register to Allow Data Updates to be Set

DelayCount   EQU 030h           ;  Button Delay Count
DelayCounthi EQU 031h

LeftLast     EQU 032h           ;  Last Position of the "Left" Buffer
RightLast    EQU 033h

LeftBuffer   EQU 040h           ;  Buffer for the Incoming "Left" Data
RightBuffer  EQU 060h           ;  Buffer for the Incoming "Right" Data


;  Macros


;  Mainline
 org 0                          ;  Execution Starts Here

  ajmp   Mainline               ;  Jump Over Interrupt Handlers

 org 023h                       ;  Serial Port 0 (Left Serial Port) Interrupt
Serial0:

  clr    SCON0.1                ;  Clear the TX Flag

  jnb    SCON0.0,Serial0_End    ;  Only Handle if it was an RX Interrupt

  clr    SCON0.0                ;  Acknowledge the Interrupt Happened

  mov    @R0,SBUF0              ;  Save the Value Read
  mov    SBUF1,@R0              ;  Send it Back Out the other side

  inc    R0
  mov    BufferHold,R0          ;  Make Sure the Value Stays in the 16 Byte Buffer
  clr    4                      ;   This is Bit 5
  mov    R0,BufferHold

Serial0_End:

  reti

 org 03Bh                       ;  Serial Port 1 (Right Serial Port) Interrupt
Serial1:

  clr    SCON1.1                ;  Clear the TX Interrupt
  
  jnb    SCON1.0,Serial1_End    ;  Only Handle Incoming Interrupts

;  #### - Put in Interrupt Handler Code

Serial1_End:

  reti

MainLine:                       ;  Mainline of the Program

  mov    CKCON,#%00000000       ;  Use Internal /12 Clock for Timer1 (Serial Port Clocks)
  mov    TMOD,#%00100000        ;  Timer1 - Uses Internal Clock
                                ;         - Run in Mode 2
  mov    TL1,#253               ;  Start Timer1 at 9600 bps
  mov    TH1,#253
  mov    TCON,#%01000000        ;  Start Timer1 running

  mov    SCON,#%01010000        ;  Run Serial Port 0 in 8 Bit Mode
  mov    SCON1,#%01010000       ;  Run Serial Port 1 in 8 Bit Mode


  acall   LCDInit               ;  Initialize the LCD

Loop:                           ;  Loop Here for Each One

  acall   GetSpeed              ;  Get the Data Speed

  acall   DTECheck

;  #### - Put in the Different Breakout Box Operations

  clr     RS                    ;  Clear the LCD
  mov     A,#1
  acall   CharSend

  mov     A,#2                  ;  Put in the "Breakout Box" Message
  acall   MsgSend

  clr     RS                    ;  Put in the Lower Line
  mov     A,#0C0h
  acall   CharSend
  mov     A,#3                  ;  Display The "Run Configure" Message
  acall   MsgSend               ;  Output the Message

  acall   MenuRead              ;  Get the "Speed -" Information

  mov     A,R0                  ;  Do we have 300 bps?
  xrl     A,R5
  jnz     Loop                  ;  Configure the Serial Data

  clr     RS                    ;  Now, Reset the Screen for Displaying
  mov     A,#080h
  acall   CharSend
  mov     A,#14                 ;  Put on the Output Display
  acall   MsgSend

  clr     RS                    ;  Set up the Initial Cursor Position
  mov     A,#082h
  acall   CharSend

  clr     SCON0.0               ;  Make Sure we don't Start with Any Interrupts
  clr     SCON0.1
  clr     SCON1.0               
  clr     SCON1.1

  mov     R0,#LeftBuffer        ;  Setup the Left Buffer
  mov     R1,#RightBuffer

  mov     LeftLast,#LeftBuffer  ;  Setup Buffer Check Values
  mov     RightLast,#RightBuffer

  mov     IE,#%11010000         ;  Enable Serial Port0 and Serial Port1 Interrupts

DataLoop:                       ;  Loop Here for Each Character

  mov     A,LeftLast            ;  Get the Last Postion
  xrl     A,R0                  ;   Has Anything Changed?  
  jz      DataLoop

  clr     IE.7                  ;  Display the Character
  mov     A,LeftLast            ;  Use "LeftLast" as the Character to Display
  xch     A,R0

  mov     B,@R0                 ;  Save the Character

  xch     A,R0                  ;  Restore the Registers
  mov     LeftLast,A
  setb    IE.7                  ;  Turn Interrupts Back on

  mov     A,B                   ;  Display the Character
  setb    RS
  acall   CharSend              

  inc     LeftLast
  mov     A,LeftLast
  clr     ACC.4
  mov     LeftLast,A

  ajmp    DataLoop


;  #### - Display Incoming Data and Wait for the Enter Key to be Pressed

  ajmp    DataLoop

  ajmp    Loop



;  Subroutines
GetSpeed:                       ;  Get and Set the Speed

  clr     RS                    ;  Clear the LCD
  mov     A,#1
  acall   CharSend

  mov     A,#4                  ;  Put in the "Speed -"" Message
  acall   MsgSend

  clr     RS                    ;  Put in the Lower Line
  mov     A,#0C0h
  acall   CharSend
  mov     A,#5                  ;  Display The "300/1200/Cont" Message
  acall   MsgSend               ;  Output the Message

  acall   MenuRead              ;  Get the "Speed -" Information

  mov     A,R0                  ;  Do we have 300 bps?
  xrl     A,R5
  jnz     Check1200             ;  No, Check 1200 bps

  mov     TL1,#160              ;  Load the 300 bps Delay
  mov     TH1,#160

  ajmp    GetSpeed_End

Check1200:                      ;  Do we have 1200 bps Selected?
  mov     A,R0
  xrl     A,R6
  jnz     GetSpeed_2nd          ;  No, Do the Next Menu

  mov     TL1,#232              ;  Load the 1200 bps Delay
  mov     TH1,#232

  ajmp    GetSpeed_End

GEtSpeed_2nd:                   ;  Check the Other Display

  clr     RS                    ;  Clear the LCD
  mov     A,#1
  acall   CharSend

  mov     A,#6                  ;  Put in the "Speed |"" Message
  acall   MsgSend

  clr     RS                    ;  Put in the Lower Line
  mov     A,#0C0h
  acall   CharSend
  mov     A,#7                  ;  Display The "2400/9600/Cont" Message
  acall   MsgSend               ;  Output the Message

  acall   MenuRead              ;  Get the "Speed -" Information

  mov     A,R0                  ;  Do we have 2400 bps?
  xrl     A,R5
  jnz     Check9600             ;  No, Check 9600 bps

  mov     TL1,#244              ;  Load the 2400 bps Delay
  mov     TH1,#244

  ajmp    GetSpeed_End

Check9600:                      ;  Do we have 9600 bps Selected?
  mov     A,R0
  xrl     A,R6
  jnz     GetSpeed              ;  No, Jump to the First Menu

  mov     TL1,#253              ;  Load the 9600 bps Delay
  mov     TH1,#253

GetSpeed_End:                   ;  Finished, Return to the Caller

  ret


DTECheck:

  clr     RS                    ;  Clear the LCD
  mov     A,#1
  acall   CharSend

  clr     A                     ;  Put in the "LEFT" Message
  acall   MsgSend
  mov     A,#8                  ;  Put in the "Port Type" Message
  acall   MsgSend

  clr     RS                    ;  Put in the Lower Line
  mov     A,#0C0h
  acall   CharSend
  mov     A,#9                  ;  Display The Forth Message
  acall   MsgSend               ;  Output the Message

  acall   MenuRead              ;  Get the Left _DCE Information

  cjne    R0,#0,Left_DTE        ;  DCE Requested

  clr     LeftDCE               ;  DCE Specified

  ajmp    Check_Right_DTE

Left_DTE:

  setb    LeftDCE               ;  DTE Specified
 
Check_Right_DTE

  clr     RS                    ;  Clear the LCD
  mov     A,#1
  acall   CharSend

  mov     A,#1                  ;  Put in the "RIGHT" Message
  acall   MsgSend
  mov     A,#8                  ;  Put in the "Port Type" Message
  acall   MsgSend

  clr     RS                    ;  Put in the Lower Line
  mov     A,#0C0h
  acall   CharSend
  mov     A,#9                  ;  Display The Forth Message
  acall   MsgSend               ;  Output the Message

  acall   MenuRead              ;  Get the Left _DCE Information