implement SYS command.

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-29 23:02:22 +09:30
1 parent 0d891bb06a
commit 8ecd10d5cd
4 files changed
+42 -2

No files matched your search

+4 -1
View File
@@ -59,6 +59,9 @@ injest_number:
;; Set sign to negative
lda #$ff
sta basic_fac1_sign
;; Skip over the minus sign
jsr basic_consume_character
ij_not_minus:
@@ -68,7 +71,7 @@ ij_loop1:
lda (basic_current_statement_ptr),y
cmp #$30
bcc ij_not_a_digit
cmp #$39
cmp #$3a
bcs ij_not_a_digit
;; It is a digit