; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 (GERMAN) 1992.04.30(THU) ; ;-------------------------------------------------------------------- ; ;;;;;;;; ORG 0CC120H ORG 218000H ; ;=============================================== (zel_title) ============ GLB TITLE0,PLSELCT,PLCOPY,PLKILL,PLTORK,OPDEMO ; GLB TILBGD,TOROKUST ; GLB TILBGD1,TILBGD2,TICPBGD1 ; GLB TILRETURN,SVDTREAD ; GLB POLGNED,TRYFS10 GLB PLGNED2,TRYFS20 ;=============================================== (zel_main) ============= EXT DEBUGMD EXT VRAMCL,VRAMCL2,JSRSUB,JSRSUBL,DTSVPD,BLANKING ; EXT MD_title,MD_selct,MD_pcopy,MD_pkill,MD_ptork EXT MD_gdint,MD_djit0,MD_tdemo ;=============================================== (zel_init) ============= EXT TILIT0,TILIT1,TILIT3,TLIT100,TLIT900,TLIT820 ;=============================================== (zel_isub) ============= EXT TILBGWT0,TILBGWT1,TILBGWT2 ;=============================================== (zel_char) ============= EXT CCBFIT,OPTCBFST,WTRCBFS0 EXT CHSCHNG,CHSCHN0,CHSCHN1,CHSCHN2 EXT PLCGSET,MSGVRMS,B3CGSET,GDCGST ; EXT DANCORST,KOUKAST,TPLCGST,RGBRSET ; EXT C_1Y1,C_2V0,C_2W0 ;=============================================== (zel_vma) ============== EXT VT01,VT03,VT05,VT06,VT07,VT08,VT0A ; ;=============================================== (zel_djdt) ============= EXT ITMTBDT,ITMSTP0,ITMSTP1,ITMSTCT ;=============================================== (zel_msge0) ============ EXT MSGE_I ;=============================================== (zel_msge1) ============ EXT MS_0420,MS_0421,MS_0422,MS_0423 ;=============================================== (zel_gmap) ============= EXT MPDP200,MPDP880,HDMABF0 ;=============================================== (zel_comn) ============= EXT CGCNG1,TLFDIN0,TLFDIN1 ;=============================================== (zel_enmy2) ============ EXT ENRMCL,END3DST ;=============================================== (zel_enmy4) ============ EXT HEIS0CSL,CGFLSH ;=============================================== (zel_ending) ============ EXT TRYD ;======================================================================== ;-----< obj_poly >------------------------------------------------------- extern INITIAL_POLYGON ;------------------------------------------------------------------------ extern polygon_flag extern shading_switch extern object_size extern object_type extern rotate_angle_x extern rotate_angle_y extern center_point_x extern center_point_y extern center_point_z extern stack_pointer extern transfer_flag ;======================================================================== ; ; EXTEND MEM8 IDX8 ; ; ;+++++++++++++++++++++++++++ TITLE ++++++++++++++++++++++++++++++++++++ ;************************************************************************ ;* Title (TITLE0) * ;************************************************************************ TITLE0 EQU $ LDA JSRSUBL tlp000 EQU $ LWORD TILINT0 ; 0 : RAM initial LWORD TILINT1 ; 1 : GAMEN initial LWORD POLGNIT ; 2 : polygon init. LWORD TRYFS00 ; 3 : polygon move tlp100 EQU $ LWORD TRYFS00 ; 4 : polygon move1 LWORD TILFDIN0 ; 5 : fade-in LWORD TILWAIT ; 6 : wait LWORD TILFDIN1 ; 7 : fade-in tlp300 EQU $ LWORD TILPLAY ; 8 : play LWORD TRYFS00 ; 9 : play tlp200 EQU $ LWORD POLGNIT ; A : polygon init. LWORD TRYFS00 ; B : polygon move LWORD TRYFS00 ; C : polygon move1 LWORD TILFDIN0 ; D : fade-in LWORD TILWAIT ; E : wait LWORD TILFDIN1 ; F : fade-in ; tp1 EQU (tlp100-tlp000)/3 tp3 EQU (tlp300-tlp000)/3 tp2 EQU (tlp200-tlp000)/3 ; ; ;=============== Title initial ======================================== TILINT0 EQU $ ;?? 03.11.26 ?? LDA #10000000B ;?? 03.11.26 ?? STA !GMAPDF ;?? 03.11.26 ?? JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // STA TILIT0 ; initial-0 ;?? 03.11.26 ??; ;?? 03.11.26 ?? MEM16 ;?? 03.11.26 ?? REP #00100000B ; memory 16bit mode ;?? 03.11.26 ??; ;?? 03.11.26 ?? LDX #10000000B ;?? 03.11.26 ?? STX 2115H ;?? 03.11.26 ??; ;?? 03.11.26 ?? LDA #027F0H ;?? 03.11.26 ?? STA 2116H ;?? 03.11.26 ??; ;?? 03.11.26 ?? LDX #020H ;?? 03.11.26 ?? LDA #07FFFH ;?? 03.11.26 ??TLIT040 EQU $ ;?? 03.11.26 ?? STZ 2118H ;?? 03.11.26 ?? STA >CGWORK+120H,X ;?? 03.11.26 ?? DEX ;?? 03.11.26 ?? DEX ;?? 03.11.26 ?? BPL TLIT040 ; ;?? 03.11.26 ??; ; ;?? 03.11.26 ?? LDA #01FFEH ;?? 03.11.26 ?? STA ; ; ;=============== Title initial ======================================== TILINT1 EQU $ JSR NAMEST ; LDA JSRSUBL LWORD TLIT100 ; 00 : ram clear LWORD TLIT100 ; 01 : ram clear LWORD TLIT100 ; 02 : ram clear LWORD TLIT100 ; 03 : ram clear LWORD TLIT100 ; 04 : ram clear LWORD TLIT100 ; 05 : ram clear LWORD TLIT100 ; 06 : ram clear LWORD TLIT100 ; 07 : ram clear LWORD TILIT1 ; 08 : initial-1 ;// 03.10.18 // LWORD MSGETNP ; 09 : message buffer set LWORD CCBFIT ; 0A : change char. buffer init. set LWORD OPTCBFST ; 0B : option character buffer set ; ; ;??? 03.12.17 ???TLIT100 EQU $ ;??? 03.12.17 ??? MEM16 ;??? 03.12.17 ??? IDX16 ;??? 03.12.17 ??? REP #00110000B ; memory,index 16bit mode ;??? 03.12.17 ???; ;??? 03.12.17 ??? LDX 7E2000H,X ;??? 03.12.17 ??? STA >7E4000H,X ;??? 03.12.17 ??? STA >7E6000H,X ;??? 03.12.17 ??? STA >7E8000H,X ;??? 03.12.17 ??? STA >7EA000H,X ;??? 03.12.17 ??? STA >7EC000H,X ;??? 03.12.17 ??? STA >7EE000H,X ;??? 03.12.17 ??? STA >7F0000H,X ;??? 03.12.17 ??? STA >7F2000H,X ;??? 03.12.17 ??? STA >7F4000H,X ;??? 03.12.17 ??? STA >7F6000H,X ;??? 03.12.17 ??? STA >7F8000H,X ;??? 03.12.17 ??? STA >7FA000H,X ;??? 03.12.17 ??? STA >7FC000H,X ;??? 03.12.17 ??? STA >7FE000H,X ;??? 03.12.17 ??? DEX ;??? 03.12.17 ??? DEX ;??? 03.12.17 ??? CPX TLIT900 ;??? 03.12.17 ??? DEC BLANKING ; blanking on & H-DMA disable ;??? 03.12.17 ???;// 03.09.17 // LDA #10000000B ;??? 03.12.17 ???;// 03.09.17 // STA 2100H ;??? 03.12.17 ???;// 03.09.17 // STA VRAMCL ; Vcl ;??? 03.12.17 ???; ;??? 03.12.17 ??? LDA #00000010B ;??? 03.12.17 ??? STA 2101H ; obj size,address set ;??? 03.12.17 ??? LDA #023H ;??? 03.12.17 ??? STA !CHIKNO ;??? 03.12.17 ??? LDA #07DH ;??? 03.12.17 ??? STA !ROBJCPT ;??? 03.12.17 ??? LDA #051H ;??? 03.12.17 ??? STA !RBGCPT ;??? 03.12.17 ??? LDA #C_2V0 ;??? 03.12.17 ??? STA !OJBSPT ;??? 03.12.17 ??? JSL >CHSCHN0 ;??? 03.12.17 ??? JSL >CHSCHNG ; title character set ;??? 03.12.17 ??? LDY #C_1Y1 ;??? 03.12.17 ??? JSL >WTRCBFS0 ; ;??? 03.12.17 ??? LDA #002H ;??? 03.12.17 ??? STA >WTCHCT ;??? 03.12.17 ??? LDA #00H ;??? 03.12.17 ??? STA >WTCHCT+1 ;??? 03.12.17 ???; ;??? 03.12.17 ??? STZ CCNGFG ;??? 03.12.17 ??? LDA #01FH ;??? 03.12.17 ??? STA >CCNGCT ;??? 03.12.17 ??? LDA #000H ;??? 03.12.17 ??? STA >CCNGED ;??? 03.12.17 ??? STZ !CCNGPT ;??? 03.12.17 ???; ;??? 03.12.17 ??? INC TRYFS00 ; poly-gon move ;?? 03.11.14 ??; ;?? 03.11.14 ??;;;;;;;; JSL >CGCNG1 ; fade in ;?? 03.11.14 ??;;;;;;;; LDA >CCNGCT ;?? 03.11.14 ??;;;;;;;; BEQ TLFIN40 ; end ? ;?? 03.11.14 ??;;;;;;;;; ; no ;?? 03.11.14 ?? LDA CGCNG1 ; fade in ;?? 03.11.14 ?? LDA >CCNGCT ;?? 03.11.14 ?? BNE TLFIN100 ; end ? ;?? 03.11.14 ??; ; yes ;?? 03.11.14 ??TLFIN40 EQU $ ;?? 03.11.14 ?? STZ TRYFS00 ; poly-gon move ; LDA TLFDIN0 ; fade in LDA >CCNGCT BNE TLFI0100 ; end ? ; ; yes TLFI040 EQU $ LDA #02AH STA TRYFS00 ; poly-gon move ; LDA >CCNGCT BEQ TLFI180 ; fade-in ? ; ; yes LDA TLFDIN1 ; fade in ; ; TLFI180 EQU $ LDA TRYFS00 ; poly-gon move STZ !polygon_flag STZ !POLYCFG ; JSR MSTMOV ; ken demo move ; DEC CCNGCT LDA #00000010B STA TRYFS00 ; poly-gon move STZ !polygon_flag STZ !POLYCFG ; JSR MSTMOV ; ken demo move ; DEC ; JSL >RGBRSET ; R.G.B. reset ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDX #090H-20H-2 TILPLY10 EQU $ STZ ZEL_DATA+000H,X STA >ZEL_DATA+100H,X STA >ZEL_DATA+200H,X STA >ZEL_DATA+300H,X STA >ZEL_DATA+400H,X INX INX CPX #00100H BNE TILPLY20 ; start data set end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; ;// 03.09.26 // LDA >BUCKSUM ;// 03.09.26 // CMP #0AAH ;// 03.09.26 // BEQ TILPLY90 ; ;// 03.09.26 //; ; ;// 03.09.26 // MEM16 ;// 03.09.26 // IDX16 ;// 03.09.26 // REP #00110000B ; memory,index 16bit mode ;// 03.09.26 //; ;// 03.09.26 // STZ DTSVPT ; data save pointer set ;// 03.09.26 // TAX ;// 03.09.26 // LDA >DTSVPD,X ;// 03.09.26 // TAX ;// 03.09.26 // LDY #00000H ;// 03.09.26 // TYA ;// 03.09.26 //TILPLY40 EQU $ ;// 03.09.26 // STA >BKUP_RAM0+000H,X ;// 03.09.26 // STA >BKUP_RAM0+100H,X ;// 03.09.26 // STA >BKUP_RAM0+200H,X ;// 03.09.26 // STA >BKUP_RAM0+300H,X ;// 03.09.26 // STA >BKUP_RAM0+400H,X ;// 03.09.26 // STA >BKUP_RAM3+000H,X ;// 03.09.26 // STA >BKUP_RAM3+100H,X ;// 03.09.26 // STA >BKUP_RAM3+200H,X ;// 03.09.26 // STA >BKUP_RAM3+300H,X ;// 03.09.26 // STA >BKUP_RAM3+400H,X ;// 03.09.26 // INX ;// 03.09.26 // INX ;// 03.09.26 // INY ;// 03.09.26 // INY ;// 03.09.26 // CPY #00100H ;// 03.09.26 // BNE TILPLY40 ; erase end ? ;// 03.09.26 //; ; yes ;// 03.09.26 // MEM8 ;// 03.09.26 // IDX8 ;// 03.09.26 // SEP #00110000B ; memory,index 8bit mode TILPLY90 EQU $ LDA #MD_selct STA CHSCHN2 ; title character set ; JSR PLNITSB ; LDA #001H STA TFMODE+0 ;TRYFS SET STA TFMODE+1 STA TFMODE+2 ; LDA #TRYFS ;NO SET STA TFNAME+0 STA TFNAME+1 STA TFNAME+2 ; LDA #001H STA TFMODE+4 ;OPJI1 SET LDA #OPJI1 ;NO SET STA TFNAME+4 ; LDA #00001111B STA INITIAL_POLYGON ; JSR POLICG ;CG SET ; LDA #060H #090H ;POLYGON TIME STA CLRDT00+000H STA >CGWORK+1A0H+000H LDA >CLRDT00+002H STA >CGWORK+1A0H+002H LDA >CLRDT00+004H STA >CGWORK+1A0H+004H LDA >CLRDT00+006H STA >CGWORK+1A0H+006H LDA >CLRDT00+008H STA >CGWORK+1A0H+008H LDA >CLRDT00+00AH STA >CGWORK+1A0H+00AH LDA >CLRDT00+00CH STA >CGWORK+1A0H+00CH LDA >CLRDT00+00EH STA >CGWORK+1A0H+00EH ; MEM8 IDX8 SEP #00110000B INC JSRSUB WORD POLGNM0 WORD POLGNM1 WORD POLGNM2 WORD POLGNM3 WORD POLGNM4 WORD POLGNM5 ; ;---------------------------------------- POLGNM0 EQU $ INC PGWORK LDA PGWORK CMP #040H ;WAIT TIME BNE PLNM010 INC PGMODE ;NEXT ; PLNM010 EQU $ LDA rotate_angle_y ;KAITEN CLC ADC #POLGNAY STA rotate_angle_y ; LDA rotate_angle_x ;KAITEN CLC ADC #POLGNAX STA rotate_angle_x ; RTS ;---------------------------------------- POLGNM1 EQU $ LDA object_size CMP #002H BCS PLNM110 ; STZ object_size ;POLIW (BIG) ; INC PGMODE ;NEXT LDA #040H ;NEXT TIME STA PGWORK RTS ;-- PLNM110 EQU $ SBC #POLGNAZ STA object_size ; LDA rotate_angle_y ;KAITEN CLC ADC #POLGNAY STA rotate_angle_y ; LDA rotate_angle_x ;KAITEN CLC ADC #POLGNAX STA rotate_angle_x ; LDA object_size ;// 03.10.05 // CMP #037H CMP #0E1H BCS PLNM115 ; start key check ok ? ; ; yes LDX #tp1 STX >> CMP #071H CMP #041H BNE PLNM120 ; LDA #001H STA !SOUND0 ;// 03.09.16 // STA !SVSND0 ; PLNM120 EQU $ RTS ;---------------------------------------- POLGNM2 EQU $ DEC PGWORK BNE PLNM210 ; INC PGMODE RTS ; PLNM210 EQU $ LDA rotate_angle_y ;KAITEN CLC ADC #POLGNAY STA rotate_angle_y ; LDA rotate_angle_x ;KAITEN CLC ADC #POLGNAX STA rotate_angle_x ; RTS ;---------------------------------------- POLGNM3 EQU $ LDA rotate_angle_y CMP #0FFH-POLGNAY BCC PLNM310 ; LDA rotate_angle_x CMP #0FFH-POLGNAX BCC PLNM310 ; INC PGMODE LDA #020H ;NEXT TIME STA PGWORK RTS ; PLNM310 EQU $ LDA rotate_angle_y ;KAITEN CLC ADC #POLGNAY STA rotate_angle_y ; LDA rotate_angle_x ;KAITEN CLC ADC #POLGNAX STA rotate_angle_x ; RTS ;---------------------------------------- POLGNM4 EQU $ STZ rotate_angle_y STZ rotate_angle_x DEC PGWORK BNE PLNM410 ; INC PGMODE ; LDA #001H STA TFMODE+5 ;OPKRA SET LDA #OPKRA ;NO SET STA TFNAME+5 ; ; LDA #00010000B STA JSRSUB WORD TYSMN10 WORD TRYINIT WORD TRYMAIN ; TYSMN10 EQU $ RTS ;---------------------------------------- TRYINIT EQU $ ;INIT LDA TFNAME,X JSL >JSRSUB ;--OPENING WORD TRYFSIT WORD OPJISIT WORD OPJI1IT WORD OPKRAIT ;--ENDING WORD TSED0IT WORD TSED1IT WORD TSED2IT WORD TSED3IT ;---------------------------------------- TRYMAIN EQU $ ;MOVE LDA TFNAME,X JSL >JSRSUB ;--OPENING WORD TRYFSMV WORD OPJISMV WORD OPJI1MV WORD OPKRAMV ;--ENDING WORD TSED0MV WORD TSED1MV WORD TSED2MV WORD TSED3MV ;---------------------------------------- ;**************************************** ; TRYFS INIT * ;**************************************** TYSITPX EQU $ WORD 0FFDAH,0005FH,000E6H TYSITPY EQU $ WORD 000C8H,0FFBDH,000C8H ; TRYFSIT EQU $ TXA ASL A TAY LDA TYSITPX,Y STA TFXPSL,X LDA TYSITPX+1,Y STA TFXPSH,X ; LDA TYSITPY,Y STA TFYPSL,X LDA TYSITPY+1,Y STA TFYPSH,X ; LDA TYSM0SX,X ;SPEED SET CLC ADC TFXSPD,X STA TFXSPD,X LDA TYSM0SY,X CLC ADC TFYSPD,X STA TFYSPD,X ; INC TFMODE,X ; RTS ;**************************************** ; TRYFS MOVE * ;**************************************** ;---------------------------------------- TRYFSMV EQU $ JSR TRYFSCS ; JSR TFMVCL ; LDA PGMODE JSL >JSRSUB WORD TRYFSM0 WORD TRYFSM1 WORD TRYFSM2 WORD TRYFSM3 WORD TRYFSM4 WORD TRYFSM5 ;---------------------------------------- TYSM0SX EQU $ BYTE 001,000,-01 TYSM0SY EQU $ BYTE -01,001,-01 ; TYM0PXL EQU $ BYTE 04BH,05FH,075H TYM0PYL EQU $ BYTE 058H,030H,058H ; ; TRYFSM0 EQU $ TRYFSM1 EQU $ TRYFSM2 EQU $ TRYFSM3 EQU $ TRYFSM4 EQU $ LDA TFFRT AND #01FH BNE TYSM030 ; LDA TYSM0SX,X ;SPEED SET CLC ADC TFXSPD,X STA TFXSPD,X LDA TYSM0SY,X CLC ADC TFYSPD,X STA TFYSPD,X ; TYSM030 EQU $ ; LDA TYM0PXL,X CMP TFXPSL,X BNE TYSM010 STZ TFXSPD,X ; TYSM010 EQU $ LDA TYM0PYL,X CMP TFYPSL,X BNE TYSM020 STZ TFYSPD,X ; TYSM020 EQU $ RTS ;---------------------------------------- TRYFSM5 EQU $ STZ TFXSPD,X STZ TFYSPD,X RTS ;---------------------------------------- TRYFSCN EQU 080H ; TRYFSCD EQU $ WORD 00000H,00000H BYTE 000H+TRYFSCN,01BH,000H,002H WORD 00010H,00000H BYTE 002H+TRYFSCN,01BH,000H,002H WORD 00020H,00000H BYTE 004H+TRYFSCN,01BH,000H,002H WORD 00030H,00000H BYTE 006H+TRYFSCN,01BH,000H,002H ; WORD 00000H,00010H BYTE 020H+TRYFSCN,01BH,000H,002H WORD 00010H,00010H BYTE 022H+TRYFSCN,01BH,000H,002H WORD 00020H,00010H BYTE 024H+TRYFSCN,01BH,000H,002H WORD 00030H,00010H BYTE 026H+TRYFSCN,01BH,000H,002H ; WORD 00000H,00020H BYTE 008H+TRYFSCN,01BH,000H,002H WORD 00010H,00020H BYTE 00AH+TRYFSCN,01BH,000H,002H WORD 00020H,00020H BYTE 00CH+TRYFSCN,01BH,000H,002H WORD 00030H,00020H BYTE 00EH+TRYFSCN,01BH,000H,002H ; WORD 00000H,00030H BYTE 028H+TRYFSCN,01BH,000H,002H WORD 00010H,00030H BYTE 02AH+TRYFSCN,01BH,000H,002H WORD 00020H,00030H BYTE 02CH+TRYFSCN,01BH,000H,002H WORD 00030H,00030H BYTE 02EH+TRYFSCN,01BH,000H,002H ; TRYFSC1 EQU $ WORD 00030H,00000H BYTE 000H+TRYFSCN,05BH,000H,002H WORD 00020H,00000H BYTE 002H+TRYFSCN,05BH,000H,002H WORD 00010H,00000H BYTE 004H+TRYFSCN,05BH,000H,002H WORD 00000H,00000H BYTE 006H+TRYFSCN,05BH,000H,002H ; WORD 00030H,00010H BYTE 020H+TRYFSCN,05BH,000H,002H WORD 00020H,00010H BYTE 022H+TRYFSCN,05BH,000H,002H WORD 00010H,00010H BYTE 024H+TRYFSCN,05BH,000H,002H WORD 00000H,00010H BYTE 026H+TRYFSCN,05BH,000H,002H ; WORD 00030H,00020H BYTE 008H+TRYFSCN,05BH,000H,002H WORD 00020H,00020H BYTE 00AH+TRYFSCN,05BH,000H,002H WORD 00010H,00020H BYTE 00CH+TRYFSCN,05BH,000H,002H WORD 00000H,00020H BYTE 00EH+TRYFSCN,05BH,000H,002H ; WORD 00030H,00030H BYTE 028H+TRYFSCN,05BH,000H,002H WORD 00020H,00030H BYTE 02AH+TRYFSCN,05BH,000H,002H WORD 00010H,00030H BYTE 02CH+TRYFSCN,05BH,000H,002H WORD 00000H,00030H BYTE 02EH+TRYFSCN,05BH,000H,002H ; TRYFSCS EQU $ LDA #010H STA CHSCHN2 ; title character set ; JSR PLNITSB ; LDA #001H STA TFMODE+0 ;TRYFS SET STA TFMODE+1 STA TFMODE+2 ; LDA #TSED0 ;NO SET STA TFNAME+0 LDA #TSED1 ;NO SET STA TFNAME+1 LDA #TSED2 ;NO SET STA TFNAME+2 ; LDA #00001111B STA CHSCHN2 ; title character set ; JSR PLNITSB ; STZ object_size ; LDA #001H STA TFMODE+0 ;TRYFS SET STA TFMODE+1 STA TFMODE+2 ; LDA #TSED3 ;NO SET STA TFNAME+0 LDA #TSED3 ;NO SET STA TFNAME+1 LDA #TSED3 ;NO SET STA TFNAME+2 ; LDA #00001111B STA JSRSUB WORD PLNEDM0 ;UP WORD PLNEDM1 ;KAITEN WORD PLNEDM2 ;MINI WORD PLNEDM3 ;STOP WORD PLNEDM4 ;STOP ; ;---------------------------------------- PNDMSAX EQU 3 PNDMSAY EQU 5 PLNEDM0 EQU $ LDA object_size SEC SBC #002H STA object_size CMP #002H BCS PNDM010 STZ object_size INC PGMODE INC CGWORK+1A0H+00EH LDA #07FH STA >CGWORK+1A0H+00EH+1 INC CLRDT00+00EH STA >CGWORK+1A0H+00EH LDA >CLRDT00+00EH+1 STA >CGWORK+1A0H+00EH+1 INC JSRSUB WORD TSED0M0 ;MOVE WORD TSED0M1 WORD TSED0M2 WORD TSED0M3 WORD TSED0M4 ;---------------------------------------- TE0M0SX EQU $ BYTE -01,000,001 TE0M0SY EQU $ BYTE -01,-01,-01 ; TSED0M0 EQU $ LDA TFFRT ;X SPEED AND #007H BNE TE0M010 LDA TE0M0SX,X CLC ADC TFXSPD,X STA TFXSPD,X TE0M010 EQU $ LDA TFFRT ;Y SPEED AND #003H BNE TE0M020 LDA TE0M0SY,X CLC ADC TFYSPD,X STA TFYSPD,X TE0M020 EQU $ RTS ;---------------------------------------- TSED0M1 EQU $ STZ TFXSPD,X STZ TFYSPD,X RTS ;---------------------------------------- TYSM2S0 EQU $ BYTE -01,-01,-01 TYSM2S1 EQU $ BYTE 001,001,001 TYSM2M0 EQU $ BYTE 0EFH TYSM2M1 EQU $ BYTE 011H ; TYS2SPX EQU $ BYTE 059H,05FH,067H TYS2SPY EQU $ BYTE 074H,068H,074H ; ; TSED0M2 EQU $ ;SEACH LDA TFFRT AND #003H BNE TE0M250 ; JSR TE0M2SH ; TE0M250 EQU $ LDA TYS2SPX,X ;SEACH X CMP TFXPSL,X BNE TE0M210 STZ TFXSPD,X TE0M210 EQU $ LDA TYS2SPY,X ;SEACH Y CMP TFYPSL,X BNE TE0M230 STZ TFYSPD,X TE0M230 EQU $ RTS ;---------------------------------------- TYS3SPY EQU $ BYTE 072H,066H,072H ; TSED0M3 EQU $ TSED0M4 EQU $ LDA TFCONT ORA TFCONT+1 BNE TE0M310 LDA TYS3SPY,X STA TFYPSL,X RTS ; ; TE0M310 EQU $ LDA TFCONT SEC SBC #001H STA TFCONT LDA TFCONT+1 SBC #000H STA TFCONT+1 RTS ;---------------------------------------- TE0M2SH EQU $ LDA TYS2SPX,X ;SEACH X CMP TFXPSL,X BCC TE0M218 LDA TYSM2S1,X BRA TE0M214 TE0M218 EQU $ LDA TYSM2S0,X TE0M214 EQU $ CLC ADC TFXSPD,X STA TFXSPD,X CMP TYSM2M0 BNE TE0M212 LDA TYSM2M0 INC A BRA TE0M213 TE0M212 EQU $ CMP TYSM2M1 BNE TE0M220 LDA TYSM2M1 DEC A TE0M213 EQU $ STA TFXSPD,X ; TE0M220 EQU $ LDA TYS2SPY,X ;SEACH Y CMP TFYPSL,X BCC TE0M238 LDA TYSM2S1,X BRA TE0M234 TE0M238 EQU $ LDA TYSM2S0,X TE0M234 EQU $ CLC ADC TFYSPD,X STA TFYSPD,X CMP TYSM2M0 BNE TE0M232 LDA TYSM2M0 INC A BRA TE0M233 TE0M232 EQU $ CMP TYSM2M1 BNE TE0M240 LDA TYSM2M1 DEC A TE0M233 EQU $ STA TFYSPD,X ; TE0M240 EQU $ RTS ;---------------------------------------- ;**************************************** ; TSED3 INIT * ;**************************************** TE3ITPX EQU $ WORD 00029H,0005FH,00097H TE3ITPY EQU $ WORD 00070H,00020H,00070H ; TSED3IT EQU $ TXA ASL A TAY LDA TE3ITPX,Y STA TFXPSL,X LDA TE3ITPX+1,Y STA TFXPSH,X ; LDA TE3ITPY,Y STA TFYPSL,X LDA TE3ITPY+1,Y STA TFYPSH,X ; INC TFMODE,X ; RTS ;**************************************** ; TRYFS MOVE * ;**************************************** TE3MVSX EQU $ BYTE -01,000,001 TE3MVSY EQU $ BYTE 001,-01,001 ;---------------------------------------- TSED3MV EQU $ JSR POLICG ;CG SET JSR TRYFSECS JSR TFMVCL ; LDA JSRSUBL LWORD PSLCINT ; gamen init. clear LWORD PSLC000 ; gamen clear LWORD PSLC080 ; title BG 0 LWORD PSLC100 ; title BG 1 LWORD PSLC200 ; title BG 2 LWORD PSLC300 ; play ; ; PSLCINT EQU $ JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA INC DANCORST JSL >KOUKAST ; CG. reset LDA #000H STA !BG3BGC JSL >B3CGSET ; STZ !GETITM0 LDA #001H STA !OJBSPT LDA #023H STA !CHIKNO LDA #051H STA !RBGCPT JSL >CHSCHN0 JSL >CHSCHNG JSL >MSGVRMS ; ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; STZ DTSVPD+2,X TAX PHX ; (X) push ; LDY #00000H TYA PSLCI120 EQU $ CLC ADC >BKUP_RAM0,X INX INX INY CPY #00500H/2 BNE PSLCI120 ; ; ; PLX ; (X) pull CMP #05A5AH BEQ PSLCI200 ; check-sum ok ? ; ; no PHX ; (X) push ; LDY #00000H TYA PSLCI140 EQU $ CLC ADC >BKUP_RAM3,X INX INX INY CPY #00500H/2 BNE PSLCI140 ; ; ; PLX ; (X) pull CMP #05A5AH BNE PSLCI300 ; check-sum ok ? ; ; yes LDY #00000H PSLCI160 EQU $ LDA >BKUP_RAM3+000H,X STA >BKUP_RAM0+000H,X LDA >BKUP_RAM3+100H,X STA >BKUP_RAM0+100H,X LDA >BKUP_RAM3+200H,X STA >BKUP_RAM0+200H,X LDA >BKUP_RAM3+300H,X STA >BKUP_RAM0+300H,X LDA >BKUP_RAM3+400H,X STA >BKUP_RAM0+400H,X INX INX INY CPY #00080H BNE PSLCI160 ; change end ok ? ; ; yes PSLCI200 EQU $ INC END3DST ; "end3" data set ; ; ; ; PSLCI300 EQU $ LDY #00000H TYA PSLCI320 EQU $ STA >BKUP_RAM3+000H,X STA >BKUP_RAM0+000H,X STA >BKUP_RAM3+100H,X STA >BKUP_RAM0+100H,X STA >BKUP_RAM3+200H,X STA >BKUP_RAM0+200H,X STA >BKUP_RAM3+300H,X STA >BKUP_RAM0+300H,X STA >BKUP_RAM3+400H,X STA >BKUP_RAM0+400H,X INX INX INY CPY #00080H BNE PSLCI320 ; claer end ? ; ; yes BRA PSLCI200 ; ; ; ; MEM8 IDX8 PSLC000 EQU $ LDX #005H PSLC005 EQU $ STZ BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // STA VRAMCL2 ; VCL ; JSL >TPLCGST ; obj. CG INC DBR ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode !! ; JSR PSLBACK ; LDY #TILBGD1-TILBGD0-2 PSLC0A0 EQU $ LDA TILBGD0,Y STA !VRAMD2+4+(400H*2),Y INX INX DEY DEY BPL PSLC0A0 ; BG write end ? [ no:PSLC0A0 ] ; LDA #01103H STA [ vrflg set return ] ; ; ; PSLC100 EQU $ ;.'91/.7/.5.[fri]:: PHB ;.'91/.7/.5.[fri]:: PHK ;.'91/.7/.5.[fri]:: PLB ; PBR=>DBR ; LDA !TLRAM STA DBR ;.'91/.7/.5.[fri]::; JSR PLSLSB2 ; LDA #00001111B STA DBR ; JSL >PLSLSB ; JMP PCP110 ; ; ; ;=================================================== ; ; ; ; PLSLSB2 EQU $ PHB PHK PLB ; PBR=>DBR ; ; IDX16 REP #00010000B ; index 16bit mode ; LDX #TILBGE11-TLPL1 PLSL010 EQU $ LDA TLPL1-1,X STA !VRAMD2-1,X DEX BNE PLSL010 ; vramd set end ? ; ; yes IDX8 SEP #00010000B ; index 8bit mode ; PLB RTS ; ; ; PLSLSB EQU $ LDA DTSVPD+2,X TAX LDA >BUCKSUM,X CMP #055AAH BNE PLSL018 ; touroku on ? ; ; yes PHX ; (X) push LDX ; STZ DTSVPD+2,X STA DTSVPT ; data save pointer set ; MEM8 SEP #00100000B ; memory bit mode ; BRL PLSL410 ; PLSL075 EQU $ STZ MEMXPSH,X STA >MEMYPSH,X LDA #000H STA >MEMXPSL,X STA >MEMYPSL,X STA >MEMSTT,X ; ;--------- MAP ENMY INIT END ; PHB LDA #BANK ZEL_DATA PHA PLB ; (DBR) set ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDY #00000H LDX BKUP_RAM0+000H,X STA ZEL_DATA+000H,Y LDA >BKUP_RAM0+100H,X STA ZEL_DATA+100H,Y LDA >BKUP_RAM0+200H,X STA ZEL_DATA+200H,Y LDA >BKUP_RAM0+300H,X STA ZEL_DATA+300H,Y LDA >BKUP_RAM0+400H,X STA ZEL_DATA+400H,Y INX INX INY INY CPY #00100H BNE PLSL440 ; start data set end ? ; ; yes PLB ; (DBR) reset ; LDA #00007H STA >WTCHCT ; water char. change counter STA >EICHCT ; enemy out item char. change counter LDA #00000H STA >WTCHPT ; water char. point STA >EICHPT ; enemy out item char. point ; ;??? 04.04.08 ??? LDA #06040H LDA #07840H STA !MTRADR ; mater address set LDA #04841H STA !MTRCBF+2 LDA #0007FH STA !MTRCBF+4 LDA #0FFFFH STA !MTRCBF+6 ; mater clear buffer init. set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; ; ; LDA #080H STA !GETITM0+2 ; LDA #001H ; STA !GETITM1+1 ; ; LDA #MD_djit0 STA JSRSUBL ;.'91/.7/.5.[fri]:: LWORD PCOPC000 ; gamen clear LWORD BLANK ; gamen clear LWORD PSLC080 ; title BG 0 LWORD PCOPC100 ; gamen init. LWORD PCOPC200 ; copy 1 LWORD PCOPC300 ; copy 2 LWORD PCOPC400 ; copy 3 ; ; ;.'91/.7/.5.[fri]:: PCOPC000 EQU $ ;.'91/.7/.5.[fri]:: LDA #10000000B ;.'91/.7/.5.[fri]:: STA !GMAPDF ;.'91/.7/.5.[fri]:: STA VRAMCL2 ; VCL ;.'91/.7/.5.[fri]:: ; ;.'91/.7/.5.[fri]:: ; ;.'91/.7/.5.[fri]:: INC DBR ;// 03.10.24 //; ;// 03.10.24 //;.'91/.7/.5.[fri]:: STZ DBR ; JSR PLCPMD ; ; LDA DBR ; JSR PLCPMD2 ; ; LDA DBR ; JSR PLCPMD3 ; JMP PCP110 ; ; ; ; ;************* tenmetu ******************** ; PLCPSPDT1 EQU $ WORD 00004H,0001EH ; PCPCL EQU $ ; IDX16 MEM16 REP #00110000B ; memory,index 16bit mode ; LDX #00002H LDA #000A9H PCPCL000 EQU $ LDY #0000BH STY DTSVPD+2,X TXY TAX LDA CPNAMAD,Y TAY LDA #00006H STA BUNAME,X CLC ADC #01800H STA !VRAMD2,Y ; save name input !! CLC ADC #010H STA !VRAMD2+014H,Y INX INX INY INY DEC DTSVPD+2,X TAX PLCP305 EQU $ LDA >BUNAME,X CLC ADC #01800H STA !VRAMD2+004H,Y ; save name input !! CLC ADC #010H STA !VRAMD2+018H,Y INX INX INY INY DEC DTSVPD+2,X TAY LDX DTSVPD+2,X TAX ; JSR CPSTORE ; LDX JSRSUBL ;.'91/.7/.5.[fri]:: LWORD PKILC000 ; gamen clear LWORD BLANK ; gamen clear LWORD PSLC080 ; title BG 0 LWORD PKILC100 ; gamen init. LWORD PKILC200 ; kill 1 LWORD PKILC300 ; kill 2 ; ; ;.'91/.7/.5.[fri]:: PKILC000 EQU $ ;.'91/.7/.5.[fri]:: LDA #10000000B ;.'91/.7/.5.[fri]:: STA VRAMCL2 ; VCL ;.'91/.7/.5.[fri]:: ; ;.'91/.7/.5.[fri]:: ; ;.'91/.7/.5.[fri]:: INC DBR ;.'91/.7/.5.[fri]::; ;.'91/.7/.5.[fri]:: STZ DBR ; LDA DBR ; JSR PLKLKABG2 ; JMP PCP110 ; ; ; ; ; ; PLKLKABG EQU $ IDX16 REP #00010000B ; index 16bit mode ; LDX #TILBGE3-TILBGD3 PKIL010 EQU $ LDA TILBGD3-1,X STA !VRAMD2-1,X DEX BNE PKIL010 ; vramd set end ? ; ; yes MEM16 REP #00100000B ; memory 16bit mode ; LDX #00000H PKIL011 EQU $ STX DTSVPD+2,X TAX ; ;;; LDA #PLXDT2 ;;; STA DTSVPD+2,X TAX LDY #00000H TYA PKIL100 EQU $ STA >BKUP_RAM0+000H,X STA >BKUP_RAM0+100H,X STA >BKUP_RAM0+200H,X STA >BKUP_RAM0+300H,X STA >BKUP_RAM0+400H,X STA >BKUP_RAM3+000H,X STA >BKUP_RAM3+100H,X STA >BKUP_RAM3+200H,X STA >BKUP_RAM3+300H,X STA >BKUP_RAM3+400H,X INX INX INY INY CPY #00100H BNE PKIL100 ; erase end ? ; ; yes MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; ; PKIL380 EQU $ JSR PLCP100 PKIL385 EQU $ STZ BUNAME,X ; save name load CLC ADC #01800H STA !VRAMD2,Y CLC ADC #00010H STA !VRAMD2+(TIPL13-TIPL11),Y INX INX INY INY DEC BULFITCT,X AND #000FFH LSR A LSR A LSR A STA DTSVPD+2,X STA BUITMTBL+25,X ; IDX8 SEP #00010000B ; index 8bit mode ; PLX ; TAY DEY ; BPL SOCH000 ; LDA #0F0H STA !OAM+001H,X STA !OAM+005H,X INY SOCH000 EQU $ LDA KENDAT,Y ; chara data ken STA !OAM+002H,X CLC ADC #010H STA !OAM+006H,X ;.'91/.7/24.[WED] ; ;.'91/.7/24.[WED] LDA KENATOR,Y ; atoribuut ken ;.'91/.7/24.[WED] STA !OAM+003H,X ;.'91/.7/24.[WED] STA !OAM+007H,X PLY ; PHX TXA LSR A LSR A TAX LDA #000H STA !OAMSB+000H,X STA !OAMSB+001H,X PLA CLC ADC #008H TAX ; SHCHRSET EQU $ ;;; LDA #028H+0FBH ; shield xpos LDA (BUITMTBL+26,X ; IDX8 SEP #00010000B ; index 8bit mode ; PLX ; TAY DEY ; BPL SHCH000 ; LDA #0F0H STA !OAM+001H,X INY SHCH000 EQU $ LDA SHIELDDAT,Y ; chara data shield STA !OAM+002H,X ;.'91/.7/24.[WED] ; ;.'91/.7/24.[WED] LDA TATEATOR,Y ; atoribuut shield ;.'91/.7/24.[WED] STA !OAM+003H,X PLY ; PHX TXA LSR A LSR A TAX LDA #002H STA !OAMSB+000H,X PLA CLC ADC #004H TAX ; PLCHRSET EQU $ ;;; LDA #028H ; chara xpos LDA (BUITMTBL+27,X ;.'91/.7/24.[WED] ; ;.'91/.7/24.[WED] IDX8 ;.'91/.7/24.[WED] SEP #00010000B ; index 8bit mode ;.'91/.7/24.[WED] ; ;.'91/.7/24.[WED] TAY ;.'91/.7/24.[WED] LDA PLATOR,Y ; atoribuut head ;.'91/.7/24.[WED] PLY ;.'91/.7/24.[WED] PLX LDA PLATOR,Y ; atoribuut head STA !OAM+003H,X ORA #01000000B ; atoribuut body STA !OAM+007H,X LDA (BUDIECONT+1EH,X CMP #0FFFFH BNE SVCN0000 ; save count write ? [ no:SVCN0000 ] ; JMP SVCN080 ; SVCN0000 EQU $ ; CMP #01000 BCC DEC000 ; LDA #00009H STA JSRSUBL LWORD PTRK000 ; 0 : RAM initial LWORD PTRK070 ; 1 : BG2 set LWORD PTRK100 ; 2 : GAMEN initial LWORD PTRK200 ; 3 : play ; ; ; PTRK000 EQU $ JSL >BLANK ;.'91/.7/.5.[fri]:: LDA #10000000B ;.'91/.7/.5.[fri]:: STA VRAMCL2 ; VCL ; ;// 03.06.27 // JSL >MSGVRMS1 ; message char. VRAMD set ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; LDA #001F0H STA PSCH3 ; '91/ 6/18 [TUE] :: LDA #00000H ; '91/ 6/18 [TUE] :: STA DTSVPD+2,X STA !ITEMMD ; TAX LDY #00000H ; '91/ 6/18 [TUE] :: LDA #00000H TYA ; PTRK040 EQU $ STA >BKUP_RAM+000H,X STA >BKUP_RAM+100H,X STA >BKUP_RAM+200H,X STA >BKUP_RAM+300H,X STA >BKUP_RAM+400H,X INX INX INY INY CPY #00100H BNE PTRK040 ; erase end ? ; ; yes LDX !ITEMMD LDA #000A9H STA >BUNAME,X STA >BUNAME+2,X STA >BUNAME+4,X STA >BUNAME+6,X STA >BUNAME+8,X STA >BUNAME+10,X ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; ;.'91/.7/.5.[fri]:: INC DBR ; MEM16 IDX16 REP #00110000B ; memory,index 16bit mode ; JSR PSLBACK ; BG2 write ; LDA #0FFFFH STA !VRAMD2+4,X ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; LDA #VT01 ;// 03.10.24 // STA 0A9, ENDE -> 08A ; Line (start) MOJIDT EQU $ BYTE 006H,007H ; A (G) BYTE 0A9H,02AH,02BH,02CH,02DH,02EH,02FH,040H BYTE 041H,0A9H,0CCH,0CDH,0CEH,0A9H,0C7H,0C6H BYTE 0C8H,0A9H,064H,065H,066H,067H,068H,0A9H BYTE 000H,001H,002H,003H,004H,005H ; BYTE 00EH,00FH ; I (O) BYTE 0A9H,042H,043H,044H,045H,046H,047H,048H BYTE 049H,0A9H,0CFH,0E0H,0E1H,0A9H,0C9H,0CAH BYTE 0CBH,0A9H,069H,06AH,06BH,06CH,06DH,0A9H BYTE 008H,009H,00AH,00BH,00CH,00DH ; BYTE 026H,027H ; Q (W) BYTE 0A9H,04AH,04BH,04CH,04DH,04EH,04FH,060H BYTE 061H,0A9H,0E2H,0A9H,0A9H,0A9H,0A9H,0A9H BYTE 0A9H,0A9H,06FH,06EH,080H,081H,082H,0A9H BYTE 020H,021H,022H,023H,024H,025H ; BYTE 08AH,0A9H ; Y (de) BYTE 0A9H,062H,063H,0A9H,0BFH,084H,08AH,08AH BYTE 0A9H,0A9H,0A9H,0A9H,0BFH,084H,08AH,08AH BYTE 0A9H,0A9H,0BFH,084H,08AH,08AH,0A9H,0A9H BYTE 028H,029H,0A9H,0BFH,084H,08AH ; ; WDS3HD EQU $ WORD 001F0H,00000H,00010H,00020H,00030H,00040H WORD 00050H,00060H,00070H,00080H,00090H,000A0H WORD 000B0H,000C0H,000D0H,000E0H,000F0H,00100H WORD 00110H,00120H,00130H,00140H,00150H,00160H WORD 00170H,00180H,00190H,001A0H,001B0H,001C0H WORD 001D0H,001E0H ; WDSADT EQU $ WORD 0001H,00FFH WDSLMT EQU $ WORD 0020H,00FFH WDSRVD EQU $ WORD 0000H,001FH ; ; WKYPOS EQU $ ;;; BYTE 040H-2,050H-2,060H-2,070H-2,080H-2,090H-2 ;;; BYTE 0A0H-2,0B0H-2,0C0H-2,0D0H-2 ; BYTE 083H,093H,0A3H,0B3H ; WYSADT EQU $ BYTE 001H,0FFH WYSLMT EQU $ BYTE 004H,0FFH WYSRVD EQU $ BYTE 000H,003H ; MULTDT EQU $ WORD 00000H,00020H,00040H,00060H ; CUXPOS EQU $ BYTE 01FH,02FH,03FH,04FH,05FH,06FH ; ;WYSCPT EQU $ ; BYTE 0D8H,038H ; ; ; ==== < PLAYER TOROKU > ====================================== WDSYAD EQU $ WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H WORD 0FFFFH,0001H ; WORD 0FFFEH,0002H WORD 0FFFEH,0002H WORD 0FFFEH,0002H WORD 0FFFEH,0002H WORD 0FFFCH,0004H ; PTRK200 EQU $ LDY WDYFLG BEQ WDS010 ; TYA CMP #0CH*4+1 BEQ PTRK208 CLC ADC #04H STA WDYFLG ; PTRK208 EQU $ LDA !WDS3CX ASL A TAX ; MEM16 REP #00100000B ; Memory 16bit mode ; DEY LDA !PSCH3 ;;;; SEC CMP >WDS3HD,X BNE WDS008 ; MEM8 SEP #00100000B ; Memory 8bit mode ; LDA #0CH*4 STA WDYFLG ; LDA WDSYAD,X AND #01FFH STA PSCH3 ; WDS00E EQU $ MEM8 SEP #00100000B ; Memory 8bit mode BRA PLTK020 ; WDS010 EQU $ ; ; ------------------------------------------------------------- ; WDS012 EQU $ ;; LDA WDS3HD,X ;; STA !PSCH3 ;;; ;; MEM8 ;; SEP #00100000B ; Memory 8bit mode ; ------------------------------------------------------------- ; LDA WDXFLG BEQ WDX010 ; LDX !WDS3Y2 LDY #02H LDA !WDS3CY CMP >WKYPOS,X BNE WDX008 ; STZ WDXFLG JSR WDYSUB ;; BRA WDX010 BRA PLTK020 ; WDX008 EQU $ BMI WDX00C LDY #0FEH ; WDX00C EQU $ TYA CLC ADC WDS3CY STA WDS3CY ; WDX00E EQU $ BRA PLTK040 ; WDX010 EQU $ JSR WDYSUB ; ; ---- < LINE OAM SET > --------------------------------------- ; PLTK040 EQU $ LDX #00H ; '91/ 6/18 [TUE] :: LDY #00H TXY LDA #18H STA WKYPOS,X LDA WDS3CY STA OAM+01H,Y ;; PLX LDA #02EH STA OAM+02H,Y LDA #03CH STA OAM+03H,Y ; '91/ 6/18 [TUE] :: LDA #000H ; '91/ 6/18 [TUE] :: STA OAMSB,X STZ OAMSB,X INY INY INY INY INX CPX #01AH BNE WDOM010 ; ; ---- < CURSOLE OAM SET > ------------------------------------ ; COAMST EQU $ PHX LDX !WDWTCT LDA >CUXPOS,X STA OAM+00H,Y LDA #058H STA OAM+01H,Y PLX LDA #029H STA OAM+02H,Y LDA #00CH STA OAM+03H,Y ; '91/ 6/18 [TUE] :: LDA #000H ; '91/ 6/18 [TUE] :: STA OAMSB,X STZ OAMSB,X ; ; ; ===== < MOJI NYURYOKU > ===================================== ; TOMOJI EQU $ LDA WDYFLG ORA WDXFLG BNE TOM00E ; line moving ? ; : No LDA MULTDT,X CLC ADC !WDS3CX ; X position AND #000FFH TAX ; MEM8 SEP #00100000B ; Memory 8bit mode ; LDA >MOJIDT,X ;;;;;; CMP #05AH CMP #0BFH BEQ TOM020 ; Cursole left ? ; : No ;;;;;; CMP #044H CMP #084H BEQ TOM030 ; Cursole right ? ; : No ;;;;;; CMP #06FH CMP #08AH BEQ TOM090 ; END (ende) ? ; : No STA BUNAME,X ; ;; MEM8 ;; IDX8 ;; SEP #00110000B ; Memory,index 8bit mode ; JSR TMVRAM ; VRAMD set ; BRA TOM030 ; ; --- < NEW 1991/05/28 > ------------------------- ; TOM090 EQU $ MEM16 IDX16 REP #00110000B ; Memory,index 16bit mode ; STZ BUNAME,X CMP #000A9H BNE TOM095 ; Space ? ; : Yes ; LDA DTSVPT ; data save pointer set TAX LDA >DTSVPD,X STA BUCKSUM,X ; check-sum set LDA #0F000H STA >BUDJNTBL+106H*2,X STA >BUDJNTBL+107H*2,X ; LDA #0FFFFH STA >BUDIECONT+1EH,X ; ; LDA #ITMSTCT STA > ; ; LDA >DEBUGMD AND #000FFH CMP #00060H BEQ PITS40 ; debug mode ? ; ; yes LDA >BUNAME CMP #00001H BNE PITS40 ; debug mode ? ; ; yes ;;;;;;;; LDA #00020H ;;;;;;;; STA >BUGNDTBL+058H LDA #000F0H STA >BUDJNTBL+109H*2,X LDA #01502H STA >BUMODTBL,X LDA #00100H STA >BUMODTBL+2,X ; LDY #ITMSTP0 PITS40 EQU $ LDA ITMTBDT,Y STA >BUITMTBL,X INX INX INY INY DEC BKUP_RAM0,X INX INX INY CPY #004FEH/2 BNE PITS80 ; ; ; STA BKUP_RAM0+04FEH,X ; check-sum set ; MEM8 IDX8 SEP #00110000B ; memory,index 8bit mode ; PLB ; (DBR) reset ; ;// 03.06.27 // LDA #MD_selct ;// 03.06.27 // STA WDSADT,X CMP >WDSLMT,X BNE PLTK010 ; LDA >WDSRVD,X ; PLTK010 EQU $ MEM8 IDX8 SEP #00110000B ; Memory,index 8bit mode ; STA !WDS3CX ; ; --- < ERASE 1991/07/26 > ------------ ; ; STX MULTDT,X ; CLC ; ADC !WDS3CX ; X position ; TAX ; ; LDA >MOJIDT,X ; CMP #0FFH ; BNE PLTK018 ; Space ? ; : Yes ;;; MEM8 ;;; IDX8 ;;; SEP #00110000B ; Memory,index 8bit mode ; ; LDA WYSTOP,X ;;; CMP #019H CMP #013H BEQ PLTK03F ; Y pos limit down ? ; : No ; ; ===== [ 1991/02/26 ] ========================= ; ;; ; INC CWORK2 ; Timmer inc ; LDA CWORK2 ;; ; AND #002H ; BEQ PLTK03F ; Timmer 2 count over ? ;; : Yes ; LDA WYREPT,X ; BRA PLTK023B ; ;PLTK023A EQU $ ; LDA WYSTOP,X ; BNE PLTK023F ; Y pos limit down ? ; : Yes ; LDA #032H ;; ;PLTK023B EQU $ ; STA !WDS3CY ;; PLTK023F EQU $ LDA WYSADT-1,X CMP >WYSLMT-1,X BNE PLTK030 : Y pos limit up or down ? ; : Yes ; LDA >WYSRVD-1,X ; PLTK030 EQU $ STA !WDS3Y2 BRA PLTK038 ; 1991/10/22 ; ; STX MULTDT,X CLC ADC !WDS3CX ; X position AND #000FFH TAX ; LDA >MOJIDT,X CMP #059H BNE PLTK038 ; Space ? ; : Yes LDA ------------------------------------- ; BGXADD EQU $ WORD 00084H,00086H,00088H,0008AH,0008CH,0008EH ; MEM16 IDX16 TMVRAM EQU $ PHB PHK PLB ; PBR=>DBR ; LDA #07900H ORA !BGXADD,Y XBA STA !VRAMD2 XBA CLC ADC #00020H XBA STA !VRAMD2+06H ; LDA #00100H STA !VRAMD2+02H STA !VRAMD2+08H ; LDA >BUNAME,X ORA #01800H STA !VRAMD2+04H CLC ADC #00010H STA !VRAMD2+0AH ; MEM8 IDX8 SEP #00110000B ; Memory,index 8bit mode ; LDA #0FFH ; End code STA !VRAMD2+0CH LDA #VT01 STA DBR ; LDY #4-1 LDX #4*4-4 NAM000 EQU $ LDA #2 STA !OAMSB,Y LDA NAMEXP,Y STA !OAM,X ; x position set !! LDA #068H STA !OAM+1,X ; y position set !! LDA NAMECH,Y STA !OAM+2,X ; chara No. set !! LDA #00110010B STA !OAM+3,X ; atoribuut set !! DEX DEX DEX DEX DEY BPL NAM000 ; PLB ; DBR reset !! ; RTS ; ; ;**************************************************************** ;* OPENING DEMO * ;**************************************************************** ; OPDEMO EQU $ LDA TRYFS00 ; poly-gon move STZ !polygon_flag STZ !POLYCFG ; JSR MSTMOV ; ken demo move LDA BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #080H ;// 03.09.17 // STA 2100H ;// 03.09.17 // STA VRAMCL ; Vcl ; JSL >CHSCHN1 ; title-demo charcater set ; LDA #004H STA !GNDBGC LDA #001H STA !BG3BGC STZ !CGSTPT+1 JSL >B3CGSET ; LDA #002H STA !CGSTPT+1 JSL >GDCGST ; JSL >B3CGSET ; JSL >PLCGSET ; LDA #000H STA >CGWORK+03AH LDA #038H STA >CGWORK+03BH ; INC ; INC BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #080H ;// 03.09.17 // STA 2100H ;// 03.09.17 // STA VRAMCL ; Vcl ; ;// 03.07.25 // LDA set LDA #10000000B STA 211AH JSL >MPDP200 ; MEM16 REP #00100000B ; memory 16bit mode ; LDA #000EDH STA !CENTY LDA #00100H STA !CENTX ; LDA #00080H STA !SSCCH1 LDA #000C0H STA !SSCCV1 ; MEM8 SEP #00100000B ; memory 8bit mode ; LDA #0FFH STA !ZOOM JSR ZOOMUP ; LDA #1 STA CHSCHN2 ; title character set ; MEM16 REP #00100000B ; memory 16bit mode !! ; LDA TILBGWT0 ; gyoku-za ; MEM16 REP #00100000B ; memory 16bit mode !! ; PLA STA TILBGWT1 ; gyoku-za LDA #000H STA >CGWORK+03AH LDA #038H STA >CGWORK+03BH ; ; STZ !INITAL ; messege initial LDA #LOW MS_0421 STA MSGENOL ; LDA #HIGH MS_0421 STA MSGENOL+1 ; ; LDA #2 STA TILBGWT0 ; gyoku-za ; MEM16 REP #00100000B ; memory 16bit mode !! ; PLA STA TILBGWT1 ; rou-ya LDA #000H STA >CGWORK+03AH LDA #038H STA >CGWORK+03BH ; ; STZ !INITAL ; messege initial LDA #LOW MS_0422 STA MSGENOL ; LDA #HIGH MS_0422 STA MSGENOL+1 ; ; LDA #094H STA TILBGWT0 ; gyoku-za ; MEM16 REP #00100000B ; memory 16bit mode !! ; PLA STA TILBGWT2 ; color set ; LDX #07FH LDA #002H JSL >TILBGWT1 ; shisai-room LDA #000H STA >CGRAM+03AH STA >CGWORK+03AH LDA #038H STA >CGRAM+03BH STA >CGWORK+03BH ; STZ !INITAL ; messege initial LDA #LOW MS_0423 STA MSGENOL ; LDA #HIGH MS_0423 STA MSGENOL+1 ; ; LDA #0FFH STA MPDP880 ; mode<1> set TILRETURN EQU $ INC !GMAPDF ; JSL >TLIT820 ; character reset ; JSL >TILIT3 ; ; ;// 03.10.22 // JSL >MSGETNP ; message buffer set ; STZ ; STZ MSGE_I ; MEM16 REP #00100000B ; memory 16bit mode !! ; DEC !ITEMMD ; timer dec !! ; BNE OPD020 ; OPD010 EQU $ MEM8 SEP #00100000B ; memory 8bit mode !! ; INC SBCDT,X ;;; CMP #000EEH ;;; BCS OPD120 ;;;; ;;; LDA #000EEH ;;;OPD120 EQU $ ;;; STA !CENTY ;;;; ;;; MEM8 ;;; SEP #00100000B ; memory 8bit mode !! ;;;; OPD140 EQU $ JSR ZOOMUP ; OPD180 EQU $ RTL ; OPD190 EQU $ JSL >BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #10000000B ;// 03.09.17 // STA 2100H ; blanking on ;// 03.09.17 // STA set JSL >VRAMCL ; Vcl ; OPD195 EQU $ INC MSGE_I ; messege ;;;; JSR MSSUB ; MEM16 REP #00100000B ; memory 16bit mode !! ; LDA OMSBAD,X STA OMXAD,X STA OMYAD,X STA OMCHAD,X STA OMATAD,X STA YADD,X AND #000FFH SEC SBC !SSCCV2 STA XADD,X STA IDXDT,X TAY ; JSR OMSET ; OPD2F0 EQU $ PLX DEX DEX BPL OPD2E0 ; oam set end ? [ no:OPD240 ] ; RTL ; ; HEIX EQU $ WORD 00020H,0FFF4H ; HEIY EQU $ HEX 18,18 ; HEIMUK EQU $ HEX 01,01 ; HEICOL EQU $ BYTE 00001001B,00000111B ; GIRLXP EQU $ HEX 00,01,02,03,04,05,05,05,04,04,03,03,02,02,01,01 ; OPD300 EQU $ STZ GIRLXP,X STA HEIY,X STA HEIMUK,X STA HEICOL,X STA HEIX,X STA ENRMCL ; JSL >HEIS0CSL ; PLX DEX BPL OPD380 ; INC MSGE_I ; messege ;;;; OP3120 EQU $ LDX #0 OP3130 EQU $ LDA SISADD1,X STA SISADD2,X STA CGFLSH ; LDA HEIX2,X STA HEIY2,X STA HEIMUK2,X STA HEICOL2,X STA ENRMCL ; JSL >HEIS0CSL ; PLX DEX BPL OPD480 ; LDX GAL2AD0,X STA KAGEADD,X STA KAGEXAD,X STA SISADD3,X STA MAHCAD,X STA MAHAAD,X STA KAZUAD,X TAY JSR OMSET ; LDA DBR ; LDA MHXADD,X STA MHYADD,X STA MHCADD,X STA MHAADD,X STA MHXAD,X STA MHIDX,X TAY ; JSR OMSET ; OP43A0 EQU $ INC MSGE_I ; messege ;;;; JSR MSSUB ; MEM16 REP #00100000B ; memory 16bit mode !! ; LDA BLANKING ; blanking on & H-DMA disable ;// 03.09.17 // LDA #080H ;// 03.09.17 // STA 2100H ;// 03.09.17 // STA MPDP880 ; mode<1> set ; MEM16 REP #00100000B ; memory 16bit mode ; STZ !CENTY STZ !CENTX ; STZ !SSCCH1 STZ !SSCCV1 STZ MSGETNP ; message buffer set ; JMP TILSTART ; ; DMED40 EQU $ RTL ; ; OPBGAD EQU $ WORD OP0 WORD OP1 WORD OP2 WORD OP3 ; OPBGSZ EQU $ WORD OP1-OP0-1 WORD OP2-OP1-1 WORD OP3-OP2-1 WORD OP4-OP3-1 ; OPBGWT EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDX OPBGSZ,X STA OPBGAD,X STA MSGE_I ; messege ; MEM16 REP #00100000B ; memory 16bit mode !! ; LDA HDMABF0,X STA 4203H NOP NOP NOP NOP LDA 4217H STA HDMABF0+1,X STA 4203H NOP LDA DBR ; OM000 EQU $ LDX ZLDACH STA !OAM+100H+2,X ; chara No. set !! LDA >ZLDACH2 STA !OAM+100H+6,X ; chara No. set !! LDA >ZLDAAT STA !OAM+100H+3,X ; atoribuut set !! LDA >ZLDAAT2 STA !OAM+100H+7,X ; atoribuut set !! INC DBR ; PHY LDX TLHDPR,X STA 4360H,X STA 4370H,X DEX BPL THI010 ; MEM16 REP #00100000B ;memory 16 bit mode ; LDA #TLW2DT STA 4372H ; MEM8 SEP #00100000B ;memory 8 bit mode set ; LDA #28H ;window 2 B bus address set STA 4371H RTS ; ; ; ; ; ;**************************************************************** ;* OPENING DEMO DATA * ;**************************************************************** ; ;;;OP0 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,ED,C0,10 ;;; WORD 00000H ;;; HEX 10,F2,C0,10 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP1 EQU $ ;;; HEX 10,D2,C0,14 ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP2 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,F2,C0,06 ;;; WORD 00000H ;;; HEX 11,6D,40,0A ;;; WORD 00000H ;;; HEX 11,8D,C0,06 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP3 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,F2,C0,10 ;;; WORD 00000H ;;; HEX 11,6D,40,08 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP4 EQU $ ;;; HEX 10,CD,C0,08 ;;; WORD 00000H ;;; HEX 11,6D,40,08 ;;; WORD 00000H ;;; HEX 10,D2,C0,14 ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP5 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,ED,C0,06 ;;; WORD 00000H ;;; HEX 11,6D,40,0A ;;; WORD 00000H ;;; HEX 11,92,C0,06 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP6 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,ED,C0,12 ;;; WORD 00000H ;;; HEX 11,6E,40,08 ;;; WORD 00000H ;;; HEX 11,92,C0,06 ;;; WORD 00000H ;;; HEX 12,0E,40,08 ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP7 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,F2,C0,10 ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP8 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,ED,C0,10 ;;; WORD 00000H ;;; HEX 10,F2,C0,10 ;;; WORD 00000H ;;; HEX 11,6E,40,06 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;OP9 EQU $ ;;; HEX 10,CD,40,0A ;;; WORD 00000H ;;; HEX 10,ED,C0,08 ;;; WORD 00000H ;;; HEX 10,F2,C0,10 ;;; WORD 00000H ;;; HEX 11,6E,40,06 ;;; WORD 00000H ;;; HEX 12,0D,40,0A ;;; WORD 00000H ;;;; ;;; HEX FF ;;;; ;;;; ;------- ; OP0 EQU $ HEX 79,65,40,28 WORD 03400H+00100H HEX 79,85,40,28 WORD 03410H+00100H HEX 79,A5,00,29 WORD 03401H+00100H,03402H+00100H,03401H+00100H,03402H+00100H WORD 03401H+00100H,03402H+00100H,03401H+00100H,03402H+00100H WORD 03401H+00100H,03003H+00100H,07003H+00100H,03402H+00100H WORD 03401H+00100H,03402H+00100H,03401H+00100H,03402H+00100H WORD 03401H+00100H,03402H+00100H,03401H+00100H,03402H+00100H WORD 03401H+00100H HEX 79,C5,00,29 WORD 03411H+00100H,03412H+00100H,03411H+00100H,03412H+00100H WORD 03411H+00100H,03412H+00100H,03411H+00100H,03412H+00100H WORD 03411H+00100H,03413H+00100H,07413H+00100H,03412H+00100H WORD 03411H+00100H,03412H+00100H,03411H+00100H,03412H+00100H WORD 03411H+00100H,03412H+00100H,03411H+00100H,03412H+00100H WORD 03411H+00100H HEX 79,E5,00,29 WORD 03420H+00100H,03421H+00100H,03420H+00100H,03421H+00100H WORD 03420H+00100H,03421H+00100H,03420H+00100H,03421H+00100H WORD 03420H+00100H,03421H+00100H,03420H+00100H,03421H+00100H WORD 03420H+00100H,03421H+00100H,03420H+00100H,03421H+00100H WORD 03420H+00100H,03421H+00100H,03420H+00100H,03421H+00100H WORD 03420H+00100H HEX 7A,05,40,28 WORD 0B400H+00100H ; HEX FF ; ; OP1 EQU $ HEX 79,65,40,28 WORD 03400H+00100H HEX 79,85,00,13 WORD 03410H+00100H,0744EH+00100H,0346EH+00100H,03410H+00100H WORD 0344EH+00100H,03410H+00100H,0344CH+00100H,03410H+00100H WORD 0744EH+00100H,03449H+00100H HEX 79,8F,40,08 WORD 03410H+00100H HEX 79,94,00,0B WORD 0744EH+00100H,0346EH+00100H,03410H+00100H,0344EH+00100H WORD 03410H+00100H,0344CH+00100H HEX 79,A5,00,29 WORD 0745FH+00100H,0745EH+00100H,0347EH+00100H,0347FH+00100H WORD 0345EH+00100H,0345FH+00100H,0344DH+00100H,0745FH+00100H WORD 0745EH+00100H,0344AH+00100H,0344BH+00100H,03410H+00100H WORD 07449H+00100H,03410H+00100H,0745FH+00100H,0745EH+00100H WORD 0347EH+00100H,0347FH+00100H,0345EH+00100H,0345FH+00100H WORD 0344DH+00100H HEX 79,C5,00,29 WORD 03450H+00100H,03451H+00100H,03452H+00100H,03453H+00100H WORD 03454H+00100H,03455H+00100H,03456H+00100H,03457H+00100H WORD 03458H+00100H,03459H+00100H,0345AH+00100H,0345BH+00100H WORD 0345CH+00100H,0345DH+00100H,03450H+00100H,03451H+00100H WORD 03452H+00100H,03453H+00100H,03454H+00100H,03455H+00100H WORD 03456H+00100H HEX 79,E5,00,29 WORD 03460H+00100H,03461H+00100H,03462H+00100H,03463H+00100H WORD 03464H+00100H,03465H+00100H,03466H+00100H,03467H+00100H WORD 03468H+00100H,03469H+00100H,0346AH+00100H,0346BH+00100H WORD 0346CH+00100H,0346DH+00100H,03460H+00100H,03461H+00100H WORD 03462H+00100H,03463H+00100H,03464H+00100H,03465H+00100H WORD 03466H+00100H HEX 7A,05,00,29 WORD 03470H+00100H,03471H+00100H,03472H+00100H,03473H+00100H WORD 03474H+00100H,03475H+00100H,03476H+00100H,03477H+00100H WORD 03478H+00100H,03479H+00100H,0347AH+00100H,0347BH+00100H WORD 0347CH+00100H,0347DH+00100H,03470H+00100H,03471H+00100H WORD 03472H+00100H,03473H+00100H,03474H+00100H,03475H+00100H WORD 03476H+00100H ; HEX FF ; ; OP2 EQU $ HEX 79,65,40,28 WORD 03400H+00100H HEX 79,85,40,28 WORD 03410H+00100H HEX 79,A5,00,1D WORD 03422H+00100H,03423H+00100H,03410H+00100H,03422H+00100H WORD 03423H+00100H,03410H+00100H,03422H+00100H,03423H+00100H WORD 03410H+00100H,03422H+00100H,03423H+00100H,03410H+00100H WORD 07410H+00100H,07423H+00100H,07422H+00100H HEX 79,B4,40,06 WORD 03410H+00100H HEX 79,B8,00,03 WORD 07423H+00100H,07422H+00100H HEX 79,C5,00,29 WORD 03404H+00100H,03405H+00100H,03406H+00100H,03404H+00100H WORD 03405H+00100H,03406H+00100H,03404H+00100H,03405H+00100H WORD 03406H+00100H,03404H+00100H,03405H+00100H,03406H+00100H WORD 07406H+00100H,07405H+00100H,07404H+00100H,07410H+00100H WORD 07423H+00100H,07422H+00100H,07406H+00100H,07405H+00100H WORD 07404H+00100H HEX 79,E5,00,29 WORD 03414H+00100H,03415H+00100H,03416H+00100H,03414H+00100H WORD 03415H+00100H,03416H+00100H,03414H+00100H,03415H+00100H WORD 03416H+00100H,03414H+00100H,03415H+00100H,03416H+00100H WORD 07416H+00100H,07415H+00100H,07414H+00100H,07406H+00100H WORD 07405H+00100H,07404H+00100H,07416H+00100H,07415H+00100H WORD 07414H+00100H HEX 7A,05,00,29 WORD 03424H+00100H,03425H+00100H,03426H+00100H,03424H+00100H WORD 03425H+00100H,03426H+00100H,03424H+00100H,03425H+00100H WORD 03426H+00100H,03424H+00100H,03425H+00100H,03426H+00100H WORD 07426H+00100H,07425H+00100H,07424H+00100H,07426H+00100H WORD 07425H+00100H,07424H+00100H,07426H+00100H,07425H+00100H WORD 07424H+00100H ; HEX FF ; ; OP3 EQU $ HEX 79,65,00,29 WORD 03400H+00100H,03400H+00100H,0341BH+00100H,03430H+00100H WORD 03431H+00100H,03432H+00100H,03400H+00100H,03400H+00100H WORD 03400H+00100H,03433H+00100H,03441H+00100H,07441H+00100H WORD 07433H+00100H,07400H+00100H,07400H+00100H,07400H+00100H WORD 07432H+00100H,07431H+00100H,07430H+00100H,0741BH+00100H WORD 07400H+00100H HEX 79,85,40,1E WORD 03410H+00100H HEX 79,86,00,09 WORD 03434H+00100H,0340BH+00100H,03440H+00100H,03441H+00100H WORD 03442H+00100H HEX 79,95,00,09 WORD 07442H+00100H,07441H+00100H,07440H+00100H,0740BH+00100H WORD 07434H+00100H HEX 79,A5,00,29 WORD 03443H+00100H,03444H+00100H,03407H+00100H,03408H+00100H WORD 03409H+00100H,0340AH+00100H,03410H+00100H,0340CH+00100H WORD 0340DH+00100H,0340EH+00100H,0340FH+00100H,0740FH+00100H WORD 0740EH+00100H,0740DH+00100H,0740CH+00100H,07410H+00100H WORD 0740AH+00100H,07409H+00100H,07408H+00100H,07407H+00100H WORD 07444H+00100H HEX 79,C5,00,29 WORD 03435H+00100H,03436H+00100H,03417H+00100H,03418H+00100H WORD 03419H+00100H,0341AH+00100H,03410H+00100H,0341CH+00100H WORD 0341DH+00100H,0341EH+00100H,0341FH+00100H,0741FH+00100H WORD 0741EH+00100H,0741DH+00100H,0741CH+00100H,07410H+00100H WORD 0741AH+00100H,07419H+00100H,07418H+00100H,07417H+00100H WORD 07436H+00100H HEX 79,E5,00,29 WORD 03445H+00100H,03446H+00100H,03427H+00100H,03428H+00100H WORD 03429H+00100H,0342AH+00100H,0342BH+00100H,0342CH+00100H WORD 0342DH+00100H,0342EH+00100H,0342FH+00100H,0742FH+00100H WORD 0742EH+00100H,0742DH+00100H,0742CH+00100H,0742BH+00100H WORD 0742AH+00100H,07429H+00100H,07428H+00100H,07427H+00100H WORD 07446H+00100H HEX 7A,05,00,29 WORD 03447H+00100H,03448H+00100H,03437H+00100H,03438H+00100H WORD 03439H+00100H,0343AH+00100H,0343BH+00100H,0343CH+00100H WORD 0343DH+00100H,0343EH+00100H,0343FH+00100H,0743FH+00100H WORD 0743EH+00100H,0743DH+00100H,0743CH+00100H,0743BH+00100H WORD 0743AH+00100H,07439H+00100H,07438H+00100H,07437H+00100H WORD 07448H+00100H ; HEX FF ; OP4 EQU $ ; ; ; ;******************************************************** ;* TITLE KEN INITIAL * ;******************************************************** MSTIDX EQU 50H ; MSTCHR EQU $ HEX 00,02,20,22,04,06,08,0A,0C,0E ; MSTXPS EQU $ HEX 40,40,30,50,40,40,40,40,40,40 ; MSTYPS EQU $ WORD 00000H+10H,00010H+10H,00018H+10H,00018H+10H,00020H+10H WORD 00030H+10H,00040H+10H,00050H+10H,00060H+10H,00070H+10H ; MSTTIM EQU $ HEX 00 ; MSTINT EQU $ ;;; LDA >MSTTIM ;;; STA DBR ; LDA CGRAM+000H ;;;;;;;;; ;;;;;;;; JSL >CGFLSH ; kira kira ;;;;;;;;; ;;;;;;;; LDA >CGWORK+000H ;;;;;;;; CMP #001H ;;;;;;;; BNE MST00000 ; ;;;;;;;;; ; ;;;;;;;; LDA #000H ;;;;;;;; STA >CGWORK+000H ;;;;;;;;MST00000 EQU $ ;;;;;;;; LDA #000H ;;;;;;;; STA >CGRAM+000H ;;;;;;;; PLA ;;;;;;;; STA RGBRSET ; LDA !CGFLTM BEQ MST00005 ; flashing ? ; ; yes AND #00000011B BEQ MST00003 ; ; ; LDX