Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-03-08 03:29:26 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-11 23:57:13 +00:00
parent 8fc6b95bae
commit 1376fe340a
9 changed files with 210 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
applesoft.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $0800, size = $3F00, fill = no, file = %O; BASROM: start = $0800, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;

2
cbmbasic1.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $C000, size = $3F00, fill = no, file = %O; BASROM: start = $C000, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;

2
cbmbasic2.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $C000, size = $3F00, fill = no, file = %O; BASROM: start = $C000, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;

161
defines_cbm.s
View File

@ -86,22 +86,25 @@ L00CF := $00CF
RNDSEED := $00DA RNDSEED := $00DA
Z96 := $020C Z96 := $020C
.else .else
USR := $0000
Z00 := $0000
L0001 := $0001
L0002 := $0002 ;USR := $0000
GOWARM := $0003 ;Z00 := $0000
Z15 := $0004 ;L0001 := $0001
Z16 := $00C6;05 ;L0002 := $0002
Z17 := $0006 ;GOWARM := $0003
GOSTROUT := $0006 ;Z15 := $0004
Z18 := $0007 ;Z17 := $0006
LINNUM := $0011;0008 ;GOSTROUT := $0006
TXPSV := $0048 ;Z18 := $0007
GOGIVEAYF := $0008 ;GOGIVEAYF := $0008
INPUTBUFFER := $0200;00A ;Z03 := $000E;3 ; same
INPUTBUFFERX := $0200 ;LINNUM := $0011;0008
Z03 := $000E;3 ; same
CHARAC := $005A-82-5 CHARAC := $005A-82-5
ENDCHR := $005B-82-5 ENDCHR := $005B-82-5
EOLPNTR := $005C-82-5 EOLPNTR := $005C-82-5
@ -112,66 +115,72 @@ SUBFLG := $0061-82-5
INPUTFLG := $0062-82-5 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
TEMPPT := $0065-82
LASTPT := $0066-82 ;TEMPPT := $0065-82
TEMPST := $0068-82 ;LASTPT := $0066-82
INDEX := $0071-82 ;TEMPST := $0068-82
DEST := $0073-82 ;INDEX := $0071-82
RESULT := $0075-82 ;DEST := $0073-82
RESULT_LAST := $0079-82 ;RESULT := $0075-82
TXTTAB := $007A-82 ;RESULT_LAST := $0079-82
VARTAB := $007C-82 ;TXTTAB := $007A-82
ARYTAB := $007E-82 ;VARTAB := $007C-82
STREND := $0080-82 ;ARYTAB := $007E-82
FRETOP := $0082-82 ;STREND := $0080-82
FRESPC := $0084-82 ;FRETOP := $0082-82
MEMSIZ := $0086-82 ;FRESPC := $0084-82
CURLIN := $0088-82 ;MEMSIZ := $0086-82
OLDLIN := $008A-82 ;CURLIN := $0088-82
OLDTEXT := $008C-82 ;OLDLIN := $008A-82
Z8C := $008E-82 ;OLDTEXT := $008C-82
DATPTR := $0090-82 ;Z8C := $008E-82
INPTR := $0092-82 ;DATPTR := $0090-82
VARNAM := $0094-82 ;INPTR := $0092-82
VARPNT := $0096-82 ;VARNAM := $0094-82
FORPNT := $0098-82 ;VARPNT := $0096-82
LASTOP := $009A-82 ;FORPNT := $0098-82
CPRTYP := $009C-82 ;LASTOP := $009A-82
FNCNAM := $009D-82 ;TXPSV := $009A-82
TEMP3 := $009D-82 ; same ;CPRTYP := $009C-82
DSCPTR := $009F-82 ;FNCNAM := $009D-82
DSCLEN := $00A2-82 ;TEMP3 := $009D-82 ; same
JMPADRS := $00A3-82 ;DSCPTR := $009F-82
Z52 := $00A4-82; ;DSCLEN := $00A2-82
LENGTH := $00A4-82 ;JMPADRS := $00A3-82
ARGEXTENSION := $00A5-82 ; overlap with JMPADRS! (same on c64) ;Z52 := $00A4-82;
TEMP1 := $00A6-82 ;LENGTH := $00A4-82
HIGHDS := $00A7-82 ;ARGEXTENSION := $00A5-82 ; overlap with JMPADRS! (same on c64)
HIGHTR := $00A9-82 ;TEMP1 := $00A6-82
TEMP2 := $00AB-82 ;HIGHDS := $00A7-82
INDX := $00AC-82 ;HIGHTR := $00A9-82
TMPEXP := $00AC-82 ; same ;TEMP2 := $00AB-82
EXPON := $00AD-82 ;INDX := $00AC-82
LOWTR := $00AE-82 ; $9D also EXPSGN ;TMPEXP := $00AC-82 ; same
LOWTRX := $00AE-82 ; $9D also EXPSGN ;EXPON := $00AD-82
EXPSGN := $00AF-82 ;LOWTR := $00AE-82 ; $9D also EXPSGN
FAC := $00B0-82 ;LOWTRX := $00AE-82 ; $9D also EXPSGN
FAC_LAST := $00B4-82 ;EXPSGN := $00AF-82
FACSIGN := $00B5-82 ;FAC := $00B0-82
SERLEN := $00B6-82 ;FAC_LAST := $00B4-82
SHIFTSIGNEXT := $00B7-82 ;FACSIGN := $00B5-82
ARG := $00B8-82 ;SERLEN := $00B6-82
ARG_LAST := $00BC-82 ;SHIFTSIGNEXT := $00B7-82
ARGSIGN := $00BD-82 ;ARG := $00B8-82
STRNG1 := $00BE-82 ; TODO: also SGNCPR ;ARG_LAST := $00BC-82
FACEXTENSION := $00BF-82 ;ARGSIGN := $00BD-82
STRNG2 := $00C0-82 ;STRNG1 := $00BE-82 ; TODO: also SGNCPR
CHRGET := $00C2-82 ;FACEXTENSION := $00BF-82
CHRGOT := $00C8-82 ;STRNG2 := $00C0-82
TXTPTR := $00C9-82 ;CHRGET := $00C2-82
L00CF := $00CF-82 ;CHRGOT := $00C8-82
RNDSEED := $00DA-82 ;TXTPTR := $00C9-82
Z96 := $96 ;L00CF := $00CF-82
;RNDSEED := $00DA-82
;Z96 := $00E8-82
;Z16 := $0118-82
INPUTBUFFER := $0200;00A
INPUTBUFFERX := $0200
.endif .endif
BYTES_PER_FRAME := $12 BYTES_PER_FRAME := $12

