vanten-s/lisp-8bit
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Checkpoint

Browse source
This commit is contained in:
vanten-s 2025-10-08 10:05:37 +02:00
parent d81272f085
commit 43e4668825
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/code_gen.rs
View file

@ -12,6 +12,9 @@ enum InstructionFrom {
RegisterSP,
RegisterSB,
IncSP,
DecSP,
}
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
@ -35,9 +38,6 @@ enum InstructionTo {
RegisterSP,
RegisterSB,
IncSP,
DecSP,
}
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
@ -77,12 +77,12 @@ impl From<Command> for Code {
Command::PushInt(val) => vec![
I::new(IF::RegisterSP, IT::RamAddressLower, 0x00),
I::new(IF::ROM, IT::RAM, val as i8),
I::new(IF::ROM, IT::IncSP, 0x00),
I::new(IF::IncSP, IT::RegisterSP, 0x00),
],
Command::PushSum => vec![
I::new(IF::RegisterSP, IT::RamAddressLower, 0x00),
I::new(IF::ALU, IT::RAM, 0x00),
I::new(IF::ROM, IT::IncSP, 0x00),
I::new(IF::IncSP, IT::RegisterSP, 0x00),
],
_ => todo!(),
}.into()