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

Subversion Repositories rf6809

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

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`