2
kb9.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $2000, size = $3F00, fill = no, file = %O; BASROM: start = $2000, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;

2
kbdbasic.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $E000, size = $3F00, fill = no, file = %O; BASROM: start = $E000, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;

62
make.sh
View File

@ -1,34 +1,34 @@
# 1.0 # 1.0
echo cbmbasic1 #echo cbmbasic1
ca65 -D CBM1 msbasic.s -o tmp/cbmbasic1.o && #ca65 -D CBM1 msbasic.s -o tmp/cbmbasic1.o &&
ld65 -C cbmbasic1.cfg tmp/cbmbasic1.o -o tmp/cbmbasic1-new.bin && #ld65 -C cbmbasic1.cfg tmp/cbmbasic1.o -o tmp/cbmbasic1-new.bin &&
xxd -g 1 orig/cbmbasic1.bin > tmp/cbmbasic1.bin.txt #xxd -g 1 orig/cbmbasic1.bin > tmp/cbmbasic1.bin.txt
xxd -g 1 tmp/cbmbasic1-new.bin > tmp/cbmbasic1-new.bin.txt #xxd -g 1 tmp/cbmbasic1-new.bin > tmp/cbmbasic1-new.bin.txt
diff -u tmp/cbmbasic1.bin.txt tmp/cbmbasic1-new.bin.txt | head #diff -u tmp/cbmbasic1.bin.txt tmp/cbmbasic1-new.bin.txt | head
# 1.0 ? # 1.0 ?
echo kbdbasic #echo kbdbasic
ca65 -D KBD msbasic.s -o tmp/kbdbasic.o && #ca65 -D KBD msbasic.s -o tmp/kbdbasic.o &&
ld65 -C kbdbasic.cfg tmp/kbdbasic.o -o tmp/kbdbasic-new.bin && #ld65 -C kbdbasic.cfg tmp/kbdbasic.o -o tmp/kbdbasic-new.bin &&
xxd -g 1 orig/kbdbasic.bin > tmp/kbdbasic.bin.txt #xxd -g 1 orig/kbdbasic.bin > tmp/kbdbasic.bin.txt
xxd -g 1 tmp/kbdbasic-new.bin > tmp/kbdbasic-new.bin.txt #xxd -g 1 tmp/kbdbasic-new.bin > tmp/kbdbasic-new.bin.txt
diff -u tmp/kbdbasic.bin.txt tmp/kbdbasic-new.bin.txt | head #diff -u tmp/kbdbasic.bin.txt tmp/kbdbasic-new.bin.txt | head
# 1.0 rev 3.2 # 1.0 rev 3.2
echo osi #echo osi
ca65 -D OSI msbasic.s -o tmp/osi.o && #ca65 -D OSI msbasic.s -o tmp/osi.o &&
ld65 -C osi.cfg tmp/osi.o -o tmp/osi-new.bin #ld65 -C osi.cfg tmp/osi.o -o tmp/osi-new.bin
xxd -g 1 orig/osi.bin > tmp/osi.bin.txt #xxd -g 1 orig/osi.bin > tmp/osi.bin.txt
xxd -g 1 tmp/osi-new.bin > tmp/osi-new.bin.txt #xxd -g 1 tmp/osi-new.bin > tmp/osi-new.bin.txt
diff -u tmp/osi.bin.txt tmp/osi-new.bin.txt | head #diff -u tmp/osi.bin.txt tmp/osi-new.bin.txt | head
# 1.1 # 1.1
echo kb9 #echo kb9
ca65 -D KIM msbasic.s -o tmp/kb9.o && #ca65 -D KIM msbasic.s -o tmp/kb9.o &&
ld65 -C kb9.cfg tmp/kb9.o -o tmp/kb9-new.bin && #ld65 -C kb9.cfg tmp/kb9.o -o tmp/kb9-new.bin &&
xxd -g 1 orig/kb9.bin > tmp/kb9.bin.txt #xxd -g 1 orig/kb9.bin > tmp/kb9.bin.txt
xxd -g 1 tmp/kb9-new.bin > tmp/kb9-new.bin.txt #xxd -g 1 tmp/kb9-new.bin > tmp/kb9-new.bin.txt
diff -u tmp/kb9.bin.txt tmp/kb9-new.bin.txt | head #diff -u tmp/kb9.bin.txt tmp/kb9-new.bin.txt | head
# 2 # 2
echo cbmbasic2 echo cbmbasic2
@ -38,11 +38,13 @@ xxd -g 1 orig/cbmbasic2.bin > tmp/cbmbasic2.bin.txt
xxd -g 1 tmp/cbmbasic2-new.bin > tmp/cbmbasic2-new.bin.txt xxd -g 1 tmp/cbmbasic2-new.bin > tmp/cbmbasic2-new.bin.txt
diff -u tmp/cbmbasic2.bin.txt tmp/cbmbasic2-new.bin.txt | head diff -u tmp/cbmbasic2.bin.txt tmp/cbmbasic2-new.bin.txt | head
da65 --info del/cbmbasic2-temp.txt
# 1.1 # 1.1
echo applesoft #echo applesoft
ca65 -D APPLE msbasic.s -o tmp/applesoft.o && #ca65 -D APPLE msbasic.s -o tmp/applesoft.o &&
ld65 -C applesoft.cfg tmp/applesoft.o -o tmp/applesoft-new.bin && #ld65 -C applesoft.cfg tmp/applesoft.o -o tmp/applesoft-new.bin &&
xxd -g 1 orig/applesoft.bin > tmp/applesoft.bin.txt #xxd -g 1 orig/applesoft.bin > tmp/applesoft.bin.txt
xxd -g 1 tmp/applesoft-new.bin > tmp/applesoft-new.bin.txt #xxd -g 1 tmp/applesoft-new.bin > tmp/applesoft-new.bin.txt
diff -u tmp/applesoft.bin.txt tmp/applesoft-new.bin.txt | head #diff -u tmp/applesoft.bin.txt tmp/applesoft-new.bin.txt | head
#da65 --info applesoft-temp.txt #da65 --info applesoft-temp.txt

