added more instructuioins
This commit is contained in:
@@ -1,25 +1,104 @@
|
||||
:: variables
|
||||
NVAR var1, 12
|
||||
NVAR var2, 10
|
||||
NVAR outcome, 0
|
||||
JMP 8
|
||||
:: Some insight on this
|
||||
:: @meta is the metadata discriptor
|
||||
::
|
||||
@meta
|
||||
:: Set to codepage 610
|
||||
SEA 610
|
||||
:: codepage always gets stored at byte 0 of mem
|
||||
STA 0
|
||||
:: set interupt 0 to 615 (startup)
|
||||
SEA 615
|
||||
:: store in mem
|
||||
STA 1
|
||||
JMP ready
|
||||
|
||||
@readyjumpback
|
||||
LDA 24
|
||||
JMP ACC
|
||||
|
||||
:: setup
|
||||
SEA var1
|
||||
@ready
|
||||
SEA ready
|
||||
LDX
|
||||
SEA var2
|
||||
SEA 8
|
||||
LDY
|
||||
ADD
|
||||
SVAR outcome, ACC
|
||||
SEA outcome
|
||||
STA 4
|
||||
PRM 4
|
||||
JMP 21
|
||||
STA 24
|
||||
JMP RegisterModes
|
||||
JMP parse
|
||||
|
||||
@RegisterModes
|
||||
NVAR m_add, 068
|
||||
NVAR m_sub, 078
|
||||
NVAR m_div, 088
|
||||
NVAR m_mul, 098
|
||||
NVAR mode, m_mul
|
||||
NVAR A, 10
|
||||
NVAR B, 10
|
||||
JMP readyjumpback
|
||||
|
||||
:: end
|
||||
RVAR var1
|
||||
RVAR var2
|
||||
RVAR outcome
|
||||
@madd
|
||||
SEA A
|
||||
LDX
|
||||
SEA B
|
||||
LDY
|
||||
ADD
|
||||
STA 8
|
||||
JMP EOF
|
||||
|
||||
@msub
|
||||
SEA A
|
||||
LDX
|
||||
SEA B
|
||||
LDY
|
||||
SUB
|
||||
STA 8
|
||||
JMP EOF
|
||||
|
||||
@mmul
|
||||
SEA A
|
||||
LDX
|
||||
SEA B
|
||||
LDY
|
||||
MUL
|
||||
STA 8
|
||||
JMP EOF
|
||||
|
||||
@mdiv
|
||||
SEA A
|
||||
LDX
|
||||
SEA B
|
||||
LDY
|
||||
DIV
|
||||
STA 8
|
||||
JMP EOF
|
||||
|
||||
@parse
|
||||
SEA mode
|
||||
LDX
|
||||
SEA m_add
|
||||
LDY
|
||||
GIE
|
||||
JIE madd
|
||||
SEA mode
|
||||
LDX
|
||||
SEA m_sub
|
||||
LDY
|
||||
GIE
|
||||
JIE msub
|
||||
SEA mode
|
||||
LDX
|
||||
SEA m_mul
|
||||
LDY
|
||||
GIE
|
||||
JIE mmul
|
||||
SEA mode
|
||||
LDX
|
||||
SEA m_div
|
||||
LDY
|
||||
GIE
|
||||
JIE mdiv
|
||||
JMP EOF
|
||||
|
||||
@EOF
|
||||
PRM 8
|
||||
HLT
|
||||
Reference in New Issue
Block a user