; INCLUDE zel_ram.asm ; ;----------------------------------------------------------------------- ; ; PAL_ZELDA-3 1992.06.02(TUE) ; ;------------------------------------------------------------------------ ; ORG 00CF80H ; ;=============================================== (zel_char0) ============ GLB CHSCHNG,CHSCHN0,CHSCHN1,CHSCHN2,CHRCHNG,CHRCBS0,CHRCBS1,CHRCBSZ GLB CCBFIT,KNCBFST,TTCBFST,WTRCBFS0,WTRCBFS1,OPTCBFST GLB ITMCBFST,ITMCBFST1,BGCHCNG,OJCHCNG,SPOJCNG GLB MPICBST,WGBGCNG,M7CHST,MSGVRMS,ENDGVRMS ; GLB spoj0,spoj1,spoj2,spoj3,spoj4,spoj5,spoj6,spoj7,spoj8,spoj9 ; GLB PICCPT,BGCBDT0 ; GLB C_0A0,C_4C0 GLB C_1X0,C_1Y0,C_2R1,C_2U0,C_2W0 GLB C_1W0,C_1Y1,C_1Z0,C_1Z1,C_2V0,C_2A0 ;=============================================== (zel_char1) ============ EXT CHITEMST,CHITEMS0 ;=============================================== (zel_vma) ============== EXT PCHDT0,PCHDT1,PCHDT2 ; EXT bgwB,bgwC,bgwD,bgwE,bgwF,bgw10,bgw11,bgw12,bgw13,bgw14 ;=============================================== (zel_init) ============= EXT KGBG000,KGBG100,KGBG200,BCKG800 ;=============================================== (zel_play) ============= EXT RABHEN,prnce ;======================================================================== EXT MOJIFNT ;======================================================================== ; EXTEND MEM8 IDX8 ; ; ; ;===================================================================== DCP000 EQU 108000H DCB000 EQU 10F000H DCB001 EQU 10F600H DCB002 EQU 10FC00H DCB003 EQU 118200H DCB004 EQU 118800H DCB005 EQU 118E00H DCB006 EQU 119400H DCB007 EQU 119A00H DCB008 EQU 11A000H DCB009 EQU 11A600H DCB00A EQU 11AC00H DCB00B EQU 11B200H DCB00C EQU 11B800H DCB00D EQU 11BCE2H DCB00E EQU 11C15FH DCB00F EQU 11C675H DCB010 EQU 11CB84H DCB011 EQU 11CF4CH DCB012 EQU 11D2CEH DCB013 EQU 11D726H DCB014 EQU 11D9CFH DCB015 EQU 11DEC4H DCB016 EQU 11E393H DCB017 EQU 11E893H DCB018 EQU 11ED7DH DCB019 EQU 11F283H DCB01A EQU 11F746H DCB01B EQU 11FC21H DCB01C EQU 11FFF2H DCB01D EQU 128498H DCB01E EQU 128A0EH DCB01F EQU 128F30H DCB020 EQU 129326H DCB021 EQU 129804H DCB022 EQU 129D5BH DCB023 EQU 12A272H DCB024 EQU 12A6F9H DCB025 EQU 12AA72H DCB026 EQU 12AD7EH DCB027 EQU 12B162H DCB028 EQU 12B518H DCB029 EQU 12B83BH DCB02A EQU 12BD4FH DCB02B EQU 12C1C4H DCB02C EQU 12C738H DCB02D EQU 12CC81H DCB02E EQU 12D193H DCB02F EQU 12D6ACH DCB030 EQU 12DB65H DCB031 EQU 12E0E5H DCB032 EQU 12E6B8H DCB033 EQU 12EB4CH DCB034 EQU 12F130H DCB035 EQU 12F6C0H DCB036 EQU 12FC6CH DCB037 EQU 138124H DCB038 EQU 13868EH DCB039 EQU 138BA8H DCB03A EQU 139112H DCB03B EQU 139604H DCB03C EQU 139B1CH DCB03D EQU 13A06FH DCB03E EQU 13A614H DCB03F EQU 13AB26H DCB040 EQU 13B007H DCB041 EQU 13B4F0H DCB042 EQU 13B9E6H DCB043 EQU 13BEBAH DCB044 EQU 13C3C9H DCB045 EQU 13C812H DCB046 EQU 13CB63H DCB047 EQU 13CFB0H DCB048 EQU 13D45BH DCB049 EQU 13D8BDH DCB04A EQU 13DD75H DCB04B EQU 13E261H DCB04C EQU 13E7AAH DCB04D EQU 13ECE0H DCB04E EQU 13F240H DCB04F EQU 13F6EBH DCB050 EQU 13FC2BH DCB051 EQU 1480E4H DCB052 EQU 148636H DCB053 EQU 148A77H DCB054 EQU 148F25H DCB055 EQU 149341H DCB056 EQU 1497E8H DCB057 EQU 149CBDH DCB058 EQU 14A16EH DCB059 EQU 14A618H DCB05A EQU 14AB58H DCB05B EQU 14B07EH DCB05C EQU 14B4B8H DCB05D EQU 14B949H DCB05E EQU 14BE09H DCB05F EQU 14C28CH DCB060 EQU 14C7B5H DCB061 EQU 14CCDFH DCB062 EQU 14D1D6H DCB063 EQU 14D6B8H DCB064 EQU 14DB72H DCB065 EQU 14DECCH DCB066 EQU 14E2A7H DCB067 EQU 14E74FH DCB068 EQU 14EBA9H DCB069 EQU 14EF49H DCB06A EQU 14F304H DCB06B EQU 14F6EFH DCB06C EQU 14FA50H DCB06D EQU 14FF87H DCB06E EQU 14FF8EH DCB06F EQU 14FF95H DCB070 EQU 14FF9CH DCB071 EQU 14FFA3H DCB072 EQU 14FFAAH DCB073 EQU 14FFB1H DCB074 EQU 14FFB8H DCB075 EQU 14FFBFH DCB076 EQU 14FFC6H DCB077 EQU 14FFCDH DCB078 EQU 14FFD4H DCB079 EQU 14FFDBH DCB07A EQU 14FFE2H DCB07B EQU 14FFE9H DCB07C EQU 14FFF0H DCB07D EQU 14FFF7H DCB07E EQU 1585CFH DCB07F EQU 158AB1H DCB080 EQU 158FB9H DCB081 EQU 1593F3H DCB082 EQU 1599A1H DCB083 EQU 159F2DH DCB084 EQU 15A3D2H DCB085 EQU 15A8ECH DCB086 EQU 15AEC1H DCB087 EQU 15B413H DCB088 EQU 15B942H DCB089 EQU 15BECBH DCB08A EQU 15C444H DCB08B EQU 15C970H DCB08C EQU 15CE77H DCB08D EQU 15D38FH DCB08E EQU 15D8A7H DCB08F EQU 15DDBBH DCB090 EQU 15E347H DCB091 EQU 15E8E3H DCB092 EQU 15EE2CH DCB093 EQU 15F3A1H DCB094 EQU 15F928H DCB095 EQU 15FEB5H DCB096 EQU 1682FAH DCB097 EQU 1688DBH DCB098 EQU 168E3CH DCB099 EQU 1692DAH DCB09A EQU 16987EH DCB09B EQU 169CCBH DCB09C EQU 16A269H DCB09D EQU 16A270H DCB09E EQU 16A782H DCB09F EQU 16AA01H DCB0A0 EQU 16AE98H DCB0A1 EQU 16B3FAH DCB0A2 EQU 16B879H DCB0A3 EQU 16BE66H DCB0A4 EQU 16C138H DCB0A5 EQU 16C614H DCB0A6 EQU 16CBB6H DCB0A7 EQU 16D0ECH DCB0A8 EQU 16D63CH DCB0A9 EQU 16D955H DCB0AA EQU 16DD94H DCB0AB EQU 16E273H DCB0AC EQU 16E75BH DCB0AD EQU 16ED20H DCB0AE EQU 16F20AH DCB0AF EQU 16F6B2H DCB0B0 EQU 16FA5AH DCB0B1 EQU 16FD24H DCB0B2 EQU 1781C8H DCB0B3 EQU 178688H DCB0B4 EQU 178B5DH DCB0B5 EQU 178FD0H DCB0B6 EQU 179522H DCB0B7 EQU 179946H DCB0B8 EQU 179EA2H DCB0B9 EQU 17A309H DCB0BA EQU 17A800H DCB0BB EQU 17ACF3H DCB0BC EQU 17B29DH DCB0BD EQU 17B7F4H DCB0BE EQU 17BC8EH DCB0BF EQU 17C232H DCB0C0 EQU 17C789H DCB0C1 EQU 17CD50H DCB0C2 EQU 17D2B7H DCB0C3 EQU 17D82AH DCB0C4 EQU 17DCE7H DCB0C5 EQU 17E1C7H DCB0C6 EQU 17E366H DCB0C7 EQU 17E83DH DCB0C8 EQU 17EB33H DCB0C9 EQU 17ED53H DCB0CA EQU 17F067H DCB0CB EQU 17F4F8H DCB0CC EQU 17FA34H DCB0CD EQU 17FF81H DCB0CE EQU 188457H DCB0CF EQU 18899CH DCB0D0 EQU 188D5FH DCB0D1 EQU 189198H DCB0D2 EQU 18960BH DCB0D3 EQU 189853H DCB0D4 EQU 189B20H DCB0D5 EQU 189DCEH DCB0D6 EQU 18A03BH DCB0D7 EQU 18A4E9H DCB0D8 EQU 18A7B6H DCB0D9 EQU 18AEDBH DCB0DA EQU 18AF09H DCB0DB EQU 18B51CH DCB0DC EQU 18B94FH DCB0DD EQU 18BFB1H ; PICCPT EQU DCB0DA ;===================================================================== ; ; ; BCADB EQU $ BYTE BANK DCB00C,BANK DCB00D,BANK DCB00E,BANK DCB00F BYTE BANK DCB010,BANK DCB011,BANK DCB012,BANK DCB013 BYTE BANK DCB014,BANK DCB015,BANK DCB016,BANK DCB017 BYTE BANK DCB018,BANK DCB019,BANK DCB01A,BANK DCB01B BYTE BANK DCB01C,BANK DCB01D,BANK DCB01E,BANK DCB01F BYTE BANK DCB020,BANK DCB021,BANK DCB022,BANK DCB023 BYTE BANK DCB024,BANK DCB025,BANK DCB026,BANK DCB027 BYTE BANK DCB028,BANK DCB029,BANK DCB02A,BANK DCB02B BYTE BANK DCB02C,BANK DCB02D,BANK DCB02E,BANK DCB02F BYTE BANK DCB030,BANK DCB031,BANK DCB032,BANK DCB033 BYTE BANK DCB034,BANK DCB035,BANK DCB036,BANK DCB037 BYTE BANK DCB038,BANK DCB039,BANK DCB03A,BANK DCB03B BYTE BANK DCB03C,BANK DCB03D,BANK DCB03E,BANK DCB03F BYTE BANK DCB040,BANK DCB041,BANK DCB042,BANK DCB043 BYTE BANK DCB044,BANK DCB045,BANK DCB046,BANK DCB047 BYTE BANK DCB048,BANK DCB049,BANK DCB04A,BANK DCB04B BYTE BANK DCB04C,BANK DCB04D,BANK DCB04E,BANK DCB04F BYTE BANK DCB050,BANK DCB051,BANK DCB052,BANK DCB053 BYTE BANK DCB054,BANK DCB055,BANK DCB056,BANK DCB057 BYTE BANK DCB058,BANK DCB059,BANK DCB05A,BANK DCB05B BYTE BANK DCB05C,BANK DCB05D,BANK DCB05E,BANK DCB05F BYTE BANK DCB060,BANK DCB061,BANK DCB062,BANK DCB063 BYTE BANK DCB064,BANK DCB065,BANK DCB066,BANK DCB067 BYTE BANK DCB068,BANK DCB069,BANK DCB06A,BANK DCB06B BYTE BANK DCB06C,BANK DCB06D,BANK DCB06E,BANK DCB06F BYTE BANK DCB070,BANK DCB071,BANK DCB072,BANK DCB073 BYTE BANK DCB074,BANK DCB075,BANK DCB076,BANK DCB077 BYTE BANK DCB078,BANK DCB079,BANK DCB07A,BANK DCB07B BYTE BANK DCB07C BYTE BANK DCB0DB,BANK DCB0DC ; OCADB EQU $ BYTE BANK DCB000,BANK DCB001,BANK DCB002,BANK DCB003 BYTE BANK DCB004,BANK DCB005,BANK DCB006,BANK DCB007 BYTE BANK DCB008,BANK DCB009,BANK DCB00A,BANK DCB00B BYTE BANK DCB07D,BANK DCB07E,BANK DCB07F,BANK DCB080 BYTE BANK DCB081,BANK DCB082,BANK DCB083,BANK DCB084 BYTE BANK DCB085,BANK DCB086,BANK DCB087,BANK DCB088 BYTE BANK DCB089,BANK DCB08A,BANK DCB08B,BANK DCB08C BYTE BANK DCB08D,BANK DCB08E,BANK DCB08F,BANK DCB090 BYTE BANK DCB091,BANK DCB092,BANK DCB093,BANK DCB094 BYTE BANK DCB095,BANK DCB096,BANK DCB097,BANK DCB098 BYTE BANK DCB099,BANK DCB09A,BANK DCB09B,BANK DCB09C BYTE BANK DCB09D,BANK DCB09E,BANK DCB09F,BANK DCB0A0 BYTE BANK DCB0A1,BANK DCB0A2,BANK DCB0A3,BANK DCB0A4 BYTE BANK DCB0A5,BANK DCB0A6,BANK DCB0A7,BANK DCB0A8 BYTE BANK DCB0A9,BANK DCB0AA,BANK DCB0AB,BANK DCB0AC BYTE BANK DCB0AD,BANK DCB0AE,BANK DCB0AF,BANK DCB0B0 BYTE BANK DCB0B1,BANK DCB0B2,BANK DCB0B3,BANK DCB0B4 BYTE BANK DCB0B5,BANK DCB0B6,BANK DCB0B7,BANK DCB0B8 BYTE BANK DCB0B9,BANK DCB0BA,BANK DCB0BB,BANK DCB0BC BYTE BANK DCB0BD,BANK DCB0BE,BANK DCB0BF,BANK DCB0C0 BYTE BANK DCB0C1,BANK DCB0C2,BANK DCB0C3,BANK DCB0C4 BYTE BANK DCB0C5,BANK DCB0C6,BANK DCB0C7,BANK DCB0C8 BYTE BANK DCB0C9,BANK DCB0CA,BANK DCB0CB,BANK DCB0CC BYTE BANK DCB0CD,BANK DCB0CE,BANK DCB0CF,BANK DCB0D0 BYTE BANK DCB0D1,BANK DCB0D2,BANK DCB0D3,BANK DCB0D4 BYTE BANK DCB0D5,BANK DCB0D6,BANK DCB0D7,BANK DCB0D8 BYTE BANK DCB0D9,BANK DCB0DA,BANK DCB0DB,BANK DCB0DC ; ; BCADH EQU $ BYTE HIGH DCB00C,HIGH DCB00D,HIGH DCB00E,HIGH DCB00F BYTE HIGH DCB010,HIGH DCB011,HIGH DCB012,HIGH DCB013 BYTE HIGH DCB014,HIGH DCB015,HIGH DCB016,HIGH DCB017 BYTE HIGH DCB018,HIGH DCB019,HIGH DCB01A,HIGH DCB01B BYTE HIGH DCB01C,HIGH DCB01D,HIGH DCB01E,HIGH DCB01F BYTE HIGH DCB020,HIGH DCB021,HIGH DCB022,HIGH DCB023 BYTE HIGH DCB024,HIGH DCB025,HIGH DCB026,HIGH DCB027 BYTE HIGH DCB028,HIGH DCB029,HIGH DCB02A,HIGH DCB02B BYTE HIGH DCB02C,HIGH DCB02D,HIGH DCB02E,HIGH DCB02F BYTE HIGH DCB030,HIGH DCB031,HIGH DCB032,HIGH DCB033 BYTE HIGH DCB034,HIGH DCB035,HIGH DCB036,HIGH DCB037 BYTE HIGH DCB038,HIGH DCB039,HIGH DCB03A,HIGH DCB03B BYTE HIGH DCB03C,HIGH DCB03D,HIGH DCB03E,HIGH DCB03F BYTE HIGH DCB040,HIGH DCB041,HIGH DCB042,HIGH DCB043 BYTE HIGH DCB044,HIGH DCB045,HIGH DCB046,HIGH DCB047 BYTE HIGH DCB048,HIGH DCB049,HIGH DCB04A,HIGH DCB04B BYTE HIGH DCB04C,HIGH DCB04D,HIGH DCB04E,HIGH DCB04F BYTE HIGH DCB050,HIGH DCB051,HIGH DCB052,HIGH DCB053 BYTE HIGH DCB054,HIGH DCB055,HIGH DCB056,HIGH DCB057 BYTE HIGH DCB058,HIGH DCB059,HIGH DCB05A,HIGH DCB05B BYTE HIGH DCB05C,HIGH DCB05D,HIGH DCB05E,HIGH DCB05F BYTE HIGH DCB060,HIGH DCB061,HIGH DCB062,HIGH DCB063 BYTE HIGH DCB064,HIGH DCB065,HIGH DCB066,HIGH DCB067 BYTE HIGH DCB068,HIGH DCB069,HIGH DCB06A,HIGH DCB06B BYTE HIGH DCB06C,HIGH DCB06D,HIGH DCB06E,HIGH DCB06F BYTE HIGH DCB070,HIGH DCB071,HIGH DCB072,HIGH DCB073 BYTE HIGH DCB074,HIGH DCB075,HIGH DCB076,HIGH DCB077 BYTE HIGH DCB078,HIGH DCB079,HIGH DCB07A,HIGH DCB07B BYTE HIGH DCB07C BYTE HIGH DCB0DB,HIGH DCB0DC ; OCADH EQU $ BYTE HIGH DCB000,HIGH DCB001,HIGH DCB002,HIGH DCB003 BYTE HIGH DCB004,HIGH DCB005,HIGH DCB006,HIGH DCB007 BYTE HIGH DCB008,HIGH DCB009,HIGH DCB00A,HIGH DCB00B BYTE HIGH DCB07D,HIGH DCB07E,HIGH DCB07F,HIGH DCB080 BYTE HIGH DCB081,HIGH DCB082,HIGH DCB083,HIGH DCB084 BYTE HIGH DCB085,HIGH DCB086,HIGH DCB087,HIGH DCB088 BYTE HIGH DCB089,HIGH DCB08A,HIGH DCB08B,HIGH DCB08C BYTE HIGH DCB08D,HIGH DCB08E,HIGH DCB08F,HIGH DCB090 BYTE HIGH DCB091,HIGH DCB092,HIGH DCB093,HIGH DCB094 BYTE HIGH DCB095,HIGH DCB096,HIGH DCB097,HIGH DCB098 BYTE HIGH DCB099,HIGH DCB09A,HIGH DCB09B,HIGH DCB09C BYTE HIGH DCB09D,HIGH DCB09E,HIGH DCB09F,HIGH DCB0A0 BYTE HIGH DCB0A1,HIGH DCB0A2,HIGH DCB0A3,HIGH DCB0A4 BYTE HIGH DCB0A5,HIGH DCB0A6,HIGH DCB0A7,HIGH DCB0A8 BYTE HIGH DCB0A9,HIGH DCB0AA,HIGH DCB0AB,HIGH DCB0AC BYTE HIGH DCB0AD,HIGH DCB0AE,HIGH DCB0AF,HIGH DCB0B0 BYTE HIGH DCB0B1,HIGH DCB0B2,HIGH DCB0B3,HIGH DCB0B4 BYTE HIGH DCB0B5,HIGH DCB0B6,HIGH DCB0B7,HIGH DCB0B8 BYTE HIGH DCB0B9,HIGH DCB0BA,HIGH DCB0BB,HIGH DCB0BC BYTE HIGH DCB0BD,HIGH DCB0BE,HIGH DCB0BF,HIGH DCB0C0 BYTE HIGH DCB0C1,HIGH DCB0C2,HIGH DCB0C3,HIGH DCB0C4 BYTE HIGH DCB0C5,HIGH DCB0C6,HIGH DCB0C7,HIGH DCB0C8 BYTE HIGH DCB0C9,HIGH DCB0CA,HIGH DCB0CB,HIGH DCB0CC BYTE HIGH DCB0CD,HIGH DCB0CE,HIGH DCB0CF,HIGH DCB0D0 BYTE HIGH DCB0D1,HIGH DCB0D2,HIGH DCB0D3,HIGH DCB0D4 BYTE HIGH DCB0D5,HIGH DCB0D6,HIGH DCB0D7,HIGH DCB0D8 BYTE HIGH DCB0D9,HIGH DCB0DA,HIGH DCB0DB,HIGH DCB0DC ; ; BCADL EQU $ BYTE LOW DCB00C,LOW DCB00D,LOW DCB00E,LOW DCB00F BYTE LOW DCB010,LOW DCB011,LOW DCB012,LOW DCB013 BYTE LOW DCB014,LOW DCB015,LOW DCB016,LOW DCB017 BYTE LOW DCB018,LOW DCB019,LOW DCB01A,LOW DCB01B BYTE LOW DCB01C,LOW DCB01D,LOW DCB01E,LOW DCB01F BYTE LOW DCB020,LOW DCB021,LOW DCB022,LOW DCB023 BYTE LOW DCB024,LOW DCB025,LOW DCB026,LOW DCB027 BYTE LOW DCB028,LOW DCB029,LOW DCB02A,LOW DCB02B BYTE LOW DCB02C,LOW DCB02D,LOW DCB02E,LOW DCB02F BYTE LOW DCB030,LOW DCB031,LOW DCB032,LOW DCB033 BYTE LOW DCB034,LOW DCB035,LOW DCB036,LOW DCB037 BYTE LOW DCB038,LOW DCB039,LOW DCB03A,LOW DCB03B BYTE LOW DCB03C,LOW DCB03D,LOW DCB03E,LOW DCB03F BYTE LOW DCB040,LOW DCB041,LOW DCB042,LOW DCB043 BYTE LOW DCB044,LOW DCB045,LOW DCB046,LOW DCB047 BYTE LOW DCB048,LOW DCB049,LOW DCB04A,LOW DCB04B BYTE LOW DCB04C,LOW DCB04D,LOW DCB04E,LOW DCB04F BYTE LOW DCB050,LOW DCB051,LOW DCB052,LOW DCB053 BYTE LOW DCB054,LOW DCB055,LOW DCB056,LOW DCB057 BYTE LOW DCB058,LOW DCB059,LOW DCB05A,LOW DCB05B BYTE LOW DCB05C,LOW DCB05D,LOW DCB05E,LOW DCB05F BYTE LOW DCB060,LOW DCB061,LOW DCB062,LOW DCB063 BYTE LOW DCB064,LOW DCB065,LOW DCB066,LOW DCB067 BYTE LOW DCB068,LOW DCB069,LOW DCB06A,LOW DCB06B BYTE LOW DCB06C,LOW DCB06D,LOW DCB06E,LOW DCB06F BYTE LOW DCB070,LOW DCB071,LOW DCB072,LOW DCB073 BYTE LOW DCB074,LOW DCB075,LOW DCB076,LOW DCB077 BYTE LOW DCB078,LOW DCB079,LOW DCB07A,LOW DCB07B BYTE LOW DCB07C BYTE LOW DCB0DB,LOW DCB0DC ; OCADL EQU $ BYTE LOW DCB000,LOW DCB001,LOW DCB002,LOW DCB003 BYTE LOW DCB004,LOW DCB005,LOW DCB006,LOW DCB007 BYTE LOW DCB008,LOW DCB009,LOW DCB00A,LOW DCB00B BYTE LOW DCB07D,LOW DCB07E,LOW DCB07F,LOW DCB080 BYTE LOW DCB081,LOW DCB082,LOW DCB083,LOW DCB084 BYTE LOW DCB085,LOW DCB086,LOW DCB087,LOW DCB088 BYTE LOW DCB089,LOW DCB08A,LOW DCB08B,LOW DCB08C BYTE LOW DCB08D,LOW DCB08E,LOW DCB08F,LOW DCB090 BYTE LOW DCB091,LOW DCB092,LOW DCB093,LOW DCB094 BYTE LOW DCB095,LOW DCB096,LOW DCB097,LOW DCB098 BYTE LOW DCB099,LOW DCB09A,LOW DCB09B,LOW DCB09C BYTE LOW DCB09D,LOW DCB09E,LOW DCB09F,LOW DCB0A0 BYTE LOW DCB0A1,LOW DCB0A2,LOW DCB0A3,LOW DCB0A4 BYTE LOW DCB0A5,LOW DCB0A6,LOW DCB0A7,LOW DCB0A8 BYTE LOW DCB0A9,LOW DCB0AA,LOW DCB0AB,LOW DCB0AC BYTE LOW DCB0AD,LOW DCB0AE,LOW DCB0AF,LOW DCB0B0 BYTE LOW DCB0B1,LOW DCB0B2,LOW DCB0B3,LOW DCB0B4 BYTE LOW DCB0B5,LOW DCB0B6,LOW DCB0B7,LOW DCB0B8 BYTE LOW DCB0B9,LOW DCB0BA,LOW DCB0BB,LOW DCB0BC BYTE LOW DCB0BD,LOW DCB0BE,LOW DCB0BF,LOW DCB0C0 BYTE LOW DCB0C1,LOW DCB0C2,LOW DCB0C3,LOW DCB0C4 BYTE LOW DCB0C5,LOW DCB0C6,LOW DCB0C7,LOW DCB0C8 BYTE LOW DCB0C9,LOW DCB0CA,LOW DCB0CB,LOW DCB0CC BYTE LOW DCB0CD,LOW DCB0CE,LOW DCB0CF,LOW DCB0D0 BYTE LOW DCB0D1,LOW DCB0D2,LOW DCB0D3,LOW DCB0D4 BYTE LOW DCB0D5,LOW DCB0D6,LOW DCB0D7,LOW DCB0D8 BYTE LOW DCB0D9,LOW DCB0DA,LOW DCB0DB,LOW DCB0DC ; ; ; ; ; C_0A0 EQU 000H C_0A1 EQU 001H C_0B0 EQU 002H C_0B1 EQU 003H C_0C0 EQU 004H C_0C1 EQU 005H C_0D0 EQU 006H C_0D1 EQU 007H C_0E0 EQU 008H C_0E1 EQU 009H C_0F0 EQU 00AH C_0F1 EQU 00BH C_0G0 EQU 00CH C_0G1 EQU 00DH C_0H0 EQU 00EH C_0H1 EQU 00FH C_0I0 EQU 010H C_0I1 EQU 011H C_0J0 EQU 012H ;;;;;;;;C_0J1 EQU 013H C_0K0 EQU 013H C_0K1 EQU 014H C_0L0 EQU 015H ;;;;;;;;C_0L1 EQU 017H C_0M0 EQU 016H C_0M1 EQU 017H C_0N0 EQU 018H C_0N1 EQU 019H C_0O0 EQU 01AH C_0O1 EQU 01BH C_0P0 EQU 01CH ;;;;;;;;C_0P1 EQU 01FH ;;;;;;;;C_0Q0 EQU 020H ;;;;;;;;C_0Q1 EQU 021H C_0R0 EQU 01DH C_0R1 EQU 01EH C_0S0 EQU 01FH C_0S1 EQU 020H C_0T0 EQU 021H C_0T1 EQU 022H C_0U0 EQU 023H C_0U1 EQU 024H C_0V0 EQU 025H C_0V1 EQU 026H C_0W0 EQU 027H C_0W1 EQU 028H C_0X0 EQU 029H C_0X1 EQU 02AH C_0Y0 EQU 02BH C_0Y1 EQU 02CH C_0Z0 EQU 02DH C_0Z1 EQU 02EH C_1A0 EQU 02FH C_1A1 EQU 030H C_1B0 EQU 031H C_1B1 EQU 032H C_1C0 EQU 033H C_1C1 EQU 034H C_1D0 EQU 035H C_1D1 EQU 036H C_1E0 EQU 037H C_1E1 EQU 038H ;;;;;;;;C_1F0 EQU 03EH C_1F1 EQU 039H C_1G0 EQU 03AH C_1G1 EQU 03BH C_1H0 EQU 03CH C_1H1 EQU 03DH C_1I0 EQU 03EH C_1I1 EQU 03FH C_1J0 EQU 040H C_1J1 EQU 041H C_1K0 EQU 042H C_1K1 EQU 043H C_1L0 EQU 044H C_1L1 EQU 045H C_1M0 EQU 046H ;;;;;;;;C_1M1 EQU 047H C_1N0 EQU 047H C_1N1 EQU 048H ;;;;;;;;C_1O0 EQU 050H C_1O1 EQU 049H C_1P0 EQU 04AH C_1P1 EQU 04BH C_1Q0 EQU 04CH C_1Q1 EQU 04DH C_1R0 EQU 04EH C_1R1 EQU 04FH C_1S0 EQU 050H C_1S1 EQU 051H C_1T0 EQU 052H C_1T1 EQU 053H C_1U0 EQU 054H C_1U1 EQU 055H C_1V0 EQU 056H C_1V1 EQU 057H C_1W0 EQU 058H C_1W1 EQU 059H C_1X0 EQU 05AH C_1X1 EQU 05BH C_1Y0 EQU 05CH C_1Y1 EQU 05DH C_1Z0 EQU 05EH C_1Z1 EQU 05FH C_2A0 EQU 060H ;;;;;;;;C_2A1 EQU 069H ;;;;;;;;C_2B0 EQU 06AH ;;;;;;;;C_2B1 EQU 06BH ;;;;;;;;C_2C0 EQU 06CH ;;;;;;;;C_2C1 EQU 06DH ;;;;;;;;C_2D0 EQU 06EH ;;;;;;;;C_2D1 EQU 06FH C_2E0 EQU 061H ;070H C_2E1 EQU 062H ;071H C_2F0 EQU 063H ;072H C_2F1 EQU 064H ;073H C_2G0 EQU 065H ;074H C_2G1 EQU 066H ;075H C_2H0 EQU 067H ;076H C_2H1 EQU 068H ;077H C_2I0 EQU 069H ;078H C_2I1 EQU 06AH ;079H C_2J0 EQU 06BH ;07AH C_2J1 EQU 06CH ;07BH C_2K0 EQU 06DH ;07CH C_2K1 EQU 06EH ;07DH C_2L0 EQU 06FH ;07EH C_2L1 EQU 070H ;07FH ; BG. char. C_4R0 EQU 071H ;080H ;0E8H ; Map BG. C_4R1 EQU 072H ;081H ;0E9H ; Map BG. ; ;;;;C_2M EQU 000H ;;;;C_2N EQU 000H ;;;;C_2O EQU 000H ;;;;C_2P EQU 000H ;;;;C_2Q EQU 000H ; Player char. BANK C_2R0 EQU 000H ;080H C_2R1 EQU 001H ;081H C_2S0 EQU 002H ;082H C_2S1 EQU 003H ;083H C_2T0 EQU 004H ;084H C_2T1 EQU 005H ;085H C_2U0 EQU 006H ;086H C_2U1 EQU 007H ;087H C_2V0 EQU 008H ;088H C_2V1 EQU 009H ;089H C_2W0 EQU 00AH ;08AH C_2W1 EQU 00BH ;08BH C_2X0 EQU 00CH ;08CH C_2X1 EQU 00DH ;08DH C_2Y0 EQU 00EH ;08EH C_2Y1 EQU 00FH ;08FH C_2Z0 EQU 010H ;090H C_2Z1 EQU 011H ;091H C_3A0 EQU 012H ;092H C_3A1 EQU 013H ;093H C_3B0 EQU 014H ;094H C_3B1 EQU 015H ;095H C_3C0 EQU 016H ;096H C_3C1 EQU 017H ;097H C_3D0 EQU 018H ;098H C_3D1 EQU 019H ;099H C_3E0 EQU 01AH ;09AH C_3E1 EQU 01BH ;09BH C_3F0 EQU 01CH ;09CH C_3F1 EQU 01DH ;09DH C_3G0 EQU 01EH ;09EH C_3G1 EQU 01FH ;09FH C_3H0 EQU 020H ;0A0H C_3H1 EQU 021H ;0A1H C_3I0 EQU 022H ;0A2H C_3I1 EQU 023H ;0A3H C_3J0 EQU 024H ;0A4H C_3J1 EQU 025H ;0A5H C_3K0 EQU 026H ;0A6H C_3K1 EQU 027H ;0A7H C_3L0 EQU 028H ;0A8H C_3L1 EQU 029H ;0A9H C_3M0 EQU 02AH ;0AAH C_3M1 EQU 02BH ;0ABH C_3N0 EQU 02CH ;0ACH C_3N1 EQU 02DH ;0ADH C_3O0 EQU 02EH ;0AEH C_3O1 EQU 02FH ;0AFH C_3P0 EQU 030H ;0B0H C_3P1 EQU 031H ;0B1H C_3Q0 EQU 032H ;0B2H C_3Q1 EQU 033H ;0B3H C_3R0 EQU 034H ;0B4H C_3R1 EQU 035H ;0B5H C_3S0 EQU 036H ;0B6H C_3S1 EQU 037H ;0B7H ;;;C_3T0 EQU 038H ;0B8H ;;;C_3T1 EQU 039H ;0B9H ;;;C_3U0 EQU 03AH ;0BAH ;;;C_3U1 EQU 03BH ;0BBH C_3V0 EQU 038H ;03CH ;0BCH C_3V1 EQU 039H ;03DH ;0BDH C_3W0 EQU 03AH ;03EH ;0BEH C_3W1 EQU 03BH ;03FH ;0BFH C_3X0 EQU 03CH ;040H ;0C0H C_3X1 EQU 03DH ;041H ;0C1H C_3Y0 EQU 03EH ;042H ;0C2H C_3Y1 EQU 03FH ;043H ;0C3H C_3Z0 EQU 040H ;044H ;0C4H C_3Z1 EQU 041H ;045H ;0C5H C_4A0 EQU 042H ;046H ;0C6H C_4A1 EQU 043H ;047H ;0C7H C_4B0 EQU 044H ;048H ;0C8H C_4B1 EQU 045H ;049H ;0C9H C_4C0 EQU 046H ;04AH ;0CAH C_4C1 EQU 047H ;04BH ;0CBH C_4D0 EQU 048H ;04CH ;0CCH C_4D1 EQU 049H ;04DH ;0CDH C_4E0 EQU 04AH ;04EH ;0CEH C_4E1 EQU 04BH ;04FH ;0CFH C_4F0 EQU 04CH ;050H ;0D0H C_4F1 EQU 04DH ;051H ;0D1H C_4G0 EQU 04EH ;052H ;0D2H C_4G1 EQU 04FH ;053H ;0D3H C_4H0 EQU 050H ;054H ;0D4H C_4H1 EQU 051H ;055H ;0D5H C_4I0 EQU 052H ;056H ;0D6H C_4I1 EQU 053H ;057H ;0D7H C_4J0 EQU 054H ;058H ;0D8H C_4J1 EQU 055H ;059H ;0D9H C_4K0 EQU 056H ;05AH ;0DAH C_4K1 EQU 057H ;05BH ;0DBH C_4L0 EQU 058H ;05CH ;0DCH C_4L1 EQU 059H ;05DH ;0DDH C_4M0 EQU 05AH ;05EH ;0DEH C_4M1 EQU 05BH ;05FH ;0DFH C_4N0 EQU 05CH ;060H ;0E0H C_4N1 EQU 05DH ;061H ;0E1H C_4O0 EQU 05EH ;062H ;0E2H C_4O1 EQU 05FH ;063H ;0E3H C_4P0 EQU 060H ;064H ;0E4H ;;;;;;;;C_4P1 EQU 061H ;065H ;0E5H C_4Q0 EQU 061H ;066H ;0E6H C_4Q1 EQU 062H ;067H ;0E7H ;// 02.10.23 //C_4R0 EQU 068H ;0E8H ;// 02.10.23 //C_4R1 EQU 069H ;0E9H C_4R2 EQU 063H ;068H ;0E8H ; Map obj. C_4R3 EQU 064H ;069H ;0E9H ; Map obj. ; C_4S0 EQU 065H ;06AH ;0EAH C_4S1 EQU 066H ;06BH ;0EBH ; C_4T EQU 067H ;06CH ;0ECH C_4U EQU 068H ;06DH ;0EDH C_4V EQU 069H ;06EH ;0EEH C_4W EQU 06AH ;06FH ;0EFH C_4X EQU 06BH ;070H ;0F0H ; BG.3 char. ; ; ; ; ;************************************************************************ ;* Change char. buffer initial set (CCBFIT) * ;************************************************************************ BYCDPD EQU $ ; [B],[Y] char. data pointer ; loot hammer arrow skope WORD 00018H*00H,00018H*0BH,00018H*08H,00018H*26H ; zzz,onpu kona bow-gun ami WORD 00018H*2AH,00018H*2DH,00018H*22H,00018H*03H ; soromon book WORD 00018H*21H,00018H*2EH ; ; CCBFIT EQU $ ;---------------------------------------- [B],[Y] item char.buffer set PHB PHK PLB ; (DBR) push ; MEM16 REP #00100000B ; memory 16bit mode ; STZ ITMTBL6 AND #000FFH ASL A TAY LDA ITMTBL7 ASL A TAY LDA WTRCHBF+(10H*20H)*1,X PHA ; (A) push LDA >WTRCHBF+(10H*20H)*3,X STA >WTRCHBF+(10H*20H)*1,X LDA >WTRCHBF+(10H*20H)*4,X STA >WTRCHBF+(10H*20H)*3,X LDA >WTRCHBF+(10H*20H)*2,X STA >WTRCHBF+(10H*20H)*4,X PLA ; (A) pull STA >WTRCHBF+(10H*20H)*2,X INX INX CPX #00010H*20H BNE WTRCS020 ; move end ? ; ; yes LDA #03B00H STA !WTRADR ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; (DBR) reset RTL ; ; ; ;************************************************************************ ;* Water Character buffer set (WTRCBFS1) * ;* [in] (Y) <-- chara. pointer * ;************************************************************************ WTRCBFS1 EQU $ PHB PHK PLB ; (DBR) set ; PHY ; (Y) push ; JSR CADWKST0 ; Bg. char. address work set ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA OPMODE CMP #prnce BEQ OPTCS20 ; zelda-queen ? ; ; no LDY #C_4S1 LDA >OPMODE CMP #009H BCC OPTCS20 ; queen,jiji,baba,kajiya ? ; ; no LDY #C_4L1 CMP #00CH BCC OPTCS20 ; oyaji,monky ? ; ; no LDY #C_4L0 ; takara,bomb OPTCS20 EQU $ JSR CADWKST3 ; Obj. char. address work set LDY #C_4S0 JSR CADWKST2 ; OBJ. char. address work set ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA >OPMODE AND #000FFH ASL A TAX LDA OPTDPT,X LDY #(10H+10H)*1 LDX #OPTCHBF-CNGCHBF JSR CCBIS320 ; option char. buffer set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; (DBR) reset RTL ; ; ;************************************************************************ ;* Item char. buffer set (ITMCBFST) * ;************************************************************************ ITMCPTD EQU $ ; bin bomb*3 ya*10 life WORD 00018H*68H,00018H*02H,00018H*04H,00018H*06H ; fuku yumi ken tsue WORD 00018H*08H,00018H*20H,00018H*21H,00018H*22H ; buw-gun lot nummer kona WORD 00018H*23H,00018H*24H,00018H*25H,00018H*26H ; okarina tebukuro hon key WORD 00018H*62H,00018H*2AH,00018H*2CH,00018H*2EH ; buumeran ashi kagami bomb WORD 00018H*2FH,00018H*40H,00018H*42H,00018H*44H ; lamp kakure jisyaku tama WORD 00018H*46H,00018H*48H,00018H*4AH,00018H*4CH ; sp-ken skope sp-thunder sp-fire WORD 00018H*4EH,00018H*4FH,00018H*60H,00018H*62H ; sp-jishin kara-bin kinoko kusuri WORD 00018H*64H,00018H*66H,00018H*6AH,00018H*00H ; tate map sp-key pendanto WORD 00018H*0AH,00018H*6CH,00018H*6EH,00018H*44H ; rupy1 rupy2 rupy3 ami WORD 00018H*40H,00018H*41H,00018H*42H,00018H*43H ; polygon L1-yumiya L2-yumiya yousei-bin WORD 00018H*45H,00018H*49H,00018H*47H,00018H*4BH ; hachi-bin small-tate miror-tate heart-kakera WORD 00018H*4DH,00018H*4FH,00018H*64H,00018H*60H ; bomb10 haert smalltubo ya-1 WORD 00018H*28H,00018H*66H,00018H*67H,00018H*68H ; rupy100 rupy50 rupy300 rupy20 WORD 00018H*69H,00018H*6BH,00018H*6DH,00018H*40H ; kutsu WORD 00018H*42H ; ; ITMCBFST1 EQU $ PHB PHK PLB ; (DBR) set ; PHA ; (A) push ;;;;;;;; LDA #LOW MPCHBF STZ CNGCHBF,X INC CNGCHBF+010H,X INC CNGCHBF,X INC CNGCHBF+010H,X INC CNGCHBF,X INC CNGCHBF+010H,X INC CNGCHBF,X XBA ORA [CNGCHBF+010H,X INC CHCHTB+0 ; SEP #00010000B ; index 8bit mode ; TAY JSR CADWS100 ; char.data buffer set CHCB010 EQU $ SEP #00010000B ; index 8bit mode ; LDA CHCHTB+1 ; SEP #00010000B ; index 8bit mode ; TAY JSR CADWS100 ; char.data buffer set CHCB020 EQU $ SEP #00010000B ; index 8bit mode ; LDA CHCHTB+2 ; SEP #00010000B ; index 8bit mode ; TAY JSR CADWS100 ; char.data buffer set CHCB030 EQU $ SEP #00010000B ; index 8bit mode ; LDA CHCHTB+3 ; SEP #00010000B ; index 8bit mode ; TAY JSR CADWS100 ; char.data buffer set CHCB040 EQU $ SEP #00010000B ; index 8bit mode ; LDA CHCHTB+4+0 CHCB110 EQU $ IDX8 SEP #00010000B ; index 8bit mode ; LDA >CHCHTB+4+0 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+1 CHCB120 EQU $ IDX8 SEP #00010000B ; index 8bit mode ; LDA >CHCHTB+4+1 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+2 CHCB130 EQU $ IDX8 SEP #00010000B ; index 8bit mode ; LDA >CHCHTB+4+2 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+3 CHCB140 EQU $ IDX8 SEP #00010000B ; index 8bit mode ; LDA >CHCHTB+4+3 TAY JSR CADWS300 ; char.data buffer set ; STZ !CCHGPT ;/////// LDA #008H ;/////// STA !CCHGPT PLB ; (DBR) reset RTL ; ; ; ; MEM8 IDX8 ;************************************************************************ ;* BG. OBJ change character buffer set (CHRCBSZ) * ;************************************************************************ CHRCBSZ EQU $ PHB PHK PLB ; (DBR) set ; ;// 03.05.31 // LDA #LOW CHCHBF STZ CHCHTB+0 TAY JSR CADWS100 ; char.data buffer set LDA CHCHTB+1 TAY JSR CADWS100 ; char.data buffer set LDA CHCHTB+2 TAY JSR CADWS100 ; char.data buffer set LDA CHCHTB+3 TAY JSR CADWS100 ; char.data buffer set ; ; ;// 03.05.31 // LDA #LOW CHCHBF+600H*4 STZ CHCHTB+4+0 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+1 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+2 TAY JSR CADWS300 ; char.data buffer set LDA CHCHTB+4+3 TAY JSR CADWS300 ; char.data buffer set ; STZ !CCHGPT ; PLB ; (DBR) reset RTL ; ; ; ;************************************************************************ ;* Message picture buffer set (MPICBST) * ;************************************************************************ MPICBST EQU $ PHB PHK PLB ; (DBR) set ; ;// 03.05.31 // LDA #LOW MPCHBF STZ BGWTBL,X STA WGBGTBLL,X STA WGBGTBLH,X STA BCKG800 ; shisai clear kagerou-fade check RTL ; ; WGBG100 EQU $ JSL >KGBG000 DEC KGBG100 INC !GMAPDF RTL ; ; WGBG200 EQU $ JSL >KGBG200 ; new BG. set ; LDA #bgwC STA BGCBDT0+7,X ;// 03.05.21 // TAY LDY #C_1W0 LDA WTRCBFS1 ; water char. buffer set RTL ; ; ; ;--------------------- BG. change - 0 --------------------------------- BGCBDT0 EQU $ ; 0 1 2 3 6 7 BYTE C_1G0,C_1G1,C_1H0,C_1H1,C_1I0,C_1X1,C_2R1,C_1X0 BYTE C_1K0,C_1K1,C_1L0,C_1L1,C_1I1,C_1W1,C_2W1,C_1X0 ; ; BGCBFS0 EQU $ PHB PHK PLB ; (DBR) set ; PHX ; (X) push ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA !CHIKNO AND #000FFH ASL A ASL A ASL A TAX LDA !RBGCPT AND #000FFH ASL A ASL A TAY ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA RBGCHDT+0,Y BNE BGCF10 ; character change ? ; ; yes LDA BGCHDAT+3,X BGCF10 EQU $ STA >CHCHTB+0 ; LDA RBGCHDT+1,Y BNE BGCF11 ; character change ? ; ; yes LDA BGCHDAT+4,X BGCF11 EQU $ STA >CHCHTB+1 ; LDA RBGCHDT+2,Y BNE BGCF12 ; character change ? ; ; yes LDA BGCHDAT+5,X BGCF12 EQU $ STA >CHCHTB+2 ; LDA RBGCHDT+3,Y BNE BGCF13 ; character change ? ; ; yes LDA BGCHDAT+6,X BGCF13 EQU $ STA >CHCHTB+3 ; MEM16 REP #00100000B ; memory 16bit mode ; LDA !ROBJCPT AND #000FFH ASL A ASL A TAY ; MEM8 SEP #00100000B ; memory 8bit mode BGCF20 EQU $ LDA ROBCHDT+0,Y BEQ BGCF21 ; character change ? ; ; yes STA >CHCHTB+4+0 BGCF21 EQU $ LDA ROBCHDT+1,Y BEQ BGCF22 ; character change ? ; ; yes STA >CHCHTB+4+1 BGCF22 EQU $ LDA ROBCHDT+2,Y BEQ BGCF23 ; character change ? ; ; yes STA >CHCHTB+4+2 BGCF23 EQU $ LDA ROBCHDT+3,Y BEQ BGCF24 ; character change ? ; ; yes STA >CHCHTB+4+3 BGCF24 EQU $ IDX8 SEP #00010000B ; index 8bit mode ; PLX ; (X) pull ; LDA >BGCBDT0+1,X STA BGCBDT0+0,X TAY ; LDA #BANK MPCHBF JSR CADWS040 ; char.data buffer set LDA BGCBDT0+3,X STA BGCBDT0+2,X TAY ; LDA #BANK MPCHBF JSR CADWS040 ; char.data buffer set LDA CHCHTB+1 TAY LDA #BANK MPCHBF JSR CADWS040 ; char.data buffer set LDA CHCHTB+2 TAY JSR CADWS100 ; char.data buffer set ; PLB ; (DBR) reset ; LDA #BANK MPCHBF STA BGCBDT0+5,X STA BGCBDT0+4,X TAY ; LDA #BANK MPCHBF JSR CADWS040 ; char.data buffer set LDA BGCBDT0+6,X TAY LDA OCADL,Y STA CHCHTB+4 TAY LDA #BANK MPCHBF STA CHCHTB+5 TAY JSR CADWS300 ; char.data buffer set ; PLB ; (DBR) reset ; LDA #BANK MPCHBF STA CHCHTB+4 CMP #C_4I0 BEQ BGCF2120 ; 8~F color ? ; ; no CMP #C_4I1 BEQ BGCF2120 ; 8~F color ? ; ; no CMP #C_4M0 BEQ BGCF2120 ; 8~F color ? ; ; no CMP #C_4M1 BNE BGCF2140 ; 8~F color ? ; ; yes BGCF2120 EQU $ LDA #MPCHBF JSR BCHC000 ; character buffer set-0 BRA BGCF2160 ; BGCF2140 EQU $ LDA #MPCHBF JSR BCHC100 ; character buffer set-1 BGCF2160 EQU $ LDY #00010H*2*2 LDA CHCHTB+6 TAY LDA #BANK MPCHBF STA CHCHTB+7 TAY JSR CADWS300 ; char.data buffer set ; PLB ; (DBR) reset ; LDA #BANK MPCHBF STA RABHEN ; rabit change check RTL ; ; ; ;************************************************************************ ;* BG. OBJ character change (CHRCHNG) * ;************************************************************************ ROBCHDT EQU $ ; reset OBJ. char. data BYTE 00000,C_4D1,00000,00000 ; 00 : ground BYTE C_4C0,C_4D1,C_2X0,C_3F1 ; 01 BYTE C_4D0,C_4D1,C_3A1,C_3F1 ; 02 BYTE C_4C0,C_4D1,C_3A1,C_2Y0 ; 03 BYTE C_4D0,C_4D1,C_2X0,C_2Z1 ; 04 BYTE C_4D0,C_4D1,C_2X0,C_2Z0 ; 05 BYTE C_4G1,C_4D1,C_4E0,C_4H0 ; 06 BYTE C_2Y0,C_4D1,C_4E0,C_2Z1 ; 07 BYTE C_4C0,C_4D1,C_3A0,00000 ; 08 BYTE 00000,C_4D1,00000,C_4H0 ; 09 BYTE 00000,C_4D1,00000,C_2Z1 ; 0A BYTE C_4D0,C_4D1,C_2X0,00000 ; 0B BYTE 00000,00000,C_3S1,C_3S0 ; 0C BYTE C_4D0,C_4D1,C_4F0,C_2Z1 ; 0D BYTE C_4N1,C_3N0,C_2X0,C_4B0 ; 0E BYTE 00000,00000,C_4G0,00000 ; 0F ; BYTE C_2Y1,00000,C_3A0,C_2Z0 ; 10 : ground BYTE 00000,00000,00000,C_4F0 ; 11 BYTE 00000,C_2X1,C_3C1,00000 ; 12 BYTE C_3C0,C_2X1,C_3C1,C_3E1 ; 13 BYTE C_3C0,C_2X1,C_3C1,C_3B0 ; 14 BYTE C_3B1,C_2X1,C_3C1,C_3B1 ; 15 BYTE C_3C0,C_2X1,C_3D0,C_3D1 ; 16 BYTE C_3C0,C_2X1,C_3C1,C_3D1 ; 17 BYTE C_3C0,C_2X1,00000,00000 ; 18 BYTE C_3C0,C_2X1,C_3D0,C_3E1 ; 19 BYTE C_2Y1,C_4D1,C_4E0,C_2Z1 ; 1A BYTE C_4E1,C_3M0,C_4N0,C_3B1 ; 1B BYTE C_3C0,C_4D1,C_3C1,C_3F1 ; 1C BYTE 00000,00000,00000,C_3B1 ; 1D BYTE C_3C0,C_2X1,C_3C1,C_2Z0 ; 1E BYTE C_3C0,C_4D1,C_3A0,00000 ; 1F ; BYTE C_3C0,C_4D1,C_2X0,C_2Z1 ; 20 : ground BYTE 00000,00000,C_3A0,C_2Z0 ; 21 BYTE C_3C0,C_2X1,00000,C_2Z1 ; 22 BYTE C_3C0,C_4D1,C_2X0,00000 ; 23 BYTE C_3C0,C_2X1,C_4F0,C_2Z1 ; 24 BYTE C_2Y0,C_2X1,C_4E0,C_2Z1 ; 25 BYTE C_3C0,C_3E0,C_3C1,C_3E1 ; 26 BYTE C_4G1,C_3R0,C_4E0,C_4H0 ; 27 BYTE C_3R1,C_4F1,C_4S0,C_3S0 ; 28 BYTE C_4E0,C_3R0,C_4G0,00000 ; 29 BYTE C_2Y0,C_3R0,C_4E0,C_2Z1 ; 2A BYTE C_4H1,C_3R0,C_4N1,C_4L1 ; 2B BYTE C_4E1,C_4D1,C_4F0,C_2Z1 ; 2C BYTE C_3N1,00000,00000,00000 ; 2D BYTE C_4N1,00000,C_3A0,C_4L1 ; 2E BYTE 00000,00000,00000,00000 ; 2F ; BYTE 00000,00000,00000,00000 ; 30 : ground BYTE 00000,00000,00000,00000 ; 31 BYTE 00000,00000,00000,00000 ; 32 BYTE 00000,00000,00000,00000 ; 33 BYTE 00000,00000,00000,00000 ; 34 BYTE 00000,00000,00000,00000 ; 35 BYTE 00000,00000,00000,00000 ; 36 BYTE 00000,00000,00000,00000 ; 37 BYTE 00000,00000,00000,00000 ; 38 BYTE 00000,00000,00000,00000 ; 39 BYTE 00000,00000,00000,00000 ; 3A BYTE 00000,00000,00000,00000 ; 3B BYTE 00000,00000,00000,00000 ; 3C BYTE 00000,00000,00000,00000 ; 3D BYTE 00000,00000,00000,00000 ; 3E BYTE 00000,00000,00000,00000 ; 3F ; BYTE C_4C1,C_4D1,C_3M1,C_3N1 ; 40 : danjyon BYTE C_4C0,C_4D1,C_3F0,C_4I0 ; 41 BYTE 00000,C_4D1,C_3F0,C_4I0 ; 42 BYTE C_4N1,C_4D1,00000,C_4I0 ; 43 BYTE C_4C0,C_4D1,C_3A1,C_4I0 ; 44 BYTE C_4E1,C_4F1,C_4E0,C_4M0 ; 45 ;; BYTE C_4C1,C_4D1,C_3V1,C_4I0 ; 46 TEST Morita ! BYTE C_4C1,C_4D1,C_3F0,C_4I0 ; 46 BYTE C_4E1,C_4F1,C_3V1,C_3S0 ; 47 BYTE C_3G1,C_3N0,C_3O0,C_4I0 ; 48 BYTE C_3G1,C_3N0,C_3O0,C_3F1 ; 49 BYTE C_3O1,C_3N0,C_3O0,C_4I0 ; 4A BYTE C_3O1,C_3N0,C_3O0,C_3P1 ; 4B BYTE C_3G1,C_3G0,C_3P0,C_4I0 ; 4C BYTE C_4H1,C_4D1,C_3A1,00000 ; 4D BYTE C_4G1,C_4D1,C_3A1,C_4H0 ; 4E BYTE C_4G1,C_4F1,C_4E0,C_4H0 ; 4F ; BYTE C_4E1,C_4D1,C_4F0,C_3M1 ; 50 : danjyon BYTE C_3G1,C_3H0,C_3I0,C_4I1 ; 51 BYTE C_4J1,C_3X1,C_4A0,C_4A1 ; 52 : shisai room ! BYTE C_3G1,C_3G0,C_3I1,C_4I0 ; 53 BYTE C_3G1,C_3G0,C_3V1,C_3W0 ; 54 BYTE C_3G1,C_3G0,C_3W0,C_3Y0 ; 55 BYTE C_3G1,C_3G0,C_3X0,C_3X1 ; 56 BYTE C_3Z0,C_3G0,C_3K1,C_3Y1 ; 57 BYTE C_4J1,C_3E0,C_4A0,C_4A1 ; 58 BYTE C_3G1,C_3G0,C_3M0,C_4I0 ; 59 BYTE C_3G1,C_3G0,C_3V0,C_4I0 ; 5A BYTE C_3G1,C_3H0,C_3L0,C_4I0 ; 5B BYTE C_3G1,C_3H0,C_3K0,C_4I0 ; 5C BYTE C_3G1,C_3N0,C_3J1,C_4I0 ; 5D BYTE C_3G1,C_3H0,C_3K1,C_4I0 ; 5E BYTE C_3G1,C_3G0,C_3L1,C_4I0 ; 5F ; BYTE C_3G1,C_3N0,C_3W1,C_4I0 ; 60 : danjyon BYTE C_4C0,C_4D1,C_3J0,C_4I0 ; 61 BYTE C_3H1,C_3Z1,C_4B1,C_3Q1 ; 62 BYTE C_3G1,C_3N0,C_3L0,C_3P1 ; 63 BYTE C_3G1,C_2X1,C_3L1,C_4I0 ; 64 BYTE C_3G1,C_3G0,C_3K1,C_4I0 ; 65 BYTE C_3G1,C_3H0,C_3K1,C_4I1 ; 66 BYTE C_4D0,C_4D1,C_3A1,C_4I0 ; 67 BYTE C_2Y0,C_3G0,C_4E0,C_4H0 ; 68 BYTE C_3G1,C_3H0,C_3K0,C_4I1 ; 69 BYTE C_3B1,00000,00000,00000 ; 6A BYTE C_3G1,00000,C_3M0,C_4I0 ; 6B BYTE 00000,00000,00000,00000 ; 6C BYTE 00000,00000,00000,00000 ; 6D BYTE 00000,00000,00000,00000 ; 6E BYTE 00000,00000,00000,00000 ; 6F ; BYTE 00000,00000,00000,00000 ; 70 : danjyon BYTE 00000,00000,00000,00000 ; 71 BYTE 00000,00000,00000,00000 ; 72 BYTE 00000,00000,00000,00000 ; 73 BYTE 00000,00000,00000,00000 ; 74 BYTE 00000,00000,00000,00000 ; 75 BYTE 00000,00000,00000,00000 ; 76 BYTE 00000,00000,00000,00000 ; 77 BYTE 00000,00000,00000,00000 ; 78 BYTE 00000,00000,00000,00000 ; 79 BYTE 00000,00000,00000,00000 ; 7A BYTE 00000,00000,00000,00000 ; 7B BYTE 00000,00000,00000,00000 ; 7C BYTE C_3Q0,00000,00000,C_2V0 ; 7D : title BYTE C_4N1,C_4D1,00000,C_4I0 ; 7E : title demo (gyokuza) BYTE C_4J1,C_4D1,C_4A0,C_4A1 ; 7F : (rou-ya , shisai-room) ; ; ; Danjyon map BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 80 (00)chapel BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 81 (02)shiro BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 82 (04)shinden BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 83 (06)sabaku-shinden BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 84 (08)shisai-tower BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 85 (0A)ura-danjyon (mizu hiki) BYTE C_4Q0,C_4K0,C_4K1,C_4H0 ; 86 (0C)ura-danjyon (ura shinden) BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 87 (0E)ura-danjyon (numa) BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 88 (10)ura-danjyon (mori shita) BYTE C_4Q0,C_4K0,C_4K1,C_4H0 ; 89 (12)ura-danjyon (ice tower) BYTE C_4Q0,C_4K0,C_4R2,C_4H0 ; 8A (14)yama-tower BYTE C_4Q0,C_4K0,C_4K1,C_4H0 ; 8B (16)ura-danjyon (ura machi) BYTE C_4Q0,C_4K0,C_3Q1,C_4H0 ; 8C (18)ura-danjyon (kame-iwa) BYTE C_4Q0,C_4K0,C_4K1,C_4H0 ; 8D (1A)ura-danjyon (yama tower) BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 8E (1C) BYTE C_4Q0,C_4Q1,C_4R2,C_4H0 ; 8F (1E) ; ; ; RBGCHDT EQU $ ; BG. ; ; Danjyon BYTE C_0D0,00000,C_0S0,C_0N0 ; 00 shiro BYTE C_0E0,00000,C_0T1,C_0O1 ; 1 under BYTE C_0D0,00000,C_0S0,C_0N0 ; 2 shisai-room BYTE C_0D1,00000,C_0U0,C_0P0 ; 3 minka BYTE C_0D1,00000,C_0T0,C_0N0 ; 4 chapel BYTE C_0E1,00000,C_0S1,C_0N1 ; 5 shinden BYTE C_0F1,00000,C_0T0,C_0O0 ; 6 doukutsu BYTE C_0G0,00000,C_0U1,C_0N1 ; 7 ura-danjyon (shinden) BYTE C_0E0,00000,C_0T1,C_0O1 ; 8 ura-danjyon (mizu hiki) BYTE C_0G0,00000,C_0V0,C_0O1 ; 9 ura-danjyon (mori-shita) BYTE C_0G0,00000,C_0V1,C_0O1 ; A ura-danjyon (machi-shita) BYTE C_0F0,00000,C_0W0,C_0R0 ; B ura-danjyon (ice tower) BYTE C_0F0,00000,C_0W1,C_0R1 ; C ura-danjyon (numa) BYTE C_0F1,00000,C_0X0,C_0M0 ; D ura-danjyon (kame-iwa) BYTE C_0G1,00000,C_0X1,C_0N0 ; E ura-danjyon (tower) BYTE C_0D1,00000,C_0U0,C_0P0 ; F shinden-jiji ; BYTE C_0D1,00000,C_0C0,C_0C1 ; 10 shiro-nukemichi BYTE C_0D1,00000,C_0C0,C_0C1 ; 1 ura-minka (kaji-ya) BYTE C_0E1,00000,C_0S1,C_0O1 ; 2 sabaku BYTE C_0E1,00000,C_0X1,C_0M1 ; 3 piramido BYTE C_0F1,00000,C_0T0,C_0P0 ; 4 doukutsu jiji BYTE C_0E1,00000,C_0S1,C_0N1 ; 5 BYTE C_0F1,00000,C_0T0,C_0O0 ; 6 BYTE C_0E1,00000,C_0U1,C_0O1 ; 7 BYTE C_0E0,00000,C_0T1,C_0O1 ; 8 BYTE C_0E1,00000,C_0V0,C_0O1 ; 9 BYTE C_0E1,00000,C_0V1,C_0O1 ; A BYTE C_0F0,00000,C_0W0,C_0R0 ; B BYTE C_0E1,00000,C_0W1,C_0R1 ; C BYTE C_0G0,00000,C_0X0,C_0M0 ; D BYTE C_0G1,00000,C_0X1,C_0M1 ; E BYTE C_4R1,00000,C_0Y0,C_1Y1 ; F ; BYTE 00000,00000,00000,00000 ; 20 : ground BYTE 00000,C_1V1,C_1Q0,00000 ; 1 BYTE 00000,C_1V0,C_1R1,00000 ; 2 BYTE 00000,C_1T1,C_1Q1,00000 ; 3 BYTE 00000,C_1T0,C_1O1,00000 ; 4 BYTE 00000,C_1U1,C_1P0,00000 ; 5 BYTE 00000,C_1T1,C_1U0,00000 ; 6 BYTE 00000,C_1S1,C_1R0,00000 ; 7 BYTE 00000,00000,00000,00000 ; 8 BYTE 00000,C_1S0,C_1P1,00000 ; 9 BYTE 00000,C_1T1,C_1Q1,00000 ; A BYTE 00000,C_1U1,C_1U0,00000 ; B BYTE 00000,00000,00000,00000 ; C BYTE 00000,00000,00000,00000 ; D BYTE 00000,00000,00000,00000 ; E BYTE 00000,C_1N0,C_1N1,00000 ; F ; BYTE 00000,00000,00000,00000 ; 30 : ground (URA) BYTE 00000,C_1V1,C_1Q0,00000 ; 1 BYTE 00000,C_1V0,C_1R1,00000 ; 2 BYTE 00000,C_1T1,C_1Q1,00000 ; 3 BYTE 00000,C_1T0,C_1O1,00000 ; 4 BYTE 00000,C_1U1,C_1P0,00000 ; 5 BYTE 00000,C_1T1,C_1U0,00000 ; 6 BYTE 00000,C_1S1,C_1R0,00000 ; 7 BYTE 00000,00000,00000,00000 ; 8 BYTE 00000,C_1S0,C_1P1,00000 ; 9 BYTE 00000,C_1T1,00000,00000 ; A BYTE 00000,C_1D0,C_1D1,00000 ; B BYTE 00000,C_2A0,C_1C1,00000 ; C BYTE 00000,C_0Y0,C_0Y1,00000 ; D BYTE 00000,C_0Z0,C_0Z1,00000 ; E BYTE 00000,C_1A0,C_1A1,00000 ; F ; BYTE 00000,C_1E0,C_1E1,00000 ; 40 : ground (URA) BYTE 00000,C_1C0,C_1C1,00000 ; 1 BYTE 00000,C_1B0,C_1B1,00000 ; 2 BYTE 00000,00000,00000,00000 ; 3 BYTE 00000,00000,00000,00000 ; 4 BYTE 00000,00000,00000,00000 ; 5 BYTE 00000,00000,00000,00000 ; 6 BYTE 00000,00000,00000,00000 ; 7 BYTE 00000,00000,00000,00000 ; 8 BYTE 00000,00000,00000,00000 ; 9 BYTE 00000,00000,00000,00000 ; A BYTE 00000,00000,00000,00000 ; B BYTE 00000,00000,00000,00000 ; C BYTE 00000,00000,00000,00000 ; D BYTE 00000,00000,00000,00000 ; E BYTE 00000,00000,00000,00000 ; F ; BYTE C_4R1,C_4R0,C_4R1,C_4R0 ; 50 MAP BYTE C_0M1,C_1J0,C_1J1,C_1F1 ; 51 Title ; ; ; ;;;;;;;;CRCHTBLL EQU $ ; table(L) ;;;;;;;; BYTE LOW CHRCHG2 ; Bg. - 0 : 0 ;;;;;;;; BYTE LOW CHRCHG2 ; - 0 : 1 ;;;;;;;; BYTE LOW CHRCHG3 ; - 1 : 2 ;;;;;;;; BYTE LOW CHRCHG3 ; - 1 : 3 ;;;;;;;; BYTE LOW CHRCHG3 ; - 2 : 4 ;;;;;;;; BYTE LOW CHRCHG3 ; - 2 : 5 ;;;;;;;; BYTE LOW CHRCHG4 ; - 3 : 6 ;;;;;;;; BYTE LOW CHRCHG4 ; - 3 : 7 ;;;;;;;; BYTE LOW CHRCHG0 ; Obj - 0 : 8 ;;;;;;;; BYTE LOW CHRCHG0 ; - 0 : 9 ;;;;;;;; BYTE LOW CHRCHG1 ; - 1 : A ;;;;;;;; BYTE LOW CHRCHG1 ; - 1 : B ;;;;;;;; BYTE LOW CHRCHG1 ; - 2 : C ;;;;;;;; BYTE LOW CHRCHG1 ; - 2 : D ;;;;;;;; BYTE LOW CHRCHG1 ; - 3 : E ;;;;;;;; BYTE LOW CHRCHG1 ; - 3 : F ;;;;;;;; BYTE LOW CHRCHG9 ; Rts :10 ;;;;;;;;; ;;;;;;;;CRCHTBLH EQU $ ; table(H) ;;;;;;;; BYTE HIGH CHRCHG2 ;;;;;;;; BYTE HIGH CHRCHG2 ;;;;;;;; BYTE HIGH CHRCHG3 ;;;;;;;; BYTE HIGH CHRCHG3 ;;;;;;;; BYTE HIGH CHRCHG3 ;;;;;;;; BYTE HIGH CHRCHG3 ;;;;;;;; BYTE HIGH CHRCHG4 ;;;;;;;; BYTE HIGH CHRCHG4 ;;;;;;;; BYTE HIGH CHRCHG0 ;;;;;;;; BYTE HIGH CHRCHG0 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG1 ;;;;;;;; BYTE HIGH CHRCHG9 ;;;;;;;;; ;;;;;;;;VMAADRD EQU $ ;;;;;;;; BYTE 02CH,02EH,030H,032H ;;;;;;;; BYTE 034H,036H,038H,03AH ;;;;;;;; BYTE 050H,052H,054H,056H ;;;;;;;; BYTE 058H,05AH,05CH,05EH ;;;;;;;;; ;;;;;;;;DTADDDT EQU $ ;;;;;;;; BYTE 000H,003H,000H,003H ;;;;;;;; BYTE 000H,003H,000H,003H ;;;;;;;; BYTE 000H,003H,000H,003H ;;;;;;;; BYTE 000H,003H,000H,003H ;;;;;;;;; ;;;;;;;;BFWKDT EQU $ ;;;;;;;; BYTE HIGH CHCHBF+600H*0,HIGH CHCHBF+600H*0,HIGH CHCHBF+600H*1,HIGH CHCHBF+600H*1 ;;;;;;;; BYTE HIGH CHCHBF+600H*2,HIGH CHCHBF+600H*2,HIGH CHCHBF+600H*3,HIGH CHCHBF+600H*3 ;;;;;;;; BYTE HIGH CHCHBF+600H*4,HIGH CHCHBF+600H*4,HIGH CHCHBF+600H*5,HIGH CHCHBF+600H*5 ;;;;;;;; BYTE HIGH CHCHBF+600H*6,HIGH CHCHBF+600H*6,HIGH CHCHBF+600H*7,HIGH CHCHBF+600H*7 ;;;;;;;;; ;;;;;;;;; ; VMAADRD EQU $ BYTE 050H,051H,052H,053H,054H,055H,056H,057H BYTE 058H,059H,05AH,05BH,05CH,05DH,05EH,05FH ; BFWKDT EQU $ BYTE HIGH RSETCBF+0000H,HIGH RSETCBF+0200H BYTE HIGH RSETCBF+0400H,HIGH RSETCBF+0600H BYTE HIGH RSETCBF+0800H,HIGH RSETCBF+0A00H BYTE HIGH RSETCBF+0C00H,HIGH RSETCBF+0E00H BYTE HIGH RSETCBF+1000H,HIGH RSETCBF+1200H BYTE HIGH RSETCBF+1400H,HIGH RSETCBF+1600H BYTE HIGH RSETCBF+1800H,HIGH RSETCBF+1A00H BYTE HIGH RSETCBF+1C00H,HIGH RSETCBF+1E00H ; ; CHRCHNG EQU $ LDX !CCHGPT CPX #010H BEQ CHRCN90 ; character write ? ; ; yes LDA >VMAADRD,X STA BFWKDT,X STA !CHADRF+1 ; INC !CCHGPT CHRCN90 EQU $ RTL ; ; ;;;;;;;; PHB ;;;;;;;; PHK ;;;;;;;; PLB ; (DBR) set ;;;;;;;;; ;;;;;;;; LDA !ROBJCPT ;;;;;;;; ASL A ;;;;;;;; ASL A ;;;;;;;; STA CHCHTB,X ;;;;;;;; CMP #C_4I0 ;;;;;;;; BEQ CRCH010 ; 8~F color ? ;;;;;;;;; ; no ;;;;;;;; CMP #C_4I1 ;;;;;;;; BEQ CRCH010 ; 8~F color ? ;;;;;;;;; ; no ;;;;;;;; CMP #C_4M0 ;;;;;;;; BEQ CRCH010 ; 8~F color ? ;;;;;;;;; ; no ;;;;;;;; CMP #C_4M1 ;;;;;;;; BEQ CRCH010 ; 8~F color ? ;;;;;;;;; ; no ;;;;;;;; BRA CRCH110 ;;;;;;;;; ;;;;;;;;; ;;;;;;;;CHRCHG3 EQU $ ;;;;;;;; LDY !RBGCPT ;;;;;;;; CPY #010H ;;;;;;;; BCC CHRCHG1 ; danjyon ? ;;;;;;;;; ; no ;;;;;;;;CHRCHG2 EQU $ ;// 02.11.13 // ;;;;;;;; INC !CCHGPT ;;;;;;;;CRCH000 EQU $ ;;;;;;;; STA RSETCBF,X XBA ORA [RSETCBF+010H,X INC RSETCBF,X XBA ORA [RSETCBF+010H,X INC RSETCBF,X INC RSETCBF+010H,X INC RSETCBF,X INC RSETCBF+010H,X INC RSETCBF,X INC RSETCBF+010H,X INC RSETCBF,X INC RSETCBF+010H,X INC CHCHTB+7 AND #000FFH CMP #C_4I0 BEQ OCHCH40 ; 8~F color ? ; ; no CMP #C_4I1 BEQ OCHCH40 ; 8~F color ? ; ; no CMP #C_4M0 BEQ OCHCH40 ; 8~F color ? ; ; no CMP #C_4M1 BNE OCHCH60 ; 8~F color ? ; ; no OCHCH40 EQU $ LDA >>>>>>> BGCHDAT EQU $ BYTE C_0A0,C_0A1,C_0I0,C_0D0,C_0H0,C_0S0,C_0N0,C_0H1 ; 00 shiro BYTE C_0A0,C_0A1,C_0I0,C_0E0,C_0H0,C_0T1,C_0O1,C_0H1 ; 1 under BYTE C_0A0,C_0A1,C_0I0,C_0D0,C_0H0,C_0S0,C_0N0,C_0H1 ; 2 shisai-room BYTE C_0A0,C_0A1,C_0K0,C_0D1,C_0H0,C_0U0,C_0P0,C_0H1 ; 3 minka BYTE C_0A0,C_0A1,C_0I0,C_0D1,C_0H0,C_0T0,C_0N0,C_0H1 ; 4 chapel BYTE C_0A0,C_0A1,C_0I0,C_0E1,C_0H0,C_0S1,C_0N1,C_0H1 ; 5 shinden BYTE C_0B0,C_0B1,C_0J0,C_0F1,C_0H0,C_0T0,C_0O0,C_0H1 ; 6 doukutsu BYTE C_0A0,C_0A1,C_0I1,C_0G0,C_0H0,C_0U1,C_0O1,C_0H1 ; 7 ura-danjyon (shinden) BYTE C_0A0,C_0A1,C_0I1,C_0E0,C_0H0,C_0T1,C_0O1,C_0H1 ; 8 ura-danjyon (mizu hiki) BYTE C_0A0,C_0A1,C_0I1,C_0G0,C_0H0,C_0V0,C_0O0,C_0H1 ; 9 ura-danjyon (mori-shita) BYTE C_0A0,C_0A1,C_0I1,C_0G0,C_0H0,C_0V1,C_0O1,C_0H1 ; A ura-danjyon (machi-shita) BYTE C_0A0,C_0A1,C_0K1,C_0F0,C_0H0,C_0W0,C_0R0,C_0H1 ; B ura-danjyon (ice tower) BYTE C_0A0,C_0A1,C_0I1,C_0F0,C_0H0,C_0W1,C_0R1,C_0H1 ; C ura-danjyon (numa) BYTE C_0B0,C_0B1,C_0J0,C_0F1,C_0H0,C_0X0,C_0M0,C_0H1 ; D ura-danjyon (kame-iwa) BYTE C_0A0,C_0A1,C_0L0,C_0G1,C_0H0,C_0X1,C_0N0,C_0H1 ; E ura-danjyon (tower) BYTE C_0A0,C_0A1,C_0I0,C_0D1,C_0H0,C_0U0,C_0P0,C_0H1 ; F shinden-jiji ; BYTE C_0A0,C_0A1,C_0K0,C_0D1,C_0H0,C_0C0,C_0C1,C_0H1 ; 10 shiro-nukemichi BYTE C_0A0,C_0A1,C_0K0,C_0D1,C_0H0,C_0C0,C_0C1,C_0H1 ; 1 ura-minka (kaji-ya) BYTE C_0A0,C_0A1,C_0I0,C_0E1,C_0H0,C_0S1,C_0O1,C_0H1 ; 2 sabaku BYTE C_0A0,C_0A1,C_0I0,C_0E1,C_0H0,C_0X1,C_0M1,C_0H1 ; 3 piramido BYTE C_0B0,C_0B1,C_0J0,C_0F1,C_0H0,C_0T0,C_0P0,C_0H1 ; 4 doukutsu jiji BYTE C_0A0,C_0E0,C_0I1,C_0O1,C_0T1,C_0Z1,C_1Y1,C_1X1 ; 5 BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; 6 BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; 7 BYTE C_1G0,C_1G1,C_1H0,C_1H1,C_1T1,C_1Q1,C_1I0,C_1X1 ; 8 BYTE C_1K0,C_1K1,C_1L0,C_1L1,C_0S1,C_0Y0,C_1I1,C_1Y1 ; 9 BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; A BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; B BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; C BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; D BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; E BYTE C_4R0,C_4R1,C_4R0,C_4R1,C_0S1,C_0Y0,C_1Y1,C_1X1 ; F ; BYTE C_1G0,C_1G1,C_1H0,C_1H1,C_1T1,C_1Q1,C_1I0,C_1X1 ; 20 ground BYTE C_1K0,C_1K1,C_1L0,C_1L1,C_0S1,C_0Y0,C_1I1,C_1W1 ; 1 (URA) ; BYTE C_0A0,C_4R1,C_4R0,C_4R1,C_0S1,C_0Y0,C_1Y1,C_0H1 ; 22 MAP BYTE C_0M0,C_1F1,C_0R0,C_0M1,C_1J0,C_1J1,C_1F1,C_0R1 ; 23 TITLE BYTE C_0A0,C_1M0,C_1F1,C_4R1,C_1J0,C_1J1,C_1F1,C_0H1 ; 24 end-polygon ; ; ;// 02.12.13 //;<<<<<< OBJ >>>>>>> ;// 02.12.13 //OBCHDAT EQU $ ;// 02.12.13 // BYTE C_4I0,C_2X1,C_2X0,C_3C0 ; 00 danjyon ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 1 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 2 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 3 ;// 02.12.13 // BYTE C_4I0,C_3H1,C_2X0,C_2X1 ; 4 ;// 02.12.13 // BYTE C_4I0,C_3H0,C_2X0,C_4I1 ; 5 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 6 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 7 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 8 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 9 ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; A ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; B ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; C ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; D ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; E ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; F ;// 02.12.13 //; ;// 02.12.13 // BYTE C_2X0,C_2X1,C_4H0,C_4H1 ; 10 ground ;// 02.12.13 // BYTE C_3B0,C_3B1,C_2X0,C_2X1 ; 1 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 2 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 3 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 4 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 5 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 6 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 7 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 8 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; 9 ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; A ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; B ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; C ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; D ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; E ;// 02.12.13 // BYTE C_4I0,C_3B0,C_3B1,C_2X0 ; F ;// 02.12.13 //; ;// 02.12.13 // BYTE C_4R3,C_4R3,C_2X0,C_4H0 ; 20 select map ;// 02.12.13 //; ; ; ; CHSCHNG EQU $ PHB PHK PLB ; (DBR) set ; LDA #10000000B STA 2115H ; inc. mode ; ;<<<<< Basic obj. 4bit set >>>>>> STZ 2116H LDA #044H STA 2117H ; Vram address (04400H) ; JSR CHSET1 ; ; ;<<<<< Change obj. 3bit set >>>>>> MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; ;// 03.05.10 // LDY #00003H ;// 03.05.10 // LDX #00000H ;// 03.05.10 //CHCH010 EQU $ ;// 03.05.10 // LDA >CHCHTB+4,X ;// 03.05.10 // STA WORK+6,Y ;// 03.05.10 // INX ;// 03.05.10 // DEY ;// 03.05.10 // BPL CHCH010 ; ;// 03.05.10 //; ; ;// 03.05.10 // LDX #00003H ;// 02.10.03 // LDA !CHARBK LDA !ROBJCPT AND #000FFH ASL A ASL A TAY ; MEM8 SEP #00100000B ; memory 8bit mode ;// 03.05.10 //CHCH020 EQU $ ;// 03.05.10 //;// 02.10.03 // LDA OBCHDAT,Y ;// 03.05.10 // LDA ROBCHDT,Y ;// 03.05.10 // BNE CHCH030 ; ;// 03.05.10 //; ; ;// 03.05.10 //;// 03.03.25 // MEM16 ;// 03.05.10 //;// 03.03.25 // REP #00100000B ; memory 16bit mode ;// 03.05.10 //;// 03.03.25 // PHY ; (Y) push ;// 03.05.10 //;// 03.03.25 // PHX ; (X) push ;// 03.05.10 //;// 03.03.25 // TYA ;// 03.05.10 //;// 03.03.25 // AND #00003H ;// 03.05.10 //;// 03.03.25 // TAX ;// 03.05.10 //;// 03.03.25 // MEM8 ;// 03.05.10 //;// 03.03.25 // SEP #00100000B ; memory 8bit mode ;// 03.05.10 //;// 03.03.25 //; ;// 03.05.10 //;// 03.03.25 // LDA >CHCHTB+4,X ;// 03.05.10 //;// 03.03.25 // PLX ; (X) pull ;// 03.05.10 //;// 03.03.25 // PLY ; (Y) pull ;// 03.05.10 //CHCH030 EQU $ ;// 03.05.10 // STA CHCHTB+4+0 CHCH010 EQU $ LDA >CHCHTB+4+0 STA CHCHTB+4+1 CHCH012 EQU $ LDA >CHCHTB+4+1 STA CHCHTB+4+2 CHCH014 EQU $ LDA >CHCHTB+4+2 STA CHCHTB+4+3 CHCH016 EQU $ LDA >CHCHTB+4+3 STA >>>>> MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #02000H STA 2116H ; Vram address (02000H) ; ;// 03.05.16 // LDX #00007H LDA !CHIKNO AND #000FFH ASL A ASL A ASL A TAY ; ;// 03.05.16 // MEM8 ;// 03.05.16 // SEP #00100000B ; memory 8bit mode ;// 03.05.16 //CHCH100 EQU $ ;// 03.05.16 // LDA BGCHDAT,Y ;// 03.05.16 // STA CHCHTB+0 STA CHCHTB+1 STA CHCHTB+2 STA CHCHTB+3 STA >>>> LDA #07000H STA 2116H ; Vram address (07000H) ; MEM8 SEP #00100000B ; memory 8bit mode ; LDY #C_4W JSR CHCHN200 ; character set ; LDY #C_4X JSR CHCHN200 ; character set ; LDY #C_4V JSR CHCHN200 ; character set ; PLB ; (DBR) RESET RTL ; ; CHCHN200 EQU $ JSR CADWKST2 ; char. address work set ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX #003FEH/4 CHCHN260 EQU $ LDA [>>>> STZ 2116H LDA #078H STA 2117H ; Vram address (07800H) ; LDY #C_4T JSR CHCHN200 ; character set ; PLB ; (DBR) reset RTL ; ; ; ;************************************************************************ ;* Title-demo OBJ. character set (CHSCHN2) * ;************************************************************************ CHSCHN2 EQU $ PHB PHK PLB ; (DBR) set ; LDA #10000000B STA 2115H ; inc. mode ; ;<<<<< Basic obj. 4bit set >>>>>> STZ 2116H LDA #044H STA 2117H ; Vram address (04400H) ; JSR CHSET1 ; PLB ; (DBR) reset RTL ; ; ; ; ;************************************************************************ ;* Mode<7> character set (M7CHST) * ;************************************************************************ M7CHST EQU $ LDA #018H STA char B address ; LDA #10000000B STA 2115H STZ 2116H STZ 2117H ; Vram address ; IDX16 REP #00010000B ; index 16bit mode ; LDY #0C000H STY char L,H address ; LDY #000000H M7CH400 EQU $ LDA [CHITEMST ; special CG. set INC CHITEMS0 ; special CG. set INC RSETCBF+1000H,X ;// 03.03.13 // INC RSETCBF+1010H,X ;// 03.03.13 // INC RSETCBF+1000H,X XBA ORA [RSETCBF+1010H,X INC >>>> STZ 2116H LDA #050H STA 2117H ; Vram address (05000H) ; PHB PHK PLB ; (DBR) set ; LDY #C_4O0 JSR CADWKST2 ; char. address work set REP #00100000B ; memory 16bit mode LDY #03FH JSR CHST800 ; ken,tate set ; LDY #C_4O1 JSR CADWKST2 ; char. address work set REP #00100000B ; memory 16bit mode LDY #03FH JSR CHST800 ; ken,tate set ; PLB ; (DBR) reset ; ; ;<<<<< BG. 2bit set (BG3) >>>>> ;// 03.10.18 // LDA #BANK GDBUF0 ;// 03.10.18 // STA >>>> ;// 03.10.18 // LDA #BANK GDBUF0 ;// 03.10.18 // STA >>>> ;// 03.06.27 // LDA #BANK GDBUF0 ;// 03.06.27 // STA CHCHTB+4,X ;// 03.05.28 //;// 03.03.19 // AND #000FFH ;// 03.05.28 // LDA ? ; ; no ASL A BPL REN1 ; [ CMP #020H ] > ? ; ; no ASL A BPL REN2 ; [ CMP #040H ] > ? ; ; no REN12 EQU $ JSR GET1DT ; 1 data read LDX