2 ; Ullrich von Bassewitz, 28.09.1998
4 ; Keyboard polling stuff for the 610.
8 .importzp tpi2, ktab1, ktab2, ktab3, ktab4
40 bne L3 ; Branch always
61 bcc NoKey ; Branch always
71 lda (ktab2),y ; Shifted normal key
74 lda (ktab3),y ; Shifted key in graph mode
77 L6: lda (ktab4),y ; Key with ctrl pressed
79 L7: lda (ktab1),y ; Normal key
108 Repeat: dec RepeatDelay
127 ; Poll the keyboard port until it's stable