fem8/taylor.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
#Single Iteration Sine Taylor series approximation
INP 00
JZO 00
OUT 01
MVR 00
char2:
INP 00
JZO char2
OUT 01
MVR 03
MVR 02
LDA 2E
SUB 02
MVA 02
JZO contfir
LDA 2E
OUT 01
MVA 00
MVR 01
MVA 03
MVR 00
LDA 30
SUB 01
contfir:
LDA 30
SUB 00
LDA 0A
MLT 01
MVA 01
ADD 00
MVA 00
SAL 04
MVR 00
#use 01 for ten multiplier
CLR 01
INC 01
inplop:
INP 00
JZO inplop
OUT 01
MVR 02
MVR 03
LDA 30
SUB 02
LDA 3D
SUB 03
MVA 03
JZO proces
MVA 02
SAL 04
MVR 02
MVA 01
MVR 03
divlop:
LDA 0A
DIV 02
DEC 03
MVA 03
JNZ divlop
MVA 02
ADD 00
INC 01
JUP inplop
proces:
MVA 00
MVR 01
MLT 01
MVA 01
SAR 04
MVR 01
MVA 07
SAL 04
IOR 01
MVA 00
MLT 01
MVA 01
SAR 04
MVR 01
MVA 07
SAL 04
IOR 01
LDA 06
DIV 01
MVA 01
SUB 00
MVA 00
SAR 04
#Output 2 digits
MVR 01
MVR 02
LDA 0A
DIV 01
MVA 01
JZO One
MVR 03
LDA 0A
MLT 03
MVA 03
SUB 02
LDA 30
ADD 01
MVA 01
OUT 01
One:
LDA 30
ADD 02
MVA 02
OUT 01
CLR 03
frac:
MVA 00
SAL 04
SAR 04
MVR 01
LDA 2E
OUT 01
LDA 04
MVR 00
fracl:
MVA 03
SUB 01
MVA 01
LDA 0A
MLT 01
MVA 01
SAR 04
JZO endit
MVR 02
SAL 04
MVR 03
LDA 30
ADD 02
MVA 02
OUT 01
DEC 00
MVA 00
JNZ fracl
endit:
#CLR 03
# JUP 00
LDA 20
OUT 01