crazyettin
/
Gidubba
1
0
Fork 0
Code Issues Pull Requests Projects Releases 2 Wiki Activity

Update to work with multiple-step shifts in Thingamajig v1.1-dev

This commit is contained in:
CrazyEttin 2022-09-11 19:49:48 +03:00
parent 339f117e58
commit 92b1c81162
2 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gidubba.asm
View File

@ -189,10 +189,7 @@ getarg: load r0, arg1
breq r0, r1, cmderr breq r0, r1, cmderr
xor r2, r2 xor r2, r2
xor r2, r0 xor r2, r0
shl r2 shl r2, 4
shl r2
shl r2
shl r2
;Second digit ;Second digit
load r0, arg1 + 1 load r0, arg1 + 1
cleq r0, r0, hex2n cleq r0, r0, hex2n
@ -208,10 +205,7 @@ getarg: load r0, arg1
breq r0, r1, cmderr breq r0, r1, cmderr
xor r2, r2 xor r2, r2
xor r2, r0 xor r2, r0
shl r2 shl r2, 4
shl r2
shl r2
shl r2
;Fourth digit ;Fourth digit
load r0, arg1 + 3 load r0, arg1 + 3
cleq r0, r0, hex2n cleq r0, r0, hex2n
@ -229,10 +223,7 @@ getarg: load r0, arg1
breq r0, r1, cmderr breq r0, r1, cmderr
xor r2, r2 xor r2, r2
xor r2, r0 xor r2, r0
shl r2 shl r2, 4
shl r2
shl r2
shl r2
;Second digit ;Second digit
load r0, arg2 + 1 load r0, arg2 + 1
cleq r0, r0, hex2n cleq r0, r0, hex2n
@ -985,11 +976,11 @@ sumlop: xor r1, r1
xor r1, r1 xor r1, r1
xor r1, r2 xor r1, r2
;Shift the carry ;Shift the carry
shl r2 shl r2, 1
;Check for and store overflow if any ;Check for and store overflow if any
;Check ;Check
rol r1 rol r1, 1
breq r1, r2, nvrflw breq r1, r2, nvrflw
;Store ;Store
load r1, #1 load r1, #1
@ -1291,10 +1282,7 @@ bt2hex: xor r2, r2
xor r2, r1 xor r2, r1
;Convert the high nibble to a digit ;Convert the high nibble to a digit
ror r0 ror r0, 4
ror r0
ror r0
ror r0
cleq r0, r0, n2hex cleq r0, r0, n2hex
;Load the digit of the low nibble to r1 ;Load the digit of the low nibble to r1

4
readme.md
View File

@ -1,5 +1,5 @@
Gidubba v1.0 Gidubba v1.1-dev
============ ================
Gidubba (Sumerian for 'stylus') is a simple line editor for the Gidubba (Sumerian for 'stylus') is a simple line editor for the
Thingamajig computer architecture. Its git repository can be found at Thingamajig computer architecture. Its git repository can be found at