Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » StarInfo/Reysenbach/rad
StarInfo/Reysenbach/rad
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 » Acorn User » AU 1998-05 A.adf » Regulars |
| Filename: | StarInfo/Reysenbach/rad |
| Read OK: | ✔ |
| File size: | 01AA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >rad 20 REM by A Reysenbach 30 REM STRONG ARM ONLY 40 : 50 MODE 0 60 DIM ra 32 70 P%=ra 80 [ 90 DCD &E0841091 100 MOVS 4,4,LSR #6 110 MLAGT 0,4,3,0 120 CMP 0,#56 130 RSBGT 0,0,#90 140 MOV 0,0,LSL #26 150 DCD &E0801092 160 MOV PC,14 170 ] 180 INPUT'"angle 0-2147483647 ";A% 190 A%=ABS(A%) 200 B%=&B60B60B7 210 C%=&8EFA3513 220 D%=-90 230 : 240 Z%=USR(ra) 250 PRINT'Z%/(2^31) 260 A%=A%MOD90 270 IF A%>56 A%=90-A% 280 PRINT'RAD(A%)
� >rad � by A Reysenbach � STRONG ARM ONLY ( : 2 � 0 < � ra 32 F P%=ra P [ Z DCD &E0841091 d MOVS 4,4,LSR #6 n MLAGT 0,4,3,0 x CMP 0,#56 � RSBGT 0,0,#90 � MOV 0,0,LSL #26 � DCD &E0801092 � MOV PC,14 � ] � �'"angle 0-2147483647 ";A% � A%=�(A%) � B%=&B60B60B7 � C%=&8EFA3513 � D%=-90 � : � Z%=�(ra) � �'Z%/(2^31) A%=A%�90 � A%>56 A%=90-A% �'�(A%) �
00000000 0d 00 0a 0b 20 f4 20 3e 72 61 64 0d 00 14 16 20 |.... . >rad.... | 00000010 f4 20 62 79 20 41 20 52 65 79 73 65 6e 62 61 63 |. by A Reysenbac| 00000020 68 0d 00 1e 16 20 f4 20 53 54 52 4f 4e 47 20 41 |h.... . STRONG A| 00000030 52 4d 20 4f 4e 4c 59 0d 00 28 06 20 3a 0d 00 32 |RM ONLY..(. :..2| 00000040 08 20 eb 20 30 0d 00 3c 0c 20 de 20 72 61 20 33 |. . 0..<. . ra 3| 00000050 32 0d 00 46 0a 20 50 25 3d 72 61 0d 00 50 06 20 |2..F. P%=ra..P. | 00000060 5b 0d 00 5a 14 20 44 43 44 20 20 20 26 45 30 38 |[..Z. DCD &E08| 00000070 34 31 30 39 31 0d 00 64 15 20 4d 4f 56 53 20 20 |41091..d. MOVS | 00000080 34 2c 34 2c 4c 53 52 20 23 36 0d 00 6e 12 20 4d |4,4,LSR #6..n. M| 00000090 4c 41 47 54 20 30 2c 34 2c 33 2c 30 0d 00 78 10 |LAGT 0,4,3,0..x.| 000000a0 20 43 4d 50 20 20 20 30 2c 23 35 36 0d 00 82 12 | CMP 0,#56....| 000000b0 20 52 53 42 47 54 20 30 2c 30 2c 23 39 30 0d 00 | RSBGT 0,0,#90..| 000000c0 8c 16 20 4d 4f 56 20 20 20 30 2c 30 2c 4c 53 4c |.. MOV 0,0,LSL| 000000d0 20 23 32 36 0d 00 96 14 20 44 43 44 20 20 20 26 | #26.... DCD &| 000000e0 45 30 38 30 31 30 39 32 0d 00 a0 10 20 4d 4f 56 |E0801092.... MOV| 000000f0 20 20 20 50 43 2c 31 34 0d 00 aa 06 20 5d 0d 00 | PC,14.... ]..| 00000100 b4 1f 20 e8 27 22 61 6e 67 6c 65 20 30 2d 32 31 |.. .'"angle 0-21| 00000110 34 37 34 38 33 36 34 37 20 22 3b 41 25 0d 00 be |47483647 ";A%...| 00000120 0d 20 41 25 3d 94 28 41 25 29 0d 00 c8 11 20 42 |. A%=.(A%).... B| 00000130 25 3d 26 42 36 30 42 36 30 42 37 0d 00 d2 11 20 |%=&B60B60B7.... | 00000140 43 25 3d 26 38 45 46 41 33 35 31 33 0d 00 dc 0b |C%=&8EFA3513....| 00000150 20 44 25 3d 2d 39 30 0d 00 e6 06 20 3a 0d 00 f0 | D%=-90.... :...| 00000160 0d 20 5a 25 3d ba 28 72 61 29 0d 00 fa 10 20 f1 |. Z%=.(ra).... .| 00000170 27 5a 25 2f 28 32 5e 33 31 29 0d 01 04 0d 20 41 |'Z%/(2^31).... A| 00000180 25 3d 41 25 83 39 30 0d 01 0e 15 20 e7 20 41 25 |%=A%.90.... . A%| 00000190 3e 35 36 20 41 25 3d 39 30 2d 41 25 0d 01 18 0c |>56 A%=90-A%....| 000001a0 20 f1 27 b2 28 41 25 29 0d ff | .'.(A%)..| 000001aa
.