API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
58
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.20 KB | None | 0 0
raw download clone embed print report
  1. #include "ti83pce.inc"
  2. .assume ADL=1
  3. .db tExtTok,tAsm84CeCmp
  4. .org userMem
  5.  
  6. #define db .db
  7. #define dw .dw
  8. #define dl .dl
  9.  
  10. ;initialisation de l'écran
  11. ld de,mpLCDPalette
  12. ld hl,Palette
  13. ld bc,256*2
  14. ldir
  15.  
  16. call _RunIndicoff \ di
  17. ld a,$27
  18. ld ($E30018),a
  19.  
  20. ld bc,320*240*2-1
  21. ld hl,$D40000
  22. ld (hl),$00
  23. ex de,hl
  24. or a,a
  25. sbc hl,hl
  26. add hl,de
  27. inc de
  28. ldir
  29.  
  30. ;algo
  31.  
  32. ;x-a
  33. ld hl,(X_liste_Valu)
  34. ld bc,(X_Camera)
  35. or a,a
  36. sbc hl,bc
  37. ;y-b
  38. ld a,(Y_Camera)
  39. ld c,a
  40. ld a,(Y_liste_Valu)
  41. sub a,c
  42. ld e,a
  43. ;z-c
  44. ld a,(Z_Camera)
  45. ld c,a
  46. ld a,(Z_liste_Valu)
  47. sub a,c
  48. ld d,a
  49.  
  50.  
  51.  
  52.  
  53.  
  54. ret
  55.  
  56. ;Variables
  57.  
  58. X_Camera: .dw 0,0
  59. Y_Camera: .db 0,0
  60. Z_Camera: .db -5,0
  61.  
  62. dim_de_la_liste: .db 8,0
  63. X_liste_Valu: .dw -1,-1, 1, 1,-1,-1, 1, 1,0
  64. Y_liste_Valu: .db -1, 1, 1,-1,-1, 1, 1,-1,0
  65. Z_liste_Valu: .db -1,-1,-1,-1, 1, 1, 1, 1,0
  66.  
  67. Variable_du_zone: .db 120,0
  68.  
  69.  
  70. Palette:
  71. dw 00000h ; 00 :: rgba(0,0,0,255)
  72. dw 0000Dh ; 01 :: rgba(0,0,104,255)
  73. dw 00016h ; 02 :: rgba(0,0,183,255)
  74. dw 0001Fh ; 03 :: rgba(0,0,255,255)
  75. dw 01800h ; 04 :: rgba(51,0,0,255)
  76. dw 0180Dh ; 05 :: rgba(51,0,104,255)
  77. dw 01816h ; 06 :: rgba(51,0,183,255)
  78. dw 0181Fh ; 07 :: rgba(51,0,255,255)
  79. dw 02C00h ; 08 :: rgba(92,0,0,255)
  80. dw 02C0Dh ; 09 :: rgba(92,0,104,255)
  81. dw 02C16h ; 10 :: rgba(92,0,183,255)
  82. dw 02C1Fh ; 11 :: rgba(92,0,255,255)
  83. dw 03C00h ; 12 :: rgba(127,0,0,255)
  84. dw 03C0Dh ; 13 :: rgba(127,0,104,255)
  85. dw 03C16h ; 14 :: rgba(127,0,183,255)
  86. dw 03C1Fh ; 15 :: rgba(127,0,255,255)
  87. dw 05000h ; 16 :: rgba(162,0,0,255)
  88. dw 0500Dh ; 17 :: rgba(162,0,104,255)
  89. dw 05016h ; 18 :: rgba(162,0,183,255)
  90. dw 0501Fh ; 19 :: rgba(162,0,255,255)
  91. dw 05C00h ; 20 :: rgba(193,0,0,255)
  92. dw 05C0Dh ; 21 :: rgba(193,0,104,255)
  93. dw 05C16h ; 22 :: rgba(193,0,183,255)
  94. dw 05C1Fh ; 23 :: rgba(193,0,255,255)
  95. dw 06C00h ; 24 :: rgba(225,0,0,255)
  96. dw 06C0Dh ; 25 :: rgba(225,0,104,255)
  97. dw 06C16h ; 26 :: rgba(225,0,183,255)
  98. dw 06C1Fh ; 27 :: rgba(225,0,255,255)
  99. dw 07C00h ; 28 :: rgba(255,0,0,255)
  100. dw 07C0Dh ; 29 :: rgba(255,0,104,255)
  101. dw 07C16h ; 30 :: rgba(255,0,183,255)
  102. dw 07C1Fh ; 31 :: rgba(255,0,255,255)
  103. dw 080C0h ; 32 :: rgba(0,51,0,255)
  104. dw 080CDh ; 33 :: rgba(0,51,104,255)
  105. dw 080D6h ; 34 :: rgba(0,51,183,255)
  106. dw 080DFh ; 35 :: rgba(0,51,255,255)
  107. dw 098C0h ; 36 :: rgba(51,51,0,255)
  108. dw 098CDh ; 37 :: rgba(51,51,104,255)
  109. dw 098D6h ; 38 :: rgba(51,51,183,255)
  110. dw 098DFh ; 39 :: rgba(51,51,255,255)
  111. dw 0ACC0h ; 40 :: rgba(92,51,0,255)
  112. dw 0ACCDh ; 41 :: rgba(92,51,104,255)
  113. dw 0ACD6h ; 42 :: rgba(92,51,183,255)
  114. dw 0ACDFh ; 43 :: rgba(92,51,255,255)
  115. dw 0BCC0h ; 44 :: rgba(127,51,0,255)
  116. dw 0BCCDh ; 45 :: rgba(127,51,104,255)
  117. dw 0BCD6h ; 46 :: rgba(127,51,183,255)
  118. dw 0BCDFh ; 47 :: rgba(127,51,255,255)
  119. dw 0D0C0h ; 48 :: rgba(162,51,0,255)
  120. dw 0D0CDh ; 49 :: rgba(162,51,104,255)
  121. dw 0D0D6h ; 50 :: rgba(162,51,183,255)
  122. dw 0D0DFh ; 51 :: rgba(162,51,255,255)
  123. dw 0DCC0h ; 52 :: rgba(193,51,0,255)
  124. dw 0DCCDh ; 53 :: rgba(193,51,104,255)
  125. dw 0DCD6h ; 54 :: rgba(193,51,183,255)
  126. dw 0DCDFh ; 55 :: rgba(193,51,255,255)
  127. dw 0ECC0h ; 56 :: rgba(225,51,0,255)
  128. dw 0ECCDh ; 57 :: rgba(225,51,104,255)
  129. dw 0ECD6h ; 58 :: rgba(225,51,183,255)
  130. dw 0ECDFh ; 59 :: rgba(225,51,255,255)
  131. dw 0FCC0h ; 60 :: rgba(255,51,0,255)
  132. dw 0FCCDh ; 61 :: rgba(255,51,104,255)
  133. dw 0FCD6h ; 62 :: rgba(255,51,183,255)
  134. dw 0FCDFh ; 63 :: rgba(255,51,255,255)
  135. dw 08160h ; 64 :: rgba(0,92,0,255)
  136. dw 0816Dh ; 65 :: rgba(0,92,104,255)
  137. dw 08176h ; 66 :: rgba(0,92,183,255)
  138. dw 0817Fh ; 67 :: rgba(0,92,255,255)
  139. dw 09960h ; 68 :: rgba(51,92,0,255)
  140. dw 0996Dh ; 69 :: rgba(51,92,104,255)
  141. dw 09976h ; 70 :: rgba(51,92,183,255)
  142. dw 0997Fh ; 71 :: rgba(51,92,255,255)
  143. dw 0AD60h ; 72 :: rgba(92,92,0,255)
  144. dw 0AD6Dh ; 73 :: rgba(92,92,104,255)
  145. dw 0AD76h ; 74 :: rgba(92,92,183,255)
  146. dw 0AD7Fh ; 75 :: rgba(92,92,255,255)
  147. dw 0BD60h ; 76 :: rgba(127,92,0,255)
  148. dw 0BD6Dh ; 77 :: rgba(127,92,104,255)
  149. dw 0BD76h ; 78 :: rgba(127,92,183,255)
  150. dw 0BD7Fh ; 79 :: rgba(127,92,255,255)
  151. dw 0D160h ; 80 :: rgba(162,92,0,255)
  152. dw 0D16Dh ; 81 :: rgba(162,92,104,255)
  153. dw 0D176h ; 82 :: rgba(162,92,183,255)
  154. dw 0D17Fh ; 83 :: rgba(162,92,255,255)
  155. dw 0DD60h ; 84 :: rgba(193,92,0,255)
  156. dw 0DD6Dh ; 85 :: rgba(193,92,104,255)
  157. dw 0DD76h ; 86 :: rgba(193,92,183,255)
  158. dw 0DD7Fh ; 87 :: rgba(193,92,255,255)
  159. dw 0ED60h ; 88 :: rgba(225,92,0,255)
  160. dw 0ED6Dh ; 89 :: rgba(225,92,104,255)
  161. dw 0ED76h ; 90 :: rgba(225,92,183,255)
  162. dw 0ED7Fh ; 91 :: rgba(225,92,255,255)
  163. dw 0FD60h ; 92 :: rgba(255,92,0,255)
  164. dw 0FD6Dh ; 93 :: rgba(255,92,104,255)
  165. dw 0FD76h ; 94 :: rgba(255,92,183,255)
  166. dw 0FD7Fh ; 95 :: rgba(255,92,255,255)
  167. dw 081E0h ; 96 :: rgba(0,127,0,255)
  168. dw 081EDh ; 97 :: rgba(0,127,104,255)
  169. dw 081F6h ; 98 :: rgba(0,127,183,255)
  170. dw 081FFh ; 99 :: rgba(0,127,255,255)
  171. dw 099E0h ; 100 :: rgba(51,127,0,255)
  172. dw 099EDh ; 101 :: rgba(51,127,104,255)
  173. dw 099F6h ; 102 :: rgba(51,127,183,255)
  174. dw 099FFh ; 103 :: rgba(51,127,255,255)
  175. dw 0ADE0h ; 104 :: rgba(92,127,0,255)
  176. dw 0ADEDh ; 105 :: rgba(92,127,104,255)
  177. dw 0ADF6h ; 106 :: rgba(92,127,183,255)
  178. dw 0ADFFh ; 107 :: rgba(92,127,255,255)
  179. dw 0BDE0h ; 108 :: rgba(127,127,0,255)
  180. dw 0BDEDh ; 109 :: rgba(127,127,104,255)
  181. dw 0BDF6h ; 110 :: rgba(127,127,183,255)
  182. dw 0BDFFh ; 111 :: rgba(127,127,255,255)
  183. dw 0D1E0h ; 112 :: rgba(162,127,0,255)
  184. dw 0D1EDh ; 113 :: rgba(162,127,104,255)
  185. dw 0D1F6h ; 114 :: rgba(162,127,183,255)
  186. dw 0D1FFh ; 115 :: rgba(162,127,255,255)
  187. dw 0DDE0h ; 116 :: rgba(193,127,0,255)
  188. dw 0DDEDh ; 117 :: rgba(193,127,104,255)
  189. dw 0DDF6h ; 118 :: rgba(193,127,183,255)
  190. dw 0DDFFh ; 119 :: rgba(193,127,255,255)
  191. dw 0EDE0h ; 120 :: rgba(225,127,0,255)
  192. dw 0EDEDh ; 121 :: rgba(225,127,104,255)
  193. dw 0EDF6h ; 122 :: rgba(225,127,183,255)
  194. dw 0EDFFh ; 123 :: rgba(225,127,255,255)
  195. dw 0FDE0h ; 124 :: rgba(255,127,0,255)
  196. dw 0FDEDh ; 125 :: rgba(255,127,104,255)
  197. dw 0FDF6h ; 126 :: rgba(255,127,183,255)
  198. dw 0FDFFh ; 127 :: rgba(255,127,255,255)
  199. dw 00280h ; 128 :: rgba(0,162,0,255)
  200. dw 0028Dh ; 129 :: rgba(0,162,104,255)
  201. dw 00296h ; 130 :: rgba(0,162,183,255)
  202. dw 0029Fh ; 131 :: rgba(0,162,255,255)
  203. dw 01A80h ; 132 :: rgba(51,162,0,255)
  204. dw 01A8Dh ; 133 :: rgba(51,162,104,255)
  205. dw 01A96h ; 134 :: rgba(51,162,183,255)
  206. dw 01A9Fh ; 135 :: rgba(51,162,255,255)
  207. dw 02E80h ; 136 :: rgba(92,162,0,255)
  208. dw 02E8Dh ; 137 :: rgba(92,162,104,255)
  209. dw 02E96h ; 138 :: rgba(92,162,183,255)
  210. dw 02E9Fh ; 139 :: rgba(92,162,255,255)
  211. dw 03E80h ; 140 :: rgba(127,162,0,255)
  212. dw 03E8Dh ; 141 :: rgba(127,162,104,255)
  213. dw 03E96h ; 142 :: rgba(127,162,183,255)
  214. dw 03E9Fh ; 143 :: rgba(127,162,255,255)
  215. dw 05280h ; 144 :: rgba(162,162,0,255)
  216. dw 0528Dh ; 145 :: rgba(162,162,104,255)
  217. dw 05296h ; 146 :: rgba(162,162,183,255)
  218. dw 0529Fh ; 147 :: rgba(162,162,255,255)
  219. dw 05E80h ; 148 :: rgba(193,162,0,255)
  220. dw 05E8Dh ; 149 :: rgba(193,162,104,255)
  221. dw 05E96h ; 150 :: rgba(193,162,183,255)
  222. dw 05E9Fh ; 151 :: rgba(193,162,255,255)
  223. dw 06E80h ; 152 :: rgba(225,162,0,255)
  224. dw 06E8Dh ; 153 :: rgba(225,162,104,255)
  225. dw 06E96h ; 154 :: rgba(225,162,183,255)
  226. dw 06E9Fh ; 155 :: rgba(225,162,255,255)
  227. dw 07E80h ; 156 :: rgba(255,162,0,255)
  228. dw 07E8Dh ; 157 :: rgba(255,162,104,255)
  229. dw 07E96h ; 158 :: rgba(255,162,183,255)
  230. dw 07E9Fh ; 159 :: rgba(255,162,255,255)
  231. dw 00300h ; 160 :: rgba(0,193,0,255)
  232. dw 0030Dh ; 161 :: rgba(0,193,104,255)
  233. dw 00316h ; 162 :: rgba(0,193,183,255)
  234. dw 0031Fh ; 163 :: rgba(0,193,255,255)
  235. dw 01B00h ; 164 :: rgba(51,193,0,255)
  236. dw 01B0Dh ; 165 :: rgba(51,193,104,255)
  237. dw 01B16h ; 166 :: rgba(51,193,183,255)
  238. dw 01B1Fh ; 167 :: rgba(51,193,255,255)
  239. dw 02F00h ; 168 :: rgba(92,193,0,255)
  240. dw 02F0Dh ; 169 :: rgba(92,193,104,255)
  241. dw 02F16h ; 170 :: rgba(92,193,183,255)
  242. dw 02F1Fh ; 171 :: rgba(92,193,255,255)
  243. dw 03F00h ; 172 :: rgba(127,193,0,255)
  244. dw 03F0Dh ; 173 :: rgba(127,193,104,255)
  245. dw 03F16h ; 174 :: rgba(127,193,183,255)
  246. dw 03F1Fh ; 175 :: rgba(127,193,255,255)
  247. dw 05300h ; 176 :: rgba(162,193,0,255)
  248. dw 0530Dh ; 177 :: rgba(162,193,104,255)
  249. dw 05316h ; 178 :: rgba(162,193,183,255)
  250. dw 0531Fh ; 179 :: rgba(162,193,255,255)
  251. dw 05F00h ; 180 :: rgba(193,193,0,255)
  252. dw 05F0Dh ; 181 :: rgba(193,193,104,255)
  253. dw 05F16h ; 182 :: rgba(193,193,183,255)
  254. dw 05F1Fh ; 183 :: rgba(193,193,255,255)
  255. dw 06F00h ; 184 :: rgba(225,193,0,255)
  256. dw 06F0Dh ; 185 :: rgba(225,193,104,255)
  257. dw 06F16h ; 186 :: rgba(225,193,183,255)
  258. dw 06F1Fh ; 187 :: rgba(225,193,255,255)
  259. dw 07F00h ; 188 :: rgba(255,193,0,255)
  260. dw 07F0Dh ; 189 :: rgba(255,193,104,255)
  261. dw 07F16h ; 190 :: rgba(255,193,183,255)
  262. dw 07F1Fh ; 191 :: rgba(255,193,255,255)
  263. dw 00380h ; 192 :: rgba(0,225,0,255)
  264. dw 0138Dh ; 193 :: rgba(32,225,104,255)
  265. dw 00396h ; 194 :: rgba(0,225,183,255)
  266. dw 0039Fh ; 195 :: rgba(0,225,255,255)
  267. dw 01B80h ; 196 :: rgba(51,225,0,255)
  268. dw 01B8Dh ; 197 :: rgba(51,225,104,255)
  269. dw 01B96h ; 198 :: rgba(51,225,183,255)
  270. dw 01B9Fh ; 199 :: rgba(51,225,255,255)
  271. dw 02F80h ; 200 :: rgba(92,225,0,255)
  272. dw 02F8Dh ; 201 :: rgba(92,225,104,255)
  273. dw 02F96h ; 202 :: rgba(92,225,183,255)
  274. dw 02F9Fh ; 203 :: rgba(92,225,255,255)
  275. dw 03F80h ; 204 :: rgba(127,225,0,255)
  276. dw 03F8Dh ; 205 :: rgba(127,225,104,255)
  277. dw 03F96h ; 206 :: rgba(127,225,183,255)
  278. dw 03F9Fh ; 207 :: rgba(127,225,255,255)
  279. dw 05380h ; 208 :: rgba(162,225,0,255)
  280. dw 0538Dh ; 209 :: rgba(162,225,104,255)
  281. dw 05396h ; 210 :: rgba(162,225,183,255)
  282. dw 0539Fh ; 211 :: rgba(162,225,255,255)
  283. dw 05F80h ; 212 :: rgba(193,225,0,255)
  284. dw 05F8Dh ; 213 :: rgba(193,225,104,255)
  285. dw 05F96h ; 214 :: rgba(193,225,183,255)
  286. dw 05F9Fh ; 215 :: rgba(193,225,255,255)
  287. dw 06F80h ; 216 :: rgba(225,225,0,255)
  288. dw 06F8Dh ; 217 :: rgba(225,225,104,255)
  289. dw 06F96h ; 218 :: rgba(225,225,183,255)
  290. dw 06F9Fh ; 219 :: rgba(225,225,255,255)
  291. dw 07F80h ; 220 :: rgba(255,225,0,255)
  292. dw 07F8Dh ; 221 :: rgba(255,225,104,255)
  293. dw 07F96h ; 222 :: rgba(255,225,183,255)
  294. dw 07F9Fh ; 223 :: rgba(255,225,255,255)
  295. dw 083E0h ; 224 :: rgba(0,255,0,255)
  296. dw 083EDh ; 225 :: rgba(0,255,104,255)
  297. dw 083F6h ; 226 :: rgba(0,255,183,255)
  298. dw 083FFh ; 227 :: rgba(0,255,255,255)
  299. dw 09BE0h ; 228 :: rgba(51,255,0,255)
  300. dw 09BEDh ; 229 :: rgba(51,255,104,255)
  301. dw 09BF6h ; 230 :: rgba(51,255,183,255)
  302. dw 09BFFh ; 231 :: rgba(51,255,255,255)
  303. dw 0AFE0h ; 232 :: rgba(92,255,0,255)
  304. dw 0AFEDh ; 233 :: rgba(92,255,104,255)
  305. dw 0AFF6h ; 234 :: rgba(92,255,183,255)
  306. dw 0AFFFh ; 235 :: rgba(92,255,255,255)
  307. dw 0BFE0h ; 236 :: rgba(127,255,0,255)
  308. dw 0BFEDh ; 237 :: rgba(127,255,104,255)
  309. dw 0BFF6h ; 238 :: rgba(127,255,183,255)
  310. dw 0BFFFh ; 239 :: rgba(127,255,255,255)
  311. dw 0D3E0h ; 240 :: rgba(162,255,0,255)
  312. dw 0D3EDh ; 241 :: rgba(162,255,104,255)
  313. dw 0D3F6h ; 242 :: rgba(162,255,183,255)
  314. dw 0D3FFh ; 243 :: rgba(162,255,255,255)
  315. dw 0DFE0h ; 244 :: rgba(193,255,0,255)
  316. dw 0DFEDh ; 245 :: rgba(193,255,104,255)
  317. dw 0DFF6h ; 246 :: rgba(193,255,183,255)
  318. dw 0DFFFh ; 247 :: rgba(193,255,255,255)
  319. dw 0EFE0h ; 248 :: rgba(225,255,0,255)
  320. dw 0EFEDh ; 249 :: rgba(225,255,104,255)
  321. dw 0EFF6h ; 250 :: rgba(225,255,183,255)
  322. dw 0EFFFh ; 251 :: rgba(225,255,255,255)
  323. dw 0FFE0h ; 252 :: rgba(255,255,0,255)
  324. dw 0FFEDh ; 253 :: rgba(255,255,104,255)
  325. dw 0FFF6h ; 254 :: rgba(255,255,183,255)
  326. dw 0FFFFh ; 255 :: rgba(255,255,255,255)
  327.  
  328. .end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!