; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; 俶俤俽丵倅俤俴俢俙丵俁 1991.10.24(THU) ; ;-------------------------------------------------------------------- ; ORG 0EC440H ; ;=============================================== (zel_msge0) ========= GLB MSGE_I GLB MSGCHG ;=============================================== (zel_msge1) ========= EXT msg0000,msgbank2 ;---------------MSGE NO.----------------- EXT MS_0000,MS_0001,MS_0002,MS_0003,MS_0004,MS_0005,MS_0006,MS_0007 EXT MS_0008,MS_0009,MS_000A,MS_000B,MS_000C,MS_000D,MS_000E,MS_000F ;=============================================== (zel_main) ========= EXT JSRSUB ; EXT MD_tdemo ;=============================================== (zel_vma) ========== EXT VT01 ; EXT bgw2 ;=============================================== (zel_mjdt) ========= EXT MOJIFNT ;;;;,MOJIBIT ;=============================================== (zel_char) ========= EXT PICCPT,MPICBST ;=============================================== (zel_comn) ========= EXT MCGRST,CGCNG8 ;=============================================== (zel_bg3) ========== EXT STGITRM ;=============================================== (?!) =============== EXT DTSVPD ;==================================================================== ; EXTEND ; MEM8 IDX8 ; ;************************************************************************ ;* * ;* * ;************************************************************************ ; ;************************************************************************ ;* kokoga yobareru Lev. -1 * ;* * ;************************************************************************ MSGE_I EQU $ PHB PHK PLB ; (DBR) set ; JSR MSGE_I2 ; PLB ; (DBR) reset RTL ; ; ; ;************************************************************************ ;* inital or program select Lev. 0 * ;* * ;************************************************************************ MSGE_I2 EQU $ ;test program LDA !INITAL JSL >JSRSUB WORD MSGINI ;(0) inital WORD MSGPRG ;(1) program WORD MSGSVE ;(2) save gamemn ; ; ; ;************************************************************************ ;* save gamen Lev. 1 * ;* * ;************************************************************************ MSGSVE EQU $ LDA #003H ;MSGE NO SET STA MSGENOL LDA #000H STA MSGENOH ; LDX #000H JSR MSGINI1 LDA #0E8H STA WNADRS LDA #061H STA WNADRS+1 LDA #002H STA WIND_SYS JSR MSGPRG JSR MSGPRG JSR MSGPRG JSR MSGPRG JSR MSGPRG RTS ;************************************************************************ ;* inital program Lev. 1 * ;* * ;************************************************************************ MSGINI EQU $ ;inital data set LDA MCGRST ;f in out init set MSGI0040 EQU $ JSL >MPICBST ; message picture buffer set ; LDX #00 MSGINI1 EQU $ LDA INITDAT,X STA !WNKEIS,X INX CPX #20H BCC MSGINI1 ; JSR KASCLS ; JSR WNSETA ;window adress keisan ; MEM16 IDX16 REP #00110000B LDA #KURODT AND #0FF00H ORA #00180H STA MSGCHCT MEM8 IDX8 SEP #00110000B ; JSR MSG_TENKAI ; JSR CODE_7D ; MEM16 IDX16 REP #00110000B ; STZ !MOJIX ;00 ni suru (iruzetai) ; ;// 03.07.12 // LDA BKWD2130 ;// 03.07.12 //; ;// 03.07.12 // LDA >MODTBL0 ;// 03.07.12 // AND #000FFH ;// 03.07.12 // CMP #00002H ;// 03.07.12 // BCC MSGI140 ; ;// 03.07.12 //; ; ;// 03.07.12 // LDA #06280H ;// 03.07.12 // STA MGARTBL,X STA MGARTBL+2,X STA MJIBUF ; LDY #00000H TYX STY MOJIX ;X STY MESBUFX ;Y ; MEM8 IDX16 SEP #00100000B ; TENKAI1 EQU $ LDA [MJIBUF,X INY STY MESBUFX INX STX MOJIX BRA TENKAI1 ; ; TENKAI2 EQU $ ;CODE CMP #07FH ;? END BEQ TENKAI5 ; ;N JSR TENKAIS LDX MOJIX LDY MESBUFX BRA TENKAI1 ; ; TENKAI4 EQU $ SEC SBC #088H JSR TNASPLS LDX MOJIX LDY MESBUFX BRA TENKAI1 ; ; TENKAI5 EQU $ LDA #07FH STA >MJIBUF,X MEM8 IDX8 SEP #00110000B RTS ; ; TENKAIS EQU $ MEM8 IDX8 SEP #00110001B SBC #067H JSL >JSRSUB WORD TNKIS67 ;CODE 67 1 WORD TNKIS68 ;CODE 68 1 WORD TNKIS69 ;CODE 69 1 WORD TNKIS6A ;CODE 6A 1 WORD TNKIS6B ;CODE 6B 2 WORD TNKIS6C ;CODE 6C 2 WORD TNKIS6D ;CODE 6D 2 WORD TNKIS6E ;CODE 6E 2 WORD TNKIS6F ;CODE 6F 1 WORD TNKIS70 ;CODE 70 1 WORD TNKIS71 ;CODE 71 1 WORD TNKIS72 ;CODE 72 1 WORD TNKIS73 ;CODE 73 1 WORD TNKIS74 ;CODE 74 1 WORD TNKIS75 ;CODE 75 1 WORD TNKIS76 ;CODE 76 1 WORD TNKIS77 ;CODE 77 2 WORD TNKIS78 ;CODE 78 2 WORD TNKIS79 ;CODE 79 2 WORD TNKIS7A ;CODE 7A 2 WORD TNKIS7B ;CODE 7B 1 WORD TNKIS7C ;CODE 7C 1 WORD TNKIS7D ;CODE 7D 1 WORD TNKIS7E ;CODE 7E 1 WORD TNKIS7F ;CODE 7F 1 ; TNKIS01 EQU $ ; TNKIS67 EQU $ TNKIS68 EQU $ TNKIS69 EQU $ TNKIS6F EQU $ TNKIS70 EQU $ TNKIS71 EQU $ TNKIS72 EQU $ TNKIS73 EQU $ TNKIS74 EQU $ TNKIS75 EQU $ TNKIS76 EQU $ TNKIS7B EQU $ TNKIS7C EQU $ TNKIS7D EQU $ TNKIS7E EQU $ TNKIS7F EQU $ ; MEM8 IDX16 REP #00010000B ; LDX MOJIX LDY MESBUFX ; LDA [MJIBUF,X INY INX STX MOJIX STY MESBUFX ; RTS ; ; TNKIS02 EQU $ ; TNKIS6E EQU $ TNKIS78 EQU $ TNKIS79 EQU $ TNKIS7A EQU $ ; MEM16 IDX16 REP #00110000B ; LDX MOJIX LDY MESBUFX ; LDA [MJIBUF,X INY INY INX INX STX MOJIX STY MESBUFX ; MEM8 IDX16 SEP #00100000B RTS ; ; TNKIS6A EQU $ ;NAME SET(CODE 6A) MEM16 IDX16 REP #00110000B ; LDA >DTSVPT ;NAME INDEX GET TAX LDA >DTSVPD,X TAX ; LDY #00000H ; TKS6A10 EQU $ LDA >BUNAME,X ; 1 MOJI ME PHA AND #0000FH STA WORK8,Y PLA LSR A AND #0FFF0H ORA WORK8,Y STA WORK8,Y ; INX INX INY CPY #00006H BCC TKS6A10 ; MEM8 IDX16 SEP #00100000B ; LDY #00000H ; TKS6A20 EQU $ LDA WORK8,Y ;MOJI HENKAN JSR TKS6ASB STA WORK8,Y INY CPY #00006H BCC TKS6A20 ; MEM16 IDX16 REP #00110000B ; LDA MOJIX ;MOJI SET CLC ADC #00006H TAX INC MESBUFX ; MEM8 IDX16 SEP #00100000B LDA MJIBUF-6,X LDA MJIBUF-5,X LDA MJIBUF-4,X LDA MJIBUF-3,X LDA MJIBUF-2,X LDA MJIBUF-1,X ; ; LDY #00005H ;SPACE CHK TKS6A30 EQU $ LDA WORK8,Y CMP #059H BNE TKS6A40 DEX DEY BPL TKS6A30 TKS6A40 EQU $ STX MOJIX ; RTS ; ; TKS6ASB EQU $ MEM8 IDX16 CMP #05FH ;NOT CNG BCC TSASB10 ; CMP #076H ;0 - 9 BCS TSASB20 ; CMP #05FH ;I l BNE TSASB30 LDA #008H TSASB30 EQU $ CMP #060H ;i BNE TSASB40 LDA #022H TSASB40 EQU $ CMP #061H ;! BNE TSASB50 LDA #03EH TSASB50 EQU $ TSASB10 EQU $ RTS ; TSASB20 EQU $ SBC #042H RTS ; ; ; TNKIS6B EQU $ ;WINDOW WAKU ; MEM8 IDX16 REP #00010000B ; LDY MESBUFX ; INY LDA [MJIBUF,X INX STX MOJIX ; MEM8 IDX16 SEP #00100000B RTS ; ; TNKIS6D EQU $ ; MEM16 IDX16 REP #00110000B ; LDY MESBUFX ; INY LDA [MJIBUF,X INX INY CPY MJIBUF ;;;;;;;;; ;;;;;;;; LDA MSGENOL ;do no mesege odasu ka o uketoru(test) ;;;;;;;; ASL A ;;;;;;;; TAY ;tensou moto no keisan ;;;;;;;; LDX MGARTBL,Y ;mesege adress table kara adoresu o toru ;;;;;;;;; ;;;;;;;; LDA MGARTBL+2,Y ;tensou suru data no ryou ;;;;;;;; SEC ;;;;;;;; SBC MGARTBL,Y ;;;;;;;; BEQ TENKAI0 ;;;;;;;; STA JSRSUB WORD WNOPN1 ;(0) window open 1 WORD WNOPN2 ;(1) window open 2 WORD WNOPN3 ;(2) window open BG set WORD MSGMAN ;(3) program WORD WNCLS ;(4) window cls ; ; ; ;************************************************************************ ;* window hi speed open Lev. 2 * ;* * ;************************************************************************ WNOPN1 EQU $ ;window open 1 MEM16 ;1 kai de hiraku IDX16 ; JSR WNWKST ;wnadrs -> wnkeis, x=y=0 JSR LNOUT ;[~~~~~~~~~~~~~~~~~~~~~~] write (16 bit rts) ; REP #00110000B ; LDA #006 ;| | *7 write STA 0 CMP #07 BCC WNOPN21 LDA #02 ;8 ->2 BRA WNOPN22 WNOPN21 EQU $ LDA #01H ;1 - 7 ->1 WNOPN22 EQU $ JSL >JSRSUB WORD WNOPNS0 ;[~~~~~~~~~~~~~~~~~~~~~~] write WORD WNOPNS1 ;| | write WORD WNOPNS2 ;[______________________] write ; ; ; ;************************************************************************ ;* [~~~~~~~~~~~~~~~~~~~~~~] write Lev. 2' * ;* * ;************************************************************************ WNOPNS0 EQU $ ; MEM16 IDX16 REP #00110000B JSR WNWKST JSR LNOUT ; LDA #0FFFFH STA !VRAMD2,X ; MEM8 IDX8 SEP #00110000B ; INC !WNWORK RTS ; ; ; ;************************************************************************ ;* | | write Lev. 2' * ;* * ;************************************************************************ WNOPNS1 EQU $ ; MEM16 IDX16 REP #00110000B ; LDX #0000 LDY #0006 JSR LNOUT ; LDA #0FFFFH STA !VRAMD2,X ; MEM8 IDX8 SEP #00110000B ; INC !WNWORK RTS ; ; ; ;************************************************************************ ;* [______________________] write Lev. 2' * ;* * ;************************************************************************ WNOPNS2 EQU $ ; MEM16 IDX16 REP #00110000B ; LDX #0000 LDY #0012 JSR LNOUT ; LDA #0FFFFH STA !VRAMD2,X ; MEM8 IDX8 SEP #00110000B ; INC !WNWORK LDA #02 STA !WIND_SYS RTS ; ; ; ;************************************************************************ ;* window open BG set Lev. 2 * ;* * ;************************************************************************ WNOPN3 EQU $ JSR MESCHST ;char NO set ; INC !WIND_SYS ; RTS ;************************************************************************ ;* moji no syori Lev. 2 * ;* * ;************************************************************************ MSGMAN EQU $ ; MEM16 IDX16 REP #00110000B ; LDA !MESBUFX ;1 line skep LDY #00000H CMP #00099 ;99 <= ? < 120 BCC MSGMAN1 ;y ?=00 ; CMP #00120 ; BCS MSGMAN1 LDA #00000H STY ZURCNT ;ZURCNT=0 BRA MSGMAN3 ; MSGMAN1 EQU $ CMP #00059 ;59 <= ? < 80 BCC MSGMAN2 ;y ?=80 CMP #0080 BCS MSGMAN2 LDA #00080 STY ZURCNT ;ZURCNT=0 BRA MSGMAN3 ; MSGMAN2 EQU $ CMP #00019 ;19 <= ? <40 BCC MSGMAN3 ;y ?=40 CMP #0040 BCS MSGMAN3 LDA #00040 STY ZURCNT ;ZURCNT=0 ; MSGMAN3 EQU $ STA !MESBUFX ; CMP #00018 ;MESBUFX = 18,58,98 ? BEQ MSGMAN4 CMP #00058 BEQ MSGMAN4 CMP #00098 BNE MSGMAN5 MSGMAN4 EQU $ LDA ZURCNT ;y AND #00007 CMP #00006 BCC MSGMAN5 ;ZURCNT = 6,7 ? INC !MESBUFX ;MESBUFX ++ BRA MSGMAN ;next line MSGMAN5 EQU $ ; LDX !MOJIX LDA >MJIBUF,X ;A=0 - 7FH AND #0007FH SEC SBC #00066H BPL MSGMAN6 LDA #00000H MSGMAN6 EQU $ MEM8 IDX8 SEP #00110000B ; JSR MSGMANS ;jsrsub ni tobu ; LDA #bgw2 STA JSRSUB WORD CODE_00 ;moji WORD CODE_67 ;f in out WORD CODE_68 ;yes or no WORD CODE_69 ;print item & select WORD CODE_6A ;name write WORD CODE_6B ;msge window waku code WORD CODE_6C ;msge suugi write(2 byte.0,1,2,3syurui .0-f) WORD CODE_6D ; WORD CODE_6E ; WORD CODE_6F ; WORD CODE_70 ; WORD CODE_71 ; WORD CODE_72 ; WORD CODE_73 ;sukurouru. next 3 line. WORD CODE_74 ;next 1 line. WORD CODE_74 ;next 2 line. WORD CODE_74 ;next 3 line. WORD CODE_77 ;moji color. WORD CODE_78 ;wait. WORD CODE_79 ;sound. WORD CODE_7A ;moji speed. WORD CODE_7B ;e moji(smoll). WORD CODE_7C ;e moji(big). WORD CODE_7D ;window cls. WORD CODE_7E ;input wait. WORD CODE_7F ;end. input wait. ; ; ; ;************************************************************************ ;* window o kesu Lev. 2 * ;* work o tukau * ;************************************************************************ WNCLS EQU $ ;cls waku MEM16 IDX16 REP #00110000B ; JSR WNWKST ;window no adress o keisan ni utusu ; ;x=y=0 WNCLS1 EQU $ MEM16 ; IDX16 REP #00110000B ; LDA !WNKEIS XBA STA !VRAMD2,X INX INX LDA !CLSDATA ;nuki no data o vramd2 ni okuru STA !VRAMD2,X INX INX LDA !CLSDATA+2 STA !VRAMD2,X INX INX LDA #0FFFFH STA !VRAMD2,X ; ;yes ;// 03.07.12 // LDA >BKWD2130 ;// 03.07.12 // STA JSRSUB WORD CODESPD_00 ;1 line print WORD CODESPD_01 ;1 moji print WORD CODESPD_02 WORD CODESPD_03 WORD CODESPD_04 WORD CODESPD_05 WORD CODESPD_06 WORD CODESPD_07 WORD CODESPD_08 WORD CODESPD_09 WORD CODESPD_0A WORD CODESPD_0B WORD CODESPD_0C WORD CODESPD_0D WORD CODESPD_0E WORD CODESPD_0F ; ;**************************************************************** ;* CODE_00_SPEED_00 Lev. 4 * ;* * ;**************************************************************** CODESPD_00 EQU $ JSR CODESPD_01 MEM16 IDX16 REP #00110000B ; LDA !MESBUFX CMP #00019 BEQ CODESPD001 CMP #00059 BEQ CODESPD001 CMP #00099 BEQ CODESPD001 ; MEM8 IDX8 SEP #00110000B JMP MSGMAN ; CODESPD001 EQU $ MEM8 IDX8 SEP #00110000B RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_01 Lev. 4 * ;* * ;**************************************************************** CODESPD_01 EQU $ MEM8 IDX16 REP #00010000B ; LDX !MOJIX LDA >MJIBUF,X ;moji data read CMP #059H BEQ CODESPD013 ; MEM8 IDX8 SEP #00110000B ; LDA #00CH ;OTO STA SOUND3 ; CODESPD013 EQU $ MEM16 IDX16 REP #00110000B ; LDA !MESBUFX ASL A TAX ; ; MEM8 ; IDX16 ; SEP #00100000B ; ; LDA !MJIATR ; STA !MESBUF+1,X ; STA !MESBUF+3,X ; STA !MESBUF+5,X ; STA !MESBUF+41,X ; STA !MESBUF+43,X ; STA !MESBUF+45,X ; ; JSR MESGTFR ; MOJISET EQU $ MEM8 IDX8 SEP #00110000B JSR MOJIST ; LDA !MJISPDBK ; moji speed set STA !MJISPD ; RTS ;;;;; ;;;; LDX !MOJIX ;;;; LDA >MJIBUF,X ;moji data read ;;;; XBA ;;;; AND #001FFH ;;;; ASL A ;;;; ASL A ;;;; STA MJIBUF,X ;moji data read ;;;; XBA ;;;; AND #001FFH ;;;; ASL A ;;;; ASL A ;;;; STA MJIBUF,X ;moji data read ;;;; XBA ;;;; AND #001FFH ;;;; ASL A ;;;; ASL A ;;;; STA MJIBUF,X ;moji data read ;;;; XBA ;;;; AND #001FFH ;;;; ASL A ;;;; ASL A ;;;; STA MJIBUF,X ; IDX8 SEP #00010000B ; TAY LDA !DOTDATA,Y ; char data dot data read STA DOTBUF,X STA >DOTBUF+1,X INX STX !DOTPIT ; TYA AND #0F0H ASL A STA DOTBUF-1,X AND #000FFH ASL A STA MOJIBUF,X EOR !BITDATA,Y STA >MOJIBUF,X ; char data buffer set BRA MIT250 ; MIT230 EQU $ LDA >MOJIBUF,X AND !ANDDATA,Y STA >MOJIBUF,X ; MIT250 EQU $ ASL MOJIBUF+1,X EOR !BITDATA,Y STA >MOJIBUF+1,X BRA MIT300 ; MIT270 EQU $ LDA >MOJIBUF+1,X AND !ANDDATA,Y STA >MOJIBUF+1,X ; MIT300 EQU $ DEC MOJIBUF,X ; MIT360 EQU $ PLY INY INY LDX DOTBUF-1,X AND #000FFH ASL A CLC ADC MOJIBUF,X EOR !BITDATA,Y STA >MOJIBUF,X BRA MIT500 ; MIT470 EQU $ LDA >MOJIBUF,X AND !ANDDATA,Y STA >MOJIBUF,X ; MIT500 EQU $ ASL MOJIBUF+1,X EOR !BITDATA,Y STA >MOJIBUF+1,X BRA MIT550 ; MIT530 EQU $ LDA >MOJIBUF+1,X AND !ANDDATA,Y STA >MOJIBUF+1,X ; MIT550 EQU $ DEC MOJIBUF,X ; MIT610 EQU $ PLY INY INY LDX MOJIBUF,X ;;;; STA >MOJIBUF,X ;;;;; ;;;; LDA MOJIBUF+010H,X ;;;; STA >MOJIBUF+010H,X ;;;;; ;;;; LDA MOJIBUF,X ;;;; STA >MOJIBUF,X ;;;;; ;;;; LDA MOJIBUF+010H,X ;;;; STA >MOJIBUF+010H,X ;;;;; ;;;; LDY MJFTBF,X ;TENKAI RAM CLS ;;;; DEX ;;;; DEX ;;;; BPL MSNKI10 ;;;;; ;;;; LDA #BANK MOJIFNT ;MOJI FNT BANK SET ;;;; STA MJIBUF,X ;moji data read ;;;; XBA ;;;; AND #001FFH ;;;; STA MJFTADR,X ;;;; CLC ;;;; ADC #MOJIFNT ;;;; STA MOJIBIT+0,X ;DATA SET ;;;; XBA ;;;; STA MOJIBIT+2,X ;;;; XBA ;;;; STA MOJIBIT+4,X ;;;; AND #000FFH ;;;; XBA ;;;; STA MJFTBF,X ;;;; INY ;;;; BRA MSNKI20 ;;;;MSNKI30 EQU $ ;;;; LDA #MJFTBF ;MOJI FNT BANK SET ;;;; STA MJIBUF ;;;; PHY ;;;; PHX ;;;; JSR MJSTNKI ;TENKAI ;;;; PLX ;;;;; ;;;; LDY #00000H ;;;; JSR MSGTS1 ;TENKAI ;;;; PLY ;;;; CPY #000CCH ;;;; BNE MSGET30 ;;;;; ;;;; PHX ;;;;; ;;;; LDX #0003EH ;NUKI SET( Noto !!!!) ;;;; LDA #00000H ;;;;MSGET40 EQU $ ;;;; STA >MOJIBUF,X ;;;; DEX ;;;; DEX ;;;; BPL MSGET40 ;;;;; ;;;; PLX ;;;;MSGET30 EQU $ ;;;; JSR MSGTS2 ;TENSOU ;;;;; ;;;; INX ;;;; TXA ;;;; AND #0000FH ;;;; BNE MSGET20 ;;;; TXA ;;;; CLC ;;;; ADC #00010H ;;;; TAX ;;;;MSGET20 EQU $ ;;;; INY ;;;; CPY #00200H ;;;; BCC MSGET10 ;;;;; ;;;; MEM8 ;;;; IDX8 ;;;; SEP #00110000B ;;;;; ;;;; RTL ;;;;; ;;;;; ;;;;MSGTS1 EQU $ ;;;; MEM16 ;;;; IDX16 ;;;;; ;;;; PHX ;;;; PHY ;;;;; ;;;; LDA MOJIBUF,X ;MOJIFNT ---> MOJIBUF ;;;; LDA [MOJIBUF+20H,X ;;;; INX ;;;; INX ;;;; INY ;;;; INY ;;;; CPX #00010H ;;;; BCC MSGS10 ;;;;; ;;;; LDX #0000EH ;;;; LDA #00000H ;;;;; ;;;;MSGS11 EQU $ ;;;; STA >MOJIBUF+10H,X ;;;; STA >MOJIBUF+30H,X ;;;; DEX ;;;; DEX ;;;; BPL MSGS11 ;;;;; ;;;; MEM8 ;TENKAI PROG. ;;;; IDX16 ;;;; SEP #00100000B ;;;; LDA #002H ;;;; STA MOJIBUF+11H,X ;;;; ROR A ;;;; STA >MOJIBUF+11H,X ;;;; PLA ;;;; DEX ;;;; DEX ;;;; BPL MSGS13 ;;;; DEY ;;;;; ;;;; LDX #0000EH ;;;; LDA [MOJIBUF+10H,X ;;;; ROR A ;;;; STA >MOJIBUF+10H,X ;;;; PLA ;;;; DEX ;;;; DEX ;;;; BPL MSGS14 ;;;; DEY ;;;;; ;;;; DEC MOJIBUF+31H,X ;;;; ROR A ;;;; STA >MOJIBUF+31H,X ;;;; PLA ;;;; DEX ;;;; DEX ;;;; BPL MSGS16 ;;;; DEY ;;;;; ;;;; LDX #0000EH ;;;; LDA [MOJIBUF+30H,X ;;;; ROR A ;;;; STA >MOJIBUF+30H,X ;;;; PLA ;;;; DEX ;;;; DEX ;;;; BPL MSGS17 ;;;; DEY ;;;;; ;;;; DEC MOJIBUF+10H,X ;LEFT MOVE ;;;; ASL A ;;;; LDA >MOJIBUF+00H,X ;;;; ROL A ;;;; STA >MOJIBUF+00H,X ;;;;; ;;;; LDA >MOJIBUF+30H,X ;;;; ASL A ;;;; LDA >MOJIBUF+20H,X ;;;; ROL A ;;;; STA >MOJIBUF+20H,X ;;;;; ;;;; DEX ;;;; BPL MSGS18 ;;;;; ;;;; MEM16 ;;;; IDX16 ;;;; REP #00110000B ;;;;; ;;;; PLY ;;;; PLX ;;;; RTS ;;;;; ;;;;MSGTS2 EQU $ ;;;; MEM16 ;;;; IDX16 ;;;;; ;;;; PHX ;;;; PHY ;;;;; ;;;; LDA #MOJIBUF ;MOTO SET ;;;; STA GDBUF0,X ;GDBUF0 <--- MOJIBUF ;;;; LDA [GDBUF0+100H,X ;;;; INX ;;;; INX ;;;; INY ;;;; INY ;;;; CPY #00010H ;;;; BCC MSGS20 ;;;;; ;;;; PLY ;;;; PLX ;;;; RTS ;**************************************************************** ;* CODE_00_SPEED_02 Lev. 4 * ;* * ;**************************************************************** MEM8 IDX8 ; CODESPD_02 EQU $ DEC !MJISPD RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_03 Lev. 4 * ;* * ;**************************************************************** CODESPD_03 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_04 Lev. 4 * ;* * ;**************************************************************** CODESPD_04 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_05 Lev. 4 * ;* * ;**************************************************************** CODESPD_05 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_06 Lev. 4 * ;* * ;**************************************************************** CODESPD_06 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_07 Lev. 4 * ;* * ;**************************************************************** CODESPD_07 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_08 Lev. 4 * ;* * ;**************************************************************** CODESPD_08 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_09 Lev. 4 * ;* * ;**************************************************************** CODESPD_09 EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0A Lev. 4 * ;* * ;**************************************************************** CODESPD_0A EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0B Lev. 4 * ;* * ;**************************************************************** CODESPD_0B EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0C Lev. 4 * ;* * ;**************************************************************** CODESPD_0C EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0D Lev. 4 * ;* * ;**************************************************************** CODESPD_0D EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0E Lev. 4 * ;* * ;**************************************************************** CODESPD_0E EQU $ ; RTS ; ; ; ;**************************************************************** ;* CODE_00_SPEED_0F Lev. 4 * ;* * ;**************************************************************** CODESPD_0F EQU $ ; RTS ; ; ; ;************************************************************************ ;* CODE_65 syori Lev. 3 * ;* * ;************************************************************************ CODE_65 EQU $ ; RTS ;************************************************************************ ;* CODE_66 syori Lev. 3 * ;* * ;************************************************************************ CODE_66 EQU $ ;y=65h RTS ;************************************************************************ ;* CODE_67 syori Lev. 3 * ;* * ;************************************************************************ CODE_67 EQU $ LDA CGCNG8 LDA >CCNGCT BNE CODE671 CODE67100 EQU $ MEM16 IDX16 REP #00110000B ; INC !MOJIX ; MEM8 IDX8 SEP #00110000B CODE671 EQU $ RTS ; ; ; ;************************************************************************ ;* CODE_68 syori Lev. 3 * ;* yes or no * ;************************************************************************ CODE_68_DT EQU $ WORD MS_0001,MS_0002 CODE_68 EQU $ LDA MSGIPTM BEQ CODE6850 DEC A STA MSGIPTM CMP #001H BNE CODE6810 LDA #024H ;OTO STA SOUND3 BRA CODE6810 ;? INKEY WAIT OK CODE6850 EQU $ LDA ITEMR01,X ;N BMI CODE69124 BNE CODE6920 ;? MOTTE IRU CODE69124 EQU $ CPX #033-1 ;? OKANE BNE CODE69122 LDA >ITEMR01+1,X ;Y BNE CODE6920 CODE69122 EQU $ ;N DEC MSG_RTS BRA CODE69S2 ; CODE69SL EQU $ ;ITEM SELCT LDX MSG_RTS CPX #033-1 BCC CODE6910 LDX #000H STX MSG_RTS CODE6910 EQU $ CPX #016-1 BEQ CODE6912 ;? BIN SELECT LDA >ITEMR01,X ;N BMI CODE6914 BNE CODE6920 ;? MOTTE IRU CODE6914 EQU $ CPX #033-1 ;? OKANE BNE CODE6912 LDA >ITEMR01+1,X ;Y BNE CODE6920 CODE6912 EQU $ ;N INC MSG_RTS BRA CODE69SL CODE6920 EQU $ TXY TXA ASL A TAX LDA >STGITRM,X STA STGITRM+1,X STA ITEMR01,X ; CPX #033-1 BEQ CODE6980 ;? COIN ; CPX #004-1 BNE CODE6970 ;? BOMB ; CODE6980 EQU $ LDA #001H CODE6970 EQU $ ASL A ASL A ASL A TAY LDA [ tenkai no toki ni set ; ; ; ; ;************************************************************************ ;* CODE_6B syori Lev. 3 * ;* * ;************************************************************************ CODE_6B EQU $ ; ; TNKIS6B ---> tenkai no toki ni set ; ; ; ;************************************************************************ ;* CODE_6C syori Lev. 3 * ;* * ;************************************************************************ CODE_6C EQU $ ; ; TNKIS6C ---> tenkai no toki ni set ; ; ; ; ;************************************************************************ ;* CODE_6D syori Lev. 3 * ;* * ;************************************************************************ CODE_6D EQU $ ; ; TNKIS6D ---> tenkai no toki ni set ; ; ; ;************************************************************************ ;* CODE_6E syori Lev. 3 * ;* SCR. DOT SPEED SET * ;************************************************************************ CODE_6E EQU $ MEM8 IDX16 REP #00010000B ; LDX !MOJIX INX ; LDA >MJIBUF,X ;DOT speed read STA MSGSCRD ;DOT speed set ; INX STX !MOJIX ;mjibuf,x o tugi ni susumeru ; MEM8 IDX8 SEP #00110000B ; RTS ; ; ; ;************************************************************************ ;* CODE_6F syori Lev. 3 * ;* * ;************************************************************************ CODE_6F_DT EQU $ WORD MS_000B,MS_000C CODE_6F EQU $ LDA MSGIPTM BEQ CODE6F50 DEC A STA MSGIPTM CMP #001H BNE CODE6F10 LDA #024H ;OTO STA SOUND3 BRA CODE6F10 ;? INKEY WAIT OK CODE6F50 EQU $ LDA MSGSCRD ;Y BRA CODE737 CODE738 EQU $ LDA >MSGSCRD ;N CODE737 EQU $ STA SCRLIN CLC ADC #001H STA >SCRLIN AND #00FH BNE CODE734 ; MEM16 IDX16 REP #00110000B ; LDA >MOJIX CLC ADC #00001H STA >MOJIX ; LDA #00080 STA >MESBUFX ; LDA >CODE_74DT+2*2 ;LINE SU SET STA >RETPIT LDA #00001 ;KAIGYO FLG ON STA >RETFLG ; MEM8 IDX8 SEP #00110000B ; LDA #000H STA >ZURCNT ; STZ MJIBUF,X AND #0003H ASL A TAX ; LDA !LINEDAT,X ;kaigyou STA !MESBUFX ; LDA CODE_74DT,X ;LINE NO SET STA RETPIT LDA #00001 ;KAIGYO FLG SET STA RETFLG ; INC !MOJIX ; MEM8 IDX8 SEP #00110000B ; STZ ZURCNT ; RTS ; JMP MSGMAN ; ; ; ;************************************************************************ ;* CODE_77 syori Lev. 3 * ;* moji color * ;************************************************************************ CODE_77 EQU $ ;moji no color o kaeru MEM8 IDX16 REP #00010000B ; LDA !MJIATR ;mjiatr no color o 000 ni suru AND #11100011B STA !MJIATR ; LDX !MOJIX ;moji color no new data o mjiart ni set suru INX LDA >MJIBUF,X AND #00000111B ASL A ASL A ORA !MJIATR STA !MJIATR ; INX ;mjibuf,x no x o tugi(+1) ni suru STX !MOJIX ; MEM8 IDX8 SEP #00110000B ; RTS ; ; ; ;************************************************************************ ;* CODE_78 syori Lev. 3 * ;* wait * ;************************************************************************ CODE_78 EQU $ LDA a=2) COD781 EQU $ MEM8 IDX8 SEP #00110000B ; JSL >JSRSUB WORD COD78INIT ;(0) time set WORD COD78EXIT ;(1) time wait end WORD COD78DEC ;(2) time dec ; COD78INIT EQU $ ;time set MEM16 IDX16 REP #00110000B ; LDX !MOJIX LDA >MJIBUF+1,X AND #000FH ASL A TAX LDA WAITTIME,X ;wait time read STA !MSGWAIT ; COD78DEC EQU $ ;time o hihu MEM16 IDX16 REP #00110000B ; DEC !MSGWAIT ; MEM8 IDX8 SEP #00110000B ; RTS ; COD78EXIT EQU $ ;wait time exit MEM16 IDX16 REP #00110000B ; INC !MOJIX INC !MOJIX ; MEM8 IDX8 SEP #00110000B ; STZ !MSGWAIT RTS ; ; ; ;************************************************************************ ;* CODE_79 syori Lev. 3 * ;* sound * ;************************************************************************ CODE_79 EQU $ MEM8 IDX16 REP #00010000B ; LDX !MOJIX INX ; LDA >MJIBUF,X ;speed read STA SOUND3 ; INX STX !MOJIX ;mjibuf,x o tugi ni susumeru ; MEM8 IDX8 SEP #00110000B ; RTS ; ; ; ;************************************************************************ ;* CODE_7A syori Lev. 3 * ;* moji speed * ;************************************************************************ CODE_7A EQU $ MEM8 IDX16 REP #00010000B ; LDX !MOJIX INX ; LDA >MJIBUF,X ;speed read STA !MJISPDBK ;speed set STA !MJISPD ; " ; INX STX !MOJIX ;mjibuf,x o tugi ni susumeru ; MEM8 IDX8 SEP #00110000B ; RTS ; ; ; ;************************************************************************ ;* CODE_7B syori Lev. 3 * ;* e moji chisai hou * ;************************************************************************ CODE_7B EQU $ MEM16 IDX16 REP #00110000B ; INC !MOJIX LDX !MOJIX LDA >MJIBUF,X ;e no bangou o motomeru ; AND #007FH ;e moji no aru toko o motomeru ASL A ;a=a*8 ASL A TAX ; LDY !MESBUFX ; LDA SML_E,X STA !MESBUF-40,Y INX INX LDA SML_E,X STA !MESBUF,Y ; INY INY STY !MESBUFX ; INC !MOJIX ; MEM8 IDX8 SEP #00110000B ; JMP MSGMAN ; ; ; ;************************************************************************ ;* CODE_7C syori Lev. 3 * ;* e moji big * ;************************************************************************ CODE_7C EQU $ MEM16 IDX16 REP #00110000B ; INC !MOJIX LDX !MOJIX LDA >MJIBUF,X ;e no bangou o motomeru ; AND #007FH ;e moji no aru toko o motomeru ASL A ;a=a*8 ASL A ASL A TAX ; LDA #0002 ;kaunto no kaisu STA wnkeis(ram),x=y=0 * ;* * ;************************************************************************ WNWKST EQU $ ;wnadrs -> wnkeis,x=y=0 MEM16 ;vram no adress o keisan you no ram ni set IDX16 REP #00110000B ; LDA !WNADRS STA !WNKEIS ; LDX #0000 TXY ; MEM8 IDX8 SEP #00110000B RTS ; ; ; ;************************************************************************ ;* 1 line kaku * ;* worke tukau * ;************************************************************************ LNOUT EQU $ ; MEM16 IDX16 REP #00110000B ; LDA !WNKEIS ;adress set XBA STA !VRAMD2,X INX INX ; XBA CLC ;adress +20h ADC #0020H STA !WNKEIS ; LDA #2F00H ;kazu set STA !VRAMD2,X INX INX ; LDA !WAKU,Y ;hidari hasi no data set STA !VRAMD2,X INX INX INY INY ; LDA #0022 ;mannaka no data 22 ko set STA vramd2 * ;* worke tukau * ;************************************************************************ MESGTFR EQU $ MEM16 IDX16 REP #00110000B ; LDA #0006 ;6 line no data okuru STA vramd2 e okuru LDA !MESBUF,Y STA !VRAMD2,X INX INX INY INY DEC MOJIBIT+0,X ;DATA SET ;;;; XBA ;;;; STA MOJIBIT+2,X ;;;; XBA ;;;; STA MOJIBIT+4,X ;;;; AND #000FFH ;;;; XBA ;;;; STA MGARTBL,X LDA MGARTBL+1,X INX INX INX ; MSPL20 EQU $ LDA [