Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 15:30:55 +00:00
Code Issues Projects Releases Wiki Activity

xmas2019: update with some minor fixes

Browse Source
This commit is contained in:
Vince Weaver 2019-12-21 13:51:58 -05:00
parent e6b8d9f115
commit 0c429774e5
5 changed files with 38 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
chiptune_player/interrupt_handler.s
View File

@ -81,9 +81,9 @@ mb_not_13:
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2
sta MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB2 ; 4
ldy #MOCK_AY_INACTIVE ; go inactive ; 2
sty MOCK_6522_ORB1 ; 4
sty MOCK_6522_ORB2 ; 4
; value
lda REGISTER_DUMP,X ; load register value ; 4
@ -91,12 +91,11 @@ mb_not_13:
sta MOCK_6522_ORA2 ; put value on PA2 ; 4
lda #MOCK_AY_WRITE ; ; 2
sta MOCK_6522_ORB1 ; write on PB1 ; 4
sty MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB2 ; write on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2
sta MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB2 ; 4
sty MOCK_6522_ORB2 ; 4
;===========
; 62
; 60
mb_no_write:
inx ; point to next register ; 2
cpx #14 ; if 14 we're done ; 2

4
xmas_2019/loader.s
View File

@ -406,9 +406,9 @@ L7:
; should automate this somehow
lda #<($2000+6247+11-8)
lda #<($2000+6279+11-8)
sta LZ4_END
lda #>($2000+6247+11-8)
lda #>($2000+6279+11-8)
sta LZ4_END+1
lda #$40 ; load to $4000

BIN
xmas_2019/music/jingle_fast.pt3
View File

Binary file not shown.

BIN
xmas_2019/xmas2019.dsk
View File

Binary file not shown.

35
xmas_2019/xmas2019.s
View File

@ -108,6 +108,25 @@ TREESIZE = 12
bit LORES
bit PAGE0
;===========================
; Check for Apple IIe
;===========================
; fonts are offset so patch to make scroll effect same on II+
lda $FBB3 ; IIe and newer is $06
cmp #6
bne apple_ii_regular
lda #$54
sta tl_smc1+1
lda #$55
sta tl_smc2+1
apple_ii_regular:
;=========================
; set up sound
;=========================
@ -188,7 +207,10 @@ snow_init_loop:
lda #$8
jsr load_rle_gr
jmp blah_align
.align $100
blah_align:
;==========================================================
;==========================================================
@ -243,6 +265,7 @@ top_loop:
; even lines PAGE1
bit SET_TEXT ; 4
bit LORES ; 4
tl_smc1:
bit PAGE1 ; 4
; 65-12 = 53 - 25 - 2 = 26
lda #26 ; 2
@ -251,6 +274,7 @@ top_loop:
; odd lines PAGE0
bit SET_TEXT ; 4
bit LORES ; 4
tl_smc2:
bit PAGE0 ; 4
; 65-12 = 53 - 25 - 2 -2 -3 =21
lda #21 ; 2
@ -267,12 +291,12 @@ top_loop:
middle_loop:
bit PAGE0 ; 4
bit SET_GR ; 4
bit HIRES ; 4
; 23
; 19
lda COLOR ; 3
lda COLOR ; 3
nop
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
@ -288,11 +312,12 @@ middle_loop:
nop
nop
nop
nop
lda COLOR
bit HIRES ; 4
; 5cycles
nop
lda COLOR
;lda COLOR
nop
lda COLOR ; 3
nop