diff options
| -rw-r--r-- | dla.s | 16 |
1 files changed, 6 insertions, 10 deletions
@@ -8,7 +8,6 @@ ; to use 1 byte for the X coordinate. .include "atari.inc" - .macpack atari ; for scrcode macro .include "xex.inc" loadaddr = $2000 @@ -260,25 +259,22 @@ main_done: jsr printmsg ; user might have hit some random key during plotting; ignore it. -keyloop: ldx #$ff stx CH waitkey: - lda CH - cmp #$ff - beq waitkey + jsr getchr ; see what key was hit - and #$3f ; ignore shift and inverse - cmp #$28 ; Redo + and #$5f ; ignore case + cmp #'R' ; Redo bne notredo jmp generate notredo: - cmp #$3e ; Save + cmp #'S' ; Save beq saveimage - cmp #$23 ; New - bne keyloop ; ignore any other keystroke + cmp #'N' ; New + bne waitkey ; ignore any other keystroke jmp getargs ;;; End of generate() |