fem8/16fdemo.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
157
158
#232/27
#INT:00
#FRAC:01
#CALC: 10
#CALC: 11
#M00: X
#M01: Y
#M02: Remainder (Dividing) / Int
#M03: Remainder (temp) / Frac
#M04: Return addr
#M05: Return addr 2
#ADD
LDA nextint1
MAP 05
LDA E8 ;Divisor (232)
MAP 00
JUP intout
nextint1:
LDA nextint2
MAP 05
LDA 2F
OUT 01
LDA 1B ;Dividend (27)
MAP 01
JUP intout
nextint2:
LDA 3D
OUT 01
#DIV
MPA 00
MVR 00
MPA 01
DIV 00
MVA 06 ;remain
MAP 02
CLR 02
CLR 01
LDA 08 ;the 8 bits
MVR 03 ;Counter for shifts
#Fractional loop
fraclop:
MPA 02
SAL 01 ;Shift right
MVR 02
DEC 03
MPA 01 ;27
DIV 02 ;Divide and add
MVA 02
MAP 02
MVA 06
MAP 03
MVA 03
MVR 02
JZO endslop
JPL sarlop
sallop:
MPA 02
SAL 01
MAP 02
DEC 02
MVA 02
JZO endslop
JUP sallop
sarlop:
MPA 02
SAR 01
MAP 02
INC 02
MVA 02
JPL sarlop
endslop:
MPA 02
ADD 01
MPA 03
JZO endflop
MAP 02
MVA 03
MVR 02
LDA 08
ADD 02
MVA 02
JZO endflop
JUP fraclop
endflop:
LDA fixout
MAP 05
LDA endfix
MAP 04
MVA 01
MAP 03
MVA 00
MAP 02
JUP intout
endfix:
HLT
fixout:
MPA 03
#Start fixedout
MVR 01
LDA 2E
OUT 01
fixedlop:
LDA 0A
MLT 01
MVA 07
MVR 02
LDA 30
ADD 02
MVA 02
OUT 01
MVA 01
JNZ fixedlop
#End fixedout
MPA 04
MVR 00
JPP 00
intout:
#Start intout
MVR 01
MVR 02
LDA 64
DIV 01
MVA 01
JZO Ten
MVR 03
LDA 64
MLT 03
MVA 03
SUB 02
LDA 30
ADD 01
MVA 01
OUT 01
Ten:
MVA 02
MVR 01
LDA 0A
DIV 02
MVA 02
#JZO One
MVR 03
LDA 0A
MLT 03
MVA 03
SUB 01
LDA 30
ADD 02
MVA 02
OUT 01
One:
LDA 30
ADD 01
MVA 01
OUT 01
#End Intout
MPA 05
MVR 00
JPP 00