fontgame.asm

辞典 dict3.asm.grammar.asm,newword.asm 学习 learn.asm 名片 userinf.asm 备忘 userinf.asm 提醒 userinf

;;;   sta     <cdata+3
;;;   lsetscreen 22
;;;   lprint  yh_menu_string4
;;;   lupdatescreen
;;;   bra     test_yh_xxxxxx8
;;;
;;;test_yh_8x16:
;;;   lda     #9fh+1+00h
;;;   sta     <cdata
;;;   lda     #00h
;;;   sta     <cdata+2
;;;   sta     <cdata+3
;;;   lsetscreen 1
;;;   lprint  yh_menu_string1
;;;   lupdatescreen
;;;   bra     test_yh_xxxxxx8
;;;
;;;test_yh_dj:
;;;   lda     #7fh+1h
;;;   sta     <cdata
;;;   lda     #44h
;;;   sta     <cdata+2
;;;   sta     <cdata+3
;;;   lsetscreen 21
;;;   lprint  yh_menu_string3
;;;   bra     test_yh_xxxxxx8
;;;
;;;test_yh_8x8:
;;;   lda     #9fh+1h
;;;   sta     <cdata
;;;   lda     #0h
;;;   sta     <cdata+2
;;;   sta     <cdata+3
;;;   lsetscreen 20
;;;   lprint  yh_menu_string2
;;;   bra     test_yh_xxxxxx8
;;;test_yh_xxxxxx8:
;;;   ldx     <cdata+2
;;;   la2xy
;;;   stx     textbuffor+18
;;;   sty     textbuffor+19
;;;   lupdatescreenx
;;;   stz     <OX                     ;; OX & OY =0
;;;   lda     #16
;;;   sta     <OY
;;;   stz     <curx
;;;   lda     #01
;;;   sta     <cury
;;;   lda     <cdata+2
;;;   sta     <cdata+1
;;;?1:
;;;   ldx     <cdata+1
;;;
;;;   lda     <screenmode
;;;   cmp     #3
;;;   bcs     ?2
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      drawfont-1
;;;   bra     ?gxgx
;;;?2:
;;;   cmp     #20
;;;   bne     ?3
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      drawfont8-1
;;;   bra     ?gxgx
;;;?3:
;;;   cmp     #21
;;;   bne     ?4
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      DrawFont8Phonetic-1
;;;   bra     ?gxgx
;;;?4:
;;;   cmp     #22
;;;   bne     ?gxgx
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      Draw8x16Phonetic_test-1
;;;?gxgx:
;;;   lupdate_all_iconx
;;;   inc    <cdata+1
;;;   lda    <cdata+1
;;;   cmp    <cdata
;;;   bcs    ?sleep
;;;   sec
;;;   sbc    #40
;;;   bcc    ?1
;;;   cmp    <cdata+2
;;;   bcc    ?1
;;;
;;;
;;;?sleep:
;;;   rmb3   <eflag
;;;   wai
;;;   bbr3   <eflag,?sleep
;;;   lkeytone
;;;   lda    <keyno
;;;   cmp    #upkey
;;;   beq    ?to_sub_data
;;;   cmp    #downkey
;;;   beq    ?to_add_data
;;;   cmp    #esckey
;;;   beq    ?to_return_menu
;;;
;;;   bra    ?sleep
;;;?to_sub_data:
;;;   sec
;;;   lda    <cdata+2
;;;   sbc    #40
;;;   bcc    ?sleep
;;;   cmp    <cdata+3
;;;   bcc    ?sleep
;;;   sta    <cdata+2
;;;   jmp    test_yh_xxxxxx8
;;;?to_add_data:
;;;   lda    <cdata+2
;;;   adc    #40
;;;   cmp    <cdata
;;;   bcs    ?sleep
;;;   lda    <cdata+2
;;;   adc    #40
;;;   sta    <cdata+2
;;;   jmp    test_yh_xxxxxx8
;;;?to_return_menu:
;;;   rmb0   <eflag
;;;   bbr0   <eflag,$
;;;   jmp    fontgame_load_yh
;;=======================================================
fontgame_load_5000:
    smb7   <pd
        lset_lcd_contrast
        lda     #00110000b
        sta     <IENAb
        sta     <IENAl

        lda     #80h
        sta     <btsr
        cli

        lda     #10000000b
        sta     event_kill
   lda   #>reset_ok-1
   pha
   lda   #<reset_ok-1
   pha
   lda   #>biosbank
   pha
   lda   #<biosbank
   jmp   longgo
