dergrimm/hence
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Added carry flag and status register

Browse source
This commit is contained in:
Dominic Grimm 2022-07-09 17:29:42 +02:00
parent 164dc59dde
commit 24ee0b935a
No known key found for this signature in database
GPG key ID: A6C051C716D2CE65
2 changed files with 105 additions and 61 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
src/hence/emulator.cr
View file

@ -32,7 +32,6 @@ module Hence
data.reg_a = 0_u16 data.reg_a = 0_u16
data.reg_b = 0_u16 data.reg_b = 0_u16
data.reg_c = 0_u16 data.reg_c = 0_u16
data.reg_d = 0_u16
end end
data data
@ -54,7 +53,7 @@ module Hence
property reg_a property reg_a
property reg_b property reg_b
property reg_c property reg_c
property reg_d property reg_s
property reg_inp property reg_inp
property reg_out property reg_out
@ -75,7 +74,7 @@ module Hence
@reg_a = 0_u16, @reg_a = 0_u16,
@reg_b = 0_u16, @reg_b = 0_u16,
@reg_c = 0_u16, @reg_c = 0_u16,
@reg_d = 0_u16, @reg_s = 0_u8,
@reg_inp = 0_u16, @reg_inp = 0_u16,
@reg_out = 0_u16, @reg_out = 0_u16,
@stack = Slice(UInt16).new({{ 8 * 1024 }}), @stack = Slice(UInt16).new({{ 8 * 1024 }}),
@ -112,7 +111,7 @@ module Hence
when 0xc_u8 when 0xc_u8
@reg_c @reg_c
when 0xd_u8 when 0xd_u8
@reg_d @reg_s.to_u16
when 0xe_u8 when 0xe_u8
@reg_inp @reg_inp
when 0xf_u8 when 0xf_u8
@ -151,7 +150,7 @@ module Hence
when 0xc_u8 when 0xc_u8
@reg_c = value @reg_c = value
when 0xd_u8 when 0xd_u8
@reg_d = value @reg_s = value
when 0xe_u8 when 0xe_u8
@reg_inp = value @reg_inp = value
when 0xf_u8 when 0xf_u8
@ -162,38 +161,48 @@ module Hence
end end
def alu(op : UInt8) : UInt16 def alu(op : UInt8) : UInt16
@reg_tmp =
case op case op
when 0x00 # not when 0x00 # not
~@reg_a @reg_tmp = ~@reg_a
when 0x01 # and when 0x01 # and
@reg_a & @reg_b @reg_tmp = @reg_a & @reg_b
when 0x02 # nand when 0x02 # nand
~(@reg_a & @reg_b) @reg_tmp = ~(@reg_a & @reg_b)
when 0x03 # or when 0x03 # or
@reg_a | @reg_b @reg_tmp = @reg_a | @reg_b
when 0x04 # nor when 0x04 # nor
~(@reg_a | @reg_b) @reg_tmp = ~(@reg_a | @reg_b)
when 0x05 # xor when 0x05 # xor
@reg_a ^ @reg_b @reg_tmp = @reg_a ^ @reg_b
when 0x06 # xnor when 0x06 # xnor
~(@reg_a ^ @reg_b) @reg_tmp = ~(@reg_a ^ @reg_b)
when 0x07 # shl when 0x07 # shl
@reg_a << @reg_b @reg_tmp = @reg_a << @reg_b
when 0x08 # shr when 0x08 # shr
@reg_a >> @reg_b @reg_tmp = @reg_a >> @reg_b
when 0x09 # add when 0x09 # add
@reg_a &+ @reg_b @reg_tmp = @reg_a &+ @reg_b
@reg_s &= 0b11111110_u8
if @reg_tmp < @reg_a
@reg_s |= 0b00000001_u8
end
when 0x0a # sub when 0x0a # sub
@reg_a &- @reg_b @reg_tmp = @reg_a &- @reg_b
@reg_s &= 0b11111110_u8
if @reg_tmp > @reg_a
@reg_s |= 0b00000001_u8
end
when 0x0b # mul when 0x0b # mul
@reg_a &* @reg_b @reg_tmp = @reg_a &* @reg_b
@reg_s &= 0b11111110_u8
when 0x0c # div when 0x0c # div
@reg_a // @reg_b @reg_tmp = @reg_a // @reg_b
@reg_s &= 0b11111110_u8
when 0x0d # mod when 0x0d # mod
@reg_a % @reg_b @reg_tmp = @reg_a % @reg_b
@reg_s &= 0b11111110_u8
when 0x0e # cmp when 0x0e # cmp
if @reg_a < @reg_b @reg_tmp = if @reg_a < @reg_b
1_u16 1_u16
elsif @reg_a > @reg_b elsif @reg_a > @reg_b
2_u16 2_u16
@ -201,24 +210,26 @@ module Hence
0_u16 0_u16
end end
when 0x0f # eq when 0x0f # eq
@reg_a == @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a == @reg_b ? 1_u16 : 0_u16
when 0x10 # neq when 0x10 # neq
@reg_a != @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a != @reg_b ? 1_u16 : 0_u16
when 0x11 # lt when 0x11 # lt
@reg_a < @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a < @reg_b ? 1_u16 : 0_u16
when 0x12 # gt when 0x12 # gt
@reg_a > @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a > @reg_b ? 1_u16 : 0_u16
when 0x13 # leq when 0x13 # leq
@reg_a <= @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a <= @reg_b ? 1_u16 : 0_u16
when 0x14 # geq when 0x14 # geq
@reg_a >= @reg_b ? 1_u16 : 0_u16 @reg_tmp = @reg_a >= @reg_b ? 1_u16 : 0_u16
when 0x15 # bol when 0x15 # bol
@reg_a == 1 ? 1_u16 : 0_u16 @reg_tmp = @reg_a == 1 ? 1_u16 : 0_u16
when 0x16 # neg when 0x16 # neg
@reg_a == 1 ? 0_u16 : 1_u16 @reg_tmp = @reg_a == 1 ? 0_u16 : 1_u16
else else
raise "Invalid ALU operation: 0x#{op.to_s(16).rjust(2, '0')}" raise "Invalid ALU operation: 0x#{op.to_s(16).rjust(2, '0')}"
end end
@reg_tmp
end end
def get_memory(address : UInt16) : UInt16 def get_memory(address : UInt16) : UInt16

33
src/hence/firmware/firmwares/default.yml
View file

@ -71,6 +71,39 @@ sections:
tmpl 0xa tmpl 0xa
tmpsr 0xc tmpsr 0xc
tmplc 0x0 tmplc 0x0
- name: sts
description: Pushes value of status register to stack
opcode: null
arg: null
stack:
input: []
output: ["status"]
microcode: |
tmpsr 0xd
push
- name: cls
description: Clears status register
opcode: null
arg: null
stack:
input: []
output: []
microcode: |
tmpl 0xd
- name: car
description: Pushes first bit of status register to stack
opcode: null
arg: null
stack:
input: []
output: ["carry"]
microcode: |
tmpsr 0xd
tmpl 0xa
tmps 0b00000001
tmpl 0xb
alu 0x01
push
- name: stack-manipulation - name: stack-manipulation
description: Stack manipulation description: Stack manipulation
opcodes: opcodes: