InTheMag/AcornAns/Inspire/DivMod10

Home » Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/AcornAns/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-1995-05-Disc1.adf » AWMay95_1
Filename:	InTheMag/AcornAns/Inspire/DivMod10
Read OK:	✔
File size:	06C6 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
   50:
   60MODE 0
   70DIM mod 1024
   80a=0:b=1:c=2:d=3
   90FOR pass%=0 TO 3 STEP 3
  100P%=mod
  110[       OPT     pass%
  120        ADDS    a,b,b           ;remove iff b always +'ve
  130        RSBCS   b,b,#0          ;remove iff b always +'ve
  140        ADC     d,d,d           ;remove iff b always +'ve
  150        ADD     a,b,b,LSR #1
  160        ADD     a,a,a,LSR #4
  170        ADD     a,a,a,LSR #8
  180        ADD     a,a,a,LSR #16
  190        MOV     a,a,LSR #4
  200        ADD     c,a,a,ASL #2
  210        SUB     c,b,c,ASL #1
  220        CMP     c,#10
  230        ADDGE   a,a,#1
  240        SUBGE   c,c,#10
  250        MOVS    d,d,ASR #1      ;remove iff b always +'ve
  260        RSBCS   a,a,#0          ;remove iff b always +'ve
  270        RSBCS   c,c,#0          ;remove iff b always +'ve
  280        RSBCS   b,b,#0          ;remove iff don't need to preserve sign of b or b always +'ve
  290        STR     c, m%
  300        MOV     pc,R14
  310.m%     EQUD    0
  320]
  330NEXT
  340B%=0
  350REPEAT
  360  B%=-B%
  370  C%=USR(mod)
  380  D%=B%DIV10: E%=B%MOD10
  390  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  400  PRINT B%,C%,!m%;"  ", D%,E%
  410  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  420  B%=-B%
  430  C%=USR(mod)
  440  D%=B%DIV10: E%=B%MOD10
  450  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  460  PRINT B%,C%,!m%;"  ", D%,E%
  470  IF C%<>D% OR !m%<>E% PRINT"******************************************************************":VDU 7
  480  B%+=1
  490UNTIL FALSE
  500END


