27 lines
378 B
ArmAsm
27 lines
378 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * BASIC_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Fetches 8-bit unsigned integer
|
|
//
|
|
|
|
|
|
fetch_coma_uint8:
|
|
|
|
jsr injest_comma
|
|
bcs !+
|
|
|
|
// FALLTROUGH
|
|
|
|
fetch_uint8:
|
|
|
|
jsr injest_spaces
|
|
jsr basic_parse_line_number // XXX detect errors here
|
|
lda LINNUM+1
|
|
bne_16 do_ILLEGAL_QUANTITY_error
|
|
lda LINNUM+0
|
|
clc
|
|
!:
|
|
rts
|