Menu ▾ ▴

GCASM:Bad ORG overwriting location 2048

Compiler Problems
Dan Damron
2010-04-13
2013-05-30

  • Dan Damron

    Dan Damron - 2010-04-13

    I think I've hit a memory limit, it seems as though I'm not able to add to my program.
    As soon as I reference another included sub (like "LCDCursor 2"), I get this compiler output.

    Is there anything I can do?  I'm using a 16F886, and I can post code if needed.

    I have also hit this barrier by adding code to my main routine.  It seems as though GCASM won't access all the program memory.

    Kindest Regards,

    Dan Damron VE6IBM

     

  • Hugh Considine

    Hugh Considine - 2010-04-14

    Can you please post the code? GCBASIC should be able to deal with programs bigger than 2k!

    It sounds like GCBASIC might not be measuring the size of a subroutine properly. If it doesn't accurately measure the size, it may try to put it in a place where it won't actually fit. If it overlaps the boundary between 2 program memory pages, it'll cause that error about locations being overwritten.

     

  • Dan Damron

    Dan Damron - 2010-04-14

    Here it is…

    ;Chip Settings
    #chip 16F886,8

    ;Include files (Libraries)
    #include <newPS2.h>

    ;Defines (Constants)
    #define LCD_IO 2
    #define LCD_CB PORTC.4
    #define LCD_DB PORTC.5
    #define PS2DATA PORTC.6
    #define PS2CLOCK PORTC.7
    #define F1 0x05
    #define F2 0x06
    #define F3 0x04
    #define F4 0x0c
    #define F5 0x03
    #define F6 0x0b
    #define F7 0x83
    #define F8 0x0a
    #define F9 0x01
    #define F10 0x09
    #define F11 0x78
    #define F12 0x07
    #define CapsLock 0x58
    #define NumLock 0x77
    #define LShift 0x12
    #define LCtrl 0x14
    #define LAlt 0x11
    #define RShift 0x59
    #define ESCAPE 0x76
    #define Extended 0xe0 ' Below are extended keys (have e0 as byte 1)
    #define KPEnter 0x5a ' extended!!!
    #define RCtrl 0x14
    #define RGUI 0x27
    #define RAlt 0x11
    #define UPArrow 0x75
    #define DownArrow 0x72
    #define LeftArrow 0x6B
    #define RightArrow 0x74
    #define USART_BAUD_RATE 9600

    ;Variables
    Dim Scancode As string
    Dim KeyIn As byte
    Dim KeyboardInputBuffer(75)

    initDstar
    Main:
    Scancode = PS2ScanCode
    if scancode(0) = 0 then
    goto main
    end if

    'We have a ScanCode.
    'check for escape key
    if scancode(1) = ESCAPE then

    ' Menu = not Menu
    if menu then
    menu = 0
    else
    menu = 1
    end if
    redraw
    goto main
    end if
    ProcessMenu

    'Let's convert it to ascii
    KeyIn = ScanCodetoInkey(ScanCode)

    'check to see if it is a valid keydown character
    if KeyIn = 0 then
    goto main
    end if

    'ok, at this point we should have a valid ascii character.
    'have to check for control characters
    ProcessAscii
    goto Main

    Sub ProcessScanCode
    End Sub

    Sub ProcessAscii
    if KeyIn = 13 then
    'Enter Pressed, Send it!
    SendBuff
    exit sub
    end if
    if KeyIn = 8 then

    'backspace
    if KeyboardInputPointer <> 1 then
    KeyboardInputPointer = KeyboardInputPointer - 1
    KeyboardInputBuffer(KeyboardInputPointer ) = 0
    drawline
    end if
    exit sub
    end if

    'add the character to the buffer
    KeyboardInputBuffer(KeyboardInputPointer) = KeyIn

    'increment key pointer
    KeyboardInputPointer = KeyboardInputPointer + 1

    'Redraw
    redraw
    End Sub

    Sub ProcessMenu
    'Process Menu items here
    if menu = 1 then
    select case scancode(1)
    case Extended
    select case ScanCode(2)
    case UpArrow
    case DownArrow
    end select
    case F1
    case F2
    case F3
    end select
    end if

    'select case scancode(1)
    'case Extended
    'if scancode(2) = KPEnter then
    'end if
    'case ESCAPE
    'case F1
    'case F2
    'case F3
    'case else
    'end select
    End Sub

    Sub initDstar
    KeyboardInputPointer = 1
    menu = 0
    cls
    locate 0,0
    LCDCenter "Dan Damron", 1
    LCDCenter "VE6IBM", 2

    'LCDCursor 2
    wait 1 s
    cls
    Readymode
    End Sub

    Sub SendBuff
    locate 0,0
    for count = 1 to KeyboardInputPointer - 1
    LCDwritechar KeyboardInputBuffer(count)
    KeyboardInputBuffer(count) = 0
    next
    KeyboardInputPointer= 1
    drawline
    End Sub

    Sub Redraw
    if oldstate <> menu then
    if Menu then
    DrawMenu
    oldstate = menu
    else
    ReadyMode
    oldstate = menu
    end if
    end if
    if Menu = 0 then
    drawline
    end if
    End Sub

    Sub DrawLine
    if KeyboardInputPointer = 1 then
    'clear Line
    locate 2, 3
    for count = 1 to 17
    LCDWriteChar 32
    next
    exit sub
    end if
    if KeyboardInputPointer < 18 then
    locate 2, 3
    for count = 1 to KeyboardInputPointer - 1
    LCDWriteChar KeyboardInputBuffer(count)
    next

    'backspace hack
    if count < 18 then
    LCDWritechar 32
    end if
    end if
    if KeyboardInputPointer >= 18 then

    'scroll
    locate 2, 3
    for count = KeyboardInputPointer - 18 to KeyboardInputPointer - 1
    LCDWriteChar KeyboardInputBuffer(count)
    next
    end if
    End Sub

    Sub LCDCenter (data As string, Line)
    space = (20 - data(0)) / 2
    locate Line, space
    Print data
    End Sub

    Sub DrawMenu
    cls
    LCDCenter "Main Menu", 0
    locate 1, 0
    print "F1-Macros"
    locate 2, 0
    print "F2-Settings"
    LCDCenter "Press <Esc> to exit", 3
    End Sub

    Sub ReadyMode
    cls
    locate 1, 0
    print "Rx>"
    locate 2, 0
    print "Tx>"
    LCDCenter "Press <Esc> for Menu", 3
    End Sub

     

  • Dan Damron

    Dan Damron - 2010-04-14

    Once you copy and paste that file into GCBasic, it will compile.
    Then, find the initDstar sub and uncomment the LCDCursor 2.
    try to recompile, then you will get the GCASM: Bad ORG overwriting location 2048.

    Again, I have a demo of this tomorrow night, I would love to be able to have a working circuit. 

    Thanks again,

    Dan Damron VE6IBM

     

  • Dan Damron

    Dan Damron - 2010-04-14

    Oh, btw, you will also need my newps2.h file below:

    ;Startup routine
    #startup InitPS2

    ;Defines (Constants)
    #define PS2KeyShift PS2Flags.0
    #define PS2KeyCtrl PS2Flags.1
    #define PS2KeyAlt PS2Flags.2
    #define PS2NumLock PS2Flags.3
    #define PS2CapsLock PS2Flags.4
    #define PS2ScrollLock PS2Flags.5
    #define PS2Extended PS2Flags.6
    #define PS2Release PS2Flags.7

    ' PS/2 Keyboard/mouse routines for Great Cow Basic
    'Original code Copyright (C) 2006 - 2010 Hugh Considine
    'Modified by Dan Damron VE6IBM
    '#define PS2Data SysTemp.0 ' Set to Data Pin
    '#define PS2Clock SysTemp.0 ' Set to Clock Pin
    'Flags
    'Initialize

    Sub InitPS2
    'Inhibit Device
    DIR PS2Clock Out
    DIR PS2Data IN
    set PS2Clock Off
    End Sub

    Function PS2ReadByte
    PS2ReadByte = 0
    'Release bus
    Dir PS2Clock In

    'Give device time to respond
    Wait 25 us

    'If no response after 200 us, exit
    PS2Bit = 0
    Do While PS2Clock = On
    If PS2Bit > 200 Then
    Goto PS2ReadByteDone
    End If
    Wait 10 us
    PS2Bit = PS2Bit + 10
    Loop

    'Start Bit
    If PS2Data = ON then
    Goto PS2ReadByteDone
    end if
    Wait Until PS2Clock = ON

    '8 data bits
    For PS2Bit = 1 to 8
    Wait until PS2Clock = OFF
    ROTATE PS2ReadByte RIGHT
    PS2ReadByte.7 = PS2Data
    Wait until PS2Clock = ON
    Next

    'Parity bit
    Wait until PS2Clock = OFF
    Wait until PS2Clock = ON

    'End bit
    Wait until PS2Clock = OFF
    Wait until PS2Clock = ON

    'Inhibit bus
    PS2ReadByteDone:
    DIR PS2Clock Out
    Set PS2Clock Off
    Wait 100 us
    #ifdef PS2_DELAY
    Wait PS2_DELAY
    #endif
    End Function

    Sub PS2WriteByte (In PS2Byte)
    'Pull data down, then release clock
    Dir PS2Data Out
    Set PS2Data Off
    Wait 10 us
    Dir PS2Clock In

    'Wait up to 20 ms for device to pull clock down
    PS2Bit = 0
    Do While PS2Clock = On

    'Re-use PS2Parity to count 100 us
    For PS2Parity = 1 to 10
    Wait 10 us
    If PS2Clock = Off then
    Exit Do
    end if
    Next
    PS2Bit = PS2Bit + 1
    If PS2Bit > 200 then
    Goto PS2WriteByteDone
    end if
    Loop

    '8 data bits
    PS2Parity = 0
    For PS2Bit = 1 to 8
    If PS2Byte.0 = Off then
    Set PS2Data off
    Else
    Set PS2Data on
    PS2Parity = PS2Parity + 1
    End If
    ROTATE PS2Byte RIGHT
    Wait until PS2Clock = On
    Wait until PS2Clock = Off
    Next

    'Parity
    If PS2Parity.0 = off then
    Set PS2Data on
    end if
    If PS2Parity.0 = on then
    Set PS2Data off
    end if
    Wait until PS2Clock = On
    Wait until PS2Clock = Off

    'Stop
    Dir PS2Data In

    'Ack
    Wait Until PS2Data = Off
    Wait until PS2Clock = OFF
    Wait until PS2Clock = ON

    'Inhibit bus
    PS2WriteByteDone:
    Dir PS2Clock Out
    Set PS2Clock Off
    Wait 100 us
    #ifdef PS2_DELAY
    Wait PS2_DELAY
    #endif
    End Sub

    Sub PS2SyncKBLeds
    'Get value
    PS2Value = 0
    If PS2NumLock then
    PS2Value.1 = On
    end if
    If PS2CapsLock then
    PS2Value.2 = On
    end if
    If PS2ScrollLock then
    PS2Value.0 = On
    end if

    'Send LED command
    PS2WriteByte (0xED)
    PS2Parity = PS2ReadByte

    'Send value
    PS2WriteByte (PS2Value)
    PS2Parity = PS2ReadByte
    End Sub

    '''Keyboard LED setting routine
    '''@param PS2Value Value to send. Bits 0-2 control LEDs
    Sub PS2SetKBLeds (In PS2Value)
    'Send LED command
    PS2WriteByte (0xED)
    PS2Parity = PS2ReadByte

    'Send value
    PS2WriteByte (PS2Value)
    PS2Parity = PS2ReadByte
    End Sub

    Function PS2ScanCode as string
    PS2Extended = 0
    PS2Release = 0
    charcounter = 1
    'Get key scan code
    MyScanCode = PS2ReadByte
    if MyScanCode = 0 then
    PS2ScanCode = ""
    exit function
    end if

    Again:

    PS2ScanCode(charcounter) = MyScanCode
    if MyScanCode = 0xF0 then ' key released
    charcounter +=1
    PS2Release = 1
    Do
    MyScanCode = PS2ReadByte
    Loop While MyScanCode = 0
    goto Again
    end if
    if MyScanCode = 0xE0 then ' extended
    charcounter +=1
    PS2Extended = 1
    Do
    MyScanCode = PS2ReadByte
    Loop While MyScanCode = 0
    Goto Again
    end if
    ps2ScanCode(0) = charcounter

    End Function

    function INKEY
    'Initialise
    INKEY = 0

    PS2GetAnotherKey:

    'Get key scan code
    ScanCode = PS2ReadByte
    if ScanCode = 0 then exit function

    'Set flags
    PS2Extended = 0
    PS2Release = 0

    '2-byte key?
    if ScanCode = 0xE0 then
    PS2Extended = 1
    Do
    ScanCode = PS2ReadByte
    Loop While ScanCode = 0
    end if

    'Key released?
    If ScanCode = 0xF0 Then
    PS2Release = 1
    Do
    ScanCode = PS2ReadByte
    Loop While ScanCode = 0
    End If

    'Extended chars
    If PS2Extended Then

    'Non-extended chars
    Else
    'Shift pressed/released
    If ScanCode = 0x12 or ScanCode = 0x59 then
    If PS2Release Then
    PS2KeyShift = 0
    Else
    PS2KeyShift = 1
    End If
    Goto PS2GetAnotherKey
    End If

    If PS2Release = 0 Then
    'Caps Lock pressed
    if ScanCode = 0x58 then
    If PS2CapsLock Then
    PS2CapsLock = 0
    Else
    PS2CapsLock = 1
    End If
    PS2SyncKBLeds
    Goto PS2GetAnotherKey
    end if

    'Num lock pressed
    if ScanCode = 0x77 then
    If PS2NumLock Then
    PS2NumLock = 0
    Else
    PS2NumLock = 1
    End If
    PS2SyncKBLeds
    Goto PS2GetAnotherKey
    end if

    'Scroll lock pressed
    if ScanCode = 0x7E then
    If PS2ScrollLock Then
    PS2ScrollLock = 0
    Else
    PS2ScrollLock = 1
    End If
    PS2SyncKBLeds
    Goto PS2GetAnotherKey
    end if

    'Translate scan code to ASCII
    'Control Chars
    if ScanCode = 0x5A then INKEY = 13 'Enter
    if ScanCode = 0x66 then INKEY = 8 'Backspace
    if ScanCode = 0x76 then INKEY = 27 'Esc
    if ScanCode = 0x29 then INKEY = 32 'Space

    'Arrows

    'Numbers
    If PS2KeyShift Then
    if ScanCode = 0x16 then INKEY = "!"
    if ScanCode = 0x1E then INKEY = "@"
    if ScanCode = 0x26 then INKEY = "#"
    if ScanCode = 0x25 then INKEY = "$"
    if ScanCode = 0x2E then INKEY = "%"
    if ScanCode = 0x36 then INKEY = "^"
    if ScanCode = 0x3D then INKEY = "&"
    if ScanCode = 0x3E then INKEY = "*"
    if ScanCode = 0x46 then INKEY = "("
    if ScanCode = 0x45 then INKEY = ")"
    Else
    if ScanCode = 0x16 then INKEY = 49
    if ScanCode = 0x1E then INKEY = 50
    if ScanCode = 0x26 then INKEY = 51
    if ScanCode = 0x25 then INKEY = 52
    if ScanCode = 0x2E then INKEY = 53
    if ScanCode = 0x36 then INKEY = 54
    if ScanCode = 0x3D then INKEY = 55
    if ScanCode = 0x3E then INKEY = 56
    if ScanCode = 0x46 then INKEY = 57
    if ScanCode = 0x45 then INKEY = 48
    End If

    'Letters
    if ScanCode = 0x1C then INKEY = 65 'A
    if ScanCode = 0x32 then INKEY = 66
    if ScanCode = 0x21 then INKEY = 67 'C
    if ScanCode = 0x23 then INKEY = 68
    if ScanCode = 0x24 then INKEY = 69 'E
    if ScanCode = 0x2B then INKEY = 70
    if ScanCode = 0x34 then INKEY = 71 'G
    if ScanCode = 0x33 then INKEY = 72
    if ScanCode = 0x43 then INKEY = 73 'I
    if ScanCode = 0x3B then INKEY = 74
    if ScanCode = 0x42 then INKEY = 75 'K
    if ScanCode = 0x4B then INKEY = 76
    if ScanCode = 0x3A then INKEY = 77 'M
    if ScanCode = 0x31 then INKEY = 78
    if ScanCode = 0x44 then INKEY = 79 'O
    if ScanCode = 0x4D then INKEY = 80
    if ScanCode = 0x15 then INKEY = 81 'Q
    if ScanCode = 0x2D then INKEY = 82
    if ScanCode = 0x1B then INKEY = 83 'S
    if ScanCode = 0x2C then INKEY = 84
    if ScanCode = 0x3C then INKEY = 85 'U
    if ScanCode = 0x2A then INKEY = 86
    if ScanCode = 0x1D then INKEY = 87 'W
    if ScanCode = 0x22 then INKEY = 88
    if ScanCode = 0x35 then INKEY = 89 'Y
    if ScanCode = 0x1A then INKEY = 90 'Z

    'If shift key and caps lock in same state, make lower case
    If PS2KeyShift = PS2CapsLock Then
    If INKEY >= 65 and INKEY <= 90 Then INKEY += 32
    End If

    'Symbols
    If PS2KeyShift Then
    if ScanCode = 0x0E then INKEY = "~"
    if ScanCode = 0x4E then INKEY = "_"
    if ScanCode = 0x55 then INKEY = "+"
    if ScanCode = 0x5D then INKEY = "|"
    if ScanCode = 0x4c then INKEY = ":"
    if ScanCode = 0x52 then INKEY = 34 '"
    if ScanCode = 0x41 then INKEY = "<"
    if ScanCode = 0x49 then INKEY = ">"
    if ScanCode = 0x4A then INKEY = "?"
    if ScanCode = 0x54 then INKEY = "{"
    if ScanCode = 0x5B then INKEY = "}"
    Else
    if ScanCode = 0x0E then INKEY = 96 '`
    if ScanCode = 0x4E then INKEY = 45 '-
    if ScanCode = 0x55 then INKEY = 61 '=
    if ScanCode = 0x5D then INKEY = 92 '\
    if ScanCode = 0x4c then INKEY = 59 ';
    if ScanCode = 0x52 then INKEY = 39 ''
    if ScanCode = 0x41 then INKEY = 44 ',
    if ScanCode = 0x49 then INKEY = 46 '.
    if ScanCode = 0x4A then INKEY = 47 '/
    if ScanCode = 0x54 then INKEY = "["
    if ScanCode = 0x5B then INKEY = "]"
    End If

    End If
    End If

    end function

    Function ScanCodetoInkey (In ScanCode As string)
    scancodeposition = 1
    ScanCodetoInkey = 0
    'set flags
    PS2Extended = 0
    PS2Release = 0
    ' PS2KeyShift = 0

    GetAnotherScanCode:

    if ScanCode(ScanCodePosition) = 0xE0 then
    PS2Extended = 1
    ScanCodePosition += 1
    goto GetAnotherScanCode
    end if

    if ScanCode(ScanCodePosition) = 0xF0 then
    PS2Release = 1
    ScanCodePosition += 1
    goto GetAnotherScanCode
    end if
    if PS2Extended then
    'Extended Chars
    else

    'Non Extended chars
    'Shift Keys:
    if ScanCode(ScanCodePosition) = 0x12 or scancode(Scancodeposition) = 0x59 then
    if PS2Release then
    PS2KeyShift = 0
    else
    PS2KeyShift = 1
    End If
    exit function
    'ScanCodePosition += 1
    'goto GetAnotherScanCode
    end if
    if PS2Release = 0 then

    if ScanCode(ScanCodePosition) = 0x58 then
    'Caps Lock pressed
    if PS2CapsLock then
    PS2CapsLock = 0
    else
    PS2CapsLock = 1
    end if
    PS2SyncKBLeds
    ScanCodetoInkey = 0
    exit function
    End If
    'Num lock pressed
    if ScanCode(ScanCodePosition) = 0x77 then
    If PS2NumLock Then
    PS2NumLock = 0
    Else
    PS2NumLock = 1
    End If
    PS2SyncKBLeds
    ScanCodetoInkey = 0
    exit function
    end if
    'Scroll lock pressed
    if ScanCode(ScanCodePosition) = 0x7E then
    If PS2ScrollLock Then
    PS2ScrollLock = 0
    Else
    PS2ScrollLock = 1
    End If
    PS2SyncKBLeds
    ScanCodetoInkey = 0
    exit function
    end if
    if ScanCode(ScanCodePosition) = 0x5A then ScanCodetoInkey = 13
    if ScanCode(ScanCodePosition) = 0x66 then ScanCodetoInkey = 8
    if ScanCode(ScanCodePosition) = 0x76 then ScanCodetoInkey = 27
    if ScanCode(ScanCodePosition) = 0x29 then ScanCodetoInkey = 32
    'numbers
    if PS2KeyShift then
    if ScanCode(scancodeposition) = 0x16 then ScanCodetoInKey = "!"
    if ScanCode(scancodeposition) = 0x1E then ScanCodetoInKey = "@"
    if ScanCode(scancodeposition) = 0x26 then ScanCodetoInKey = "#"
    if ScanCode(scancodeposition) = 0x25 then ScanCodetoInKey = "$"
    if ScanCode(scancodeposition) = 0x2E then ScanCodetoInKey = "%"
    if ScanCode(scancodeposition) = 0x36 then ScanCodetoInKey = "^"
    if ScanCode(scancodeposition) = 0x3D then ScanCodetoInKey = "&"
    if ScanCode(scancodeposition) = 0x3E then ScanCodetoInKey = "*"
    if ScanCode(scancodeposition) = 0x46 then ScanCodetoInKey = "("
    if ScanCode(scancodeposition) = 0x45 then ScanCodetoInKey = ")"
    Else
    if ScanCode(scancodeposition) = 0x16 then ScanCodetoInKey = 49
    if ScanCode(scancodeposition) = 0x1E then ScanCodetoInKey = 50
    if ScanCode(scancodeposition) = 0x26 then ScanCodetoInKey = 51
    if ScanCode(scancodeposition) = 0x25 then ScanCodetoInKey = 52
    if ScanCode(scancodeposition) = 0x2E then ScanCodetoInKey = 53
    if ScanCode(scancodeposition) = 0x36 then ScanCodetoInKey = 54
    if ScanCode(scancodeposition) = 0x3D then ScanCodetoInKey = 55
    if ScanCode(scancodeposition) = 0x3E then ScanCodetoInKey = 56
    if ScanCode(scancodeposition) = 0x46 then ScanCodetoInKey = 57
    if ScanCode(scancodeposition) = 0x45 then ScanCodetoInKey = 48
    end if

    'Letters
    if ScanCode(scancodeposition) = 0x1C then ScanCodetoInKey = 65 'A
    if ScanCode(scancodeposition) = 0x32 then ScanCodetoInKey = 66
    if ScanCode(scancodeposition) = 0x21 then ScanCodetoInKey = 67 'C
    if ScanCode(scancodeposition) = 0x23 then ScanCodetoInKey = 68
    if ScanCode(scancodeposition) = 0x24 then ScanCodetoInKey = 69 'E
    if ScanCode(scancodeposition) = 0x2B then ScanCodetoInKey = 70
    if ScanCode(scancodeposition) = 0x34 then ScanCodetoInKey = 71 'G
    if ScanCode(scancodeposition) = 0x33 then ScanCodetoInKey = 72
    if ScanCode(scancodeposition) = 0x43 then ScanCodetoInKey = 73 'I
    if ScanCode(scancodeposition) = 0x3B then ScanCodetoInKey = 74
    if ScanCode(scancodeposition) = 0x42 then ScanCodetoInKey = 75 'K
    if ScanCode(scancodeposition) = 0x4B then ScanCodetoInKey = 76
    if ScanCode(scancodeposition) = 0x3A then ScanCodetoInKey = 77 'M
    if ScanCode(scancodeposition) = 0x31 then ScanCodetoInKey = 78
    if ScanCode(scancodeposition) = 0x44 then ScanCodetoInKey = 79 'O
    if ScanCode(scancodeposition) = 0x4D then ScanCodetoInKey = 80
    if ScanCode(scancodeposition) = 0x15 then ScanCodetoInKey = 81 'Q
    if ScanCode(scancodeposition) = 0x2D then ScanCodetoInKey = 82
    if ScanCode(scancodeposition) = 0x1B then ScanCodetoInKey = 83 'S
    if ScanCode(scancodeposition) = 0x2C then ScanCodetoInKey = 84
    if ScanCode(scancodeposition) = 0x3C then ScanCodetoInKey = 85 'U
    if ScanCode(scancodeposition) = 0x2A then ScanCodetoInKey = 86
    if ScanCode(scancodeposition) = 0x1D then ScanCodetoInKey = 87 'W
    if ScanCode(scancodeposition) = 0x22 then ScanCodetoInKey = 88
    if ScanCode(scancodeposition) = 0x35 then ScanCodetoInKey = 89 'Y
    if ScanCode(scancodeposition) = 0x1A then ScanCodetoInKey = 90 'Z

    'If shift key and caps lock in same state, make lower case
    If PS2KeyShift = PS2CapsLock Then
    If scancodetoinkey >= 65 and scancodetoinkey <= 90 then
    scancodetoinkey += 32
    end if
    End If

    'Symbols
    If PS2KeyShift Then
    if ScanCode(scancodeposition) = 0x0E then ScanCodetoInKey = "~"
    if ScanCode(scancodeposition) = 0x4E then ScanCodetoInKey = "_"
    if ScanCode(scancodeposition) = 0x55 then ScanCodetoInKey = "+"
    if ScanCode(scancodeposition) = 0x5D then ScanCodetoInKey = "|"
    if ScanCode(scancodeposition) = 0x4c then ScanCodetoInKey = ":"
    if ScanCode(scancodeposition) = 0x52 then ScanCodetoInKey = 34
    if ScanCode(scancodeposition) = 0x41 then ScanCodetoInKey = "<"
    if ScanCode(scancodeposition) = 0x49 then ScanCodetoInKey = ">"
    if ScanCode(scancodeposition) = 0x4A then ScanCodetoInKey = "?"
    if ScanCode(scancodeposition) = 0x54 then ScanCodetoInKey = "{"
    if ScanCode(scancodeposition) = 0x5B then ScanCodetoInKey = "}"
    Else
    if ScanCode(scancodeposition) = 0x0E then ScanCodetoInKey = 96
    if ScanCode(scancodeposition) = 0x4E then ScanCodetoInKey = 45
    if ScanCode(scancodeposition) = 0x55 then ScanCodetoInKey = 61
    if ScanCode(scancodeposition) = 0x5D then ScanCodetoInKey = 92
    if ScanCode(scancodeposition) = 0x4c then ScanCodetoInKey = 59
    if ScanCode(scancodeposition) = 0x52 then ScanCodetoInKey = 39
    if ScanCode(scancodeposition) = 0x41 then ScanCodetoInKey = 44
    if ScanCode(scancodeposition) = 0x49 then ScanCodetoInKey = 46
    if ScanCode(scancodeposition) = 0x4A then ScanCodetoInKey = 47
    if ScanCode(scancodeposition) = 0x54 then ScanCodetoInKey = "["
    if ScanCode(scancodeposition) = 0x5B then ScanCodetoInKey = "]"
    End If
    else
    'This is key release.
    ScanCodetoInkey = 0
    End if
    End if
    End Function

     

  • Dan Damron

    Dan Damron - 2010-04-14

    I had to UN-include the original ps2.h and include this one in it's place.

    BTW, This is my work on enhancing the PS2 keyboard routines.. :)

     

  • Hugh Considine

    Hugh Considine - 2010-04-14

    Hopefully that bug is now fixed. Please try downloading http://gcbasic.sourceforge.net/newfiles/update-nochipdata.zip and let me know if works!

    The bug does appear to be due to the sizes of subroutines not being measured properly. GCBASIC wasn't counting the bankisel statement, which is used to access arrays.

    Also, a tip to cut back the size of the library: Accessing an array element takes more instructions than accessing a normal variable (typically 5 vs. 2). You can probably save quite a bit of space by storing ScanCode(scancodeposition) in a temporary variable once you've calculated scancodeposition, and then using the temporary variable instead of ScanCode(scancodeposition).

     

  • Dan Damron

    Dan Damron - 2010-04-14

    Awesome!  Thanks HUGE!  I will try it right away!

    You ROCK!

    Regards,

    Dan Damron VE6IBM

     

  • Dan Damron

    Dan Damron - 2010-04-14

    Ok, That fixed the compile error, but the program would be very erratic, so I don't think it is completely fixed.

    I modified my newPS2.h file to not use arrays.  Now my code works perfectly!

    I have saved a copy of the code to test with.  The above fix didn't quite do it.

    Thank you for pointing me in the right direction with regards to the array!  All is good atm.

    Kindest Regards,

    Dan Damron VE6IBM

     

Log in to post a comment.

Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.