mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-29 21:29:32 +00:00
d2: add text message
This commit is contained in:
parent
de29430b88
commit
7033bf3a17
|
@ -6,12 +6,12 @@ HGR2PNG = ../../utils/hgr-utils/png2hgr
|
||||||
LINKER_SCRIPTS = ../../linker_scripts
|
LINKER_SCRIPTS = ../../linker_scripts
|
||||||
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
|
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
|
||||||
|
|
||||||
all: tiny_tracker.dsk text_to_tiny
|
all: hgr_d2.dsk text_to_tiny
|
||||||
|
|
||||||
tiny_tracker.dsk: HELLO D2
|
hgr_d2.dsk: HELLO D2
|
||||||
cp $(EMPTY_DISK)/empty.dsk ./tiny_tracker.dsk
|
cp $(EMPTY_DISK)/empty.dsk ./hgr_d2.dsk
|
||||||
$(DOS33) -y tiny_tracker.dsk SAVE A HELLO
|
$(DOS33) -y hgr_d2.dsk SAVE A HELLO
|
||||||
$(DOS33) -y tiny_tracker.dsk -t BIN -a 0x6000 BSAVE D2
|
$(DOS33) -y hgr_d2.dsk -t BIN -a 0x6000 BSAVE D2
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
|
|
@ -9,4 +9,4 @@ cbloop:
|
||||||
sta $B00,X
|
sta $B00,X
|
||||||
dex
|
dex
|
||||||
bne cbloop
|
bne cbloop
|
||||||
|
rts
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
; Demo2
|
; HGR Demo2
|
||||||
|
|
||||||
; by deater (Vince Weaver) <vince@deater.net>
|
; by deater (Vince Weaver) <vince@deater.net>
|
||||||
|
|
||||||
|
@ -6,7 +6,6 @@
|
||||||
.include "zp.inc"
|
.include "zp.inc"
|
||||||
.include "hardware.inc"
|
.include "hardware.inc"
|
||||||
|
|
||||||
|
|
||||||
d2:
|
d2:
|
||||||
|
|
||||||
;===================
|
;===================
|
||||||
|
@ -78,10 +77,14 @@ sin_done:
|
||||||
jsr dsr_spin
|
jsr dsr_spin
|
||||||
|
|
||||||
forever:
|
forever:
|
||||||
|
jsr print_message
|
||||||
|
|
||||||
|
bit TEXTGR
|
||||||
|
|
||||||
jsr moving
|
jsr moving
|
||||||
|
|
||||||
jsr fast_hclr
|
jsr fast_hclr
|
||||||
|
|
||||||
jsr flip_page
|
jsr flip_page
|
||||||
|
|
||||||
jsr wires
|
jsr wires
|
||||||
|
@ -106,24 +109,45 @@ done_flip_page:
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;===================
|
||||||
|
; print message
|
||||||
|
;===================
|
||||||
|
print_message:
|
||||||
|
jsr clear_both_bottoms
|
||||||
|
|
||||||
|
ldx #35
|
||||||
|
print_message_loop:
|
||||||
|
lda message1,X
|
||||||
|
ora #$80
|
||||||
|
sta $650,X
|
||||||
|
sta $A50,X
|
||||||
|
lda message2,X
|
||||||
|
ora #$80
|
||||||
|
sta $6d0,X
|
||||||
|
sta $AD0,X
|
||||||
|
dex
|
||||||
|
bpl print_message_loop
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; 01234567890123456789012345678901234567890"
|
||||||
|
message1:
|
||||||
|
.byte "THE APPLE II HAS NO PALETTE ROTATION"
|
||||||
|
message2:
|
||||||
|
.byte "WE ARE DOING THIS THE HARD WAY... "
|
||||||
|
|
||||||
|
.byte "CODE: DEATER",0
|
||||||
|
.byte "MUSIC: MA2E",0
|
||||||
|
|
||||||
.include "dsr_shape.s"
|
.include "dsr_shape.s"
|
||||||
.include "moving.s"
|
.include "moving.s"
|
||||||
.include "wires.s"
|
.include "wires.s"
|
||||||
.include "oval.s"
|
.include "oval.s"
|
||||||
|
.include "clear_bottom.s"
|
||||||
|
|
||||||
; music
|
; music
|
||||||
.include "peasant_music.s"
|
.include "peasant_music.s"
|
||||||
.include "interrupt_handler.s"
|
.include "interrupt_handler.s"
|
||||||
; must be last
|
; must be last
|
||||||
.include "mockingboard_setup.s"
|
.include "mockingboard_setup.s"
|
||||||
|
|
||||||
; Moving
|
|
||||||
; moving, orange and green
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -27,7 +27,7 @@ interrupt_handler:
|
||||||
tya
|
tya
|
||||||
pha ; save Y
|
pha ; save Y
|
||||||
|
|
||||||
inc $0404 ; debug (flashes char onscreen)
|
; inc $0404 ; debug (flashes char onscreen)
|
||||||
|
|
||||||
|
|
||||||
ay3_irq_handler:
|
ay3_irq_handler:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user