mirror of
https://github.com/badvision/lawless-legends.git
synced 2025-08-15 06:27:24 +00:00
Refactored rendering / expander code to free up a bunch of aux mem.
This commit is contained in:
Martin Haye
File diff suppressed because it is too large
Load Diff
100
Platform/Apple/virtual/src/raycast/expand_hdr.i
Normal file
100
Platform/Apple/virtual/src/raycast/expand_hdr.i
Normal file
@@ -0,0 +1,100 @@
|
|||||||
|
|
||||||
|
.pc02
|
||||||
|
|
||||||
|
; Select mipmap level 0 (64x64 pixels = 32x32 bytes)
|
||||||
|
selectMip0:
|
||||||
|
; pTex is already pointing at level 0, no need to adjust its level.
|
||||||
|
; However, we do need to move it to the correct column. Currently txColumn
|
||||||
|
; is 0..255 pixels, which we need to translate to 0..31 columns; that's
|
||||||
|
; a divide by 8. But then we need to multiply by 32 bytes per column,
|
||||||
|
; so (1/8)*32 = 4, so we need to multiply by 4 after masking.
|
||||||
|
lda txColumn
|
||||||
|
and #$F8 ; retain upper 5 bits
|
||||||
|
stz tmp
|
||||||
|
asl
|
||||||
|
rol tmp ; multiplied by 2
|
||||||
|
asl
|
||||||
|
rol tmp ; multiplied by 4
|
||||||
|
ldy tmp
|
||||||
|
mipReady:
|
||||||
|
clc ; adjust pTex by that much
|
||||||
|
adc pTex
|
||||||
|
sta pTex
|
||||||
|
tya
|
||||||
|
adc pTex+1
|
||||||
|
sta pTex+1
|
||||||
|
ldy pixNum ; get offset into the blit roll for this column
|
||||||
|
ldx @blitOffsets,y
|
||||||
|
ldy #0 ; default to copying from top of column
|
||||||
|
rts
|
||||||
|
@blitOffsets: .byte BLIT_OFF0,BLIT_OFF1,BLIT_OFF2,BLIT_OFF3,BLIT_OFF4,BLIT_OFF5,BLIT_OFF6
|
||||||
|
|
||||||
|
; Select mipmap level 0 (32x32 pixels = 16x16 bytes)
|
||||||
|
selectMip1:
|
||||||
|
; pTex is pointing at level 0, so we need to move it to level 1.
|
||||||
|
; Then we need to move it to the correct column. Currently txColumn
|
||||||
|
; is 0..255 pixels, which we need to translate to 0..15 columns; that's
|
||||||
|
; a divide by 16. But then we need to multiply by 16 bytes per column,
|
||||||
|
; so (1/16)*16 = 1 ==> no multiply needed.
|
||||||
|
lda txColumn
|
||||||
|
and #$F0 ; retain upper 4 bits
|
||||||
|
ldy #>MIP_OFFSET_1 ; adjust to mip level 1
|
||||||
|
bra mipReady
|
||||||
|
|
||||||
|
; Select mipmap level 2 (16x16 pixels = 8x8 bytes)
|
||||||
|
selectMip2:
|
||||||
|
; pTex is pointing at level 0, so we need to move it to level 2.
|
||||||
|
; Then we need to move it to the correct column. Currently txColumn
|
||||||
|
; is 0..255 pixels, which we need to translate to 0..8 columns; that's
|
||||||
|
; a divide by 32. But then we need to multiply by 8 bytes per column,
|
||||||
|
; so (1/32)*8 = 1/4 ==> overall we need to divide by 4.
|
||||||
|
lda txColumn
|
||||||
|
and #$E0 ; retain upper 3 bits
|
||||||
|
lsr ; div by 2
|
||||||
|
lsr ; div by 4
|
||||||
|
; no need to add #<MIP_OFFSET_2, since it is zero.
|
||||||
|
ldy #>MIP_OFFSET_2 ; adjust to mip level 2
|
||||||
|
bra mipReady
|
||||||
|
|
||||||
|
; Select mipmap level 3 (8x8 pixels = 4x4 bytes)
|
||||||
|
selectMip3:
|
||||||
|
; pTex is pointing at level 0, so we need to move it to level 3.
|
||||||
|
; Then we need to move it to the correct column. Currently txColumn
|
||||||
|
; is 0..255 pixels, which we need to translate to 0..3 columns; that's
|
||||||
|
; a divide by 64. But then we need to multiply by 4 bytes per column,
|
||||||
|
; so (1/64)*4 = 1/16 ==> overall we need to divide by 16.
|
||||||
|
lda txColumn
|
||||||
|
and #$C0 ; retain upper 2 bits
|
||||||
|
lsr ; div by 2
|
||||||
|
lsr ; div by 4
|
||||||
|
lsr ; div by 8
|
||||||
|
lsr ; div by 16
|
||||||
|
clc
|
||||||
|
adc #<MIP_OFFSET_3
|
||||||
|
ldy #>MIP_OFFSET_3 ; adjust to mip level 3
|
||||||
|
bra mipReady
|
||||||
|
|
||||||
|
; Select mipmap level 4 (4x4 pixels = 2x2 bytes)
|
||||||
|
selectMip4:
|
||||||
|
; pTex is pointing at level 0, so we need to move it to level 4.
|
||||||
|
; Then we need to move it to the correct column. Currently txColumn
|
||||||
|
; is 0..255 pixels, which we need to translate to 0..1 columns; that's
|
||||||
|
; a divide by 128. But then we need to multiply by 2 bytes per column,
|
||||||
|
; so (1/128)*2 = 1/64 ==> overall we need to divide by 64
|
||||||
|
lda txColumn
|
||||||
|
and #$80 ; retain the high bit
|
||||||
|
beq :+ ; if not set, result should be zero
|
||||||
|
lda #64 ; else result should be 64
|
||||||
|
: clc
|
||||||
|
adc #<MIP_OFFSET_4
|
||||||
|
ldy #>MIP_OFFSET_4 ; adjust to mip level 4
|
||||||
|
bra mipReady
|
||||||
|
|
||||||
|
; Select mipmap level 5 (2x2 pixels = 1x1 bytes)
|
||||||
|
selectMip5:
|
||||||
|
; Mip level 5 is super-easy: it's one byte. Not much choice there.
|
||||||
|
lda #<MIP_OFFSET_5
|
||||||
|
ldy #>MIP_OFFSET_5
|
||||||
|
bra mipReady
|
||||||
|
|
||||||
|
|
||||||
@@ -21,16 +21,7 @@ dstHeights = set()
|
|||||||
|
|
||||||
outFile = open("expand.s", "w")
|
outFile = open("expand.s", "w")
|
||||||
outFile.write(" .org $800\n")
|
outFile.write(" .org $800\n")
|
||||||
outFile.write(" .pc02\n")
|
outFile.write(" .include \"render.i\"\n")
|
||||||
outFile.write("pTex = $A\n")
|
|
||||||
outFile.write("selectMip0 = $7003\n")
|
|
||||||
outFile.write("selectMip1 = selectMip0+3\n")
|
|
||||||
outFile.write("selectMip2 = selectMip1+3\n")
|
|
||||||
outFile.write("selectMip3 = selectMip2+3\n")
|
|
||||||
outFile.write("selectMip4 = selectMip3+3\n")
|
|
||||||
outFile.write("selectMip5 = selectMip4+3\n")
|
|
||||||
outFile.write("rowBlit = $B000\n")
|
|
||||||
outFile.write("ROW_STRIDE = 29\n")
|
|
||||||
outFile.write("\n")
|
outFile.write("\n")
|
||||||
|
|
||||||
def calcKey(cmds):
|
def calcKey(cmds):
|
||||||
@@ -127,7 +118,7 @@ class Segment:
|
|||||||
outFile.write(" lsr\n")
|
outFile.write(" lsr\n")
|
||||||
else:
|
else:
|
||||||
assert c < screenHeight
|
assert c < screenHeight
|
||||||
outFile.write(" sta %s*ROW_STRIDE + rowBlit,x\n" % c)
|
outFile.write(" sta %s*BLIT_STRIDE + blitRoll,x\n" % c)
|
||||||
else:
|
else:
|
||||||
if grouped:
|
if grouped:
|
||||||
outFile.write(" rts\n")
|
outFile.write(" rts\n")
|
||||||
@@ -228,6 +219,9 @@ for h in range(0, 256, 2):
|
|||||||
outFile.write(" .addr expand_%d\n" % dstHeight)
|
outFile.write(" .addr expand_%d\n" % dstHeight)
|
||||||
outFile.write("\n")
|
outFile.write("\n")
|
||||||
|
|
||||||
|
# Include the expand header code
|
||||||
|
outFile.write(" .include \"expand_hdr.i\"\n")
|
||||||
|
|
||||||
# Let's optimize.
|
# Let's optimize.
|
||||||
segsToOpt = copy.copy(allSegs)
|
segsToOpt = copy.copy(allSegs)
|
||||||
while len(segsToOpt) > 0:
|
while len(segsToOpt) > 0:
|
||||||
|
|||||||
125
Platform/Apple/virtual/src/raycast/render.i
Normal file
125
Platform/Apple/virtual/src/raycast/render.i
Normal file
@@ -0,0 +1,125 @@
|
|||||||
|
; Shared definitions for the rendering code
|
||||||
|
|
||||||
|
; Constants
|
||||||
|
TOP_LINE = $2180 ; 24 lines down from top
|
||||||
|
NLINES = 128
|
||||||
|
SKY_COLOR_E = 1 ; blue
|
||||||
|
SKY_COLOR_O = 1 ; blue
|
||||||
|
GROUND_COLOR_E = 4 ; orange
|
||||||
|
GROUND_COLOR_O = 0 ; black
|
||||||
|
TEX_SIZE = $555 ; 32x32 + 16x16 + 8x8 + 4x4 + 2x2 + 1x1
|
||||||
|
|
||||||
|
; Byte offset for each pixel in the blit unroll
|
||||||
|
BLIT_OFF0 = 5
|
||||||
|
BLIT_OFF1 = 8
|
||||||
|
BLIT_OFF2 = 11
|
||||||
|
BLIT_OFF3 = 1
|
||||||
|
BLIT_OFF4 = 17
|
||||||
|
BLIT_OFF5 = 20
|
||||||
|
BLIT_OFF6 = 24
|
||||||
|
|
||||||
|
BLIT_STRIDE = 29
|
||||||
|
|
||||||
|
; Renderer zero page
|
||||||
|
lineCt = $3 ; len 1
|
||||||
|
txNum = $4 ; len 1
|
||||||
|
txColumn = $5 ; len 1
|
||||||
|
pLine = $6 ; len 2
|
||||||
|
pDst = $8 ; len 2
|
||||||
|
pTex = $A ; len 2
|
||||||
|
pixNum = $C ; len 1
|
||||||
|
byteNum = $D ; len 1
|
||||||
|
pTmp = $E ; len 2
|
||||||
|
tmp = $10 ; len 2
|
||||||
|
backBuf = $12 ; len 1 (value 0 or 1)
|
||||||
|
frontBuf = $13 ; len 1 (value 0 or 1)
|
||||||
|
pRayData = $14 ; len 2
|
||||||
|
playerX = $16 ; len 2 (hi=integer, lo=fraction)
|
||||||
|
playerY = $18 ; len 2 (hi=integer, lo=fraction)
|
||||||
|
rayDirX = $1A ; len 1
|
||||||
|
rayDirY = $1B ; len 1
|
||||||
|
stepX = $1C ; len 1
|
||||||
|
stepY = $1D ; len 1
|
||||||
|
mapX = $1E ; len 1
|
||||||
|
mapY = $1F ; len 1
|
||||||
|
sideDistX = $50 ; len 1
|
||||||
|
sideDistY = $51 ; len 1
|
||||||
|
deltaDistX = $52 ; len 1
|
||||||
|
deltaDistY = $53 ; len 1
|
||||||
|
dist = $54 ; len 2
|
||||||
|
diff = $56 ; len 2
|
||||||
|
playerDir = $58 ; len 1
|
||||||
|
|
||||||
|
; Other monitor locations
|
||||||
|
a2l = $3E
|
||||||
|
a2h = $3F
|
||||||
|
resetVec = $3F2
|
||||||
|
|
||||||
|
; Tables and buffers
|
||||||
|
decodeTo01 = $800
|
||||||
|
decodeTo23 = $900
|
||||||
|
decodeTo45 = $A00
|
||||||
|
decodeTo56 = $B00
|
||||||
|
decodeTo57 = $C00
|
||||||
|
clrBlitRollE = $D00 ; size 3*(128/2) = $C0, plus 2 for tya and rts
|
||||||
|
clrBlitRollO = $DC2 ; size 3*(128/2) = $C0, plus 2 for tya and rts
|
||||||
|
XF00 = $E00 ; unused
|
||||||
|
|
||||||
|
prodosBuf = $AC00 ; temporary, before building the tables
|
||||||
|
screen = $2000
|
||||||
|
|
||||||
|
;---------------------------------
|
||||||
|
; The following are all in aux mem...
|
||||||
|
expandVec = $800 ; size with expandCode: $30E9
|
||||||
|
expandCode = $900
|
||||||
|
textures = $3900
|
||||||
|
tex0 = textures
|
||||||
|
tex1 = tex0+TEX_SIZE
|
||||||
|
tex2 = tex1+TEX_SIZE
|
||||||
|
tex3 = tex2+TEX_SIZE
|
||||||
|
texEnd = tex3+TEX_SIZE
|
||||||
|
; back to main mem
|
||||||
|
;---------------------------------
|
||||||
|
|
||||||
|
blitRoll = $B000 ; Unrolled blitting code. Size 29*128 = $E80, plus 1 for rts
|
||||||
|
MLI = $BF00 ; Entry point for ProDOS MLI
|
||||||
|
memMap = $BF58 ; ProDOS memory map
|
||||||
|
|
||||||
|
; I/O locations
|
||||||
|
kbd = $C000
|
||||||
|
clrAuxRd = $C002
|
||||||
|
setAuxRd = $C003
|
||||||
|
clrAuxWr = $C004
|
||||||
|
setAuxWr = $C005
|
||||||
|
clrAuxZP = $C008
|
||||||
|
setAuxZP = $C009
|
||||||
|
kbdStrobe = $C010
|
||||||
|
clrText = $C050
|
||||||
|
setText = $C051
|
||||||
|
clrMixed = $C052
|
||||||
|
setMixed = $C053
|
||||||
|
page1 = $C054
|
||||||
|
page2 = $C055
|
||||||
|
clrHires = $C056
|
||||||
|
setHires = $C057
|
||||||
|
|
||||||
|
; ROM routines
|
||||||
|
prntax = $F941
|
||||||
|
rdkey = $FD0C
|
||||||
|
getln1 = $FD6F
|
||||||
|
crout = $FD8E
|
||||||
|
prbyte = $FDDA
|
||||||
|
cout = $FDED
|
||||||
|
prerr = $FF2D
|
||||||
|
monitor = $FF69
|
||||||
|
getnum = $FFA7
|
||||||
|
|
||||||
|
; mipmap level offsets
|
||||||
|
MIP_OFFSET_0 = 0
|
||||||
|
MIP_OFFSET_1 = $400 ; 32*32
|
||||||
|
MIP_OFFSET_2 = $500 ; 32*32 + 16*16
|
||||||
|
MIP_OFFSET_3 = $540 ; 32*32 + 16*16 + 8*8
|
||||||
|
MIP_OFFSET_4 = $550 ; 32*32 + 16*16 + 8*8 + 4*4
|
||||||
|
MIP_OFFSET_5 = $554 ; 32*32 + 16*16 + 8*8 + 4*4 + 2*2
|
||||||
|
|
||||||
|
|
||||||
@@ -1,6 +1,5 @@
|
|||||||
|
|
||||||
.org $7000
|
.org $7000
|
||||||
codeBeg = *
|
|
||||||
|
|
||||||
.pc02 ; Enable 65c02 ops
|
.pc02 ; Enable 65c02 ops
|
||||||
|
|
||||||
@@ -10,136 +9,17 @@ codeBeg = *
|
|||||||
; code is at the very end. We jump to it now.
|
; code is at the very end. We jump to it now.
|
||||||
jmp test
|
jmp test
|
||||||
|
|
||||||
; Vectors for mip-map level selection, called by expansion code.
|
|
||||||
jmp selectMip0
|
|
||||||
jmp selectMip1
|
|
||||||
jmp selectMip2
|
|
||||||
jmp selectMip3
|
|
||||||
jmp selectMip4
|
|
||||||
jmp selectMip5
|
|
||||||
|
|
||||||
; Conditional assembly flags
|
; Conditional assembly flags
|
||||||
DOUBLE_BUFFER = 1 ; whether to double-buffer
|
DOUBLE_BUFFER = 1 ; whether to double-buffer
|
||||||
DEBUG = 0 ; turn on verbose logging
|
DEBUG = 0 ; turn on verbose logging
|
||||||
|
|
||||||
; Constants
|
; Shared constants, zero page, buffer locations, etc.
|
||||||
TOP_LINE = $2180 ; 24 lines down from top
|
.include "render.i"
|
||||||
NLINES = 128
|
|
||||||
SKY_COLOR_E = 1 ; blue
|
|
||||||
SKY_COLOR_O = 1 ; blue
|
|
||||||
GROUND_COLOR_E = 4 ; orange
|
|
||||||
GROUND_COLOR_O = 0 ; black
|
|
||||||
TEX_SIZE = $555 ; 32x32 + 16x16 + 8x8 + 4x4 + 2x2 + 1x1
|
|
||||||
|
|
||||||
; My zero page
|
|
||||||
lineCt = $3 ; len 1
|
|
||||||
txNum = $4 ; len 1
|
|
||||||
txColumn = $5 ; len 1
|
|
||||||
pLine = $6 ; len 2
|
|
||||||
pDst = $8 ; len 2
|
|
||||||
pTex = $A ; len 2
|
|
||||||
pixNum = $C ; len 1
|
|
||||||
byteNum = $D ; len 1
|
|
||||||
pTmp = $E ; len 2
|
|
||||||
tmp = $10 ; len 2
|
|
||||||
backBuf = $12 ; len 1 (value 0 or 1)
|
|
||||||
frontBuf = $13 ; len 1 (value 0 or 1)
|
|
||||||
pRayData = $14 ; len 2
|
|
||||||
playerX = $16 ; len 2 (hi=integer, lo=fraction)
|
|
||||||
playerY = $18 ; len 2 (hi=integer, lo=fraction)
|
|
||||||
rayDirX = $1A ; len 1
|
|
||||||
rayDirY = $1B ; len 1
|
|
||||||
stepX = $1C ; len 1
|
|
||||||
stepY = $1D ; len 1
|
|
||||||
mapX = $1E ; len 1
|
|
||||||
mapY = $1F ; len 1
|
|
||||||
sideDistX = $50 ; len 1
|
|
||||||
sideDistY = $51 ; len 1
|
|
||||||
deltaDistX = $52 ; len 1
|
|
||||||
deltaDistY = $53 ; len 1
|
|
||||||
dist = $54 ; len 2
|
|
||||||
diff = $56 ; len 2
|
|
||||||
playerDir = $58 ; len 1
|
|
||||||
|
|
||||||
; Other monitor locations
|
|
||||||
a2l = $3E
|
|
||||||
a2h = $3F
|
|
||||||
resetVec = $3F2
|
|
||||||
|
|
||||||
; Tables and buffers
|
|
||||||
decodeTo01 = $800
|
|
||||||
decodeTo23 = $900
|
|
||||||
decodeTo45 = $A00
|
|
||||||
decodeTo56 = $B00
|
|
||||||
decodeTo57 = $C00
|
|
||||||
clrBlitRollE = $D00 ; size 3*(128/2) = $C0, plus 2 for tya and rts
|
|
||||||
clrBlitRollO = $DC2 ; size 3*(128/2) = $C0, plus 2 for tya and rts
|
|
||||||
XF00 = $E00 ; unused
|
|
||||||
|
|
||||||
prodosBuf = $AC00 ; temporary, before building the tables
|
|
||||||
screen = $2000
|
|
||||||
|
|
||||||
;---------------------------------
|
|
||||||
; The following are all in aux mem...
|
|
||||||
expandVec = $800
|
|
||||||
expandCode = $900 ; size $2F8C
|
|
||||||
textures = $3900
|
|
||||||
tex0 = textures
|
|
||||||
tex1 = tex0+TEX_SIZE
|
|
||||||
tex2 = tex1+TEX_SIZE
|
|
||||||
tex3 = tex2+TEX_SIZE
|
|
||||||
texEnd = tex3+TEX_SIZE
|
|
||||||
; back to main mem
|
|
||||||
;---------------------------------
|
|
||||||
|
|
||||||
blitRoll = $B000 ; Unrolled blitting code. Size 29*128 = $E80, plus 1 for rts
|
|
||||||
MLI = $BF00 ; Entry point for ProDOS MLI
|
|
||||||
memMap = $BF58 ; ProDOS memory map
|
|
||||||
|
|
||||||
; I/O locations
|
|
||||||
kbd = $C000
|
|
||||||
clrAuxRd = $C002
|
|
||||||
setAuxRd = $C003
|
|
||||||
clrAuxWr = $C004
|
|
||||||
setAuxWr = $C005
|
|
||||||
clrAuxZP = $C008
|
|
||||||
setAuxZP = $C009
|
|
||||||
kbdStrobe = $C010
|
|
||||||
clrText = $C050
|
|
||||||
setText = $C051
|
|
||||||
clrMixed = $C052
|
|
||||||
setMixed = $C053
|
|
||||||
page1 = $C054
|
|
||||||
page2 = $C055
|
|
||||||
clrHires = $C056
|
|
||||||
setHires = $C057
|
|
||||||
|
|
||||||
; ROM routines
|
|
||||||
prntax = $F941
|
|
||||||
rdkey = $FD0C
|
|
||||||
getln1 = $FD6F
|
|
||||||
crout = $FD8E
|
|
||||||
prbyte = $FDDA
|
|
||||||
cout = $FDED
|
|
||||||
prerr = $FF2D
|
|
||||||
monitor = $FF69
|
|
||||||
getnum = $FFA7
|
|
||||||
|
|
||||||
; Pixel offsets in the blit table
|
|
||||||
blitOffsets: .byte 5,8,11,1,17,20,24
|
|
||||||
|
|
||||||
; texture addresses
|
; texture addresses
|
||||||
texAddrLo: .byte <tex0,<tex1,<tex2,<tex3
|
texAddrLo: .byte <tex0,<tex1,<tex2,<tex3
|
||||||
texAddrHi: .byte >tex0,>tex1,>tex2,>tex3
|
texAddrHi: .byte >tex0,>tex1,>tex2,>tex3
|
||||||
|
|
||||||
; mipmap level offsets
|
|
||||||
MIP_OFFSET_0 = 0
|
|
||||||
MIP_OFFSET_1 = $400 ; 32*32
|
|
||||||
MIP_OFFSET_2 = $500 ; 32*32 + 16*16
|
|
||||||
MIP_OFFSET_3 = $540 ; 32*32 + 16*16 + 8*8
|
|
||||||
MIP_OFFSET_4 = $550 ; 32*32 + 16*16 + 8*8 + 4*4
|
|
||||||
MIP_OFFSET_5 = $554 ; 32*32 + 16*16 + 8*8 + 4*4 + 2*2
|
|
||||||
|
|
||||||
; Movement amounts when walking at each angle
|
; Movement amounts when walking at each angle
|
||||||
; Each entry consists of an X bump and a Y bump, in 8.8 fixed point
|
; Each entry consists of an X bump and a Y bump, in 8.8 fixed point
|
||||||
walkDirs:
|
walkDirs:
|
||||||
@@ -713,121 +593,6 @@ nextLine:
|
|||||||
stx pLine+1
|
stx pLine+1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; Select mipmap level 0 (64x64 pixels = 32x32 bytes)
|
|
||||||
selectMip0:
|
|
||||||
; pTex is already pointing at level 0, no need to adjust its level.
|
|
||||||
; However, we do need to move it to the correct column. Currently txColumn
|
|
||||||
; is 0..255 pixels, which we need to translate to 0..31 columns; that's
|
|
||||||
; a divide by 8. But then we need to multiply by 32 bytes per column,
|
|
||||||
; so (1/8)*32 = 4, so we need to multiply by 4 after masking.
|
|
||||||
lda txColumn
|
|
||||||
and #$F8 ; retain upper 5 bits
|
|
||||||
stz tmp
|
|
||||||
asl
|
|
||||||
rol tmp ; multiplied by 2
|
|
||||||
asl
|
|
||||||
rol tmp ; multiplied by 4
|
|
||||||
adc pTex ; adjust pTex by that much
|
|
||||||
sta pTex
|
|
||||||
lda tmp
|
|
||||||
adc pTex+1
|
|
||||||
sta pTex+1
|
|
||||||
mipReady:
|
|
||||||
ldy pixNum ; get offset into the blit roll for this column
|
|
||||||
ldx blitOffsets,y
|
|
||||||
ldy #0 ; default to copying from top of column
|
|
||||||
rts
|
|
||||||
|
|
||||||
; Select mipmap level 0 (32x32 pixels = 16x16 bytes)
|
|
||||||
selectMip1:
|
|
||||||
; pTex is pointing at level 0, so we need to move it to level 1.
|
|
||||||
; Then we need to move it to the correct column. Currently txColumn
|
|
||||||
; is 0..255 pixels, which we need to translate to 0..15 columns; that's
|
|
||||||
; a divide by 16. But then we need to multiply by 16 bytes per column,
|
|
||||||
; so (1/16)*16 = 1 ==> no multiply needed.
|
|
||||||
lda txColumn
|
|
||||||
and #$F0 ; retain upper 4 bits
|
|
||||||
clc
|
|
||||||
adc pTex
|
|
||||||
sta pTex ; no need to add #<MIP_OFFSET_1, since it is zero.
|
|
||||||
lda pTex+1
|
|
||||||
adc #>MIP_OFFSET_1 ; adjust to mip level 1
|
|
||||||
sta pTex+1
|
|
||||||
jmp mipReady
|
|
||||||
|
|
||||||
; Select mipmap level 2 (16x16 pixels = 8x8 bytes)
|
|
||||||
selectMip2:
|
|
||||||
; pTex is pointing at level 0, so we need to move it to level 2.
|
|
||||||
; Then we need to move it to the correct column. Currently txColumn
|
|
||||||
; is 0..255 pixels, which we need to translate to 0..8 columns; that's
|
|
||||||
; a divide by 32. But then we need to multiply by 8 bytes per column,
|
|
||||||
; so (1/32)*8 = 1/4 ==> overall we need to divide by 4.
|
|
||||||
lda txColumn
|
|
||||||
and #$E0 ; retain upper 3 bits
|
|
||||||
lsr ; div by 2
|
|
||||||
lsr ; div by 4
|
|
||||||
clc
|
|
||||||
adc pTex
|
|
||||||
sta pTex ; no need to add #<MIP_OFFSET_2, since it is zero.
|
|
||||||
lda pTex+1
|
|
||||||
adc #>MIP_OFFSET_2 ; adjust to mip level 2
|
|
||||||
sta pTex+1
|
|
||||||
jmp mipReady
|
|
||||||
|
|
||||||
; Select mipmap level 3 (8x8 pixels = 4x4 bytes)
|
|
||||||
selectMip3:
|
|
||||||
; pTex is pointing at level 0, so we need to move it to level 3.
|
|
||||||
; Then we need to move it to the correct column. Currently txColumn
|
|
||||||
; is 0..255 pixels, which we need to translate to 0..3 columns; that's
|
|
||||||
; a divide by 64. But then we need to multiply by 4 bytes per column,
|
|
||||||
; so (1/64)*4 = 1/16 ==> overall we need to divide by 16.
|
|
||||||
lda txColumn
|
|
||||||
and #$C0 ; retain upper 2 bits
|
|
||||||
lsr ; div by 2
|
|
||||||
lsr ; div by 4
|
|
||||||
lsr ; div by 8
|
|
||||||
lsr ; div by 16
|
|
||||||
clc
|
|
||||||
adc #<MIP_OFFSET_3 ; = $40, so will never cause carry
|
|
||||||
adc pTex ; can be non-zero
|
|
||||||
sta pTex
|
|
||||||
lda pTex+1
|
|
||||||
adc #>MIP_OFFSET_3 ; adjust to mip level 3
|
|
||||||
sta pTex+1
|
|
||||||
jmp mipReady
|
|
||||||
|
|
||||||
; Select mipmap level 4 (4x4 pixels = 2x2 bytes)
|
|
||||||
selectMip4:
|
|
||||||
; pTex is pointing at level 0, so we need to move it to level 4.
|
|
||||||
; Then we need to move it to the correct column. Currently txColumn
|
|
||||||
; is 0..255 pixels, which we need to translate to 0..1 columns; that's
|
|
||||||
; a divide by 128. But then we need to multiply by 2 bytes per column,
|
|
||||||
; so (1/128)*2 = 1/64 ==> overall we need to divide by 64
|
|
||||||
lda txColumn
|
|
||||||
and #$80 ; retain the high bit
|
|
||||||
beq :+ ; if not set, result should be zero
|
|
||||||
lda #64 ; else result should be 64
|
|
||||||
: clc
|
|
||||||
adc #<MIP_OFFSET_4 ; = $50, so will never cause carry
|
|
||||||
adc pTex ; can be non-zero
|
|
||||||
sta pTex
|
|
||||||
lda pTex+1
|
|
||||||
adc #>MIP_OFFSET_4 ; adjust to mip level 4
|
|
||||||
sta pTex+1
|
|
||||||
jmp mipReady
|
|
||||||
|
|
||||||
; Select mipmap level 5 (2x2 pixels = 1x1 bytes)
|
|
||||||
selectMip5:
|
|
||||||
; Mip level 5 is super-easy: it's one byte. Not much choice there.
|
|
||||||
lda pTex
|
|
||||||
clc
|
|
||||||
adc #<MIP_OFFSET_5
|
|
||||||
sta pTex
|
|
||||||
lda pTex+1
|
|
||||||
adc #>MIP_OFFSET_5
|
|
||||||
sta pTex+1
|
|
||||||
jmp mipReady
|
|
||||||
|
|
||||||
; Draw a ray that was traversed by calcRay
|
; Draw a ray that was traversed by calcRay
|
||||||
drawRay:
|
drawRay:
|
||||||
; Make a pointer to the selected texture
|
; Make a pointer to the selected texture
|
||||||
@@ -844,12 +609,7 @@ drawRay:
|
|||||||
lda #254 ; clamp max height
|
lda #254 ; clamp max height
|
||||||
: tax
|
: tax
|
||||||
DEBUG_STR "Calling expansion code."
|
DEBUG_STR "Calling expansion code."
|
||||||
sta setAuxRd ; switch to aux mem where textures and expansion code live
|
jmp $100 ; was copied here earlier from @callIt
|
||||||
jsr @callit ; call the unrolled code
|
|
||||||
sta clrAuxRd ; back to main mem
|
|
||||||
rts ; and we're done.
|
|
||||||
@callit:
|
|
||||||
jmp (expandVec,x) ; use vector to get to the right code
|
|
||||||
|
|
||||||
; Template for blitting code
|
; Template for blitting code
|
||||||
blitTemplate: ; comments show byte offset
|
blitTemplate: ; comments show byte offset
|
||||||
@@ -981,19 +741,19 @@ makeClrBlit:
|
|||||||
|
|
||||||
; Clear the blit
|
; Clear the blit
|
||||||
clearBlit:
|
clearBlit:
|
||||||
ldx blitOffsets+0
|
ldx #BLIT_OFF0
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+1
|
ldx #BLIT_OFF1
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+2
|
ldx #BLIT_OFF2
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+3
|
ldx #BLIT_OFF3
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+4
|
ldx #BLIT_OFF4
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+5
|
ldx #BLIT_OFF5
|
||||||
jsr @clear2
|
jsr @clear2
|
||||||
ldx blitOffsets+6
|
ldx #BLIT_OFF6
|
||||||
@clear2:
|
@clear2:
|
||||||
ldy #GROUND_COLOR_E
|
ldy #GROUND_COLOR_E
|
||||||
lda #SKY_COLOR_E
|
lda #SKY_COLOR_E
|
||||||
@@ -1215,6 +975,23 @@ test:
|
|||||||
eor #$A5
|
eor #$A5
|
||||||
sta resetVec+2
|
sta resetVec+2
|
||||||
|
|
||||||
|
; Put ourselves high on the stack, then copy the expansion caller to low stack.
|
||||||
|
ldx #$FF
|
||||||
|
txs
|
||||||
|
ldx #12
|
||||||
|
: lda @callIt,x
|
||||||
|
sta $100,x
|
||||||
|
dex
|
||||||
|
bpl :-
|
||||||
|
bra :+
|
||||||
|
@callIt:
|
||||||
|
sta setAuxRd
|
||||||
|
jsr $10A
|
||||||
|
sta clrAuxRd
|
||||||
|
rts
|
||||||
|
jmp (expandVec,x)
|
||||||
|
:
|
||||||
|
|
||||||
; Establish the initial player position and direction
|
; Establish the initial player position and direction
|
||||||
; X=2.5
|
; X=2.5
|
||||||
lda #2
|
lda #2
|
||||||
@@ -1230,12 +1007,6 @@ test:
|
|||||||
lda #0
|
lda #0
|
||||||
sta playerDir
|
sta playerDir
|
||||||
|
|
||||||
; Copy our code to aux mem so we can seamlessly switch back and forth
|
|
||||||
; It's wasteful but makes things easy for now.
|
|
||||||
ldy #>codeBeg
|
|
||||||
ldx #>codeEnd - >codeBeg + 1
|
|
||||||
jsr copyToAux
|
|
||||||
|
|
||||||
; Load the texture expansion code
|
; Load the texture expansion code
|
||||||
DEBUG_STR "Loading files."
|
DEBUG_STR "Loading files."
|
||||||
lda #>expandVec
|
lda #>expandVec
|
||||||
@@ -2650,5 +2421,3 @@ precast_15:
|
|||||||
.byte $7F,$07,$05,$56
|
.byte $7F,$07,$05,$56
|
||||||
.res 4 ; to bring it up to 256 bytes per angle
|
.res 4 ; to bring it up to 256 bytes per angle
|
||||||
|
|
||||||
codeEnd = *
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user