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

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 21:39:50 +00:00
parent 8f31aae968
commit 2485bf1e28
6 changed files with 40 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.txt
View File

@ -12,3 +12,4 @@
* reconstruct pre-CBM1, i.e. CBM1 without the patches
* add some comments to every file
* clean up all CONFIG_*, maybe some should go away
* look for all || and && and convert them into CONFIG_*

1
defines_apple.s
View File

@ -3,6 +3,7 @@
; configuration
CONFIG_11 := 1
APPLE_BAD_BYTE := 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

2
defines_cbm1.s
View File

@ -15,7 +15,7 @@
;CONFIG_PRINTNULLS := 1; whether PRINTNULLS does anything
;CONFIG_PRINT_CR := 1 ; print CR when line end reached
;CONFIG_RAM := 1
;CONFIG_ROR_WORKAROUND := 1
;CONFIG_ROR_WORKAROUND := 1; doesn't work with CONFIG_SMALL!
;CONFIG_SAFE_NAMENOTFOUND := 1
;CONFIG_SCRTCH_ORDER := 1
;CONFIG_SCRTCH_ORDER := 2

3
float.s
View File

@ -582,7 +582,8 @@ L38C3:
.ifndef CONFIG_ROR_WORKAROUND
ror RESULT
ror RESULT+1
.ifdef APPLE
.ifdef APPLE_BAD_BYTE
; this seems to be a bad byte in the dump
.byte RESULT+2,RESULT+2 ; XXX BUG!
.else
ror RESULT+2

2
flow1.s
View File

@ -296,7 +296,7 @@ LE68E:
rts
.endif
.if .def(CONFIG_NULL) || .def(CBM1)
.if .def(CONFIG_NULL) || .def(CONFIG_PRINTNULLS)
; CBM1 has the keyword removed,
; but the code is still here
NULL:

66
init.s
View File

@ -212,7 +212,7 @@ L40DD:
.ifdef CONFIG_CBM_ALL
beq L40D7
.else
.ifdef CONFIG_SMALL
.ifndef CONFIG_11
beq L40D7
bne L40FA
.else
@ -365,76 +365,76 @@ L4192:
jmp (GORESTART+1)
.endif
.if .def(CONFIG_RAM) || .def(OSI)
.if .def(CONFIG_RAM) || .def(OSI)
; OSI is compiled for ROM, but but includes
; this unused string
QT_WANT:
.byte "WANT SIN-COS-TAN-ATN"
.byte $00
.endif
.endif
QT_WRITTEN_BY:
.ifndef CONFIG_CBM_ALL
.ifdef APPLE
.ifndef CONFIG_CBM_ALL
.ifdef APPLE
asc80 "COPYRIGHT 1977 BY MICROSOFT CO"
.byte $0D,$00
.else
.else
.byte $0D,$0A,$0C
.ifdef CONFIG_SMALL
.ifndef CONFIG_11
.byte "WRITTEN BY RICHARD W. WEILAND."
.else
.else
.byte "WRITTEN BY WEILAND & GATES"
.endif
.endif
.byte $0D,$0A,$00
.endif
.endif
QT_MEMORY_SIZE:
.byte "MEMORY SIZE"
.byte $00
QT_TERMINAL_WIDTH:
.byte "TERMINAL WIDTH"
.byte $00
.endif
.endif
QT_BYTES_FREE:
.byte " BYTES FREE"
.ifdef CBM1
.elseif .def(CBM2)
.ifdef CBM1
.elseif .def(CBM2)
.byte $0D,$00
.elseif .def(APPLE)
.elseif .def(APPLE)
.byte $00
.else
.else
.byte $0D,$0A,$0D,$0A
.endif
.endif
QT_BASIC:
.ifdef OSI
.ifdef OSI
.byte "OSI 6502 BASIC VERSION 1.0 REV 3.2"
.endif
.ifdef KIM
.endif
.ifdef KIM
.byte "MOS TECH 6502 BASIC V1.1"
.endif
.ifdef MICROTAN
.endif
.ifdef MICROTAN
.byte "MICROTAN BASIC"
.endif
.ifdef CBM1
.endif
.ifdef CBM1
.byte $13
.byte "*** COMMODORE BASIC ***"
.byte $11,$11,$11,$00
.endif
.ifdef CBM2
.endif
.ifdef CBM2
.byte "### COMMODORE BASIC ###"
.byte $0D,$0D,$00
.endif
.ifdef APPLE
.endif
.ifdef APPLE
.byte $0A,$0D,$0A
.byte "APPLE BASIC V1.1"
.endif
.ifndef CONFIG_CBM_ALL
.endif
.ifndef CONFIG_CBM_ALL
.byte $0D,$0A
.ifdef MICROTAN
.ifdef MICROTAN
.byte "(C) 1980 MICROSOFT" ; E1F2 28 43 29 20 31 39 38 30 (C) 1980
.else
.else
.byte "COPYRIGHT 1977 BY MICROSOFT CO."
.endif
.endif
.byte $0D,$0A,$00
.endif
.endif
.endif /* KBD */
.segment "EXTRA"