Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-05-13 01:47:07 +00:00
Code Issues Projects Releases Wiki Activity

megademo: auto-detect Apple II vs IIe and patch accordingly

Browse Source
This commit is contained in:
Vince Weaver 2018-09-29 21:57:22 -04:00
parent 23de53dc81
commit 0752063d44
3 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
megademo/c64_opener.s
View File

@ -71,7 +71,7 @@ loopcoB:dex ; 2
bne loopcoA ; 2nt/3 bne loopcoA ; 2nt/3
beq c64_split beq c64_split
.align $100 ;.align $100
;================================================ ;================================================

15
megademo/check_email.s
View File

@ -124,7 +124,9 @@ celoopB:dex ; 2
; Total of 17030 cycles to get back to where was ; Total of 17030 cycles to get back to where was
; For this part we want ; For this part we want on Apple II/II+
; On Apple IIe and newer want T 000/11111
; because the font is shifted upwards a line
; T00000000000000000000 G0000000000000000000000 ; T00000000000000000000 G0000000000000000000000
; T00000000000000000000 G0000000000000000000000 ; T00000000000000000000 G0000000000000000000000
@ -161,7 +163,10 @@ em_outer_loop:
sta draw_line_p1+1 ; 4 sta draw_line_p1+1 ; 4
jsr draw_line_1 ; 6 jsr draw_line_1 ; 6
;== line3 ;== line3
bit PAGE1 ; 4 ce_patch:
bit PAGE1 ;IIe ; 4
; bit PAGE0 ;II/II+ ; 4
lda #$55 ; 2 lda #$55 ; 2
sta draw_line_p1+1 ; 4 sta draw_line_p1+1 ; 4
jsr draw_line_1 ; 6 jsr draw_line_1 ; 6
@ -183,7 +188,7 @@ em_outer_loop:
jsr draw_line_1 ; 6 jsr draw_line_1 ; 6
;== line7 ;== line7
bit PAGE0 ; 4 bit PAGE1 ; 4
lda #$55 ; 2 lda #$55 ; 2
sta draw_line_p2+1 ; 4 sta draw_line_p2+1 ; 4
jsr draw_line_2 ; 6 jsr draw_line_2 ; 6
@ -332,8 +337,8 @@ em_letters:
.byte 8,3, " A SAS LA KS",128 .byte 8,3, " A SAS LA KS",128
.byte 8+128,3,"FEYSESEHEEKS",128 .byte 8+128,3,"FEYSESEHEEKS",128
.byte 9,3, "EI L",$22,"SE .",128 .byte 9,3, "A !",$22,"SA .",128
.byte 9+128,3,"EIHLOSEH.",128 .byte 9+128,3,"EYHIOSEH.",128
.byte 12,4, " /I",128 .byte 12,4, " /I",128
.byte 12+128,4," /Y",128 .byte 12+128,4," /Y",128

14
megademo/megademo.s
View File

@ -6,6 +6,20 @@
.include "hardware.inc" .include "hardware.inc"
;===================
; Check for Apple II and patch
;===================
lda $FBB3 ; IIe and newer is $06
cmp #6
beq apple_iie
lda #$54 ; patch the check_email font code
sta ce_patch+1
apple_iie:
;=================== ;===================
; set graphics mode ; set graphics mode
;=================== ;===================