81
msbasic.s
View File

@ -1,5 +1,83 @@
; Microsoft BASIC for 6502 ; Microsoft BASIC for 6502
.zeropage
.ifdef CBM2
USR: .res 1
Z00 = USR
L0001: .res 1
L0002: .res 1
GOWARM: .res 1
Z15: .res 2
Z17: .res 1
GOSTROUT = Z17
Z18: .res 1
GOGIVEAYF: .res 6
Z03: .res 3
LINNUM: .res 2
TEMPPT: .res 1
LASTPT: .res 2
TEMPST: .res 9; := $0068-82
INDEX: .res 2; := $0071-82
DEST: .res 2; := $0073-82
RESULT: .res 4; := $0075-82
RESULT_LAST:.res 1; := $0079-82
TXTTAB: .res 2; := $007A-82
VARTAB: .res 2; := $007C-82
ARYTAB: .res 2; := $007E-82
STREND: .res 2; := $0080-82
FRETOP: .res 2; := $0082-82
FRESPC: .res 2; := $0084-82
MEMSIZ: .res 2; := $0086-82
CURLIN: .res 2; := $0088-82
OLDLIN: .res 2; := $008A-82
OLDTEXT: .res 2; := $008C-82
Z8C: .res 2; := $008E-82
DATPTR: .res 2; := $0090-82
INPTR: .res 2; := $0092-82
VARNAM: .res 2; := $0094-82
VARPNT: .res 2; := $0096-82
FORPNT: .res 2; := $0098-82
LASTOP: .res 2; := $009A-82
TXPSV = LASTOP
CPRTYP: .res 1; := $009C-82
FNCNAM: .res 2; := $009D-82
TEMP3 = FNCNAM
DSCPTR: .res 3; := $009F-82
DSCLEN: .res 1; := $00A2-82
JMPADRS: .res 1; := $00A3-82
Z52: .res 1; := $00A4-82;
LENGTH = Z52
ARGEXTENSION:.res 1; := $00A5-82 ; overlap with JMPADRS! (same on c64)
TEMP1: .res 1; := $00A6-82
HIGHDS: .res 2; := $00A7-82
HIGHTR: .res 2; := $00A9-82
TEMP2: .res 1; := $00AB-82
INDX: .res 1; := $00AC-82
TMPEXP = INDX
EXPON: .res 1; := $00AD-82
LOWTR: .res 1; := $00AE-82 ; $9D also EXPSGN
LOWTRX = LOWTR
EXPSGN: .res 1; := $00AF-82
FAC: .res 4; := $00B0-82
FAC_LAST: .res 1; := $00B4-82
FACSIGN: .res 1; := $00B5-82
SERLEN: .res 1; := $00B6-82
SHIFTSIGNEXT:.res 1; := $00B7-82
ARG: .res 4; := $00B8-82
ARG_LAST: .res 1; := $00BC-82
ARGSIGN: .res 1; := $00BD-82
STRNG1: .res 1; := $00BE-82 ; TODO: also SGNCPR
FACEXTENSION:.res 1; := $00BF-82
STRNG2: .res 2; := $00C0-82
CHRGET: .res 6; := $00C2-82
CHRGOT: .res 1; := $00C8-82
TXTPTR: .res 6; := $00C9-82
L00CF: .res 11; := $00CF-82
RNDSEED: .res 14; := $00DA-82
Z96: .res 48; := $00E8-82
Z16: .res 1; := $0118-82
.endif
.ifdef CBM1 .ifdef CBM1
.include "defines_cbm.s" ; 6 .include "defines_cbm.s" ; 6
CONFIG_CBM_ALL := 1 CONFIG_CBM_ALL := 1
@ -88,7 +166,10 @@ TOKEN_ADDRESS_TABLE:
.segment "KEYWORDS" .segment "KEYWORDS"
TOKEN_NAME_TABLE: TOKEN_NAME_TABLE:
.macro keyvec key, vec .macro keyvec key, vec
;.local label
.segment "VECTORS" .segment "VECTORS"
;label:
;.out label
.addr vec .addr vec
.segment "KEYWORDS" .segment "KEYWORDS"
htasc key htasc key

2
osi.cfg
View File

@ -1,8 +1,10 @@
MEMORY { MEMORY {
ZP: start = $0000, size = $0100, type = rw;
BASROM: start = $A000, size = $3F00, fill = no, file = %O; BASROM: start = $A000, size = $3F00, fill = no, file = %O;
} }
SEGMENTS { SEGMENTS {
ZEROPAGE: load = ZP, type = zp;
HEADER: load = BASROM, type = ro; HEADER: load = BASROM, type = ro;
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;