Home » Archimedes archive » Acorn User » AU 1997-08 A.adf » !IronLord/Iron4
!IronLord/Iron4
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 1997-08 A.adf |
| Filename: | !IronLord/Iron4 |
| Read OK: | ✔ |
| File size: | 1BC4 bytes |
| Load address: | FFFFFB46 |
| Exec address: | 1A16A3E2 |
File contents
10REM >:IronLord.!IronLord.Iron4
20REM (C) 1990 UBI soft.
30REM Archimedes version by Cygnus Software Engineering Ltd.
40:
50ON ERROR PROCerror:END
60:
70space%=&74:DIM code% space%,DLT% &A12C,OSC% &7D00,SSP% &D0A0
80DIM DA%(23),SA%(32),SX%(32),SY%(32)
90:
100!SSP%=&D0A0:OSCLI"IronLoad <IronLord$Dir>.SwordSpr "+STR$~(SSP%+4)
110OSCLI"IronLoad <IronLord$Dir>.SwordDelta "+STR$~DLT%
120OSCLI"IronLoad <IronLord$Dir>.SwordPic "+STR$~OSC%
130PROCasm
140FOR I%=0 TO 23:READ DA%(I%):DA%(I%)+=DLT%:NEXT
150FOR I%=1 TO 32:READ SW%:SYS"OS_SpriteOp",280,SSP%,STR$SW% TO ,,SA%(I%):READ SX%(I%),SY%(I%):NEXT
160BK%=2:IC%=0:BFL%=0
170YV=1:YF=1:AV=?(HIMEM+&15E):IF AV>2 AV=2
180AV=.7+RND(10)/100+AV*.1
190MOUSE RECTANGLE -500,-500,1000,1000
200SYS"Sound_QInit":FORI%=1TO8:SYS"Sound_AttachVoice",I%,0:NEXT:SYS"Sound_Configure",1,0,100
210:
220PROCen(0):PROCflip:PROCrect(416,360,352,80):GCOL 6:MOVE 452,416:PRINT"Get ready":*IronFadeIn 20
230*FX 21,9
240TIME=0:REPEAT:MOUSE MX%,MY%,B%:UNTIL B%<>0 OR TIME>100:PROCen(0):PROCflip
250:
260REPEAT
270 SYS"OS_SpriteOp",290,SSP%,"sw",1080,500:OT%=15+50*YV*YF:BFL%=0:*FX21,9
280 TIME=0:REPEAT:MD%=FNmouse_dir:UNTIL MD% OR TIME>OT%:TI%=TIME:PROCen(0):PROCflip
290 IF MD% PROCoffensive ELSE PROCdefensive
300 PROCen(0):PROCflip
310UNTIL AV=0 OR YV=0
320:
330*IronFadeOut
340PROCrect(304,240,672,324):WXC%=640:WYC%=400:WW%=20:GCOL 6
350IF AV<=0 THEN
360 AS%=?(HIMEM+&15E):IF AS%<5 ?(HIMEM+&15E)+=1
370 IF AS%=4 THEN
380 ?(HIMEM+&160)+=2:?(HIMEM+226)=?(HIMEM+&160):PROCwpr("As the assassin falls to the ground you hear someone behind you shout 'Well done, you have proved that you are truly courageous.'")
390 ELSE
400 PROCwpr("The assassin falls to the ground, mortally wounded. You notice that he is wearing your uncle's emblem.")
410 ENDIF
420ELSE
430 PROCwpr("As your last breath slips away you realise that your skill with a sword was not as great as you had thought.")
440ENDIF
450*IronFadeIn 20
460PROCmouse:*IronFadeOut
470IF BK%=1 PROCflip
480MOUSE RECTANGLE 0,0,1279,799
490ON ERROR OFF:IF AV<=0 Z%=1:CHAIN"<IronLord$Dir>.Iron1" ELSE CHAIN"<IronLord$Dir>.Iron7"
500END
510:
520DATA 0,&7A0,&D58,&14FC,&1C98,&2408,&2A70,&3024,&353C,&39F4,&4064,&47B8,&4FBC,&5758,&5E48,&6590,&6C38,&7204,&7764,&7C14,&8490,&8BB8,&93FC,&9B18
530:
540DATA 1,352,124,2,608,132,1,0,0,7,576,152,5,224,152,6,384,152,7,544,152,8,704,152,9,704,152,10,736,152,5,416,72,7,416,-64,7,512,0,6,416,152,6,320,-24,6,352,8
550DATA 8,896,-64,8,800,0,8,704,152,6,832,-24,6,704,40,6,576,72,2,608,-212,2,608,-20,2,608,108,9,288,-20,9,384,44,9,448,76,10,512,72,6,512,152,8,640,152,6,480,152
560:
570DEF PROCen(E%):SYS"OS_Byte",112,BK%
580IF BK%=1 A%=S% ELSE A%=T%
590!to=A%:CALL copy:B%=DA%(E%):CALL delta:PROCvit
600ENDPROC
610:
620DEF PROCsw(SW%):IF SW%=0 ENDPROC
630VDU 24,0;152;1279;799;:SYS"OS_SpriteOp",546,SSP%,SA%(SW%),SX%(SW%),SY%(SW%),8:SYS"OS_SpriteOp",546,SSP%,SSP%+16,148,152,8:VDU 24,0;0;1279;799;
640ENDPROC
650:
660DEF PROCflip:WAIT:SYS"OS_Byte",113,BK%:BK%=BK% EOR 3:ENDPROC
670:
680DEF PROCvit
690GCOL 11:RECTANGLE 88,36,1108,24:RECTANGLE 88,72,1108,24
700IF AV>0 GCOL8:RECTANGLE FILL 92,40,AV*1100,16
710IF YV>0 GCOL10:RECTANGLE FILL 92,76,YV*1100,16
720GCOL0:IF AV<1 RECTANGLE FILL 92+AV*1100,40,1100-AV*1100,16
730IF YV<1 RECTANGLE FILL 92+YV*1100,76,1100-YV*1100,16
740ENDPROC
750:
760DEF FNmouse_dir
770MOUSE MX%,MY%,B%
780IF B%=0 AND BFL%=0 BFL%=1 ELSE IF B%<>0 AND BFL%=1 MOUSE TO 0,0:BFL%=2:=0
790IF BFL%<>2 THEN =0
800AMX%=ABS(MX%):AMY%=ABS(MY%):IF SQR(AMX%*AMX%+AMY%*AMY%)<30 =0
810IF AMY%=0 AMD=2 ELSE AMD=AMX%/AMY%
820RIGHT%=SGN(MX%)=1:UP%=SGN(MY%)=1
830IF AMD<.58 THEN
840 IF UP% THEN =1 ELSE =5
850ENDIF
860IF AMD>1.73 THEN
870 IF RIGHT% THEN =3 ELSE =7
880ENDIF
890IF RIGHT% AND UP% THEN =2
900IF RIGHT% THEN =4
910IF UP% THEN =8
920=6
930:
940DEF PROCoffensive:YF-=.2:IF YF<0 YF=0
950MD%=MD%*2-2:MOUSE MX%,MY%,B%
960IF TI%<26 PR%=90 ELSE IF TI%<51 PR%=75 ELSE IF TI%<76 PR%=50 ELSE IF TI%<101 PR%=25 ELSE PR%=10
970IF RND(100)<PR% MD%+=1
980PROCset_path(MD%):PROCmove
990ENDPROC
1000:
1010DEF PROCdefensive:YF+=.2:IF YF>1 YF=1
1020ATT%=RND(3):PROCset_path(ATT%+15):SYS"OS_SpriteOp",280,SSP%,"a"+STR$ATT% TO ,,IC%:*FX 21,9
1030PROCmove:TI%=40+40*(1-AV):TIME=0:REPEAT:MD%=FNmouse_dir:UNTIL MD% OR TIME>TI%:IC%=0
1040IF MD%=0 THEN
1050 PROCset_path(18+ATT%)
1060ELSE
1070 IF ATT%=1 AND MD%=3 OR ATT%=2 AND MD%=1 OR ATT%=3 AND MD%=7 THEN PROCset_path(24+ATT%) ELSE PROCset_path(21+ATT%)
1080ENDIF
1090PROCmove
1100ENDPROC
1110:
1120DEF PROCset_path(P%):RESTORE 1340
1130IF P%<>0 FOR I%=1TOP%:REPEAT:READ J%:UNTILJ%=99:NEXT:READ J%
1140ENDPROC
1150:
1160DEF PROCmove
1170READ AS%,YS%
1180REPEAT:PROCen(AS% AND 31):PROCsw(YS% AND 31):IF IC%<>0 SYS"OS_SpriteOp",546,SSP%,IC%,100,500
1190PROCflip:IF YS% AND 64 PROCclang ELSE IF AS% AND 128 PROCyou_hurt ELSE IF YS% AND 128 PROChe_hurt ELSE WAIT:WAIT:WAIT:WAIT
1200READ AS%,YS%:UNTIL AS%=99
1210ENDPROC
1220:
1230DEF PROCyou_hurt:VOICE1,"IronEffect-Hurt":SOUND1,&17F,&2550,1:YV-=.25:IF YV<0 YV=0
1240WAIT:WAIT:VDU19;24,240,0,0:COLOUR 0,240,0,0:WAIT:WAIT:COLOUR 0,0,0,0:VDU19;24|
1250ENDPROC
1260:
1270DEF PROChe_hurt:VOICE1,"IronEffect-Hurt":SOUND1,&17F,&2000,1:AV-=INT(30*((1+YF)/2)*(1-(AV/2)))/100:IF AV<0 AV=0
1280WAIT:WAIT:VDU19;24,240,0,0:COLOUR 0,240,0,0:WAIT:WAIT:VDU19;24|:COLOUR 0,0,0,0
1290ENDPROC
1300:
1310DEF PROCclang:IFRND(2)=1 VOICE1,"IronEffect-Clang1" ELSEVOICE1,"IronEffect-Clang2"
1320SOUND1,&17F,&2550,1:ENDPROC
1330:
1340DATA 21,0,22,12,23,13,23,4,23,&44,23,4,23,13,23,12,22,0,21,0,99,0
1350DATA 0,12,0,13,19,&82,20,24,19,0,99,0
1360:
1370DATA 1,0,2,20,1,21,3,&56,3,11,99,0
1380DATA 0,20,0,21,1,22,2,&A0,0,11,99,0
1390:
1400DATA 22,23,23,24,23,25,23,&42,23,7,22,13,21,0,99,0
1410DATA 0,23,0,24,21,25,22,&82,21,24,99,0
1420:
1430DATA 11,0,12,0,14,0,15,0,16,23,17,24,18,&59,8,8,7,9,6,0,5,0,4,0,9,0,99,0
1440DATA 0,23,12,24,14,&82,15,24,17,0,99,0
1450:
1460DATA 0,15,11,16,12,&4E,12,14,12,14,11,15,99,0
1470DATA 0,15,0,16,0,14,10,&9E,0,23,99,0
1480:
1490DATA 19,17,20,18,10,19,10,&51,10,0,10,0,20,0,19,0,99,0
1500DATA 0,17,0,18,0,19,19,&9F,0,24,99,0
1510:
1520DATA 1,0,2,26,1,27,3,28,3,&5D,3,0,99,0
1530DATA 0,26,1,27,2,28,1,&9D,99,0
1540:
1550DATA 11,0,12,0,14,0,15,10,16,9,17,8,18,&47,3,8,0,9,99,0
1560DATA 0,10,11,9,12,8,14,&98,15,6,0,5,99,0
1570:
1580DATA 10,0,4,0,99,0
1590DATA 1,0,2,0,99,0
1600DATA 11,0,12,0,99,0
1610:
1620DATA 5,0,6,0,7,0,8,0,&92,0,3,0,99,0
1630DATA 1,0,&83,0,99,0
1640DATA 14,0,15,0,16,0,17,0,&92,0,3,0,99,0
1650:
1660DATA 5,0,6,0,7,0,8,0,&92,5,3,6,99,0
1670DATA 1,0,&83,5,99,0
1680DATA 14,0,15,0,16,0,17,0,&92,10,3,9,99,0
1690:
1700DATA 5,5,6,6,7,7,8,8,8,8,7,&47,6,6,5,5,9,0,99,0
1710DATA 1,5,3,1,3,&41,0,5,99,0
1720DATA 14,10,15,9,16,8,17,7,17,6,16,&47,15,8,12,9,11,10,99,0
1730:
1740DEF PROCwpr(S$):LOCAL T$,P%,Y%:T$=S$:Y%=0
1750REPEAT
1760 IF LENT$>WW% THEN
1770 P%=WW%+1:WHILE MID$(T$,P%,1)<>" ":P%-=1:ENDWHILE
1780 T$=RIGHT$(T$,LEN(T$)-P%)
1790 ELSE
1800 T$=""
1810 ENDIF
1820 Y%+=1
1830UNTIL T$=""
1840Y%=WYC%+Y%*18
1850REPEAT:T$=""
1860 IF LENS$>WW% THEN
1870 P%=WW%+1:WHILE MID$(S$,P%,1)<>" ":P%-=1:ENDWHILE
1880 T$=RIGHT$(S$,LEN(S$)-P%):S$=LEFT$(S$,P%-1)
1890 ENDIF
1900 MOVE WXC%-16*LENS$,Y%:PRINTS$:Y%-=36:S$=T$
1910UNTIL S$="":ENDPROC
1920:
1930DEF PROCrect(X%,Y%,W%,H%):LOCAL C%:RESTORE 1960
1940READ N%:FOR L%=1 TO N%:READ C%:GCOL C%:RECTANGLE X%,Y%,W%,H%:X%+=4:Y%+=4:W%-=8:H%-=8:NEXT:READ C%:GCOL C%:RECTANGLE FILL X%,Y%,W%,H%:ENDPROC
1950:
1960DATA 4,6,7,8,10,9
1970:
1980DEF PROCmouse:*FX 21,9
1990REPEAT:MOUSE MX%,MY%,B%:UNTIL B%=0:REPEAT:MOUSE MX%,MY%,B%:UNTIL B%<>0:ENDPROC
2000:
2010DEF PROCasm
2020sp=13:link=14:OS_WriteI=&100
2030FOR O%=0 TO 2 STEP 2
2040P%=code%
2050[OPT O%
2060\ Copy screen
2070.copy MOV R0,#200:LDR R1,from:LDR R2,to
2080.clp LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:SUBS R0,R0,#1:BNE clp:MOV PC,link
2090\
2100.from EQUD OSC%
2110.to EQUD T%
2120\
2130.delta
2140\R0=Screen, R1=Data
2150MOV R12,#&FF:ORR R12,R12,#&FF00
2160.d_loop
2170LDR R2,[R1],#4
2180MOVS R3,R2,LSR#16:MOVEQ PC,link
2190AND R2,R2,R12:ADD R2,R2,R0
2200.u_loop
2210LDR R4,[R1],#4:STR R4,[R2],#4
2220SUBS R3,R3,#1:BNE u_loop
2230B d_loop
2240]
2250IF P%>(code%+space%) MODE 15:PRINT"Not enough code space.":OSCLI"DIR $":END
2260NEXT
2270ENDPROC
2280:
2290DEF PROCerror:ON ERROR OFF
2300MODE 15:OFF:CALLHIMEM+&214
2310*FX 20
2320IF ERR=17 PRINT"Goodbye." ELSE PRINT"Iron Lord has stopped because of a fatal error :-"''REPORT$
2330ENDPROC
� >:IronLord.!IronLord.Iron4
� (C) 1990 UBI soft.
<� Archimedes version by Cygnus Software Engineering Ltd.
(:
2� � �error:�
<:
F>space%=&74:� code% space%,DLT% &A12C,OSC% &7D00,SSP% &D0A0
P%� DA%(23),SA%(32),SX%(32),SY%(32)
Z:
d?!SSP%=&D0A0:�"IronLoad <IronLord$Dir>.SwordSpr "+�~(SSP%+4)
n1�"IronLoad <IronLord$Dir>.SwordDelta "+�~DLT%
x/�"IronLoad <IronLord$Dir>.SwordPic "+�~OSC%
��asm
�)� I%=0 � 23:� DA%(I%):DA%(I%)+=DLT%:�
�S� I%=1 � 32:� SW%:ș"OS_SpriteOp",280,SSP%,�SW% � ,,SA%(I%):� SX%(I%),SY%(I%):�
�BK%=2:IC%=0:BFL%=0
�&YV=1:YF=1:AV=?(�+&15E):� AV>2 AV=2
�AV=.7+�(10)/100+AV*.1
� ȗ ȓ -500,-500,1000,1000
�Tș"Sound_QInit":�I%=1�8:ș"Sound_AttachVoice",I%,0:�:ș"Sound_Configure",1,0,100
�:
�P�en(0):�flip:�rect(416,360,352,80):� 6:� 452,416:�"Get ready":*IronFadeIn 20
� *FX 21,9
�4�=0:�:ȗ MX%,MY%,B%:� B%<>0 � �>100:�en(0):�flip
�:
�
J ș"OS_SpriteOp",290,SSP%,"sw",1080,500:OT%=15+50*YV*YF:BFL%=0:*FX21,9
: �=0:�:MD%=�mouse_dir:� MD% � �>OT%:TI%=�:�en(0):�flip
"" � MD% �offensive � �defensive
, �en(0):�flip
6� AV=0 � YV=0
@:
J*IronFadeOut
T7�rect(304,240,672,324):WXC%=640:WYC%=400:WW%=20:� 6
^
� AV<=0 �
h' AS%=?(�+&15E):� AS%<5 ?(�+&15E)+=1
r � AS%=4 �
|� ?(�+&160)+=2:?(�+226)=?(�+&160):�wpr("As the assassin falls to the ground you hear someone behind you shout 'Well done, you have proved that you are truly courageous.'")
� �
�t �wpr("The assassin falls to the ground, mortally wounded. You notice that he is wearing your uncle's emblem.")
� �
��
�y �wpr("As your last breath slips away you realise that your skill with a sword was not as great as you had thought.")
��
�*IronFadeIn 20
��mouse:*IronFadeOut
�� BK%=1 �flip
�ȗ ȓ 0,0,1279,799
�H� � �:� AV<=0 Z%=1:�"<IronLord$Dir>.Iron1" � �"<IronLord$Dir>.Iron7"
��
�:
�� 0,&7A0,&D58,&14FC,&1C98,&2408,&2A70,&3024,&353C,&39F4,&4064,&47B8,&4FBC,&5758,&5E48,&6590,&6C38,&7204,&7764,&7C14,&8490,&8BB8,&93FC,&9B18
:
�� 1,352,124,2,608,132,1,0,0,7,576,152,5,224,152,6,384,152,7,544,152,8,704,152,9,704,152,10,736,152,5,416,72,7,416,-64,7,512,0,6,416,152,6,320,-24,6,352,8
&�� 8,896,-64,8,800,0,8,704,152,6,832,-24,6,704,40,6,576,72,2,608,-212,2,608,-20,2,608,108,9,288,-20,9,384,44,9,448,76,10,512,72,6,512,152,8,640,152,6,480,152
0:
:!� �en(E%):ș"OS_Byte",112,BK%
D� BK%=1 A%=S% � A%=T%
N)!to=A%:� copy:B%=DA%(E%):� delta:�vit
X�
b:
l� �sw(SW%):� SW%=0 �
v�� 24,0;152;1279;799;:ș"OS_SpriteOp",546,SSP%,SA%(SW%),SX%(SW%),SY%(SW%),8:ș"OS_SpriteOp",546,SSP%,SSP%+16,148,152,8:� 24,0;0;1279;799;
��
�:
�0� �flip:Ȗ:ș"OS_Byte",113,BK%:BK%=BK% � 3:�
�:
�
� �vit
�*� 11:ȓ 88,36,1108,24:ȓ 88,72,1108,24
�$� AV>0 �8:ȓ Ȑ 92,40,AV*1100,16
�%� YV>0 �10:ȓ Ȑ 92,76,YV*1100,16
�1�0:� AV<1 ȓ Ȑ 92+AV*1100,40,1100-AV*1100,16
�.� YV<1 ȓ Ȑ 92+YV*1100,76,1100-YV*1100,16
��
�:
�� �mouse_dir
ȗ MX%,MY%,B%
@� B%=0 � BFL%=0 BFL%=1 � � B%<>0 � BFL%=1 ȗ � 0,0:BFL%=2:=0
� BFL%<>2 � =0
:AMX%=�(MX%):AMY%=�(MY%):� �(AMX%*AMX%+AMY%*AMY%)<30 =0
*"� AMY%=0 AMD=2 � AMD=AMX%/AMY%
4 RIGHT%=�(MX%)=1:UP%=�(MY%)=1
>� AMD<.58 �
H � UP% � =1 � =5
R�
\� AMD>1.73 �
f � RIGHT% � =3 � =7
p�
z� RIGHT% � UP% � =2
�� RIGHT% � =4
�� UP% � =8
�=6
�:
�#� �offensive:YF-=.2:� YF<0 YF=0
� MD%=MD%*2-2:ȗ MX%,MY%,B%
�S� TI%<26 PR%=90 � � TI%<51 PR%=75 � � TI%<76 PR%=50 � � TI%<101 PR%=25 � PR%=10
�� �(100)<PR% MD%+=1
��set_path(MD%):�move
��
�:
�#� �defensive:YF+=.2:� YF>1 YF=1
�TATT%=�(3):�set_path(ATT%+15):ș"OS_SpriteOp",280,SSP%,"a"+�ATT% � ,,IC%:*FX 21,9
C�move:TI%=40+40*(1-AV):�=0:�:MD%=�mouse_dir:� MD% � �>TI%:IC%=0
� MD%=0 �
�set_path(18+ATT%)
$�
.a � ATT%=1 � MD%=3 � ATT%=2 � MD%=1 � ATT%=3 � MD%=7 � �set_path(24+ATT%) � �set_path(21+ATT%)
8�
B �move
L�
V:
`� �set_path(P%):� �T|E
j*� P%<>0 � I%=1�P%:�:� J%:�J%=99:�:� J%
t�
~:
� � �move
�
� AS%,YS%
�O�:�en(AS% � 31):�sw(YS% � 31):� IC%<>0 ș"OS_SpriteOp",546,SSP%,IC%,100,500
�X�flip:� YS% � 64 �clang � � AS% � 128 �you_hurt � � YS% � 128 �he_hurt � Ȗ:Ȗ:Ȗ:Ȗ
�� AS%,YS%:� AS%=99
��
�:
�I� �you_hurt:ȡ1,"IronEffect-Hurt":�1,&17F,&2550,1:YV-=.25:� YV<0 YV=0
�<Ȗ:Ȗ:�19;24,240,0,0:� 0,240,0,0:Ȗ:Ȗ:� 0,0,0,0:�19;24|
��
�:
�d� �he_hurt:ȡ1,"IronEffect-Hurt":�1,&17F,&2000,1:AV-=�(30*((1+YF)/2)*(1-(AV/2)))/100:� AV<0 AV=0
<Ȗ:Ȗ:�19;24,240,0,0:� 0,240,0,0:Ȗ:Ȗ:�19;24|:� 0,0,0,0
�
:
E� �clang:�(2)=1 ȡ1,"IronEffect-Clang1" �ȡ1,"IronEffect-Clang2"
(�1,&17F,&2550,1:�
2:
<B� 21,0,22,12,23,13,23,4,23,&44,23,4,23,13,23,12,22,0,21,0,99,0
F&� 0,12,0,13,19,&82,20,24,19,0,99,0
P:
Z#� 1,0,2,20,1,21,3,&56,3,11,99,0
d$� 0,20,0,21,1,22,2,&A0,0,11,99,0
n:
x3� 22,23,23,24,23,25,23,&42,23,7,22,13,21,0,99,0
�'� 0,23,0,24,21,25,22,&82,21,24,99,0
�:
�I� 11,0,12,0,14,0,15,0,16,23,17,24,18,&59,8,8,7,9,6,0,5,0,4,0,9,0,99,0
�'� 0,23,12,24,14,&82,15,24,17,0,99,0
�:
�.� 0,15,11,16,12,&4E,12,14,12,14,11,15,99,0
�%� 0,15,0,16,0,14,10,&9E,0,23,99,0
�:
�7� 19,17,20,18,10,19,10,&51,10,0,10,0,20,0,19,0,99,0
�%� 0,17,0,18,0,19,19,&9F,0,24,99,0
�:
�'� 1,0,2,26,1,27,3,28,3,&5D,3,0,99,0
� � 0,26,1,27,2,28,1,&9D,99,0
:
8� 11,0,12,0,14,0,15,10,16,9,17,8,18,&47,3,8,0,9,99,0
)� 0,10,11,9,12,8,14,&98,15,6,0,5,99,0
":
,� 10,0,4,0,99,0
6� 1,0,2,0,99,0
@� 11,0,12,0,99,0
J:
T$� 5,0,6,0,7,0,8,0,&92,0,3,0,99,0
^� 1,0,&83,0,99,0
h(� 14,0,15,0,16,0,17,0,&92,0,3,0,99,0
r:
|$� 5,0,6,0,7,0,8,0,&92,5,3,6,99,0
�� 1,0,&83,5,99,0
�)� 14,0,15,0,16,0,17,0,&92,10,3,9,99,0
�:
�0� 5,5,6,6,7,7,8,8,8,8,7,&47,6,6,5,5,9,0,99,0
� � 1,5,3,1,3,&41,0,5,99,0
�;� 14,10,15,9,16,8,17,7,17,6,16,&47,15,8,12,9,11,10,99,0
�:
�$� �wpr(S$):� T$,P%,Y%:T$=S$:Y%=0
��
� � �T$>WW% �
�( P%=WW%+1:ȕ �T$,P%,1)<>" ":P%-=1:�
� T$=�T$,�(T$)-P%)
� �
T$=""
�
Y%+=1
& � T$=""
0Y%=WYC%+Y%*18
: �:T$=""
D � �S$>WW% �
N( P%=WW%+1:ȕ �S$,P%,1)<>" ":P%-=1:�
X# T$=�S$,�(S$)-P%):S$=�S$,P%-1)
b �
l& � WXC%-16*�S$,Y%:�S$:Y%-=36:S$=T$
v
� S$="":�
�:
�$� �rect(X%,Y%,W%,H%):� C%:� �thG
�e� N%:� L%=1 � N%:� C%:� C%:ȓ X%,Y%,W%,H%:X%+=4:Y%+=4:W%-=8:H%-=8:�:� C%:� C%:ȓ Ȑ X%,Y%,W%,H%:�
�:
�� 4,6,7,8,10,9
�:
�� �mouse:*FX 21,9
�4�:ȗ MX%,MY%,B%:� B%=0:�:ȗ MX%,MY%,B%:� B%<>0:�
�:
�
� �asm
� sp=13:link=14:OS_WriteI=&100
�� O%=0 � 2 � 2
� P%=code%
[OPT O%
\ Copy screen
+.copy MOV R0,#200:LDR R1,from:LDR R2,to
�.clp LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:SUBS R0,R0,#1:BNE clp:MOV PC,link
*\
4.from EQUD OSC%
>.to EQUD T%
H\
R
.delta
\\R0=Screen, R1=Data
f"MOV R12,#&FF:�R R12,R12,#&FF00
p .d_loop
zLDR R2,[R1],#4
� MOVS R3,R2,LSR#16:�Q PC,link
� � R2,R2,R12:ADD R2,R2,R0
� .u_loop
�!LDR R4,[R1],#4:STR R4,[R2],#4
� SUBS R3,R3,#1:BNE u_loop
� B d_loop
�]
�A� P%>(code%+space%) � 15:�"Not enough code space.":�"DIR $":�
��
��
�:
�� �error:� � �
�� 15:�:֓+&214
*FX 20
Q� �=17 �"Goodbye." � �"Iron Lord has stopped because of a fatal error :-"''�$
�
� 00000000 0d 00 0a 20 f4 20 3e 3a 49 72 6f 6e 4c 6f 72 64 |... . >:IronLord|
00000010 2e 21 49 72 6f 6e 4c 6f 72 64 2e 49 72 6f 6e 34 |.!IronLord.Iron4|
00000020 0d 00 14 18 f4 20 28 43 29 20 31 39 39 30 20 55 |..... (C) 1990 U|
00000030 42 49 20 73 6f 66 74 2e 0d 00 1e 3c f4 20 41 72 |BI soft....<. Ar|
00000040 63 68 69 6d 65 64 65 73 20 76 65 72 73 69 6f 6e |chimedes version|
00000050 20 62 79 20 43 79 67 6e 75 73 20 53 6f 66 74 77 | by Cygnus Softw|
00000060 61 72 65 20 45 6e 67 69 6e 65 65 72 69 6e 67 20 |are Engineering |
00000070 4c 74 64 2e 0d 00 28 05 3a 0d 00 32 10 ee 20 85 |Ltd...(.:..2.. .|
00000080 20 f2 65 72 72 6f 72 3a e0 0d 00 3c 05 3a 0d 00 | .error:...<.:..|
00000090 46 3e 73 70 61 63 65 25 3d 26 37 34 3a de 20 63 |F>space%=&74:. c|
000000a0 6f 64 65 25 20 73 70 61 63 65 25 2c 44 4c 54 25 |ode% space%,DLT%|
000000b0 20 26 41 31 32 43 2c 4f 53 43 25 20 26 37 44 30 | &A12C,OSC% &7D0|
000000c0 30 2c 53 53 50 25 20 26 44 30 41 30 0d 00 50 25 |0,SSP% &D0A0..P%|
000000d0 de 20 44 41 25 28 32 33 29 2c 53 41 25 28 33 32 |. DA%(23),SA%(32|
000000e0 29 2c 53 58 25 28 33 32 29 2c 53 59 25 28 33 32 |),SX%(32),SY%(32|
000000f0 29 0d 00 5a 05 3a 0d 00 64 3f 21 53 53 50 25 3d |)..Z.:..d?!SSP%=|
00000100 26 44 30 41 30 3a ff 22 49 72 6f 6e 4c 6f 61 64 |&D0A0:."IronLoad|
00000110 20 3c 49 72 6f 6e 4c 6f 72 64 24 44 69 72 3e 2e | <IronLord$Dir>.|
00000120 53 77 6f 72 64 53 70 72 20 22 2b c3 7e 28 53 53 |SwordSpr "+.~(SS|
00000130 50 25 2b 34 29 0d 00 6e 31 ff 22 49 72 6f 6e 4c |P%+4)..n1."IronL|
00000140 6f 61 64 20 3c 49 72 6f 6e 4c 6f 72 64 24 44 69 |oad <IronLord$Di|
00000150 72 3e 2e 53 77 6f 72 64 44 65 6c 74 61 20 22 2b |r>.SwordDelta "+|
00000160 c3 7e 44 4c 54 25 0d 00 78 2f ff 22 49 72 6f 6e |.~DLT%..x/."Iron|
00000170 4c 6f 61 64 20 3c 49 72 6f 6e 4c 6f 72 64 24 44 |Load <IronLord$D|
00000180 69 72 3e 2e 53 77 6f 72 64 50 69 63 20 22 2b c3 |ir>.SwordPic "+.|
00000190 7e 4f 53 43 25 0d 00 82 08 f2 61 73 6d 0d 00 8c |~OSC%.....asm...|
000001a0 29 e3 20 49 25 3d 30 20 b8 20 32 33 3a f3 20 44 |). I%=0 . 23:. D|
000001b0 41 25 28 49 25 29 3a 44 41 25 28 49 25 29 2b 3d |A%(I%):DA%(I%)+=|
000001c0 44 4c 54 25 3a ed 0d 00 96 53 e3 20 49 25 3d 31 |DLT%:....S. I%=1|
000001d0 20 b8 20 33 32 3a f3 20 53 57 25 3a c8 99 22 4f | . 32:. SW%:.."O|
000001e0 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 38 30 2c |S_SpriteOp",280,|
000001f0 53 53 50 25 2c c3 53 57 25 20 b8 20 2c 2c 53 41 |SSP%,.SW% . ,,SA|
00000200 25 28 49 25 29 3a f3 20 53 58 25 28 49 25 29 2c |%(I%):. SX%(I%),|
00000210 53 59 25 28 49 25 29 3a ed 0d 00 a0 16 42 4b 25 |SY%(I%):.....BK%|
00000220 3d 32 3a 49 43 25 3d 30 3a 42 46 4c 25 3d 30 0d |=2:IC%=0:BFL%=0.|
00000230 00 aa 26 59 56 3d 31 3a 59 46 3d 31 3a 41 56 3d |..&YV=1:YF=1:AV=|
00000240 3f 28 93 2b 26 31 35 45 29 3a e7 20 41 56 3e 32 |?(.+&15E):. AV>2|
00000250 20 41 56 3d 32 0d 00 b4 19 41 56 3d 2e 37 2b b3 | AV=2....AV=.7+.|
00000260 28 31 30 29 2f 31 30 30 2b 41 56 2a 2e 31 0d 00 |(10)/100+AV*.1..|
00000270 be 1d c8 97 20 c8 93 20 2d 35 30 30 2c 2d 35 30 |.... .. -500,-50|
00000280 30 2c 31 30 30 30 2c 31 30 30 30 0d 00 c8 54 c8 |0,1000,1000...T.|
00000290 99 22 53 6f 75 6e 64 5f 51 49 6e 69 74 22 3a e3 |."Sound_QInit":.|
000002a0 49 25 3d 31 b8 38 3a c8 99 22 53 6f 75 6e 64 5f |I%=1.8:.."Sound_|
000002b0 41 74 74 61 63 68 56 6f 69 63 65 22 2c 49 25 2c |AttachVoice",I%,|
000002c0 30 3a ed 3a c8 99 22 53 6f 75 6e 64 5f 43 6f 6e |0:.:.."Sound_Con|
000002d0 66 69 67 75 72 65 22 2c 31 2c 30 2c 31 30 30 0d |figure",1,0,100.|
000002e0 00 d2 05 3a 0d 00 dc 50 f2 65 6e 28 30 29 3a f2 |...:...P.en(0):.|
000002f0 66 6c 69 70 3a f2 72 65 63 74 28 34 31 36 2c 33 |flip:.rect(416,3|
00000300 36 30 2c 33 35 32 2c 38 30 29 3a e6 20 36 3a ec |60,352,80):. 6:.|
00000310 20 34 35 32 2c 34 31 36 3a f1 22 47 65 74 20 72 | 452,416:."Get r|
00000320 65 61 64 79 22 3a 2a 49 72 6f 6e 46 61 64 65 49 |eady":*IronFadeI|
00000330 6e 20 32 30 0d 00 e6 0c 2a 46 58 20 32 31 2c 39 |n 20....*FX 21,9|
00000340 0d 00 f0 34 d1 3d 30 3a f5 3a c8 97 20 4d 58 25 |...4.=0:.:.. MX%|
00000350 2c 4d 59 25 2c 42 25 3a fd 20 42 25 3c 3e 30 20 |,MY%,B%:. B%<>0 |
00000360 84 20 91 3e 31 30 30 3a f2 65 6e 28 30 29 3a f2 |. .>100:.en(0):.|
00000370 66 6c 69 70 0d 00 fa 05 3a 0d 01 04 05 f5 0d 01 |flip....:.......|
00000380 0e 4a 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.J .."OS_SpriteO|
00000390 70 22 2c 32 39 30 2c 53 53 50 25 2c 22 73 77 22 |p",290,SSP%,"sw"|
000003a0 2c 31 30 38 30 2c 35 30 30 3a 4f 54 25 3d 31 35 |,1080,500:OT%=15|
000003b0 2b 35 30 2a 59 56 2a 59 46 3a 42 46 4c 25 3d 30 |+50*YV*YF:BFL%=0|
000003c0 3a 2a 46 58 32 31 2c 39 0d 01 18 3a 20 d1 3d 30 |:*FX21,9...: .=0|
000003d0 3a f5 3a 4d 44 25 3d a4 6d 6f 75 73 65 5f 64 69 |:.:MD%=.mouse_di|
000003e0 72 3a fd 20 4d 44 25 20 84 20 91 3e 4f 54 25 3a |r:. MD% . .>OT%:|
000003f0 54 49 25 3d 91 3a f2 65 6e 28 30 29 3a f2 66 6c |TI%=.:.en(0):.fl|
00000400 69 70 0d 01 22 22 20 e7 20 4d 44 25 20 f2 6f 66 |ip.."" . MD% .of|
00000410 66 65 6e 73 69 76 65 20 8b 20 f2 64 65 66 65 6e |fensive . .defen|
00000420 73 69 76 65 0d 01 2c 11 20 f2 65 6e 28 30 29 3a |sive..,. .en(0):|
00000430 f2 66 6c 69 70 0d 01 36 11 fd 20 41 56 3d 30 20 |.flip..6.. AV=0 |
00000440 84 20 59 56 3d 30 0d 01 40 05 3a 0d 01 4a 10 2a |. YV=0..@.:..J.*|
00000450 49 72 6f 6e 46 61 64 65 4f 75 74 0d 01 54 37 f2 |IronFadeOut..T7.|
00000460 72 65 63 74 28 33 30 34 2c 32 34 30 2c 36 37 32 |rect(304,240,672|
00000470 2c 33 32 34 29 3a 57 58 43 25 3d 36 34 30 3a 57 |,324):WXC%=640:W|
00000480 59 43 25 3d 34 30 30 3a 57 57 25 3d 32 30 3a e6 |YC%=400:WW%=20:.|
00000490 20 36 0d 01 5e 0d e7 20 41 56 3c 3d 30 20 8c 0d | 6..^.. AV<=0 ..|
000004a0 01 68 27 20 41 53 25 3d 3f 28 93 2b 26 31 35 45 |.h' AS%=?(.+&15E|
000004b0 29 3a e7 20 41 53 25 3c 35 20 3f 28 93 2b 26 31 |):. AS%<5 ?(.+&1|
000004c0 35 45 29 2b 3d 31 0d 01 72 0e 20 e7 20 41 53 25 |5E)+=1..r. . AS%|
000004d0 3d 34 20 8c 0d 01 7c af 20 20 3f 28 93 2b 26 31 |=4 ...|. ?(.+&1|
000004e0 36 30 29 2b 3d 32 3a 3f 28 93 2b 32 32 36 29 3d |60)+=2:?(.+226)=|
000004f0 3f 28 93 2b 26 31 36 30 29 3a f2 77 70 72 28 22 |?(.+&160):.wpr("|
00000500 41 73 20 74 68 65 20 61 73 73 61 73 73 69 6e 20 |As the assassin |
00000510 66 61 6c 6c 73 20 74 6f 20 74 68 65 20 67 72 6f |falls to the gro|
00000520 75 6e 64 20 79 6f 75 20 68 65 61 72 20 73 6f 6d |und you hear som|
00000530 65 6f 6e 65 20 62 65 68 69 6e 64 20 79 6f 75 20 |eone behind you |
00000540 73 68 6f 75 74 20 27 57 65 6c 6c 20 64 6f 6e 65 |shout 'Well done|
00000550 2c 20 79 6f 75 20 68 61 76 65 20 70 72 6f 76 65 |, you have prove|
00000560 64 20 74 68 61 74 20 79 6f 75 20 61 72 65 20 74 |d that you are t|
00000570 72 75 6c 79 20 63 6f 75 72 61 67 65 6f 75 73 2e |ruly courageous.|
00000580 27 22 29 0d 01 86 06 20 cc 0d 01 90 74 20 20 f2 |'").... ....t .|
00000590 77 70 72 28 22 54 68 65 20 61 73 73 61 73 73 69 |wpr("The assassi|
000005a0 6e 20 66 61 6c 6c 73 20 74 6f 20 74 68 65 20 67 |n falls to the g|
000005b0 72 6f 75 6e 64 2c 20 6d 6f 72 74 61 6c 6c 79 20 |round, mortally |
000005c0 77 6f 75 6e 64 65 64 2e 20 59 6f 75 20 6e 6f 74 |wounded. You not|
000005d0 69 63 65 20 74 68 61 74 20 68 65 20 69 73 20 77 |ice that he is w|
000005e0 65 61 72 69 6e 67 20 79 6f 75 72 20 75 6e 63 6c |earing your uncl|
000005f0 65 27 73 20 65 6d 62 6c 65 6d 2e 22 29 0d 01 9a |e's emblem.")...|
00000600 06 20 cd 0d 01 a4 05 cc 0d 01 ae 79 20 f2 77 70 |. .........y .wp|
00000610 72 28 22 41 73 20 79 6f 75 72 20 6c 61 73 74 20 |r("As your last |
00000620 62 72 65 61 74 68 20 73 6c 69 70 73 20 61 77 61 |breath slips awa|
00000630 79 20 79 6f 75 20 72 65 61 6c 69 73 65 20 74 68 |y you realise th|
00000640 61 74 20 79 6f 75 72 20 73 6b 69 6c 6c 20 77 69 |at your skill wi|
00000650 74 68 20 61 20 73 77 6f 72 64 20 77 61 73 20 6e |th a sword was n|
00000660 6f 74 20 61 73 20 67 72 65 61 74 20 61 73 20 79 |ot as great as y|
00000670 6f 75 20 68 61 64 20 74 68 6f 75 67 68 74 2e 22 |ou had thought."|
00000680 29 0d 01 b8 05 cd 0d 01 c2 12 2a 49 72 6f 6e 46 |).........*IronF|
00000690 61 64 65 49 6e 20 32 30 0d 01 cc 17 f2 6d 6f 75 |adeIn 20.....mou|
000006a0 73 65 3a 2a 49 72 6f 6e 46 61 64 65 4f 75 74 0d |se:*IronFadeOut.|
000006b0 01 d6 11 e7 20 42 4b 25 3d 31 20 f2 66 6c 69 70 |.... BK%=1 .flip|
000006c0 0d 01 e0 16 c8 97 20 c8 93 20 30 2c 30 2c 31 32 |...... .. 0,0,12|
000006d0 37 39 2c 37 39 39 0d 01 ea 48 ee 20 85 20 87 3a |79,799...H. . .:|
000006e0 e7 20 41 56 3c 3d 30 20 5a 25 3d 31 3a d7 22 3c |. AV<=0 Z%=1:."<|
000006f0 49 72 6f 6e 4c 6f 72 64 24 44 69 72 3e 2e 49 72 |IronLord$Dir>.Ir|
00000700 6f 6e 31 22 20 8b 20 d7 22 3c 49 72 6f 6e 4c 6f |on1" . ."<IronLo|
00000710 72 64 24 44 69 72 3e 2e 49 72 6f 6e 37 22 0d 01 |rd$Dir>.Iron7"..|
00000720 f4 05 e0 0d 01 fe 05 3a 0d 02 08 8f dc 20 30 2c |.......:..... 0,|
00000730 26 37 41 30 2c 26 44 35 38 2c 26 31 34 46 43 2c |&7A0,&D58,&14FC,|
00000740 26 31 43 39 38 2c 26 32 34 30 38 2c 26 32 41 37 |&1C98,&2408,&2A7|
00000750 30 2c 26 33 30 32 34 2c 26 33 35 33 43 2c 26 33 |0,&3024,&353C,&3|
00000760 39 46 34 2c 26 34 30 36 34 2c 26 34 37 42 38 2c |9F4,&4064,&47B8,|
00000770 26 34 46 42 43 2c 26 35 37 35 38 2c 26 35 45 34 |&4FBC,&5758,&5E4|
00000780 38 2c 26 36 35 39 30 2c 26 36 43 33 38 2c 26 37 |8,&6590,&6C38,&7|
00000790 32 30 34 2c 26 37 37 36 34 2c 26 37 43 31 34 2c |204,&7764,&7C14,|
000007a0 26 38 34 39 30 2c 26 38 42 42 38 2c 26 39 33 46 |&8490,&8BB8,&93F|
000007b0 43 2c 26 39 42 31 38 0d 02 12 05 3a 0d 02 1c 9d |C,&9B18....:....|
000007c0 dc 20 31 2c 33 35 32 2c 31 32 34 2c 32 2c 36 30 |. 1,352,124,2,60|
000007d0 38 2c 31 33 32 2c 31 2c 30 2c 30 2c 37 2c 35 37 |8,132,1,0,0,7,57|
000007e0 36 2c 31 35 32 2c 35 2c 32 32 34 2c 31 35 32 2c |6,152,5,224,152,|
000007f0 36 2c 33 38 34 2c 31 35 32 2c 37 2c 35 34 34 2c |6,384,152,7,544,|
00000800 31 35 32 2c 38 2c 37 30 34 2c 31 35 32 2c 39 2c |152,8,704,152,9,|
00000810 37 30 34 2c 31 35 32 2c 31 30 2c 37 33 36 2c 31 |704,152,10,736,1|
00000820 35 32 2c 35 2c 34 31 36 2c 37 32 2c 37 2c 34 31 |52,5,416,72,7,41|
00000830 36 2c 2d 36 34 2c 37 2c 35 31 32 2c 30 2c 36 2c |6,-64,7,512,0,6,|
00000840 34 31 36 2c 31 35 32 2c 36 2c 33 32 30 2c 2d 32 |416,152,6,320,-2|
00000850 34 2c 36 2c 33 35 32 2c 38 0d 02 26 a0 dc 20 38 |4,6,352,8..&.. 8|
00000860 2c 38 39 36 2c 2d 36 34 2c 38 2c 38 30 30 2c 30 |,896,-64,8,800,0|
00000870 2c 38 2c 37 30 34 2c 31 35 32 2c 36 2c 38 33 32 |,8,704,152,6,832|
00000880 2c 2d 32 34 2c 36 2c 37 30 34 2c 34 30 2c 36 2c |,-24,6,704,40,6,|
00000890 35 37 36 2c 37 32 2c 32 2c 36 30 38 2c 2d 32 31 |576,72,2,608,-21|
000008a0 32 2c 32 2c 36 30 38 2c 2d 32 30 2c 32 2c 36 30 |2,2,608,-20,2,60|
000008b0 38 2c 31 30 38 2c 39 2c 32 38 38 2c 2d 32 30 2c |8,108,9,288,-20,|
000008c0 39 2c 33 38 34 2c 34 34 2c 39 2c 34 34 38 2c 37 |9,384,44,9,448,7|
000008d0 36 2c 31 30 2c 35 31 32 2c 37 32 2c 36 2c 35 31 |6,10,512,72,6,51|
000008e0 32 2c 31 35 32 2c 38 2c 36 34 30 2c 31 35 32 2c |2,152,8,640,152,|
000008f0 36 2c 34 38 30 2c 31 35 32 0d 02 30 05 3a 0d 02 |6,480,152..0.:..|
00000900 3a 21 dd 20 f2 65 6e 28 45 25 29 3a c8 99 22 4f |:!. .en(E%):.."O|
00000910 53 5f 42 79 74 65 22 2c 31 31 32 2c 42 4b 25 0d |S_Byte",112,BK%.|
00000920 02 44 19 e7 20 42 4b 25 3d 31 20 41 25 3d 53 25 |.D.. BK%=1 A%=S%|
00000930 20 8b 20 41 25 3d 54 25 0d 02 4e 29 21 74 6f 3d | . A%=T%..N)!to=|
00000940 41 25 3a d6 20 63 6f 70 79 3a 42 25 3d 44 41 25 |A%:. copy:B%=DA%|
00000950 28 45 25 29 3a d6 20 64 65 6c 74 61 3a f2 76 69 |(E%):. delta:.vi|
00000960 74 0d 02 58 05 e1 0d 02 62 05 3a 0d 02 6c 18 dd |t..X....b.:..l..|
00000970 20 f2 73 77 28 53 57 25 29 3a e7 20 53 57 25 3d | .sw(SW%):. SW%=|
00000980 30 20 e1 0d 02 76 8c ef 20 32 34 2c 30 3b 31 35 |0 ...v.. 24,0;15|
00000990 32 3b 31 32 37 39 3b 37 39 39 3b 3a c8 99 22 4f |2;1279;799;:.."O|
000009a0 53 5f 53 70 72 69 74 65 4f 70 22 2c 35 34 36 2c |S_SpriteOp",546,|
000009b0 53 53 50 25 2c 53 41 25 28 53 57 25 29 2c 53 58 |SSP%,SA%(SW%),SX|
000009c0 25 28 53 57 25 29 2c 53 59 25 28 53 57 25 29 2c |%(SW%),SY%(SW%),|
000009d0 38 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |8:.."OS_SpriteOp|
000009e0 22 2c 35 34 36 2c 53 53 50 25 2c 53 53 50 25 2b |",546,SSP%,SSP%+|
000009f0 31 36 2c 31 34 38 2c 31 35 32 2c 38 3a ef 20 32 |16,148,152,8:. 2|
00000a00 34 2c 30 3b 30 3b 31 32 37 39 3b 37 39 39 3b 0d |4,0;0;1279;799;.|
00000a10 02 80 05 e1 0d 02 8a 05 3a 0d 02 94 30 dd 20 f2 |........:...0. .|
00000a20 66 6c 69 70 3a c8 96 3a c8 99 22 4f 53 5f 42 79 |flip:..:.."OS_By|
00000a30 74 65 22 2c 31 31 33 2c 42 4b 25 3a 42 4b 25 3d |te",113,BK%:BK%=|
00000a40 42 4b 25 20 82 20 33 3a e1 0d 02 9e 05 3a 0d 02 |BK% . 3:.....:..|
00000a50 a8 0a dd 20 f2 76 69 74 0d 02 b2 2a e6 20 31 31 |... .vit...*. 11|
00000a60 3a c8 93 20 38 38 2c 33 36 2c 31 31 30 38 2c 32 |:.. 88,36,1108,2|
00000a70 34 3a c8 93 20 38 38 2c 37 32 2c 31 31 30 38 2c |4:.. 88,72,1108,|
00000a80 32 34 0d 02 bc 24 e7 20 41 56 3e 30 20 e6 38 3a |24...$. AV>0 .8:|
00000a90 c8 93 20 c8 90 20 39 32 2c 34 30 2c 41 56 2a 31 |.. .. 92,40,AV*1|
00000aa0 31 30 30 2c 31 36 0d 02 c6 25 e7 20 59 56 3e 30 |100,16...%. YV>0|
00000ab0 20 e6 31 30 3a c8 93 20 c8 90 20 39 32 2c 37 36 | .10:.. .. 92,76|
00000ac0 2c 59 56 2a 31 31 30 30 2c 31 36 0d 02 d0 31 e6 |,YV*1100,16...1.|
00000ad0 30 3a e7 20 41 56 3c 31 20 c8 93 20 c8 90 20 39 |0:. AV<1 .. .. 9|
00000ae0 32 2b 41 56 2a 31 31 30 30 2c 34 30 2c 31 31 30 |2+AV*1100,40,110|
00000af0 30 2d 41 56 2a 31 31 30 30 2c 31 36 0d 02 da 2e |0-AV*1100,16....|
00000b00 e7 20 59 56 3c 31 20 c8 93 20 c8 90 20 39 32 2b |. YV<1 .. .. 92+|
00000b10 59 56 2a 31 31 30 30 2c 37 36 2c 31 31 30 30 2d |YV*1100,76,1100-|
00000b20 59 56 2a 31 31 30 30 2c 31 36 0d 02 e4 05 e1 0d |YV*1100,16......|
00000b30 02 ee 05 3a 0d 02 f8 10 dd 20 a4 6d 6f 75 73 65 |...:..... .mouse|
00000b40 5f 64 69 72 0d 03 02 11 c8 97 20 4d 58 25 2c 4d |_dir...... MX%,M|
00000b50 59 25 2c 42 25 0d 03 0c 40 e7 20 42 25 3d 30 20 |Y%,B%...@. B%=0 |
00000b60 80 20 42 46 4c 25 3d 30 20 42 46 4c 25 3d 31 20 |. BFL%=0 BFL%=1 |
00000b70 8b 20 e7 20 42 25 3c 3e 30 20 80 20 42 46 4c 25 |. . B%<>0 . BFL%|
00000b80 3d 31 20 c8 97 20 b8 20 30 2c 30 3a 42 46 4c 25 |=1 .. . 0,0:BFL%|
00000b90 3d 32 3a 3d 30 0d 03 16 12 e7 20 42 46 4c 25 3c |=2:=0..... BFL%<|
00000ba0 3e 32 20 8c 20 3d 30 0d 03 20 3a 41 4d 58 25 3d |>2 . =0.. :AMX%=|
00000bb0 94 28 4d 58 25 29 3a 41 4d 59 25 3d 94 28 4d 59 |.(MX%):AMY%=.(MY|
00000bc0 25 29 3a e7 20 b6 28 41 4d 58 25 2a 41 4d 58 25 |%):. .(AMX%*AMX%|
00000bd0 2b 41 4d 59 25 2a 41 4d 59 25 29 3c 33 30 20 3d |+AMY%*AMY%)<30 =|
00000be0 30 0d 03 2a 22 e7 20 41 4d 59 25 3d 30 20 41 4d |0..*". AMY%=0 AM|
00000bf0 44 3d 32 20 8b 20 41 4d 44 3d 41 4d 58 25 2f 41 |D=2 . AMD=AMX%/A|
00000c00 4d 59 25 0d 03 34 20 52 49 47 48 54 25 3d b4 28 |MY%..4 RIGHT%=.(|
00000c10 4d 58 25 29 3d 31 3a 55 50 25 3d b4 28 4d 59 25 |MX%)=1:UP%=.(MY%|
00000c20 29 3d 31 0d 03 3e 0f e7 20 41 4d 44 3c 2e 35 38 |)=1..>.. AMD<.58|
00000c30 20 8c 0d 03 48 14 20 e7 20 55 50 25 20 8c 20 3d | ...H. . UP% . =|
00000c40 31 20 8b 20 3d 35 0d 03 52 05 cd 0d 03 5c 10 e7 |1 . =5..R....\..|
00000c50 20 41 4d 44 3e 31 2e 37 33 20 8c 0d 03 66 17 20 | AMD>1.73 ...f. |
00000c60 e7 20 52 49 47 48 54 25 20 8c 20 3d 33 20 8b 20 |. RIGHT% . =3 . |
00000c70 3d 37 0d 03 70 05 cd 0d 03 7a 17 e7 20 52 49 47 |=7..p....z.. RIG|
00000c80 48 54 25 20 80 20 55 50 25 20 8c 20 3d 32 0d 03 |HT% . UP% . =2..|
00000c90 84 11 e7 20 52 49 47 48 54 25 20 8c 20 3d 34 0d |... RIGHT% . =4.|
00000ca0 03 8e 0e e7 20 55 50 25 20 8c 20 3d 38 0d 03 98 |.... UP% . =8...|
00000cb0 06 3d 36 0d 03 a2 05 3a 0d 03 ac 23 dd 20 f2 6f |.=6....:...#. .o|
00000cc0 66 66 65 6e 73 69 76 65 3a 59 46 2d 3d 2e 32 3a |ffensive:YF-=.2:|
00000cd0 e7 20 59 46 3c 30 20 59 46 3d 30 0d 03 b6 1d 4d |. YF<0 YF=0....M|
00000ce0 44 25 3d 4d 44 25 2a 32 2d 32 3a c8 97 20 4d 58 |D%=MD%*2-2:.. MX|
00000cf0 25 2c 4d 59 25 2c 42 25 0d 03 c0 53 e7 20 54 49 |%,MY%,B%...S. TI|
00000d00 25 3c 32 36 20 50 52 25 3d 39 30 20 8b 20 e7 20 |%<26 PR%=90 . . |
00000d10 54 49 25 3c 35 31 20 50 52 25 3d 37 35 20 8b 20 |TI%<51 PR%=75 . |
00000d20 e7 20 54 49 25 3c 37 36 20 50 52 25 3d 35 30 20 |. TI%<76 PR%=50 |
00000d30 8b 20 e7 20 54 49 25 3c 31 30 31 20 50 52 25 3d |. . TI%<101 PR%=|
00000d40 32 35 20 8b 20 50 52 25 3d 31 30 0d 03 ca 17 e7 |25 . PR%=10.....|
00000d50 20 b3 28 31 30 30 29 3c 50 52 25 20 4d 44 25 2b | .(100)<PR% MD%+|
00000d60 3d 31 0d 03 d4 18 f2 73 65 74 5f 70 61 74 68 28 |=1.....set_path(|
00000d70 4d 44 25 29 3a f2 6d 6f 76 65 0d 03 de 05 e1 0d |MD%):.move......|
00000d80 03 e8 05 3a 0d 03 f2 23 dd 20 f2 64 65 66 65 6e |...:...#. .defen|
00000d90 73 69 76 65 3a 59 46 2b 3d 2e 32 3a e7 20 59 46 |sive:YF+=.2:. YF|
00000da0 3e 31 20 59 46 3d 31 0d 03 fc 54 41 54 54 25 3d |>1 YF=1...TATT%=|
00000db0 b3 28 33 29 3a f2 73 65 74 5f 70 61 74 68 28 41 |.(3):.set_path(A|
00000dc0 54 54 25 2b 31 35 29 3a c8 99 22 4f 53 5f 53 70 |TT%+15):.."OS_Sp|
00000dd0 72 69 74 65 4f 70 22 2c 32 38 30 2c 53 53 50 25 |riteOp",280,SSP%|
00000de0 2c 22 61 22 2b c3 41 54 54 25 20 b8 20 2c 2c 49 |,"a"+.ATT% . ,,I|
00000df0 43 25 3a 2a 46 58 20 32 31 2c 39 0d 04 06 43 f2 |C%:*FX 21,9...C.|
00000e00 6d 6f 76 65 3a 54 49 25 3d 34 30 2b 34 30 2a 28 |move:TI%=40+40*(|
00000e10 31 2d 41 56 29 3a d1 3d 30 3a f5 3a 4d 44 25 3d |1-AV):.=0:.:MD%=|
00000e20 a4 6d 6f 75 73 65 5f 64 69 72 3a fd 20 4d 44 25 |.mouse_dir:. MD%|
00000e30 20 84 20 91 3e 54 49 25 3a 49 43 25 3d 30 0d 04 | . .>TI%:IC%=0..|
00000e40 10 0d e7 20 4d 44 25 3d 30 20 8c 0d 04 1a 17 20 |... MD%=0 ..... |
00000e50 f2 73 65 74 5f 70 61 74 68 28 31 38 2b 41 54 54 |.set_path(18+ATT|
00000e60 25 29 0d 04 24 05 cc 0d 04 2e 61 20 e7 20 41 54 |%)..$.....a . AT|
00000e70 54 25 3d 31 20 80 20 4d 44 25 3d 33 20 84 20 41 |T%=1 . MD%=3 . A|
00000e80 54 54 25 3d 32 20 80 20 4d 44 25 3d 31 20 84 20 |TT%=2 . MD%=1 . |
00000e90 41 54 54 25 3d 33 20 80 20 4d 44 25 3d 37 20 8c |ATT%=3 . MD%=7 .|
00000ea0 20 f2 73 65 74 5f 70 61 74 68 28 32 34 2b 41 54 | .set_path(24+AT|
00000eb0 54 25 29 20 8b 20 f2 73 65 74 5f 70 61 74 68 28 |T%) . .set_path(|
00000ec0 32 31 2b 41 54 54 25 29 0d 04 38 05 cd 0d 04 42 |21+ATT%)..8....B|
00000ed0 09 f2 6d 6f 76 65 0d 04 4c 05 e1 0d 04 56 05 3a |..move..L....V.:|
00000ee0 0d 04 60 1a dd 20 f2 73 65 74 5f 70 61 74 68 28 |..`.. .set_path(|
00000ef0 50 25 29 3a f7 20 8d 54 7c 45 0d 04 6a 2a e7 20 |P%):. .T|E..j*. |
00000f00 50 25 3c 3e 30 20 e3 20 49 25 3d 31 b8 50 25 3a |P%<>0 . I%=1.P%:|
00000f10 f5 3a f3 20 4a 25 3a fd 4a 25 3d 39 39 3a ed 3a |.:. J%:.J%=99:.:|
00000f20 f3 20 4a 25 0d 04 74 05 e1 0d 04 7e 05 3a 0d 04 |. J%..t....~.:..|
00000f30 88 0b dd 20 f2 6d 6f 76 65 0d 04 92 0d f3 20 41 |... .move..... A|
00000f40 53 25 2c 59 53 25 0d 04 9c 4f f5 3a f2 65 6e 28 |S%,YS%...O.:.en(|
00000f50 41 53 25 20 80 20 33 31 29 3a f2 73 77 28 59 53 |AS% . 31):.sw(YS|
00000f60 25 20 80 20 33 31 29 3a e7 20 49 43 25 3c 3e 30 |% . 31):. IC%<>0|
00000f70 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 | .."OS_SpriteOp"|
00000f80 2c 35 34 36 2c 53 53 50 25 2c 49 43 25 2c 31 30 |,546,SSP%,IC%,10|
00000f90 30 2c 35 30 30 0d 04 a6 58 f2 66 6c 69 70 3a e7 |0,500...X.flip:.|
00000fa0 20 59 53 25 20 80 20 36 34 20 f2 63 6c 61 6e 67 | YS% . 64 .clang|
00000fb0 20 8b 20 e7 20 41 53 25 20 80 20 31 32 38 20 f2 | . . AS% . 128 .|
00000fc0 79 6f 75 5f 68 75 72 74 20 8b 20 e7 20 59 53 25 |you_hurt . . YS%|
00000fd0 20 80 20 31 32 38 20 f2 68 65 5f 68 75 72 74 20 | . 128 .he_hurt |
00000fe0 8b 20 c8 96 3a c8 96 3a c8 96 3a c8 96 0d 04 b0 |. ..:..:..:.....|
00000ff0 16 f3 20 41 53 25 2c 59 53 25 3a fd 20 41 53 25 |.. AS%,YS%:. AS%|
00001000 3d 39 39 0d 04 ba 05 e1 0d 04 c4 05 3a 0d 04 ce |=99.........:...|
00001010 49 dd 20 f2 79 6f 75 5f 68 75 72 74 3a c8 a1 31 |I. .you_hurt:..1|
00001020 2c 22 49 72 6f 6e 45 66 66 65 63 74 2d 48 75 72 |,"IronEffect-Hur|
00001030 74 22 3a d4 31 2c 26 31 37 46 2c 26 32 35 35 30 |t":.1,&17F,&2550|
00001040 2c 31 3a 59 56 2d 3d 2e 32 35 3a e7 20 59 56 3c |,1:YV-=.25:. YV<|
00001050 30 20 59 56 3d 30 0d 04 d8 3c c8 96 3a c8 96 3a |0 YV=0...<..:..:|
00001060 ef 31 39 3b 32 34 2c 32 34 30 2c 30 2c 30 3a fb |.19;24,240,0,0:.|
00001070 20 30 2c 32 34 30 2c 30 2c 30 3a c8 96 3a c8 96 | 0,240,0,0:..:..|
00001080 3a fb 20 30 2c 30 2c 30 2c 30 3a ef 31 39 3b 32 |:. 0,0,0,0:.19;2|
00001090 34 7c 0d 04 e2 05 e1 0d 04 ec 05 3a 0d 04 f6 64 |4|.........:...d|
000010a0 dd 20 f2 68 65 5f 68 75 72 74 3a c8 a1 31 2c 22 |. .he_hurt:..1,"|
000010b0 49 72 6f 6e 45 66 66 65 63 74 2d 48 75 72 74 22 |IronEffect-Hurt"|
000010c0 3a d4 31 2c 26 31 37 46 2c 26 32 30 30 30 2c 31 |:.1,&17F,&2000,1|
000010d0 3a 41 56 2d 3d a8 28 33 30 2a 28 28 31 2b 59 46 |:AV-=.(30*((1+YF|
000010e0 29 2f 32 29 2a 28 31 2d 28 41 56 2f 32 29 29 29 |)/2)*(1-(AV/2)))|
000010f0 2f 31 30 30 3a e7 20 41 56 3c 30 20 41 56 3d 30 |/100:. AV<0 AV=0|
00001100 0d 05 00 3c c8 96 3a c8 96 3a ef 31 39 3b 32 34 |...<..:..:.19;24|
00001110 2c 32 34 30 2c 30 2c 30 3a fb 20 30 2c 32 34 30 |,240,0,0:. 0,240|
00001120 2c 30 2c 30 3a c8 96 3a c8 96 3a ef 31 39 3b 32 |,0,0:..:..:.19;2|
00001130 34 7c 3a fb 20 30 2c 30 2c 30 2c 30 0d 05 0a 05 |4|:. 0,0,0,0....|
00001140 e1 0d 05 14 05 3a 0d 05 1e 45 dd 20 f2 63 6c 61 |.....:...E. .cla|
00001150 6e 67 3a e7 b3 28 32 29 3d 31 20 c8 a1 31 2c 22 |ng:..(2)=1 ..1,"|
00001160 49 72 6f 6e 45 66 66 65 63 74 2d 43 6c 61 6e 67 |IronEffect-Clang|
00001170 31 22 20 8b c8 a1 31 2c 22 49 72 6f 6e 45 66 66 |1" ...1,"IronEff|
00001180 65 63 74 2d 43 6c 61 6e 67 32 22 0d 05 28 15 d4 |ect-Clang2"..(..|
00001190 31 2c 26 31 37 46 2c 26 32 35 35 30 2c 31 3a e1 |1,&17F,&2550,1:.|
000011a0 0d 05 32 05 3a 0d 05 3c 42 dc 20 32 31 2c 30 2c |..2.:..<B. 21,0,|
000011b0 32 32 2c 31 32 2c 32 33 2c 31 33 2c 32 33 2c 34 |22,12,23,13,23,4|
000011c0 2c 32 33 2c 26 34 34 2c 32 33 2c 34 2c 32 33 2c |,23,&44,23,4,23,|
000011d0 31 33 2c 32 33 2c 31 32 2c 32 32 2c 30 2c 32 31 |13,23,12,22,0,21|
000011e0 2c 30 2c 39 39 2c 30 0d 05 46 26 dc 20 30 2c 31 |,0,99,0..F&. 0,1|
000011f0 32 2c 30 2c 31 33 2c 31 39 2c 26 38 32 2c 32 30 |2,0,13,19,&82,20|
00001200 2c 32 34 2c 31 39 2c 30 2c 39 39 2c 30 0d 05 50 |,24,19,0,99,0..P|
00001210 05 3a 0d 05 5a 23 dc 20 31 2c 30 2c 32 2c 32 30 |.:..Z#. 1,0,2,20|
00001220 2c 31 2c 32 31 2c 33 2c 26 35 36 2c 33 2c 31 31 |,1,21,3,&56,3,11|
00001230 2c 39 39 2c 30 0d 05 64 24 dc 20 30 2c 32 30 2c |,99,0..d$. 0,20,|
00001240 30 2c 32 31 2c 31 2c 32 32 2c 32 2c 26 41 30 2c |0,21,1,22,2,&A0,|
00001250 30 2c 31 31 2c 39 39 2c 30 0d 05 6e 05 3a 0d 05 |0,11,99,0..n.:..|
00001260 78 33 dc 20 32 32 2c 32 33 2c 32 33 2c 32 34 2c |x3. 22,23,23,24,|
00001270 32 33 2c 32 35 2c 32 33 2c 26 34 32 2c 32 33 2c |23,25,23,&42,23,|
00001280 37 2c 32 32 2c 31 33 2c 32 31 2c 30 2c 39 39 2c |7,22,13,21,0,99,|
00001290 30 0d 05 82 27 dc 20 30 2c 32 33 2c 30 2c 32 34 |0...'. 0,23,0,24|
000012a0 2c 32 31 2c 32 35 2c 32 32 2c 26 38 32 2c 32 31 |,21,25,22,&82,21|
000012b0 2c 32 34 2c 39 39 2c 30 0d 05 8c 05 3a 0d 05 96 |,24,99,0....:...|
000012c0 49 dc 20 31 31 2c 30 2c 31 32 2c 30 2c 31 34 2c |I. 11,0,12,0,14,|
000012d0 30 2c 31 35 2c 30 2c 31 36 2c 32 33 2c 31 37 2c |0,15,0,16,23,17,|
000012e0 32 34 2c 31 38 2c 26 35 39 2c 38 2c 38 2c 37 2c |24,18,&59,8,8,7,|
000012f0 39 2c 36 2c 30 2c 35 2c 30 2c 34 2c 30 2c 39 2c |9,6,0,5,0,4,0,9,|
00001300 30 2c 39 39 2c 30 0d 05 a0 27 dc 20 30 2c 32 33 |0,99,0...'. 0,23|
00001310 2c 31 32 2c 32 34 2c 31 34 2c 26 38 32 2c 31 35 |,12,24,14,&82,15|
00001320 2c 32 34 2c 31 37 2c 30 2c 39 39 2c 30 0d 05 aa |,24,17,0,99,0...|
00001330 05 3a 0d 05 b4 2e dc 20 30 2c 31 35 2c 31 31 2c |.:..... 0,15,11,|
00001340 31 36 2c 31 32 2c 26 34 45 2c 31 32 2c 31 34 2c |16,12,&4E,12,14,|
00001350 31 32 2c 31 34 2c 31 31 2c 31 35 2c 39 39 2c 30 |12,14,11,15,99,0|
00001360 0d 05 be 25 dc 20 30 2c 31 35 2c 30 2c 31 36 2c |...%. 0,15,0,16,|
00001370 30 2c 31 34 2c 31 30 2c 26 39 45 2c 30 2c 32 33 |0,14,10,&9E,0,23|
00001380 2c 39 39 2c 30 0d 05 c8 05 3a 0d 05 d2 37 dc 20 |,99,0....:...7. |
00001390 31 39 2c 31 37 2c 32 30 2c 31 38 2c 31 30 2c 31 |19,17,20,18,10,1|
000013a0 39 2c 31 30 2c 26 35 31 2c 31 30 2c 30 2c 31 30 |9,10,&51,10,0,10|
000013b0 2c 30 2c 32 30 2c 30 2c 31 39 2c 30 2c 39 39 2c |,0,20,0,19,0,99,|
000013c0 30 0d 05 dc 25 dc 20 30 2c 31 37 2c 30 2c 31 38 |0...%. 0,17,0,18|
000013d0 2c 30 2c 31 39 2c 31 39 2c 26 39 46 2c 30 2c 32 |,0,19,19,&9F,0,2|
000013e0 34 2c 39 39 2c 30 0d 05 e6 05 3a 0d 05 f0 27 dc |4,99,0....:...'.|
000013f0 20 31 2c 30 2c 32 2c 32 36 2c 31 2c 32 37 2c 33 | 1,0,2,26,1,27,3|
00001400 2c 32 38 2c 33 2c 26 35 44 2c 33 2c 30 2c 39 39 |,28,3,&5D,3,0,99|
00001410 2c 30 0d 05 fa 1f dc 20 30 2c 32 36 2c 31 2c 32 |,0..... 0,26,1,2|
00001420 37 2c 32 2c 32 38 2c 31 2c 26 39 44 2c 39 39 2c |7,2,28,1,&9D,99,|
00001430 30 0d 06 04 05 3a 0d 06 0e 38 dc 20 31 31 2c 30 |0....:...8. 11,0|
00001440 2c 31 32 2c 30 2c 31 34 2c 30 2c 31 35 2c 31 30 |,12,0,14,0,15,10|
00001450 2c 31 36 2c 39 2c 31 37 2c 38 2c 31 38 2c 26 34 |,16,9,17,8,18,&4|
00001460 37 2c 33 2c 38 2c 30 2c 39 2c 39 39 2c 30 0d 06 |7,3,8,0,9,99,0..|
00001470 18 29 dc 20 30 2c 31 30 2c 31 31 2c 39 2c 31 32 |.). 0,10,11,9,12|
00001480 2c 38 2c 31 34 2c 26 39 38 2c 31 35 2c 36 2c 30 |,8,14,&98,15,6,0|
00001490 2c 35 2c 39 39 2c 30 0d 06 22 05 3a 0d 06 2c 13 |,5,99,0..".:..,.|
000014a0 dc 20 31 30 2c 30 2c 34 2c 30 2c 39 39 2c 30 0d |. 10,0,4,0,99,0.|
000014b0 06 36 12 dc 20 31 2c 30 2c 32 2c 30 2c 39 39 2c |.6.. 1,0,2,0,99,|
000014c0 30 0d 06 40 14 dc 20 31 31 2c 30 2c 31 32 2c 30 |0..@.. 11,0,12,0|
000014d0 2c 39 39 2c 30 0d 06 4a 05 3a 0d 06 54 24 dc 20 |,99,0..J.:..T$. |
000014e0 35 2c 30 2c 36 2c 30 2c 37 2c 30 2c 38 2c 30 2c |5,0,6,0,7,0,8,0,|
000014f0 26 39 32 2c 30 2c 33 2c 30 2c 39 39 2c 30 0d 06 |&92,0,3,0,99,0..|
00001500 5e 14 dc 20 31 2c 30 2c 26 38 33 2c 30 2c 39 39 |^.. 1,0,&83,0,99|
00001510 2c 30 0d 06 68 28 dc 20 31 34 2c 30 2c 31 35 2c |,0..h(. 14,0,15,|
00001520 30 2c 31 36 2c 30 2c 31 37 2c 30 2c 26 39 32 2c |0,16,0,17,0,&92,|
00001530 30 2c 33 2c 30 2c 39 39 2c 30 0d 06 72 05 3a 0d |0,3,0,99,0..r.:.|
00001540 06 7c 24 dc 20 35 2c 30 2c 36 2c 30 2c 37 2c 30 |.|$. 5,0,6,0,7,0|
00001550 2c 38 2c 30 2c 26 39 32 2c 35 2c 33 2c 36 2c 39 |,8,0,&92,5,3,6,9|
00001560 39 2c 30 0d 06 86 14 dc 20 31 2c 30 2c 26 38 33 |9,0..... 1,0,&83|
00001570 2c 35 2c 39 39 2c 30 0d 06 90 29 dc 20 31 34 2c |,5,99,0...). 14,|
00001580 30 2c 31 35 2c 30 2c 31 36 2c 30 2c 31 37 2c 30 |0,15,0,16,0,17,0|
00001590 2c 26 39 32 2c 31 30 2c 33 2c 39 2c 39 39 2c 30 |,&92,10,3,9,99,0|
000015a0 0d 06 9a 05 3a 0d 06 a4 30 dc 20 35 2c 35 2c 36 |....:...0. 5,5,6|
000015b0 2c 36 2c 37 2c 37 2c 38 2c 38 2c 38 2c 38 2c 37 |,6,7,7,8,8,8,8,7|
000015c0 2c 26 34 37 2c 36 2c 36 2c 35 2c 35 2c 39 2c 30 |,&47,6,6,5,5,9,0|
000015d0 2c 39 39 2c 30 0d 06 ae 1c dc 20 31 2c 35 2c 33 |,99,0..... 1,5,3|
000015e0 2c 31 2c 33 2c 26 34 31 2c 30 2c 35 2c 39 39 2c |,1,3,&41,0,5,99,|
000015f0 30 0d 06 b8 3b dc 20 31 34 2c 31 30 2c 31 35 2c |0...;. 14,10,15,|
00001600 39 2c 31 36 2c 38 2c 31 37 2c 37 2c 31 37 2c 36 |9,16,8,17,7,17,6|
00001610 2c 31 36 2c 26 34 37 2c 31 35 2c 38 2c 31 32 2c |,16,&47,15,8,12,|
00001620 39 2c 31 31 2c 31 30 2c 39 39 2c 30 0d 06 c2 05 |9,11,10,99,0....|
00001630 3a 0d 06 cc 24 dd 20 f2 77 70 72 28 53 24 29 3a |:...$. .wpr(S$):|
00001640 ea 20 54 24 2c 50 25 2c 59 25 3a 54 24 3d 53 24 |. T$,P%,Y%:T$=S$|
00001650 3a 59 25 3d 30 0d 06 d6 05 f5 0d 06 e0 10 20 e7 |:Y%=0......... .|
00001660 20 a9 54 24 3e 57 57 25 20 8c 0d 06 ea 28 20 20 | .T$>WW% ....( |
00001670 50 25 3d 57 57 25 2b 31 3a c8 95 20 c1 54 24 2c |P%=WW%+1:.. .T$,|
00001680 50 25 2c 31 29 3c 3e 22 20 22 3a 50 25 2d 3d 31 |P%,1)<>" ":P%-=1|
00001690 3a ce 0d 06 f4 16 20 20 54 24 3d c2 54 24 2c a9 |:..... T$=.T$,.|
000016a0 28 54 24 29 2d 50 25 29 0d 06 fe 06 20 cc 0d 07 |(T$)-P%).... ...|
000016b0 08 0b 20 20 54 24 3d 22 22 0d 07 12 06 20 cd 0d |.. T$="".... ..|
000016c0 07 1c 0a 20 59 25 2b 3d 31 0d 07 26 0b fd 20 54 |... Y%+=1..&.. T|
000016d0 24 3d 22 22 0d 07 30 11 59 25 3d 57 59 43 25 2b |$=""..0.Y%=WYC%+|
000016e0 59 25 2a 31 38 0d 07 3a 0b f5 3a 54 24 3d 22 22 |Y%*18..:..:T$=""|
000016f0 0d 07 44 10 20 e7 20 a9 53 24 3e 57 57 25 20 8c |..D. . .S$>WW% .|
00001700 0d 07 4e 28 20 20 50 25 3d 57 57 25 2b 31 3a c8 |..N( P%=WW%+1:.|
00001710 95 20 c1 53 24 2c 50 25 2c 31 29 3c 3e 22 20 22 |. .S$,P%,1)<>" "|
00001720 3a 50 25 2d 3d 31 3a ce 0d 07 58 23 20 20 54 24 |:P%-=1:...X# T$|
00001730 3d c2 53 24 2c a9 28 53 24 29 2d 50 25 29 3a 53 |=.S$,.(S$)-P%):S|
00001740 24 3d c0 53 24 2c 50 25 2d 31 29 0d 07 62 06 20 |$=.S$,P%-1)..b. |
00001750 cd 0d 07 6c 26 20 ec 20 57 58 43 25 2d 31 36 2a |...l& . WXC%-16*|
00001760 a9 53 24 2c 59 25 3a f1 53 24 3a 59 25 2d 3d 33 |.S$,Y%:.S$:Y%-=3|
00001770 36 3a 53 24 3d 54 24 0d 07 76 0d fd 20 53 24 3d |6:S$=T$..v.. S$=|
00001780 22 22 3a e1 0d 07 80 05 3a 0d 07 8a 24 dd 20 f2 |"":.....:...$. .|
00001790 72 65 63 74 28 58 25 2c 59 25 2c 57 25 2c 48 25 |rect(X%,Y%,W%,H%|
000017a0 29 3a ea 20 43 25 3a f7 20 8d 74 68 47 0d 07 94 |):. C%:. .thG...|
000017b0 65 f3 20 4e 25 3a e3 20 4c 25 3d 31 20 b8 20 4e |e. N%:. L%=1 . N|
000017c0 25 3a f3 20 43 25 3a e6 20 43 25 3a c8 93 20 58 |%:. C%:. C%:.. X|
000017d0 25 2c 59 25 2c 57 25 2c 48 25 3a 58 25 2b 3d 34 |%,Y%,W%,H%:X%+=4|
000017e0 3a 59 25 2b 3d 34 3a 57 25 2d 3d 38 3a 48 25 2d |:Y%+=4:W%-=8:H%-|
000017f0 3d 38 3a ed 3a f3 20 43 25 3a e6 20 43 25 3a c8 |=8:.:. C%:. C%:.|
00001800 93 20 c8 90 20 58 25 2c 59 25 2c 57 25 2c 48 25 |. .. X%,Y%,W%,H%|
00001810 3a e1 0d 07 9e 05 3a 0d 07 a8 12 dc 20 34 2c 36 |:.....:..... 4,6|
00001820 2c 37 2c 38 2c 31 30 2c 39 0d 07 b2 05 3a 0d 07 |,7,8,10,9....:..|
00001830 bc 15 dd 20 f2 6d 6f 75 73 65 3a 2a 46 58 20 32 |... .mouse:*FX 2|
00001840 31 2c 39 0d 07 c6 34 f5 3a c8 97 20 4d 58 25 2c |1,9...4.:.. MX%,|
00001850 4d 59 25 2c 42 25 3a fd 20 42 25 3d 30 3a f5 3a |MY%,B%:. B%=0:.:|
00001860 c8 97 20 4d 58 25 2c 4d 59 25 2c 42 25 3a fd 20 |.. MX%,MY%,B%:. |
00001870 42 25 3c 3e 30 3a e1 0d 07 d0 05 3a 0d 07 da 0a |B%<>0:.....:....|
00001880 dd 20 f2 61 73 6d 0d 07 e4 20 73 70 3d 31 33 3a |. .asm... sp=13:|
00001890 6c 69 6e 6b 3d 31 34 3a 4f 53 5f 57 72 69 74 65 |link=14:OS_Write|
000018a0 49 3d 26 31 30 30 0d 07 ee 12 e3 20 4f 25 3d 30 |I=&100..... O%=0|
000018b0 20 b8 20 32 20 88 20 32 0d 07 f8 0c 50 25 3d 63 | . 2 . 2....P%=c|
000018c0 6f 64 65 25 0d 08 02 0b 5b 4f 50 54 20 4f 25 0d |ode%....[OPT O%.|
000018d0 08 0c 11 5c 20 43 6f 70 79 20 73 63 72 65 65 6e |...\ Copy screen|
000018e0 0d 08 16 2b 2e 63 6f 70 79 20 4d 4f 56 20 52 30 |...+.copy MOV R0|
000018f0 2c 23 32 30 30 3a 4c 44 52 20 52 31 2c 66 72 6f |,#200:LDR R1,fro|
00001900 6d 3a 4c 44 52 20 52 32 2c 74 6f 0d 08 20 c2 2e |m:LDR R2,to.. ..|
00001910 63 6c 70 20 4c 44 4d 49 41 20 52 31 21 2c 7b 52 |clp LDMIA R1!,{R|
00001920 33 2d 52 31 32 7d 3a 53 54 4d 49 41 20 52 32 21 |3-R12}:STMIA R2!|
00001930 2c 7b 52 33 2d 52 31 32 7d 3a 4c 44 4d 49 41 20 |,{R3-R12}:LDMIA |
00001940 52 31 21 2c 7b 52 33 2d 52 31 32 7d 3a 53 54 4d |R1!,{R3-R12}:STM|
00001950 49 41 20 52 32 21 2c 7b 52 33 2d 52 31 32 7d 3a |IA R2!,{R3-R12}:|
00001960 4c 44 4d 49 41 20 52 31 21 2c 7b 52 33 2d 52 31 |LDMIA R1!,{R3-R1|
00001970 32 7d 3a 53 54 4d 49 41 20 52 32 21 2c 7b 52 33 |2}:STMIA R2!,{R3|
00001980 2d 52 31 32 7d 3a 4c 44 4d 49 41 20 52 31 21 2c |-R12}:LDMIA R1!,|
00001990 7b 52 33 2d 52 31 32 7d 3a 53 54 4d 49 41 20 52 |{R3-R12}:STMIA R|
000019a0 32 21 2c 7b 52 33 2d 52 31 32 7d 3a 53 55 42 53 |2!,{R3-R12}:SUBS|
000019b0 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 63 6c | R0,R0,#1:BNE cl|
000019c0 70 3a 4d 4f 56 20 50 43 2c 6c 69 6e 6b 0d 08 2a |p:MOV PC,link..*|
000019d0 05 5c 0d 08 34 13 2e 66 72 6f 6d 20 45 51 55 44 |.\..4..from EQUD|
000019e0 20 4f 53 43 25 0d 08 3e 0f 2e 74 6f 20 45 51 55 | OSC%..>..to EQU|
000019f0 44 20 54 25 0d 08 48 05 5c 0d 08 52 0a 2e 64 65 |D T%..H.\..R..de|
00001a00 6c 74 61 0d 08 5c 17 5c 52 30 3d 53 63 72 65 65 |lta..\.\R0=Scree|
00001a10 6e 2c 20 52 31 3d 44 61 74 61 0d 08 66 22 4d 4f |n, R1=Data..f"MO|
00001a20 56 20 52 31 32 2c 23 26 46 46 3a 84 52 20 52 31 |V R12,#&FF:.R R1|
00001a30 32 2c 52 31 32 2c 23 26 46 46 30 30 0d 08 70 0b |2,R12,#&FF00..p.|
00001a40 2e 64 5f 6c 6f 6f 70 0d 08 7a 12 4c 44 52 20 52 |.d_loop..z.LDR R|
00001a50 32 2c 5b 52 31 5d 2c 23 34 0d 08 84 20 4d 4f 56 |2,[R1],#4... MOV|
00001a60 53 20 52 33 2c 52 32 2c 4c 53 52 23 31 36 3a ec |S R3,R2,LSR#16:.|
00001a70 51 20 50 43 2c 6c 69 6e 6b 0d 08 8e 1c 80 20 52 |Q PC,link..... R|
00001a80 32 2c 52 32 2c 52 31 32 3a 41 44 44 20 52 32 2c |2,R2,R12:ADD R2,|
00001a90 52 32 2c 52 30 0d 08 98 0b 2e 75 5f 6c 6f 6f 70 |R2,R0.....u_loop|
00001aa0 0d 08 a2 21 4c 44 52 20 52 34 2c 5b 52 31 5d 2c |...!LDR R4,[R1],|
00001ab0 23 34 3a 53 54 52 20 52 34 2c 5b 52 32 5d 2c 23 |#4:STR R4,[R2],#|
00001ac0 34 0d 08 ac 1c 53 55 42 53 20 52 33 2c 52 33 2c |4....SUBS R3,R3,|
00001ad0 23 31 3a 42 4e 45 20 75 5f 6c 6f 6f 70 0d 08 b6 |#1:BNE u_loop...|
00001ae0 0c 42 20 64 5f 6c 6f 6f 70 0d 08 c0 05 5d 0d 08 |.B d_loop....]..|
00001af0 ca 41 e7 20 50 25 3e 28 63 6f 64 65 25 2b 73 70 |.A. P%>(code%+sp|
00001b00 61 63 65 25 29 20 eb 20 31 35 3a f1 22 4e 6f 74 |ace%) . 15:."Not|
00001b10 20 65 6e 6f 75 67 68 20 63 6f 64 65 20 73 70 61 | enough code spa|
00001b20 63 65 2e 22 3a ff 22 44 49 52 20 24 22 3a e0 0d |ce.":."DIR $":..|
00001b30 08 d4 05 ed 0d 08 de 05 e1 0d 08 e8 05 3a 0d 08 |.............:..|
00001b40 f2 12 dd 20 f2 65 72 72 6f 72 3a ee 20 85 20 87 |... .error:. . .|
00001b50 0d 08 fc 12 eb 20 31 35 3a 87 3a d6 93 2b 26 32 |..... 15:.:..+&2|
00001b60 31 34 0d 09 06 0a 2a 46 58 20 32 30 0d 09 10 51 |14....*FX 20...Q|
00001b70 e7 20 9f 3d 31 37 20 f1 22 47 6f 6f 64 62 79 65 |. .=17 ."Goodbye|
00001b80 2e 22 20 8b 20 f1 22 49 72 6f 6e 20 4c 6f 72 64 |." . ."Iron Lord|
00001b90 20 68 61 73 20 73 74 6f 70 70 65 64 20 62 65 63 | has stopped bec|
00001ba0 61 75 73 65 20 6f 66 20 61 20 66 61 74 61 6c 20 |ause of a fatal |
00001bb0 65 72 72 6f 72 20 3a 2d 22 27 27 f6 24 0d 09 1a |error :-"''.$...|
00001bc0 05 e1 0d ff |....|
00001bc4 
.