This commit is contained in:
Michael Steil 2008-10-17 06:53:38 +00:00
parent f6beb3974d
commit 3c4bdcfda8
5 changed files with 17 additions and 43 deletions

View File

@ -115,7 +115,7 @@ L29F9:
.byte $02,$FA,$00 .byte $02,$FA,$00
lda $12 lda $12
beq L2A0E beq L2A0E
jmp (L0008) jmp (GOGIVEAYF)
L2A0E: L2A0E:
jsr LF689 jsr LF689
.byte $15,$BC,$08,$10,$52,$45,$75,$10 .byte $15,$BC,$08,$10,$52,$45,$75,$10
@ -123,6 +123,6 @@ L2A0E:
.byte $45,$75,$10,$D4,$00,$55,$15,$0E .byte $45,$75,$10,$D4,$00,$55,$15,$0E
.byte $08,$10,$89,$10,$75,$15,$1C,$08 .byte $08,$10,$89,$10,$75,$15,$1C,$08
.byte $10,$1F,$10,$75,$00 .byte $10,$1F,$10,$75,$00
jmp (L0008) jmp (GOGIVEAYF)
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
.byte 0,0,0,0,0,0 .byte 0,0,0,0,0,0

View File

@ -1,10 +1,10 @@
; http://apple2.org.za/gswv/a2zine/GS.WorldView/Resources/GS.TECH.INFO/AppleSoft/ ; http://apple2.org.za/gswv/a2zine/GS.WorldView/Resources/GS.TECH.INFO/AppleSoft/
CONFIG_11 := 1 CONFIG_11 := 1
CONFIG_IO_MSB := 1 ; all I/O has bit #7 set
CONFIG_PRINT_CR := 1 ; print CR when line end reached
CONFIG_SAFE_NAMENOTFOUND := 1 CONFIG_SAFE_NAMENOTFOUND := 1
CONFIG_SCRTCH_ORDER := 3 CONFIG_SCRTCH_ORDER := 3
CONFIG_PRINT_CR := 1 ; print CR when line end reached
CONFIG_IO_MSB := 1 ; all I/O has bit #7 set
; INPUTBUFFER > $0100 ; INPUTBUFFER > $0100
CRLF_1 := CR CRLF_1 := CR
@ -16,7 +16,6 @@ JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
GORESTART := $0000 GORESTART := $0000
L0001 := $000B
GOSTROUT := $0003 GOSTROUT := $0003
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008
@ -32,7 +31,6 @@ SUBFLG := $0014
INPUTFLG := $0015 INPUTFLG := $0015
CPRMASK := $0016 CPRMASK := $0016
Z14 := $0017 ; Ctrl+O flag Z14 := $0017 ; Ctrl+O flag
Z15 := $0018
POSX := $0050 POSX := $0050
Z17 := $0051 Z17 := $0051
Z18 := $0052 Z18 := $0052
@ -61,7 +59,3 @@ LFD6A := $FD6A
LFECD := $FECD LFECD := $FECD
LFEFD := $FEFD LFEFD := $FEFD
L0008 := $08
L0006 := $06
L000A := $0A
L00A4 := $A4

View File

