Fix BASIC
This commit is contained in:
1 parent
c5a028c8c6
commit
9e6a96f93a
4 files changed
+60
-29
No files matched your search
+12
-13
@@ -1,21 +1,20 @@
|
||||
; configuration
|
||||
CONFIG_2A := 1
|
||||
CONFIG_2A := 1
|
||||
CONFIG_SCRTCH_ORDER := 2
|
||||
|
||||
; zero page
|
||||
ZP_START0 = $00
|
||||
ZP_START1 = $02
|
||||
ZP_START2 = $0C
|
||||
ZP_START3 = $62
|
||||
ZP_START4 = $6D
|
||||
ZP_START0 = $00
|
||||
ZP_START1 = $02
|
||||
ZP_START2 = $0C
|
||||
ZP_START3 = $62
|
||||
ZP_START4 = $6D
|
||||
|
||||
; extra/override ZP variables
|
||||
USR := GORESTART ; XXX
|
||||
USR := GORESTART ; XXX
|
||||
|
||||
; constants
|
||||
SPACE_FOR_GOSUB := $3E
|
||||
STACK_TOP := $FA
|
||||
WIDTH := 40
|
||||
WIDTH2 := 30
|
||||
|
||||
RAMSTART2 := $0400
|
||||
SPACE_FOR_GOSUB := $3E
|
||||
STACK_TOP := $FA
|
||||
WIDTH := 40
|
||||
WIDTH2 := 30
|
||||
RAMSTART2 := $0400
|
||||
@@ -204,9 +204,17 @@ L4098:
|
||||
ldx #TEMPST
|
||||
stx TEMPPT
|
||||
.ifndef CONFIG_CBM_ALL
|
||||
.ifdef KILIAN
|
||||
lda #<$BC00
|
||||
sta MEMSIZ
|
||||
lda #>$BC00
|
||||
sta MEMSIZ+1
|
||||
jmp L4106
|
||||
.else
|
||||
lda #<QT_MEMORY_SIZE
|
||||
ldy #>QT_MEMORY_SIZE
|
||||
jsr STROUT
|
||||
.endif
|
||||
.ifdef APPLE
|
||||
jsr INLINX
|
||||
.else
|
||||
|
||||
Reference in new issue
Block a user