Lynxmotion Tech Support

aa var bit
bb var bit
cc var bit
dd var bit

input p4
input p5
input p6
input p7

output p10
output p11
output p12
output p13
   
low 10
low 11
low 12
low 13

start:
 
high 10
aa = in4
bb = in5
cc = in6
dd = in7
serout s_out, i9600, [bin aa, bin bb, bin cc, bin dd]   
low 10
high 11
aa = in4
bb = in5
cc = in6
dd = in7
serout s_out, i9600, [" ",bin aa, bin bb, bin cc, bin dd]   
low 11
high 12
aa = in4
bb = in5
cc = in6
dd = in7
serout s_out, i9600, [" ",bin aa, bin bb, bin cc, bin dd]   
low 12
high 13
aa = in4
bb = in5
cc = in6
dd = in7
serout s_out, i9600, [" ",bin aa, bin bb, bin cc, bin dd, 13]
low 13   

goto start

Row0          con 10             ; Row 0 on keypad
Row1          con 11             ; row 1 on keypad
Row2       con 12             ; Row 2
Row3       con 13             ; Row 3

col1                var bit       ; Column values on keypad used in check keypad
col2                var bit
col3                var bit
col4                var bit



; P14 RXD                  ; HSERIAL
; P15 TXD                  ; hserial
RowB      con   17            ; Cmd buttons new row


;==============================================================================
; [CheckKeypad] function
;
; Input Parameters:
;       FCheckModeChange: Should we do checks for mode change? Currently always true.
;
; Variables updated:
;      keypress - the ascii value associated with that key.
;      Ver 2.0 - Add 4 buttons hang off of keyboard as an extra row...
;       change Highs to inputs to keep possibility of dead shorts from happening
;      when pressing multiple switches.
; BUGBUG:: Need to clean this up, maybe table drive?
;==============================================================================
fCheckModeChange var   byte      ; should we check for a mode change ?
CheckKeypad[fCheckModeChange]:
   low  Row0
   input Row1
   input Row2
   input Row3
   input RowB   ; buttons we hacked on
   
   col1 = in4
   col2 = in5
   col3 = in6
   col4 = in7

   bPacket(0) = 0      ; assume no buttons pressed
   bPacket(1) = 0
    keypress = " "
    CmdBtnsPrev = CmdBtns
    CmdBtns = 0
   if fCheckModeChange then
      fTModeChanged = FALSE
   endif

   ;Read buttons - New version reads multiple keys as well are down.
   ; Process Row 0
   if col1 = 0 then
      bPacket(0).bit1 = 1
      keypress = "1"
   endif
   if col2 = 0  then
      bPacket(0).bit2 = 1
      keypress = "2"
   endif
   if col3 = 0 then
       bPacket(0).bit3 = 1
       keypress = "3"
   endif
   if col4 = 0 then
       bPacket(1).bit2 = 1
       keypress = "A"
   endif

   ; Process Row 1
   input Row0
   low  Row1
   col1 = in4
   col2 = in5
   col3 = in6
   col4 = in7
   if col1 = 0 then
       bPacket(0).bit4 = 1
       keypress = "4"
   endif
   if col2 = 0  then
       bPacket(0).bit5 = 1
       keypress = "5"
   endif
   if col3 = 0  then
      bPacket(0).bit6 = 1
      keypress = "6"
   endif
   if col4 = 0 then
      bPacket(1).bit3 = 1
      keypress = "B"
   endif

   ; Process Row2
   input Row1
   low  Row2
   col1 = in4
   col2 = in5
   col3 = in6
   col4 = in7
   if col1 = 0 then
       bPacket(0).bit7 = 1
       keypress = "7"
   endif
   if col2 = 0 then
       bPacket(1).bit0 = 1
       keypress = "8"
   endif
   if col3 = 0 then
       bPacket(1).bit1 = 1
       keypress = "9"
   endif
   if col4 = 0 then
       bPacket(1).bit4 = 1
       keypress = "C"
   endif

   ; Process Row 3
   input Row2
   low  Row3
   col1 = in4
   col2 = in5
   col3 = in6
   col4 = in7
   if col1 = 0 then
       bPacket(0).bit0 = 1
       keypress = "0"
   endif
   if col2 = 0 then
       bPacket(1).bit7 = 1
       keypress = "F"
   endif
   if col3 = 0 then
       bPacket(1).bit6 = 1
       keypress = "E"
   endif
   if col4 = 0 then
       bPacket(1).bit5 = 1
       keypress = "D"
   endif

   ; Process Row B - Our 4 added on buttons.
   input Row3
   low   RowB
   col1 = in4
   col2 = in5
   col3 = in6
   col4 = in7
   if col1 = 0 then
       CmdBtns.bit0 = 1
       keypress = "W"
   endif
   if col2 = 0 then
       CmdBtns.bit1 = 1
       keypress = "X"
   endif
   if col3 = 0 then
       CmdBtns.bit2 = 1
       keypress = "Y"
   endif
   if col4 = 0 then
       CmdBtns.bit3 = 1
       keypress = "Z"
   endif
   
   ; Check to see if the state of the command buttons has changed.
   if fCheckModeChange and (CmdBtns <> CmdBtnsPrev) then         ;
      if (CmdBtns & CMD_UP_MASK) and ((CmdBtnsPrev & CMD_UP_MASK) = 0) then
         ; CmD Up button has been pressed
         if TransMode = TMODE_MAX then
            TransMode = 0
         else
            TransMode = TransMode + 1
         endif
         fTModeChanged = TRUE
      elseif (CmdBtns & CMD_DOWN_MASK) and ((CmdBtnsPrev & CMD_DOWN_MASK) = 0)
         ; CmD Up button has been pressed
         if TransMode = 0 then
            TransMode = TMODE_MAX
         else
            TransMode = TransMode - 1
         endif
         fTModeChanged = TRUE
      endif
      
      if fTModeChanged then
         gosub ClearLCDDisplay
         bTDataLast = 0xff      ; make sure we will display something when it changes.
      endif
   endif

   return