;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : bonus stage * ;* file name : ys_bonas * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_color.h include ../union/ys_mapobj.h include ys_presno.h include ys_pld.h ; XALL ; ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ ; GLB BONUSIT,BONUSMV,ITEMINPUT_L ; ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< ys_main >------------------------------------------------ EXT BLNKOFF,VRAMCL,OAMCLR,URAMCLR,OAMDXCLR,RANDAM EXT BNSIN EXT SOUND_TR_2 EXT SOUND_3_ON ; EXT HMPIN,EGG00,JSRSUB ; ;-------------< ys_save >------------------------------------------------ EXT SVDTSV ; ;-------------< ys_init >------------------------------------------------ EXT DIVDTST,CHRSET,COLSET,GMMDST,M_DMA_BFST,VRAMDX_ST ; EXT BONUS_1_CHR,BONUS_1_COL,BONUS1 ; EXT PL_COLBK ; ;-------------< ys_enmy >------------------------------------------------ EXT ENRAMCLR,ENCSET_DM,ENINSR2,EN_XYMOVE ; EXT BABYM,DSMK0 ; ;-------------< ys_enmy4 >----------------------------------------------- EXT BABYMMV ; EXT BABYM_RMODE40 ; ;-------------< ys_play >------------------------------------------------ EXT PLCSET, CHNGXPS, CHNGYPS ; ;-------------< ys_exst >------------------------------------------------ EXT EXSTRA,EXINSR ; ;-------------< ys_game >------------------------------------------------ EXT MSGDSP,MSGDSP_X ; ;-------------< ys_rpro >------------------------------------------------ EXT CHIPON,NEWVMADL ; ;-------------< ys_hmap >------------------------------------------------ EXT WINAREA ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ ; ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; ; ; EXTEND ; ; MEM8 IDX8 ; Group_10 GROUP Bonus_pro Bonus_pro SECT REL ; ;---------------------------------------------------------------- ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSL BONUSIT ( bonus stage initial set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COLRDT0 EQU $ WORD BNS_BG_COL_00,BNS_BG_COL_20,BNS_BG_COL_40,BNS_BG_COL_50 WORD BNS_BG_COL_30,BNS_BG_COL_10 ; ;;;;;;;; WORD BNS_BG_COL_00,BNS_BG_COL_20,BNS_BG_COL_10,BNS_BG_COL_30 ;;;;;;;; WORD BNS_BG_COL_40,BNS_BG_COL_50 ;;;;;;;;; COLRDT1 EQU $ WORD BNS_BG_COL_03,BNS_BG_COL_23,BNS_BG_COL_43,BNS_BG_COL_53 WORD BNS_BG_COL_33,BNS_BG_COL_13 ; ;;;;;;;; WORD BNS_BG_COL_03,BNS_BG_COL_23,BNS_BG_COL_13,BNS_BG_COL_33 ;;;;;;;; WORD BNS_BG_COL_43,BNS_BG_COL_53 ;;;;;;;;; COLRDT2 EQU $ WORD MAP_AICON_COL,MAP_AICON_COL,MAP_AICON_COL,MAP_AICON_COL WORD MAP_AICON_COL,MAP_AICON_COL ; COLRDT3 EQU $ WORD MAP_AICON_COL,MAP_AICON_COL,MAP_AICON_COL,MAP_AICON_COL WORD MAP_AICON_COL,MAP_AICON_COL ; ; IF PAL ;**** PAL 対応 [1995/07/31] ***************************** SCRDAT_DAT0 EQU $ WORD CHR38A,CHR38A,CHRPAL12A ; SCRDAT_DAT1 EQU $ WORD CHR38B,CHR38B,CHRPAL12B ; SCRDAT_DAT2 EQU $ WORD CHR39-CHR10,CHRPAL10-CHR10,CHRPAL11-CHR10 ENDIF ;**** PAL 対応 [1995/07/31] ***************************** ; ; SCRDAT1 EQU $ WORD BNS11,BNS31,BNS51,BNS61,BNS41,BNS21 ; ;;;;;;;; WORD BNS11,BNS31,BNS21,BNS41,BNS51,BNS61 ;;;;;;;;; SCRDAT2 EQU $ WORD BNS12,BNS32,BNS52,BNS62,BNS42,BNS22 ; ;;;;;;;; WORD BNS12,BNS32,BNS22,BNS42,BNS52,BNS62 ;;;;;;;;; SCRDAT3 EQU $ WORD BNS3,BNS3,BNS3,BNS3,BNS3,BNS3 ; ;-------------- bonus window parameter data ----------------------------- BSHDMA0 EQU $ BYTE 01000100B BYTE 026H LWORD HDMAPR0 ; BSHDMAD0 EQU $ BYTE 069H+80H WORD WINDBUF BYTE 069H+80H WORD WINDBUF+(069H*4) HEX 000 BSHDMAD0E EQU $ ; ; BONUSIT EQU $ JSL >VRAMCL ; V-ram clear !! JSL >URAMCLR ; use RAM clear !! JSL >ENRAMCLR ; enmy ram clear !! JSL >OAMDXCLR ; OAM clear sub !! JSL >DIVDTST ; div data set sub !! ; ;-------------< screen character set >------------- I16 ; index 8 bit mode !! ; IF PAL ;**** PAL 対応 [1995/07/31] ***************************** M16 ; memory 16bit mode LDA !LNGG_SL ASL A TAY M8 ; memory 8bit mode LDA SCRDAT_DAT0,Y STA CHRSET ENDIF ;**** PAL 対応 [1995/07/31] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/07/31] ***************************** LDY BONUSNO LDX !SCRDAT1,Y STX CHRSET ENDIF ;**** 日本 or NES 対応 [1995/07/31] ***************************** ; ;-------------< color set >------------- MI16 ; memory,index 16 bit mode !! ; ;;;;K;;;; LDX MPTYPE LDX BONUSNO LDA !COLRDT0,X STA PL_COLBK,X STA COLSET ; MEM8 IDX8 ; ;-------------< PPU regster set >------------- LDX #BONUS1 JSL >GMMDST ; ;;;;;;;; LDA #00110000B ;;;;;;;; STA 0212AH ;;;;;;;; LDA #00000011B ;;;;;;;; STA 0212BH ;;;;;;;;; ; ;-------------< H-DMA data set >------------- LDX #004 ; HMA050 EQU $ LDA !BSHDMA0,X STA 4350H,X DEX BPL HMA050 ; LDA #BANK HDMABUF STA 4377H ; LDX #(BSHDMAD0E-BSHDMAD0)-1 ; HMA100 EQU $ LDA !BSHDMAD0,X STA >HDMAPR0,X DEX BPL HMA100 ; LDA #00100000B STA HD420C ; MI16 ; ;-------------< ram initial set >------------- LDA #00028H STA ENINSR2 ; LDA #BABYM_RMODE40 STA ENWRK2 LDA #02000H STA BABYNO LDA #00000 STA ENCHPT LDA #00020H STA ENXPSL ; baby X position set !! LDA #000B8H STA ENYPSL ; baby Y position set !! LDA #00002 STA ENMUKI ; baby muki set !! LDA #0003AH STA ENCLOR ; baby priority set !! ; M8 ; memory 8bit mode !! LDA !CARDXDT STA CRCXPS LDA !CARDYDT STA CRCYPS STZ CARDMV STZ WITEM0 STZ WITEM1 STZ WITEM2 STZ WITEM3 STZ WITEM4 STZ WITEM5 STZ WITEM6 M16 ; memory 16bit mode !! ; STZ ESCCH1 ; H scroll clear !! STZ ESCCV1 ; V scroll clear !! ; ;-------------< window initial set >------------- ;;;;;;;; I8 ; index 8 bit mode !! ;;;;;;;;; ;;;;;;;; M16 ; memory 16 bit mode !! ;;;;;;;;; M_CHIP WINBFCLR ; I16 ; index 16 bit mode !! ; JSR WINDSET ; window open or close set sub !! ; ;-------------< player counter set >------------- JSR PLCNTST ; player counter set sub !! ; MI8 ; memory,index 8 bit mode !! ; JSL >NEWVMADL ; MI16 ; memory,index 16 bit mode !! ; ;-------------< world bonus stege initial set >------------- ;;;;K;;;; LDX MPTYPE LDX BONUSNO JSR (!BSINTAR,X) ; bonus stege initial set sub !! ; MI8 ; memory,index 8 bit mode !! ; ;-------------- サウンドプログラム転送 ------------------------- LDX #06 ;(X) <-- サウンドプログラム転送テーブルＮｏ． JSL >SOUND_TR_2 ; ;;;;K;;;; LDA !BONUSNO ;;;;K;;;; LSR A ;;;;K;;;; STA ITEMINPUT0080] ; INY CPY #ItemMax BNE ITEMINPUT0040 ; チェック終り？ [no->ITEMINPUT0040] ; LDY #00 LDX #01 ITEMINPUT0060 EQU $ LDA !ITEMBUF,X STA !ITEMBUF,Y INX INY CPY #ItemMax-1 BNE ITEMINPUT0060 ; 終り？ [no->ITEMINPUT0060] ; ITEMINPUT0080 EQU $ PLA STA !ITEMBUF,Y ; PLP RTS ; ITEMINPUT_L EQU $ JSR ITEMINPUT ; RTL ; MEM16 IDX16 ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR WINDSET ( window open or close set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx RPOTDAT EQU $ WORD 00020H,00000H ; RINCDAT EQU $ WORD 00002H,0FFFEH ; ; WINDSET EQU $ I8 ; index 8 bit mode !! ; STZ M_DMA_BFST LWORD WINDBUF ; 転送先アドレス LWORD WINDBF ; 転送元アドレス WORD (0D2H*4) ; 転送バイト数 ; RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PLCNTST ( player counter set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SCRADRD EQU $ ;;;;;;;; WORD 039DBH,03878H,03878H,03800H,03800H,03800H WORD 068D8H,068D8H,068D8H,068D9H,068D8H,068D8H ; SUUJID0 EQU $ ; 0 1 2 3 WORD 03CD6H,0FCD6H,03CC0H,03CD0H,03CC1H,03CD1H,03CC2H,03CD2H ; 4 5 6 7 WORD 03CC3H,03CD3H,03CC4H,03CD4H,03CC5H,03CD5H,03CC2H,03CD0H ; 8 9 WORD 03CC6H,03CD5H,0FCD5H,0FCC5H ; COINBUF EQU $ WORD BONAS_CNT ; カードめくりゲーム WORD BONAS_CNT ; スクラッチゲーム WORD BONAS_CNT ; うんだめしゲーム WORD BONAS_CNT ; 神経衰弱ゲーム WORD YSCOIN ; ルーレットゲーム WORD YSCOIN ; スロットマシーンゲーム ; ; PLCNTST EQU $ LDA !BONUSNO CMP #00008H BNE PNT030 ; ルーレットゲーム ? ; ; yes LDA !MODENO CMP #BNSIN BNE PNT030 ; bonus inital ? ; ; yes DEC !PLCONT ; player -1 PNT030 EQU $ LDY #00000 LDX #00000 LDA PLCONT ; PNT050 EQU $ LDY #00000 ; PNT100 EQU $ CMP #00010 BCC PNT150 ; player counter >= "10" ? ; ; Yes !! SBC #00010 INY BRA PNT100 ; PNT150 EQU $ ASL A ASL A STA SCRADRD,X ;;;;;;;; STA = "10" ? ;;;;;;;;; ; Yes !! ;;;;;;;; SBC #00010 ;;;;;;;; INY ;;;;;;;; BRA PNT250 ;;;;;;;;; ;;;;;;;;PNT300 EQU $ ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; STA VRAMDX+14,X LDA !SUUJID0+2,Y STA >VRAMDX+32,X STA VRAMDX+14,X STA >VRAMDX+32,X INX INX INY INY BRA CTT200 ; CTT250 EQU $ RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR BABAINT ( WORLD 1 ババ抜き initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BS_CMODE_DATA EQU $ BYTE 011H,011H,011H,011H,011H,011H,011H,011H BYTE 011H,011H,011H,011H ; BS_CMODE_DAT1 EQU $ BYTE 011H,011H,011H,011H,011H,011H,015H,015H BYTE 015H,015H,015H,015H ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** BS_PAL_DAT0 EQU $ BYTE 009H*2,00EH*2,010H*2 ; BS_PAL_DAT1 EQU $ BYTE 00AH*2,00FH*2,011H*2 ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; BABAINT EQU $ ;-------------< bit map char set >------------- I8 ; index 8 bit mode !! ; LDY #10000000B STY 02115H LDA #00000001B+(18H*100H) STA 04300H ; LDA #BS_CMODE_DATA STA CCWORK1 LDA #BANK BS_CMODE_DATA STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDX !LNGG_SL LDA BS_PAL_DAT0,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/02] ***************************** LDA #00009H*2 ENDIF ;**** 日本 or NES 対応 [1995/08/02] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; STZ 02116H ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #01000H STA 04305H LDY #00000001B STY 420BH ; LDA #BS_CMODE_DAT1 STA CCWORK1 LDA #BANK BS_CMODE_DAT1 STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDX !LNGG_SL LDA BS_PAL_DAT1,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/02] ***************************** LDA #0000AH*2 ENDIF ;**** 日本 or NES 対応 [1995/08/02] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; LDA #00800H STA 02116H ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #01000H STA 04305H LDY #00000001B STY 420BH ; I16 ; index 16 bit mode !! ; ;-------------< tabel random set >------------- JSR RANDSET ;[1995/05/02] JSR ITEMIDX ; アイテム インデックス セット ; RTS ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR GINGINT ( WORLD 2 銀紙剥がし initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx GINGINT EQU $ ;-------------< bit map char set >------------- I8 ; index 8 bit mode !! ; LDY #10000000B STY 02115H LDA #00000001B+(18H*100H) STA 04300H ; LDA #BS_CMODE_DATA STA CCWORK1 LDA #BANK BS_CMODE_DATA STA CCWORK0 LDA #00009H*2 STA R9 M_CHIP MPCHRVRMST ; STZ 02116H LDY #BANK WOB7CHR STY 04304H LDY #00000001B LDX #00007 ; GGT050 EQU $ LDA #WOB7CHR+(00048H*20H) STA 04302H LDA #00009*20H STA 04305H STY 420BH DEX BNE GGT050 ; JMP GINGAMIINIT ;;; RTS ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTINT ( WORLD 3 スロット initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTINT EQU $ M8 ; memory 8bit mode !! ; LDA !STOTTBL+00 ; 左 STA SLOT00 LDA !STOTTBL+01 STA SLOT00+1 LDA !STOTTBL+02 STA SLOT00+2 LDA !STOTTBL+03 STA SLOT00+3 ; LDA !STOTTBL+08 ; 中 STA SLOT10 LDA !STOTTBL+09 STA SLOT10+1 LDA !STOTTBL+0AH STA SLOT10+2 LDA !STOTTBL+0BH STA SLOT10+3 ; LDA !STOTTBL+10H ; 右 STA SLOT20 LDA !STOTTBL+11H STA SLOT20+1 LDA !STOTTBL+12H STA SLOT20+2 LDA !STOTTBL+13H STA SLOT20+3 ; LDA #004 ; ｎｅｘｔ ｉｎｄｅｘ STA SLTIDX+0 STA SLTIDX+1 STA SLTIDX+2 ; STZ SLTCAN ; cancel flag (by.not) ; M16 ; memory 16bit mode !! ; ;;;;;;; LDA #04800H ; Ｙ ポジション LDA #05800H ; Ｙ ポジション STA SLTYPS+0 STA SLTYPS+2 STA SLTYPS+4 ; LDA #05000H ; 継ぎ目 ポジション STA TUGIYP+0 STA TUGIYP+2 STA TUGIYP+4 ; JSR SLOTIT0 ; その他 イニシャル ; ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SUZIINT ( WORLD 4 数字当て initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SUZIINT EQU $ ; MEM16 ; LDA !PLCONT STA !PLCNT ; player count -> base set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; STZ !SLMODE ; select mode STZ !PWORK0 ; index clear STZ !PWORK1 ; index clear ; STZ !DEMOFG ; key data clear ; STZ !PWORKE ; roolet stop flag clear ; LDA #060H STA !PWORK2 ; initial time set LDA #080H STA !PWORK3 ; initial time set STZ !PWORK8 ; initial clear STZ !PWORK9 ; initial clear ; LDA #009H STA !DSPOT1 ; display 1 no ke_ta STA !DSPOT10 ; display 10 no ke_ta STZ !DSPOT100 ; display 100 no ke_ta ; LDA #001H STA !BETCNT ; bet count 1 clear STZ !TOTLCNT ; total count LOW 0 clear STZ !TOTLCNT+1 ; total count HI 0 clear STZ !KEYWTTM ; key wait timer clear ; LDA #040H STA !MSGTM ; STZ !MSGPT ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; RTS ; ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SINKINT ( WORLD 5 一か八か initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SINKINT EQU $ ;-------------< bit map char set >------------- I8 ; index 8 bit mode !! ; LDY #10000000B STY 02115H LDA #00000001B+(18H*100H) STA 04300H ; LDA #BS_CMODE_DAT1 STA CCWORK1 LDA #BANK BS_CMODE_DAT1 STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDX !LNGG_SL LDA BS_PAL_DAT1,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/02] ***************************** LDA #0000AH*2 ENDIF ;**** 日本 or NES 対応 [1995/08/02] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; STZ 02116H LDY #BANK WOB7CHR STY 04304H LDY #00000001B LDX #00006 ; SKIT050 EQU $ LDA #WOB7CHR+((7*9)*20H) STA 04302H LDA #00009*20H STA 04305H STY 420BH DEX BNE SKIT050 ; ;------------------------------- LDA #BS_CMODE_DATA STA CCWORK1 LDA #BANK BS_CMODE_DATA STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDX !LNGG_SL LDA BS_PAL_DAT0,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/02] ***************************** LDA #00009H*2 ENDIF ;**** 日本 or NES 対応 [1995/08/02] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #00900H STA 04305H LDY #00000001B STY 420BH ; LDA #BS_CMODE_DAT1 STA CCWORK1 LDA #BANK BS_CMODE_DAT1 STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDX !LNGG_SL LDA BS_PAL_DAT1,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/02] ***************************** LDA #0000AH*2 ENDIF ;**** 日本 or NES 対応 [1995/08/02] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; LDA #00800H STA 02116H ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #01000H STA 04305H LDY #00000001B STY 420BH ; JMP ATEMONINIT ;;; RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLT1INT ( WORLD 6 神経衰弱 initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BS_CMODE_DAT2 EQU $ ;[1995/05/03] BYTE 015H,011H,011H,011H,011H,015H,015H,015H ;[1995/05/03] BYTE 015H,015H,015H,015H BYTE 015H,011H,011H,011H,011H,011H,011H,011H BYTE 011H,011H,011H,011H ; IF PAL ;**** PAL 対応 [1995/08/03] ***************************** SLT_PAL_DAT EQU $ BYTE 0000BH*2,00014H*2,00015H*2 ENDIF ;**** PAL 対応 [1995/08/03] ***************************** ; ; SLT1INT EQU $ ;-------------< bit map char set >------------- ;[1995/05/03] I8 ; index 8 bit mode !! ;[1995/05/03]; ;[1995/05/03] LDY #10000000B ;[1995/05/03] STY 02115H ;[1995/05/03] LDA #00000001B+(18H*100H) ;[1995/05/03] STA 04300H ;[1995/05/03]; ;[1995/05/03] LDA #BS_CMODE_DAT2 ;[1995/05/03] STA CCWORK1 ;[1995/05/03] LDA #BANK BS_CMODE_DAT2 ;[1995/05/03] STA CCWORK0 ;[1995/05/03] LDA #0000BH*2 ;[1995/05/03] STA R9 ;[1995/05/03] M_CHIP MPCHRVRMST ;[1995/05/03]; ;[1995/05/03] STZ 02116H ;[1995/05/03] LDY #BANK WOB7CHR ;[1995/05/03] STY 04304H ;[1995/05/03] LDY #00000001B ;[1995/05/03]; ;[1995/05/03] LDA #WOB7CHR ;[1995/05/03] STA 04302H ;[1995/05/03] LDA #(9*12)*20H ;[1995/05/03] STA 04305H ;[1995/05/03] STY 420BH ;[1995/05/03]; ;---------------------------------------------- ; I8 ; index 8 bit mode !! ; LDY #10000000B STY 02115H LDA #00000001B+(18H*100H) STA 04300H ; LDA #BS_CMODE_DAT2 STA CCWORK1 LDA #BANK BS_CMODE_DAT2 STA CCWORK0 ; IF PAL ;**** PAL 対応 [1995/08/03] ***************************** LDX !LNGG_SL LDA SLT_PAL_DAT,X AND #000FFH ENDIF ;**** PAL 対応 [1995/08/03] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/08/03] ***************************** LDA #0000BH*2 ENDIF ;**** 日本 or NES 対応 [1995/08/03] ***************************** ; STA R9 M_CHIP MPCHRVRMST ; STZ 02116H ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #01000H STA 04305H LDY #00000001B STY 420BH ; LDA #BS_CMODE_DAT1 STA CCWORK1 LDA #BANK BS_CMODE_DAT1 STA CCWORK0 LDA #0000AH*2 STA R9 M_CHIP MPCHRVRMST ; LDA #00800H STA 02116H ; LDA #WOB7CHR STA 04302H LDY #BANK WOB7CHR STY 04304H LDA #01000H STA 04305H LDY #00000001B STY 420BH ; I16 ; index 16 bit mode !! ; ;---------------------------------------------- ; ; IF PAL ;**** PAL 対応 [1995/08/01] ***************************** LDA LNGG_SL CMP #00002 BNE SL1IN01 ; ドイツ語？ ; : yes ; JSR PAIRSSET ; PAIR'S' 文字セット ; : (ドイツ語：TREFFER) SL1IN01 EQU $ ; ENDIF ;**** PAL 対応 [1995/08/01] ***************************** ; ; JSR COINRAN ; table random set ; RTS ; ; ; ; ;============== MOVE ==================================================== ; MEM8 IDX8 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSL BONUSMV ( bonus stage move set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BONUSMV EQU $ JSL >OAMDXCLR ; OAM clear sub !! JSL >ENCSET_DM ; enemy char set sub !! ; MI16 ; index 16 bit mode !! ; JSR DAIOAMS ; dai OAM set sub !! ;;;;K;;;; LDX MPTYPE LDX BONUSNO JSR (!BSMOVAR,X) ; bonus stege move sub !! JSR COLCHNG ; カラーデーターチェンジ ; JSR PLBABYS ; player & baby pause set sub !! ; MI8 ; memory,index 8 bit mode !! ; JSL >PLCSET ; player char set sub !! ; M16 ; memory 16 bit mode !! ; M_CHIP DX_OAM ; M8 ; memory 8 bit mode !! ; PLB RTL ; ; BSMOVAR EQU $ WORD BABAMOV ; WORLD 1 ババ抜き WORD GINGMOV ; WORLD 2 銀紙剥がし WORD SINKMOV ; WORLD 3 一か八か WORD SLT1MOV ; WORLD 4 神経衰弱 WORD SUZIMOV ; WORLD 5 自販機ルーレット WORD SLOTMOV ; WORLD 6 スロット ; ; MEM16 IDX16 ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR DAIOAMS ( dai OAM set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx DAIOAMS EQU $ LDY OAMIDX LDA #000C8H STA SOAM_DX,Y STA SOAM_DX+08H,Y LDA #000D8H STA SOAM_DX+10H,Y STA SOAM_DX+18H,Y LDA #00018H STA SOAM_DX+20H,Y STA SOAM_DX+28H,Y LDA #00028H STA SOAM_DX+30H,Y STA SOAM_DX+38H,Y ; LDA #000C0H STA SOAM_DX+02H,Y STA SOAM_DX+12H,Y STA SOAM_DX+22H,Y STA SOAM_DX+32H,Y LDA #000D0H STA SOAM_DX+0AH,Y STA SOAM_DX+1AH,Y STA SOAM_DX+2AH,Y STA SOAM_DX+3AH,Y ; LDA #00F0DH STA SOAM_DX+04H,Y STA SOAM_DX+24H,Y LDA #00F2DH STA SOAM_DX+0CH,Y STA SOAM_DX+2CH,Y LDA #04F0DH STA SOAM_DX+14H,Y STA SOAM_DX+34H,Y LDA #04F2DH STA SOAM_DX+1CH,Y STA SOAM_DX+3CH,Y ; LDA #04002H STA SOAM_DX+06H,Y STA SOAM_DX+0EH,Y STA SOAM_DX+16H,Y STA SOAM_DX+1EH,Y STA SOAM_DX+26H,Y STA SOAM_DX+2EH,Y STA SOAM_DX+36H,Y STA SOAM_DX+3EH,Y ; TYA CLC ADC #00008*8 STA OAMIDX ; RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COLCHNG ( カラーデーターチェンジ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COLDATA2 EQU $ WORD 044A6H,048C7H,04CE8H,05109H ; COLDATA EQU $ WORD 0001FH,0023FH,0037FH,003F3H,00327H,07F20H,07E66H,07D77H WORD 07C1FH ; ; COLCHNG EQU $ LDA DATACOL+(13H*2),X INY INY CPY #COLCHNG-COLDATA BNE CCG150 ; color data pointer over ? ; ; Yes !! LDY #00000 ; CCG150 EQU $ DEX DEX BPL CCG100 ; color data set end ? ; ; Yes !! ; ( kouhan kakikae ) INC BSCLPT2 LDA BSCLPT2 AND #00003 ASL A TAY ; LDX #(4*2)-2 ; CCG170 EQU $ LDA !COLDATA2,Y STA >DATACOL+(1CH*2),X DEY DEY BPL CCG180 ; LDY #(COLDATA-COLDATA2)-2 ; CCG180 EQU $ DEX DEX BPL CCG170 ; ; CCG200 EQU $ RTS ; ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR BABAMOV ( WORLD 1 ババ抜き move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BABAMOV EQU $ LDA BONSMD ASL A TAX JMP (!BABAADR,X) ; ; BABAADR EQU $ WORD TIMEDEC ; 0 timer dec. set sub !! WORD WINDOPN ; 1 window open sub !! WORD TIMDEC0 ; 2 timer dec. set sub !! WORD MSWINOP ; 3 messege window open sub !! WORD WINCLSB ; 4 window color sub !! ;;;;;;;; WORD TIMDEC1 ; 5 timer dec. set sub !! WORD SCRDOWN ; 5 screen down move sub !! WORD SCRYURE ; 6 screen yure sub !! WORD TIMDEC2 ; 7 timer dec. set sub !! ;[1995/02/08] WORD COINDEC ; 8 yosshy coin dec. sub !! ;;;;;;;; WORD MASKOPN ; 7 mask open sub !! ;;;;;;;; WORD TIMDEC3 ; 8 timer dec. set sub !! CARDGM WORD CARDSEL ; 9 card select WORD EGGMOVE ; A egg move HKROMT WORD HKRKEROMOTE ; B WORD HKRKERURA ; C BS1WIN WORD GAMEWIN ; D "X" button messege window sub !! BONSCT WORD BONUSCT ; E player up & yossi coin up !! KAMEIN WORD KAMEINT ; F kamekku initial sub !! KAMEMV WORD KAMEMIN ;10 kamekku move sub !! BS1MAP WORD MODEMAP ;11 map initial mode set sub !! ZOOMIN WORD ZOOMVDN ;12 card zoom down WORD ZOOMVUP ;13 " up ; ; CADGM EQU (CARDGM-BABAADR)/2 HKROM EQU (HKROMT-BABAADR)/2 BS1WN EQU (BS1WIN-BABAADR)/2 BONSM EQU (BONSCT-BABAADR)/2 KAMIN EQU (KAMEIN-BABAADR)/2 KAMEM EQU (KAMEMV-BABAADR)/2 BS1MP EQU (BS1MAP-BABAADR)/2 ZOMIN EQU (ZOOMIN-BABAADR)/2 ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PLBABYS ( player & baby move set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PLTRNDT EQU $ ; プレイヤー歩きポーズ WORD OS1A,OS1B,OS1A,P107,OS18,OS19,OS18 ; PLTRND1 EQU $ ; プレイヤー卵投げポーズ ;not; WORD TN01,TN02,TN03,TN04,TN05,TN06,TN07,TN08,TN09,TN0A WORD TN05,TN02,TN03,TN04,TN05,TN06,TN07,TN08,TN09,TN0A ; PLTRND2 EQU $ ; プレイヤー喜びポーズ WORD P106,BN02,BN03,BN04,BN05,P011,P012,P011 ; PLTRND3 EQU $ ; プレイヤー倒れ込むポーズ WORD BN0D,DM00,DM02,DM03,DM04 ; PLTRND4 EQU $ ; プレイヤー見る２ポーズ WORD BN12 ; PLTRND5 EQU $ ; プレイヤー見る１ポーズ WORD BN13 ; PLTRND6 EQU $ ; ; PLTRNAR EQU $ WORD PLTRNDT-PLTRNDT WORD PLTRND1-PLTRNDT WORD PLTRND2-PLTRNDT WORD PLTRND3-PLTRNDT WORD PLTRND4-PLTRNDT WORD PLTRND5-PLTRNDT ; PLTRNA1 EQU $ WORD PLTRND1-PLTRNDT WORD PLTRND2-PLTRNDT WORD PLTRND3-PLTRNDT WORD PLTRND4-PLTRNDT WORD PLTRND6-PLTRNDT WORD PLTRND6-PLTRNDT ; ; PLTIMDT EQU $ WORD 0006H,0006H,0006H,0006H,0006H,0006H,0006H ;not; WORD 0032H,0001H,0004H,0001H,0008H,0004H,0001H,0001H,0001H,0005H ;（タメをなくす） WORD 0001H,0001H,0004H,0001H,0008H,0004H,0001H,0001H,0001H,0005H WORD 0004H,0008H,0004H,0008H,000CH,0004H,0004H,0004H WORD 0008H,0020H,0004H,0004H,8000H WORD 0010H WORD 0010H ; BABYPTN EQU $ WORD 0004,0004,0004,0004 ; PLBABYS EQU $ LDA #00030H STA PLPRIO LDX BSPLTP JSR (!PLBABYS_ADR,X) ; ;-------------< baby walk pause >------------- BABYSET EQU $ LDA BABYMMV ; baby move sub !! JSL >EXSTRA ; 効果ＯＢＪセット！！ ; PLD PLB ; I16 ; index 16 bit mode !! ; RTS ; ; PLBABYS_ADR EQU $ PWALK0 WORD PWALKMV ; プレイヤー歩くパターンセット PNAGE0 WORD PNAGEMV ; プレイヤー卵投げパターンセット PYOROK WORD PYOROMV ; プレイヤー喜びパターンセット PTAORE WORD PTAORMV ; プレイヤー倒れ込むパターンセット PMIRU2 WORD PMIR2MV ; プレイヤー見る２パターンセット PMIRU1 WORD PMIR1MV ; プレイヤー見る１パターンセット ; ; PWALK EQU PWALK0-PLBABYS_ADR PNAGE EQU PNAGE0-PLBABYS_ADR PYORO EQU PYOROK-PLBABYS_ADR PTAOR EQU PTAORE-PLBABYS_ADR PMIR2 EQU PMIRU2-PLBABYS_ADR PMIR1 EQU PMIRU1-PLBABYS_ADR ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PWALKMV ( プレイヤー歩くパターンセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PWALKMV EQU $ PTAORMV EQU $ PMIR2MV EQU $ PMIR1MV EQU $ ;-------------< player walk pause >------------- DEC PLWKTM BNE PAS100 ; player timer "0" ? ; ; Yes !! LDA PLWALK INC A INC A CMP !PLTRNA1,X BNE PAS050 ; paturn over ? ; ; Yes!! LDA !PLTRNAR,X ; PAS050 EQU $ STA PLWALK TAY LDA !PLTRNDT,Y STA PLPATN ; player paturn set !! LDA !PLTIMDT,Y STA PLWKTM ; player paturn timer set !! ; PAS100 EQU $ RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PNAGEMV ( プレイヤー卵投げパターンセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PNAGEMV EQU $ ;-------------< player nage pause >------------- DEC PLWKTM BNE PAS100 ; player timer "0" ? ; ; Yes !! LDA PLWALK INC A INC A CMP !PLTRNA1,X BNE PAS050 ; player nage pause end ? ; ; Yes !! LDA #00020H JSL >SOUND_3_ON ; [♪] ; LDX #00000 STX BSPLTP ; player walk type !! TXA BRA PAS050 ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PYOROMV ( プレイヤー喜びパターンセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PYOROMV EQU $ DEC PLWKTM BNE PYOROMV_150 ; player timer "0" ? ; ; Yes !! LDA PLWALK INC A INC A CMP !PLTRNA1,X BNE PYOROMV_050 ; paturn over ? ; ; Yes!! LDA !PLTRNAR,X ; PYOROMV_050 EQU $ STA PLWALK TAY CMP #PLTRND2+2-PLTRNDT BNE PYOROMV_100 ; プレイヤージャンプ　？ ; ; Yes !! LDA #0FC00H STA PLYSPD ; プレイヤージャンプスピードセット INC PLJUMP ; プレイヤージャンプフラグ”ＯＮ” ; PYOROMV_100 EQU $ LDA !PLTRNDT,Y STA PLPATN ; player paturn set !! LDA !PLTIMDT,Y STA PLWKTM ; player paturn timer set !! ; PYOROMV_150 EQU $ LDA PLJUMP BEQ PYOROMV_250 ; プレイヤージャンプ中　？ ; ; Yes !! LDA PLYSPD CLC ADC #00040H STA PLYSPD CLC ADC PLYPSL-1 CMP #0A800H BCC PYOROMV_200 ; ジャンプ終了　？ ; ; Yes !! STZ PLJUMP LDA #0A800H ; PYOROMV_200 EQU $ STA PLYPSL-1 ; PYOROMV_250 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR TIMEDEC ( timer dec. set sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TIMEDEC EQU $ DEC BONSTM BNE TEC050 ; timer "0" ? ; ; Yes !! INC BONSMD ; mode inc. !! STZ MSG_RAM+2 ; messege No. set !! INC MSGMOD ; messege window "ON" !! INC BONSMD ; mode inc. !! ; TD0050 EQU $ RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR MSWINOP ( messege window open sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BONSNOD EQU $ WORD BS1MP,BS2MP,BS5MP,BS6MP,BS4MP,BS3MP ;;;;;;;; WORD BS1MP,BS2MP,BS3MP,BS4MP,BS5MP,BS6MP ; ; MSWINOP EQU $ MI8 ; memory,index 8 bit mode !! ; JSL >MSGDSP_X ; messege window open sub !! ; MI16 ; memory,index 16 bit mode !! ; JSR WINDSET ; LDA MSGMOD BNE WIP100 ; messege window open end ? ; ; Yes !! ;;;;K;;;; LDY MPTYPE LDY BONUSNO LDX BONSMD INX ;;;;K;;;; LDA >MSG_ANS ;;;;K;;;; BEQ WIP050 ; game cansel ? ;;;;K;;;;; ; Yes !! ;;;;K;;;; LDA #00030H ;;;;K;;;; STA BONSTM ; timer set !! ;;;;K;;;; LDX !BONSNOD,Y ;;;;K;;;;; ;;;;K;;;;WIP050 EQU $ STX BONSMD ; mode inc. !! ; WIP100 EQU $ RTS ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR WINCLSB ( window color sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx WINCLSB EQU $ LDA SOUND_3_ON ; [♪] ; INC BONSMD ; mode inc. !! ; ;;;;K;;;; LDY MPTYPE LDY BONUSNO CPY #00005*2 BNE WCB050 ; world 6 ? ; ; Yes !! M8 ; memory 8 bit mode !! ; LDA #010H STA WMANSL ; window main disp set !! LDA #091H STA SUBADF ; カラー加減算データーセット LDA #030H STA WIND25 STZ WIND23 STZ WIND24 LDY #04A53H ; INC SLTCAN ; cancel flag (by.not) STY NUKCOL ; nuki color data set !! ; M16 ; memory 16 bit mode !! ; JMP SDN070 ; WCB050 EQU $ LDY BONUSNO CPY #00004H*2 BNE WCB100 ; world 5 ? ; ; Yes !! LDA PLCONT INC A ; player + "BETCNT" CMP #00001H BNE WCB100 ; 残り人数一人　？ ; ; Yes !! LDA #00001H STA PLCONT LDA #HMPIN STA MODENO ; map initial mode set !! STZ BONAS_CNT ; WCB100 EQU $ RTS ; ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;;x JSR TIMDEC1 ( timer dec. set sub ) x ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;TIMDEC1 EQU $ ;;;;;;;; DEC BONSTM ;;;;;;;; BNE TD1050 ; timer "0" ? ;;;;;;;;; ; Yes !! ;;;;;;;; INC BONSMD ; mode inc. !! ;;;;;;;;; ;;;;;;;;;;;;;;;; I8 ; index 8 bit mode !! ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; STZ MASKNO ;;;;;;;;;;;;;;;; LDA MASKNO ;;;;;;;;;;;;;;;; STA R5 ;;;;;;;;;;;;;;;; M_CHIP BS_MASKST ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; JSL >M_DMA_BFST ;;;;;;;;;;;;;;;; LWORD WINDBUF ; 転送先アドレス ;;;;;;;;;;;;;;;; LWORD WINDBF ; 転送元アドレス ;;;;;;;;;;;;;;;; WORD (0D2H*4) ; 転送バイト数 ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; LDY #002H ;;;;;;;;;;;;;;;; STY WMANSL ; window main select clear !! ;;;;;;;;;;;;;;;; LDY #084H ;;;;;;;;;;;;;;;; STY SUBADF ;;;;;;;;;;;;;;;; LDY #0A0H ;;;;;;;;;;;;;;;; STY WIND23 ;;;;;;;;;;;;;;;; LDY #000H ;;;;;;;;;;;;;;;; STY WIND24 ;;;;;;;;;;;;;;;; STY WIND25 ;;;;;;;;;;;;;;;;;;;;;;;; LDY #002 ;;;;;;;;;;;;;;;;;;;;;;;; STY 0212AH ;;;;;;;;;;;;;;;;;;;;;;;; LDY #000 ;;;;;;;;;;;;;;;;;;;;;;;; STY 0212BH ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; I16 ; index 16 bit mode !! ;;;;;;;;;;;;;;;;; ;;;;;;;;TD1050 EQU $ ;;;;;;;; JMP PLBABYS ;;;;;;;;; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SCRDOWN ( screen down move sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SCRDOWN EQU $ LDA SOUND_3_ON ;[♪] INC BONSMD ; mode inc. !! STZ SCDTPT LDY SCDTPT LDA !SCRSPDL,Y STA SCRSPD ; scroll speed (L) set !! LDA !SCRSPDH,Y STA SCRSPD+2 ; scroll speed (H) set !! ; SDN050 EQU $ ;;;;K;;;; LDX MPTYPE LDX BONUSNO CPX #00005*2 BNE SDN100 ; world 6 ? ; ; Yes !! SDN070 EQU $ I8 ; index 8 bit mode !! ; LDA SOUND_3_ON ;[♪] STZ HSCRLL ; scroll (L) clear !! STZ SOUND_3_ON ; [♪] ;;;;K;;;; LDA MPTYPE ;[1995/02/08] LDA BONUSNO ;[1995/02/08] CMP #00005*2 ;[1995/02/08] BNE CNC030 ; ６ワールド　？ ;[1995/02/08]; ; Yes !! ;[1995/02/08] DEC YSCOIN ; ヨッシーコイン減算 ;[1995/02/08] BRA CNC100 ;[1995/02/08]; ;[1995/02/08]CNC030 EQU $ ;[1995/02/08] DEC BONAS_CNT ;[1995/02/08] BRA CNC100 ;[1995/02/08]; ;[1995/02/08]CNC050 EQU $ ;[1995/02/08] INC BONSMD ; mode inc. !! ;[1995/02/08]; ;[1995/02/08]CNC100 EQU $ ;[1995/02/08] JSR PLCNTST ; player counter & yosshy coin set sub !! ;[1995/02/08] JMP SDN050 ;[1995/02/08]; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR GAMEWIN ( "X" button messege window sub ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx GAMEWIN EQU $ MI8 ; memory,index 8 bit mode !! ; JSL >MSGDSP ; messege window open sub !! ; MI16 ; memory,index 16 bit mode !! ; JSR DMABFST ; LDA MSGMOD BNE GEN100 ; messege window open end ? ; ; Yes !! ; JSR EGGMOVE ; 卵 ＭＯＶＥ ; LDX #CADGM LDA >MSG_ANS BEQ GEN050 ; game end ? ; ; No !! ; ;;;;K;;;; LDY MPTYPE LDY BONUSNO CPY #00000 BNE GEN010 ; ワールド１？ ; : yes ;**1994/07/18** LDA WITEM0 ;**1994/07/18** STA SVDTSV MI16 ; memory , index 16bit mode ; MEP050 EQU $ ;;;;K;;;; LDX MPTYPE LDX BONUSNO CPX #00005*2 BNE MEP100 ; world 6 ? ; ; Yes !! ; ;[1995/06/12] JSR SLOTHAD ; 『手』セット JMP SLOTCST ; slot OBJ set sub !! ; MEP100 EQU $ RTS ; ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;;x JSR MASKOPN ( mask open set sub ) x ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;MASKOPN EQU $ ;;;;;;;; I8 ; index 8 bit mode !! ;;;;;;;;; ;;;;;;;; INC MASKNO ;;;;;;;; LDA MASKNO ;;;;;;;; STA R5 ;;;;;;;; M_CHIP BS_MASKST ;;;;;;;;; ;;;;;;;; JSL >M_DMA_BFST ;;;;;;;; LWORD WINDBUF ; 転送先アドレス ;;;;;;;; LWORD WINDBF ; 転送元アドレス ;;;;;;;; WORD (0D2H*4) ; 転送バイト数 ;;;;;;;;; ;;;;;;;; I16 ; index 16 bit mode !! ;;;;;;;;; ;;;;;;;; LDA MASKNO ;;;;;;;; CMP #00020H ;;;;;;;; BNE MKN050 ; mask window open end ? ;;;;;;;;; ; Yes !! ;;;;;;;; LDA #00030H ;;;;;;;; STA BONSTM ; timer set !! ;;;;;;;; INC BONSMD ; mode inc. !! ;;;;;;;;; ;;;;;;;;MKN050 EQU $ ;;;;;;;; JMP PLBABYS ;;;;;;;;; ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;;x JSR TIMDEC3 ( timer dec. set sub ) x ;;;;;;;;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;;;TIMDEC3 EQU $ ;;;;;;;; DEC BONSTM ;;;;;;;; BNE TD3050 ; timer "0" ? ;;;;;;;;; ; Yes !! ;;;;;;;; INC BONSMD ; mode inc. !! ;;;;;;;;; ;;;;;;;;TD3050 EQU $ ;;;;;;;; JMP PLBABYS ;;;;;;;;; ;;;;;;;;; ;;;;;;;;; ;**1994/07/18**;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;**1994/07/18**; JSR PLUPSET ( プレイヤー ＵＰ カウント セット ) x ;**1994/07/18**;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;**1994/07/18**; ;**1994/07/18**; （ＩＮ） ;**1994/07/18**; ＷＯＲＫ０ ： ＵＰ カウント ;**1994/07/18**; ;**1994/07/18**;======================================================================== ;**1994/07/18**; ;**1994/07/18**PLUPSET EQU $ ;**1994/07/18** PHP ;**1994/07/18**; ;**1994/07/18** M16 ;**1994/07/18** LDA ----------------------------------------- ; JSL >RANDAM ; ランダム ｃａｌｌ ; MI8 ; memory,index 8 bit mode !! ; LDA RANDM0 AND #007 TAX ; LDA #000 RAND010 EQU $ DEX BMI RAND012 ; CLC ADC #008 ; #009 BRA RAND010 ; RAND012 EQU $ TAY ; データインデックス ; M16 ; memory 16bit mode !! ; LDA !CARDTBL,Y STA ----------------------------------------- ; LDA #008 ; #009 STA RANDAM ; ランダム ｃａｌｌ ; LDA --------------------------------------- ; LDA ENWRK0 BEQ CARS000 ; 卵 ＭＯＶＥ ？ ; : yes ; JSR EGGMOVE ; 卵 ＭＯＶＥ ; BRA CARS099 ; ;-----< 終了チェック (はずれ) >------------------------------------------ ; CARS000 EQU $ ;[1994/09/27] LDA SLCOIN ;[1994/09/27] BEQ CARS0001 ; カード１枚めくった　？ ;[1994/09/27]; ; Yes !! ;[1994/09/27] LDA MSG_RAM+2 ; messege No. set !! ;[1994/09/27] INC MSGMOD ;[1994/09/27] LDA #BS1WN ;[1994/09/27] BRA CARS0015 ; CARS0001 EQU $ LDA CARDNUM CMP #00AH BNE CARS002 ; はずれ（カメック）？ ; : yes CARS001 EQU $ MI16 LDX #PTAOR STX BSPLTP ; player type set !! LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 MI8 ; ;[1995/06/07] LDA #07DH ;[1995/06/07] JSL >SOUND_3_ON ; [♪] サウンドセット ; LDA #BS1MP ; next mode CARS0015 EQU $ STA BONSMD LDA #0C0H ; timer STA BONSTM ; BRA CARS099 ; ;-----< 終了チェック (残り枚数) >---------------------------------------- ; CARS002 EQU $ LDA SLCOIN CMP #007 ; #008 BNE CARS007 ; 残り１枚？ ; : yes ; JSR ITEMBST ; アイテム バッファセット ; MI16 LDX #PYORO STX BSPLTP ; player type set !! LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 MI8 ; LDA #KAMIN STA BONSMD ; next mode LDA #060H STA BONSTM ; timer BRA CARS099 ; ;-----< メイン ｍｏｖｅ >------------------------------------------------ ; CARS007 EQU $ LDA CARDMV BEQ CARS010 ; カーソル 動いてる ? ; : yes ; JSR CARDMOV ; カーソル ＭＯＶＥ BRA CARS020 ; CARS010 EQU $ JSR CARDKEY ; ｋｅｙ チェック ; CARS020 EQU $ JSR CARDOAM ; カーソル ＯＡＭ セット ; ;------------------------------------------------------------------------ ; CARS099 EQU $ MI16 ; memory,index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CARDMOV ( WORLD 1 ババ抜き カーソル ＭＯＶＥ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; ; << CARDMV >> ; ; 0 : ＳＴＯＰ ; 1 : 左 ; 2 : 右 ; 3 : 上 ; 4 : 下 ; ;======================================================================== ; CARDXDT EQU $ HEX 058,078,098 CARDYDT EQU $ HEX 060,080,0A0 CARDADD EQU $ HEX 002,0FE ; ; CARDMOV EQU $ MI8 ; memory,index 8bit mode !! ; LDA CARDMV CMP #003 BCS CARS050 ; ;-----< ヨコ ＭＯＶＥ >-------------------------------------------------- ; LDX CRCNXP LDA !CARDXDT,X CMP CRCXPS BEQ CARS080 ; move end ? ; : no LDA CARDMV AND #001 TAX LDA CRCXPS CLC ADC !CARDADD,X STA CRCXPS BRA CARS090 ; ;-----< タテ ＭＯＶＥ >-------------------------------------------------- ; CARS050 EQU $ LDX CRCNYP LDA !CARDYDT,X CMP CRCYPS BEQ CARS080 ; move end ? ; : no LDA CARDMV AND #001 TAX LDA CRCYPS CLC ADC !CARDADD,X STA CRCYPS BRA CARS090 ; ;-----< フラグ クリアー >------------------------------------------------ ; CARS080 EQU $ STZ CARDMV ; ;------------------------------------------------------------------------ ; CARS090 EQU $ MI16 ; memory,index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CARDKEY ( WORLD 1 ババ抜き ｋｅｙ チェック ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CARDKEY EQU $ MI8 ; memory,index 8bit mode !! ; ; LDA KEYA2 AND #11000000B BNE CARK010 ; (B)or(Y) key on ? ; : yes LDA KEYA2L AND #10000000B BNE CARK010 ; (A) key on ? ; : no JMP CARK050 ; ;-----< カードめくり >--------------------------------------------------- ; CARK010 EQU $ LDA CRCNYP ASL A ORA CRCNYP CLC ADC CRCNXP STA CARDPOS ; カード ＰＯＳ CMP #004 BNE CARK015 ; 精算 ? ; : yes LDA #001 STA ENWRK0 ; 投げモーション モードへ INC BONSMD ; mode inc. !! BRA CARK042 ; CARK015 EQU $ BMI CARK020 ; >4 ? ; : yes ; DEC A ; (A)-1 ; CARK020 EQU $ TAX LDA RANTBL,X CMP #0FFH BNE CARK040 ; もう、めくってある ？ ; : yes CARK030 EQU $ JMP CARK090 ; CARK040 EQU $ STA CARDNUM ; カード Ｎｏ． ;[1994/09/26] STX CARDPOS ; カード ＰＯＳ LDA #0FFH STA RANTBL,X ; めくったよ〜 LDA #001 STA ENWRK0 ; 投げモーション モードへ INC SLCOIN ; カード カウント アップ ; INC BONSMD ; mode inc. !! ; LDA CARDNUM CMP #card_suka BEQ CARK042 ; スカ（ムーチョ）？ ; : No CMP #card_hazu BEQ CARK042 ; ハズレ（カメック）？ ; : No ; JSR ITEMCUP ; アイテム カウントアップ ; CARK042 EQU $ JSR EGG_KAMAE ; 卵 イニシャル（かまえ） ; MI16 ; memory,index 16bit mode !! ; LDA #TN01 STA PLPATN ; player paturn set !! ;[1994/09/01] LDA #00002 ;[1994/09/01] STA BSPLTP ; player type set !! ;[1994/09/01] LDA #00000 ;[1994/09/01] STA PLWALK ; paturn No. set !! ;[1994/09/01] JMP CARK090 ; LDX #PNAGE STX BSPLTP ; player type set !! LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JMP PAS050 ; ; ;-----< カーソル ＭＯＶＥ >---------------------------------------------- ; CARK050 EQU $ MI8 ; memory,index 8bit mode !! ; LDA KEYA2 AND #00001111B BEQ CARK030 ; (+) key on ? ; : yes LDA #05CH JSL >SOUND_3_ON ; [♪] サウンドセット ; LDA KEYA2 AND #00000011B BEQ CARK070 ; AND #00000010B BEQ CARK060 ; ; ----------- [ 左 ] ----------- ; LDA CRCNXP BNE CARK052 ; "Left" position ? ; : yes LDX #002 STX CRCNXP LDA CARDXDT,X STA CRCXPS ; LDA CRCNYP DEC A BPL CARK051 LDA #002 CARK051 EQU $ STA CRCNYP TAX LDA CARDYDT,X STA CRCYPS ; (Y) pos reset !! JMP CARK090 ; CARK052 EQU $ DEC CRCNXP LDA #001 STA CARDMV ; flag set JMP CARK090 ; ; ----------- [ 右 ] ----------- ; CARK060 EQU $ LDA CRCNXP CMP #002 BNE CARK062 ; "Right" position ? ; : yes LDX #000 STX CRCNXP LDA CARDXDT,X STA CRCXPS ; LDA CRCNYP INC A CMP #003 BNE CARK061 LDA #000 CARK061 EQU $ STA CRCNYP TAX LDA CARDYDT,X STA CRCYPS ; (Y) pos reset !! BRA CARK090 ; CARK062 EQU $ INC CRCNXP LDA #002 STA CARDMV ; flag set BRA CARK090 ; ; CARK070 EQU $ LDA KEYA2 AND #00001000B BEQ CARK080 ; ; ----------- [ 上 ] ----------- ; LDA CRCNYP BNE CARK072 ; "Up" position ? ; : yes LDX #002 STX CRCNYP LDA CARDYDT,X STA CRCYPS BRA CARK090 ; CARK072 EQU $ DEC CRCNYP LDA #003 STA CARDMV ; flag set BRA CARK090 ; ; ----------- [ 下 ] ----------- ; CARK080 EQU $ LDA CRCNYP CMP #002 BNE CARK082 ; "Down" position ? ; : yes LDX #000 STX CRCNYP LDA CARDYDT,X STA CRCYPS BRA CARK090 ; CARK082 EQU $ INC CRCNYP LDA #004 STA CARDMV ; flag set ; ;------------------------------------------------------------------------- ; CARK090 EQU $ MI16 ; memory,index 16bit mode !! ; RTS ; ; ;[1995/05/02];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/05/02];x JSR ITEMIDX ( WORLD 1 ババ抜き アイテム index ) x ;[1995/05/02];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/05/02]ITEMIDX EQU $ ;[1995/05/02] MI8 ; memory,index 8bit mode !! ;[1995/05/02]; ;[1995/05/02] LDX #000 ;[1995/05/02]ITDX010 EQU $ ;[1995/05/02] LDA ITEMBUF,X ;[1995/05/02] BEQ ITDX090 ;[1995/05/02]; ;[1995/05/02] INX ;[1995/05/02] CPX #027 ;[1995/05/02] BNE ITDX010 ;[1995/05/02]; ;[1995/05/02]ITDX090 EQU $ ;[1995/05/02] STX ITEMID ; インデックス セット ;[1995/05/02]; ;[1995/05/02] RTS ;[1995/05/02]; ;[1995/05/02]; ;[1995/05/02];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/05/02];x JSR ITMFULL ( WORLD 1 ババ抜き アイテム ＦＵＬＬ ) x ;[1995/05/02];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/05/02]ITMFULL EQU $ ;[1995/05/02] JSL >RANDAM ; ランダム ｃａｌｌ ;[1995/05/02]; ;[1995/05/02] LDA RANDM0 ;[1995/05/02] AND #001 ;[1995/05/02] BNE ITFL010 ; 当たり ？ ;[1995/05/02]; : yes ;[1995/05/02]; ;[1995/05/02] M16 ; memory 16bit mode !! ;[1995/05/02]; ;[1995/05/02] LDA PLCONT ;[1995/05/02] CMP #999 ;[1995/05/02] BEQ ITFL010 ; プレイヤー ９９９人 ？ ;[1995/05/02]; : no ;[1995/05/02]; ;[1995/05/02] M8 ; memory 8bit mode !! ;[1995/05/02]; ;[1995/05/02] INC WITEM0 ; プレイヤー ｕｐ ;[1995/05/02] LDA #002 ; １ ｕｐ 絵柄 ;[1995/05/02] STA CARDNUM ;[1995/05/02] BRA ITFL090 ;[1995/05/02]; ;[1995/05/02]ITFL010 EQU $ ;[1995/05/02] M8 ; memory 8bit mode !! ;[1995/05/02]; ;[1995/05/02] LDA #001 ; リプレー絵柄 ;[1995/05/02] STA CARDNUM ;[1995/05/02]; ;[1995/05/02]ITFL090 EQU $ ;[1995/05/02] RTS ;[1995/05/02]; ;[1995/05/02]; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ITEMBST ( WORLD 1 ババ抜き バッファセット) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ITEMBST EQU $ MI8 ; memory.index 8bit mode ; LDX #000 ITBS010 EQU $ LDA WITEM0,X BEQ ITBS090 ; アイテムの登録する？ ; : yes ; PHX ; (X) push ; JSR ITEMINPUT ; アイテムの登録 ; PLX ; (X) pull ; INX CPX #007 BNE ITBS010 ; ＭＡＸセット？ ; : yes ITBS090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ITEMCUP ( WORLD 1 ババ抜き アイテム アップ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; ; ＜アイテム保存ＲＡＭ＞ ; ; ＷＩＴＥＭ０〜６ : アイテムＮｏ． ; ＷＩＴＥＭ７ : アイテムインデックス ; ＷＩＴＥＭ８ : 未使用 ; ＷＩＴＥＭ９ : プレーヤーｕｐ人数 ; ;======================================================================== ; hate_adr EQU 06H ; ハテナ雲 mi_g_adr EQU 07H ; 木の実（緑） mi_r_adr EQU 09H ; 木の実（赤） eggf_adr EQU 04H ; 卵ＦＵＬＬ st10_adr EQU 01H ; スター（１０） st20_adr EQU 02H ; スター（２０） powb_adr EQU 03H ; ＰＯＷ musi_adr EQU 05H ; 虫眼鏡 mi_b_adr EQU 08H ; 木の実（青） ; ITEMADR EQU $ BYTE hate_adr ; (0) ハテナ雲 BYTE 000 ; (1) スカ（ムーチョ） BYTE mi_g_adr ; (2) 木の実（緑） BYTE mi_r_adr ; (3) 木の実（赤） BYTE 000 ; (4) １０ｕｐ BYTE eggf_adr ; (5) 卵ＦＵＬＬ BYTE st10_adr ; (6) スター（１０） BYTE st20_adr ; (7) スター（２０） BYTE powb_adr ; (8) ＰＯＷ BYTE musi_adr ; (9) 虫眼鏡 BYTE 000 ; (A) ハズレ（カメック） BYTE mi_b_adr ; (B) 木の実（青） ; ; ITEMCUP EQU $ MI8 ; memory,index 8bit mode !! ; LDY WITEM7 LDX CARDNUM LDA !ITEMADR,X STA WITEM0,Y INC WITEM7 RTS ; ; MEM16 IDX16 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CARDOAM ( WORLD 1 ババ抜き カーソル OAM set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CARDOAM EQU $ MI16 ; memory,index 16bit mode !! ; LDY OAMIDX LDA --------------------------------------------------- ; LDA WITEM9 AND #000FFH BNE BOCT010 ; プレイヤー終わった ？ ; : yes LDA #00080H STA BONSTM ; timer LDA #BS1MP STA BONSMD ; next mode BRA BOCT090 ; ;-----< プレイヤー >----------------------------------------------------- ; BOCT010 EQU $ LDA PLCONT CMP #999 BNE BOCT011 ; M8 ; memory 8bit mode !! STZ WITEM9 M16 ; memory 16bit mode !! INC BONSTM ; timer <-- "1" BRA BOCT090 ; BOCT011 EQU $ M8 ; memory 8bit mode !! DEC WITEM9 LDA #008H JSL >SOUND_3_ON ; [♪] サウンドセット M16 ; memory 16bit mode !! ; INC PLCONT ; ;-----< データ ＷＲＩＴＥ >---------------------------------------------- ; BOCT030 EQU $ JSR PLCNTST ; プレイヤー アップ ; LDA #00030H STA BONSTM ; timer ; ;------------------------------------------------------------------------ ; BOCT090 EQU $ RTS ; ; ; ;-------------------------------------------------------- ;- Babanuki card mekuri - ;-------------------------------------------------------- bg1_adrs EQU 06800H bg2_adrs EQU 03800H nuki_chr EQU 00000H omote_data EQU 011006CH open_speed EQU 008H ; ;[1995/05/01] card_6C EQU 0100H ;[1995/05/01] card_6D EQU card_6C+9 ;[1995/05/01] card_6E EQU card_6D+9 ;[1995/05/01] card_6F EQU card_6E+9 ;[1995/05/01] card_70 EQU card_6F+9 ;[1995/05/01] card_71 EQU card_70+9 ;[1995/05/01] card_72 EQU card_71+9 ;[1995/05/01] card_73 EQU card_72+9 ;[1995/05/01] card_74 EQU card_73+9 ;[1995/05/01] card_75 EQU card_74+9 ;[1995/05/01] card_76 EQU card_75+9 ;[1995/05/01] card_77 EQU card_76+9 ;[1995/05/01] card_78 EQU 0180H ;[1995/05/01] card_79 EQU card_78+9 ;[1995/05/01] ; ;[1995/05/01] CARDDATA EQU $ ;[1995/05/01] HEX 6D, 6E, 75, 76 ;[1995/05/01] HEX 78, 6F, 70, 79 ;[1995/05/01] HEX 71, 72, 73, 77 ;[1995/05/01] ; ;[1995/05/01] CARDBGCHR EQU $ ;[1995/05/01] WORD 0001010000000000B+card_6D, 0001010000000000B+card_6D+1, 0001010000000000B+card_6D+2 ;[1995/05/01] WORD 0001010000000000B+card_6D+3, 0001010000000000B+card_6D+4, 0001010000000000B+card_6D+5 ;[1995/05/01] WORD 0001010000000000B+card_6D+6, 0001010000000000B+card_6D+7, 0001010000000000B+card_6D+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0001010000000000B+card_6E, 0001010000000000B+card_6E+1, 0001010000000000B+card_6E+2 ;[1995/05/01] WORD 0001010000000000B+card_6E+3, 0001010000000000B+card_6E+4, 0001010000000000B+card_6E+5 ;[1995/05/01] WORD 0001010000000000B+card_6E+6, 0001010000000000B+card_6E+7, 0001010000000000B+card_6E+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_75, 0000110000000000B+card_75+1, 0000110000000000B+card_75+2 ;[1995/05/01] WORD 0000110000000000B+card_75+3, 0000110000000000B+card_75+4, 0000110000000000B+card_75+5 ;[1995/05/01] WORD 0000110000000000B+card_75+6, 0000110000000000B+card_75+7, 0000110000000000B+card_75+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_76, 0000110000000000B+card_76+1, 0000110000000000B+card_76+2 ;[1995/05/01] WORD 0000110000000000B+card_76+3, 0000110000000000B+card_76+4, 0000110000000000B+card_76+5 ;[1995/05/01] WORD 0000110000000000B+card_76+6, 0000110000000000B+card_76+7, 0000110000000000B+card_76+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_78, 0000110000000000B+card_78+1, 0000110000000000B+card_78+2 ;[1995/05/01] WORD 0000110000000000B+card_78+3, 0000110000000000B+card_78+4, 0000110000000000B+card_78+5 ;[1995/05/01] WORD 0000110000000000B+card_78+6, 0000110000000000B+card_78+7, 0000110000000000B+card_78+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_6F, 0000110000000000B+card_6F+1, 0000110000000000B+card_6F+2 ;[1995/05/01] WORD 0000110000000000B+card_6F+3, 0000110000000000B+card_6F+4, 0000110000000000B+card_6F+5 ;[1995/05/01] WORD 0000110000000000B+card_6F+6, 0000110000000000B+card_6F+7, 0000110000000000B+card_6F+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_70, 0000110000000000B+card_70+1, 0000110000000000B+card_70+2 ;[1995/05/01] WORD 0000110000000000B+card_70+3, 0000110000000000B+card_70+4, 0000110000000000B+card_70+5 ;[1995/05/01] WORD 0000110000000000B+card_70+6, 0000110000000000B+card_70+7, 0000110000000000B+card_70+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_79, 0000110000000000B+card_79+1, 0000110000000000B+card_79+2 ;[1995/05/01] WORD 0000110000000000B+card_79+3, 0000110000000000B+card_79+4, 0000110000000000B+card_79+5 ;[1995/05/01] WORD 0000110000000000B+card_79+6, 0000110000000000B+card_79+7, 0000110000000000B+card_79+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0001010000000000B+card_71, 0001010000000000B+card_71+1, 0001010000000000B+card_71+2 ;[1995/05/01] WORD 0001010000000000B+card_71+3, 0001010000000000B+card_71+4, 0001010000000000B+card_71+5 ;[1995/05/01] WORD 0001010000000000B+card_71+6, 0001010000000000B+card_71+7, 0001010000000000B+card_71+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0001010000000000B+card_72, 0001010000000000B+card_72+1, 0001010000000000B+card_72+2 ;[1995/05/01] WORD 0001010000000000B+card_72+3, 0001010000000000B+card_72+4, 0001010000000000B+card_72+5 ;[1995/05/01] WORD 0001010000000000B+card_72+6, 0001010000000000B+card_72+7, 0001010000000000B+card_72+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0001010000000000B+card_73, 0001010000000000B+card_73+1, 0001010000000000B+card_73+2 ;[1995/05/01] WORD 0001010000000000B+card_73+3, 0001010000000000B+card_73+4, 0001010000000000B+card_73+5 ;[1995/05/01] WORD 0001010000000000B+card_73+6, 0001010000000000B+card_73+7, 0001010000000000B+card_73+8 ;[1995/05/01] ; ;[1995/05/01] WORD 0000110000000000B+card_77, 0000110000000000B+card_77+1, 0000110000000000B+card_77+2 ;[1995/05/01] WORD 0000110000000000B+card_77+3, 0000110000000000B+card_77+4, 0000110000000000B+card_77+5 ;[1995/05/01] WORD 0000110000000000B+card_77+6, 0000110000000000B+card_77+7, 0000110000000000B+card_77+8 ; ; card_6C EQU 0100H ; ＨＩＴ card_6D EQU card_6C+9 ; ハテナ雲 card_6E EQU card_6D+9 ; スカ（ムーチョ） card_6F EQU card_6E+9 ; 卵ＦＵＬＬ card_70 EQU card_6F+9 ; スター（１０） card_71 EQU card_70+9 ; ＰＯＷ card_72 EQU card_71+9 ; 虫眼鏡 card_73 EQU card_72+9 ; ハズレ（カメック） card_74 EQU card_73+9 ; ？ card_78 EQU 0180H ; １０ｕｐ card_79 EQU card_78+9 ; スター（２０） card_7A EQU card_79+9 ; 木の実（赤） card_7B EQU card_7A+9 ; 木の実（緑） card_7C EQU card_79+9 ; 木の実（青） ; CARDDATA EQU $ HEX 6D, 6E, 7A, 7B HEX 78, 6F, 70, 79 HEX 71, 72, 73, 7A ; CARDBGCHR EQU $ ;【ハテナ雲】 WORD 0000110000000000B+card_6D+0, 0000110000000000B+card_6D+1, 0000110000000000B+card_6D+2 WORD 0000110000000000B+card_6D+3, 0000110000000000B+card_6D+4, 0000110000000000B+card_6D+5 WORD 0000110000000000B+card_6D+6, 0000110000000000B+card_6D+7, 0000110000000000B+card_6D+8 ;【スカ】 WORD 0001010000000000B+card_6E+0, 0001010000000000B+card_6E+1, 0001010000000000B+card_6E+2 WORD 0001010000000000B+card_6E+3, 0001010000000000B+card_6E+4, 0001010000000000B+card_6E+5 WORD 0001010000000000B+card_6E+6, 0001010000000000B+card_6E+7, 0001010000000000B+card_6E+8 ;【木の実（緑）】 WORD 0001000000000000B+card_7A+0, 0001000000000000B+card_7A+1, 0001000000000000B+card_7A+2 WORD 0001000000000000B+card_7A+3, 0001000000000000B+card_7A+4, 0001000000000000B+card_7A+5 WORD 0001000000000000B+card_7A+6, 0001000000000000B+card_7A+7, 0001000000000000B+card_7A+8 ;【木の実（赤）】 WORD 0001010000000000B+card_7B+0, 0001010000000000B+card_7B+1, 0001010000000000B+card_7B+2 WORD 0001010000000000B+card_7B+3, 0001010000000000B+card_7B+4, 0001010000000000B+card_7B+5 WORD 0001010000000000B+card_7B+6, 0001010000000000B+card_7B+7, 0001010000000000B+card_7B+8 ;【１０ｕｐ】 WORD 0000110000000000B+card_78+0, 0000110000000000B+card_78+1, 0000110000000000B+card_78+2 WORD 0000110000000000B+card_78+3, 0000110000000000B+card_78+4, 0000110000000000B+card_78+5 WORD 0000110000000000B+card_78+6, 0000110000000000B+card_78+7, 0000110000000000B+card_78+8 ;【卵ＦＵＬＬ】 WORD 0000110000000000B+card_6F+0, 0000110000000000B+card_6F+1, 0000110000000000B+card_6F+2 WORD 0000110000000000B+card_6F+3, 0000110000000000B+card_6F+4, 0000110000000000B+card_6F+5 WORD 0000110000000000B+card_6F+6, 0000110000000000B+card_6F+7, 0000110000000000B+card_6F+8 ;【スター（１０）】 WORD 0000110000000000B+card_70+0, 0000110000000000B+card_70+1, 0000110000000000B+card_70+2 WORD 0000110000000000B+card_70+3, 0000110000000000B+card_70+4, 0000110000000000B+card_70+5 WORD 0000110000000000B+card_70+6, 0000110000000000B+card_70+7, 0000110000000000B+card_70+8 ;【スター（２０）】 WORD 0001010000000000B+card_79+0, 0001010000000000B+card_79+1, 0001010000000000B+card_79+2 WORD 0001010000000000B+card_79+3, 0001010000000000B+card_79+4, 0001010000000000B+card_79+5 WORD 0001010000000000B+card_79+6, 0001010000000000B+card_79+7, 0001010000000000B+card_79+8 ;【ＰＯＷ】 WORD 0001010000000000B+card_71+0, 0001010000000000B+card_71+1, 0001010000000000B+card_71+2 WORD 0001010000000000B+card_71+3, 0001010000000000B+card_71+4, 0001010000000000B+card_71+5 WORD 0001010000000000B+card_71+6, 0001010000000000B+card_71+7, 0001010000000000B+card_71+8 ;【虫眼鏡】 WORD 0000110000000000B+card_72+0, 0000110000000000B+card_72+1, 0000110000000000B+card_72+2 WORD 0000110000000000B+card_72+3, 0000110000000000B+card_72+4, 0000110000000000B+card_72+5 WORD 0000110000000000B+card_72+6, 0000110000000000B+card_72+7, 0000110000000000B+card_72+8 ;【ハズレ（カメック）】 WORD 0001010000000000B+card_73+0, 0001010000000000B+card_73+1, 0001010000000000B+card_73+2 WORD 0001010000000000B+card_73+3, 0001010000000000B+card_73+4, 0001010000000000B+card_73+5 WORD 0001010000000000B+card_73+6, 0001010000000000B+card_73+7, 0001010000000000B+card_73+8 ;【木の実（青）】 WORD 0000110000000000B+card_7C+0, 0000110000000000B+card_7C+1, 0000110000000000B+card_7C+2 WORD 0000110000000000B+card_7C+3, 0000110000000000B+card_7C+4, 0000110000000000B+card_7C+5 WORD 0000110000000000B+card_7C+6, 0000110000000000B+card_7C+7, 0000110000000000B+card_7C+8 ; ;【ヨッシー裏（コインふやし）】 WORD 0000110000000000B+card_6C+0, 0000110000000000B+card_6C+1, 0000110000000000B+card_6C+2 WORD 0000110000000000B+card_6C+3, 0000110000000000B+card_6C+4, 0000110000000000B+card_6C+5 WORD 0000110000000000B+card_6C+6, 0000110000000000B+card_6C+7, 0000110000000000B+card_6C+8 ; CARDADDR EQU $ WORD 018BH+bg1_adrs, 018FH+bg1_adrs, 0193H+bg1_adrs WORD 020BH+bg1_adrs, 020FH+bg1_adrs, 0213H+bg1_adrs WORD 028BH+bg1_adrs, 028FH+bg1_adrs, 0293H+bg1_adrs ; CLEARCARD EQU $ WORD nuki_chr, nuki_chr, nuki_chr ; CARDXPOSDT EQU $ HEX 54, 74, 94 HEX 54, 74, 94 HEX 54, 74, 94 ; CARDYPOSDT EQU $ HEX 5C, 5C, 5C HEX 7C, 7C, 7C HEX 9C, 9C, 9C ; CARDATTRDTOMOTE EQU $ BYTE 00110110B, 00110010B, 00110110B BYTE 00110010B, 00110110B, 00110010B BYTE 00110110B, 00110010B, 00110110B ; CARDATTRDTURA EQU $ BYTE 00110010B, 00110110B, 00110100B, 00110110B BYTE 00110010B, 00110010B, 00110010B, 00110110B BYTE 00110110B, 00110110B, 00110110B, 00110010B ; ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** BNS_PAL_DT EQU $ BYTE 000H*12,005H*12,006H*12 ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; HKRKERINIT EQU $ LDA !CARDPOS ; card address number load !! AND #000FFH PHA ASL A TAX LDA #00003H STA VRAMDX_ST ; PLA CLC ADC #00020H TAY DEC HKINT0010] ; PLA ; card address number pull !! TAX CLC ADC #CARDATTRDTOMOTE STA VRAMDX_ST ; PLA CLC ADC #00020H TAY PLA CLC ADC #00006H TAX DEC HKURA0010] ; LDA BONSMD CMP #BONSM BEQ HKURA0040 ; カメック逃げた？ ; : no LDA SLCOIN CMP #00009 BNE HKURA0020 ; ８枚めくった？ ; : yes LDA #00020H STA BONSTM ; timer LDA #KAMEM BRA HKURA0030 ; HKURA0020 EQU $ LDA CARDNUM AND #000FFH CMP #card_suka BNE HKURA0021 ; スカ（ムーチョ）？ ; : yes LDA #00090H BRA HKURA0025 ; HKURA0021 EQU $ CMP #card_hazu BNE HKURA0022 ; ハズレ（カメック）？ ; : yes LDA #0007DH BRA HKURA0025 ; HKURA0022 EQU $ ; その他（当たり） LDA #0008FH ; HKURA0025 EQU $ JSL >SOUND_3_ON ; [♪] サウンドセット LDA #CADGM HKURA0030 EQU $ STA !BONSMD ; next mode ; HKURA0040 EQU $ RTS ; ; HKURA0080 EQU $ LDA !CARDNUM AND #000FFH TAY CLC ADC #CARDATTRDTURA STA VRAMDX_ST ; LDY #05F80H ;(Y) <-- ＶＲＡＭアドレス LDX #WOB7CHR+200H ;(X) <-- 転送元アドレス (Ｌ,Ｈ) LDA #00080H ;(A) <-- 転送バイト数 JSL >VRAMDX_ST ; LDY #05EC0H ;(Y) <-- ＶＲＡＭアドレス LDX #WOB7CHR+400H ;(X) <-- 転送元アドレス (Ｌ,Ｈ) LDA #00080H ;(A) <-- 転送バイト数 JSL >VRAMDX_ST ; LDY #05FC0H ;(Y) <-- ＶＲＡＭアドレス LDX #WOB7CHR+600H ;(X) <-- 転送元アドレス (Ｌ,Ｈ) LDA #00080H ;(A) <-- 転送バイト数 JSL >VRAMDX_ST RTS ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGG_KAMAE ( WORLD 1 卵かまえ initial ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PLNAGEXP EQU $ WORD 00007H ; [old] 0000EH WORD 0000DH WORD 0000CH WORD 0000AH WORD 00008H WORD 00008H WORD 00003H WORD 0FFFDH WORD 0FFF6H ; PLNAGEYP EQU $ WORD 0000AH ; [old] 00010H WORD 00010H WORD 00010H WORD 0000CH WORD 0000BH WORD 00004H WORD 00003H WORD 00003H WORD 00003H ; ; EGG_KAMAE EQU $ M16 ; memory 16bit mode I8 ; index 8bit mode ; LDY #00004 LDA #EGG00 JSL >ENINSR2 ; 卵 セット ; LDA PLXPSL CLC ADC !PLNAGEXP STA ENXPSL+4 ; Ｘ ポジション LDA PLYPSL CLC ADC !PLNAGEYP STA ENYPSL+4 ; Ｙ ポジション STZ ENXSPD+4 ; Ｘ スピード STZ ENYSPD+4 ; Ｙ スピード LDA #00001H STA ENYUSN+4 LDA #00030H ; 優先順位「３」 STA ENCLOR+4 STZ ENWRK6 ; サウンドタイマー ; I16 ; index 16bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGGINIT1 ( WORLD 1 卵投げ initial ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EGGMVXP EQU $ WORD 00050H+00010H,00070H+00010H,00090H+00010H ; EGGMVYP EQU $ WORD 00058H+00010H,00078H+00010H,00098H+00010H ; ; ; EGGINIT1 EQU $ I8 ; index 8bit mode ; ;;;;;;; LDY #00004 ;;;;;;; LDA #EGG00 ;;;;;;; JSL >ENINSR2 ; 卵 セット ; ;;;;;;; LDA #EGGSHXP ; Ｘ ポジション ;;;;;;; STA ENXPSL+4 LDA ENXPSL+4 STA R3 ;（Ｒ３） ＜−− 現在Ｘ座標 ;;;;;;; LDA #EGGSHYP ; Ｙ ポジション ;;;;;;; STA ENYPSL+4 LDA ENYPSL+4 STA R4 ;（Ｒ４） ＜−− 現在Ｙ座標 ; LDA CRCNXP AND #000FFH ASL A TAX LDA !EGGMVXP,X STA R1 ;（Ｒ１） ＜−− 目標Ｘ座標 LDA CRCNYP AND #000FFH ASL A TAX LDA !EGGMVYP,X STA R2 ;（Ｒ２） ＜−− 目標Ｙ座標 LDA #00600H I8 ; index 8bit mode STA R6 ;（Ｒ６） ＜−− サーチスピード ; M_CHIP SEARCH_SPEED ; LDA R1 ;（Ｒ１） −−＞ Ｘスピード STA ENXSPD+4 LDA R2 ;（Ｒ２） −−＞ Ｙスピード STA ENYSPD+4 ; I16 ; index 16bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGGINIT6 ( WORLD 6 卵投げ initial ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EGGMVXP6 EQU $ WORD 0003CH,0005CH,0007CH,0009CH,000BCH WORD 0002CH,0004CH,000ACH,000CCH WORD 0003CH,0005CH,0007CH,0009CH,000BCH ; EGGMVYP6 EQU $ WORD 0005CH,0005CH,0005CH,0005CH,0005CH WORD 0007CH,0007CH,0007CH,0007CH WORD 0009CH,0009CH,0009CH,0009CH,0009CH ; ; EGGINIT6 EQU $ I8 ; index 8bit mode ; LDA ENXPSL+4 STA R3 ;（Ｒ３） ＜−− 現在Ｘ座標 LDA ENYPSL+4 STA R4 ;（Ｒ４） ＜−− 現在Ｙ座標 ; LDA COINPT AND #000FFH ASL A TAX LDA !EGGMVXP6,X STA R1 ;（Ｒ１） ＜−− 目標Ｘ座標 LDA !EGGMVYP6,X STA R2 ;（Ｒ２） ＜−− 目標Ｙ座標 LDA #00600H I8 ; index 8bit mode STA R6 ;（Ｒ６） ＜−− サーチスピード ; M_CHIP SEARCH_SPEED ; LDA R1 ;（Ｒ１） −−＞ Ｘスピード STA ENXSPD+4 LDA R2 ;（Ｒ２） −−＞ Ｙスピード STA ENYSPD+4 ; I16 ; index 16bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGGMOVE ( WORLD 1 ババ抜き 卵 ＭＯＶＥ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EGGMOVE EQU $ M16 ; memory 16bit mode I8 ; index 8bit mode ; LDA ENWRK0 BNE EGGM000 ; 卵 なし？ ; : yes JMP EGGM090 ; ; EGGM000 EQU $ ; ;-----< 動きの種類 チェック >-------------------------------------------- ; ; EGGM001 EQU $ CMP #00002 BEQ EGGM005 ; 直進 ＭＯＶＥ ？ CMP #00003 ;;;;;; BEQ EGGM020 ; バウンド ＭＯＶＥ ？ BNE EGGM0001 ; バウンド ＭＯＶＥ ？ ; JMP EGGM020 ; EGGM0001 EQU $ ; ;-----< 卵 投げモーション ＭＯＶＥ >------------------------------------- ; LDA PLPATN CMP #TN0A BNE EGGM002 ; 投げ ＯＫ ？ ; : yes LDA #04AH ; #020H JSL >SOUND_3_ON ; [♪] サウンドセット ; ;;;;K;;;; LDA MPTYPE LDA BONUSNO CMP #00006H BEQ EGGM0011 ; 何ワールド ？ ; JSR EGGINIT1 ; World (1) 投げイニシャル BRA EGGM0012 ; EGGM0011 EQU $ JSR EGGINIT6 ; World (6) 投げイニシャル ; EGGM0012 EQU $ INC ENWRK0 ; 直進 モードへ JMP EGGM090 ; ;−−−［卵ショット・サウンドセット］−−−−−−−−−−−−−−− ; EGGM002 EQU $ ;[1995/04/27] INC ENWRK6 ;[1995/04/27] LDA ENWRK6 ;[1995/04/27] AND #00003H ;[1995/04/27] BNE EGGM003 ; サウンドセット？ ;[1995/04/27]; : yes ;[1995/04/27] LDA ENWRK6 ;[1995/04/27] AND #0007CH ;[1995/04/27] LSR A ;[1995/04/27] LSR A ;[1995/04/27] CLC ;[1995/04/27] ADC #0004AH ;[1995/04/27] CMP #00051H ; sound 4BH~50H ;[1995/04/27] BCC EGGM0027 ;[1995/04/27]; ;[1995/04/27]EGGM0025 EQU $ ;[1995/04/27] LDA #009H ; パワーＭＡＸ ;[1995/04/27]EGGM0027 EQU $ ;[1995/04/27] JSL >SOUND_3_ON ; [♪] サウンドセット ;[1995/04/27]; ;−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ; EGGM003 EQU $ LDY #PNAGE LDA PLWALK SEC SBC !PLTRNAR,Y TAX LDA PLXPSL CLC ADC !PLNAGEXP,X STA ENXPSL+4 ; Ｘ ポジション LDA PLYPSL CLC ADC !PLNAGEYP,X STA ENYPSL+4 ; Ｙ ポジション BRA EGGM040 ; ; ;-----< 卵 直進 ＭＯＶＥ >----------------------------------------------- ; EGGM005 EQU $ JSR SMOKEST ; 煙セット ; ;;;;K;;;; LDA MPTYPE LDA BONUSNO CMP #006H BEQ EGGM006 ; 何ワールド ？ ; JSR EGSTMV1 ; World (1) BRA EGGM010 ; EGGM006 EQU $ JSR EGSTMV6 ; World (6) ; EGGM010 EQU $ CPY #000 BEQ EGGM040 ; ポジション over ? ; : yes ; LDA #0FF00H ; Ｘ スピード STA ENXSPD+4 LDA #0FC00H ; Ｙ スピード STA ENYSPD+4 INC ENWRK0 ; 卵 状態フラグ（バウンド） ; LDA BONSMD CMP #ZOMIN BEQ EGGM040 ; 精算？ ; : no LDA #067H JSL >SOUND_3_ON ; [♪] サウンドセット INC BONSMD ; バウンド モードへ BRA EGGM040 ; ; ;-----< 卵 バウンド ＭＯＶＥ >------------------------------------------- ; EGGM020 EQU $ LDA ENYPSL+4 CMP #000E0H BCS EGGM030 ; 落ちて消えた？ ; : no LDA ENYSPD+4 CLC ADC #00040H ; 重力 STA ENYSPD+4 BRA EGGM040 ; EGGM030 EQU $ STZ ENWRK0 ; 卵 状態フラグ クリアー ; BRA EGGM050 ; ;-----< 卵 ポジション セット >------------------------------------------- ; EGGM040 EQU $ ;;;;; LDA #00030H ; 優先順位「３」 ;[1994/09/01] TSB ENCLOR+4 ;;;;; STA ENCLOR+4 ; LDX #004 JSL >EN_XYMOVE ; ;-----< カーソル ＯＡＭ セット >----------------------------------------- ; EGGM050 EQU $ ;;;;;;; JSR CARDOAM ; ;------------------------------------------------------------------------ ; EGGM090 EQU $ I16 ; index 16bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGSTMV1 ( WORLD 1 卵 直進 move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EGSTMV1 EQU $ I8 ; index 8bit mode ; LDY #000 ; LDA CRCNXP AND #000FFH ASL A TAX LDA ENXPSL+4 CMP !EGGMVXP,X BCC EGS1010 ; Ｘ ポジション over ? ; : no LDA CRCNYP AND #000FFH ASL A TAX LDA ENYPSL+4 CMP !EGGMVYP,X BCS EGS1020 ; Ｙ ポジション over ? ; : yes ; EGS1010 EQU $ M8 ; memory 8bit mode I16 ; index 16bit mode ; LDA CRCNYP ASL A ORA CRCNYP CLC ADC CRCNXP CMP #004 BNE EGS1015 ; 精算？ ; : yes ; M16 ; memory 16bit mode ; JSR SEISERAS ; 精算カード 消去 ; JSR SEIOAMSET ; OAM set LDA #00100H STA OPENCNT ; 倍率 JSR SEISZOOM ; ズームセット LDA #008H JSL >SOUND_3_ON ; [♪] サウンドセット LDA #ZOMIN STA BONSMD ; next mode BRA EGS1017 ; EGS1015 EQU $ M16 ; memory 16bit mode ; JSR HKRKERINIT ;（１）カードめくり イニシャル ; EGS1017 EQU $ LDY #00001 EGS1020 EQU $ I8 ; index 8bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR EGSTMV6 ( WORLD 6 卵 直進 move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EGSTMV6 EQU $ I8 ; index 8bit mode ; LDY #000 ; LDA COINPT AND #000FFH CMP #00008 BEQ EGS6005 ; 中段右端 ？ ; : no ASL A TAX LDA ENXPSL+4 CMP !EGGMVXP6,X BCC EGS6010 ; Ｘ ポジション over ? ; : no LDA ENYPSL+4 CMP !EGGMVYP6,X BCS EGS6020 ; Ｙ ポジション over ? ; : yes BRA EGS6010 ; ; EGS6005 EQU $ ASL A TAX LDA ENXPSL+4 CMP !EGGMVXP6,X BCC EGS6020 ; Ｘ ポジション over ? ; : yes ; EGS6010 EQU $ I16 ; index 16bit mode ; JSR COINRIT ;（６）神経衰弱 イニシャル ; LDY #001 EGS6020 EQU $ I8 ; index 8bit mode ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SMOKEST ( WORLD 1 ババ抜き 煙セット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMOKEST EQU $ LDA FRCNT AND #001 BNE SMOK090 ; LDA #DSMK0 JSL >EXINSR LDA ENXPSL+4 STA EXXPSL,Y LDA ENYPSL+4 STA EXYPSL,Y LDA #005 STA EXWRK0,Y LDA #005 STA EXCHPT,Y LDA #004 STA EXTIM0,Y LDA #006 STA EXYUSN,Y LDA #020H+00001100B ; priority,color STA EXCLOR,Y ; SMOK090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR KAMEINT ( WORLD 1 ババ抜き カメックＩＮＩＴ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx KAMEINT EQU $ ;;;;;;; JSR EGGMOVE ; DEC BONSTM BPL KAMIN090 ; MI8 ; memory,index 8bit mode !! ; LDA #006H STA 精算？ ; : yes INX ; (X)+1 KAMIN030 EQU $ STX CARDPOS ; カード ＰＯＳ ; INC SLCOIN ; めくったカード カウンター INC BONSMD ; next mode ; MI16 ; memory,index 16bit mode !! ; LDA #00100H STA OPENCNT ; 倍率 LDA #051H JSL >SOUND_3_ON ; [♪] サウンドセット ; ;----------------------------------------------- ;;;;;; LDA #HKROM ;;;;;; STA BONSMD ; next mode ;;;;;;; ;;;;;; LDA #01CH ;;;;;; STA > ; ; ENWRK0 ; カード ズーム ＭＯＤＥ ; ENWRK1 ; " ; ENWRK2 ; 煙 ＭＯＤＥ ; ENWRK3 ; " ; ENWRK4 ; カメック ＭＯＤＥ ; ENWRK5 ; " ; ;======================================================================== ; KAMEMIN EQU $ JSR CZOOMST ; カード ズーム JSR SMOKEMV ; 煙 JSR KAMKMOV ; カメック ; KAMENOP EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CZOOMST ( WORLD 1 ババ抜き card zoom set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CZOOMST EQU $ LDA KAMMD0 ASL A TAX JMP (!ZOOMADR,X) ; ; ZOOMADR EQU $ WORD ZOOMUP ; zoom up ;;;;;;; WORD ZOOMSTOP ; zoom stop WORD ZOOMDOWN ; zoom down WORD FLIPINT ; kaiten initial WORD FLIPMOV ; kaiten move WORD KAMENOP ; (no play) ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMUP ( WORLD 1 ババ抜き "zoom up" move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ZOOMCNT EQU 00004 ; ; ZOOMUP EQU $ JSR ZOOMOAM ; OAM set ; LDA OPENCNT CMP #00150H BNE ZOUP010 ; LDA #053H JSL >SOUND_3_ON ; [♪] サウンドセット INC KAMMD0 ; next mode (zoom) BRA ZOUP020 ; ZOUP010 EQU $ CLC ADC #ZOOMCNT STA OPENCNT ; ZOUP020 EQU $ JMP CARDZOOM ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMSTOP ( WORLD 1 ババ抜き "zoom stop" move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;;;;;;ZOOMSTOP EQU $ ;;;;;; JSR ZOOMOAM ; OAM set ;;;;;;; ;;;;;; LDA OPENCNT ;;;;;; JMP CARDZOOM ;;;;;;; ;;;;;;; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMDOWN ( WORLD 1 ババ抜き "zoom down" move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ZOOMDOWN EQU $ LDA OPENCNT CMP #00120H BNE ZODN010 ; 飛び出しタイミング？ ; : yes ; INC KAMMD1 ; next mode (kemuri) INC KAMMD2 ; next mode (kamekku) LDA #004H JSL >SOUND_3_ON ; [♪] サウンドセット BRA ZODN020 ; ZODN010 EQU $ CMP #00100H BNE ZODN020 ; INC KAMMD0 ; next mode (zoom) BRA ZODN030 ; ZODN020 EQU $ JSR ZOOMOAM ; OAM set ; LDA OPENCNT SEC SBC #ZOOMCNT STA OPENCNT ; ZODN030 EQU $ JMP CARDZOOM ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMOAM ( WORLD 1 ババ抜き card zoom OAM set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ZOOMOAM EQU $ LDA CARDPOS AND #000FFH TAX CLC ADC #CARDATTRDTOMOTE STA SOUND_3_ON ; [♪] サウンドセット ; INC KAMMD0 ; next mode (zoom) ; FLIN010 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR FLIPMOV ( WORLD 1 ババ抜き 回転 ＭＯＶＥ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx MINFLSP EQU 00004 ; minimum flip speed ; FLIPMOV EQU $ LDA KCARDFA AND #00001 BNE FLMV010 ; ;-----< 表 ＭＯＶＥ >---------------------------------------------------- ; LDA OPENCNT CLC ADC KCARDSP CMP #00080H BCC FLMV050 ; 表／裏 チェンジ ？ ; : yes SEC SBC #00080H STA ---------------------------------------------------- ; FLMV010 EQU $ LDA OPENCNT SEC SBC KCARDSP BPL FLMV050 ; 表／裏 チェンジ ？ ; : yes STA ------------------------------------------------ ; FLMV020 EQU $ LDA KCARDSP CMP #MINFLSP BEQ FLMV030 ; SEC SBC #FLIPCNT STA KCARDSP ; FLMV030 EQU $ INC KCARDFA LDA KCARDFA AND #000001 BNE FLMV060 ; LDA #007H JSL >SOUND_3_ON ; [♪] サウンドセット BRA FLMV060 ; ; ;-----< カードセット >--------------------------------------------------- ; FLMV050 EQU $ STA OPENCNT ; FLMV060 EQU $ LDA OPENCNT ;;;;;;; CMP #00080H ;;;;;;; BNE FLMV070 ; 表示しない ？ ; : yes CMP #0007CH BCC FLMV070 ; 表示しない ？ ; : yes RTS ; ; FLMV070 EQU $ LDA KCARDFA AND #00003 ASL A TAX JMP (!HIKRIAD,X) ; ; HIKRIAD EQU $ WORD HKOMOTE0010 ; 表 （ＨＩＴ） WORD HKURA0080 ; 裏 （１０ｕｐ） WORD HKURA0080 ; 裏 （１０ｕｐ） WORD HKOMOTE0010 ; 表 （ＨＩＴ） ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SMOKEMV ( WORLD 1 ババ抜き card kemuri set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMOKEMV EQU $ LDA KAMMD1 BEQ SMMV090 ; CMP #(SMOKXPS-SMOKETB)+1 BCS SMMV090 ; JSR SMOKE00 ; kemuri move ; INC KAMMD1 ; next mode (kemuri) ; SMMV090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SMOKE00 ( WORLD 1 ババ抜き kemuri move set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMOKECH EQU $ WORD 02CE1H ; 0 WORD 02CE2H ; 1 WORD 02CF0H ; 2 WORD 02CF1H ; 3 WORD 02CF2H ; 4 ; SMOKETB EQU $ HEX 004,004,004 HEX 001,001,001 HEX 001,001,001 HEX 002,002,002,002 HEX 003,003,003,003,003 HEX 000,000,000,000,000 ; SMOKXPS EQU $ HEX 061,081,0A1 HEX 061,081,0A1 HEX 061,081,0A1 ; SMOKYPS EQU $ HEX 069,069,069 HEX 089,089,089 HEX 0A9,0A9,0A9 ; ; SMOKE00 EQU $ ;;;;;;; LDA KAMMD1 ;;;;;;; CLC ;;;;;;; ADC #00018 ; 中心＋半径 LDA KAMMD1 DEC A AND #0FFFCH LSR A LSR A CLC ADC #00017 STA X pos TAY SEC SBC X pos TYA CLC ADC X pos ; LDA !SMOKYPS,X AND #000FFH STA Y pos TAY SEC SBC Y pos TYA CLC ADC Y pos ; JSR SMOKEOM ; OAM set ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SMOKEOM ( WORLD 1 ババ抜き kemuri OAM set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMOKEOM EQU $ LDY OAMIDX ; LDA SOUND_3_ON ; [♪] サウンドセット INC KAMMD2 ; next mode (kamekku) ; KM2010 EQU $ JSR KMXSCLC JSR KMYSCLC JSR KMXPCLC JSR KMYPCLC ; JSR KAMOMST ; OAM set ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR KAMEM03 ( WORLD 1 ババ抜き カメック 右から左 ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx KAMEM03 EQU $ LDA ENXPSL+4 BPL KM3010 CMP #00000-02000H BCC KM3010 CMP #00000-01000H BCS KM3010 ; 消えた ？ ; : yes ; INC KAMMD2 ; next mode (kamekku) ;;;; LDX #00020H ;;;; STX BONSTM ;;;; INC BONSMD BRA KM3020 ; KM3010 EQU $ JSR KMXSCLC JSR KMYSCLC JSR KMXPCLC JSR KMYPCLC ; JSR KAMOMST ; OAM set ; KM3020 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMVDN ( WORLD 1 ババ抜き 精算ズームダウン ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ZOMDNCT EQU 00020H ; ズームダウン・カウント ZOMUPCT EQU 00010H ; ズームアップ・カウント ; ; ZOOMVDN EQU $ JSR EGGMOVE ; 卵 ＭＯＶＥ JSR SEIOAMSET ; OAM set ; LDA OPENCNT CMP #000C0H BNE ZMUP010 ; zoom down end ? ; : yes ; INC BONSMD ; next mode BRA ZMUP020 ; ZMUP010 EQU $ SEC SBC #ZOMDNCT STA OPENCNT ; ZMUP020 EQU $ JMP SEISZOOM ; ズームセット ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR ZOOMVUP ( WORLD 1 ババ抜き 精算ズームアップ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ZOOMVUP EQU $ JSR EGGMOVE ; 卵 ＭＯＶＥ ; LDA OPENCNT CMP #00100H BNE ZMDN020 ; zoom up end ? ; : yes ; JSR SEISRETN ; 精算カード 復元 ; LDA #00010*4+1 STA >MSG_RAM+2 ; message No. set !! INC MSGMOD LDA #BS1WN STA BONSMD ; next mode LDA #00001H STA BONSTM ; timer BRA ZMDN030 ; ZMDN020 EQU $ JSR SEIOAMSET ; OAM set LDA OPENCNT CLC ADC #ZOMUPCT STA OPENCNT ; ZMDN030 EQU $ JMP SEISZOOM ; ズームセット ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SEIOAMSET ( WORLD 1 ババ抜き 精算 OAM set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SEIOAMSET EQU $ PHY LDY !OAMIDX ;---- x position set ---- LDA !CARDXPOSDT+4 AND #000FFH STA !SOAM_DX,Y STA !SOAM_DX+16,Y CLC ADC #00010H STA !SOAM_DX+8,Y STA !SOAM_DX+24,Y ;---- y position set ---- LDA !CARDYPOSDT+4 AND #000FFH STA !SOAM_DX+2,Y STA !SOAM_DX+8+2,Y CLC ADC #00010H STA !SOAM_DX+16+2,Y STA !SOAM_DX+24+2,Y ;---- char number set ---- ;---- attribute set ---- LDA #039E8H ; pri(3),attribute(6) STA !SOAM_DX+4,Y INC A INC A STA !SOAM_DX+8+4,Y INC A INC A STA !SOAM_DX+16+4,Y INC A INC A STA !SOAM_DX+24+4,Y ;---- oamsub set ---- LDA #00002H STA !SOAM_DX+6,Y STA !SOAM_DX+8+6,Y STA !SOAM_DX+16+6,Y STA !SOAM_DX+24+6,Y ;---- oam index koshin ---- TYA CLC ADC #32 STA !OAMIDX PLY RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SEISZOOM ( WORLD 1 ババ抜き 精算 カードズーム ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** SEISZOOM_PAL EQU $ BYTE 000H*12,000H*12,006H*12 ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; ; SEISZOOM EQU $ STA R6 ; 倍率 LDA #00015H STA R1 ; CMODE NO. ; LDA #00012*10+9 ; IF PAL ;**** PAL 対応 [1995/08/02] ***************************** LDY !LNGG_SL CLC ADC SEISZOOM_PAL,Y AND #000FFH ENDIF ;**** PAL 対応 [1995/08/02] ***************************** ; STA R3 ; コース ＮＯ. ; I8 ; index 8bit mode ; M_CHIP MPAICNZM ; I16 ; index 16bit mode ; JSR BCOBJCHRDMA ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SEISERAS ( WORLD 1 ババ抜き 精算 カード消去 ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SEISERAS EQU $ LDA #00003H STA VRAMDX_ST ; PLA CLC ADC #00020H TAY DEC VRAMDX_ST ; PLA CLC ADC #00020H TAY PLA CLC ADC #00006H TAX DEC GGINIT0040] ; LDA #LOW GINTBLRM STA GGINIT0060] ; MI16 ; memory, index 16bit mode !! ; LDY #00006H GGINIT0080 EQU $ PHY LDA !GINTBLRM,Y AND #000FFH TAX LDA GINCHADTABLE+2,X AND #000FFH STA VRAMDX_ST ; PLA CLC ADC #3*2 TAX PLA CLC ADC #00020H TAY DEC RANDAM ; M8 ; memory 8bit mode !! ; LDA !KEYCOUNT BEQ GGM0010 ; key counter zero ? [yes->GGM0010] ; DEC !KEYCOUNT GGM0010 EQU $ M16 ; memory 16bit mode !! ; LDA !CRCXPS AND #000FFH CLC ADC #00014H STA GGM0020] ; JMP GGM0040 ; B,Y,A on ? [no->GGM0040] ; GGM0020 EQU $ LDA !GCSLNUM AND #000FFH TAX LDA !GOPENFLG,X AND #000FFH BEQ GGM0030 ; close ? [yes->GGM0030] ; LDA #soundcslhazure JSL >SOUND_3_ON ; サウンド セット！！ ; BRA GGM0040 ; close ? [no->GGM0040] ; GGM0030 EQU $ LDA #soundcslkettei JSL >SOUND_3_ON ; サウンド セット！！ ; LDY #PMIR1 STY !BSPLTP LDA PLTRNAR,Y JSR PAS050 ; MI8 ; memory, index 8bit mode !! ; LDA #018H STA !KEYCOUNT INC !GOPENFLG,X INC !BONSMD ; ;;;; LDA #g_democount ;;;; STA !GDEMOCNT ; JSL >RANDAM ; LDA !RANDM0 STA 4202H LDA #04 STA 4203H NOP NOP NOP NOP LDA 4217H ASL A TAX ; M16 ; memory 16bit mode !! ; LDY #00 LDA GINADDR,X STA SOUND_3_ON ; サウンド セット！！ ; BRA G_M20005 ; G_M20004 EQU $ DEC !KEYCOUNT G_M20005 EQU $ LDA !CRCXPS CLC ADC !GINXPOS+1 STA VRAMDX_ST ; PLA CLC ADC #30H TAY PLA CLC ADC #0200H TAX DEC G_M20010] ; MI8 ; memory, index 8bit mode !! ; LDY !GDEMOCNT LDA (G_M20040] ; LDA #090H LDX !GCSLNUM LDY !GINTBLRM,X BEQ G_M20018 ; はずれ？ [yes->G_M20018] ; LDA #08FH G_M20018 EQU $ JSL >SOUND_3_ON ; サウンド セット！！ ; INC !GINWRCNT LDA !GINWRCNT CMP #03 BNE G_M20020 ; [->G_M20020] ; INC !BONSMD BRA G_M20100 ; G_M20020 EQU $ DEC !BONSMD ; MI16 ; memory, index 16bit mode !! ; LDY #PWALK STY !BSPLTP LDA PLTRNAR,Y JMP PAS050 ;;;;;;;; BRA G_M20100 ; G_M20040 EQU $ JSR G_FINGERMV ; finger move !! ; G_M20100 EQU $ ; MI16 ; memory, index 16bit mode !! RTS ; ; G_MAIN3 EQU $ MI8 ; memory, index 8bit mode !! ; STZ !BABYCNT LDY #06 G_M30040 EQU $ LDA !GOPENFLG,Y BEQ G_M30080 ; ; LDA !GINTBLRM,Y BEQ G_M30080 ; ; INC !BABYCNT G_M30080 EQU $ DEY BPL G_M30040 ; baby count end ? [no->G_M30040] ; LDY !BABYCNT LDA G_UPSUU,Y STA !SLCOIN STZ !SLCOIN+1 LDA G_TIMEL,Y STA !BONSTM LDA G_TIMEH,Y STA !BONSTM+1 STZ G_M300C0] ; PHY JSL >SOUND_3_ON ; サウンド セット！！ PLY ; BRA G_M300D0 ; [->G_M300D0] ; G_M300C0 EQU $ STA !SOUND_0 G_M300D0 EQU $ INC !BONSMD ; MI16 ; memory, index 16bit mode !! ; TYA ASL A TAY LDA G_YOSSY,Y STA !BSPLTP TAY LDA PLTRNAR,Y JMP PAS050 ; G_M30100 EQU $ MI16 ; memory, index 16bit mode !! ; RTS ; ; G_UPSUU EQU $ BYTE 0, 1, 2, 5 ;[1995.04.27.TH] BYTE 0, 1, 2, 9 ; G_SOUND EQU $ HEX 7D, 05, 05, 05 ; G_YOSSY EQU $ WORD PTAOR, PYORO, PYORO, PYORO ; G_TIMEL EQU $ BYTE LOW (g_flushtimer*24), LOW (g_flushtimer*24) BYTE LOW (g_flushtimer*24), LOW (g_flushtimer*24) ;[1995.04.27.TH] BYTE LOW (g_flushtimer*64), LOW (g_flushtimer*100) ;[1995.04.27.TH] BYTE LOW (g_flushtimer*100), LOW (g_flushtimer*200) ; G_TIMEH EQU $ BYTE HIGH (g_flushtimer*24), HIGH (g_flushtimer*24) BYTE HIGH (g_flushtimer*24), HIGH (g_flushtimer*24) ;[1995.04.27.TH] BYTE HIGH (g_flushtimer*64), HIGH (g_flushtimer*100) ;[1995.04.27.TH] BYTE HIGH (g_flushtimer*100), HIGH (g_flushtimer*200) ; BONUSPLAYERUP EQU $ LDA !BONSTM BEQ BPU0040 ; [->BPU0040] ; DEC !BONSTM BRA BPU0100 ; ; BPU0040 EQU $ LDA !SLCOIN BNE BPU0060 ; count end ? [no->BPU0060] ; BPU0050 EQU $ LDA #g_lastcnt STA !BONSTM INC !BONSMD BRA BPU0100 ; BPU0060 EQU $ LDY !PLCONT CPY #999 BEQ BPU0050 ; player max ? [yes->BPU0050] ; PHA LDA #008H JSL >SOUND_3_ON ; サウンド セット！！（１ｕｐ） PLA ; LDY #30H STY !BONSTM CMP #111 BCS BPU00C0 ; !SLCOIN < 111 [no->BPU00C0] ; CMP #11 BCS BPU00A0 ; !SLCOIN < 11 [no->BPU00A0] ; INC !PLCONT JSR PLCNTST ; BPU0080 EQU $ DEC !SLCOIN BRA BPU0100 ; BPU00A0 EQU $ LDA !PLCONT CLC ADC #10 CMP #1000 BCC BPU00B0 ; !PLCONT < 1000 [yes->BPU00B0] ; LDA #999 BPU00B0 EQU $ STA !PLCONT JSR PLCNTST ; LDA !SLCOIN SEC SBC #10 STA !SLCOIN BRA BPU0100 ; BPU00C0 EQU $ LDA !PLCONT CLC ADC #100 CMP #1000 BCC BPU00D0 ; !PLCONT < 1000 [yes->BPU00D0] ; LDA #999 BPU00D0 EQU $ STA !PLCONT JSR PLCNTST ; LDA !SLCOIN SEC SBC #100 STA !SLCOIN BPU0100 EQU $ RTS ; ; BONUSPLAYERDOWN EQU $ LDA !BONSTM BEQ BPD0040 ; bonus timer dec ? [no->BPD0040] ; DEC !BONSTM JMP BPD0100 ; BPD0040 EQU $ LDA !PLCONT BEQ BPD0060 ; player down cound end ? [yes->BPD0060] ; LDA !SLCOIN BNE BPD0080 ; player down cound end ? [no->BPD0080] ; BPD0060 EQU $ LDA #g_lastcnt STA !BONSTM INC !BONSMD BRA BPD0100 ; BPD0080 EQU $ ;;;; LDY #soundplayerdown ;;;; STY !SOUND3 LDY #30H STY !BONSTM CMP #111 BCS BPD00C0 ; !SLCOIN < 111 [no->BPD00C0] ; CMP #11 BCS BPD00A0 ; !SLCOIN < 11 [no->BPD00A0] ; LDA !PLCONT DEC A CMP #01 BPL BPD0090 ; プレイヤー ＜ １？ [no->BPD0090] ; LDA #01 BPD0090 EQU $ STA !PLCONT JSR PLCNTST ; DEC !SLCOIN BRA BPD0100 ; BPD00A0 EQU $ LDA !PLCONT SEC SBC #10 CMP #01 BPL BPD00B0 ; プレイヤー ＜ １？ [no->BPD00B0] ; LDA #01 BPD00B0 EQU $ STA !PLCONT JSR PLCNTST ; LDA !SLCOIN SEC SBC #10 STA !SLCOIN BRA BPD0100 ; BPD00C0 EQU $ LDA !PLCONT SEC SBC #100 CMP #01 BPL BPD00D0 ; プレイヤー ＜ １？ [no->BPD00D0] ; LDA #01 BPD00D0 EQU $ STA !PLCONT JSR PLCNTST ; LDA !SLCOIN SEC SBC #100 STA !SLCOIN BPD0100 EQU $ RTS ; ; G_CURSOLMV EQU $ MI8 ; memory, index 8bit mode !! ; LDA !KEYA2 AND #00001111B BEQ GCSLMV0040 ; up or down or left or right key press ? ; ; [no->GCSLMV0040] LDY #keycount0 BRA GCSLMV0050 ; GCSLMV0040 EQU $ LDY !KEYCOUNT BNE GCSLMV0100 ; key check ? [no->GCSLMV0100] ; LDY #keycount1 GCSLMV0050 EQU $ STY !KEYCOUNT LDA !KEYA1 AND #00001111B BNE GCSLMV0080 ; up or down or left or right key press ? ; ; [no->GCSLMV0080] BRA GCSLMV0100 ; GCSLMV0080 EQU $ PHA AND #00000011B TAY LDA !GCSLNUM CLC ADC GCSLXADD,Y BPL GCSLMV0090 ; area over ? [no->GCSLMV0090] ; LDA #6 BRA GCSLMV00A0 ; GCSLMV0090 EQU $ CMP #6+1 BCC GCSLMV00A0 ; area over ? [no->GCSLMV00A0] ; LDA #0 GCSLMV00A0 EQU $ STA !GCSLNUM TAY PLA LSR A LSR A BIT #00000001B BEQ GCSLMV00B0 ; down on ? [no->GCSLMV00B0] ; TYA CLC ADC GCSLYADDDOWN,Y BRA GCSLMV00C0 ; GCSLMV00B0 EQU $ BIT #00000010B BEQ GCSLMV00D0 ; down on ? [no->GCSLMV00D0] TYA CLC ADC GCSLYADDUP,Y GCSLMV00C0 EQU $ STA !GCSLNUM TAY GCSLMV00D0 EQU $ LDA GCSLXPOS,Y STA !CRCXPS LDA GCSLYPOS,Y STA !CRCYPS LDA #soundcslmove JSL >SOUND_3_ON ; サウンド セット！！ ; GCSLMV0100 EQU $ MI16 ; memory, index 16bit mode !! RTS ; ; MEM8 IDX8 ; G_FINGERMV EQU $ M16 ; memory 16bit mode !! ; LDA (G_FIN0080] ; EOR R1 BPL G_FIN00C0 ; [->G_FIN00C0] ; LDA (G_FIN00A0] ; EOR R2 BPL G_FIN00C0 ; [->G_FIN00C0] ; LDA (G_FL0020] ; ;;;;;;;; LDA #0002AH ;;;;;;;; STA !SOUND3 LDA !BONSTM BEQ G_FL0010 ; DEC !BONSTM RTS ; ; G_FL0010 EQU $ LDA #g_lastcnt STA !BONSTM INC !BONSMD BRA G_FL0028 ; G_FL0020 EQU $ DEC A ASL A TAY LDA !BONSTM BNE G_FL0030 ; ; LDA #00020H STA !BONSTM JSR G_FLSRC ; G_FL0028 EQU $ INC !BONSMD RTS ; ; G_FL0030 EQU $ DEC !BONSTM LDA VRAMDX_ST ; PLA CLC ADC #00020H TAY PLA CLC ADC #(G_9UPH-G_CLR) TAX LDA #(G_9UPH-G_CLR) JSL >VRAMDX_ST ; RTS ; ; G_FLCLR EQU $ LDA #BANK G_CLR STA VRAMDX_ST ; PLA CLC ADC #00020H TAY PLX LDA #(G_9UPH-G_CLR) JSL >VRAMDX_ST ; RTS ; ; ;------------------------------------------------------------------------ ;- randam table set - ;- (Y) <- kazu(01H - 1FH) - ;- WORK0 - 1F <- set number - ;- WORK2D,2E <- table ram address - ;------------------------------------------------------------------------ RANDTBLSET EQU $ PHP MI8 ; memory, index 8bit mode !! ; RANDTBLST00 EQU $ JSL >RANDAM ; LDA !RANDM0 STA 4202H TYA INC A STA 4203H NOP NOP NOP NOP LDX 4217H LDA RANDTBLST80] ; LDA RANDTBLST00] ; LDA -------------------------------------------- ; LDA SLTYSD+0 BNE SLKS005 ; イニシャル ？ ; : yes LDX #PMIR2 STX BSPLTP ; player type set !! LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 BRA SLKS010 ; ;-----< 終了 チェック >-------------------------------------------------- ; SLKS005 EQU $ CMP #KIHNSPD BNE SLKS010 ; スピード ＯＫ ？ ; : yes ; INC BONSMD ; next mode !! BRA SLKS020 ; ;-----< 加速 メイン >---------------------------------------------------- ; SLKS010 EQU $ CLC ADC #SKASOKU STA SLTYSD+0 STA SLTYSD+2 STA SLTYSD+4 ; SLKS020 EQU $ JSR SLOTYCL ; y postion clc JSR SLOTPCK ; position check JSR TUGIYPC ; tsugime position check ;;;;;;; JSR SLOTHAD ; 『手』セット JSR SLOTCST ; character set ; ;------------------------------------------------------------------------ ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTMIN ( WORLD 3 スロット メイン ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTMIN EQU $ ; ;-----< 終了 チェック >-------------------------------------------------- ; LDA SLTYSD+0 ORA SLTYSD+2 ORA SLTYSD+4 BNE SLMN010 ; 全 リール ＳＴＯＰ ？ ; : yes ; JSR COINCNT ; 当り チェック ; ;**1994/07/18** LDA SLCOIN ;**1994/07/18** STA ------------------------------------------------ ; SLMN010 EQU $ JSR SLOTSTP ; stop JSR SLOTYSC ; y speed clc JSR SLOTYCL ; y postion clc JSR SLOTPCK ; position check JSR TUGIYPC ; tsugime position check JSR SLOTHAD ; hand set SLMN020 EQU $ JSR SLOTCST ; character set ; ;------------------------------------------------------------------------ ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTYCL ( WORLD 3 スロット ボタン チェック ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTSTP EQU $ MI8 ; memory index 8bit mode !! ; LDA SLPUSH+0 BEQ SLST005 LDA SLPUSH+1 BEQ SLST005 LDA SLPUSH+2 BNE SLST090 ; 全 ボタン 押した ？ ; : no ; SLST005 EQU $ ; ;-----< カーソル 移動 >-------------------------------------------------- ; LDA SLOTPS STA SOUND_3_ON ; [♪] サウンドセット BRA SLST090 ; ; ;-----< (A),(B),(Y) ボタン >--------------------------------------------- ; SLST040 EQU $ LDA KEYA2 AND #11000000B BNE SLST050 ; (B),(Y) ボタン ＯＮ ？ ; : yes LDA KEYA2L AND #10000000B BEQ SLST090 ; (A) ボタン ＯＮ ？ ; : yes SLST050 EQU $ LDX SLOTPS LDA SLPUSH,X BNE SLST090 ; フラグ ＯＮ ; : no INC SLPUSH,X ; JSR SLOTMSP ; タイム ＆ スピード セット ; LDA #033H JSL >SOUND_3_ON ; [♪] サウンドセット ; MI16 ; memory index 16bit mode !! JSR PUSHBOT ; ボタン 書き換え MI8 ; memory index 8bit mode !! ; LDX SLOTPS SLST051 EQU $ INX CPX #003 BNE SLST052 ; LDX #000 SLST052 EQU $ CPX SLOTPS BEQ SLST090 LDA SLPUSH,X BNE SLST051 ; 押してある ？ ; : no STX SLOTPS ; ; ;------------------------------------------------------------------------ ; SLST090 EQU $ MI16 ; memory index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTMSP ( WORLD 3 スロット タイム ＆ スピード ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; ;=====< 減速バージョン >================================================= ; SLOTTIM EQU $ HEX 002,004,006,008,00A,00C SLOTTED EQU $ SLTMCNT EQU SLOTTED-SLOTTIM ; KIHNSPD EQU 00380H ; 基本スピード SLOTSPD EQU $ WORD KIHNSPD - (KIHNSPD>>3) ; 00380H WORD KIHNSPD - (KIHNSPD>>2) ; 00300H WORD KIHNSPD/2 + (KIHNSPD>>3) ; 00280H WORD KIHNSPD/2 ; 00200H WORD KIHNSPD/2 - (KIHNSPD>>3) ; 00180H WORD KIHNSPD/4 ; 00100H ; ;=====< スロットバージョン >============================================= ; ;;;;SLOTTIM EQU $ ;;;; HEX 001,001,001,001,001,001 ;;;;SLOTTED EQU $ ;;;;SLTMCNT EQU SLOTTED-SLOTTIM ;;;;; ;;;;KIHNSPD EQU 00400H ; 基本スピード ;;;;SLOTSPD EQU $ ;;;; WORD KIHNSPD ;;;; WORD KIHNSPD ;;;; WORD KIHNSPD ;;;; WORD KIHNSPD ;;;; WORD KIHNSPD ;;;; WORD KIHNSPD ; ; ＊ 注意 ; << SLOTPCK >> の BNE SLCK020 を ; BCC SLCK020 にする ; ;======================================================================== ; ; SLOTMSP EQU $ MI8 ; memory,index 8bit mode !! ; INC SLTSTP,X ; LDY SLTSTP,X DEY LDA !SLOTTIM,Y STA SLTTIM,X ; timer set ; M16 ; memory 16bit mode !! ; TXA ASL A TAY LDA SLTSTP,X DEC A ASL A TAX LDA !SLOTSPD,X STA SLTYSD,Y ; y speed set ; M8 ; memory 8bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTYSC ( WORLD 3 スロット Ｙ スピード セット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTYSC EQU $ MI8 ; memory,index 8bit mode !! ; LDX #002 SLYS010 EQU $ LDA SLTSTP,X BEQ SLYS050 ; 押された ？ ; : yes DEC SLTTIM,X BPL SLYS050 ; タイマー "０" ？ ; : yes LDA SLTSTP,X CMP #SLTMCNT BEQ SLYS050 ; リール ＳＴＯＰ ？ ; : no ; PHX ; (X) push ; JSR SLOTMSP ; タイム ＆ スピード セット ; PLX ; (X) pull ; SLYS050 EQU $ DEX BPL SLYS010 ; MI16 ; memory,index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTYCL ( WORLD 3 スロット Ｙ ｐｏｓ 計算 ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTYCL EQU $ LDX #00004 SLYC010 EQU $ LDA SLTYPS,X CLC ADC SLTYSD,X STA SLTYPS,X LDA TUGIYP,X CLC ADC SLTYSD,X STA TUGIYP,X DEX DEX BPL SLYC010 ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTPCK ( WORLD 3 スロット Ｙ ｐｏｓ チェック ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTPCK EQU $ MI8 ; memory index 8bit mode !! ; LDX #002 SLCK010 EQU $ TXA ASL A TAY LDA SLTYPS+1,Y CMP #058H BNE SLCK020 ; "stop" position over ? ; : yes LDA SLTSTP,X CMP #SLTMCNT BCC SLCK020 ; リール ストップ ？ ; : yes LDA SLTTIM,X BPL SLCK020 ; タイマー "０" ？ ; : yes ; M16 ; memory 16bit mode !! ; LDA #00000H STA SLTYSD,Y ; y speed clear LDA #05800H STA SLTYPS,Y ; "reel" y position LDA #05000H STA TUGIYP,Y ; "tsugime" y position ; M8 ; memory 8bit mode !! ; ;;;;;; JSR SLOTIXP ; next set ; BRA SLCK030 ; ; SLCK020 EQU $ LDA SLTYPS+1,Y CMP #068H ; #060H BCC SLCK030 ; "change" position over ? ; : yes LDA #006H JSL >SOUND_3_ON ; [♪] サウンドセット ; JSR SLOTIXP ; next set ; TXA ASL A TAY LDA SLTYPS+1,Y SEC SBC #020H ; #018H STA SLTYPS+1,Y ; y pos reset ; SLCK030 EQU $ DEX BPL SLCK010 ; MI16 ; memory,index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTIXP ( WORLD 3 スロット ｎｅｘｔ ポイント ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLOTIXP EQU $ MI8 ; memory,index 8bit mode !! ; LDA SLTIDX,X CLC ADC #001 AND #007 STA SLTIDX,X ; next index set ; TXA ASL A ASL A TAY LDA SLOT00+2,Y STA SLOT00+3,Y LDA SLOT00+1,Y STA SLOT00+2,Y LDA SLOT00+0,Y STA SLOT00+1,Y ; PHY ; (Y) push TXA ASL A ASL A ASL A CLC ADC SLTIDX,X TAY LDA !STOTTBL,Y PLY ; (Y) pull STA SLOT00+0,Y ; ;;;;;;; MI16 ; memory,index 16bit mode !! ; RTS ; ; ; MEM16 IDX16 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLOTCST ( WORLD 3 スロット キャラクターセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CHERY EQU 0 ; チェリー TAMGO EQU 1 ; 卵 HEIHO EQU 2 ; ヘイホー HOSHI EQU 3 ; スター SUIKA EQU 4 ; スイカ SEVEN EQU 5 ; ７ ; ; STOTTBL EQU $ BYTE CHERY,TAMGO,HEIHO,HOSHI,SUIKA,SEVEN,CHERY,TAMGO ; 左リール BYTE TAMGO,CHERY,HOSHI,SUIKA,SEVEN,CHERY,TAMGO,HEIHO ; 中リール BYTE HEIHO,HOSHI,SUIKA,SEVEN,CHERY,TAMGO,HEIHO,HOSHI ; 右リール ; SLOTXPS EQU $ WORD 00030H,00038H,00040H,00030H WORD 00050H,00058H,00060H,00050H WORD 00070H,00078H,00080H,00070H ; SLOTCDT EQU $ WORD 02100H,02100H+011H,02100H+002H,02100H+020H ; チェリー WORD 02103H,02103H+011H,02103H+002H,02103H+020H ; 卵 WORD 02106H,02106H+011H,02106H+002H,02106H+020H ; ヘイホー WORD 02133H,02133H+011H,02133H+002H,02133H+020H ; スター WORD 02136H,02136H+011H,02136H+002H,02136H+020H ; スイカ WORD 02130H,02130H+011H,02130H+002H,02130H+020H ; ７ ; ; SLOTCST EQU $ LDY OAMIDX LDA #00000 STA -------------------------------------------------- ; LDA -------------------------------------------------- ; LDA ----------------------------------------- ; LDA --------------------------------------------------- ; LDA #00002 STA SOAM_DX+06H,Y STA SOAM_DX+0EH,Y STA SOAM_DX+26H,Y STA SOAM_DX+2EH,Y STA SOAM_DX+46H,Y STA SOAM_DX+4EH,Y ;;;;;;; STA SOAM_DX+66H,Y ;;;;;;; STA SOAM_DX+6EH,Y LDA #00000 STA SOAM_DX+16H,Y STA SOAM_DX+1EH,Y STA SOAM_DX+36H,Y STA SOAM_DX+3EH,Y STA SOAM_DX+56H,Y STA SOAM_DX+5EH,Y ;;;;;;; STA SOAM_DX+76H,Y ;;;;;;; STA SOAM_DX+7EH,Y ; ;------------------------------------------------------------------------ ; INC SOUND_3_ON ; [♪] サウンドセット ; MI16 LDX #PTAOR STX BSPLTP ; player type set !! ; COIN090 EQU $ LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLTCOIN ( WORLD 3 スロット プレイヤー アップ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLTCOIN EQU $ DEC BONSTM BNE SLCN090 ; timer "0" ? ; : yes ; ;-----< スロット 終了チェック >------------------------------------------ ; LDA SLCOIN AND #000FFH BNE SLCN010 ; ;;;;;; JSR SLOTIT0 ; イニシャル ; ;;;;;; LDA #SLTIN ; next mode ;;;;;; STA BONSMD ; SLCN005 EQU $ LDA #00080H ; timer STA BONSTM INC BONSMD ; next mode ; BRA SLCN090 ; ; ;-----< プレイヤーカウント アップ >-------------------------------------- ; SLCN010 EQU $ LDA PLCONT CMP #999 BEQ SLCN005 ;[1994/08/30] BNE SLCN020 ;[1994/08/30]; ;[1994/08/30] M8 ; memory 8bit mode !! ;[1994/08/30] STZ SLCOIN ;[1994/08/30] M16 ; memory 16bit mode !! ;[1994/08/30] BRA SLCN090 ; SLCN020 EQU $ DEC SLCOIN INC !PLCONT JSR PLCNTST ; プレイヤー アップ ; M8 ; memory 8bit mode !! LDA #008H JSL >SOUND_3_ON ; [♪] サウンドセット M16 ; memory 16bit mode !! ; LDA #00030H STA BONSTM ; ;------------------------------------------------------------------------ ; SLCN090 EQU $ ;[1995/06/12] JSR SLOTHAD ; 『手』セット JSR SLOTCST ; スロット キャラクターセット ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR TUGICST ( WORLD 3 スロット 継ぎ目セット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TSUGIXP EQU $ WORD 00030H WORD 00050H WORD 00070H ; TSGICDT EQU 02D68H ; ; TUGICST EQU $ LDY OAMIDX LDA #00000 STA -------------------------------------------------- ; LDA -------------------------------------------------- ; LDA ----------------------------------------- ; LDA #TSGICDT STA SOAM_DX+04H,Y ; １個目 STA SOAM_DX+0CH,Y STA SOAM_DX+14H,Y STA SOAM_DX+1CH,Y ; ２個目 STA SOAM_DX+24H,Y STA SOAM_DX+2CH,Y STA SOAM_DX+34H,Y ; ３個目 STA SOAM_DX+3CH,Y STA SOAM_DX+44H,Y ; ; ;-----< ＯＡＭＳＵＢ >--------------------------------------------------- ; LDA #00000 STA SOAM_DX+06H,Y STA SOAM_DX+0EH,Y STA SOAM_DX+16H,Y STA SOAM_DX+1EH,Y STA SOAM_DX+26H,Y STA SOAM_DX+2EH,Y STA SOAM_DX+36H,Y STA SOAM_DX+3EH,Y STA SOAM_DX+46H,Y ; ;------------------------------------------------------------------------ ; INC VRAMD TAX ; LDA !BOTNADR,Y STA >VRAMD+2,X CLC ADC #00020H STA >VRAMD+12,X ; LDA #00003H*2-1 STA >VRAMD+4,X STA >VRAMD+14,X ; LDA #BOTCHUP STA >VRAMD+6,X INC A STA >VRAMD+8,X INC A STA >VRAMD+10,X LDA #BOTCHDN STA >VRAMD+16,X INC A STA >VRAMD+18,X INC A STA >VRAMD+20,X ; LDA #0FFFFH STA >VRAMD+22,X ; TXA CLC ADC #00020 STA >VRAMD ; FLASHEND EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SLFLASH ( WORLD 3 スロット 当たり フラッシュ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SLFLASH EQU $ ;[1995/06/12] JSR SLOTHAD ; 『手』セット JSR SLOTCST ; スロット キャラクターセット ; DEC FLASHTM BPL SLFL010 ; timer end ? ; : yes LDA #00001H STA BONSTM INC BONSMD RTS ; ; SLFL010 EQU $ LDA SLCOIN AND #000FFH DEC A ASL A TAX JMP (!FLASHADR,X) ; FLASHADR EQU $ WORD FLASH01 ; 1 up（heiho,star,suika） WORD FLASH00 ; 2 up (cherry) WORD FLASH00 ; 3 up (egg) WORD FLASHEND ; dummy WORD FLASH00 ; 5 up (seven) ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR FLASH00 ( WORLD 3 スロット フラッシュ ＜１＞ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ATARAD0 EQU $ WORD 001F3H+bg1_adrs ; cherry WORD 001B3H+bg1_adrs ; egg WORD 00173H+bg1_adrs ; seven ; ATARDT0 EQU $ WORD 00000H ; nuki WORD 02CFCH ; beta ; ; FLASH00 EQU $ LDA SLCOIN AND #000FFH SEC SBC #00002 CMP #00003 BNE FLSH010 ; DEC A FLSH010 EQU $ ASL A TAY ; LDA >VRAMD TAX ; LDA !ATARAD0,Y STA >VRAMD+2,X CLC ADC #00020H STA >VRAMD+8,X ; LDA #00007H*2 ORA #04000H STA >VRAMD+4,X STA >VRAMD+10,X ; LDA FLASHTM AND #00004H LSR A TAY LDA !ATARDT0,Y STA >VRAMD+6,X STA >VRAMD+12,X ; LDA #0FFFFH STA >VRAMD+14,X ; TXA CLC ADC #00012 STA >VRAMD ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR FLASH01 ( WORLD 3 スロット フラッシュ ＜２＞ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ATARAD1 EQU 00233H+bg1_adrs ; heiho,star,suika ; ; FLASH01 EQU $ LDA >VRAMD TAX ; LDA #ATARAD1 STA >VRAMD+2,X CLC ADC #00020H STA >VRAMD+8,X CLC ADC #00020H STA >VRAMD+14,X CLC ADC #00020H STA >VRAMD+20,X CLC ADC #00020H STA >VRAMD+26,X ; LDA #00007H*2 ORA #04000H STA >VRAMD+4,X STA >VRAMD+10,X STA >VRAMD+16,X STA >VRAMD+22,X STA >VRAMD+28,X ; LDA FLASHTM AND #00004H LSR A TAY LDA !ATARDT0,Y STA >VRAMD+6,X STA >VRAMD+12,X STA >VRAMD+18,X STA >VRAMD+24,X STA >VRAMD+30,X ; LDA #0FFFFH STA >VRAMD+32,X ; TXA CLC ADC #00030 STA >VRAMD ; RTS ; ; ; ; ; ; ; ; ; ; ; ;============== ＷＯＲＬＤ　４ ========================================== ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR SUZIMOV ( WORLD 4 数字当て move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx MEM16 IDX16 ; ; SUZIMOV EQU $ LDA BONSMD ASL A TAX JMP (!SUZIADR,X) ; ; SUZIADR EQU $ WORD TIMEDEC ; 0 timer dec. set sub !! WORD WINDOPN ; 1 window open sub !! WORD TIMDEC0 ; 2 timer dec. set sub !! WORD MSWINOP ; 3 messege window open sub !! WORD WINCLSB ; 4 window color sub !! WORD SCRDOWN ; 5 screen down move sub !! WORD SCRYURE ; 6 screen yure sub !! WORD TIMDEC2 ; 7 timer dec. set sub !! WORD B4MAIN ; 8 bonus 4 main plogram BS4MAP WORD MODEMAP ; 9 map initial mode set sub !! ; ; BS4MP EQU (BS4MAP-SUZIADR)/2 ; ; ;************************************************************************ ;* bonus 4 Main Program * ;************************************************************************ B4MAINPL EQU $ MP00 BYTE LOW BETSET ; 0 : bet set MP01 BYTE LOW ROLTPL ; 1 : roolet play MP02 BYTE LOW RESULT ; 2 : ke_kka MP03 BYTE LOW PLYINC ; 3 : player inc ; ; B4MAINPH EQU $ BYTE HIGH BETSET BYTE HIGH ROLTPL BYTE HIGH RESULT BYTE HIGH PLYINC ; ; B4MAINPB EQU $ BYTE BANK BETSET BYTE BANK ROLTPL BYTE BANK RESULT BYTE BANK PLYINC ; ; ; ; BETST EQU (MP00-MP00) ROLPL EQU (MP01-MP00) RESLT EQU (MP02-MP00) PLINC EQU (MP03-MP00) ; B4MAIN EQU $ ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSL >B4MAIN_P ; JSR RLTFSSB MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; RTS ; MEM8 IDX8 ; B4MAIN_P EQU $ ; LDX !SLMODE LDA >B4MAINPL,X STA B4MAINPH,X STA B4MAINPB,X STA = bet count ? ;;;; ; no ;;; MEM8 ;;; SEP #00100000B ; memory 8bit mode ;;;; ;;;; RTL ;;;BST005 EQU $ ; MEM8 SEP #00100000B ; memory 8bit mode ; ;;; LDA !BETCNT ;;; BEQ BSTEND ; no bet ? ; ; no ;;; STA !WAITCNT ; wait counter set ;;; STZ !WAITCNT+1 ; LDA #ROLPL STA !SLMODE ; player dec mode set ; LDA #01CH ; ♪ サウンドセット (決定ボタン音) JSL >SOUND_3_ON ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #PMIR2 STA !BSPLTP ; プレイヤー 見るポーズ セット TAY LDA !PLTRNAR,Y JSR PAS050 ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; JSR BETDSP1 ; bet display 1 RTL ; BST010 EQU $ AND #00001100B BNE BST050 ; push up or down key ? ; ; no LDA SOUND_3_ON ;NOM; LDA #006H ;NOM; STA SOUND_3_ON ;NOM; LDA #02AH ;NOM; STA JSRSUB ; ; RSOMD0 WORD KEKADSP ; 0 : ke_kka display RSOMD1 WORD DAMMY ; 1 : dammy ; ; KADSP EQU (RSOMD0-RSOMD0)/2 EDDSP EQU (RSOMD1-RSOMD0)/2 ; ; ;################################################################################ ;# bet player hyo_u_ji bg data 1 (result) # ;################################################################################ BETDAT1 EQU $ HEX F5,39,03,00 WORD 02CFCH,02CFCH ; HEX 15,3A,03,00 WORD 02CFCH,02CFCH ; WORD 0FFFFH BETDT1E EQU $ ; ;################################################################################ ;# bet player hyo_u_ji bg out 1 (result) # ;################################################################################ BETDSP1 EQU $ ; LDA !BETCNT STA VRAMD CLC ADC #(BETDT1E-BETDAT1)-1 TAX ; vramd address set DEC A STA >VRAMD LDY #(BETDT1E-BETDAT1)-1 ; MEM8 SEP #00100000B ; memory 8bit mode ; BDS1200 EQU $ LDA BETDAT1,Y STA >VRAMD+2,X ; hi low ko_su_u data set DEX DEY BPL BDS1200 ; base data set end ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA >VRAMD SEC SBC #00CH TAX ; LDY VRAMD+2,X ; charcter No. set ; BDS1210 EQU $ LDY VRAMD+4,X ; charcter No. set ; ; ; LDA >VRAMD SEC SBC #004H TAX ; LDY VRAMD+2,X ; charcter No. set ; BDS1220 EQU $ LDY VRAMD+4,X ; charcter No. set ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; DAMMY EQU $ RTS ; ;################################################################################ ;# marker hyo_u_ji bg out # ;################################################################################ MRKDAT EQU $ HEX F7,39,01,00 WORD 02CFCH ; HEX 17,3A,01,00 WORD 02CFCH ; WORD 0FFFFH MRKDTE EQU $ ; ; MRKCHR EQU $ (up) ; + * WORD 03EF8H,03EF6H ; MRKCHR1 EQU $ (down) WORD 03EF9H,03EF7H ;################################################################################ ;# marker hyo_u_ji bg out (result) # ;################################################################################ MARKDSP EQU $ ; PHX ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA >VRAMD CLC ADC #(MRKDTE-MRKDAT)-1 TAX ; vramd address set DEC A STA >VRAMD LDY #(MRKDTE-MRKDAT)-1 ; MEM8 SEP #00100000B ; memory 8bit mode ; MKDS010 EQU $ LDA MRKDAT,Y STA >VRAMD+2,X ; hi low ko_su_u data set DEX DEY BPL MKDS010 ; base data set end ? ; ; yes LDA !PWORK0 ; left roolet stop data index TAY LDA LMARKDT,Y ; X or + data set ASL A TAY ; charcter index set (MRKCHR,MRKCHR1) ; MEM16 REP #00100000B ; memory 16bit mode ; LDA >VRAMD SEC SBC #008H TAX ; LDA MRKCHR,Y STA >VRAMD+2,X ; charcter No. set ; ; LDA >VRAMD SEC SBC #002H TAX ; LDA MRKCHR1,Y STA >VRAMD+2,X ; charcter No. set ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLX ; RTS ; ;################################################################################ ;# a_ta_i hyo_u_ji bg out (result) # ;################################################################################ ATIDAT EQU $ HEX F8,39,01,00 WORD 02CFCH ; HEX 18,3A,01,00 WORD 02CFCH ; WORD 0FFFFH ATIDTE EQU $ ; ;################################################################################ ;# a_ta_i hyo_u_ji bg out (result) # ;################################################################################ ATAIDSP EQU $ ; PHX ; STZ VRAMD CLC ADC #(ATIDTE-ATIDAT)-1 TAX ; vramd address set DEC A STA >VRAMD LDY #(ATIDTE-ATIDAT)-1 ; MEM8 SEP #00100000B ; memory 8bit mode ; ATDS010 EQU $ LDA ATIDAT,Y STA >VRAMD+2,X ; hi low ko_su_u data set DEX DEY BPL ATDS010 ; base data set end ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA >VRAMD SEC SBC #008H TAX ; LDY VRAMD+2,X ; charcter No. set ; ; LDA >VRAMD SEC SBC #002H TAX ; LDA NUMBERLOW,Y ORA #00C00H ; white color atribute set STA >VRAMD+2,X ; charcter No. set ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLX ; RTS ; ;################################################################################ ;# ke_kka hyo_u_ji bg out (result) # ;################################################################################ KEKADAT EQU $ HEX 35,3A,09,00 WORD 02CFCH,02CFCH,02CFCH,03E9CH,03E9DH ; HEX 55,3A,09,00 WORD 02CFCH,02CFCH,02CFCH,03E9EH,03E9FH ; WORD 0FFFFH KEKADTE EQU $ ; ; ;################################################################################ ;# game total player hyo_u_ji bg out # ;################################################################################ KEKADSP EQU $ JSR RSLSUB ; ke_kka comp sub ; LDA !TOTLCNT STA VRAMD CLC ADC #(KEKADTE-KEKADAT)-1 TAX ; vramd address set DEC A STA >VRAMD LDY #(KEKADTE-KEKADAT)-1 ; MEM8 SEP #00100000B ; memory 8bit mode ; KADS010 EQU $ LDA KEKADAT,Y STA >VRAMD+2,X ; hi low ko_su_u data set DEX DEY BPL KADS010 ; base data set end ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDA >VRAMD SEC SBC #018H TAX ; LDY VRAMD+2,X ; charcter No. set ; KADS020 EQU $ ; LDY VRAMD+4,X ; charcter No. set ; KADS030 EQU $ ; LDY VRAMD+2+4,X ; charcter No. set ; ; LDA >VRAMD SEC SBC #00AH TAX ; LDY VRAMD+2,X ; charcter No. set ; KADS040 EQU $ ; LDY VRAMD+2+2,X ; charcter No. set ; KADS050 EQU $ ; LDY VRAMD+2+4,X ; charcter No. set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; RTS ; ;;;;################################################################################ ;;;;# result bg clear data # ;;;;################################################################################ ;;;BGCLDAT EQU $ ;;;;;; HEX 39,D4,00,0C ;;;;;;; HEX D4,39,0B,00 ;;;;;;; WORD 0207DH,0207DH,0207DH,0207DH,0207DH,0207DH ;;;;;;;; ;;;;;; HEX 39,F4,00,0C ;;;;;;; HEX F4,39,0B,00 ;;;;;;; WORD 0207DH,0207DH,0207DH,0207DH,0207DH,0207DH ;;;;;;;; ;;;;;; HEX 3A,15,00,0A ;;;;;;; HEX 15,3A,09,00 ;;;;;;; WORD 0207DH,0207DH,0207DH,0207DH,0207DH ;;;;;;;; ;;;;;; HEX 3A,35,00,0A ;;;;;;; HEX 35,3A,09,00 ;;;;;;; WORD 0207DH,0207DH,0207DH,0207DH,0207DH ;;;; ;;;; ;;;; ;;;;;; HEX 3A,15,00,0A ;;; HEX 14,3A,0B,00 ;;; WORD 02CFCH,02CFCH,02CFCH,02CFCH,02CFCH,02CFCH ;;;; ;;;;;; HEX 3A,35,00,0A ;;; HEX 34,3A,0B,00 ;;; WORD 02CFCH,02CFCH,02CFCH,02CFCH,02CFCH,02CFCH ;;;; ;;; WORD 0FFFFH ;;;BGCLDTE EQU $ ;;;; ;;;; ;;;;################################################################################ ;;;;# result bg clear # ;;;;################################################################################ ;;;RESLCLR EQU $ ;;;; ;;; MEM16 ;;; IDX16 ;;; REP #00110000B ; memory,index 16bit mode ;;;; ;;; LDA >VRAMD ;;; CLC ;;; ADC #(BGCLDTE-BGCLDAT)-1 ;;; TAX ; vramd address set ;;; DEC A ;;; STA >VRAMD ;;; LDY #(BGCLDTE-BGCLDAT)-1 ;;;; ;;; MEM8 ;;; SEP #00100000B ; memory 8bit mode ;;;; ;;;RSCL010 EQU $ ;;; LDA BGCLDAT,Y ;;; STA >VRAMD+2,X ;;; DEX ;;; DEY ;;; BPL RSCL010 ;;;; ;;; IDX8 ;;; SEP #00010000B ; index 8bit mode ;;;; ;;; RTS ;;;; ;################################################################################ ;# result sub data # ;################################################################################ LMARKDT EQU $ ;;; HEX 01,00,01,00,00,01,00,01,00 ; (00:+,01:*) ;;; HEX 01,00,00,01,00 ; HEX 01,00,00,01,00,01,00,01,00,00,01,00,01,00 ; (00:+,01:*) RMARKDT EQU $ ;;; HEX 02,00,01,02,01,03,00,01,00 ; (00,01,02,03) ;;; HEX 02,01,00,01,00 ;;; HEX 03,00,01,00 ; (00,01,02,03) ;;; HEX 02,01,00,01,00,02,00,01,02,01 HEX 03,00,01,00 ; (00,01,02,03) HEX 02,00,01,00,02,00,01,00,01,00 ;################################################################################ ;# result sub # ;################################################################################ RSLSUB EQU $ LDX !PWORK0 LDA LMARKDT,X JSL >JSRSUB ; ; RSMD0 WORD KASAN ; 0 : ka_sa_n RSMD1 WORD JYOZAN ; 1 : jyo_za_n ; ; KASN EQU (RSMD0-RSMD0)/2 JYZN EQU (RSMD1-RSMD0)/2 ; ; ;################################################################################ ;# ka_sa_n sub # ;################################################################################ KASAN EQU $ STZ !TOTLCNT+1 ; HI clear LDY !PWORK1 LDA !BETCNT CLC ADC RMARKDT,Y ; bet + a_ta_i STA !TOTLCNT RTS ;################################################################################ ;# jyo_za_n sub # ;################################################################################ JYOZAN EQU $ STZ SOUND_3_ON PLY ;NOM; LDA #023H ;NOM; STA VRAMD TAX ; vramd address set LDY #00000H ; SJD010 EQU $ LDA (VRAMD+2,X ; hi low ko_su_u data set CPY #00000H BNE SJD020 ; CLC ADC #00020H ; next low data set SJD020 EQU $ STA >VRAMD+2+8,X ; hi low ko_su_u data set INX INX INY INY CPY #00004H BNE SJD010 ; vramd set end ? ; ; yes LDY #00000H SJD030 EQU $ LDA (VRAMD+2,X ; up charcter No. set ; LDA (VRAMD+2+8,X ; down charcter No. set ; INX INX INY INY CPY #00004H BNE SJD030 ; vramd set end ? ; ; yes INX INX LDA #0FFFFH STA >VRAMD+2+6,X ; end code set TXA CLC ADC #006H STA >VRAMD ; vramd next index set ; MEM8 IDX8 SEP #00110000B ;memory,index 8bit mode ; SJDEND EQU $ ; PLY PLX ; RTS ; ;################################################################################ ;# roolet flassing sub # ;################################################################################ RLTFSSB EQU $ LDA !PWORKE BEQ RFSEND ; stop flag on ? ; ; yes LDX #001H AND #00000010B BNE RFS010 ; left and right roolet stop ? ; ; no LDX #000H RFS010 EQU $ LDA #000H CPX #000H BEQ RFS020 ; loop (left roolet) ? ; ; no LDA #010H RFS020 EQU $ STA VRAMD ;;; CLC ;;; ADC #(TOTLDTE-TOTLDAT)-1 ;;; TAX ; vramd address set ;;; DEC A ;;; STA >VRAMD ;;; LDY #(TOTLDTE-TOTLDAT)-1 ;;;; ;;; MEM8 ;;; SEP #00100000B ; memory 8bit mode ;;;; ;;;PTD200 EQU $ ;;; LDA TOTLDAT,Y ;;; STA >VRAMD+2,X ; hi low ko_su_u data set ;;; DEX ;;; DEY ;;; BPL PTD200 ;;;; ;;; MEM16 ;;; REP #00100000B ; memory 16bit mode ;;;; ;;; LDA >VRAMD ;;; SEC ;;; SBC #010H ;;; TAX ;;;; ;;; LDY VRAMD+2,X ; charcter No. set ;;;; ;;; LDY VRAMD+2+2,X ; charcter No. set ;;;; ;;; LDY VRAMD+2+4,X ; charcter No. set ;;;; ;;;; ;;; LDA >VRAMD ;;; SEC ;;; SBC #006H ;;; TAX ;;;; ;;; LDY VRAMD+2,X ; charcter No. set ;;;; ;;; LDY VRAMD+2+2,X ; charcter No. set ;;;; ;;; LDY VRAMD+2+4,X ; charcter No. set ;;;; ;;; MEM8 ;;; IDX8 ;;; SEP #00110000B ; memory,index 8bit mode ;;;; ;;; RTS ;;;; ;################################################################################ ;# bet player hyo_u_ji bg data # ;################################################################################ BETDAT EQU $ ;;; HEX 39,EA,00,04 ;;; HEX EA,39,03,00 HEX 09,3A,03,00 WORD 02CFCH,02CFCH ; ;;; HEX 3A,0A,00,04 ;;; HEX 0A,3A,03,00 HEX 29,3A,03,00 WORD 02CFCH,02CFCH ; WORD 0FFFFH BETDTE EQU $ ; ;################################################################################ ;# bet player hyo_u_ji bg out # ;################################################################################ BETDSP EQU $ LDA !BETCNT STA VRAMD CLC ADC #(BETDTE-BETDAT)-1 TAX ; vramd address set DEC A STA >VRAMD LDY #(BETDTE-BETDAT)-1 ; MEM8 SEP #00100000B ; memory 8bit mode ; BDS200 EQU $ LDA BETDAT,Y STA >VRAMD+2,X ; hi low ko_su_u data set DEX DEY BPL BDS200 ; MEM16 REP #00100000B ; memory 16bit mode ; LDA >VRAMD SEC SBC #00CH TAX ; LDA VRAMD+2,X ; charcter No. set ; BDS210 EQU $ LDY VRAMD+2+2,X ; charcter No. set ; ; ; LDA >VRAMD SEC SBC #004H TAX ; LDA VRAMD+2,X ; charcter No. set ; BDS220 EQU $ LDY VRAMD+2+2,X ; charcter No. set ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; RTS ; ;################################################################################ ;# display out data ram chenge sub # ;################################################################################ DSPCHGSB EQU $ STZ !DSPOT100 STZ !DSPOT10 STZ !DSPOT1 ; MEM16 REP #00100000B ; memory 16bit mode ; LDA ATMNINT0040] ; LDA #LOW RANTBL STA ATMNINT0050] ; LDA #LOW GINTBLRM STA ATMNINT0060] ; LDY #00 ATMNINT0060 EQU $ LDA #09 ATMNINT0068 EQU $ LDX !GINTBLRM,Y STA !RANTBL,X DEY BPL ATMNINT0068 ; はずれセット終り？ [no->ATMNINT0068] ; MI16 ; memory, index 16bit mode !! ; LDA #WORKBF STA ATMNBGWT0040] ; ;---------------------------------------------------------------- ;- WORK12, 13 <- work buffer address - ;- WORK14, 15 <- " " bank - ;---------------------------------------------------------------- WKBFVRSET EQU $ LDA #03 STA VRAMDX_ST ; PLA CLC ADC #3*2 TAX PLA CLC ADC #00020H TAY DEC WKBFVRST40] ; RTS ; ; ATEMON EQU $ M8 ; memory 8bit mode !! ; LDA !KEYCOUNT BEQ ATMN0010 ; key counter zero ? [yes->ATMN0010] ; DEC !KEYCOUNT ATMN0010 EQU $ M16 ; memory 16bit mode !! ; LDA !CRCXPS AND #000FFH CLC ADC #00014H STA ATMN0080] ; LDA #soundcslkettei JSL >SOUND_3_ON ; サウンド セット！！ ; LDY #PMIR1 STY !BSPLTP LDA PLTRNAR,Y JSR PAS050 ; MI8 ; memory, index 8bit mode !! ; LDA #018H STA !KEYCOUNT INC !BONSMD ; M16 ; memory 16bit mode !! ; STZ !GDEMOCNT I16 ; index 16bit mode !! RTS ; ATMN0080 EQU $ A_CURSOLMV EQU $ MI8 ; memory, index 8bit mode !! ; LDA !KEYA2 AND #00001111B BEQ ACSLMV0040 ; up or down or left or right key press ? ; ; [no->ACSLMV0040] LDY #keycount0 BRA ACSLMV0050 ; ACSLMV0040 EQU $ LDY !KEYCOUNT BNE ACSLMV0100 ; key check ? [no->ACSLMV0100] ; LDY #keycount1 ACSLMV0050 EQU $ STY !KEYCOUNT LDA !KEYA1 AND #00001111B BNE ACSLMV0080 ; up or down or left or right key press ? ; ; [no->ACSLMV0080] BRA ACSLMV0100 ; ACSLMV0080 EQU $ PHA AND #00000011B TAY LDA !GCSLNUM CLC ADC GCSLXADD,Y BPL ACSLMV0090 ; area over ? [no->ACSLMV0090] ; LDA #5 BRA ACSLMV00A0 ; ACSLMV0090 EQU $ CMP #5+1 BCC ACSLMV00A0 ; area over ? [no->ACSLMV00A0] ; LDA #0 ACSLMV00A0 EQU $ STA !GCSLNUM TAY PLA LSR A LSR A BIT #00000011B BEQ ACSLMV00D0 ; down on ? [no->ACSLMV00D0] ; TYA CLC ADC ACSLYADD,Y STA !GCSLNUM TAY ACSLMV00D0 EQU $ LDA ACSLXPOS,Y STA !CRCXPS LDA ACSLYPOS,Y STA !CRCYPS LDA #soundcslmove JSL >SOUND_3_ON ; サウンド セット！！ ; ACSLMV0100 EQU $ MI16 ; memory, index 16bit mode !! RTS ; ; ATEMON2 EQU $ M8 ; memory 8bit mode !! ; LDA !KEYCOUNT BNE ATMN20010 ; sound on ? [no->ATMN20010] ; LDA #020H STA !KEYCOUNT LDA #soundhikkaki JSL >SOUND_3_ON ; サウンド セット！！ ; BRA ATMN20020 ; ATMN20010 EQU $ DEC !KEYCOUNT ATMN20020 EQU $ ; M16 ; memory 16bit mode !! I8 ; index 8bit mode !! ; LDA #BANK shutterchr STA R0 LDA #shutterchr STA R3 LDA !GDEMOCNT STA R4 LDA #0 STA R5 M_CHIP SHUTTER ; I16 ; index 16bit mode !! ; LDA #BANK WOB7CHR STA VRAMDX_ST ; PLA CLC ADC #30H TAY PLA CLC ADC #0200H TAX DEC ATMN20040] ; MI8 ; memory, index 8bit mode !! ; LDA !GDEMOCNT CMP #00CH BEQ ATMN20080 ; demo end ? [yes->ATMN20080] ; LDA ATMN200C0] ; TAY LDA ATEMONITEM,Y JSR ITEMINPUT ; アイテム登録！！ ; LDA #00005H STA !SOUND_0 ; サウンド セット！！（ファンファーレ） ; LDY #PYORO BRA ATMN200D0 ; [->ATMN200D0] ; ATMN200C0 EQU $ LDA #0007DH JSL >SOUND_3_ON ; サウンド セット！！ ; LDY #PTAOR ATMN200D0 EQU $ STY !BSPLTP LDA #00080H STA !BONSTM LDA PLTRNAR,Y JMP PAS050 ; ; ATEMON3 EQU $ DEC !BONSTM BNE ATMN30100 ; next mode ? [no->ATMN30100] ; INC !BONSMD ATMN30100 EQU $ RTS ; ; ATEMON4 EQU $ LDA #BANK shutterchr STA R0 LDA #shutterchr STA R3 LDA #0 STA R4 LDA !BONSTM STA R5 ; I8 ; index 8bit mode !! ; M_CHIP SHUTTER ; I16 ; index 16bit mode !! ; LDA !GCSLNUM AND #000FFH STA ATMN400A0] ; PHX TXA ASL A TAX LDA #BANK WOB7CHR STA VRAMDX_ST ; PLA CLC ADC #00030H TAY LDX #WOB7CHR+200H LDA #00060H PHY JSL >VRAMDX_ST ; PLA CLC ADC #00030H TAY LDX #WOB7CHR+400H LDA #00060H JSL >VRAMDX_ST ; PLX ATMN400A0 EQU $ DEX BPL ATMN40080 ; next set ? [yes->ATMN40080] ; LDA !BONSTM CMP #0000CH BNE ATMN400B0 ; next mode ? [no->ATMN400B0] ; STZ !PLDNCT STZ !PLUPCT LDA #100 STA !GOAL_TTL_PT LDA #a_lastcnt STA !BONSTM INC !BONSMD ATMN400B0 EQU $ LDA ATMNINT0010] ;[1995.04.28.FR]; ;[1995.04.28.FR] CMP #21 ;[1995.04.28.FR] BCS ATMNINT0010 ; score < 21 [no->ATMNINT0010] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #ATEMONTABLE20 ;[1995.04.28.FR] BRA ATMNINT0020 ;[1995.04.28.FR]; ;[1995.04.28.FR]ATMNINT0010 EQU $ ;[1995.04.28.FR] LDA #ATEMONTABLE ;[1995.04.28.FR]ATMNINT0020 EQU $ ;[1995.04.28.FR] STA ATMNINT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] PLY ;[1995.04.28.FR] LDA #LOW GINTBLRM ;[1995.04.28.FR] STA X2UIT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #multchrhigh ;[1995.04.28.FR] STA [D10IT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #minuschrhigh ;[1995.04.28.FR] STA [D10IT0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #10 ;[1995.04.28.FR]D10IT0060 EQU $ ;[1995.04.28.FR] STA DD2IT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #minuschrhigh ;[1995.04.28.FR] STA [DD2IT0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]DD2IT0060 EQU $ ;[1995.04.28.FR] STA DNPIT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #minuschrhigh ;[1995.04.28.FR] STA [DNPIT0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]DNPIT0060 EQU $ ;[1995.04.28.FR] STA UBIT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #pluschrhigh ;[1995.04.28.FR] STA [UBIT0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]UBIT0060 EQU $ ;[1995.04.28.FR] STA DBIT0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #minuschrhigh ;[1995.04.28.FR] STA [DBIT0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]DBIT0060 EQU $ ;[1995.04.28.FR] STA ATMN0010] ;[1995.04.28.FR]; ;[1995.04.28.FR] DEC !KEYCOUNT ;[1995.04.28.FR]ATMN0010 EQU $ ;[1995.04.28.FR] M16 ; memory 16bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !CRCXPS ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #00014H ;[1995.04.28.FR] STA ATMN0080] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #soundcslkettei ;[1995.04.28.FR] JSL >SOUND_3_ON ; サウンド セット！！ ;[1995.04.28.FR]; ;[1995.04.28.FR] LDY #PMIR1 ;[1995.04.28.FR] STY !BSPLTP ;[1995.04.28.FR] LDA PLTRNAR,Y ;[1995.04.28.FR] JSR PAS050 ;[1995.04.28.FR]; ;[1995.04.28.FR] MI8 ; memory, index 8bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #018H ;[1995.04.28.FR] STA !KEYCOUNT ;[1995.04.28.FR] INC !BONSMD ;[1995.04.28.FR]; ;[1995.04.28.FR] M16 ; memory 16bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR];;;; LDY #00 ;[1995.04.28.FR];;;; LDA #ATEMONAD ;[1995.04.28.FR];;;; STA ACSLMV0040] ;[1995.04.28.FR] LDY #keycount0 ;[1995.04.28.FR] BRA ACSLMV0050 ;[1995.04.28.FR]; ;[1995.04.28.FR]ACSLMV0040 EQU $ ;[1995.04.28.FR] LDY !KEYCOUNT ;[1995.04.28.FR] BNE ACSLMV0100 ; key check ? [no->ACSLMV0100] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDY #keycount1 ;[1995.04.28.FR]ACSLMV0050 EQU $ ;[1995.04.28.FR] STY !KEYCOUNT ;[1995.04.28.FR] LDA !KEYA1 ;[1995.04.28.FR] AND #00001111B ;[1995.04.28.FR] BNE ACSLMV0080 ; up or down or left or right key press ? ;[1995.04.28.FR]; ; [no->ACSLMV0080] ;[1995.04.28.FR] BRA ACSLMV0100 ;[1995.04.28.FR]; ;[1995.04.28.FR]ACSLMV0080 EQU $ ;[1995.04.28.FR] PHA ;[1995.04.28.FR] AND #00000011B ;[1995.04.28.FR] TAY ;[1995.04.28.FR] LDA !GCSLNUM ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC GCSLXADD,Y ;[1995.04.28.FR] BPL ACSLMV0090 ; area over ? [no->ACSLMV0090] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #5 ;[1995.04.28.FR] BRA ACSLMV00A0 ;[1995.04.28.FR]; ;[1995.04.28.FR]ACSLMV0090 EQU $ ;[1995.04.28.FR] CMP #5+1 ;[1995.04.28.FR] BCC ACSLMV00A0 ; area over ? [no->ACSLMV00A0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #0 ;[1995.04.28.FR]ACSLMV00A0 EQU $ ;[1995.04.28.FR] STA !GCSLNUM ;[1995.04.28.FR] TAY ;[1995.04.28.FR] PLA ;[1995.04.28.FR] LSR A ;[1995.04.28.FR] LSR A ;[1995.04.28.FR] BIT #00000011B ;[1995.04.28.FR] BEQ ACSLMV00D0 ; down on ? [no->ACSLMV00D0] ;[1995.04.28.FR]; ;[1995.04.28.FR] TYA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC ACSLYADD,Y ;[1995.04.28.FR] STA !GCSLNUM ;[1995.04.28.FR] TAY ;[1995.04.28.FR]ACSLMV00D0 EQU $ ;[1995.04.28.FR] LDA ACSLXPOS,Y ;[1995.04.28.FR] STA !CRCXPS ;[1995.04.28.FR] LDA ACSLYPOS,Y ;[1995.04.28.FR] STA !CRCYPS ;[1995.04.28.FR] LDA #soundcslmove ;[1995.04.28.FR] JSL >SOUND_3_ON ; サウンド セット！！ ;[1995.04.28.FR]; ;[1995.04.28.FR]ACSLMV0100 EQU $ ;[1995.04.28.FR] MI16 ; memory, index 16bit mode !! ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATEMON2 EQU $ ;[1995.04.28.FR] M8 ; memory 8bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !KEYCOUNT ;[1995.04.28.FR] BNE ATMN20010 ; sound on ? [no->ATMN20010] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #020H ;[1995.04.28.FR] STA !KEYCOUNT ;[1995.04.28.FR] LDA #soundhikkaki ;[1995.04.28.FR] JSL >SOUND_3_ON ; サウンド セット！！ ;[1995.04.28.FR]; ;[1995.04.28.FR] BRA ATMN20020 ;[1995.04.28.FR]; ;[1995.04.28.FR]ATMN20010 EQU $ ;[1995.04.28.FR] DEC !KEYCOUNT ;[1995.04.28.FR]ATMN20020 EQU $ ;[1995.04.28.FR];;;; LDA !CRCXPS ;[1995.04.28.FR];;;; CLC ;[1995.04.28.FR];;;; ADC !GINXPOS+1 ;[1995.04.28.FR];;;; STA VRAMDX_ST ;[1995.04.28.FR]; ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #30H ;[1995.04.28.FR] TAY ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #0200H ;[1995.04.28.FR] TAX ;[1995.04.28.FR] DEC ATMN20040] ;[1995.04.28.FR]; ;[1995.04.28.FR] MI8 ; memory, index 8bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !GDEMOCNT ;[1995.04.28.FR] CMP #00CH ;[1995.04.28.FR] BEQ ATMN20080 ; demo end ? [yes->ATMN20080] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA ATMN20080] ;[1995.04.28.FR];;;;; ;[1995.04.28.FR];;;; JSR G_FINGERMV ; finger move !! ;[1995.04.28.FR];;;;; ;[1995.04.28.FR]ATMN20100 EQU $ ;[1995.04.28.FR] MI16 ; memory, index 16bit mode !! ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATMN20080 EQU $ ;[1995.04.28.FR] MI16 ; memory, index 16bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] INC !BONSMD ;[1995.04.28.FR] LDA !GCSLNUM ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] TAY ;[1995.04.28.FR] LDA GINTBLRM,Y ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] ASL A ;[1995.04.28.FR] TAX ;[1995.04.28.FR] JSR (ATMNTBL,X) ;[1995.04.28.FR]; ;[1995.04.28.FR] LDY #PWALK ;[1995.04.28.FR] LDA !SLCOIN ;[1995.04.28.FR] BEQ ATMN200C0 ; プレイヤー数変わらない ? [yes->ATMN200C0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDY #PYORO ;[1995.04.28.FR] LDA PL_UP_DOWN,X ;[1995.04.28.FR] BPL ATMN200C0 ; プレイヤー数増加 ? [yes->ATMN200C0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDY #PTAOR ;[1995.04.28.FR]ATMN200C0 EQU $ ;[1995.04.28.FR] STY !BSPLTP ;[1995.04.28.FR] LDA PLTRNAR,Y ;[1995.04.28.FR] JMP PAS050 ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATMNTBL EQU $ ;[1995.04.28.FR] WORD X2UP ;[1995.04.28.FR] WORD DOWN10 ;[1995.04.28.FR] WORD DOWNDEV2 ;[1995.04.28.FR] WORD DOWNNOWP ;[1995.04.28.FR] WORD UPBEFORE ;[1995.04.28.FR] WORD DOWNBEFORE ;[1995.04.28.FR]; ;[1995.04.28.FR]PL_UP_DOWN EQU $ ;[1995.04.28.FR] WORD 0001, -0001, -0001, -0001, 0001, -0001 ;[1995.04.28.FR]; ;[1995.04.28.FR]X2UP EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]DOWN10 EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] CMP #10 ;[1995.04.28.FR] BCC D100040 ; !PLCONT < 10 [yes->D100040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #10 ;[1995.04.28.FR]D100040 EQU $ ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]DOWNDEV2 EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] LSR A ;[1995.04.28.FR] CMP #100 ;[1995.04.28.FR] BCC DD20040 ; (!PLCONT / 2) < 100 [yes->DD20040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]DD20040 EQU $ ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]DOWNNOWP EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] CMP #100 ;[1995.04.28.FR] BCC DNP0040 ; !PLCONT < 100 [yes->DNP0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #99 ;[1995.04.28.FR]DNP0040 EQU $ ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]UPBEFORE EQU $ ;[1995.04.28.FR] LDA !PLDNCT ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]DOWNBEFORE EQU $ ;[1995.04.28.FR] LDA !PLUPCT ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATEMON3 EQU $ ;[1995.04.28.FR] LDA !GCSLNUM ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] TAY ;[1995.04.28.FR] LDA GINTBLRM,Y ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] ASL A ;[1995.04.28.FR] TAX ;[1995.04.28.FR] JSR (ATMNCOUNTTBL,X) ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !BONSMD ;[1995.04.28.FR] CMP #atemon3 ;[1995.04.28.FR] BEQ ATMN30100 ; next mode ? [no->ATMN30100] ;[1995.04.28.FR]; ;[1995.04.28.FR];;;; LDA #BANK shutterchr ;[1995.04.28.FR];;;; STA R0 ;[1995.04.28.FR];;;; LDA #shutterchr ;[1995.04.28.FR];;;; STA R3 ;[1995.04.28.FR];;;;; ;[1995.04.28.FR];;;; I8 ; index 8bit mode !! ;[1995.04.28.FR];;;;; ;[1995.04.28.FR];;;; M_CHIP GININIT ;[1995.04.28.FR];;;;; ;[1995.04.28.FR];;;; I16 ; index 16bit mode !! ;[1995.04.28.FR];;;;; ;[1995.04.28.FR];;;; LDA #64-2 ;[1995.04.28.FR] LDA #00 ;[1995.04.28.FR] STA !BONSTM ;[1995.04.28.FR]ATMN30100 EQU $ ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATMNCOUNTTBL EQU $ ;[1995.04.28.FR] WORD BONUSPLAYERUP ; 1 ;[1995.04.28.FR] WORD BONUSPLAYERDOWN ; 2 ;[1995.04.28.FR] WORD BONUSPLAYERDOWN ; 3 ;[1995.04.28.FR] WORD BONUSPLAYERDOWN ; 4 ;[1995.04.28.FR] WORD BONUSPLAYERUP ; 5 ;[1995.04.28.FR] WORD BONUSPLAYERDOWN ; 6 ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]BONUSPLAYERDOWN EQU $ ;[1995.04.28.FR] LDA !BONSTM ;[1995.04.28.FR] BEQ BPD0040 ; bonus timer dec ? [no->BPD0040] ;[1995.04.28.FR]; ;[1995.04.28.FR] DEC !BONSTM ;[1995.04.28.FR] JMP BPD0100 ;[1995.04.28.FR]; ;[1995.04.28.FR]BPD0040 EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] BEQ BPD0060 ; player down cound end ? [yes->BPD0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !SLCOIN ;[1995.04.28.FR] BNE BPD0080 ; player down cound end ? [no->BPD0080] ;[1995.04.28.FR]; ;[1995.04.28.FR]BPD0060 EQU $ ;[1995.04.28.FR] LDA #g_lastcnt ;[1995.04.28.FR] STA !BONSTM ;[1995.04.28.FR] INC !BONSMD ;[1995.04.28.FR] BRA BPD0100 ;[1995.04.28.FR]; ;[1995.04.28.FR]BPD0080 EQU $ ;[1995.04.28.FR] LDY #soundplayerdown ;[1995.04.28.FR] STY !SOUND3 ;[1995.04.28.FR] LDY #20H ;[1995.04.28.FR] STY !BONSTM ;[1995.04.28.FR] CMP #111 ;[1995.04.28.FR] BCS BPD00C0 ; !SLCOIN < 111 [no->BPD00C0] ;[1995.04.28.FR]; ;[1995.04.28.FR] CMP #11 ;[1995.04.28.FR] BCS BPD00A0 ; !SLCOIN < 11 [no->BPD00A0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] DEC A ;[1995.04.28.FR] CMP #01 ;[1995.04.28.FR] BPL BPD0090 ; プレイヤー ＜ １？ [no->BPD0090] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #01 ;[1995.04.28.FR]BPD0090 EQU $ ;[1995.04.28.FR] STA !PLCONT ;[1995.04.28.FR] JSR PLCNTST ;[1995.04.28.FR]; ;[1995.04.28.FR] DEC !SLCOIN ;[1995.04.28.FR] BRA BPD0100 ;[1995.04.28.FR]; ;[1995.04.28.FR]BPD00A0 EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] SEC ;[1995.04.28.FR] SBC #10 ;[1995.04.28.FR] CMP #01 ;[1995.04.28.FR] BPL BPD00B0 ; プレイヤー ＜ １？ [no->BPD00B0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #01 ;[1995.04.28.FR]BPD00B0 EQU $ ;[1995.04.28.FR] STA !PLCONT ;[1995.04.28.FR] JSR PLCNTST ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !SLCOIN ;[1995.04.28.FR] SEC ;[1995.04.28.FR] SBC #10 ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR] BRA BPD0100 ;[1995.04.28.FR]; ;[1995.04.28.FR]BPD00C0 EQU $ ;[1995.04.28.FR] LDA !PLCONT ;[1995.04.28.FR] SEC ;[1995.04.28.FR] SBC #100 ;[1995.04.28.FR] CMP #01 ;[1995.04.28.FR] BPL BPD00D0 ; プレイヤー ＜ １？ [no->BPD00D0] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #01 ;[1995.04.28.FR]BPD00D0 EQU $ ;[1995.04.28.FR] STA !PLCONT ;[1995.04.28.FR] JSR PLCNTST ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !SLCOIN ;[1995.04.28.FR] SEC ;[1995.04.28.FR] SBC #100 ;[1995.04.28.FR] STA !SLCOIN ;[1995.04.28.FR]BPD0100 EQU $ ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR]ATEMON4 EQU $ ;[1995.04.28.FR] LDA #BANK shutterchr ;[1995.04.28.FR] STA R0 ;[1995.04.28.FR] LDA #shutterchr ;[1995.04.28.FR] STA R3 ;[1995.04.28.FR] LDA #0 ;[1995.04.28.FR] STA R4 ;[1995.04.28.FR] LDA !BONSTM ;[1995.04.28.FR] STA R5 ;[1995.04.28.FR]; ;[1995.04.28.FR] I8 ; index 8bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] M_CHIP SHUTTER ;[1995.04.28.FR]; ;[1995.04.28.FR] I16 ; index 16bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR];;; LDX !BONSTM ;[1995.04.28.FR];;; LDA >CHNGXPS,X ;[1995.04.28.FR];;; AND #000FFH ;[1995.04.28.FR];;; STA !CCWORK0 ;[1995.04.28.FR];;; LDA >CHNGXPS+1,X ;[1995.04.28.FR];;; STA !CCWORK1 ;[1995.04.28.FR];;; LDA >CHNGYPS,X ;[1995.04.28.FR];;; AND #000FFH ;[1995.04.28.FR];;; STA !CCWORK2 ;[1995.04.28.FR];;; LDA >CHNGYPS+1,X ;[1995.04.28.FR];;; STA !CCWORK3 ;[1995.04.28.FR];;;; ;[1995.04.28.FR];;; I8 ; index 8bit mode !! ;[1995.04.28.FR];;;; ;[1995.04.28.FR];;; M_CHIP DOTERASE ;[1995.04.28.FR];;;; ;[1995.04.28.FR];;; I16 ; index 16bit mode !! ;[1995.04.28.FR];;;; ;[1995.04.28.FR] LDA !GCSLNUM ;[1995.04.28.FR] AND #000FFH ;[1995.04.28.FR] STA ATMN400A0] ;[1995.04.28.FR]; ;[1995.04.28.FR] PHX ;[1995.04.28.FR] TXA ;[1995.04.28.FR] ASL A ;[1995.04.28.FR] TAX ;[1995.04.28.FR] LDA #BANK WOB7CHR ;[1995.04.28.FR] STA VRAMDX_ST ;[1995.04.28.FR]; ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #00030H ;[1995.04.28.FR] TAY ;[1995.04.28.FR] LDX #WOB7CHR+200H ;[1995.04.28.FR] LDA #00060H ;[1995.04.28.FR] PHY ;[1995.04.28.FR] JSL >VRAMDX_ST ;[1995.04.28.FR]; ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #00030H ;[1995.04.28.FR] TAY ;[1995.04.28.FR] LDX #WOB7CHR+400H ;[1995.04.28.FR] LDA #00060H ;[1995.04.28.FR] JSL >VRAMDX_ST ;[1995.04.28.FR]; ;[1995.04.28.FR] PLX ;[1995.04.28.FR]ATMN400A0 EQU $ ;[1995.04.28.FR] DEX ;[1995.04.28.FR] BPL ATMN40080 ; next set ? [yes->ATMN40080] ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA !BONSTM ;[1995.04.28.FR] CMP #0000CH ;[1995.04.28.FR] BNE ATMN400B0 ; next mode ? [no->ATMN400B0] ;[1995.04.28.FR]; ;[1995.04.28.FR] STZ !PLDNCT ;[1995.04.28.FR] STZ !PLUPCT ;[1995.04.28.FR] LDA #100 ;[1995.04.28.FR] STA !GOAL_TTL_PT ;[1995.04.28.FR] LDA #a_lastcnt ;[1995.04.28.FR] STA !BONSTM ;[1995.04.28.FR] INC !BONSMD ;[1995.04.28.FR]ATMN400B0 EQU $ ;[1995.04.28.FR] LDA VRAMDX_ST ;[1995.04.28.FR]; ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #3*2 ;[1995.04.28.FR] TAX ;[1995.04.28.FR] PLA ;[1995.04.28.FR] CLC ;[1995.04.28.FR] ADC #00020H ;[1995.04.28.FR] TAY ;[1995.04.28.FR] DEC WKBFVRST40] ;[1995.04.28.FR]; ;[1995.04.28.FR] RTS ;[1995.04.28.FR]; ;[1995.04.28.FR]; ;[1995.04.28.FR];---------------------------------------------------------------- ;[1995.04.28.FR];- WORK16,17 <- work buffer address - ;[1995.04.28.FR];- WORK18,19 <- " " bank - ;[1995.04.28.FR];- WORK2C,2D <- attribute - ;[1995.04.28.FR];- WORK2E,2F <- number - ;[1995.04.28.FR];---------------------------------------------------------------- ;[1995.04.28.FR]NUMBERSTORE EQU $ ;[1995.04.28.FR] LDA NST0060] ;[1995.04.28.FR]; ;[1995.04.28.FR] STA 4204H ;[1995.04.28.FR]; ;[1995.04.28.FR] M8 ; memory 8bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA #10 ;[1995.04.28.FR] STA 4206H ;[1995.04.28.FR]; ;[1995.04.28.FR] M16 ; memory 16bit mode !! ;[1995.04.28.FR]; ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR] NOP ;[1995.04.28.FR]; ;[1995.04.28.FR] LDA 4214H ;[1995.04.28.FR] ASL A ;[1995.04.28.FR] TAX ;[1995.04.28.FR] LDA NUMBERHIGH,X ;[1995.04.28.FR] ORA 表） COINMV WORD COINMIN ; A main move !! EGGMOV WORD EGGMOVE ; B egg move WORD COINRMV1 ; C coin turn (ura-->1/2) WORD COINRMV2 ; D coin turn (1/2-->omote) BS6MAP WORD MODEMAP ; E map initial mode set sub !! YSYORO WORD YSYORMOV ; F ヨッシー 喜ぶ YSKANA WORD YSKANMOV ; 10 ヨッシー 悲しむ CARTIN WORD CARDRTIN ; 11 ゲーム中裏返し（イニシャル） CRRTN1 WORD CARDRTN1 ; 12 ゲーム中裏返し（表-->1/2） CRRTN2 WORD CARDRTN2 ; 13 ゲーム中裏返し（1/2-->裏） ;[1995/04/28]CRCINT WORD CARDCMOV ; 14 カード入れ替え CRA10M WORD COINRMV10 ; 15 イニシャル回転（裏-->1/2） CRA20M WORD COINRMV20 ; 16 イニシャル回転（1/2-->表） ;[1995/04/28]CRTRMN WORD CARDRTNM ; 17 イニシャル裏返しメイン ;[1995/04/28] WORD CARDRTN1 ; 18 イニシャル裏返し（表-->1/2） ;[1995/04/28] WORD CARDRTN2 ; 19 イニシャル裏返し（1/2-->裏） CRALLR WORD CARDALLR ; イニシャル回転メイン（表-->裏） WORD CARDRTN1 ; イニシャル裏返し（表-->1/2） WORD CARDRTN2 ; イニシャル裏返し（1/2-->裏） ; ; COINM EQU (COINMV-SLT1ADR)/2 EGGMV EQU (EGGMOV-SLT1ADR)/2 BS6MP EQU (BS6MAP-SLT1ADR)/2 YYORO EQU (YSYORO-SLT1ADR)/2 YKANA EQU (YSKANA-SLT1ADR)/2 CRTIN EQU (CARTIN-SLT1ADR)/2 CRALL EQU (CRALLT-SLT1ADR)/2 ;[1995/04/28]CRINT EQU (CRCINT-SLT1ADR)/2 CRRT1 EQU (CRRTN1-SLT1ADR)/2 CRRT2 EQU (CRRTN2-SLT1ADR)/2 CR10M EQU (CRA10M-SLT1ADR)/2 CR20M EQU (CRA20M-SLT1ADR)/2 ;[1995/04/28]CRTNM EQU (CRTRMN-SLT1ADR)/2 CRALR EQU (CRALLR-SLT1ADR)/2 ; ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COININT ( WORLD 6 神経衰弱 initial set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COININT EQU $ STZ SLCOIN ; ペアの数 STZ KAMMD0 ; はずれた回数 STZ TUGIYP ; ｕｐ人数 LDA #000FFH STA SHINNUM+0 ; ペアテーブル STA SHINNUM+2 ; MI8 ; memory,index 8bit mode !! ; LDX #014-2 COINT010 EQU $ STZ CHNGTBL,X ; 入れ替えテーブル STZ CHNGTBL+1,X ; 入れ替えテーブル DEX DEX BPL COINT010 ; LDA !COINXDT+0 STA CRCXPS LDA !COINYDT+0 STA CRCYPS STZ CARDMV ; cursole move flag STZ COINPT ; cursole index STZ CONXSD ; cursole X speed STZ TRCOIN ; めくった枚数（１ペア） ; MI16 ; memory,index 16bit mode !! ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINRAN ( WORLD 6 神経衰弱 ランダムセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; ; ＜ テーブルの中身 (COINTBL) ＞ ; ; COINRDT ; ０　：　ハテナ雲 ; ２　：　木の実（緑） ; ３　：　木の実（赤） ; ５　：　卵ＦＵＬＬ ; ６　：　スター（１０） ; ７　：　スター（２０） ; ８　：　ＰＯＷ ; ９　：　虫眼鏡 ; Ｂ　：　木の実（青） ; ; ;======================================================================== ; COINRDT EQU $ HEX 00,02,03,05,06,07,08,09,0B ; COINCDT EQU $ BYTE 01,01,02,02,03,03,05,50 ; ; COINRAN EQU $ MI8 ; memory,index 8bit mode ; ;-----< ワークテーブル・ランダムセット >--------------------------------- ; JSR RANDSEL ; ランダム数字セレクト STA ----------------------------------------- ; LDA #014 STA RANDAM ; ランダム ｃａｌｌ ; LDA RANDAM ; ランダムｃａｌｌ ; LDA #009 STA 4202H ; 基準被乗数 LDA RANDM0 STA 4203H ; 乗数 NOP NOP NOP NOP M16 ; memory 16bit mode LDA 4216H XBA M8 ; memory 8bit mode AND #00FH ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINMIN ( WORLD 6 神経衰弱 main move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COINMIN EQU $ MI8 ; memory,index 8bit mode !! ; LDA ENWRK0 BEQ COMN010 ; 卵は現在動いてる？ ; : yes JSR EGGMOVE BRA COMN090 ; COMN010 EQU $ ; ;=====[ デバッグ用 ]============================================== ;;;;; LDA TRCOIN ;;;;; CMP #14 ;;;;; BNE COMN020 ;;;;;; ;;;;; LDA #BS6MP ;;;;; STA BONSMD ;;;;; LDA #0FFH ;;;;; STA BONSTM ;;;;; BRA COMN090 ;================================================================= ; LDA TRCOIN CMP #002 BNE COMN020 ; ２枚め？ ; : yes ; JSR COINEND ; 終了チェック BRA COMN090 ; COMN020 EQU $ JSR COINCMV ; カーソルＭＯＶＥ JSR COINKEY ; ｋｅｙチェック JSR CARDOAM ; カーソルＯＡＭ セット ; COMN090 EQU $ MI16 ; memory,index 16bit mode !! ; RTS ; ; MEM8 IDX8 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINEND ( WORLD 6 神経衰弱 終了チェック ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COINEND EQU $ LDA SLCOIN CMP #(014-2)/2 BNE COED020 ; カード全部めくった？ ; : yes ;[1995/05/03] LDA !COINCDT+7 LDA #010 STA TUGIYP ; ｕｐ人数セット LDA #005H STA =============================================== ; COED020 EQU $ MI8 LDA SHINNUM+0 CMP SHINNUM+2 BNE COED030 ; ;--------[ お見事！ペア ]----------------------------------------- ; LDA SLCOIN CMP #(012-2)/2 BNE COED025 ; 残り２枚？ ; : yes ; JSR PL50UPST ; ５０ｕｐセット ; COED025 EQU $ LDA #0FFH LDX SHINPOS+0 STA COINTBL,X LDX SHINPOS+2 STA COINTBL,X ; MI16 INC SLCOIN ; IF NES ;**** NES 対応 [1995/07/26] ***************************** LDA SLCOIN CMP #00002 BNE COED026 ; JSR PAIRSSET ; PAIR'S' 文字セット ; COED026 EQU $ ; ENDIF ;**** NES 対応 [1995/07/26] ***************************** ; IF PAL ;**** PAL 対応 [1995/07/26] ***************************** LDA LNGG_SL CMP #00002 BEQ COED026 ; ドイツ語？ ; : No !! LDA SLCOIN CMP #00002 BNE COED026 ; JSR PAIRSSET ; PAIR'S' 文字セット ; COED026 EQU $ ; ENDIF ;**** PAL 対応 [1995/07/26] ***************************** ; JSR TOTALCS ; トータルペア数セット ; LDA SHINNUM+0 AND #000FFH ;[1995/05/03] TAX ;[1995/05/03] LDA !COINCDT,X ;[1995/05/03] AND #000FFH ;[1995/05/03] STA TUGIYP ; ｕｐ人数セット ; TAX LDA !ITEMADR,X AND #000FFH ; JSR ITEMINPUT ; アイテムの登録 ; LDA #000FFH STA SHINNUM+0 ; ペアテーブル・クリア STA SHINNUM+2 ; LDA #0008FH JSL >SOUND_3_ON ; [♪] サウンドセット LDA #00090H STA BONSTM ; timer set ; COED027 EQU $ LDA #YYORO ; ヨッシー喜ぶ STA BONSMD ; next mode LDX #PYORO STX BSPLTP ; player type set !! BRA COED040 ; ;--------[ 残念、ハズレ ]----------------------------------------- ; COED030 EQU $ MI16 INC KAMMD0 LDA KAMMD0 CMP #002 BNE COED035 ; ２回はずれた？ ; : Yes LDA #0007DH JSL >SOUND_3_ON ; [♪] サウンドセット ; LDA #BS6MP BRA COED037 ; COED035 EQU $ LDA #00090H JSL >SOUND_3_ON ; [♪] サウンドセット ; LDA #YKANA ; ヨッシー悲しむ COED037 EQU $ STA BONSMD ; next mode LDA #080H STA BONSTM ; timer set ; LDX #PTAOR STX BSPLTP ; player type set !! ; COED040 EQU $ LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 MI8 ; COED090 EQU $ RTS ; ; IF NES | PAL ;**** NES or PAL 対応 [1995/07/26] ************************ ; MEM16 IDX16 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PAIRSSET ( WORLD 6 神経衰弱 PAIR'S' set ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx S_chr_high EQU 000AFH | 00001100B << 8 S_chr_low EQU 000BFH | 00001100B << 8 ; PAIRSSET EQU $ LDA >VRAMD TAX LDA #00213H+bg1_adrs STA >VRAMD+02H,X LDA #08000H+00002H*2-1 STA >VRAMD+04H,X LDA #S_chr_high STA >VRAMD+06H,X LDA #S_chr_low STA >VRAMD+08H,X LDA #0FFFFH STA >VRAMD+0AH,X TXA CLC ADC #00008H STA >VRAMD RTS ; MEM8 IDX8 ; ENDIF ;**** NES or PAL 対応 [1995/07/26] ***************************** ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR PL50UPST ( WORLD 6 神経衰弱 １０ｕｐセット ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx PL50UPST EQU $ LDX #014-1 PLUP010 EQU $ CPX SHINPOS+0 BEQ PLUP020 CPX SHINPOS+2 BEQ PLUP020 ; LDA COINTBL,X CMP #0FFH BEQ PLUP020 ; 残り２枚の１つ？ ; : Yes ;[1995/05/04]; LDA #007 LDA #card_10up STA COINTBL,X ; １０ｕｐセット ; PLUP020 EQU $ DEX BPL PLUP010 ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINCMV ( WORLD 6 神経衰弱 cursole move ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COINXDT EQU $ BYTE 030H+8,050H+8,070H+8,090H+8,0B0H+8 BYTE 020H+8,040H+8,0A0H+8,0C0H+8 BYTE 030H+8,050H+8,070H+8,090H+8,0B0H+8 ; COINYDT EQU $ BYTE 058H,058H,058H,058H,058H BYTE 078H,078H,078H,078H BYTE 098H,098H,098H,098H,098H ; COINADD EQU $ HEX 002,0FE ; ; COINCMV EQU $ LDX COINPT LDA CARDMV BEQ COCM090 ; カーソル 動いてる ? ; : yes CMP #003 BCS COCM050 ; ;-----< 横 ＭＯＶＥ >---------------------------------------------------- ; LDA !COINXDT,X CMP CRCXPS BEQ COCM080 ; move end ? ; : no LDA CARDMV AND #001 TAX LDA !COINADD,X CLC ADC CRCXPS STA CRCXPS BRA COCM090 ; ;-----< 縦 ＭＯＶＥ >---------------------------------------------------- ; COCM050 EQU $ LDA CRCYPS CMP !COINYDT,X BEQ COCM080 ; move end ? ; : no LDA CARDMV AND #001 TAX LDA !COINADD,X CLC ADC CRCYPS STA CRCYPS ; LDA CONXSD CLC ADC CRCXPS STA CRCXPS BRA COCM090 ; ;-----< フラグ クリア >-------------------------------------------------- ; COCM080 EQU $ STZ CARDMV ; ;------------------------------------------------------------------------ ; COCM090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINKEY ( WORLD 6 神経衰弱 key check ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ; ; << テーブルにおける "COINPT" >> ; ; ┏━┳━┳━┳━┳━┓ ; ┃０┃１┃２┃３┃４┃ ; ┏┻┳┻┳┻━┻┳┻┳┻┓ ; ┃５┃６┃ ☆ ┃７┃８┃ ; ┗┳┻┳┻┳━┳┻┳┻┳┛ ; ┃９┃Ａ┃Ｂ┃Ｃ┃Ｄ┃ ; ┗━┻━┻━┻━┻━┛ ; ;======================================================================== ; COYNXUP EQU $ ; ｕｐ Ｙ ポジション HEX 9,A,B,C,D HEX 0,1,3,4 HEX 5,6,2,7,8 ; ; ｄｏｗｎ Ｙ ポジション COYNXDN EQU $ HEX 5,6,B,7,8 HEX 9,A,C,D HEX 0,1,2,3,4 ; COYNXUS EQU $ ; ｕｐ Ｘ スピード HEX 00,00,00,00,00 HEX 01,01,FF,FF HEX FF,FF,00,01,01 ; ; ｄｏｗｎ Ｘ スピード COYNXDS EQU $ HEX FF,FF,00,01,01 HEX 01,01,FF,FF HEX 00,00,00,00,00 ; ONECONT EQU $ HEX 0FF,001 ; ; ; COINKEY EQU $ LDA CARDMV BEQ COKY005 ; カーソル 動いてる ? ; : yes COKY002 EQU $ RTS ; ; COKY005 EQU $ LDA KEYA2 AND #11000000B BNE COKY006 ; (B),(Y) key on ? ; : yes LDA KEYA2L AND #10000000B BEQ COKY010 ; (A) key on ? ; : yes COKY006 EQU $ JMP COINPSH ; ＹボタンＯＮ ; ; COKY010 EQU $ LDA KEYA2 AND #00001111B BEQ COKY002 ; (+) key on ? ; ; yes AND #00000011B BEQ COKY020 ; Left or Right ? ; : yes ; ;-----< 左・右 >--------------------------------------------------------- ; AND #00000001B TAX LDA COINPT CLC ADC !ONECONT,X STA COINPT ; CPX #000 BNE COKY015 ; ; ----------- [ 左 ] ----------- ; CMP #0FFH BNE COKY012 ; before "0" ? ; : yes LDA #00DH STA COINPT BRA COKY050 ; COKY012 EQU $ CMP #004 BEQ COKY050 ; before "5" ? CMP #008 BEQ COKY050 ; before "9" ? LDX #000 BRA COKY060 ; ; ----------- [ 右 ] ----------- ; COKY015 EQU $ CMP #00EH BNE COKY017 ; before "D" ? ; LDA #000 STA COINPT BRA COKY050 ; COKY017 EQU $ CMP #005 BEQ COKY050 ; before "4" ? CMP #009 BEQ COKY050 ; before "8" ? LDX #001 BRA COKY060 ; ; ;-----< 上・下 >--------------------------------------------------------- ; COKY020 EQU $ LDA KEYA2 AND #00001000B BEQ COKY025 ; ; ----------- [ 上 ] ----------- ; LDX COINPT LDA !COYNXUS,X STA CONXSD ; X speed LDA !COYNXUP,X STA COINPT ; next point ; CPX #005 BCC COKY050 ; before "0"〜"4" ? ; : no LDX #002 BRA COKY060 ; ; ----------- [ 下 ] ----------- ; COKY025 EQU $ LDX COINPT LDA !COYNXDS,X STA CONXSD ; X speed LDA !COYNXDN,X STA COINPT ; next point ; CPX #009 BCS COKY050 ; before "9"〜"D" ? ; : no LDX #003 BRA COKY060 ; ;-----< ポジション リセット >-------------------------------------------- ; COKY050 EQU $ TAX LDA !COINXDT,X STA CRCXPS ; (X) pos reset !! LDA !COINYDT,X STA CRCYPS ; (Y) pos reset !! BRA COKY070 ; ;-----< フラグセット >--------------------------------------------------- ; COKY060 EQU $ INX STX CARDMV ; move flag set !! ; ;-----< ♪ サウンドセット >---------------------------------------------- ; COKY070 EQU $ LDA #05CH JSL >SOUND_3_ON ; [♪] サウンドセット ; ;------------------------------------------------------------------------- ; COKY090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINPSH ( WORLD 6 神経衰弱 ＹボタンＯＮ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COINPSH EQU $ LDX COINPT LDY COINTBL,X CPY #0FFH BEQ COPH005 ; もう、めくってある？ ; : yes LDA TRCOIN AND #001 BEQ COPH010 CPX SHINPOS+0 BNE COPH010 ; １枚目にめくった？ ; : yes COPH005 EQU $ RTS ; ; COPH010 EQU $ STY CARDNUM ; カードの種類 ;;;;;;; LDA #0FFH ;;;;;;; STA COINTBL,X ; LDA TRCOIN AND #001 ASL A TAX TYA STA SHINNUM,X ; カードの種類（セーブ用） LDA COINPT STA SHINPOS,X ; カードの位置（セーブ用） INC TRCOIN ; LDA #001 STA ENWRK0 ; 投げモーション モードへ JSR EGG_KAMAE ; 卵 イニシャル（かまえ） ; MEM16 IDX16 ; ;;;;;;;; MI16 ; memory index 16bit mode ; ;;;;;;; JSR COINRIT ; 神経衰弱 initial set ; ;[1994/09/01] LDA #TN01 ;[1994/09/01] STA PLPATN ; player paturn set !! ;[1994/09/01] LDA #00002 ;[1994/09/01] STA BSPLTP ; player type set !! ;[1994/09/01] LDA #00000 ;[1994/09/01] STA PLWALK ; paturn No. set !! MI16 LDX #PNAGE STX BSPLTP ; player type set !! LDA !PLTRNAR,X ;????? STA PLWALK ; paturn No. set !! JSR PAS050 MI8 ; INC BONSMD ; next mode ; MI8 ; memory index 8bit mode ; RTS ; ; MEM16 IDX16 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR COINRIT ( WORLD 6 神経衰弱 initial ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx COINADR EQU $ WORD 00166H+bg1_adrs+1,0016AH+bg1_adrs+1 ; １列目 WORD 0016EH+bg1_adrs+1,00172H+bg1_adrs+1 WORD 00176H+bg1_adrs+1 ; WORD 001E4H+bg1_adrs+1,001E8H+bg1_adrs+1 ; ２列目 WORD 001F4H+bg1_adrs+1,001F8H+bg1_adrs+1 ; WORD 00266H+bg1_adrs+1,0026AH+bg1_adrs+1 ; ３列目 WORD 0026EH+bg1_adrs+1,00272H+bg1_adrs+1 WORD 00276H+bg1_adrs+1 ; omote_coin EQU 00012*11+0 ; カード表 ; ;[1995/05/04];COINDAT EQU $ ;[1995/05/04]; BYTE 00012*11+1 ; ヘイホー ;[1995/05/04]; BYTE 00012*11+2 ; どろぼう ;[1995/05/04]; BYTE 00012*11+3 ; すいか ;[1995/05/04]; BYTE 00012*11+4 ; スター ;[1995/05/04]; BYTE 00012*11+5 ; たまご ;[1995/05/04]; BYTE 00012*11+6 ; マリオ ;[1995/05/04]; BYTE 00012*11+7 ; コイン ;[1995/05/04]; BYTE 00012*11+8 ; ヨッシー ;[1995/05/04];; ;[1995/05/04];COINBKD EQU $ ;[1995/05/04]; HEX 11,11,11,11,15,15,15,15 ;[1995/05/04];; ;[1995/05/04];card_00 EQU 00109H+00C00H ; ヘイホー ;[1995/05/04];card_01 EQU card_00+9 ; どろぼう ;[1995/05/04];card_02 EQU card_01+9 ; すいか ;[1995/05/04];card_03 EQU card_02+9 ; スター ;[1995/05/04];card_04 EQU card_03+9 ; たまご ;[1995/05/04];card_05 EQU card_04+9 ; マリオ ;[1995/05/04];card_06 EQU card_05+9 ; コイン ;[1995/05/04];card_07 EQU card_06+9 ; ヨッシー ;[1995/05/04];card_08 EQU 00100H+00C00H ; ヨッシー（裏） ;[1995/05/04];; ;[1995/05/04];COINBCH EQU $ ;[1995/05/04]; WORD card_00+0,card_00+1,card_00+2 ; ヘイホー ;[1995/05/04]; WORD card_00+3,card_00+4,card_00+5 ;[1995/05/04]; WORD card_00+6,card_00+7,card_00+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_01+0,card_01+1,card_01+2 ; どろぼう ;[1995/05/04]; WORD card_01+3,card_01+4,card_01+5 ;[1995/05/04]; WORD card_01+6,card_01+7,card_01+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_02+0,card_02+1,card_02+2 ; すいか ;[1995/05/04]; WORD card_02+3,card_02+4,card_02+5 ;[1995/05/04]; WORD card_02+6,card_02+7,card_02+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_03+0,card_03+1,card_03+2 ; スター ;[1995/05/04]; WORD card_03+3,card_03+4,card_03+5 ;[1995/05/04]; WORD card_03+6,card_03+7,card_03+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_04+0,card_04+1,card_04+2 ; たまご ;[1995/05/04]; WORD card_04+3,card_04+4,card_04+5 ;[1995/05/04]; WORD card_04+6,card_04+7,card_04+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_05+0,card_05+1,card_05+2 ; マリオ ;[1995/05/04]; WORD card_05+3,card_05+4,card_05+5 ;[1995/05/04]; WORD card_05+6,card_05+7,card_05+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_06+0,card_06+1,card_06+2 ; コイン ;[1995/05/04]; WORD card_06+3,card_06+4,card_06+5 ;[1995/05/04]; WORD card_06+6,card_06+7,card_06+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_07+0,card_07+1,card_07+2 ; ヨッシー ;[1995/05/04]; WORD card_07+3,card_07+4,card_07+5 ;[1995/05/04]; WORD card_07+6,card_07+7,card_07+8 ;[1995/05/04];; ;[1995/05/04]; WORD card_08+0,card_08+1,card_08+2 ; ヨッシー（裏） ;[1995/05/04]; WORD card_08+3,card_08+4,card_08+5 ;[1995/05/04]; WORD card_08+6,card_08+7,card_08+8 ; ; COINRIT EQU $ LDA COINPT AND #000FFH ASL A TAX LDA #00003H STA VRAMDX_ST ; PLA CLC ADC #00020H TAY DEC VRAMDX_ST ; PLA CLC ADC #00020H TAY PLA CLC ADC #00006H TAX DEC -------------------------------------------------- ; LDX #00000 LDA SLCOIN ; LDY #00000 ; TOCS010 EQU $ CMP #00010 BCC TOCS020 ; coin counter >= "10" ? ; ; Yes !! SBC #00010 INY BRA TOCS010 ; TOCS020 EQU $ STA --------------------------------------------- ; LDA >VRAMD TAX ; LDA #0020EH+bg1_adrs STA >VRAMD+2,X CLC ADC #00020H STA >VRAMD+10,X ; LDA #00002H*2-1 STA >VRAMD+4,X STA >VRAMD+12,X ; PHX ; (X) push ; LDA #00002 STA VRAMD+6,X BRA TOCS070 ; TOCS050 EQU $ LDA VRAMD+6,X LDA !NUMBERLOW,Y ORA #00C00H TOCS070 EQU $ STA >VRAMD+14,X INX INX DEC VRAMD+18,X ; TXA CLC ADC #00016 STA >VRAMD ; RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR YSYORMOV ( WORLD 6 神経衰弱 ヨッシー喜ぶ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx YSYORMOV EQU $ LDA BONSTM BEQ YSYR010 ; timer "0" ? ; : No DEC BONSTM BRA YSYR090 ; YSYR010 EQU $ LDA TUGIYP BNE YSYR020 ; 人数ＵＰ終了？ ; : Yes LDA CARDNUM AND #000FFH ;[1995/05/04] CMP #00007 CMP #card_10up BNE YSYR015 ; パーフェクト？ ; : Yes LDA #00080H STA BONSTM ; timer set LDA #BS6MP STA BONSMD ; next mode BRA YSYR090 ; YSYR015 EQU $ LDA PLJUMP BNE YSYR090 ; プレイヤージャンプ着地？ ; : Yes STZ TRCOIN LDX #PWALK STX BSPLTP LDA !PLTRNAR,X JSR PAS050 LDA #COINM STA BONSMD ; next mode BRA YSYR090 ; YSYR020 EQU $ ;[1995/05/04] LDA CARDNUM ;[1995/05/04] AND #000FFH ;[1995/05/04] CMP #00007 ;[1995/05/04] BNE YSYR030 ; １０ｕｐ？ ;[1995/05/04]; : Yes ;[1995/05/04] LDA TUGIYP ;[1995/05/04] SEC ;[1995/05/04] SBC #00010 ;[1995/05/04] STA TUGIYP ;[1995/05/04] LDA PLCONT ;[1995/05/04] CLC ;[1995/05/04] ADC #00010 ;[1995/05/04] STA PLCONT ;[1995/05/04] BRA YSYR040 ; YSYR030 EQU $ DEC TUGIYP INC PLCONT ; YSYR040 EQU $ LDA #00008H JSL >SOUND_3_ON ; [♪] サウンドセット ; JSR PLCNTST ; 人数ＵＰ LDA #00030H STA BONSTM ; timer set ; YSYR090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR YSKANMOV ( WORLD 6 神経衰弱 ヨッシー悲しむ ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx YSKANMOV EQU $ LDA BONSTM BEQ YSKN010 ; timer "0" ? ; : No DEC BONSTM BRA YSKN090 ; YSKN010 EQU $ DEC TRCOIN BMI YSKN020 ; カード裏返し終了？ ; : No ; LDA #00050H JSL >SOUND_3_ON ; [♪] サウンドセット INC BONSMD ; next mode BRA YSKN090 ; YSKN020 EQU $ STZ TRCOIN LDX #PWALK STX BSPLTP LDA !PLTRNAR,X JSR PAS050 LDA #COINM STA BONSMD ; next mode ; YSKN090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CARDRTIN ( WORLD 6 神経衰弱 カード戻し init ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CARDRTIN EQU $ LDA TRCOIN AND #000FFH ASL A TAX LDA SHINPOS,X AND #000FFH ASL A TAX LDA #00003H STA VRAMDX_ST ; PLA CLC ADC #00020H TAY DEC VRAMDX_ST ; PLA CLC ADC #00020H TAY PLA CLC ADC #00006H TAX DEC ------------------------------------- ;[1995/04/28]CRCNG010 EQU $ ;[1995/04/28] LDA #014 ;[1995/04/28] SEC ;[1995/04/28] SBC TURNCNT ;[1995/04/28] STA RANDAM ; ランダムｃａｌｌ ;[1995/04/28] JSL >RANDAM ; ランダムｃａｌｌ（ダブル） ;[1995/04/28]; ;[1995/04/28] LDA --------------------------------- ;[1995/04/28] LDX CHNGPOS+2 ;[1995/04/28] LDA CHNGNUM+0 ;[1995/04/28] STA COINTBL,X ;[1995/04/28] LDX CHNGPOS+0 ;[1995/04/28] LDA CHNGNUM+2 ;[1995/04/28] STA COINTBL,X ;[1995/04/28]; ;[1995/04/28] MI16 ; memory,index 16bit mode !! ;[1995/04/28]; ;[1995/04/28];-----< カード入れ替え・ＢＧセット >------------------------------------- ;[1995/04/28] JSR CARDCSET ;[1995/04/28]; ;[1995/04/28] LDA #0001BH ; #00045H ;[1995/04/28] JSL >SOUND_3_ON ; [♪] サウンドセット ;[1995/04/28]; ;[1995/04/28];-----< タイマーセット >------------------------------------------------- ;[1995/04/28] LDA #change_time ;[1995/04/28] STA BONSTM ; timer set ;[1995/04/28]; ;[1995/04/28] RTS ;[1995/04/28]; ;[1995/04/28]; ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28];x JSR CTBSERCH ( WORLD 6 神経衰弱 入れ替え search ) x ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28]CTBSERCH EQU $ ;[1995/04/28] MI8 ; memory,index 8bit mode !! ;[1995/04/28]; ;[1995/04/28] LDX #000 ; テーブルｐｏｓ ;[1995/04/28] LDY #000 ; 空きエリアカウンター ;[1995/04/28]CTSR010 EQU $ ;[1995/04/28] CPX CHNGPOS+0 ;[1995/04/28] BEQ CTSR020 ; 入れ替え１枚目セット？ ;[1995/04/28]; : No ;[1995/04/28] LDA CHNGTBL,X ;[1995/04/28] CMP #0FFH ;[1995/04/28] BEQ CTSR020 ; カード裏向き？ ;[1995/04/28]; : No ;[1995/04/28] CPY VRAMDX_ST ;[1995/04/28]; ;[1995/04/28] PLA ;[1995/04/28] CLC ;[1995/04/28] ADC #00020H ;[1995/04/28] TAY ;[1995/04/28] PLA ;[1995/04/28] CLC ;[1995/04/28] ADC #00006H ;[1995/04/28] TAX ;[1995/04/28] DEC SOUND_3_ON ; [♪] サウンドセット LDA #CR10M BRA CRALL020 ; CRALL010 EQU $ STZ COINPT LDA #00040H STA BONSTM ; timer set ;[1995/04/28] LDA #CRINT LDA #CRALR CRALL020 EQU $ STA BONSMD ; next mode ; CRALL090 EQU $ RTS ; ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x JSR CRALLINT ( WORLD 6 神経衰弱 全カード反転 init ) x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CRALLINT EQU $ LDA COINPT AND #000FFH ASL A TAX LDA #00003H STA VRAMDX_ST ; PLA CLC ADC #00020H TAY DEC SOUND_3_ON ; [♪] サウンドセット ;[1995/04/28] LDA #CR10M ;[1995/04/28] BRA CRALR020 BRA CRALR090 ; CRALR010 EQU $ ;[1995/04/28] LDA #00040H ;[1995/04/28] STA BONSTM ; timer set ;[1995/04/28] LDA #CRINT ; JSR COININT ; ＲＡＭセット ; LDA #COINM ; 神経衰弱ゲームスタート CRALR020 EQU $ STA BONSMD ; next mode ; CRALR090 EQU $ RTS ; ; ; ; ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28];x JSR CARDRTNM ( WORLD 6 神経衰弱 裏返し main ) x ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28]CARDRTNM EQU $ ;[1995/04/28] MI8 ; memory,index 8bit mode ;[1995/04/28]; ;[1995/04/28];-----< カード裏返しＮｏ．セット >--------------------------------------- ;[1995/04/28] JSL >RANDAM ; ランダムｃａｌｌ ;[1995/04/28]; ;[1995/04/28] M8 ; memory 8bit mode ;[1995/04/28] LDA #014 ;[1995/04/28] SEC ;[1995/04/28] SBC TURNCNT ;[1995/04/28] STA 4202H ; 基準被乗数 ;[1995/04/28] LDA RANDM0 ;[1995/04/28] STA 4203H ; 乗数 ;[1995/04/28] NOP ;[1995/04/28] NOP ;[1995/04/28] NOP ;[1995/04/28] NOP ;[1995/04/28] M16 ; memory 16bit mode ;[1995/04/28] LDA 4216H ;[1995/04/28] XBA ;[1995/04/28] M8 ; memory 8bit mode ;[1995/04/28] AND #00FH ;[1995/04/28] STA ---------------------------------------- ;[1995/04/28] MI16 ; memory,index 16bit mode ;[1995/04/28]; ;[1995/04/28] JSR CARDRTIN ; カード戻し init ;[1995/04/28]; ;[1995/04/28] RTS ;[1995/04/28]; ;[1995/04/28]; ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28];x JSR CRRTNSRH ( WORLD 6 神経衰弱 裏返し search ) x ;[1995/04/28];xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;[1995/04/28]CRRTNSRH EQU $ ;[1995/04/28] MI8 ; memory,index 8bit mode !! ;[1995/04/28]; ;[1995/04/28] LDA TURNCNT ;[1995/04/28] CMP #014-3+1 ;[1995/04/28] BEQ CRSH050 ; 残り３枚？ ;[1995/04/28]; : No ;[1995/04/28]; ;[1995/04/28]CRSH005 EQU $ ;[1995/04/28] LDX #000 ; テーブルｐｏｓ ;[1995/04/28] LDY #000 ; 空きエリアカウンター ;[1995/04/28]CRSH010 EQU $ ;[1995/04/28] LDA CHNGTBL,X ;[1995/04/28] CMP #0FFH ;[1995/04/28] BEQ CRSH020 ; カード裏向き？ ;[1995/04/28]; : No ;[1995/04/28] CPY ---------------------------------------------- ;[1995/04/28]CRSH050 EQU $ ;[1995/04/28] LDX #000 ;[1995/04/28] LDY #000 ;[1995/04/28]CRSH055 EQU $ ;[1995/04/28] LDA CHNGTBL,X ;[1995/04/28] CMP #0FFH ;[1995/04/28] BEQ CRSH060 ; カード裏向き？ ;[1995/04/28]; : No ;[1995/04/28] LDA COINTBL,X ;[1995/04/28] STA WORK0,Y ;[1995/04/28] TXA ;[1995/04/28] STA WORK3,Y ;[1995/04/28] INY ;[1995/04/28]; ;[1995/04/28]CRSH060 EQU $ ;[1995/04/28] INX ;[1995/04/28] CPY #003 ;[1995/04/28] BNE CRSH055 ; ３枚セット？ ;[1995/04/28]; : Yes ;[1995/04/28]; ;[1995/04/28] LDY #000 ;[1995/04/28] LDA WORK0 ;[1995/04/28] CMP WORK1 ;[1995/04/28] BEQ CRSH090 ; １枚目＝＝２枚目？ ;[1995/04/28]; : No ;[1995/04/28] CMP WORK2 ;[1995/04/28] BEQ CRSH090 ; １枚目＝＝３枚目？ ;[1995/04/28]; : No ;[1995/04/28] INY ;[1995/04/28] LDA WORK1 ;[1995/04/28] CMP WORK2 ;[1995/04/28] BNE CRSH005 ; ２枚目＝＝３枚目？ ;[1995/04/28]; : Yes ;[1995/04/28]CRSH090 EQU $ ;[1995/04/28] LDX WORK3,Y ;[1995/04/28] RTS ; ; ; ; ; ; END ; ; ;