Pecus/scorch_src
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Smol opty :)

Browse Source
This commit is contained in:
Pecusx
2023-09-30 14:25:26 +02:00
parent e170750491
commit 1c8bbdf555
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/textproc.asm
+10 -9
View File
@@ -77,19 +77,20 @@ OptionsMainLoop
cmp #@kbcode._down ; $f ;cursor down cmp #@kbcode._down ; $f ;cursor down
bne OptionsNoDown bne OptionsNoDown
inc:lda OptionsY ldx OptionsY
cmp #maxoptions inx
bne OptionsMainLoop cpx #maxoptions
mva #maxoptions-1 OptionsY beq OptionsMainLoop
jmp OptionsMainLoop stx OptionsY
bne OptionsMainLoop ; allways not 0
OptionsNoDown OptionsNoDown
cmp #@kbcode._up ; $e ;cursor up cmp #@kbcode._up ; $e ;cursor up
bne OptionsNoUp bne OptionsNoUp
dec OptionsY dec OptionsY
bpl OptionsMainLoop bpl OptionsMainLoop
mva #0 OptionsY inc OptionsY
jmp OptionsMainLoop beq OptionsMainLoop ; allways 0
OptionsNoUp OptionsNoUp
cmp #@kbcode._left ; $6 ;cursor left cmp #@kbcode._left ; $6 ;cursor left
@@ -99,7 +100,7 @@ OptionsNoUp
lda OptionsTable,X lda OptionsTable,X
bpl OptionsMainLoop bpl OptionsMainLoop
inc OptionsTable,X inc OptionsTable,X
jmp OptionsMainLoop beq OptionsMainLoop ; allways 0
OptionsNoLeft OptionsNoLeft
cmp #@kbcode._right ; $7 ;cursor right cmp #@kbcode._right ; $7 ;cursor right
@@ -111,7 +112,7 @@ OptionsNoLeft
cmp #5 ; number of columns in options cmp #5 ; number of columns in options
bne OptionsMainLoop bne OptionsMainLoop
dec OptionsTable,X dec OptionsTable,X
jmp OptionsMainLoop bne OptionsMainLoop ; allways not 0
OptionsNoRight OptionsNoRight
cmp #@kbcode._ret ; $c ;Return key cmp #@kbcode._ret ; $c ;Return key
scorch.xex
BIN
View File
Binary file not shown.