libc-core: Modulus
This commit is contained in:
parent
2eccd4c5c6
commit
ef72357720
|
@ -1,4 +1,5 @@
|
||||||
### GNU Mes --- Maxwell Equations of Software
|
### GNU Mes --- Maxwell Equations of Software
|
||||||
|
### Copyright (C) 2016 Jeremiah Orians
|
||||||
### Copyright © 2017,2018,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
### Copyright © 2017,2018,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
### Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org>
|
### Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org>
|
||||||
###
|
###
|
||||||
|
@ -52,3 +53,94 @@
|
||||||
mov____%ebp,%esp
|
mov____%ebp,%esp
|
||||||
pop____%ebp
|
pop____%ebp
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
# Unsigned Divide
|
||||||
|
:divide
|
||||||
|
{R4} PUSH_ALWAYS ; Protect R4
|
||||||
|
{R3} PUSH_ALWAYS ; Protect R3
|
||||||
|
{R2} PUSH_ALWAYS ; Protect R2
|
||||||
|
|
||||||
|
'0' R0 R3 NO_SHIFT MOVE_ALWAYS ; MOV R3,R0
|
||||||
|
'0' R1 R2 NO_SHIFT MOVE_ALWAYS ; MOV R2,R1
|
||||||
|
|
||||||
|
!0 R0 LOADI8_ALWAYS ; MOV R0,#0
|
||||||
|
!0 CMPI8 R2 IMM_ALWAYS ; CMP R2,#0
|
||||||
|
!1 R0 SUB R0 ARITH_LT ; SUBLT R0,R0,#1
|
||||||
|
!0 CMPI8 R3 IMM_ALWAYS ; CMP R3,#0
|
||||||
|
!0 R3 RSUB R3 ARITH_LT ; RSBLT R3,R3,#0
|
||||||
|
'0' R0 R0 MVN_LT ; MVNLT R0,R0
|
||||||
|
'0' R0 R4 NO_SHIFT MOVE_ALWAYS ; MOV R4,R0
|
||||||
|
|
||||||
|
!32 R0 LOADI8_ALWAYS ; MOV R0,#32.
|
||||||
|
!0 R1 LOADI8_ALWAYS ; MOV R1,#0
|
||||||
|
:divide_loop
|
||||||
|
'0' R2 R2 ADDS R2 ARITH2_ALWAYS ; ADDS R2,R2,R2
|
||||||
|
'0' R1 R1 ADCS R1 ARITH2_ALWAYS ; ADCS R1,R1,R1
|
||||||
|
'0' R3 CMP R1 AUX_ALWAYS ; CMP R1,R3
|
||||||
|
'0' R3 R1 SUB R1 ARITH2_GE ; SUBGE R1,R1,R3
|
||||||
|
!1 R2 ADD R2 ARITH_GE ; ADDGE R2,R2,#1
|
||||||
|
!1 R0 SUB R0 ARITH_ALWAYS ; SUB R0,R0,#1
|
||||||
|
!0 CMPI8 R0 IMM_ALWAYS ; CMP R0,#0
|
||||||
|
^~divide_loop JUMP_NE ; BNE loop
|
||||||
|
|
||||||
|
'0' R2 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R2
|
||||||
|
|
||||||
|
{R2} POP_ALWAYS ; Restore R2
|
||||||
|
{R3} POP_ALWAYS ; Restore R3
|
||||||
|
{R4} POP_ALWAYS ; Restore R4
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Signed Divide
|
||||||
|
:divides
|
||||||
|
{R4} PUSH_ALWAYS ; Protect R4
|
||||||
|
{R3} PUSH_ALWAYS ; Protect R3
|
||||||
|
{R2} PUSH_ALWAYS ; Protect R2
|
||||||
|
|
||||||
|
'0' R0 R3 NO_SHIFT MOVE_ALWAYS ; MOV R3,R0
|
||||||
|
'0' R1 R2 NO_SHIFT MOVE_ALWAYS ; MOV R2,R1
|
||||||
|
|
||||||
|
!0 R0 LOADI8_ALWAYS ; MOV R0,#0
|
||||||
|
!0 CMPI8 R2 IMM_ALWAYS ; CMP R2,#0
|
||||||
|
!0 R2 RSUB R2 ARITH_LT ; RSBLT R2,R2,#0
|
||||||
|
!1 R0 SUB R0 ARITH_LT ; SUBLT R0,R0,#1
|
||||||
|
!0 CMPI8 R3 IMM_ALWAYS ; CMP R3,#0
|
||||||
|
!0 R3 RSUB R3 ARITH_LT ; RSBLT R3,R3,#0
|
||||||
|
'0' R0 R0 MVN_LT ; MVNLT R0,R0
|
||||||
|
'0' R0 R4 NO_SHIFT MOVE_ALWAYS ; MOV R4,R0
|
||||||
|
|
||||||
|
!32 R0 LOADI8_ALWAYS ; MOV R0,#32.
|
||||||
|
!0 R1 LOADI8_ALWAYS ; MOV R1,#0
|
||||||
|
:divides_loop
|
||||||
|
'0' R2 R2 ADDS R2 ARITH2_ALWAYS ; ADDS R2,R2,R2
|
||||||
|
'0' R1 R1 ADCS R1 ARITH2_ALWAYS ; ADCS R1,R1,R1
|
||||||
|
'0' R3 CMP R1 AUX_ALWAYS ; CMP R1,R3
|
||||||
|
'0' R3 R1 SUB R1 ARITH2_GE ; SUBGE R1,R1,R3
|
||||||
|
!1 R2 ADD R2 ARITH_GE ; ADDGE R2,R2,#1
|
||||||
|
!1 R0 SUB R0 ARITH_ALWAYS ; SUB R0,R0,#1
|
||||||
|
!0 CMPI8 R0 IMM_ALWAYS ; CMP R0,#0
|
||||||
|
^~divides_loop JUMP_NE ; BNE loop
|
||||||
|
|
||||||
|
!0 CMPI8 R4 IMM_ALWAYS ; CMP R4,#0
|
||||||
|
!0 R2 RSUB R2 ARITH_NE ; RSBNE R2,R2,#0
|
||||||
|
'0' R2 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R2
|
||||||
|
|
||||||
|
{R2} POP_ALWAYS ; Restore R2
|
||||||
|
{R3} POP_ALWAYS ; Restore R3
|
||||||
|
{R4} POP_ALWAYS ; Restore R4
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Unsigned Modulus
|
||||||
|
:modulus
|
||||||
|
{LR} PUSH_ALWAYS ; Prepare to leverage divide
|
||||||
|
^~divide CALL_ALWAYS ; Use divide
|
||||||
|
'0' R1 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R1
|
||||||
|
{LR} POP_ALWAYS ; Prepare for return
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Signed Modulus
|
||||||
|
:moduluss
|
||||||
|
{LR} PUSH_ALWAYS ; Prepare to leverage divide
|
||||||
|
^~divides CALL_ALWAYS ; Use divides
|
||||||
|
'0' R1 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R1
|
||||||
|
{LR} POP_ALWAYS ; Prepare for return
|
||||||
|
'1' LR RETURN
|
||||||
|
|
Loading…
Reference in New Issue