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

driven: add some text to the graphics part

Browse Source
This commit is contained in:
Vince Weaver 2024-11-11 22:36:48 -05:00
parent a0736d99e2
commit bcdf1b1487
2 changed files with 79 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
demos/driven/part10_graphics/Makefile
View File

@ -13,12 +13,19 @@ graphics.o: graphics.s \
../zp.inc ../hardware.inc ../qload.inc ../common_defines.inc \
graphics/floater_wide_steffest.hgr.zx02 \
graphics/atrus_light_iipix.hgr.zx02 \
graphics/a2_atrus.hgr.zx02 \
graphics/riven_233.aux.zx02 \
graphics/riven_233.bin.zx02
ca65 -o graphics.o graphics.s -l graphics.lst
###
graphics/a2_atrus.hgr.zx02:
cd graphics && make
graphics/atrus_light_iipix.hgr.zx02:
cd graphics && make
graphics/floater_wide_steffest.hgr.zx02:
cd graphics && make

73
demos/driven/part10_graphics/graphics.s
View File

@ -25,6 +25,8 @@
;=============================
graphics:
bit KEYRESET ; just to be safe
lda #0
bit SET_GR
@ -96,6 +98,36 @@ graphics:
jsr wait_until_keypress
lda #0
sta DRAW_PAGE
jsr clear_bottom
bit TEXTGR
lda #<atrus_message
sta OUTL
lda #>atrus_message
sta OUTH
; The path home...
jsr move_and_print
jsr wait_until_keypress
; linking book
jsr move_and_print
jsr wait_until_keypress
; cleft
jsr move_and_print
jsr wait_until_keypress
; meet...
jsr move_and_print
jsr wait_until_keypress
bit FULLGR
;=================================
; floater
@ -110,6 +142,31 @@ graphics:
jsr wait_until_keypress
lda #0
sta DRAW_PAGE
jsr clear_bottom
bit TEXTGR
lda #<atrus_message2
sta OUTL
lda #>atrus_message2
sta OUTH
; Perhaps1
jsr move_and_print
jsr move_and_print
jsr wait_until_keypress
; Perhaps2
jsr move_and_print
jsr move_and_print
jsr wait_until_keypress
bit FULLGR
rts
spires_graphics:
@ -120,8 +177,8 @@ floater_graphics:
atrus_graphics:
; .incbin "graphics/atrus_light_iipix.hgr.zx02"
.incbin "graphics/a2_atrus.hgr.zx02"
; .incbin "graphics/atrus_light_iipix.hgr.zx02"
; .incbin "graphics/atrus_iipix.hgr.zx02"
@ -135,3 +192,17 @@ riven_233_graphics_bin:
;.include "../wait_keypress.s"
atrus_message:
; 0123456789012345678901234567890123456789
.byte 0,20,"The path home is now clear for all of us",0
.byte 0,21,"I'll take the linking book",0
.byte 0,22," you take the bottomless cleft.",0
.byte 0,23,"Perhaps we will meet again someday...",0
atrus_message2:
; 0123456789012345678901234567890123456789
.byte 0,20,"Perhaps the ending has not yet been",0
.byte 0,21,"written.",0
.byte 0,22,"Perhaps that's because we ran out of",0
.byte 0,23,"time before the submission deadline.",0