Home » Archimedes archive » Acorn User » AU 1997-11 B.adf » Regulars » StarInfo/spooky/AdcSpenc/!Spook/spook
StarInfo/spooky/AdcSpenc/!Spook/spook
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-11 B.adf » Regulars |
| Filename: | StarInfo/spooky/AdcSpenc/!Spook/spook |
| Read OK: | ✔ |
| File size: | 2B99 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE13:OFF
20ON ERROR PROCERROR
30SYS"XOS_CLI","QTMStart"
40PROCChangableVariables
50SX%=64
60SY%=64
70mem%=SX%*SY%*(NumberOfSteps%+1)*NumberOfSpooks%+210000
80Big1%=SX%*SY%*NumberOfSteps%
90SpriteSize%=SX%*SY%
100area%=FNSpriteArea_Init(100*1000)
110PROCLoad_Sprite(area%,"<Spook$Dir>.Sprites")
120PROCFindBaseAddress
130PROCInit_FastScan
140PROCScanSprites
150PROCSetUp_Spook
160IF fast%THEN PROCFAST_PLOT ELSE PROCSLOW_PLOT
170PROCReflection_Init
180PROCInit_Starz2
190PROCInit_FCLS
200PROCTables
210PROCSetUpMovement
220ang%=90
230REPEAT
240FOR L=1TOGN%
250OJX%=JX%(L)
260OJY%=JY%(L)
270PROCMovement(L)
280PROCSpook_Plot(JX%(L),JY%(L),OJX%,OJY%)
290NEXT L
300PROCReflection_Update(Bank%)
310SYS6,19
320SYS6,112,3-Bank%
330SYS6,113,Bank%
340Bank%=3-Bank%
350D%=BA%(Bank%)
360CALL FastCLS%
370CALL moonplot%
380CALL hillplot%
390CALL Starz2
400UNTIL0
410END
420DEF PROCFindBaseAddress
430DIM BA%(2)
440FOR Bank%=2TO1STEP-1
450SYS6,112,Bank%:SYS6,113,Bank%:CLS:BA%(Bank%)=FNFindBaseAddress
460NEXT Bank%
470Bank%=1
480ENDPROC
490DEF FNFindBaseAddress
500DIM i 8
510DIM o 4
520i!0=149
530i!4=-1
540SYS"OS_ReadVduVariables",i,o
550=o!0
560DEF PROCConvertSprites(N$,Scale,offset%)
570LOCAL o%
580B%=BA%(2)
590C%=SX%
600D%=SY%
610FOR S%=0TONumberOfSteps%-1
620CLS:OFF
630PROCRot_Sprite(area%,128,1024-128,N$,INT(360*S%/NumberOfSteps%)+1,128*Scale,128*Scale)
640A%=Sprite%+(SX%*SY%)*S%+offset%
650CALL grab
660NEXT S%
670ENDPROC
680DEF PROCRot_Sprite(sa%,X%,Y%,N$,ANG%,XS%,YS%)
690X1=-XS%:Y1=YS%:PROCROT(X1,Y1,ANG%):X1=NX+X%:Y1=NY+Y%
700X2=XS%:Y2=YS%:PROCROT(X2,Y2,ANG%):X2=NX+X%:Y2=NY+Y%
710X3=XS%:Y3=-YS%:PROCROT(X3,Y3,ANG%):X3=NX+X%:Y3=NY+Y%
720X4=-XS%:Y4=-YS%:PROCROT(X4,Y4,ANG%):X4=NX+X%:Y4=NY+Y%
730RSBlk%!0=INT(X1)*256
740RSBlk%!4=INT(Y1)*256
750RSBlk%!8=INT(X2)*256
760RSBlk%!12=INT(Y2)*256
770RSBlk%!16=INT(X3)*256
780RSBlk%!20=INT(Y3)*256
790RSBlk%!24=INT(X4)*256
800RSBlk%!28=INT(Y4)*256
810SYS"OS_SpriteOp",56+256,sa%,N$,1,,8,RSBlk%
820ENDPROC
830DEF PROCInit_Rot_Sprite
840DIM RSBlk%32
850ENDPROC
860DEF FNSpriteArea_Init(size%)
870LOCAL area_ptr
880DIM area_ptr size%
890area_ptr!0=size%-1:area_ptr!4=0:area_ptr!8=16:area_ptr!12=16
900=area_ptr
910DEF PROCGet_Sprite(sa%,N$,X%,Y%,X2%,Y2%)
920SYS"OS_SpriteOp",16+256,sa%,N$,0,X%,Y%,X2%,Y2%
930ENDPROC
940DEF PROCLoad_Sprite(sa%,N$)
950SYS"OS_SpriteOp",10+256,sa%,N$
960ENDPROC
970DEF PROCSprite_Choose(sa%,N$)
980SYS"OS_SpriteOp",24+256,sa%,N$
990ENDPROC
1000DEF PROCSprite_Plot(sa%,N$,X%,Y%,pa%)
1010SYS"OS_SpriteOp",34+256,sa%,N$,X%,Y%,pa%
1020ENDPROC
1030DEF PROCROT(X%,Y%,A)
1040A=RAD(A)
1050NX=X%*COS(A)-Y%*SIN(A)
1060NY=X%*SIN(A)+Y%*COS(A)
1070ENDPROC
1080DEF PROCSetUpMovement
1090DIM JX%(GN%),JY%(GN%),JR%(GN%),JS%(GN%),JSP%(GN%),JSIZE(GN%),JTSIZE(GN%)
1100JX%()=300
1110JY%()=512
1120JR%()=0
1130JSP%()=0
1140FOR L=0TOGN%
1150JSIZE(L)=RND(8)+1
1160JTSIZE(L)=RND(8)+1
1170JS%(L)=RND(250)*SGN(RND)
1180NEXT L
1190ENDPROC
1200DEF PROCMovement(L)
1210Sprite_No%=(NumberOfSpooks%-1)*JSIZE(L)/10
1220R=Sprite_No%/NumberOfSpooks%
1230JXP%=R*32
1240IF JS%(L)>255THEN JS%(L)-=255
1250IF JS%(L)<-255THEN JS%(L)+=255
1260XP2%=((JXP%*cos%(JS%(L)+255))>>8)
1270YP2%=((JXP%*sin%(JS%(L)+255))>>8)
1280JX%(L)+=XP2%
1290JY%(L)+=YP2%
1300IF(JX%(L)>1000ANDSGN(XP2%)=1)OR(JX%(L)<200ANDSGN(XP2%)=-1)OR(JY%(L)>700ANDSGN(YP2%)=1)OR(JY%(L)<300ANDSGN(YP2%)=-1)THEN JSP%(L)=16*R:JR%(L)=45/JSP%(L)
1310IF JR%(L)>0THEN JR%(L)-=1:JS%(L)+=JSP%(L)ELSE IF RND(10)=1THEN JR%(L)=RND(5)+5:JSP%(L)=SGN(RND)*RND(15)
1320JSIZE(L)+=SGN((JTSIZE(L)-JSIZE(L)))/25
1330IF INT(JSIZE(L))=INT(JTSIZE(L))THEN JTSIZE(L)=RND(8)+1:N=RND(-TIME)
1340ENDPROC
1350DEF PROCSetUp_Spook
1360SYS6,112,2:CLS
1370SYS6,113,1
1380DIM Sprite%SX%*SY%*(NumberOfSteps%+1)*NumberOfSpooks%
1390PROCInit_Rot_Sprite
1400FOR Spook%=0TONumberOfSpooks%-1
1410PROCConvertSprites("spook0",Spook%/(NumberOfSpooks%-1),SX%*SY%*NumberOfSteps%*Spook%)
1420SYS6,112,1:PRINT "Generating Sprites... (";(Spook%+1);"/";NumberOfSpooks%;")"'''"(Memory Needed: ";INT(mem%/1000);" kbytes)":SYS6,112,2
1430NEXT Spook%
1440ENDPROC
1450DEF PROCSpook_Plot(MX%,MY%,OMX%,OMY%)
1460A%=(MX%>>2)-32
1470B%=223-(MY%>>2)
1480E%=BA%(Bank%)
1490tempy%=MY%-OMY%
1500IF tempy%THEN tempx%=MX%-OMX%:F%=270-SGN(tempy%)*90:ang%=F%-DEG(ATN(tempx%/tempy%))
1510IF ang%>=360 ang%-=360
1520SN%=NumberOfSteps%*(ang%/360)
1530!SprAdr%=Sprite%+SpriteSize%*SN%+Sprite_No%*Big1%
1540CALL plot
1550ENDPROC
1560DEF PROCERROR
1570ON ERROR OFF
1580SYS"XOS_CLI","RMkill QTMTracker"
1590SYS6,112,1
1600CLS
1610SYS6,113,1
1620PRINT REPORT$;" at line ";ERL
1630IF ERR=11 THEN PRINT '''"(Memory Needed: ";INT(mem%/1000);" KBytes)"
1640END
1650ENDPROC
1660DEF PROCFAST_PLOT
1670very=512
1680DIM Mark very
1690FOR pass%=0TO2STEP2
1700P%=Mark
1710[OPT pass%
1720.plot STMFD R13!,{R14}
1730MOV R2,#64
1740MOV R3,#64
1750LDR R7,SprAdr%
1760ADD R4,R4,R0
1770ADD R4,R4,R1,LSL#8
1780ADD R4,R4,R1,LSL#6
1790MOV R11,#255
1800.yloop MOV R9,R2
1810MOV R6,R4
1820.xloop
1830LDRB R0,[R7],#1
1840CMP R0,#0
1850ADDEQ R4,R4,#1
1860BEQ skip
1870LDRB R1,[R4]
1880MOV R12,R1
1890AND R11,R1,#%00000011
1900ADD R11,R11,R0
1910CMP R11,#%11
1920MOVGT R11,#%11
1930ORR R12,R12,R11
1940STRB R12,[R4],#1
1950.skip SUBS R9,R9,#1
1960BNE xloop
1970MOV R4,R6
1980ADD R4,R4,#320
1990SUBS R3,R3,#1
2000BNE yloop
2010LDMFD R13!,{PC}^
2020.SprAdr%EQUD 0
2030]
2040NEXT pass%
2050ENDPROC
2060DEF PROCSLOW_PLOT
2070very=512
2080DIM Mark very
2090FOR pass%=0TO2STEP2
2100P%=Mark
2110[OPT pass%
2120.plot STMFD R13!,{R14}
2130MOV R2,#64
2140MOV R3,#64
2150LDR R7,SprAdr%
2160ADD R4,R4,R0
2170ADD R4,R4,R1,LSL#8
2180ADD R4,R4,R1,LSL#6
2190MOV R11,#255
2200.yloop MOV R9,R2
2210MOV R6,R4
2220.xloop
2230LDRB R0,[R7],#1
2240CMP R0,#0
2250ADDEQ R4,R4,#1
2260BEQ skip
2270LDRB R1,[R4]
2280MOV R12,R1
2290AND R11,R1,#%00000100
2300AND R10,R1,#%00010000
2310ORR R10,R11,R10,LSR#1
2320ADD R10,R10,R0,LSL#2
2330CMP R10,#%1100
2340MOVGT R10,#%1100
2350AND R5,R10,#%1000
2360ORR R12,R12,R5,LSL#1
2370AND R5,R10,#%0100
2380ORR R12,R12,R5
2390AND R11,R1,#%01100000
2400ADD R11,R11,R0,LSL#5
2410CMP R11,#%01100000
2420MOVGT R11,#%01100000
2430ORR R12,R12,R11
2440AND R11,R1,#%10000000
2450AND R5,R1,#%00001000
2460ORR R5,R11,R5,LSL#3
2470ADD R5,R5,R0,LSL#6
2480CMP R5,#%11000000
2490MOVGT R5,#%11000000
2500AND R11,R5,#%01000000
2510ORR R5,R5,R11,LSR#3
2520AND R5,R5,#%10001000
2530ORR R12,R12,R5
2540STRB R12,[R4],#1
2550.skip SUBS R9,R9,#1
2560BNE xloop
2570MOV R4,R6
2580ADD R4,R4,#320
2590SUBS R3,R3,#1
2600BNE yloop
2610LDMFD R13!,{PC}^
2620.SprAdr%EQUD 0
2630]
2640NEXT pass%
2650ENDPROC
2660DEF PROCReflection_Init
2670NORS=40
2680DIM ripples%64*4*4*(NORS+1)
2690DIM reflection%512
2700FOR pass=0TO2STEP2
2710P%=reflection%
2720[OPT pass
2730.waves%EQUD 0
2740.pix%EQUD%00001000000010000000100000001000
2750.sp%EQUD 208*320
2760.sp2%EQUD 208*320
2770LDR R1,sp%
2780ADD R1,R1,R4
2790LDR R5,sp2%
2800ADD R2,R4,R5
2810LDR R11,pix%
2820ADD R4,R4,#5120
2830LDR R12,waves%
2840.fory%MOV R10,#320
2850LDR R3,[R12],#4
2860ADD R0,R1,R3
2870.forx%LDMIA R0!,{R5,R6,R7,R8,R9}
2880ORR R5,R5,R11
2890ORR R6,R6,R11
2900ORR R7,R7,R11
2910ORR R8,R8,R11
2920ORR R9,R9,R11
2930STMIA R2!,{R5,R6,R7,R8,R9}
2940SUBS R10,R10,#20
2950BNE forx%
2960SUB R1,R1,#320*4
2970CMP R1,R4
2980BGT fory%
2990MOV R15,R14
3000]
3010ReflectionP=0
3020FOR P=0TONORS
3030FOR L=0TO51
3040!(ripples%+L*4+P*4*52)=INT((SIN(L/5+ReflectionP)*8-8)*(L/51))*320
3050NEXT L
3060ReflectionP+=2*PI/NORS
3070NEXT P
3080ReflectionP=0
3090ENDPROC
3100DEF PROCReflection_Update(B%)
3110!waves%=ripples%+INT(ReflectionP)*52*4
3120ReflectionP+=ReflectionSpeed:IF ReflectionP>NORS ReflectionP=0
3130E%=BA%(B%)
3140CALL reflection%
3150ENDPROC
3160DEF PROCInit_Starz2
3170DIM G(16)
3180G(1)=%00000000
3190G(2)=%00000010
3200G(3)=%00000001
3210G(4)=%00000011
3220G(5)=%00101100
3230G(6)=%00101110
3240G(7)=%00101101
3250G(8)=%00101111
3260G(9)=%11010000
3270G(10)=%11010010
3280G(11)=%11010001
3290G(12)=%11010011
3300G(13)=%11111100
3310G(14)=%11111110
3320G(15)=%11111101
3330G(16)=%11111111
3340DIM Starz2_Blk%1024*12
3350FOR L=0TO1023
3360!(Starz2_Blk%+L*12+0)=(RND(320)+RND(253)*320)<<8
3370N=RND(4)
3380!(Starz2_Blk%+L*12+4)=N<<7
3390!(Starz2_Blk%+L*12+8)=G(16*N/4)
3400NEXT L
3410DIM Starz2 512
3420P%=Starz2
3430[OPT 2
3440.ScreenSize EQUD (320*253)<<8
3450.Starz2Data EQUD Starz2_Blk%
3460MOV R1,R3
3470LDR R0,Starz2Data
3480MOV R2,#128
3490MOV R8,#0
3500LDR R7,ScreenSize
3510.ForL LDR R3,[R0]
3520LDR R4,[R0,#4]
3530LDR R5,[R0,#8]
3540ADD R3,R3,R4
3550CMP R3,R7
3560MOVGE R3,#0
3570ADD R6,R1,R3,LSR#8
3580LDRB R9,[R6]
3590CMP R9,#0
3600STREQB R5,[R6]
3610STR R3,[R0],#12
3620ADD R8,R8,#1
3630CMP R8,R2
3640BLT ForL
3650MOV R15,R14
3660]
3670ENDPROC
3680DEF PROCTables
3690DIM cos%(512),sin%(512)
3700FOR L=0TO512
3710cos%(L)=COS(RAD(360*(L-255)/255))*256
3720sin%(L)=SIN(RAD(360*(L-255)/255))*256
3730NEXT L
3740ENDPROC
3750DEF PROCScanSprites
3760SYS6,112,2:SYS6,113,1
3770PROCSprite_Plot(area%,"moon",0,792,8)
3780PROCInit_Moon(2,225,30)
3790PROCSprite_Plot(area%,"castle",0,652,8)
3800PROCInit_Hill(2,12,116)
3810ENDPROC
3820DEF PROCInit_Hill(Bank%,X%,Y%)
3830DIM hill%14000
3840DIM hillcode%255
3850P%=hillcode%
3860[OPT 2
3870.hilldata%EQUD hill%
3880.hillplot%MOV R2,#172
3890MOV R5,#320
3900MOV R0,#X%
3910MOV R1,#Y%
3920MLA R4,R1,R5,R0
3930ADD R4,R4,R3
3940LDR R6,hilldata%
3950MOV R12,#93
3960.hloop%LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
3970STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
3980LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
3990STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4000LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4010STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4020LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4030STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4040LDMIA R6!,{R0}
4050STMIA R4!,{R0}
4060ADD R4,R4,R2
4070SUBS R12,R12,#1
4080BNE hloop%
4090MOV R15,R14
4100.hillscan%MOV R2,#172
4110MOV R5,#320
4120MLA R4,R1,R5,R0
4130ADD R4,R4,R3
4140LDR R6,hilldata%
4150MOV R12,#93
4160.hloop2%LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4170STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4180LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4190STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4200LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4210STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4220LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4230STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4240LDMIA R4!,{R0}
4250STMIA R6!,{R0}
4260ADD R4,R4,R2
4270SUBS R12,R12,#1
4280BNE hloop2%
4290MOV R15,R14
4300]
4310A%=0
4320B%=0
4330D%=BA%(Bank%)
4340CALL hillscan%
4350ENDPROC
4360DEF PROCInit_Moon(Bank%,X%,Y%)
4370DIM moon%3248
4380DIM mooncode%255
4390P%=mooncode%
4400[OPT 2
4410.moondata%EQUD moon%
4420.moonplot%MOV R2,#264
4430MOV R5,#320
4440MOV R0,#X%
4450MOV R1,#Y%
4460MLA R4,R1,R5,R0
4470ADD R4,R4,R3
4480LDR R6,moondata%
4490MOV R12,#58
4500.mloop%LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4510STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4520LDMIA R6!,{R0,R1,R3,R5,R7}
4530STMIA R4!,{R0,R1,R3,R5,R7}
4540ADD R4,R4,R2
4550SUBS R12,R12,#1
4560BNE mloop%
4570MOV R15,R14
4580.moonscan%MOV R2,#264
4590MOV R5,#320
4600MLA R4,R1,R5,R0
4610ADD R4,R4,R3
4620LDR R6,moondata%
4630MOV R12,#58
4640.mloop2%LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4650STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4660LDMIA R4!,{R0,R1,R3,R5,R7}
4670STMIA R6!,{R0,R1,R3,R5,R7}
4680ADD R4,R4,R2
4690SUBS R12,R12,#1
4700BNE mloop2%
4710MOV R15,R14
4720]
4730A%=0
4740B%=0
4750D%=BA%(Bank%)
4760CALL moonscan%
4770ENDPROC
4780DEF PROCInit_FCLS
4790DIM FastCLS%255
4800P%=FastCLS%
4810[OPT 2
4820MOV R1,#0
4830MOV R2,R1
4840MOV R0,R1
4850MOV R4,R1
4860MOV R5,R1
4870MOV R6,R1
4880MOV R7,R1
4890MOV R8,R1
4900MOV R9,R1
4910MOV R10,R1
4920MOV R11,R1
4930MOV R12,#210
4940.repeat%
4950STMIA R3!,{R0-R2,R4-R11}
4960STMIA R3!,{R0-R2,R4-R11}
4970STMIA R3!,{R0-R2,R4-R11}
4980STMIA R3!,{R0-R2,R4-R11}
4990STMIA R3!,{R0-R2,R4-R11}
5000STMIA R3!,{R0-R2,R4-R11}
5010STMIA R3!,{R0-R2,R4-R11}
5020STMIA R3!,{R0,R1,R2}
5030SUBS R12,R12,#1
5040BNE repeat%
5050MOV R15,R14
5060]
5070ENDPROC
5080DEF PROCInit_FastScan
5090extremely=256
5100DIM Mark extremely
5110FOR pass%=0TO2STEP2
5120P%=Mark
5130[OPT pass%
5140.grab MOV R7,#320
5150SUB R4,R2,#4
5160.gxloop SUB R5,R3,#1
5170.gyloop MLA R8,R7,R5,R1
5180ADD R8,R8,R4
5190LDR R6,[R8]
5200MLA R8,R2,R5,R0
5210ADD R8,R8,R4
5220STR R6,[R8]
5230SUBS R5,R5,#1
5240BGE gyloop
5250SUBS R4,R4,#4
5260BGE gxloop
5270MOVS PC,R14
5280]
5290NEXT pass%
5300ENDPROC
5310DEF PROCChangableVariables
5320NumberOfSteps%=24
5330NumberOfSpooks%=10
5340fast%=1
5350GN%=5
5360ReflectionSpeed=0.75
5370ENDPROC
�13:�
� � �ERROR
ș"XOS_CLI","QTMStart"
(�ChangableVariables
2
SX%=64
<
SY%=64
F:mem%=SX%*SY%*(NumberOfSteps%+1)*NumberOfSpooks%+210000
P Big1%=SX%*SY%*NumberOfSteps%
ZSpriteSize%=SX%*SY%
d$area%=�SpriteArea_Init(100*1000)
n-�Load_Sprite(area%,"<Spook$Dir>.Sprites")
x�FindBaseAddress
��Init_FastScan
��ScanSprites
��SetUp_Spook
�$� fast%� �FAST_PLOT � �SLOW_PLOT
��Reflection_Init
��Init_Starz2
��Init_FCLS
� �Tables
��SetUpMovement
� ang%=90
��
�
� L=1�GN%
�OJX%=JX%(L)
OJY%=JY%(L)
�Movement(L)
(�Spook_Plot(JX%(L),JY%(L),OJX%,OJY%)
"� L
, �Reflection_Update(Bank%)
6
ș6,19
@ș6,112,3-Bank%
Jș6,113,Bank%
TBank%=3-Bank%
^D%=BA%(Bank%)
h� FastCLS%
r� moonplot%
|� hillplot%
� � Starz2
��0
��
�� �FindBaseAddress
� � BA%(2)
�� Bank%=2�1�-1
�=ș6,112,Bank%:ș6,113,Bank%:�:BA%(Bank%)=�FindBaseAddress
� � Bank%
� Bank%=1
��
�� �FindBaseAddress
� � i 8
� � o 4
i!0=149
i!4=-1
ș"OS_ReadVduVariables",i,o
&=o!0
0'� �ConvertSprites(N$,Scale,offset%)
:� o%
D
B%=BA%(2)
N
C%=SX%
X
D%=SY%
b� S%=0�NumberOfSteps%-1
l�:�
vU�Rot_Sprite(area%,128,1024-128,N$,�(360*S%/NumberOfSteps%)+1,128*Scale,128*Scale)
�#A%=Sprite%+(SX%*SY%)*S%+offset%
�
� grab
�� S%
��
�,� �Rot_Sprite(sa%,X%,Y%,N$,ANG%,XS%,YS%)
�5X1=-XS%:Y1=YS%:�ROT(X1,Y1,ANG%):X1=NX+X%:Y1=NY+Y%
�4X2=XS%:Y2=YS%:�ROT(X2,Y2,ANG%):X2=NX+X%:Y2=NY+Y%
�5X3=XS%:Y3=-YS%:�ROT(X3,Y3,ANG%):X3=NX+X%:Y3=NY+Y%
�6X4=-XS%:Y4=-YS%:�ROT(X4,Y4,ANG%):X4=NX+X%:Y4=NY+Y%
�RSBlk%!0=�(X1)*256
�RSBlk%!4=�(Y1)*256
�RSBlk%!8=�(X2)*256
�RSBlk%!12=�(Y2)*256
RSBlk%!16=�(X3)*256
RSBlk%!20=�(Y3)*256
RSBlk%!24=�(X4)*256
RSBlk%!28=�(Y4)*256
*-ș"OS_SpriteOp",56+256,sa%,N$,1,,8,RSBlk%
4�
>� �Init_Rot_Sprite
H� RSBlk%32
R�
\ � �SpriteArea_Init(size%)
f� area_ptr
p� area_ptr size%
z@area_ptr!0=size%-1:area_ptr!4=0:area_ptr!8=16:area_ptr!12=16
�
=area_ptr
�'� �Get_Sprite(sa%,N$,X%,Y%,X2%,Y2%)
�1ș"OS_SpriteOp",16+256,sa%,N$,0,X%,Y%,X2%,Y2%
��
�� �Load_Sprite(sa%,N$)
�!ș"OS_SpriteOp",10+256,sa%,N$
��
� � �Sprite_Choose(sa%,N$)
�!ș"OS_SpriteOp",24+256,sa%,N$
��
�$� �Sprite_Plot(sa%,N$,X%,Y%,pa%)
�+ș"OS_SpriteOp",34+256,sa%,N$,X%,Y%,pa%
��
� �ROT(X%,Y%,A)
A=�(A)
NX=X%*�(A)-Y%*�(A)
$NY=X%*�(A)+Y%*�(A)
.�
8� �SetUpMovement
BJ� JX%(GN%),JY%(GN%),JR%(GN%),JS%(GN%),JSP%(GN%),JSIZE(GN%),JTSIZE(GN%)
L
JX%()=300
V
JY%()=512
` JR%()=0
j JSP%()=0
t
� L=0�GN%
~JSIZE(L)=�(8)+1
�JTSIZE(L)=�(8)+1
�JS%(L)=�(250)*�(�)
�� L
��
�� �Movement(L)
�.Sprite_No%=(NumberOfSpooks%-1)*JSIZE(L)/10
� R=Sprite_No%/NumberOfSpooks%
�
JXP%=R*32
� � JS%(L)>255� JS%(L)-=255
� � JS%(L)<-255� JS%(L)+=255
�%XP2%=((JXP%*cos%(JS%(L)+255))>>8)
�%YP2%=((JXP%*sin%(JS%(L)+255))>>8)
JX%(L)+=XP2%
JY%(L)+=YP2%
��(JX%(L)>1000��(XP2%)=1)�(JX%(L)<200��(XP2%)=-1)�(JY%(L)>700��(YP2%)=1)�(JY%(L)<300��(YP2%)=-1)� JSP%(L)=16*R:JR%(L)=45/JSP%(L)
V� JR%(L)>0� JR%(L)-=1:JS%(L)+=JSP%(L)� � �(10)=1� JR%(L)=�(5)+5:JSP%(L)=�(�)*�(15)
((JSIZE(L)+=�((JTSIZE(L)-JSIZE(L)))/25
28� �(JSIZE(L))=�(JTSIZE(L))� JTSIZE(L)=�(8)+1:N=�(-�)
<�
F� �SetUp_Spook
Pș6,112,2:�
Z
ș6,113,1
d7� Sprite%SX%*SY%*(NumberOfSteps%+1)*NumberOfSpooks%
n�Init_Rot_Sprite
x � Spook%=0�NumberOfSpooks%-1
�V�ConvertSprites("spook0",Spook%/(NumberOfSpooks%-1),SX%*SY%*NumberOfSteps%*Spook%)
��ș6,112,1:� "Generating Sprites... (";(Spook%+1);"/";NumberOfSpooks%;")"'''"(Memory Needed: ";�(mem%/1000);" kbytes)":ș6,112,2
� � Spook%
��
�$� �Spook_Plot(MX%,MY%,OMX%,OMY%)
�A%=(MX%>>2)-32
�B%=223-(MY%>>2)
�E%=BA%(Bank%)
�tempy%=MY%-OMY%
�M� tempy%� tempx%=MX%-OMX%:F%=270-�(tempy%)*90:ang%=F%-�(�(tempx%/tempy%))
�� ang%>=360 ang%-=360
�!SN%=NumberOfSteps%*(ang%/360)
�5!SprAdr%=Sprite%+SpriteSize%*SN%+Sprite_No%*Big1%
� plot
�
� �ERROR
" � � �
,#ș"XOS_CLI","RMkill QTMTracker"
6
ș6,112,1
@�
J
ș6,113,1
T� �$;" at line ";�
^<� �=11 � � '''"(Memory Needed: ";�(mem%/1000);" KBytes)"
h�
r�
|� �FAST_PLOT
� very=512
�� Mark very
�� pass%=0�2�2
� P%=Mark
�[OPT pass%
�.plot STMFD R13!,{R14}
�MOV R2,#64
�MOV R3,#64
�LDR R7,SprAdr%
�ADD R4,R4,R0
�ADD R4,R4,R1,LSL#8
�ADD R4,R4,R1,LSL#6
�MOV R11,#255
.yloop MOV R9,R2
MOV R6,R4
.xloop
&LDRB R0,[R7],#1
0
CMP R0,#0
:ADDEQ R4,R4,#1
D BEQ skip
NLDRB R1,[R4]
XMOV R12,R1
b� R11,R1,#%00000011
lADD R11,R11,R0
vCMP R11,#%11
�MOVGT R11,#%11
��R R12,R12,R11
�STRB R12,[R4],#1
�.skip SUBS R9,R9,#1
�
BNE xloop
�
MOV R4,R6
�ADD R4,R4,#320
�SUBS R3,R3,#1
�
BNE yloop
�LDMFD R13!,{PC}^
�.SprAdr%EQUD 0
�]
� � pass%
�
� �SLOW_PLOT
very=512
� Mark very
*� pass%=0�2�2
4 P%=Mark
>[OPT pass%
H.plot STMFD R13!,{R14}
RMOV R2,#64
\MOV R3,#64
fLDR R7,SprAdr%
pADD R4,R4,R0
zADD R4,R4,R1,LSL#8
�ADD R4,R4,R1,LSL#6
�MOV R11,#255
�.yloop MOV R9,R2
�
MOV R6,R4
�
.xloop
�LDRB R0,[R7],#1
�
CMP R0,#0
�ADDEQ R4,R4,#1
� BEQ skip
�LDRB R1,[R4]
�MOV R12,R1
�� R11,R1,#%00000100
�� R10,R1,#%00010000
�R R10,R11,R10,LSR#1
ADD R10,R10,R0,LSL#2
CMP R10,#%1100
$MOVGT R10,#%1100
.� R5,R10,#%1000
8�R R12,R12,R5,LSL#1
B� R5,R10,#%0100
L�R R12,R12,R5
V� R11,R1,#%01100000
`ADD R11,R11,R0,LSL#5
jCMP R11,#%01100000
tMOVGT R11,#%01100000
~�R R12,R12,R11
�� R11,R1,#%10000000
�� R5,R1,#%00001000
��R R5,R11,R5,LSL#3
�ADD R5,R5,R0,LSL#6
�CMP R5,#%11000000
�MOVGT R5,#%11000000
�� R11,R5,#%01000000
��R R5,R5,R11,LSR#3
�� R5,R5,#%10001000
��R R12,R12,R5
�STRB R12,[R4],#1
�.skip SUBS R9,R9,#1
BNE xloop
MOV R4,R6
ADD R4,R4,#320
SUBS R3,R3,#1
(
BNE yloop
2LDMFD R13!,{PC}^
<.SprAdr%EQUD 0
F]
P � pass%
Z�
d� �Reflection_Init
n NORS=40
x � ripples%64*4*4*(NORS+1)
�� reflection%512
�� pass=0�2�2
�P%=reflection%
�
[OPT pass
�.waves%EQUD 0
�..pix%EQUD%00001000000010000000100000001000
�.sp%EQUD 208*320
�.sp2%EQUD 208*320
�LDR R1,sp%
�ADD R1,R1,R4
�LDR R5,sp2%
�ADD R2,R4,R5
�LDR R11,pix%
ADD R4,R4,#5120
LDR R12,waves%
.fory%MOV R10,#320
"LDR R3,[R12],#4
,ADD R0,R1,R3
6$.forx%LDMIA R0!,{R5,R6,R7,R8,R9}
@�R R5,R5,R11
J�R R6,R6,R11
T�R R7,R7,R11
^�R R8,R8,R11
h�R R9,R9,R11
r STMIA R2!,{R5,R6,R7,R8,R9}
|SUBS R10,R10,#20
�
BNE forx%
�SUB R1,R1,#320*4
�
CMP R1,R4
�
BGT fory%
�MOV R15,R14
�]
�ReflectionP=0
�� P=0�NORS
� � L=0�51
�A!(ripples%+L*4+P*4*52)=�((�(L/5+ReflectionP)*8-8)*(L/51))*320
�� L
�ReflectionP+=2*�/NORS
�� P
ReflectionP=0
�
� �Reflection_Update(B%)
&(!waves%=ripples%+�(ReflectionP)*52*4
0AReflectionP+=ReflectionSpeed:� ReflectionP>NORS ReflectionP=0
:E%=BA%(B%)
D� reflection%
N�
X� �Init_Starz2
b � G(16)
lG(1)=%00000000
vG(2)=%00000010
�G(3)=%00000001
�G(4)=%00000011
�G(5)=%00101100
�G(6)=%00101110
�G(7)=%00101101
�G(8)=%00101111
�G(9)=%11010000
�G(10)=%11010010
�G(11)=%11010001
�G(12)=%11010011
�G(13)=%11111100
�G(14)=%11111110
�G(15)=%11111101
G(16)=%11111111
� Starz2_Blk%1024*12
� L=0�1023
0!(Starz2_Blk%+L*12+0)=(�(320)+�(253)*320)<<8
*
N=�(4)
4 !(Starz2_Blk%+L*12+4)=N<<7
>#!(Starz2_Blk%+L*12+8)=G(16*N/4)
H� L
R� Starz2 512
\
P%=Starz2
f
[OPT 2
p!.ScreenSize EQUD (320*253)<<8
z .Starz2Data EQUD Starz2_Blk%
�
MOV R1,R3
�LDR R0,Starz2Data
�MOV R2,#128
�
MOV R8,#0
�LDR R7,ScreenSize
�.ForL LDR R3,[R0]
�LDR R4,[R0,#4]
�LDR R5,[R0,#8]
�ADD R3,R3,R4
�
CMP R3,R7
�MOVGE R3,#0
�ADD R6,R1,R3,LSR#8
�LDRB R9,[R6]
CMP R9,#0
STREQB R5,[R6]
STR R3,[R0],#12
$ADD R8,R8,#1
.
CMP R8,R2
8 BLT ForL
BMOV R15,R14
L]
V�
`
� �Tables
j� cos%(512),sin%(512)
t
� L=0�512
~%cos%(L)=�(�(360*(L-255)/255))*256
�%sin%(L)=�(�(360*(L-255)/255))*256
�� L
��
�� �ScanSprites
�ș6,112,2:ș6,113,1
�&�Sprite_Plot(area%,"moon",0,792,8)
��Init_Moon(2,225,30)
�(�Sprite_Plot(area%,"castle",0,652,8)
��Init_Hill(2,12,116)
��
� � �Init_Hill(Bank%,X%,Y%)
�� hill%14000
� hillcode%255
P%=hillcode%
[OPT 2
.hilldata%EQUD hill%
(.hillplot%MOV R2,#172
2MOV R5,#320
<MOV R0,#X%
FMOV R1,#Y%
PMLA R4,R1,R5,R0
ZADD R4,R4,R3
dLDR R6,hilldata%
nMOV R12,#93
x3.hloop%LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�LDMIA R6!,{R0}
�STMIA R4!,{R0}
�ADD R4,R4,R2
�SUBS R12,R12,#1
�BNE hloop%
�MOV R15,R14
.hillscan%MOV R2,#172
MOV R5,#320
MLA R4,R1,R5,R0
"ADD R4,R4,R3
,LDR R6,hilldata%
6MOV R12,#93
@4.hloop2%LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
J,STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
T,LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
^,STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
h,LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
r,STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
|,LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�LDMIA R4!,{R0}
�STMIA R6!,{R0}
�ADD R4,R4,R2
�SUBS R12,R12,#1
�BNE hloop2%
�MOV R15,R14
�]
�A%=0
�B%=0
�D%=BA%(Bank%)
�� hillscan%
��
� �Init_Moon(Bank%,X%,Y%)
� moon%3248
� mooncode%255
&P%=mooncode%
0
[OPT 2
:.moondata%EQUD moon%
D.moonplot%MOV R2,#264
NMOV R5,#320
XMOV R0,#X%
bMOV R1,#Y%
lMLA R4,R1,R5,R0
vADD R4,R4,R3
�LDR R6,moondata%
�MOV R12,#58
�3.mloop%LDMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
�,STMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
� LDMIA R6!,{R0,R1,R3,R5,R7}
� STMIA R4!,{R0,R1,R3,R5,R7}
�ADD R4,R4,R2
�SUBS R12,R12,#1
�BNE mloop%
�MOV R15,R14
�.moonscan%MOV R2,#264
�MOV R5,#320
�MLA R4,R1,R5,R0
ADD R4,R4,R3
LDR R6,moondata%
MOV R12,#58
4.mloop2%LDMIA R4!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
*,STMIA R6!,{R0,R1,R3,R5,R7,R8,R9,R10,R11}
4 LDMIA R4!,{R0,R1,R3,R5,R7}
> STMIA R6!,{R0,R1,R3,R5,R7}
HADD R4,R4,R2
RSUBS R12,R12,#1
\BNE mloop2%
fMOV R15,R14
p]
zA%=0
�B%=0
�D%=BA%(Bank%)
�� moonscan%
��
�� �Init_FCLS
�� FastCLS%255
�P%=FastCLS%
�
[OPT 2
�
MOV R1,#0
�
MOV R2,R1
�
MOV R0,R1
�
MOV R4,R1
�
MOV R5,R1
MOV R6,R1
MOV R7,R1
MOV R8,R1
$
MOV R9,R1
.MOV R10,R1
8MOV R11,R1
BMOV R12,#210
L .repeat%
V STMIA R3!,{R0-R2,R4-R11}
` STMIA R3!,{R0-R2,R4-R11}
j STMIA R3!,{R0-R2,R4-R11}
t STMIA R3!,{R0-R2,R4-R11}
~ STMIA R3!,{R0-R2,R4-R11}
� STMIA R3!,{R0-R2,R4-R11}
� STMIA R3!,{R0-R2,R4-R11}
�STMIA R3!,{R0,R1,R2}
�SUBS R12,R12,#1
�BNE repeat%
�MOV R15,R14
�]
��
�� �Init_FastScan
�extremely=256
�� Mark extremely
�� pass%=0�2�2
P%=Mark
[OPT pass%
.grab MOV R7,#320
SUB R4,R2,#4
(.gxloop SUB R5,R3,#1
2.gyloop MLA R8,R7,R5,R1
<ADD R8,R8,R4
FLDR R6,[R8]
PMLA R8,R2,R5,R0
ZADD R8,R8,R4
dSTR R6,[R8]
nSUBS R5,R5,#1
xBGE gyloop
�SUBS R4,R4,#4
�BGE gxloop
�MOVS PC,R14
�]
� � pass%
��
�� �ChangableVariables
�NumberOfSteps%=24
�NumberOfSpooks%=10
� fast%=1
� GN%=5
�ReflectionSpeed=0.75
��
� 00000000 0d 00 0a 09 eb 31 33 3a 87 0d 00 14 0e ee 20 85 |.....13:...... .|
00000010 20 f2 45 52 52 4f 52 0d 00 1e 1a c8 99 22 58 4f | .ERROR......"XO|
00000020 53 5f 43 4c 49 22 2c 22 51 54 4d 53 74 61 72 74 |S_CLI","QTMStart|
00000030 22 0d 00 28 17 f2 43 68 61 6e 67 61 62 6c 65 56 |"..(..ChangableV|
00000040 61 72 69 61 62 6c 65 73 0d 00 32 0a 53 58 25 3d |ariables..2.SX%=|
00000050 36 34 0d 00 3c 0a 53 59 25 3d 36 34 0d 00 46 3a |64..<.SY%=64..F:|
00000060 6d 65 6d 25 3d 53 58 25 2a 53 59 25 2a 28 4e 75 |mem%=SX%*SY%*(Nu|
00000070 6d 62 65 72 4f 66 53 74 65 70 73 25 2b 31 29 2a |mberOfSteps%+1)*|
00000080 4e 75 6d 62 65 72 4f 66 53 70 6f 6f 6b 73 25 2b |NumberOfSpooks%+|
00000090 32 31 30 30 30 30 0d 00 50 20 42 69 67 31 25 3d |210000..P Big1%=|
000000a0 53 58 25 2a 53 59 25 2a 4e 75 6d 62 65 72 4f 66 |SX%*SY%*NumberOf|
000000b0 53 74 65 70 73 25 0d 00 5a 17 53 70 72 69 74 65 |Steps%..Z.Sprite|
000000c0 53 69 7a 65 25 3d 53 58 25 2a 53 59 25 0d 00 64 |Size%=SX%*SY%..d|
000000d0 24 61 72 65 61 25 3d a4 53 70 72 69 74 65 41 72 |$area%=.SpriteAr|
000000e0 65 61 5f 49 6e 69 74 28 31 30 30 2a 31 30 30 30 |ea_Init(100*1000|
000000f0 29 0d 00 6e 2d f2 4c 6f 61 64 5f 53 70 72 69 74 |)..n-.Load_Sprit|
00000100 65 28 61 72 65 61 25 2c 22 3c 53 70 6f 6f 6b 24 |e(area%,"<Spook$|
00000110 44 69 72 3e 2e 53 70 72 69 74 65 73 22 29 0d 00 |Dir>.Sprites")..|
00000120 78 14 f2 46 69 6e 64 42 61 73 65 41 64 64 72 65 |x..FindBaseAddre|
00000130 73 73 0d 00 82 12 f2 49 6e 69 74 5f 46 61 73 74 |ss.....Init_Fast|
00000140 53 63 61 6e 0d 00 8c 10 f2 53 63 61 6e 53 70 72 |Scan.....ScanSpr|
00000150 69 74 65 73 0d 00 96 10 f2 53 65 74 55 70 5f 53 |ites.....SetUp_S|
00000160 70 6f 6f 6b 0d 00 a0 24 e7 20 66 61 73 74 25 8c |pook...$. fast%.|
00000170 20 f2 46 41 53 54 5f 50 4c 4f 54 20 8b 20 f2 53 | .FAST_PLOT . .S|
00000180 4c 4f 57 5f 50 4c 4f 54 0d 00 aa 14 f2 52 65 66 |LOW_PLOT.....Ref|
00000190 6c 65 63 74 69 6f 6e 5f 49 6e 69 74 0d 00 b4 10 |lection_Init....|
000001a0 f2 49 6e 69 74 5f 53 74 61 72 7a 32 0d 00 be 0e |.Init_Starz2....|
000001b0 f2 49 6e 69 74 5f 46 43 4c 53 0d 00 c8 0b f2 54 |.Init_FCLS.....T|
000001c0 61 62 6c 65 73 0d 00 d2 12 f2 53 65 74 55 70 4d |ables.....SetUpM|
000001d0 6f 76 65 6d 65 6e 74 0d 00 dc 0b 61 6e 67 25 3d |ovement....ang%=|
000001e0 39 30 0d 00 e6 05 f5 0d 00 f0 0d e3 20 4c 3d 31 |90.......... L=1|
000001f0 b8 47 4e 25 0d 00 fa 0f 4f 4a 58 25 3d 4a 58 25 |.GN%....OJX%=JX%|
00000200 28 4c 29 0d 01 04 0f 4f 4a 59 25 3d 4a 59 25 28 |(L)....OJY%=JY%(|
00000210 4c 29 0d 01 0e 10 f2 4d 6f 76 65 6d 65 6e 74 28 |L).....Movement(|
00000220 4c 29 0d 01 18 28 f2 53 70 6f 6f 6b 5f 50 6c 6f |L)...(.Spook_Plo|
00000230 74 28 4a 58 25 28 4c 29 2c 4a 59 25 28 4c 29 2c |t(JX%(L),JY%(L),|
00000240 4f 4a 58 25 2c 4f 4a 59 25 29 0d 01 22 07 ed 20 |OJX%,OJY%)..".. |
00000250 4c 0d 01 2c 1d f2 52 65 66 6c 65 63 74 69 6f 6e |L..,..Reflection|
00000260 5f 55 70 64 61 74 65 28 42 61 6e 6b 25 29 0d 01 |_Update(Bank%)..|
00000270 36 0a c8 99 36 2c 31 39 0d 01 40 13 c8 99 36 2c |6...6,19..@...6,|
00000280 31 31 32 2c 33 2d 42 61 6e 6b 25 0d 01 4a 11 c8 |112,3-Bank%..J..|
00000290 99 36 2c 31 31 33 2c 42 61 6e 6b 25 0d 01 54 11 |.6,113,Bank%..T.|
000002a0 42 61 6e 6b 25 3d 33 2d 42 61 6e 6b 25 0d 01 5e |Bank%=3-Bank%..^|
000002b0 11 44 25 3d 42 41 25 28 42 61 6e 6b 25 29 0d 01 |.D%=BA%(Bank%)..|
000002c0 68 0e d6 20 46 61 73 74 43 4c 53 25 0d 01 72 0f |h.. FastCLS%..r.|
000002d0 d6 20 6d 6f 6f 6e 70 6c 6f 74 25 0d 01 7c 0f d6 |. moonplot%..|..|
000002e0 20 68 69 6c 6c 70 6c 6f 74 25 0d 01 86 0c d6 20 | hillplot%..... |
000002f0 53 74 61 72 7a 32 0d 01 90 06 fd 30 0d 01 9a 05 |Starz2.....0....|
00000300 e0 0d 01 a4 16 dd 20 f2 46 69 6e 64 42 61 73 65 |...... .FindBase|
00000310 41 64 64 72 65 73 73 0d 01 ae 0c de 20 42 41 25 |Address..... BA%|
00000320 28 32 29 0d 01 b8 12 e3 20 42 61 6e 6b 25 3d 32 |(2)..... Bank%=2|
00000330 b8 31 88 2d 31 0d 01 c2 3d c8 99 36 2c 31 31 32 |.1.-1...=..6,112|
00000340 2c 42 61 6e 6b 25 3a c8 99 36 2c 31 31 33 2c 42 |,Bank%:..6,113,B|
00000350 61 6e 6b 25 3a db 3a 42 41 25 28 42 61 6e 6b 25 |ank%:.:BA%(Bank%|
00000360 29 3d a4 46 69 6e 64 42 61 73 65 41 64 64 72 65 |)=.FindBaseAddre|
00000370 73 73 0d 01 cc 0b ed 20 42 61 6e 6b 25 0d 01 d6 |ss..... Bank%...|
00000380 0b 42 61 6e 6b 25 3d 31 0d 01 e0 05 e1 0d 01 ea |.Bank%=1........|
00000390 16 dd 20 a4 46 69 6e 64 42 61 73 65 41 64 64 72 |.. .FindBaseAddr|
000003a0 65 73 73 0d 01 f4 09 de 20 69 20 38 0d 01 fe 09 |ess..... i 8....|
000003b0 de 20 6f 20 34 0d 02 08 0b 69 21 30 3d 31 34 39 |. o 4....i!0=149|
000003c0 0d 02 12 0a 69 21 34 3d 2d 31 0d 02 1c 1f c8 99 |....i!4=-1......|
000003d0 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 |"OS_ReadVduVaria|
000003e0 62 6c 65 73 22 2c 69 2c 6f 0d 02 26 08 3d 6f 21 |bles",i,o..&.=o!|
000003f0 30 0d 02 30 27 dd 20 f2 43 6f 6e 76 65 72 74 53 |0..0'. .ConvertS|
00000400 70 72 69 74 65 73 28 4e 24 2c 53 63 61 6c 65 2c |prites(N$,Scale,|
00000410 6f 66 66 73 65 74 25 29 0d 02 3a 08 ea 20 6f 25 |offset%)..:.. o%|
00000420 0d 02 44 0d 42 25 3d 42 41 25 28 32 29 0d 02 4e |..D.B%=BA%(2)..N|
00000430 0a 43 25 3d 53 58 25 0d 02 58 0a 44 25 3d 53 59 |.C%=SX%..X.D%=SY|
00000440 25 0d 02 62 1b e3 20 53 25 3d 30 b8 4e 75 6d 62 |%..b.. S%=0.Numb|
00000450 65 72 4f 66 53 74 65 70 73 25 2d 31 0d 02 6c 07 |erOfSteps%-1..l.|
00000460 db 3a 87 0d 02 76 55 f2 52 6f 74 5f 53 70 72 69 |.:...vU.Rot_Spri|
00000470 74 65 28 61 72 65 61 25 2c 31 32 38 2c 31 30 32 |te(area%,128,102|
00000480 34 2d 31 32 38 2c 4e 24 2c a8 28 33 36 30 2a 53 |4-128,N$,.(360*S|
00000490 25 2f 4e 75 6d 62 65 72 4f 66 53 74 65 70 73 25 |%/NumberOfSteps%|
000004a0 29 2b 31 2c 31 32 38 2a 53 63 61 6c 65 2c 31 32 |)+1,128*Scale,12|
000004b0 38 2a 53 63 61 6c 65 29 0d 02 80 23 41 25 3d 53 |8*Scale)...#A%=S|
000004c0 70 72 69 74 65 25 2b 28 53 58 25 2a 53 59 25 29 |prite%+(SX%*SY%)|
000004d0 2a 53 25 2b 6f 66 66 73 65 74 25 0d 02 8a 0a d6 |*S%+offset%.....|
000004e0 20 67 72 61 62 0d 02 94 08 ed 20 53 25 0d 02 9e | grab..... S%...|
000004f0 05 e1 0d 02 a8 2c dd 20 f2 52 6f 74 5f 53 70 72 |.....,. .Rot_Spr|
00000500 69 74 65 28 73 61 25 2c 58 25 2c 59 25 2c 4e 24 |ite(sa%,X%,Y%,N$|
00000510 2c 41 4e 47 25 2c 58 53 25 2c 59 53 25 29 0d 02 |,ANG%,XS%,YS%)..|
00000520 b2 35 58 31 3d 2d 58 53 25 3a 59 31 3d 59 53 25 |.5X1=-XS%:Y1=YS%|
00000530 3a f2 52 4f 54 28 58 31 2c 59 31 2c 41 4e 47 25 |:.ROT(X1,Y1,ANG%|
00000540 29 3a 58 31 3d 4e 58 2b 58 25 3a 59 31 3d 4e 59 |):X1=NX+X%:Y1=NY|
00000550 2b 59 25 0d 02 bc 34 58 32 3d 58 53 25 3a 59 32 |+Y%...4X2=XS%:Y2|
00000560 3d 59 53 25 3a f2 52 4f 54 28 58 32 2c 59 32 2c |=YS%:.ROT(X2,Y2,|
00000570 41 4e 47 25 29 3a 58 32 3d 4e 58 2b 58 25 3a 59 |ANG%):X2=NX+X%:Y|
00000580 32 3d 4e 59 2b 59 25 0d 02 c6 35 58 33 3d 58 53 |2=NY+Y%...5X3=XS|
00000590 25 3a 59 33 3d 2d 59 53 25 3a f2 52 4f 54 28 58 |%:Y3=-YS%:.ROT(X|
000005a0 33 2c 59 33 2c 41 4e 47 25 29 3a 58 33 3d 4e 58 |3,Y3,ANG%):X3=NX|
000005b0 2b 58 25 3a 59 33 3d 4e 59 2b 59 25 0d 02 d0 36 |+X%:Y3=NY+Y%...6|
000005c0 58 34 3d 2d 58 53 25 3a 59 34 3d 2d 59 53 25 3a |X4=-XS%:Y4=-YS%:|
000005d0 f2 52 4f 54 28 58 34 2c 59 34 2c 41 4e 47 25 29 |.ROT(X4,Y4,ANG%)|
000005e0 3a 58 34 3d 4e 58 2b 58 25 3a 59 34 3d 4e 59 2b |:X4=NX+X%:Y4=NY+|
000005f0 59 25 0d 02 da 16 52 53 42 6c 6b 25 21 30 3d a8 |Y%....RSBlk%!0=.|
00000600 28 58 31 29 2a 32 35 36 0d 02 e4 16 52 53 42 6c |(X1)*256....RSBl|
00000610 6b 25 21 34 3d a8 28 59 31 29 2a 32 35 36 0d 02 |k%!4=.(Y1)*256..|
00000620 ee 16 52 53 42 6c 6b 25 21 38 3d a8 28 58 32 29 |..RSBlk%!8=.(X2)|
00000630 2a 32 35 36 0d 02 f8 17 52 53 42 6c 6b 25 21 31 |*256....RSBlk%!1|
00000640 32 3d a8 28 59 32 29 2a 32 35 36 0d 03 02 17 52 |2=.(Y2)*256....R|
00000650 53 42 6c 6b 25 21 31 36 3d a8 28 58 33 29 2a 32 |SBlk%!16=.(X3)*2|
00000660 35 36 0d 03 0c 17 52 53 42 6c 6b 25 21 32 30 3d |56....RSBlk%!20=|
00000670 a8 28 59 33 29 2a 32 35 36 0d 03 16 17 52 53 42 |.(Y3)*256....RSB|
00000680 6c 6b 25 21 32 34 3d a8 28 58 34 29 2a 32 35 36 |lk%!24=.(X4)*256|
00000690 0d 03 20 17 52 53 42 6c 6b 25 21 32 38 3d a8 28 |.. .RSBlk%!28=.(|
000006a0 59 34 29 2a 32 35 36 0d 03 2a 2d c8 99 22 4f 53 |Y4)*256..*-.."OS|
000006b0 5f 53 70 72 69 74 65 4f 70 22 2c 35 36 2b 32 35 |_SpriteOp",56+25|
000006c0 36 2c 73 61 25 2c 4e 24 2c 31 2c 2c 38 2c 52 53 |6,sa%,N$,1,,8,RS|
000006d0 42 6c 6b 25 0d 03 34 05 e1 0d 03 3e 16 dd 20 f2 |Blk%..4....>.. .|
000006e0 49 6e 69 74 5f 52 6f 74 5f 53 70 72 69 74 65 0d |Init_Rot_Sprite.|
000006f0 03 48 0e de 20 52 53 42 6c 6b 25 33 32 0d 03 52 |.H.. RSBlk%32..R|
00000700 05 e1 0d 03 5c 1d dd 20 a4 53 70 72 69 74 65 41 |....\.. .SpriteA|
00000710 72 65 61 5f 49 6e 69 74 28 73 69 7a 65 25 29 0d |rea_Init(size%).|
00000720 03 66 0e ea 20 61 72 65 61 5f 70 74 72 0d 03 70 |.f.. area_ptr..p|
00000730 14 de 20 61 72 65 61 5f 70 74 72 20 73 69 7a 65 |.. area_ptr size|
00000740 25 0d 03 7a 40 61 72 65 61 5f 70 74 72 21 30 3d |%..z@area_ptr!0=|
00000750 73 69 7a 65 25 2d 31 3a 61 72 65 61 5f 70 74 72 |size%-1:area_ptr|
00000760 21 34 3d 30 3a 61 72 65 61 5f 70 74 72 21 38 3d |!4=0:area_ptr!8=|
00000770 31 36 3a 61 72 65 61 5f 70 74 72 21 31 32 3d 31 |16:area_ptr!12=1|
00000780 36 0d 03 84 0d 3d 61 72 65 61 5f 70 74 72 0d 03 |6....=area_ptr..|
00000790 8e 27 dd 20 f2 47 65 74 5f 53 70 72 69 74 65 28 |.'. .Get_Sprite(|
000007a0 73 61 25 2c 4e 24 2c 58 25 2c 59 25 2c 58 32 25 |sa%,N$,X%,Y%,X2%|
000007b0 2c 59 32 25 29 0d 03 98 31 c8 99 22 4f 53 5f 53 |,Y2%)...1.."OS_S|
000007c0 70 72 69 74 65 4f 70 22 2c 31 36 2b 32 35 36 2c |priteOp",16+256,|
000007d0 73 61 25 2c 4e 24 2c 30 2c 58 25 2c 59 25 2c 58 |sa%,N$,0,X%,Y%,X|
000007e0 32 25 2c 59 32 25 0d 03 a2 05 e1 0d 03 ac 1a dd |2%,Y2%..........|
000007f0 20 f2 4c 6f 61 64 5f 53 70 72 69 74 65 28 73 61 | .Load_Sprite(sa|
00000800 25 2c 4e 24 29 0d 03 b6 21 c8 99 22 4f 53 5f 53 |%,N$)...!.."OS_S|
00000810 70 72 69 74 65 4f 70 22 2c 31 30 2b 32 35 36 2c |priteOp",10+256,|
00000820 73 61 25 2c 4e 24 0d 03 c0 05 e1 0d 03 ca 1c dd |sa%,N$..........|
00000830 20 f2 53 70 72 69 74 65 5f 43 68 6f 6f 73 65 28 | .Sprite_Choose(|
00000840 73 61 25 2c 4e 24 29 0d 03 d4 21 c8 99 22 4f 53 |sa%,N$)...!.."OS|
00000850 5f 53 70 72 69 74 65 4f 70 22 2c 32 34 2b 32 35 |_SpriteOp",24+25|
00000860 36 2c 73 61 25 2c 4e 24 0d 03 de 05 e1 0d 03 e8 |6,sa%,N$........|
00000870 24 dd 20 f2 53 70 72 69 74 65 5f 50 6c 6f 74 28 |$. .Sprite_Plot(|
00000880 73 61 25 2c 4e 24 2c 58 25 2c 59 25 2c 70 61 25 |sa%,N$,X%,Y%,pa%|
00000890 29 0d 03 f2 2b c8 99 22 4f 53 5f 53 70 72 69 74 |)...+.."OS_Sprit|
000008a0 65 4f 70 22 2c 33 34 2b 32 35 36 2c 73 61 25 2c |eOp",34+256,sa%,|
000008b0 4e 24 2c 58 25 2c 59 25 2c 70 61 25 0d 03 fc 05 |N$,X%,Y%,pa%....|
000008c0 e1 0d 04 06 13 dd 20 f2 52 4f 54 28 58 25 2c 59 |...... .ROT(X%,Y|
000008d0 25 2c 41 29 0d 04 10 0a 41 3d b2 28 41 29 0d 04 |%,A)....A=.(A)..|
000008e0 1a 16 4e 58 3d 58 25 2a 9b 28 41 29 2d 59 25 2a |..NX=X%*.(A)-Y%*|
000008f0 b5 28 41 29 0d 04 24 16 4e 59 3d 58 25 2a b5 28 |.(A)..$.NY=X%*.(|
00000900 41 29 2b 59 25 2a 9b 28 41 29 0d 04 2e 05 e1 0d |A)+Y%*.(A)......|
00000910 04 38 14 dd 20 f2 53 65 74 55 70 4d 6f 76 65 6d |.8.. .SetUpMovem|
00000920 65 6e 74 0d 04 42 4a de 20 4a 58 25 28 47 4e 25 |ent..BJ. JX%(GN%|
00000930 29 2c 4a 59 25 28 47 4e 25 29 2c 4a 52 25 28 47 |),JY%(GN%),JR%(G|
00000940 4e 25 29 2c 4a 53 25 28 47 4e 25 29 2c 4a 53 50 |N%),JS%(GN%),JSP|
00000950 25 28 47 4e 25 29 2c 4a 53 49 5a 45 28 47 4e 25 |%(GN%),JSIZE(GN%|
00000960 29 2c 4a 54 53 49 5a 45 28 47 4e 25 29 0d 04 4c |),JTSIZE(GN%)..L|
00000970 0d 4a 58 25 28 29 3d 33 30 30 0d 04 56 0d 4a 59 |.JX%()=300..V.JY|
00000980 25 28 29 3d 35 31 32 0d 04 60 0b 4a 52 25 28 29 |%()=512..`.JR%()|
00000990 3d 30 0d 04 6a 0c 4a 53 50 25 28 29 3d 30 0d 04 |=0..j.JSP%()=0..|
000009a0 74 0d e3 20 4c 3d 30 b8 47 4e 25 0d 04 7e 13 4a |t.. L=0.GN%..~.J|
000009b0 53 49 5a 45 28 4c 29 3d b3 28 38 29 2b 31 0d 04 |SIZE(L)=.(8)+1..|
000009c0 88 14 4a 54 53 49 5a 45 28 4c 29 3d b3 28 38 29 |..JTSIZE(L)=.(8)|
000009d0 2b 31 0d 04 92 16 4a 53 25 28 4c 29 3d b3 28 32 |+1....JS%(L)=.(2|
000009e0 35 30 29 2a b4 28 b3 29 0d 04 9c 07 ed 20 4c 0d |50)*.(.)..... L.|
000009f0 04 a6 05 e1 0d 04 b0 12 dd 20 f2 4d 6f 76 65 6d |......... .Movem|
00000a00 65 6e 74 28 4c 29 0d 04 ba 2e 53 70 72 69 74 65 |ent(L)....Sprite|
00000a10 5f 4e 6f 25 3d 28 4e 75 6d 62 65 72 4f 66 53 70 |_No%=(NumberOfSp|
00000a20 6f 6f 6b 73 25 2d 31 29 2a 4a 53 49 5a 45 28 4c |ooks%-1)*JSIZE(L|
00000a30 29 2f 31 30 0d 04 c4 20 52 3d 53 70 72 69 74 65 |)/10... R=Sprite|
00000a40 5f 4e 6f 25 2f 4e 75 6d 62 65 72 4f 66 53 70 6f |_No%/NumberOfSpo|
00000a50 6f 6b 73 25 0d 04 ce 0d 4a 58 50 25 3d 52 2a 33 |oks%....JXP%=R*3|
00000a60 32 0d 04 d8 1d e7 20 4a 53 25 28 4c 29 3e 32 35 |2..... JS%(L)>25|
00000a70 35 8c 20 4a 53 25 28 4c 29 2d 3d 32 35 35 0d 04 |5. JS%(L)-=255..|
00000a80 e2 1e e7 20 4a 53 25 28 4c 29 3c 2d 32 35 35 8c |... JS%(L)<-255.|
00000a90 20 4a 53 25 28 4c 29 2b 3d 32 35 35 0d 04 ec 25 | JS%(L)+=255...%|
00000aa0 58 50 32 25 3d 28 28 4a 58 50 25 2a 63 6f 73 25 |XP2%=((JXP%*cos%|
00000ab0 28 4a 53 25 28 4c 29 2b 32 35 35 29 29 3e 3e 38 |(JS%(L)+255))>>8|
00000ac0 29 0d 04 f6 25 59 50 32 25 3d 28 28 4a 58 50 25 |)...%YP2%=((JXP%|
00000ad0 2a 73 69 6e 25 28 4a 53 25 28 4c 29 2b 32 35 35 |*sin%(JS%(L)+255|
00000ae0 29 29 3e 3e 38 29 0d 05 00 10 4a 58 25 28 4c 29 |))>>8)....JX%(L)|
00000af0 2b 3d 58 50 32 25 0d 05 0a 10 4a 59 25 28 4c 29 |+=XP2%....JY%(L)|
00000b00 2b 3d 59 50 32 25 0d 05 14 83 e7 28 4a 58 25 28 |+=YP2%.....(JX%(|
00000b10 4c 29 3e 31 30 30 30 80 b4 28 58 50 32 25 29 3d |L)>1000..(XP2%)=|
00000b20 31 29 84 28 4a 58 25 28 4c 29 3c 32 30 30 80 b4 |1).(JX%(L)<200..|
00000b30 28 58 50 32 25 29 3d 2d 31 29 84 28 4a 59 25 28 |(XP2%)=-1).(JY%(|
00000b40 4c 29 3e 37 30 30 80 b4 28 59 50 32 25 29 3d 31 |L)>700..(YP2%)=1|
00000b50 29 84 28 4a 59 25 28 4c 29 3c 33 30 30 80 b4 28 |).(JY%(L)<300..(|
00000b60 59 50 32 25 29 3d 2d 31 29 8c 20 4a 53 50 25 28 |YP2%)=-1). JSP%(|
00000b70 4c 29 3d 31 36 2a 52 3a 4a 52 25 28 4c 29 3d 34 |L)=16*R:JR%(L)=4|
00000b80 35 2f 4a 53 50 25 28 4c 29 0d 05 1e 56 e7 20 4a |5/JSP%(L)...V. J|
00000b90 52 25 28 4c 29 3e 30 8c 20 4a 52 25 28 4c 29 2d |R%(L)>0. JR%(L)-|
00000ba0 3d 31 3a 4a 53 25 28 4c 29 2b 3d 4a 53 50 25 28 |=1:JS%(L)+=JSP%(|
00000bb0 4c 29 8b 20 e7 20 b3 28 31 30 29 3d 31 8c 20 4a |L). . .(10)=1. J|
00000bc0 52 25 28 4c 29 3d b3 28 35 29 2b 35 3a 4a 53 50 |R%(L)=.(5)+5:JSP|
00000bd0 25 28 4c 29 3d b4 28 b3 29 2a b3 28 31 35 29 0d |%(L)=.(.)*.(15).|
00000be0 05 28 28 4a 53 49 5a 45 28 4c 29 2b 3d b4 28 28 |.((JSIZE(L)+=.((|
00000bf0 4a 54 53 49 5a 45 28 4c 29 2d 4a 53 49 5a 45 28 |JTSIZE(L)-JSIZE(|
00000c00 4c 29 29 29 2f 32 35 0d 05 32 38 e7 20 a8 28 4a |L)))/25..28. .(J|
00000c10 53 49 5a 45 28 4c 29 29 3d a8 28 4a 54 53 49 5a |SIZE(L))=.(JTSIZ|
00000c20 45 28 4c 29 29 8c 20 4a 54 53 49 5a 45 28 4c 29 |E(L)). JTSIZE(L)|
00000c30 3d b3 28 38 29 2b 31 3a 4e 3d b3 28 2d 91 29 0d |=.(8)+1:N=.(-.).|
00000c40 05 3c 05 e1 0d 05 46 12 dd 20 f2 53 65 74 55 70 |.<....F.. .SetUp|
00000c50 5f 53 70 6f 6f 6b 0d 05 50 0f c8 99 36 2c 31 31 |_Spook..P...6,11|
00000c60 32 2c 32 3a db 0d 05 5a 0d c8 99 36 2c 31 31 33 |2,2:...Z...6,113|
00000c70 2c 31 0d 05 64 37 de 20 53 70 72 69 74 65 25 53 |,1..d7. Sprite%S|
00000c80 58 25 2a 53 59 25 2a 28 4e 75 6d 62 65 72 4f 66 |X%*SY%*(NumberOf|
00000c90 53 74 65 70 73 25 2b 31 29 2a 4e 75 6d 62 65 72 |Steps%+1)*Number|
00000ca0 4f 66 53 70 6f 6f 6b 73 25 0d 05 6e 14 f2 49 6e |OfSpooks%..n..In|
00000cb0 69 74 5f 52 6f 74 5f 53 70 72 69 74 65 0d 05 78 |it_Rot_Sprite..x|
00000cc0 20 e3 20 53 70 6f 6f 6b 25 3d 30 b8 4e 75 6d 62 | . Spook%=0.Numb|
00000cd0 65 72 4f 66 53 70 6f 6f 6b 73 25 2d 31 0d 05 82 |erOfSpooks%-1...|
00000ce0 56 f2 43 6f 6e 76 65 72 74 53 70 72 69 74 65 73 |V.ConvertSprites|
00000cf0 28 22 73 70 6f 6f 6b 30 22 2c 53 70 6f 6f 6b 25 |("spook0",Spook%|
00000d00 2f 28 4e 75 6d 62 65 72 4f 66 53 70 6f 6f 6b 73 |/(NumberOfSpooks|
00000d10 25 2d 31 29 2c 53 58 25 2a 53 59 25 2a 4e 75 6d |%-1),SX%*SY%*Num|
00000d20 62 65 72 4f 66 53 74 65 70 73 25 2a 53 70 6f 6f |berOfSteps%*Spoo|
00000d30 6b 25 29 0d 05 8c 85 c8 99 36 2c 31 31 32 2c 31 |k%)......6,112,1|
00000d40 3a f1 20 22 47 65 6e 65 72 61 74 69 6e 67 20 53 |:. "Generating S|
00000d50 70 72 69 74 65 73 2e 2e 2e 20 20 20 28 22 3b 28 |prites... (";(|
00000d60 53 70 6f 6f 6b 25 2b 31 29 3b 22 2f 22 3b 4e 75 |Spook%+1);"/";Nu|
00000d70 6d 62 65 72 4f 66 53 70 6f 6f 6b 73 25 3b 22 29 |mberOfSpooks%;")|
00000d80 22 27 27 27 22 28 4d 65 6d 6f 72 79 20 4e 65 65 |"'''"(Memory Nee|
00000d90 64 65 64 3a 20 22 3b a8 28 6d 65 6d 25 2f 31 30 |ded: ";.(mem%/10|
00000da0 30 30 29 3b 22 20 6b 62 79 74 65 73 29 22 3a c8 |00);" kbytes)":.|
00000db0 99 36 2c 31 31 32 2c 32 0d 05 96 0c ed 20 53 70 |.6,112,2..... Sp|
00000dc0 6f 6f 6b 25 0d 05 a0 05 e1 0d 05 aa 24 dd 20 f2 |ook%........$. .|
00000dd0 53 70 6f 6f 6b 5f 50 6c 6f 74 28 4d 58 25 2c 4d |Spook_Plot(MX%,M|
00000de0 59 25 2c 4f 4d 58 25 2c 4f 4d 59 25 29 0d 05 b4 |Y%,OMX%,OMY%)...|
00000df0 12 41 25 3d 28 4d 58 25 3e 3e 32 29 2d 33 32 0d |.A%=(MX%>>2)-32.|
00000e00 05 be 13 42 25 3d 32 32 33 2d 28 4d 59 25 3e 3e |...B%=223-(MY%>>|
00000e10 32 29 0d 05 c8 11 45 25 3d 42 41 25 28 42 61 6e |2)....E%=BA%(Ban|
00000e20 6b 25 29 0d 05 d2 13 74 65 6d 70 79 25 3d 4d 59 |k%)....tempy%=MY|
00000e30 25 2d 4f 4d 59 25 0d 05 dc 4d e7 20 74 65 6d 70 |%-OMY%...M. temp|
00000e40 79 25 8c 20 74 65 6d 70 78 25 3d 4d 58 25 2d 4f |y%. tempx%=MX%-O|
00000e50 4d 58 25 3a 46 25 3d 32 37 30 2d b4 28 74 65 6d |MX%:F%=270-.(tem|
00000e60 70 79 25 29 2a 39 30 3a 61 6e 67 25 3d 46 25 2d |py%)*90:ang%=F%-|
00000e70 9d 28 99 28 74 65 6d 70 78 25 2f 74 65 6d 70 79 |.(.(tempx%/tempy|
00000e80 25 29 29 0d 05 e6 19 e7 20 61 6e 67 25 3e 3d 33 |%))..... ang%>=3|
00000e90 36 30 20 61 6e 67 25 2d 3d 33 36 30 0d 05 f0 21 |60 ang%-=360...!|
00000ea0 53 4e 25 3d 4e 75 6d 62 65 72 4f 66 53 74 65 70 |SN%=NumberOfStep|
00000eb0 73 25 2a 28 61 6e 67 25 2f 33 36 30 29 0d 05 fa |s%*(ang%/360)...|
00000ec0 35 21 53 70 72 41 64 72 25 3d 53 70 72 69 74 65 |5!SprAdr%=Sprite|
00000ed0 25 2b 53 70 72 69 74 65 53 69 7a 65 25 2a 53 4e |%+SpriteSize%*SN|
00000ee0 25 2b 53 70 72 69 74 65 5f 4e 6f 25 2a 42 69 67 |%+Sprite_No%*Big|
00000ef0 31 25 0d 06 04 0a d6 20 70 6c 6f 74 0d 06 0e 05 |1%..... plot....|
00000f00 e1 0d 06 18 0c dd 20 f2 45 52 52 4f 52 0d 06 22 |...... .ERROR.."|
00000f10 09 ee 20 85 20 87 0d 06 2c 23 c8 99 22 58 4f 53 |.. . ...,#.."XOS|
00000f20 5f 43 4c 49 22 2c 22 52 4d 6b 69 6c 6c 20 51 54 |_CLI","RMkill QT|
00000f30 4d 54 72 61 63 6b 65 72 22 0d 06 36 0d c8 99 36 |MTracker"..6...6|
00000f40 2c 31 31 32 2c 31 0d 06 40 05 db 0d 06 4a 0d c8 |,112,1..@....J..|
00000f50 99 36 2c 31 31 33 2c 31 0d 06 54 16 f1 20 f6 24 |.6,113,1..T.. .$|
00000f60 3b 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 0d 06 |;" at line ";...|
00000f70 5e 3c e7 20 9f 3d 31 31 20 8c 20 f1 20 27 27 27 |^<. .=11 . . '''|
00000f80 22 28 4d 65 6d 6f 72 79 20 4e 65 65 64 65 64 3a |"(Memory Needed:|
00000f90 20 22 3b a8 28 6d 65 6d 25 2f 31 30 30 30 29 3b | ";.(mem%/1000);|
00000fa0 22 20 4b 42 79 74 65 73 29 22 0d 06 68 05 e0 0d |" KBytes)"..h...|
00000fb0 06 72 05 e1 0d 06 7c 10 dd 20 f2 46 41 53 54 5f |.r....|.. .FAST_|
00000fc0 50 4c 4f 54 0d 06 86 0c 76 65 72 79 3d 35 31 32 |PLOT....very=512|
00000fd0 0d 06 90 0f de 20 4d 61 72 6b 20 76 65 72 79 0d |..... Mark very.|
00000fe0 06 9a 11 e3 20 70 61 73 73 25 3d 30 b8 32 88 32 |.... pass%=0.2.2|
00000ff0 0d 06 a4 0b 50 25 3d 4d 61 72 6b 0d 06 ae 0e 5b |....P%=Mark....[|
00001000 4f 50 54 20 70 61 73 73 25 0d 06 b8 1a 2e 70 6c |OPT pass%.....pl|
00001010 6f 74 20 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 |ot STMFD R13!,{R|
00001020 31 34 7d 0d 06 c2 0e 4d 4f 56 20 52 32 2c 23 36 |14}....MOV R2,#6|
00001030 34 0d 06 cc 0e 4d 4f 56 20 52 33 2c 23 36 34 0d |4....MOV R3,#64.|
00001040 06 d6 12 4c 44 52 20 52 37 2c 53 70 72 41 64 72 |...LDR R7,SprAdr|
00001050 25 0d 06 e0 10 41 44 44 20 52 34 2c 52 34 2c 52 |%....ADD R4,R4,R|
00001060 30 0d 06 ea 16 41 44 44 20 52 34 2c 52 34 2c 52 |0....ADD R4,R4,R|
00001070 31 2c 4c 53 4c 23 38 0d 06 f4 16 41 44 44 20 52 |1,LSL#8....ADD R|
00001080 34 2c 52 34 2c 52 31 2c 4c 53 4c 23 36 0d 06 fe |4,R4,R1,LSL#6...|
00001090 10 4d 4f 56 20 52 31 31 2c 23 32 35 35 0d 07 08 |.MOV R11,#255...|
000010a0 14 2e 79 6c 6f 6f 70 20 4d 4f 56 20 52 39 2c 52 |..yloop MOV R9,R|
000010b0 32 0d 07 12 0d 4d 4f 56 20 52 36 2c 52 34 0d 07 |2....MOV R6,R4..|
000010c0 1c 0a 2e 78 6c 6f 6f 70 0d 07 26 13 4c 44 52 42 |...xloop..&.LDRB|
000010d0 20 52 30 2c 5b 52 37 5d 2c 23 31 0d 07 30 0d 43 | R0,[R7],#1..0.C|
000010e0 4d 50 20 52 30 2c 23 30 0d 07 3a 12 41 44 44 45 |MP R0,#0..:.ADDE|
000010f0 51 20 52 34 2c 52 34 2c 23 31 0d 07 44 0c 42 45 |Q R4,R4,#1..D.BE|
00001100 51 20 73 6b 69 70 0d 07 4e 10 4c 44 52 42 20 52 |Q skip..N.LDRB R|
00001110 31 2c 5b 52 34 5d 0d 07 58 0e 4d 4f 56 20 52 31 |1,[R4]..X.MOV R1|
00001120 32 2c 52 31 0d 07 62 17 80 20 52 31 31 2c 52 31 |2,R1..b.. R11,R1|
00001130 2c 23 25 30 30 30 30 30 30 31 31 0d 07 6c 12 41 |,#%00000011..l.A|
00001140 44 44 20 52 31 31 2c 52 31 31 2c 52 30 0d 07 76 |DD R11,R11,R0..v|
00001150 10 43 4d 50 20 52 31 31 2c 23 25 31 31 0d 07 80 |.CMP R11,#%11...|
00001160 12 4d 4f 56 47 54 20 52 31 31 2c 23 25 31 31 0d |.MOVGT R11,#%11.|
00001170 07 8a 12 84 52 20 52 31 32 2c 52 31 32 2c 52 31 |....R R12,R12,R1|
00001180 31 0d 07 94 14 53 54 52 42 20 52 31 32 2c 5b 52 |1....STRB R12,[R|
00001190 34 5d 2c 23 31 0d 07 9e 17 2e 73 6b 69 70 20 53 |4],#1.....skip S|
000011a0 55 42 53 20 52 39 2c 52 39 2c 23 31 0d 07 a8 0d |UBS R9,R9,#1....|
000011b0 42 4e 45 20 78 6c 6f 6f 70 0d 07 b2 0d 4d 4f 56 |BNE xloop....MOV|
000011c0 20 52 34 2c 52 36 0d 07 bc 12 41 44 44 20 52 34 | R4,R6....ADD R4|
000011d0 2c 52 34 2c 23 33 32 30 0d 07 c6 11 53 55 42 53 |,R4,#320....SUBS|
000011e0 20 52 33 2c 52 33 2c 23 31 0d 07 d0 0d 42 4e 45 | R3,R3,#1....BNE|
000011f0 20 79 6c 6f 6f 70 0d 07 da 14 4c 44 4d 46 44 20 | yloop....LDMFD |
00001200 52 31 33 21 2c 7b 50 43 7d 5e 0d 07 e4 12 2e 53 |R13!,{PC}^.....S|
00001210 70 72 41 64 72 25 45 51 55 44 20 30 0d 07 ee 05 |prAdr%EQUD 0....|
00001220 5d 0d 07 f8 0b ed 20 70 61 73 73 25 0d 08 02 05 |]..... pass%....|
00001230 e1 0d 08 0c 10 dd 20 f2 53 4c 4f 57 5f 50 4c 4f |...... .SLOW_PLO|
00001240 54 0d 08 16 0c 76 65 72 79 3d 35 31 32 0d 08 20 |T....very=512.. |
00001250 0f de 20 4d 61 72 6b 20 76 65 72 79 0d 08 2a 11 |.. Mark very..*.|
00001260 e3 20 70 61 73 73 25 3d 30 b8 32 88 32 0d 08 34 |. pass%=0.2.2..4|
00001270 0b 50 25 3d 4d 61 72 6b 0d 08 3e 0e 5b 4f 50 54 |.P%=Mark..>.[OPT|
00001280 20 70 61 73 73 25 0d 08 48 1a 2e 70 6c 6f 74 20 | pass%..H..plot |
00001290 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 34 7d |STMFD R13!,{R14}|
000012a0 0d 08 52 0e 4d 4f 56 20 52 32 2c 23 36 34 0d 08 |..R.MOV R2,#64..|
000012b0 5c 0e 4d 4f 56 20 52 33 2c 23 36 34 0d 08 66 12 |\.MOV R3,#64..f.|
000012c0 4c 44 52 20 52 37 2c 53 70 72 41 64 72 25 0d 08 |LDR R7,SprAdr%..|
000012d0 70 10 41 44 44 20 52 34 2c 52 34 2c 52 30 0d 08 |p.ADD R4,R4,R0..|
000012e0 7a 16 41 44 44 20 52 34 2c 52 34 2c 52 31 2c 4c |z.ADD R4,R4,R1,L|
000012f0 53 4c 23 38 0d 08 84 16 41 44 44 20 52 34 2c 52 |SL#8....ADD R4,R|
00001300 34 2c 52 31 2c 4c 53 4c 23 36 0d 08 8e 10 4d 4f |4,R1,LSL#6....MO|
00001310 56 20 52 31 31 2c 23 32 35 35 0d 08 98 14 2e 79 |V R11,#255.....y|
00001320 6c 6f 6f 70 20 4d 4f 56 20 52 39 2c 52 32 0d 08 |loop MOV R9,R2..|
00001330 a2 0d 4d 4f 56 20 52 36 2c 52 34 0d 08 ac 0a 2e |..MOV R6,R4.....|
00001340 78 6c 6f 6f 70 0d 08 b6 13 4c 44 52 42 20 52 30 |xloop....LDRB R0|
00001350 2c 5b 52 37 5d 2c 23 31 0d 08 c0 0d 43 4d 50 20 |,[R7],#1....CMP |
00001360 52 30 2c 23 30 0d 08 ca 12 41 44 44 45 51 20 52 |R0,#0....ADDEQ R|
00001370 34 2c 52 34 2c 23 31 0d 08 d4 0c 42 45 51 20 73 |4,R4,#1....BEQ s|
00001380 6b 69 70 0d 08 de 10 4c 44 52 42 20 52 31 2c 5b |kip....LDRB R1,[|
00001390 52 34 5d 0d 08 e8 0e 4d 4f 56 20 52 31 32 2c 52 |R4]....MOV R12,R|
000013a0 31 0d 08 f2 17 80 20 52 31 31 2c 52 31 2c 23 25 |1..... R11,R1,#%|
000013b0 30 30 30 30 30 31 30 30 0d 08 fc 17 80 20 52 31 |00000100..... R1|
000013c0 30 2c 52 31 2c 23 25 30 30 30 31 30 30 30 30 0d |0,R1,#%00010000.|
000013d0 09 06 18 84 52 20 52 31 30 2c 52 31 31 2c 52 31 |....R R10,R11,R1|
000013e0 30 2c 4c 53 52 23 31 0d 09 10 18 41 44 44 20 52 |0,LSR#1....ADD R|
000013f0 31 30 2c 52 31 30 2c 52 30 2c 4c 53 4c 23 32 0d |10,R10,R0,LSL#2.|
00001400 09 1a 12 43 4d 50 20 52 31 30 2c 23 25 31 31 30 |...CMP R10,#%110|
00001410 30 0d 09 24 14 4d 4f 56 47 54 20 52 31 30 2c 23 |0..$.MOVGT R10,#|
00001420 25 31 31 30 30 0d 09 2e 13 80 20 52 35 2c 52 31 |%1100..... R5,R1|
00001430 30 2c 23 25 31 30 30 30 0d 09 38 17 84 52 20 52 |0,#%1000..8..R R|
00001440 31 32 2c 52 31 32 2c 52 35 2c 4c 53 4c 23 31 0d |12,R12,R5,LSL#1.|
00001450 09 42 13 80 20 52 35 2c 52 31 30 2c 23 25 30 31 |.B.. R5,R10,#%01|
00001460 30 30 0d 09 4c 11 84 52 20 52 31 32 2c 52 31 32 |00..L..R R12,R12|
00001470 2c 52 35 0d 09 56 17 80 20 52 31 31 2c 52 31 2c |,R5..V.. R11,R1,|
00001480 23 25 30 31 31 30 30 30 30 30 0d 09 60 18 41 44 |#%01100000..`.AD|
00001490 44 20 52 31 31 2c 52 31 31 2c 52 30 2c 4c 53 4c |D R11,R11,R0,LSL|
000014a0 23 35 0d 09 6a 16 43 4d 50 20 52 31 31 2c 23 25 |#5..j.CMP R11,#%|
000014b0 30 31 31 30 30 30 30 30 0d 09 74 18 4d 4f 56 47 |01100000..t.MOVG|
000014c0 54 20 52 31 31 2c 23 25 30 31 31 30 30 30 30 30 |T R11,#%01100000|
000014d0 0d 09 7e 12 84 52 20 52 31 32 2c 52 31 32 2c 52 |..~..R R12,R12,R|
000014e0 31 31 0d 09 88 17 80 20 52 31 31 2c 52 31 2c 23 |11..... R11,R1,#|
000014f0 25 31 30 30 30 30 30 30 30 0d 09 92 16 80 20 52 |%10000000..... R|
00001500 35 2c 52 31 2c 23 25 30 30 30 30 31 30 30 30 0d |5,R1,#%00001000.|
00001510 09 9c 16 84 52 20 52 35 2c 52 31 31 2c 52 35 2c |....R R5,R11,R5,|
00001520 4c 53 4c 23 33 0d 09 a6 16 41 44 44 20 52 35 2c |LSL#3....ADD R5,|
00001530 52 35 2c 52 30 2c 4c 53 4c 23 36 0d 09 b0 15 43 |R5,R0,LSL#6....C|
00001540 4d 50 20 52 35 2c 23 25 31 31 30 30 30 30 30 30 |MP R5,#%11000000|
00001550 0d 09 ba 17 4d 4f 56 47 54 20 52 35 2c 23 25 31 |....MOVGT R5,#%1|
00001560 31 30 30 30 30 30 30 0d 09 c4 17 80 20 52 31 31 |1000000..... R11|
00001570 2c 52 35 2c 23 25 30 31 30 30 30 30 30 30 0d 09 |,R5,#%01000000..|
00001580 ce 16 84 52 20 52 35 2c 52 35 2c 52 31 31 2c 4c |...R R5,R5,R11,L|
00001590 53 52 23 33 0d 09 d8 16 80 20 52 35 2c 52 35 2c |SR#3..... R5,R5,|
000015a0 23 25 31 30 30 30 31 30 30 30 0d 09 e2 11 84 52 |#%10001000.....R|
000015b0 20 52 31 32 2c 52 31 32 2c 52 35 0d 09 ec 14 53 | R12,R12,R5....S|
000015c0 54 52 42 20 52 31 32 2c 5b 52 34 5d 2c 23 31 0d |TRB R12,[R4],#1.|
000015d0 09 f6 17 2e 73 6b 69 70 20 53 55 42 53 20 52 39 |....skip SUBS R9|
000015e0 2c 52 39 2c 23 31 0d 0a 00 0d 42 4e 45 20 78 6c |,R9,#1....BNE xl|
000015f0 6f 6f 70 0d 0a 0a 0d 4d 4f 56 20 52 34 2c 52 36 |oop....MOV R4,R6|
00001600 0d 0a 14 12 41 44 44 20 52 34 2c 52 34 2c 23 33 |....ADD R4,R4,#3|
00001610 32 30 0d 0a 1e 11 53 55 42 53 20 52 33 2c 52 33 |20....SUBS R3,R3|
00001620 2c 23 31 0d 0a 28 0d 42 4e 45 20 79 6c 6f 6f 70 |,#1..(.BNE yloop|
00001630 0d 0a 32 14 4c 44 4d 46 44 20 52 31 33 21 2c 7b |..2.LDMFD R13!,{|
00001640 50 43 7d 5e 0d 0a 3c 12 2e 53 70 72 41 64 72 25 |PC}^..<..SprAdr%|
00001650 45 51 55 44 20 30 0d 0a 46 05 5d 0d 0a 50 0b ed |EQUD 0..F.]..P..|
00001660 20 70 61 73 73 25 0d 0a 5a 05 e1 0d 0a 64 16 dd | pass%..Z....d..|
00001670 20 f2 52 65 66 6c 65 63 74 69 6f 6e 5f 49 6e 69 | .Reflection_Ini|
00001680 74 0d 0a 6e 0b 4e 4f 52 53 3d 34 30 0d 0a 78 1d |t..n.NORS=40..x.|
00001690 de 20 72 69 70 70 6c 65 73 25 36 34 2a 34 2a 34 |. ripples%64*4*4|
000016a0 2a 28 4e 4f 52 53 2b 31 29 0d 0a 82 14 de 20 72 |*(NORS+1)..... r|
000016b0 65 66 6c 65 63 74 69 6f 6e 25 35 31 32 0d 0a 8c |eflection%512...|
000016c0 10 e3 20 70 61 73 73 3d 30 b8 32 88 32 0d 0a 96 |.. pass=0.2.2...|
000016d0 12 50 25 3d 72 65 66 6c 65 63 74 69 6f 6e 25 0d |.P%=reflection%.|
000016e0 0a a0 0d 5b 4f 50 54 20 70 61 73 73 0d 0a aa 11 |...[OPT pass....|
000016f0 2e 77 61 76 65 73 25 45 51 55 44 20 30 0d 0a b4 |.waves%EQUD 0...|
00001700 2e 2e 70 69 78 25 45 51 55 44 25 30 30 30 30 31 |..pix%EQUD%00001|
00001710 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 31 |0000000100000001|
00001720 30 30 30 30 30 30 30 31 30 30 30 0d 0a be 14 2e |00000001000.....|
00001730 73 70 25 45 51 55 44 20 32 30 38 2a 33 32 30 0d |sp%EQUD 208*320.|
00001740 0a c8 15 2e 73 70 32 25 45 51 55 44 20 32 30 38 |....sp2%EQUD 208|
00001750 2a 33 32 30 0d 0a d2 0e 4c 44 52 20 52 31 2c 73 |*320....LDR R1,s|
00001760 70 25 0d 0a dc 10 41 44 44 20 52 31 2c 52 31 2c |p%....ADD R1,R1,|
00001770 52 34 0d 0a e6 0f 4c 44 52 20 52 35 2c 73 70 32 |R4....LDR R5,sp2|
00001780 25 0d 0a f0 10 41 44 44 20 52 32 2c 52 34 2c 52 |%....ADD R2,R4,R|
00001790 35 0d 0a fa 10 4c 44 52 20 52 31 31 2c 70 69 78 |5....LDR R11,pix|
000017a0 25 0d 0b 04 13 41 44 44 20 52 34 2c 52 34 2c 23 |%....ADD R4,R4,#|
000017b0 35 31 32 30 0d 0b 0e 12 4c 44 52 20 52 31 32 2c |5120....LDR R12,|
000017c0 77 61 76 65 73 25 0d 0b 18 16 2e 66 6f 72 79 25 |waves%.....fory%|
000017d0 4d 4f 56 20 52 31 30 2c 23 33 32 30 0d 0b 22 13 |MOV R10,#320..".|
000017e0 4c 44 52 20 52 33 2c 5b 52 31 32 5d 2c 23 34 0d |LDR R3,[R12],#4.|
000017f0 0b 2c 10 41 44 44 20 52 30 2c 52 31 2c 52 33 0d |.,.ADD R0,R1,R3.|
00001800 0b 36 24 2e 66 6f 72 78 25 4c 44 4d 49 41 20 52 |.6$.forx%LDMIA R|
00001810 30 21 2c 7b 52 35 2c 52 36 2c 52 37 2c 52 38 2c |0!,{R5,R6,R7,R8,|
00001820 52 39 7d 0d 0b 40 10 84 52 20 52 35 2c 52 35 2c |R9}..@..R R5,R5,|
00001830 52 31 31 0d 0b 4a 10 84 52 20 52 36 2c 52 36 2c |R11..J..R R6,R6,|
00001840 52 31 31 0d 0b 54 10 84 52 20 52 37 2c 52 37 2c |R11..T..R R7,R7,|
00001850 52 31 31 0d 0b 5e 10 84 52 20 52 38 2c 52 38 2c |R11..^..R R8,R8,|
00001860 52 31 31 0d 0b 68 10 84 52 20 52 39 2c 52 39 2c |R11..h..R R9,R9,|
00001870 52 31 31 0d 0b 72 1e 53 54 4d 49 41 20 52 32 21 |R11..r.STMIA R2!|
00001880 2c 7b 52 35 2c 52 36 2c 52 37 2c 52 38 2c 52 39 |,{R5,R6,R7,R8,R9|
00001890 7d 0d 0b 7c 14 53 55 42 53 20 52 31 30 2c 52 31 |}..|.SUBS R10,R1|
000018a0 30 2c 23 32 30 0d 0b 86 0d 42 4e 45 20 66 6f 72 |0,#20....BNE for|
000018b0 78 25 0d 0b 90 14 53 55 42 20 52 31 2c 52 31 2c |x%....SUB R1,R1,|
000018c0 23 33 32 30 2a 34 0d 0b 9a 0d 43 4d 50 20 52 31 |#320*4....CMP R1|
000018d0 2c 52 34 0d 0b a4 0d 42 47 54 20 66 6f 72 79 25 |,R4....BGT fory%|
000018e0 0d 0b ae 0f 4d 4f 56 20 52 31 35 2c 52 31 34 0d |....MOV R15,R14.|
000018f0 0b b8 05 5d 0d 0b c2 11 52 65 66 6c 65 63 74 69 |...]....Reflecti|
00001900 6f 6e 50 3d 30 0d 0b cc 0e e3 20 50 3d 30 b8 4e |onP=0..... P=0.N|
00001910 4f 52 53 0d 0b d6 0c e3 20 4c 3d 30 b8 35 31 0d |ORS..... L=0.51.|
00001920 0b e0 41 21 28 72 69 70 70 6c 65 73 25 2b 4c 2a |..A!(ripples%+L*|
00001930 34 2b 50 2a 34 2a 35 32 29 3d a8 28 28 b5 28 4c |4+P*4*52)=.((.(L|
00001940 2f 35 2b 52 65 66 6c 65 63 74 69 6f 6e 50 29 2a |/5+ReflectionP)*|
00001950 38 2d 38 29 2a 28 4c 2f 35 31 29 29 2a 33 32 30 |8-8)*(L/51))*320|
00001960 0d 0b ea 07 ed 20 4c 0d 0b f4 19 52 65 66 6c 65 |..... L....Refle|
00001970 63 74 69 6f 6e 50 2b 3d 32 2a af 2f 4e 4f 52 53 |ctionP+=2*./NORS|
00001980 0d 0b fe 07 ed 20 50 0d 0c 08 11 52 65 66 6c 65 |..... P....Refle|
00001990 63 74 69 6f 6e 50 3d 30 0d 0c 12 05 e1 0d 0c 1c |ctionP=0........|
000019a0 1c dd 20 f2 52 65 66 6c 65 63 74 69 6f 6e 5f 55 |.. .Reflection_U|
000019b0 70 64 61 74 65 28 42 25 29 0d 0c 26 28 21 77 61 |pdate(B%)..&(!wa|
000019c0 76 65 73 25 3d 72 69 70 70 6c 65 73 25 2b a8 28 |ves%=ripples%+.(|
000019d0 52 65 66 6c 65 63 74 69 6f 6e 50 29 2a 35 32 2a |ReflectionP)*52*|
000019e0 34 0d 0c 30 41 52 65 66 6c 65 63 74 69 6f 6e 50 |4..0AReflectionP|
000019f0 2b 3d 52 65 66 6c 65 63 74 69 6f 6e 53 70 65 65 |+=ReflectionSpee|
00001a00 64 3a e7 20 52 65 66 6c 65 63 74 69 6f 6e 50 3e |d:. ReflectionP>|
00001a10 4e 4f 52 53 20 52 65 66 6c 65 63 74 69 6f 6e 50 |NORS ReflectionP|
00001a20 3d 30 0d 0c 3a 0e 45 25 3d 42 41 25 28 42 25 29 |=0..:.E%=BA%(B%)|
00001a30 0d 0c 44 11 d6 20 72 65 66 6c 65 63 74 69 6f 6e |..D.. reflection|
00001a40 25 0d 0c 4e 05 e1 0d 0c 58 12 dd 20 f2 49 6e 69 |%..N....X.. .Ini|
00001a50 74 5f 53 74 61 72 7a 32 0d 0c 62 0b de 20 47 28 |t_Starz2..b.. G(|
00001a60 31 36 29 0d 0c 6c 12 47 28 31 29 3d 25 30 30 30 |16)..l.G(1)=%000|
00001a70 30 30 30 30 30 0d 0c 76 12 47 28 32 29 3d 25 30 |00000..v.G(2)=%0|
00001a80 30 30 30 30 30 31 30 0d 0c 80 12 47 28 33 29 3d |0000010....G(3)=|
00001a90 25 30 30 30 30 30 30 30 31 0d 0c 8a 12 47 28 34 |%00000001....G(4|
00001aa0 29 3d 25 30 30 30 30 30 30 31 31 0d 0c 94 12 47 |)=%00000011....G|
00001ab0 28 35 29 3d 25 30 30 31 30 31 31 30 30 0d 0c 9e |(5)=%00101100...|
00001ac0 12 47 28 36 29 3d 25 30 30 31 30 31 31 31 30 0d |.G(6)=%00101110.|
00001ad0 0c a8 12 47 28 37 29 3d 25 30 30 31 30 31 31 30 |...G(7)=%0010110|
00001ae0 31 0d 0c b2 12 47 28 38 29 3d 25 30 30 31 30 31 |1....G(8)=%00101|
00001af0 31 31 31 0d 0c bc 12 47 28 39 29 3d 25 31 31 30 |111....G(9)=%110|
00001b00 31 30 30 30 30 0d 0c c6 13 47 28 31 30 29 3d 25 |10000....G(10)=%|
00001b10 31 31 30 31 30 30 31 30 0d 0c d0 13 47 28 31 31 |11010010....G(11|
00001b20 29 3d 25 31 31 30 31 30 30 30 31 0d 0c da 13 47 |)=%11010001....G|
00001b30 28 31 32 29 3d 25 31 31 30 31 30 30 31 31 0d 0c |(12)=%11010011..|
00001b40 e4 13 47 28 31 33 29 3d 25 31 31 31 31 31 31 30 |..G(13)=%1111110|
00001b50 30 0d 0c ee 13 47 28 31 34 29 3d 25 31 31 31 31 |0....G(14)=%1111|
00001b60 31 31 31 30 0d 0c f8 13 47 28 31 35 29 3d 25 31 |1110....G(15)=%1|
00001b70 31 31 31 31 31 30 31 0d 0d 02 13 47 28 31 36 29 |1111101....G(16)|
00001b80 3d 25 31 31 31 31 31 31 31 31 0d 0d 0c 18 de 20 |=%11111111..... |
00001b90 53 74 61 72 7a 32 5f 42 6c 6b 25 31 30 32 34 2a |Starz2_Blk%1024*|
00001ba0 31 32 0d 0d 16 0e e3 20 4c 3d 30 b8 31 30 32 33 |12..... L=0.1023|
00001bb0 0d 0d 20 30 21 28 53 74 61 72 7a 32 5f 42 6c 6b |.. 0!(Starz2_Blk|
00001bc0 25 2b 4c 2a 31 32 2b 30 29 3d 28 b3 28 33 32 30 |%+L*12+0)=(.(320|
00001bd0 29 2b b3 28 32 35 33 29 2a 33 32 30 29 3c 3c 38 |)+.(253)*320)<<8|
00001be0 0d 0d 2a 0a 4e 3d b3 28 34 29 0d 0d 34 1e 21 28 |..*.N=.(4)..4.!(|
00001bf0 53 74 61 72 7a 32 5f 42 6c 6b 25 2b 4c 2a 31 32 |Starz2_Blk%+L*12|
00001c00 2b 34 29 3d 4e 3c 3c 37 0d 0d 3e 23 21 28 53 74 |+4)=N<<7..>#!(St|
00001c10 61 72 7a 32 5f 42 6c 6b 25 2b 4c 2a 31 32 2b 38 |arz2_Blk%+L*12+8|
00001c20 29 3d 47 28 31 36 2a 4e 2f 34 29 0d 0d 48 07 ed |)=G(16*N/4)..H..|
00001c30 20 4c 0d 0d 52 10 de 20 53 74 61 72 7a 32 20 35 | L..R.. Starz2 5|
00001c40 31 32 0d 0d 5c 0d 50 25 3d 53 74 61 72 7a 32 0d |12..\.P%=Starz2.|
00001c50 0d 66 0a 5b 4f 50 54 20 32 0d 0d 70 21 2e 53 63 |.f.[OPT 2..p!.Sc|
00001c60 72 65 65 6e 53 69 7a 65 20 45 51 55 44 20 28 33 |reenSize EQUD (3|
00001c70 32 30 2a 32 35 33 29 3c 3c 38 0d 0d 7a 20 2e 53 |20*253)<<8..z .S|
00001c80 74 61 72 7a 32 44 61 74 61 20 45 51 55 44 20 53 |tarz2Data EQUD S|
00001c90 74 61 72 7a 32 5f 42 6c 6b 25 0d 0d 84 0d 4d 4f |tarz2_Blk%....MO|
00001ca0 56 20 52 31 2c 52 33 0d 0d 8e 15 4c 44 52 20 52 |V R1,R3....LDR R|
00001cb0 30 2c 53 74 61 72 7a 32 44 61 74 61 0d 0d 98 0f |0,Starz2Data....|
00001cc0 4d 4f 56 20 52 32 2c 23 31 32 38 0d 0d a2 0d 4d |MOV R2,#128....M|
00001cd0 4f 56 20 52 38 2c 23 30 0d 0d ac 15 4c 44 52 20 |OV R8,#0....LDR |
00001ce0 52 37 2c 53 63 72 65 65 6e 53 69 7a 65 0d 0d b6 |R7,ScreenSize...|
00001cf0 15 2e 46 6f 72 4c 20 4c 44 52 20 52 33 2c 5b 52 |..ForL LDR R3,[R|
00001d00 30 5d 0d 0d c0 12 4c 44 52 20 52 34 2c 5b 52 30 |0]....LDR R4,[R0|
00001d10 2c 23 34 5d 0d 0d ca 12 4c 44 52 20 52 35 2c 5b |,#4]....LDR R5,[|
00001d20 52 30 2c 23 38 5d 0d 0d d4 10 41 44 44 20 52 33 |R0,#8]....ADD R3|
00001d30 2c 52 33 2c 52 34 0d 0d de 0d 43 4d 50 20 52 33 |,R3,R4....CMP R3|
00001d40 2c 52 37 0d 0d e8 0f 4d 4f 56 47 45 20 52 33 2c |,R7....MOVGE R3,|
00001d50 23 30 0d 0d f2 16 41 44 44 20 52 36 2c 52 31 2c |#0....ADD R6,R1,|
00001d60 52 33 2c 4c 53 52 23 38 0d 0d fc 10 4c 44 52 42 |R3,LSR#8....LDRB|
00001d70 20 52 39 2c 5b 52 36 5d 0d 0e 06 0d 43 4d 50 20 | R9,[R6]....CMP |
00001d80 52 39 2c 23 30 0d 0e 10 12 53 54 52 45 51 42 20 |R9,#0....STREQB |
00001d90 52 35 2c 5b 52 36 5d 0d 0e 1a 13 53 54 52 20 52 |R5,[R6]....STR R|
00001da0 33 2c 5b 52 30 5d 2c 23 31 32 0d 0e 24 10 41 44 |3,[R0],#12..$.AD|
00001db0 44 20 52 38 2c 52 38 2c 23 31 0d 0e 2e 0d 43 4d |D R8,R8,#1....CM|
00001dc0 50 20 52 38 2c 52 32 0d 0e 38 0c 42 4c 54 20 46 |P R8,R2..8.BLT F|
00001dd0 6f 72 4c 0d 0e 42 0f 4d 4f 56 20 52 31 35 2c 52 |orL..B.MOV R15,R|
00001de0 31 34 0d 0e 4c 05 5d 0d 0e 56 05 e1 0d 0e 60 0d |14..L.]..V....`.|
00001df0 dd 20 f2 54 61 62 6c 65 73 0d 0e 6a 19 de 20 63 |. .Tables..j.. c|
00001e00 6f 73 25 28 35 31 32 29 2c 73 69 6e 25 28 35 31 |os%(512),sin%(51|
00001e10 32 29 0d 0e 74 0d e3 20 4c 3d 30 b8 35 31 32 0d |2)..t.. L=0.512.|
00001e20 0e 7e 25 63 6f 73 25 28 4c 29 3d 9b 28 b2 28 33 |.~%cos%(L)=.(.(3|
00001e30 36 30 2a 28 4c 2d 32 35 35 29 2f 32 35 35 29 29 |60*(L-255)/255))|
00001e40 2a 32 35 36 0d 0e 88 25 73 69 6e 25 28 4c 29 3d |*256...%sin%(L)=|
00001e50 b5 28 b2 28 33 36 30 2a 28 4c 2d 32 35 35 29 2f |.(.(360*(L-255)/|
00001e60 32 35 35 29 29 2a 32 35 36 0d 0e 92 07 ed 20 4c |255))*256..... L|
00001e70 0d 0e 9c 05 e1 0d 0e a6 12 dd 20 f2 53 63 61 6e |.......... .Scan|
00001e80 53 70 72 69 74 65 73 0d 0e b0 17 c8 99 36 2c 31 |Sprites......6,1|
00001e90 31 32 2c 32 3a c8 99 36 2c 31 31 33 2c 31 0d 0e |12,2:..6,113,1..|
00001ea0 ba 26 f2 53 70 72 69 74 65 5f 50 6c 6f 74 28 61 |.&.Sprite_Plot(a|
00001eb0 72 65 61 25 2c 22 6d 6f 6f 6e 22 2c 30 2c 37 39 |rea%,"moon",0,79|
00001ec0 32 2c 38 29 0d 0e c4 18 f2 49 6e 69 74 5f 4d 6f |2,8).....Init_Mo|
00001ed0 6f 6e 28 32 2c 32 32 35 2c 33 30 29 0d 0e ce 28 |on(2,225,30)...(|
00001ee0 f2 53 70 72 69 74 65 5f 50 6c 6f 74 28 61 72 65 |.Sprite_Plot(are|
00001ef0 61 25 2c 22 63 61 73 74 6c 65 22 2c 30 2c 36 35 |a%,"castle",0,65|
00001f00 32 2c 38 29 0d 0e d8 18 f2 49 6e 69 74 5f 48 69 |2,8).....Init_Hi|
00001f10 6c 6c 28 32 2c 31 32 2c 31 31 36 29 0d 0e e2 05 |ll(2,12,116)....|
00001f20 e1 0d 0e ec 1d dd 20 f2 49 6e 69 74 5f 48 69 6c |...... .Init_Hil|
00001f30 6c 28 42 61 6e 6b 25 2c 58 25 2c 59 25 29 0d 0e |l(Bank%,X%,Y%)..|
00001f40 f6 10 de 20 68 69 6c 6c 25 31 34 30 30 30 0d 0f |... hill%14000..|
00001f50 00 12 de 20 68 69 6c 6c 63 6f 64 65 25 32 35 35 |... hillcode%255|
00001f60 0d 0f 0a 10 50 25 3d 68 69 6c 6c 63 6f 64 65 25 |....P%=hillcode%|
00001f70 0d 0f 14 0a 5b 4f 50 54 20 32 0d 0f 1e 18 2e 68 |....[OPT 2.....h|
00001f80 69 6c 6c 64 61 74 61 25 45 51 55 44 20 68 69 6c |illdata%EQUD hil|
00001f90 6c 25 0d 0f 28 19 2e 68 69 6c 6c 70 6c 6f 74 25 |l%..(..hillplot%|
00001fa0 4d 4f 56 20 52 32 2c 23 31 37 32 0d 0f 32 0f 4d |MOV R2,#172..2.M|
00001fb0 4f 56 20 52 35 2c 23 33 32 30 0d 0f 3c 0e 4d 4f |OV R5,#320..<.MO|
00001fc0 56 20 52 30 2c 23 58 25 0d 0f 46 0e 4d 4f 56 20 |V R0,#X%..F.MOV |
00001fd0 52 31 2c 23 59 25 0d 0f 50 13 4d 4c 41 20 52 34 |R1,#Y%..P.MLA R4|
00001fe0 2c 52 31 2c 52 35 2c 52 30 0d 0f 5a 10 41 44 44 |,R1,R5,R0..Z.ADD|
00001ff0 20 52 34 2c 52 34 2c 52 33 0d 0f 64 14 4c 44 52 | R4,R4,R3..d.LDR|
00002000 20 52 36 2c 68 69 6c 6c 64 61 74 61 25 0d 0f 6e | R6,hilldata%..n|
00002010 0f 4d 4f 56 20 52 31 32 2c 23 39 33 0d 0f 78 33 |.MOV R12,#93..x3|
00002020 2e 68 6c 6f 6f 70 25 4c 44 4d 49 41 20 52 36 21 |.hloop%LDMIA R6!|
00002030 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 |,{R0,R1,R3,R5,R7|
00002040 2c 52 38 2c 52 39 2c 52 31 30 2c 52 31 31 7d 0d |,R8,R9,R10,R11}.|
00002050 0f 82 2c 53 54 4d 49 41 20 52 34 21 2c 7b 52 30 |..,STMIA R4!,{R0|
00002060 2c 52 31 2c 52 33 2c 52 35 2c 52 37 2c 52 38 2c |,R1,R3,R5,R7,R8,|
00002070 52 39 2c 52 31 30 2c 52 31 31 7d 0d 0f 8c 2c 4c |R9,R10,R11}...,L|
00002080 44 4d 49 41 20 52 36 21 2c 7b 52 30 2c 52 31 2c |DMIA R6!,{R0,R1,|
00002090 52 33 2c 52 35 2c 52 37 2c 52 38 2c 52 39 2c 52 |R3,R5,R7,R8,R9,R|
000020a0 31 30 2c 52 31 31 7d 0d 0f 96 2c 53 54 4d 49 41 |10,R11}...,STMIA|
000020b0 20 52 34 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 | R4!,{R0,R1,R3,R|
000020c0 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 2c 52 |5,R7,R8,R9,R10,R|
000020d0 31 31 7d 0d 0f a0 2c 4c 44 4d 49 41 20 52 36 21 |11}...,LDMIA R6!|
000020e0 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 |,{R0,R1,R3,R5,R7|
000020f0 2c 52 38 2c 52 39 2c 52 31 30 2c 52 31 31 7d 0d |,R8,R9,R10,R11}.|
00002100 0f aa 2c 53 54 4d 49 41 20 52 34 21 2c 7b 52 30 |..,STMIA R4!,{R0|
00002110 2c 52 31 2c 52 33 2c 52 35 2c 52 37 2c 52 38 2c |,R1,R3,R5,R7,R8,|
00002120 52 39 2c 52 31 30 2c 52 31 31 7d 0d 0f b4 2c 4c |R9,R10,R11}...,L|
00002130 44 4d 49 41 20 52 36 21 2c 7b 52 30 2c 52 31 2c |DMIA R6!,{R0,R1,|
00002140 52 33 2c 52 35 2c 52 37 2c 52 38 2c 52 39 2c 52 |R3,R5,R7,R8,R9,R|
00002150 31 30 2c 52 31 31 7d 0d 0f be 2c 53 54 4d 49 41 |10,R11}...,STMIA|
00002160 20 52 34 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 | R4!,{R0,R1,R3,R|
00002170 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 2c 52 |5,R7,R8,R9,R10,R|
00002180 31 31 7d 0d 0f c8 12 4c 44 4d 49 41 20 52 36 21 |11}....LDMIA R6!|
00002190 2c 7b 52 30 7d 0d 0f d2 12 53 54 4d 49 41 20 52 |,{R0}....STMIA R|
000021a0 34 21 2c 7b 52 30 7d 0d 0f dc 10 41 44 44 20 52 |4!,{R0}....ADD R|
000021b0 34 2c 52 34 2c 52 32 0d 0f e6 13 53 55 42 53 20 |4,R4,R2....SUBS |
000021c0 52 31 32 2c 52 31 32 2c 23 31 0d 0f f0 0e 42 4e |R12,R12,#1....BN|
000021d0 45 20 68 6c 6f 6f 70 25 0d 0f fa 0f 4d 4f 56 20 |E hloop%....MOV |
000021e0 52 31 35 2c 52 31 34 0d 10 04 19 2e 68 69 6c 6c |R15,R14.....hill|
000021f0 73 63 61 6e 25 4d 4f 56 20 52 32 2c 23 31 37 32 |scan%MOV R2,#172|
00002200 0d 10 0e 0f 4d 4f 56 20 52 35 2c 23 33 32 30 0d |....MOV R5,#320.|
00002210 10 18 13 4d 4c 41 20 52 34 2c 52 31 2c 52 35 2c |...MLA R4,R1,R5,|
00002220 52 30 0d 10 22 10 41 44 44 20 52 34 2c 52 34 2c |R0..".ADD R4,R4,|
00002230 52 33 0d 10 2c 14 4c 44 52 20 52 36 2c 68 69 6c |R3..,.LDR R6,hil|
00002240 6c 64 61 74 61 25 0d 10 36 0f 4d 4f 56 20 52 31 |ldata%..6.MOV R1|
00002250 32 2c 23 39 33 0d 10 40 34 2e 68 6c 6f 6f 70 32 |2,#93..@4.hloop2|
00002260 25 4c 44 4d 49 41 20 52 34 21 2c 7b 52 30 2c 52 |%LDMIA R4!,{R0,R|
00002270 31 2c 52 33 2c 52 35 2c 52 37 2c 52 38 2c 52 39 |1,R3,R5,R7,R8,R9|
00002280 2c 52 31 30 2c 52 31 31 7d 0d 10 4a 2c 53 54 4d |,R10,R11}..J,STM|
00002290 49 41 20 52 36 21 2c 7b 52 30 2c 52 31 2c 52 33 |IA R6!,{R0,R1,R3|
000022a0 2c 52 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 |,R5,R7,R8,R9,R10|
000022b0 2c 52 31 31 7d 0d 10 54 2c 4c 44 4d 49 41 20 52 |,R11}..T,LDMIA R|
000022c0 34 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c |4!,{R0,R1,R3,R5,|
000022d0 52 37 2c 52 38 2c 52 39 2c 52 31 30 2c 52 31 31 |R7,R8,R9,R10,R11|
000022e0 7d 0d 10 5e 2c 53 54 4d 49 41 20 52 36 21 2c 7b |}..^,STMIA R6!,{|
000022f0 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 2c 52 |R0,R1,R3,R5,R7,R|
00002300 38 2c 52 39 2c 52 31 30 2c 52 31 31 7d 0d 10 68 |8,R9,R10,R11}..h|
00002310 2c 4c 44 4d 49 41 20 52 34 21 2c 7b 52 30 2c 52 |,LDMIA R4!,{R0,R|
00002320 31 2c 52 33 2c 52 35 2c 52 37 2c 52 38 2c 52 39 |1,R3,R5,R7,R8,R9|
00002330 2c 52 31 30 2c 52 31 31 7d 0d 10 72 2c 53 54 4d |,R10,R11}..r,STM|
00002340 49 41 20 52 36 21 2c 7b 52 30 2c 52 31 2c 52 33 |IA R6!,{R0,R1,R3|
00002350 2c 52 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 |,R5,R7,R8,R9,R10|
00002360 2c 52 31 31 7d 0d 10 7c 2c 4c 44 4d 49 41 20 52 |,R11}..|,LDMIA R|
00002370 34 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c |4!,{R0,R1,R3,R5,|
00002380 52 37 2c 52 38 2c 52 39 2c 52 31 30 2c 52 31 31 |R7,R8,R9,R10,R11|
00002390 7d 0d 10 86 2c 53 54 4d 49 41 20 52 36 21 2c 7b |}...,STMIA R6!,{|
000023a0 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 2c 52 |R0,R1,R3,R5,R7,R|
000023b0 38 2c 52 39 2c 52 31 30 2c 52 31 31 7d 0d 10 90 |8,R9,R10,R11}...|
000023c0 12 4c 44 4d 49 41 20 52 34 21 2c 7b 52 30 7d 0d |.LDMIA R4!,{R0}.|
000023d0 10 9a 12 53 54 4d 49 41 20 52 36 21 2c 7b 52 30 |...STMIA R6!,{R0|
000023e0 7d 0d 10 a4 10 41 44 44 20 52 34 2c 52 34 2c 52 |}....ADD R4,R4,R|
000023f0 32 0d 10 ae 13 53 55 42 53 20 52 31 32 2c 52 31 |2....SUBS R12,R1|
00002400 32 2c 23 31 0d 10 b8 0f 42 4e 45 20 68 6c 6f 6f |2,#1....BNE hloo|
00002410 70 32 25 0d 10 c2 0f 4d 4f 56 20 52 31 35 2c 52 |p2%....MOV R15,R|
00002420 31 34 0d 10 cc 05 5d 0d 10 d6 08 41 25 3d 30 0d |14....]....A%=0.|
00002430 10 e0 08 42 25 3d 30 0d 10 ea 11 44 25 3d 42 41 |...B%=0....D%=BA|
00002440 25 28 42 61 6e 6b 25 29 0d 10 f4 0f d6 20 68 69 |%(Bank%)..... hi|
00002450 6c 6c 73 63 61 6e 25 0d 10 fe 05 e1 0d 11 08 1d |llscan%.........|
00002460 dd 20 f2 49 6e 69 74 5f 4d 6f 6f 6e 28 42 61 6e |. .Init_Moon(Ban|
00002470 6b 25 2c 58 25 2c 59 25 29 0d 11 12 0f de 20 6d |k%,X%,Y%)..... m|
00002480 6f 6f 6e 25 33 32 34 38 0d 11 1c 12 de 20 6d 6f |oon%3248..... mo|
00002490 6f 6e 63 6f 64 65 25 32 35 35 0d 11 26 10 50 25 |oncode%255..&.P%|
000024a0 3d 6d 6f 6f 6e 63 6f 64 65 25 0d 11 30 0a 5b 4f |=mooncode%..0.[O|
000024b0 50 54 20 32 0d 11 3a 18 2e 6d 6f 6f 6e 64 61 74 |PT 2..:..moondat|
000024c0 61 25 45 51 55 44 20 6d 6f 6f 6e 25 0d 11 44 19 |a%EQUD moon%..D.|
000024d0 2e 6d 6f 6f 6e 70 6c 6f 74 25 4d 4f 56 20 52 32 |.moonplot%MOV R2|
000024e0 2c 23 32 36 34 0d 11 4e 0f 4d 4f 56 20 52 35 2c |,#264..N.MOV R5,|
000024f0 23 33 32 30 0d 11 58 0e 4d 4f 56 20 52 30 2c 23 |#320..X.MOV R0,#|
00002500 58 25 0d 11 62 0e 4d 4f 56 20 52 31 2c 23 59 25 |X%..b.MOV R1,#Y%|
00002510 0d 11 6c 13 4d 4c 41 20 52 34 2c 52 31 2c 52 35 |..l.MLA R4,R1,R5|
00002520 2c 52 30 0d 11 76 10 41 44 44 20 52 34 2c 52 34 |,R0..v.ADD R4,R4|
00002530 2c 52 33 0d 11 80 14 4c 44 52 20 52 36 2c 6d 6f |,R3....LDR R6,mo|
00002540 6f 6e 64 61 74 61 25 0d 11 8a 0f 4d 4f 56 20 52 |ondata%....MOV R|
00002550 31 32 2c 23 35 38 0d 11 94 33 2e 6d 6c 6f 6f 70 |12,#58...3.mloop|
00002560 25 4c 44 4d 49 41 20 52 36 21 2c 7b 52 30 2c 52 |%LDMIA R6!,{R0,R|
00002570 31 2c 52 33 2c 52 35 2c 52 37 2c 52 38 2c 52 39 |1,R3,R5,R7,R8,R9|
00002580 2c 52 31 30 2c 52 31 31 7d 0d 11 9e 2c 53 54 4d |,R10,R11}...,STM|
00002590 49 41 20 52 34 21 2c 7b 52 30 2c 52 31 2c 52 33 |IA R4!,{R0,R1,R3|
000025a0 2c 52 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 |,R5,R7,R8,R9,R10|
000025b0 2c 52 31 31 7d 0d 11 a8 1e 4c 44 4d 49 41 20 52 |,R11}....LDMIA R|
000025c0 36 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c |6!,{R0,R1,R3,R5,|
000025d0 52 37 7d 0d 11 b2 1e 53 54 4d 49 41 20 52 34 21 |R7}....STMIA R4!|
000025e0 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 |,{R0,R1,R3,R5,R7|
000025f0 7d 0d 11 bc 10 41 44 44 20 52 34 2c 52 34 2c 52 |}....ADD R4,R4,R|
00002600 32 0d 11 c6 13 53 55 42 53 20 52 31 32 2c 52 31 |2....SUBS R12,R1|
00002610 32 2c 23 31 0d 11 d0 0e 42 4e 45 20 6d 6c 6f 6f |2,#1....BNE mloo|
00002620 70 25 0d 11 da 0f 4d 4f 56 20 52 31 35 2c 52 31 |p%....MOV R15,R1|
00002630 34 0d 11 e4 19 2e 6d 6f 6f 6e 73 63 61 6e 25 4d |4.....moonscan%M|
00002640 4f 56 20 52 32 2c 23 32 36 34 0d 11 ee 0f 4d 4f |OV R2,#264....MO|
00002650 56 20 52 35 2c 23 33 32 30 0d 11 f8 13 4d 4c 41 |V R5,#320....MLA|
00002660 20 52 34 2c 52 31 2c 52 35 2c 52 30 0d 12 02 10 | R4,R1,R5,R0....|
00002670 41 44 44 20 52 34 2c 52 34 2c 52 33 0d 12 0c 14 |ADD R4,R4,R3....|
00002680 4c 44 52 20 52 36 2c 6d 6f 6f 6e 64 61 74 61 25 |LDR R6,moondata%|
00002690 0d 12 16 0f 4d 4f 56 20 52 31 32 2c 23 35 38 0d |....MOV R12,#58.|
000026a0 12 20 34 2e 6d 6c 6f 6f 70 32 25 4c 44 4d 49 41 |. 4.mloop2%LDMIA|
000026b0 20 52 34 21 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 | R4!,{R0,R1,R3,R|
000026c0 35 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 2c 52 |5,R7,R8,R9,R10,R|
000026d0 31 31 7d 0d 12 2a 2c 53 54 4d 49 41 20 52 36 21 |11}..*,STMIA R6!|
000026e0 2c 7b 52 30 2c 52 31 2c 52 33 2c 52 35 2c 52 37 |,{R0,R1,R3,R5,R7|
000026f0 2c 52 38 2c 52 39 2c 52 31 30 2c 52 31 31 7d 0d |,R8,R9,R10,R11}.|
00002700 12 34 1e 4c 44 4d 49 41 20 52 34 21 2c 7b 52 30 |.4.LDMIA R4!,{R0|
00002710 2c 52 31 2c 52 33 2c 52 35 2c 52 37 7d 0d 12 3e |,R1,R3,R5,R7}..>|
00002720 1e 53 54 4d 49 41 20 52 36 21 2c 7b 52 30 2c 52 |.STMIA R6!,{R0,R|
00002730 31 2c 52 33 2c 52 35 2c 52 37 7d 0d 12 48 10 41 |1,R3,R5,R7}..H.A|
00002740 44 44 20 52 34 2c 52 34 2c 52 32 0d 12 52 13 53 |DD R4,R4,R2..R.S|
00002750 55 42 53 20 52 31 32 2c 52 31 32 2c 23 31 0d 12 |UBS R12,R12,#1..|
00002760 5c 0f 42 4e 45 20 6d 6c 6f 6f 70 32 25 0d 12 66 |\.BNE mloop2%..f|
00002770 0f 4d 4f 56 20 52 31 35 2c 52 31 34 0d 12 70 05 |.MOV R15,R14..p.|
00002780 5d 0d 12 7a 08 41 25 3d 30 0d 12 84 08 42 25 3d |]..z.A%=0....B%=|
00002790 30 0d 12 8e 11 44 25 3d 42 41 25 28 42 61 6e 6b |0....D%=BA%(Bank|
000027a0 25 29 0d 12 98 0f d6 20 6d 6f 6f 6e 73 63 61 6e |%)..... moonscan|
000027b0 25 0d 12 a2 05 e1 0d 12 ac 10 dd 20 f2 49 6e 69 |%.......... .Ini|
000027c0 74 5f 46 43 4c 53 0d 12 b6 11 de 20 46 61 73 74 |t_FCLS..... Fast|
000027d0 43 4c 53 25 32 35 35 0d 12 c0 0f 50 25 3d 46 61 |CLS%255....P%=Fa|
000027e0 73 74 43 4c 53 25 0d 12 ca 0a 5b 4f 50 54 20 32 |stCLS%....[OPT 2|
000027f0 0d 12 d4 0d 4d 4f 56 20 52 31 2c 23 30 0d 12 de |....MOV R1,#0...|
00002800 0d 4d 4f 56 20 52 32 2c 52 31 0d 12 e8 0d 4d 4f |.MOV R2,R1....MO|
00002810 56 20 52 30 2c 52 31 0d 12 f2 0d 4d 4f 56 20 52 |V R0,R1....MOV R|
00002820 34 2c 52 31 0d 12 fc 0d 4d 4f 56 20 52 35 2c 52 |4,R1....MOV R5,R|
00002830 31 0d 13 06 0d 4d 4f 56 20 52 36 2c 52 31 0d 13 |1....MOV R6,R1..|
00002840 10 0d 4d 4f 56 20 52 37 2c 52 31 0d 13 1a 0d 4d |..MOV R7,R1....M|
00002850 4f 56 20 52 38 2c 52 31 0d 13 24 0d 4d 4f 56 20 |OV R8,R1..$.MOV |
00002860 52 39 2c 52 31 0d 13 2e 0e 4d 4f 56 20 52 31 30 |R9,R1....MOV R10|
00002870 2c 52 31 0d 13 38 0e 4d 4f 56 20 52 31 31 2c 52 |,R1..8.MOV R11,R|
00002880 31 0d 13 42 10 4d 4f 56 20 52 31 32 2c 23 32 31 |1..B.MOV R12,#21|
00002890 30 0d 13 4c 0c 2e 72 65 70 65 61 74 25 0d 13 56 |0..L..repeat%..V|
000028a0 1c 53 54 4d 49 41 20 52 33 21 2c 7b 52 30 2d 52 |.STMIA R3!,{R0-R|
000028b0 32 2c 52 34 2d 52 31 31 7d 0d 13 60 1c 53 54 4d |2,R4-R11}..`.STM|
000028c0 49 41 20 52 33 21 2c 7b 52 30 2d 52 32 2c 52 34 |IA R3!,{R0-R2,R4|
000028d0 2d 52 31 31 7d 0d 13 6a 1c 53 54 4d 49 41 20 52 |-R11}..j.STMIA R|
000028e0 33 21 2c 7b 52 30 2d 52 32 2c 52 34 2d 52 31 31 |3!,{R0-R2,R4-R11|
000028f0 7d 0d 13 74 1c 53 54 4d 49 41 20 52 33 21 2c 7b |}..t.STMIA R3!,{|
00002900 52 30 2d 52 32 2c 52 34 2d 52 31 31 7d 0d 13 7e |R0-R2,R4-R11}..~|
00002910 1c 53 54 4d 49 41 20 52 33 21 2c 7b 52 30 2d 52 |.STMIA R3!,{R0-R|
00002920 32 2c 52 34 2d 52 31 31 7d 0d 13 88 1c 53 54 4d |2,R4-R11}....STM|
00002930 49 41 20 52 33 21 2c 7b 52 30 2d 52 32 2c 52 34 |IA R3!,{R0-R2,R4|
00002940 2d 52 31 31 7d 0d 13 92 1c 53 54 4d 49 41 20 52 |-R11}....STMIA R|
00002950 33 21 2c 7b 52 30 2d 52 32 2c 52 34 2d 52 31 31 |3!,{R0-R2,R4-R11|
00002960 7d 0d 13 9c 18 53 54 4d 49 41 20 52 33 21 2c 7b |}....STMIA R3!,{|
00002970 52 30 2c 52 31 2c 52 32 7d 0d 13 a6 13 53 55 42 |R0,R1,R2}....SUB|
00002980 53 20 52 31 32 2c 52 31 32 2c 23 31 0d 13 b0 0f |S R12,R12,#1....|
00002990 42 4e 45 20 72 65 70 65 61 74 25 0d 13 ba 0f 4d |BNE repeat%....M|
000029a0 4f 56 20 52 31 35 2c 52 31 34 0d 13 c4 05 5d 0d |OV R15,R14....].|
000029b0 13 ce 05 e1 0d 13 d8 14 dd 20 f2 49 6e 69 74 5f |......... .Init_|
000029c0 46 61 73 74 53 63 61 6e 0d 13 e2 11 65 78 74 72 |FastScan....extr|
000029d0 65 6d 65 6c 79 3d 32 35 36 0d 13 ec 14 de 20 4d |emely=256..... M|
000029e0 61 72 6b 20 65 78 74 72 65 6d 65 6c 79 0d 13 f6 |ark extremely...|
000029f0 11 e3 20 70 61 73 73 25 3d 30 b8 32 88 32 0d 14 |.. pass%=0.2.2..|
00002a00 00 0b 50 25 3d 4d 61 72 6b 0d 14 0a 0e 5b 4f 50 |..P%=Mark....[OP|
00002a10 54 20 70 61 73 73 25 0d 14 14 15 2e 67 72 61 62 |T pass%.....grab|
00002a20 20 4d 4f 56 20 52 37 2c 23 33 32 30 0d 14 1e 10 | MOV R7,#320....|
00002a30 53 55 42 20 52 34 2c 52 32 2c 23 34 0d 14 28 18 |SUB R4,R2,#4..(.|
00002a40 2e 67 78 6c 6f 6f 70 20 53 55 42 20 52 35 2c 52 |.gxloop SUB R5,R|
00002a50 33 2c 23 31 0d 14 32 1b 2e 67 79 6c 6f 6f 70 20 |3,#1..2..gyloop |
00002a60 4d 4c 41 20 52 38 2c 52 37 2c 52 35 2c 52 31 0d |MLA R8,R7,R5,R1.|
00002a70 14 3c 10 41 44 44 20 52 38 2c 52 38 2c 52 34 0d |.<.ADD R8,R8,R4.|
00002a80 14 46 0f 4c 44 52 20 52 36 2c 5b 52 38 5d 0d 14 |.F.LDR R6,[R8]..|
00002a90 50 13 4d 4c 41 20 52 38 2c 52 32 2c 52 35 2c 52 |P.MLA R8,R2,R5,R|
00002aa0 30 0d 14 5a 10 41 44 44 20 52 38 2c 52 38 2c 52 |0..Z.ADD R8,R8,R|
00002ab0 34 0d 14 64 0f 53 54 52 20 52 36 2c 5b 52 38 5d |4..d.STR R6,[R8]|
00002ac0 0d 14 6e 11 53 55 42 53 20 52 35 2c 52 35 2c 23 |..n.SUBS R5,R5,#|
00002ad0 31 0d 14 78 0e 42 47 45 20 67 79 6c 6f 6f 70 0d |1..x.BGE gyloop.|
00002ae0 14 82 11 53 55 42 53 20 52 34 2c 52 34 2c 23 34 |...SUBS R4,R4,#4|
00002af0 0d 14 8c 0e 42 47 45 20 67 78 6c 6f 6f 70 0d 14 |....BGE gxloop..|
00002b00 96 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 14 a0 |..MOVS PC,R14...|
00002b10 05 5d 0d 14 aa 0b ed 20 70 61 73 73 25 0d 14 b4 |.]..... pass%...|
00002b20 05 e1 0d 14 be 19 dd 20 f2 43 68 61 6e 67 61 62 |....... .Changab|
00002b30 6c 65 56 61 72 69 61 62 6c 65 73 0d 14 c8 15 4e |leVariables....N|
00002b40 75 6d 62 65 72 4f 66 53 74 65 70 73 25 3d 32 34 |umberOfSteps%=24|
00002b50 0d 14 d2 16 4e 75 6d 62 65 72 4f 66 53 70 6f 6f |....NumberOfSpoo|
00002b60 6b 73 25 3d 31 30 0d 14 dc 0b 66 61 73 74 25 3d |ks%=10....fast%=|
00002b70 31 0d 14 e6 09 47 4e 25 3d 35 0d 14 f0 18 52 65 |1....GN%=5....Re|
00002b80 66 6c 65 63 74 69 6f 6e 53 70 65 65 64 3d 30 2e |flectionSpeed=0.|
00002b90 37 35 0d 14 fa 05 e1 0d ff |75.......|
00002b99 
.