; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; ZELDA-3 1991.01.08(TUE) ; ;-------------------------------------------------------------------- ; ORG 0DBC00H ; ;=============================================== (zel_msge) ========= GLB MSGE_I,MSGETNP ;---------------MSGE NO.----------------- GLB MS_0000,MS_0001,MS_0002,MS_0003,MS_0004,MS_0005,MS_0006,MS_0007 GLB MS_0008,MS_0009,MS_000A,MS_000B,MS_000C,MS_000D,MS_000E,MS_000F GLB MS_0010,MS_0011,MS_0012,MS_0013,MS_0014,MS_0015,MS_0016,MS_0017 GLB MS_0018,MS_0019,MS_001A,MS_001B,MS_001C,MS_001D,MS_001E,MS_001F GLB MS_0020,MS_0021,MS_0022,MS_0023,MS_0024,MS_0025,MS_0026,MS_0027 GLB MS_0028,MS_0029,MS_002A,MS_002B,MS_002C,MS_002D,MS_002E,MS_002F GLB MS_0030,MS_0031,MS_0032,MS_0033,MS_0034,MS_0035,MS_0036,MS_0037 GLB MS_0038,MS_0039,MS_003A,MS_003B,MS_003C,MS_003D,MS_003E,MS_003F GLB MS_0040,MS_0041,MS_0042,MS_0043,MS_0044,MS_0045,MS_0046,MS_0047 GLB MS_0048,MS_0049,MS_004A,MS_004B,MS_004C,MS_004D,MS_004E,MS_004F GLB MS_0050,MS_0051,MS_0052,MS_0053,MS_0054,MS_0055,MS_0056,MS_0057 GLB MS_0058,MS_0059,MS_005A,MS_005B,MS_005C,MS_005D,MS_005E,MS_005F GLB MS_0060,MS_0061,MS_0062,MS_0063,MS_0064,MS_0065,MS_0066,MS_0067 GLB MS_0068,MS_0069,MS_006A,MS_006B,MS_006C,MS_006D,MS_006E,MS_006F GLB MS_0070,MS_0071,MS_0072,MS_0073,MS_0074,MS_0075,MS_0076,MS_0077 GLB MS_0078,MS_0079,MS_007A,MS_007B,MS_007C,MS_007D,MS_007E,MS_007F GLB MS_0080,MS_0081,MS_0082,MS_0083,MS_0084,MS_0085,MS_0086,MS_0087 GLB MS_0088,MS_0089,MS_008A,MS_008B,MS_008C,MS_008D,MS_008E,MS_008F GLB MS_0090,MS_0091,MS_0092,MS_0093,MS_0094,MS_0095,MS_0096,MS_0097 GLB MS_0098,MS_0099,MS_009A,MS_009B,MS_009C,MS_009D,MS_009E,MS_009F GLB MS_00A0,MS_00A1,MS_00A2,MS_00A3,MS_00A4,MS_00A5,MS_00A6,MS_00A7 GLB MS_00A8,MS_00A9,MS_00AA,MS_00AB,MS_00AC,MS_00AD,MS_00AE,MS_00AF GLB MS_00B0,MS_00B1,MS_00B2,MS_00B3,MS_00B4,MS_00B5,MS_00B6,MS_00B7 GLB MS_00B8,MS_00B9,MS_00BA,MS_00BB,MS_00BC,MS_00BD,MS_00BE,MS_00BF GLB MS_00C0,MS_00C1,MS_00C2,MS_00C3,MS_00C4,MS_00C5,MS_00C6,MS_00C7 GLB MS_00C8,MS_00C9,MS_00CA,MS_00CB,MS_00CC,MS_00CD,MS_00CE,MS_00CF GLB MS_00D0,MS_00D1,MS_00D2,MS_00D3,MS_00D4,MS_00D5,MS_00D6,MS_00D7 GLB MS_00D8,MS_00D9,MS_00DA,MS_00DB,MS_00DC,MS_00DD,MS_00DE,MS_00DF GLB MS_00E0,MS_00E1,MS_00E2,MS_00E3,MS_00E4,MS_00E5,MS_00E6,MS_00E7 GLB MS_00E8,MS_00E9,MS_00EA,MS_00EB,MS_00EC,MS_00ED,MS_00EE,MS_00EF GLB MS_00F0,MS_00F1,MS_00F2,MS_00F3,MS_00F4,MS_00F5,MS_00F6,MS_00F7 GLB MS_00F8,MS_00F9,MS_00FA,MS_00FB,MS_00FC,MS_00FD,MS_00FE,MS_00FF ; GLB MS_0100,MS_0101,MS_0102,MS_0103,MS_0104,MS_0105,MS_0106,MS_0107 GLB MS_0108,MS_0109,MS_010A,MS_010B,MS_010C,MS_010D,MS_010E,MS_010F GLB MS_0110,MS_0111,MS_0112,MS_0113,MS_0114,MS_0115,MS_0116,MS_0117 GLB MS_0118,MS_0119,MS_011A,MS_011B,MS_011C,MS_011D,MS_011E,MS_011F GLB MS_0120,MS_0121,MS_0122,MS_0123,MS_0124,MS_0125,MS_0126,MS_0127 GLB MS_0128,MS_0129,MS_012A,MS_012B,MS_012C,MS_012D,MS_012E,MS_012F GLB MS_0130,MS_0131,MS_0132,MS_0133,MS_0134,MS_0135,MS_0136,MS_0137 GLB MS_0138,MS_0139,MS_013A,MS_013B,MS_013C,MS_013D,MS_013E,MS_013F GLB MS_0140,MS_0141,MS_0142,MS_0143,MS_0144,MS_0145,MS_0146,MS_0147 GLB MS_0148,MS_0149,MS_014A,MS_014B,MS_014C,MS_014D,MS_014E,MS_014F GLB MS_0150,MS_0151,MS_0152,MS_0153,MS_0154,MS_0155,MS_0156,MS_0157 GLB MS_0158,MS_0159,MS_015A,MS_015B,MS_015C,MS_015D,MS_015E,MS_015F GLB MS_0160,MS_0161,MS_0162,MS_0163,MS_0164,MS_0165,MS_0166,MS_0167 GLB MS_0168,MS_0169,MS_016A,MS_016B,MS_016C,MS_016D,MS_016E,MS_016F GLB MS_0170,MS_0171,MS_0172,MS_0173,MS_0174,MS_0175,MS_0176,MS_0177 GLB MS_0178,MS_0179,MS_017A,MS_017B,MS_017C,MS_017D,MS_017E,MS_017F GLB MS_0180,MS_0181,MS_0182,MS_0183,MS_0184,MS_0185,MS_0186,MS_0187 GLB MS_0188,MS_0189,MS_018A,MS_018B,MS_018C,MS_018D,MS_018E,MS_018F GLB MS_0190,MS_0191,MS_0192,MS_0193,MS_0194,MS_0195,MS_0196,MS_0197 GLB MS_0198,MS_0199,MS_019A,MS_019B,MS_019C,MS_019D,MS_019E,MS_019F GLB MS_01A0,MS_01A1,MS_01A2,MS_01A3,MS_01A4,MS_01A5,MS_01A6,MS_01A7 GLB MS_01A8,MS_01A9,MS_01AA,MS_01AB,MS_01AC,MS_01AD,MS_01AE,MS_01AF GLB MS_01B0,MS_01B1,MS_01B2,MS_01B3,MS_01B4,MS_01B5,MS_01B6,MS_01B7 GLB MS_01B8,MS_01B9,MS_01BA,MS_01BB,MS_01BC,MS_01BD,MS_01BE,MS_01BF GLB MS_01C0,MS_01C1,MS_01C2,MS_01C3,MS_01C4,MS_01C5,MS_01C6,MS_01C7 GLB MS_01C8,MS_01C9,MS_01CA,MS_01CB,MS_01CC,MS_01CD,MS_01CE,MS_01CF GLB MS_01D0,MS_01D1,MS_01D2,MS_01D3,MS_01D4,MS_01D5,MS_01D6,MS_01D7 GLB MS_01D8,MS_01D9,MS_01DA,MS_01DB,MS_01DC,MS_01DD,MS_01DE,MS_01DF GLB MS_01E0,MS_01E1,MS_01E2,MS_01E3,MS_01E4,MS_01E5,MS_01E6,MS_01E7 GLB MS_01E8,MS_01E9,MS_01EA,MS_01EB,MS_01EC,MS_01ED,MS_01EE,MS_01EF GLB MS_01F0,MS_01F1,MS_01F2,MS_01F3,MS_01F4,MS_01F5,MS_01F6,MS_01F7 GLB MS_01F8,MS_01F9,MS_01FA,MS_01FB,MS_01FC,MS_01FD,MS_01FE,MS_01FF ; GLB MS_0200,MS_0201,MS_0202,MS_0203,MS_0204,MS_0205,MS_0206,MS_0207 GLB MS_0208,MS_0209,MS_020A,MS_020B,MS_020C,MS_020D,MS_020E,MS_020F GLB MS_0210,MS_0211,MS_0212,MS_0213,MS_0214,MS_0215,MS_0216,MS_0217 GLB MS_0218,MS_0219,MS_021A,MS_021B,MS_021C,MS_021D,MS_021E,MS_021F GLB MS_0220,MS_0221,MS_0222,MS_0223,MS_0224,MS_0225,MS_0226,MS_0227 GLB MS_0228,MS_0229,MS_022A,MS_022B,MS_022C,MS_022D,MS_022E,MS_022F GLB MS_0230,MS_0231,MS_0232,MS_0233,MS_0234,MS_0235,MS_0236,MS_0237 GLB MS_0238,MS_0239,MS_023A,MS_023B,MS_023C,MS_023D,MS_023E,MS_023F GLB MS_0240,MS_0241,MS_0242,MS_0243,MS_0244,MS_0245,MS_0246,MS_0247 GLB MS_0248,MS_0249,MS_024A,MS_024B,MS_024C,MS_024D,MS_024E,MS_024F GLB MS_0250,MS_0251,MS_0252,MS_0253,MS_0254,MS_0255,MS_0256,MS_0257 GLB MS_0258,MS_0259,MS_025A,MS_025B,MS_025C,MS_025D,MS_025E,MS_025F GLB MS_0260,MS_0261,MS_0262,MS_0263,MS_0264,MS_0265,MS_0266,MS_0267 GLB MS_0268,MS_0269,MS_026A,MS_026B,MS_026C,MS_026D,MS_026E,MS_026F GLB MS_0270,MS_0271,MS_0272,MS_0273,MS_0274,MS_0275,MS_0276,MS_0277 GLB MS_0278,MS_0279,MS_027A,MS_027B,MS_027C,MS_027D,MS_027E,MS_027F GLB MS_0280,MS_0281,MS_0282,MS_0283,MS_0284,MS_0285,MS_0286,MS_0287 GLB MS_0288,MS_0289,MS_028A,MS_028B,MS_028C,MS_028D,MS_028E,MS_028F GLB MS_0290,MS_0291,MS_0292,MS_0293,MS_0294,MS_0295,MS_0296,MS_0297 GLB MS_0298,MS_0299,MS_029A,MS_029B,MS_029C,MS_029D,MS_029E,MS_029F GLB MS_02A0,MS_02A1,MS_02A2,MS_02A3,MS_02A4,MS_02A5,MS_02A6,MS_02A7 GLB MS_02A8,MS_02A9,MS_02AA,MS_02AB,MS_02AC,MS_02AD,MS_02AE,MS_02AF GLB MS_02B0,MS_02B1,MS_02B2,MS_02B3,MS_02B4,MS_02B5,MS_02B6,MS_02B7 GLB MS_02B8,MS_02B9,MS_02BA,MS_02BB,MS_02BC,MS_02BD,MS_02BE,MS_02BF GLB MS_02C0,MS_02C1,MS_02C2,MS_02C3,MS_02C4,MS_02C5,MS_02C6,MS_02C7 GLB MS_02C8,MS_02C9,MS_02CA,MS_02CB,MS_02CC,MS_02CD,MS_02CE,MS_02CF GLB MS_02D0,MS_02D1,MS_02D2,MS_02D3,MS_02D4,MS_02D5,MS_02D6,MS_02D7 GLB MS_02D8,MS_02D9,MS_02DA,MS_02DB,MS_02DC,MS_02DD,MS_02DE,MS_02DF GLB MS_02E0,MS_02E1,MS_02E2,MS_02E3,MS_02E4,MS_02E5,MS_02E6,MS_02E7 GLB MS_02E8,MS_02E9,MS_02EA,MS_02EB,MS_02EC,MS_02ED,MS_02EE,MS_02EF GLB MS_02F0,MS_02F1,MS_02F2,MS_02F3,MS_02F4,MS_02F5,MS_02F6,MS_02F7 GLB MS_02F8,MS_02F9,MS_02FA,MS_02FB,MS_02FC,MS_02FD,MS_02FE,MS_02FF ; GLB MS_0300,MS_0301,MS_0302,MS_0303,MS_0304,MS_0305,MS_0306,MS_0307 GLB MS_0308,MS_0309,MS_030A,MS_030B,MS_030C,MS_030D,MS_030E,MS_030F GLB MS_0310,MS_0311,MS_0312,MS_0313,MS_0314,MS_0315,MS_0316,MS_0317 GLB MS_0318,MS_0319,MS_031A,MS_031B,MS_031C,MS_031D,MS_031E,MS_031F GLB MS_0320,MS_0321,MS_0322,MS_0323,MS_0324,MS_0325,MS_0326,MS_0327 GLB MS_0328,MS_0329,MS_032A,MS_032B,MS_032C,MS_032D,MS_032E,MS_032F GLB MS_0330,MS_0331,MS_0332,MS_0333,MS_0334,MS_0335,MS_0336,MS_0337 GLB MS_0338,MS_0339,MS_033A,MS_033B,MS_033C,MS_033D,MS_033E,MS_033F GLB MS_0340,MS_0341,MS_0342,MS_0343,MS_0344,MS_0345,MS_0346,MS_0347 GLB MS_0348,MS_0349,MS_034A,MS_034B,MS_034C,MS_034D,MS_034E,MS_034F GLB MS_0350,MS_0351,MS_0352,MS_0353,MS_0354,MS_0355,MS_0356,MS_0357 GLB MS_0358,MS_0359,MS_035A,MS_035B,MS_035C,MS_035D,MS_035E,MS_035F GLB MS_0360,MS_0361,MS_0362,MS_0363,MS_0364,MS_0365,MS_0366,MS_0367 GLB MS_0368,MS_0369,MS_036A,MS_036B,MS_036C,MS_036D,MS_036E,MS_036F GLB MS_0370,MS_0371,MS_0372,MS_0373,MS_0374,MS_0375,MS_0376,MS_0377 GLB MS_0378,MS_0379,MS_037A,MS_037B,MS_037C,MS_037D,MS_037E,MS_037F GLB MS_0380,MS_0381,MS_0382,MS_0383,MS_0384,MS_0385,MS_0386,MS_0387 GLB MS_0388,MS_0389,MS_038A,MS_038B,MS_038C,MS_038D,MS_038E,MS_038F GLB MS_0390,MS_0391,MS_0392,MS_0393,MS_0394,MS_0395,MS_0396,MS_0397 GLB MS_0398,MS_0399,MS_039A,MS_039B,MS_039C,MS_039D,MS_039E,MS_039F GLB MS_03A0,MS_03A1,MS_03A2,MS_03A3,MS_03A4,MS_03A5,MS_03A6,MS_03A7 GLB MS_03A8,MS_03A9,MS_03AA,MS_03AB,MS_03AC,MS_03AD,MS_03AE,MS_03AF GLB MS_03B0,MS_03B1,MS_03B2,MS_03B3,MS_03B4,MS_03B5,MS_03B6,MS_03B7 GLB MS_03B8,MS_03B9,MS_03BA,MS_03BB,MS_03BC,MS_03BD,MS_03BE,MS_03BF GLB MS_03C0,MS_03C1,MS_03C2,MS_03C3,MS_03C4,MS_03C5,MS_03C6,MS_03C7 GLB MS_03C8,MS_03C9,MS_03CA,MS_03CB,MS_03CC,MS_03CD,MS_03CE,MS_03CF GLB MS_03D0,MS_03D1,MS_03D2,MS_03D3,MS_03D4,MS_03D5,MS_03D6,MS_03D7 GLB MS_03D8,MS_03D9,MS_03DA,MS_03DB,MS_03DC,MS_03DD,MS_03DE,MS_03DF GLB MS_03E0,MS_03E1,MS_03E2,MS_03E3,MS_03E4,MS_03E5,MS_03E6,MS_03E7 GLB MS_03E8,MS_03E9,MS_03EA,MS_03EB,MS_03EC,MS_03ED,MS_03EE,MS_03EF GLB MS_03F0,MS_03F1,MS_03F2,MS_03F3,MS_03F4,MS_03F5,MS_03F6,MS_03F7 GLB MS_03F8,MS_03F9,MS_03FA,MS_03FB,MS_03FC,MS_03FD,MS_03FE,MS_03FF ; ;=============================================== (zel_main) ========= EXT JSRSUB ;=============================================== (zel_vma) ========== EXT VT01 ; EXT bgw2 ;=============================================== (zel_mjdt) ========= EXT MOJIFNT ;=============================================== (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 JSL >MCGRST ;f in out init set ; JSL >MPICBST ; message picture buffer set ; LDX #00 MSGINI1 EQU $ LDA INITDAT,X STA !WNKEIS,X INX CPX #20H BCC MSGINI1 ; JSR WNSETA ;window adress keisan ; JSR MSG_TENKAI ; JSR CODE_7D ; MEM16 IDX16 REP #00110000B ; STZ !MOJIX ;00 ni suru (iruzetai) ; MEM8 IDX8 SEP #00110000B ; LDA #bgw2 STA MJIBUF ; MEM16 IDX16 REP #00110000B ; LDA MSGENOL ;MEGE NO SET ( ADD ) ASL A TAY LDA MGARTBL,Y STA MJIBUF,X INY INY INX INX STX MESBUF STY MESBUF+2 BRA TENKAI1 TENKAI0 EQU $ LDA #07F7FH STA >MJIBUF,X MEM8 IDX8 SEP #00110000B RTS ; ; TENKAIS EQU $ MEM8 IDX8 SEP #00110001B SBC #067H JSL >JSRSUB WORD TNKIS67 ;CODE 67 WORD TNKIS68 ;CODE 68 WORD TNKIS69 ;CODE 69 WORD TNKIS6A ;CODE 6A WORD TNKIS6B ;CODE 6B WORD TNKIS6C ;CODE 6C WORD TNKIS6D ;CODE 6D WORD TNKIS6E ;CODE 6E WORD TNKIS6F ;CODE 6F WORD TNKIS70 ;CODE 70 WORD TNKIS71 ;CODE 71 WORD TNKIS72 ;CODE 72 WORD TNKIS73 ;CODE 73 WORD TNKIS74 ;CODE 74 WORD TNKIS75 ;CODE 75 WORD TNKIS76 ;CODE 76 WORD TNKIS77 ;CODE 77 WORD TNKIS78 ;CODE 78 WORD TNKIS79 ;CODE 79 WORD TNKIS7A ;CODE 7A WORD TNKIS7B ;CODE 7B WORD TNKIS7C ;CODE 7C WORD TNKIS7D ;CODE 7D WORD TNKIS7E ;CODE 7E WORD TNKIS7F ;CODE 7F TNKIS01 EQU $ ; TNKIS67 EQU $ TNKIS68 EQU $ TNKIS69 EQU $ TNKIS6C EQU $ TNKIS6D EQU $ TNKIS6E EQU $ TNKIS6F EQU $ TNKIS70 EQU $ TNKIS71 EQU $ TNKIS72 EQU $ TNKIS73 EQU $ TNKIS74 EQU $ TNKIS75 EQU $ TNKIS76 EQU $ TNKIS79 EQU $ TNKIS7B EQU $ TNKIS7C EQU $ TNKIS7D EQU $ TNKIS7E EQU $ TNKIS7F EQU $ ; MEM8 IDX16 REP #00010000B ; LDX MESBUF LDY MESBUF+2 ; LDA (MJIBUF,X INY INX STX MESBUF STY MESBUF+2 ; MEM16 IDX16 REP #00110000B RTS ; ; TNKIS02 EQU $ ; TNKIS77 EQU $ TNKIS78 EQU $ TNKIS7A EQU $ ; MEM16 IDX16 REP #00110000B ; LDX MESBUF LDY MESBUF+2 ; LDA (MJIBUF,X INY INY INX INX STX MESBUF STY MESBUF+2 ; RTS ; ; TNKIS6A EQU $ ;NAME SET(CODE 6A) MEM16 IDX16 REP #00110000B ; LDA >DTSVPT TAX LDA >DTSVPD,X TAX LDA >BUNAME,X PHA AND #000FH STA BUNAME+2,X PHA AND #000FH STA BUNAME+4,X PHA AND #000FH STA BUNAME+6,X PHA AND #000FH STA MJIBUF-8,X LDA MJIBUF-6,X LDA MJIBUF-4,X LDA MJIBUF-2,X ; LDY #00006H ;SPACE CHK TNKS6A5 EQU $ LDA WORK8,Y CMP #0FF01H BNE TNKS6A6 DEX DEX DEY DEY BPL TNKS6A5 TNKS6A6 EQU $ STX MESBUF RTS ; ; TNKIS6B EQU $ ;WINDOW WAKU ; MEM8 IDX16 REP #00010000B ; LDY MESBUF+2 ; INY LDA (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 ; 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 MEM8 IDX8 SEP #00110000B ; LDA #VT01 ;vramd write 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 $ 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 ; MEM16 IDX16 REP #00110000B ; LDX !MOJIX LDA >MJIBUF,X ;moji data read AND #000FFH CMP #00002H BCS CODESPD011 LDA #LOW MOJIFNT STA MJIBUF,X ;moji data read XBA AND #001FFH STA MJIBUF,X ;moji data read XBA AND #001FFH STA MJIBUF,X ;moji data read XBA AND #001FFH STA MJIBUF,X ;moji data read XBA AND #001FFH STA MJPCBF,X DEX DEX BPL MJSTKAI1 ; MEM8 ;TENKAI PROG. IDX16 SEP #00100000B LDA #002H STA MJPCBF+1,X ROR A STA >MJPCBF+1,X PLA DEX DEX BPL MJSTKAI3 DEY ; LDX #0000EH LDA [MJPCBF,X ROR A STA >MJPCBF,X PLA DEX DEX BPL MJSTKAI4 DEY ; DEC 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 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 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 #MOJIFNT ;MOTO SET STA 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 $ JSL >CGCNG8 LDA >CCNGCT BNE CODE671 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 ITEMR01,X ;N BNE CODE6920 ;? MOTTE IRU CODE69122 EQU $ ;N DEC MSG_RTS BRA CODE69S2 ; CODE69SL EQU $ ;ITEM SELCT LDX MSG_RTS CPX #032 BCC CODE6910 LDX #000H STX MSG_RTS CODE6910 EQU $ CPX #015 BEQ CODE6912 ;? BIN SELECT LDA >ITEMR01,X ;N BNE CODE6920 ;? MOTTE IRU 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 #003H BNE CODE6970 ;? BOMB ; ;Y 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 $ RTS ; ; ; ;************************************************************************ ;* CODE_6D syori Lev. 3 * ;* * ;************************************************************************ CODE_6D EQU $ RTS ; ; ; ;************************************************************************ ;* CODE_6E syori Lev. 3 * ;* * ;************************************************************************ CODE_6E EQU $ RTS ; ; ; ;************************************************************************ ;* CODE_6F syori Lev. 3 * ;* * ;************************************************************************ CODE_6F EQU $ RTS ; ; ; ;************************************************************************ ;* CODE_70 syori Lev. 3 * ;* * ;************************************************************************ CODE_70 EQU $ MEM8 IDX16 REP #00010000B ; LDX #0077FH ; CODE701 EQU $ LDA MSGCNT AND #00010H BNE CODE702 SEC BRA CODE703 CODE702 EQU $ CLC CODE703 EQU $ LDA >MOJIBUF,X ROL A STA >MOJIBUF,X DEX BPL CODE701 ; INC MSGCNT LDA MSGCNT AND #0001FH BNE CODE704 ; LDY #00000H STY MSGCNT ; LDX !MOJIX INX STX !MOJIX ; CODE704 EQU $ MEM8 IDX8 SEP #00110000B ; RTS ; ; ; ;************************************************************************ ;* CODE_71 syori Lev. 3 * ;* * ;************************************************************************ CODE_71 EQU $ MEM8 IDX16 REP #00010000B ; LDX #0077FH STX MOJIBUF,X ROL A STA >MOJIBUF,X ROL MOJIBUF,X TXA SEC SBC #00010H TAX ; DEC MOJIBUF+2,X STA >MOJIBUF,X INX INX DEY BPL CODE736 ; LDA >MOJIBUF+130H,X STA >MOJIBUF-2,X ; RTS ; ; ; ;************************************************************************ ;* CODE_74 CODE_75 CODE_76 syori Lev. 3 * ;* next line 1 * ;************************************************************************ ;************************************************************************ ;* CODE_75 syori Lev. 3 * ;* next line 2 * ;************************************************************************ ;************************************************************************ ;* CODE_76 syori Lev. 3 * ;* next line 3 * ;************************************************************************ CODE_74 EQU $ MEM16 IDX16 REP #00110000B ; LDX !MOJIX ;40 120 200 no dokoka ni kaigyio LDA >MJIBUF,X AND #0003H ASL A TAX ; LDA !LINEDAT,X ;kaigyou STA !MESBUFX ; 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 $ 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 MOJIBUF,X DEX DEX BPL CODE7D1 ; STZ !MESBUFX ; INC !MOJIX ; MEM8 IDX8 SEP #00110000B ; STZ ZURCNT ; RTS ; ; ; ;************************************************************************ ;* CODE_7E syori Lev. 3 * ;* input wait * ;************************************************************************ CODE_7E EQU $ LDA KEYA2 ORA KEYA2L BEQ CODE7E1 ; MEM16 IDX16 REP #00110000B ; INC !MOJIX ; MEM8 IDX8 SEP #00110000B ; CODE7E1 EQU $ RTS ; ; ; ;************************************************************************ ;* CODE_7F syori Lev. 3 * ;* bun no owari input wait * ;************************************************************************ CODE_7F EQU $ LDA KEYA2 ORA KEYA2L BEQ CODE7F1 LDA #04 STA !WIND_SYS ; CODE7F1 EQU $ RTS ; ; ; ;************************************************************************ ;* * ;* sub program * ;* * ;************************************************************************ WNSETA EQU $ ;ue or sita? MEM16 ;vram no adress o keisan suru IDX16 REP #00110000B ; LDA 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 #2D00H ;kazu set STA !VRAMD2,X INX INX ; LDA !WAKU,Y ;hidari hasi no data set STA !VRAMD2,X INX INX INY INY ; LDA #0021 ;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