fem8/base64.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
# 00 is next and 01 is right now
INP 00
JZO 00 ;check if input is there
afterinp:
MVR 00
aftermv:
INC 02
MVA 02
MVR 03
LDA 02
SUB 03
MVA 03
JZO two
JPG three
MVA 00
SAR 02
IOR 01
MVA 00
SAL 04
MVR 00
JUP aftershift
two:
MVA 00
SAR 04
IOR 01
MVA 00
SAL 02
MVR 00
JUP aftershift
three:
CLR 02
MVA 00
SAR 06
IOR 01
aftershift:
LDA 3F
AND 01
LDA 41
ADD 01
MVA 01
MVR 03
LDA 74
SUB 03
MVA 03
JPG num
LDA 1A
ADD 03
MVA 03
JPG lower
fromval:
MVA 01
OUT 01
MVA 02
JZO szero
MVR 03
LDA 04
SUB 03
MVA 03
JZO sfour
MVA 00
MVR 01
continp:
INP 00
JZO valloop
JUP afterinp
lower:
LDA 06
ADD 01
JUP fromval
num:
LDA 0B
SUB 03
MVA 03
JZO plus
JPG slash
LDA 45
SUB 01
JUP fromval
plus:
LDA 2B
MVR 01
JUP fromval
slash:
LDA 2F
MVR 01
JUP fromval
szero:
MVA 00
MVR 01
LDA 04
MVR 02
JUP aftershift
sfour:
CLR 01
CLR 02
JUP continp
stoploop:
LDA 20
OUT 01
CLR 01
CLR 00
CLR 02
JUP 00
valloop:
MVA 01
JZO stoploop
CLR 00
JUP aftermv