Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 21:34:30 +00:00
Code Issues Projects Releases Wiki Activity

megademo: more splitting up

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
megademo/Makefile
View File

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

3
megademo/c64_opener.s
View File

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

32
megademo/megademo.s
View File

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