;;;        cli
;;;        lReadOldContrast
;;;        lset_lcd_contrast
;;;   lsetscreen_to_ds0 1
;;;   lprint  menu_string_5000
;;;   lupdatescreen
;;;?wait_for_key:
;;;   wai
;;;   bbr3  <eflag,?wait_for_key
;;;   lda   <keyno
;;;   cmp   #esckey
;;;   bne   ?dssd
;;;
;;;        lda     #>DS0Bank
;;;        sta     <DRRh
;;;        lda     #<DS0Bank
;;;        sta     <DRRl
;;;        lda     bios_to_deldata_tab+3
;;;        pha
;;;        lda     bios_to_deldata_tab+2
;;;        pha
;;;        lda     bios_to_deldata_tab+1
;;;        pha
;;;        lda     bios_to_deldata_tab+0
;;;        jmp     longgo
;;;?dssd:
;;;   ldx   #0
;;;?1:
;;;   lda   key_define_tab,x
;;;   cmp   <keyno
;;;   beq   ?to_test_ku
;;;   inx
;;;   cpx   #5
;;;   bcc   ?1
;;;   bra   ?wait_for_key
;;;;;=================================
;;;?to_test_ku:
;;;   txa
;;;   asl
;;;   tax
;;;   lda    function_tab_5000ku+1,x
;;;   pha
;;;   lda    function_tab_5000ku,x
;;;   pha
;;;   ldx    #10h
;;;?gg:
;;;   stz    <cdata,x
;;;   dex
;;;   bpl    ?gg
;;;   lsetscreen 1
;;;   lupdatescreen
;;;   lda    #0
;;;   tax
;;;   tay
;;;   stz     <OX                     ;; OX & OY =0
;;;   lda     #16
;;;   sta     <OY
;;;   rts
;;;
;;;test_dj8x16:
;;;   lda     #25h+1+1bh
;;;   sta     <cdata
;;;   lda     #1bh
;;;   sta     <cdata+2
;;;   sta     <cdata+3
;;;   lsetscreen 22
;;;   lprint  menu_5000_string5
;;;   lupdatescreen
;;;   bra     test_5000_xxxxxx8
;;;
;;;test_djfont:
;;;   lda     #25h+1+5ah
;;;   sta     <cdata
;;;   lda     #5ah
;;;   sta     <cdata+2
;;;   sta     <cdata+3
;;;   lsetscreen 21
;;;   lprint  menu_5000_string4
;;;   bra     test_5000_xxxxxx8
;;;
;;;test_5000_8x8:
;;;   lda     #6fh+1
;;;   sta     <cdata
;;;   lsetscreen 20
;;;   lprint  menu_5000_string3
;;;test_5000_xxxxxx8:
;;;   ldx     <cdata+2
;;;   la2xy
;;;   stx     textbuffor+18
;;;   sty     textbuffor+19
;;;   lupdatescreen
;;;   stz     <OX                     ;; OX & OY =0
;;;   lda     #16
;;;   sta     <OY
;;;   stz     <curx
;;;   lda     #01
;;;   sta     <cury
;;;   lda     <cdata+2
;;;   sta     <cdata+1
;;;?1:
;;;   ldx     <cdata+1
;;;
;;;   lda     <screenmode
;;;   cmp     #3
;;;   bcs     ?2
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      drawfont_5000-1
;;;   bra     ?gxgx
;;;?2:
;;;   cmp     #20
;;;   bne     ?3
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      drawfont8_5000-1
;;;   bra     ?gxgx
;;;?3:
;;;   cmp     #21
;;;   bne     ?4
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      DrawFont8Phonetic_5000-1
;;;   bra     ?gxgx
;;;?4:
;;;   cmp     #22
;;;   bne     ?gxgx
;;;   jsr     ljsr
;;;   dw      biosbank
;;;   dw      Draw8x16Phonetic_5000_test-1
;;;?gxgx:
;;;   lupdate_all_icon
;;;   inc    <cdata+1
;;;   lda    <cdata+1
;;;   cmp    <cdata
;;;   bcs    ?sleep
;;;   sec
;;;   sbc    #40
;;;   bcc    ?1
;;;   cmp    <cdata+2
;;;   bcc    ?1
;;;
;;;
;;;?sleep:
;;;   rmb3   <eflag
;;;   wai
;;;   bbr3   <eflag,?sleep
;;;   lkeytone
;;;   lda    <keyno
;;;   cmp    #upkey
;;;   beq    ?to_sub_data
;;;   cmp    #downkey
;;;   beq    ?to_add_data
;;;   cmp    #esckey
;;;   beq    ?to_return_menu
;;;
;;;   bra    ?sleep
;;;?to_sub_data:
;;;   sec
;;;   lda    <cdata+2
;;;   sbc    #40
;;;   bcc    ?sleep
;;;   cmp    <cdata+3
;;;   bcc    ?sleep
;;;   sta    <cdata+2
;;;   jmp    test_5000_xxxxxx8
;;;?to_add_data:
;;;   lda    <cdata+2
;;;   adc    #40
;;;   cmp    <cdata
;;;   bcs    ?sleep
;;;   lda    <cdata+2
;;;   adc    #40
;;;   sta    <cdata+2
;;;   jmp    test_5000_xxxxxx8
;;;?to_return_menu:
;;;   rmb0   <eflag
;;;   bbr0   <eflag,$
;;;   jmp    fontgame_load_5000
;;;;;================================
;;;test_5000_8x12:
;;;   lda     #7eh+1
;;;   sta     <cdata
;;;   lsetscreen 2
;;;   lprint  menu_5000_string2
;;;   bra     test_5000_xxxxxx
;;;test_5000_8x16:
;;;   lda     #99h+1
;;;   sta     <cdata
;;;   lsetscreen 1
;;;   lprint  menu_5000_string1
;;;
;;;test_5000_xxxxxx:
;;;   jmp     test_5000_xxxxxx8

      end