28 lines
374 B
ArmAsm
28 lines
374 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 this should also detect errors
|
|
lda LINNUM+1
|
|
bne_16 do_ILLEGAL_QUANTITY_error
|
|
lda LINNUM+0
|
|
clc
|
|
!:
|
|
rts
|