;************************************************************************ ;* * ;* title name : "yossy tool" * ;* proccess : edit process * ;* file name : yst_edit * ;* * ;************************************************************************ ; ; SALL ; include yst_header.inc ; XALL ; ; ;------------------------------------------------------------------------ ; ; Super_Y edit-tool 1992.03.05(THU) ; ;------------------------------------------------------------------------ ; ; ;=============================================== (syt_edit) ============= GLB PLAY,MODESL,ERROR,INPTDT,WNDWST GLB PSCTDT1,UNITST0 GLB MSSCRMD,PLPSST GLB PLY510,STRTBFST,ALLMOVE,DSPCOPYMD GLB EN_SDPTCAL,UNDR_ITCOL,UNDR_COL GLB STUNT0_SB_ST,UNDO_GO ; ;=============================================== (sytz_main) ============== EXT VRAMCL,OAMCLR2,JSRSUB,DTBFCLR,DTBFCLR1 ; ;=============================================== (syt_init) ============== EXT BGWRITE,BGSET,UNITST EXT MDSL,CGST,BGWR,PLMD,ERR0,DTSV,DTLD,DTDS,BGDS EXT UPSL,DWSL,LFSL,RISL,STIN,MFRM,DTDL,GAME EXT MSSC,PSST,ALMV,DSPCP,ITSB EXT BGDISP ; ;=============================================== (syt_bgsc0) ============= EXT KOTESB,KAHNSB ; ;=============================================== (syt_data) ============== EXT COSEDAT ; ;=============================================== yst_en_edit ============= GLB ENBGMV ; ;=============================================== yst_en_file ============= EXT UN_ENAME_SET ;========================================================================= BS_LMT EQU 00FH ;========================================================================= ; ; ;=============== ダミー ================================================== GLB M_HEIIN,M_ATKIN,M_HEIMV,M_ATKMV,M_HAZIN GLB M_HAZMV,M_LIFIN,M_LIFMV,M_ETRIN,M_TH1IN GLB M_ETRMV,M_FUSIN,M_TH1MV,M_FUSMV,M_MISIN GLB M_MISMV,M_TAMIN,M_HZKMV,M_TAMMV GLB M_THOIN,M_THOMV,M_PTRIN,M_PTRMV,M_SUIIN GLB M_SUIMV,M_BAKIN,M_BAKMV,M_DR0IN,M_DR1IN GLB M_BBYIN,M_DR2IN,M_DR3IN,M_DR4IN,M_DR0MV GLB M_DR5IN,M_DR1MV,M_BBYMV,M_EGGIN,M_DR2MV GLB M_DR3MV,M_DR4MV,M_ATAIN,M_DR5MV,M_EGGMV GLB M_ATAMV,STT_PL_GO,HMPIN,STT_PL_STP GLB BGM_SET,BS_SCRE,TMUP,D_00,BOSSQ_MD7_SET GLB INT_STAT,EGG_SAVE,EGG_LOAD,MHDPLY_JSL GLB M_ITMIN,M_ITMMV ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; ; EXTEND ; ; MEM8 IDX8 ; Group_17 GROUP Edit_pro Edit_pro SECT REL ; ; ;************************************************************************ ;* Play main (PLAY) * ;************************************************************************ PLAY EQU $ LDA #002 STA !ENBGFLG ; LDA INKEY CMP #L_U ; inkey [U] ON ? BNE PASS00_000 ; NO -> PASS00_000 LDA #ITSB ; 敵ツールへ・・・ STA !MODENO ; STZ !ENBGFLG ; JSL >UN_ENAME_SET RTL ; PASS00_000 EQU $ CMP #L_Z ; inkey [Z] ON ? BNE PASS00 ; NO -> PASS00 ; JSR MSSCINT ; PASS00 EQU $ CMP #RIS BNE PASS02 ; [F_9] --- (player pos set) ? ; LDA #PSST STA MODENO STZ !TIMSTFG RTL ; PASS02 EQU $ LDA !MOUSEBT ; ＩＮＰＵＴユニットナンバー AND #11000000B ; カーソル位置クリア ? BEQ PASS02_10 ; NO -> PASS02_10 STZ !INDTPT ; PASS02_10 EQU $ LDA DTMODE ; ka-he-n mode ? BEQ PASS20 ; NO -> PASS20 ; LDA INKEY CMP #L_X ; "X" ON ? BNE PASS10 ; NO -> PASS10 LDA CRSSMMD CMP #002H ; Y lock mode ? BEQ PASS30 ; YES -> PASS30 EOR #001H ; X lock AND #001H ; ON or OFF set BRA PASS15 PASS10 EQU $ CMP #L_Y ; "Y" ON ? BNE PASS30 ; NO -> PASS30 LDA CRSSMMD CMP #001H ; X lock mode ? BEQ PASS30 ; YES -> PASS30 EOR #002H ; Y lock AND #002H ; ON or OFF set PASS15 EQU $ STA CRSSMMD BRA PASS30 ; PASS20 EQU $ STZ CRSSMMD ; PASS30 EQU $ LDA MOUSEBT AND #01000000B BEQ PLY0FF ; mouse [L] key --- (data set) ? JMP PLY100 ;yes ; ; no PLY0FF EQU $ LDX #00 ;(X) <-- edit mode select no. LDA INKEY CMP #L_Q BEQ PLY0FF2 ;"NORMAL" ? ( yes:PLY0FF2 ) ; INX CMP #L_W BEQ PLY0FF2 ;"INSERT" ? ( yes:PLY0FF2 ) ; INX CMP #L_R BEQ PLY0FF2 ;"S-DEL" ? ( yes:PLY0FF2 ) ; INX CMP #L_T BEQ PLY0FF2 ;"DELETE" ? ( yes:PLY0FF2 ) ; INX CMP #L_S BEQ PLY0FF2 ;"SERACH" ? ( yes:PLY0FF2 ) ; INX CMP #L_G ; "1 unit move" ? BEQ PLY0FF2 ; YES -> PLY0FF2 ; INX CMP #L_I ; all move ? BNE PLY0FFE ; NO -> PLY0FFE ; LDY #0FFH STY SRCHPT STY SRCHPT+1 STZ !UNTMVMD ; PLY0FF2 EQU $ STX EDMODE JMP PLY040 ; PLY0FFE EQU $ LDX #MDSL CMP #MOD BNE PLY000 ; [F_1] --- (mode select) ? ; LDA EDMODE ASL A INC A ;[ +08H ] ASL A ASL A ASL A STA MOUSWK0 JMP PLY200 ; PLY000 EQU $ ; no CMP #RTN BNE PLY020 ;undo ? ( no:PLY020 ) ; ;-------------- to undo data back_up !! ----------------- ; I16 ; LDX UNDONO BNE PLY010 ;undo data nothing ? ( no:PLY010 ) ; SEP #00010000B ;index 8 bit mode set JMP PLY040 ; PLY010 EQU $ LDA >UNDOBUF-1,X STA >DTBUFF-1,X DEX BNE PLY010 ;;;; LDX #00 STX UNDONO ;undo buffer cancel !! ; LDX UNDOXP1 ;cursol pos load STX CRXPSL1 LDX UNDOYP1 STX CRYPSL1 LDX UNDOXP2 STX CRXPSL2 LDX UNDOYP2 STX CRYPSL2 ; M16 I8 ; LDX UNDOSFT ;move cousol index load STX SIFTFG ; JSR CSRDSCK BCC PLY014 ;Y display ? ( yes:PLY014 ) ; JSR CNTSCST ; PLY014 EQU $ ; M8 ; JMP >UNITST0 ; unit buffer set ; ;-------------------------------------------------------- ; PLY020 EQU $ CMP #SPS BNE PLY028 ;return last input data pos ? ( no:PLY028 ) ; ;-------------- return last input data pos -------------- LDA LASTFG BNE PLY022 ;last input data nothing ? ( no:PLY022 ) JMP PLY040 ; PLY022 EQU $ ; M16 ; LDA LASTXP STA CRXPSL1 STA CRXPSL2 LDA LASTYP STA CRYPSL1 STA CRYPSL2 ; JSR CNTSCST ; JMP >REDISP ; ;---------------------------------------------------------------- ;- cursol display check - ;---------------------------------------------------------------- CSRDSCK EQU $ LDX SIFTFG LDA CRXPSL1,X SEC SBC PLY029 LDA !BG3CLSFG EOR #004H AND #004H STA !BG3CLSFG ; ます目を消す RTL ; PLY029 EQU $ CMP #F_0 BNE PLY030 ; [F_10] -- (character change) ? ; ;-------------- game mode ----------------------- LDA #GAME STA MODENO STZ ENDTPT STZ ENDTPT+1 LDA #01H STA FADMK RTL ; PLY030 EQU $ CMP #CHC BNE PLY031 ; [F_7] --- (character change) ? ; ;-------------- go to BG course status data input ------- LDX #STIN STX MODENO STZ STINFG RTL ; PLY031 EQU $ ;;;; CMP #SPS ;;;; BEQ PLY180 ; [space] --- (cursol1 = cursol2) ? ; ; no LDX #MFRM CMP #FRM BEQ PLY450 ; [F_2] --- (media format) ? ; LDX #DTSV CMP #SAV BEQ PLY300 ; [F_3] --- (data save) ? ; ; no LDX #DTLD CMP #LOD BEQ PLY400 ; [F_4] --- (data load) ? ; ; no LDX #DTDL CMP #DEL BEQ PLY480 ; [F_5] --- (data delete) ? ; ; no LDX #DTDS CMP #UNT BEQ PLY500 ; [F_6] --- (unit display) ? ; ; no LDA INKEY3 LDX #LFSL ;;;; CMP #LFS ;;;; BEQ PLY800 ; [F_8] --- (left scroll) ? CMP #L_K BNE PLY032 ; [K] ----- (left scroll) ? ; ; yes PLY800 EQU $ JMP PLY820 ; PLY032 EQU $ LDX #RISL ;;;; CMP #RIS ;;;; BEQ PLY900 ; [F_9] --- (right scroll) ? CMP #L_L BNE PLY034 ; [L] ----- (right scroll) ? ; ; yes PLY900 EQU $ JMP PLY920 ; PLY034 EQU $ CMP #UPS ; [UPS] ON ? BNE PLY034_00 ; NO -> PLY034_00 LDA #DSPCP STA !MODENO RTL ; PLY034_00 EQU $ LDX #UPSL CMP #L_O BEQ PLY600 ; [O] ----- (up scroll) ? ; ; no LDX #DWSL CMP #DWS BEQ PLY700 ; [DWS] --- (down scroll) ? CMP #L_c BEQ PLY700 ; [,] ----- (down scroll) ? ; PLY040 EQU $ JSR MSNDTST ; select no display ; JSR BGMOVE ; BG. move JSR CRMV ; key read and cursol mov; BG. set JSL >BGSET ; JSR DTIMAIN ; data input ; ;------------- input data set key on ------------- PLY100 EQU $ PHB ;(DBR) save PHK ;(DBR) <-- (PBR) PLB ; LDX #000 LDA !MUSEBUF BEQ PLY100_10 INX INX PLY100_10 EQU $ JSR (MUSDBL_ADR,X) ; JSR DPDISP ; dtpt & buffer data display JSR MODEPL ; PLB RTL ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ マウス ダブルクリック チェック + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MUSDBL_ADR EQU $ WORD MUSDBLINT,MUSDBL ; ; ;;;;;------------- coursol equrl key on ------------- ;;;;PLY180 EQU $ ;;;; LDA CRYPSL1 ;;;; STA CRYPSL2 ;;;; LDA CRXPSL1 ;;;; STA CRXPSL2 ;;;; LDA #0FFH ;;;; STA INKEY ;;;; BRA PLY040 ; ;------------- delete mode ------------- PLY480 EQU $ STZ DELFLG BRA PLY410 ; ;------------- media format ------------- PLY450 EQU $ STZ FRMFLG BRA PLY200 ; ;------------- load mode ------------- PLY400 EQU $ STZ LDFLG PLY410 EQU $ BRA PLY200 ; ;------------- save mode ------------- PLY300 EQU $ STZ SVFLG ; PHX ;(X) save JSL >PLY510 PLX ;(X) load ; ;------------- mode select display key on ------------- PLY200 EQU $ STX MODENO RTL ; ;------------- unit display mode ------------- PLY500 EQU $ STX MODENO STZ MPDSFG ; PLY510 EQU $ PHB ;(DBR) save PHK ;(DBR) <-- (PBR) PLB JSR SDPTCAL ;[STDTPT] set PLB RTL ; ;------------- up scroll ------------- PLY600 EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDA INPTDT,X CLC TYX ADC >INPDADD,X AND #0FH ORA #SU0 CMP #SU9+1 BCC DTIPT04 ; ;;;; CLC ADC #L_A-SU9-1-1 DTIPT04 EQU $ PLX STA INPBUF,X BRA DTIPT20 ; DTIPT10 EQU $ LDX INDTPT LDA INKEY STA INPBUF,X ; input data set ; TXA EOR #00000001B STA INDTPT ; ;-------------- BG data type no. OAM set ---------------- DTIPT20 EQU $ LDX #DSPDTE-DSPDT-1 DTIPT40 EQU $ LDA >DSPDT,X STA >UTNOAM,X DEX BPL DTIPT40 ; ; ; LDA INPBUF STA >UTNOAM+4*0+2 LDA INPBUF+1 STA >UTNOAM+4*1+2 ; LDA UTNOAM+4*0+3,X DTIPT80 EQU $ LDX INPBUF+0 LDA >INPTDT,X ASL A ASL A ASL A ASL A STA INPTDT,X ORA MODOAM,X DEX BPL MSN0100 ; ; ; LDY EDMODE ; (Y) <-- mode no. CPY #006H BCS MSN0900 LDX MDDTPT,Y LDA MSDATA+0,X STA >MODOAM+4*0+2 LDA MSDATA+1,X STA >MODOAM+4*1+2 LDA MSDATA+2,X STA >MODOAM+4*2+2 LDA MSDATA+3,X STA >MODOAM+4*3+2 LDA MSDATA+4,X STA >MODOAM+4*4+2 LDA MSDATA+5,X STA >MODOAM+4*5+2 ; LDA #00101010B STA >OAMSUB+((CHCOAM-OAM)>>4) ; LDA DISPMDDT,Y EOR !BG3CLSFG STA !MANSEL ; MSN0900 EQU $ PLB ; (DBR) reset RTS ; ; DISPMDDT EQU $ BYTE 016H,016H,017H,017H,017H,017H ; ; ; ;************************************************************************ ;* Mode play (MODEPL) * ;************************************************************************ INPTDT EQU $ ; ASC --> HEX ; 0 1 2 3 4 5 6 7 8 9 A B C D E F HEX FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF ; 0 HEX FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,00 ; 1 HEX 7F,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,25,26,27 ; 2 HEX 00,01,02,03,04,05,06,07,08,09,FF,FF,FF,28,FF,FF ; 3 HEX FF,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,17,18 ; 4 HEX 19,1A,1B,1C,1D,1E,1F,20,21,22,23,FF,FF,FF,FF,29 ; 5 HEX FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF ; 6 HEX FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF ; 7 ; ; MODEPL EQU $ LDA EDMODE JSL >JSRSUB Normal WORD DATSL ;00 NORMAL Insert WORD INSERT ;01 INSERT S_del WORD SRCDEL ;02 S-DEL Delete WORD DELET ;03 DELET Search WORD SEARCH ;04 SERCH WORD ONEMOVE ;05 １ ユニット 移動 モード WORD ALLMVINT ;06 WORD ALLMVEND ;08 ;;;;B_chng WORD BSCHNG ;05 B_CHNG ; normal EQU (Normal-Normal)/2 insert EQU (Insert-Normal)/2 s_del EQU (S_del-Normal)/2 delete EQU (Delete-Normal)/2 search EQU (Search-Normal)/2 ;;;;b_chng EQU (B_chng-Normal)/2 ; ; ; ; ;---------------------------------------------------------------- ;- to undo data back_up !! - ;---------------------------------------------------------------- UNDOBFST EQU $ ; I16 ; LDX STDTPT INX STX UNDONO UNDBS010 EQU $ LDA >DTBUFF-1,X STA >UNDOBUF-1,X DEX BNE UNDBS010 ; LDX CRXPSL1 ;cursol pos save STX UNDOXP1 LDX CRYPSL1 STX UNDOYP1 LDX CRXPSL2 STX UNDOXP2 LDX CRYPSL2 STX UNDOYP2 LDA SIFTFG STA UNDOSFT ;move cousol index save ; I8 ; RTS ; ; ;------------------------------------------------------------------------ ;- Data select & buffer set [NORMAL] (DATSL) - ;------------------------------------------------------------------------ DATSL EQU $ LDA MOUSEBT AND #01000000B BEQ DATEND ; mouse [L] key --- (data set) ? ; ; no JSR UNDOBFST ; DATSL1 EQU $ LDX INPBUF+0 LDA >INPTDT,X ASL A ASL A ASL A ASL A STA INPTDT,X TSB KOTESB,X BPL DTSL020 ;type no. error ? ( no:DTSL020 ) JMP ERRST0 ; DTSL020 EQU $ ; I16 ; LDX STDTPT ; (X) <-- set data pointer LDA #00 STA >DTBUFF,X ;kotei flag set JSR CPSCAL STA >DTBUFF+1,X ; X,Y(H) set LDA DTBUFF+2,X ; X,Y(L) set LDA DTBUFF+3,X ; kotei data type no. set LDA #0FFH STA >DTBUFF+4,X ; end code ; I8 ; STZ SIFTFG ; DTSL030 EQU $ ; ;-------------- last input data pos set ------------------------- ; M16 ; LDA CRXPSL1 AND #0FF0H STA LASTXP LDA CRYPSL1 AND #07F0H STA LASTYP ; M8 ; LDA #01H STA LASTFG ; JSL >UNITST0 ; unit buffer set ; DATEND EQU $ RTS ; ;-------------- kahen data set -------------------------- KAHNNO EQU $ ;number of data byte HEX 4 ;[00] HEX 4 ;[01] HEX 5 ;[02] ; BGUTS200 EQU $ LDX KAHNSB,X CMP #0FFH BNE BGUTS202 ; type no. error ? ( no:BGUTS202 ) JMP ERRST0 ; BGUTS202 EQU $ TXA ; I16 ; LDX STDTPT ; (X) <-- set data pointer STA >DTBUFF,X ; kahen type no. set TAY ;(Y) <-- kahen type no. JSR CPSCAL STA >DTBUFF+1,X ; X,Y(H) set LDA DTBUFF+2,X ; X,Y(L) set ; I8 ; TYX LDA >KAHNSB,X STA DTBUFF+3,X ; data number set LDA #0FFH STA >DTBUFF+4,X ; end code set ; I8 ; index 8bit mode RTS ; ;-------------- kahen sub.2 --------------------- KAHNSB1 EQU $ I16 ; index 16bit mode ; LDX STDTPT ; (X) <-- set data pointer LDA DTBUFF+3,X ; data number set LDA #0FFH STA >DTBUFF+4,X ; end code set ; LDA DTBUFF,X ; end code set I8 ; index 8bit mode PLA PLA RTS ; KAHNSB15 EQU $ I8 ; index 8bit mode RTS ; ;-------------- kahen sub.3 --------------------- KAHNSB2 EQU $ I16 ; index 16bit mode ; LDX STDTPT ; (X) <-- set data pointer LDA DTBUFF+3,X ; data number set LDA DTBUFF+4,X ; data number set LDA #0FFH STA >DTBUFF+5,X ; end code set ; LDA >DTBUFF,X CMP #021H BCC KAHNSB23 CMP #035H BCC KAHNSB25 ; KAHNSB23 EQU $ LDA DTBUFF,X ; end code set I8 ; index 8bit mode PLA PLA RTS ; KAHNSB25 EQU $ I8 ; index 8bit mode RTS ; ;-------------- kahen sub.4 --------------------- KAHNSB3 EQU $ I16 ; index 16bit mode ; LDX STDTPT ; (X) <-- set data pointer LDA CRXPSH2 AND #0FH STA DTBUFF+3,X ; data number set LDA #0FFH STA >DTBUFF+4,X ; end code set ; I8 ; index 8bit mode RTS ; ; ; ;------------------------------------------------------------------------ ;- Inseart [INSERT] (INSERT) - ;------------------------------------------------------------------------ INSERT EQU $ LDA MOUSEBT AND #01000000B BNE INS0010 ; mouse [L] key --- (data set) ? ; ; no REP #00100000B ;memory 16 bit mode ; LDA SRCHNO JMP DPD0300 ; point display ; INS0010 EQU $ JSR INSPL LDA ERRFLG BNE INSEND ;error ? ( yes:INSEND ) ; JSL >UNITST0 ; unit buffer set ; STZ EDMODE ;nomal mode return INSEND EQU $ RTS ; INSPL EQU $ JSR UNDOBFST ; MI16 ; LDX INSTPT BPL INP0000 ;serach pointer nothing ? ( no:INP0000 ) JMP ERRST0 ; ;-------------- now data save ------------------- INP0000 EQU $ LDA STDTPT SEC SBC INSTPT PHA ;number of copy data byte save TAY STX STDTPT ; M8 ; INP0010 EQU $ LDA >DTBUFF,X STA >DTBUFF2,X INX DEY BPL INP0010 ; I8 ; ;-------------- data set ------------------------ JSR DATSL1 ; MI16 ; PLA ; LDY ERRFLG BNE INP0070 ;error return ? ( yes:INP0070 ) ; STA DTBUFF,X AND #00FFH BEQ INP0040 ;kotei ? ( yes:INP0040 ) ; PHX ;(X) save TAX LDA >KAHNSB,X PLX ;(X) load AND #003FH TAY LDA !KAHNNO,Y AND #00FFH TAY ;(Y) <-- number of kahen data byte INP0040 EQU $ TYA CLC ADC INSTPT STA INSTPT STA SRCHPT INC SRCHNO TAY CLC ADC DTBUFF2,X STA [UNITST0 ; unit buffer set ; STZ EDMODE ;nomal mode return SDLEND EQU $ RTS ; ; ; ; ;------------------------------------------------------------------------ ;- Delete [DELETE] (DELET) - ;------------------------------------------------------------------------ DELET EQU $ LDA MOUSEBT AND #01000000B BEQ DELEND ; mouse [L] key --- (data set) ? ; ; no JSR DELPL LDA ERRFLG BNE DELEND ;error ? ( yes:DELEND ) ; JSL >UNITST0 ; unit buffer set ; STZ EDMODE ;nomal mode return DELEND EQU $ RTS ; ; DELPL EQU $ JSR UNDOBFST ; I16 ; LDY SRCHPT BMI DLPER10 ; PHB ;(DBR) save LDA #BANK DTBUFF PHA PLB DLP0010 EQU $ ; M16 ; LDX #04H ;(X) <-- number of kotei data byte LDA DTBUFF,Y AND #00FFH BEQ DLP0020 ;kotei ? ( yes:DLP0020 ) ; CMP #0FFH BEQ DLPERR ;data end ? ( yes:DLPERR ) ; TAX LDA >KAHNSB,X AND #003FH TAX LDA >KAHNNO,X AND #00FFH TAX ;(X) <-- number of kahen data byte DLP0020 EQU $ STX STDTPT SEC SBC DTBUFF,X AND #00FFH ;[ (B)=0 ] BEQ SRCH210 ; kahen data ? ; ; yes PHX ;(X) save TAX LDA >KAHNSB,X PLX ;(X) load AND #003FH TAY LDA !KAHNNO,Y AND #00FFH ;[ (B)=0 ] TAY ;(Y) <-- number of kahen data byte ; SRCH210 EQU $ STY DTBUFF,X PHA LSR A LSR A LSR A LSR A TAX LDA >PSCTDT1,X STA !PTDOAM+(DPTDT0-DPTDT+2)+4*5,Y PLA AND #00001111B TAX LDA >PSCTDT1,X STA !PTDOAM+(DPTDT0-DPTDT+2)+4*6,Y PLX INX TYA ;[ (Y) < FF !! then (B)=0 ] CLC ADC #4*3 TAY DEC DTBUFF,X AND #00FFH BEQ SRCH012 ;kotei ? ( yes:SRCH012 ) ; CMP #00FFH BEQ SRCH050 ;end code ? ( yes:SRCH050 ) ; PHX ;(X) save TAX LDA >KAHNSB,X PLX ;(X) load AND #003FH TAY LDA !KAHNNO,Y AND #00FFH TAY SRCH012 EQU $ STY DTBUFF,X CMP #0FFH BEQ SRCH050 ;end code ? ( yes:SRCH050 ) ; LDA >DTBUFF+1,X CMP DTBUFF+2,X CMP WORK2 Y --> WORK4 - ;---------------------------------------------------------------- CPSCAL EQU $ LDA CRXPSL1 LSR A LSR A LSR A LSR A STA BGSET ; DSPCOPYMD_000 EQU $ MI16 ; memory , index 16bit mode LDX #00000H DSPCOPYMD_010 EQU $ LDA DSPCOPYMD_DAT,X STA >OAM+100H,X INX INX CPX #DSPCOPYMD_DATA-DSPCOPYMD_DAT BCC DSPCOPYMD_010 MI8 ; memory , index 8bit mode ; LDA !DSPCPFM ; ＦＲＯＭ ＮＯ．セット PHA LSR A LSR A LSR A LSR A STA OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+2 CLC ADC OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+2 PLA AND #00FH STA OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+6 CLC ADC OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+6 ; LDA !DSPCPTO PHA LSR A LSR A LSR A LSR A STA OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+2 CLC ADC OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+2 PLA AND #00FH STA OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+6 CLC ADC OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+6 ; LDX !UNTMVMD JSR (DSPCOPYMD_ADR,X) ; PLB RTL ; DSPCOPYMD_ADR EQU $ WORD DSPCOPYMD_100,DSPCOPYMD_200 WORD DSPCOPYMD_300,DSPCOPYMD_400 ; DSPCOPYMD_DAT EQU $ BYTE 039H,0AAH,044H,032H ; Ｄ BYTE 041H,0AAH,049H,032H ; Ｉ BYTE 048H,0AAH,053H,032H ; Ｓ BYTE 050H,0AAH,050H,032H ; Ｐ BYTE 058H,0AAH,04CH,032H ; Ｌ BYTE 060H,0AAH,041H,032H ; Ａ BYTE 068H,0AAH,059H,032H ; Ｙ ; BYTE 078H,0AAH,043H,032H ; Ｃ BYTE 080H,0AAH,04FH,032H ; Ｏ BYTE 088H,0AAH,050H,032H ; Ｐ BYTE 090H,0AAH,059H,032H ; Ｙ ; BYTE 0A0H,0AAH,04DH,032H ; Ｍ BYTE 0A8H,0AAH,04FH,032H ; Ｏ BYTE 0B0H,0AAH,044H,032H ; Ｄ BYTE 0B8H,0AAH,045H,032H ; Ｅ ; BYTE 046H,0B9H,046H,032H ; Ｆ BYTE 04EH,0B9H,052H,032H ; Ｒ BYTE 056H,0B9H,04FH,032H ; Ｏ BYTE 05EH,0B9H,04DH,032H ; Ｍ BYTE 068H,0B9H,05FH,032H ; ― DSPCOPYMD_FRM EQU $ BYTE 070H,0B9H,070H,032H ; ０ BYTE 078H,0B9H,070H,032H ; ０ ; BYTE 08EH,0B9H,054H,032H ; Ｔ BYTE 096H,0B9H,04FH,032H ; Ｏ BYTE 0A0H,0B9H,05FH,032H ; ― DSPCOPYMD_TO EQU $ BYTE 0A8H,0B9H,070H,032H ; ０ BYTE 0B0H,0B9H,070H,032H ; ０ ; DSPCOPYMD_DATA EQU $ ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー モード 転送元セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DSPCOPYMD_100 EQU $ JSR DSPCOPYMD_SUB ; キーチェック LDA OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+3 EOR #002H STA >OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+3 STA >OAM+100H+(DSPCOPYMD_FRM-DSPCOPYMD_DAT)+7 DSPCOPYMD_110 EQU $ LDA !MOUSEBT AND #11000000B ; mouse key ON ? BEQ DSPCOPYMD_190 ; NO -> DSPCOPYMD_190 AND #01000000B ; mouse [L] key ON ? BEQ DSPCOPYMD_150 ; NO -> DSPCOPYMD_150 JSR CPSCAL STA !DSPCPFM DSPCOPYMD_150 EQU $ INC !UNTMVMD INC !UNTMVMD DSPCOPYMD_190 EQU $ RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー モード 転送先セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DSPCOPYMD_200 EQU $ JSR DSPCOPYMD_SUB ; キーチェック LDA OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+3 EOR #002H STA >OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+3 STA >OAM+100H+(DSPCOPYMD_TO-DSPCOPYMD_DAT)+7 DSPCOPYMD_210 EQU $ LDA !MOUSEBT AND #11000000B ; mouse key ON ? BEQ DSPCOPYMD_290 ; NO -> DSPCOPYMD_290 AND #01000000B ; mouse [L] key ON ? BNE DSPCOPYMD_250 ; YES -> DSPCOPYMD_250 DEC !UNTMVMD DEC !UNTMVMD BRA DSPCOPYMD_290 DSPCOPYMD_250 EQU $ JSR CPSCAL STA !DSPCPTO INC !UNTMVMD INC !UNTMVMD DSPCOPYMD_290 EQU $ RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー モード キーチェック + ;++++++++++++++++++++++++++++++++++++++++++++++++ DSPCOPYMD_SUB EQU $ LDA !INKEY CMP #UPS BNE DSPCOPYMD_SUBPS LDA #PLMD STA !MODENO STZ !UNTMVMD DSPCOPYMD_SUBPS EQU $ RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー モード データセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DSPCOPYMD_300 EQU $ LDY !DSPCPFM LDA !UNBUFAD,Y BMI DSPCOPYMD_390 LDX !DSPCPTO CMP !UNBUFAD,X BEQ DSPCOPYMD_450 ; JSR UNDOBFST ; data back_up !! ; I16 ; index 16bit mode LDX !STDTPT LDA #000 STA >DTBUFF,X LDA !DSPCPFM ; 転送元データセット STA >DTBUFF+1,X LDA !DSPCPTO ; 転送先データセット STA >DTBUFF+2,X LDA #0FBH STA >DTBUFF+3,X ; ユニットＮＯ. セット LDA #0FFH STA >DTBUFF+4,X M16 ; memory 16bit mode LDA !STDTPT CLC ADC #00004H STA !STDTPT MI8 ; memory , index 8bit mode ; JSR DTSL030 ; INC !UNTMVMD INC !UNTMVMD BRA DSPCOPYMD_490 ; DSPCOPYMD_390 EQU $ STZ !UNTMVMD RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー モード 画面表示 + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DSPCOPYMD_400 EQU $ JSL >BGDISP LDA !MODENO CMP #PLMD BNE DSPCOPYMD_490 DSPCOPYMD_450 EQU $ LDA #002 STA !UNTMVMD DSPCOPYMD_490 EQU $ LDA #DSPCP STA !MODENO RTS ; ; ; ; ; ;************************************************************************ ;* BG. move (BGMOVE) * ;************************************************************************ BGMOVE EQU $ ; I16 ; LDX #00000H LDY #00008H LDA INKEY2 CMP #RIT BEQ BGM040 ; --> key ? ; ; yes CMP #LEF BNE BGM100 ; <-- key ? ; ; yes LDY #0FFF8H INX INX BGM040 EQU $ ; M16 ; TYA CLC ADC XYPOAM,X DEX BPL CRD0100 ; LDA DTMODE BEQ CRD0150 LDA CRSSMMD BEQ CRD0150 LDX #LOCKDT-DISPDT CLC ADC #L_W STA >XYPOAM+2,X LDA #L_S STA >XYPOAM+2+4,X LDA #L_E STA >XYPOAM+2+8,X LDA #L_T STA >XYPOAM+2+12,X ; CRD0150 EQU $ LDX SIFTFG LDA CRXPSL1,X LSR A LSR A LSR A LSR A TAY LDA PSCTDT1,Y STA >XYPOAM+4*3+2 ; x-pos. count set ; LDA CRYPSL1,X LSR A LSR A LSR A LSR A AND #00001111B TAY LDA PSCTDT1,Y STA >XYPOAM+4*7+2 ; y-pos. count set ; LDA CRXPSH1,X AND #00001111B TAY LDA PSCTDT1,Y STA >XYPOAM+4*2+2 ; hi-x-pos. count set ; LDA CRYPSH1,X AND #00001111B TAY LDA PSCTDT1,Y STA >XYPOAM+4*6+2 ; hi-x-pos. count set ; LDX DTMODE BEQ CRD0122 ;kotei ? ( yes:CRD0122 ) ; ;-------------- pos wide set ---------------------------- LDA #C_X STA >SMDOAM+4*5+2 LDA #C_W STA >SMDOAM+4*6+2 LDA #C_Y STA >SMDOAM+4*7+2 LDA #C_W STA >SMDOAM+4*8+2 LDA #C_HI STA >SMDOAM+4*9+2 STA >SMDOAM+4*12+2 ; M16 ; LDA CRXPSL1 ; x-pos wide set AND #0FFF0H STA SMDOAM+4*11+2 XBA AND #00001111B TAY LDA PSCTDT1,Y STA >SMDOAM+4*10+2 ; M16 ; LDA CRYPSL1 AND #0FFF0H STA SMDOAM+4*14+2 XBA AND #00001111B TAY LDA PSCTDT1,Y STA >SMDOAM+4*13+2 ; CRD0122 EQU $ LDA STMDATB,X STA >XYPOAM+4*0+3 STA >XYPOAM+4*1+3 STA >XYPOAM+4*2+3 STA >XYPOAM+4*3+3 STA >XYPOAM+4*4+3 STA >XYPOAM+4*5+3 STA >XYPOAM+4*6+3 STA >XYPOAM+4*7+3 STA >SMDOAM+4*0+3 STA >SMDOAM+4*1+3 ; set mode attribute set STA >SMDOAM+4*2+3 STA >SMDOAM+4*3+3 STA >SMDOAM+4*4+3 STA >SMDOAM+4*5+3 STA >SMDOAM+4*6+3 STA >SMDOAM+4*7+3 STA >SMDOAM+4*8+3 STA >SMDOAM+4*9+3 STA >SMDOAM+4*10+3 STA >SMDOAM+4*11+3 STA >SMDOAM+4*12+3 STA >SMDOAM+4*13+3 STA >SMDOAM+4*14+3 ; LDA !DTMDCH0,X ; "kote" or "kahen" chara no. set STA >SMDOAM+4*0+2 LDA !DTMDCH1,X STA >SMDOAM+4*1+2 ; LDA #00001010B STA >OAMSUB+((SMDOAM-OAM)>>4) ; PLB ; (DBR) reset RTS ; ;---------------------------------------------------------------- ;- mouse cursol move - ;---------------------------------------------------------------- ; MEM8 IDX8 ; MSCSRMV EQU $ LDA MOUSEBX BEQ CRM0200 ; x-move ? ; ; yes BMI CRM0140 ; --> key ? ; ; yes ;-------------- mouse right move ---------------- ; M16 ; AND #0007FH STA ARROAM ; x-pos. set LDA ARROAM+1 ; y-pos. set LDA CRATBD0,X STA >ARROAM+2 ; char. no. set LDA #034H STA >ARROAM+3 ; attribute set STA >AR1OAM+3 ; attribute set ; LDA #00101010B ; ( + last input data cursol ) STA >OAMSUB ; LDA DTMODE BEQ CRM0440 ; kotei ? ; ; no TXA EOR #02H TAX LDA CRATBD1,X STA >AR1OAM+2 ; char. no. set LDA AR1OAM ; x-pos. set LDA AR1OAM+1 ; y-pos. set LDA OAMSUB STA >OAMSUB ; display "ON/OFF" set CRM0440 EQU $ RTS ; ; ; ; ;************************************************************************ ;* Set DATA pointer & unit no. (DPDISP) * ;************************************************************************ DPTDT EQU $ BYTE 048H,0A8H,C_P, 032H ;"PT-" BYTE 050H,0A8H,C_T, 032H BYTE 058H,0A8H,C_HI,032H DPTDT0 EQU $ BYTE 060H,0A8H,000H,032H ;PT-"XXXX" BYTE 068H,0A8H,000H,032H BYTE 070H,0A8H,000H,032H BYTE 078H,0A8H,000H,032H ; BYTE 058H,0B0H,000H,032H ;PT-XXXX BYTE 060H,0B0H,000H,032H ; "XX-XX-XX-XX-XX-XX" BYTE 068H,0B0H,000H,032H BYTE 070H,0B0H,000H,032H BYTE 078H,0B0H,000H,032H BYTE 080H,0B0H,000H,032H BYTE 088H,0B0H,000H,032H BYTE 090H,0B0H,000H,032H BYTE 098H,0B0H,000H,032H BYTE 0A0H,0B0H,000H,032H BYTE 0A8H,0B0H,000H,032H BYTE 0B0H,0B0H,000H,032H BYTE 0B8H,0B0H,000H,032H BYTE 0C0H,0B0H,000H,032H BYTE 0C8H,0B0H,000H,032H BYTE 0D0H,0B0H,000H,032H BYTE 0D8H,0B0H,000H,032H BYTE 0E0H,0B0H,000H,032H DPTDTE EQU $ ; DPDSCNT EQU DPTDTE-DPTDT-1 ; FLMDAT EQU $ ;ファイル名 BYTE 088H,0C0H,L_h ,032H ; - BYTE 090H,0C0H,L_h ,032H ; - BYTE 098H,0C0H,L_h ,032H ; - BYTE 0A0H,0C0H,L_h ,032H ; - BYTE 0A8H,0C0H,L_h ,032H ; - BYTE 0B0H,0C0H,L_h ,032H ; - BYTE 0B8H,0C0H,L_h ,032H ; - BYTE 0C0H,0C0H,L_h ,032H ; - BYTE 0C8H,0C0H,L_p ,032H ; . BYTE 0D0H,0C0H,L_D ,032H ; D BYTE 0D8H,0C0H,L_A ,032H ; A BYTE 0E0H,0C0H,L_T ,032H ; T ; ; DPDISP EQU $ ; ;-------------- last input data display check ------------------- LDA LASTFG BEQ DPD0020 ;last input data nothing ? ( yes:DPD0020 ) ; LDA !BG3CLSFG BNE DPD0020 ; LDA LASOAM+1 ;OAM Y pos set LDA LASOAM ; " X " LDA #0AEH STA >LASOAM+2 ; " chara no. set LDA #030H STA >LASOAM+3 ; " att set LDA OAMSUB STA >OAMSUB ;OAM sub set BRA DPD0020 ; ;---------------------------------------------------------------- ; DPD0010 EQU $ M8 ; memory 8bit mode ; DPD0020 EQU $ LDX #DPTDTE-DPTDT-1 DPD0100 EQU $ LDA >DPTDT,X STA >PTDOAM,X DEX BPL DPD0100 ; LDX #DPDISP-FLMDAT-1 DPD0150 EQU $ ; ファイル名 LDA >FLMDAT,X ; ＯＡＭイニシャルセット STA >FLOAM,X DEX BPL DPD0150 ; LDA !NMDTBF0 BEQ DPD0200 LDA #007H TAY ASL A ASL A TAX DPD0160 EQU $ ; ファイル名 セット LDA !NMDTBF0,Y CMP #SPS BEQ DPD0165 CMP #08EH BEQ DPD0165 STA >FLOAM+2,X DEX DEX DEX DEX BMI DPD0200 DPD0165 EQU $ DEY BPL DPD0160 ; LDA #SPS DPD0180 EQU $ ; ファイル名 ヌキセット STA >FLOAM+2,X DEX DEX DEX DEX BPL DPD0180 ; DPD0200 EQU $ JSR SDPTCAL ; set data pointer calc ; M16 ; LDA DTPT DPD0300 EQU $ ; M8 ; PHA ; (A) push LSR A LSR A LSR A LSR A TAX LDA >PSCTDT1,X STA >PTDOAM+(DPTDT0-DPTDT+2)+4*2 PLA ; (A) pull AND #00001111B TAX LDA >PSCTDT1,X STA >PTDOAM+(DPTDT0-DPTDT+2)+4*3 ; point no. set ; XBA PHA ; (A) push LSR A LSR A LSR A LSR A TAX LDA >PSCTDT1,X STA >PTDOAM+(DPTDT0-DPTDT+2) PLA ; (A) pull AND #00001111B TAX LDA >PSCTDT1,X STA >PTDOAM+(DPTDT0-DPTDT+2)+4 ; point no. set RTS ; ; ; ; ;------------------------------------------------------------------------ ;- set data pointer calc (SDPTCAL) - ;- [out] (X) ---> set pointer - ;------------------------------------------------------------------------ SDPTCAL EQU $ ; MI16 ; STZ DTPT LDX #00000H SDPTC20 EQU $ LDY #04 ;(Y) <-- number of data byte ( kotei ) LDA >DTBUFF,X AND #00FFH BEQ SDPTC30 ;kotei data ? ( yes:SDPTC30 ) ; CMP #00FFH BEQ SDPTC40 ;end code ? ( yes:SDPTC40 ) ; PHX ;(X) save TAX LDA >KAHNSB,X PLX ;(X) load AND #003FH TAY LDA !KAHNNO,Y AND #00FFH TAY SDPTC30 EQU $ STY OAMSUB STA >OAMSUB+((CHCOAM-OAM)>>4) STA >OAMSUB+((SMDOAM-OAM)>>4) ; LDX #MDNDTE-MDNDT-2 MDN0100 EQU $ LDA >MDNDT,X STA >OAM,X DEX DEX BPL MDN0100 ; set end ? ; ; yes MI8 ; LDA INKEY CMP #MOD BEQ MDN0110 ;return ? ( yes:MDN0110 ) CMP #RTN BEQ MDN0110 ; " LDA MOUSEBT AND #11000000B BEQ MDN0400 ; " ( no:MDN0400 ) ; MDN0110 EQU $ LDA EDMODE CMP #search BNE MDN0140 ; SEARCH ? ; ; yes LDA #0FFH STA SRCHPT STA SRCHPT+1 MDN0140 EQU $ LDA #PLMD STA MODENO JSL >OAMCLR2 RTL ; MDN0400 EQU $ LDA INKEY2 CMP #DWN BNE MDS0600 ; down key ? ; ; yes LDA EDMODE INC A ;;;; CMP #006H CMP #005H BNE MDS0640 ; limit ? ; ; yes LDA #000H BRA MDS0640 ; MDS0600 EQU $ LDA INKEY2 CMP #UPP BNE MDS0800 ; up key ? ; ; yes LDA EDMODE DEC A BPL MDS0640 ; limit ? ; ; yes ;;;; LDA #005H LDA #004H MDS0640 EQU $ STA EDMODE ; ASL A INC A ;[ +08H ] ASL A ASL A ASL A STA MOUSWK0 ;mouse menu pos set ; MDS0800 EQU $ LDA MOUSEBY BEQ MDS0830 ;mouse move ? ( no:MDS0830 ) ; CLC ADC MOUSWK0 BPL MDS0810 LDA #00 MDS0810 EQU $ CMP #05H*10H BCC MDS0820 LDA #05H*10H-1 MDS0820 EQU $ STA MOUSWK0 LSR A LSR A LSR A LSR A STA EDMODE ; MDS0830 EQU $ LDX EDMODE LDA >MDATPT,X TAX LDY #05H LDA #034H MDS0900 EQU $ STA >OAM,X INX INX INX INX DEY BPL MDS0900 ; RTL ; ; ; ; ; ;************************************************************************ ;* Error display (ERROR) * ;************************************************************************ ERDSDT EQU $ BYTE 0CCH,040H,C_E,030H BYTE 0D4H,040H,C_R,030H BYTE 0DCH,040H,C_R,030H BYTE 0E4H,040H,C_O,030H BYTE 0ECH,040H,C_R,030H ERDSDTE EQU $ ; ESCNT EQU ERDSDTE-ERDSDT-1 EROMPOS EQU 0B0H ; ; ERROR EQU $ PHB ;(DBR) save LDA #BANK OAM ;(DBR) <-- OAM(B) PHA PLB ; LDY #EROMPOS+ESCNT LDX #ESCNT ERD0100 EQU $ LDA >ERDSDT,X STA OAM,Y DEY DEX BPL ERD0100 ; LDA TLHDPR,X STA 4370H,X LDA >ENTLHDPR,X STA 4360H,X DEX BPL WDWST020 ; LDA #00000000B STA WIND23 ; window mask BG1.BG2 set LDA #00000010B STA WIND24 ; BG4.Bg3 LDA #00100000B STA WIND25 ; COL,OBJ LDA #00000100B STA WMANSL LDA #00000000B STA WSUBSL LDA #00010000B STA WIND30 LDA #01100011B STA SUBADF STZ 212AH STZ 212BH ; LDA !ENBGFLG LSR A EOR #00000001B AND #00000001B ORA #00010110B STA MANSEL LDA #00000000B STA SUBSEL ; gamen disp. swich set ; LDA #10000000B STA HD420C ; H-DMA ch"ON" RTL ; ; ;******************************************************** ;* unit buffer set initial set * ;******************************************************** UNITST0 EQU $ JSL >UNITST ; unit buffer set ; REDISP EQU $ ; M16 ; LDA OAM LDA MSSCRX STA >OAM+4 ; LDA CRYPSL1,X CLC ADC MOUSEBY CMP #020H ; Y limit check BCC MSSCR15 CMP #0A0H BCC MSSCR20 LDA #0A0H BRA MSSCR20 MSSCR15 EQU $ LDA #020H MSSCR20 EQU $ STA CRYPSL1,X STA >OAM+1 LDA MSSCRY STA >OAM+5 LDA #034H STA >OAM+3 STA >OAM+7 LDA >CSLDAT,X STA >OAM+2 ; move cursol char. set LDA #08CH STA >OAM+6 ; senter cursol char. set ; LDA #02AH STA >OAMSUB ; LDA CRXPSL1,X ; X wide CMP #078H ; scroll stop limit check BCC MSSCR29 CMP #088H BCS MSSCR29 JMP MSSCR50 ; MSSCR29 EQU $ STZ BGSET ; MSSCR99 EQU $ RTL ; ; ;-------------------------------------- mouse scroll speed MSSCRSP EQU $ M16 ; memory 16bit mode AND #000FFH ASL A ASL A ASL A ASL A STA LASOAM+1 ;OAM Y pos set LDA #0AEH STA >LASOAM+2 ; " chara no. set LDA #030H STA >LASOAM+3 ; " att set LDA LASOAM ; " X pos set LDA OAMSUB STA >OAMSUB ;OAM sub set ; ;-------------- BG screen scroll write ------------------ PPST030 EQU $ ; M8 ; PPST040 EQU $ JMP >BGSET ; ; TIMSTFG ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ タイマーカウント数 セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ TIMCNTST_OBJDT EQU $ BYTE 050H,0B4H,C_T,03CH ; T BYTE 058H,0B4H,C_I,03CH ; I BYTE 060H,0B4H,C_M,03CH ; M BYTE 068H,0B4H,C_E,03CH ; E BYTE 070H,0B4H,C_R,03CH ; R ; BYTE 080H,0B4H,L_e,03CH ; = ; TIMCNTST_KAZU EQU $ BYTE 090H,0B4H,SU0,03CH ; 0 BYTE 098H,0B4H,SU0,03CH ; 0 BYTE 0A0H,0B4H,SU0,03CH ; 0 TIMCNTST_OBJ EQU $ ; TIMCNTST_DATA EQU $ BYTE 003H,007H,00BH ; TIMCNTST_DAT EQU $ WORD 00100,00010,00001 ; ; TIMCNTST EQU $ MI16 ; memory , index 16bit mode LDX #00000H TIMCNTST_100 EQU $ LDA TIMCNTST_OBJDT,X STA >OAM+10H,X INX INX CPX #TIMCNTST_OBJ-TIMCNTST_OBJDT BCC TIMCNTST_100 ; LDX #00000H TXY LDA !TIMER TIMCNTST_130 EQU $ ; 百の位 CMP #00100 BCC TIMCNTST_150 SBC #00100 INX BRA TIMCNTST_130 ; TIMCNTST_150 EQU $ ; 十の位 CMP #00010 BCC TIMCNTST_200 SBC #00010 INY BRA TIMCNTST_150 ; TIMCNTST_200 EQU $ STX OAM+10H+(TIMCNTST_KAZU-TIMCNTST_OBJDT)+10 TYA ORA #030H STA >OAM+10H+(TIMCNTST_KAZU-TIMCNTST_OBJDT)+6 TXA ORA #030H STA >OAM+10H+(TIMCNTST_KAZU-TIMCNTST_OBJDT)+2 ; LDA OAM+10H+(TIMCNTST_KAZU-TIMCNTST_OBJDT),X ; TIMCNTST_300 EQU $ LDA !INKEY CMP #SU0 BCC TIMCNTST_900 CMP #SU9+1 BCS TIMCNTST_900 SEC SBC #030H STA ONEMOVE_999 INC !UNTMVMD JSR SEARCH ; search LDA SRCHPT BMI ONEMOVE_999 ; ONEMOVE_100 EQU $ JSR CPSCAL ; カーソル ポイント セット !! LDA !MOUSEBS AND #01000000B ; mouse [L] key ON ? BEQ ONEMOVE_800 ; NO -> ONEMOVE_800 LDA !CRXPSL1 AND #0F0H SEC SBC OAM+4 LDA !CRYPSL1 AND #0F0H SEC SBC OAM+5 LDA #000H STA >OAM+6 LDA #033H STA >OAM+7 JSR SRCH200 ; サーチ データ 画面表示 !! BRA ONEMOVE_999 ; ONEMOVE_800 EQU $ MI16 ; memory , index 16bit mode JSR XYSTART ; X,Y start point set LDX !SRCHPT BMI ONEMOVE_890 LDA DTBUFF+1,X BEQ ONEMOVE_890 JSR LIMTCHK ; 画面外 チェック & セット MI8 ; memory , index 8bit mode STZ !UNTMVMD STZ !EDMODE ;nomal mode return BRA ONEMOVE_999 ONEMOVE_890 EQU $ MI8 ; memory , index 8bit mode STZ !UNTMVMD ; ONEMOVE_999 EQU $ RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 画面外 チェック & セット + ;+ in + ;+ X <- data set index + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MEM16 IDX16 LIMTCHK EQU $ LDA >DTBUFF,X AND #000FFH BNE LIMTCHK_200 JSR LIMTCHK_KOTEI ; 固定 データ チェック BRA LIMTCHK_700 ; LIMTCHK_200 EQU $ PHX JSR LIMTCHK_KAHEN ; 可変 データ チェック PLX ; LIMTCHK_700 EQU $ LDA DTBUFF+1,X MI8 ; memory , index 8bit mode JSL >UNITST0 ; unit buffer set STZ EDMODE ; nomal mode return MI16 ; memory , index 16bit mode LIMTCHK_900 EQU $ RTS MEM8 IDX8 ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 固定 データ チェック + ;+ in + ;+ workA,B <- X start point+ ;+ workC,D <- Y start point+ ;+ X <--- data read index + ;+ out + ;+ OK : 0000 -> work E,F + ;+ OUT: ffff -> work E,F + ;++++++++++++++++++++++++++++++++++++++++++++++++ MEM16 IDX16 LIMTCHK_KOTEI EQU $ JSR KOTEI_SB ; 固定 データ count set JSR KOTEI_KAHEN ; 固定 可変 リミット チェック RTS ; ; ;++++++++++++++++++++++++++++++++++++++++ ;+ 固定 データ count set + ;++++++++++++++++++++++++++++++++++++++++ KOTEI_SB EQU $ LDA >DTBUFF+3,X AND #000FFH ASL A TAY LDA KOTEI_DT,Y PHA AND #000FFH STA work E,F + ;+ OUT: ffff -> work E,F + ;++++++++++++++++++++++++++++++++++++++++++++++++ MEM16 IDX16 LIMTCHK_KAHEN EQU $ JSR KAHEN_SB0 ; 可変 スタートデータ count set JSR KOTEI_KAHEN ; 固定 可変 リミット チェック LDA DTBUFF,X AND #000FFH INY CMP #00005H BEQ KAHEN_310 INY CMP #00007H BEQ KAHEN_310 INY CMP #00009H BEQ KAHEN_310 INY CMP #00046H BEQ KAHEN_310 INY CMP #0005CH BEQ KAHEN_310 INY CMP #0005DH BEQ KAHEN_310 INY CMP #0005EH BNE KAHEN_900 KAHEN_310 EQU $ LDA DTBUFF,X AND #000FFH ASL A TAY KAHEN_100 EQU $ ; start point check LDA KAHEN_DT0,Y PHA AND #000FFH BEQ KAHEN_110 ORA #0FF00H KAHEN_110 EQU $ STA DTBUFF+3,X ; X or Y size PHA AND #000FFH STA KAHNSB,X AND #00003H STA KAHEN_250 LDA work E,F + ;+ OUT: ffff -> work E,F + ;++++++++++++++++++++++++++++++++++++++++ MEM16 IDX16 KOTEI_KAHEN EQU $ STZ KOTEI_KAHEN10 LDA KOTEI_KAHEN10 LDA KOTEI_KAHEN90 LSR DTBUFF+1,X AND #000FFH CMP KOTEI_KAHEN90 KOTEI_KAHEN10 EQU $ DEC BGSET ; MI16 ; memory , index 16bit mode LDX #00000H ALLMOVE_LOP EQU $ LDA ALLMOVE_DAT,X STA >OAM+100H,X INX INX CPX #ALLMOVE_DATA-ALLMOVE_DAT BCC ALLMOVE_LOP MI8 ; memory , index 8bit mode ; LDA !KHNKTIMD ASL A ASL A ASL A TAY LDA KHNKTIDT+0,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+02H LDA KHNKTIDT+1,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+06H LDA KHNKTIDT+2,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+0AH LDA KHNKTIDT+3,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+0EH LDA KHNKTIDT+4,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+12H LDA KHNKTIDT+5,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+16H LDA KHNKTIDT+6,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+1AH LDA KHNKTIDT+7,Y STA >OAM+100H+(ALLMOVE_KK-ALLMOVE_DAT)+1EH ; LDA !UNTPTNSL ; "ユニット" ASL A ; & ASL A ; "パターン" TAY ; OBJ LDA UNTPTNDT+00H,Y ; set STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+002H LDA UNTPTNDT+01H,Y STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+006H LDA UNTPTNDT+02H,Y STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+00AH LDA UNTPTNDT+03H,Y STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+00EH ; LDA !STUNTNO0 ; unit NO. set 0 LSR A LSR A LSR A LSR A ORA #070H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0AH LDA !STUNTNO0 AND #00FH ORA #070H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0EH ; LDY !UTPNMODE ; mode set LDA UTPNMODEDT,Y STA >OAM+100H+(ALLMOVE_MD-ALLMOVE_DAT)+02H LDA UTPNMODEDT+4,Y STA >OAM+100H+(ALLMOVE_MD-ALLMOVE_DAT)+06H ; CPY #003H BNE ALLMOVE_100 MI16 ; memory , index 16bit mode ALLMOVE_LOP2 EQU $ LDA ALLMOVE_DAT,X STA >OAM+100H,X INX INX CPX #UNTPTNDT-ALLMOVE_DAT BCC ALLMOVE_LOP2 MI8 ; memory , index 8bit mode ; LDA !STUNTNO1 ; unit NO. set 1 LSR A LSR A LSR A LSR A ORA #070H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0AH LDA !STUNTNO1 AND #00FH ORA #070H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0EH ; ALLMOVE_100 EQU $ LDA !SIFTX+1 BPL ALLMOVE_110 LDA #02DH BRA ALLMOVE_120 ALLMOVE_110 EQU $ LDA #02BH ALLMOVE_120 EQU $ STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0AH LDA !SIFTX ; "Ｘ＿００" LSR A ; set LSR A LSR A LSR A ORA #070H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0EH LDA !SIFTX AND #00FH ORA #070H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+12H ; LDA !SIFTY+1 BPL ALLMOVE_160 LDA #02DH BRA ALLMOVE_170 ALLMOVE_160 EQU $ LDA #02BH ALLMOVE_170 EQU $ STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0AH LDA !SIFTY ; "Ｙ＿００" LSR A ; set LSR A LSR A LSR A ORA #070H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0EH LDA !SIFTY AND #00FH ORA #070H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+12H ; LDA !UNTMVMD AND #07FH TAX JSR (ALLMOVE_SEL,X) ; LDA !UNTMVMD AND #080H STA ALLMOVE_450 LDA !UNTMVMD ORA ALLMOVE_900 ALLMOVE_450 EQU $ LDA #PLMD STA !MODENO ALLMOVE_900 EQU $ PLB RTL ; ALLMOVE_DAT EQU $ ALLMOVE_KK EQU $ BYTE 018H,0A8H,0A6H,038H ; "可変" BYTE 020H,0A8H,0A7H,038H ; & BYTE 028H,0A8H,0A8H,038H ; "固定" BYTE 030H,0A8H,0A9H,038H BYTE 018H,0B0H,0B6H,038H BYTE 020H,0B0H,0B7H,038H BYTE 028H,0B0H,0B8H,038H BYTE 030H,0B0H,0B9H,038H ; ALLMOVE_UP EQU $ BYTE 038H,0B9H,055H,032H ; "ユニット" BYTE 040H,0B9H,04EH,032H ; & BYTE 048H,0B9H,049H,032H ; "パターン" BYTE 050H,0B9H,054H,032H ; ALLMOVE_NO0 EQU $ BYTE 060H,0B9H,04EH,032H ; "ＮＯ．００" BYTE 068H,0B9H,04FH,032H BYTE 060H,0C2H,070H,032H BYTE 068H,0C2H,070H,032H ; ALLMOVE_MD EQU $ BYTE 074H,0BCH,020H,033H ; "!!","<-|","|->","~" BYTE 07CH,0BCH,021H,033H ; ALLMOVE_X EQU $ BYTE 09DH,0B9H,058H,032H ; "Ｘ＿＋００" BYTE 0A6H,0B9H,05FH,032H BYTE 0AFH,0B9H,02BH,032H BYTE 0B6H,0B9H,070H,032H BYTE 0BEH,0B9H,070H,032H ; ALLMOVE_Y EQU $ BYTE 09DH,0C2H,059H,032H ; "Ｙ＿＋００" BYTE 0A6H,0C2H,05FH,032H BYTE 0AFH,0C2H,02BH,032H BYTE 0B6H,0C2H,070H,032H BYTE 0BEH,0C2H,070H,032H ; ALLMOVE_RAN EQU $ BYTE 0D0H,0C2H,052H,032H ; "RAN" BYTE 0D8H,0C2H,055H,032H BYTE 0E0H,0C2H,04EH,032H ALLMOVE_DATA EQU $ ; ALLMOVE_NO1 EQU $ BYTE 085H,0B9H,04EH,032H ; "ＮＯ．００" BYTE 08DH,0B9H,04FH,032H BYTE 085H,0C2H,070H,032H BYTE 08DH,0C2H,070H,032H ; KHNKTIDT EQU $ BYTE 0A6H,0A7H,0A8H,0A9H ; "固定" BYTE 0B6H,0B7H,0B8H,0B9H BYTE 0AAH,0ABH,0ACH,0ADH ; "可変" BYTE 0BAH,0BBH,0BCH,0BDH ; UNTPTNDT EQU $ BYTE 055H,04EH,049H,054H ; "ユニット" BYTE 050H,054H,052H,04EH ; "パターン" ; UTPNMODEDT EQU $ BYTE 020H,022H,024H,026H ; "!!","<-|","|->","~" BYTE 021H,023H,025H,027H ; ALLMOVE_SEL EQU $ WORD UNTPTN,STUNT0,PTNMD WORD STUNT1,SIFT_X,SIFT_Y WORD PSHRAN,YESNOOK ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ユニット & パターン set + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ UNTPTN EQU $ LDA OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+0BH STA >OAM+100H+(ALLMOVE_UP-ALLMOVE_DAT)+0FH UNTPTN_000 EQU $ LDA !INKEY2 CMP #UPP BEQ UNTPTN_100 CMP #DWN BNE UNTPTN_300 UNTPTN_100 EQU $ LDA !UNTPTNSL EOR #001H AND #001H STA !UNTPTNSL UNTPTN_300 EQU $ RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ユニット ＮＯ． set0 + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ STUNT0 EQU $ LDA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0BH STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0FH LDA OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0BH,X EOR #002H STA >OAM+100H+(ALLMOVE_NO0-ALLMOVE_DAT)+0BH,X STUNT0_000 EQU $ LDA !STUNTNO0 STA OAM+100H+(ALLMOVE_MD-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_MD-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_MD-ALLMOVE_DAT)+07H PTNMD_000 EQU $ LDA !INKEY2 CMP #UPP BNE PTNMD_100 LDA !UTPNMODE DEC A BRA PTNMD_150 ; PTNMD_100 EQU $ CMP #DWN BNE PTNMD_300 LDA !UTPNMODE INC A PTNMD_150 EQU $ AND #003H STA !UTPNMODE PTNMD_300 EQU $ RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ユニット ＮＯ． set1 + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ STUNT1 EQU $ LDA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0BH STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0FH LDA OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0BH,X EOR #002H STA >OAM+100H+(ALLMOVE_NO1-ALLMOVE_DAT)+0BH,X STUNT1_000 EQU $ LDA !STUNTNO1 STA OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0BH STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0FH STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+13H LDA OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0FH,X EOR #002H STA >OAM+100H+(ALLMOVE_X-ALLMOVE_DAT)+0FH,X SIFT_X_000 EQU $ LDA !INKEY2 CMP #UPP BEQ SIFT_X_010 CMP #DWN BNE SIFT_X_020 SIFT_X_010 EQU $ LDA !SIFTX+1 EOR #0FFH STA !SIFTX+1 SIFT_X_020 EQU $ LDA !SIFTX STA OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0BH STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0FH STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+13H LDA OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0FH,X EOR #002H STA >OAM+100H+(ALLMOVE_Y-ALLMOVE_DAT)+0FH,X SIFT_Y_000 EQU $ LDA !INKEY2 CMP #UPP BEQ SIFT_Y_010 CMP #DWN BNE SIFT_Y_020 SIFT_Y_010 EQU $ LDA !SIFTY+1 EOR #0FFH STA !SIFTY+1 SIFT_Y_020 EQU $ LDA !SIFTY STA OAM+100H+(ALLMOVE_RAN-ALLMOVE_DAT)+03H EOR #002H STA >OAM+100H+(ALLMOVE_RAN-ALLMOVE_DAT)+03H STA >OAM+100H+(ALLMOVE_RAN-ALLMOVE_DAT)+07H STA >OAM+100H+(ALLMOVE_RAN-ALLMOVE_DAT)+0BH PSHRAN_000 EQU $ LDA !INKEY2 CMP #RTN BNE PSHRAN_900 LDA UNTPTNSL ; unit move ? BNE PSHRAN_100 ; NO -> PSHRAN_100 LDA !KHNKTIMD ; 固定 モード ? BEQ PSHRAN_100 ; YES -> PSHRAN_100 LDA !STUNTNO0 BNE PSHRAN_100 LDA #PLMD STA !MODENO LDA #040H STA !ERRFLG BRA PSHRAN_900 ; PSHRAN_100 EQU $ INC !UNTMVMD INC !UNTMVMD PSHRAN_900 EQU $ RTS ; SETGODT EQU $ WORD UNTSETGO0,PTNSETGO0 WORD UNTSETGO1,PTNSETGO1 WORD UNTSETGO2,PTNSETGO2 WORD UNTSETGO3,PTNSETGO3 ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ YES , NO キー入力 + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ YESNOOK EQU $ MI16 ; memory , index 16bit mode LDX #00000H YESNOOK_100 EQU $ LDA YESNOOK_DAT,X STA >OAM+010H,X INX INX CPX #YESNOOK_DATA-YESNOOK_DAT BCC YESNOOK_100 MI8 ; memory , index 8bit mode ; LDA OAM+010H+003H STA >OAM+010H+007H STA >OAM+010H+00BH STA >OAM+010H+00FH STA >OAM+010H+013H STA >OAM+010H+017H STA >OAM+010H+01BH STA >OAM+010H+01FH STA >OAM+010H+023H STA >OAM+010H+027H STA >OAM+010H+02BH ; YESNOOK_200 EQU $ LDA !INKEY CMP #L_Y BEQ YESNOOK_300 CMP #L_N BEQ YESNOOK_400 BRA YESNOOK_900 ; YESNOOK_300 EQU $ JSR UNDOBFST ; undo buffer set LDA !SIFTX STA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA UNTSETGO1_180 DEC UNTSETGO1_200 BRA UNTSETGO1_190 UNTSETGO1_180 EQU $ DEC UNTSETGO1_200 UNTSETGO1_190 EQU $ JSR UNTPOSCHK ; ユニット NO. ポイント チェック LDA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA KOTESB,X AND #000FFH CMP #000FFH BNE UNTSETGO2_150 BRA UNTSETGO2_200 UNTSETGO2_180 EQU $ LDA >KAHNSB,X AND #000FFH CMP #000FFH BNE UNTSETGO2_150 ; UNTSETGO2_200 EQU $ LDA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA DTBUFF,X AND #000FFH CMP #000FFH BEQ PTNSETGO2_200 LDA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA UNITST0 ; unit buffer set MI16 ; memory , index 16bit mode PLA STA DTBUFF,X AND #000FFH ; 固定 データ ? BEQ UNTCHKST_300 ; YES -> UNTCHKST_300 CMP #000FFH ; データ エンド ? BEQ UNTCHKST_900 ; YES -> UNTCHKST_900 TAX LDA >KAHNSB,X AND #0003FH TAX LDA KAHNNO,X AND #000FFH TAY UNTCHKST_300 EQU $ TYA CLC ADC DTBUFF,X AND #000FFH ; 固定 データ ? BEQ UNTCHK_200 ; YES -> UNTCHK_200 CMP #000FFH ; データ エンド ? BEQ UNTCHK_300 ; YES -> UNTCHK_300 LDA !KHNKTIMD AND #00001H ; 固定 データ 移動 モード ? BEQ UNTCHK_150 ; YES -> UNTCHK_150 LDA >DTBUFF,X AND #000FFH CMP DTBUFF,X AND #000FFH TAX LDA >KAHNSB,X PLX AND #0003FH TAY LDA KAHNNO,Y AND #000FFH TAY UNTCHK_200 EQU $ LDA !KHNKTIMD AND #00001H ; 可変 データ 移動 モード ? BNE UNTCHK_250 ; YES -> UNTCHK_250 LDA >DTBUFF+3,X AND #000FFH CMP DTBUFF+1,X PHA AND #00FH STA !LASTXP+1 STA !CRXPSL1+1 STA !CRXPSL2+1 PLA LSR A LSR A LSR A LSR A STA !LASTYP+1 STA !CRYPSL1+1 STA !CRYPSL2+1 LDA >DTBUFF+2,X PHA ASL A ASL A ASL A ASL A STA !LASTXP STA !CRXPSL1 STA !CRXPSL2 PLA AND #0F0H STA !LASTYP STA !CRYPSL1 STA !CRYPSL2 M16 ; memory 16bit mode LDA REDISP RTS ; ; ;++++++++++++++++++++++++++++++++++++++++ ;+ パターン ポイント チェック + ;+ in + ;+ work1A,1B <- comper data+ ;+ out + ;+ work1E,1F <- point NO. + ;++++++++++++++++++++++++++++++++++++++++ PTNPOSCHK EQU $ STZ DTBUFF,X AND #000FFH ; 固定 データ ? BEQ POSCHK_200 ; YES -> POSCHK_200 PHX TAX LDA >KAHNSB,X PLX AND #0003FH TAY LDA KAHNNO,Y AND #000FFH TAY POSCHK_200 EQU $ TYA CLC ADC DTBUFF+1,X STA DTBUFF,X AND #000FFH BNE PTNSETGO_200 LDA >DTBUFF+3,X AND #000FFH CMP #000FBH BNE PTNSETGO_050 JSR DSP_CP_MV JMP PTNSETGO_900 PTNSETGO_050 EQU $ JSR KOTEI_SB ; 固定 データ count set LDA DTBUFF+1,X ; X point set XBA AND #00F0FH STA DTBUFF+1,X ; Y point set XBA AND #0F0F0H STA DTBUFF+1,X ; PTNSETGO_900 EQU $ RTS ; ; ;++++++++++++++++++++++++++++++++++++++++ ;+ 画面コピー + ;+ ユニットＮｏ. 移動 + ;++++++++++++++++++++++++++++++++++++++++ DSP_CP_MV EQU $ LDA !SIFTX BPL DSP_CP_MV_010 EOR #000FFH INC A DSP_CP_MV_010 EQU $ LSR A LSR A LSR A LSR A STA DTBUFF+1,X CLC ADC DTBUFF+1,X LDA >DTBUFF+2,X CLC ADC DTBUFF+2,X ; M16 ; memory 16bit mode LDA !SIFTY BPL DSP_CP_MV_110 EOR #000FFH INC A DSP_CP_MV_110 EQU $ AND #0FFF0H STA DTBUFF+1,X CLC ADC DTBUFF+1,X LDA >DTBUFF+2,X CLC ADC DTBUFF+2,X M16 ; memory 16bit mode ; DSP_CP_MV_900 EQU $ STZ MUSDBLINT_900 LDA #010H STA !MUSEBUF ; MUSDBLINT_900 EQU $ RTS ; UNDR_ITCOL EQU $ LDA !MUSEBUF BNE UNDR_ITCOL_PAS JSR MUSDBLINT UNDR_ITCOL_PAS EQU $ RTL ; ; ;**************************************************************** ;* * ;* マウス ダブルクリック チェック * ;* * ;**************************************************************** MUSDBL EQU $ DEC !MUSEBUF BEQ MUSDBL_900 LDA !MOUSEBT AND #10000000B ;マウス 右 ＯＮ ? BEQ MUSDBL_900 ; NO -> MUSDBL_900 LDA #MSSC STA !MODENO STZ !WIDEX STZ !WIDEY LDX !SIFTFG LDA #080H STA !CRXPSL1,X LDA #060H STA !CRYPSL1,X M16 ; memory 16bit mode LDA !CRXPSL1,X STA !MSSCRX LDA !CRYPSL1,X STA !MSSCRY M8 ; memory 8bit mode MUSDBL_900 EQU $ RTS ; UNDR_COL EQU $ LDA !MUSEBUF BEQ UNDR_COL_PAS JSR MUSDBL UNDR_COL_PAS EQU $ RTL ; ; ;******************************************************** ;* ＵＮＤＯ * ;******************************************************** UNDO_GO EQU $ PHP PHB PHK PLB M8 ; memory 8bit mode I16 ; index 16bit mode ; LDX !UNDONO ; undo OK ? BEQ UNDO_GO_990 ; NO -> UNDO_GO_990 ; UNDO_GO_LOOP EQU $ LDA >UNDOBUF-1,X STA >DTBUFF-1,X DEX BNE UNDO_GO_LOOP ; UNDO_GO_990 EQU $ LDX #00000 STX !UNDONO PLB PLP RTL ; MEM8 IDX8 ; ; ;**************************************************************** ;* ダミー !! * ;**************************************************************** BS_SCRE EQU 00000H TMUP EQU 00000H D_00 EQU 00000H INT_STAT EQU 00000H STT_PL_GO EQU 00000H HMPIN EQU 00000H STT_PL_STP EQU 00000H ; M_HEIIN EQU $ M_ATKIN EQU $ M_HEIMV EQU $ M_ATKMV EQU $ M_HAZIN EQU $ M_HAZMV EQU $ M_LIFIN EQU $ M_LIFMV EQU $ M_ETRIN EQU $ M_TH1IN EQU $ M_ETRMV EQU $ M_FUSIN EQU $ M_TH1MV EQU $ M_FUSMV EQU $ M_MISIN EQU $ M_MISMV EQU $ M_TAMIN EQU $ M_HZKMV EQU $ M_TAMMV EQU $ M_THOIN EQU $ M_THOMV EQU $ M_PTRIN EQU $ M_PTRMV EQU $ M_SUIIN EQU $ M_SUIMV EQU $ M_BAKIN EQU $ M_BAKMV EQU $ M_DR0IN EQU $ M_DR1IN EQU $ M_BBYIN EQU $ M_DR2IN EQU $ M_DR3IN EQU $ M_DR4IN EQU $ M_DR0MV EQU $ M_DR5IN EQU $ M_DR1MV EQU $ M_BBYMV EQU $ M_EGGIN EQU $ M_DR2MV EQU $ M_DR3MV EQU $ M_DR4MV EQU $ M_ATAIN EQU $ M_DR5MV EQU $ M_EGGMV EQU $ M_ATAMV EQU $ BGM_SET EQU $ BOSSQ_MD7_SET EQU $ EGG_SAVE EQU $ EGG_LOAD EQU $ MHDPLY_JSL EQU $ M_ITMIN EQU $ M_ITMMV EQU $ RTL ; MEM8 IDX8 ; ; ; ; END