September/FastDiv/Inspire/DivMod10

Home » Archimedes archive » Archimedes World » AW-1996-03-Disc 2.adf » !AcornAns_AcornAns » September/FastDiv/Inspire/DivMod10

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » AW-1996-03-Disc 2.adf » !AcornAns_AcornAns
Filename:	September/FastDiv/Inspire/DivMod10
Read OK:	✔
File size:	06DF bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >DivMod10
   20REM based on code by A F Reysenbach
   30REM modified by mroz to output both quotient & remainder, plus to support negative numerator & fix bug
   40REM allowing use with bit-30 set values
   50REM for 32-bit machines
   60:
   70MODE 0
   80DIM mod 1024
   90a=0:b=1:c=2:d=3
  100FOR pass%=0 TO 3 STEP 3
  110P%=mod
  120[       OPT     pass%
  130        ADDS    a,b,b           ;remove iff b always +'ve
  140        RSBCS   b,b,#0          ;remove iff b always +'ve
  150        ADC     d,d,d           ;remove iff b always +'ve
  160        ADD     a,b,b,LSR #1
  170        ADD     a,a,a,LSR #4
  180        ADD     a,a,a,LSR #8
  190        ADD     a,a,a,LSR #16
  200        MOV     a,a,LSR #4
  210        ADD     c,a,a,ASL #2
  220        SUB     c,b,c,ASL #1
  230        CMP     c,#10
  240        ADDGE   a,a,#1
  250        SUBGE   c,c,#10
  260        MOVS    d,d,ASR #1      ;remove iff b always +'ve
  270        RSBCS   a,a,#0          ;remove iff b always +'ve
  280        RSBCS   c,c,#0          ;remove iff b always +'ve
  290        RSBCS   b,b,#0          ;remove iff don't need to preserve sign of b or b always +'ve
  300        STR     c, m%
  310        MOV     pc,R14
  320.m%     EQUD    0
  330]
  340NEXT
  350B%=0
  360REPEAT
  370  B%=-B%
  380  C%=USR(mod)
  390  D%=B%DIV10: E%=B%MOD10
  400  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  410  PRINT B%,C%,!m%;"  ", D%,E%
  420  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  430  B%=-B%
  440  C%=USR(mod)
  450  D%=B%DIV10: E%=B%MOD10
  460  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  470  PRINT B%,C%,!m%;"  ", D%,E%
  480  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  490  B%+=1
  500UNTIL FALSE
  510END


� >DivMod10
%� based on code by A F Reysenbach
h� modified by mroz to output both quotient & remainder, plus to support negative numerator & fix bug
()� allowing use with bit-30 set values
2� for 32-bit machines
<:
F� 0
P� mod 1024
Za=0:b=1:c=2:d=3
d� pass%=0 � 3 � 3
n
P%=mod
x[       OPT     pass%
�=        ADDS    a,b,b           ;remove iff b always +'ve
�=        RSBCS   b,b,#0          ;remove iff b always +'ve
�=        ADC     d,d,d           ;remove iff b always +'ve
�         ADD     a,b,b,LSR #1
�         ADD     a,a,a,LSR #4
�         ADD     a,a,a,LSR #8
�!        ADD     a,a,a,LSR #16
�        MOV     a,a,LSR #4
�         ADD     c,a,a,ASL #2
�         SUB     c,b,c,ASL #1
�        CMP     c,#10
�        ADDGE   a,a,#1
�        SUBGE   c,c,#10
=        MOVS    d,d,ASR #1      ;remove iff b always +'ve
=        RSBCS   a,a,#0          ;remove iff b always +'ve
=        RSBCS   c,c,#0          ;remove iff b always +'ve
"a        RSBCS   b,b,#0          ;remove iff don't need to preserve sign of b or b always +'ve
,        STR     c, m%
6        MOV     pc,R14
@.m%     EQUD    0
J]
T�
^B%=0
h�
r  B%=-B%
|  C%=�(mod)
�  D%=B%�10: E%=B%�10
�b  � C%<>D% � !m%<>E% �"******************************************************************":� 7
�  � B%,C%,!m%;"  ", D%,E%
�b  � C%<>D% � !m%<>E% �"******************************************************************":� 7
�  B%=-B%
�  C%=�(mod)
�  D%=B%�10: E%=B%�10
�b  � C%<>D% � !m%<>E% �"******************************************************************":� 7
�  � B%,C%,!m%;"  ", D%,E%
�b  � C%<>D% � !m%<>E% �"******************************************************************":� 7
�  B%+=1
�� �
��
�

