Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-05-29 10:41:33 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 07:03:58 +00:00
parent 41dad9474a
commit 88091fc0b3
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rnd.s
View File

@ -127,8 +127,7 @@ GENERIC_RNDSEED:
.else .else
.ifdef CONFIG_11 .ifdef CONFIG_11
.byte $80,$4F,$C7,$52,$58 .byte $80,$4F,$C7,$52,$58
.endif .else
.ifdef CBM1
.byte $80,$4F,$C7,$52,$59 .byte $80,$4F,$C7,$52,$59
.endif .endif
.endif .endif

4
string.s
View File

@ -264,7 +264,7 @@ L3376:
iny iny
lda (INDEX),y lda (INDEX),y
.ifdef CBM1 .ifdef CBM1
jsr LE7F3 jsr LE7F3 ; XXX patch, call into screen editor
.else .else
.ifdef CONFIG_11 .ifdef CONFIG_11
ldy #$00 ldy #$00
@ -361,7 +361,7 @@ MOVE_HIGHEST_STRING_TO_TOP:
.endif .endif
beq L33FA beq L33FA
lda Z52 lda Z52
.ifdef CBM1 .ifndef CONFIG_10A
sbc #$03 sbc #$03
.else .else
and #$04 and #$04

17
trig.s
View File

@ -115,19 +115,18 @@ POLY_SIN:
.byte $07,$FB,$F8,$87,$99,$68,$89,$01 .byte $07,$FB,$F8,$87,$99,$68,$89,$01
.byte $87,$23,$35,$DF,$E1,$86,$A5,$5D .byte $87,$23,$35,$DF,$E1,$86,$A5,$5D
.byte $E7,$28,$83,$49,$0F,$DA,$A2 .byte $E7,$28,$83,$49,$0F,$DA,$A2
.ifdef CBM1 .ifndef CONFIG_11
; no easter egg text on CBM1 ; no easter egg text before BASIC 1.1
.elseif .def(CONFIG_2A) .elseif !.def(CONFIG_2A)
; ASCII encoded easter egg
MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA
.else
; PET encoded easter egg text since CBM2 ; PET encoded easter egg text since CBM2
MICROSOFT: MICROSOFT:
.byte $A1,$54,$46,$8F,$13,$8F,$52,$43 .byte $A1,$54,$46,$8F,$13,$8F,$52,$43
.byte $89,$CD .byte $89,$CD
.else
; ASCII encoded easter egg in between
; also AppleSoft II
MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA
.endif .endif
.endif .endif