extend ;----------------------------------------------------- include ../join/rp5c77 include ../join/buffer.def include ../join/rp5a22 include ../join/work.def include ../join/label.def include ../join/object.def ;----------------------------------------------------- glb Staff_roll_A,Staff_roll_B ; ext Y_set ;---------------------------------------------------- Display_timer equ 1a00h ;--------------------------------- Counter_cmp equ 1a02h End_cmp equ 1a06h Erase_end_counter equ 1a08h Obj_check_flag equ 1a0ah Move_limit_cmp equ 1a0ch Move_counter equ 1a0eh Start_counter equ 1a10h Pack_end_flag equ 1a12h ;---------------------------------- Name_counter_cmp equ 1a14h Name_End_cmp equ 1a1ah Name_move_limit_cmp equ 1a20h Name_Move_counter equ 1a26h Name_Start_counter equ 1a2ch Person_cmp equ 1a32h Person_end_flag equ 1a38h Name_counter_cmp2 equ 1a3eh Person_counter equ 1a40h NameErase_counter equ 1a42h Position_cmp equ 1a52h Start_position equ 1a54h All_end_set equ 1a56h ; Width_add equ 1a76h No_jmp_flag equ 1a94h Name__acceleration equ 1ab2h Jump_name_set_flag equ 1ab4h ;----------------------------------- oamdat equ 0h msbdat equ 2h color_set equ 4h ; bank83 sect rel ;(PBR=83) ;****************************************************** ; Ａ画面用文字セット ;****************************************************** Staff_roll_A equ $ phb phk plb ; mem16 idx16 lda ending_pattern and #0002 beq owari_roll_A lda ending_counter beq owari_roll_A ; lda #0200h sta >>>>>>>>>>>>>>> lda ending_counter cmp #1000h bne Move_set ;<<<<<<<<<<<<<<<<< イニシャルセット >>>>>>>>>>>>>>>>> JSR Executive_position_set JSR Name_set jmp owari_display ;<<<<<<<<<<<<<<<<< 移動チェック >>>>>>>>>>>>>>>>>>>>> Move_set lda Pack_end_flag cmp #0002 beq End_name_set cmp #0001 beq Set_move_name ;<<<<<<<<<<<<<<<<< 役職名移動セット >>>>>>>>>>>>>>>>> JSR Executive_position_move jmp owari_display ;<<<<<<<<<<<<<<<< 名前表示セット >>>>>>>>>>>>>>>>>>>> Set_move_name JSR Name_move jmp owari_display ;<<<<<<<<<<<<<<< 最終の名前特別処理 >>>>>>>>>>>>>>>>>> End_name_set lda ending_pattern cmp #000eh bne Display_timeset ; lda All_end_set bne Display_timeset ; JSR Jump_name_set jmp owari_display ;<<<<<<<<<<<<<<< 文字表示タイマー >>>>>>>>>>>>>>>>>>>>> Display_timeset inc Display_timer lda Display_timer cmp #0060h bcc owari_display cmp #0061h beq owari_pattern ;<<<<<<<<<<<<<<<<< 文字消滅セット_2 >>>>>>>>>>>>>>>>>> JSR Erase_Executive_position JSR Erase_name_set jmp owari_display ;<<<<<<<<<<<<<<<< 終わりの処理 >>>>>>>>>>>>>>>>>>>>>> owari_pattern lda #0040h sta ending_counter owari_display rts ;****************************************************** ; サブルーチン ;****************************************************** ; ;<<<<<<<<<<<<<<<<<< 役職名のセット >>>>>>>>>>>>>>>>>>> Executive_position_set ;---------(ＯＢＪ数コンプセット)------ mem16 idx16 ldx ending_pattern lda Executive_position_counter,x sta Counter_cmp clc adc #0002 sta Counter_cmp+2 lda #0004 sta Move_limit_cmp ;--------------(ＭＳＢセット)------- ldy #0 lda #05555h loop_msb sta (color_buffer+180h,x sta [>>>>>>>>>>>>>>>>> Executive_position_move ;--------------(移動セット)---------------- mem8 sep #00100000b ldy Start_counter loop_move_set lda (>>>>>>>>>>>>>>>>>>>>> Erase_Executive_position ;-----------(処理を止めるカウンタチェック)------- mem16 lda Erase_end_counter cmp #0040h beq End_erase mem8 sep #00100000b ;---------(移動セット)----------- stz Obj_check_flag ldy Start_counter loop_erase_set lda (>>>>>>>>>>>>>>>>>> Name_set equ $ ;------(ネーム数コンプ,ループコンプ,スタートアドレス)--- mem16 idx16 lda #0058h sta Name_move_limit_cmp lda #0050h sta Name_Start_counter ; ldx ending_pattern lda Select_Name_counter,x tax ; lda !0,x sta Name_counter_cmp sta Name_Start_counter+2 clc adc #0008 sta Name_move_limit_cmp+2 ; lda !2,x sta Name_counter_cmp+2 sta Name_Start_counter+4 clc adc #0008 sta Name_move_limit_cmp+4 ; lda !4,x sta Name_counter_cmp+4 clc adc #0002 sta Name_counter_cmp2 ;------(文字ストップ位置)---------- ldx ending_pattern lda Name_end_data,x sta Name_End_cmp sta Name_End_cmp+2 sta Name_End_cmp+4 ;-------(人数セット)------------- lda Select_peson_set,x sta Person_cmp lda #0fc00h sta Name__acceleration ;-------(キャラクタデーターセット)--------- ldx ending_pattern ldy #0052h lda Name_data,x tax loop_1person JSR Name_character_set cpy Name_counter_cmp2 bne loop_1person ;------(スタートポジションセット)----------- ldx ending_pattern lda Name_Start_position,x sta Start_position ldx #0 loop_position_1 lda Name_counter_cmp,x sta Position_cmp ; lda Name_Start_counter,x tay lda Start_position loop_position2 JSR Set_name_position cpy Position_cmp bne loop_position2 sec sbc #1800h clc adc #0010h sta Start_position inx inx cpx Person_cmp bne loop_position_1 rts ;<<<<<<<<<<<<<<<<<<< 名前を動かす >>>>>>>>>>>>>>>>>> Name_move equ $ mem16 ldx #0 loop_name_sub JSR Move_name_sub inx inx cpx Person_cmp bne loop_name_sub ;----(紺野さんの名前セット)-------- lda Person_end_flag lda ending_pattern cmp #000eh bne Ceck_person lda Person_end_flag beq Ceck_person JSR Set_konno ;-------(人数チェック)----------- Ceck_person lda Person_counter cmp Person_cmp bne owari_name_sub lda #0002 sta Pack_end_flag owari_name_sub rts ;<<<<<<<<<<<<<<<< 名前を動かすルーチン >>>>>>>>>>>>> Move_name_sub equ $ mem16 ;-------(処理を辞めるチェック)--------- lda Person_end_flag,x bne End_move_1 ;-----------(移動セット)---------------- lda Name_Start_counter,x tay loop_move_set1 mem8 sep #00100000b lda (>>>>>>>>>>>>>>>>>>>>> Erase_name_set equ $ lda NameErase_counter cmp #0040h beq End_erase_1 mem8 sep #00100000b ; ldy #0050h loop_erase_set1 JSR NAME_MOVE cpy Name_counter_cmp+4 bne loop_erase_set1 ; mem16 rep #00100000b inc NameErase_counter End_erase_1 rts ; NAME_MOVE equ $ mem8 lda (>>>>>>>>>>>>>>>> Set_konno mem8 sep #00100000b ldy #0058h lda (>>>>>>>>>>>>>> Jump_name_set equ $ ;-------------(加速度セット)-------------- ldx #0 mem16 rep #00100000b lda Name__acceleration cmp #0400h beq max_speed_1 Set_kasoku_1 clc adc #0080h sta Name__acceleration ;---------------(移動セット)-------------- max_speed_1 ldy #00c8h loop_jmp lda No_jmp_flag,x beq jump_set JSR Y_set JSR Y_set cpx #001ch bne No_jump_set inc All_end_set jmp No_jump_set jump_set JSR Set_one_jmp No_jump_set inx inx cpx #001eh bne loop_jmp mem16 rep #00100000b rts ; Select_Width_jmp DW 0072h,00e4h,0156h,01c8h DW 0239h,02abh,031dh,038fh DW 0401h,0472h,04e4h,0556h DW 05c8h,0639h,06abh Set_one_jmp equ $ ;--------------(移動サブルーチン)------------- mem8 sep #00100000b lda Width_add,x ;横方向移動量セット clc adc Select_Width_jmp,x sta Width_add,x lda Select_Width_jmp+1,x adc #0 sta Width_add+1,x ; iny lda (>>>>>>>>>>>>>>>>>>>> OBJ_ERASE equ $ mem16 idx16 rep #00110000b phy tya and #000ch ;何個目のオブジェチェック lsr a lsr a tax ; tya ;何個目のMSBチェック lsr a lsr a lsr a lsr a tay ; mem8 sep #00100000b lda (>>>>>>>>>>>>>>>>>>> ; Executive_position_data ;キャラクターデーター DW Executive_produser,Produser DW Programmer,Designer,Composer DW Illustrator,Editor,Director Executive_produser DW 087bh,086eh,086ch,087eh,086dh DW 0878h,087bh,0879h,088fh,086eh DW 087fh,0872h,087dh,087eh,086ch DW 086eh,0881h,086eh ; Produser DW 087bh,086eh,086ch,087eh,086dh DW 0878h,087bh,0879h ; Programmer DW 087ch,087bh,086eh,0876h,0876h DW 086ah,087bh,0870h,0878h,087bh DW 0879h ; Designer DW 087ch,087bh,086eh,0877h,0870h DW 0872h,087ch,086eh,086dh,0885h DW 0870h,0885h,086ch ; Composer DW 087ch,087bh,086eh,087ch,0878h DW 0879h,0876h,0878h,086ch,088fh DW 086dh,0877h,087eh,0878h,087ch ; Illustrator DW 087ch,087bh,0878h,087dh,086ah DW 087bh,087dh,087ch,087eh,0875h DW 0875h,0872h ; Editor DW 087bh,0878h,087dh,0872h,086dh DW 086eh,088fh,0875h,086ah,087eh DW 0877h,086ah,0876h ; Director DW 087ch,087bh,0878h,087dh,086ch DW 086eh,087bh,0872h,086dh ; Executive_position_counter ;obj数*04h DW 0048h,0020h,002ch,0034h,003ch DW 0030h,0034h,0024h ; Executive_position_end ;ストップポジション DW 0098h,0048h,0060h,0070h,0080h DW 0068h,0070h,0050h ; Executive_position_Start_position ;スタートポジション DW 80f8h,10f8h,80f8h,10f8h,80f8h DW 10f8h,80f8h,10f8h ; ;<<<<<<<<<<<<<<<<<<< 名前データー >>>>>>>>>>>>>>>>>>>>>>>> ; Name_data DW President_name,Producer_name DW Programmer_name,Designer_name DW Composer_name,Illustrator_name DW Editor_name,Director_name ; President_name DW 0aaeh,0ab0h,0ac2h,0abch,0ac4h ;社長 DW 0aaeh,0ab0h,0a8fh,0ad0h,0aa0h DW 0ab8h,0aa0h,0ac8h,0aa4h,0aaeh DW 0ab0h ; Producer_name DW 0ac4h,0aaeh,0ab0h,0aach,0aa8h ;宮本さん DW 0ac2h,0ac8h,0a8fh,0ab8h,0ab0h DW 0ad0h,0aa0h,0ab8h,0abch,0ac6h DW 0abch ; Programmer_name DW 0ab4h,0aa8h,0abah,0ab2h,0ab0h ;自分 DW 0a8fh,0ad0h,0aa0h,0ab8h,0aa0h DW 0ab8h,0abch,0ac6h,0abch ; DW 0aaeh,0aa0h,0ab2h,0ab0h,0ab8h ;矢島さん DW 0aa8h,0a8fh,0ad0h,0aa0h,0ab2h DW 0ab0h,0ab8h,0aa0h ; DW 0ab8h,0aa0h,0ac4h,0aa0h,0ac6h ;木村さん DW 0abch,0a8fh,0ab4h,0ab0h,0ab8h DW 0ac8h,0ac2h,0aa0h ; Designer_name DW 0abah,0aa0h,0abch,0ab4h,0ab0h ;森さん DW 0a8fh,0ab8h,0abch,0ac2h,0ab0h ; DW 0ac6h,0aa0h,0aa6h,0aa0h,0ac4h ;杉山さん DW 0aaeh,0ab0h,0a8fh,0ac4h,0ac8h DW 0aach,0ab0h,0ad0h,0aa0h,0ab8h DW 0aa0h ; Composer_name DW 0ac6h,0aa0h,0ac2h,0abch,0a8fh ;坂東さん DW 0aa2h,0aa0h,0abah,0aa6h,0abch ; DW 0ac4h,0abch,0ad0h,0abch,0a8fh ;岡さん DW 0abch,0ab4h,0aa0h ; Illustrator_name DW 0ad0h,0abch,0ac4h,0aaeh,0ab0h ;小田部さん DW 0aa0h,0ab4h,0ab0h,0a8fh,0ab4h DW 0abch,0ab0h,0ad2h,0ac8h,0ab8h DW 0ab0h ; DW 0ab8h,0ab0h,0aa8h,0a8fh,0ad0h ;吉村さん DW 0abch,0ac4h,0aaeh,0ab0h,0ab8h DW 0ac8h,0ac2h,0aa0h ; DW 0ad0h,0abch,0ab0h,0aa4h,0aaeh ;;小泉さん DW 0ab0h,0a8fh,0ab4h,0abch,0ac6h DW 0aa0h,0aa2h,0aa8h ; Editor_name DW 0aa0h,0ac6h,0ac4h,0ac8h,0ac4h,0aaeh ;手島さん DW 0ab0h,0a8fh,0ac6h,0aa8h,0ab2h DW 0ab0h,0ab8h,0aa0h ; Director_name DW 0abch,0aaeh,0ab0h,0aa6h,0aa8h,0ac0h ;紺野さん DW 0ac8h,0ab0h,0a8fh,0ab4h,0abch DW 0abah,0abah,0abch ; DW 0ac6h,0aa0h,0aa6h,0aa0h,0ac4h ;杉山さん DW 0aaeh,0ab0h,0a8fh,0ac4h,0ac8h DW 0aach,0ab0h,0ad0h,0aa0h,0ab8h DW 0aa0h Select_Name_counter DW Name_counter1,Name_counter1,Name_counter3 DW Name_counter4,Name_counter5,Name_counter6 DW Name_counter7,Name_counter8 Name_counter1 DW 00d0h,00d0h,00d0h ;１つのobj数 Name_counter3 DW 00c0h,0128h,0190h Name_counter4 DW 00a0h,0120h,0120h Name_counter5 DW 00a0h,00e0h,00e0h Name_counter6 DW 00d0h,0138h,01a0h Name_counter7 DW 00c0h,00c0h,00c0h Name_counter8 DW 00c0h,0140h,0140h ; Name_end_data DW 0070h,0070h,0080h,0070h ;文字ストップ位置 DW 00a0h,0070h,0080h,0070h ; Name_Start_position DW 0a800h,3800h,0c000h,4800h DW 0b800h,5000h,0a800h,4800h ; ;表示人数*2 Select_peson_set DW 0002h,0002h,0006h,0004h DW 0004h,0006h,0002h,0004h END