mirror of
https://github.com/irmen/prog8.git
synced 2024-11-29 17:50:35 +00:00
fixed math.mul_word_40 that was actually doing *80...
This commit is contained in:
Irmen de Jong
parent
118aed2e31
commit
d65cfbf093
@ -165,22 +165,22 @@ cx16 {
|
|||||||
&ubyte d1ora = via1+15
|
&ubyte d1ora = via1+15
|
||||||
|
|
||||||
const uword via2 = $9f70 ;VIA 6522 #2
|
const uword via2 = $9f70 ;VIA 6522 #2
|
||||||
&ubyte d2prb =via2+0
|
&ubyte d2prb = via2+0
|
||||||
&ubyte d2pra =via2+1
|
&ubyte d2pra = via2+1
|
||||||
&ubyte d2ddrb =via2+2
|
&ubyte d2ddrb = via2+2
|
||||||
&ubyte d2ddra =via2+3
|
&ubyte d2ddra = via2+3
|
||||||
&ubyte d2t1l =via2+4
|
&ubyte d2t1l = via2+4
|
||||||
&ubyte d2t1h =via2+5
|
&ubyte d2t1h = via2+5
|
||||||
&ubyte d2t1ll =via2+6
|
&ubyte d2t1ll = via2+6
|
||||||
&ubyte d2t1lh =via2+7
|
&ubyte d2t1lh = via2+7
|
||||||
&ubyte d2t2l =via2+8
|
&ubyte d2t2l = via2+8
|
||||||
&ubyte d2t2h =via2+9
|
&ubyte d2t2h = via2+9
|
||||||
&ubyte d2sr =via2+10
|
&ubyte d2sr = via2+10
|
||||||
&ubyte d2acr =via2+11
|
&ubyte d2acr = via2+11
|
||||||
&ubyte d2pcr =via2+12
|
&ubyte d2pcr = via2+12
|
||||||
&ubyte d2ifr =via2+13
|
&ubyte d2ifr = via2+13
|
||||||
&ubyte d2ier =via2+14
|
&ubyte d2ier = via2+14
|
||||||
&ubyte d2ora =via2+15
|
&ubyte d2ora = via2+15
|
||||||
|
|
||||||
|
|
||||||
; ---- Commander X-16 additions on top of C64 kernal routines ----
|
; ---- Commander X-16 additions on top of C64 kernal routines ----
|
||||||
|
|||||||
@ -1203,8 +1203,6 @@ mul_word_40 .proc
|
|||||||
rol a
|
rol a
|
||||||
asl P8ZP_SCRATCH_W1
|
asl P8ZP_SCRATCH_W1
|
||||||
rol a
|
rol a
|
||||||
asl P8ZP_SCRATCH_W1
|
|
||||||
rol a
|
|
||||||
tay
|
tay
|
||||||
lda P8ZP_SCRATCH_W1
|
lda P8ZP_SCRATCH_W1
|
||||||
rts
|
rts
|
||||||
|
|||||||
@ -2,6 +2,7 @@
|
|||||||
TODO
|
TODO
|
||||||
====
|
====
|
||||||
|
|
||||||
|
- optimize (byte) bitshifting 1<<x (and 2**x) via lookup table 1,2,4,8,...
|
||||||
- Cx16 target: support full-screen 640x480 and 320x240 graphics? That requires our own custom graphics routines though to draw lines, and plot pixels.
|
- Cx16 target: support full-screen 640x480 and 320x240 graphics? That requires our own custom graphics routines though to draw lines, and plot pixels.
|
||||||
- hoist all variable declarations up to the subroutine scope *before* even the constant folding takes place (to avoid undefined symbol errors when referring to a variable from another nested scope in the subroutine)
|
- hoist all variable declarations up to the subroutine scope *before* even the constant folding takes place (to avoid undefined symbol errors when referring to a variable from another nested scope in the subroutine)
|
||||||
- make it possible to use cpu opcodes such as 'nop' as variable names by prefixing all asm vars with something such as '_'
|
- make it possible to use cpu opcodes such as 'nop' as variable names by prefixing all asm vars with something such as '_'
|
||||||
|
|||||||
222
examples/test.p8
222
examples/test.p8
@ -2,13 +2,233 @@
|
|||||||
%import diskio
|
%import diskio
|
||||||
%import floats
|
%import floats
|
||||||
%import graphics
|
%import graphics
|
||||||
%zeropage basicsafe
|
|
||||||
%import test_stack
|
%import test_stack
|
||||||
|
%zeropage basicsafe
|
||||||
%option no_sysinit
|
%option no_sysinit
|
||||||
|
|
||||||
main {
|
main {
|
||||||
|
|
||||||
|
; uword adres
|
||||||
|
; ubyte adreshi
|
||||||
|
|
||||||
|
|
||||||
sub start () {
|
sub start () {
|
||||||
txt.print("hello\n")
|
txt.print("hello\n")
|
||||||
|
|
||||||
|
uword xx
|
||||||
|
xx = 777
|
||||||
|
%asm {{
|
||||||
|
lda xx
|
||||||
|
ldy xx+1
|
||||||
|
jsr math.mul_word_20
|
||||||
|
sta xx
|
||||||
|
sty xx+1
|
||||||
|
}}
|
||||||
|
txt.print_uw(xx)
|
||||||
|
txt.chrout('\n')
|
||||||
|
xx = 777
|
||||||
|
%asm {{
|
||||||
|
lda xx
|
||||||
|
ldy xx+1
|
||||||
|
jsr math.mul_word_40
|
||||||
|
sta xx
|
||||||
|
sty xx+1
|
||||||
|
}}
|
||||||
|
txt.print_uw(xx)
|
||||||
|
txt.chrout('\n')
|
||||||
|
xx = 777
|
||||||
|
%asm {{
|
||||||
|
lda xx
|
||||||
|
ldy xx+1
|
||||||
|
jsr math.mul_word_80
|
||||||
|
sta xx
|
||||||
|
sty xx+1
|
||||||
|
}}
|
||||||
|
txt.print_uw(xx)
|
||||||
|
txt.chrout('\n')
|
||||||
|
|
||||||
|
return
|
||||||
|
|
||||||
|
gfx2.set_mode(128)
|
||||||
|
gfx2.clear_screen()
|
||||||
|
|
||||||
|
uword offset
|
||||||
|
ubyte angle
|
||||||
|
uword x
|
||||||
|
uword y
|
||||||
|
when gfx2.active_mode {
|
||||||
|
0 -> {
|
||||||
|
for offset in 0 to 90 step 3 {
|
||||||
|
for angle in 0 to 255 {
|
||||||
|
x = $0008+sin8u(angle)/2
|
||||||
|
y = $0008+cos8u(angle)/2
|
||||||
|
gfx2.plot(x+offset*2,y+offset, lsb(x+y))
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
128 -> {
|
||||||
|
for offset in 0 to 190 step 6 {
|
||||||
|
for angle in 0 to 255 {
|
||||||
|
x = $0008+sin8u(angle)
|
||||||
|
y = $0008+cos8u(angle)
|
||||||
|
gfx2.plot(x+offset*2,y+offset, 1)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
gfx2 {
|
||||||
|
|
||||||
|
ubyte active_mode = 255
|
||||||
|
uword width = 0
|
||||||
|
uword height = 0
|
||||||
|
ubyte bpp = 0
|
||||||
|
|
||||||
|
sub set_mode(ubyte mode) {
|
||||||
|
; mode 0 = bitmap 320 x 240 x 256c
|
||||||
|
; mode 128 = bitmap 640 x 480 x 1c monochrome
|
||||||
|
; ...
|
||||||
|
|
||||||
|
when mode {
|
||||||
|
0 -> {
|
||||||
|
; 320 x 240 x 256c
|
||||||
|
cx16.VERA_DC_VIDEO = (cx16.VERA_DC_VIDEO & %11001111) | %00100000 ; enable only layer 1
|
||||||
|
cx16.VERA_DC_HSCALE = 64
|
||||||
|
cx16.VERA_DC_VSCALE = 64
|
||||||
|
cx16.VERA_L1_CONFIG = %00000111
|
||||||
|
cx16.VERA_L1_MAPBASE = 0
|
||||||
|
cx16.VERA_L1_TILEBASE = 0
|
||||||
|
width = 320
|
||||||
|
height = 240
|
||||||
|
bpp = 8
|
||||||
|
}
|
||||||
|
128 -> {
|
||||||
|
; 640 x 480 x 1c
|
||||||
|
cx16.VERA_DC_VIDEO = (cx16.VERA_DC_VIDEO & %11001111) | %00100000 ; enable only layer 1
|
||||||
|
cx16.VERA_DC_HSCALE = 128
|
||||||
|
cx16.VERA_DC_VSCALE = 128
|
||||||
|
cx16.VERA_L1_CONFIG = %00000100
|
||||||
|
cx16.VERA_L1_MAPBASE = 0
|
||||||
|
cx16.VERA_L1_TILEBASE = %00000001
|
||||||
|
width = 640
|
||||||
|
height = 480
|
||||||
|
bpp = 1
|
||||||
|
}
|
||||||
|
}
|
||||||
|
active_mode = mode
|
||||||
|
}
|
||||||
|
|
||||||
|
sub clear_screen() {
|
||||||
|
when active_mode {
|
||||||
|
0 -> {
|
||||||
|
; 320 x 240 x 256c
|
||||||
|
cx16.VERA_CTRL = 0
|
||||||
|
cx16.VERA_ADDR_H = %00010000
|
||||||
|
cx16.VERA_ADDR_M = 0
|
||||||
|
cx16.VERA_ADDR_L = 0
|
||||||
|
repeat 240/4
|
||||||
|
cs_innerloop1280()
|
||||||
|
}
|
||||||
|
128 -> {
|
||||||
|
; 640 x 480 x 1c
|
||||||
|
cx16.VERA_CTRL = 0
|
||||||
|
cx16.VERA_ADDR_H = %00010000
|
||||||
|
cx16.VERA_ADDR_M = 0
|
||||||
|
cx16.VERA_ADDR_L = 0
|
||||||
|
repeat 480/16
|
||||||
|
cs_innerloop1280()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
asmsub cs_innerloop1280() {
|
||||||
|
%asm {{
|
||||||
|
ldy #160
|
||||||
|
- stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
stz cx16.VERA_DATA0
|
||||||
|
dey
|
||||||
|
bne -
|
||||||
|
rts
|
||||||
|
}}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub plot(uword x, uword y, ubyte color) {
|
||||||
|
uword addr
|
||||||
|
ubyte addrhi
|
||||||
|
|
||||||
|
when active_mode {
|
||||||
|
0 -> {
|
||||||
|
; TODO problem when y>=204 and x=..something... then the address gets > 64K; so we really need 24 bit address calculations...
|
||||||
|
addr = y
|
||||||
|
addr_mul_24_320()
|
||||||
|
addr_add_word_24(x)
|
||||||
|
cx16.vpoke(addrhi, addr, color)
|
||||||
|
}
|
||||||
|
128 -> {
|
||||||
|
ubyte[8] bits = [128, 64, 32, 16, 8, 4, 2, 1]
|
||||||
|
addr = 0
|
||||||
|
addr += y*(640/8)
|
||||||
|
addr += x/8
|
||||||
|
ubyte pix = cx16.vpeek(0, addr) | bits[lsb(x)&7]
|
||||||
|
cx16.vpoke(0, addr, pix)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
; TODO when subs are in front of real code, they generate in place and fuck up the code. Move them to the bottom?
|
||||||
|
asmsub addr_mul_24_320() {
|
||||||
|
; addr = addr * 256 + addr * 64, bits 16-23 into addrhi
|
||||||
|
%asm {{
|
||||||
|
lda addr
|
||||||
|
sta P8ZP_SCRATCH_B1
|
||||||
|
lda addr+1
|
||||||
|
sta addrhi
|
||||||
|
sta P8ZP_SCRATCH_REG
|
||||||
|
lda addr
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
asl a
|
||||||
|
rol P8ZP_SCRATCH_REG
|
||||||
|
sta addr
|
||||||
|
lda P8ZP_SCRATCH_B1
|
||||||
|
clc
|
||||||
|
adc P8ZP_SCRATCH_REG
|
||||||
|
sta addr+1
|
||||||
|
bcc +
|
||||||
|
inc addrhi
|
||||||
|
+ rts
|
||||||
|
}}
|
||||||
|
}
|
||||||
|
|
||||||
|
asmsub addr_add_word_24(uword w @ AY) {
|
||||||
|
%asm {{
|
||||||
|
clc
|
||||||
|
adc addr
|
||||||
|
sta addr
|
||||||
|
tya
|
||||||
|
adc addr+1
|
||||||
|
sta addr+1
|
||||||
|
bcc +
|
||||||
|
inc addrhi
|
||||||
|
+ rts
|
||||||
|
}}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user