mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-25 20:30:31 +00:00
vs: some work on vertical scrolling
This commit is contained in:
Vince Weaver
parent
744f3f9a64
commit
b7e70b388c
43
vertical_scroll/Makefile
Normal file
43
vertical_scroll/Makefile
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
include ../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../dos33fs-utils/dos33
|
||||||
|
PNG_TO_40x96 = ../gr-utils/png_to_40x96
|
||||||
|
PNG_TO_40x48D = ../gr-utils/png_to_40x48d
|
||||||
|
PNG2RLE = ../gr-utils/png2rle
|
||||||
|
|
||||||
|
all: scroller.dsk
|
||||||
|
|
||||||
|
scroller.dsk: HELLO SCROLLER
|
||||||
|
cp empty.dsk scroller.dsk
|
||||||
|
$(DOS33) -y scroller.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y scroller.dsk BSAVE -a 0x1000 SCROLLER
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
SCROLLER: scroller.o
|
||||||
|
ld65 -o SCROLLER scroller.o -C ../linker_scripts/apple2_1000.inc
|
||||||
|
|
||||||
|
scroller.o: scroller.s gr_copy.s gr_unrle.s gr_unrle_large.s \
|
||||||
|
gr_copy_large.s \
|
||||||
|
zp.inc hardware.inc desire.inc spaceman.inc
|
||||||
|
ca65 -o scroller.o scroller.s -l scroller.lst
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
desire.inc: desire.png desire2.png
|
||||||
|
$(PNG2RLE) asm desire.png desire_rle > desire.inc
|
||||||
|
$(PNG2RLE) asm desire2.png desire2_rle >> desire.inc
|
||||||
|
|
||||||
|
spaceman.inc: spaceman_big.png
|
||||||
|
$(PNG2RLE) asm spaceman_big.png spaceman_rle > spaceman.inc
|
||||||
|
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o *.lst SCROLLER
|
||||||
161
vertical_scroll/gr_copy.s
Normal file
161
vertical_scroll/gr_copy.s
Normal file
@ -0,0 +1,161 @@
|
|||||||
|
;=========================================================
|
||||||
|
; gr_copy_to_current, 40x48 version
|
||||||
|
;=========================================================
|
||||||
|
; copy 0xc00 to DRAW_PAGE
|
||||||
|
;
|
||||||
|
; 45 + 2 + 120*(8*9 + 5) -1 + 6 = 9292
|
||||||
|
;.align $100
|
||||||
|
gr_copy_to_current:
|
||||||
|
|
||||||
|
lda DRAW_PAGE ; 3
|
||||||
|
clc ; 2
|
||||||
|
adc #$4 ; 2
|
||||||
|
sta gr_copy_line+5 ; 4
|
||||||
|
sta gr_copy_line+11 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line+17 ; 4
|
||||||
|
sta gr_copy_line+23 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line+29 ; 4
|
||||||
|
sta gr_copy_line+35 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line+41 ; 4
|
||||||
|
sta gr_copy_line+47 ; 4
|
||||||
|
;===========
|
||||||
|
; 45
|
||||||
|
|
||||||
|
ldy #119 ; for early ones, copy 120 bytes ; 2
|
||||||
|
|
||||||
|
gr_copy_line:
|
||||||
|
lda $C00,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $400,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $C80,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $480,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $D00,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $500,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $D80,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $580,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $E00,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $600,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $E80,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $680,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $F00,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $700,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $F80,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $780,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
dey ; decrement pointer ; 2
|
||||||
|
bpl gr_copy_line ; ; 2nt/3
|
||||||
|
|
||||||
|
rts ; 6
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;=========================================================
|
||||||
|
; gr_copy_to_current, 40x48 version
|
||||||
|
;=========================================================
|
||||||
|
; copy 0x1000 to DRAW_PAGE
|
||||||
|
|
||||||
|
gr_copy_to_current_1000:
|
||||||
|
|
||||||
|
lda DRAW_PAGE ; 3
|
||||||
|
clc ; 2
|
||||||
|
adc #$4 ; 2
|
||||||
|
sta gr_copy_line_40+5 ; 4
|
||||||
|
sta gr_copy_line_40+11 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_40+17 ; 4
|
||||||
|
sta gr_copy_line_40+23 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_40+29 ; 4
|
||||||
|
sta gr_copy_line_40+35 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_40+41 ; 4
|
||||||
|
sta gr_copy_line_40+47 ; 4
|
||||||
|
;===========
|
||||||
|
; 45
|
||||||
|
|
||||||
|
ldy #119 ; for early ones, copy 120 bytes ; 2
|
||||||
|
|
||||||
|
gr_copy_line_40:
|
||||||
|
lda $1000,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $400,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1080,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $480,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1100,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $500,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1180,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $580,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1200,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $600,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1280,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $680,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1300,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $700,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $1380,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $780,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
dey ; decrement pointer ; 2
|
||||||
|
bpl gr_copy_line_40 ; ; 2nt/3
|
||||||
|
|
||||||
|
rts ; 6
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;=========================================================
|
||||||
|
; gr_copy_to_current_40x40
|
||||||
|
;=========================================================
|
||||||
|
; Take image in 0xc00
|
||||||
|
; Copy to DRAW_PAGE
|
||||||
|
; Actually copy lines 0..39
|
||||||
|
; Don't over-write bottom 4 lines of text
|
||||||
|
gr_copy_to_current_40x40:
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
gc_40x40_loop:
|
||||||
|
lda gr_offsets,x
|
||||||
|
sta OUTL
|
||||||
|
sta INL
|
||||||
|
lda gr_offsets+1,x
|
||||||
|
clc
|
||||||
|
adc DRAW_PAGE
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
lda gr_offsets+1,x
|
||||||
|
clc
|
||||||
|
adc #$8
|
||||||
|
sta INH
|
||||||
|
|
||||||
|
ldy #39
|
||||||
|
gc_40x40_inner:
|
||||||
|
lda (INL),Y
|
||||||
|
sta (OUTL),Y
|
||||||
|
|
||||||
|
dey
|
||||||
|
bpl gc_40x40_inner
|
||||||
|
|
||||||
|
inx
|
||||||
|
inx
|
||||||
|
|
||||||
|
cpx #40
|
||||||
|
bne gc_40x40_loop
|
||||||
|
|
||||||
|
rts ; 6
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
136
vertical_scroll/gr_copy_large.s
Normal file
136
vertical_scroll/gr_copy_large.s
Normal file
@ -0,0 +1,136 @@
|
|||||||
|
;=========================================================
|
||||||
|
; gr_copy_to_current, large, 40x48 version
|
||||||
|
;=========================================================
|
||||||
|
; copy A000 to DRAW_PAGE
|
||||||
|
;
|
||||||
|
|
||||||
|
gr_copy_to_current_large:
|
||||||
|
|
||||||
|
lda DRAW_PAGE ; 3
|
||||||
|
clc ; 2
|
||||||
|
adc #$4 ; 2
|
||||||
|
sta gr_copy_line_large+5 ; 4
|
||||||
|
sta gr_copy_line_large+11 ; 4
|
||||||
|
sta gr_copy_line_large2+5 ; 4
|
||||||
|
sta gr_copy_line_large2+11 ; 4
|
||||||
|
sta gr_copy_line_large3+5 ; 4
|
||||||
|
sta gr_copy_line_large3+11 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_large+17 ; 4
|
||||||
|
sta gr_copy_line_large+23 ; 4
|
||||||
|
sta gr_copy_line_large2+17 ; 4
|
||||||
|
sta gr_copy_line_large2+23 ; 4
|
||||||
|
sta gr_copy_line_large3+17 ; 4
|
||||||
|
sta gr_copy_line_large3+23 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_large+29 ; 4
|
||||||
|
sta gr_copy_line_large+35 ; 4
|
||||||
|
sta gr_copy_line_large2+29 ; 4
|
||||||
|
sta gr_copy_line_large2+35 ; 4
|
||||||
|
sta gr_copy_line_large3+29 ; 4
|
||||||
|
sta gr_copy_line_large3+35 ; 4
|
||||||
|
adc #$1 ; 2
|
||||||
|
sta gr_copy_line_large+41 ; 4
|
||||||
|
sta gr_copy_line_large+47 ; 4
|
||||||
|
sta gr_copy_line_large2+41 ; 4
|
||||||
|
sta gr_copy_line_large2+47 ; 4
|
||||||
|
sta gr_copy_line_large3+41 ; 4
|
||||||
|
sta gr_copy_line_large3+47 ; 4
|
||||||
|
;===========
|
||||||
|
; 45
|
||||||
|
|
||||||
|
ldy #39 ; for early ones, copy 120 bytes ; 2
|
||||||
|
|
||||||
|
gr_copy_line_large:
|
||||||
|
lda $A000,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $400,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A028,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $480,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A050,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $500,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A078,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $580,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A0A0,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $600,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A0C8,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $680,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A0F0,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $700,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A118,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $780,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
dey ; decrement pointer ; 2
|
||||||
|
bpl gr_copy_line_large ; ; 2nt/3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ldy #39 ; for early ones, copy 120 bytes ; 2
|
||||||
|
|
||||||
|
gr_copy_line_large2:
|
||||||
|
lda $A140,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $428,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A168,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $4A8,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A190,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $528,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A1B8,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $5A8,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A1E0,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $628,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A208,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $6A8,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A230,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $728,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A258,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $7A8,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
dey ; decrement pointer ; 2
|
||||||
|
bpl gr_copy_line_large2 ; ; 2nt/3
|
||||||
|
|
||||||
|
|
||||||
|
ldy #39 ; for early ones, copy 120 bytes ; 2
|
||||||
|
|
||||||
|
gr_copy_line_large3:
|
||||||
|
lda $A280,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $450,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A2A8,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $4D0,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A2D0,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $550,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A2F8,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $5D0,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A320,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $650,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A348,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $6D0,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A370,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $750,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
lda $A398,Y ; load a byte (self modified) ; 4
|
||||||
|
sta $7D0,Y ; store a byte (self modified) ; 5
|
||||||
|
|
||||||
|
dey ; decrement pointer ; 2
|
||||||
|
bpl gr_copy_line_large3 ; ; 2nt/3
|
||||||
|
|
||||||
|
rts ; 6
|
||||||
|
|
||||||
5
vertical_scroll/gr_offsets.s
Normal file
5
vertical_scroll/gr_offsets.s
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
gr_offsets:
|
||||||
|
.word $400,$480,$500,$580,$600,$680,$700,$780
|
||||||
|
.word $428,$4a8,$528,$5a8,$628,$6a8,$728,$7a8
|
||||||
|
.word $450,$4d0,$550,$5d0,$650,$6d0,$750,$7d0
|
||||||
|
|
||||||
24
vertical_scroll/gr_pageflip.s
Normal file
24
vertical_scroll/gr_pageflip.s
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
;==========
|
||||||
|
; page_flip
|
||||||
|
;==========
|
||||||
|
|
||||||
|
page_flip:
|
||||||
|
lda DISP_PAGE ; 3
|
||||||
|
beq page_flip_show_1 ; 2nt/3
|
||||||
|
page_flip_show_0:
|
||||||
|
bit PAGE0 ; 4
|
||||||
|
lda #4 ; 2
|
||||||
|
sta DRAW_PAGE ; DRAW_PAGE=1 ; 3
|
||||||
|
lda #0 ; 2
|
||||||
|
sta DISP_PAGE ; DISP_PAGE=0 ; 3
|
||||||
|
rts ; 6
|
||||||
|
page_flip_show_1:
|
||||||
|
bit PAGE1 ; 4
|
||||||
|
sta DRAW_PAGE ; DRAW_PAGE=0 ; 3
|
||||||
|
lda #1 ; 2
|
||||||
|
sta DISP_PAGE ; DISP_PAGE=1 ; 3
|
||||||
|
rts ; 6
|
||||||
|
;====================
|
||||||
|
; DISP_PAGE=0 26
|
||||||
|
; DISP_PAGE=1 24
|
||||||
|
|
||||||
112
vertical_scroll/gr_unrle.s
Normal file
112
vertical_scroll/gr_unrle.s
Normal file
@ -0,0 +1,112 @@
|
|||||||
|
;=================
|
||||||
|
; load RLE image
|
||||||
|
;=================
|
||||||
|
; Output is A:00 (assume page aligned)
|
||||||
|
; Input is in GBASH/GBASL
|
||||||
|
|
||||||
|
; format: first byte=xsize
|
||||||
|
; A0,X,Y means run of X bytes of Y color
|
||||||
|
; A1 means end of file
|
||||||
|
; A2-AF,X means run of low nibble, X color
|
||||||
|
; if high nibble not A: just display color
|
||||||
|
|
||||||
|
; CV = current Y
|
||||||
|
; CH = max xsize (usually 40)
|
||||||
|
; TEMP = page
|
||||||
|
; TEMPY= current X
|
||||||
|
|
||||||
|
|
||||||
|
load_rle_gr:
|
||||||
|
sec
|
||||||
|
sbc #4 ; adjust page to write to
|
||||||
|
; to match gr_offsets
|
||||||
|
sta TEMP
|
||||||
|
|
||||||
|
ldy #$0 ; init Y to 0
|
||||||
|
sty CV
|
||||||
|
|
||||||
|
jsr load_and_increment ; load xsize
|
||||||
|
sta CH
|
||||||
|
|
||||||
|
jsr unrle_new_y
|
||||||
|
|
||||||
|
|
||||||
|
rle_loop:
|
||||||
|
jsr load_and_increment
|
||||||
|
|
||||||
|
tax
|
||||||
|
|
||||||
|
cmp #$A1 ; if 0xa1
|
||||||
|
beq rle_done ; we are done
|
||||||
|
|
||||||
|
and #$f0 ; mask
|
||||||
|
cmp #$a0 ; see if special AX
|
||||||
|
beq decompress_special
|
||||||
|
|
||||||
|
; not special, just color
|
||||||
|
|
||||||
|
txa ; put color back in A
|
||||||
|
ldx #$1 ; only want to print 1
|
||||||
|
bne decompress_run
|
||||||
|
|
||||||
|
decompress_special:
|
||||||
|
txa ; put read value back in A
|
||||||
|
|
||||||
|
and #$0f ; check if was A0
|
||||||
|
|
||||||
|
bne decompress_color ; if A0 need to read run, color
|
||||||
|
|
||||||
|
decompress_large:
|
||||||
|
jsr load_and_increment ; run length now in A
|
||||||
|
|
||||||
|
decompress_color:
|
||||||
|
tax ; put runlen into X
|
||||||
|
jsr load_and_increment ; get color into A
|
||||||
|
|
||||||
|
decompress_run:
|
||||||
|
rle_run_loop:
|
||||||
|
sta (BASL),y ; write out the value
|
||||||
|
inc BASL
|
||||||
|
dec TEMPY
|
||||||
|
bne rle_not_eol ; if less then keep going
|
||||||
|
|
||||||
|
; if here, we are > max_X
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
inc CV
|
||||||
|
pha
|
||||||
|
jsr unrle_new_y
|
||||||
|
pla
|
||||||
|
|
||||||
|
rle_not_eol:
|
||||||
|
dex
|
||||||
|
bne rle_run_loop ; if not zero, keep looping
|
||||||
|
|
||||||
|
beq rle_loop ; and branch always
|
||||||
|
|
||||||
|
rle_done:
|
||||||
|
lda #$15 ; move the cursor somewhere sane
|
||||||
|
sta CV
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
load_and_increment:
|
||||||
|
lda (GBASL),Y
|
||||||
|
inc GBASL
|
||||||
|
bne lai_no_oflo
|
||||||
|
inc GBASH
|
||||||
|
lai_no_oflo:
|
||||||
|
rts
|
||||||
|
|
||||||
|
unrle_new_y:
|
||||||
|
ldy CV
|
||||||
|
lda gr_offsets,Y
|
||||||
|
sta BASL
|
||||||
|
lda gr_offsets+1,Y
|
||||||
|
clc
|
||||||
|
adc TEMP ; adjust for page
|
||||||
|
sta BASH
|
||||||
|
lda CH
|
||||||
|
sta TEMPY
|
||||||
|
ldy #0
|
||||||
|
rts
|
||||||
90
vertical_scroll/gr_unrle_large.s
Normal file
90
vertical_scroll/gr_unrle_large.s
Normal file
@ -0,0 +1,90 @@
|
|||||||
|
;======================
|
||||||
|
; load large RLE image
|
||||||
|
;======================
|
||||||
|
; Output is A:00 (assume page aligned)
|
||||||
|
; Input is in GBASH/GBASL
|
||||||
|
|
||||||
|
; format: first byte=xsize
|
||||||
|
; A0,X,Y means run of X bytes of Y color
|
||||||
|
; A1 means end of file
|
||||||
|
; A2-AF,X means run of low nibble, X color
|
||||||
|
; if high nibble not A: just display color
|
||||||
|
|
||||||
|
; CV = current Y
|
||||||
|
; CH = max X xsize (usually 40)
|
||||||
|
; TEMP = page
|
||||||
|
; TEMPY= current X
|
||||||
|
|
||||||
|
|
||||||
|
load_rle_large:
|
||||||
|
sta OUTH
|
||||||
|
ldy #0
|
||||||
|
sty OUTL
|
||||||
|
sty CV ; init Y to 0
|
||||||
|
|
||||||
|
jsr load_and_increment ; load xsize, increment
|
||||||
|
sta CH
|
||||||
|
|
||||||
|
rle_large_loop:
|
||||||
|
jsr load_and_increment ; load next value from
|
||||||
|
|
||||||
|
tax
|
||||||
|
|
||||||
|
cmp #$A1 ; if 0xa1
|
||||||
|
beq rle_large_done ; we are done
|
||||||
|
|
||||||
|
and #$f0 ; mask
|
||||||
|
cmp #$a0 ; see if special AX
|
||||||
|
beq rle_large_decompress_special
|
||||||
|
|
||||||
|
; not special, just color
|
||||||
|
|
||||||
|
txa ; put color back in A
|
||||||
|
ldx #$1 ; only want to print 1
|
||||||
|
bne rle_large_decompress_run
|
||||||
|
|
||||||
|
rle_large_decompress_special:
|
||||||
|
txa ; put read value back in A
|
||||||
|
|
||||||
|
and #$0f ; check if was A0
|
||||||
|
|
||||||
|
bne rle_large_decompress_color ; if A0 need to read run, color
|
||||||
|
|
||||||
|
rle_large_decompress_large:
|
||||||
|
jsr load_and_increment ; run length now in A
|
||||||
|
|
||||||
|
rle_large_decompress_color:
|
||||||
|
tax ; put runlen into X
|
||||||
|
jsr load_and_increment ; get color into A
|
||||||
|
|
||||||
|
rle_large_decompress_run:
|
||||||
|
rle_large_run_loop:
|
||||||
|
sta (OUTL),y ; write out the value
|
||||||
|
inc OUTL
|
||||||
|
bne rle_large_inc_done
|
||||||
|
inc OUTH ; handle 16-bit
|
||||||
|
rle_large_inc_done:
|
||||||
|
dec TEMPY
|
||||||
|
bne rle_large_not_eol ; if less then keep going
|
||||||
|
|
||||||
|
rle_large_not_eol:
|
||||||
|
dex
|
||||||
|
bne rle_large_run_loop ; if not zero, keep looping
|
||||||
|
|
||||||
|
beq rle_large_loop ; and branch always
|
||||||
|
|
||||||
|
rle_large_done:
|
||||||
|
lda #$15 ; move the cursor somewhere sane
|
||||||
|
sta CV
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;load_and_increment:
|
||||||
|
; lda (GBASL),Y
|
||||||
|
; inc GBASL
|
||||||
|
; bne lai_no_oflo
|
||||||
|
; inc GBASH
|
||||||
|
;lai_no_oflo:
|
||||||
|
; rts
|
||||||
|
|
||||||
|
|
||||||
86
vertical_scroll/hardware.inc
Normal file
86
vertical_scroll/hardware.inc
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
;; HARDWARE LOCATIONS
|
||||||
|
|
||||||
|
KEYPRESS = $C000
|
||||||
|
KEYRESET = $C010
|
||||||
|
|
||||||
|
;; SOFT SWITCHES
|
||||||
|
CLR80COL = $C000 ; PAGE0/PAGE1 normal
|
||||||
|
SET80COL = $C001 ; PAGE0/PAGE1 switches PAGE0 in Aux instead
|
||||||
|
EIGHTYCOLOFF = $C00C
|
||||||
|
EIGHTYCOLON = $C00D
|
||||||
|
SPEAKER = $C030
|
||||||
|
SET_GR = $C050
|
||||||
|
SET_TEXT = $C051
|
||||||
|
FULLGR = $C052
|
||||||
|
TEXTGR = $C053
|
||||||
|
PAGE0 = $C054
|
||||||
|
PAGE1 = $C055
|
||||||
|
LORES = $C056 ; Enable LORES graphics
|
||||||
|
HIRES = $C057 ; Enable HIRES graphics
|
||||||
|
AN3 = $C05E ; Annunciator 3
|
||||||
|
|
||||||
|
PADDLE_BUTTON0 = $C061
|
||||||
|
PADDL0 = $C064
|
||||||
|
PTRIG = $C070
|
||||||
|
|
||||||
|
;; BASIC ROUTINES
|
||||||
|
|
||||||
|
NORMAL = $F273
|
||||||
|
|
||||||
|
;; MONITOR ROUTINES
|
||||||
|
|
||||||
|
HLINE = $F819 ;; HLINE Y,$2C at A
|
||||||
|
VLINE = $F828 ;; VLINE A,$2D at Y
|
||||||
|
CLRSCR = $F832 ;; Clear low-res screen
|
||||||
|
CLRTOP = $F836 ;; clear only top of low-res screen
|
||||||
|
SETCOL = $F864 ;; COLOR=A
|
||||||
|
TEXT = $FB36
|
||||||
|
TABV = $FB5B ;; VTAB to A
|
||||||
|
BELL = $FBDD ;; ring the bell
|
||||||
|
BASCALC = $FBC1 ;;
|
||||||
|
VTAB = $FC22 ;; VTAB to CV
|
||||||
|
HOME = $FC58 ;; Clear the text screen
|
||||||
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||||
|
CROUT1 = $FD8B
|
||||||
|
SETINV = $FE80 ;; INVERSE
|
||||||
|
SETNORM = $FE84 ;; NORMAL
|
||||||
|
COUT = $FDED ;; output A to screen
|
||||||
|
COUT1 = $FDF0 ;; output A to screen
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
COLOR_BLACK = 0
|
||||||
|
COLOR_RED = 1
|
||||||
|
COLOR_DARKBLUE = 2
|
||||||
|
COLOR_PURPLE = 3
|
||||||
|
COLOR_DARKGREEN = 4
|
||||||
|
COLOR_GREY = 5
|
||||||
|
COLOR_MEDIUMBLUE = 6
|
||||||
|
COLOR_LIGHTBLUE = 7
|
||||||
|
COLOR_BROWN = 8
|
||||||
|
COLOR_ORANGE = 9
|
||||||
|
COLOR_GREY2 = 10
|
||||||
|
COLOR_PINK = 11
|
||||||
|
COLOR_LIGHTGREEN = 12
|
||||||
|
COLOR_YELLOW = 13
|
||||||
|
COLOR_AQUA = 14
|
||||||
|
COLOR_WHITE = 15
|
||||||
|
|
||||||
|
COLOR_BOTH_BLACK = $00
|
||||||
|
COLOR_BOTH_RED = $11
|
||||||
|
COLOR_BOTH_DARKBLUE = $22
|
||||||
|
COLOR_BOTH_DARKGREEN = $44
|
||||||
|
COLOR_BOTH_GREY = $55
|
||||||
|
COLOR_BOTH_MEDIUMBLUE = $66
|
||||||
|
COLOR_BOTH_LIGHTBLUE = $77
|
||||||
|
COLOR_BOTH_BROWN = $88
|
||||||
|
COLOR_BOTH_ORANGE = $99
|
||||||
|
COLOR_BOTH_PINK = $BB
|
||||||
|
COLOR_BOTH_LIGHTGREEN = $CC
|
||||||
|
COLOR_BOTH_YELLOW = $DD
|
||||||
|
COLOR_BOTH_AQUA = $EE
|
||||||
|
COLOR_BOTH_WHITE = $FF
|
||||||
|
|
||||||
106
vertical_scroll/scroller.s
Normal file
106
vertical_scroll/scroller.s
Normal file
@ -0,0 +1,106 @@
|
|||||||
|
; Vertical scroll lo-res
|
||||||
|
|
||||||
|
; by deater (Vince Weaver) <vince@deater.net>
|
||||||
|
|
||||||
|
; Zero Page
|
||||||
|
.include "zp.inc"
|
||||||
|
.include "hardware.inc"
|
||||||
|
|
||||||
|
|
||||||
|
;===================
|
||||||
|
; init screen
|
||||||
|
jsr TEXT
|
||||||
|
jsr HOME
|
||||||
|
bit KEYRESET
|
||||||
|
|
||||||
|
; GR part
|
||||||
|
bit PAGE1
|
||||||
|
bit LORES ; 4
|
||||||
|
bit SET_GR ; 4
|
||||||
|
bit FULLGR ; 4
|
||||||
|
|
||||||
|
;===================
|
||||||
|
; init vars
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta DRAW_PAGE
|
||||||
|
lda #4
|
||||||
|
sta DISP_PAGE
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
; Load desire 1st
|
||||||
|
|
||||||
|
lda #<desire_rle
|
||||||
|
sta GBASL
|
||||||
|
lda #>desire_rle
|
||||||
|
sta GBASH
|
||||||
|
lda #$c
|
||||||
|
jsr load_rle_gr
|
||||||
|
|
||||||
|
jsr gr_copy_to_current ; copy to page1
|
||||||
|
|
||||||
|
jsr page_flip
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
; Load desire 2nd
|
||||||
|
|
||||||
|
lda #<desire2_rle
|
||||||
|
sta GBASL
|
||||||
|
lda #>desire2_rle
|
||||||
|
sta GBASH
|
||||||
|
lda #$c
|
||||||
|
jsr load_rle_gr
|
||||||
|
|
||||||
|
jsr gr_copy_to_current ; copy to page1
|
||||||
|
|
||||||
|
jsr page_flip
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
; Load spaceman
|
||||||
|
|
||||||
|
lda #<spaceman_rle
|
||||||
|
sta GBASL
|
||||||
|
lda #>spaceman_rle
|
||||||
|
sta GBASH
|
||||||
|
lda #$a0
|
||||||
|
jsr load_rle_large
|
||||||
|
|
||||||
|
jsr gr_copy_to_current_large ; copy to page1
|
||||||
|
|
||||||
|
jsr page_flip
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
forever:
|
||||||
|
jmp forever
|
||||||
|
|
||||||
|
|
||||||
|
wait_until_keypress:
|
||||||
|
lda KEYPRESS
|
||||||
|
bpl wait_until_keypress
|
||||||
|
bit KEYRESET
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.include "gr_unrle.s"
|
||||||
|
.include "gr_unrle_large.s"
|
||||||
|
.include "gr_offsets.s"
|
||||||
|
.include "gr_copy.s"
|
||||||
|
.include "gr_copy_large.s"
|
||||||
|
.include "gr_pageflip.s"
|
||||||
|
|
||||||
|
.include "desire.inc"
|
||||||
|
.include "spaceman.inc"
|
||||||
78
vertical_scroll/zp.inc
Normal file
78
vertical_scroll/zp.inc
Normal file
@ -0,0 +1,78 @@
|
|||||||
|
;; Zero Page
|
||||||
|
|
||||||
|
;; LZ4 addresses
|
||||||
|
|
||||||
|
LZ4_SRC = $00
|
||||||
|
LZ4_DST = $02
|
||||||
|
LZ4_END = $04
|
||||||
|
WHICH_LOAD = $05
|
||||||
|
COUNT = $06
|
||||||
|
MENU_BASE = $06
|
||||||
|
MENU_HIGHLIGHT = $07
|
||||||
|
DELTA = $08
|
||||||
|
|
||||||
|
|
||||||
|
;; Zero page monitor routines addresses
|
||||||
|
|
||||||
|
WNDLFT = $20
|
||||||
|
WNDWDTH = $21
|
||||||
|
WNDTOP = $22
|
||||||
|
WNDBTM = $23
|
||||||
|
CH = $24
|
||||||
|
CV = $25
|
||||||
|
GBASL = $26
|
||||||
|
GBASH = $27
|
||||||
|
BASL = $28
|
||||||
|
BASH = $29
|
||||||
|
H2 = $2C
|
||||||
|
V2 = $2D
|
||||||
|
MASK = $2E
|
||||||
|
COLOR_MASK = $2F
|
||||||
|
COLOR = $30
|
||||||
|
|
||||||
|
|
||||||
|
SEEDL = $4e
|
||||||
|
SEEDH = $4f
|
||||||
|
|
||||||
|
AY_REGISTERS = $70
|
||||||
|
A_FINE_TONE = $70
|
||||||
|
A_COARSE_TONE = $71
|
||||||
|
B_FINE_TONE = $72
|
||||||
|
B_COARSE_TONE = $73
|
||||||
|
C_FINE_TONE = $74
|
||||||
|
C_COARSE_TONE = $75
|
||||||
|
NOISE = $76
|
||||||
|
ENABLE = $77
|
||||||
|
PT3_MIXER_VAL = $77
|
||||||
|
A_VOLUME = $78
|
||||||
|
B_VOLUME = $79
|
||||||
|
C_VOLUME = $7A
|
||||||
|
ENVELOPE_FINE = $7B
|
||||||
|
ENVELOPE_COARSE = $7C
|
||||||
|
ENVELOPE_SHAPE = $7D
|
||||||
|
|
||||||
|
PATTERN_L = $7E
|
||||||
|
PATTERN_H = $7F
|
||||||
|
ORNAMENT_L = $80
|
||||||
|
ORNAMENT_H = $81
|
||||||
|
SAMPLE_L = $82
|
||||||
|
SAMPLE_H = $83
|
||||||
|
|
||||||
|
LOOP = $84
|
||||||
|
MB_VALUE = $85
|
||||||
|
MB_ADDR_L = $86
|
||||||
|
MB_ADDR_H = $87
|
||||||
|
DONE_PLAYING = $88
|
||||||
|
DONE_SONG = $89
|
||||||
|
PT3_TEMP = $8A
|
||||||
|
|
||||||
|
|
||||||
|
DISP_PAGE = $ED ; ALL
|
||||||
|
DRAW_PAGE = $EE ; ALL
|
||||||
|
|
||||||
|
TEMP = $FA
|
||||||
|
TEMPY = $FB
|
||||||
|
INL = $FC
|
||||||
|
INH = $FD
|
||||||
|
OUTL = $FE
|
||||||
|
OUTH = $FF
|
||||||
Loading…
Reference in New Issue
Block a user