small cleanup in BASIC
This commit is contained in:
1 parent
37b32759dc
commit
524d532433
8 files changed
+64
-48
No files matched your search
@@ -11,7 +11,7 @@ fetch_device_secondary:
|
||||
|
||||
// Fetch the device number
|
||||
|
||||
jsr fetch_device_secondary_uint8
|
||||
jsr fetch_coma_uint8
|
||||
bcs fetch_device_secondary_done
|
||||
|
||||
sta FA
|
||||
@@ -22,7 +22,7 @@ fetch_secondary:
|
||||
|
||||
// Fetch secondary address
|
||||
|
||||
jsr fetch_device_secondary_uint8
|
||||
jsr fetch_coma_uint8
|
||||
bcs fetch_device_secondary_done
|
||||
|
||||
sta SA
|
||||
@@ -32,18 +32,3 @@ fetch_secondary:
|
||||
fetch_device_secondary_done:
|
||||
|
||||
rts
|
||||
|
||||
|
||||
fetch_device_secondary_uint8: // also called by 'cmd_merge'
|
||||
|
||||
jsr injest_comma
|
||||
bcs !+
|
||||
|
||||
jsr injest_spaces
|
||||
jsr basic_parse_line_number
|
||||
lda LINNUM+1
|
||||
bne_16 do_ILLEGAL_QUANTITY_error
|
||||
lda LINNUM+0
|
||||
clc
|
||||
!:
|
||||
rts
|
||||
Reference in new issue
Block a user