2 ; Ullrich von Bassewitz, 28.09.1998
4 ; Keyboard polling stuff for the 610.
8 .importzp tpi2, ktab1, ktab2, ktab3, ktab4
9 .importzp keyidx, keybuf, keyscanbuf, keysave, modkey, norkey
10 .importzp graphmode, lastidx, rptdelay, rptcount
41 bne L3 ; Branch always
62 bcc NoKey ; Branch always
72 lda (ktab2),y ; Shifted normal key
75 lda (ktab3),y ; Shifted key in graph mode
78 L6: lda (ktab4),y ; Key with ctrl pressed
80 L7: lda (ktab1),y ; Normal key
127 ; Poll the keyboard port until it's stable
128 ; This code goes into page 2, since it is included in every program and
129 ; there's space left in p2