megademo: more splitting up

This commit is contained in:
Vince Weaver 2018-09-17 00:12:51 -04:00
parent 8666b8ee1c
commit 452b891f55
3 changed files with 11 additions and 26 deletions

View File

@ -19,7 +19,7 @@ MEGADEMO: megademo.o
megademo.o: megademo.s \ megademo.o: megademo.s \
zp.inc hardware.inc \ zp.inc hardware.inc \
c64.img.lz4 c64_opener.s c64.img.lz4
ca65 -o megademo.o megademo.s -l megademo.lst ca65 -o megademo.o megademo.s -l megademo.lst

View File

@ -4,10 +4,11 @@
; Apple II has a lot of trouble making clear text with bluish background ; Apple II has a lot of trouble making clear text with bluish background
; would be a lot clearer if I used black and white ; would be a lot clearer if I used black and white
c64_opener:
;=================== ;===================
; set graphics mode ; set graphics mode
;=================== ;===================
jsr HOME
bit PAGE0 ; first graphics page bit PAGE0 ; first graphics page
bit FULLGR ; full screen graphics bit FULLGR ; full screen graphics

View File

@ -11,28 +11,18 @@
;=================== ;===================
jsr HOME jsr HOME
bit PAGE0 ; first graphics page
bit FULLGR ; full screen graphics
bit HIRES ; hires mode !!!
bit SET_GR ; graphics mode
lda #<c64 ; C64 Opening Sequence
sta LZ4_SRC
lda #>c64
sta LZ4_SRC+1
lda #<c64_end ; jsr c64_opener
sta LZ4_END
lda #>c64_end
sta LZ4_END+1
; Falling Apple II
lda #<$2000 jsr falling_apple
sta LZ4_DST
lda #>$2000
sta LZ4_DST+1
jsr lz4_decode ; Starring Screens
; E-mail arriving
;=================== ;===================
@ -43,11 +33,5 @@ do_nothing:
.include "lz4_decode.s" .include "lz4_decode.s"
.include "c64_opener.s"
;===================
; graphics
;===================
c64:
.incbin "c64.img.lz4",11
c64_end: