mirror of
https://gitlab.com/camelot/kickc.git
synced 2025-04-05 07:40:39 +00:00
Split into 16-bit and 8-bit tests. Added a ref-test.
This commit is contained in:
jespergravgaard
parent
83ed437553
commit
b3e7b6da8f
@ -36,7 +36,17 @@ public class TestPrograms {
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testCordicAtan2() throws IOException, URISyntaxException {
|
||||
public void testCordicAtan2Ref() throws IOException, URISyntaxException {
|
||||
compileAndCompare("cordic-atan2-16-ref");
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testCordicAtan2_16() throws IOException, URISyntaxException {
|
||||
compileAndCompare("cordic-atan2-16");
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testCordicAtan2_8() throws IOException, URISyntaxException {
|
||||
compileAndCompare("cordic-atan2");
|
||||
}
|
||||
|
||||
|
||||
41
src/test/kc/cordic-atan2-16-ref.kc
Normal file
41
src/test/kc/cordic-atan2-16-ref.kc
Normal file
@ -0,0 +1,41 @@
|
||||
// Find atan2(x, y) using the CORDIC method
|
||||
// See http://bsvi.ru/uploads/CORDIC--_10EBA/cordic.pdf
|
||||
|
||||
import "font-hex"
|
||||
import "atan2"
|
||||
import "c64"
|
||||
|
||||
const byte* CHARSET = 0x2000;
|
||||
const byte* SCREEN = 0x2800;
|
||||
const byte* SCREEN_REF = 0x2c00;
|
||||
|
||||
kickasm(pc SCREEN_REF) {{
|
||||
.for(var y=-12;y<=12;y++)
|
||||
.for(var x=-19;x<=20;x++)
|
||||
.byte round(256*atan2(y, x)/PI/2)
|
||||
}}
|
||||
|
||||
|
||||
void main() {
|
||||
init_font_hex(CHARSET);
|
||||
*D018 = toD018(SCREEN, CHARSET);
|
||||
|
||||
byte* screen = SCREEN;
|
||||
byte* screen_ref = SCREEN_REF;
|
||||
for(signed byte y: -12..12) {
|
||||
for(signed byte x: -19..20) {
|
||||
//byte angle_b = atan2_8(x, y);
|
||||
signed word xw = (signed word)(word){ (byte)x, 0 };
|
||||
signed word yw = (signed word)(word){ (byte)y, 0 };
|
||||
word angle_w = atan2_16(xw, yw);
|
||||
//*screen++ = (>angle_w)-angle_b;
|
||||
//*screen++ = >angle_w;
|
||||
*screen++ = (>(angle_w+0x0080)) - *screen_ref++;
|
||||
//*screen++ = angle_b - *screen_ref++;
|
||||
//*screen++ = *screen_ref++;
|
||||
}
|
||||
}
|
||||
byte* col00 = COLS+12*40+19;
|
||||
while(true) (*col00)++;
|
||||
}
|
||||
|
||||
389
src/test/ref/cordic-atan2-16-ref.asm
Normal file
389
src/test/ref/cordic-atan2-16-ref.asm
Normal file
@ -0,0 +1,389 @@
|
||||
// Find atan2(x, y) using the CORDIC method
|
||||
// See http://bsvi.ru/uploads/CORDIC--_10EBA/cordic.pdf
|
||||
.pc = $801 "Basic"
|
||||
:BasicUpstart(main)
|
||||
.pc = $80d "Program"
|
||||
// The number of iterations performed during 16-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_16 = $f
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_16 = $1000
|
||||
// The number of iterations performed during 8-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_8 = 8
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_8 = $1100
|
||||
.label D018 = $d018
|
||||
// Color Ram
|
||||
.label COLS = $d800
|
||||
.label CHARSET = $2000
|
||||
.label SCREEN = $2800
|
||||
.label SCREEN_REF = $2c00
|
||||
// Populate cordic angles table
|
||||
// Populate cordic angles table
|
||||
main: {
|
||||
.const toD0181_return = (>(SCREEN&$3fff)*4)|(>CHARSET)/4&$f
|
||||
.label _11 = $c
|
||||
.label xw = $17
|
||||
.label yw = $19
|
||||
.label angle_w = $c
|
||||
.label screen = 5
|
||||
.label screen_ref = 3
|
||||
.label y = 2
|
||||
jsr init_font_hex
|
||||
lda #toD0181_return
|
||||
sta D018
|
||||
lda #<SCREEN
|
||||
sta screen
|
||||
lda #>SCREEN
|
||||
sta screen+1
|
||||
lda #<SCREEN_REF
|
||||
sta screen_ref
|
||||
lda #>SCREEN_REF
|
||||
sta screen_ref+1
|
||||
lda #-$c
|
||||
sta y
|
||||
b1:
|
||||
ldx #-$13
|
||||
b2:
|
||||
ldy #0
|
||||
txa
|
||||
sta xw+1
|
||||
sty xw
|
||||
lda y
|
||||
sta yw+1
|
||||
sty yw
|
||||
jsr atan2_16
|
||||
lda #$80
|
||||
clc
|
||||
adc _11
|
||||
sta _11
|
||||
bcc !+
|
||||
inc _11+1
|
||||
!:
|
||||
lda _11+1
|
||||
sec
|
||||
ldy #0
|
||||
sbc (screen_ref),y
|
||||
//*screen++ = (>angle_w)-angle_b;
|
||||
//*screen++ = >angle_w;
|
||||
sta (screen),y
|
||||
inc screen
|
||||
bne !+
|
||||
inc screen+1
|
||||
!:
|
||||
inc screen_ref
|
||||
bne !+
|
||||
inc screen_ref+1
|
||||
!:
|
||||
inx
|
||||
cpx #$15
|
||||
bne b2
|
||||
inc y
|
||||
lda #$d
|
||||
cmp y
|
||||
bne b1
|
||||
b4:
|
||||
lda COLS+$c*$28+$13
|
||||
clc
|
||||
adc #1
|
||||
sta COLS+$c*$28+$13
|
||||
jmp b4
|
||||
}
|
||||
// Find the atan2(x, y) - which is the angle of the line from (0,0) to (x,y)
|
||||
// Finding the angle requires a binary search using CORDIC_ITERATIONS_16
|
||||
// Returns the angle in hex-degrees (0=0, 0x8000=PI, 0x10000=2*PI)
|
||||
// atan2_16(signed word zeropage($17) x, signed word zeropage($19) y)
|
||||
atan2_16: {
|
||||
.label _2 = 7
|
||||
.label _7 = 9
|
||||
.label yi = 7
|
||||
.label xi = 9
|
||||
.label xd = $1b
|
||||
.label yd = $1d
|
||||
.label angle = $c
|
||||
.label i = $b
|
||||
.label return = $c
|
||||
.label x = $17
|
||||
.label y = $19
|
||||
lda y+1
|
||||
bne !+
|
||||
lda y
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bmi !b1+
|
||||
jmp b1
|
||||
!b1:
|
||||
!e:
|
||||
sec
|
||||
lda #0
|
||||
sbc y
|
||||
sta _2
|
||||
lda #0
|
||||
sbc y+1
|
||||
sta _2+1
|
||||
b3:
|
||||
lda x+1
|
||||
bne !+
|
||||
lda x
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bmi !b4+
|
||||
jmp b4
|
||||
!b4:
|
||||
!e:
|
||||
sec
|
||||
lda #0
|
||||
sbc x
|
||||
sta _7
|
||||
lda #0
|
||||
sbc x+1
|
||||
sta _7+1
|
||||
b6:
|
||||
lda #0
|
||||
sta angle
|
||||
sta angle+1
|
||||
sta i
|
||||
b10:
|
||||
lda yi+1
|
||||
bne b11
|
||||
lda yi
|
||||
bne b11
|
||||
b12:
|
||||
lsr angle+1
|
||||
ror angle
|
||||
lda x+1
|
||||
bpl b7
|
||||
sec
|
||||
lda #<$8000
|
||||
sbc angle
|
||||
sta angle
|
||||
lda #>$8000
|
||||
sbc angle+1
|
||||
sta angle+1
|
||||
b7:
|
||||
lda y+1
|
||||
bpl b8
|
||||
sec
|
||||
lda #0
|
||||
sbc angle
|
||||
sta angle
|
||||
lda #0
|
||||
sbc angle+1
|
||||
sta angle+1
|
||||
b8:
|
||||
rts
|
||||
b11:
|
||||
ldy i
|
||||
lda xi
|
||||
sta xd
|
||||
lda xi+1
|
||||
sta xd+1
|
||||
cpy #0
|
||||
beq !e+
|
||||
!:
|
||||
lda xd+1
|
||||
cmp #$80
|
||||
ror xd+1
|
||||
ror xd
|
||||
dey
|
||||
bne !-
|
||||
!e:
|
||||
ldy i
|
||||
lda yi
|
||||
sta yd
|
||||
lda yi+1
|
||||
sta yd+1
|
||||
cpy #0
|
||||
beq !e+
|
||||
!:
|
||||
lda yd+1
|
||||
cmp #$80
|
||||
ror yd+1
|
||||
ror yd
|
||||
dey
|
||||
bne !-
|
||||
!e:
|
||||
lda yi+1
|
||||
bne !+
|
||||
lda yi
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bpl b13
|
||||
!e:
|
||||
lda xi
|
||||
sec
|
||||
sbc yd
|
||||
sta xi
|
||||
lda xi+1
|
||||
sbc yd+1
|
||||
sta xi+1
|
||||
lda yi
|
||||
clc
|
||||
adc xd
|
||||
sta yi
|
||||
lda yi+1
|
||||
adc xd+1
|
||||
sta yi+1
|
||||
lda i
|
||||
asl
|
||||
tay
|
||||
sec
|
||||
lda angle
|
||||
sbc CORDIC_ATAN2_ANGLES_16,y
|
||||
sta angle
|
||||
lda angle+1
|
||||
sbc CORDIC_ATAN2_ANGLES_16+1,y
|
||||
sta angle+1
|
||||
b14:
|
||||
inc i
|
||||
lda #CORDIC_ITERATIONS_16+1
|
||||
cmp i
|
||||
bne !b12+
|
||||
jmp b12
|
||||
!b12:
|
||||
jmp b10
|
||||
b13:
|
||||
lda xi
|
||||
clc
|
||||
adc yd
|
||||
sta xi
|
||||
lda xi+1
|
||||
adc yd+1
|
||||
sta xi+1
|
||||
lda yi
|
||||
sec
|
||||
sbc xd
|
||||
sta yi
|
||||
lda yi+1
|
||||
sbc xd+1
|
||||
sta yi+1
|
||||
lda i
|
||||
asl
|
||||
tay
|
||||
clc
|
||||
lda angle
|
||||
adc CORDIC_ATAN2_ANGLES_16,y
|
||||
sta angle
|
||||
lda angle+1
|
||||
adc CORDIC_ATAN2_ANGLES_16+1,y
|
||||
sta angle+1
|
||||
jmp b14
|
||||
b4:
|
||||
lda x
|
||||
sta xi
|
||||
lda x+1
|
||||
sta xi+1
|
||||
jmp b6
|
||||
b1:
|
||||
lda y
|
||||
sta yi
|
||||
lda y+1
|
||||
sta yi+1
|
||||
jmp b3
|
||||
}
|
||||
// Make charset from proto chars
|
||||
// init_font_hex(byte* zeropage($11) charset)
|
||||
init_font_hex: {
|
||||
.label _0 = $1f
|
||||
.label idx = $16
|
||||
.label proto_lo = $13
|
||||
.label charset = $11
|
||||
.label c1 = $15
|
||||
.label proto_hi = $e
|
||||
.label c = $10
|
||||
lda #0
|
||||
sta c
|
||||
lda #<FONT_HEX_PROTO
|
||||
sta proto_hi
|
||||
lda #>FONT_HEX_PROTO
|
||||
sta proto_hi+1
|
||||
lda #<CHARSET
|
||||
sta charset
|
||||
lda #>CHARSET
|
||||
sta charset+1
|
||||
b1:
|
||||
lda #0
|
||||
sta c1
|
||||
lda #<FONT_HEX_PROTO
|
||||
sta proto_lo
|
||||
lda #>FONT_HEX_PROTO
|
||||
sta proto_lo+1
|
||||
b2:
|
||||
lda #0
|
||||
tay
|
||||
sta (charset),y
|
||||
lda #1
|
||||
sta idx
|
||||
ldx #0
|
||||
b3:
|
||||
txa
|
||||
tay
|
||||
lda (proto_hi),y
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
sta _0
|
||||
txa
|
||||
tay
|
||||
lda (proto_lo),y
|
||||
asl
|
||||
ora _0
|
||||
ldy idx
|
||||
sta (charset),y
|
||||
inc idx
|
||||
inx
|
||||
cpx #5
|
||||
bne b3
|
||||
lda #0
|
||||
ldy idx
|
||||
sta (charset),y
|
||||
iny
|
||||
sta (charset),y
|
||||
lda #5
|
||||
clc
|
||||
adc proto_lo
|
||||
sta proto_lo
|
||||
bcc !+
|
||||
inc proto_lo+1
|
||||
!:
|
||||
lda #8
|
||||
clc
|
||||
adc charset
|
||||
sta charset
|
||||
bcc !+
|
||||
inc charset+1
|
||||
!:
|
||||
inc c1
|
||||
lda #$10
|
||||
cmp c1
|
||||
bne b2
|
||||
lda #5
|
||||
clc
|
||||
adc proto_hi
|
||||
sta proto_hi
|
||||
bcc !+
|
||||
inc proto_hi+1
|
||||
!:
|
||||
inc c
|
||||
lda #$10
|
||||
cmp c
|
||||
bne b1
|
||||
rts
|
||||
}
|
||||
// Bit patterns for symbols 0-f (3x5 pixels) used in font hex
|
||||
FONT_HEX_PROTO: .byte 2, 5, 5, 5, 2, 6, 2, 2, 2, 7, 6, 1, 2, 4, 7, 6, 1, 2, 1, 6, 5, 5, 7, 1, 1, 7, 4, 6, 1, 6, 3, 4, 6, 5, 2, 7, 1, 1, 1, 1, 2, 5, 2, 5, 2, 2, 5, 3, 1, 1, 2, 5, 7, 5, 5, 6, 5, 6, 5, 6, 2, 5, 4, 5, 2, 6, 5, 5, 5, 6, 7, 4, 6, 4, 7, 7, 4, 6, 4, 4
|
||||
.pc = CORDIC_ATAN2_ANGLES_16 "CORDIC_ATAN2_ANGLES_16"
|
||||
.for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
.pc = CORDIC_ATAN2_ANGLES_8 "CORDIC_ATAN2_ANGLES_8"
|
||||
.fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
.pc = SCREEN_REF "SCREEN_REF"
|
||||
.for(var y=-12;y<=12;y++)
|
||||
.for(var x=-19;x<=20;x++)
|
||||
.byte round(256*atan2(y, x)/PI/2)
|
||||
|
||||
184
src/test/ref/cordic-atan2-16-ref.cfg
Normal file
184
src/test/ref/cordic-atan2-16-ref.cfg
Normal file
@ -0,0 +1,184 @@
|
||||
@begin: scope:[] from
|
||||
[0] phi()
|
||||
to:@1
|
||||
@1: scope:[] from @begin
|
||||
kickasm(location (const word*) CORDIC_ATAN2_ANGLES_16#0 uses CORDIC_ITERATIONS_16#0) {{ .for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@2
|
||||
@2: scope:[] from @1
|
||||
kickasm(location (const byte*) CORDIC_ATAN2_ANGLES_8#0 uses CORDIC_ITERATIONS_8#0) {{ .fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@3
|
||||
@3: scope:[] from @2
|
||||
kickasm(location (const byte*) SCREEN_REF#0) {{ .for(var y=-12;y<=12;y++)
|
||||
.for(var x=-19;x<=20;x++)
|
||||
.byte round(256*atan2(y, x)/PI/2)
|
||||
}}
|
||||
to:@4
|
||||
@4: scope:[] from @3
|
||||
[4] phi()
|
||||
[5] call main
|
||||
to:@end
|
||||
@end: scope:[] from @4
|
||||
[6] phi()
|
||||
main: scope:[main] from @4
|
||||
[7] phi()
|
||||
[8] call init_font_hex
|
||||
to:main::toD0181
|
||||
main::toD0181: scope:[main] from main
|
||||
[9] phi()
|
||||
to:main::@5
|
||||
main::@5: scope:[main] from main::toD0181
|
||||
[10] *((const byte*) D018#0) ← (const byte) main::toD0181_return#0
|
||||
to:main::@1
|
||||
main::@1: scope:[main] from main::@3 main::@5
|
||||
[11] (byte*) main::screen#4 ← phi( main::@5/(const byte*) SCREEN#0 main::@3/(byte*) main::screen#1 )
|
||||
[11] (byte*) main::screen_ref#4 ← phi( main::@5/(const byte*) SCREEN_REF#0 main::@3/(byte*) main::screen_ref#1 )
|
||||
[11] (signed byte) main::y#4 ← phi( main::@5/(signed byte) -$c main::@3/(signed byte) main::y#1 )
|
||||
to:main::@2
|
||||
main::@2: scope:[main] from main::@1 main::@6
|
||||
[12] (byte*) main::screen#2 ← phi( main::@1/(byte*) main::screen#4 main::@6/(byte*) main::screen#1 )
|
||||
[12] (byte*) main::screen_ref#2 ← phi( main::@1/(byte*) main::screen_ref#4 main::@6/(byte*) main::screen_ref#1 )
|
||||
[12] (signed byte) main::x#2 ← phi( main::@1/(signed byte) -$13 main::@6/(signed byte) main::x#1 )
|
||||
[13] (word) main::xw#0 ← (byte)(signed byte) main::x#2 w= (byte) 0
|
||||
[14] (word) main::yw#0 ← (byte)(signed byte) main::y#4 w= (byte) 0
|
||||
[15] (signed word) atan2_16::x#0 ← (signed word)(word) main::xw#0
|
||||
[16] (signed word) atan2_16::y#0 ← (signed word)(word) main::yw#0
|
||||
[17] call atan2_16
|
||||
[18] (word) atan2_16::return#2 ← (word) atan2_16::return#0
|
||||
to:main::@6
|
||||
main::@6: scope:[main] from main::@2
|
||||
[19] (word) main::angle_w#0 ← (word) atan2_16::return#2
|
||||
[20] (word~) main::$11 ← (word) main::angle_w#0 + (byte) $80
|
||||
[21] (byte~) main::$12 ← > (word~) main::$11
|
||||
[22] (byte~) main::$13 ← (byte~) main::$12 - *((byte*) main::screen_ref#2)
|
||||
[23] *((byte*) main::screen#2) ← (byte~) main::$13
|
||||
[24] (byte*) main::screen#1 ← ++ (byte*) main::screen#2
|
||||
[25] (byte*) main::screen_ref#1 ← ++ (byte*) main::screen_ref#2
|
||||
[26] (signed byte) main::x#1 ← ++ (signed byte) main::x#2
|
||||
[27] if((signed byte) main::x#1!=(signed byte) $15) goto main::@2
|
||||
to:main::@3
|
||||
main::@3: scope:[main] from main::@6
|
||||
[28] (signed byte) main::y#1 ← ++ (signed byte) main::y#4
|
||||
[29] if((signed byte) main::y#1!=(signed byte) $d) goto main::@1
|
||||
to:main::@4
|
||||
main::@4: scope:[main] from main::@3 main::@4
|
||||
[30] *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13) ← ++ *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13)
|
||||
to:main::@4
|
||||
atan2_16: scope:[atan2_16] from main::@2
|
||||
[31] if((signed word) atan2_16::y#0>(signed byte) 0) goto atan2_16::@1
|
||||
to:atan2_16::@2
|
||||
atan2_16::@2: scope:[atan2_16] from atan2_16
|
||||
[32] (signed word~) atan2_16::$2 ← - (signed word) atan2_16::y#0
|
||||
to:atan2_16::@3
|
||||
atan2_16::@3: scope:[atan2_16] from atan2_16::@1 atan2_16::@2
|
||||
[33] (signed word) atan2_16::yi#0 ← phi( atan2_16::@1/(signed word~) atan2_16::yi#11 atan2_16::@2/(signed word~) atan2_16::$2 )
|
||||
[34] if((signed word) atan2_16::x#0>(signed byte) 0) goto atan2_16::@4
|
||||
to:atan2_16::@5
|
||||
atan2_16::@5: scope:[atan2_16] from atan2_16::@3
|
||||
[35] (signed word~) atan2_16::$7 ← - (signed word) atan2_16::x#0
|
||||
to:atan2_16::@6
|
||||
atan2_16::@6: scope:[atan2_16] from atan2_16::@4 atan2_16::@5
|
||||
[36] (signed word) atan2_16::xi#0 ← phi( atan2_16::@4/(signed word~) atan2_16::xi#8 atan2_16::@5/(signed word~) atan2_16::$7 )
|
||||
to:atan2_16::@10
|
||||
atan2_16::@10: scope:[atan2_16] from atan2_16::@14 atan2_16::@6
|
||||
[37] (word) atan2_16::angle#12 ← phi( atan2_16::@14/(word) atan2_16::angle#13 atan2_16::@6/(byte) 0 )
|
||||
[37] (byte) atan2_16::i#2 ← phi( atan2_16::@14/(byte) atan2_16::i#1 atan2_16::@6/(byte) 0 )
|
||||
[37] (signed word) atan2_16::xi#3 ← phi( atan2_16::@14/(signed word) atan2_16::xi#7 atan2_16::@6/(signed word) atan2_16::xi#0 )
|
||||
[37] (signed word) atan2_16::yi#3 ← phi( atan2_16::@14/(signed word) atan2_16::yi#7 atan2_16::@6/(signed word) atan2_16::yi#0 )
|
||||
[38] if((signed word) atan2_16::yi#3!=(signed byte) 0) goto atan2_16::@11
|
||||
to:atan2_16::@12
|
||||
atan2_16::@12: scope:[atan2_16] from atan2_16::@10 atan2_16::@14
|
||||
[39] (word) atan2_16::angle#6 ← phi( atan2_16::@10/(word) atan2_16::angle#12 atan2_16::@14/(word) atan2_16::angle#13 )
|
||||
[40] (word) atan2_16::angle#1 ← (word) atan2_16::angle#6 >> (byte) 1
|
||||
[41] if((signed word) atan2_16::x#0>=(signed byte) 0) goto atan2_16::@7
|
||||
to:atan2_16::@16
|
||||
atan2_16::@16: scope:[atan2_16] from atan2_16::@12
|
||||
[42] (word) atan2_16::angle#4 ← (word) $8000 - (word) atan2_16::angle#1
|
||||
to:atan2_16::@7
|
||||
atan2_16::@7: scope:[atan2_16] from atan2_16::@12 atan2_16::@16
|
||||
[43] (word) atan2_16::angle#11 ← phi( atan2_16::@12/(word) atan2_16::angle#1 atan2_16::@16/(word) atan2_16::angle#4 )
|
||||
[44] if((signed word) atan2_16::y#0>=(signed byte) 0) goto atan2_16::@8
|
||||
to:atan2_16::@9
|
||||
atan2_16::@9: scope:[atan2_16] from atan2_16::@7
|
||||
[45] (word) atan2_16::angle#5 ← - (word) atan2_16::angle#11
|
||||
to:atan2_16::@8
|
||||
atan2_16::@8: scope:[atan2_16] from atan2_16::@7 atan2_16::@9
|
||||
[46] (word) atan2_16::return#0 ← phi( atan2_16::@9/(word) atan2_16::angle#5 atan2_16::@7/(word) atan2_16::angle#11 )
|
||||
to:atan2_16::@return
|
||||
atan2_16::@return: scope:[atan2_16] from atan2_16::@8
|
||||
[47] return
|
||||
to:@return
|
||||
atan2_16::@11: scope:[atan2_16] from atan2_16::@10
|
||||
[48] (signed word) atan2_16::xd#0 ← (signed word) atan2_16::xi#3 >> (byte) atan2_16::i#2
|
||||
[49] (signed word) atan2_16::yd#0 ← (signed word) atan2_16::yi#3 >> (byte) atan2_16::i#2
|
||||
[50] if((signed word) atan2_16::yi#3>(signed byte) 0) goto atan2_16::@13
|
||||
to:atan2_16::@15
|
||||
atan2_16::@15: scope:[atan2_16] from atan2_16::@11
|
||||
[51] (signed word) atan2_16::xi#2 ← (signed word) atan2_16::xi#3 - (signed word) atan2_16::yd#0
|
||||
[52] (signed word) atan2_16::yi#2 ← (signed word) atan2_16::yi#3 + (signed word) atan2_16::xd#0
|
||||
[53] (byte~) atan2_16::$23 ← (byte) atan2_16::i#2 << (byte) 1
|
||||
[54] (word) atan2_16::angle#3 ← (word) atan2_16::angle#12 - *((const word*) CORDIC_ATAN2_ANGLES_16#0 + (byte~) atan2_16::$23)
|
||||
to:atan2_16::@14
|
||||
atan2_16::@14: scope:[atan2_16] from atan2_16::@13 atan2_16::@15
|
||||
[55] (signed word) atan2_16::xi#7 ← phi( atan2_16::@13/(signed word) atan2_16::xi#1 atan2_16::@15/(signed word) atan2_16::xi#2 )
|
||||
[55] (word) atan2_16::angle#13 ← phi( atan2_16::@13/(word) atan2_16::angle#2 atan2_16::@15/(word) atan2_16::angle#3 )
|
||||
[55] (signed word) atan2_16::yi#7 ← phi( atan2_16::@13/(signed word) atan2_16::yi#1 atan2_16::@15/(signed word) atan2_16::yi#2 )
|
||||
[56] (byte) atan2_16::i#1 ← ++ (byte) atan2_16::i#2
|
||||
[57] if((byte) atan2_16::i#1==(const byte) CORDIC_ITERATIONS_16#0+(byte) 1) goto atan2_16::@12
|
||||
to:atan2_16::@10
|
||||
atan2_16::@13: scope:[atan2_16] from atan2_16::@11
|
||||
[58] (signed word) atan2_16::xi#1 ← (signed word) atan2_16::xi#3 + (signed word) atan2_16::yd#0
|
||||
[59] (signed word) atan2_16::yi#1 ← (signed word) atan2_16::yi#3 - (signed word) atan2_16::xd#0
|
||||
[60] (byte~) atan2_16::$22 ← (byte) atan2_16::i#2 << (byte) 1
|
||||
[61] (word) atan2_16::angle#2 ← (word) atan2_16::angle#12 + *((const word*) CORDIC_ATAN2_ANGLES_16#0 + (byte~) atan2_16::$22)
|
||||
to:atan2_16::@14
|
||||
atan2_16::@4: scope:[atan2_16] from atan2_16::@3
|
||||
[62] (signed word~) atan2_16::xi#8 ← (signed word) atan2_16::x#0
|
||||
to:atan2_16::@6
|
||||
atan2_16::@1: scope:[atan2_16] from atan2_16
|
||||
[63] (signed word~) atan2_16::yi#11 ← (signed word) atan2_16::y#0
|
||||
to:atan2_16::@3
|
||||
init_font_hex: scope:[init_font_hex] from main
|
||||
[64] phi()
|
||||
to:init_font_hex::@1
|
||||
init_font_hex::@1: scope:[init_font_hex] from init_font_hex init_font_hex::@5
|
||||
[65] (byte) init_font_hex::c#6 ← phi( init_font_hex/(byte) 0 init_font_hex::@5/(byte) init_font_hex::c#1 )
|
||||
[65] (byte*) init_font_hex::proto_hi#6 ← phi( init_font_hex/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@5/(byte*) init_font_hex::proto_hi#1 )
|
||||
[65] (byte*) init_font_hex::charset#5 ← phi( init_font_hex/(const byte*) CHARSET#0 init_font_hex::@5/(byte*) init_font_hex::charset#0 )
|
||||
to:init_font_hex::@2
|
||||
init_font_hex::@2: scope:[init_font_hex] from init_font_hex::@1 init_font_hex::@4
|
||||
[66] (byte) init_font_hex::c1#4 ← phi( init_font_hex::@1/(byte) 0 init_font_hex::@4/(byte) init_font_hex::c1#1 )
|
||||
[66] (byte*) init_font_hex::proto_lo#4 ← phi( init_font_hex::@1/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@4/(byte*) init_font_hex::proto_lo#1 )
|
||||
[66] (byte*) init_font_hex::charset#2 ← phi( init_font_hex::@1/(byte*) init_font_hex::charset#5 init_font_hex::@4/(byte*) init_font_hex::charset#0 )
|
||||
[67] *((byte*) init_font_hex::charset#2) ← (byte) 0
|
||||
to:init_font_hex::@3
|
||||
init_font_hex::@3: scope:[init_font_hex] from init_font_hex::@2 init_font_hex::@3
|
||||
[68] (byte) init_font_hex::idx#5 ← phi( init_font_hex::@2/(byte) 1 init_font_hex::@3/(byte) init_font_hex::idx#2 )
|
||||
[68] (byte) init_font_hex::i#2 ← phi( init_font_hex::@2/(byte) 0 init_font_hex::@3/(byte) init_font_hex::i#1 )
|
||||
[69] (byte~) init_font_hex::$0 ← *((byte*) init_font_hex::proto_hi#6 + (byte) init_font_hex::i#2) << (byte) 4
|
||||
[70] (byte~) init_font_hex::$1 ← *((byte*) init_font_hex::proto_lo#4 + (byte) init_font_hex::i#2) << (byte) 1
|
||||
[71] (byte~) init_font_hex::$2 ← (byte~) init_font_hex::$0 | (byte~) init_font_hex::$1
|
||||
[72] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#5) ← (byte~) init_font_hex::$2
|
||||
[73] (byte) init_font_hex::idx#2 ← ++ (byte) init_font_hex::idx#5
|
||||
[74] (byte) init_font_hex::i#1 ← ++ (byte) init_font_hex::i#2
|
||||
[75] if((byte) init_font_hex::i#1!=(byte) 5) goto init_font_hex::@3
|
||||
to:init_font_hex::@4
|
||||
init_font_hex::@4: scope:[init_font_hex] from init_font_hex::@3
|
||||
[76] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#2) ← (byte) 0
|
||||
[77] (byte) init_font_hex::idx#3 ← ++ (byte) init_font_hex::idx#2
|
||||
[78] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#3) ← (byte) 0
|
||||
[79] (byte*) init_font_hex::proto_lo#1 ← (byte*) init_font_hex::proto_lo#4 + (byte) 5
|
||||
[80] (byte*) init_font_hex::charset#0 ← (byte*) init_font_hex::charset#2 + (byte) 8
|
||||
[81] (byte) init_font_hex::c1#1 ← ++ (byte) init_font_hex::c1#4
|
||||
[82] if((byte) init_font_hex::c1#1!=(byte) $10) goto init_font_hex::@2
|
||||
to:init_font_hex::@5
|
||||
init_font_hex::@5: scope:[init_font_hex] from init_font_hex::@4
|
||||
[83] (byte*) init_font_hex::proto_hi#1 ← (byte*) init_font_hex::proto_hi#6 + (byte) 5
|
||||
[84] (byte) init_font_hex::c#1 ← ++ (byte) init_font_hex::c#6
|
||||
[85] if((byte) init_font_hex::c#1!=(byte) $10) goto init_font_hex::@1
|
||||
to:init_font_hex::@return
|
||||
init_font_hex::@return: scope:[init_font_hex] from init_font_hex::@5
|
||||
[86] return
|
||||
to:@return
|
||||
4175
src/test/ref/cordic-atan2-16-ref.log
Normal file
4175
src/test/ref/cordic-atan2-16-ref.log
Normal file
File diff suppressed because it is too large
Load Diff
192
src/test/ref/cordic-atan2-16-ref.sym
Normal file
192
src/test/ref/cordic-atan2-16-ref.sym
Normal file
@ -0,0 +1,192 @@
|
||||
(label) @1
|
||||
(label) @2
|
||||
(label) @3
|
||||
(label) @4
|
||||
(label) @begin
|
||||
(label) @end
|
||||
(byte*) CHARSET
|
||||
(const byte*) CHARSET#0 CHARSET = (byte*) 8192
|
||||
(byte*) COLS
|
||||
(const byte*) COLS#0 COLS = (byte*) 55296
|
||||
(word*) CORDIC_ATAN2_ANGLES_16
|
||||
(const word*) CORDIC_ATAN2_ANGLES_16#0 CORDIC_ATAN2_ANGLES_16 = (word*) 4096
|
||||
(byte*) CORDIC_ATAN2_ANGLES_8
|
||||
(const byte*) CORDIC_ATAN2_ANGLES_8#0 CORDIC_ATAN2_ANGLES_8 = (byte*) 4352
|
||||
(byte) CORDIC_ITERATIONS_16
|
||||
(const byte) CORDIC_ITERATIONS_16#0 CORDIC_ITERATIONS_16 = (byte) $f
|
||||
(byte) CORDIC_ITERATIONS_8
|
||||
(const byte) CORDIC_ITERATIONS_8#0 CORDIC_ITERATIONS_8 = (byte) 8
|
||||
(byte*) D018
|
||||
(const byte*) D018#0 D018 = (byte*) 53272
|
||||
(byte[]) FONT_HEX_PROTO
|
||||
(const byte[]) FONT_HEX_PROTO#0 FONT_HEX_PROTO = { (byte) 2, (byte) 5, (byte) 5, (byte) 5, (byte) 2, (byte) 6, (byte) 2, (byte) 2, (byte) 2, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 4, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 1, (byte) 6, (byte) 5, (byte) 5, (byte) 7, (byte) 1, (byte) 1, (byte) 7, (byte) 4, (byte) 6, (byte) 1, (byte) 6, (byte) 3, (byte) 4, (byte) 6, (byte) 5, (byte) 2, (byte) 7, (byte) 1, (byte) 1, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 2, (byte) 5, (byte) 2, (byte) 2, (byte) 5, (byte) 3, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 7, (byte) 5, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 2, (byte) 5, (byte) 4, (byte) 5, (byte) 2, (byte) 6, (byte) 5, (byte) 5, (byte) 5, (byte) 6, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 7, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 4 }
|
||||
(byte*) SCREEN
|
||||
(const byte*) SCREEN#0 SCREEN = (byte*) 10240
|
||||
(byte*) SCREEN_REF
|
||||
(const byte*) SCREEN_REF#0 SCREEN_REF = (byte*) 11264
|
||||
(word()) atan2_16((signed word) atan2_16::x , (signed word) atan2_16::y)
|
||||
(signed word~) atan2_16::$2 $2 zp ZP_WORD:7 4.0
|
||||
(byte~) atan2_16::$22 reg byte a 2002.0
|
||||
(byte~) atan2_16::$23 reg byte a 2002.0
|
||||
(signed word~) atan2_16::$7 $7 zp ZP_WORD:9 4.0
|
||||
(label) atan2_16::@1
|
||||
(label) atan2_16::@10
|
||||
(label) atan2_16::@11
|
||||
(label) atan2_16::@12
|
||||
(label) atan2_16::@13
|
||||
(label) atan2_16::@14
|
||||
(label) atan2_16::@15
|
||||
(label) atan2_16::@16
|
||||
(label) atan2_16::@2
|
||||
(label) atan2_16::@3
|
||||
(label) atan2_16::@4
|
||||
(label) atan2_16::@5
|
||||
(label) atan2_16::@6
|
||||
(label) atan2_16::@7
|
||||
(label) atan2_16::@8
|
||||
(label) atan2_16::@9
|
||||
(label) atan2_16::@return
|
||||
(word) atan2_16::angle
|
||||
(word) atan2_16::angle#1 angle zp ZP_WORD:12 3.0
|
||||
(word) atan2_16::angle#11 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#12 angle zp ZP_WORD:12 364.0
|
||||
(word) atan2_16::angle#13 angle zp ZP_WORD:12 1334.6666666666667
|
||||
(word) atan2_16::angle#2 angle zp ZP_WORD:12 2002.0
|
||||
(word) atan2_16::angle#3 angle zp ZP_WORD:12 2002.0
|
||||
(word) atan2_16::angle#4 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#5 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#6 angle zp ZP_WORD:12 2004.0
|
||||
(byte) atan2_16::i
|
||||
(byte) atan2_16::i#1 i zp ZP_BYTE:11 1501.5
|
||||
(byte) atan2_16::i#2 i zp ZP_BYTE:11 429.0
|
||||
(word) atan2_16::return
|
||||
(word) atan2_16::return#0 return zp ZP_WORD:12 34.99999999999999
|
||||
(word) atan2_16::return#2 return zp ZP_WORD:12 202.0
|
||||
(signed word) atan2_16::x
|
||||
(signed word) atan2_16::x#0 x zp ZP_WORD:23 3.8928571428571437
|
||||
(signed word) atan2_16::xd
|
||||
(signed word) atan2_16::xd#0 xd zp ZP_WORD:27 600.5999999999999
|
||||
(signed word) atan2_16::xi
|
||||
(signed word) atan2_16::xi#0 xi zp ZP_WORD:9 6.0
|
||||
(signed word) atan2_16::xi#1 xi zp ZP_WORD:9 500.5
|
||||
(signed word) atan2_16::xi#2 xi zp ZP_WORD:9 500.5
|
||||
(signed word) atan2_16::xi#3 xi zp ZP_WORD:9 801.2
|
||||
(signed word) atan2_16::xi#7 xi zp ZP_WORD:9 1001.0
|
||||
(signed word~) atan2_16::xi#8 xi zp ZP_WORD:9 4.0
|
||||
(signed word) atan2_16::y
|
||||
(signed word) atan2_16::y#0 y zp ZP_WORD:25 3.633333333333334
|
||||
(signed word) atan2_16::yd
|
||||
(signed word) atan2_16::yd#0 yd zp ZP_WORD:29 1501.5
|
||||
(signed word) atan2_16::yi
|
||||
(signed word) atan2_16::yi#0 yi zp ZP_WORD:7 1.2000000000000002
|
||||
(signed word) atan2_16::yi#1 yi zp ZP_WORD:7 667.3333333333334
|
||||
(signed word~) atan2_16::yi#11 yi zp ZP_WORD:7 4.0
|
||||
(signed word) atan2_16::yi#2 yi zp ZP_WORD:7 667.3333333333334
|
||||
(signed word) atan2_16::yi#3 yi zp ZP_WORD:7 858.2857142857142
|
||||
(signed word) atan2_16::yi#7 yi zp ZP_WORD:7 1001.0
|
||||
(void()) init_font_hex((byte*) init_font_hex::charset)
|
||||
(byte~) init_font_hex::$0 $0 zp ZP_BYTE:31 1001.0
|
||||
(byte~) init_font_hex::$1 reg byte a 2002.0
|
||||
(byte~) init_font_hex::$2 reg byte a 2002.0
|
||||
(label) init_font_hex::@1
|
||||
(label) init_font_hex::@2
|
||||
(label) init_font_hex::@3
|
||||
(label) init_font_hex::@4
|
||||
(label) init_font_hex::@5
|
||||
(label) init_font_hex::@return
|
||||
(byte) init_font_hex::c
|
||||
(byte) init_font_hex::c#1 c zp ZP_BYTE:16 16.5
|
||||
(byte) init_font_hex::c#6 c zp ZP_BYTE:16 1.1578947368421053
|
||||
(byte) init_font_hex::c1
|
||||
(byte) init_font_hex::c1#1 c1 zp ZP_BYTE:21 151.5
|
||||
(byte) init_font_hex::c1#4 c1 zp ZP_BYTE:21 13.466666666666667
|
||||
(byte*) init_font_hex::charset
|
||||
(byte*) init_font_hex::charset#0 charset zp ZP_WORD:17 35.5
|
||||
(byte*) init_font_hex::charset#2 charset zp ZP_WORD:17 108.35714285714285
|
||||
(byte*) init_font_hex::charset#5 charset zp ZP_WORD:17 22.0
|
||||
(byte) init_font_hex::i
|
||||
(byte) init_font_hex::i#1 reg byte x 1501.5
|
||||
(byte) init_font_hex::i#2 reg byte x 667.3333333333334
|
||||
(byte) init_font_hex::idx
|
||||
(byte) init_font_hex::idx#2 idx zp ZP_BYTE:22 551.0
|
||||
(byte) init_font_hex::idx#3 reg byte y 202.0
|
||||
(byte) init_font_hex::idx#5 idx zp ZP_BYTE:22 600.5999999999999
|
||||
(byte*) init_font_hex::proto_hi
|
||||
(byte*) init_font_hex::proto_hi#1 proto_hi zp ZP_WORD:14 7.333333333333333
|
||||
(byte*) init_font_hex::proto_hi#6 proto_hi zp ZP_WORD:14 56.83333333333334
|
||||
(byte*) init_font_hex::proto_lo
|
||||
(byte*) init_font_hex::proto_lo#1 proto_lo zp ZP_WORD:19 50.5
|
||||
(byte*) init_font_hex::proto_lo#4 proto_lo zp ZP_WORD:19 92.53846153846155
|
||||
(void()) main()
|
||||
(word~) main::$11 $11 zp ZP_WORD:12 202.0
|
||||
(byte~) main::$12 reg byte a 202.0
|
||||
(byte~) main::$13 reg byte a 202.0
|
||||
(label) main::@1
|
||||
(label) main::@2
|
||||
(label) main::@3
|
||||
(label) main::@4
|
||||
(label) main::@5
|
||||
(label) main::@6
|
||||
(word) main::angle_w
|
||||
(word) main::angle_w#0 angle_w zp ZP_WORD:12 202.0
|
||||
(byte*) main::col00
|
||||
(byte*) main::screen
|
||||
(byte*) main::screen#1 screen zp ZP_WORD:5 35.5
|
||||
(byte*) main::screen#2 screen zp ZP_WORD:5 26.166666666666664
|
||||
(byte*) main::screen#4 screen zp ZP_WORD:5 22.0
|
||||
(byte*) main::screen_ref
|
||||
(byte*) main::screen_ref#1 screen_ref zp ZP_WORD:3 42.599999999999994
|
||||
(byte*) main::screen_ref#2 screen_ref zp ZP_WORD:3 24.153846153846153
|
||||
(byte*) main::screen_ref#4 screen_ref zp ZP_WORD:3 22.0
|
||||
(label) main::toD0181
|
||||
(word~) main::toD0181_$0
|
||||
(number~) main::toD0181_$1
|
||||
(number~) main::toD0181_$2
|
||||
(number~) main::toD0181_$3
|
||||
(word~) main::toD0181_$4
|
||||
(byte~) main::toD0181_$5
|
||||
(number~) main::toD0181_$6
|
||||
(number~) main::toD0181_$7
|
||||
(number~) main::toD0181_$8
|
||||
(byte*) main::toD0181_gfx
|
||||
(byte) main::toD0181_return
|
||||
(const byte) main::toD0181_return#0 toD0181_return = >(word)(const byte*) SCREEN#0&(word) $3fff*(byte) 4|>(word)(const byte*) CHARSET#0/(byte) 4&(byte) $f
|
||||
(byte*) main::toD0181_screen
|
||||
(signed byte) main::x
|
||||
(signed byte) main::x#1 reg byte x 151.5
|
||||
(signed byte) main::x#2 reg byte x 14.428571428571429
|
||||
(signed word) main::xw
|
||||
(word) main::xw#0 xw zp ZP_WORD:23 50.5
|
||||
(signed byte) main::y
|
||||
(signed byte) main::y#1 y zp ZP_BYTE:2 16.5
|
||||
(signed byte) main::y#4 y zp ZP_BYTE:2 1.2941176470588236
|
||||
(signed word) main::yw
|
||||
(word) main::yw#0 yw zp ZP_WORD:25 50.5
|
||||
|
||||
zp ZP_BYTE:2 [ main::y#4 main::y#1 ]
|
||||
reg byte x [ main::x#2 main::x#1 ]
|
||||
zp ZP_WORD:3 [ main::screen_ref#2 main::screen_ref#4 main::screen_ref#1 ]
|
||||
zp ZP_WORD:5 [ main::screen#2 main::screen#4 main::screen#1 ]
|
||||
zp ZP_WORD:7 [ atan2_16::yi#3 atan2_16::yi#7 atan2_16::yi#0 atan2_16::yi#11 atan2_16::$2 atan2_16::yi#1 atan2_16::yi#2 ]
|
||||
zp ZP_WORD:9 [ atan2_16::xi#3 atan2_16::xi#7 atan2_16::xi#0 atan2_16::xi#8 atan2_16::$7 atan2_16::xi#1 atan2_16::xi#2 ]
|
||||
zp ZP_BYTE:11 [ atan2_16::i#2 atan2_16::i#1 ]
|
||||
zp ZP_WORD:12 [ atan2_16::angle#6 atan2_16::angle#12 atan2_16::angle#13 atan2_16::angle#2 atan2_16::angle#3 atan2_16::return#0 atan2_16::angle#5 atan2_16::angle#11 atan2_16::angle#1 atan2_16::angle#4 atan2_16::return#2 main::angle_w#0 main::$11 ]
|
||||
zp ZP_WORD:14 [ init_font_hex::proto_hi#6 init_font_hex::proto_hi#1 ]
|
||||
zp ZP_BYTE:16 [ init_font_hex::c#6 init_font_hex::c#1 ]
|
||||
zp ZP_WORD:17 [ init_font_hex::charset#2 init_font_hex::charset#5 init_font_hex::charset#0 ]
|
||||
zp ZP_WORD:19 [ init_font_hex::proto_lo#4 init_font_hex::proto_lo#1 ]
|
||||
zp ZP_BYTE:21 [ init_font_hex::c1#4 init_font_hex::c1#1 ]
|
||||
reg byte x [ init_font_hex::i#2 init_font_hex::i#1 ]
|
||||
zp ZP_BYTE:22 [ init_font_hex::idx#5 init_font_hex::idx#2 ]
|
||||
zp ZP_WORD:23 [ main::xw#0 atan2_16::x#0 ]
|
||||
zp ZP_WORD:25 [ main::yw#0 atan2_16::y#0 ]
|
||||
reg byte a [ main::$12 ]
|
||||
reg byte a [ main::$13 ]
|
||||
zp ZP_WORD:27 [ atan2_16::xd#0 ]
|
||||
zp ZP_WORD:29 [ atan2_16::yd#0 ]
|
||||
reg byte a [ atan2_16::$23 ]
|
||||
reg byte a [ atan2_16::$22 ]
|
||||
zp ZP_BYTE:31 [ init_font_hex::$0 ]
|
||||
reg byte a [ init_font_hex::$1 ]
|
||||
reg byte a [ init_font_hex::$2 ]
|
||||
reg byte y [ init_font_hex::idx#3 ]
|
||||
389
src/test/ref/cordic-atan2-16.asm
Normal file
389
src/test/ref/cordic-atan2-16.asm
Normal file
@ -0,0 +1,389 @@
|
||||
// Find atan2(x, y) using the CORDIC method
|
||||
// See http://bsvi.ru/uploads/CORDIC--_10EBA/cordic.pdf
|
||||
.pc = $801 "Basic"
|
||||
:BasicUpstart(main)
|
||||
.pc = $80d "Program"
|
||||
// The number of iterations performed during 16-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_16 = $f
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_16 = $1000
|
||||
// The number of iterations performed during 8-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_8 = 8
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_8 = $1100
|
||||
.label D018 = $d018
|
||||
// Color Ram
|
||||
.label COLS = $d800
|
||||
.label CHARSET = $2000
|
||||
.label SCREEN = $2800
|
||||
.label SCREEN_REF = $2c00
|
||||
// Populate cordic angles table
|
||||
// Populate cordic angles table
|
||||
main: {
|
||||
.const toD0181_return = (>(SCREEN&$3fff)*4)|(>CHARSET)/4&$f
|
||||
.label _11 = $c
|
||||
.label xw = $17
|
||||
.label yw = $19
|
||||
.label angle_w = $c
|
||||
.label screen = 5
|
||||
.label screen_ref = 3
|
||||
.label y = 2
|
||||
jsr init_font_hex
|
||||
lda #toD0181_return
|
||||
sta D018
|
||||
lda #<SCREEN
|
||||
sta screen
|
||||
lda #>SCREEN
|
||||
sta screen+1
|
||||
lda #<SCREEN_REF
|
||||
sta screen_ref
|
||||
lda #>SCREEN_REF
|
||||
sta screen_ref+1
|
||||
lda #-$c
|
||||
sta y
|
||||
b1:
|
||||
ldx #-$13
|
||||
b2:
|
||||
ldy #0
|
||||
txa
|
||||
sta xw+1
|
||||
sty xw
|
||||
lda y
|
||||
sta yw+1
|
||||
sty yw
|
||||
jsr atan2_16
|
||||
lda #$80
|
||||
clc
|
||||
adc _11
|
||||
sta _11
|
||||
bcc !+
|
||||
inc _11+1
|
||||
!:
|
||||
lda _11+1
|
||||
sec
|
||||
ldy #0
|
||||
sbc (screen_ref),y
|
||||
//*screen++ = (>angle_w)-angle_b;
|
||||
//*screen++ = >angle_w;
|
||||
sta (screen),y
|
||||
inc screen
|
||||
bne !+
|
||||
inc screen+1
|
||||
!:
|
||||
inc screen_ref
|
||||
bne !+
|
||||
inc screen_ref+1
|
||||
!:
|
||||
inx
|
||||
cpx #$15
|
||||
bne b2
|
||||
inc y
|
||||
lda #$d
|
||||
cmp y
|
||||
bne b1
|
||||
b4:
|
||||
lda COLS+$c*$28+$13
|
||||
clc
|
||||
adc #1
|
||||
sta COLS+$c*$28+$13
|
||||
jmp b4
|
||||
}
|
||||
// Find the atan2(x, y) - which is the angle of the line from (0,0) to (x,y)
|
||||
// Finding the angle requires a binary search using CORDIC_ITERATIONS_16
|
||||
// Returns the angle in hex-degrees (0=0, 0x8000=PI, 0x10000=2*PI)
|
||||
// atan2_16(signed word zeropage($17) x, signed word zeropage($19) y)
|
||||
atan2_16: {
|
||||
.label _2 = 7
|
||||
.label _7 = 9
|
||||
.label yi = 7
|
||||
.label xi = 9
|
||||
.label xd = $1b
|
||||
.label yd = $1d
|
||||
.label angle = $c
|
||||
.label i = $b
|
||||
.label return = $c
|
||||
.label x = $17
|
||||
.label y = $19
|
||||
lda y+1
|
||||
bne !+
|
||||
lda y
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bmi !b1+
|
||||
jmp b1
|
||||
!b1:
|
||||
!e:
|
||||
sec
|
||||
lda #0
|
||||
sbc y
|
||||
sta _2
|
||||
lda #0
|
||||
sbc y+1
|
||||
sta _2+1
|
||||
b3:
|
||||
lda x+1
|
||||
bne !+
|
||||
lda x
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bmi !b4+
|
||||
jmp b4
|
||||
!b4:
|
||||
!e:
|
||||
sec
|
||||
lda #0
|
||||
sbc x
|
||||
sta _7
|
||||
lda #0
|
||||
sbc x+1
|
||||
sta _7+1
|
||||
b6:
|
||||
lda #0
|
||||
sta angle
|
||||
sta angle+1
|
||||
sta i
|
||||
b10:
|
||||
lda yi+1
|
||||
bne b11
|
||||
lda yi
|
||||
bne b11
|
||||
b12:
|
||||
lsr angle+1
|
||||
ror angle
|
||||
lda x+1
|
||||
bpl b7
|
||||
sec
|
||||
lda #<$8000
|
||||
sbc angle
|
||||
sta angle
|
||||
lda #>$8000
|
||||
sbc angle+1
|
||||
sta angle+1
|
||||
b7:
|
||||
lda y+1
|
||||
bpl b8
|
||||
sec
|
||||
lda #0
|
||||
sbc angle
|
||||
sta angle
|
||||
lda #0
|
||||
sbc angle+1
|
||||
sta angle+1
|
||||
b8:
|
||||
rts
|
||||
b11:
|
||||
ldy i
|
||||
lda xi
|
||||
sta xd
|
||||
lda xi+1
|
||||
sta xd+1
|
||||
cpy #0
|
||||
beq !e+
|
||||
!:
|
||||
lda xd+1
|
||||
cmp #$80
|
||||
ror xd+1
|
||||
ror xd
|
||||
dey
|
||||
bne !-
|
||||
!e:
|
||||
ldy i
|
||||
lda yi
|
||||
sta yd
|
||||
lda yi+1
|
||||
sta yd+1
|
||||
cpy #0
|
||||
beq !e+
|
||||
!:
|
||||
lda yd+1
|
||||
cmp #$80
|
||||
ror yd+1
|
||||
ror yd
|
||||
dey
|
||||
bne !-
|
||||
!e:
|
||||
lda yi+1
|
||||
bne !+
|
||||
lda yi
|
||||
beq !e+
|
||||
lsr
|
||||
!:
|
||||
bpl b13
|
||||
!e:
|
||||
lda xi
|
||||
sec
|
||||
sbc yd
|
||||
sta xi
|
||||
lda xi+1
|
||||
sbc yd+1
|
||||
sta xi+1
|
||||
lda yi
|
||||
clc
|
||||
adc xd
|
||||
sta yi
|
||||
lda yi+1
|
||||
adc xd+1
|
||||
sta yi+1
|
||||
lda i
|
||||
asl
|
||||
tay
|
||||
sec
|
||||
lda angle
|
||||
sbc CORDIC_ATAN2_ANGLES_16,y
|
||||
sta angle
|
||||
lda angle+1
|
||||
sbc CORDIC_ATAN2_ANGLES_16+1,y
|
||||
sta angle+1
|
||||
b14:
|
||||
inc i
|
||||
lda #CORDIC_ITERATIONS_16+1
|
||||
cmp i
|
||||
bne !b12+
|
||||
jmp b12
|
||||
!b12:
|
||||
jmp b10
|
||||
b13:
|
||||
lda xi
|
||||
clc
|
||||
adc yd
|
||||
sta xi
|
||||
lda xi+1
|
||||
adc yd+1
|
||||
sta xi+1
|
||||
lda yi
|
||||
sec
|
||||
sbc xd
|
||||
sta yi
|
||||
lda yi+1
|
||||
sbc xd+1
|
||||
sta yi+1
|
||||
lda i
|
||||
asl
|
||||
tay
|
||||
clc
|
||||
lda angle
|
||||
adc CORDIC_ATAN2_ANGLES_16,y
|
||||
sta angle
|
||||
lda angle+1
|
||||
adc CORDIC_ATAN2_ANGLES_16+1,y
|
||||
sta angle+1
|
||||
jmp b14
|
||||
b4:
|
||||
lda x
|
||||
sta xi
|
||||
lda x+1
|
||||
sta xi+1
|
||||
jmp b6
|
||||
b1:
|
||||
lda y
|
||||
sta yi
|
||||
lda y+1
|
||||
sta yi+1
|
||||
jmp b3
|
||||
}
|
||||
// Make charset from proto chars
|
||||
// init_font_hex(byte* zeropage($11) charset)
|
||||
init_font_hex: {
|
||||
.label _0 = $1f
|
||||
.label idx = $16
|
||||
.label proto_lo = $13
|
||||
.label charset = $11
|
||||
.label c1 = $15
|
||||
.label proto_hi = $e
|
||||
.label c = $10
|
||||
lda #0
|
||||
sta c
|
||||
lda #<FONT_HEX_PROTO
|
||||
sta proto_hi
|
||||
lda #>FONT_HEX_PROTO
|
||||
sta proto_hi+1
|
||||
lda #<CHARSET
|
||||
sta charset
|
||||
lda #>CHARSET
|
||||
sta charset+1
|
||||
b1:
|
||||
lda #0
|
||||
sta c1
|
||||
lda #<FONT_HEX_PROTO
|
||||
sta proto_lo
|
||||
lda #>FONT_HEX_PROTO
|
||||
sta proto_lo+1
|
||||
b2:
|
||||
lda #0
|
||||
tay
|
||||
sta (charset),y
|
||||
lda #1
|
||||
sta idx
|
||||
ldx #0
|
||||
b3:
|
||||
txa
|
||||
tay
|
||||
lda (proto_hi),y
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
sta _0
|
||||
txa
|
||||
tay
|
||||
lda (proto_lo),y
|
||||
asl
|
||||
ora _0
|
||||
ldy idx
|
||||
sta (charset),y
|
||||
inc idx
|
||||
inx
|
||||
cpx #5
|
||||
bne b3
|
||||
lda #0
|
||||
ldy idx
|
||||
sta (charset),y
|
||||
iny
|
||||
sta (charset),y
|
||||
lda #5
|
||||
clc
|
||||
adc proto_lo
|
||||
sta proto_lo
|
||||
bcc !+
|
||||
inc proto_lo+1
|
||||
!:
|
||||
lda #8
|
||||
clc
|
||||
adc charset
|
||||
sta charset
|
||||
bcc !+
|
||||
inc charset+1
|
||||
!:
|
||||
inc c1
|
||||
lda #$10
|
||||
cmp c1
|
||||
bne b2
|
||||
lda #5
|
||||
clc
|
||||
adc proto_hi
|
||||
sta proto_hi
|
||||
bcc !+
|
||||
inc proto_hi+1
|
||||
!:
|
||||
inc c
|
||||
lda #$10
|
||||
cmp c
|
||||
bne b1
|
||||
rts
|
||||
}
|
||||
// Bit patterns for symbols 0-f (3x5 pixels) used in font hex
|
||||
FONT_HEX_PROTO: .byte 2, 5, 5, 5, 2, 6, 2, 2, 2, 7, 6, 1, 2, 4, 7, 6, 1, 2, 1, 6, 5, 5, 7, 1, 1, 7, 4, 6, 1, 6, 3, 4, 6, 5, 2, 7, 1, 1, 1, 1, 2, 5, 2, 5, 2, 2, 5, 3, 1, 1, 2, 5, 7, 5, 5, 6, 5, 6, 5, 6, 2, 5, 4, 5, 2, 6, 5, 5, 5, 6, 7, 4, 6, 4, 7, 7, 4, 6, 4, 4
|
||||
.pc = CORDIC_ATAN2_ANGLES_16 "CORDIC_ATAN2_ANGLES_16"
|
||||
.for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
.pc = CORDIC_ATAN2_ANGLES_8 "CORDIC_ATAN2_ANGLES_8"
|
||||
.fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
.pc = SCREEN_REF "SCREEN_REF"
|
||||
.for(var y=-12;y<=12;y++)
|
||||
.for(var x=-19;x<=20;x++)
|
||||
.byte round(256*atan2(y, x)/PI/2)
|
||||
|
||||
184
src/test/ref/cordic-atan2-16.cfg
Normal file
184
src/test/ref/cordic-atan2-16.cfg
Normal file
@ -0,0 +1,184 @@
|
||||
@begin: scope:[] from
|
||||
[0] phi()
|
||||
to:@1
|
||||
@1: scope:[] from @begin
|
||||
kickasm(location (const word*) CORDIC_ATAN2_ANGLES_16#0 uses CORDIC_ITERATIONS_16#0) {{ .for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@2
|
||||
@2: scope:[] from @1
|
||||
kickasm(location (const byte*) CORDIC_ATAN2_ANGLES_8#0 uses CORDIC_ITERATIONS_8#0) {{ .fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@3
|
||||
@3: scope:[] from @2
|
||||
kickasm(location (const byte*) SCREEN_REF#0) {{ .for(var y=-12;y<=12;y++)
|
||||
.for(var x=-19;x<=20;x++)
|
||||
.byte round(256*atan2(y, x)/PI/2)
|
||||
}}
|
||||
to:@4
|
||||
@4: scope:[] from @3
|
||||
[4] phi()
|
||||
[5] call main
|
||||
to:@end
|
||||
@end: scope:[] from @4
|
||||
[6] phi()
|
||||
main: scope:[main] from @4
|
||||
[7] phi()
|
||||
[8] call init_font_hex
|
||||
to:main::toD0181
|
||||
main::toD0181: scope:[main] from main
|
||||
[9] phi()
|
||||
to:main::@5
|
||||
main::@5: scope:[main] from main::toD0181
|
||||
[10] *((const byte*) D018#0) ← (const byte) main::toD0181_return#0
|
||||
to:main::@1
|
||||
main::@1: scope:[main] from main::@3 main::@5
|
||||
[11] (byte*) main::screen#4 ← phi( main::@5/(const byte*) SCREEN#0 main::@3/(byte*) main::screen#1 )
|
||||
[11] (byte*) main::screen_ref#4 ← phi( main::@5/(const byte*) SCREEN_REF#0 main::@3/(byte*) main::screen_ref#1 )
|
||||
[11] (signed byte) main::y#4 ← phi( main::@5/(signed byte) -$c main::@3/(signed byte) main::y#1 )
|
||||
to:main::@2
|
||||
main::@2: scope:[main] from main::@1 main::@6
|
||||
[12] (byte*) main::screen#2 ← phi( main::@1/(byte*) main::screen#4 main::@6/(byte*) main::screen#1 )
|
||||
[12] (byte*) main::screen_ref#2 ← phi( main::@1/(byte*) main::screen_ref#4 main::@6/(byte*) main::screen_ref#1 )
|
||||
[12] (signed byte) main::x#2 ← phi( main::@1/(signed byte) -$13 main::@6/(signed byte) main::x#1 )
|
||||
[13] (word) main::xw#0 ← (byte)(signed byte) main::x#2 w= (byte) 0
|
||||
[14] (word) main::yw#0 ← (byte)(signed byte) main::y#4 w= (byte) 0
|
||||
[15] (signed word) atan2_16::x#0 ← (signed word)(word) main::xw#0
|
||||
[16] (signed word) atan2_16::y#0 ← (signed word)(word) main::yw#0
|
||||
[17] call atan2_16
|
||||
[18] (word) atan2_16::return#2 ← (word) atan2_16::return#0
|
||||
to:main::@6
|
||||
main::@6: scope:[main] from main::@2
|
||||
[19] (word) main::angle_w#0 ← (word) atan2_16::return#2
|
||||
[20] (word~) main::$11 ← (word) main::angle_w#0 + (byte) $80
|
||||
[21] (byte~) main::$12 ← > (word~) main::$11
|
||||
[22] (byte~) main::$13 ← (byte~) main::$12 - *((byte*) main::screen_ref#2)
|
||||
[23] *((byte*) main::screen#2) ← (byte~) main::$13
|
||||
[24] (byte*) main::screen#1 ← ++ (byte*) main::screen#2
|
||||
[25] (byte*) main::screen_ref#1 ← ++ (byte*) main::screen_ref#2
|
||||
[26] (signed byte) main::x#1 ← ++ (signed byte) main::x#2
|
||||
[27] if((signed byte) main::x#1!=(signed byte) $15) goto main::@2
|
||||
to:main::@3
|
||||
main::@3: scope:[main] from main::@6
|
||||
[28] (signed byte) main::y#1 ← ++ (signed byte) main::y#4
|
||||
[29] if((signed byte) main::y#1!=(signed byte) $d) goto main::@1
|
||||
to:main::@4
|
||||
main::@4: scope:[main] from main::@3 main::@4
|
||||
[30] *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13) ← ++ *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13)
|
||||
to:main::@4
|
||||
atan2_16: scope:[atan2_16] from main::@2
|
||||
[31] if((signed word) atan2_16::y#0>(signed byte) 0) goto atan2_16::@1
|
||||
to:atan2_16::@2
|
||||
atan2_16::@2: scope:[atan2_16] from atan2_16
|
||||
[32] (signed word~) atan2_16::$2 ← - (signed word) atan2_16::y#0
|
||||
to:atan2_16::@3
|
||||
atan2_16::@3: scope:[atan2_16] from atan2_16::@1 atan2_16::@2
|
||||
[33] (signed word) atan2_16::yi#0 ← phi( atan2_16::@1/(signed word~) atan2_16::yi#11 atan2_16::@2/(signed word~) atan2_16::$2 )
|
||||
[34] if((signed word) atan2_16::x#0>(signed byte) 0) goto atan2_16::@4
|
||||
to:atan2_16::@5
|
||||
atan2_16::@5: scope:[atan2_16] from atan2_16::@3
|
||||
[35] (signed word~) atan2_16::$7 ← - (signed word) atan2_16::x#0
|
||||
to:atan2_16::@6
|
||||
atan2_16::@6: scope:[atan2_16] from atan2_16::@4 atan2_16::@5
|
||||
[36] (signed word) atan2_16::xi#0 ← phi( atan2_16::@4/(signed word~) atan2_16::xi#8 atan2_16::@5/(signed word~) atan2_16::$7 )
|
||||
to:atan2_16::@10
|
||||
atan2_16::@10: scope:[atan2_16] from atan2_16::@14 atan2_16::@6
|
||||
[37] (word) atan2_16::angle#12 ← phi( atan2_16::@14/(word) atan2_16::angle#13 atan2_16::@6/(byte) 0 )
|
||||
[37] (byte) atan2_16::i#2 ← phi( atan2_16::@14/(byte) atan2_16::i#1 atan2_16::@6/(byte) 0 )
|
||||
[37] (signed word) atan2_16::xi#3 ← phi( atan2_16::@14/(signed word) atan2_16::xi#7 atan2_16::@6/(signed word) atan2_16::xi#0 )
|
||||
[37] (signed word) atan2_16::yi#3 ← phi( atan2_16::@14/(signed word) atan2_16::yi#7 atan2_16::@6/(signed word) atan2_16::yi#0 )
|
||||
[38] if((signed word) atan2_16::yi#3!=(signed byte) 0) goto atan2_16::@11
|
||||
to:atan2_16::@12
|
||||
atan2_16::@12: scope:[atan2_16] from atan2_16::@10 atan2_16::@14
|
||||
[39] (word) atan2_16::angle#6 ← phi( atan2_16::@10/(word) atan2_16::angle#12 atan2_16::@14/(word) atan2_16::angle#13 )
|
||||
[40] (word) atan2_16::angle#1 ← (word) atan2_16::angle#6 >> (byte) 1
|
||||
[41] if((signed word) atan2_16::x#0>=(signed byte) 0) goto atan2_16::@7
|
||||
to:atan2_16::@16
|
||||
atan2_16::@16: scope:[atan2_16] from atan2_16::@12
|
||||
[42] (word) atan2_16::angle#4 ← (word) $8000 - (word) atan2_16::angle#1
|
||||
to:atan2_16::@7
|
||||
atan2_16::@7: scope:[atan2_16] from atan2_16::@12 atan2_16::@16
|
||||
[43] (word) atan2_16::angle#11 ← phi( atan2_16::@12/(word) atan2_16::angle#1 atan2_16::@16/(word) atan2_16::angle#4 )
|
||||
[44] if((signed word) atan2_16::y#0>=(signed byte) 0) goto atan2_16::@8
|
||||
to:atan2_16::@9
|
||||
atan2_16::@9: scope:[atan2_16] from atan2_16::@7
|
||||
[45] (word) atan2_16::angle#5 ← - (word) atan2_16::angle#11
|
||||
to:atan2_16::@8
|
||||
atan2_16::@8: scope:[atan2_16] from atan2_16::@7 atan2_16::@9
|
||||
[46] (word) atan2_16::return#0 ← phi( atan2_16::@9/(word) atan2_16::angle#5 atan2_16::@7/(word) atan2_16::angle#11 )
|
||||
to:atan2_16::@return
|
||||
atan2_16::@return: scope:[atan2_16] from atan2_16::@8
|
||||
[47] return
|
||||
to:@return
|
||||
atan2_16::@11: scope:[atan2_16] from atan2_16::@10
|
||||
[48] (signed word) atan2_16::xd#0 ← (signed word) atan2_16::xi#3 >> (byte) atan2_16::i#2
|
||||
[49] (signed word) atan2_16::yd#0 ← (signed word) atan2_16::yi#3 >> (byte) atan2_16::i#2
|
||||
[50] if((signed word) atan2_16::yi#3>(signed byte) 0) goto atan2_16::@13
|
||||
to:atan2_16::@15
|
||||
atan2_16::@15: scope:[atan2_16] from atan2_16::@11
|
||||
[51] (signed word) atan2_16::xi#2 ← (signed word) atan2_16::xi#3 - (signed word) atan2_16::yd#0
|
||||
[52] (signed word) atan2_16::yi#2 ← (signed word) atan2_16::yi#3 + (signed word) atan2_16::xd#0
|
||||
[53] (byte~) atan2_16::$23 ← (byte) atan2_16::i#2 << (byte) 1
|
||||
[54] (word) atan2_16::angle#3 ← (word) atan2_16::angle#12 - *((const word*) CORDIC_ATAN2_ANGLES_16#0 + (byte~) atan2_16::$23)
|
||||
to:atan2_16::@14
|
||||
atan2_16::@14: scope:[atan2_16] from atan2_16::@13 atan2_16::@15
|
||||
[55] (signed word) atan2_16::xi#7 ← phi( atan2_16::@13/(signed word) atan2_16::xi#1 atan2_16::@15/(signed word) atan2_16::xi#2 )
|
||||
[55] (word) atan2_16::angle#13 ← phi( atan2_16::@13/(word) atan2_16::angle#2 atan2_16::@15/(word) atan2_16::angle#3 )
|
||||
[55] (signed word) atan2_16::yi#7 ← phi( atan2_16::@13/(signed word) atan2_16::yi#1 atan2_16::@15/(signed word) atan2_16::yi#2 )
|
||||
[56] (byte) atan2_16::i#1 ← ++ (byte) atan2_16::i#2
|
||||
[57] if((byte) atan2_16::i#1==(const byte) CORDIC_ITERATIONS_16#0+(byte) 1) goto atan2_16::@12
|
||||
to:atan2_16::@10
|
||||
atan2_16::@13: scope:[atan2_16] from atan2_16::@11
|
||||
[58] (signed word) atan2_16::xi#1 ← (signed word) atan2_16::xi#3 + (signed word) atan2_16::yd#0
|
||||
[59] (signed word) atan2_16::yi#1 ← (signed word) atan2_16::yi#3 - (signed word) atan2_16::xd#0
|
||||
[60] (byte~) atan2_16::$22 ← (byte) atan2_16::i#2 << (byte) 1
|
||||
[61] (word) atan2_16::angle#2 ← (word) atan2_16::angle#12 + *((const word*) CORDIC_ATAN2_ANGLES_16#0 + (byte~) atan2_16::$22)
|
||||
to:atan2_16::@14
|
||||
atan2_16::@4: scope:[atan2_16] from atan2_16::@3
|
||||
[62] (signed word~) atan2_16::xi#8 ← (signed word) atan2_16::x#0
|
||||
to:atan2_16::@6
|
||||
atan2_16::@1: scope:[atan2_16] from atan2_16
|
||||
[63] (signed word~) atan2_16::yi#11 ← (signed word) atan2_16::y#0
|
||||
to:atan2_16::@3
|
||||
init_font_hex: scope:[init_font_hex] from main
|
||||
[64] phi()
|
||||
to:init_font_hex::@1
|
||||
init_font_hex::@1: scope:[init_font_hex] from init_font_hex init_font_hex::@5
|
||||
[65] (byte) init_font_hex::c#6 ← phi( init_font_hex/(byte) 0 init_font_hex::@5/(byte) init_font_hex::c#1 )
|
||||
[65] (byte*) init_font_hex::proto_hi#6 ← phi( init_font_hex/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@5/(byte*) init_font_hex::proto_hi#1 )
|
||||
[65] (byte*) init_font_hex::charset#5 ← phi( init_font_hex/(const byte*) CHARSET#0 init_font_hex::@5/(byte*) init_font_hex::charset#0 )
|
||||
to:init_font_hex::@2
|
||||
init_font_hex::@2: scope:[init_font_hex] from init_font_hex::@1 init_font_hex::@4
|
||||
[66] (byte) init_font_hex::c1#4 ← phi( init_font_hex::@1/(byte) 0 init_font_hex::@4/(byte) init_font_hex::c1#1 )
|
||||
[66] (byte*) init_font_hex::proto_lo#4 ← phi( init_font_hex::@1/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@4/(byte*) init_font_hex::proto_lo#1 )
|
||||
[66] (byte*) init_font_hex::charset#2 ← phi( init_font_hex::@1/(byte*) init_font_hex::charset#5 init_font_hex::@4/(byte*) init_font_hex::charset#0 )
|
||||
[67] *((byte*) init_font_hex::charset#2) ← (byte) 0
|
||||
to:init_font_hex::@3
|
||||
init_font_hex::@3: scope:[init_font_hex] from init_font_hex::@2 init_font_hex::@3
|
||||
[68] (byte) init_font_hex::idx#5 ← phi( init_font_hex::@2/(byte) 1 init_font_hex::@3/(byte) init_font_hex::idx#2 )
|
||||
[68] (byte) init_font_hex::i#2 ← phi( init_font_hex::@2/(byte) 0 init_font_hex::@3/(byte) init_font_hex::i#1 )
|
||||
[69] (byte~) init_font_hex::$0 ← *((byte*) init_font_hex::proto_hi#6 + (byte) init_font_hex::i#2) << (byte) 4
|
||||
[70] (byte~) init_font_hex::$1 ← *((byte*) init_font_hex::proto_lo#4 + (byte) init_font_hex::i#2) << (byte) 1
|
||||
[71] (byte~) init_font_hex::$2 ← (byte~) init_font_hex::$0 | (byte~) init_font_hex::$1
|
||||
[72] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#5) ← (byte~) init_font_hex::$2
|
||||
[73] (byte) init_font_hex::idx#2 ← ++ (byte) init_font_hex::idx#5
|
||||
[74] (byte) init_font_hex::i#1 ← ++ (byte) init_font_hex::i#2
|
||||
[75] if((byte) init_font_hex::i#1!=(byte) 5) goto init_font_hex::@3
|
||||
to:init_font_hex::@4
|
||||
init_font_hex::@4: scope:[init_font_hex] from init_font_hex::@3
|
||||
[76] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#2) ← (byte) 0
|
||||
[77] (byte) init_font_hex::idx#3 ← ++ (byte) init_font_hex::idx#2
|
||||
[78] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#3) ← (byte) 0
|
||||
[79] (byte*) init_font_hex::proto_lo#1 ← (byte*) init_font_hex::proto_lo#4 + (byte) 5
|
||||
[80] (byte*) init_font_hex::charset#0 ← (byte*) init_font_hex::charset#2 + (byte) 8
|
||||
[81] (byte) init_font_hex::c1#1 ← ++ (byte) init_font_hex::c1#4
|
||||
[82] if((byte) init_font_hex::c1#1!=(byte) $10) goto init_font_hex::@2
|
||||
to:init_font_hex::@5
|
||||
init_font_hex::@5: scope:[init_font_hex] from init_font_hex::@4
|
||||
[83] (byte*) init_font_hex::proto_hi#1 ← (byte*) init_font_hex::proto_hi#6 + (byte) 5
|
||||
[84] (byte) init_font_hex::c#1 ← ++ (byte) init_font_hex::c#6
|
||||
[85] if((byte) init_font_hex::c#1!=(byte) $10) goto init_font_hex::@1
|
||||
to:init_font_hex::@return
|
||||
init_font_hex::@return: scope:[init_font_hex] from init_font_hex::@5
|
||||
[86] return
|
||||
to:@return
|
||||
4175
src/test/ref/cordic-atan2-16.log
Normal file
4175
src/test/ref/cordic-atan2-16.log
Normal file
File diff suppressed because it is too large
Load Diff
192
src/test/ref/cordic-atan2-16.sym
Normal file
192
src/test/ref/cordic-atan2-16.sym
Normal file
@ -0,0 +1,192 @@
|
||||
(label) @1
|
||||
(label) @2
|
||||
(label) @3
|
||||
(label) @4
|
||||
(label) @begin
|
||||
(label) @end
|
||||
(byte*) CHARSET
|
||||
(const byte*) CHARSET#0 CHARSET = (byte*) 8192
|
||||
(byte*) COLS
|
||||
(const byte*) COLS#0 COLS = (byte*) 55296
|
||||
(word*) CORDIC_ATAN2_ANGLES_16
|
||||
(const word*) CORDIC_ATAN2_ANGLES_16#0 CORDIC_ATAN2_ANGLES_16 = (word*) 4096
|
||||
(byte*) CORDIC_ATAN2_ANGLES_8
|
||||
(const byte*) CORDIC_ATAN2_ANGLES_8#0 CORDIC_ATAN2_ANGLES_8 = (byte*) 4352
|
||||
(byte) CORDIC_ITERATIONS_16
|
||||
(const byte) CORDIC_ITERATIONS_16#0 CORDIC_ITERATIONS_16 = (byte) $f
|
||||
(byte) CORDIC_ITERATIONS_8
|
||||
(const byte) CORDIC_ITERATIONS_8#0 CORDIC_ITERATIONS_8 = (byte) 8
|
||||
(byte*) D018
|
||||
(const byte*) D018#0 D018 = (byte*) 53272
|
||||
(byte[]) FONT_HEX_PROTO
|
||||
(const byte[]) FONT_HEX_PROTO#0 FONT_HEX_PROTO = { (byte) 2, (byte) 5, (byte) 5, (byte) 5, (byte) 2, (byte) 6, (byte) 2, (byte) 2, (byte) 2, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 4, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 1, (byte) 6, (byte) 5, (byte) 5, (byte) 7, (byte) 1, (byte) 1, (byte) 7, (byte) 4, (byte) 6, (byte) 1, (byte) 6, (byte) 3, (byte) 4, (byte) 6, (byte) 5, (byte) 2, (byte) 7, (byte) 1, (byte) 1, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 2, (byte) 5, (byte) 2, (byte) 2, (byte) 5, (byte) 3, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 7, (byte) 5, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 2, (byte) 5, (byte) 4, (byte) 5, (byte) 2, (byte) 6, (byte) 5, (byte) 5, (byte) 5, (byte) 6, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 7, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 4 }
|
||||
(byte*) SCREEN
|
||||
(const byte*) SCREEN#0 SCREEN = (byte*) 10240
|
||||
(byte*) SCREEN_REF
|
||||
(const byte*) SCREEN_REF#0 SCREEN_REF = (byte*) 11264
|
||||
(word()) atan2_16((signed word) atan2_16::x , (signed word) atan2_16::y)
|
||||
(signed word~) atan2_16::$2 $2 zp ZP_WORD:7 4.0
|
||||
(byte~) atan2_16::$22 reg byte a 2002.0
|
||||
(byte~) atan2_16::$23 reg byte a 2002.0
|
||||
(signed word~) atan2_16::$7 $7 zp ZP_WORD:9 4.0
|
||||
(label) atan2_16::@1
|
||||
(label) atan2_16::@10
|
||||
(label) atan2_16::@11
|
||||
(label) atan2_16::@12
|
||||
(label) atan2_16::@13
|
||||
(label) atan2_16::@14
|
||||
(label) atan2_16::@15
|
||||
(label) atan2_16::@16
|
||||
(label) atan2_16::@2
|
||||
(label) atan2_16::@3
|
||||
(label) atan2_16::@4
|
||||
(label) atan2_16::@5
|
||||
(label) atan2_16::@6
|
||||
(label) atan2_16::@7
|
||||
(label) atan2_16::@8
|
||||
(label) atan2_16::@9
|
||||
(label) atan2_16::@return
|
||||
(word) atan2_16::angle
|
||||
(word) atan2_16::angle#1 angle zp ZP_WORD:12 3.0
|
||||
(word) atan2_16::angle#11 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#12 angle zp ZP_WORD:12 364.0
|
||||
(word) atan2_16::angle#13 angle zp ZP_WORD:12 1334.6666666666667
|
||||
(word) atan2_16::angle#2 angle zp ZP_WORD:12 2002.0
|
||||
(word) atan2_16::angle#3 angle zp ZP_WORD:12 2002.0
|
||||
(word) atan2_16::angle#4 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#5 angle zp ZP_WORD:12 4.0
|
||||
(word) atan2_16::angle#6 angle zp ZP_WORD:12 2004.0
|
||||
(byte) atan2_16::i
|
||||
(byte) atan2_16::i#1 i zp ZP_BYTE:11 1501.5
|
||||
(byte) atan2_16::i#2 i zp ZP_BYTE:11 429.0
|
||||
(word) atan2_16::return
|
||||
(word) atan2_16::return#0 return zp ZP_WORD:12 34.99999999999999
|
||||
(word) atan2_16::return#2 return zp ZP_WORD:12 202.0
|
||||
(signed word) atan2_16::x
|
||||
(signed word) atan2_16::x#0 x zp ZP_WORD:23 3.8928571428571437
|
||||
(signed word) atan2_16::xd
|
||||
(signed word) atan2_16::xd#0 xd zp ZP_WORD:27 600.5999999999999
|
||||
(signed word) atan2_16::xi
|
||||
(signed word) atan2_16::xi#0 xi zp ZP_WORD:9 6.0
|
||||
(signed word) atan2_16::xi#1 xi zp ZP_WORD:9 500.5
|
||||
(signed word) atan2_16::xi#2 xi zp ZP_WORD:9 500.5
|
||||
(signed word) atan2_16::xi#3 xi zp ZP_WORD:9 801.2
|
||||
(signed word) atan2_16::xi#7 xi zp ZP_WORD:9 1001.0
|
||||
(signed word~) atan2_16::xi#8 xi zp ZP_WORD:9 4.0
|
||||
(signed word) atan2_16::y
|
||||
(signed word) atan2_16::y#0 y zp ZP_WORD:25 3.633333333333334
|
||||
(signed word) atan2_16::yd
|
||||
(signed word) atan2_16::yd#0 yd zp ZP_WORD:29 1501.5
|
||||
(signed word) atan2_16::yi
|
||||
(signed word) atan2_16::yi#0 yi zp ZP_WORD:7 1.2000000000000002
|
||||
(signed word) atan2_16::yi#1 yi zp ZP_WORD:7 667.3333333333334
|
||||
(signed word~) atan2_16::yi#11 yi zp ZP_WORD:7 4.0
|
||||
(signed word) atan2_16::yi#2 yi zp ZP_WORD:7 667.3333333333334
|
||||
(signed word) atan2_16::yi#3 yi zp ZP_WORD:7 858.2857142857142
|
||||
(signed word) atan2_16::yi#7 yi zp ZP_WORD:7 1001.0
|
||||
(void()) init_font_hex((byte*) init_font_hex::charset)
|
||||
(byte~) init_font_hex::$0 $0 zp ZP_BYTE:31 1001.0
|
||||
(byte~) init_font_hex::$1 reg byte a 2002.0
|
||||
(byte~) init_font_hex::$2 reg byte a 2002.0
|
||||
(label) init_font_hex::@1
|
||||
(label) init_font_hex::@2
|
||||
(label) init_font_hex::@3
|
||||
(label) init_font_hex::@4
|
||||
(label) init_font_hex::@5
|
||||
(label) init_font_hex::@return
|
||||
(byte) init_font_hex::c
|
||||
(byte) init_font_hex::c#1 c zp ZP_BYTE:16 16.5
|
||||
(byte) init_font_hex::c#6 c zp ZP_BYTE:16 1.1578947368421053
|
||||
(byte) init_font_hex::c1
|
||||
(byte) init_font_hex::c1#1 c1 zp ZP_BYTE:21 151.5
|
||||
(byte) init_font_hex::c1#4 c1 zp ZP_BYTE:21 13.466666666666667
|
||||
(byte*) init_font_hex::charset
|
||||
(byte*) init_font_hex::charset#0 charset zp ZP_WORD:17 35.5
|
||||
(byte*) init_font_hex::charset#2 charset zp ZP_WORD:17 108.35714285714285
|
||||
(byte*) init_font_hex::charset#5 charset zp ZP_WORD:17 22.0
|
||||
(byte) init_font_hex::i
|
||||
(byte) init_font_hex::i#1 reg byte x 1501.5
|
||||
(byte) init_font_hex::i#2 reg byte x 667.3333333333334
|
||||
(byte) init_font_hex::idx
|
||||
(byte) init_font_hex::idx#2 idx zp ZP_BYTE:22 551.0
|
||||
(byte) init_font_hex::idx#3 reg byte y 202.0
|
||||
(byte) init_font_hex::idx#5 idx zp ZP_BYTE:22 600.5999999999999
|
||||
(byte*) init_font_hex::proto_hi
|
||||
(byte*) init_font_hex::proto_hi#1 proto_hi zp ZP_WORD:14 7.333333333333333
|
||||
(byte*) init_font_hex::proto_hi#6 proto_hi zp ZP_WORD:14 56.83333333333334
|
||||
(byte*) init_font_hex::proto_lo
|
||||
(byte*) init_font_hex::proto_lo#1 proto_lo zp ZP_WORD:19 50.5
|
||||
(byte*) init_font_hex::proto_lo#4 proto_lo zp ZP_WORD:19 92.53846153846155
|
||||
(void()) main()
|
||||
(word~) main::$11 $11 zp ZP_WORD:12 202.0
|
||||
(byte~) main::$12 reg byte a 202.0
|
||||
(byte~) main::$13 reg byte a 202.0
|
||||
(label) main::@1
|
||||
(label) main::@2
|
||||
(label) main::@3
|
||||
(label) main::@4
|
||||
(label) main::@5
|
||||
(label) main::@6
|
||||
(word) main::angle_w
|
||||
(word) main::angle_w#0 angle_w zp ZP_WORD:12 202.0
|
||||
(byte*) main::col00
|
||||
(byte*) main::screen
|
||||
(byte*) main::screen#1 screen zp ZP_WORD:5 35.5
|
||||
(byte*) main::screen#2 screen zp ZP_WORD:5 26.166666666666664
|
||||
(byte*) main::screen#4 screen zp ZP_WORD:5 22.0
|
||||
(byte*) main::screen_ref
|
||||
(byte*) main::screen_ref#1 screen_ref zp ZP_WORD:3 42.599999999999994
|
||||
(byte*) main::screen_ref#2 screen_ref zp ZP_WORD:3 24.153846153846153
|
||||
(byte*) main::screen_ref#4 screen_ref zp ZP_WORD:3 22.0
|
||||
(label) main::toD0181
|
||||
(word~) main::toD0181_$0
|
||||
(number~) main::toD0181_$1
|
||||
(number~) main::toD0181_$2
|
||||
(number~) main::toD0181_$3
|
||||
(word~) main::toD0181_$4
|
||||
(byte~) main::toD0181_$5
|
||||
(number~) main::toD0181_$6
|
||||
(number~) main::toD0181_$7
|
||||
(number~) main::toD0181_$8
|
||||
(byte*) main::toD0181_gfx
|
||||
(byte) main::toD0181_return
|
||||
(const byte) main::toD0181_return#0 toD0181_return = >(word)(const byte*) SCREEN#0&(word) $3fff*(byte) 4|>(word)(const byte*) CHARSET#0/(byte) 4&(byte) $f
|
||||
(byte*) main::toD0181_screen
|
||||
(signed byte) main::x
|
||||
(signed byte) main::x#1 reg byte x 151.5
|
||||
(signed byte) main::x#2 reg byte x 14.428571428571429
|
||||
(signed word) main::xw
|
||||
(word) main::xw#0 xw zp ZP_WORD:23 50.5
|
||||
(signed byte) main::y
|
||||
(signed byte) main::y#1 y zp ZP_BYTE:2 16.5
|
||||
(signed byte) main::y#4 y zp ZP_BYTE:2 1.2941176470588236
|
||||
(signed word) main::yw
|
||||
(word) main::yw#0 yw zp ZP_WORD:25 50.5
|
||||
|
||||
zp ZP_BYTE:2 [ main::y#4 main::y#1 ]
|
||||
reg byte x [ main::x#2 main::x#1 ]
|
||||
zp ZP_WORD:3 [ main::screen_ref#2 main::screen_ref#4 main::screen_ref#1 ]
|
||||
zp ZP_WORD:5 [ main::screen#2 main::screen#4 main::screen#1 ]
|
||||
zp ZP_WORD:7 [ atan2_16::yi#3 atan2_16::yi#7 atan2_16::yi#0 atan2_16::yi#11 atan2_16::$2 atan2_16::yi#1 atan2_16::yi#2 ]
|
||||
zp ZP_WORD:9 [ atan2_16::xi#3 atan2_16::xi#7 atan2_16::xi#0 atan2_16::xi#8 atan2_16::$7 atan2_16::xi#1 atan2_16::xi#2 ]
|
||||
zp ZP_BYTE:11 [ atan2_16::i#2 atan2_16::i#1 ]
|
||||
zp ZP_WORD:12 [ atan2_16::angle#6 atan2_16::angle#12 atan2_16::angle#13 atan2_16::angle#2 atan2_16::angle#3 atan2_16::return#0 atan2_16::angle#5 atan2_16::angle#11 atan2_16::angle#1 atan2_16::angle#4 atan2_16::return#2 main::angle_w#0 main::$11 ]
|
||||
zp ZP_WORD:14 [ init_font_hex::proto_hi#6 init_font_hex::proto_hi#1 ]
|
||||
zp ZP_BYTE:16 [ init_font_hex::c#6 init_font_hex::c#1 ]
|
||||
zp ZP_WORD:17 [ init_font_hex::charset#2 init_font_hex::charset#5 init_font_hex::charset#0 ]
|
||||
zp ZP_WORD:19 [ init_font_hex::proto_lo#4 init_font_hex::proto_lo#1 ]
|
||||
zp ZP_BYTE:21 [ init_font_hex::c1#4 init_font_hex::c1#1 ]
|
||||
reg byte x [ init_font_hex::i#2 init_font_hex::i#1 ]
|
||||
zp ZP_BYTE:22 [ init_font_hex::idx#5 init_font_hex::idx#2 ]
|
||||
zp ZP_WORD:23 [ main::xw#0 atan2_16::x#0 ]
|
||||
zp ZP_WORD:25 [ main::yw#0 atan2_16::y#0 ]
|
||||
reg byte a [ main::$12 ]
|
||||
reg byte a [ main::$13 ]
|
||||
zp ZP_WORD:27 [ atan2_16::xd#0 ]
|
||||
zp ZP_WORD:29 [ atan2_16::yd#0 ]
|
||||
reg byte a [ atan2_16::$23 ]
|
||||
reg byte a [ atan2_16::$22 ]
|
||||
zp ZP_BYTE:31 [ init_font_hex::$0 ]
|
||||
reg byte a [ init_font_hex::$1 ]
|
||||
reg byte a [ init_font_hex::$2 ]
|
||||
reg byte y [ init_font_hex::idx#3 ]
|
||||
@ -6,12 +6,17 @@
|
||||
.label D018 = $d018
|
||||
// Color Ram
|
||||
.label COLS = $d800
|
||||
// The number of iterations performed during 16-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_16 = $f
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_16 = $1000
|
||||
// The number of iterations performed during 8-bit CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS_8 = 8
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES_8 = $1100
|
||||
.label CHARSET = $2000
|
||||
.label SCREEN = $2800
|
||||
// The number of iterations performed during CORDIC atan2 calculation
|
||||
.const CORDIC_ITERATIONS = 8
|
||||
// Angles representing ATAN(0.5), ATAN(0.25), ATAN(0.125), ...
|
||||
.label CORDIC_ATAN2_ANGLES = $1000
|
||||
// Populate cordic angles table
|
||||
// Populate cordic angles table
|
||||
main: {
|
||||
.const toD0181_return = (>(SCREEN&$3fff)*4)|(>CHARSET)/4&$f
|
||||
@ -31,7 +36,7 @@ main: {
|
||||
lda #-$13
|
||||
sta x
|
||||
b2:
|
||||
jsr atan2
|
||||
jsr atan2_8
|
||||
txa
|
||||
ldy #0
|
||||
sta (screen),y
|
||||
@ -56,16 +61,16 @@ main: {
|
||||
}
|
||||
// Find the atan2(x, y) - which is the angle of the line from (0,0) to (x,y)
|
||||
// Finding the angle requires a binary search using CORDIC_ITERATIONS
|
||||
// Returns the angle in hex-degrees (0=0, 128=PI, 256=2*PI)
|
||||
// atan2(signed byte zeropage(3) x, signed byte zeropage(2) y)
|
||||
atan2: {
|
||||
// Returns the angle in hex-degrees (0=0, 0x80=PI, 0x100=2*PI)
|
||||
// atan2_8(signed byte zeropage(3) x, signed byte zeropage(2) y)
|
||||
atan2_8: {
|
||||
.label _7 = 6
|
||||
.label x = 3
|
||||
.label y = 2
|
||||
.label xi = 6
|
||||
.label xd = $12
|
||||
.label angle = 8
|
||||
.label i = 7
|
||||
.label x = 3
|
||||
.label y = 2
|
||||
lda y
|
||||
cmp #0
|
||||
beq !+
|
||||
@ -161,11 +166,11 @@ atan2: {
|
||||
lda angle
|
||||
ldy i
|
||||
sec
|
||||
sbc CORDIC_ATAN2_ANGLES,y
|
||||
sbc CORDIC_ATAN2_ANGLES_8,y
|
||||
sta angle
|
||||
b14:
|
||||
inc i
|
||||
lda #CORDIC_ITERATIONS+1
|
||||
lda #CORDIC_ITERATIONS_8+1
|
||||
cmp i
|
||||
beq b12
|
||||
jmp b10
|
||||
@ -181,7 +186,7 @@ atan2: {
|
||||
lda angle
|
||||
ldy i
|
||||
clc
|
||||
adc CORDIC_ATAN2_ANGLES,y
|
||||
adc CORDIC_ATAN2_ANGLES_8,y
|
||||
sta angle
|
||||
jmp b14
|
||||
b4:
|
||||
@ -284,6 +289,10 @@ init_font_hex: {
|
||||
}
|
||||
// Bit patterns for symbols 0-f (3x5 pixels) used in font hex
|
||||
FONT_HEX_PROTO: .byte 2, 5, 5, 5, 2, 6, 2, 2, 2, 7, 6, 1, 2, 4, 7, 6, 1, 2, 1, 6, 5, 5, 7, 1, 1, 7, 4, 6, 1, 6, 3, 4, 6, 5, 2, 7, 1, 1, 1, 1, 2, 5, 2, 5, 2, 2, 5, 3, 1, 1, 2, 5, 7, 5, 5, 6, 5, 6, 5, 6, 2, 5, 4, 5, 2, 6, 5, 5, 5, 6, 7, 4, 6, 4, 7, 7, 4, 6, 4, 4
|
||||
.pc = CORDIC_ATAN2_ANGLES "CORDIC_ATAN2_ANGLES"
|
||||
.fill CORDIC_ITERATIONS, 2*256*atan(1/pow(2,i))/PI/2
|
||||
.pc = CORDIC_ATAN2_ANGLES_16 "CORDIC_ATAN2_ANGLES_16"
|
||||
.for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
.pc = CORDIC_ATAN2_ANGLES_8 "CORDIC_ATAN2_ANGLES_8"
|
||||
.fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
|
||||
|
||||
@ -2,162 +2,167 @@
|
||||
[0] phi()
|
||||
to:@1
|
||||
@1: scope:[] from @begin
|
||||
kickasm(location (const byte*) CORDIC_ATAN2_ANGLES#0) {{ .fill CORDIC_ITERATIONS, 2*256*atan(1/pow(2,i))/PI/2
|
||||
kickasm(location (const word*) CORDIC_ATAN2_ANGLES_16#0 uses CORDIC_ITERATIONS_16#0) {{ .for (var i=0; i<CORDIC_ITERATIONS_16; i++)
|
||||
.word 256*2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@2
|
||||
@2: scope:[] from @1
|
||||
[2] phi()
|
||||
[3] call main
|
||||
kickasm(location (const byte*) CORDIC_ATAN2_ANGLES_8#0 uses CORDIC_ITERATIONS_8#0) {{ .fill CORDIC_ITERATIONS_8, 2*256*atan(1/pow(2,i))/PI/2
|
||||
}}
|
||||
to:@3
|
||||
@3: scope:[] from @2
|
||||
[3] phi()
|
||||
[4] call main
|
||||
to:@end
|
||||
@end: scope:[] from @2
|
||||
[4] phi()
|
||||
main: scope:[main] from @2
|
||||
@end: scope:[] from @3
|
||||
[5] phi()
|
||||
[6] call init_font_hex
|
||||
main: scope:[main] from @3
|
||||
[6] phi()
|
||||
[7] call init_font_hex
|
||||
to:main::toD0181
|
||||
main::toD0181: scope:[main] from main
|
||||
[7] phi()
|
||||
[8] phi()
|
||||
to:main::@5
|
||||
main::@5: scope:[main] from main::toD0181
|
||||
[8] *((const byte*) D018#0) ← (const byte) main::toD0181_return#0
|
||||
[9] *((const byte*) D018#0) ← (const byte) main::toD0181_return#0
|
||||
to:main::@1
|
||||
main::@1: scope:[main] from main::@3 main::@5
|
||||
[9] (byte*) main::screen#4 ← phi( main::@5/(const byte*) SCREEN#0 main::@3/(byte*) main::screen#1 )
|
||||
[9] (signed byte) main::y#4 ← phi( main::@5/(signed byte) -$c main::@3/(signed byte) main::y#1 )
|
||||
[10] (byte*) main::screen#4 ← phi( main::@5/(const byte*) SCREEN#0 main::@3/(byte*) main::screen#1 )
|
||||
[10] (signed byte) main::y#4 ← phi( main::@5/(signed byte) -$c main::@3/(signed byte) main::y#1 )
|
||||
to:main::@2
|
||||
main::@2: scope:[main] from main::@1 main::@6
|
||||
[10] (byte*) main::screen#2 ← phi( main::@1/(byte*) main::screen#4 main::@6/(byte*) main::screen#1 )
|
||||
[10] (signed byte) main::x#2 ← phi( main::@1/(signed byte) -$13 main::@6/(signed byte) main::x#1 )
|
||||
[11] (signed byte) atan2::x#0 ← (signed byte) main::x#2
|
||||
[12] (signed byte) atan2::y#0 ← (signed byte) main::y#4
|
||||
[13] call atan2
|
||||
[14] (byte) atan2::return#0 ← (byte) atan2::return#1
|
||||
[11] (byte*) main::screen#2 ← phi( main::@1/(byte*) main::screen#4 main::@6/(byte*) main::screen#1 )
|
||||
[11] (signed byte) main::x#2 ← phi( main::@1/(signed byte) -$13 main::@6/(signed byte) main::x#1 )
|
||||
[12] (signed byte) atan2_8::x#0 ← (signed byte) main::x#2
|
||||
[13] (signed byte) atan2_8::y#0 ← (signed byte) main::y#4
|
||||
[14] call atan2_8
|
||||
[15] (byte) atan2_8::return#2 ← (byte) atan2_8::return#0
|
||||
to:main::@6
|
||||
main::@6: scope:[main] from main::@2
|
||||
[15] (byte) main::angle#0 ← (byte) atan2::return#0
|
||||
[16] *((byte*) main::screen#2) ← (byte) main::angle#0
|
||||
[17] (byte*) main::screen#1 ← ++ (byte*) main::screen#2
|
||||
[18] (signed byte) main::x#1 ← ++ (signed byte) main::x#2
|
||||
[19] if((signed byte) main::x#1!=(signed byte) $15) goto main::@2
|
||||
[16] (byte) main::angle#0 ← (byte) atan2_8::return#2
|
||||
[17] *((byte*) main::screen#2) ← (byte) main::angle#0
|
||||
[18] (byte*) main::screen#1 ← ++ (byte*) main::screen#2
|
||||
[19] (signed byte) main::x#1 ← ++ (signed byte) main::x#2
|
||||
[20] if((signed byte) main::x#1!=(signed byte) $15) goto main::@2
|
||||
to:main::@3
|
||||
main::@3: scope:[main] from main::@6
|
||||
[20] (signed byte) main::y#1 ← ++ (signed byte) main::y#4
|
||||
[21] if((signed byte) main::y#1!=(signed byte) $d) goto main::@1
|
||||
[21] (signed byte) main::y#1 ← ++ (signed byte) main::y#4
|
||||
[22] if((signed byte) main::y#1!=(signed byte) $d) goto main::@1
|
||||
to:main::@4
|
||||
main::@4: scope:[main] from main::@3 main::@4
|
||||
[22] *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13) ← ++ *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13)
|
||||
[23] *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13) ← ++ *((const byte*) COLS#0+(word)(number) $c*(number) $28+(byte) $13)
|
||||
to:main::@4
|
||||
atan2: scope:[atan2] from main::@2
|
||||
[23] if((signed byte) atan2::y#0>(signed byte) 0) goto atan2::@1
|
||||
to:atan2::@2
|
||||
atan2::@2: scope:[atan2] from atan2
|
||||
[24] (signed byte~) atan2::$2 ← - (signed byte) atan2::y#0
|
||||
to:atan2::@3
|
||||
atan2::@3: scope:[atan2] from atan2::@1 atan2::@2
|
||||
[25] (signed byte) atan2::yi#0 ← phi( atan2::@1/(signed byte~) atan2::yi#11 atan2::@2/(signed byte~) atan2::$2 )
|
||||
[26] if((signed byte) atan2::x#0>(signed byte) 0) goto atan2::@4
|
||||
to:atan2::@5
|
||||
atan2::@5: scope:[atan2] from atan2::@3
|
||||
[27] (signed byte~) atan2::$7 ← - (signed byte) atan2::x#0
|
||||
to:atan2::@6
|
||||
atan2::@6: scope:[atan2] from atan2::@4 atan2::@5
|
||||
[28] (signed byte) atan2::xi#0 ← phi( atan2::@4/(signed byte~) atan2::xi#8 atan2::@5/(signed byte~) atan2::$7 )
|
||||
to:atan2::@10
|
||||
atan2::@10: scope:[atan2] from atan2::@14 atan2::@6
|
||||
[29] (byte) atan2::angle#12 ← phi( atan2::@14/(byte) atan2::angle#13 atan2::@6/(byte) 0 )
|
||||
[29] (byte) atan2::i#2 ← phi( atan2::@14/(byte) atan2::i#1 atan2::@6/(byte) 0 )
|
||||
[29] (signed byte) atan2::xi#3 ← phi( atan2::@14/(signed byte) atan2::xi#7 atan2::@6/(signed byte) atan2::xi#0 )
|
||||
[29] (signed byte) atan2::yi#3 ← phi( atan2::@14/(signed byte) atan2::yi#7 atan2::@6/(signed byte) atan2::yi#0 )
|
||||
[30] if((signed byte) atan2::yi#3!=(signed byte) 0) goto atan2::@11
|
||||
to:atan2::@12
|
||||
atan2::@12: scope:[atan2] from atan2::@10 atan2::@14
|
||||
[31] (byte) atan2::angle#6 ← phi( atan2::@10/(byte) atan2::angle#12 atan2::@14/(byte) atan2::angle#13 )
|
||||
[32] (byte) atan2::angle#1 ← (byte) atan2::angle#6 >> (byte) 1
|
||||
[33] if((signed byte) atan2::x#0>=(signed byte) 0) goto atan2::@7
|
||||
to:atan2::@16
|
||||
atan2::@16: scope:[atan2] from atan2::@12
|
||||
[34] (byte) atan2::angle#4 ← (byte) $80 - (byte) atan2::angle#1
|
||||
to:atan2::@7
|
||||
atan2::@7: scope:[atan2] from atan2::@12 atan2::@16
|
||||
[35] (byte) atan2::angle#11 ← phi( atan2::@12/(byte) atan2::angle#1 atan2::@16/(byte) atan2::angle#4 )
|
||||
[36] if((signed byte) atan2::y#0>=(signed byte) 0) goto atan2::@8
|
||||
to:atan2::@9
|
||||
atan2::@9: scope:[atan2] from atan2::@7
|
||||
[37] (byte) atan2::angle#5 ← - (byte) atan2::angle#11
|
||||
to:atan2::@8
|
||||
atan2::@8: scope:[atan2] from atan2::@7 atan2::@9
|
||||
[38] (byte) atan2::return#1 ← phi( atan2::@9/(byte) atan2::angle#5 atan2::@7/(byte) atan2::angle#11 )
|
||||
to:atan2::@return
|
||||
atan2::@return: scope:[atan2] from atan2::@8
|
||||
[39] return
|
||||
atan2_8: scope:[atan2_8] from main::@2
|
||||
[24] if((signed byte) atan2_8::y#0>(signed byte) 0) goto atan2_8::@1
|
||||
to:atan2_8::@2
|
||||
atan2_8::@2: scope:[atan2_8] from atan2_8
|
||||
[25] (signed byte~) atan2_8::$2 ← - (signed byte) atan2_8::y#0
|
||||
to:atan2_8::@3
|
||||
atan2_8::@3: scope:[atan2_8] from atan2_8::@1 atan2_8::@2
|
||||
[26] (signed byte) atan2_8::yi#0 ← phi( atan2_8::@1/(signed byte~) atan2_8::yi#11 atan2_8::@2/(signed byte~) atan2_8::$2 )
|
||||
[27] if((signed byte) atan2_8::x#0>(signed byte) 0) goto atan2_8::@4
|
||||
to:atan2_8::@5
|
||||
atan2_8::@5: scope:[atan2_8] from atan2_8::@3
|
||||
[28] (signed byte~) atan2_8::$7 ← - (signed byte) atan2_8::x#0
|
||||
to:atan2_8::@6
|
||||
atan2_8::@6: scope:[atan2_8] from atan2_8::@4 atan2_8::@5
|
||||
[29] (signed byte) atan2_8::xi#0 ← phi( atan2_8::@4/(signed byte~) atan2_8::xi#8 atan2_8::@5/(signed byte~) atan2_8::$7 )
|
||||
to:atan2_8::@10
|
||||
atan2_8::@10: scope:[atan2_8] from atan2_8::@14 atan2_8::@6
|
||||
[30] (byte) atan2_8::angle#12 ← phi( atan2_8::@14/(byte) atan2_8::angle#13 atan2_8::@6/(byte) 0 )
|
||||
[30] (byte) atan2_8::i#2 ← phi( atan2_8::@14/(byte) atan2_8::i#1 atan2_8::@6/(byte) 0 )
|
||||
[30] (signed byte) atan2_8::xi#3 ← phi( atan2_8::@14/(signed byte) atan2_8::xi#7 atan2_8::@6/(signed byte) atan2_8::xi#0 )
|
||||
[30] (signed byte) atan2_8::yi#3 ← phi( atan2_8::@14/(signed byte) atan2_8::yi#7 atan2_8::@6/(signed byte) atan2_8::yi#0 )
|
||||
[31] if((signed byte) atan2_8::yi#3!=(signed byte) 0) goto atan2_8::@11
|
||||
to:atan2_8::@12
|
||||
atan2_8::@12: scope:[atan2_8] from atan2_8::@10 atan2_8::@14
|
||||
[32] (byte) atan2_8::angle#6 ← phi( atan2_8::@10/(byte) atan2_8::angle#12 atan2_8::@14/(byte) atan2_8::angle#13 )
|
||||
[33] (byte) atan2_8::angle#1 ← (byte) atan2_8::angle#6 >> (byte) 1
|
||||
[34] if((signed byte) atan2_8::x#0>=(signed byte) 0) goto atan2_8::@7
|
||||
to:atan2_8::@16
|
||||
atan2_8::@16: scope:[atan2_8] from atan2_8::@12
|
||||
[35] (byte) atan2_8::angle#4 ← (byte) $80 - (byte) atan2_8::angle#1
|
||||
to:atan2_8::@7
|
||||
atan2_8::@7: scope:[atan2_8] from atan2_8::@12 atan2_8::@16
|
||||
[36] (byte) atan2_8::angle#11 ← phi( atan2_8::@12/(byte) atan2_8::angle#1 atan2_8::@16/(byte) atan2_8::angle#4 )
|
||||
[37] if((signed byte) atan2_8::y#0>=(signed byte) 0) goto atan2_8::@8
|
||||
to:atan2_8::@9
|
||||
atan2_8::@9: scope:[atan2_8] from atan2_8::@7
|
||||
[38] (byte) atan2_8::angle#5 ← - (byte) atan2_8::angle#11
|
||||
to:atan2_8::@8
|
||||
atan2_8::@8: scope:[atan2_8] from atan2_8::@7 atan2_8::@9
|
||||
[39] (byte) atan2_8::return#0 ← phi( atan2_8::@9/(byte) atan2_8::angle#5 atan2_8::@7/(byte) atan2_8::angle#11 )
|
||||
to:atan2_8::@return
|
||||
atan2_8::@return: scope:[atan2_8] from atan2_8::@8
|
||||
[40] return
|
||||
to:@return
|
||||
atan2::@11: scope:[atan2] from atan2::@10
|
||||
[40] (signed byte) atan2::xd#0 ← (signed byte) atan2::xi#3 >> (byte) atan2::i#2
|
||||
[41] (signed byte) atan2::yd#0 ← (signed byte) atan2::yi#3 >> (byte) atan2::i#2
|
||||
[42] if((signed byte) atan2::yi#3>(signed byte) 0) goto atan2::@13
|
||||
to:atan2::@15
|
||||
atan2::@15: scope:[atan2] from atan2::@11
|
||||
[43] (signed byte) atan2::xi#2 ← (signed byte) atan2::xi#3 - (signed byte) atan2::yd#0
|
||||
[44] (signed byte) atan2::yi#2 ← (signed byte) atan2::yi#3 + (signed byte) atan2::xd#0
|
||||
[45] (byte) atan2::angle#3 ← (byte) atan2::angle#12 - *((const byte*) CORDIC_ATAN2_ANGLES#0 + (byte) atan2::i#2)
|
||||
to:atan2::@14
|
||||
atan2::@14: scope:[atan2] from atan2::@13 atan2::@15
|
||||
[46] (signed byte) atan2::xi#7 ← phi( atan2::@13/(signed byte) atan2::xi#1 atan2::@15/(signed byte) atan2::xi#2 )
|
||||
[46] (byte) atan2::angle#13 ← phi( atan2::@13/(byte) atan2::angle#2 atan2::@15/(byte) atan2::angle#3 )
|
||||
[46] (signed byte) atan2::yi#7 ← phi( atan2::@13/(signed byte) atan2::yi#1 atan2::@15/(signed byte) atan2::yi#2 )
|
||||
[47] (byte) atan2::i#1 ← ++ (byte) atan2::i#2
|
||||
[48] if((byte) atan2::i#1==(const byte) CORDIC_ITERATIONS#0+(byte) 1) goto atan2::@12
|
||||
to:atan2::@10
|
||||
atan2::@13: scope:[atan2] from atan2::@11
|
||||
[49] (signed byte) atan2::xi#1 ← (signed byte) atan2::xi#3 + (signed byte) atan2::yd#0
|
||||
[50] (signed byte) atan2::yi#1 ← (signed byte) atan2::yi#3 - (signed byte) atan2::xd#0
|
||||
[51] (byte) atan2::angle#2 ← (byte) atan2::angle#12 + *((const byte*) CORDIC_ATAN2_ANGLES#0 + (byte) atan2::i#2)
|
||||
to:atan2::@14
|
||||
atan2::@4: scope:[atan2] from atan2::@3
|
||||
[52] (signed byte~) atan2::xi#8 ← (signed byte) atan2::x#0
|
||||
to:atan2::@6
|
||||
atan2::@1: scope:[atan2] from atan2
|
||||
[53] (signed byte~) atan2::yi#11 ← (signed byte) atan2::y#0
|
||||
to:atan2::@3
|
||||
atan2_8::@11: scope:[atan2_8] from atan2_8::@10
|
||||
[41] (signed byte) atan2_8::xd#0 ← (signed byte) atan2_8::xi#3 >> (byte) atan2_8::i#2
|
||||
[42] (signed byte) atan2_8::yd#0 ← (signed byte) atan2_8::yi#3 >> (byte) atan2_8::i#2
|
||||
[43] if((signed byte) atan2_8::yi#3>(signed byte) 0) goto atan2_8::@13
|
||||
to:atan2_8::@15
|
||||
atan2_8::@15: scope:[atan2_8] from atan2_8::@11
|
||||
[44] (signed byte) atan2_8::xi#2 ← (signed byte) atan2_8::xi#3 - (signed byte) atan2_8::yd#0
|
||||
[45] (signed byte) atan2_8::yi#2 ← (signed byte) atan2_8::yi#3 + (signed byte) atan2_8::xd#0
|
||||
[46] (byte) atan2_8::angle#3 ← (byte) atan2_8::angle#12 - *((const byte*) CORDIC_ATAN2_ANGLES_8#0 + (byte) atan2_8::i#2)
|
||||
to:atan2_8::@14
|
||||
atan2_8::@14: scope:[atan2_8] from atan2_8::@13 atan2_8::@15
|
||||
[47] (signed byte) atan2_8::xi#7 ← phi( atan2_8::@13/(signed byte) atan2_8::xi#1 atan2_8::@15/(signed byte) atan2_8::xi#2 )
|
||||
[47] (byte) atan2_8::angle#13 ← phi( atan2_8::@13/(byte) atan2_8::angle#2 atan2_8::@15/(byte) atan2_8::angle#3 )
|
||||
[47] (signed byte) atan2_8::yi#7 ← phi( atan2_8::@13/(signed byte) atan2_8::yi#1 atan2_8::@15/(signed byte) atan2_8::yi#2 )
|
||||
[48] (byte) atan2_8::i#1 ← ++ (byte) atan2_8::i#2
|
||||
[49] if((byte) atan2_8::i#1==(const byte) CORDIC_ITERATIONS_8#0+(byte) 1) goto atan2_8::@12
|
||||
to:atan2_8::@10
|
||||
atan2_8::@13: scope:[atan2_8] from atan2_8::@11
|
||||
[50] (signed byte) atan2_8::xi#1 ← (signed byte) atan2_8::xi#3 + (signed byte) atan2_8::yd#0
|
||||
[51] (signed byte) atan2_8::yi#1 ← (signed byte) atan2_8::yi#3 - (signed byte) atan2_8::xd#0
|
||||
[52] (byte) atan2_8::angle#2 ← (byte) atan2_8::angle#12 + *((const byte*) CORDIC_ATAN2_ANGLES_8#0 + (byte) atan2_8::i#2)
|
||||
to:atan2_8::@14
|
||||
atan2_8::@4: scope:[atan2_8] from atan2_8::@3
|
||||
[53] (signed byte~) atan2_8::xi#8 ← (signed byte) atan2_8::x#0
|
||||
to:atan2_8::@6
|
||||
atan2_8::@1: scope:[atan2_8] from atan2_8
|
||||
[54] (signed byte~) atan2_8::yi#11 ← (signed byte) atan2_8::y#0
|
||||
to:atan2_8::@3
|
||||
init_font_hex: scope:[init_font_hex] from main
|
||||
[54] phi()
|
||||
[55] phi()
|
||||
to:init_font_hex::@1
|
||||
init_font_hex::@1: scope:[init_font_hex] from init_font_hex init_font_hex::@5
|
||||
[55] (byte) init_font_hex::c#6 ← phi( init_font_hex/(byte) 0 init_font_hex::@5/(byte) init_font_hex::c#1 )
|
||||
[55] (byte*) init_font_hex::proto_hi#6 ← phi( init_font_hex/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@5/(byte*) init_font_hex::proto_hi#1 )
|
||||
[55] (byte*) init_font_hex::charset#5 ← phi( init_font_hex/(const byte*) CHARSET#0 init_font_hex::@5/(byte*) init_font_hex::charset#0 )
|
||||
[56] (byte) init_font_hex::c#6 ← phi( init_font_hex/(byte) 0 init_font_hex::@5/(byte) init_font_hex::c#1 )
|
||||
[56] (byte*) init_font_hex::proto_hi#6 ← phi( init_font_hex/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@5/(byte*) init_font_hex::proto_hi#1 )
|
||||
[56] (byte*) init_font_hex::charset#5 ← phi( init_font_hex/(const byte*) CHARSET#0 init_font_hex::@5/(byte*) init_font_hex::charset#0 )
|
||||
to:init_font_hex::@2
|
||||
init_font_hex::@2: scope:[init_font_hex] from init_font_hex::@1 init_font_hex::@4
|
||||
[56] (byte) init_font_hex::c1#4 ← phi( init_font_hex::@1/(byte) 0 init_font_hex::@4/(byte) init_font_hex::c1#1 )
|
||||
[56] (byte*) init_font_hex::proto_lo#4 ← phi( init_font_hex::@1/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@4/(byte*) init_font_hex::proto_lo#1 )
|
||||
[56] (byte*) init_font_hex::charset#2 ← phi( init_font_hex::@1/(byte*) init_font_hex::charset#5 init_font_hex::@4/(byte*) init_font_hex::charset#0 )
|
||||
[57] *((byte*) init_font_hex::charset#2) ← (byte) 0
|
||||
[57] (byte) init_font_hex::c1#4 ← phi( init_font_hex::@1/(byte) 0 init_font_hex::@4/(byte) init_font_hex::c1#1 )
|
||||
[57] (byte*) init_font_hex::proto_lo#4 ← phi( init_font_hex::@1/(const byte[]) FONT_HEX_PROTO#0 init_font_hex::@4/(byte*) init_font_hex::proto_lo#1 )
|
||||
[57] (byte*) init_font_hex::charset#2 ← phi( init_font_hex::@1/(byte*) init_font_hex::charset#5 init_font_hex::@4/(byte*) init_font_hex::charset#0 )
|
||||
[58] *((byte*) init_font_hex::charset#2) ← (byte) 0
|
||||
to:init_font_hex::@3
|
||||
init_font_hex::@3: scope:[init_font_hex] from init_font_hex::@2 init_font_hex::@3
|
||||
[58] (byte) init_font_hex::idx#5 ← phi( init_font_hex::@2/(byte) 1 init_font_hex::@3/(byte) init_font_hex::idx#2 )
|
||||
[58] (byte) init_font_hex::i#2 ← phi( init_font_hex::@2/(byte) 0 init_font_hex::@3/(byte) init_font_hex::i#1 )
|
||||
[59] (byte~) init_font_hex::$0 ← *((byte*) init_font_hex::proto_hi#6 + (byte) init_font_hex::i#2) << (byte) 4
|
||||
[60] (byte~) init_font_hex::$1 ← *((byte*) init_font_hex::proto_lo#4 + (byte) init_font_hex::i#2) << (byte) 1
|
||||
[61] (byte~) init_font_hex::$2 ← (byte~) init_font_hex::$0 | (byte~) init_font_hex::$1
|
||||
[62] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#5) ← (byte~) init_font_hex::$2
|
||||
[63] (byte) init_font_hex::idx#2 ← ++ (byte) init_font_hex::idx#5
|
||||
[64] (byte) init_font_hex::i#1 ← ++ (byte) init_font_hex::i#2
|
||||
[65] if((byte) init_font_hex::i#1!=(byte) 5) goto init_font_hex::@3
|
||||
[59] (byte) init_font_hex::idx#5 ← phi( init_font_hex::@2/(byte) 1 init_font_hex::@3/(byte) init_font_hex::idx#2 )
|
||||
[59] (byte) init_font_hex::i#2 ← phi( init_font_hex::@2/(byte) 0 init_font_hex::@3/(byte) init_font_hex::i#1 )
|
||||
[60] (byte~) init_font_hex::$0 ← *((byte*) init_font_hex::proto_hi#6 + (byte) init_font_hex::i#2) << (byte) 4
|
||||
[61] (byte~) init_font_hex::$1 ← *((byte*) init_font_hex::proto_lo#4 + (byte) init_font_hex::i#2) << (byte) 1
|
||||
[62] (byte~) init_font_hex::$2 ← (byte~) init_font_hex::$0 | (byte~) init_font_hex::$1
|
||||
[63] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#5) ← (byte~) init_font_hex::$2
|
||||
[64] (byte) init_font_hex::idx#2 ← ++ (byte) init_font_hex::idx#5
|
||||
[65] (byte) init_font_hex::i#1 ← ++ (byte) init_font_hex::i#2
|
||||
[66] if((byte) init_font_hex::i#1!=(byte) 5) goto init_font_hex::@3
|
||||
to:init_font_hex::@4
|
||||
init_font_hex::@4: scope:[init_font_hex] from init_font_hex::@3
|
||||
[66] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#2) ← (byte) 0
|
||||
[67] (byte) init_font_hex::idx#3 ← ++ (byte) init_font_hex::idx#2
|
||||
[68] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#3) ← (byte) 0
|
||||
[69] (byte*) init_font_hex::proto_lo#1 ← (byte*) init_font_hex::proto_lo#4 + (byte) 5
|
||||
[70] (byte*) init_font_hex::charset#0 ← (byte*) init_font_hex::charset#2 + (byte) 8
|
||||
[71] (byte) init_font_hex::c1#1 ← ++ (byte) init_font_hex::c1#4
|
||||
[72] if((byte) init_font_hex::c1#1!=(byte) $10) goto init_font_hex::@2
|
||||
[67] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#2) ← (byte) 0
|
||||
[68] (byte) init_font_hex::idx#3 ← ++ (byte) init_font_hex::idx#2
|
||||
[69] *((byte*) init_font_hex::charset#2 + (byte) init_font_hex::idx#3) ← (byte) 0
|
||||
[70] (byte*) init_font_hex::proto_lo#1 ← (byte*) init_font_hex::proto_lo#4 + (byte) 5
|
||||
[71] (byte*) init_font_hex::charset#0 ← (byte*) init_font_hex::charset#2 + (byte) 8
|
||||
[72] (byte) init_font_hex::c1#1 ← ++ (byte) init_font_hex::c1#4
|
||||
[73] if((byte) init_font_hex::c1#1!=(byte) $10) goto init_font_hex::@2
|
||||
to:init_font_hex::@5
|
||||
init_font_hex::@5: scope:[init_font_hex] from init_font_hex::@4
|
||||
[73] (byte*) init_font_hex::proto_hi#1 ← (byte*) init_font_hex::proto_hi#6 + (byte) 5
|
||||
[74] (byte) init_font_hex::c#1 ← ++ (byte) init_font_hex::c#6
|
||||
[75] if((byte) init_font_hex::c#1!=(byte) $10) goto init_font_hex::@1
|
||||
[74] (byte*) init_font_hex::proto_hi#1 ← (byte*) init_font_hex::proto_hi#6 + (byte) 5
|
||||
[75] (byte) init_font_hex::c#1 ← ++ (byte) init_font_hex::c#6
|
||||
[76] if((byte) init_font_hex::c#1!=(byte) $10) goto init_font_hex::@1
|
||||
to:init_font_hex::@return
|
||||
init_font_hex::@return: scope:[init_font_hex] from init_font_hex::@5
|
||||
[76] return
|
||||
[77] return
|
||||
to:@return
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,79 +1,84 @@
|
||||
(label) @1
|
||||
(label) @2
|
||||
(label) @3
|
||||
(label) @begin
|
||||
(label) @end
|
||||
(byte*) CHARSET
|
||||
(const byte*) CHARSET#0 CHARSET = (byte*) 8192
|
||||
(byte*) COLS
|
||||
(const byte*) COLS#0 COLS = (byte*) 55296
|
||||
(byte*) CORDIC_ATAN2_ANGLES
|
||||
(const byte*) CORDIC_ATAN2_ANGLES#0 CORDIC_ATAN2_ANGLES = (byte*) 4096
|
||||
(byte) CORDIC_ITERATIONS
|
||||
(const byte) CORDIC_ITERATIONS#0 CORDIC_ITERATIONS = (byte) 8
|
||||
(word*) CORDIC_ATAN2_ANGLES_16
|
||||
(const word*) CORDIC_ATAN2_ANGLES_16#0 CORDIC_ATAN2_ANGLES_16 = (word*) 4096
|
||||
(byte*) CORDIC_ATAN2_ANGLES_8
|
||||
(const byte*) CORDIC_ATAN2_ANGLES_8#0 CORDIC_ATAN2_ANGLES_8 = (byte*) 4352
|
||||
(byte) CORDIC_ITERATIONS_16
|
||||
(const byte) CORDIC_ITERATIONS_16#0 CORDIC_ITERATIONS_16 = (byte) $f
|
||||
(byte) CORDIC_ITERATIONS_8
|
||||
(const byte) CORDIC_ITERATIONS_8#0 CORDIC_ITERATIONS_8 = (byte) 8
|
||||
(byte*) D018
|
||||
(const byte*) D018#0 D018 = (byte*) 53272
|
||||
(byte[]) FONT_HEX_PROTO
|
||||
(const byte[]) FONT_HEX_PROTO#0 FONT_HEX_PROTO = { (byte) 2, (byte) 5, (byte) 5, (byte) 5, (byte) 2, (byte) 6, (byte) 2, (byte) 2, (byte) 2, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 4, (byte) 7, (byte) 6, (byte) 1, (byte) 2, (byte) 1, (byte) 6, (byte) 5, (byte) 5, (byte) 7, (byte) 1, (byte) 1, (byte) 7, (byte) 4, (byte) 6, (byte) 1, (byte) 6, (byte) 3, (byte) 4, (byte) 6, (byte) 5, (byte) 2, (byte) 7, (byte) 1, (byte) 1, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 2, (byte) 5, (byte) 2, (byte) 2, (byte) 5, (byte) 3, (byte) 1, (byte) 1, (byte) 2, (byte) 5, (byte) 7, (byte) 5, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 5, (byte) 6, (byte) 2, (byte) 5, (byte) 4, (byte) 5, (byte) 2, (byte) 6, (byte) 5, (byte) 5, (byte) 5, (byte) 6, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 7, (byte) 7, (byte) 4, (byte) 6, (byte) 4, (byte) 4 }
|
||||
(byte*) SCREEN
|
||||
(const byte*) SCREEN#0 SCREEN = (byte*) 10240
|
||||
(byte()) atan2((signed byte) atan2::x , (signed byte) atan2::y)
|
||||
(signed byte~) atan2::$2 reg byte x 4.0
|
||||
(signed byte~) atan2::$7 $7 zp ZP_BYTE:6 4.0
|
||||
(label) atan2::@1
|
||||
(label) atan2::@10
|
||||
(label) atan2::@11
|
||||
(label) atan2::@12
|
||||
(label) atan2::@13
|
||||
(label) atan2::@14
|
||||
(label) atan2::@15
|
||||
(label) atan2::@16
|
||||
(label) atan2::@2
|
||||
(label) atan2::@3
|
||||
(label) atan2::@4
|
||||
(label) atan2::@5
|
||||
(label) atan2::@6
|
||||
(label) atan2::@7
|
||||
(label) atan2::@8
|
||||
(label) atan2::@9
|
||||
(label) atan2::@return
|
||||
(byte) atan2::angle
|
||||
(byte) atan2::angle#1 reg byte x 3.0
|
||||
(byte) atan2::angle#11 reg byte x 4.0
|
||||
(byte) atan2::angle#12 angle zp ZP_BYTE:8 444.8888888888889
|
||||
(byte) atan2::angle#13 angle zp ZP_BYTE:8 1334.6666666666667
|
||||
(byte) atan2::angle#2 angle zp ZP_BYTE:8 2002.0
|
||||
(byte) atan2::angle#3 angle zp ZP_BYTE:8 2002.0
|
||||
(byte) atan2::angle#4 reg byte x 4.0
|
||||
(byte) atan2::angle#5 reg byte x 4.0
|
||||
(byte) atan2::angle#6 angle zp ZP_BYTE:8 2004.0
|
||||
(byte) atan2::i
|
||||
(byte) atan2::i#1 i zp ZP_BYTE:7 1501.5
|
||||
(byte) atan2::i#2 i zp ZP_BYTE:7 500.50000000000006
|
||||
(byte) atan2::return
|
||||
(byte) atan2::return#0 reg byte a 202.0
|
||||
(byte) atan2::return#1 reg byte x 34.99999999999999
|
||||
(signed byte) atan2::x
|
||||
(signed byte) atan2::x#0 x zp ZP_BYTE:3 4.192307692307692
|
||||
(signed byte) atan2::xd
|
||||
(signed byte) atan2::xd#0 xd zp ZP_BYTE:18 600.5999999999999
|
||||
(signed byte) atan2::xi
|
||||
(signed byte) atan2::xi#0 xi zp ZP_BYTE:6 6.0
|
||||
(signed byte) atan2::xi#1 xi zp ZP_BYTE:6 667.3333333333334
|
||||
(signed byte) atan2::xi#2 xi zp ZP_BYTE:6 667.3333333333334
|
||||
(signed byte) atan2::xi#3 xi zp ZP_BYTE:6 801.2
|
||||
(signed byte) atan2::xi#7 xi zp ZP_BYTE:6 1001.0
|
||||
(signed byte~) atan2::xi#8 xi zp ZP_BYTE:6 4.0
|
||||
(signed byte) atan2::y
|
||||
(signed byte) atan2::y#0 y zp ZP_BYTE:2 3.8928571428571437
|
||||
(signed byte) atan2::yd
|
||||
(signed byte) atan2::yd#0 reg byte y 1501.5
|
||||
(signed byte) atan2::yi
|
||||
(signed byte) atan2::yi#0 reg byte x 1.2000000000000002
|
||||
(signed byte) atan2::yi#1 reg byte x 1001.0
|
||||
(signed byte~) atan2::yi#11 reg byte x 4.0
|
||||
(signed byte) atan2::yi#2 reg byte x 1001.0
|
||||
(signed byte) atan2::yi#3 reg byte x 858.2857142857142
|
||||
(signed byte) atan2::yi#7 reg byte x 1001.0
|
||||
(byte()) atan2_8((signed byte) atan2_8::x , (signed byte) atan2_8::y)
|
||||
(signed byte~) atan2_8::$2 reg byte x 4.0
|
||||
(signed byte~) atan2_8::$7 $7 zp ZP_BYTE:6 4.0
|
||||
(label) atan2_8::@1
|
||||
(label) atan2_8::@10
|
||||
(label) atan2_8::@11
|
||||
(label) atan2_8::@12
|
||||
(label) atan2_8::@13
|
||||
(label) atan2_8::@14
|
||||
(label) atan2_8::@15
|
||||
(label) atan2_8::@16
|
||||
(label) atan2_8::@2
|
||||
(label) atan2_8::@3
|
||||
(label) atan2_8::@4
|
||||
(label) atan2_8::@5
|
||||
(label) atan2_8::@6
|
||||
(label) atan2_8::@7
|
||||
(label) atan2_8::@8
|
||||
(label) atan2_8::@9
|
||||
(label) atan2_8::@return
|
||||
(byte) atan2_8::angle
|
||||
(byte) atan2_8::angle#1 reg byte x 3.0
|
||||
(byte) atan2_8::angle#11 reg byte x 4.0
|
||||
(byte) atan2_8::angle#12 angle zp ZP_BYTE:8 444.8888888888889
|
||||
(byte) atan2_8::angle#13 angle zp ZP_BYTE:8 1334.6666666666667
|
||||
(byte) atan2_8::angle#2 angle zp ZP_BYTE:8 2002.0
|
||||
(byte) atan2_8::angle#3 angle zp ZP_BYTE:8 2002.0
|
||||
(byte) atan2_8::angle#4 reg byte x 4.0
|
||||
(byte) atan2_8::angle#5 reg byte x 4.0
|
||||
(byte) atan2_8::angle#6 angle zp ZP_BYTE:8 2004.0
|
||||
(byte) atan2_8::i
|
||||
(byte) atan2_8::i#1 i zp ZP_BYTE:7 1501.5
|
||||
(byte) atan2_8::i#2 i zp ZP_BYTE:7 500.50000000000006
|
||||
(byte) atan2_8::return
|
||||
(byte) atan2_8::return#0 reg byte x 34.99999999999999
|
||||
(byte) atan2_8::return#2 reg byte a 202.0
|
||||
(signed byte) atan2_8::x
|
||||
(signed byte) atan2_8::x#0 x zp ZP_BYTE:3 4.192307692307692
|
||||
(signed byte) atan2_8::xd
|
||||
(signed byte) atan2_8::xd#0 xd zp ZP_BYTE:18 600.5999999999999
|
||||
(signed byte) atan2_8::xi
|
||||
(signed byte) atan2_8::xi#0 xi zp ZP_BYTE:6 6.0
|
||||
(signed byte) atan2_8::xi#1 xi zp ZP_BYTE:6 667.3333333333334
|
||||
(signed byte) atan2_8::xi#2 xi zp ZP_BYTE:6 667.3333333333334
|
||||
(signed byte) atan2_8::xi#3 xi zp ZP_BYTE:6 801.2
|
||||
(signed byte) atan2_8::xi#7 xi zp ZP_BYTE:6 1001.0
|
||||
(signed byte~) atan2_8::xi#8 xi zp ZP_BYTE:6 4.0
|
||||
(signed byte) atan2_8::y
|
||||
(signed byte) atan2_8::y#0 y zp ZP_BYTE:2 3.8928571428571437
|
||||
(signed byte) atan2_8::yd
|
||||
(signed byte) atan2_8::yd#0 reg byte y 1501.5
|
||||
(signed byte) atan2_8::yi
|
||||
(signed byte) atan2_8::yi#0 reg byte x 1.2000000000000002
|
||||
(signed byte) atan2_8::yi#1 reg byte x 1001.0
|
||||
(signed byte~) atan2_8::yi#11 reg byte x 4.0
|
||||
(signed byte) atan2_8::yi#2 reg byte x 1001.0
|
||||
(signed byte) atan2_8::yi#3 reg byte x 858.2857142857142
|
||||
(signed byte) atan2_8::yi#7 reg byte x 1001.0
|
||||
(void()) init_font_hex((byte*) init_font_hex::charset)
|
||||
(byte~) init_font_hex::$0 $0 zp ZP_BYTE:19 1001.0
|
||||
(byte~) init_font_hex::$1 reg byte a 2002.0
|
||||
@ -142,14 +147,14 @@
|
||||
(signed byte) main::y#1 y zp ZP_BYTE:2 16.5
|
||||
(signed byte) main::y#4 y zp ZP_BYTE:2 11.181818181818182
|
||||
|
||||
zp ZP_BYTE:2 [ main::y#4 main::y#1 atan2::y#0 ]
|
||||
zp ZP_BYTE:3 [ main::x#2 main::x#1 atan2::x#0 ]
|
||||
zp ZP_BYTE:2 [ main::y#4 main::y#1 atan2_8::y#0 ]
|
||||
zp ZP_BYTE:3 [ main::x#2 main::x#1 atan2_8::x#0 ]
|
||||
zp ZP_WORD:4 [ main::screen#2 main::screen#4 main::screen#1 ]
|
||||
reg byte x [ atan2::yi#3 atan2::yi#7 atan2::yi#0 atan2::yi#11 atan2::$2 atan2::yi#1 atan2::yi#2 ]
|
||||
zp ZP_BYTE:6 [ atan2::xi#3 atan2::xi#7 atan2::xi#0 atan2::xi#8 atan2::$7 atan2::xi#1 atan2::xi#2 ]
|
||||
zp ZP_BYTE:7 [ atan2::i#2 atan2::i#1 ]
|
||||
zp ZP_BYTE:8 [ atan2::angle#6 atan2::angle#12 atan2::angle#13 atan2::angle#2 atan2::angle#3 ]
|
||||
reg byte x [ atan2::return#1 atan2::angle#5 atan2::angle#11 atan2::angle#1 atan2::angle#4 ]
|
||||
reg byte x [ atan2_8::yi#3 atan2_8::yi#7 atan2_8::yi#0 atan2_8::yi#11 atan2_8::$2 atan2_8::yi#1 atan2_8::yi#2 ]
|
||||
zp ZP_BYTE:6 [ atan2_8::xi#3 atan2_8::xi#7 atan2_8::xi#0 atan2_8::xi#8 atan2_8::$7 atan2_8::xi#1 atan2_8::xi#2 ]
|
||||
zp ZP_BYTE:7 [ atan2_8::i#2 atan2_8::i#1 ]
|
||||
zp ZP_BYTE:8 [ atan2_8::angle#6 atan2_8::angle#12 atan2_8::angle#13 atan2_8::angle#2 atan2_8::angle#3 ]
|
||||
reg byte x [ atan2_8::return#0 atan2_8::angle#5 atan2_8::angle#11 atan2_8::angle#1 atan2_8::angle#4 ]
|
||||
zp ZP_WORD:9 [ init_font_hex::proto_hi#6 init_font_hex::proto_hi#1 ]
|
||||
zp ZP_BYTE:11 [ init_font_hex::c#6 init_font_hex::c#1 ]
|
||||
zp ZP_WORD:12 [ init_font_hex::charset#2 init_font_hex::charset#5 init_font_hex::charset#0 ]
|
||||
@ -157,10 +162,10 @@ zp ZP_WORD:14 [ init_font_hex::proto_lo#4 init_font_hex::proto_lo#1 ]
|
||||
zp ZP_BYTE:16 [ init_font_hex::c1#4 init_font_hex::c1#1 ]
|
||||
reg byte x [ init_font_hex::i#2 init_font_hex::i#1 ]
|
||||
zp ZP_BYTE:17 [ init_font_hex::idx#5 init_font_hex::idx#2 ]
|
||||
reg byte a [ atan2::return#0 ]
|
||||
reg byte a [ atan2_8::return#2 ]
|
||||
reg byte a [ main::angle#0 ]
|
||||
zp ZP_BYTE:18 [ atan2::xd#0 ]
|
||||
reg byte y [ atan2::yd#0 ]
|
||||
zp ZP_BYTE:18 [ atan2_8::xd#0 ]
|
||||
reg byte y [ atan2_8::yd#0 ]
|
||||
zp ZP_BYTE:19 [ init_font_hex::$0 ]
|
||||
reg byte a [ init_font_hex::$1 ]
|
||||
reg byte a [ init_font_hex::$2 ]
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user