fem8/notes.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
startins:
LDA 3E
OUT 01
inploop:
INP 00
JZO inploop
OUT 01
MVR 00
LDA 80
OUT 01
LDA 6C
SUB 00
MVA 00 ;Check ASCII through cj
JPG view
JPL edit
list:
CLR 00
LDA 0A
MVR 01
lstlop:
MVA 01
JZO space
MVA 00
MPR 03
MVA 03
JZO skpp
MVA 00
MVR 02
LDA 30
ADD 02
MVA 02
OUT 01
LDA 2C
OUT 01
skpp:
DEC 01
INC 00
JUP lstlop
view:
LDA 76
OUT 01
LDA display
MVR 02
JUP getloc
display:
MVA 00
JZO space
MVA 01
MPR 02
MVA 02
OUT 01
INC 01
DEC 00
JUP display
edit:
LDA 09
ADD 00
MVA 00
JZO startins
JPL append
LDA 65
OUT 01
LDA beforeloop ;init the registers for the loop
MVR 02
JUP getloc ;Get ram address of the start of the file
beforeloop:
CLR 03
editloop:
INP 00
JZO editloop
OUT 01
MVR 02
MVR 00
LDA 2E
SUB 02
MVA 02
JZO endedit
MVA 01
MRP 00
INC 03
INC 01
JUP editloop
endedit:
MVA 03
SUB 01
LDA 0A
SUB 01
MVA 01
JZO skpdec
LDA 18
DIV 01
MVA 01
skpdec:
MRP 03
JUP space
loped:
INP 00
JZO loped
MVR 01
MVA 00
MRP 01
JUP space
space:
LDA 20
OUT 01
JUP startins
getloc:
LDA 3E
OUT 01
lopine:
INP 00
JZO lopine
OUT 01
MVR 00
LDA 30
SUB 00
LDA 18
MVR 01
MVA 00
MLT 01
MPR 00
MVA 01
LDA 0A
ADD 01
LDA 80
OUT 01
JPP 02
append:
LDA 61
OUT 01
LDA addapp
MVR 02
JUP getloc
addapp:
MVA 00
ADD 01
JUP editloop