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:
Vince Weaver 2022-11-17 21:24:00 -05:00
parent 8643183756
commit 8483cc9d95
5 changed files with 80 additions and 15 deletions

View File

@ -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"

View File

@ -6,6 +6,7 @@ draw_apple:
; rotation in A
pha
scale_smc:
lda #10
sta HGR_SCALE

View File

@ -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:

View File

@ -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

View File

@ -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