home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / tripatron / !TripATron / Scroll3 < prev   
Encoding:
Text File  |  1992-01-03  |  7.9 KB  |  58 lines
  1.  
  2. 
  3.  
  4. ô>SCROLL3
  5. ë13
  6. 
  7. ( max=100
  8. 2+Þexit(max),exitbottom(max),exittop(max)
  9. <!Þexitright(max),exitleft(max)
  10. AÞexit2(max),exit3(max)
  11. PT%=&30000:code=&70000
  12. ZWSC=0:oldX=1:Y=2:XST=3:temp=4:SCEND=5:R=10:I=6:A=7:B=8:X=9:pixcnt=11:count=12:SC2=12
  13. d table=12
  14. nãP=0 ¸ 2 ⇦2:P%=code:[OPT P
  15. x.initialise
  16. ŵMOV R2,#T%
  17. ……MOV R0,#0:.L:MOV R3,R0,ASR#16:MUL R1,R3,R3:TST R1,#&E0000000:MOV R1,R1,ASR#13:MOV R1,R1,LSL#16:MOVNE R1,#&C0000000:STR R1,[R2,R0,LSR#14]
  18. „ADDS R0,R0,#&10000
  19.  BNE L:MOVS PC,R14
  20. ª.mandelbrot
  21. ´
  22. \do pass1
  23. ¾MOV table,#T%
  24. È .rowloop
  25. ÒMOV X,oldX
  26. ÜMOV pixcnt,#80:.dopixel
  27. æMOV R,X:MOV I,Y
  28. ð]:ãI%=1 ¸ max:òiter(I%):í
  29. úãI%=1 ¸ max:òexit(I%):í
  30. 
  31. [OPT P
  32.  .donerow
  33. $ADD Y,Y,XST,ASL#2:ADD SC,SC,#960
  34. "CMP SC,SCEND:BMI rowloop
  35. ,MOVS PC,R14
  36. 6
  37. .pass2
  38. @$ADD Y,Y,XST,ASL#1:ADD SC,SC,#640
  39. JMOV table,#T%
  40. T
  41. .rowloop2
  42. ^MOV X,oldX
  43. hMOV pixcnt,#160:.dopixel2
  44. r%LDRB I,[SC]:TST I,#128:BNE skipit
  45. |1LDRB R,[SC,#-640]:€ R,R,#127:CMP R,I:BNE doit
  46. ŷ0LDRB R,[SC,#640]:€ R,R,#127:CMP R,I:BNE doit
  47. ‘/LDRB R,[SC,#-2]:€ R,R,#127:CMP R,I:BNE doit
  48. Œ0LDRB R,[SC,#2]:€ R,R,#127:CMP R,I:BEQ skipit
  49. ¤    .doit
  50. ®MOV R,X:MOV I,Y
  51. ¸]:ãI%=1 ¸ max:òiter2(I%):í
  52. ÂãI%=1 ¸ max:òexit2(I%):í
  53. Ì
  54. [OPT P
  55. Ö .skipit
  56. àEADD SC,SC,#2:ADD X,X,XST,ASL#1:SUBS pixcnt,pixcnt,#1:BNE dopixel2
  57. ê
  58. .donerow2
  59. ô$ADD Y,Y,XST,ASL#1:ADD SC,SC,#320
  60. þCMP SC,SCEND:BMI rowloop2
  61. MOVS PC,R14
  62. 
  63. .pass3
  64. ADD Y,Y,XST:ADD SC,SC,#320
  65. &MOV table,#T%
  66. 0
  67. .rowloop3
  68. :MOV X,oldX
  69. DMOV pixcnt,#320:.dopixel3
  70. N&LDRB I,[SC]:TST I,#128:BNE skipit2
  71. X2LDRB R,[SC,#-320]:€ R,R,#127:CMP R,I:BNE doit2
  72. b1LDRB R,[SC,#320]:€ R,R,#127:CMP R,I:BNE doit2
  73. l0LDRB R,[SC,#-1]:€ R,R,#127:CMP R,I:BNE doit2
  74. v1LDRB R,[SC,#1]:€ R,R,#127:CMP R,I:BEQ skipit2
  75. €
  76. .doit2
  77. ⇩MOV R,X:MOV I,Y
  78. “]:ãI%=1 ¸ max:òiter3(I%):í
  79. fiãI%=1 ¸ max:òexit3(I%):í
  80. ¨
  81. [OPT P
  82. ² .skipit2
  83. ¼?ADD SC,SC,#1:ADD X,X,XST:SUBS pixcnt,pixcnt,#1:BNE dopixel3
  84. Æ
  85. .donerow3
  86. ÐADD Y,Y,XST
  87. ÚCMP SC,SCEND:BMI rowloop3
  88. äMOVS PC,R14
  89. î .clearup
  90. ø4MOV 10,#127:☓R 10,10,10,ASL#8:☓R 10,10,10,ASL#16
  91. .clearloop
  92. 8LDMIA (SC),{1-4}:€ 1,1,10:€ 2,2,10:€ 3,3,10:€ 4,4,10
  93. 0STMIA (SC)!,{1-4}:CMP SC,SCEND:BMI clearloop
  94.  MOV PC,R14
  95. *.temp2 EQUD 0
  96. 4
  97. .scrollup
  98. >STR oldX,temp2:MOV 1,SCEND
  99. HADD SC2,SC,#320:.L9
  100. R*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  101. \*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  102. f*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  103. p*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  104. z*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  105. ☓*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  106. ‰*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  107. —*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  108. ¢*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  109. ¬*LDMIA (SC2)!,{4-11}:STMIA (SC)!,{4-11}
  110. ¶CMP SC2,1:BMI L9
  111. ÀLDR X,temp2
  112. ÊMOV table,#T%
  113. Ô%ADD Y,Y,XST,ASL#8:MOV pixcnt,#320
  114. Þ.dopixelbottom
  115. èQMOV R,X:MOV I,Y:]:ãI%=1 ¸ max:òiterbottom(I%):í:ãI%=1 ¸ max:òexitbottom(I%):í
  116. ò
  117. [OPT P
  118. ü.donerowbottom MOVS PC,R14
  119.     .temp3 EQUD 0
  120.     .scrolldown
  121.     STR oldX,temp3:MOV 1,SC
  122.     $ADD SC,SC,#81920
  123.     .SUB SC2,SC,#320:.L10
  124.     8*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  125.     B*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  126.     L*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  127.     V*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  128.     `*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  129.     j*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  130.     t*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  131.     ~*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  132.     ⇦*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  133.     ‹*LDMDB (SC2)!,{4-11}:STMDB (SC)!,{4-11}
  134.     †CMP SC2,1:BNE L10
  135.     ¦SUB SC,SC,#320
  136.     °LDR X,temp3
  137.     ºMOV table,#T%
  138.     ÄSUB Y,Y,XST:MOV pixcnt,#320
  139.     Î.dopixeltop
  140.     ØKMOV R,X:MOV I,Y:]:ãI%=1 ¸ max:òitertop(I%):í:ãI%=1 ¸ max:òexittop(I%):í
  141.     â
  142. [OPT P
  143.     ì.donerowtop MOVS PC,R14
  144.     ö.temp4 EQUD 0
  145. .scrollleft
  146.  
  147. STR oldX,temp4:MOV 1,SCEND
  148. .L11
  149. LDMIA (SC),{4-12}
  150. (]:ãI%=4 ¸ 11
  151. 2
  152. [OPT P
  153. <*MOV I%,I%,ASR#8:☓R I%,I%,(I%+1),ASL#24
  154. F]:íI%:[OPT P
  155. PSTMIA (SC)!,{4-11}
  156. ZCMP SC,1:BNE L11
  157. dQSUBS SC,SC,#81920:ADD SC,SC,#320:SUB SC,SC,#1:\set SC to top right hand pixel
  158. nLDR X,temp4
  159. xMADD X,X,XST,ASL#8:ADD X,X,XST,ASL#6:\set X to thing for right hand column
  160. ŵMOV table,#T%
  161. …MOV pixcnt,#256
  162. „.dopixelright
  163.  OMOV R,X:MOV I,Y:]:ãI%=1 ¸ max:òiterright(I%):í:ãI%=1 ¸ max:òexitright(I%):í
  164. ª
  165. [OPT P
  166. ´.donecolright MOVS PC,R14
  167. ¾.temp5 EQUD 0
  168. È.scrollright
  169. ÒSTR oldX,temp5:ADD 1,SC,#32
  170. ÜMOV SC,SCEND
  171. æ.L12
  172. ðLDMDB (SC),{4-12}
  173. ú]:ãI%=12 ¸ 5 ⇦ -1
  174. 
  175. [OPT P
  176. *MOV I%,I%,ASL#8:☓R I%,I%,(I%-1),ASR#24
  177. ]:íI%:[OPT P
  178. "STMDB (SC)!,{5-12}
  179. ,CMP SC,1:BNE L12
  180. 6;\special case, as can't allow a read to 'screenstart'-4
  181. @LDMDB (SC),{5-12}
  182. J]:ãI%=12 ¸ 5 ⇦ -1
  183. T
  184. [OPT P
  185. ^*MOV I%,I%,ASL#8:☓R I%,I%,(I%-1),ASR#24
  186. h]:íI%:[OPT P
  187. rSTMDB (SC)!,{5-12}
  188. |LDR X,temp5
  189. ŷMOV table,#T%
  190. ‘MOV pixcnt,#256
  191. Œ.dopixelleft
  192. ¤MMOV R,X:MOV I,Y:]:ãI%=1 ¸ max:òiterleft(I%):í:ãI%=1 ¸ max:òexitleft(I%):í
  193. ®
  194. [OPT P
  195. ¸.donecolleft MOVS PC,R14
  196. ÂMOV PC,R14
  197. Ì]:í
  198. ÖÖinitialise
  199. àA%=¤screenstart
  200. êX=-2:Y=-1.5:S=3/256
  201. ô3B%=(X*8192)<<16:C%=(Y*8192)<<16:D%=(S*8192)<<16
  202. þF%=A%+81920
  203. Ñ=0
  204. Ñ=0:Ömandelbrot:T%=’
  205. &AÖpass2:K%=’:Öpass2:U%=’:Öpass3:L%=’:Öpass3:V%=’:Öclearup:W%=’
  206. 0A=¥
  207. :çA=56 Öscrollup:C%+=D%
  208. DçA=50 Öscrolldown:C%-=D%
  209. NçA=52 Öscrollleft:B%+=D%
  210. XçA=54 Öscrollright:B%-=D%
  211. b'çA=49 S=S/1.3:D%=(S*8192)<<16:å™T\L
  212. l'çA=57 S=S*1.3:D%=(S*8192)<<16:å™T\L
  213. v    å™TpL
  214. ۈ
  215. øÝòiterbottom(I%)
  216.  
  217. 
  218. [OPT P
  219.  
  220. 1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  221.  
  222. ADDS temp,A,B
  223.  
  224.  )BCS exitbottom(I%):BMI exitbottom(I%)
  225.  
  226. *;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  227.  
  228. 4SUB R,A,B:ADD R,R,X
  229.  
  230. >]:á
  231.  
  232. HÝòexitbottom(I%)
  233.  
  234. R
  235. [OPT P
  236.  
  237. \Ŵ.exitbottom(I%):MOV A,#(-I%*(I%<>max)):STRB A,[SC],#1:ADD X,X,XST:SUBS pixcnt,pixcnt,#1:BNE dopixelbottom:B donerowbottom:]:á
  238.  
  239. fÝòitertop(I%)
  240.  
  241. p
  242. [OPT P
  243.  
  244. z1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  245.  
  246. ☓ADDS temp,A,B
  247.  
  248. ‰#BCS exittop(I%):BMI exittop(I%)
  249.  
  250. —;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  251.  
  252. ¢SUB R,A,B:ADD R,R,X
  253.  
  254. ¬]:á
  255.  
  256. ¶Ýòexittop(I%)
  257.  
  258. À
  259. [OPT P
  260.  
  261. Êx.exittop(I%):MOV A,#(-I%*(I%<>max)):STRB A,[SC],#1:ADD X,X,XST:SUBS pixcnt,pixcnt,#1:BNE dopixeltop:B donerowtop:]:á
  262.  
  263. ÔÝòiterright(I%)
  264.  
  265. Þ
  266. [OPT P
  267.  
  268. è1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  269.  
  270. òADDS temp,A,B
  271.  
  272. ü'BCS exitright(I%):BMI exitright(I%)
  273. ;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  274. SUB R,A,B:ADD R,R,X
  275. ]:á
  276. $Ýòexitright(I%)
  277. .
  278. [OPT P
  279. 8€.exitright(I%):MOV A,#(-I%*(I%<>max)):STRB A,[SC],#320:ADD Y,Y,XST:SUBS pixcnt,pixcnt,#1:BNE dopixelright:B donecolright:]:á
  280. BÝòiterleft(I%)
  281. L
  282. [OPT P
  283. V1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  284. `ADDS temp,A,B
  285. j%BCS exitleft(I%):BMI exitleft(I%)
  286. t;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  287. ~SUB R,A,B:ADD R,R,X
  288. ⇦]:á
  289. ‹Ýòexitleft(I%)
  290. †
  291. [OPT P
  292. ¦}.exitleft(I%):MOV A,#(-I%*(I%<>max)):STRB A,[SC],#320:ADD Y,Y,XST:SUBS pixcnt,pixcnt,#1:BNE dopixelleft:B donecolleft:]:á
  293. °
  294. ºÝòiter2(I%)
  295. Ä
  296. [OPT P
  297. Î1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  298. ØADDS temp,A,B
  299. âBCS exit2(I%):BMI exit2(I%)
  300. ì;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  301. öSUB R,A,B:ADD R,R,X
  302. ]:á
  303. 
  304. Ýòexit2(I%)
  305. 
  306. [OPT P
  307. ¹.exit2(I%):MOV A,#(-I%*(I%<>max))€127:STRB A,[SC,#320]:STRB A,[SC,#321]:STRB A,[SC,#1]:☓R A,A,#128:STRB A,[SC],#2:ADD X,X,XST,ASL#1:SUBS pixcnt,pixcnt,#1:BNE dopixel2:B donerow2:]:á
  308. (Ýòiter3(I%)
  309. 2
  310. [OPT P
  311. <1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  312. FADDS temp,A,B
  313. PBCS exit3(I%):BMI exit3(I%)
  314. Z;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  315. dSUB R,A,B:ADD R,R,X
  316. n]:á
  317. xÝòexit3(I%)
  318. ŵ
  319. [OPT P
  320. …|.exit3(I%):MOV A,#((-I%*(I%<>max))€127)+128:STRB A,[SC],#1:ADD X,X,XST:SUBS pixcnt,pixcnt,#1:BNE dopixel3:B donerow3:]:á
  321. ¦Ýòiter(I%)
  322. °
  323. [OPT P
  324. º1LDR A,[table,R,LSR#14]:LDR B,[table,I,LSR#14]
  325. ÄADDS temp,A,B
  326. ÎBCS exit(I%):BMI exit(I%)
  327. Ø;ADD I,R,I:LDR I,[table,I,LSR#14]:SUB I,I,temp:ADD I,I,Y
  328. âSUB R,A,B:ADD R,R,X
  329. ì]:á
  330. öÝòexit(I%)
  331. 
  332. [OPT P
  333. 
  334. Ç.exit(I%):MOV A,#(-I%*(I%<>max))€127:☓R A,A,A,LSL#8:☓R A,A,A,LSL#16:STR A,[SC,#320]:STR A,[SC,#640]:STR A,[SC,#960]:STR A,[SC],#4:ADD X,X,XST,ASL#2:SUBS pixcnt,pixcnt,#1:BNE dopixel:B donerow:]:á
  335. ô:
  336. þݤscreenstart
  337. Þ screen% 8
  338. !screen%=148
  339. screen%!4=-1
  340. &+È−"OS_ReadVduVariables",screen%,screen%
  341. 0
  342. =!screen%
  343. ÿ