mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-17 03:30:28 +00:00
keen: almost have full screen working
This commit is contained in:
Vince Weaver
parent
eef30bc258
commit
8ad4414424
@ -1,57 +1,65 @@
|
||||
;================================
|
||||
; draw local tilemap to screen
|
||||
;================================
|
||||
|
||||
; tilemap is 20x12 grid with 2x4 (well, 2x2) tiles
|
||||
|
||||
draw_tilemap:
|
||||
ldy #0 ; Y on screen currently drawing
|
||||
sty tiley ; we draw two at a time
|
||||
ldy #0 ; current screen Ypos to draw at
|
||||
sty tiley ; (we draw two at a time as lores
|
||||
; is two blocks per byte)
|
||||
|
||||
ldx #1 ; offset in current screen
|
||||
; FIXME: why is this 1?
|
||||
|
||||
stx tilemap_offset ; tilemap
|
||||
|
||||
lda #0 ; init odd/even
|
||||
sta tile_odd
|
||||
sta tile_odd ; (tiles are two rows tall)
|
||||
|
||||
tilemap_outer_loop:
|
||||
ldy tiley ; setup output pointer to current Y
|
||||
lda gr_offsets,Y
|
||||
ldy tiley ; setup output pointer to current Ypos
|
||||
|
||||
lda gr_offsets,Y ; get address of start of row
|
||||
sta GBASL
|
||||
lda gr_offsets+1,Y
|
||||
clc
|
||||
adc DRAW_PAGE
|
||||
adc DRAW_PAGE ; adjust for page
|
||||
sta GBASH
|
||||
|
||||
|
||||
ldy #0
|
||||
; ldy #6 ; we draw in window 6->34
|
||||
tilemap_loop:
|
||||
ldx tilemap_offset ; get actual tile
|
||||
lda tilemap,X
|
||||
ldy #0 ; draw row from 0..40
|
||||
|
||||
asl ; *4 ; get offset in tile
|
||||
; ldy #6 ; we draw in window 6->34
|
||||
|
||||
tilemap_loop:
|
||||
ldx tilemap_offset ; get actual tile number
|
||||
lda tilemap,X ; from tilemap
|
||||
|
||||
asl ; *4 ; point to tile to draw (4 bytes each)
|
||||
asl
|
||||
tax
|
||||
|
||||
lda tile_odd
|
||||
lda tile_odd ;
|
||||
beq not_odd_line
|
||||
inx
|
||||
inx
|
||||
not_odd_line:
|
||||
|
||||
lda tiles,X ; draw two tiles
|
||||
cmp #$AA ; transparency
|
||||
beq skip_tile1
|
||||
sta (GBASL),Y
|
||||
skip_tile1:
|
||||
|
||||
; cmp #$AA ; transparency
|
||||
; beq skip_tile1
|
||||
|
||||
sta (GBASL),Y ; draw upper right
|
||||
|
||||
;skip_tile1:
|
||||
|
||||
iny
|
||||
lda tiles+1,X
|
||||
cmp #$AA
|
||||
beq skip_tile2
|
||||
sta (GBASL),Y
|
||||
skip_tile2:
|
||||
; cmp #$AA ; transparency
|
||||
; beq skip_tile2
|
||||
sta (GBASL),Y ; draw upper left
|
||||
;skip_tile2:
|
||||
iny
|
||||
|
||||
inc tilemap_offset
|
||||
@ -60,23 +68,26 @@ skip_tile2:
|
||||
; cpy #34 ; until done
|
||||
bne tilemap_loop
|
||||
|
||||
; move to next line
|
||||
|
||||
; row is done, move to next line
|
||||
lda tile_odd ; toggle odd/even
|
||||
eor #$1 ; (should we just add/mask?)
|
||||
sta tile_odd
|
||||
bne move_to_odd_line
|
||||
|
||||
; ????
|
||||
; move ahead to next row
|
||||
move_to_even_line:
|
||||
lda tilemap_offset
|
||||
clc
|
||||
adc #2
|
||||
adc #0
|
||||
jmp done_move_to_line
|
||||
|
||||
; reset back to beginning of line to display it again
|
||||
move_to_odd_line:
|
||||
lda tilemap_offset
|
||||
sec
|
||||
sbc #14
|
||||
; sbc #14
|
||||
sbc #20 ; ?
|
||||
|
||||
done_move_to_line:
|
||||
sta tilemap_offset
|
||||
|
||||
@ -1,10 +1,12 @@
|
||||
|
||||
KEEN_SPEED = $80
|
||||
|
||||
YDEFAULT = 20
|
||||
|
||||
HARD_TILES = 32 ; start at 32
|
||||
|
||||
TILE_COLS = 20
|
||||
|
||||
|
||||
;=========================
|
||||
; move keen
|
||||
;=========================
|
||||
@ -110,7 +112,7 @@ keen_collide:
|
||||
keen_check_item:
|
||||
lda KEEN_FOOT_OFFSET
|
||||
sec
|
||||
sbc #16
|
||||
sbc #TILE_COLS ; look at body
|
||||
tax
|
||||
|
||||
jsr check_item
|
||||
@ -126,7 +128,7 @@ keen_check_head:
|
||||
|
||||
lda KEEN_FOOT_OFFSET
|
||||
sec
|
||||
sbc #16 ; above head is -2 rows
|
||||
sbc #TILE_COLS ; above head is -2 rows
|
||||
tax
|
||||
|
||||
lda tilemap,X
|
||||
@ -247,7 +249,7 @@ keen_get_feet_location:
|
||||
|
||||
; + 1 is because sprite is 4 pixels wide?
|
||||
|
||||
; screen is 16 wide, but offset 4 in
|
||||
; screen is TILE_COLS wide, but offset 4 in
|
||||
|
||||
; to get to feet add 6 to Y?
|
||||
|
||||
@ -265,18 +267,20 @@ keen_get_feet_location:
|
||||
; 6 = 48 (3)
|
||||
; 7 = 48 (3)
|
||||
|
||||
lda KEEN_Y
|
||||
; lda KEEN_Y
|
||||
; clc
|
||||
; adc #4 ; +4
|
||||
|
||||
clc
|
||||
adc #4 ; +4
|
||||
; lsr ; / 4 (INT)
|
||||
; lsr
|
||||
|
||||
lsr ; / 4 (INT)
|
||||
lsr
|
||||
; asl ; *4
|
||||
; asl
|
||||
; asl
|
||||
; asl
|
||||
|
||||
asl ; *4
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
ldx KEEN_Y
|
||||
lda feet_lookup,X
|
||||
|
||||
sta KEEN_FOOT_OFFSET
|
||||
|
||||
@ -299,8 +303,8 @@ foot_done:
|
||||
lsr
|
||||
|
||||
; offset by two block at edge of screen
|
||||
sec
|
||||
sbc #2
|
||||
; sec
|
||||
; sbc #2
|
||||
|
||||
clc
|
||||
adc KEEN_FOOT_OFFSET
|
||||
@ -319,7 +323,7 @@ check_falling:
|
||||
|
||||
lda KEEN_FOOT_OFFSET
|
||||
clc
|
||||
adc #16 ; underfoot is on next row (+16)
|
||||
adc #TILE_COLS ; underfoot is on next row (+16)
|
||||
|
||||
tax
|
||||
lda tilemap,X
|
||||
@ -392,3 +396,58 @@ done_check_falling:
|
||||
|
||||
|
||||
|
||||
; INT((y+4)/4)*20
|
||||
feet_lookup:
|
||||
.byte 20 ; 0
|
||||
.byte 20 ; 1
|
||||
.byte 20 ; 2
|
||||
.byte 20 ; 3
|
||||
.byte 40 ; 4
|
||||
.byte 40 ; 5
|
||||
.byte 40 ; 6
|
||||
.byte 40 ; 7
|
||||
|
||||
.byte 60 ; 8
|
||||
.byte 60 ; 9
|
||||
.byte 60 ; 10
|
||||
.byte 60 ; 11
|
||||
.byte 80 ; 12
|
||||
.byte 80 ; 13
|
||||
.byte 80 ; 14
|
||||
.byte 80 ; 15
|
||||
|
||||
.byte 100 ; 16
|
||||
.byte 100 ; 17
|
||||
.byte 100 ; 18
|
||||
.byte 100 ; 19
|
||||
.byte 120 ; 20
|
||||
.byte 120 ; 21
|
||||
.byte 120 ; 22
|
||||
.byte 120 ; 23
|
||||
|
||||
.byte 140 ; 24
|
||||
.byte 140 ; 25
|
||||
.byte 140 ; 26
|
||||
.byte 140 ; 27
|
||||
.byte 160 ; 28
|
||||
.byte 160 ; 29
|
||||
.byte 160 ; 30
|
||||
.byte 160 ; 31
|
||||
|
||||
.byte 180 ; 32
|
||||
.byte 180 ; 33
|
||||
.byte 180 ; 34
|
||||
.byte 180 ; 35
|
||||
.byte 200 ; 36
|
||||
.byte 200 ; 37
|
||||
.byte 200 ; 38
|
||||
.byte 200 ; 39
|
||||
|
||||
.byte 220 ; 40
|
||||
.byte 220 ; 41
|
||||
.byte 220 ; 42
|
||||
.byte 220 ; 43
|
||||
.byte 240 ; 44
|
||||
.byte 240 ; 45
|
||||
.byte 240 ; 46
|
||||
.byte 240 ; 47
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user