summaryrefslogtreecommitdiff
path: root/programs/sub-suite/subasm.s
diff options
context:
space:
mode:
Diffstat (limited to 'programs/sub-suite/subasm.s')
-rw-r--r--programs/sub-suite/subasm.s8
1 files changed, 4 insertions, 4 deletions
diff --git a/programs/sub-suite/subasm.s b/programs/sub-suite/subasm.s
index 0a7640d..ec58a40 100644
--- a/programs/sub-suite/subasm.s
+++ b/programs/sub-suite/subasm.s
@@ -21,7 +21,7 @@ subasm:
jsr set_ptr ;
deb ; Reset B.
tba ; Reset A.
- lda f ; Get the command ID.
+ lda regf ; Get the command ID.
cmp #8 ; Is the command ID greater than the command count?
bcs @end ; Yes, so we're done.
lsl #1 ; No, so multiply the command ID by two.
@@ -55,12 +55,12 @@ chk_shcmd:
@loop:
ldb (ptr2), y ; Are we at the end of the table?
beq @false ; Yes, so return that we failed.
- cab ; No, so did the character match?
+ cmp b ; No, so did the character match?
beq @found ; Yes, so check if there are any arguments.
iny ; No, so check the next command.
bra @loop ; Keep looping.
@found:
- sty f ; Save the command ID.
+ sty regf ; Save the command ID.
ldy #1 ; Check the next character in the command buffer.
lda (ptr), y ; Is this the end of the buffer?
beq @true ; Yes, so return that we succeded.
@@ -105,7 +105,7 @@ chk_cmd:
bra @loop ; Keep looping.
@true:
ldb idx1 ; Get the command ID.
- stb f ; Return the command ID.
+ stb regf ; Return the command ID.
ldb #1 ; Return true.
bra @end ; We are done.
@false: