Home » Archimedes archive » Acorn User » AU 1993-05 (2).adf » !StarInfo/Files/QuasiJ+M

!StarInfo/Files/QuasiJ+M

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 1993-05 (2).adf
Filename: !StarInfo/Files/QuasiJ+M
Read OK: ✔
File size: 15B7 bytes
Load address: FFFFFB44
Exec address: 78BEA699
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM     >QuasiJ+M (Info11)
   20REM By  Michael Rozdoba
   30REM For 32-bit machines
   40REM (c) BAU May 1993
   50:
   60scrn%=1
   70mem%=1024
   80DIM code% mem%
   90R%=50
  100M%=90
  110:
  120MODE 0
  130PRINT "(J)ulia or (M)andelbrot ";
  140REPEAT
  150 set=INSTR(" JjMm",GET$)DIV2
  160UNTIL set>0
  170IF set=1 THEN
  180 PRINT"Julia"
  190 A=-1.12:B=-1.13:I=1.12:J=1.13
  200 INPUT '"Enter m & n (eg 0 & 0.3) ";pm,pn
  210ELSE
  220 PRINT "Mandelbrot"
  230 A=-.45:B=-1.8:I=2.10:J=1.8
  240 pm=0:pn=0
  250ENDIF
  260PROCmode
  270REPEAT
  280 hinc=(I-A)/hpix
  290 vinc=(J-B)/vpix
  300 IF hinc*vinc=0 PRINT"image size too small":END
  310 PROCcode
  320 CALL doit%
  330 REPEAT
  340  VDU 7
  350  goon=TRUE
  360  CASE GET$ OF
  370   WHEN "S","s":
  380    SYS "OS_CLI","ScreenSave ImageJ"+STR$scrn%
  390    scrn%+=1
  400    goon=FALSE
  410   WHEN "I","i":
  420    PRINT "Current co-ordinates   : (";A;",";B;") - (";I;",";J;")"
  430    INPUT "Enter new values (A,B) : ";A,B
  440    INPUT "                 (I,J) : ";I,J
  450   WHEN "J","j":
  460    IF set=2 set=1:pm=jm:pn=jn
  470   WHEN "M","m":
  480    IF set=1 set=2:pm=0:pn=0
  490   WHEN "N","n":
  500    PROCmode
  510   WHEN " ":
  520    PROCzoom
  530   OTHERWISE:
  540    goon=FALSE
  550  ENDCASE
  560 UNTIL goon
  570UNTIL FALSE
  580END
  590:
  600DEF PROCmode
  610REPEAT
  620 ok=TRUE
  630 VDU30
  640 INPUT '"Screen mode ";mode
  650 SYS "OS_CheckModeValid", mode TO ;F%
  660 log2bpp=FNvar(9)
  670 log2bpc=FNvar(10)
  680 hpix=FNvar(11)+1
  690 vpix=FNvar(12)+1
  700 scrx=hpix<<FNvar(4)
  710 scry=vpix<<FNvar(5)
  720 IF F%AND2 PRINT"Selected mode is unavailable":ok=FALSE
  730 IF log2bpp<>2 PRINT"Not a 16 colour mode":ok=FALSE
  740 IF log2bpp<>log2bpc PRINT"'Double pixel' modes are not allowed":ok=FALSE
  750UNTIL ok
  760MODE mode:OFF
  770RESTORE
  780FOR i=0 TO 15
  790 READ r,g,b
  800 COLOUR i,r,g,b
  810NEXT i
  820ENDPROC
  830:
  840DEF PROCzoom
  850MOUSE ON
  860s=512
  870MOUSE x,y,b
  880GCOL 3,15
  890RECTANGLE x-s*scrx/(scry<<1),y-s/2,s*scrx/scry,s
  900ox=x
  910oy=y
  920os=s
  930REPEAT
  940 MOUSE x,y,b
  950 WAIT
  960 RECTANGLE ox-os*scrx/(scry<<1),oy-os/2,os*scrx/scry,os
  970 RECTANGLE x-s*scrx/(scry<<1),y-s/2,s*scrx/scry,s
  980 IF set=2 THEN
  990  jm=A+(I-A)*x/scrx
 1000  jn=J-(J-B)*y/scry
 1010  PRINT TAB(0,0);"Julia parameter: ";jm;" ";jn;SPC(12);
 1020 ENDIF
 1030 ox=x:oy=y:os=s
 1040 IF b AND 4 s+=2*(s>16)
 1050 IF b AND 1 s-=2*(s<scry)
 1060UNTIL b AND 2
 1070w=I-A:h=J-B
 1080I=A+w*(x+s*scrx/(scry<<1))/scrx
 1090B=J-h*(y+s/2)/scry
 1100A=A+w*(x-s*scrx/(scry<<1))/scrx
 1110J=J-h*(y-s/2)/scry
 1120MOUSE OFF
 1130ENDPROC
 1140:
 1150DEF PROCcode
 1160!code%=148
 1170code%!4=-1
 1180SYS"OS_ReadVduVariables",code%,code%
 1190scrst%=!code%
 1200L%=code%+mem%
 1210xc=0
 1220yc=1
 1230x=2
 1240y=3
 1250cc=4
 1260m=5
 1270n=6
 1280r=7
 1290addr=8
 1300FOR opt%=8 TO 10 STEP 2
 1310P%=code%
 1320[OPT opt%
 1330.ar%      EQUD R%*65536
 1340.ax%      EQUD 0
 1350.ay%      EQUD 0
 1360.axo%     EQUD A*65536
 1370.ayo%     EQUD B*65536
 1380.axi%     EQUD hinc*65536
 1390.ayi%     EQUD vinc*65536
 1400.am%      EQUD pm*65536
 1410.an%      EQUD pn*65536
 1420.ascrst%  EQUD scrst%
 1430.asptemp% EQUD 0
 1440:
 1450.doit%
 1460STMFD R13!,{R14}
 1470STR   R13,asptemp%
 1480LDR   r,ar%
 1490LDR   m,am%
 1500LDR   n,an%
 1510LDR   addr,ascrst%
 1520]
 1530IF set=1 THEN
 1540[OPT opt%
 1550LDR   y,ayo%
 1560STR   y,ay%
 1570]
 1580ELSE
 1590[OPT opt%
 1600LDR   n,ayo%
 1610STR   n,ay%
 1620]
 1630ENDIF
 1640[OPT  opt%
 1650MOV   yc,#vpix
 1660.rowloop%
 1670]
 1680IF set=1 THEN
 1690[OPT opt%
 1700LDR   x,axo%
 1710STR   x,ax%
 1720]
 1730ELSE
 1740[OPT opt%
 1750LDR   m,axo%
 1760STR   m,ax%
 1770]
 1780ENDIF
 1790[OPT opt%
 1800MOV   xc,#hpix
 1810.colloop%
 1820]
 1830IF set=2 THEN
 1840[OPT opt%
 1850MOV   x,#0
 1860MOV   y,#0
 1870]
 1880ENDIF
 1890[OPT opt%
 1900MOV   cc,#1
 1910.cloop%
 1920FNsqu16(x,13,11,12,14)
 1930FNsqu16(y,10,11,12,14)
 1940ADD   R14,R13,R10
 1950CMP   R14,r
 1960BGE   gotcc%
 1970SUBS  R13,R13,R10
 1980RSBMI R13,R13,#0
 1990SUB   R13,R13,m
 2000FNmul16(x,y,10,11,12,14)
 2010ADD   y,R10,R10
 2020SUB   y,y,n
 2030MOV   x,R13
 2040ADD   cc,cc,#1
 2050CMP   cc,#M%
 2060BLE   cloop%
 2070MOV   cc,#1
 2080:
 2090.gotcc%
 2100SUB   cc,cc,#1
 2110ADR   R14,lut%
 2120LDRB  cc,[R14,cc]
 2130:
 2140LDRB  R14,[addr]
 2150TST   xc,#1
 2160ANDNE R14,R14,#15
 2170ORRNE R14,R14,cc,LSL #4
 2180ANDEQ R14,R14,#240
 2190ORREQ R14,R14,cc
 2200STRB  R14,[addr]
 2210:
 2220ADDNE addr,addr,#1
 2230]IF set=1 THEN
 2240[OPT opt%
 2250LDR   y,ay%
 2260LDR   x,ax%
 2270LDR   R14,axi%
 2280ADD   x,x,R14
 2290STR   x,ax%
 2300SUBS  xc,xc,#1
 2310BGT   colloop%
 2320LDR   R14,ayi%
 2330ADD   y,y,R14
 2340STR   y,ay%
 2350]
 2360ELSE
 2370[OPT opt%
 2380LDR   n,ay%
 2390LDR   m,ax%
 2400LDR   R14,axi%
 2410ADD   m,m,R14
 2420STR   m,ax%
 2430SUBS  xc,xc,#1
 2440BGT   colloop%
 2450LDR   R14,ayi%
 2460ADD   n,n,R14
 2470STR   n,ay%
 2480]
 2490ENDIF
 2500[OPT opt%
 2510SUBS  yc,yc,#1
 2520BGT   rowloop%
 2530LDR   R13,asptemp%
 2540LDMFD R13!,{PC}
 2550.lut%
 2560EQUB 0
 2570]
 2580FOR CL%=1 TO M%
 2590[OPT opt%
 2600EQUB  CL% MOD 15+1
 2610]
 2620NEXT CL%
 2630NEXT opt%
 2640ENDPROC
 2650:
 2660DEF FNmul16(x%,a%,r%,u%,v%,w%)
 2670[OPT opt%
 2680MOVS  w%,a%,LSL #1
 2690RSBCS a%,a%,#0
 2700TEQ   x%,#0
 2710RSBMI r%,x%,#0
 2720]
 2730IF r%<>x% THEN
 2740[OPT opt%
 2750MOVPL r%,x%
 2760]
 2770ENDIF
 2780[OPT opt%
 2790MOV   w%,pc,LSR #31
 2800MOV   w%,w%,LSL #28
 2810TEQP  w%,pc,LSR #1
 2820MOV   w%,r%,LSR #16
 2830BIC   r%,r%,w%,LSL #16
 2840MOV   v%,a%,LSR #16
 2850BIC   a%,a%,v%,LSL #16
 2860MUL   u%,a%,r%
 2870TST   u%,#1<<15
 2880MOV   u%,u%,LSR #16
 2890ADDNE u%,u%,#1
 2900MLA   u%,v%,r%,u%
 2910MLA   u%,a%,w%,u%
 2920MUL   r%,v%,w%
 2930ADD   r%,u%,r%,LSL #16
 2940RSBVS r%,r%,#0
 2950]
 2960=0
 2970:
 2980DEF FNsqu16(x%,r%,u%,v%,w%)
 2990[OPT opt%
 3000TEQ   x%,#0
 3010RSBMI r%,x%,#0
 3020]
 3030IF r%<>x% THEN
 3040[OPT opt%
 3050MOVPL r%,x%
 3060]
 3070ENDIF
 3080[OPT opt%
 3090MOV   w%,r%,LSR #16
 3100BIC   r%,r%,w%,LSL #16
 3110MUL   u%,r%,r%
 3120TST   u%,#1<<15
 3130MOV   u%,u%,LSR #16
 3140ADDNE u%,u%,#1
 3150MUL   v%,w%,r%
 3160ADD   u%,u%,v%,ASL #1
 3170MUL   r%,w%,w%
 3180ADD   r%,u%,r%,LSL #16
 3190]
 3200=0
 3210:
 3220DEF FNvar(var)
 3230SYS "OS_ReadModeVariable",mode,var TO ,,val
 3240=val
 3250:
 3260DATA 0,0,0
 3270DATA 192,0,240
 3280DATA 144,48,240
 3290DATA 96,96,240
 3300DATA 48,144,240
 3310DATA 0,192,240
 3320DATA 0,240,192
 3330DATA 48,240,144
 3340DATA 96,240,96
 3350DATA 144,240,48
 3360DATA 192,240,0
 3370DATA 240,192,0
 3380DATA 240,144,48
 3390DATA 240,96,96
 3400DATA 240,48,144
 3410DATA 240,0,192


