guessnum.asm

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

; ***************************************************************************
; *     Project : Electronic Dictionary                                     *
; *        Date : 2003.9                                                    *
; *   File Name : GUESSNUM.ASM                                              *
; ***************************************************************************

                chip    W65C02S                 ;; Define chip : ST2100 base on 65c02.
                pw      128                     ;; .LST's page width = 128 character.
                case    off                     ;; Don't care Upper-case or lower-case.
                externs on                      ;; Make all labels public.
                include st2202.def              ;; Include ST2100 I/O define.
                include DATA.def                ;;         Data RAM define.
                include KEYDEF.def              ;;         Key define.
                include GRAPH.def               ;;         Graphic define.
                include BIOS.h                  ;;         BIOS's head.
                include GRAPHICS.h              ;;         GRAPHICS's head.
;;[D]-------------------------------------------[D]
;;   Data RAM define : CData+offset. (zero page)
;;             0 ~ 4 : For "GAME" mode.
;;[D]-------------------------------------------[D]
TempReg         equ     CData+5                 ;; Temporary register.
TempCnt         equ     CData+6                 ;; Temporary counter.
InputIndex      equ     CData+7                 ;; Input number index.
GuessCounter    equ     CData+8                 ;; Guess times counter.
DispRecCounter  equ     CData+9                 ;; Record's counter for check mode.
;;
;;     GsNo flag
;; +-+-+-+-+-+-+-+-+
;; |7|6|5|4|3|2|1|0|
;; +++++++++++++++++
;;  | | | | | | | |
;;  7 6 | | | | | 0--- Clean flash flag. -> 0 : Flash item.
;;      | | | | |                           1 : Force blank item.
;;      | | | | 1------ Input okay flag. -> 0 : Input not okay.
;;      | | | |                             1 : Input okay.
;;      | | | 2-------------- Mode flag. -> 0 : Guess mode.
;;      | | |                               1 : Check mode.
;;      | | 3----- Game start/stop flag. -> 0 : Game start.
;;      | |                                 1 : Game stop.
;;      | 4---------------- Record flag. -> 0 : Display 1 record.
;;      |                                   1 : Display 3 records.
;;      5------------------- Pause flag. -> 0 : Go.
;;                                          1 : Pause.
GsNoFlag        equ     CData+10                ;; Guess number flags.

;;[D]------------------------------[D]
;;   Data RAM define : PData+offset
;;[D]------------------------------[D]
CurrentInput    equ     PData+0                 ;; Current input number.(4-Numbers)
ACounter        equ     PData+4                 ;; "A" counter.
BCounter        equ     PData+5                 ;; "B" counter.
NumRec          equ     PData+6                 ;; 8 number record sets.(4-Numbers & 1A1B each set = 48 bytes)
AnswerNumber    equ     PData+54                ;; Answer number register.(4-Numbers)

;;=================================================================================
DS0             .SECTION
;;=================================================================================
bottom_cursor:
        db      26,2
        db      0ffh,0ffh,0ffh,0ffh
        db      0ffh,0ffh,0ffh,0ffh

ortho_line:
        db      2,20
        db      0ffh,0ffh,0ffh,0ffh,0ffh
long_cursor:
        db      112,2
        db      0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh
        db      0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh
        db      0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh
        db      0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh
guessnumBlank:
        db      152,1
        db      11111111b,11111111b,11111111b,11111111b,00000000b
        db      11111111b,11111111b,11111111b,11111111b,00000000b
        db      11111111b,11111111b,11111111b,11111111b,00000000b
        db      11111111b,11111111b,11111111b,11111111b

guessnumBlank1:
        db      1,24
        db      11111111b,11111111b,11111111b

HintMsg:        db      'GUESS NUMBER ?',0                                              ;; GUESS NUMBER ?
AnswerMsg:      db      '      正确答案',0                  ;;    タ絋氮