; INCLUDE zel_ram.asm ; ;----------------------------------------------------------------------- ; ; ZELDA-3 1991.06.05(WED) ; ;------------------------------------------------------------------------ ; ORG 1EC700H ; ;=============================================== (zel_char) ============= GLB CHSCHNG,CHSCHN0,CHRCHNG,CHRCBS0,CHRCBS1,BGCHCNG,OJCHCNG,GCGCHNG GLB CCBFIT,KNCBFST,TTCBFST,WTRCBFST,OPTCBFST,ITMCBFST,ITMCBFST1,SPOJCNG GLB MPICBST,WGBGCNG,M7CHST,MSGVRMS,MSGVRMS1,MPDTBFST,TPLCGST ; GLB PWTRCGS0,PWTRCGS1,PLCGCN0,PLCGCN1,PLCGCN2 GLB PWTRCGS2,PWTRCGS3,THCGCN0,THCGCN1,THCGCN2 ; GLB NKCGSET,NKCGST0,NKCGST1 ; GLB OBJYSET,MSCGST1,MSCGST2,KENST,TATEST GLB CHOBJST,CHITEMST,PLCGSET,CHITEMS1,PGRVCGST ; GLB MAPCGSET,B3CGSET,DANCORST,KOUKAST GLB GDCGST,GDCGST1,GDCGST2,MAPOBSET,DJCGSET ; GLB spoj0,spoj1,spoj2,spoj3,spoj4,spoj5,spoj6,spoj7 ; GLB PICCPT,BGCBDT0,DJNCGDT ; GLB C_0A0,C_4C0 GLB C_1F0,C_1X0,C_1Y0,C_2R1,C_2U0,C_2W0 ;=============================================== (zel_vma) ============== EXT PCHDT0,PCHDT1,PCHDT2 ; EXT bgwB,bgwC,bgwD,bgwE,bgwF,bgw10,bgw11,bgw12,bgw13,bgw14 ;=============================================== (zel_init) ============= EXT KGBG000,KGBG100,KGBG200 ;=============================================== (zel_play) ============= EXT RABHEN ;======================================================================== ; EXTEND ; MEM8 IDX8 ; ; ; ;===================================================================== DCP000 EQU 108000H DCB000 EQU 118000H DCB001 EQU 118600H DCB002 EQU 118C00H DCB003 EQU 119200H DCB004 EQU 119800H DCB005 EQU 119E00H DCB006 EQU 11A400H DCB007 EQU 11AA00H DCB008 EQU 11B000H DCB009 EQU 11B600H DCB00A EQU 11BC00H DCB00B EQU 11C200H DCB00C EQU 11C800H DCB00D EQU 11CCDBH DCB00E EQU 11D180H DCB00F EQU 11D68FH DCB010 EQU 11DBE6H DCB011 EQU 11E021H DCB012 EQU 11E44FH DCB013 EQU 11E844H DCB014 EQU 11EBF4H DCB015 EQU 11EFDAH DCB016 EQU 11F43AH DCB017 EQU 11F755H DCB018 EQU 11FAEBH DCB019 EQU 11FEF2H DCB01A EQU 11FF88H DCB01B EQU 128449H DCB01C EQU 12867FH DCB01D EQU 128B17H DCB01E EQU 129091H DCB01F EQU 1295B9H DCB020 EQU 129A51H DCB021 EQU 129EC5H DCB022 EQU 12A432H DCB023 EQU 12A839H DCB024 EQU 12AC40H DCB025 EQU 12B047H DCB026 EQU 12B44EH DCB027 EQU 12B8E2H DCB028 EQU 12BC97H DCB029 EQU 12C09EH DCB02A EQU 12C4B3H DCB02B EQU 12C99BH DCB02C EQU 12CBEEH DCB02D EQU 12CFF5H DCB02E EQU 12D0F6H DCB02F EQU 12D4FDH DCB030 EQU 12D904H DCB031 EQU 12DE42H DCB032 EQU 12DF85H DCB033 EQU 12E38CH DCB034 EQU 12E70EH DCB035 EQU 12EAE5H DCB036 EQU 12EEECH DCB037 EQU 12F2F3H DCB038 EQU 12F3CCH DCB039 EQU 12F7D3H DCB03A EQU 12FBDAH DCB03B EQU 12FFE1H DCB03C EQU 1383E8H DCB03D EQU 138825H DCB03E EQU 138C78H DCB03F EQU 1391F6H DCB040 EQU 1396FBH DCB041 EQU 139C45H DCB042 EQU 13A16DH DCB043 EQU 13A698H DCB044 EQU 13A9D4H DCB045 EQU 13AEE4H DCB046 EQU 13B396H DCB047 EQU 13B859H DCB048 EQU 13BD49H DCB049 EQU 13C196H DCB04A EQU 13C674H DCB04B EQU 13CB52H DCB04C EQU 13CF73H DCB04D EQU 13D3D9H DCB04E EQU 13D87DH DCB04F EQU 13DCF4H DCB050 EQU 13E1AAH DCB051 EQU 13E696H DCB052 EQU 13EBFBH DCB053 EQU 13F002H DCB054 EQU 13F433H DCB055 EQU 13F921H DCB056 EQU 13FE50H DCB057 EQU 14834BH DCB058 EQU 1488BCH DCB059 EQU 148CC3H DCB05A EQU 1490E5H DCB05B EQU 149599H DCB05C EQU 1499B2H DCB05D EQU 149F2BH DCB05E EQU 14A3CAH DCB05F EQU 14A8B9H DCB060 EQU 14AD9CH DCB061 EQU 14B27AH DCB062 EQU 14B73FH DCB063 EQU 14BC04H DCB064 EQU 14BF82H DCB065 EQU 14C440H DCB066 EQU 14C867H DCB067 EQU 14CCDEH DCB068 EQU 14D1C6H DCB069 EQU 14D6CFH DCB06A EQU 14DB20H DCB06B EQU 14DFBDH DCB06C EQU 14E49DH DCB06D EQU 14E8A4H DCB06E EQU 14ECABH DCB06F EQU 14F115H DCB070 EQU 14F54DH DCB071 EQU 14F847H DCB072 EQU 14FC04H DCB073 EQU 1580C7H DCB074 EQU 1585B7H DCB075 EQU 158A04H DCB076 EQU 158EE2H DCB077 EQU 1593A5H DCB078 EQU 159895H DCB079 EQU 159AD5H DCB07A EQU 159C47H DCB07B EQU 15A04EH DCB07C EQU 15A455H DCB07D EQU 15A45CH DCB07E EQU 15A463H DCB07F EQU 15A46AH DCB080 EQU 15A471H DCB081 EQU 15A478H DCB082 EQU 15A47FH DCB083 EQU 15A486H DCB084 EQU 15A48DH DCB085 EQU 15A494H DCB086 EQU 15A49BH DCB087 EQU 15A4A2H DCB088 EQU 15A4A9H DCB089 EQU 15A4B0H DCB08A EQU 15A4B7H DCB08B EQU 15A4BEH DCB08C EQU 15A4C5H DCB08D EQU 15AA9DH DCB08E EQU 15AF9CH DCB08F EQU 15B49AH DCB090 EQU 15BA03H DCB091 EQU 15BDE6H DCB092 EQU 15C2F6H DCB093 EQU 15C78BH DCB094 EQU 15CCBEH DCB095 EQU 15D241H DCB096 EQU 15D5EAH DCB097 EQU 15D9F1H DCB098 EQU 15DDFBH DCB099 EQU 15E237H DCB09A EQU 15E61EH DCB09B EQU 15E7B5H DCB09C EQU 15EAC4H DCB09D EQU 15F01CH DCB09E EQU 15F31DH DCB09F EQU 15F8A4H DCB0A0 EQU 15FE23H DCB0A1 EQU 168391H DCB0A2 EQU 16881AH DCB0A3 EQU 168D49H DCB0A4 EQU 1692B8H DCB0A5 EQU 1697EDH DCB0A6 EQU 169D3EH DCB0A7 EQU 16A11FH DCB0A8 EQU 16A359H DCB0A9 EQU 16A76BH DCB0AA EQU 16AC6EH DCB0AB EQU 16B216H DCB0AC EQU 16B6AFH DCB0AD EQU 16BC69H DCB0AE EQU 16C13CH DCB0AF EQU 16C5ECH DCB0B0 EQU 16CB66H DCB0B1 EQU 16CF6DH DCB0B2 EQU 16D4CAH DCB0B3 EQU 16D9BAH DCB0B4 EQU 16DD72H DCB0B5 EQU 16E179H DCB0B6 EQU 16E580H DCB0B7 EQU 16EAAEH DCB0B8 EQU 16EEB5H DCB0B9 EQU 16EEBCH DCB0BA EQU 16EEC3H DCB0BB EQU 16EECAH DCB0BC EQU 16EED1H DCB0BD EQU 16F1FDH DCB0BE EQU 16F572H DCB0BF EQU 16FA93H DCB0C0 EQU 16FE9AH DCB0C1 EQU 178131H DCB0C2 EQU 1785A5H DCB0C3 EQU 1789EEH DCB0C4 EQU 178EB4H DCB0C5 EQU 1792BBH DCB0C6 EQU 1796C2H DCB0C7 EQU 179B97H DCB0C8 EQU 17A00AH DCB0C9 EQU 17A558H DCB0CA EQU 17A55FH DCB0CB EQU 17AABAH DCB0CC EQU 17AFE8H DCB0CD EQU 17B462H DCB0CE EQU 17B979H DCB0CF EQU 17BECDH DCB0D0 EQU 17C2B3H DCB0D1 EQU 17C7D0H DCB0D2 EQU 17CD58H DCB0D3 EQU 17D045H DCB0D4 EQU 17D5E8H DCB0D5 EQU 17DB4FH DCB0D6 EQU 17DF2BH DCB0D7 EQU 17E3FEH DCB0D8 EQU 17E6EBH DCB0D9 EQU 17E9A1H DCB0DA EQU 17ECA5H DCB0DB EQU 17F0ACH DCB0DC EQU 17F4B3H DCB0DD EQU 17F8BAH DCB0DE EQU 17FD67H DCB0DF EQU 188308H DCB0E0 EQU 188870H DCB0E1 EQU 188DACH DCB0E2 EQU 189159H DCB0E3 EQU 189475H DCB0E4 EQU 189881H DCB0E5 EQU 189C6BH DCB0E6 EQU 18A072H DCB0E7 EQU 18A353H DCB0E8 EQU 18A63FH DCB0E9 EQU 18AAB5H DCB0EA EQU 18AABCH DCB0EB EQU 18AFB6H DCB0EC EQU 18B11EH DCB0ED EQU 18B525H DCB0EE EQU 18B92CH DCB0EF EQU 18BDD9H DCB0F0 EQU 18C40EH DCB0F1 EQU 18CA8BH ; PICCPT EQU DCB0EC ;===================================================================== ; ; ; 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,BANK DCB07D,BANK DCB07E,BANK DCB07F BYTE BANK DCB080,BANK DCB081,BANK DCB082,BANK DCB083 BYTE BANK DCB084,BANK DCB085,BANK DCB086,BANK DCB087 BYTE BANK DCB088,BANK DCB089,BANK DCB08A,BANK DCB08B BYTE BANK DCB0E8,BANK DCB0E9 ; 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 DCB08C,BANK DCB08D,BANK DCB08E,BANK DCB08F BYTE BANK DCB090,BANK DCB091,BANK DCB092,BANK DCB093 BYTE BANK DCB094,BANK DCB095,BANK DCB096,BANK DCB097 BYTE BANK DCB098,BANK DCB099,BANK DCB09A,BANK DCB09B BYTE BANK DCB09C,BANK DCB09D,BANK DCB09E,BANK DCB09F BYTE BANK DCB0A0,BANK DCB0A1,BANK DCB0A2,BANK DCB0A3 BYTE BANK DCB0A4,BANK DCB0A5,BANK DCB0A6,BANK DCB0A7 BYTE BANK DCB0A8,BANK DCB0A9,BANK DCB0AA,BANK DCB0AB BYTE BANK DCB0AC,BANK DCB0AD,BANK DCB0AE,BANK DCB0AF BYTE BANK DCB0B0,BANK DCB0B1,BANK DCB0B2,BANK DCB0B3 BYTE BANK DCB0B4,BANK DCB0B5,BANK DCB0B6,BANK DCB0B7 BYTE BANK DCB0B8,BANK DCB0B9,BANK DCB0BA,BANK DCB0BB BYTE BANK DCB0BC,BANK DCB0BD,BANK DCB0BE,BANK DCB0BF BYTE BANK DCB0C0,BANK DCB0C1,BANK DCB0C2,BANK DCB0C3 BYTE BANK DCB0C4,BANK DCB0C5,BANK DCB0C6,BANK DCB0C7 BYTE BANK DCB0C8,BANK DCB0C9,BANK DCB0CA,BANK DCB0CB BYTE BANK DCB0CC,BANK DCB0CD,BANK DCB0CE,BANK DCB0CF BYTE BANK DCB0D0,BANK DCB0D1,BANK DCB0D2,BANK DCB0D3 BYTE BANK DCB0D4,BANK DCB0D5,BANK DCB0D6,BANK DCB0D7 BYTE BANK DCB0D8,BANK DCB0D9,BANK DCB0DA,BANK DCB0DB BYTE BANK DCB0DC,BANK DCB0DD,BANK DCB0DE,BANK DCB0DF BYTE BANK DCB0E0,BANK DCB0E1,BANK DCB0E2,BANK DCB0E3 BYTE BANK DCB0E4,BANK DCB0E5,BANK DCB0E6,BANK DCB0E7 BYTE BANK DCB0E8,BANK DCB0E9,BANK DCB0EA,BANK DCB0EB BYTE BANK DCB0EC,BANK DCB0ED,BANK DCB0EE,BANK DCB0EF BYTE BANK DCB0F0 ; ; 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,HIGH DCB07D,HIGH DCB07E,HIGH DCB07F BYTE HIGH DCB080,HIGH DCB081,HIGH DCB082,HIGH DCB083 BYTE HIGH DCB084,HIGH DCB085,HIGH DCB086,HIGH DCB087 BYTE HIGH DCB088,HIGH DCB089,HIGH DCB08A,HIGH DCB08B BYTE HIGH DCB0E8,HIGH DCB0E9 ; 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 DCB08C,HIGH DCB08D,HIGH DCB08E,HIGH DCB08F BYTE HIGH DCB090,HIGH DCB091,HIGH DCB092,HIGH DCB093 BYTE HIGH DCB094,HIGH DCB095,HIGH DCB096,HIGH DCB097 BYTE HIGH DCB098,HIGH DCB099,HIGH DCB09A,HIGH DCB09B BYTE HIGH DCB09C,HIGH DCB09D,HIGH DCB09E,HIGH DCB09F BYTE HIGH DCB0A0,HIGH DCB0A1,HIGH DCB0A2,HIGH DCB0A3 BYTE HIGH DCB0A4,HIGH DCB0A5,HIGH DCB0A6,HIGH DCB0A7 BYTE HIGH DCB0A8,HIGH DCB0A9,HIGH DCB0AA,HIGH DCB0AB BYTE HIGH DCB0AC,HIGH DCB0AD,HIGH DCB0AE,HIGH DCB0AF BYTE HIGH DCB0B0,HIGH DCB0B1,HIGH DCB0B2,HIGH DCB0B3 BYTE HIGH DCB0B4,HIGH DCB0B5,HIGH DCB0B6,HIGH DCB0B7 BYTE HIGH DCB0B8,HIGH DCB0B9,HIGH DCB0BA,HIGH DCB0BB BYTE HIGH DCB0BC,HIGH DCB0BD,HIGH DCB0BE,HIGH DCB0BF BYTE HIGH DCB0C0,HIGH DCB0C1,HIGH DCB0C2,HIGH DCB0C3 BYTE HIGH DCB0C4,HIGH DCB0C5,HIGH DCB0C6,HIGH DCB0C7 BYTE HIGH DCB0C8,HIGH DCB0C9,HIGH DCB0CA,HIGH DCB0CB BYTE HIGH DCB0CC,HIGH DCB0CD,HIGH DCB0CE,HIGH DCB0CF BYTE HIGH DCB0D0,HIGH DCB0D1,HIGH DCB0D2,HIGH DCB0D3 BYTE HIGH DCB0D4,HIGH DCB0D5,HIGH DCB0D6,HIGH DCB0D7 BYTE HIGH DCB0D8,HIGH DCB0D9,HIGH DCB0DA,HIGH DCB0DB BYTE HIGH DCB0DC,HIGH DCB0DD,HIGH DCB0DE,HIGH DCB0DF BYTE HIGH DCB0E0,HIGH DCB0E1,HIGH DCB0E2,HIGH DCB0E3 BYTE HIGH DCB0E4,HIGH DCB0E5,HIGH DCB0E6,HIGH DCB0E7 BYTE HIGH DCB0E8,HIGH DCB0E9,HIGH DCB0EA,HIGH DCB0EB BYTE HIGH DCB0EC,HIGH DCB0ED,HIGH DCB0EE,HIGH DCB0EF BYTE HIGH DCB0F0 ; ; 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,LOW DCB07D,LOW DCB07E,LOW DCB07F BYTE LOW DCB080,LOW DCB081,LOW DCB082,LOW DCB083 BYTE LOW DCB084,LOW DCB085,LOW DCB086,LOW DCB087 BYTE LOW DCB088,LOW DCB089,LOW DCB08A,LOW DCB08B BYTE LOW DCB0E8,LOW DCB0E9 ; 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 DCB08C,LOW DCB08D,LOW DCB08E,LOW DCB08F BYTE LOW DCB090,LOW DCB091,LOW DCB092,LOW DCB093 BYTE LOW DCB094,LOW DCB095,LOW DCB096,LOW DCB097 BYTE LOW DCB098,LOW DCB099,LOW DCB09A,LOW DCB09B BYTE LOW DCB09C,LOW DCB09D,LOW DCB09E,LOW DCB09F BYTE LOW DCB0A0,LOW DCB0A1,LOW DCB0A2,LOW DCB0A3 BYTE LOW DCB0A4,LOW DCB0A5,LOW DCB0A6,LOW DCB0A7 BYTE LOW DCB0A8,LOW DCB0A9,LOW DCB0AA,LOW DCB0AB BYTE LOW DCB0AC,LOW DCB0AD,LOW DCB0AE,LOW DCB0AF BYTE LOW DCB0B0,LOW DCB0B1,LOW DCB0B2,LOW DCB0B3 BYTE LOW DCB0B4,LOW DCB0B5,LOW DCB0B6,LOW DCB0B7 BYTE LOW DCB0B8,LOW DCB0B9,LOW DCB0BA,LOW DCB0BB BYTE LOW DCB0BC,LOW DCB0BD,LOW DCB0BE,LOW DCB0BF BYTE LOW DCB0C0,LOW DCB0C1,LOW DCB0C2,LOW DCB0C3 BYTE LOW DCB0C4,LOW DCB0C5,LOW DCB0C6,LOW DCB0C7 BYTE LOW DCB0C8,LOW DCB0C9,LOW DCB0CA,LOW DCB0CB BYTE LOW DCB0CC,LOW DCB0CD,LOW DCB0CE,LOW DCB0CF BYTE LOW DCB0D0,LOW DCB0D1,LOW DCB0D2,LOW DCB0D3 BYTE LOW DCB0D4,LOW DCB0D5,LOW DCB0D6,LOW DCB0D7 BYTE LOW DCB0D8,LOW DCB0D9,LOW DCB0DA,LOW DCB0DB BYTE LOW DCB0DC,LOW DCB0DD,LOW DCB0DE,LOW DCB0DF BYTE LOW DCB0E0,LOW DCB0E1,LOW DCB0E2,LOW DCB0E3 BYTE LOW DCB0E4,LOW DCB0E5,LOW DCB0E6,LOW DCB0E7 BYTE LOW DCB0E8,LOW DCB0E9,LOW DCB0EA,LOW DCB0EB BYTE LOW DCB0EC,LOW DCB0ED,LOW DCB0EE,LOW DCB0EF BYTE LOW DCB0F0 ; ; ; ; ; 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 014H C_0K1 EQU 015H C_0L0 EQU 016H C_0L1 EQU 017H C_0M0 EQU 018H C_0M1 EQU 019H C_0N0 EQU 01AH C_0N1 EQU 01BH C_0O0 EQU 01CH C_0O1 EQU 01DH C_0P0 EQU 01EH C_0P1 EQU 01FH C_0Q0 EQU 020H C_0Q1 EQU 021H C_0R0 EQU 022H C_0R1 EQU 023H C_0S0 EQU 024H C_0S1 EQU 025H C_0T0 EQU 026H C_0T1 EQU 027H C_0U0 EQU 028H C_0U1 EQU 029H C_0V0 EQU 02AH C_0V1 EQU 02BH C_0W0 EQU 02CH C_0W1 EQU 02DH C_0X0 EQU 02EH C_0X1 EQU 02FH C_0Y0 EQU 030H C_0Y1 EQU 031H C_0Z0 EQU 032H C_0Z1 EQU 033H C_1A0 EQU 034H C_1A1 EQU 035H C_1B0 EQU 036H C_1B1 EQU 037H C_1C0 EQU 038H C_1C1 EQU 039H C_1D0 EQU 03AH C_1D1 EQU 03BH C_1E0 EQU 03CH C_1E1 EQU 03DH C_1F0 EQU 03EH C_1F1 EQU 03FH C_1G0 EQU 040H C_1G1 EQU 041H C_1H0 EQU 042H C_1H1 EQU 043H C_1I0 EQU 044H C_1I1 EQU 045H C_1J0 EQU 046H C_1J1 EQU 047H C_1K0 EQU 048H C_1K1 EQU 049H C_1L0 EQU 04AH C_1L1 EQU 04BH C_1M0 EQU 04CH C_1M1 EQU 04DH C_1N0 EQU 04EH C_1N1 EQU 04FH C_1O0 EQU 050H C_1O1 EQU 051H C_1P0 EQU 052H C_1P1 EQU 053H C_1Q0 EQU 054H C_1Q1 EQU 055H C_1R0 EQU 056H C_1R1 EQU 057H C_1S0 EQU 058H C_1S1 EQU 059H C_1T0 EQU 05AH C_1T1 EQU 05BH C_1U0 EQU 05CH C_1U1 EQU 05DH C_1V0 EQU 05EH C_1V1 EQU 05FH C_1W0 EQU 060H C_1W1 EQU 061H C_1X0 EQU 062H C_1X1 EQU 063H C_1Y0 EQU 064H C_1Y1 EQU 065H C_1Z0 EQU 066H C_1Z1 EQU 067H C_2A0 EQU 068H 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 070H C_2E1 EQU 071H C_2F0 EQU 072H C_2F1 EQU 073H C_2G0 EQU 074H C_2G1 EQU 075H C_2H0 EQU 076H C_2H1 EQU 077H C_2I0 EQU 078H C_2I1 EQU 079H C_2J0 EQU 07AH C_2J1 EQU 07BH C_2K0 EQU 07CH C_2K1 EQU 07DH C_2L0 EQU 07EH C_2L1 EQU 07FH ; BG. char. C_4R0 EQU 080H ;0E8H ; Map BG. C_4R1 EQU 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 03CH ;0BCH C_3V1 EQU 03DH ;0BDH C_3W0 EQU 03EH ;0BEH C_3W1 EQU 03FH ;0BFH C_3X0 EQU 040H ;0C0H C_3X1 EQU 041H ;0C1H C_3Y0 EQU 042H ;0C2H C_3Y1 EQU 043H ;0C3H C_3Z0 EQU 044H ;0C4H C_3Z1 EQU 045H ;0C5H C_4A0 EQU 046H ;0C6H C_4A1 EQU 047H ;0C7H C_4B0 EQU 048H ;0C8H C_4B1 EQU 049H ;0C9H C_4C0 EQU 04AH ;0CAH C_4C1 EQU 04BH ;0CBH C_4D0 EQU 04CH ;0CCH C_4D1 EQU 04DH ;0CDH C_4E0 EQU 04EH ;0CEH C_4E1 EQU 04FH ;0CFH C_4F0 EQU 050H ;0D0H C_4F1 EQU 051H ;0D1H C_4G0 EQU 052H ;0D2H C_4G1 EQU 053H ;0D3H C_4H0 EQU 054H ;0D4H C_4H1 EQU 055H ;0D5H C_4I0 EQU 056H ;0D6H C_4I1 EQU 057H ;0D7H C_4J0 EQU 058H ;0D8H C_4J1 EQU 059H ;0D9H C_4K0 EQU 05AH ;0DAH C_4K1 EQU 05BH ;0DBH C_4L0 EQU 05CH ;0DCH C_4L1 EQU 05DH ;0DDH C_4M0 EQU 05EH ;0DEH C_4M1 EQU 05FH ;0DFH C_4N0 EQU 060H ;0E0H C_4N1 EQU 061H ;0E1H C_4O0 EQU 062H ;0E2H C_4O1 EQU 063H ;0E3H C_4P0 EQU 064H ;0E4H C_4P1 EQU 065H ;0E5H C_4Q0 EQU 066H ;0E6H C_4Q1 EQU 067H ;0E7H ;// 02.10.23 //C_4R0 EQU 068H ;0E8H ;// 02.10.23 //C_4R1 EQU 069H ;0E9H C_4R2 EQU 068H ;0E8H ; Map obj. C_4R3 EQU 069H ;0E9H ; Map obj. ; C_4S0 EQU 06AH ;0EAH C_4S1 EQU 06BH ;0EBH ; C_4T EQU 06CH ;0ECH C_4U EQU 06DH ;0EDH C_4V EQU 06EH ;0EEH C_4W EQU 06FH ;0EFH C_4X EQU 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*66H ; zzz,onpu kona bow-gun WORD 00018H*6AH,00018H*6DH,00018H*22H ; ; CCBFIT EQU $ ;---------------------------------------- sword char.buffer set JSL >KNCBFST ; sword character buffer set ; ; ;---------------------------------------- shild char.buffer set JSL >TTCBFST ; sword character buffer set ; ; ;---------------------------------------- [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 OPMODE AND #000FFH ASL A TAX LDA OPTDPT,X LDY #(10H+10H)*1 LDX #OPTCHBF-CNGCHBF JSR CCBIS320 ; water 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*3 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 ; fue tebukuro hon key WORD 00018H*28H,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 kiniko kusuri WORD 00018H*64H,00018H*66H,00018H*6AH,00018H*00H ; tate letter sp-key pendanto WORD 00018H*0AH,00018H*6CH,00018H*6EH,00018H*0EH ; rupy1 rupy2 rupy3 WORD 00018H*40H,00018H*41H,00018H*42H,00018H*0EH ; ; 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 CGRAM+100H,X PHA ; (A) push LDA >CGRAM+1E0H,X STA >CGRAM+100H,X STA >CGWORK+100H,X PLA ; (A) pull STA >CGRAM+1E0H,X STA >CGWORK+1E0H,X ; LDA >CGRAM+110H,X PHA ; (A) push LDA >CGRAM+1F0H,X STA >CGRAM+110H,X STA >CGWORK+110H,X PLA ; (A) pull STA >CGRAM+1F0H,X STA >CGWORK+1F0H,X ; LDA >CGRAM+1B0H,X PHA ; (A) push LDA >CGRAM+170H,X STA >CGRAM+1B0H,X STA >CGWORK+1B0H,X PLA ; (A) pull STA >CGRAM+170H,X STA >CGWORK+170H,X ; INX INX CPX #010H BNE PWTRS40 ; end ? ; ; yes ;// 02.10.30 // LDA #00200H ;// 02.10.30 // STA !CGSTPT ; (CGWORK) set ;// 02.10.30 //; ;// 02.10.30 // LDX PLYOJC ;// 02.10.30 // LDA >CGLPT7,X ;// 02.10.30 // AND #000FFH ;// 02.10.30 //;/////// CLC ;// 02.10.30 // ADC #PLAYCG ;// 02.10.30 // STA CGLPT8,X ;// 02.10.30 // AND #000FFH ;// 02.10.30 // CLC ;// 02.10.30 // ADC #PLAYCG1 ;// 02.10.30 // STA DJDTBL,X ;// 02.10.30 // ORA #00000001B ;// 02.10.30 // STA >DJDTBL,X ; ; MEM8 SEP #00100000B ; memory 8bit mode ; INC CGLPT7,X ;// 02.10.30 // AND #000FFH ;// 02.10.30 //;/////// CLC ;// 02.10.30 // ADC #DANJOBG ;// 02.10.30 // STA 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 ; ; ; ;************************************************************************ ;* 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 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_1Y0 LDA WTRCBFST ; water char. buffer set RTL ; ; ; ;--------------------- BG. change - 0 --------------------------------- BGCBDT0 EQU $ 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_1Y1,C_2W1,C_1X0 ; ; BGCBFS0 EQU $ PHB PHK PLB ; (DBR) set ; PHX ; (X) push ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA !RBGCPT AND #000FFH ASL A ASL A TAY ; MEM8 SEP #00100000B ; memory 8bit mode ; BGCF10 EQU $ LDA RBGCHDT+0,Y BEQ BGCF11 ; character change ? ; ; yes STA >CHCHTB+0 BGCF11 EQU $ LDA RBGCHDT+1,Y BEQ BGCF12 ; character change ? ; ; yes STA >CHCHTB+1 BGCF12 EQU $ LDA RBGCHDT+2,Y BEQ BGCF13 ; character change ? ; ; yes STA >CHCHTB+2 BGCF13 EQU $ LDA RBGCHDT+3,Y BEQ BGCF14 ; character change ? ; ; yes STA >CHCHTB+3 BGCF14 EQU $ 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 ; ; ; ; ; ;************************************************************************ ;* Danjyon change color data * ;************************************************************************ DJNCGDT EQU $ ; danjyon basic color data ; dj kk bo e1 e2 BYTE 00*2,00,00,03H,01H,00,00,00 ; 0 : normal shiro BYTE 01*2,00,00,03H,01H,00,00,00 ; 1 : shiro chika , normal chapel BYTE 02*2,00,00,0AH,01H,00,00,00 ; 2 : normal minka BYTE 03*2,00,00,06H,01H,00,00,00 ; 3 : shinden (boss) BYTE 03*2,00,02,02H,07H,00,00,00 ; 4 : sabaku-shinden (boss) BYTE 05*2,00,00,03H,0AH,00,00,00 ; 5 : kusuri-baba mise BYTE 06*2,00,00,03H,01H,00,00,00 ; 6 : yama no tou BYTE 07*2,00,00,03H,0AH,00,00,00 ; 7 : doukutsu BYTE 08*2,00,00,14H,0EH,00,00,00 ; 8 : hokora BYTE 05*2,00,02,00H,07H,00,00,00 ; 9 : sabaku-shinden BYTE 01*2,00,00,0FH,11H,00,00,00 ; A : ura-hokora-mizu BYTE 03*2,00,00,06H,07H,00,00,00 ; B : shinden BYTE 00*2,01,00,0EH,01H,00,00,00 ; C : shisai-room BYTE 09*2,00,00,0EH,0BH,00,00,00 ; D : ura-mori danjyon BYTE 09*2,00,00,02H,0CH,00,00,00 ; E : (boss) BYTE 08*2,00,00,0AH,05H,00,00,00 ; F : ura-shinden BYTE 08*2,00,00,02H,07H,00,00,00 ;10 : ura-shinden(boss) BYTE 11*2,01,00,0EH,01H,00,00,00 ;11 : ura-numa danjyon BYTE 11*2,01,00,0EH,01H,00,00,00 ;12 : (boss) BYTE 04*2,00,00,04H,14H,00,00,00 ;13 : ura-ice danjyon BYTE 04*2,00,00,0EH,01H,00,00,00 ;14 : (boss) BYTE 02*2,00,00,03H,01H,00,00,00 ;15 : link-house BYTE 10*2,00,00,03H,01H,00,00,00 ;16 : ura-machi BYTE 10*2,00,00,14H,0CH,00,00,00 ;17 : (boss) BYTE 12*2,00,00,03H,01H,00,00,00 ;18 : ura-kame-iwa BYTE 12*2,00,00,03H,01H,00,00,00 ;19 : (boss) BYTE 13*2,00,00,03H,01H,00,00,00 ;1A : ura-tower BYTE 13*2,00,00,03H,01H,00,00,00 ;1B : (boss) BYTE 03*2,00,00,03H,0AH,00,00,00 ;1B : shinden-yoko ojiji ; ; ; ;************************************************************************ ;* 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_3A1,C_4N1 ; 1 BYTE C_4D0,C_4D1,C_3A1,C_4N1 ; 2 BYTE C_4C0,C_4D1,C_3A1,C_2Y0 ; 3 BYTE C_4D0,C_4D1,C_2X0,C_2Z1 ; 4 BYTE C_4D0,C_4D1,C_2X0,C_2Z0 ; 5 BYTE C_4G1,C_4D1,C_4E0,C_4H0 ; 6 BYTE C_4D0,C_4D1,C_4E0,C_2Z1 ; 7 BYTE C_4C0,C_4D1,C_3A0,C_2Z1 ; 8 BYTE 00000,C_4D1,00000,C_4F1 ; 9 BYTE 00000,C_4D1,00000,C_2Z1 ; A BYTE C_4D0,C_4D1,C_2X0,00000 ; B BYTE 00000,00000,00000,C_3S0 ; C BYTE C_4D0,C_4D1,C_4F0,C_2Z1 ; D BYTE 00000,C_3N0,C_2X0,C_4B0 ; E BYTE C_4D0,C_4D1,C_4G0,C_2Z1 ; F ; BYTE 00000,00000,00000,00000 ; 10 : ground BYTE 00000,00000,00000,00000 ; 1 BYTE 00000,00000,00000,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 00000,00000,00000,00000 ; 20 : ground BYTE 00000,00000,00000,00000 ; 1 BYTE 00000,00000,00000,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 00000,00000,00000,00000 ; 30 : ground BYTE 00000,00000,00000,00000 ; 1 BYTE 00000,00000,00000,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_4C1,C_4D1,C_3M1,C_3N1 ; 40 : danjyon BYTE C_4C0,C_4D1,C_3F0,C_4I0 ; 1 BYTE 00000,C_4D1,C_3F0,C_4I0 ; 2 BYTE C_4N1,C_4D1,00000,C_4I0 ; 3 BYTE C_4C0,C_4D1,C_3A1,C_4I0 ; 4 BYTE C_4E1,C_4D1,C_4E0,C_4M0 ; 5 ;; BYTE C_4C1,C_4D1,C_3V1,C_4I0 ; 6 TEST Morita ! BYTE C_4C1,C_4D1,C_3M1,C_4I0 ; 6 BYTE 00000,00000,00000,C_3S0 ; 7 BYTE C_3O0,C_3N0,C_3M0,C_4I0 ; 8 BYTE C_3O0,C_3N0,C_3M0,C_3F1 ; 9 BYTE C_3O1,C_3N0,C_3A0,C_2Z1 ; A BYTE C_3O1,C_3N0,C_3A0,C_3P1 ; B BYTE C_3P0,C_3N0,00000,00000 ; C BYTE C_4H1,C_4D1,C_3A1,00000 ; D BYTE C_4G1,C_4D1,C_3A1,C_4H0 ; E BYTE C_4G1,C_4D1,C_4E0,C_4H0 ; F ; BYTE 00000,C_4D1,C_4F0,00000 ; 50 : danjyon BYTE C_3G1,C_3G0,C_3I0,C_4I1 ; 1 BYTE 00000,C_4D1,C_4A0,C_4A1 ; 2 BYTE C_3G1,C_3G0,C_3I1,C_4I0 ; 3 BYTE C_3G1,C_3G0,C_3V1,C_3W0 ; 4 BYTE C_3G1,C_3G0,C_3W1,C_4I0 ; 5 BYTE C_3G1,C_3G0,C_3X0,C_3X1 ; 6 BYTE C_3G1,C_3G0,C_3Y0,C_3Y1 ; 7 BYTE C_3G1,C_3G0,C_3Z0,C_3Z1 ; 8 BYTE C_3G1,C_3G0,C_3M0,C_4I0 ; 9 BYTE C_3G1,C_3H0,C_3V0,C_4I0 ; A BYTE C_3G1,C_3G0,C_3J1,00000 ; B BYTE C_3G1,C_3G0,C_3K0,00000 ; C BYTE C_3G1,C_3G0,C_3K1,00000 ; D BYTE C_3G1,C_3G0,C_3L0,00000 ; E BYTE C_3G1,C_3G0,C_3L1,00000 ; F ; BYTE 00000,00000,00000,00000 ; 60 : danjyon BYTE 00000,00000,00000,00000 ; 1 BYTE 00000,00000,00000,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 00000,00000,00000,00000 ; 70 : danjyon BYTE 00000,00000,00000,00000 ; 1 BYTE 00000,00000,00000,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_4Q0,C_4Q1,C_4R2,C_4H0 ; 80 select map ; ; 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_0U0,C_0P0 ; 4 chapel BYTE C_0E1,00000,C_0S1,C_0N1 ; 5 shinden , sabaku BYTE C_0F1,00000,C_0T0,C_0O0 ; 6 doukutsu BYTE C_0E1,00000,C_0U1,C_0P1 ; 7 ura-danjyon (shinden) BYTE C_0E0,00000,C_0T1,C_0O1 ; 8 ura-danjyon (mizu hiki) BYTE C_0E1,00000,C_0V0,C_0Q0 ; 9 ura-danjyon (mori-shita) BYTE C_0E1,00000,C_0V1,C_0Q1 ; A ura-danjyon (machi-shita) BYTE C_0F0,00000,C_0W0,C_0R0 ; B ura-danjyon (ice tower) BYTE C_0E1,00000,C_0W1,C_0R1 ; C ura-danjyon (numa) BYTE C_0G0,00000,C_0X0,C_0M0 ; D ura-danjyon (kame-iwa) BYTE C_0G1,00000,C_0X1,C_0M1 ; E ura-danjyon (tower) BYTE C_4R1,00000,C_0Y0,C_1Y1 ; F ; BYTE 00000,00000,00000,00000 ; 10 : 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,C_1O0,00000 ; 8 BYTE 00000,C_1S0,C_1P1,00000 ; 9 BYTE 00000,C_1T1,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,C_1N0,C_1N1,00000 ; F ; BYTE 00000,00000,00000,00000 ; 20 : 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,C_1O0,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_2A1,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 ; 30 : 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 ; 40 MAP ; ; ; ;;;;;;;;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_1F1 ; 00 shiro BYTE C_0A0,C_0A1,C_0I0,C_0E0,C_0H0,C_0T1,C_0O1,C_1F1 ; 1 under BYTE C_0A0,C_0A1,C_0I0,C_0D0,C_0H0,C_0S0,C_0N0,C_1F1 ; 2 shisai-room BYTE C_0A0,C_0A1,C_0K0,C_0D1,C_0H0,C_0U0,C_0P0,C_1F1 ; 3 minka BYTE C_0A0,C_0A1,C_0I0,C_0D1,C_0H0,C_0U0,C_0P0,C_1F1 ; 4 chapel BYTE C_0A0,C_0A1,C_0I0,C_0E1,C_0H0,C_0S1,C_0N1,C_1F1 ; 5 shinden , sabaku BYTE C_0B0,C_0B1,C_0J0,C_0F1,C_0H0,C_0T0,C_0O0,C_1F1 ; 6 doukutsu BYTE C_0A0,C_0A1,C_0I1,C_0E1,C_0H0,C_0U1,C_0P1,C_1F1 ; 7 ura-danjyon (shinden) BYTE C_0A0,C_0A1,C_0I1,C_0E0,C_0H0,C_0T1,C_0O1,C_1F1 ; 8 ura-danjyon (mizu hiki) BYTE C_0A0,C_0A1,C_0I1,C_0E1,C_0H0,C_0V0,C_0Q0,C_1F1 ; 9 ura-danjyon (mori-shita) BYTE C_0A0,C_0A1,C_0I1,C_0E1,C_0H0,C_0V1,C_0Q1,C_1F1 ; A ura-danjyon (machi-shita) BYTE C_0A0,C_0A1,C_0K1,C_0F0,C_0H0,C_0W0,C_0R0,C_1F1 ; B ura-danjyon (ice tower) BYTE C_0A0,C_0A1,C_0I1,C_0E1,C_0H0,C_0W1,C_0R1,C_1F1 ; C ura-danjyon (numa) BYTE C_0A0,C_0A0,C_0I1,C_0G0,C_0H0,C_0X0,C_0M0,C_1F1 ; D ura-danjyon (kame-iwa) BYTE C_0A0,C_0A0,C_0I1,C_0G1,C_0H1,C_0X1,C_0M1,C_1F1 ; E ura-danjyon (tower) BYTE C_4R0,C_4R1,C_4R0,C_4R1,C_0S1,C_0Y0,C_1Y1,C_1F1 ; F ; BYTE C_1G0,C_1G1,C_1H0,C_1H1,C_1T1,C_1Q1,C_1I0,C_1X1 ; 10 ground BYTE C_1K0,C_1K1,C_1L0,C_1L1,C_0S1,C_0Y0,C_1I1,C_1Y1 ; 1 (URA) BYTE C_0A0,C_0E0,C_0I0,C_0N1,C_0S1,C_0Y1,C_2E0,C_1X1 ; 2 BYTE C_0A0,C_0E0,C_0M0,C_0Q1,C_0W0,C_1B1,C_1Y1,C_1X1 ; 3 BYTE C_0A0,C_0E0,C_0I0,C_0Q1,C_0W0,C_1B1,C_2E1,C_1X1 ; 4 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_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; 8 BYTE C_0A0,C_0E0,C_0I0,C_0N0,C_0S1,C_0Y0,C_1Y1,C_1X1 ; 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_0A0,C_4R1,C_4R0,C_4R1,C_0S1,C_0Y0,C_1Y1,C_1F1 ; 20 MAP BYTE C_0A0,C_0H1,C_0H1,C_4R1,C_0S1,C_0Y0,C_1Y1,C_1F1 ; 21 TITLE ; ; ;// 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 [CGCGDT+0,X BMI CGCG10 ; set ok ? ; ; yes STA !GNDBGC1 CGCG10 EQU $ LDA >CGCGDT+1,X BMI CGCG20 ; set ok ? ; ; yes STA !GNDBGC2 CGCG20 EQU $ LDA >CGCGDT+2,X BMI CGCG30 ; set ok ? ; ; yes STA !KOKBGC CGCG30 EQU $ LDA CGCGD1+0,X BMI CGCG40 ; set ok ? ; ; yes STA !EYOJC0 CGCG40 EQU $ LDA >CGCGD1+1,X BMI CGCG50 ; set ok ? ; ; yes STA !EYOJC1 CGCG50 EQU $ JSL >GDCGST1 JSL >GDCGST2 JSL >KOUKAST ; JSL >MSCGST1 JSL >MSCGST2 SPOJC90 EQU $ RTL ; ; ; ;************************************************************************ ;* Spacial OBJ character change (SPOJCNG) * ;************************************************************************ spoj0 EQU 001H ; reset spoj1 EQU 003H ; fire spoj2 EQU 005H ; ice spoj3 EQU 007H ; flower spoj4 EQU 009H ; thunder spoj5 EQU 00BH ; bomber spoj6 EQU 00DH ; jishin spoj7 EQU 00EH ; "GAME OVER" ; ; ;// 02.10.24 //SPOADT EQU $-1 ;// 02.10.24 // BYTE 000H,003H,000H,003H,000H,003H ; SPOPTD EQU $-1 BYTE C_2R1,C_2R1,C_2V0,C_2V0 BYTE C_2V1,C_2V1,C_2S0,C_2S0 BYTE C_2S0,C_2S0,C_2S1,C_2S1 BYTE C_2T0,C_2T0,C_2T1,C_2T1 ; SPOCGD EQU $-1 ; reset fire BYTE 00AH,0FFH,003H,0FFH ; ice flower BYTE 000H,0FFH,0FFH,0FFH ; thunder bomber BYTE 001H,0FFH,002H,0FFH ; jishin "Game over" BYTE 000H,0FFH,0FFH,0FFH ; ;// 02.10.24 //SPOADR EQU $-1 ;// 02.10.24 // BYTE 044H,046H,044H,046H,044H,046H ; ; SPOJCNG EQU $ LDX !SPOJFG BEQ SPOJC90 ; spacial OBJ set ? ; ; yes PHB PHK PLB ; (DBR) set ; LDA SPOCGD,X BMI SPOJ20 ; CG. set ? ; ; yes STA !CHITEMJC CPX #001H BNE SPOJ10 ; reset ? ; ; yes ;// 03.06.04 // LDA CHITEMST ; 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 ITMTBL6 STA ITMTBL7 ;;;;;;;; STA ITMTBL8 AND #000FFH ;;;;;;;; STA ITMTBL6 STA CGLPT3,X AND #000FFH CLC ADC #KENOBJ IDX16 REP #00010000B ; index 16bit mode LDX #001B2H ; set point LDY #00002H ; yoko kosuu JSR PLCG200 ; ken CG. set ; IDX8 SEP #00010000B ; index 8bit mode LDX CGLPT4,X AND #000FFH CLC ADC #TATEOBJ IDX16 REP #00010000B ; index 16bit mode LDX #001B8H ; set point LDY #00003H ; yoko kosuu JSR PLCG200 ; tate CG. set ; IDX8 SEP #00010000B ; index 8bit mode LDX CGLPT8,X AND #000FFH ASL A CLC ADC #PLAYCG IDX16 REP #00010000B ; index 16bit mode LDX #001E2H ; set point LDY #0000EH ; yoko kosuu JSR PLCG200 ; player CG. set - 0 ; MEM8 IDX8 SEP #00110000B ; memory 16bit mode ; INC CGRAM,X STA >CGWORK,X INC CGWORK+040H,X STA >CGWORK+050H,X STA >CGWORK+060H,X STA >CGWORK+070H,X STA >CGWORK+080H,X STA >CGWORK+090H,X STA >CGWORK+0A0H,X STA >CGWORK+0B0H,X STA >CGWORK+0C0H,X STA >CGWORK+0D0H,X STA >CGWORK+0E0H,X STA >CGWORK+0F0H,X ; LDA >CGRAM+160H,X STA >CGWORK+160H,X LDA >CGRAM+180H,X STA >CGWORK+180H,X LDA >CGRAM+1A0H,X STA >CGWORK+1A0H,X LDA >CGRAM+1F0H,X STA >CGWORK+1F0H,X INX INX CPX #00010H BNE THCG020 ; BG. CG. set end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory 16bit mode RTL ; ;// 03.06.05 // LDX #00001H ;// 03.06.05 // LDY #00016H ;// 03.06.05 // BRA THCG000 ; ; ;************************************************************************ ;* Thunder CG. change (THCGCN1) * ;************************************************************************ THCGCN1 EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX #00000H THCG120 EQU $ LDA >CGRAM+040H,X STA >CGWORK+040H,X LDA >CGRAM+050H,X STA >CGWORK+050H,X LDA >CGRAM+060H,X STA >CGWORK+060H,X LDA >CGRAM+070H,X STA >CGWORK+070H,X LDA >CGRAM+080H,X STA >CGWORK+080H,X LDA >CGRAM+090H,X STA >CGWORK+090H,X LDA >CGRAM+0A0H,X STA >CGWORK+0A0H,X LDA >CGRAM+0B0H,X STA >CGWORK+0B0H,X LDA >CGRAM+0C0H,X STA >CGWORK+0C0H,X LDA >CGRAM+0D0H,X STA >CGWORK+0D0H,X LDA >CGRAM+0E0H,X STA >CGWORK+0E0H,X LDA >CGRAM+0F0H,X STA >CGWORK+0F0H,X ; LDA #07FFFH STA >CGWORK+160H,X STA >CGWORK+180H,X STA >CGWORK+1A0H,X STA >CGWORK+1F0H,X INX INX CPX #00010H BNE THCG120 ; BG. CG. set end ? ; ; yes ;// 03.06.05 // LDX #00002H ;// 03.06.05 // LDY #00017H ;// 03.06.05 //THCG000 EQU $ ;// 03.06.05 // PHY ; (Y) push ;// 03.06.05 //; ;// 03.06.05 // LDA >CGLPT3,X ;// 03.06.05 // AND #000FFH ;// 03.06.05 // CLC ;// 03.06.05 // ADC #TOKUSYU ;// 03.06.05 // STA CHGRAM+040H,X ;// 03.06.05 // STA >CHGRAM+050H,X ;// 03.06.05 // STA >CHGRAM+060H,X ;// 03.06.05 // STA >CHGRAM+070H,X ;// 03.06.05 // STA >CHGRAM+080H,X ;// 03.06.05 // STA >CHGRAM+090H,X ;// 03.06.05 // STA >CHGRAM+0A0H,X ;// 03.06.05 // STA >CHGRAM+0B0H,X ;// 03.06.05 // STA >CHGRAM+0C0H,X ;// 03.06.05 // STA >CHGRAM+0D0H,X ;// 03.06.05 // STA >CHGRAM+0E0H,X ;// 03.06.05 // STA >CHGRAM+0F0H,X ;// 03.06.05 // INC CGWORK+000H ;// 03.06.05 //; ;// 03.06.05 // PLY ; (Y) pull ;// 03.06.05 // TYX ; (X) <-- (Y) ;// 03.06.05 // LDA >CGLPT71,X ;// 03.06.05 // CLC ;// 03.06.05 // ADC #ENMYOBJ ;// 03.06.05 // STA CHGRAM+060H,X ;// 03.06.05 // STA >CHGRAM+080H,X ;// 03.06.05 // STA >CHGRAM+0A0H,X ;// 03.06.05 // STA >CHGRAM+0F0H,X ;// 03.06.05 // INC CGRAM+000H,X STA >CGWORK+000H,X LDA >CGRAM+080H,X STA >CGWORK+080H,X LDA >CGRAM+100H,X STA >CGWORK+100H,X LDA >CGRAM+180H,X STA >CGWORK+180H,X DEX DEX BPL THCG240 ; reset end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory 16bit mode ; INC character set (M7CHST) * ;************************************************************************ M7CHST EQU $ LDA #01BH STA char B address ; LDA #10000000B STA 2115H STZ 2116H STZ 2117H ; Vram address ; IDX16 REP #00010000B ; index 16bit mode ; LDY #08000H STY char L,H address ; LDY #000000H M7CH400 EQU $ LDA [>>>> 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) >>>>> LDA #BANK GDBUF0 STA >>>> LDA #BANK GDBUF0 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 CGLPT7,X AND #00FFH ;/////// CLC ADC #DANJOBG STA CGLPT162,X ;// 02.11.28 // ADC #DANCOR ;// 02.11.28 // STA CGLPTF4,X ;/////// CLC ADC #OBJJYO STA CGLPT71,X ;/////// CLC ADC #ENMYOBJ STA CGLPT71,X ;/////// CLC ADC #ENMYOBJ STA ITMTBL6 AND #000FFH TAX LDA >CGLPT3,X AND #00FFH ;/////// CLC ADC #KENOBJ STA ITMTBL7 AND #000FFH TAX LDA >CGLPT4,X AND #00FFH ;/////// CLC ADC #TATEOBJ STA CGLPT7,X AND #00FFH ;/////// CLC ADC #CHOBJ STA CGLPT7,X AND #00FFH ;/////// CLC ;// 02.10.30 // ADC #CHITEM ADC #CHOBJ STA CGLPT7,X AND #00FFH ;/////// CLC ;// 02.10.30 // ADC #CHITEM ADC #CHOBJ STA CGLPT7,X AND #000FFH CLC ADC #CHOBJ STA ITMTBL8 AND #000FFH TAX LDA >CGLPT8,X AND #00FFH ASL A ;/////// CLC ADC #PLAYCG STA JSR CHGSUB2 PGRVCGST EQU $ MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA >ITEMR21 AND #000FFH BEQ PLCGS80 ; power grove on ? ; ; yes DEC A ASL A TAX LDA >PGCGDT,X STA >CGRAM+100H+(07DH*2) STA >CGWORK+100H+(07DH*2) PLCGS80 EQU $ MEM8 IDX8 SEP #00110000B ; INC CGRAM+102H,X STA >CGWORK+102H,X LDA CORGENE+01EH*1,Y STA >CGRAM+142H,X STA >CGWORK+142H,X LDA CORGENE+01EH*2,Y STA >CGRAM+182H,X STA >CGWORK+182H,X INY INY INX INX CPX #00020H BNE TPCGS20 ; player CG. set end ? ; ; yes ; LDY #KENOBJ-CORGENE LDX #00000H TPCGS40 EQU $ LDA CORGENE+006H*0,Y STA >CGRAM+132H,X STA >CGWORK+132H,X LDA CORGENE+006H*1,Y STA >CGRAM+172H,X STA >CGWORK+172H,X LDA CORGENE+006H*2,Y STA >CGRAM+1B2H,X STA >CGWORK+1B2H,X INY INY INX INX CPX #00006H BNE TPCGS40 ; ken CG set end ? ; ; yes ; LDY #TATEOBJ-CORGENE TPCGS60 EQU $ LDA CORGENE+008H*0,Y STA >CGRAM+132H,X STA >CGWORK+132H,X LDA CORGENE+008H*1,Y STA >CGRAM+172H,X STA >CGWORK+172H,X LDA CORGENE+008H*2,Y STA >CGRAM+1B2H,X STA >CGWORK+1B2H,X INY INY INX INX CPX #0000EH BNE TPCGS60 ; tate CG. set end ? ; ; yes ; LDY #OBJJYO-CORGENE LDX #00000H TPCGS80 EQU $ LDA CORGENE+7*2,Y STA >CGRAM+1D0H,X STA >CGWORK+1D0H,X LDA CORGENE+(7+8+7)*2,Y STA >CGRAM+1F0H,X STA >CGWORK+1F0H,X INY INY INX INX CPX #0000EH BNE TPCGS80 ; ; ; ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; (DBR) reset RTL ; ; ;/*----------------------------------------------------------------------*/ ;/* player cg set */ ;/*----------------------------------------------------------------------*/ ;PLCGSET1 EQU $ ; MEM16 ; REP #00100001B ; memory 16bit mode & CLC ;; ; LDX PLYOJC1 ; LDA >CGLPT8,X ; AND #00FFH ;;/////// CLC ; ADC #PLAYCG1 ; STA CGLPT16,X AND #00FFH ;/////// CLC ADC #BG32BIT STA CGLPT162,X ;/////// CLC ADC #DANCOR STA CGLPT162,X CLC ADC #DANCOR STA CGLPT7,X ;// 03.02.20 // AND #00FFH ;// 03.02.20 //;/////// CLC ;// 03.02.20 // ADC #TOKUSYU ;// 03.02.20 // STA CGLPT7,X AND #00FFH ;/////// CLC ADC #KOUKABG STA CGLPT75,X ;// 03.01.29 // AND #00FFH LDA !GNDBGC ASL A TAX LDA >CGLPT75,X ;/////// CLC ADC #CIJOBG STA CGLPT75,X ;// 03.04.15 //;// 03.01.29 // AND #00FFH ;// 03.04.15 // LDA !GNDBGC ;// 03.04.15 // ASL A ;// 03.04.15 // TAX ;// 03.04.15 // LDA >CGLPT75,X ;// 03.04.15 //;/////// CLC ;// 03.04.15 // ADC #CIJOBG ;// 03.04.15 // STA CGLPT73,X ;// 02,12,17 // AND #00FFH ;/////// CLC ADC #CIJOBG1 STA CGLPT73,X ;// 02,12,17 // AND #00FFH ;/////// CLC ADC #CIJOBG1 STA CGWORK+000H ;// 03.06.05 // STA >CGWORK+020H STA >CGWORK+040H ;// 03.06.05 // STA >CGWORK+060H ;// 03.06.05 // STA >CGWORK+080H ;// 03.06.05 // STA >CGWORK+0A0H ;// 03.06.05 // STA >CGWORK+0C0H ;// 03.06.05 // STA >CGWORK+0E0H ;// 03.06.05 // STA >CGWORK+100H ;// 03.06.05 // STA >CGWORK+120H ;// 03.06.05 // STA >CGWORK+140H ;// 03.06.05 // STA >CGWORK+160H ;// 03.06.05 // STA >CGWORK+180H ;// 03.06.05 // STA >CGWORK+1A0H ;// 03.06.05 // STA >CGWORK+1C0H ;// 03.06.05 // STA >CGWORK+1E0H NKCST80 EQU $ STA >CGRAM+000H ;// 03.06.05 // STA >CGRAM+020H STA >CGRAM+040H ;// 03.06.05 // STA >CGRAM+060H ;// 03.06.05 // STA >CGRAM+080H ;// 03.06.05 // STA >CGRAM+0A0H ;// 03.06.05 // STA >CGRAM+0C0H ;// 03.06.05 // STA >CGRAM+0E0H ;// 03.06.05 // STA >CGRAM+100H ;// 03.06.05 // STA >CGRAM+120H ;// 03.06.05 // STA >CGRAM+140H ;// 03.06.05 // STA >CGRAM+160H ;// 03.06.05 // STA >CGRAM+180H ;// 03.06.05 // STA >CGRAM+1A0H ;// 03.06.05 // STA >CGRAM+1C0H ;// 03.06.05 // STA >CGRAM+1E0H ; MEM8 IDX8 SEP #00110000B ; LDA #00100000B STA CGRAM+000H,X ;// 03.05.16 // STA >CGWORK+000H,X ;// 03.05.16 // TXA ;// 03.05.16 // CLC ;// 03.05.16 // ADC #020H ;// 03.05.16 // TAX ;// 03.05.16 // DEY ;// 03.05.16 // BPL NKCS080 ;// 03.05.16 //; ;// 03.05.16 // MEM8 ;// 03.05.16 // IDX8 ;// 03.05.16 // SEP #00110000B ;// 03.05.16 //; ;// 03.05.16 // LDA #00100000B ;// 03.05.16 //;// 03.04.17 // LDX NKCGDTR,X ;// 03.05.16 // STA NKCGDTG,X ;// 03.05.16 // STA NKCGDTB,X ;// 03.05.16 // STA CGRAM+000H ;// 03.05.30 // STA >CGRAM+020H ;// 03.05.30 // STA >CGRAM+040H ;// 03.05.30 // STA >CGRAM+060H ;// 03.05.30 // STA >CGRAM+080H ;// 03.05.30 // STA >CGRAM+0A0H ;// 03.05.30 // STA >CGRAM+0C0H ;// 03.05.30 // STA >CGRAM+0E0H ;// 03.05.30 // STA >CGRAM+100H ;// 03.05.30 // STA >CGRAM+120H ;// 03.05.30 // STA >CGRAM+140H ;// 03.05.30 // STA >CGRAM+160H ;// 03.05.30 // STA >CGRAM+180H ;// 03.05.30 // STA >CGRAM+1A0H ;// 03.05.30 // STA >CGRAM+1C0H ;// 03.05.30 // STA >CGRAM+1E0H ;// 03.05.30 //; ;// 03.05.30 // MEM8 ;// 03.05.30 // IDX8 ;// 03.05.30 // SEP #00110000B ;// 03.05.30 //; ;// 03.05.30 // LDA #00100000B ;// 03.05.30 // STA CGRAM+000H,X ;// 03.05.16 // TXA ;// 03.05.16 // CLC ;// 03.05.16 // ADC #020H ;// 03.05.16 // TAX ;// 03.05.16 // DEY ;// 03.05.16 // BPL NKCS180 ;// 03.05.16 //; ;// 03.05.16 // MEM8 ;// 03.05.16 // IDX8 ;// 03.05.16 // SEP #00110000B ;// 03.05.16 //; ;// 03.05.16 // LDA #00100000B ;// 03.05.16 //;// 03.04.17 // LDX NKCGDTR,X ;// 03.05.16 // STA NKCGDTG,X ;// 03.05.16 // STA NKCGDTB,X ;// 03.05.16 // STA CHGRAM,X ;CGRAM INC CHGRAM,X ;CGRAM INC