2 ; Ullrich von Bassewitz, 28.09.1998
4 ; Keyboard polling stuff for the 610.
8 .importzp tpi2, ktab1, ktab2, ktab3, ktab4
10 .include "zeropage.inc"
42 bne L3 ; Branch always
63 bcc NoKey ; Branch always
73 lda (ktab2),y ; Shifted normal key
76 lda (ktab3),y ; Shifted key in graph mode
79 L6: lda (ktab4),y ; Key with ctrl pressed
81 L7: lda (ktab1),y ; Normal key
110 Repeat: dec RepeatDelay
129 ; Poll the keyboard port until it's stable