OpenCores
URL https://opencores.org/ocsvn/rf6809/rf6809/trunk

Subversion Repositories rf6809

[/] [rf6809/] [trunk/] [software/] [boot/] [keyboard.asm] - Diff between revs 14 and 15

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 14 Rev 15
Line 425... Line 425...
        tstb                                                                            ; anything in buffer?
        tstb                                                                            ; anything in buffer?
        puls    b
        puls    b
        bne             dbgk1                                                   ; branch if something in buffer
        bne             dbgk1                                                   ; branch if something in buffer
        tstb
        tstb
        bmi             dbgk2                                                   ; if no key and blocking - loop
        bmi             dbgk2                                                   ; if no key and blocking - loop
 
        bra             dbgk24
dbgk20:
dbgk20:
        ldy             #0
        ldy             #0
        bsr             KeybdGetStatus
        bsr             KeybdGetStatus
        andb    #$80                                                    ; is key available?
        andb    #$80                                                    ; is key available?
        puls    b
        puls    b
        bne             dbgk1                                                   ; branch if key
        bne             dbgk1                                                   ; branch if key
        tstb                                                                            ; block?
        tstb                                                                            ; block?
        bmi             dbgk2                                                   ; If no key and blocking - loop
        bmi             dbgk2                                                   ; If no key and blocking - loop
 
dbgk24:
        ldd             #-1                                                             ; return -1 if no block and no key
        ldd             #-1                                                             ; return -1 if no block and no key
        puls    x,pc
        puls    x,y,pc
dbgk1:
dbgk1:
        cmpy    #0
        cmpy    #0
        bne             dbgk22
        bne             dbgk22
        bsr             KeybdGetScancode        ; get scancode directly
        bsr             KeybdGetScancode        ; get scancode directly
        bra             dbgk23
        bra             dbgk23

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.