;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ;Û Û ;Û KEYBOARD PROCEDURES Û ;Û Û ;Û These procedures are not optimized. Û ;Û Û ;Û NOTE: '&' - this char can use only with PROC/PROCS and MACRO. Û ;Û Û ;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß ;----------------------------------------------------------------------------- ; Get a key. ;----------------------------------------------------------------------------- GetKey PROC ldx #255 stx 764 _GetKey0_: cpx 764 beq _GetKey0_ lda 764 stx 764 rts ENDP ;----------------------------------------------------------------------------- ; Wait for a key. ;----------------------------------------------------------------------------- WaitKey PROC lda #255 sta 764 _waitkey0_: cmp 764 beq _waitkey0_ sta 764 rts ENDP ;----------------------------------------------------------------------------- ; Clear last key. ;----------------------------------------------------------------------------- ClearKey MACRO lda #255 sta 764 ENDM