home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / NEURO1.DSK / NEURO.SYSTEM.asm < prev    next >
Assembly Source File  |  2014-09-09  |  11KB  |  464 lines
  1. 2000- D8        CLD
  2. 2001- A2 80     LDX #$80
  3. 2003- 9A        TXS
  4. 2004- 2C 82 C0  BIT $C082
  5. 2007- 8D 00 C0  STA $C000
  6. 200A- 8D 0C C0  STA $C00C
  7. 200D- 20 84 FE  JSR $FE84
  8. 2010- 20 93 FE  JSR $FE93
  9. 2013- 20 89 FE  JSR $FE89
  10. 2016- 20 2F FB  JSR $FB2F
  11. 2019- 20 58 FC  JSR $FC58
  12. 201C- AD B3 FB  LDA $FBB3
  13. 201F- C9 06     CMP #$06
  14. 2021- D0 1E     BNE $2041
  15. 2023- 38        SEC
  16. 2024- 20 1F FE  JSR $FE1F
  17. 2027- B0 18     BCS $2041
  18. 2029- A9 3F     LDA #$3F
  19. 202B- 2D 29 C0  AND $C029
  20. 202E- 8D 29 C0  STA $C029
  21. 2031- A9 7F     LDA #$7F
  22. 2033- 2D 36 C0  AND $C036
  23. 2036- 8D 36 C0  STA $C036
  24. 2039- A9 0C     LDA #$0C
  25. 203B- 0D 35 C0  ORA $C035
  26. 203E- 8D 35 C0  STA $C035
  27. 2041- 8D 0E C0  STA $C00E
  28. 2044- 2C 5F C0  BIT $C05F
  29. 2047- A2 17     LDX #$17
  30. 2049- A9 00     LDA #$00
  31. 204B- 9D 58 BF  STA $BF58,X
  32. 204E- CA        DEX
  33. 204F- 10 FA     BPL $204B
  34. 2051- 8D 94 BF  STA $BF94
  35. 2054- A9 01     LDA #$01
  36. 2056- 8D 6F BF  STA $BF6F
  37. 2059- 20 CE 20  JSR $20CE
  38. 205C- AD 98 BF  LDA $BF98
  39. 205F- 29 30     AND #$30
  40. 2061- C9 30     CMP #$30
  41. 2063- D0 2D     BNE $2092
  42. 2065- 20 00 C3  JSR $C300
  43. 2068- A9 8C     LDA #$8C
  44. 206A- 20 ED FD  JSR $FDED
  45. 206D- A9 13     LDA #$13
  46. 206F- 85 40     STA $40
  47. 2071- A9 21     LDA #$21
  48. 2073- 85 41     STA $41
  49. 2075- A9 00     LDA #$00
  50. 2077- 85 42     STA $42
  51. 2079- A9 B0     LDA #$B0
  52. 207B- 85 43     STA $43
  53. 207D- A2 08     LDX #$08
  54. 207F- A0 00     LDY #$00
  55. 2081- B1 40     LDA ($40),Y
  56. 2083- 91 42     STA ($42),Y
  57. 2085- C8        INY
  58. 2086- D0 F9     BNE $2081
  59. 2088- E6 41     INC $41
  60. 208A- E6 43     INC $43
  61. 208C- CA        DEX
  62. 208D- D0 F2     BNE $2081
  63. 208F- 4C 00 B0  JMP $B000
  64. 2092- A2 00     LDX #$00
  65. 2094- BD A8 20  LDA $20A8,X
  66. 2097- F0 06     BEQ $209F
  67. 2099- 20 ED FD  JSR $FDED
  68. 209C- E8        INX
  69. 209D- D0 F5     BNE $2094
  70. 209F- 2C 82 C0  BIT $C082
  71. 20A2- 8D 08 C0  STA $C008
  72. 20A5- 4C 00 E0  JMP $E000
  73. 20A8- D2        ???
  74. 20A9- C5 D1     CMP $D1
  75. 20AB- D5 C9     CMP $C9,X
  76. 20AD- D2        ???
  77. 20AE- C5 D3     CMP $D3
  78. 20B0- A0 C1     LDY #$C1
  79. 20B2- CE A0 C1  DEC $C1A0
  80. 20B5- D0 D0     BNE $2087
  81. 20B7- CC C5 A0  CPY $A0C5
  82. 20BA- AF        ???
  83. 20BB- AF        ???
  84. 20BC- C5 AC     CMP $AC
  85. 20BE- A0 AF     LDY #$AF
  86. 20C0- AF        ???
  87. 20C1- C3        ???
  88. 20C2- AC A0 AF  LDY $AFA0
  89. 20C5- AF        ???
  90. 20C6- C7        ???
  91. 20C7- D3        ???
  92. 20C8- A0 B1     LDY #$B1
  93. 20CA- B2        ???
  94. 20CB- B8        CLV
  95. 20CC- CB        ???
  96. 20CD- 00        BRK
  97. 20CE- AD 98 BF  LDA $BF98
  98. 20D1- 29 30     AND #$30
  99. 20D3- C9 30     CMP #$30
  100. 20D5- D0 3B     BNE $2112
  101. 20D7- AD 26 BF  LDA $BF26
  102. 20DA- CD 16 BF  CMP $BF16
  103. 20DD- D0 08     BNE $20E7
  104. 20DF- AD 27 BF  LDA $BF27
  105. 20E2- CD 17 BF  CMP $BF17
  106. 20E5- F0 2B     BEQ $2112
  107. 20E7- AD 16 BF  LDA $BF16
  108. 20EA- 8D 26 BF  STA $BF26
  109. 20ED- AD 17 BF  LDA $BF17
  110. 20F0- 8D 27 BF  STA $BF27
  111. 20F3- AE 31 BF  LDX $BF31
  112. 20F6- BD 32 BF  LDA $BF32,X
  113. 20F9- 29 F0     AND #$F0
  114. 20FB- C9 B0     CMP #$B0
  115. 20FD- F0 05     BEQ $2104
  116. 20FF- CA        DEX
  117. 2100- 10 F4     BPL $20F6
  118. 2102- 30 0B     BMI $210F
  119. 2104- BD 33 BF  LDA $BF33,X
  120. 2107- 9D 32 BF  STA $BF32,X
  121. 210A- F0 03     BEQ $210F
  122. 210C- E8        INX
  123. 210D- D0 F5     BNE $2104
  124. 210F- CE 31 BF  DEC $BF31
  125. 2112- 60        RTS
  126. 2113- 8D 09 C0  STA $C009
  127. 2116- 2C 81 C0  BIT $C081
  128. 2119- 2C 81 C0  BIT $C081
  129. 211C- A2 00     LDX #$00
  130. 211E- BD AA B1  LDA $B1AA,X
  131. 2121- 9D 00 BE  STA $BE00,X
  132. 2124- BD 00 FF  LDA $FF00,X
  133. 2127- 9D 00 FF  STA $FF00,X
  134. 212A- E8        INX
  135. 212B- D0 F1     BNE $211E
  136. 212D- 2C 51 C0  BIT $C051
  137. 2130- 2C 57 C0  BIT $C057
  138. 2133- 2C 54 C0  BIT $C054
  139. 2136- 2C 52 C0  BIT $C052
  140. 2139- 2C 5E C0  BIT $C05E
  141. 213C- A9 59     LDA #$59
  142. 213E- 8D F2 03  STA $03F2
  143. 2141- 8D FC FF  STA $FFFC
  144. 2144- A9 FF     LDA #$FF
  145. 2146- 8D F3 03  STA $03F3
  146. 2149- 8D FD FF  STA $FFFD
  147. 214C- 49 A5     EOR #$A5
  148. 214E- 8D F4 03  STA $03F4
  149. 2151- 2C 83 C0  BIT $C083
  150. 2154- 2C 83 C0  BIT $C083
  151. 2157- AD 30 BF  LDA $BF30
  152. 215A- 29 F0     AND #$F0
  153. 215C- 8D C5 BE  STA $BEC5
  154. 215F- A2 73     LDX #$73
  155. 2161- A0 B1     LDY #$B1
  156. 2163- A9 10     LDA #$10
  157. 2165- 20 13 BE  JSR $BE13
  158. 2168- B0 2B     BCS $2195
  159. 216A- 2C 83 C0  BIT $C083
  160. 216D- 2C 83 C0  BIT $C083
  161. 2170- A0 00     LDY #$00
  162. 2172- 84 40     STY $40
  163. 2174- 84 42     STY $42
  164. 2176- A9 10     LDA #$10
  165. 2178- 85 41     STA $41
  166. 217A- A9 D0     LDA #$D0
  167. 217C- 85 43     STA $43
  168. 217E- A2 30     LDX #$30
  169. 2180- B1 40     LDA ($40),Y
  170. 2182- 91 42     STA ($42),Y
  171. 2184- C8        INY
  172. 2185- D0 F9     BNE $2180
  173. 2187- E6 41     INC $41
  174. 2189- E6 43     INC $43
  175. 218B- CA        DEX
  176. 218C- D0 F2     BNE $2180
  177. 218E- A2 7B     LDX #$7B
  178. 2190- A0 B1     LDY #$B1
  179. 2192- 20 15 BE  JSR $BE15
  180. 2195- B0 56     BCS $21ED
  181. 2197- A9 0C     LDA #$0C
  182. 2199- 85 41     STA $41
  183. 219B- 8D 05 C0  STA $C005
  184. 219E- A2 14     LDX #$14
  185. 21A0- A0 00     LDY #$00
  186. 21A2- B1 40     LDA ($40),Y
  187. 21A4- 91 40     STA ($40),Y
  188. 21A6- C8        INY
  189. 21A7- D0 F9     BNE $21A2
  190. 21A9- E6 41     INC $41
  191. 21AB- CA        DEX
  192. 21AC- D0 F4     BNE $21A2
  193. 21AE- 8D 04 C0  STA $C004
  194. 21B1- A2 97     LDX #$97
  195. 21B3- A0 B1     LDY #$B1
  196. 21B5- A9 08     LDA #$08
  197. 21B7- 20 13 BE  JSR $BE13
  198. 21BA- B0 31     BCS $21ED
  199. 21BC- 8D 08 C0  STA $C008
  200. 21BF- A9 08     LDA #$08
  201. 21C1- 85 41     STA $41
  202. 21C3- A9 D4     LDA #$D4
  203. 21C5- 85 43     STA $43
  204. 21C7- A2 0C     LDX #$0C
  205. 21C9- A0 00     LDY #$00
  206. 21CB- 84 40     STY $40
  207. 21CD- 84 42     STY $42
  208. 21CF- 2C 83 C0  BIT $C083
  209. 21D2- 2C 83 C0  BIT $C083
  210. 21D5- B1 40     LDA ($40),Y
  211. 21D7- 91 42     STA ($42),Y
  212. 21D9- C8        INY
  213. 21DA- D0 F9     BNE $21D5
  214. 21DC- E6 41     INC $41
  215. 21DE- E6 43     INC $43
  216. 21E0- CA        DEX
  217. 21E1- D0 F2     BNE $21D5
  218. 21E3- 8D 09 C0  STA $C009
  219. 21E6- A2 77     LDX #$77
  220. 21E8- A0 B1     LDY #$B1
  221. 21EA- 20 15 BE  JSR $BE15
  222. 21ED- B0 32     BCS $2221
  223. 21EF- A2 87     LDX #$87
  224. 21F1- A0 B1     LDY #$B1
  225. 21F3- 20 15 BE  JSR $BE15
  226. 21F6- B0 29     BCS $2221
  227. 21F8- A2 80     LDX #$80
  228. 21FA- A0 B1     LDY #$B1
  229. 21FC- 20 15 BE  JSR $BE15
  230. 21FF- B0 20     BCS $2221
  231. 2201- A2 90     LDX #$90
  232. 2203- A0 B1     LDY #$B1
  233. 2205- 20 15 BE  JSR $BE15
  234. 2208- B0 17     BCS $2221
  235. 220A- A2 A3     LDX #$A3
  236. 220C- A0 B1     LDY #$B1
  237. 220E- A9 80     LDA #$80
  238. 2210- 20 13 BE  JSR $BE13
  239. 2213- B0 0C     BCS $2221
  240. 2215- A2 9D     LDX #$9D
  241. 2217- A0 B1     LDY #$B1
  242. 2219- 20 15 BE  JSR $BE15
  243. 221C- B0 03     BCS $2221
  244. 221E- 4C 50 B1  JMP $B150
  245. 2221- 2C 82 C0  BIT $C082
  246. 2224- 8D 08 C0  STA $C008
  247. 2227- 8D 02 C0  STA $C002
  248. 222A- 8D 04 C0  STA $C004
  249. 222D- 48        PHA
  250. 222E- A9 15     LDA #$15
  251. 2230- 20 ED FD  JSR $FDED
  252. 2233- 20 89 FE  JSR $FE89
  253. 2236- 20 93 FE  JSR $FE93
  254. 2239- 20 2F FB  JSR $FB2F
  255. 223C- 20 58 FC  JSR $FC58
  256. 223F- 8D 0E C0  STA $C00E
  257. 2242- A2 00     LDX #$00
  258. 2244- BD 63 B1  LDA $B163,X
  259. 2247- F0 06     BEQ $224F
  260. 2249- 20 ED FD  JSR $FDED
  261. 224C- E8        INX
  262. 224D- D0 F5     BNE $2244
  263. 224F- 68        PLA
  264. 2250- 20 DA FD  JSR $FDDA
  265. 2253- 20 0C FD  JSR $FD0C
  266. 2256- A9 65     LDA #$65
  267. 2258- A2 CD     LDX #$CD
  268. 225A- 20 00 BE  JSR $BE00
  269. 225D- 2C 82 C0  BIT $C082
  270. 2260- 4C 59 FF  JMP $FF59
  271. 2263- 8D 09 C0  STA $C009
  272. 2266- A2 00     LDX #$00
  273. 2268- 8A        TXA
  274. 2269- 95 00     STA $00,X
  275. 226B- E8        INX
  276. 226C- D0 FB     BNE $2269
  277. 226E- A2 FF     LDX #$FF
  278. 2270- 9A        TXS
  279. 2271- 58        CLI
  280. 2272- D8        CLD
  281. 2273- 4C 00 10  JMP $1000
  282. 2276- D0 F2     BNE $226A
  283. 2278- EF        ???
  284. 2279- C4 CF     CPY $CF
  285. 227B- D3        ???
  286. 227C- A0 E5     LDY #$E5
  287. 227E- F2        ???
  288. 227F- F2        ???
  289. 2280- EF        ???
  290. 2281- F2        ???
  291. 2282- A0 A3     LDY #$A3
  292. 2284- A4 00     LDY $00
  293. 2286- 03        ???
  294. 2287- D0 D2     BNE $225B
  295. 2289- C7        ???
  296. 228A- 03        ???
  297. 228B- C4 CF     CPY $CF
  298. 228D- D3        ???
  299. 228E- 04        ???
  300. 228F- C6 CF     DEC $CF
  301. 2291- CE D4 06  DEC $06D4
  302. 2294- D3        ???
  303. 2295- CF        ???
  304. 2296- D5 CE     CMP $CE,X
  305. 2298- C4 D3     CPY $D3
  306. 229A- 08        PHP
  307. 229B- C7        ???
  308. 229C- C1 CD     CMP ($CD,X)
  309. 229E- C5 C4     CMP $C4
  310. 22A0- C1 D4     CMP ($D4,X)
  311. 22A2- C1 06     CMP ($06,X)
  312. 22A4- D3        ???
  313. 22A5- D0 D2     BNE $2279
  314. 22A7- C9 D4     CMP #$D4
  315. 22A9- C5 05     CMP $05
  316. 22AB- CD D5 D3  CMP $D3D5
  317. 22AE- C9 C3     CMP #$C3
  318. 22B0- 05 C9     ORA $C9
  319. 22B2- CE D4 D2  DEC $D2D4
  320. 22B5- CF        ???
  321. 22B6- 06 C2     ASL $C2
  322. 22B8- C1 C3     CMP ($C3,X)
  323. 22BA- CB        ???
  324. 22BB- D5 D0     CMP $D0,X
  325. 22BD- 8D 08 C0  STA $C008
  326. 22C0- 8D 0C BE  STA $BE0C
  327. 22C3- 8E 0D BE  STX $BE0D
  328. 22C6- 20 00 BF  JSR $BF00
  329. 22C9- FF        ???
  330. 22CA- 00        BRK
  331. 22CB- BE 8D 09  LDX $098D,Y
  332. 22CE- C0 60     CPY #$60
  333. 22D0- 18        CLC
  334. 22D1- 24 38     BIT $38
  335. 22D3- 6E 98 BE  ROR $BE98
  336. 22D6- 8E 25 BE  STX $BE25
  337. 22D9- 8C 26 BE  STY $BE26
  338. 22DC- 8D A2 BE  STA $BEA2
  339. 22DF- A0 0F     LDY #$0F
  340. 22E1- B9 FF FF  LDA $FFFF,Y
  341. 22E4- 99 D4 BE  STA $BED4,Y
  342. 22E7- 88        DEY
  343. 22E8- 10 F7     BPL $22E1
  344. 22EA- C8        INY
  345. 22EB- 8C A1 BE  STY $BEA1
  346. 22EE- A9 C8     LDA #$C8
  347. 22F0- A2 99     LDX #$99
  348. 22F2- 20 00 BE  JSR $BE00
  349. 22F5- B0 4B     BCS $2342
  350. 22F7- AD 9E BE  LDA $BE9E
  351. 22FA- 8D AF BE  STA $BEAF
  352. 22FD- 8D A0 BE  STA $BEA0
  353. 2300- 8D AA BE  STA $BEAA
  354. 2303- A9 C9     LDA #$C9
  355. 2305- A2 AE     LDX #$AE
  356. 2307- 20 00 BE  JSR $BE00
  357. 230A- B0 36     BCS $2342
  358. 230C- 2C 98 BE  BIT $BE98
  359. 230F- 10 15     BPL $2326
  360. 2311- A9 C4     LDA #$C4
  361. 2313- A2 B2     LDX #$B2
  362. 2315- 20 00 BE  JSR $BE00
  363. 2318- B0 28     BCS $2342
  364. 231A- AD B7 BE  LDA $BEB7
  365. 231D- 8D A1 BE  STA $BEA1
  366. 2320- AD B8 BE  LDA $BEB8
  367. 2323- 8D A2 BE  STA $BEA2
  368. 2326- A9 D1     LDA #$D1
  369. 2328- A2 A9     LDX #$A9
  370. 232A- 20 00 BE  JSR $BE00
  371. 232D- B0 13     BCS $2342
  372. 232F- AD AB BE  LDA $BEAB
  373. 2332- 8D A3 BE  STA $BEA3
  374. 2335- AD AC BE  LDA $BEAC
  375. 2338- 8D A4 BE  STA $BEA4
  376. 233B- A9 CA     LDA #$CA
  377. 233D- A2 9F     LDX #$9F
  378. 233F- 20 00 BE  JSR $BE00
  379. 2342- 08        PHP
  380. 2343- 48        PHA
  381. 2344- A9 CC     LDA #$CC
  382. 2346- A2 A7     LDX #$A7
  383. 2348- 20 00 BE  JSR $BE00
  384. 234B- AA        TAX
  385. 234C- 68        PLA
  386. 234D- 28        PLP
  387. 234E- B0 04     BCS $2354
  388. 2350- 8A        TXA
  389. 2351- F0 01     BEQ $2354
  390. 2353- 38        SEC
  391. 2354- 60        RTS
  392. 2355- 00        BRK
  393. 2356- 03        ???
  394. 2357- D4        ???
  395. 2358- BE 00 BA  LDX $BA00,Y
  396. 235B- 00        BRK
  397. 235C- 04        ???
  398. 235D- 00        BRK
  399. 235E- 00        BRK
  400. 235F- 00        BRK
  401. 2360- 00        BRK
  402. 2361- 00        BRK
  403. 2362- 00        BRK
  404. 2363- 00        BRK
  405. 2364- 01 00     ORA ($00,X)
  406. 2366- 02        ???
  407. 2367- 00        BRK
  408. 2368- 00        BRK
  409. 2369- 00        BRK
  410. 236A- 00        BRK
  411. 236B- 03        ???
  412. 236C- 00        BRK
  413. 236D- 00        BRK
  414. 236E- 00        BRK
  415. 236F- 0A        ASL
  416. 2370- D4        ???
  417. 2371- BE C3 06  LDX $06C3,Y
  418. 2374- 00        BRK
  419. 2375- 00        BRK
  420. 2376- 00        BRK
  421. 2377- 00        BRK
  422. 2378- 00        BRK
  423. 2379- 00        BRK
  424. 237A- 00        BRK
  425. 237B- 00        BRK
  426. 237C- 00        BRK
  427. 237D- 00        BRK
  428. 237E- 00        BRK
  429. 237F- 00        BRK
  430. 2380- 00        BRK
  431. 2381- 03        ???
  432. 2382- 60        RTS
  433. 2383- 00        BRK
  434. 2384- BA        TSX
  435. 2385- 00        BRK
  436. 2386- 00        BRK
  437. 2387- 01 D4     ORA ($D4,X)
  438. 2389- BE 04 00  LDX $0004,Y
  439. 238C- 00        BRK
  440. 238D- 00        BRK
  441. 238E- 00        BRK
  442. 238F- 00        BRK
  443. 2390- 00        BRK
  444. 2391- 00        BRK
  445. 2392- 00        BRK
  446. 2393- 00        BRK
  447. 2394- 00        BRK
  448. 2395- 00        BRK
  449. 2396- 00        BRK
  450. 2397- 00        BRK
  451. 2398- 00        BRK
  452. 2399- 00        BRK
  453. 239A- 00        BRK
  454. 239B- 00        BRK
  455. 239C- 00        BRK
  456. 239D- 00        BRK
  457. 239E- 00        BRK
  458. 239F- 00        BRK
  459. 23A0- 00        BRK
  460. 23A1- 00        BRK
  461. 23A2- 00        BRK
  462. 23A3- 01 80     ORA ($80,X)
  463. 23A5- 03        ???
  464.