|
|
本帖最后由 yandagui 于 2017-4-2 13:21 编辑 n- \8 M. s L9 z. X# H
: X) y2 r, u4 y4 w% l
[FC][忍者神龟2][END选关]
9 Z, \8 O. {) X6 I) j. b( T: Y- j
$ K _3 S E+ E; a) D时间:2017.3.319 G/ h$ ]& h4 N; u9 Z5 H1 O
作者:FlameCyclone- .ORG $B9E0* v2 r1 O3 Y6 \) b% w n
- ora_data:
5 E; m* X2 y$ {% o* r# P1 _ - .BYTE $08,$04,$02,$01,$80,$40,$20,$10' H/ A5 V* x) C: h1 L6 s& x
- and_data:7 h/ f7 S3 |+ `% H6 D; U) h( ~" @
- .BYTE $F7,$FB,$FD,$FE,$7F,$BF,$DF,$EF2 f, |6 P) x0 v: T9 Y
- 2 V7 I% f* J+ s, N' r
- button = $F8: N( h2 i: Q! D, K
- flag = $6000# c$ O% \) h! G) T
- pause = $3D; K; t' Y& r2 R
- : n# `# c( r( Q, x
- .org $BA002 `; X* _3 Y2 A
. ]3 h' \1 g# f) G4 @- PHA
' b7 `8 U U2 C5 U7 R - TXA
+ [; j5 S- d1 W# a* @5 P - PHA# q) V+ V' ]* h; {" z
- TYA
1 m% m3 s9 y& ? - PHA
4 p- X, I9 h" i - JSR KEY_OPERATE
, ~; V; r1 p+ d2 n. E1 a7 t1 r - JSR INV
, b* _8 W; z. I$ {2 j) s9 F" o2 a - JSR LIFE
* u$ |- g, A( w: ]2 J: M - JSR BLOOD0 Z* z% X5 k9 u J" C* v
- PLA
_+ V+ q5 Y, R8 e/ J2 [ - TAY
3 z/ g: o* h) `5 v. Q- U1 ~ - PLA* F2 O0 Y% e) M* Z& V0 N
- TAX
, d' X6 M% o6 q5 T - PLA% ^ J8 n! Y( Z6 o( t! P$ x2 Z
- RTS5 F& ?5 D/ e0 ?* h$ v
- KEY_OPERATE:
+ m. C4 {( V) j5 C G; X% j/ f9 J2 K - data_protect:1 n0 G- L( z( ~! X% ~5 D& F
- PHA
# M4 I8 C* E+ s - TXA" m5 o0 y/ Q3 m) p. F
- PHA
+ E( j' W5 A9 s5 M! c2 o: I/ O - TYA
- `, w8 R/ x q% ? a6 a% f - PHA2 M& J3 i: K' f k5 J' Y
- 1 _) y4 d, l' g4 O' R8 i% \2 S
- FLAG_CMP:
+ A8 L# M4 H- }% t, K - LDA $600F% q; F5 V; J. B& @
- CMP #$7F ;标志数据初始化条件判断
" ^. Z. ` \1 o: D6 K - BEQ pause_cmp
( G, _+ X6 X O - LDA #$80
6 s& n/ V- h! a( Y* _$ z - STA $A001 ;6000-7FFF写入启用
& C3 i! V7 p8 W - LDA #$00 a) |+ s' O/ d, `. `4 Z; V- B
- STA $6000 ;数据初始化
& _5 H2 d8 ?" s( v1 g - STA $6001 ;数据初始化
F3 h/ j% }$ |: O - LDA #$7F4 v1 F0 U' |( y1 v% }
- STA $600F; I* o) n+ z. b& R2 X8 w& q
- pause_cmp:$ N: {1 `: Q* N. e
- LDA pause9 }$ I9 u# b2 {3 Q
- CMP #$017 \. F5 C9 J% b# @) \0 s9 @; r
- BEQ button_press
9 N* B& n+ j" U3 Q& j0 w - PLA4 |( h. \+ T- ^; f* R
- TAY
( j8 E5 J2 e2 l/ ?7 ` } - PLA
" b& _& i6 |3 l* S1 W, P$ O0 P - TAX
4 M- y6 ]$ \* z, R G9 [( p/ W - PLA3 k; b/ \6 D3 _# J6 C4 C
- RTS
& |& [0 N( |# e8 t0 X6 U- e - , U0 \5 l/ B7 K
- button_press:
v2 ^! y' M* c9 F0 \. y2 ` - ini_Y:
0 v$ g8 c- a8 @" W& N - LDY #$000 F; c) K' K6 b1 z5 m
- button_cmp:
( F; [# a5 q$ I! N y: i/ y - LDA button,X
5 F+ f4 l/ [. v, I# E - CMP ora_data,Y& r3 m; L0 ]5 V* ]; P
- BNE count_Y_cmp6 A7 L# R+ x$ f# U
- flag_cmp:8 @2 C% N1 I* y. i; l2 a, n; R
- LDA flag,X7 Y! r' c9 F$ i
- AND ora_data,Y
/ i) O7 l$ y" R9 z+ L) ` - BNE flag_and) Z3 j1 a; v% o- p8 { p3 |
- flag_ora:
# t0 o% M/ D' E2 P* U+ I6 [* L; ^; S - LDA flag,X. w! y2 F8 T% Z( ]* w
- ORA ora_data,Y
/ s1 u. I8 E G. E8 E - STA flag,X
- T6 I& ~: }+ B; M$ Q' e6 | I, M1 O - BNE count_Y_cmp
4 k# D* c! z& q - flag_and:
7 Q# _% R8 ~( L4 |! A - LDA flag,X2 _9 V) x0 f0 w% V) H' q- H5 d
- AND and_data,Y8 U. d7 ?3 }$ N2 h/ g- h `
- STA flag,X) Y/ `0 e' V; l( X5 \# C0 D$ V
- count_Y_cmp:
! v1 ?# z4 j } - INY% ^4 ]3 f2 t, P* Z/ G
- CPY #$08, A; F% X/ U7 n- l
- BCC button_cmp* k& u1 Y% K N+ h( D3 j
- 2 e' Y( F1 ]) i6 k0 S. _
- data_extract:" U! @( f/ I1 x) y/ [6 k
- PLA
5 y/ C, u/ M1 x' [& | - TAY2 p( C# v* _7 [1 P: f
- PLA
( ]; v) o' Y; d* @; O2 a4 \ - TAX
4 i6 ]) O6 N5 @% M - PLA
) B2 N: y3 s" a0 [ - * _; d! @. z7 a1 d, w P
- return:
; A1 S; j6 q' l9 \ - RTS
7 z4 ?" N$ T' n0 B: @+ _ -
( i) C6 F0 f7 R: S - 5 v/ Z' Q Z' _$ s1 X6 s
- INV: ;无敌
- o' {' U- u R. R3 l% B" v) _+ b; b# r - LDA $6000,X8 t4 J& v7 n* R# i( g7 A2 k
- AND #$08
3 v: v/ H; E, r9 r - BEQ INV_RTS- e9 C8 a( w: K1 z, D0 T
- LDA #$05
a0 k* ]/ _; K4 N - STA $93,X$ `' o1 {, C4 n' k. @& t9 k) y3 D/ {
- INV_RTS:/ A1 `% w: {1 `2 g. a
- RTS
; `' Y* i, j9 p$ Z o7 [ - 2 a0 X7 }5 A [) A1 k
- : n [9 H$ J- z/ [5 A) P i! |7 p& Y
- LIFE: ;生命
L/ [1 D0 ~1 J. t3 Y! @ - LDA $6000,X. f8 E s0 f" V+ p" \# P+ o7 H
- AND #$048 B( u6 G ^! X+ n- v
- BEQ LIFE_RTS$ e8 i: y8 [5 l# x4 z
- LDA #$090 [8 z+ Y; q6 e3 ]
- STA $4D,X
- E! l" |! K6 {) O7 C$ T1 x0 n# ] - LIFE_RTS:6 F# B! S8 d8 c' k" W' @
- RTS
6 L3 b* N/ A o( f& | - 1 e3 R' `( v' B% S) u$ _; ?1 e
- # E: g( s/ O w9 F. j7 }& j
- BLOOD: ;血量
# m8 i8 M+ q4 R; i6 X7 C - LDA $6000,X; v9 F# c, [0 p4 v- O r$ d9 ?
- AND #$01- M' z# \" C* ~& N
- BEQ BLOOD_RTS- D* W2 Z+ p' K8 A% `
- LDA #$38! d: b1 y7 z. G" i5 A
- STA $0568,X
9 A8 W/ J* A7 v/ D* K+ F4 h - BLOOD_RTS:
& @/ |, A4 {7 z- T6 ?& v5 G7 m - RTS
, M: V- h" o6 B: A -
; Y* M3 n% h; N' m$ E. F1 ]3 P) i - ( Y J: D+ b" b
- .ORG $FEFE) q" n# b" g) U" j+ G
- JSR $FF60( [. v: y9 s' x
- NOP
9 I) H7 Q- L$ x/ c" h" w# `4 L -
5 e e( Z* n$ l) A- z$ D - .ORG $FF60! E* ?" N, b$ K2 V& w e9 q5 d
- STA $F8,X/ R2 h, i M/ f' N* O, U# F' D
- STY $3A,X
$ _: d# q) K: Y; O% w( m - PHA
$ p" {9 j: B4 z4 j# f9 {2 D4 g2 w - TXA R* s; Y- g1 s# Z
- PHA
5 n1 ~! k& d' ~7 m3 F - TYA8 @ }! n+ h9 ^0 q# }
- PHA7 Y& N% `4 r& [) r' R$ }* W9 R
- LDA #$02
8 }: l6 e) ~! l5 x - JSR $DB11 ;调用系统切页
: D8 v4 u2 G) x6 h - PLA
+ }2 {1 l O w+ |2 K2 M1 s - TAY
+ u0 x/ E X. D- t+ _6 Q) y; W - PLA
" i& [5 L8 p- Y, g, {2 n - TAX3 a4 j H- Y7 |2 @0 }
- PLA/ P/ ?7 d! z0 F1 e5 z3 n
- JSR $BA00
) b# }3 u& ~( O& ^" C5 w - RTS
' g& Z1 K3 |3 e' Y; V) y% q# U1 K
) ~ G4 c+ f9 z' X9 g" d! ~- ;[FC][忍者神龟PPU][END], c. ~+ a1 E+ {8 S
5 `2 n0 G, V0 m, C; L" Y- .ORG $BC00
^' U8 V+ I1 Q# P- s -
4 B1 l( Y' E$ b# X - STY $4014 ;补上覆盖的精灵写入指令6 C1 ]' S; P, \$ s0 f3 t6 l1 M$ W
- PHA
. `. L* P* d# W - TXA
& J* Q+ [7 k( m; y' c - PHA
2 }- {" a1 A) g, J2 l g - TYA/ k: ?! j8 b' @( @1 I) Q3 ~7 w2 E1 T- B
- PHA
. E* P# R* |; h$ c9 ?1 F - LDA $0188 p( G. O9 X, `! B7 _' x1 C& U
- CMP #$01 ;比较是否为标题画面
& m/ n% ~' \7 R - BNE RET1 @' ^+ F, a9 w5 s/ ^
- LDA $019
4 P" H2 J5 q S& ^% m+ R" ` - CMP #$01 ;比较是否为标题画面, _7 w, V) F! l X2 E2 r
- BEQ PPU_STAGE
$ j6 |/ A2 I# t( H5 V' ?4 t; r- ` - RET:
2 O* }0 q& Y$ T8 g - PLA
6 |0 ]7 D3 V: ] H8 K6 j$ I - TAY0 R( P8 W; J& S! O+ w! f
- PLA3 Z5 F8 E( G- X- B9 a2 k. D
- TAX
0 n9 e9 p. N7 ~4 v- B: z' K8 ?; Q - PLA
- B# T9 Z' w/ _! q; \7 @* s+ } - RTS9 p6 c9 R: X$ Q& w% n
- PPU_STAGE: ;STAGE显示程序2 }* D% l' g0 ~ s4 }/ s( B
- LDA PPU_ADDR_DATA$ M+ Q$ a9 A. N$ V. c# L
- STA $2006
- @6 w; ?/ r; d* [4 C+ X* i - LDA PPU_ADDR_DATA+1
; `( Z7 p8 F/ z( v5 g - STA $2006 ;坐标设置. O4 N; j$ `$ Z: q
- LDX #$00
+ _( I0 n: |$ S @1 A) N - PPU_STAGE_WROTE: ;写入STAGE字模. ]* V& O" p- Z, a# W+ a# e- @
- LDA STAGE_DATA,X
! G; S/ W3 f$ M5 N/ W: g& o# _( o - CMP #$FF
4 Q, u2 `' F D3 t+ l8 Y; N - BEQ STAGE_CMP, C. H' v5 P' K0 M0 N" ]
- STA $2007) j& c: T8 ]# [+ @4 R
- INX, k8 U4 j8 k4 _& D
- BCC PPU_STAGE_WROTE7 i+ \% H3 V8 @
- STAGE_CMP:
% N/ P, K: m2 c& X, | - LDA $6010
9 \7 w3 j* R" ^& K+ {1 ^ - CMP #$FF ;关卡数据初始化条件判断
+ Y6 F( A v: T - BNE KEY_B. X1 X: t7 u; K6 U' H
- LDA #$00
$ H; m2 {$ {' a9 |+ C8 E - STA $6010 ;关卡数据初始化# J) k. j& g% O% d
- KEY_B: ;关卡减少8 b g U" y5 ?2 o- }
- LDA $F8 q1 A" \& X5 m" M9 T
- AND #$42 ;按键B或左减关% `! o, C( ~( D" N! _0 l3 P
- BEQ KEY_A
! Y9 f, ^. k; v$ B1 @: ^ - LDA #$FF
; i5 {0 v* B/ X" o; z/ J6 L, I - STA $40
: {" d8 Z$ w6 p0 M3 K - LDA $60107 K; y8 n% W' R8 r+ v# o) d
- CMP #$00 ;关卡比较& r9 h5 l1 B+ N5 |% f1 U
- BEQ KEY_A" ~' w) K9 U1 P4 q5 l/ H- {/ d
- DEC $6010 ;减关6 e# k6 P3 Z( n X/ u4 q
- LDA #$57- }+ e! F; d3 _5 }/ a8 f v% H
- JSR $DB52 ;按键音效
- D2 `+ K' s# i5 F4 x% B( E7 \. v - KEY_A: ;关卡增加
9 X- G5 m* u- I1 { - LDA $F88 r8 B* K5 ~- X+ j4 L
- AND #$81 ;按键A或右加关* o: _5 D; {& r. b3 a1 y
- BEQ PPU_NUM_WRITE
' U& R- W1 p# k" S4 R% W - LDA #$FF4 e5 ~1 _' D7 K- \2 b0 T% @6 W: y
- STA $40
, k2 T" A W1 Y( u - LDA $6010, n; Y t1 I) `3 r6 z }
- CMP #$0B ;关卡比较
1 _4 u+ Q$ g/ B+ R& B9 q7 M+ H8 V - BEQ PPU_NUM_WRITE
) _6 p& J8 m, S. A" F3 B: Q - INC $6010 ;加关
4 c2 {# m, C: H3 _8 F4 U1 h5 t - LDA #$57& G [- y- f; W% S$ h
- JSR $DB52 ;按键音效
+ w$ U4 K0 Y5 n) b/ o: Z8 D - PPU_NUM_WRITE:. y4 }4 D4 F( F* {1 f+ _% T. V5 f
- LDA PPU_ADDR_DATA Y: E8 f1 o# N2 L' ]
- STA $2006' ] b8 h' s/ V9 x
- LDA PPU_ADDR_DATA+1
7 g& x2 a( B5 R3 A% u - CLC
% [7 A. q3 ~$ }9 w6 A8 N$ U - ADC #$06+ r% W+ v Y( S* Z" X2 ~3 g
- STA $2006 ;坐标设置# x8 u! R( ~) o0 l
- LDA $6010
# T7 |1 j" ^) T8 C( { - TAX7 Y0 H: i0 D5 W7 @
- LDA STAGE_D1,X ;写入数字
; W# [% j9 W2 h) f3 F. ~ - STA $2007* K. _ V$ ]" o/ K% D/ I
- LDA PPU_ADDR_DATA) ?% a! m$ }! o/ Z
- STA $20065 b B5 S8 }" y, @& n/ w9 G! b, m/ T
- LDA PPU_ADDR_DATA+1' ]$ \' ?" {: L% a
- CLC8 o$ |- A0 L. _4 O# n
- ADC #$0B1 f* j4 H: ` L7 ^0 l5 b
- STA $2006 ;坐标设置# t d3 K! V; q6 Z# R& ~- F
- LDA $6010$ d( G0 K& T' `2 C" C
- TAX+ F' h' w3 }" k" l/ }
- LDA STAGE_D2,X ;写入数字; a, F" P! Z2 A- u$ } b7 {
- STA $2007
2 `! b' {' S: s - STAHE_WRITE:
% i+ @3 S/ u) o9 p( p! b - LDA $6010
! O6 V6 y: T7 e( s4 C - STA $42 ;初始关卡写入3 }2 H/ u+ K: A( T" H9 }; {1 z! j
- PPU_RTS:
% v. e9 a/ ?! K' I9 T& W9 [1 ] - PLA8 }5 {5 e4 C2 [& _+ X% T+ u% P
- TAY
% t" S- [( ~ C. F - PLA
8 D# G+ M9 `, r& |$ W6 x4 Q% W - TAX; Q8 b w6 i& k" w6 g, j" M/ k
- PLA
& Y2 m) i6 `' o2 V7 o" v! b/ V - RTS4 M) A: S$ e, g: C9 H
- * ^. t3 T9 f1 d: Y! D) M
- ! C' ~4 T/ U: z& G6 y
- STAGE_DATA: ;关卡文字S,T,A,G,E,X,-,X字模数据7 h# D" U1 P# s! i+ k% W3 O; s
- .BYTE $1D,$1E,$0B,$11,$0F,$00,$00,$00,$1E,$19,$00,$00,$00,$FF
; Z4 `4 {5 Q, l8 F- ~/ f# c. O - , q3 H* W$ y) @/ s0 J
- STAGE_D1: ;关卡数字
7 t4 \2 w. h% j9 Y4 a2 s' P - .BYTE $02,$02,$03,$03,$04,$04,$05,$05,$06,$07,$08,$08) W" [, [1 L2 Z; ]( x' u
/ v# X$ X* z% {+ C- STAGE_D2: ;场景数字
; r( y. w7 g: a+ \4 e - .BYTE $02,$03,$02,$03,$02,$03,$02,$03,$02,$02,$02,$03
9 ?: y3 V! s0 s6 h -
6 t# j% A! K' v" w! t) c: T) `1 @ - PPU_ADDR_DATA:& d' U9 j- N# X; }9 u
- .BYTE $23,$4B
& Q2 l/ v6 e* C& H" y - & ?* _+ H* R# n% k2 o* D
6 {' H" d6 a9 F9 r- 9 {" Q# ]0 [8 V% ?0 @3 B
- z3 W: P5 g2 i) w* C+ g1 L
- L6 I8 z1 C; c
- .ORG $FE21
6 x* [9 }' h* A. I6 r" E7 x0 Q) y - JSR $FF40; e2 W& c$ q7 H' P8 y
- A8 \& p' ?. u
- .ORG $FF40
F: f D4 J6 q# g9 M1 n - LDA $BCDF# ?* v/ Q" k- {: O: v# D
- CMP #$7F8 V0 l2 t1 V* j. I# @$ w; F% V
- BNE ADDRFF568 i4 \ ~ d8 k3 |9 ~& {2 T6 ]
- LDA $0018
6 {) M, t* P/ }1 j7 B! H- |. Y - CMP #$045 z! P e' l2 y
- BNE $FF52
) d7 _8 z7 j8 f8 R, m9 j4 z - LDA $6010
. T6 |: o2 \4 z/ f1 K5 H1 r. p - STA $0042$ U/ v/ a/ B$ D; z1 ]4 s8 A! L+ m
- JSR $BC00
9 b8 d9 W2 v* i* w( a- K6 Y: [ - RTS/ ]9 G$ M# T4 f8 G; ^4 s
- ADDRFF56:
$ v4 k" g% z/ Y - STY $40143 Y9 |4 F7 N- _9 @
- RTS
/ W$ X! k+ S/ R- Y* S# K - ^4 o! v6 O% s# u
1.关卡选择: 标题时,左或B减,右或A加;" I4 P" p; G% c' r# u8 \
2.一击必杀: 暂停后,按B键切换;
. g6 U. ^' x- \$ f: ?% ~' n6 ~ 3.无敌锁定: 暂停后,按上键切换;
& u: o; f5 u4 F N) q. O. [; i 4.生命加满: 暂停后,按下键切换;
8 `2 T. W4 {$ T( h; B. l 5.血量锁满: 暂停后,按右键切换; B+ g1 {* Z& U, c9 p
     ! w {4 y/ W% Y3 t$ P& \
7 z( r) W1 a$ AFlameCyclone.ys168.com4 L3 T% `7 V! O. |' {/ K4 v
www.nesbbs.com
8 T% R6 G7 @9 \; s/ b
$ [+ U, r4 U4 _ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
x
评分
-
2
查看全部评分
-
|
[复制链接]
IP卡
狗仔卡
发表于 2017-3-31 23:41:15
提升卡
置顶卡
变色卡
显身卡
楼主