This commit is contained in:
Michael Steil 2008-10-20 08:58:09 +00:00
parent ad2897332e
commit 74517cb94c
7 changed files with 9 additions and 12 deletions

View File

@ -1,5 +1,3 @@
; http://apple2.org.za/gswv/a2zine/GS.WorldView/Resources/GS.TECH.INFO/AppleSoft/
; configuration
CONFIG_11 := 1

View File

@ -79,7 +79,7 @@ L281E:
POP:
bne L281E
lda #$FF
.ifdef CONFIG_2
.ifdef CONFIG_2A
sta FORPNT+1 ; bugfix, wrong in AppleSoft II
.else
sta FORPNT

View File

@ -245,8 +245,8 @@ PROCESS_INPUT_ITEM:
; code had ldx/ldy/bne here, which was only
; correct for a non-ZP INPUTBUFFER. Commodore
; fixed it in CBMBASIC V1 by swapping the
; ldx and the ldy. It was broken on KIM
; and okay on APPLE and CBM2, because
; ldx and the ldy. It was broken on KIM,
; but okay on APPLE and CBM2, because
; these used a non-ZP INPUTBUFFER.
; Microsoft fixed this somewhere after KIM
; and before MICROTAN, by using beq instead

View File

@ -891,7 +891,7 @@ LE793:
sta $16
ldx #$06
LE7B1:
lda LE7DC,x
lda LE7DC,x ; "PARITY"
jsr LFE75
dex
bpl LE7B1

View File

@ -18,7 +18,7 @@
; KIM BASIC 1977 1.1 N Y ZP - CONFIG_11A
; AppleSoft II 1978 Y Y $0200 Apple CONFIG_2
; Commodore BASIC 2 1979 Y Y $0200 CBM CONFIG_2A
; KBD BASIC 1980 Y N $0700 KBD CONFIG_2B
; KBD BASIC 1982 Y N $0700 KBD CONFIG_2B
; MicroTAN 1980 Y Y ZP - CONFIG_2C
;
; (Note that this assembly source cannot (yet) build AppleSoft II.)
@ -36,7 +36,7 @@
; CONFIG_CBM1_PATCHES jump out into CBM1's binary patches instead of doing the right thing inline
; CONFIG_CBM_ALL add all Commodore-specific additions except file I/O
; CONFIG_DATAFLG ?
; CONFIG_EASTER_EGG include the CBM2 "MICROSOFT!" easter egg
; CONFIG_EASTER_EGG include the CBM2 "WAIT 6502" easter egg
; CONFIG_FILE support Commodore PRINT#, INPUT#, GET#, CMD
; CONFIG_IO_MSB all I/O has bit #7 set
; CONFIG_MONCOUT_DESTROYS_Y Y needs to be preserved when calling MONCOUT

View File

@ -22,6 +22,7 @@ PRINT2:
cmp #','
; Pre-KIM had no CLC. KIM added the CLC
; here. Post-KIM moved the CLC up...
; (makes no sense on KIM, liveness = 0)
.if .def(CONFIG_11A) && (!.def(CONFIG_2))
clc
.endif

View File

@ -281,9 +281,7 @@ L23FA:
.ifdef CONFIG_2
beq RET3
.else
bne L2403
jmp L2351
L2403:
jeq L2351
.endif
ldy #$04
L2405:
@ -701,7 +699,7 @@ L25A6X:
lda (LOWTRX),y
beq L25E5
.ifdef MICROTAN
jmp LE21F ; C5A6 4C 1F E2 L..
jmp LE21F
LC5A9:
.else
jsr ISCNTC