Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-12-27 13:30:05 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
defines_apple.s
View File

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

2
flow2.s
View File

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

4
input.s
View File

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

2
microtan_extra.s
View File

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

4
msbasic.s
View File

@ -18,7 +18,7 @@
; KIM BASIC 1977 1.1 N Y ZP - CONFIG_11A ; KIM BASIC 1977 1.1 N Y ZP - CONFIG_11A
; AppleSoft II 1978 Y Y $0200 Apple CONFIG_2 ; AppleSoft II 1978 Y Y $0200 Apple CONFIG_2
; Commodore BASIC 2 1979 Y Y $0200 CBM CONFIG_2A ; 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 ; MicroTAN 1980 Y Y ZP - CONFIG_2C
; ;
; (Note that this assembly source cannot (yet) build AppleSoft II.) ; (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_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_CBM_ALL add all Commodore-specific additions except file I/O
; CONFIG_DATAFLG ? ; 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_FILE support Commodore PRINT#, INPUT#, GET#, CMD
; CONFIG_IO_MSB all I/O has bit #7 set ; CONFIG_IO_MSB all I/O has bit #7 set
; CONFIG_MONCOUT_DESTROYS_Y Y needs to be preserved when calling MONCOUT ; CONFIG_MONCOUT_DESTROYS_Y Y needs to be preserved when calling MONCOUT

1
print.s
View File

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

6
program.s
View File

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