@ -1,27 +1,26 @@
.ifdef CBM1 .ifdef CBM1
CONFIG_CBM_ALL := 1
CONFIG_BUG_GET_ERROR := 1; treat GET error like READ error
CONFIG_CBM1_PATCHES := 1 ; ** don't turn off! ** CONFIG_CBM1_PATCHES := 1 ; ** don't turn off! **
CONFIG_DATAFLAG := 1 CONFIG_DATAFLAG := 1
CONFIG_BUG_GET_ERROR := 1; treat GET error like READ error CONFIG_INPUTBUFFER_ORDER := 1 ; ldx/ldy or ldy/ldx
CONFIG_PRINTNULLS := 1; whether PRINTNULLS does anything CONFIG_PRINTNULLS := 1; whether PRINTNULLS does anything
CONFIG_SPC_IS_CRSR_RIGHT := 1; always print CRSR RIGHT for SPC() (otherwise only for screen output) CONFIG_SPC_IS_CRSR_RIGHT := 1; always print CRSR RIGHT for SPC() (otherwise only for screen output)
; minor: just code order
CONFIG_INPUTBUFFER_ORDER := 1 ; ldx/ldy or ldy/ldx
.else .else
CONFIG_CBM_ALL := 1
CONFIG_11 := 1 CONFIG_11 := 1
CONFIG_11A := 1 CONFIG_11A := 1
CONFIG_2 := 1 CONFIG_2 := 1
CONFIG_2A := 1 CONFIG_2A := 1
CONFIG_NO_READ_Y_IS_ZERO_HACK := 1
CONFIG_PEEK_SAVE_LINNUM := 1
CONFIG_DATAFLAG := 1 CONFIG_DATAFLAG := 1
CONFIG_EASTER_EGG := 1 CONFIG_EASTER_EGG := 1
; CONFIG_SMALL := 1 ; test :-) CONFIG_NO_READ_Y_IS_ZERO_HACK := 1
CONFIG_PEEK_SAVE_LINNUM := 1
; INPUTBUFFER > $0100 ; INPUTBUFFER > $0100
.endif .endif
; common: ; common:
CONFIG_CBM_ALL := 1
CONFIG_FILE := 1; support PRINT#, INPUT#, GET#, CMD CONFIG_FILE := 1; support PRINT#, INPUT#, GET#, CMD
CONFIG_NO_CR := 1; terminal doesn't need explicit CRs on line ends CONFIG_NO_CR := 1; terminal doesn't need explicit CRs on line ends
CONFIG_NO_LINE_EDITING := 1; support for "@", "_", BEL etc. CONFIG_NO_LINE_EDITING := 1; support for "@", "_", BEL etc.
@ -39,17 +38,10 @@ LOWTRX = LOWTR
USR := $0000 USR := $0000
GORESTART := $0000 GORESTART := $0000
INPUTBUFFERX := $0000 INPUTBUFFERX := $0000
L0001 := $0001
L0002 := $0002
GOSTROUT := $0003
Z03 := $0003 ; same Z03 := $0003 ; same
GOAYINT := $0006
GOGIVEAYF := $0008
Z15 := $0004 Z15 := $0004
POSX := $0005 POSX := $0005
Z17 := $0006
Z18 := $0007
LINNUM := $0008 LINNUM := $0008
TXPSV := $0008 TXPSV := $0008
INPUTBUFFER := $000A INPUTBUFFER := $000A
@ -65,6 +57,8 @@ INPUTFLG := $0062
CPRMASK := $0063 CPRMASK := $0063
Z14 := $0064 ; Ctrl+O flag Z14 := $0064 ; Ctrl+O flag
Z96 := $020C Z96 := $020C
NULL_MAX := $0A
.else .else
ZP_START = $13 ZP_START = $13
@ -74,10 +68,6 @@ LOWTRX = LOWTR
USR := $0000 USR := $0000
GORESTART := $0000 GORESTART := $0000
L0001 := $0001
L0002 := $0002
GOSTROUT := $0003
Z15 := $0004
CHARAC := $005A-82-5 CHARAC := $005A-82-5
ENDCHR := $005B-82-5 ENDCHR := $005B-82-5
EOLPNTR := $005C-82-5 EOLPNTR := $005C-82-5
@ -89,10 +79,6 @@ INPUTFLG := $0062-82-5
CPRMASK := $0063-82-5 CPRMASK := $0063-82-5
Z14 := $0064-82-5 ; Ctrl+O flag Z14 := $0064-82-5 ; Ctrl+O flag
Z17 := $0006
GOAYINT := $0006
Z18 := $0007
GOGIVEAYF := $0008
Z03 := $000E;3 ; same Z03 := $000E;3 ; same
LINNUM := $0011;0008 LINNUM := $0011;0008
@ -111,7 +97,6 @@ STACK_TOP := $FC
SPACE_FOR_GOSUB := $3E SPACE_FOR_GOSUB := $3E
STACK_TOP := $FA STACK_TOP := $FA
.endif .endif
NULL_MAX := $0A
RAMSTART2 := $0400 RAMSTART2 := $0400
@ -131,6 +116,7 @@ ISCNTC := $FFE1
GETIN := $FFE4 GETIN := $FFE4
CLALL := $FFE7 CLALL := $FFE7
; for CBM1
LE7F3 := $E7F3 LE7F3 := $E7F3
MONCOUT := CHROUT MONCOUT := CHROUT

5
init.s
View File

@ -59,10 +59,7 @@ COLD_START2:
sta GOSTROUT sta GOSTROUT
sta JMPADRS sta JMPADRS
.endif .endif
.ifdef APPLE .if .def(CONFIG_SMALL) || .def(MICROTAN) || .def(APPLE)
sta L000A
.endif
.if .def(CONFIG_SMALL) || .def(MICROTAN)
sta USR sta USR
.endif .endif

View File

@ -263,15 +263,12 @@ L3376:
.endif .endif
iny iny
lda (INDEX),y lda (INDEX),y
.ifdef KBD
ldy #$00
.endif
.ifdef CBM1 .ifdef CBM1
jsr LE7F3 jsr LE7F3
.else .else
.ifndef CONFIG_SMALL .ifndef OSI
ldy #$00 ldy #$00
.endif .endif
asl a asl a
adc #$05 adc #$05
.endif .endif