Threaded Mode | Linear Mode

Gamo · (This post was last modified: 08-05-2018 06:21 AM by Gamo.)

Thank You to everyone who gave more information about this topic.

I came across to this "Division Function" as well by using the
"Repeated Subtraction" algorithm

I decided to program this division function by using the repeated substraction.
This algorithm will work only with perfect division result so I make this program that if division is not perfect then return result as (-1)

Example: First Start f [REG]

24÷3
24 [ENTER] 3 [R/S] ---> 8

2475÷25
2475 [ENTER] 25 [R/S] ---> 99

2475÷24
2475 [ENTER] 24 [R/S] ---> -1 // Not a perfect division

Program: Division by Repeated Subtraction

Code:

01 STO 0

02 X<>Y

03 STO 1

04 RCL 1

05 RCL 0

06   -

07 STO 1

08   1

09 CHS

10 X<>Y

11 X≤Y ?

12 GTO 26

13 RCL 1

14 X=0 ?

15 GTO 19

16   1

17 STO+2

18 GTO 04

19 RCL 2

20   1

21   +

22   0

23 STO 2

24 X<>Y

25 GTO 00

26   0

27 STO 2

28   1

29 CHS

30 GTO 00

Gamo