� >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:
<� 0
F� mod 1024
Pa=0:b=1:c=2:d=3
Z� pass%=0 � 3 � 3
d
P%=mod
n[       OPT     pass%
x=        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%
,        MOV     pc,R14
6.m%     EQUD    0
@]
J�
TB%=0
^�
h  B%=-B%
r  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  05 3a 0d 00 3c 07 eb 20  |alues..2.:..<.. |
000000d0  30 0d 00 46 0e de 20 6d  6f 64 20 31 30 32 34 0d  |0..F.. mod 1024.|
000000e0  00 50 13 61 3d 30 3a 62  3d 31 3a 63 3d 32 3a 64  |.P.a=0:b=1:c=2:d|
000000f0  3d 33 0d 00 5a 15 e3 20  70 61 73 73 25 3d 30 20  |=3..Z.. pass%=0 |
00000100  b8 20 33 20 88 20 33 0d  00 64 0a 50 25 3d 6d 6f  |. 3 . 3..d.P%=mo|
00000110  64 0d 00 6e 19 5b 20 20  20 20 20 20 20 4f 50 54  |d..n.[       OPT|
00000120  20 20 20 20 20 70 61 73  73 25 0d 00 78 3d 20 20  |     pass%..x=  |
00000130  20 20 20 20 20 20 41 44  44 53 20 20 20 20 61 2c  |      ADDS    a,|
00000140  62 2c 62 20 20 20 20 20  20 20 20 20 20 20 3b 72  |b,b           ;r|
00000150  65 6d 6f 76 65 20 69 66  66 20 62 20 61 6c 77 61  |emove iff b alwa|
00000160  79 73 20 2b 27 76 65 0d  00 82 3d 20 20 20 20 20  |ys +'ve...=     |
00000170  20 20 20 52 53 42 43 53  20 20 20 62 2c 62 2c 23  |   RSBCS   b,b,#|
00000180  30 20 20 20 20 20 20 20  20 20 20 3b 72 65 6d 6f  |0          ;remo|
00000190  76 65 20 69 66 66 20 62  20 61 6c 77 61 79 73 20  |ve iff b always |
000001a0  2b 27 76 65 0d 00 8c 3d  20 20 20 20 20 20 20 20  |+'ve...=        |
000001b0  41 44 43 20 20 20 20 20  64 2c 64 2c 64 20 20 20  |ADC     d,d,d   |
000001c0  20 20 20 20 20 20 20 20  3b 72 65 6d 6f 76 65 20  |        ;remove |
000001d0  69 66 66 20 62 20 61 6c  77 61 79 73 20 2b 27 76  |iff b always +'v|
000001e0  65 0d 00 96 20 20 20 20  20 20 20 20 20 41 44 44  |e...         ADD|
000001f0  20 20 20 20 20 61 2c 62  2c 62 2c 4c 53 52 20 23  |     a,b,b,LSR #|
00000200  31 0d 00 a0 20 20 20 20  20 20 20 20 20 41 44 44  |1...         ADD|
00000210  20 20 20 20 20 61 2c 61  2c 61 2c 4c 53 52 20 23  |     a,a,a,LSR #|
00000220  34 0d 00 aa 20 20 20 20  20 20 20 20 20 41 44 44  |4...         ADD|
00000230  20 20 20 20 20 61 2c 61  2c 61 2c 4c 53 52 20 23  |     a,a,a,LSR #|
00000240  38 0d 00 b4 21 20 20 20  20 20 20 20 20 41 44 44  |8...!        ADD|
00000250  20 20 20 20 20 61 2c 61  2c 61 2c 4c 53 52 20 23  |     a,a,a,LSR #|
00000260  31 36 0d 00 be 1e 20 20  20 20 20 20 20 20 4d 4f  |16....        MO|
00000270  56 20 20 20 20 20 61 2c  61 2c 4c 53 52 20 23 34  |V     a,a,LSR #4|
00000280  0d 00 c8 20 20 20 20 20  20 20 20 20 41 44 44 20  |...         ADD |
00000290  20 20 20 20 63 2c 61 2c  61 2c 41 53 4c 20 23 32  |    c,a,a,ASL #2|
000002a0  0d 00 d2 20 20 20 20 20  20 20 20 20 53 55 42 20  |...         SUB |
000002b0  20 20 20 20 63 2c 62 2c  63 2c 41 53 4c 20 23 31  |    c,b,c,ASL #1|
000002c0  0d 00 dc 19 20 20 20 20  20 20 20 20 43 4d 50 20  |....        CMP |
000002d0  20 20 20 20 63 2c 23 31  30 0d 00 e6 1a 20 20 20  |    c,#10....   |
000002e0  20 20 20 20 20 41 44 44  47 45 20 20 20 61 2c 61  |     ADDGE   a,a|
000002f0  2c 23 31 0d 00 f0 1b 20  20 20 20 20 20 20 20 53  |,#1....        S|
00000300  55 42 47 45 20 20 20 63  2c 63 2c 23 31 30 0d 00  |UBGE   c,c,#10..|
00000310  fa 3d 20 20 20 20 20 20  20 20 4d 4f 56 53 20 20  |.=        MOVS  |
00000320  20 20 64 2c 64 2c 41 53  52 20 23 31 20 20 20 20  |  d,d,ASR #1    |
00000330  20 20 3b 72 65 6d 6f 76  65 20 69 66 66 20 62 20  |  ;remove iff b |
00000340  61 6c 77 61 79 73 20 2b  27 76 65 0d 01 04 3d 20  |always +'ve...= |
00000350  20 20 20 20 20 20 20 52  53 42 43 53 20 20 20 61  |       RSBCS   a|
00000360  2c 61 2c 23 30 20 20 20  20 20 20 20 20 20 20 3b  |,a,#0          ;|
00000370  72 65 6d 6f 76 65 20 69  66 66 20 62 20 61 6c 77  |remove iff b alw|
00000380  61 79 73 20 2b 27 76 65  0d 01 0e 3d 20 20 20 20  |ays +'ve...=    |
00000390  20 20 20 20 52 53 42 43  53 20 20 20 63 2c 63 2c  |    RSBCS   c,c,|
000003a0  23 30 20 20 20 20 20 20  20 20 20 20 3b 72 65 6d  |#0          ;rem|
000003b0  6f 76 65 20 69 66 66 20  62 20 61 6c 77 61 79 73  |ove iff b always|
000003c0  20 2b 27 76 65 0d 01 18  61 20 20 20 20 20 20 20  | +'ve...a       |
000003d0  20 52 53 42 43 53 20 20  20 62 2c 62 2c 23 30 20  | RSBCS   b,b,#0 |
000003e0  20 20 20 20 20 20 20 20  20 3b 72 65 6d 6f 76 65  |         ;remove|
000003f0  20 69 66 66 20 64 6f 6e  27 74 20 6e 65 65 64 20  | iff don't need |
00000400  74 6f 20 70 72 65 73 65  72 76 65 20 73 69 67 6e  |to preserve sign|
00000410  20 6f 66 20 62 20 6f 72  20 62 20 61 6c 77 61 79  | of b or b alway|
00000420  73 20 2b 27 76 65 0d 01  22 19 20 20 20 20 20 20  |s +'ve..".      |
00000430  20 20 53 54 52 20 20 20  20 20 63 2c 20 6d 25 0d  |  STR     c, m%.|
00000440  01 2c 1a 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |.,.        MOV  |
00000450  20 20 20 70 63 2c 52 31  34 0d 01 36 15 2e 6d 25  |   pc,R14..6..m%|
00000460  20 20 20 20 20 45 51 55  44 20 20 20 20 30 0d 01  |     EQUD    0..|
00000470  40 05 5d 0d 01 4a 05 ed  0d 01 54 08 42 25 3d 30  |@.]..J....T.B%=0|
00000480  0d 01 5e 05 f5 0d 01 68  0c 20 20 42 25 3d 2d 42  |..^....h.  B%=-B|
00000490  25 0d 01 72 0f 20 20 43  25 3d ba 28 6d 6f 64 29  |%..r.  C%=.(mod)|
000004a0  0d 01 7c 18 20 20 44 25  3d 42 25 81 31 30 3a 20  |..|.  D%=B%.10: |
000004b0  45 25 3d 42 25 83 31 30  0d 01 86 62 20 20 e7 20  |E%=B%.10...b  . |
000004c0  43 25 3c 3e 44 25 20 84  20 21 6d 25 3c 3e 45 25  |C%<>D% . !m%<>E%|
000004d0  20 f1 22 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ."*************|
000004e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000510  2a 2a 2a 2a 2a 22 3a ef  20 37 0d 01 90 1d 20 20  |*****":. 7....  |
00000520  f1 20 42 25 2c 43 25 2c  21 6d 25 3b 22 20 20 22  |. B%,C%,!m%;"  "|
00000530  2c 20 44 25 2c 45 25 0d  01 9a 62 20 20 e7 20 43  |, D%,E%...b  . C|
00000540  25 3c 3e 44 25 20 84 20  21 6d 25 3c 3e 45 25 20  |%<>D% . !m%<>E% |
00000550  f1 22 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |."**************|
00000560  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000590  2a 2a 2a 2a 22 3a ef 20  37 0d 01 a4 0c 20 20 42  |****":. 7....  B|
000005a0  25 3d 2d 42 25 0d 01 ae  0f 20 20 43 25 3d ba 28  |%=-B%....  C%=.(|
000005b0  6d 6f 64 29 0d 01 b8 18  20 20 44 25 3d 42 25 81  |mod)....  D%=B%.|
000005c0  31 30 3a 20 45 25 3d 42  25 83 31 30 0d 01 c2 62  |10: E%=B%.10...b|
000005d0  20 20 e7 20 43 25 3c 3e  44 25 20 84 20 21 6d 25  |  . C%<>D% . !m%|
000005e0  3c 3e 45 25 20 f1 22 2a  2a 2a 2a 2a 2a 2a 2a 2a  |<>E% ."*********|
000005f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000620  2a 2a 2a 2a 2a 2a 2a 2a  2a 22 3a ef 20 37 0d 01  |*********":. 7..|
00000630  cc 1d 20 20 f1 20 42 25  2c 43 25 2c 21 6d 25 3b  |..  . B%,C%,!m%;|
00000640  22 20 20 22 2c 20 44 25  2c 45 25 0d 01 d6 62 20  |"  ", D%,E%...b |
00000650  20 e7 20 43 25 3c 3e 44  25 20 84 20 21 6d 25 3c  | . C%<>D% . !m%<|
00000660  3e 45 25 20 f1 22 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |>E% ."**********|
00000670  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000006a0  2a 2a 2a 2a 2a 2a 2a 2a  22 3a ef 20 37 0d 01 e0  |********":. 7...|
000006b0  0b 20 20 42 25 2b 3d 31  0d 01 ea 07 fd 20 a3 0d  |.  B%+=1..... ..|
000006c0  01 f4 05 e0 0d ff                                 |......|
000006c6

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