fem8/circletest.asm at main · frostdevelop/fem8 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
#Angles test ig
#Assemble with version 1.1
#MM:
#00: COS
#01: SIN
#02: XINT
#03: YINT
#04: XFRAC
#05: YFRAC
#06: TEMPINT
#07: TEMPFRAC
#08: TEMPINT2
#09: TEMPFRAC2
#20: TEMPCALC
#21: TEMPCALC2
#30: Ret
#31: Val
#40: Ret2
COS = FF
SIN = 04
FSIN = FC
#Calc using !(FFFF >> (4 + bit# of SIN))
#LDA 00 ;X
#MAP 02
LDA 01 ;Y
MAP 03
#LOOP
rotlop:
#ROTATE (The hard part) could be infeasable for caster due to size constraints
LDA aftinit1
JUP initt
aftinit1:
MVR 03

LDA 'a'
OUT 1
waitlop3:
INP 0
JZO waitlop3

#MLT
LDA afttrig1
JUP mtrig
afttrig1:
#SUBTR
SUB 02 ;Might've found a hardware glitch here...
#OH SHOTO I FORGOT THR FLAG REGISTER
#LDA 62 ;Change this to 62 and the algorithm fails...
MVA 04
SAL 07
JNZ pos
#MPA 02
#JPL pos
INC 01
pos:
MPA 02
SAR 7
ADD 0
MVA 01
SUB 00
MVA 00
MAP 06
MVA 02
MAP 07
#Calc Y
MPA 03
MVR 00
MPA 02
MVR 01
MPA 05
MVR 02
MPA 04
MVR 03
#the really small calculation is messing it up
#However, I can't correct it using a double negation due to size constraints (again)
LDA afttrig2
JUP mtrig
afttrig2:
ADD 02
MVA 04
SAL 07
SAR 07
ADD 00
#Negate Correct
#MVA 01 ;I get this was cheating but HEAR ME OUT IT WORKS ALRIGHT!?
#SAR 1 ;Calc using 8-(4+3) (3 is the bit# of 4)
MPA 02
JGE skpfix
LDA FSIN ;Calc using !(FFFF >> 7)
IOR 01
skpfix:
MVA 01
ADD 00
#Commit
MVA 00
MAP 03
MVA 02
MAP 05
MPA 06
MAP 02
MPA 07
MAP 04
JUP rotlop
#Everything above has been thoroughly optimized.
mtrig:
#XFRAC
MAP 30
LDA COS
MLT 02
MVA 07 ;Decimal shifts so that overflow is correct.
MVR 02
#XINT
LDA COS
MLT 00
MVA 00
ADD 02
MVA 04
SAL 07 ;get the carry.
SAR 07
MVR 00
MVA 07
ADD 00
#YFRAC
#LDA SIN
#*4 is basically sal 2 so sar 8-2
MVA 03
SAR 6
MVR 03
#YINT
LDA SIN
MLT 01
MVA 01
ADD 03
MVA 04
SAL 07 ;get the carry.
SAR 07
MVR 01
MVA 07
ADD 01
#Return
MVA 03
MAP 31
MPA 30
MVR 03
MPA 31
JPP 03
initt:
MVR 03
MPA 02
MVR 00
MPA 03
MVR 01
MPA 04
MVR 02
MPA 05
JPP 03