Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » StarInfo/Reysenbach/cosi
StarInfo/Reysenbach/cosi
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/cosi |
| Read OK: | ✔ |
| File size: | 085F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >COSI2
20 REM SINRAD & COSRAD
30 REM by A Reysenbach
40 REM STRONG ARM ONLY
50 :
60 MODE 28
70 DIM sin 340
80 FOR pass=0 TO 2 STEP 2
90 P%=sin
100 :
110 [OPT pass
120 ADR 5,dat
130 LDMIA 5!,{6-8}
140 MOV 3,0,LSR #31
150 AND 4,2,#1
160 ADDS 3,3,1,LSR #31
170 RSBGT 0,0,#0
180 DCD &E0823096
190 RSBGT 4,4,#1
200 MVN 9,#89
210 MOV 2,2,LSR #6
220 AND 3,2,#3
230 ADD 4,4,3
240 MLA 0,2,9,0
250 BEQ hur
260 RSB 0,0,#360
270 ADD 1,1,#1<<24
280 SUB 0,0,#1
290 DCD &E0823096
300 MOV 2,2,LSR #6
310 AND 3,2,#1
320 ADD 4,4,3
330 MLA 0,2,9,0
340 .hur
350 ADD 0,1,0,LSL #24
360 RSBGT 0,0,#90<<24
370 ANDS 3,4,#1
380 RSBGT 0,0,#90<<24
390 CMP 0,#56<<24
400 RSBGT 0,0,#90<<24
410 MOV 0,0,LSL #2
420 DCD &E0823097
430 MOV 0,2,LSL #1
440 ADD 0,0,3,LSR #31
450 DCD &E0813090
460 DCD &E0883198
470 BGT cos
480 DCD &E0823098
490 LDMIA 5,{6-9}
500 DCD &E0865196
510 SUB 0,0,2,LSR #2
520 DCD &E0823296
530 DCD &E0875197
540 ADD 0,0,2,LSR #6
550 DCD &E0823297
560 DCD &E0885198
570 SUB 0,0,2,LSR #11
580 DCD &E0823298
590 DCD &E0895199
600 ADD 0,0,2,LSR #14
610 DCD &E0823299
620 ANDS 4,4,#2
630 SUB 0,0,2,LSR #20
640 MOV 0,0,LSR #1
650 RSBNE 0,0,#0
660 MOV PC,14
670 .cos
680 MVN 0,1,LSR #1
690 DCD &E0823198
700 ADD 5,5,#16
710 LDMIA 5,{7-9}
720 DCD &E0873197
730 ADD 0,0,2,LSR #4
740 DCD &E0823297
750 DCD &E0885198
760 SUB 0,0,2,LSR #8
770 DCD &E0823298
780 DCD &E0865196
790 ADD 0,0,2,LSR #13
800 DCD &E0823296
810 DCD &E0895199
820 SUB 0,0,2,LSR #19
830 DCD &E0823299
840 ANDS 4,4,#2
850 ADD 0,0,2,LSR #25
860 MOV 0,0,LSR #1
870 RSBNE 0,0,#0
880 MOV PC,14
890 .dat
900 EQUD &B60B60B7
910 EQUD &8EFA3513
920 EQUD &AAAAAAAB
930 EQUD &CCCCCCCD
940 EQUD &C30C30C4
950 EQUD &1C71C71D
960 EQUD &94F20950
970 EQUD &88888889
980 EQUD &92492493
990 EQUD &F83E0F84
1000 ]
1010 NEXT pass
1020 :
1030 INPUT'"angle ";a
1040 A%=a
1050 B%=(a-A%)*(1<<24)
1060 INPUT'"sine/cosine (0/1) ";C%
1070 :
1080 Z%=USR(sin)
1090 :
1100 PRINT'"program : ";Z%/(2^31)
1110 C%=C%AND1
1120 c=a-(a DIV 360)*360
1130 PRINT'"check : ";
1140 IFC%PRINTCOSRAD(c)ELSEPRINTSINRAD(c)
1150 PRINT'"BASIC : ";
1160 IFC%PRINTCOSRAD(a)ELSEPRINTSINRAD(a)
� >COSI2
� SINRAD & COSRAD
� by A Reysenbach
( � STRONG ARM ONLY
2 :
< � 28
F � sin 340
P � pass=0 � 2 � 2
Z P%=sin
d :
n [OPT pass
x ADR 5,dat
� LDMIA 5!,{6-8}
� MOV 3,0,LSR #31
� � 4,2,#1
� ADDS 3,3,1,LSR #31
� RSBGT 0,0,#0
� DCD &E0823096
� RSBGT 4,4,#1
� MVN 9,#89
� MOV 2,2,LSR #6
� � 3,2,#3
� ADD 4,4,3
� MLA 0,2,9,0
� BEQ hur
RSB 0,0,#360
ADD 1,1,#1<<24
SUB 0,0,#1
" DCD &E0823096
, MOV 2,2,LSR #6
6 � 3,2,#1
@ ADD 4,4,3
J MLA 0,2,9,0
T .hur
^ ADD 0,1,0,LSL #24
h RSBGT 0,0,#90<<24
r �S 3,4,#1
| RSBGT 0,0,#90<<24
� CMP 0,#56<<24
� RSBGT 0,0,#90<<24
� MOV 0,0,LSL #2
� DCD &E0823097
� MOV 0,2,LSL #1
� ADD 0,0,3,LSR #31
� DCD &E0813090
� DCD &E0883198
� BGT cos
� DCD &E0823098
� LDMIA 5,{6-9}
� DCD &E0865196
� SUB 0,0,2,LSR #2
DCD &E0823296
DCD &E0875197
ADD 0,0,2,LSR #6
& DCD &E0823297
0 DCD &E0885198
: SUB 0,0,2,LSR #11
D DCD &E0823298
N DCD &E0895199
X ADD 0,0,2,LSR #14
b DCD &E0823299
l �S 4,4,#2
v SUB 0,0,2,LSR #20
� MOV 0,0,LSR #1
� RSBNE 0,0,#0
� MOV PC,14
� .cos
� MVN 0,1,LSR #1
� DCD &E0823198
� ADD 5,5,#16
� LDMIA 5,{7-9}
� DCD &E0873197
� ADD 0,0,2,LSR #4
� DCD &E0823297
� DCD &E0885198
� SUB 0,0,2,LSR #8
DCD &E0823298
DCD &E0865196
ADD 0,0,2,LSR #13
DCD &E0823296
* DCD &E0895199
4 SUB 0,0,2,LSR #19
> DCD &E0823299
H �S 4,4,#2
R ADD 0,0,2,LSR #25
\ MOV 0,0,LSR #1
f RSBNE 0,0,#0
p MOV PC,14
z .dat
� EQUD &B60B60B7
� EQUD &8EFA3513
� EQUD &AAAAAAAB
� EQUD &CCCCCCCD
� EQUD &C30C30C4
� EQUD &1C71C71D
� EQUD &94F20950
� EQUD &88888889
� EQUD &92492493
� EQUD &F83E0F84
� ]
� � pass
� :
�'"angle ";a
A%=a
B%=(a-A%)*(1<<24)
$ �'"sine/cosine (0/1) ";C%
. :
8 Z%=�(sin)
B :
L �'"program : ";Z%/(2^31)
V C%=C%�1
` c=a-(a � 360)*360
j �'"check : ";
t �C%�(c)��(c)
~ �'"BASIC : ";
� �C%�(a)��(a)
� 00000000 0d 00 0a 0d 20 f4 20 3e 43 4f 53 49 32 0d 00 14 |.... . >COSI2...|
00000010 16 20 f4 20 53 49 4e 52 41 44 20 26 20 43 4f 53 |. . SINRAD & COS|
00000020 52 41 44 0d 00 1e 16 20 f4 20 62 79 20 41 20 52 |RAD.... . by A R|
00000030 65 79 73 65 6e 62 61 63 68 0d 00 28 16 20 f4 20 |eysenbach..(. . |
00000040 53 54 52 4f 4e 47 20 41 52 4d 20 4f 4e 4c 59 0d |STRONG ARM ONLY.|
00000050 00 32 06 20 3a 0d 00 3c 09 20 eb 20 32 38 0d 00 |.2. :..<. . 28..|
00000060 46 0e 20 de 20 73 69 6e 20 33 34 30 0d 00 50 15 |F. . sin 340..P.|
00000070 20 e3 20 70 61 73 73 3d 30 20 b8 20 32 20 88 20 | . pass=0 . 2 . |
00000080 32 0d 00 5a 0b 20 50 25 3d 73 69 6e 0d 00 64 06 |2..Z. P%=sin..d.|
00000090 20 3a 0d 00 6e 0f 20 5b 4f 50 54 20 20 70 61 73 | :..n. [OPT pas|
000000a0 73 0d 00 78 10 20 41 44 52 20 20 20 35 2c 64 61 |s..x. ADR 5,da|
000000b0 74 0d 00 82 13 20 4c 44 4d 49 41 20 35 21 2c 7b |t.... LDMIA 5!,{|
000000c0 36 2d 38 7d 0d 00 8c 16 20 4d 4f 56 20 20 20 33 |6-8}.... MOV 3|
000000d0 2c 30 2c 4c 53 52 20 23 33 31 0d 00 96 0f 20 80 |,0,LSR #31.... .|
000000e0 20 20 20 34 2c 32 2c 23 31 0d 00 a0 18 20 41 44 | 4,2,#1.... AD|
000000f0 44 53 20 20 33 2c 33 2c 31 2c 4c 53 52 20 23 33 |DS 3,3,1,LSR #3|
00000100 31 0d 00 aa 11 20 52 53 42 47 54 20 30 2c 30 2c |1.... RSBGT 0,0,|
00000110 23 30 0d 00 b4 14 20 44 43 44 20 20 20 26 45 30 |#0.... DCD &E0|
00000120 38 32 33 30 39 36 0d 00 be 11 20 52 53 42 47 54 |823096.... RSBGT|
00000130 20 34 2c 34 2c 23 31 0d 00 c8 10 20 4d 56 4e 20 | 4,4,#1.... MVN |
00000140 20 20 39 2c 23 38 39 0d 00 d2 15 20 4d 4f 56 20 | 9,#89.... MOV |
00000150 20 20 32 2c 32 2c 4c 53 52 20 23 36 0d 00 dc 0f | 2,2,LSR #6....|
00000160 20 80 20 20 20 33 2c 32 2c 23 33 0d 00 e6 10 20 | . 3,2,#3.... |
00000170 41 44 44 20 20 20 34 2c 34 2c 33 0d 00 f0 12 20 |ADD 4,4,3.... |
00000180 4d 4c 41 20 20 20 30 2c 32 2c 39 2c 30 0d 00 fa |MLA 0,2,9,0...|
00000190 0e 20 42 45 51 20 20 20 68 75 72 0d 01 04 13 20 |. BEQ hur.... |
000001a0 52 53 42 20 20 20 30 2c 30 2c 23 33 36 30 0d 01 |RSB 0,0,#360..|
000001b0 0e 15 20 41 44 44 20 20 20 31 2c 31 2c 23 31 3c |.. ADD 1,1,#1<|
000001c0 3c 32 34 0d 01 18 11 20 53 55 42 20 20 20 30 2c |<24.... SUB 0,|
000001d0 30 2c 23 31 0d 01 22 14 20 44 43 44 20 20 20 26 |0,#1..". DCD &|
000001e0 45 30 38 32 33 30 39 36 0d 01 2c 15 20 4d 4f 56 |E0823096..,. MOV|
000001f0 20 20 20 32 2c 32 2c 4c 53 52 20 23 36 0d 01 36 | 2,2,LSR #6..6|
00000200 0f 20 80 20 20 20 33 2c 32 2c 23 31 0d 01 40 10 |. . 3,2,#1..@.|
00000210 20 41 44 44 20 20 20 34 2c 34 2c 33 0d 01 4a 12 | ADD 4,4,3..J.|
00000220 20 4d 4c 41 20 20 20 30 2c 32 2c 39 2c 30 0d 01 | MLA 0,2,9,0..|
00000230 54 09 20 2e 68 75 72 0d 01 5e 18 20 41 44 44 20 |T. .hur..^. ADD |
00000240 20 20 30 2c 31 2c 30 2c 4c 53 4c 20 23 32 34 0d | 0,1,0,LSL #24.|
00000250 01 68 16 20 52 53 42 47 54 20 30 2c 30 2c 23 39 |.h. RSBGT 0,0,#9|
00000260 30 3c 3c 32 34 0d 01 72 0f 20 80 53 20 20 33 2c |0<<24..r. .S 3,|
00000270 34 2c 23 31 0d 01 7c 16 20 52 53 42 47 54 20 30 |4,#1..|. RSBGT 0|
00000280 2c 30 2c 23 39 30 3c 3c 32 34 0d 01 86 14 20 43 |,0,#90<<24.... C|
00000290 4d 50 20 20 20 30 2c 23 35 36 3c 3c 32 34 0d 01 |MP 0,#56<<24..|
000002a0 90 16 20 52 53 42 47 54 20 30 2c 30 2c 23 39 30 |.. RSBGT 0,0,#90|
000002b0 3c 3c 32 34 0d 01 9a 15 20 4d 4f 56 20 20 20 30 |<<24.... MOV 0|
000002c0 2c 30 2c 4c 53 4c 20 23 32 0d 01 a4 14 20 44 43 |,0,LSL #2.... DC|
000002d0 44 20 20 20 26 45 30 38 32 33 30 39 37 0d 01 ae |D &E0823097...|
000002e0 15 20 4d 4f 56 20 20 20 30 2c 32 2c 4c 53 4c 20 |. MOV 0,2,LSL |
000002f0 23 31 0d 01 b8 18 20 41 44 44 20 20 20 30 2c 30 |#1.... ADD 0,0|
00000300 2c 33 2c 4c 53 52 20 23 33 31 0d 01 c2 14 20 44 |,3,LSR #31.... D|
00000310 43 44 20 20 20 26 45 30 38 31 33 30 39 30 0d 01 |CD &E0813090..|
00000320 cc 14 20 44 43 44 20 20 20 26 45 30 38 38 33 31 |.. DCD &E08831|
00000330 39 38 0d 01 d6 0e 20 42 47 54 20 20 20 63 6f 73 |98.... BGT cos|
00000340 0d 01 e0 14 20 44 43 44 20 20 20 26 45 30 38 32 |.... DCD &E082|
00000350 33 30 39 38 0d 01 ea 12 20 4c 44 4d 49 41 20 35 |3098.... LDMIA 5|
00000360 2c 7b 36 2d 39 7d 0d 01 f4 14 20 44 43 44 20 20 |,{6-9}.... DCD |
00000370 20 26 45 30 38 36 35 31 39 36 0d 01 fe 17 20 53 | &E0865196.... S|
00000380 55 42 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 |UB 0,0,2,LSR #|
00000390 32 0d 02 08 14 20 44 43 44 20 20 20 26 45 30 38 |2.... DCD &E08|
000003a0 32 33 32 39 36 0d 02 12 14 20 44 43 44 20 20 20 |23296.... DCD |
000003b0 26 45 30 38 37 35 31 39 37 0d 02 1c 17 20 41 44 |&E0875197.... AD|
000003c0 44 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 36 |D 0,0,2,LSR #6|
000003d0 0d 02 26 14 20 44 43 44 20 20 20 26 45 30 38 32 |..&. DCD &E082|
000003e0 33 32 39 37 0d 02 30 14 20 44 43 44 20 20 20 26 |3297..0. DCD &|
000003f0 45 30 38 38 35 31 39 38 0d 02 3a 18 20 53 55 42 |E0885198..:. SUB|
00000400 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 31 31 | 0,0,2,LSR #11|
00000410 0d 02 44 14 20 44 43 44 20 20 20 26 45 30 38 32 |..D. DCD &E082|
00000420 33 32 39 38 0d 02 4e 14 20 44 43 44 20 20 20 26 |3298..N. DCD &|
00000430 45 30 38 39 35 31 39 39 0d 02 58 18 20 41 44 44 |E0895199..X. ADD|
00000440 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 31 34 | 0,0,2,LSR #14|
00000450 0d 02 62 14 20 44 43 44 20 20 20 26 45 30 38 32 |..b. DCD &E082|
00000460 33 32 39 39 0d 02 6c 0f 20 80 53 20 20 34 2c 34 |3299..l. .S 4,4|
00000470 2c 23 32 0d 02 76 18 20 53 55 42 20 20 20 30 2c |,#2..v. SUB 0,|
00000480 30 2c 32 2c 4c 53 52 20 23 32 30 0d 02 80 15 20 |0,2,LSR #20.... |
00000490 4d 4f 56 20 20 20 30 2c 30 2c 4c 53 52 20 23 31 |MOV 0,0,LSR #1|
000004a0 0d 02 8a 11 20 52 53 42 4e 45 20 30 2c 30 2c 23 |.... RSBNE 0,0,#|
000004b0 30 0d 02 94 10 20 4d 4f 56 20 20 20 50 43 2c 31 |0.... MOV PC,1|
000004c0 34 0d 02 9e 09 20 2e 63 6f 73 0d 02 a8 15 20 4d |4.... .cos.... M|
000004d0 56 4e 20 20 20 30 2c 31 2c 4c 53 52 20 23 31 0d |VN 0,1,LSR #1.|
000004e0 02 b2 14 20 44 43 44 20 20 20 26 45 30 38 32 33 |... DCD &E0823|
000004f0 31 39 38 0d 02 bc 12 20 41 44 44 20 20 20 35 2c |198.... ADD 5,|
00000500 35 2c 23 31 36 0d 02 c6 12 20 4c 44 4d 49 41 20 |5,#16.... LDMIA |
00000510 35 2c 7b 37 2d 39 7d 0d 02 d0 14 20 44 43 44 20 |5,{7-9}.... DCD |
00000520 20 20 26 45 30 38 37 33 31 39 37 0d 02 da 17 20 | &E0873197.... |
00000530 41 44 44 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 |ADD 0,0,2,LSR |
00000540 23 34 0d 02 e4 14 20 44 43 44 20 20 20 26 45 30 |#4.... DCD &E0|
00000550 38 32 33 32 39 37 0d 02 ee 14 20 44 43 44 20 20 |823297.... DCD |
00000560 20 26 45 30 38 38 35 31 39 38 0d 02 f8 17 20 53 | &E0885198.... S|
00000570 55 42 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 |UB 0,0,2,LSR #|
00000580 38 0d 03 02 14 20 44 43 44 20 20 20 26 45 30 38 |8.... DCD &E08|
00000590 32 33 32 39 38 0d 03 0c 14 20 44 43 44 20 20 20 |23298.... DCD |
000005a0 26 45 30 38 36 35 31 39 36 0d 03 16 18 20 41 44 |&E0865196.... AD|
000005b0 44 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 31 |D 0,0,2,LSR #1|
000005c0 33 0d 03 20 14 20 44 43 44 20 20 20 26 45 30 38 |3.. . DCD &E08|
000005d0 32 33 32 39 36 0d 03 2a 14 20 44 43 44 20 20 20 |23296..*. DCD |
000005e0 26 45 30 38 39 35 31 39 39 0d 03 34 18 20 53 55 |&E0895199..4. SU|
000005f0 42 20 20 20 30 2c 30 2c 32 2c 4c 53 52 20 23 31 |B 0,0,2,LSR #1|
00000600 39 0d 03 3e 14 20 44 43 44 20 20 20 26 45 30 38 |9..>. DCD &E08|
00000610 32 33 32 39 39 0d 03 48 0f 20 80 53 20 20 34 2c |23299..H. .S 4,|
00000620 34 2c 23 32 0d 03 52 18 20 41 44 44 20 20 20 30 |4,#2..R. ADD 0|
00000630 2c 30 2c 32 2c 4c 53 52 20 23 32 35 0d 03 5c 15 |,0,2,LSR #25..\.|
00000640 20 4d 4f 56 20 20 20 30 2c 30 2c 4c 53 52 20 23 | MOV 0,0,LSR #|
00000650 31 0d 03 66 11 20 52 53 42 4e 45 20 30 2c 30 2c |1..f. RSBNE 0,0,|
00000660 23 30 0d 03 70 10 20 4d 4f 56 20 20 20 50 43 2c |#0..p. MOV PC,|
00000670 31 34 0d 03 7a 09 20 2e 64 61 74 0d 03 84 14 20 |14..z. .dat.... |
00000680 45 51 55 44 20 20 26 42 36 30 42 36 30 42 37 0d |EQUD &B60B60B7.|
00000690 03 8e 14 20 45 51 55 44 20 20 26 38 45 46 41 33 |... EQUD &8EFA3|
000006a0 35 31 33 0d 03 98 14 20 45 51 55 44 20 20 26 41 |513.... EQUD &A|
000006b0 41 41 41 41 41 41 42 0d 03 a2 14 20 45 51 55 44 |AAAAAAB.... EQUD|
000006c0 20 20 26 43 43 43 43 43 43 43 44 0d 03 ac 14 20 | &CCCCCCCD.... |
000006d0 45 51 55 44 20 20 26 43 33 30 43 33 30 43 34 0d |EQUD &C30C30C4.|
000006e0 03 b6 14 20 45 51 55 44 20 20 26 31 43 37 31 43 |... EQUD &1C71C|
000006f0 37 31 44 0d 03 c0 14 20 45 51 55 44 20 20 26 39 |71D.... EQUD &9|
00000700 34 46 32 30 39 35 30 0d 03 ca 14 20 45 51 55 44 |4F20950.... EQUD|
00000710 20 20 26 38 38 38 38 38 38 38 39 0d 03 d4 14 20 | &88888889.... |
00000720 45 51 55 44 20 20 26 39 32 34 39 32 34 39 33 0d |EQUD &92492493.|
00000730 03 de 14 20 45 51 55 44 20 20 26 46 38 33 45 30 |... EQUD &F83E0|
00000740 46 38 34 0d 03 e8 06 20 5d 0d 03 f2 0c 20 ed 20 |F84.... ].... . |
00000750 20 70 61 73 73 0d 03 fc 06 20 3a 0d 04 06 11 20 | pass.... :.... |
00000760 e8 27 22 61 6e 67 6c 65 20 22 3b 61 0d 04 10 09 |.'"angle ";a....|
00000770 20 41 25 3d 61 0d 04 1a 16 20 42 25 3d 28 61 2d | A%=a.... B%=(a-|
00000780 41 25 29 2a 28 31 3c 3c 32 34 29 0d 04 24 1e 20 |A%)*(1<<24)..$. |
00000790 e8 27 22 73 69 6e 65 2f 63 6f 73 69 6e 65 20 28 |.'"sine/cosine (|
000007a0 30 2f 31 29 20 22 3b 43 25 0d 04 2e 06 20 3a 0d |0/1) ";C%.... :.|
000007b0 04 38 0e 20 5a 25 3d ba 28 73 69 6e 29 0d 04 42 |.8. Z%=.(sin)..B|
000007c0 06 20 3a 0d 04 4c 20 20 f1 27 22 70 72 6f 67 72 |. :..L .'"progr|
000007d0 61 6d 20 20 20 20 3a 20 22 3b 5a 25 2f 28 32 5e |am : ";Z%/(2^|
000007e0 33 31 29 0d 04 56 0c 20 43 25 3d 43 25 80 31 0d |31)..V. C%=C%.1.|
000007f0 04 60 16 20 63 3d 61 2d 28 61 20 81 20 33 36 30 |.`. c=a-(a . 360|
00000800 29 2a 33 36 30 0d 04 6a 17 20 f1 27 22 63 68 65 |)*360..j. .'"che|
00000810 63 6b 20 20 20 20 20 20 3a 20 22 3b 0d 04 74 15 |ck : ";..t.|
00000820 20 e7 43 25 f1 9b b2 28 63 29 8b f1 b5 b2 28 63 | .C%...(c)....(c|
00000830 29 0d 04 7e 17 20 f1 27 22 42 41 53 49 43 20 20 |)..~. .'"BASIC |
00000840 20 20 20 20 3a 20 22 3b 0d 04 88 15 20 e7 43 25 | : ";.... .C%|
00000850 f1 9b b2 28 61 29 8b f1 b5 b2 28 61 29 0d ff |...(a)....(a)..|
0000085f 
.