00000000  0d 00 0a 0f f4 20 3e 44  69 76 4d 6f 64 31 30 0d  |..... >DivMod10.|
00000010  00 14 25 f4 20 62 61 73  65 64 20 6f 6e 20 63 6f  |..%. based on co|
00000020  64 65 20 62 79 20 41 20  46 20 52 65 79 73 65 6e  |de by A F Reysen|
00000030  62 61 63 68 0d 00 1e 68  f4 20 6d 6f 64 69 66 69  |bach...h. modifi|
00000040  65 64 20 62 79 20 6d 72  6f 7a 20 74 6f 20 6f 75  |ed by mroz to ou|
00000050  74 70 75 74 20 62 6f 74  68 20 71 75 6f 74 69 65  |tput both quotie|
00000060  6e 74 20 26 20 72 65 6d  61 69 6e 64 65 72 2c 20  |nt & remainder, |
00000070  70 6c 75 73 20 74 6f 20  73 75 70 70 6f 72 74 20  |plus to support |
00000080  6e 65 67 61 74 69 76 65  20 6e 75 6d 65 72 61 74  |negative numerat|
00000090  6f 72 20 26 20 66 69 78  20 62 75 67 0d 00 28 29  |or & fix bug..()|
000000a0  f4 20 61 6c 6c 6f 77 69  6e 67 20 75 73 65 20 77  |. allowing use w|
000000b0  69 74 68 20 62 69 74 2d  33 30 20 73 65 74 20 76  |ith bit-30 set v|
000000c0  61 6c 75 65 73 0d 00 32  19 f4 20 66 6f 72 20 33  |alues..2.. for 3|
000000d0  32 2d 62 69 74 20 6d 61  63 68 69 6e 65 73 0d 00  |2-bit machines..|
000000e0  3c 05 3a 0d 00 46 07 eb  20 30 0d 00 50 0e de 20  |<.:..F.. 0..P.. |
000000f0  6d 6f 64 20 31 30 32 34  0d 00 5a 13 61 3d 30 3a  |mod 1024..Z.a=0:|
00000100  62 3d 31 3a 63 3d 32 3a  64 3d 33 0d 00 64 15 e3  |b=1:c=2:d=3..d..|
00000110  20 70 61 73 73 25 3d 30  20 b8 20 33 20 88 20 33  | pass%=0 . 3 . 3|
00000120  0d 00 6e 0a 50 25 3d 6d  6f 64 0d 00 78 19 5b 20  |..n.P%=mod..x.[ |
00000130  20 20 20 20 20 20 4f 50  54 20 20 20 20 20 70 61  |      OPT     pa|
00000140  73 73 25 0d 00 82 3d 20  20 20 20 20 20 20 20 41  |ss%...=        A|
00000150  44 44 53 20 20 20 20 61  2c 62 2c 62 20 20 20 20  |DDS    a,b,b    |
00000160  20 20 20 20 20 20 20 3b  72 65 6d 6f 76 65 20 69  |       ;remove i|
00000170  66 66 20 62 20 61 6c 77  61 79 73 20 2b 27 76 65  |ff b always +'ve|
00000180  0d 00 8c 3d 20 20 20 20  20 20 20 20 52 53 42 43  |...=        RSBC|
00000190  53 20 20 20 62 2c 62 2c  23 30 20 20 20 20 20 20  |S   b,b,#0      |
000001a0  20 20 20 20 3b 72 65 6d  6f 76 65 20 69 66 66 20  |    ;remove iff |
000001b0  62 20 61 6c 77 61 79 73  20 2b 27 76 65 0d 00 96  |b always +'ve...|
000001c0  3d 20 20 20 20 20 20 20  20 41 44 43 20 20 20 20  |=        ADC    |
000001d0  20 64 2c 64 2c 64 20 20  20 20 20 20 20 20 20 20  | d,d,d          |
000001e0  20 3b 72 65 6d 6f 76 65  20 69 66 66 20 62 20 61  | ;remove iff b a|
000001f0  6c 77 61 79 73 20 2b 27  76 65 0d 00 a0 20 20 20  |lways +'ve...   |
00000200  20 20 20 20 20 20 41 44  44 20 20 20 20 20 61 2c  |      ADD     a,|
00000210  62 2c 62 2c 4c 53 52 20  23 31 0d 00 aa 20 20 20  |b,b,LSR #1...   |
00000220  20 20 20 20 20 20 41 44  44 20 20 20 20 20 61 2c  |      ADD     a,|
00000230  61 2c 61 2c 4c 53 52 20  23 34 0d 00 b4 20 20 20  |a,a,LSR #4...   |
00000240  20 20 20 20 20 20 41 44  44 20 20 20 20 20 61 2c  |      ADD     a,|
00000250  61 2c 61 2c 4c 53 52 20  23 38 0d 00 be 21 20 20  |a,a,LSR #8...!  |
00000260  20 20 20 20 20 20 41 44  44 20 20 20 20 20 61 2c  |      ADD     a,|
00000270  61 2c 61 2c 4c 53 52 20  23 31 36 0d 00 c8 1e 20  |a,a,LSR #16.... |
00000280  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 61  |       MOV     a|
00000290  2c 61 2c 4c 53 52 20 23  34 0d 00 d2 20 20 20 20  |,a,LSR #4...    |
000002a0  20 20 20 20 20 41 44 44  20 20 20 20 20 63 2c 61  |     ADD     c,a|
000002b0  2c 61 2c 41 53 4c 20 23  32 0d 00 dc 20 20 20 20  |,a,ASL #2...    |
000002c0  20 20 20 20 20 53 55 42  20 20 20 20 20 63 2c 62  |     SUB     c,b|
000002d0  2c 63 2c 41 53 4c 20 23  31 0d 00 e6 19 20 20 20  |,c,ASL #1....   |
000002e0  20 20 20 20 20 43 4d 50  20 20 20 20 20 63 2c 23  |     CMP     c,#|
000002f0  31 30 0d 00 f0 1a 20 20  20 20 20 20 20 20 41 44  |10....        AD|
00000300  44 47 45 20 20 20 61 2c  61 2c 23 31 0d 00 fa 1b  |DGE   a,a,#1....|
00000310  20 20 20 20 20 20 20 20  53 55 42 47 45 20 20 20  |        SUBGE   |
00000320  63 2c 63 2c 23 31 30 0d  01 04 3d 20 20 20 20 20  |c,c,#10...=     |
00000330  20 20 20 4d 4f 56 53 20  20 20 20 64 2c 64 2c 41  |   MOVS    d,d,A|
00000340  53 52 20 23 31 20 20 20  20 20 20 3b 72 65 6d 6f  |SR #1      ;remo|
00000350  76 65 20 69 66 66 20 62  20 61 6c 77 61 79 73 20  |ve iff b always |
00000360  2b 27 76 65 0d 01 0e 3d  20 20 20 20 20 20 20 20  |+'ve...=        |
00000370  52 53 42 43 53 20 20 20  61 2c 61 2c 23 30 20 20  |RSBCS   a,a,#0  |
00000380  20 20 20 20 20 20 20 20  3b 72 65 6d 6f 76 65 20  |        ;remove |
00000390  69 66 66 20 62 20 61 6c  77 61 79 73 20 2b 27 76  |iff b always +'v|
000003a0  65 0d 01 18 3d 20 20 20  20 20 20 20 20 52 53 42  |e...=        RSB|
000003b0  43 53 20 20 20 63 2c 63  2c 23 30 20 20 20 20 20  |CS   c,c,#0     |
000003c0  20 20 20 20 20 3b 72 65  6d 6f 76 65 20 69 66 66  |     ;remove iff|
000003d0  20 62 20 61 6c 77 61 79  73 20 2b 27 76 65 0d 01  | b always +'ve..|
000003e0  22 61 20 20 20 20 20 20  20 20 52 53 42 43 53 20  |"a        RSBCS |
000003f0  20 20 62 2c 62 2c 23 30  20 20 20 20 20 20 20 20  |  b,b,#0        |
00000400  20 20 3b 72 65 6d 6f 76  65 20 69 66 66 20 64 6f  |  ;remove iff do|
00000410  6e 27 74 20 6e 65 65 64  20 74 6f 20 70 72 65 73  |n't need to pres|
00000420  65 72 76 65 20 73 69 67  6e 20 6f 66 20 62 20 6f  |erve sign of b o|
00000430  72 20 62 20 61 6c 77 61  79 73 20 2b 27 76 65 0d  |r b always +'ve.|
00000440  01 2c 19 20 20 20 20 20  20 20 20 53 54 52 20 20  |.,.        STR  |
00000450  20 20 20 63 2c 20 6d 25  0d 01 36 1a 20 20 20 20  |   c, m%..6.    |
00000460  20 20 20 20 4d 4f 56 20  20 20 20 20 70 63 2c 52  |    MOV     pc,R|
00000470  31 34 0d 01 40 15 2e 6d  25 20 20 20 20 20 45 51  |14..@..m%     EQ|
00000480  55 44 20 20 20 20 30 0d  01 4a 05 5d 0d 01 54 05  |UD    0..J.]..T.|
00000490  ed 0d 01 5e 08 42 25 3d  30 0d 01 68 05 f5 0d 01  |...^.B%=0..h....|
000004a0  72 0c 20 20 42 25 3d 2d  42 25 0d 01 7c 0f 20 20  |r.  B%=-B%..|.  |
000004b0  43 25 3d ba 28 6d 6f 64  29 0d 01 86 18 20 20 44  |C%=.(mod)....  D|
000004c0  25 3d 42 25 81 31 30 3a  20 45 25 3d 42 25 83 31  |%=B%.10: E%=B%.1|
000004d0  30 0d 01 90 62 20 20 e7  20 43 25 3c 3e 44 25 20  |0...b  . C%<>D% |
000004e0  84 20 21 6d 25 3c 3e 45  25 20 f1 22 2a 2a 2a 2a  |. !m%<>E% ."****|
000004f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000520  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 22 3a  |**************":|
00000530  ef 20 37 0d 01 9a 1d 20  20 f1 20 42 25 2c 43 25  |. 7....  . B%,C%|
00000540  2c 21 6d 25 3b 22 20 20  22 2c 20 44 25 2c 45 25  |,!m%;"  ", D%,E%|
00000550  0d 01 a4 62 20 20 e7 20  43 25 3c 3e 44 25 20 84  |...b  . C%<>D% .|
00000560  20 21 6d 25 3c 3e 45 25  20 f1 22 2a 2a 2a 2a 2a  | !m%<>E% ."*****|
00000570  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000005a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 22 3a ef  |*************":.|
000005b0  20 37 0d 01 ae 0c 20 20  42 25 3d 2d 42 25 0d 01  | 7....  B%=-B%..|
000005c0  b8 0f 20 20 43 25 3d ba  28 6d 6f 64 29 0d 01 c2  |..  C%=.(mod)...|
000005d0  18 20 20 44 25 3d 42 25  81 31 30 3a 20 45 25 3d  |.  D%=B%.10: E%=|
000005e0  42 25 83 31 30 0d 01 cc  62 20 20 e7 20 43 25 3c  |B%.10...b  . C%<|
000005f0  3e 44 25 20 84 20 21 6d  25 3c 3e 45 25 20 f1 22  |>D% . !m%<>E% ."|
00000600  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000640  2a 2a 22 3a ef 20 37 0d  01 d6 1d 20 20 f1 20 42  |**":. 7....  . B|
00000650  25 2c 43 25 2c 21 6d 25  3b 22 20 20 22 2c 20 44  |%,C%,!m%;"  ", D|
00000660  25 2c 45 25 0d 01 e0 62  20 20 e7 20 43 25 3c 3e  |%,E%...b  . C%<>|
00000670  44 25 20 84 20 21 6d 25  3c 3e 45 25 20 f1 22 2a  |D% . !m%<>E% ."*|
00000680  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000006c0  2a 22 3a ef 20 37 0d 01  ea 0b 20 20 42 25 2b 3d  |*":. 7....  B%+=|
000006d0  31 0d 01 f4 07 fd 20 a3  0d 01 fe 05 e0 0d ff     |1..... ........|
000006df

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .