22 lines
399 B
ArmAsm
22 lines
399 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * BASIC_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Fetches line number, stores it in LINNUM, sets Carry to indicate failure (not a number)
|
|
//
|
|
// Preserves both .X and .Y
|
|
//
|
|
|
|
fetch_line_number:
|
|
|
|
lda #IDX__EV7_26 // 'LINE NUMBER TOO LARGE'
|
|
jsr fetch_uint16
|
|
bcs_16 do_SYNTAX_error
|
|
|
|
lda LINNUM+1
|
|
cmp #$FF
|
|
beq_16 do_LINE_NUMBER_TOO_LARGE_error
|
|
|
|
rts
|