mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-09 03:31:05 +00:00
demo: more unadvised messing around
worried there's a glitch in the sound at least on AppleWin mame is fine
This commit is contained in:
parent
8643183756
commit
8483cc9d95
@ -11,9 +11,13 @@ apple2_desire:
|
||||
|
||||
; clear both pages of graphics
|
||||
jsr HGR2
|
||||
lda #$ff
|
||||
sta HGR_BITS
|
||||
lda #$20
|
||||
|
||||
; Y is 0 here
|
||||
|
||||
dey ; color = $FF
|
||||
sty HGR_BITS
|
||||
|
||||
lda #$20 ; clear page1
|
||||
jsr BKGND+2
|
||||
|
||||
; A and Y are 0 now?
|
||||
@ -32,6 +36,38 @@ apple2_desire:
|
||||
|
||||
|
||||
cli ; enable music
|
||||
.if 0
|
||||
forever:
|
||||
sta OUTL
|
||||
sta LINE
|
||||
|
||||
lda #$d0
|
||||
sta OUTH
|
||||
|
||||
line_loop:
|
||||
lda LINE
|
||||
jsr HPOSN ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
||||
|
||||
; first top right
|
||||
ldy #0
|
||||
out_loop:
|
||||
lda (OUTL),Y
|
||||
sta (GBASL),Y
|
||||
|
||||
dey
|
||||
bne out_loop
|
||||
|
||||
inc LINE
|
||||
bne line_loop
|
||||
|
||||
end:
|
||||
lda WHICH_TRACK
|
||||
beq forever
|
||||
.endif
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.include "logo_intro.s"
|
||||
@ -41,17 +77,36 @@ apple2_desire:
|
||||
main_loop:
|
||||
lda FRAME
|
||||
and #$80
|
||||
clc
|
||||
rol
|
||||
; clc
|
||||
; rol
|
||||
asl
|
||||
rol
|
||||
tax
|
||||
lda PAGE1,X
|
||||
|
||||
; lda AY_REGS+7
|
||||
; sta $5000
|
||||
; sta $3000
|
||||
lda WHICH_TRACK
|
||||
beq main_loop
|
||||
|
||||
jmp main_loop
|
||||
rot_rot_rot:
|
||||
lda #$0
|
||||
jsr draw_apple
|
||||
inc rot_rot_rot+1
|
||||
|
||||
bne blah
|
||||
dec scale_smc
|
||||
blah:
|
||||
; beq main_loop
|
||||
; lda AY_REGS+8
|
||||
; sta HGR_SCALE
|
||||
|
||||
|
||||
|
||||
|
||||
lda HGR_PAGE
|
||||
eor #$60
|
||||
sta HGR_PAGE
|
||||
|
||||
bne main_loop
|
||||
|
||||
|
||||
.include "interrupt_handler.s"
|
||||
@ -63,6 +118,10 @@ main_loop:
|
||||
|
||||
.include "freq.s"
|
||||
|
||||
|
||||
|
||||
.include "bamps.s"
|
||||
|
||||
letters_x:
|
||||
.byte 14,62,110,154,176,220
|
||||
letters_l:
|
||||
@ -70,9 +129,7 @@ letters_l:
|
||||
;letters_h:
|
||||
; .byte >letter_d,>letter_e,>letter_s,>letter_i,>letter_r,>letter_e
|
||||
|
||||
.include "bamps.s"
|
||||
|
||||
.align $100
|
||||
;.align $100
|
||||
|
||||
.include "freq_h.s"
|
||||
|
||||
|
@ -6,6 +6,7 @@ draw_apple:
|
||||
; rotation in A
|
||||
|
||||
pha
|
||||
scale_smc:
|
||||
lda #10
|
||||
sta HGR_SCALE
|
||||
|
||||
|
@ -1,4 +1,5 @@
|
||||
|
||||
|
||||
; pattern 0
|
||||
; 0 -> F
|
||||
; 48-> C
|
||||
@ -85,10 +86,13 @@ bamps3:
|
||||
; 62->F
|
||||
; 63->C
|
||||
|
||||
; needs to immediately follow bamps3 for some reason?
|
||||
|
||||
bamps4:
|
||||
; 0 15 30 45 60 61 62 63
|
||||
.byte $F0,$F0,$F0,$F0,$1F,$1C,$1F,$1C
|
||||
|
||||
.align $100
|
||||
|
||||
|
||||
deater_string:
|
||||
|
||||
|
@ -1,10 +1,10 @@
|
||||
|
||||
|
||||
.align $100
|
||||
|
||||
channel_a_volume:
|
||||
.byte 14,14,14,14,11,11,10,10
|
||||
|
||||
.align $100
|
||||
|
||||
lengths:
|
||||
.byte 0*8,1*8,2*8,4*8
|
||||
|
||||
|
@ -29,6 +29,9 @@ HGR_COLOR = $E4
|
||||
HGR_PAGE = $E6
|
||||
HGR_SCALE = $E7
|
||||
|
||||
OUTL = $F4
|
||||
OUTH = $F5
|
||||
LINE = $F6
|
||||
|
||||
SAVE_Y = $F7
|
||||
LETTER_X = $F8
|
||||
|
Loading…
x
Reference in New Issue
Block a user