Config, CTRL+C, exit
This commit is contained in:
1 parent
9e6a96f93a
commit
8101cc3f62
6 files changed
+53
-29
No files matched your search
+21
-14
@@ -1,20 +1,27 @@
|
||||
; configuration
|
||||
CONFIG_2A := 1
|
||||
CONFIG_SCRTCH_ORDER := 2
|
||||
CONFIG_2A := 1
|
||||
|
||||
; zero page
|
||||
ZP_START0 = $00
|
||||
ZP_START1 = $02
|
||||
ZP_START2 = $0C
|
||||
ZP_START3 = $62
|
||||
ZP_START4 = $6D
|
||||
CONFIG_DATAFLG := 1
|
||||
CONFIG_EASTER_EGG := 1
|
||||
CONFIG_NO_READ_Y_IS_ZERO_HACK := 1
|
||||
CONFIG_PEEK_SAVE_LINNUM := 1
|
||||
CONFIG_SCRTCH_ORDER := 2
|
||||
|
||||
; zero page -- CBM BASIC V2 layout
|
||||
ZP_START1 = $02
|
||||
ZP_START2 = $0C
|
||||
ZP_START3 = $12
|
||||
ZP_START4 = $1D
|
||||
|
||||
; input buffer
|
||||
INPUTBUFFER := $0200
|
||||
|
||||
; 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
|
||||
+1
-1
@@ -1,6 +1,6 @@
|
||||
.segment "CODE"
|
||||
|
||||
.ifndef CONFIG_NO_INPUTBUFFER_ZP
|
||||
.ifndef CONFIG_NO_LINE_EDITING
|
||||
L2420:
|
||||
.ifdef OSI
|
||||
jsr OUTDO
|
||||
|
||||
@@ -8,13 +8,18 @@ SAVE:
|
||||
rts
|
||||
|
||||
ISCNTC:
|
||||
lda $BC01
|
||||
cmp #$03
|
||||
beq @break
|
||||
rts
|
||||
@break:
|
||||
jmp STOP
|
||||
|
||||
MONRDKEY:
|
||||
lda $BC01
|
||||
bmi MONRDKEY_SKIP_ECHO
|
||||
bmi @skipped
|
||||
sta $BC00 ; echo
|
||||
MONRDKEY_SKIP_ECHO:
|
||||
@skipped:
|
||||
rts
|
||||
|
||||
MONCOUT:
|
||||
|
||||
+1
-1
@@ -93,7 +93,7 @@ LE878:
|
||||
|
||||
.ifndef KBD
|
||||
L29B9:
|
||||
.ifdef CBM2
|
||||
.ifdef CONFIG_INPUTBUFFER_0200
|
||||
lda #$00
|
||||
sta INPUTBUFFER,x
|
||||
ldx #<(INPUTBUFFER-1)
|
||||
|
||||
Reference in new issue
Block a user