; INCLUDE zel_ram.asm ; ;------------------------------------------------------------------------ ; ; ZELDA-3 1990.03.06(TUE) ; ;------------------------------------------------------------------------ ; ORG 01F000H ; ;=============================================== (zel_char) ============= GLB CHSMAIN,BCHBST ; GLB O2CGST,O2CGST1,O2CGST2,KAGECST,KNCGSET GLB DJCGSET,B3CGSET,LTCGSET,BMCGSET GLB MSCGST1,MSCGST2,MSCGST3,SPCGST,DICGSET GLB KABCGST,DSCGST1,DSCGST2,DSCGST3,PLCGSET GLB KKCGSET ;======================================================================== ; EXTEND ; MEM8 IDX8 ; ; ; ;===================================================================== ; BCHA00 EQU 08A000H BCHA01 EQU BCHA00+0C00H BCHA02 EQU BCHA01+0C00H BCHA03 EQU BCHA02+0C00H BCHA04 EQU BCHA03+0C00H BCHA05 EQU BCHA04+0C00H BCHA06 EQU BCHA05+0C00H BCHA07 EQU BCHA06+0C00H BCHA08 EQU BCHA07+08C00H BCHA09 EQU BCHA08+0C00H BCHA0A EQU BCHA09+0C00H BCHA0B EQU BCHA0A+0C00H BCHA0C EQU BCHA0B+0C00H BCHA0D EQU BCHA0C+0C00H BCHA0E EQU BCHA0D+0C00H BCHB0E EQU BCHA0E+0600H BCHA0F EQU BCHB0E+0600H BCHB0F EQU BCHA0F+0600H BCHA10 EQU BCHB0F+0600H BCHB10 EQU BCHA10+0600H BCHA11 EQU BCHB10+0600H BCHB11 EQU BCHA11+0600H BCHA12 EQU BCHB11+0600H BCHB12 EQU BCHA12+0600H BCHA13 EQU BCHB12+08600H BCHB13 EQU BCHA13+0600H BCHA14 EQU BCHB13+0600H BCHB14 EQU BCHA14+0600H BCHA15 EQU BCHB14+0600H BCHB15 EQU BCHA15+0600H BCHA16 EQU BCHB15+0600H BCHB16 EQU BCHA16+0600H BCHA17 EQU BCHB16+0600H BCHB17 EQU BCHA17+0600H BCHA18 EQU BCHB17+0600H BCHB18 EQU BCHA18+0600H BCHA19 EQU BCHB18+0600H BCHB19 EQU BCHA19+0600H BCHA1A EQU BCHB19+0600H BCHB1A EQU BCHA1A+0600H BCHA1B EQU BCHB1A+0600H BCHB1B EQU BCHA1B+0600H BCHA1C EQU BCHB1B+0600H BCHB1C EQU BCHA1C+0600H BCHA1D EQU BCHB1C+0600H BCHB1D EQU BCHA1D+0600H BCHA1E EQU BCHB1D+08600H BCHB1E EQU BCHA1E+0600H BCHA1F EQU BCHB1E+0600H BCHB1F EQU BCHA1F+0600H BCHA20 EQU BCHB1F+0600H BCHB20 EQU BCHA20+0600H BCHA21 EQU BCHB20+0600H BCHB21 EQU BCHA21+0600H ; BCHA22 EQU BCHB21+0600H ;obj 2bit data BCHA23 EQU BCHA22+0800H ;BG3 2bit data BCHA24 EQU BCHA23+02800H ;7 mode data ; ; ; BCADB EQU $ BYTE BANK BCHA00,BANK BCHA01,BANK BCHA02,BANK BCHA03 BYTE BANK BCHA04,BANK BCHA05,BANK BCHA06,BANK BCHA07 BYTE BANK BCHA08,BANK BCHA09,BANK BCHA0A,BANK BCHA0B BYTE BANK BCHA0C,BANK BCHA0D BYTE BANK BCHA0E,BANK BCHB0E,BANK BCHA0F,BANK BCHB0F BYTE BANK BCHA10,BANK BCHB10,BANK BCHA11,BANK BCHB11 BYTE BANK BCHA12,BANK BCHB12,BANK BCHA13,BANK BCHB13 BYTE BANK BCHA14,BANK BCHB14,BANK BCHA15,BANK BCHB15 BYTE BANK BCHA16,BANK BCHB16,BANK BCHA17,BANK BCHB17 BYTE BANK BCHA18,BANK BCHB18,BANK BCHA19,BANK BCHB19 BYTE BANK BCHA1A,BANK BCHB1A,BANK BCHA1B,BANK BCHB1B BYTE BANK BCHA1C,BANK BCHB1C,BANK BCHA1D,BANK BCHB1D BYTE BANK BCHA1E,BANK BCHB1E,BANK BCHA1F,BANK BCHB1F BYTE BANK BCHA20,BANK BCHB20,BANK BCHA21,BANK BCHB21 MD7B EQU $ BYTE BANK BCHA24 OBDB EQU $ BYTE BANK BCHA22 BBDB EQU $ BYTE BANK BCHA23 ; BCADH EQU $ BYTE HIGH BCHA00,HIGH BCHA01,HIGH BCHA02,HIGH BCHA03 BYTE HIGH BCHA04,HIGH BCHA05,HIGH BCHA06,HIGH BCHA07 BYTE HIGH BCHA08,HIGH BCHA09,HIGH BCHA0A,HIGH BCHA0B BYTE HIGH BCHA0C,HIGH BCHA0D BYTE HIGH BCHA0E,HIGH BCHB0E,HIGH BCHA0F,HIGH BCHB0F BYTE HIGH BCHA10,HIGH BCHB10,HIGH BCHA11,HIGH BCHB11 BYTE HIGH BCHA12,HIGH BCHB12,HIGH BCHA13,HIGH BCHB13 BYTE HIGH BCHA14,HIGH BCHB14,HIGH BCHA15,HIGH BCHB15 BYTE HIGH BCHA16,HIGH BCHB16,HIGH BCHA17,HIGH BCHB17 BYTE HIGH BCHA18,HIGH BCHB18,HIGH BCHA19,HIGH BCHB19 BYTE HIGH BCHA1A,HIGH BCHB1A,HIGH BCHA1B,HIGH BCHB1B BYTE HIGH BCHA1C,HIGH BCHB1C,HIGH BCHA1D,HIGH BCHB1D BYTE HIGH BCHA1E,HIGH BCHB1E,HIGH BCHA1F,HIGH BCHB1F BYTE HIGH BCHA20,HIGH BCHB20,HIGH BCHA21,HIGH BCHB21 MD7H EQU $ BYTE HIGH BCHA24 OBDH EQU $ BYTE HIGH BCHA22 BBDH EQU $ BYTE HIGH BCHA23 ; BCADL EQU $ BYTE LOW BCHA00,LOW BCHA01,LOW BCHA02,LOW BCHA03 BYTE LOW BCHA04,LOW BCHA05,LOW BCHA06,LOW BCHA07 BYTE LOW BCHA08,LOW BCHA09,LOW BCHA0A,LOW BCHA0B BYTE LOW BCHA0C,LOW BCHA0D BYTE LOW BCHA0E,LOW BCHB0E,LOW BCHA0F,LOW BCHB0F BYTE LOW BCHA10,LOW BCHB10,LOW BCHA11,LOW BCHB11 BYTE LOW BCHA12,LOW BCHB12,LOW BCHA13,LOW BCHB13 BYTE LOW BCHA14,LOW BCHB14,LOW BCHA15,LOW BCHB15 BYTE LOW BCHA16,LOW BCHB16,LOW BCHA17,LOW BCHB17 BYTE LOW BCHA18,LOW BCHB18,LOW BCHA19,LOW BCHB19 BYTE LOW BCHA1A,LOW BCHB1A,LOW BCHA1B,LOW BCHB1B BYTE LOW BCHA1C,LOW BCHB1C,LOW BCHA1D,LOW BCHB1D BYTE LOW BCHA1E,LOW BCHB1E,LOW BCHA1F,LOW BCHB1F BYTE LOW BCHA20,LOW BCHB20,LOW BCHA21,LOW BCHB21 MD7L EQU $ BYTE LOW BCHA24 OBDL EQU $ BYTE LOW BCHA22 BBDL EQU $ BYTE LOW BCHA23 ; ; ; C_A0 EQU 016H C_A1 EQU 017H C_B0 EQU 018H C_B1 EQU 019H C_C0 EQU 01AH C_C1 EQU 01BH C_D0 EQU 01CH C_D1 EQU 01DH C_E0 EQU 01EH C_E1 EQU 01FH C_F0 EQU 020H C_F1 EQU 021H C_G0 EQU 022H C_G1 EQU 023H C_H0 EQU 024H C_H1 EQU 025H C_I0 EQU 026H C_I1 EQU 027H C_J0 EQU 028H C_J1 EQU 029H C_K0 EQU 02AH C_K1 EQU 02BH C_L0 EQU 02CH C_L1 EQU 02DH C_M0 EQU 02EH C_M1 EQU 02FH C_N0 EQU 030H C_N1 EQU 031H C_O0 EQU 032H C_O1 EQU 033H C_P0 EQU 034H C_P1 EQU 035H ; C__Q EQU 014H ;player C__R EQU 014H C__S EQU 000H C__T EQU 001H C__U EQU 002H C__V EQU 003H C__W EQU 004H C__X EQU 005H C__Y EQU 006H C__Z EQU 007H C_1A EQU 008H C_1B EQU 009H C_1C EQU 00AH C_1D EQU 00BH C_1E EQU 00CH C_1F EQU 00DH ; OBJ. ; C_1G EQU 00CH C_1H EQU 00DH ; mode-7 ; C1I0 EQU 00EH C1I1 EQU 00FH C1J0 EQU 010H C1J1 EQU 011H C1K0 EQU 012H C1K1 EQU 013H C1L0 EQU 014H C1L1 EQU 015H ; BG. ; C_1M EQU 022H ; BG. OBJ. char ; C_1N EQU 023H C_1O EQU 024H C_1P EQU 025H C_1Q EQU 026H C_1R EQU 027H ; BG.3 char ; ; ;<<<<<< OBJ >>>>>>> OBCHDAT EQU $ BYTE C__S,C__W,C__Z ; 0 ground BYTE C__S,C__Y,C__T ; 1 danjon BYTE C__S,C__W,C__Z ; 2 BYTE C__S,C__W,C__Z ; 3 BYTE C__S,C__W,C__Z ; 4 BYTE C__S,C__W,C__Z ; 5 BYTE C__S,C__W,C__Z ; 6 BYTE C__S,C__W,C__Z ; 7 BYTE C__S,C__W,C__Z ; 8 BYTE C__S,C__W,C__Z ; 9 BYTE C__S,C__W,C__Z ; A BYTE C__S,C__W,C__Z ; B BYTE C__S,C__W,C__Z ; C BYTE C__S,C__W,C__Z ; D BYTE C__S,C__W,C__Z ; E BYTE C__S,C__W,C__Z ; F BYTE C__S,C__W,C__Z ; 10 BYTE C__S,C__W,C__Z ; 11 ; BGCHDAT EQU $ ; <<<<<< BG >>>>>>>> BYTE C_I0,C_I1,C_J0,C_J0,C1I0,C1J1,C1J0,C1J1 ; 0 ground BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 1 danjyon BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 2 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 3 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 4 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 5 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 6 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 7 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 8 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 9 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; A BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; B BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; C BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; D BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; E BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; F BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 10 BYTE C_A0,C_A1,C_D0,C_G0,C1I0,C1J1,C1K0,C1K1 ; 11 ; ; ; ;************************************************************************ ;* Block char. buffer set (BCHBST) * ;************************************************************************ BCBPTD EQU $ ;;;; WORD 00000H,000C0H,00100H,00140H WORD 00018H*00H,00018H*40H,00018H*42H,00018H*46H ; ; BCHBST EQU $ PHB PHK PLB ; (DBR) push ; MEM16 REP #00100000B ; memory 16bit mode IDX8 SEP #00010000B ; index 8bit mode ; LDA >>>>> STZ 2116H ;Low LDA #048H STA 2117H ;vram addres High (4800H) ; LDX #02H LDA !CHARBK ASL A ADC !CHARBK TAY CHM0050 EQU $ LDA OBCHDAT,Y STA >>>>> STZ 2116H ;Low LDA #040H STA 2117H ;vram addres High (4000H) ; JSR CHSET1 ; ;<<<<< BG,OBJ character set >>>>> STZ 2116H LDA #04CH STA 2117H ; Vram addres set (04E00H) LDX #C_1E LDA BCADL,X STA >>>> ; STZ 2116H ;Low LDA #070H STA 2117H ;vram addres High (7000H) ; LDA BBDL STA >>>> normal & 7mode ; ;;;;;;;; LDA #10000000B ;addres inc mode set ;;;;;;;; STA 2115H ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #02000H STA 2116H ; vram addres (2000H) ; LDX #00007H LDA !CHIKNO ASL A ASL A ASL A TAY ; MEM8 SEP #00100000B ; memory 8bit mode CHM0100 EQU $ LDA BGCHDAT,Y STA CGLPT4,X AND #00FFH CLC ADC #OBJ2BIT STA CGLPT4,X AND #00FFH CLC ADC #OBJ2BIT STA CGLPT3,X AND #00FFH CLC ADC #KENOBJ STA CGLPT7,X AND #00FFH CLC ADC #DANJOBG STA CGLPT16,X AND #00FFH CLC ADC #BG32BIT STA CGLPT24,X ; AND #00FFH ; CLC ; ADC #BG32BIT+020H ; STA CGLPT4,X AND #00FFH CLC ADC #RODOOBJ STA CGLPT7,X AND #00FFH CLC ADC #ENMYOBJ STA CGLPT7,X AND #00FFH CLC ADC #ENMYOBJ STA CGLPT7,X AND #00FFH CLC ADC #ENMYOBJ STA CGLPT7,X AND #00FFH CLC ADC #TOKUOBJ STA CGLPT73,X AND #00FFH CLC ADC #DANBSBG STA CGLPT7,X AND #00FFH CLC ADC #KABEBG STA CGLPT7,X AND #00FFH CLC ADC #SOUSBG STA CGLPT7,X AND #00FFH CLC ADC #SOUSBG STA CGLPT7,X AND #00FFH CLC ADC #SOUSBG STA CGLPTC,X AND #00FFH CLC ADC #PLAYCG STA CGLPT7,X AND #00FFH CLC ADC #CIJOBG STA CGLPT7,X AND #00FFH CLC ADC #KOUKABG STA