mirror of
https://github.com/mist64/msbasic.git
synced 2024-06-06 14:29:36 +00:00
cleanup
This commit is contained in:
parent
281d93018b
commit
6ced72245d
|
@ -6,6 +6,7 @@ CONFIG_11 := 1
|
||||||
CONFIG_11A := 1
|
CONFIG_11A := 1
|
||||||
CONFIG_SAFE_NAMENOTFOUND := 1
|
CONFIG_SAFE_NAMENOTFOUND := 1
|
||||||
; INPUTBUFFER > $0100
|
; INPUTBUFFER > $0100
|
||||||
|
CONFIG_NO_POKE := 1
|
||||||
|
|
||||||
CRLF_1 := $0A
|
CRLF_1 := $0A
|
||||||
CRLF_2 := $0D
|
CRLF_2 := $0D
|
||||||
|
|
40
misc3.s
40
misc3.s
|
@ -65,44 +65,4 @@ LF472:
|
||||||
bcc LF45B
|
bcc LF45B
|
||||||
LF47D:
|
LF47D:
|
||||||
jmp (JMPADRS+1)
|
jmp (JMPADRS+1)
|
||||||
.else
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
; EVALUATE "EXP1,EXP2"
|
|
||||||
;
|
|
||||||
; CONVERT EXP1 TO 16-BIT NUMBER IN LINNUM
|
|
||||||
; CONVERT EXP2 TO 8-BIT NUMBER IN X-REG
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
GTNUM:
|
|
||||||
jsr FRMNUM
|
|
||||||
jsr GETADR
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
; EVALUATE ",EXPRESSION"
|
|
||||||
; CONVERT EXPRESSION TO SINGLE BYTE IN X-REG
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
COMBYTE:
|
|
||||||
jsr CHKCOM
|
|
||||||
jmp GETBYT
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
; CONVERT (FAC) TO A 16-BIT VALUE IN LINNUM
|
|
||||||
; ----------------------------------------------------------------------------
|
|
||||||
GETADR:
|
|
||||||
lda FACSIGN
|
|
||||||
.ifdef APPLE
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
.else
|
|
||||||
bmi GOIQ
|
|
||||||
.endif
|
.endif
|
||||||
lda FAC
|
|
||||||
cmp #$91
|
|
||||||
bcs GOIQ
|
|
||||||
jsr QINT
|
|
||||||
lda FAC_LAST-1
|
|
||||||
ldy FAC_LAST
|
|
||||||
sty LINNUM
|
|
||||||
sta LINNUM+1
|
|
||||||
rts
|
|
||||||
.endif
|
|
41
poke.s
41
poke.s
|
@ -1,6 +1,45 @@
|
||||||
.segment "CODE"
|
.segment "CODE"
|
||||||
|
|
||||||
.ifndef KBD
|
.ifndef CONFIG_NO_POKE
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
; EVALUATE "EXP1,EXP2"
|
||||||
|
;
|
||||||
|
; CONVERT EXP1 TO 16-BIT NUMBER IN LINNUM
|
||||||
|
; CONVERT EXP2 TO 8-BIT NUMBER IN X-REG
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
GTNUM:
|
||||||
|
jsr FRMNUM
|
||||||
|
jsr GETADR
|
||||||
|
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
; EVALUATE ",EXPRESSION"
|
||||||
|
; CONVERT EXPRESSION TO SINGLE BYTE IN X-REG
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
COMBYTE:
|
||||||
|
jsr CHKCOM
|
||||||
|
jmp GETBYT
|
||||||
|
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
; CONVERT (FAC) TO A 16-BIT VALUE IN LINNUM
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
GETADR:
|
||||||
|
lda FACSIGN
|
||||||
|
.ifdef APPLE
|
||||||
|
nop ; PATCH
|
||||||
|
nop
|
||||||
|
.else
|
||||||
|
bmi GOIQ
|
||||||
|
.endif
|
||||||
|
lda FAC
|
||||||
|
cmp #$91
|
||||||
|
bcs GOIQ
|
||||||
|
jsr QINT
|
||||||
|
lda FAC_LAST-1
|
||||||
|
ldy FAC_LAST
|
||||||
|
sty LINNUM
|
||||||
|
sta LINNUM+1
|
||||||
|
rts
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; "PEEK" FUNCTION
|
; "PEEK" FUNCTION
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
|
|
11
token.s
11
token.s
|
@ -36,8 +36,11 @@
|
||||||
keyword_rts "PSAV", PSAV
|
keyword_rts "PSAV", PSAV
|
||||||
keyword_rts "VLOD", VLOD
|
keyword_rts "VLOD", VLOD
|
||||||
keyword_rts "VSAV", VSAV
|
keyword_rts "VSAV", VSAV
|
||||||
.else
|
.endif
|
||||||
|
.ifndef CONFIG_NO_POKE
|
||||||
keyword_rts "WAIT", WAIT
|
keyword_rts "WAIT", WAIT
|
||||||
|
.endif
|
||||||
|
.ifndef KBD
|
||||||
keyword_rts "LOAD", LOAD
|
keyword_rts "LOAD", LOAD
|
||||||
keyword_rts "SAVE", SAVE
|
keyword_rts "SAVE", SAVE
|
||||||
.endif
|
.endif
|
||||||
|
@ -47,7 +50,8 @@
|
||||||
keyword_rts "DEF", DEF
|
keyword_rts "DEF", DEF
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
keyword_rts "SLOD", SLOD
|
keyword_rts "SLOD", SLOD
|
||||||
.else
|
.endif
|
||||||
|
.ifndef CONFIG_NO_POKE
|
||||||
keyword_rts "POKE", POKE
|
keyword_rts "POKE", POKE
|
||||||
.endif
|
.endif
|
||||||
.ifdef CONFIG_FILE
|
.ifdef CONFIG_FILE
|
||||||
|
@ -126,7 +130,8 @@ UNFNC:
|
||||||
keyword_addr "ATN", ATN
|
keyword_addr "ATN", ATN
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
keyword_addr "GETC", GETC
|
keyword_addr "GETC", GETC
|
||||||
.else
|
.endif
|
||||||
|
.ifndef CONFIG_NO_POKE
|
||||||
keyword_addr "PEEK", PEEK
|
keyword_addr "PEEK", PEEK
|
||||||
.endif
|
.endif
|
||||||
keyword_addr "LEN", LEN
|
keyword_addr "LEN", LEN
|
||||||
|
|
Loading…
Reference in New Issue
Block a user