more sane directory name, updated binaries
This commit is contained in:
1 parent
d4d32095d1
commit
76aaf298b8
697 files changed
+56
-56
No files matched your search
@@ -0,0 +1,31 @@
|
||||
// #LAYOUT# STD * #TAKE
|
||||
// #LAYOUT# * BASIC_0 #TAKE
|
||||
// #LAYOUT# * * #IGNORE
|
||||
|
||||
|
||||
basic_parse_line_number:
|
||||
|
||||
jsr injest_number
|
||||
|
||||
// Check if the number is a valid line number
|
||||
// i.e., 16 bits, no exponent, no decimal
|
||||
lda FAC1_mantissa+2
|
||||
ora FAC1_mantissa+3
|
||||
ora FAC1_exponent
|
||||
beq !+
|
||||
ml_bad_line_number:
|
||||
// Invalid line number
|
||||
jmp do_ILLEGAL_QUANTITY_error
|
||||
!:
|
||||
// Line number are not allowed to have decimal points in them
|
||||
lda __tokenise_work4
|
||||
cmp #$FF
|
||||
bne ml_bad_line_number
|
||||
|
||||
// Got a valid line number.
|
||||
lda FAC1_mantissa+0
|
||||
sta LINNUM+0
|
||||
lda FAC1_mantissa+1
|
||||
sta LINNUM+1
|
||||
clc
|
||||
rts
|
||||
Reference in new issue
Block a user