mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-29 21:31:53 +00:00
interlace: rasterbars
This commit is contained in:
Vince Weaver
parent
4dfd93795a
commit
bf90f73077
@ -7,9 +7,10 @@ PNG_TO_40x48D = ../gr-utils/png_to_40x48d
|
||||
|
||||
all: interlace.dsk
|
||||
|
||||
interlace.dsk: INTERLACE HELLO
|
||||
interlace.dsk: INTERLACE RASTERBARS HELLO
|
||||
$(DOS33) -y interlace.dsk SAVE A HELLO
|
||||
$(DOS33) -y interlace.dsk BSAVE -a 0x1000 INTERLACE
|
||||
$(DOS33) -y interlace.dsk BSAVE -a 0x1000 RASTERBARS
|
||||
|
||||
####
|
||||
|
||||
@ -28,6 +29,16 @@ interlace.o: interlace.s gr_copy.s \
|
||||
|
||||
####
|
||||
|
||||
RASTERBARS: rasterbars.o
|
||||
ld65 -o RASTERBARS rasterbars.o -C ../linker_scripts/apple2_1000.inc
|
||||
|
||||
rasterbars.o: rasterbars.s gr_copy.s \
|
||||
rasterbars_screen.s rasterbars_table.s k_40_48d.inc
|
||||
ca65 -o rasterbars.o rasterbars.s -l rasterbars.lst
|
||||
|
||||
|
||||
####
|
||||
|
||||
k_40_48d.inc: k_40_48d.png
|
||||
$(PNG_TO_40x48D) asm k_40_48d.png k > k_40_48d.inc
|
||||
|
||||
@ -38,4 +49,4 @@ install:
|
||||
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst *.inc INTERLACE HELLO
|
||||
rm -f *~ *.o *.lst *.inc INTERLACE RASTERBARS HELLO
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
10 PRINT "INTERLACE V0.1"
|
||||
100 PRINT CHR$ (4)"BRUN INTERLACE"
|
||||
100 PRINT CHR$ (4)"BRUN RASTERBARS"
|
||||
|
||||
305
interlace_demo/rasterbars.s
Normal file
305
interlace_demo/rasterbars.s
Normal file
@ -0,0 +1,305 @@
|
||||
; Uses the 40x48d page1/page2 every-1-scanline pageflip mode
|
||||
|
||||
; self modifying code to get some extra colors (pseudo 40x192 mode)
|
||||
|
||||
; by deater (Vince Weaver) <vince@deater.net>
|
||||
|
||||
; Zero Page
|
||||
FRAMEBUFFER = $00 ; $00 - $0F
|
||||
YPOS = $10
|
||||
YPOS_SIN = $11
|
||||
CH = $24
|
||||
CV = $25
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
BASL = $28
|
||||
BASH = $29
|
||||
FRAME = $60
|
||||
BLARGH = $69
|
||||
DRAW_PAGE = $EE
|
||||
LASTKEY = $F1
|
||||
PADDLE_STATUS = $F2
|
||||
TEMP = $FA
|
||||
WHICH = $FB
|
||||
|
||||
|
||||
; Soft Switches
|
||||
KEYPRESS= $C000
|
||||
KEYRESET= $C010
|
||||
SET_GR = $C050 ; Enable graphics
|
||||
FULLGR = $C052 ; Full screen, no text
|
||||
PAGE0 = $C054 ; Page0
|
||||
PAGE1 = $C055 ; Page1
|
||||
LORES = $C056 ; Enable LORES graphics
|
||||
PADDLE_BUTTON0 = $C061
|
||||
PADDL0 = $C064
|
||||
PTRIG = $C070
|
||||
|
||||
; ROM routines
|
||||
|
||||
TEXT = $FB36 ;; Set text mode
|
||||
HOME = $FC58 ;; Clear the text screen
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
|
||||
|
||||
start_rasterbars:
|
||||
|
||||
;===================
|
||||
; init screen
|
||||
jsr TEXT
|
||||
jsr HOME
|
||||
bit KEYRESET
|
||||
|
||||
;===================
|
||||
; init vars
|
||||
|
||||
lda #0
|
||||
sta DRAW_PAGE
|
||||
|
||||
;=============================
|
||||
; Load graphic page0
|
||||
|
||||
; lda #$0c
|
||||
; sta BASH
|
||||
; lda #$00
|
||||
; sta BASL ; load image to $c00
|
||||
|
||||
; lda WHICH
|
||||
; asl
|
||||
; asl ; which*4
|
||||
; tay
|
||||
|
||||
; lda pictures,Y
|
||||
; sta GBASL
|
||||
; lda pictures+1,Y
|
||||
; sta GBASH
|
||||
; jsr load_rle_gr
|
||||
|
||||
; lda #4
|
||||
; sta DRAW_PAGE
|
||||
|
||||
; jsr gr_copy_to_current ; copy to page1
|
||||
|
||||
; ; GR part
|
||||
; bit PAGE1
|
||||
; bit LORES ; 4
|
||||
; bit SET_GR ; 4
|
||||
; bit FULLGR ; 4
|
||||
|
||||
; jsr wait_until_keypressed
|
||||
|
||||
|
||||
;=============================
|
||||
; Load graphic page1
|
||||
|
||||
; lda #$0c
|
||||
; sta BASH
|
||||
; lda #$00
|
||||
; sta BASL ; load image to $c00
|
||||
|
||||
; lda WHICH
|
||||
; asl
|
||||
; asl ; which*4
|
||||
; tay
|
||||
|
||||
; lda pictures+2,Y
|
||||
; sta GBASL
|
||||
; lda pictures+3,Y
|
||||
; sta GBASH
|
||||
; jsr load_rle_gr
|
||||
|
||||
; lda #0
|
||||
; sta DRAW_PAGE
|
||||
|
||||
; jsr gr_copy_to_current
|
||||
|
||||
; ; GR part
|
||||
; bit PAGE0
|
||||
|
||||
; jsr wait_until_keypressed
|
||||
|
||||
|
||||
;==============================
|
||||
; setup graphics for vapor lock
|
||||
;==============================
|
||||
|
||||
jsr vapor_lock
|
||||
|
||||
; vapor lock returns with us at beginning of hsync in line
|
||||
; 114 (7410 cycles), so with 5070 lines to go
|
||||
|
||||
; GR part
|
||||
bit LORES ; 4
|
||||
bit SET_GR ; 4
|
||||
bit FULLGR ; 4
|
||||
|
||||
jsr gr_copy_to_current ; 6+ 9292
|
||||
|
||||
; 5070 + 4550 = 9620
|
||||
; 9292
|
||||
; 12
|
||||
; 6
|
||||
; ====
|
||||
; 310
|
||||
|
||||
; - 3 for jmp
|
||||
; 307
|
||||
|
||||
; Try X=9 Y=6 cycles=307
|
||||
|
||||
ldy #6 ; 2
|
||||
loopA: ldx #9 ; 2
|
||||
loopB: dex ; 2
|
||||
bne loopB ; 2nt/3
|
||||
dey ; 2
|
||||
bne loopA ; 2nt/3
|
||||
|
||||
jmp display_loop ; 3
|
||||
|
||||
.align $100
|
||||
|
||||
;================================================
|
||||
; Display Loop
|
||||
;================================================
|
||||
; each scan line 65 cycles
|
||||
; 1 cycle each byte (40cycles) + 25 for horizontal
|
||||
; Total of 12480 cycles to draw screen
|
||||
; Vertical blank = 4550 cycles (70 scan lines)
|
||||
; Total of 17030 cycles to get back to where was
|
||||
|
||||
; We want to alternate between page1 and page2 every 65 cycles
|
||||
; vblank = 4550 cycles to do scrolling
|
||||
|
||||
|
||||
|
||||
; want colors 01234567
|
||||
; line 0: $X0 to $800
|
||||
; line 1: $X1 to $400
|
||||
; line 2: $X2
|
||||
; line 3: $X3
|
||||
; line 4: $4X
|
||||
; line 5: $5X
|
||||
; line 6: $6X
|
||||
; line 7: $7X
|
||||
|
||||
display_loop:
|
||||
|
||||
.include "rasterbars_screen.s"
|
||||
|
||||
|
||||
|
||||
;======================================================
|
||||
; We have 4550 cycles in the vblank, use them wisely
|
||||
;======================================================
|
||||
; do_nothing should be
|
||||
; 4550
|
||||
; -6
|
||||
; -10
|
||||
;=============
|
||||
; 4534
|
||||
|
||||
jsr do_nothing ; 6
|
||||
|
||||
lda KEYPRESS ; 4
|
||||
bpl no_keypress ; 3
|
||||
jmp display_loop
|
||||
no_keypress:
|
||||
|
||||
jmp display_loop ; 3
|
||||
|
||||
|
||||
|
||||
;=================================
|
||||
; do nothing
|
||||
;=================================
|
||||
; and take 4534-6 = 4528 cycles to do it
|
||||
|
||||
|
||||
; blah, current code the tight loops are right at a page boundary
|
||||
|
||||
do_nothing:
|
||||
|
||||
; want 4528-12=4516
|
||||
|
||||
; Try X=4 Y=174 cycles=4525 R3 -3 X loops
|
||||
|
||||
; Try X=3 Y=215 cycles=4516
|
||||
|
||||
nop ; 2
|
||||
nop ; 2
|
||||
|
||||
nop ; 2
|
||||
nop ; 2
|
||||
|
||||
nop ; 2
|
||||
nop ; 2
|
||||
|
||||
|
||||
|
||||
ldy #215 ; 2
|
||||
loop1: ldx #3 ; 2
|
||||
loop2: dex ; 2
|
||||
bne loop2 ; 2nt/3
|
||||
dey ; 2
|
||||
bne loop1 ; 2nt/3
|
||||
|
||||
rts ; 6
|
||||
|
||||
|
||||
|
||||
;==================================
|
||||
; HLINE
|
||||
;==================================
|
||||
|
||||
; Color in A
|
||||
; Y has which line
|
||||
hline:
|
||||
pha ; 3
|
||||
ldx gr_offsets,y ; 4+
|
||||
stx hline_loop+1 ; 4
|
||||
lda gr_offsets+1,y ; 4+
|
||||
clc ; 2
|
||||
adc DRAW_PAGE ; 3
|
||||
sta hline_loop+2 ; 4
|
||||
pla ; 4
|
||||
ldx #39 ; 2
|
||||
hline_loop:
|
||||
sta $5d0,X ; 38 ; 5
|
||||
dex ; 2
|
||||
bpl hline_loop ; 2nt/3
|
||||
rts ; 6
|
||||
|
||||
;==========================
|
||||
; Clear gr screen
|
||||
;==========================
|
||||
; Color in A
|
||||
clear_gr:
|
||||
ldy #46
|
||||
clear_page_loop:
|
||||
jsr hline
|
||||
dey
|
||||
dey
|
||||
bpl clear_page_loop
|
||||
rts
|
||||
|
||||
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
|
||||
|
||||
|
||||
.include "../asm_routines/gr_unrle.s"
|
||||
.include "../asm_routines/keypress.s"
|
||||
.align $100
|
||||
.include "rasterbars_table.s"
|
||||
.include "gr_copy.s"
|
||||
.include "vapor_lock.s"
|
||||
.include "delay_a.s"
|
||||
|
||||
pictures:
|
||||
.word k_low,k_high
|
||||
|
||||
.include "k_40_48d.inc"
|
||||
|
||||
krg:
|
||||
.byte $0
|
||||
3647
interlace_demo/rasterbars_screen.s
Normal file
3647
interlace_demo/rasterbars_screen.s
Normal file
File diff suppressed because it is too large
Load Diff
34
interlace_demo/rasterbars_table.s
Normal file
34
interlace_demo/rasterbars_table.s
Normal file
@ -0,0 +1,34 @@
|
||||
y_lookup_h:
|
||||
.byte >smc032,>smc033,>smc034,>smc035,>smc036,>smc037,>smc038,>smc039
|
||||
.byte >smc040,>smc041,>smc042,>smc043,>smc044,>smc045,>smc046,>smc047
|
||||
.byte >smc048,>smc049,>smc050,>smc051,>smc052,>smc053,>smc054,>smc055
|
||||
.byte >smc056,>smc057,>smc058,>smc059,>smc060,>smc061,>smc062,>smc063
|
||||
.byte >smc064,>smc065,>smc066,>smc067,>smc068,>smc069,>smc070,>smc071
|
||||
.byte >smc072,>smc073,>smc074,>smc075,>smc076,>smc077,>smc078,>smc079
|
||||
.byte >smc080,>smc081,>smc082,>smc083,>smc084,>smc085,>smc086,>smc087
|
||||
.byte >smc088,>smc089,>smc090,>smc091,>smc092,>smc093,>smc094,>smc095
|
||||
.byte >smc096,>smc097,>smc098,>smc099,>smc100,>smc101,>smc102,>smc103
|
||||
.byte >smc104,>smc105,>smc106,>smc107,>smc108,>smc109,>smc110,>smc111
|
||||
.byte >smc112,>smc113,>smc114,>smc115,>smc116,>smc117,>smc118,>smc119
|
||||
.byte >smc120,>smc121,>smc122,>smc123,>smc124,>smc125,>smc126,>smc127
|
||||
.byte >smc128,>smc129,>smc130,>smc131,>smc132,>smc133,>smc134,>smc135
|
||||
.byte >smc136,>smc137,>smc138,>smc139,>smc140,>smc141,>smc142,>smc143
|
||||
.byte >smc144,>smc145,>smc146,>smc147,>smc148,>smc149,>smc150,>smc151
|
||||
.byte >smc152,>smc153,>smc154,>smc155,>smc156,>smc157,>smc158,>smc159
|
||||
y_lookup_l:
|
||||
.byte <smc032,<smc033,<smc034,<smc035,<smc036,<smc037,<smc038,<smc039
|
||||
.byte <smc040,<smc041,<smc042,<smc043,<smc044,<smc045,<smc046,<smc047
|
||||
.byte <smc048,<smc049,<smc050,<smc051,<smc052,<smc053,<smc054,<smc055
|
||||
.byte <smc056,<smc057,<smc058,<smc059,<smc060,<smc061,<smc062,<smc063
|
||||
.byte <smc064,<smc065,<smc066,<smc067,<smc068,<smc069,<smc070,<smc071
|
||||
.byte <smc072,<smc073,<smc074,<smc075,<smc076,<smc077,<smc078,<smc079
|
||||
.byte <smc080,<smc081,<smc082,<smc083,<smc084,<smc085,<smc086,<smc087
|
||||
.byte <smc088,<smc089,<smc090,<smc091,<smc092,<smc093,<smc094,<smc095
|
||||
.byte <smc096,<smc097,<smc098,<smc099,<smc100,<smc101,<smc102,<smc103
|
||||
.byte <smc104,<smc105,<smc106,<smc107,<smc108,<smc109,<smc110,<smc111
|
||||
.byte <smc112,<smc113,<smc114,<smc115,<smc116,<smc117,<smc118,<smc119
|
||||
.byte <smc120,<smc121,<smc122,<smc123,<smc124,<smc125,<smc126,<smc127
|
||||
.byte <smc128,<smc129,<smc130,<smc131,<smc132,<smc133,<smc134,<smc135
|
||||
.byte <smc136,<smc137,<smc138,<smc139,<smc140,<smc141,<smc142,<smc143
|
||||
.byte <smc144,<smc145,<smc146,<smc147,<smc148,<smc149,<smc150,<smc151
|
||||
.byte <smc152,<smc153,<smc154,<smc155,<smc156,<smc157,<smc158,<smc159
|
||||
Loading…
x
Reference in New Issue
Block a user