�     >QuasiJ+M (Info11)
� By  Michael Rozdoba
� For 32-bit machines
(� (c) BAU May 1993
2:
<scrn%=1
F
mem%=1024
P� code% mem%
Z	R%=50
d	M%=90
n:
x� 0
�!� "(J)ulia or (M)andelbrot ";
��
� set=�" JjMm",�)�2
�� set>0
�
� set=1 �
�
 �"Julia"
�" A=-1.12:B=-1.13:I=1.12:J=1.13
�) � '"Enter m & n (eg 0 & 0.3) ";pm,pn
��
� � "Mandelbrot"
� A=-.45:B=-1.8:I=2.10:J=1.8
� pm=0:pn=0
��
	�mode
�
 hinc=(I-A)/hpix
" vinc=(J-B)/vpix
,, � hinc*vinc=0 �"image size too small":�
6
 �code
@ � doit%
J �
T	  � 7
^  goon=�
h  Ȏ � �
r   � "S","s":
|.    ș "OS_CLI","ScreenSave ImageJ"+�scrn%
�    scrn%+=1
�    goon=�
�   � "I","i":
�B    � "Current co-ordinates   : (";A;",";B;") - (";I;",";J;")"
�)    � "Enter new values (A,B) : ";A,B
�)    � "                 (I,J) : ";I,J
�   � "J","j":
�!    � set=2 set=1:pm=jm:pn=jn
�   � "M","m":
�    � set=1 set=2:pm=0:pn=0
�   � "N","n":
�
    �mode
�
   � " ":

    �zoom
	   :
    goon=�
&  �
0 � goon
:� �
D�
N:
X� �mode
b�
l	 ok=�
v �30
� � '"Screen mode ";mode
�' ș "OS_CheckModeValid", mode � ;F%
� log2bpp=�var(9)
� log2bpc=�var(10)
� hpix=�var(11)+1
� vpix=�var(12)+1
� scrx=hpix<<�var(4)
� scry=vpix<<�var(5)
�0 � F%�2 �"Selected mode is unavailable":ok=�
�. � log2bpp<>2 �"Not a 16 colour mode":ok=�
�D � log2bpp<>log2bpc �"'Double pixel' modes are not allowed":ok=�
�� ok
�� mode:�
�
� i=0 � 15
 � r,g,b
  � i,r,g,b
*� i
4�
>:
H� �zoom
Rȗ �
\	s=512
fȗ x,y,b
p
� 3,15
z-ȓ x-s*scrx/(scry<<1),y-s/2,s*scrx/scry,s
�ox=x
�oy=y
�os=s
��
�
 ȗ x,y,b
� Ȗ
�4 ȓ ox-os*scrx/(scry<<1),oy-os/2,os*scrx/scry,os
�. ȓ x-s*scrx/(scry<<1),y-s/2,s*scrx/scry,s
� � set=2 �
�  jm=A+(I-A)*x/scrx
�  jn=J-(J-B)*y/scry
�2  � �0,0);"Julia parameter: ";jm;" ";jn;�(12);
� �
 ox=x:oy=y:os=s
 � b � 4 s+=2*(s>16)
 � b � 1 s-=2*(s<scry)
$� b � 2
.w=I-A:h=J-B
8#I=A+w*(x+s*scrx/(scry<<1))/scrx
BB=J-h*(y+s/2)/scry
L#A=A+w*(x-s*scrx/(scry<<1))/scrx
VJ=J-h*(y-s/2)/scry
`ȗ �
j�
t:
~� �code
�!code%=148
�code%!4=-1
�'ș"OS_ReadVduVariables",code%,code%
�scrst%=!code%
�L%=code%+mem%
�xc=0
�yc=1
�x=2
�y=3
�cc=4
�m=5
�n=6
r=7


addr=8
� opt%=8 � 10 � 2
P%=code%
(
[OPT opt%
2.ar%      EQUD R%*65536
<.ax%      EQUD 0
F.ay%      EQUD 0
P.axo%     EQUD A*65536
Z.ayo%     EQUD B*65536
d.axi%     EQUD hinc*65536
n.ayi%     EQUD vinc*65536
x.am%      EQUD pm*65536
�.an%      EQUD pn*65536
�.ascrst%  EQUD scrst%
�.asptemp% EQUD 0
�:
�
.doit%
�STMFD R13!,{R14}
�STR   R13,asptemp%
�LDR   r,ar%
�LDR   m,am%
�LDR   n,an%
�LDR   addr,ascrst%
�]
�
� set=1 �

[OPT opt%
LDR   y,ayo%
STR   y,ay%
"]
,�
6
[OPT opt%
@LDR   n,ayo%
JSTR   n,ay%
T]
^�
h[OPT  opt%
rMOV   yc,#vpix
|
.rowloop%
�]
�
� set=1 �
�
[OPT opt%
�LDR   x,axo%
�STR   x,ax%
�]
��
�
[OPT opt%
�LDR   m,axo%
�STR   m,ax%
�]
��
�
[OPT opt%
MOV   xc,#hpix

.colloop%
]
&
� set=2 �
0
[OPT opt%
:MOV   x,#0
DMOV   y,#0
N]
X�
b
[OPT opt%
lMOV   cc,#1
v.cloop%
��squ16(x,13,11,12,14)
��squ16(y,10,11,12,14)
�ADD   R14,R13,R10
�CMP   R14,r
�BGE   gotcc%
�SUBS  R13,R13,R10
�RSBMI R13,R13,#0
�SUB   R13,R13,m
��mul16(x,y,10,11,12,14)
�ADD   y,R10,R10
�SUB   y,y,n
�MOV   x,R13
�ADD   cc,cc,#1
CMP   cc,#M%
BLE   cloop%
MOV   cc,#1
 :
*.gotcc%
4SUB   cc,cc,#1
>ADR   R14,lut%
HLDRB  cc,[R14,cc]
R:
\LDRB  R14,[addr]
fTST   xc,#1
p�NE R14,R14,#15
z�RNE R14,R14,cc,LSL #4
��EQ R14,R14,#240
��REQ R14,R14,cc
�STRB  R14,[addr]
�:
�ADDNE addr,addr,#1
�]� set=1 �
�
[OPT opt%
�LDR   y,ay%
�LDR   x,ax%
�LDR   R14,axi%
�ADD   x,x,R14
�STR   x,ax%
�SUBS  xc,xc,#1
	BGT   colloop%
	LDR   R14,ayi%
	ADD   y,y,R14
	$STR   y,ay%
	.]
	8�
	B
[OPT opt%
	LLDR   n,ay%
	VLDR   m,ax%
	`LDR   R14,axi%
	jADD   m,m,R14
	tSTR   m,ax%
	~SUBS  xc,xc,#1
	�BGT   colloop%
	�LDR   R14,ayi%
	�ADD   n,n,R14
	�STR   n,ay%
	�]
	��
	�
[OPT opt%
	�SUBS  yc,yc,#1
	�BGT   rowloop%
	�LDR   R13,asptemp%
	�LDMFD R13!,{PC}
	�	.lut%

EQUB 0

]
� CL%=1 � M%

[OPT opt%
(EQUB  CL% � 15+1
2]
<	� CL%
F
� opt%
P�
Z:
d� �mul16(x%,a%,r%,u%,v%,w%)
n
[OPT opt%
xMOVS  w%,a%,LSL #1
�RSBCS a%,a%,#0
�TEQ   x%,#0
�RSBMI r%,x%,#0
�]
�� r%<>x% �
�
[OPT opt%
�MOVPL r%,x%
�]
��
�
[OPT opt%
�MOV   w%,pc,LSR #31
�MOV   w%,w%,LSL #28
�TEQP  w%,pc,LSR #1
MOV   w%,r%,LSR #16
BIC   r%,r%,w%,LSL #16
MOV   v%,a%,LSR #16
"BIC   a%,a%,v%,LSL #16
,MUL   u%,a%,r%
6TST   u%,#1<<15
@MOV   u%,u%,LSR #16
JADDNE u%,u%,#1
TMLA   u%,v%,r%,u%
^MLA   u%,a%,w%,u%
hMUL   r%,v%,w%
rADD   r%,u%,r%,LSL #16
|RSBVS r%,r%,#0
�]
�=0
�:
�� �squ16(x%,r%,u%,v%,w%)
�
[OPT opt%
�TEQ   x%,#0
�RSBMI r%,x%,#0
�]
�� r%<>x% �
�
[OPT opt%
�MOVPL r%,x%
�]
��

[OPT opt%
MOV   w%,r%,LSR #16
BIC   r%,r%,w%,LSL #16
&MUL   u%,r%,r%
0TST   u%,#1<<15
:MOV   u%,u%,LSR #16
DADDNE u%,u%,#1
NMUL   v%,w%,r%
XADD   u%,u%,v%,ASL #1
bMUL   r%,w%,w%
lADD   r%,u%,r%,LSL #16
v]
�=0
�:
�� �var(var)
�-ș "OS_ReadModeVariable",mode,var � ,,val
�=val
�:
�� 0,0,0
�� 192,0,240
�� 144,48,240
�� 96,96,240
�� 48,144,240
�� 0,192,240
�� 0,240,192

� 48,240,144

� 96,240,96

� 144,240,48

 � 192,240,0

*� 240,192,0

4� 240,144,48

>� 240,96,96

H� 240,48,144

R� 240,0,192
�
00000000  0d 00 0a 1c f4 20 20 20  20 20 3e 51 75 61 73 69  |.....     >Quasi|
00000010  4a 2b 4d 20 28 49 6e 66  6f 31 31 29 0d 00 14 19  |J+M (Info11)....|
00000020  f4 20 42 79 20 20 4d 69  63 68 61 65 6c 20 52 6f  |. By  Michael Ro|
00000030  7a 64 6f 62 61 0d 00 1e  19 f4 20 46 6f 72 20 33  |zdoba..... For 3|
00000040  32 2d 62 69 74 20 6d 61  63 68 69 6e 65 73 0d 00  |2-bit machines..|
00000050  28 16 f4 20 28 63 29 20  42 41 55 20 4d 61 79 20  |(.. (c) BAU May |
00000060  31 39 39 33 0d 00 32 05  3a 0d 00 3c 0b 73 63 72  |1993..2.:..<.scr|
00000070  6e 25 3d 31 0d 00 46 0d  6d 65 6d 25 3d 31 30 32  |n%=1..F.mem%=102|
00000080  34 0d 00 50 10 de 20 63  6f 64 65 25 20 6d 65 6d  |4..P.. code% mem|
00000090  25 0d 00 5a 09 52 25 3d  35 30 0d 00 64 09 4d 25  |%..Z.R%=50..d.M%|
000000a0  3d 39 30 0d 00 6e 05 3a  0d 00 78 07 eb 20 30 0d  |=90..n.:..x.. 0.|
000000b0  00 82 21 f1 20 22 28 4a  29 75 6c 69 61 20 6f 72  |..!. "(J)ulia or|
000000c0  20 28 4d 29 61 6e 64 65  6c 62 72 6f 74 20 22 3b  | (M)andelbrot ";|
000000d0  0d 00 8c 05 f5 0d 00 96  16 20 73 65 74 3d a7 22  |......... set=."|
000000e0  20 4a 6a 4d 6d 22 2c be  29 81 32 0d 00 a0 0b fd  | JjMm",.).2.....|
000000f0  20 73 65 74 3e 30 0d 00  aa 0d e7 20 73 65 74 3d  | set>0..... set=|
00000100  31 20 8c 0d 00 b4 0d 20  f1 22 4a 75 6c 69 61 22  |1 ..... ."Julia"|
00000110  0d 00 be 22 20 41 3d 2d  31 2e 31 32 3a 42 3d 2d  |..." A=-1.12:B=-|
00000120  31 2e 31 33 3a 49 3d 31  2e 31 32 3a 4a 3d 31 2e  |1.13:I=1.12:J=1.|
00000130  31 33 0d 00 c8 29 20 e8  20 27 22 45 6e 74 65 72  |13...) . '"Enter|
00000140  20 6d 20 26 20 6e 20 28  65 67 20 30 20 26 20 30  | m & n (eg 0 & 0|
00000150  2e 33 29 20 22 3b 70 6d  2c 70 6e 0d 00 d2 05 cc  |.3) ";pm,pn.....|
00000160  0d 00 dc 13 20 f1 20 22  4d 61 6e 64 65 6c 62 72  |.... . "Mandelbr|
00000170  6f 74 22 0d 00 e6 1f 20  41 3d 2d 2e 34 35 3a 42  |ot".... A=-.45:B|
00000180  3d 2d 31 2e 38 3a 49 3d  32 2e 31 30 3a 4a 3d 31  |=-1.8:I=2.10:J=1|
00000190  2e 38 0d 00 f0 0e 20 70  6d 3d 30 3a 70 6e 3d 30  |.8.... pm=0:pn=0|
000001a0  0d 00 fa 05 cd 0d 01 04  09 f2 6d 6f 64 65 0d 01  |..........mode..|
000001b0  0e 05 f5 0d 01 18 14 20  68 69 6e 63 3d 28 49 2d  |....... hinc=(I-|
000001c0  41 29 2f 68 70 69 78 0d  01 22 14 20 76 69 6e 63  |A)/hpix..". vinc|
000001d0  3d 28 4a 2d 42 29 2f 76  70 69 78 0d 01 2c 2c 20  |=(J-B)/vpix..,, |
000001e0  e7 20 68 69 6e 63 2a 76  69 6e 63 3d 30 20 f1 22  |. hinc*vinc=0 ."|
000001f0  69 6d 61 67 65 20 73 69  7a 65 20 74 6f 6f 20 73  |image size too s|
00000200  6d 61 6c 6c 22 3a e0 0d  01 36 0a 20 f2 63 6f 64  |mall":...6. .cod|
00000210  65 0d 01 40 0c 20 d6 20  64 6f 69 74 25 0d 01 4a  |e..@. . doit%..J|
00000220  06 20 f5 0d 01 54 09 20  20 ef 20 37 0d 01 5e 0c  |. ...T.  . 7..^.|
00000230  20 20 67 6f 6f 6e 3d b9  0d 01 68 0c 20 20 c8 8e  |  goon=...h.  ..|
00000240  20 be 20 ca 0d 01 72 11  20 20 20 c9 20 22 53 22  | . ...r.   . "S"|
00000250  2c 22 73 22 3a 0d 01 7c  2e 20 20 20 20 c8 99 20  |,"s":..|.    .. |
00000260  22 4f 53 5f 43 4c 49 22  2c 22 53 63 72 65 65 6e  |"OS_CLI","Screen|
00000270  53 61 76 65 20 49 6d 61  67 65 4a 22 2b c3 73 63  |Save ImageJ"+.sc|
00000280  72 6e 25 0d 01 86 10 20  20 20 20 73 63 72 6e 25  |rn%....    scrn%|
00000290  2b 3d 31 0d 01 90 0e 20  20 20 20 67 6f 6f 6e 3d  |+=1....    goon=|
000002a0  a3 0d 01 9a 11 20 20 20  c9 20 22 49 22 2c 22 69  |.....   . "I","i|
000002b0  22 3a 0d 01 a4 42 20 20  20 20 f1 20 22 43 75 72  |":...B    . "Cur|
000002c0  72 65 6e 74 20 63 6f 2d  6f 72 64 69 6e 61 74 65  |rent co-ordinate|
000002d0  73 20 20 20 3a 20 28 22  3b 41 3b 22 2c 22 3b 42  |s   : (";A;",";B|
000002e0  3b 22 29 20 2d 20 28 22  3b 49 3b 22 2c 22 3b 4a  |;") - (";I;",";J|
000002f0  3b 22 29 22 0d 01 ae 29  20 20 20 20 e8 20 22 45  |;")"...)    . "E|
00000300  6e 74 65 72 20 6e 65 77  20 76 61 6c 75 65 73 20  |nter new values |
00000310  28 41 2c 42 29 20 3a 20  22 3b 41 2c 42 0d 01 b8  |(A,B) : ";A,B...|
00000320  29 20 20 20 20 e8 20 22  20 20 20 20 20 20 20 20  |)    . "        |
00000330  20 20 20 20 20 20 20 20  20 28 49 2c 4a 29 20 3a  |         (I,J) :|
00000340  20 22 3b 49 2c 4a 0d 01  c2 11 20 20 20 c9 20 22  | ";I,J....   . "|
00000350  4a 22 2c 22 6a 22 3a 0d  01 cc 21 20 20 20 20 e7  |J","j":...!    .|
00000360  20 73 65 74 3d 32 20 73  65 74 3d 31 3a 70 6d 3d  | set=2 set=1:pm=|
00000370  6a 6d 3a 70 6e 3d 6a 6e  0d 01 d6 11 20 20 20 c9  |jm:pn=jn....   .|
00000380  20 22 4d 22 2c 22 6d 22  3a 0d 01 e0 1f 20 20 20  | "M","m":....   |
00000390  20 e7 20 73 65 74 3d 31  20 73 65 74 3d 32 3a 70  | . set=1 set=2:p|
000003a0  6d 3d 30 3a 70 6e 3d 30  0d 01 ea 11 20 20 20 c9  |m=0:pn=0....   .|
000003b0  20 22 4e 22 2c 22 6e 22  3a 0d 01 f4 0d 20 20 20  | "N","n":....   |
000003c0  20 f2 6d 6f 64 65 0d 01  fe 0d 20 20 20 c9 20 22  | .mode....   . "|
000003d0  20 22 3a 0d 02 08 0d 20  20 20 20 f2 7a 6f 6f 6d  | ":....    .zoom|
000003e0  0d 02 12 09 20 20 20 7f  3a 0d 02 1c 0e 20 20 20  |....   .:....   |
000003f0  20 67 6f 6f 6e 3d a3 0d  02 26 07 20 20 cb 0d 02  | goon=...&.  ...|
00000400  30 0b 20 fd 20 67 6f 6f  6e 0d 02 3a 07 fd 20 a3  |0. . goon..:.. .|
00000410  0d 02 44 05 e0 0d 02 4e  05 3a 0d 02 58 0b dd 20  |..D....N.:..X.. |
00000420  f2 6d 6f 64 65 0d 02 62  05 f5 0d 02 6c 09 20 6f  |.mode..b....l. o|
00000430  6b 3d b9 0d 02 76 08 20  ef 33 30 0d 02 80 1b 20  |k=...v. .30.... |
00000440  e8 20 27 22 53 63 72 65  65 6e 20 6d 6f 64 65 20  |. '"Screen mode |
00000450  22 3b 6d 6f 64 65 0d 02  8a 27 20 c8 99 20 22 4f  |";mode...' .. "O|
00000460  53 5f 43 68 65 63 6b 4d  6f 64 65 56 61 6c 69 64  |S_CheckModeValid|
00000470  22 2c 20 6d 6f 64 65 20  b8 20 3b 46 25 0d 02 94  |", mode . ;F%...|
00000480  14 20 6c 6f 67 32 62 70  70 3d a4 76 61 72 28 39  |. log2bpp=.var(9|
00000490  29 0d 02 9e 15 20 6c 6f  67 32 62 70 63 3d a4 76  |).... log2bpc=.v|
000004a0  61 72 28 31 30 29 0d 02  a8 14 20 68 70 69 78 3d  |ar(10).... hpix=|
000004b0  a4 76 61 72 28 31 31 29  2b 31 0d 02 b2 14 20 76  |.var(11)+1.... v|
000004c0  70 69 78 3d a4 76 61 72  28 31 32 29 2b 31 0d 02  |pix=.var(12)+1..|
000004d0  bc 17 20 73 63 72 78 3d  68 70 69 78 3c 3c a4 76  |.. scrx=hpix<<.v|
000004e0  61 72 28 34 29 0d 02 c6  17 20 73 63 72 79 3d 76  |ar(4).... scry=v|
000004f0  70 69 78 3c 3c a4 76 61  72 28 35 29 0d 02 d0 30  |pix<<.var(5)...0|
00000500  20 e7 20 46 25 80 32 20  f1 22 53 65 6c 65 63 74  | . F%.2 ."Select|
00000510  65 64 20 6d 6f 64 65 20  69 73 20 75 6e 61 76 61  |ed mode is unava|
00000520  69 6c 61 62 6c 65 22 3a  6f 6b 3d a3 0d 02 da 2e  |ilable":ok=.....|
00000530  20 e7 20 6c 6f 67 32 62  70 70 3c 3e 32 20 f1 22  | . log2bpp<>2 ."|
00000540  4e 6f 74 20 61 20 31 36  20 63 6f 6c 6f 75 72 20  |Not a 16 colour |
00000550  6d 6f 64 65 22 3a 6f 6b  3d a3 0d 02 e4 44 20 e7  |mode":ok=....D .|
00000560  20 6c 6f 67 32 62 70 70  3c 3e 6c 6f 67 32 62 70  | log2bpp<>log2bp|
00000570  63 20 f1 22 27 44 6f 75  62 6c 65 20 70 69 78 65  |c ."'Double pixe|
00000580  6c 27 20 6d 6f 64 65 73  20 61 72 65 20 6e 6f 74  |l' modes are not|
00000590  20 61 6c 6c 6f 77 65 64  22 3a 6f 6b 3d a3 0d 02  | allowed":ok=...|
000005a0  ee 08 fd 20 6f 6b 0d 02  f8 0c eb 20 6d 6f 64 65  |... ok..... mode|
000005b0  3a 87 0d 03 02 05 f7 0d  03 0c 0e e3 20 69 3d 30  |:........... i=0|
000005c0  20 b8 20 31 35 0d 03 16  0c 20 f3 20 72 2c 67 2c  | . 15.... . r,g,|
000005d0  62 0d 03 20 0e 20 fb 20  69 2c 72 2c 67 2c 62 0d  |b.. . . i,r,g,b.|
000005e0  03 2a 07 ed 20 69 0d 03  34 05 e1 0d 03 3e 05 3a  |.*.. i..4....>.:|
000005f0  0d 03 48 0b dd 20 f2 7a  6f 6f 6d 0d 03 52 08 c8  |..H.. .zoom..R..|
00000600  97 20 ee 0d 03 5c 09 73  3d 35 31 32 0d 03 66 0c  |. ...\.s=512..f.|
00000610  c8 97 20 78 2c 79 2c 62  0d 03 70 0a e6 20 33 2c  |.. x,y,b..p.. 3,|
00000620  31 35 0d 03 7a 2d c8 93  20 78 2d 73 2a 73 63 72  |15..z-.. x-s*scr|
00000630  78 2f 28 73 63 72 79 3c  3c 31 29 2c 79 2d 73 2f  |x/(scry<<1),y-s/|
00000640  32 2c 73 2a 73 63 72 78  2f 73 63 72 79 2c 73 0d  |2,s*scrx/scry,s.|
00000650  03 84 08 6f 78 3d 78 0d  03 8e 08 6f 79 3d 79 0d  |...ox=x....oy=y.|
00000660  03 98 08 6f 73 3d 73 0d  03 a2 05 f5 0d 03 ac 0d  |...os=s.........|
00000670  20 c8 97 20 78 2c 79 2c  62 0d 03 b6 07 20 c8 96  | .. x,y,b.... ..|
00000680  0d 03 c0 34 20 c8 93 20  6f 78 2d 6f 73 2a 73 63  |...4 .. ox-os*sc|
00000690  72 78 2f 28 73 63 72 79  3c 3c 31 29 2c 6f 79 2d  |rx/(scry<<1),oy-|
000006a0  6f 73 2f 32 2c 6f 73 2a  73 63 72 78 2f 73 63 72  |os/2,os*scrx/scr|
000006b0  79 2c 6f 73 0d 03 ca 2e  20 c8 93 20 78 2d 73 2a  |y,os.... .. x-s*|
000006c0  73 63 72 78 2f 28 73 63  72 79 3c 3c 31 29 2c 79  |scrx/(scry<<1),y|
000006d0  2d 73 2f 32 2c 73 2a 73  63 72 78 2f 73 63 72 79  |-s/2,s*scrx/scry|
000006e0  2c 73 0d 03 d4 0e 20 e7  20 73 65 74 3d 32 20 8c  |,s.... . set=2 .|
000006f0  0d 03 de 17 20 20 6a 6d  3d 41 2b 28 49 2d 41 29  |....  jm=A+(I-A)|
00000700  2a 78 2f 73 63 72 78 0d  03 e8 17 20 20 6a 6e 3d  |*x/scrx....  jn=|
00000710  4a 2d 28 4a 2d 42 29 2a  79 2f 73 63 72 79 0d 03  |J-(J-B)*y/scry..|
00000720  f2 32 20 20 f1 20 8a 30  2c 30 29 3b 22 4a 75 6c  |.2  . .0,0);"Jul|
00000730  69 61 20 70 61 72 61 6d  65 74 65 72 3a 20 22 3b  |ia parameter: ";|
00000740  6a 6d 3b 22 20 22 3b 6a  6e 3b 89 28 31 32 29 3b  |jm;" ";jn;.(12);|
00000750  0d 03 fc 06 20 cd 0d 04  06 13 20 6f 78 3d 78 3a  |.... ..... ox=x:|
00000760  6f 79 3d 79 3a 6f 73 3d  73 0d 04 10 18 20 e7 20  |oy=y:os=s.... . |
00000770  62 20 80 20 34 20 73 2b  3d 32 2a 28 73 3e 31 36  |b . 4 s+=2*(s>16|
00000780  29 0d 04 1a 1a 20 e7 20  62 20 80 20 31 20 73 2d  |).... . b . 1 s-|
00000790  3d 32 2a 28 73 3c 73 63  72 79 29 0d 04 24 0b fd  |=2*(s<scry)..$..|
000007a0  20 62 20 80 20 32 0d 04  2e 0f 77 3d 49 2d 41 3a  | b . 2....w=I-A:|
000007b0  68 3d 4a 2d 42 0d 04 38  23 49 3d 41 2b 77 2a 28  |h=J-B..8#I=A+w*(|
000007c0  78 2b 73 2a 73 63 72 78  2f 28 73 63 72 79 3c 3c  |x+s*scrx/(scry<<|
000007d0  31 29 29 2f 73 63 72 78  0d 04 42 16 42 3d 4a 2d  |1))/scrx..B.B=J-|
000007e0  68 2a 28 79 2b 73 2f 32  29 2f 73 63 72 79 0d 04  |h*(y+s/2)/scry..|
000007f0  4c 23 41 3d 41 2b 77 2a  28 78 2d 73 2a 73 63 72  |L#A=A+w*(x-s*scr|
00000800  78 2f 28 73 63 72 79 3c  3c 31 29 29 2f 73 63 72  |x/(scry<<1))/scr|
00000810  78 0d 04 56 16 4a 3d 4a  2d 68 2a 28 79 2d 73 2f  |x..V.J=J-h*(y-s/|
00000820  32 29 2f 73 63 72 79 0d  04 60 08 c8 97 20 87 0d  |2)/scry..`... ..|
00000830  04 6a 05 e1 0d 04 74 05  3a 0d 04 7e 0b dd 20 f2  |.j....t.:..~.. .|
00000840  63 6f 64 65 0d 04 88 0e  21 63 6f 64 65 25 3d 31  |code....!code%=1|
00000850  34 38 0d 04 92 0e 63 6f  64 65 25 21 34 3d 2d 31  |48....code%!4=-1|
00000860  0d 04 9c 27 c8 99 22 4f  53 5f 52 65 61 64 56 64  |...'.."OS_ReadVd|
00000870  75 56 61 72 69 61 62 6c  65 73 22 2c 63 6f 64 65  |uVariables",code|
00000880  25 2c 63 6f 64 65 25 0d  04 a6 11 73 63 72 73 74  |%,code%....scrst|
00000890  25 3d 21 63 6f 64 65 25  0d 04 b0 11 4c 25 3d 63  |%=!code%....L%=c|
000008a0  6f 64 65 25 2b 6d 65 6d  25 0d 04 ba 08 78 63 3d  |ode%+mem%....xc=|
000008b0  30 0d 04 c4 08 79 63 3d  31 0d 04 ce 07 78 3d 32  |0....yc=1....x=2|
000008c0  0d 04 d8 07 79 3d 33 0d  04 e2 08 63 63 3d 34 0d  |....y=3....cc=4.|
000008d0  04 ec 07 6d 3d 35 0d 04  f6 07 6e 3d 36 0d 05 00  |...m=5....n=6...|
000008e0  07 72 3d 37 0d 05 0a 0a  61 64 64 72 3d 38 0d 05  |.r=7....addr=8..|
000008f0  14 15 e3 20 6f 70 74 25  3d 38 20 b8 20 31 30 20  |... opt%=8 . 10 |
00000900  88 20 32 0d 05 1e 0c 50  25 3d 63 6f 64 65 25 0d  |. 2....P%=code%.|
00000910  05 28 0d 5b 4f 50 54 20  6f 70 74 25 0d 05 32 1b  |.(.[OPT opt%..2.|
00000920  2e 61 72 25 20 20 20 20  20 20 45 51 55 44 20 52  |.ar%      EQUD R|
00000930  25 2a 36 35 35 33 36 0d  05 3c 14 2e 61 78 25 20  |%*65536..<..ax% |
00000940  20 20 20 20 20 45 51 55  44 20 30 0d 05 46 14 2e  |     EQUD 0..F..|
00000950  61 79 25 20 20 20 20 20  20 45 51 55 44 20 30 0d  |ay%      EQUD 0.|
00000960  05 50 1a 2e 61 78 6f 25  20 20 20 20 20 45 51 55  |.P..axo%     EQU|
00000970  44 20 41 2a 36 35 35 33  36 0d 05 5a 1a 2e 61 79  |D A*65536..Z..ay|
00000980  6f 25 20 20 20 20 20 45  51 55 44 20 42 2a 36 35  |o%     EQUD B*65|
00000990  35 33 36 0d 05 64 1d 2e  61 78 69 25 20 20 20 20  |536..d..axi%    |
000009a0  20 45 51 55 44 20 68 69  6e 63 2a 36 35 35 33 36  | EQUD hinc*65536|
000009b0  0d 05 6e 1d 2e 61 79 69  25 20 20 20 20 20 45 51  |..n..ayi%     EQ|
000009c0  55 44 20 76 69 6e 63 2a  36 35 35 33 36 0d 05 78  |UD vinc*65536..x|
000009d0  1b 2e 61 6d 25 20 20 20  20 20 20 45 51 55 44 20  |..am%      EQUD |
000009e0  70 6d 2a 36 35 35 33 36  0d 05 82 1b 2e 61 6e 25  |pm*65536.....an%|
000009f0  20 20 20 20 20 20 45 51  55 44 20 70 6e 2a 36 35  |      EQUD pn*65|
00000a00  35 33 36 0d 05 8c 19 2e  61 73 63 72 73 74 25 20  |536.....ascrst% |
00000a10  20 45 51 55 44 20 73 63  72 73 74 25 0d 05 96 14  | EQUD scrst%....|
00000a20  2e 61 73 70 74 65 6d 70  25 20 45 51 55 44 20 30  |.asptemp% EQUD 0|
00000a30  0d 05 a0 05 3a 0d 05 aa  0a 2e 64 6f 69 74 25 0d  |....:.....doit%.|
00000a40  05 b4 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
00000a50  31 34 7d 0d 05 be 16 53  54 52 20 20 20 52 31 33  |14}....STR   R13|
00000a60  2c 61 73 70 74 65 6d 70  25 0d 05 c8 0f 4c 44 52  |,asptemp%....LDR|
00000a70  20 20 20 72 2c 61 72 25  0d 05 d2 0f 4c 44 52 20  |   r,ar%....LDR |
00000a80  20 20 6d 2c 61 6d 25 0d  05 dc 0f 4c 44 52 20 20  |  m,am%....LDR  |
00000a90  20 6e 2c 61 6e 25 0d 05  e6 16 4c 44 52 20 20 20  | n,an%....LDR   |
00000aa0  61 64 64 72 2c 61 73 63  72 73 74 25 0d 05 f0 05  |addr,ascrst%....|
00000ab0  5d 0d 05 fa 0d e7 20 73  65 74 3d 31 20 8c 0d 06  |]..... set=1 ...|
00000ac0  04 0d 5b 4f 50 54 20 6f  70 74 25 0d 06 0e 10 4c  |..[OPT opt%....L|
00000ad0  44 52 20 20 20 79 2c 61  79 6f 25 0d 06 18 0f 53  |DR   y,ayo%....S|
00000ae0  54 52 20 20 20 79 2c 61  79 25 0d 06 22 05 5d 0d  |TR   y,ay%..".].|
00000af0  06 2c 05 cc 0d 06 36 0d  5b 4f 50 54 20 6f 70 74  |.,....6.[OPT opt|
00000b00  25 0d 06 40 10 4c 44 52  20 20 20 6e 2c 61 79 6f  |%..@.LDR   n,ayo|
00000b10  25 0d 06 4a 0f 53 54 52  20 20 20 6e 2c 61 79 25  |%..J.STR   n,ay%|
00000b20  0d 06 54 05 5d 0d 06 5e  05 cd 0d 06 68 0e 5b 4f  |..T.]..^....h.[O|
00000b30  50 54 20 20 6f 70 74 25  0d 06 72 12 4d 4f 56 20  |PT  opt%..r.MOV |
00000b40  20 20 79 63 2c 23 76 70  69 78 0d 06 7c 0d 2e 72  |  yc,#vpix..|..r|
00000b50  6f 77 6c 6f 6f 70 25 0d  06 86 05 5d 0d 06 90 0d  |owloop%....]....|
00000b60  e7 20 73 65 74 3d 31 20  8c 0d 06 9a 0d 5b 4f 50  |. set=1 .....[OP|
00000b70  54 20 6f 70 74 25 0d 06  a4 10 4c 44 52 20 20 20  |T opt%....LDR   |
00000b80  78 2c 61 78 6f 25 0d 06  ae 0f 53 54 52 20 20 20  |x,axo%....STR   |
00000b90  78 2c 61 78 25 0d 06 b8  05 5d 0d 06 c2 05 cc 0d  |x,ax%....]......|
00000ba0  06 cc 0d 5b 4f 50 54 20  6f 70 74 25 0d 06 d6 10  |...[OPT opt%....|
00000bb0  4c 44 52 20 20 20 6d 2c  61 78 6f 25 0d 06 e0 0f  |LDR   m,axo%....|
00000bc0  53 54 52 20 20 20 6d 2c  61 78 25 0d 06 ea 05 5d  |STR   m,ax%....]|
00000bd0  0d 06 f4 05 cd 0d 06 fe  0d 5b 4f 50 54 20 6f 70  |.........[OPT op|
00000be0  74 25 0d 07 08 12 4d 4f  56 20 20 20 78 63 2c 23  |t%....MOV   xc,#|
00000bf0  68 70 69 78 0d 07 12 0d  2e 63 6f 6c 6c 6f 6f 70  |hpix.....colloop|
00000c00  25 0d 07 1c 05 5d 0d 07  26 0d e7 20 73 65 74 3d  |%....]..&.. set=|
00000c10  32 20 8c 0d 07 30 0d 5b  4f 50 54 20 6f 70 74 25  |2 ...0.[OPT opt%|
00000c20  0d 07 3a 0e 4d 4f 56 20  20 20 78 2c 23 30 0d 07  |..:.MOV   x,#0..|
00000c30  44 0e 4d 4f 56 20 20 20  79 2c 23 30 0d 07 4e 05  |D.MOV   y,#0..N.|
00000c40  5d 0d 07 58 05 cd 0d 07  62 0d 5b 4f 50 54 20 6f  |]..X....b.[OPT o|
00000c50  70 74 25 0d 07 6c 0f 4d  4f 56 20 20 20 63 63 2c  |pt%..l.MOV   cc,|
00000c60  23 31 0d 07 76 0b 2e 63  6c 6f 6f 70 25 0d 07 80  |#1..v..cloop%...|
00000c70  19 a4 73 71 75 31 36 28  78 2c 31 33 2c 31 31 2c  |..squ16(x,13,11,|
00000c80  31 32 2c 31 34 29 0d 07  8a 19 a4 73 71 75 31 36  |12,14).....squ16|
00000c90  28 79 2c 31 30 2c 31 31  2c 31 32 2c 31 34 29 0d  |(y,10,11,12,14).|
00000ca0  07 94 15 41 44 44 20 20  20 52 31 34 2c 52 31 33  |...ADD   R14,R13|
00000cb0  2c 52 31 30 0d 07 9e 0f  43 4d 50 20 20 20 52 31  |,R10....CMP   R1|
00000cc0  34 2c 72 0d 07 a8 10 42  47 45 20 20 20 67 6f 74  |4,r....BGE   got|
00000cd0  63 63 25 0d 07 b2 15 53  55 42 53 20 20 52 31 33  |cc%....SUBS  R13|
00000ce0  2c 52 31 33 2c 52 31 30  0d 07 bc 14 52 53 42 4d  |,R13,R10....RSBM|
00000cf0  49 20 52 31 33 2c 52 31  33 2c 23 30 0d 07 c6 13  |I R13,R13,#0....|
00000d00  53 55 42 20 20 20 52 31  33 2c 52 31 33 2c 6d 0d  |SUB   R13,R13,m.|
00000d10  07 d0 1b a4 6d 75 6c 31  36 28 78 2c 79 2c 31 30  |....mul16(x,y,10|
00000d20  2c 31 31 2c 31 32 2c 31  34 29 0d 07 da 13 41 44  |,11,12,14)....AD|
00000d30  44 20 20 20 79 2c 52 31  30 2c 52 31 30 0d 07 e4  |D   y,R10,R10...|
00000d40  0f 53 55 42 20 20 20 79  2c 79 2c 6e 0d 07 ee 0f  |.SUB   y,y,n....|
00000d50  4d 4f 56 20 20 20 78 2c  52 31 33 0d 07 f8 12 41  |MOV   x,R13....A|
00000d60  44 44 20 20 20 63 63 2c  63 63 2c 23 31 0d 08 02  |DD   cc,cc,#1...|
00000d70  10 43 4d 50 20 20 20 63  63 2c 23 4d 25 0d 08 0c  |.CMP   cc,#M%...|
00000d80  10 42 4c 45 20 20 20 63  6c 6f 6f 70 25 0d 08 16  |.BLE   cloop%...|
00000d90  0f 4d 4f 56 20 20 20 63  63 2c 23 31 0d 08 20 05  |.MOV   cc,#1.. .|
00000da0  3a 0d 08 2a 0b 2e 67 6f  74 63 63 25 0d 08 34 12  |:..*..gotcc%..4.|
00000db0  53 55 42 20 20 20 63 63  2c 63 63 2c 23 31 0d 08  |SUB   cc,cc,#1..|
00000dc0  3e 12 41 44 52 20 20 20  52 31 34 2c 6c 75 74 25  |>.ADR   R14,lut%|
00000dd0  0d 08 48 15 4c 44 52 42  20 20 63 63 2c 5b 52 31  |..H.LDRB  cc,[R1|
00000de0  34 2c 63 63 5d 0d 08 52  05 3a 0d 08 5c 14 4c 44  |4,cc]..R.:..\.LD|
00000df0  52 42 20 20 52 31 34 2c  5b 61 64 64 72 5d 0d 08  |RB  R14,[addr]..|
00000e00  66 0f 54 53 54 20 20 20  78 63 2c 23 31 0d 08 70  |f.TST   xc,#1..p|
00000e10  13 80 4e 45 20 52 31 34  2c 52 31 34 2c 23 31 35  |..NE R14,R14,#15|
00000e20  0d 08 7a 1a 84 52 4e 45  20 52 31 34 2c 52 31 34  |..z..RNE R14,R14|
00000e30  2c 63 63 2c 4c 53 4c 20  23 34 0d 08 84 14 80 45  |,cc,LSL #4.....E|
00000e40  51 20 52 31 34 2c 52 31  34 2c 23 32 34 30 0d 08  |Q R14,R14,#240..|
00000e50  8e 13 84 52 45 51 20 52  31 34 2c 52 31 34 2c 63  |...REQ R14,R14,c|
00000e60  63 0d 08 98 14 53 54 52  42 20 20 52 31 34 2c 5b  |c....STRB  R14,[|
00000e70  61 64 64 72 5d 0d 08 a2  05 3a 0d 08 ac 16 41 44  |addr]....:....AD|
00000e80  44 4e 45 20 61 64 64 72  2c 61 64 64 72 2c 23 31  |DNE addr,addr,#1|
00000e90  0d 08 b6 0e 5d e7 20 73  65 74 3d 31 20 8c 0d 08  |....]. set=1 ...|
00000ea0  c0 0d 5b 4f 50 54 20 6f  70 74 25 0d 08 ca 0f 4c  |..[OPT opt%....L|
00000eb0  44 52 20 20 20 79 2c 61  79 25 0d 08 d4 0f 4c 44  |DR   y,ay%....LD|
00000ec0  52 20 20 20 78 2c 61 78  25 0d 08 de 12 4c 44 52  |R   x,ax%....LDR|
00000ed0  20 20 20 52 31 34 2c 61  78 69 25 0d 08 e8 11 41  |   R14,axi%....A|
00000ee0  44 44 20 20 20 78 2c 78  2c 52 31 34 0d 08 f2 0f  |DD   x,x,R14....|
00000ef0  53 54 52 20 20 20 78 2c  61 78 25 0d 08 fc 12 53  |STR   x,ax%....S|
00000f00  55 42 53 20 20 78 63 2c  78 63 2c 23 31 0d 09 06  |UBS  xc,xc,#1...|
00000f10  12 42 47 54 20 20 20 63  6f 6c 6c 6f 6f 70 25 0d  |.BGT   colloop%.|
00000f20  09 10 12 4c 44 52 20 20  20 52 31 34 2c 61 79 69  |...LDR   R14,ayi|
00000f30  25 0d 09 1a 11 41 44 44  20 20 20 79 2c 79 2c 52  |%....ADD   y,y,R|
00000f40  31 34 0d 09 24 0f 53 54  52 20 20 20 79 2c 61 79  |14..$.STR   y,ay|
00000f50  25 0d 09 2e 05 5d 0d 09  38 05 cc 0d 09 42 0d 5b  |%....]..8....B.[|
00000f60  4f 50 54 20 6f 70 74 25  0d 09 4c 0f 4c 44 52 20  |OPT opt%..L.LDR |
00000f70  20 20 6e 2c 61 79 25 0d  09 56 0f 4c 44 52 20 20  |  n,ay%..V.LDR  |
00000f80  20 6d 2c 61 78 25 0d 09  60 12 4c 44 52 20 20 20  | m,ax%..`.LDR   |
00000f90  52 31 34 2c 61 78 69 25  0d 09 6a 11 41 44 44 20  |R14,axi%..j.ADD |
00000fa0  20 20 6d 2c 6d 2c 52 31  34 0d 09 74 0f 53 54 52  |  m,m,R14..t.STR|
00000fb0  20 20 20 6d 2c 61 78 25  0d 09 7e 12 53 55 42 53  |   m,ax%..~.SUBS|
00000fc0  20 20 78 63 2c 78 63 2c  23 31 0d 09 88 12 42 47  |  xc,xc,#1....BG|
00000fd0  54 20 20 20 63 6f 6c 6c  6f 6f 70 25 0d 09 92 12  |T   colloop%....|
00000fe0  4c 44 52 20 20 20 52 31  34 2c 61 79 69 25 0d 09  |LDR   R14,ayi%..|
00000ff0  9c 11 41 44 44 20 20 20  6e 2c 6e 2c 52 31 34 0d  |..ADD   n,n,R14.|
00001000  09 a6 0f 53 54 52 20 20  20 6e 2c 61 79 25 0d 09  |...STR   n,ay%..|
00001010  b0 05 5d 0d 09 ba 05 cd  0d 09 c4 0d 5b 4f 50 54  |..].........[OPT|
00001020  20 6f 70 74 25 0d 09 ce  12 53 55 42 53 20 20 79  | opt%....SUBS  y|
00001030  63 2c 79 63 2c 23 31 0d  09 d8 12 42 47 54 20 20  |c,yc,#1....BGT  |
00001040  20 72 6f 77 6c 6f 6f 70  25 0d 09 e2 16 4c 44 52  | rowloop%....LDR|
00001050  20 20 20 52 31 33 2c 61  73 70 74 65 6d 70 25 0d  |   R13,asptemp%.|
00001060  09 ec 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |...LDMFD R13!,{P|
00001070  43 7d 0d 09 f6 09 2e 6c  75 74 25 0d 0a 00 0a 45  |C}.....lut%....E|
00001080  51 55 42 20 30 0d 0a 0a  05 5d 0d 0a 14 10 e3 20  |QUB 0....]..... |
00001090  43 4c 25 3d 31 20 b8 20  4d 25 0d 0a 1e 0d 5b 4f  |CL%=1 . M%....[O|
000010a0  50 54 20 6f 70 74 25 0d  0a 28 14 45 51 55 42 20  |PT opt%..(.EQUB |
000010b0  20 43 4c 25 20 83 20 31  35 2b 31 0d 0a 32 05 5d  | CL% . 15+1..2.]|
000010c0  0d 0a 3c 09 ed 20 43 4c  25 0d 0a 46 0a ed 20 6f  |..<.. CL%..F.. o|
000010d0  70 74 25 0d 0a 50 05 e1  0d 0a 5a 05 3a 0d 0a 64  |pt%..P....Z.:..d|
000010e0  1f dd 20 a4 6d 75 6c 31  36 28 78 25 2c 61 25 2c  |.. .mul16(x%,a%,|
000010f0  72 25 2c 75 25 2c 76 25  2c 77 25 29 0d 0a 6e 0d  |r%,u%,v%,w%)..n.|
00001100  5b 4f 50 54 20 6f 70 74  25 0d 0a 78 16 4d 4f 56  |[OPT opt%..x.MOV|
00001110  53 20 20 77 25 2c 61 25  2c 4c 53 4c 20 23 31 0d  |S  w%,a%,LSL #1.|
00001120  0a 82 12 52 53 42 43 53  20 61 25 2c 61 25 2c 23  |...RSBCS a%,a%,#|
00001130  30 0d 0a 8c 0f 54 45 51  20 20 20 78 25 2c 23 30  |0....TEQ   x%,#0|
00001140  0d 0a 96 12 52 53 42 4d  49 20 72 25 2c 78 25 2c  |....RSBMI r%,x%,|
00001150  23 30 0d 0a a0 05 5d 0d  0a aa 0e e7 20 72 25 3c  |#0....]..... r%<|
00001160  3e 78 25 20 8c 0d 0a b4  0d 5b 4f 50 54 20 6f 70  |>x% .....[OPT op|
00001170  74 25 0d 0a be 0f 4d 4f  56 50 4c 20 72 25 2c 78  |t%....MOVPL r%,x|
00001180  25 0d 0a c8 05 5d 0d 0a  d2 05 cd 0d 0a dc 0d 5b  |%....].........[|
00001190  4f 50 54 20 6f 70 74 25  0d 0a e6 17 4d 4f 56 20  |OPT opt%....MOV |
000011a0  20 20 77 25 2c 70 63 2c  4c 53 52 20 23 33 31 0d  |  w%,pc,LSR #31.|
000011b0  0a f0 17 4d 4f 56 20 20  20 77 25 2c 77 25 2c 4c  |...MOV   w%,w%,L|
000011c0  53 4c 20 23 32 38 0d 0a  fa 16 54 45 51 50 20 20  |SL #28....TEQP  |
000011d0  77 25 2c 70 63 2c 4c 53  52 20 23 31 0d 0b 04 17  |w%,pc,LSR #1....|
000011e0  4d 4f 56 20 20 20 77 25  2c 72 25 2c 4c 53 52 20  |MOV   w%,r%,LSR |
000011f0  23 31 36 0d 0b 0e 1a 42  49 43 20 20 20 72 25 2c  |#16....BIC   r%,|
00001200  72 25 2c 77 25 2c 4c 53  4c 20 23 31 36 0d 0b 18  |r%,w%,LSL #16...|
00001210  17 4d 4f 56 20 20 20 76  25 2c 61 25 2c 4c 53 52  |.MOV   v%,a%,LSR|
00001220  20 23 31 36 0d 0b 22 1a  42 49 43 20 20 20 61 25  | #16..".BIC   a%|
00001230  2c 61 25 2c 76 25 2c 4c  53 4c 20 23 31 36 0d 0b  |,a%,v%,LSL #16..|
00001240  2c 12 4d 55 4c 20 20 20  75 25 2c 61 25 2c 72 25  |,.MUL   u%,a%,r%|
00001250  0d 0b 36 13 54 53 54 20  20 20 75 25 2c 23 31 3c  |..6.TST   u%,#1<|
00001260  3c 31 35 0d 0b 40 17 4d  4f 56 20 20 20 75 25 2c  |<15..@.MOV   u%,|
00001270  75 25 2c 4c 53 52 20 23  31 36 0d 0b 4a 12 41 44  |u%,LSR #16..J.AD|
00001280  44 4e 45 20 75 25 2c 75  25 2c 23 31 0d 0b 54 15  |DNE u%,u%,#1..T.|
00001290  4d 4c 41 20 20 20 75 25  2c 76 25 2c 72 25 2c 75  |MLA   u%,v%,r%,u|
000012a0  25 0d 0b 5e 15 4d 4c 41  20 20 20 75 25 2c 61 25  |%..^.MLA   u%,a%|
000012b0  2c 77 25 2c 75 25 0d 0b  68 12 4d 55 4c 20 20 20  |,w%,u%..h.MUL   |
000012c0  72 25 2c 76 25 2c 77 25  0d 0b 72 1a 41 44 44 20  |r%,v%,w%..r.ADD |
000012d0  20 20 72 25 2c 75 25 2c  72 25 2c 4c 53 4c 20 23  |  r%,u%,r%,LSL #|
000012e0  31 36 0d 0b 7c 12 52 53  42 56 53 20 72 25 2c 72  |16..|.RSBVS r%,r|
000012f0  25 2c 23 30 0d 0b 86 05  5d 0d 0b 90 06 3d 30 0d  |%,#0....]....=0.|
00001300  0b 9a 05 3a 0d 0b a4 1c  dd 20 a4 73 71 75 31 36  |...:..... .squ16|
00001310  28 78 25 2c 72 25 2c 75  25 2c 76 25 2c 77 25 29  |(x%,r%,u%,v%,w%)|
00001320  0d 0b ae 0d 5b 4f 50 54  20 6f 70 74 25 0d 0b b8  |....[OPT opt%...|
00001330  0f 54 45 51 20 20 20 78  25 2c 23 30 0d 0b c2 12  |.TEQ   x%,#0....|
00001340  52 53 42 4d 49 20 72 25  2c 78 25 2c 23 30 0d 0b  |RSBMI r%,x%,#0..|
00001350  cc 05 5d 0d 0b d6 0e e7  20 72 25 3c 3e 78 25 20  |..]..... r%<>x% |
00001360  8c 0d 0b e0 0d 5b 4f 50  54 20 6f 70 74 25 0d 0b  |.....[OPT opt%..|
00001370  ea 0f 4d 4f 56 50 4c 20  72 25 2c 78 25 0d 0b f4  |..MOVPL r%,x%...|
00001380  05 5d 0d 0b fe 05 cd 0d  0c 08 0d 5b 4f 50 54 20  |.].........[OPT |
00001390  6f 70 74 25 0d 0c 12 17  4d 4f 56 20 20 20 77 25  |opt%....MOV   w%|
000013a0  2c 72 25 2c 4c 53 52 20  23 31 36 0d 0c 1c 1a 42  |,r%,LSR #16....B|
000013b0  49 43 20 20 20 72 25 2c  72 25 2c 77 25 2c 4c 53  |IC   r%,r%,w%,LS|
000013c0  4c 20 23 31 36 0d 0c 26  12 4d 55 4c 20 20 20 75  |L #16..&.MUL   u|
000013d0  25 2c 72 25 2c 72 25 0d  0c 30 13 54 53 54 20 20  |%,r%,r%..0.TST  |
000013e0  20 75 25 2c 23 31 3c 3c  31 35 0d 0c 3a 17 4d 4f  | u%,#1<<15..:.MO|
000013f0  56 20 20 20 75 25 2c 75  25 2c 4c 53 52 20 23 31  |V   u%,u%,LSR #1|
00001400  36 0d 0c 44 12 41 44 44  4e 45 20 75 25 2c 75 25  |6..D.ADDNE u%,u%|
00001410  2c 23 31 0d 0c 4e 12 4d  55 4c 20 20 20 76 25 2c  |,#1..N.MUL   v%,|
00001420  77 25 2c 72 25 0d 0c 58  19 41 44 44 20 20 20 75  |w%,r%..X.ADD   u|
00001430  25 2c 75 25 2c 76 25 2c  41 53 4c 20 23 31 0d 0c  |%,u%,v%,ASL #1..|
00001440  62 12 4d 55 4c 20 20 20  72 25 2c 77 25 2c 77 25  |b.MUL   r%,w%,w%|
00001450  0d 0c 6c 1a 41 44 44 20  20 20 72 25 2c 75 25 2c  |..l.ADD   r%,u%,|
00001460  72 25 2c 4c 53 4c 20 23  31 36 0d 0c 76 05 5d 0d  |r%,LSL #16..v.].|
00001470  0c 80 06 3d 30 0d 0c 8a  05 3a 0d 0c 94 0f dd 20  |...=0....:..... |
00001480  a4 76 61 72 28 76 61 72  29 0d 0c 9e 2d c8 99 20  |.var(var)...-.. |
00001490  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000014a0  61 62 6c 65 22 2c 6d 6f  64 65 2c 76 61 72 20 b8  |able",mode,var .|
000014b0  20 2c 2c 76 61 6c 0d 0c  a8 08 3d 76 61 6c 0d 0c  | ,,val....=val..|
000014c0  b2 05 3a 0d 0c bc 0b dc  20 30 2c 30 2c 30 0d 0c  |..:..... 0,0,0..|
000014d0  c6 0f dc 20 31 39 32 2c  30 2c 32 34 30 0d 0c d0  |... 192,0,240...|
000014e0  10 dc 20 31 34 34 2c 34  38 2c 32 34 30 0d 0c da  |.. 144,48,240...|
000014f0  0f dc 20 39 36 2c 39 36  2c 32 34 30 0d 0c e4 10  |.. 96,96,240....|
00001500  dc 20 34 38 2c 31 34 34  2c 32 34 30 0d 0c ee 0f  |. 48,144,240....|
00001510  dc 20 30 2c 31 39 32 2c  32 34 30 0d 0c f8 0f dc  |. 0,192,240.....|
00001520  20 30 2c 32 34 30 2c 31  39 32 0d 0d 02 10 dc 20  | 0,240,192..... |
00001530  34 38 2c 32 34 30 2c 31  34 34 0d 0d 0c 0f dc 20  |48,240,144..... |
00001540  39 36 2c 32 34 30 2c 39  36 0d 0d 16 10 dc 20 31  |96,240,96..... 1|
00001550  34 34 2c 32 34 30 2c 34  38 0d 0d 20 0f dc 20 31  |44,240,48.. .. 1|
00001560  39 32 2c 32 34 30 2c 30  0d 0d 2a 0f dc 20 32 34  |92,240,0..*.. 24|
00001570  30 2c 31 39 32 2c 30 0d  0d 34 10 dc 20 32 34 30  |0,192,0..4.. 240|
00001580  2c 31 34 34 2c 34 38 0d  0d 3e 0f dc 20 32 34 30  |,144,48..>.. 240|
00001590  2c 39 36 2c 39 36 0d 0d  48 10 dc 20 32 34 30 2c  |,96,96..H.. 240,|
000015a0  34 38 2c 31 34 34 0d 0d  52 0f dc 20 32 34 30 2c  |48,144..R.. 240,|
000015b0  30 2c 31 39 32 0d ff                              |0,192..|
000015b7

© Dominic Ford 2021–2025.

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