设为首页收藏本站
切换到窄版

EMU618社区

 找回密码
 立即注册
搜索
EMU618社区»论坛 › 游戏周边 › ROMS发布区 › [FC][精简合卡][魂斗罗3合1]
123下一页
返回列表 发新帖
查看: 3889|回复: 56

[FC/FDS] [FC][精简合卡][魂斗罗3合1]

  [复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2020-2-23 22:22:17 | 显示全部楼层 |阅读模式

游客，如果您要查看本帖隐藏内容请回复


  1. ;[FC][精简合卡菜单]
  2. ;FlameCyclone
  3. ;2020.02.23
  4. ;==================================================
  5. RESET_PORT = $E000
  6. MENU_INDEX = 01
  7. MENU_RESET = $F80D
  8. ;==================================================
  9. Char_Arrow = $1F
  10. ARROW_X_OFFSET = $35 ;箭头横坐标
  11. ARROW_Y_OFFSET = $47 ;箭头纵坐标
  12. ITEM_COUNT = 03 ;节目总数
  13. ;==================================================
  14. BTN_DELAY = 30 ;按键重复触发时长
  15. BTN_SPEED = 10 ;按键重复触发速度
  16. ;==================================================
  17. Data_L = $00
  18. Data_H = Data_L + $01
  19. Data_Count = Data_H + $01
  20. ;==================================================
  21. Sel_Index = Data_Count + $01
  22. ;==================================================
  23. Button_Keep = Sel_Index + $01
  24. Button_Once = Button_Keep+$01
  25. Button_Temp = Button_Once+$01
  26. Button_Buf = Button_Temp+$01
  27. Button_Status = Button_Buf+$01
  28. ;==================================================
  29. Second_Time = Button_Status + $01
  30. Btn_Delay = Second_Time + $01

  32. ;==================================================
  33. .ORG RESET_PORT
  34. ;==================================================
  35. ProgramBegin:
  36. SEI
  37. CLD
  38. LDA #$00
  39. STA $2000
  40. STA $2001
  41. LDA #$C0
  42. STA $4017
  43. LDX #$FF
  44. TXS

  46. ;=================================================
  47. ;选择菜单rom
  48. LDX #MENU_INDEX
  49. LDA Rom_Select_Data,X
  50. AND #$7F
  51. STA $6000

  53. JSR PaletteClear
  54. JSR TimeWait

  56. ;==================================================
  57. RamClear:;RAM清空
  58. LDA #$00
  59. STA $00
  60. STA $01
  61. LDX #$08
  62. LDY #$00
  63. RamClearWrite:
  64. STA ($00),Y
  65. INY
  66. BNE RamClearWrite
  67. INC $01
  68. DEX
  69. BNE RamClearWrite

  71. JSR ChrSteup
  72. JSR SpriteClear
  73. JSR VramClear
  74. JSR TextWrite
  75. JSR TimeWait
  76. JSR PaletteSet
  77. JSR ResetScroll

  79. LDA #$10
  80. STA Button_Buf
  81. LDA #$1E
  82. STA $2001
  83. ;==================================================
  84. ;循环等待
  85. WaitLoop:
  86. JSR NmiDelay
  87. JSR SelectChange
  88. JMP WaitLoop
  89. RTS

  91. ;==================================================
  92. ;NMI延时
  93. NmiDelay:
  94. JSR TimeWait
  95. JSR SpriteSet
  96. LDA #$02
  97. STA $4014
  98. JSR Button_Process
  99. JSR ResetScroll
  100. RTS

  102. ;==================================================
  103. ;延时等待
  104. TimeWait:
  105. LDA $2002
  106. BPL TimeWait
  107. RTS

  109. ;==================================================
  110. ;重设滚动
  111. ResetScroll:
  112. LDA #$00
  113. LDA #$00
  114. STA $2006
  115. STA $2005
  116. STA $2005
  117. RTS

  119. ;==================================================
  120. ;按键处理
  121. Button_Process:
  122. JSR Button_Scan
  123. LDA Button_Keep
  124. STA Button_Temp
  125. JSR Button_Scan
  126. LDA Button_Keep
  127. CMP Button_Temp
  128. BEQ Button_Get_Once
  129. LDA Button_Buf
  130. STA Button_Keep
  131. Button_Get_Once:
  132. TAY
  133. EOR Button_Buf
  134. AND Button_Keep
  135. STA Button_Once
  136. STY Button_Buf
  137. JSR ButtonDelay
  138. RTS
  139. ;==================================================
  140. ;按键扫描
  141. Button_Scan:
  142. LDX #$01
  143. STX $4016
  144. DEX
  145. STX $4016
  146. LDY #$08
  147. Button_Value:
  148. LDA $4016
  149. STA Button_Status
  150. LSR
  151. ORA Button_Status
  152. LSR
  153. ROL Button_Keep
  154. DEY
  155. BNE Button_Value
  156. RTS

  158. ;==================================================
  159. ;按键延时重复
  160. ButtonDelay:
  161. LDA Button_Keep
  162. AND #$EF
  163. BNE ButtonDelaySet
  164. LDA #$00
  165. STA Btn_Delay
  166. ButtonDelaySet:
  167. INC Btn_Delay
  168. LDA Btn_Delay
  169. CMP #BTN_DELAY + BTN_SPEED
  170. BCC ButtonDelayEnd
  171. LDA #BTN_DELAY
  172. STA Btn_Delay
  173. LDA Button_Keep
  174. STA Button_Once
  175. ButtonDelayEnd:
  176. RTS

  178. ;========================================
  179. ChrSteup:                     ;图形块设置
  180. LDX #$00
  181. ChrSteupSet:
  182. STX $8000
  183. LDA ChrBankData,X
  184. STA $8001
  185. INX
  186. CPX #$06
  187. BCC ChrSteupSet
  188. RTS

  190. ;========================================
  191. ChrBankData:                  ;图形块号
  192. .DB $00,$02,$04,$05,$06,$07

  194. ;==================================================
  195. ;精灵清除
  196. SpriteClear:
  197. LDX #$00
  198. LDA #$F8
  199. SpriteClearWrite:
  200. STA $0200,X
  201. INX
  202. BNE SpriteClearWrite
  203. RTS

  205. ;==================================================
  206. ;精灵设置
  207. SpriteSet:
  208. LDA Sel_Index
  209. ASL
  210. ASL
  211. ASL
  212. ASL
  213. CLC
  214. ADC #ARROW_Y_OFFSET
  215. STA $0200
  216. LDA #Char_Arrow
  217. STA $0201
  218. LDA #$00
  219. STA $0202
  220. LDA #ARROW_X_OFFSET
  221. STA $0203
  222. RTS

  224. ;==================================================
  225. ;清空PPU内存
  226. VramClear:
  227. LDA #$20
  228. STA $2006
  229. LDA #$00
  230. STA $2006
  231. TAX
  232. LDY #$08
  233. LDA #$00
  234. NameTableClearBeg:
  235. STA $2007
  236. INX
  237. BNE NameTableClearBeg
  238. DEY
  239. BNE NameTableClearBeg
  240. RTS

  242. ;==================================================
  243. ;清空调色板
  244. PaletteClear:
  245. JSR PaletteAddrSet
  246. LDA #$0F
  247. LDX #$00
  248. PaletteClearWrite:
  249. STA $2007
  250. INX
  251. CPX #$20
  252. BCC PaletteClearWrite
  253. RTS

  255. ;==================================================
  256. ;设置调色板
  257. PaletteSet:
  258. JSR PaletteAddrSet
  259. LDX #$00
  260. PaletteSetWrite:
  261. LDA PaletteData,X
  262. STA $2007
  263. INX
  264. CPX #$20
  265. BCC PaletteSetWrite
  266. RTS

  268. ;==================================================
  269. ;调色板地址设置
  270. PaletteAddrSet:
  271. LDA #$3F
  272. STA $2006
  273. LDA #$00
  274. STA $2006
  275. RTS

  277. ;==================================================
  278. ;设置属性表
  279. AttributeSet:
  280. LDA #$23
  281. STA $2006
  282. LDA #$C0
  283. STA $2006
  284. LDX #$00
  285. AttributeSetWrite:
  286. LDA AttributeData,X
  287. STA $2007
  288. INX
  289. CPX #$40
  290. BCC AttributeSetWrite
  291. RTS

  293. ;==================================================
  294. ;写入文本
  295. TextWrite:
  296. LDA #<TextData
  297. STA Data_L
  298. LDA #>TextData
  299. STA Data_H
  300. LDY #$00
  301. TextWriteCheckMode:
  302. LDA (Data_L),Y
  303. BEQ TextWriteOver
  304. CMP #$FF
  305. BEQ TextWriteOver
  306. AND #$04
  307. STA $2000
  308. JSR CheckAddr
  309. LDA (Data_L),Y
  310. STA $2006
  311. JSR CheckAddr
  312. LDA (Data_L),Y
  313. STA $2006
  314. JSR CheckAddr
  315. LDA (Data_L),Y
  316. TAX
  317. JSR CheckAddr
  318. TextWriteData:
  319. STX Data_Count
  320. LDA (Data_L),Y
  321. TAX
  322. LDA Char_Rom,X
  323. STA $2007
  324. JSR CheckAddr
  325. LDX Data_Count
  326. DEX
  327. BNE TextWriteData
  328. JMP TextWriteCheckMode
  329. TextWriteOver:
  330. LDA #$00
  331. STA $2000
  332. RTS
  333. ;--------------------------------------------------
  334. CheckAddr:
  335. INY
  336. BNE CheckAddrOver
  337. INC Data_H
  338. CheckAddrOver:
  339. RTS

  341. ;==================================================
  342. ;选项切换
  343. SelectChange:
  344. LDA Button_Once
  345. AND #$FF
  346. BEQ SelectChangeEnd
  347. SelectChangeSound:
  348. JSR ButtonSound
  349. SelectInc:
  350. LDA Button_Once
  351. AND #$24
  352. BEQ SelectDec
  353. LDA Sel_Index
  354. CMP #ITEM_COUNT - 1
  355. BCC SelectIncSet
  356. LDA #$FF
  357. STA Sel_Index
  358. SelectIncSet:
  359. INC Sel_Index
  360. SelectDec:
  361. LDA Button_Once
  362. CMP #$08
  363. BNE SelectBeg
  364. LDA Sel_Index
  365. BNE SelectDecSet
  366. LDA #ITEM_COUNT
  367. STA Sel_Index
  368. SelectDecSet:
  369. DEC Sel_Index
  370. SelectBeg:
  371. LDA Button_Once
  372. AND #$42
  373. BEQ SelectEnd
  374. LDA #$00
  375. STA Sel_Index
  376. SelectEnd:
  377. LDA Button_Once
  378. AND #$81
  379. BEQ SelectOver
  380. LDA #ITEM_COUNT - 1
  381. STA Sel_Index
  382. SelectOver:
  383. LDA Button_Once
  384. CMP #$10
  385. BNE SelectChangeEnd
  386. JSR EnterSound
  387. JMP SelectProcess
  388. SelectChangeEnd:
  389. RTS

  391. ButtonSound:                    ;按键音效
  392. LDA #$03
  393. STA $4015
  394. LDX #$00
  395. ButtonSoundWrite:
  396. LDA ButtonSoundData,X
  397. STA $4000,X
  398. INX
  399. CPX #$04
  400. BCC ButtonSoundWrite
  401. RTS

  403. ButtonSoundData:
  404. .DB $87,$89,$F0,$00

  406. ;========================================
  407. ;进入音效
  408. EnterSound:
  409. LDA #$02
  410. STA $4015
  411. LDX #$00
  412. EnterSoundWrite:
  413. LDA EnterSoundData,X
  414. STA $4004,X
  415. INX
  416. CPX #$04
  417. BCC EnterSoundWrite
  418. LDA #$18
  419. JSR SecondDelay
  420. RTS

  422. EnterSoundData:
  423. .DB $3F,$9A,$FF,$00

  425. ;========================================
  426. ;等待延时
  427. SecondDelay:
  428. STA Second_Time
  429. BEQ SecondDelayEnd
  430. SecondDelayWait:
  431. JSR NmiDelay
  432. LDA Button_Once
  433. AND #$90
  434. BNE SecondDelayEnd
  435. DEC Second_Time
  436. BNE SecondDelayWait
  437. SecondDelayEnd:
  438. RTS

  440. ;=================================================
  441. ;音频清理
  442. SoundClean:
  443. LDA #$30
  444. STA $4000
  445. STA $4004
  446. STA $4008
  447. STA $400C
  448. STA $4010
  449. LDA #$00
  450. STA $4010
  451. TAX
  452. SoundCleanReg:
  453. STA $4001,X
  454. STA $4005,X
  455. STA $4009,X
  456. STA $400D,X
  457. STA $4011,X
  458. INX
  459. CPX #$03
  460. BCC SoundCleanReg
  461. LDA #$00
  462. STA $4015
  463. RTS

  465. ;==================================================
  466. SEL_PROCESS_SIZE = SelectGameLength - SelectGame
  467. Sel_Process_Addr = $0300
  468. ;==================================================
  469. SelectProcess:;选择节目处理
  470. JSR SoundClean
  471. LDX #$00
  472. SelectProcessWrite:
  473. LDA SelectGame,X
  474. STA Sel_Process_Addr,X
  475. INX
  476. CPX #SEL_PROCESS_SIZE
  477. BCC SelectProcessWrite
  478. JSR TimeWait
  479. JSR PaletteClear
  480. LDX Sel_Index
  481. SelectProcessCheckMenu:
  482. CPX #MENU_INDEX
  483. BCC SelectProcessCheckMenuOver
  484. INX
  485. SelectProcessCheckMenuOver:
  486. LDA Rom_Select_Data,X
  487. JMP Sel_Process_Addr
  488. ;==================================================
  489. SelectGame:;选择节目
  490. STA $6000
  491. SelectGameEnd:
  492. LDX #$06
  493. LDY #$00
  494. STX $8000
  495. STY $8001
  496. INX
  497. INY
  498. STX $8000
  499. STY $8001
  500. JMP ($FFFC)
  501. SelectGameLength:

  503. ;==================================================
  504. ;调色板数据
  505. PaletteData:
  506. .DB $0F,$2A,$2A,$2A,$0F,$25,$25,$25,$0F,$29,$26,$26,$0F,$21,$20,$20
  507. .DB $0F,$20,$20,$20,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F

  509. ;==================================================
  510. ;属性表数据
  511. AttributeData:
  512. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
  513. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  514. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  515. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

  517. ;==================================================
  518. ;文本数据
  519. TextData:
  520. .DB $80,$20,$A9
  521. .STR "CONTRA 3 IN 1"
  522. .DB $80,$21,$28
  523. .STR "01.CONTRA"
  524. .DB $80,$21,$68
  525. .STR "02.SUPER CONTRA"
  526. .DB $80,$21,$A8
  527. .STR "03.CONTRA FORCE"
  528. .DB $FF

  530. Rom_Select_Data:             ;ROM选择数据
  531. ;;;;;WMCCSBPP
  532. .DB @11001000   ;001
  533. .DB @11011001   ;002
  534. .DB @11101010   ;003
  535. .DB @11111011   ;004
  536. .DB @11001100   ;005
  537. .DB @11011101   ;006
  538. .DB @11101110   ;007
  539. .DB @11111111   ;008

  541. ;==================================================
  542. Char_Rom:
  543. .DB $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F
  544. .DB $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F
  545. .DB $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F
  546. .DB $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F
  547. .DB $40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F
  548. .DB $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$5E,$5F
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？立即注册

x

评分

1

查看全部评分

[发帖际遇]: yandagui 乐于助人，奖励 6 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

世界统一

签到天数: 3744 天

[LV.Master]伴坛终老
发表于 2020-2-24 00:27:53 | 显示全部楼层
エロかっこいい女。vol.2 後編 一ノ瀬アメリ
回复 支持 反对

使用道具 举报

wsz7257

签到天数: 2133 天

[LV.Master]伴坛终老
发表于 2020-2-24 05:29:52 | 显示全部楼层
永远怀念的魂斗罗。
[发帖际遇]: wsz7257 发帖时在路边捡到 1 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

liuyu000000

签到天数: 3673 天

[LV.Master]伴坛终老
发表于 2020-2-24 11:14:26 | 显示全部楼层
这样玩起来可简单啦，谢谢分享
回复 支持 反对

使用道具 举报

努力de乌龟

签到天数: 116 天

[LV.6]常住居民II
发表于 2020-2-24 11:50:10 | 显示全部楼层
548行代码，是你自己编写的吗？还是改写的源代码？
[发帖际遇]: 努力de乌龟 乐于助人，奖励 9 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

afti

签到天数: 3230 天

[LV.Master]伴坛终老
发表于 2020-2-24 18:21:19 | 显示全部楼层
魂斗罗都是精品，感谢发布合卡！
[发帖际遇]: afti整理箱子竟然翻出了 4 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

g00dgame

签到天数: 732 天

[LV.9]以坛为家II
发表于 2020-2-24 19:20:22 | 显示全部楼层
游戏123全懂，下面的代码 全部不懂，感谢分享，学习了！
回复 支持 反对

使用道具 举报

woodexe

签到天数: 2496 天

[LV.Master]伴坛终老
发表于 2020-2-24 20:25:09 | 显示全部楼层
本帖最后由 woodexe 于 2020-2-24 20:26 编辑

精简的必然是经典的，适合学习
回复 支持 反对

使用道具 举报

fragranse

签到天数: 1358 天

[LV.10]以坛为家III
发表于 2020-2-24 23:55:31 | 显示全部楼层
感谢大佬的分享，非常感谢！！
回复 支持 反对

使用道具 举报

fragranse

签到天数: 1358 天

[LV.10]以坛为家III
发表于 2020-2-25 00:21:40 | 显示全部楼层
这里是教怎么制作合卡的吗？
[发帖际遇]: fragranse 捡了钱没交公 柠檬 降了 2 个 . 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

tonyowen123

签到天数: 619 天

[LV.9]以坛为家II
发表于 2020-2-25 12:30:09 | 显示全部楼层
谢谢分享
[发帖际遇]: tonyowen123扶老大爷过马路，警察叔叔奖励tonyowen123 2 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

dabayu

签到天数: 187 天

[LV.7]常住居民III
发表于 2020-2-25 14:19:39 | 显示全部楼层
这个有点意思，收藏了
[发帖际遇]: dabayu 在论坛发帖时没有注意，被小偷偷去了 5 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

lelehehe

签到天数: 2110 天

[LV.Master]伴坛终老
发表于 2020-2-25 19:51:56 | 显示全部楼层
感谢发布合卡！
[发帖际遇]: lelehehe 打扫环境卫生，被奖励 4 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

adsl9646

签到天数: 2249 天

[LV.Master]伴坛终老
发表于 2020-2-26 02:41:34 | 显示全部楼层
感谢大佬的分享，非常感谢
[发帖际遇]: adsl9646 乐于助人，奖励 5 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

文子萝卜

签到天数: 1418 天

[LV.10]以坛为家III
发表于 2020-2-26 18:01:39 | 显示全部楼层
高能{:4_137:}
[发帖际遇]: 文子萝卜 发帖时在路边捡到 1 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

qhynlj

签到天数: 272 天

[LV.8]以坛为家I
发表于 2020-3-3 16:50:18 | 显示全部楼层
永恒的怀念。谢谢楼主分享。
[发帖际遇]: qhynlj 发帖时在路边捡到 2 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

goe333

签到天数: 112 天

[LV.6]常住居民II
发表于 2020-3-16 16:00:55 | 显示全部楼层
本帖最后由 goe333 于 2020-3-16 16:02 编辑

合卡好东西啊！{:4_97:} {:4_117:}
[发帖际遇]: goe333 在网吧通宵，花了 10 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

she370192822

签到天数: 1792 天

[LV.Master]伴坛终老
发表于 2020-4-6 22:32:24 | 显示全部楼层
收下了 谢谢
[发帖际遇]: she370192822摆地摊卖菜，占道经营被城管罚款 5 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

fjdfz

该用户从未签到
发表于 2020-4-25 19:06:34 | 显示全部楼层
谢谢楼主分享
回复 支持 反对

使用道具 举报

十四叔

签到天数: 873 天

[LV.10]以坛为家III
发表于 2020-5-3 18:44:37 | 显示全部楼层
有没有HACK~
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|国治模拟精品屋 ( 沪ICP备15012945号-1 )

GMT+8, 2025-10-31 22:30 , Processed in 1.081055 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表