fem8/fixed.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
# Fixed point math on fem8
# 10.1875*1.3125
LDA A3
MAP 01
MVR 00
LDA sec
MAP 00
JUP outputchar
sec:
LDA 2A
OUT 01
LDA 15
MVR 00
MAP 02
LDA mlt
MAP 00
JUP outputchar
mlt:
MPA 01
MVR 00
LDA 3D
OUT 01
MPA 02
MLT 00
MVA 00
SAR 04
MVR 00
MVA 07
SAL 04
IOR 00
MVA 00
OUT 00
LDA contprg
MAP 00
JUP outputchar
contprg:
LDA 20
OUT 01
MPA 01
MVR 00
LDA nex
MAP 00
JUP outputchar
nex:
LDA 2F
OUT 01
MPA 02
MVR 00
LDA contnex
MAP 00
JUP outputchar
contnex:
LDA 3D
OUT 01
MPA 01
MVR 00
MPA 02
DIV 00
MVA 00
SAL 04
MVR 00
MVA 06
SAL 01
MVR 01
MPA 02
SAR 02
DIV 01
MVA 01
SAL 01
ADD 00
LDA halt
MAP 00
JUP outputchar
halt:
NOP
HLT #0.375
#Outputchar
outputchar:
MVA 00
SAR 04
JZO frac
#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
JZO endit
MVR 01
LDA 2E
OUT 01
LDA 04
MVR 00
fracl:
MVA 03
SUB 01
MVA 01
JZO endit
LDA 0A
MLT 01
MVA 01
SAR 04
MVR 02
SAL 04
MVR 03
LDA 30
ADD 02
MVA 02
OUT 01
DEC 00
MVA 00
JNZ fracl
endit:
CLR 03
MPA 00
MVR 00
JPP 00