mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-04-18 03:37:41 +00:00
xmas24: consider it done?
This commit is contained in:
Vince Weaver
parent
6a8017fb46
commit
1e8b163fd9
Binary file not shown.
|
Before Width: | Height: | Size: 5.7 KiB After Width: | Height: | Size: 5.7 KiB |
@ -57,14 +57,6 @@ pan_outer_loop:
|
||||
sta pil_smc22+1
|
||||
sta pil_smc6+1
|
||||
|
||||
; $6000 even
|
||||
pha
|
||||
txa
|
||||
lda compact_even-168,X
|
||||
sta pil_smc5+1
|
||||
sta pil_smc8+1
|
||||
pla
|
||||
|
||||
; $2000+1
|
||||
clc
|
||||
adc #1
|
||||
@ -72,6 +64,14 @@ pan_outer_loop:
|
||||
sta pil_smc13+1
|
||||
sta pil_smc23+1
|
||||
|
||||
; $6000 even
|
||||
; pha
|
||||
; txa
|
||||
lda compact_even-168,X
|
||||
sta pil_smc5+1
|
||||
sta pil_smc8+1
|
||||
; pla
|
||||
|
||||
; $6000+1
|
||||
lda compact_odd-168,X
|
||||
sta pil_smc7+1
|
||||
@ -92,6 +92,9 @@ pil_smc1:
|
||||
;===================================
|
||||
; loop1
|
||||
|
||||
; palette bit never changes
|
||||
; ideally we'd bump it along when we scroll
|
||||
|
||||
; FF -> 9F
|
||||
; 1111 1111 -> 1001 1111 00 20 40 60 00 20 40 60
|
||||
; 7F -> 1F
|
||||
@ -102,12 +105,13 @@ pil_smc1:
|
||||
pan_inner_loop:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
llm1_smc:
|
||||
lda left_lookup_keep_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc3:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
lln1_smc:
|
||||
ora left_lookup_keep_next,X ; 4+
|
||||
|
||||
pil_smc2:
|
||||
sta $2000,Y ; update ; 5
|
||||
@ -121,11 +125,13 @@ pil_smc2:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
llm2_smc:
|
||||
lda left_lookup_keep_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc13:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
lln2_smc:
|
||||
ora left_lookup_keep_next,X ; 4+
|
||||
|
||||
pil_smc12:
|
||||
sta $2000,Y ; update ; 5
|
||||
@ -139,11 +145,13 @@ pil_smc12:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
llm3_smc:
|
||||
lda left_lookup_keep_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc23:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
lln3_smc:
|
||||
ora left_lookup_keep_next,X ; 4+
|
||||
|
||||
pil_smc22:
|
||||
sta $2000,Y ; update ; 5
|
||||
@ -157,11 +165,13 @@ pil_smc22:
|
||||
;==================================
|
||||
|
||||
; X has $2000,39
|
||||
lda left_lookup_main,X ; 4+
|
||||
llm4_smc:
|
||||
lda left_lookup_keep_main,X ; 4+
|
||||
|
||||
pil_smc5:
|
||||
ldx $6000 ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
lln4_smc:
|
||||
ora left_lookup_keep_next,X ; 4+
|
||||
|
||||
pil_smc6:
|
||||
sta $2000,Y ; 5
|
||||
@ -169,16 +179,19 @@ pil_smc6:
|
||||
;=================
|
||||
; shift font
|
||||
; X has $6000
|
||||
lda left_lookup_main,X ; 4+
|
||||
llm5_smc:
|
||||
lda left_lookup_keep_main,X ; 4+
|
||||
|
||||
pil_smc7:
|
||||
ldx $6000+1 ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
lln5_smc:
|
||||
ora left_lookup_keep_next,X ; 4+
|
||||
|
||||
pil_smc8:
|
||||
sta $6000 ; 5
|
||||
|
||||
lda left_lookup_main,X ; 4+
|
||||
llm6_smc:
|
||||
lda left_lookup_keep_main,X ; 4+
|
||||
pil_smc9:
|
||||
sta $6000+1 ; 5
|
||||
|
||||
@ -208,6 +221,34 @@ done_pan_outer_loop:
|
||||
lda KEYPRESS ; if keypress early exit
|
||||
bmi done_pan
|
||||
|
||||
lda SCROLL_SUBSCROLL
|
||||
cmp #6
|
||||
beq yes_pal_shift
|
||||
cmp #2
|
||||
beq yes_pal_shift
|
||||
|
||||
no_pal_shift:
|
||||
ldx #>left_lookup_keep_main
|
||||
ldy #>left_lookup_keep_next
|
||||
jmp pal_shift
|
||||
yes_pal_shift:
|
||||
ldx #>left_lookup_swap_main
|
||||
ldy #>left_lookup_swap_next
|
||||
|
||||
pal_shift:
|
||||
stx llm1_smc+2
|
||||
stx llm2_smc+2
|
||||
stx llm3_smc+2
|
||||
stx llm4_smc+2
|
||||
stx llm5_smc+2
|
||||
stx llm6_smc+2
|
||||
|
||||
sty lln1_smc+2
|
||||
sty lln2_smc+2
|
||||
sty lln3_smc+2
|
||||
sty lln4_smc+2
|
||||
sty lln5_smc+2
|
||||
|
||||
; wrap subscroll counter
|
||||
; TODO: use mod 7 table here
|
||||
inc SCROLL_SUBSCROLL
|
||||
@ -232,7 +273,7 @@ no_ticker:
|
||||
jsr hgr_page_flip
|
||||
|
||||
lda SCROLL_OFFSET
|
||||
cmp #137
|
||||
cmp #142
|
||||
beq done_pan
|
||||
|
||||
jmp pan_outer_outer_loop
|
||||
@ -245,7 +286,7 @@ done_pan:
|
||||
|
||||
rts
|
||||
|
||||
.include "scroll_tables.s"
|
||||
|
||||
|
||||
|
||||
|
||||
@ -270,130 +311,98 @@ do_scroll_loop:
|
||||
draw_text_page3:
|
||||
; row1
|
||||
lda large_font_row0,X
|
||||
; sta $62D0
|
||||
sta $6000
|
||||
lda large_font_row0+1,X
|
||||
; sta $62D1
|
||||
sta $6001
|
||||
|
||||
; row2
|
||||
lda large_font_row1,X
|
||||
; sta $66D0
|
||||
sta $6002
|
||||
lda large_font_row1+1,X
|
||||
; sta $66D1
|
||||
sta $6003
|
||||
|
||||
; row3
|
||||
lda large_font_row2,X
|
||||
; sta $6AD0
|
||||
sta $6004
|
||||
lda large_font_row2+1,X
|
||||
; sta $6AD1
|
||||
sta $6005
|
||||
|
||||
; row4
|
||||
lda large_font_row3,X
|
||||
; sta $6ED0
|
||||
sta $6006
|
||||
lda large_font_row3+1,X
|
||||
; sta $6ED1
|
||||
sta $6007
|
||||
|
||||
; row5
|
||||
lda large_font_row4,X
|
||||
; sta $72D0
|
||||
sta $6008
|
||||
lda large_font_row4+1,X
|
||||
; sta $72D1
|
||||
sta $6009
|
||||
|
||||
; row6
|
||||
lda large_font_row5,X
|
||||
; sta $76D0
|
||||
sta $600A
|
||||
lda large_font_row5+1,X
|
||||
; sta $76D1
|
||||
sta $600B
|
||||
|
||||
; row7
|
||||
lda large_font_row6,X
|
||||
; sta $7AD0
|
||||
sta $600C
|
||||
lda large_font_row6+1,X
|
||||
; sta $7AD1
|
||||
sta $600D
|
||||
|
||||
; row8
|
||||
lda large_font_row7,X
|
||||
; sta $7ED0
|
||||
sta $600E
|
||||
lda large_font_row7+1,X
|
||||
; sta $7ED1
|
||||
sta $600F
|
||||
|
||||
; row9
|
||||
lda large_font_row8,X
|
||||
; sta $6350
|
||||
sta $6010
|
||||
lda large_font_row8+1,X
|
||||
; sta $6351
|
||||
sta $6011
|
||||
|
||||
; row10
|
||||
lda large_font_row9,X
|
||||
; sta $6750
|
||||
sta $6012
|
||||
lda large_font_row9+1,X
|
||||
; sta $6751
|
||||
sta $6013
|
||||
|
||||
; row11
|
||||
lda large_font_row10,X
|
||||
; sta $6B50
|
||||
sta $6014
|
||||
lda large_font_row10+1,X
|
||||
; sta $6B51
|
||||
sta $6015
|
||||
|
||||
; row12
|
||||
lda large_font_row11,X
|
||||
; sta $6F50
|
||||
sta $6016
|
||||
lda large_font_row11+1,X
|
||||
; sta $6F51
|
||||
sta $6017
|
||||
|
||||
; row13
|
||||
lda large_font_row12,X
|
||||
; sta $7350
|
||||
sta $6018
|
||||
lda large_font_row12+1,X
|
||||
; sta $7351
|
||||
sta $6019
|
||||
|
||||
; row14
|
||||
lda large_font_row13,X
|
||||
; sta $7750
|
||||
sta $601A
|
||||
lda large_font_row13+1,X
|
||||
; sta $7751
|
||||
sta $601B
|
||||
|
||||
; row15
|
||||
lda large_font_row14,X
|
||||
; sta $7B50
|
||||
sta $601c
|
||||
lda large_font_row14+1,X
|
||||
; sta $7B51
|
||||
sta $601d
|
||||
|
||||
; row16
|
||||
lda large_font_row15,X
|
||||
; sta $7F50
|
||||
sta $601E
|
||||
lda large_font_row15+1,X
|
||||
; sta $7F51
|
||||
sta $601F
|
||||
|
||||
inc SCROLL_OFFSET ; point to next char
|
||||
@ -402,11 +411,14 @@ draw_text_page3:
|
||||
|
||||
scroll_text:
|
||||
; ]^_
|
||||
; note _ is space with pal bit set
|
||||
; \ is christmas tree
|
||||
; ]^ is a lobster
|
||||
;0123456789012345678901234567890123456789
|
||||
.byte "@\@\@MERRY@CHRISTMAS@FROM@MAINE@]^"
|
||||
.byte "@]^@FROM@THE@GUINEA@PIG@GANG@" ; 63
|
||||
.byte "]^@\@]^@\@BEST@WISHES@FOR@A@GREAT@WINTER@\@\@\" ; 111
|
||||
.byte "]^@\@]^@@@@@@@@@@@@@@@@@@@@" ; 137
|
||||
.byte "@\@\@MERRY@CHRISTMAS@FROM@MAINE@]^_"
|
||||
.byte "@]^_@FROM@THE@GUINEA@PIG@GANG@" ; 63
|
||||
.byte "]^_@\@]^_@\@BEST@WISHES@FOR@A@GREAT@WINTER@\@\@" ; 111
|
||||
.byte "]^_@\@]^_@@@@@@@@@@@@@@@@@@@@" ; 140
|
||||
|
||||
|
||||
|
||||
@ -429,3 +441,8 @@ compact_even:
|
||||
compact_odd:
|
||||
.byte $01,$03,$05,$07,$09,$0B,$0D,$0F
|
||||
.byte $11,$13,$15,$17,$19,$1B,$1D,$1F
|
||||
|
||||
|
||||
|
||||
.align $100
|
||||
.include "scroll_tables.s"
|
||||
|
||||
512
demos/xmas_2024/horiz_scroll.x.s
Normal file
512
demos/xmas_2024/horiz_scroll.x.s
Normal file
@ -0,0 +1,512 @@
|
||||
;============================
|
||||
; do the pan
|
||||
|
||||
do_scroll:
|
||||
|
||||
pan_loop:
|
||||
|
||||
lda #0
|
||||
sta SCROLL_SUBSCROLL
|
||||
sta SCROLL_OFFSET
|
||||
|
||||
; set up first char
|
||||
jsr draw_font_char
|
||||
|
||||
pan_outer_outer_loop:
|
||||
|
||||
; 168->184
|
||||
ldx #183 ; work backwards, 184->168
|
||||
pan_outer_loop:
|
||||
|
||||
; setup the high bytes in the SMC
|
||||
|
||||
; $2000 ; 0010 -> 0100 0011 -> 0101
|
||||
lda hposn_high,X
|
||||
clc
|
||||
adc DRAW_PAGE
|
||||
sta pil_smc2+2 ; lda
|
||||
sta pil_smc12+2 ; lda
|
||||
sta pil_smc22+2 ; lda
|
||||
sta pil_smc6+2 ; lda
|
||||
eor #$60
|
||||
sta pil_smc1+2 ; sta
|
||||
sta pil_smc3+2 ; sta
|
||||
sta pil_smc13+2 ; sta
|
||||
sta pil_smc23+2 ; sta
|
||||
|
||||
|
||||
; $6000
|
||||
|
||||
; this is always $60 when compact
|
||||
; in theory don't even need to self modify
|
||||
|
||||
; lda #$60
|
||||
|
||||
; sta pil_smc5+2 ; lda
|
||||
; sta pil_smc7+2 ; sta
|
||||
; sta pil_smc8+2 ; sta
|
||||
; sta pil_smc9+2 ; sta
|
||||
|
||||
; setup the low address bytes in the SMC
|
||||
|
||||
; $2000
|
||||
lda hposn_low,X
|
||||
sta pil_smc1+1
|
||||
sta pil_smc2+1
|
||||
sta pil_smc12+1
|
||||
sta pil_smc22+1
|
||||
sta pil_smc6+1
|
||||
|
||||
; $2000+1
|
||||
clc
|
||||
adc #1
|
||||
sta pil_smc3+1
|
||||
sta pil_smc13+1
|
||||
sta pil_smc23+1
|
||||
|
||||
; $6000 even
|
||||
; pha
|
||||
; txa
|
||||
lda compact_even-168,X
|
||||
sta pil_smc5+1
|
||||
sta pil_smc8+1
|
||||
; pla
|
||||
|
||||
; $6000+1
|
||||
lda compact_odd-168,X
|
||||
sta pil_smc7+1
|
||||
sta pil_smc9+1
|
||||
|
||||
stx XSAVE
|
||||
|
||||
; inner loop
|
||||
|
||||
; original: 6+(30*39)-1 = 1175
|
||||
; new 6+(24*39)-1 = 941
|
||||
; unroll by 3 6+((19+19+19+5)*13)-1 = 811
|
||||
|
||||
ldy #0 ; start col0 ; 2
|
||||
pil_smc1:
|
||||
ldx $2000,Y ; even col ; 4+
|
||||
|
||||
;===================================
|
||||
; loop1
|
||||
|
||||
; palette bit never changes
|
||||
; ideally we'd bump it along when we scroll
|
||||
|
||||
; FF -> 9F
|
||||
; 1111 1111 -> 1001 1111 00 20 40 60 00 20 40 60
|
||||
; 7F -> 1F
|
||||
; 0111 111 -> 0001 1111
|
||||
|
||||
; copy over high bit when do next copy
|
||||
|
||||
pan_inner_loop:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc3:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
|
||||
pil_smc2:
|
||||
sta $2000,Y ; update ; 5
|
||||
|
||||
iny ; 2
|
||||
|
||||
;===================================
|
||||
; loop2
|
||||
|
||||
;pan_inner_loop:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc13:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
|
||||
pil_smc12:
|
||||
sta $2000,Y ; update ; 5
|
||||
|
||||
iny ; 2
|
||||
|
||||
;===================================
|
||||
; loop3
|
||||
|
||||
;pan_inner_loop:
|
||||
|
||||
; X from previous loop
|
||||
|
||||
lda left_lookup_main,X ; lookup next ; 4+
|
||||
|
||||
pil_smc23:
|
||||
ldx $2000+1,Y ; odd col ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
|
||||
pil_smc22:
|
||||
sta $2000,Y ; update ; 5
|
||||
|
||||
iny ; 2
|
||||
cpy #39 ; 2
|
||||
bne pan_inner_loop ; 2/3
|
||||
|
||||
;==================================
|
||||
; leftover
|
||||
;==================================
|
||||
|
||||
; X has $2000,39
|
||||
lda left_lookup_main,X ; 4+
|
||||
|
||||
pil_smc5:
|
||||
ldx $6000 ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
|
||||
pil_smc6:
|
||||
sta $2000,Y ; 5
|
||||
|
||||
;=================
|
||||
; shift font
|
||||
; X has $6000
|
||||
lda left_lookup_main,X ; 4+
|
||||
|
||||
pil_smc7:
|
||||
ldx $6000+1 ; 4+
|
||||
ora left_lookup_next,X ; 4+
|
||||
|
||||
pil_smc8:
|
||||
sta $6000 ; 5
|
||||
|
||||
lda left_lookup_main,X ; 4+
|
||||
pil_smc9:
|
||||
sta $6000+1 ; 5
|
||||
|
||||
|
||||
; $2038 $2039 $4000 $4001
|
||||
;0 XDCCBBAA XGGFFEED XKJJIIHH XNNMMLLK
|
||||
;1 XEDDCCBB XHHGGFFE XLKKJJII X~~NNMML
|
||||
;2 XFEEDDCC XIIHHGGF XMLLKKJJ X~~~~NNM
|
||||
;3 XGFFEEDD XJJIIHHG XNMMLLKK X~~~~~~N
|
||||
;4 XHGGFFEE XKKJJIIH X~NNMMLL X~~~~~~~
|
||||
;5 XIHHGGFF XLLKKJJI X~~~NNMM X~~~~~~~
|
||||
;6 XJIIHHGG XMMLLKKJ X~~~~~NN X~~~~~~~
|
||||
;7 XKJJIIHH XNNMMLLK X~~~~~~~ X~~~~~~~
|
||||
;8 RQQPPOO UUTTSSR
|
||||
|
||||
; every 7 clicks need to copy over two more columns
|
||||
|
||||
ldx XSAVE
|
||||
|
||||
dex
|
||||
cpx #167 ; check to see if done
|
||||
; copying rows
|
||||
beq done_pan_outer_loop
|
||||
jmp pan_outer_loop
|
||||
done_pan_outer_loop:
|
||||
|
||||
lda KEYPRESS ; if keypress early exit
|
||||
bmi done_pan
|
||||
|
||||
; wrap subscroll counter
|
||||
; TODO: use mod 7 table here
|
||||
inc SCROLL_SUBSCROLL
|
||||
lda SCROLL_SUBSCROLL
|
||||
cmp #7
|
||||
bne no_ticker
|
||||
|
||||
;====================================
|
||||
; update palette at 3 and 7
|
||||
;====================================
|
||||
|
||||
|
||||
;do all at once
|
||||
ldx #5*16
|
||||
rotate_pal_loop:
|
||||
rol palette_bits_1,X
|
||||
dex
|
||||
bmi rotate_pal_loop
|
||||
|
||||
;=================================
|
||||
; did 7 shifts, time for new letter
|
||||
; also copy over palette bits?
|
||||
next_letter:
|
||||
lda #0
|
||||
sta SCROLL_SUBSCROLL
|
||||
|
||||
jsr draw_font_char
|
||||
|
||||
|
||||
no_ticker:
|
||||
|
||||
jsr wait_vblank
|
||||
jsr hgr_page_flip
|
||||
|
||||
lda SCROLL_OFFSET
|
||||
cmp #137
|
||||
beq done_pan
|
||||
|
||||
jmp pan_outer_outer_loop
|
||||
|
||||
done_pan:
|
||||
bit KEYRESET
|
||||
|
||||
lda #0
|
||||
sta SCROLL_OFFSET
|
||||
|
||||
rts
|
||||
|
||||
.include "scroll_tables.s"
|
||||
|
||||
|
||||
|
||||
|
||||
draw_font_char:
|
||||
|
||||
|
||||
;do_scroll:
|
||||
; lda #0
|
||||
; sta SCROLL_START
|
||||
; sta SCROLL_ODD
|
||||
|
||||
|
||||
do_scroll_loop:
|
||||
ldx SCROLL_OFFSET ; load offset into string
|
||||
lda scroll_text,X ; get the character
|
||||
sec
|
||||
sbc #'@' ; convert from ASCII
|
||||
asl
|
||||
tax
|
||||
|
||||
draw_text_page3:
|
||||
; row1
|
||||
lda large_font_row0,X
|
||||
sta $6000
|
||||
and #$80
|
||||
sta palette_bits_1+5
|
||||
lda large_font_row0+1,X
|
||||
sta $6001
|
||||
lsr
|
||||
ora palette_bits_1+5
|
||||
sta palette_bits_1+5
|
||||
|
||||
; row2
|
||||
lda large_font_row1,X
|
||||
sta $6002
|
||||
and #$80
|
||||
sta palette_bits_2+5
|
||||
lda large_font_row1+1,X
|
||||
sta $6003
|
||||
lsr
|
||||
ora palette_bits_2+5
|
||||
sta palette_bits_2+5
|
||||
|
||||
; row3
|
||||
lda large_font_row2,X
|
||||
sta $6004
|
||||
and #$80
|
||||
sta palette_bits_3+5
|
||||
lda large_font_row2+1,X
|
||||
sta $6005
|
||||
lsr
|
||||
ora palette_bits_3+5
|
||||
sta palette_bits_3+5
|
||||
|
||||
; row4
|
||||
lda large_font_row3,X
|
||||
sta $6006
|
||||
and #$80
|
||||
sta palette_bits_4+5
|
||||
lda large_font_row3+1,X
|
||||
sta $6007
|
||||
lsr
|
||||
ora palette_bits_4+5
|
||||
sta palette_bits_4+5
|
||||
|
||||
; row5
|
||||
lda large_font_row4,X
|
||||
sta $6008
|
||||
and #$80
|
||||
sta palette_bits_5+5
|
||||
lda large_font_row4+1,X
|
||||
sta $6009
|
||||
lsr
|
||||
ora palette_bits_5+5
|
||||
sta palette_bits_5+5
|
||||
|
||||
; row6
|
||||
lda large_font_row5,X
|
||||
sta $600A
|
||||
and #$80
|
||||
sta palette_bits_6+5
|
||||
lda large_font_row5+1,X
|
||||
sta $600B
|
||||
lsr
|
||||
ora palette_bits_6+5
|
||||
sta palette_bits_6+5
|
||||
|
||||
; row7
|
||||
lda large_font_row6,X
|
||||
sta $600C
|
||||
and #$80
|
||||
sta palette_bits_7+5
|
||||
lda large_font_row6+1,X
|
||||
sta $600D
|
||||
lsr
|
||||
ora palette_bits_7+5
|
||||
sta palette_bits_7+5
|
||||
|
||||
; row8
|
||||
lda large_font_row7,X
|
||||
sta $600E
|
||||
and #$80
|
||||
sta palette_bits_8+5
|
||||
lda large_font_row7+1,X
|
||||
sta $600F
|
||||
lsr
|
||||
ora palette_bits_8+5
|
||||
sta palette_bits_8+5
|
||||
|
||||
; row9
|
||||
lda large_font_row8,X
|
||||
sta $6010
|
||||
and #$80
|
||||
sta palette_bits_9+5
|
||||
lda large_font_row8+1,X
|
||||
sta $6011
|
||||
lsr
|
||||
ora palette_bits_9+5
|
||||
sta palette_bits_9+5
|
||||
|
||||
; row10
|
||||
lda large_font_row9,X
|
||||
sta $6012
|
||||
and #$80
|
||||
sta palette_bits_10+5
|
||||
lda large_font_row9+1,X
|
||||
sta $6013
|
||||
lsr
|
||||
ora palette_bits_10+5
|
||||
sta palette_bits_10+5
|
||||
|
||||
; row11
|
||||
lda large_font_row10,X
|
||||
sta $6014
|
||||
and #$80
|
||||
sta palette_bits_11+5
|
||||
lda large_font_row10+1,X
|
||||
sta $6015
|
||||
lsr
|
||||
ora palette_bits_11+5
|
||||
sta palette_bits_11+5
|
||||
|
||||
; row12
|
||||
lda large_font_row11,X
|
||||
sta $6016
|
||||
and #$80
|
||||
sta palette_bits_12+5
|
||||
lda large_font_row11+1,X
|
||||
sta $6017
|
||||
lsr
|
||||
ora palette_bits_12+5
|
||||
sta palette_bits_12+5
|
||||
|
||||
; row13
|
||||
lda large_font_row12,X
|
||||
sta $6018
|
||||
and #$80
|
||||
sta palette_bits_13+5
|
||||
lda large_font_row12+1,X
|
||||
sta $6019
|
||||
lsr
|
||||
ora palette_bits_13+5
|
||||
sta palette_bits_13+5
|
||||
|
||||
; row14
|
||||
lda large_font_row13,X
|
||||
sta $601A
|
||||
and #$80
|
||||
sta palette_bits_14+5
|
||||
lda large_font_row13+1,X
|
||||
sta $601B
|
||||
lsr
|
||||
ora palette_bits_14+5
|
||||
sta palette_bits_14+5
|
||||
|
||||
; row15
|
||||
lda large_font_row14,X
|
||||
sta $601c
|
||||
and #$80
|
||||
sta palette_bits_15+5
|
||||
lda large_font_row14+1,X
|
||||
sta $601d
|
||||
lsr
|
||||
ora palette_bits_15+5
|
||||
sta palette_bits_15+5
|
||||
|
||||
; row16
|
||||
lda large_font_row15,X
|
||||
sta $601E
|
||||
and #$80
|
||||
sta palette_bits_16+5
|
||||
lda large_font_row15+1,X
|
||||
sta $601F
|
||||
lsr
|
||||
ora palette_bits_16+5
|
||||
sta palette_bits_16+5
|
||||
|
||||
inc SCROLL_OFFSET ; point to next char
|
||||
|
||||
rts
|
||||
|
||||
scroll_text:
|
||||
; ]^_
|
||||
;0123456789012345678901234567890123456789
|
||||
.byte "@\@\@MERRY@CHRISTMAS@FROM@MAINE@]^"
|
||||
.byte "@]^@FROM@THE@GUINEA@PIG@GANG@" ; 63
|
||||
.byte "]^@\@]^@\@BEST@WISHES@FOR@A@GREAT@WINTER@\@\@\" ; 111
|
||||
.byte "]^@\@]^@@@@@@@@@@@@@@@@@@@@" ; 137
|
||||
|
||||
|
||||
|
||||
|
||||
; offscreen text draw
|
||||
|
||||
; original compact
|
||||
; 1 62D0,62D1 6000,6001
|
||||
; 2 66D0,66D1 6002,6003
|
||||
; 3 6AD0,6AD1 6004,6005
|
||||
; 4 6AE0,6AE1 6006,6007
|
||||
; 5 72D0,72D1 6008,6009
|
||||
; 6 76D0,76D1 600A,600B
|
||||
; 7 7AD0,7AD1 600C,600D
|
||||
|
||||
compact_even:
|
||||
.byte $00,$02,$04,$06,$08,$0A,$0c,$0e
|
||||
.byte $10,$12,$14,$16,$18,$1A,$1c,$1e
|
||||
|
||||
compact_odd:
|
||||
.byte $01,$03,$05,$07,$09,$0B,$0D,$0F
|
||||
.byte $11,$13,$15,$17,$19,$1B,$1D,$1F
|
||||
|
||||
palette_bits_1: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_2: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_3: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_4: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_5: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_6: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_7: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_8: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_9: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_10: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_11: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_12: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_13: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_14: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_15: .byte $00,$00,$00,$00,$00, $00
|
||||
palette_bits_16: .byte $00,$00,$00,$00,$00, $00
|
||||
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
left_lookup_main:
|
||||
left_lookup_keep_main:
|
||||
.byte $00,$00,$00,$00,$01,$01,$01,$01,$02,$02,$02,$02,$03,$03,$03,$03
|
||||
.byte $04,$04,$04,$04,$05,$05,$05,$05,$06,$06,$06,$06,$07,$07,$07,$07
|
||||
.byte $08,$08,$08,$08,$09,$09,$09,$09,$0A,$0A,$0A,$0A,$0B,$0B,$0B,$0B
|
||||
@ -15,7 +15,8 @@ left_lookup_main:
|
||||
.byte $94,$94,$94,$94,$95,$95,$95,$95,$96,$96,$96,$96,$97,$97,$97,$97
|
||||
.byte $98,$98,$98,$98,$99,$99,$99,$99,$9A,$9A,$9A,$9A,$9B,$9B,$9B,$9B
|
||||
.byte $9C,$9C,$9C,$9C,$9D,$9D,$9D,$9D,$9E,$9E,$9E,$9E,$9F,$9F,$9F,$9F
|
||||
left_lookup_next:
|
||||
|
||||
left_lookup_keep_next:
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
@ -32,3 +33,40 @@ left_lookup_next:
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
|
||||
left_lookup_swap_main:
|
||||
.byte $00,$00,$00,$00,$01,$01,$01,$01,$02,$02,$02,$02,$03,$03,$03,$03
|
||||
.byte $04,$04,$04,$04,$05,$05,$05,$05,$06,$06,$06,$06,$07,$07,$07,$07
|
||||
.byte $08,$08,$08,$08,$09,$09,$09,$09,$0A,$0A,$0A,$0A,$0B,$0B,$0B,$0B
|
||||
.byte $0C,$0C,$0C,$0C,$0D,$0D,$0D,$0D,$0E,$0E,$0E,$0E,$0F,$0F,$0F,$0F
|
||||
.byte $10,$10,$10,$10,$11,$11,$11,$11,$12,$12,$12,$12,$13,$13,$13,$13
|
||||
.byte $14,$14,$14,$14,$15,$15,$15,$15,$16,$16,$16,$16,$17,$17,$17,$17
|
||||
.byte $18,$18,$18,$18,$19,$19,$19,$19,$1A,$1A,$1A,$1A,$1B,$1B,$1B,$1B
|
||||
.byte $1C,$1C,$1C,$1C,$1D,$1D,$1D,$1D,$1E,$1E,$1E,$1E,$1F,$1F,$1F,$1F
|
||||
.byte $00,$00,$00,$00,$01,$01,$01,$01,$02,$02,$02,$02,$03,$03,$03,$03
|
||||
.byte $04,$04,$04,$04,$05,$05,$05,$05,$06,$06,$06,$06,$07,$07,$07,$07
|
||||
.byte $08,$08,$08,$08,$09,$09,$09,$09,$0A,$0A,$0A,$0A,$0B,$0B,$0B,$0B
|
||||
.byte $0C,$0C,$0C,$0C,$0D,$0D,$0D,$0D,$0E,$0E,$0E,$0E,$0F,$0F,$0F,$0F
|
||||
.byte $10,$10,$10,$10,$11,$11,$11,$11,$12,$12,$12,$12,$13,$13,$13,$13
|
||||
.byte $14,$14,$14,$14,$15,$15,$15,$15,$16,$16,$16,$16,$17,$17,$17,$17
|
||||
.byte $18,$18,$18,$18,$19,$19,$19,$19,$1A,$1A,$1A,$1A,$1B,$1B,$1B,$1B
|
||||
.byte $1C,$1C,$1C,$1C,$1D,$1D,$1D,$1D,$1E,$1E,$1E,$1E,$1F,$1F,$1F,$1F
|
||||
|
||||
left_lookup_swap_next:
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60,$00,$20,$40,$60
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
.byte $80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0,$80,$A0,$C0,$E0
|
||||
|
||||
|
||||
@ -62,10 +62,10 @@ xmas_main:
|
||||
cli
|
||||
|
||||
;======================================
|
||||
; wait 1s
|
||||
; wait 3s
|
||||
;======================================
|
||||
|
||||
lda #10
|
||||
lda #28
|
||||
jsr wait_a_bit
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user