📄 24dot.asm
字号:
; ***************************************************************************
; * Project : Electronic Dictionary *
; * Date : 2003.9 *
; * File Name : 24DOT.ASM *
; ***************************************************************************
pw 128
case off
externs on
include st2202.def ;; Include ST2100 I/O define.
include Data.def ;; Data RAM define.
include Keydef.def
include graph.def
include bios.h
include graphics.h
include 24dot.inc
GameState equ CData+1
public _24dot_HSec
public _24dot_Sec
public _24dot_Min
public _24dot_KeyDown
public _24dot_KeyUp
public _24dot_Timer
public _24dot_KeyPress
public _24dot_load
public _24dot_help
public _24dothelp
;;=====================================================
ds0 .SECTION ;;jrd!!!!
_24dothelp:
db '请用4张牌的点数以及加`减`乘`除`括号构成表达式.',0dh
db '[输入] 确认.',0dh
db '若输入的表达式的值等于24,则赢了.',0dh
db '若输入的表达式的值不等于24,则输了,并显示出正确表达式.',0dh
db '[',0f8h,0d2h,']删除.',0dh
db '按shift+','[',0f8h,0d2h,']输入左括号',0dh
db '按shift+','[+]输入右括号',0dh
DB '[返回]返回.',00h
GameTitle1:
db '1.初级玩家',0dh
db '2.游戏专家',0
asc_property_address: ;;5*6
dw asc6_block
dw asc6_black_peach
dw asc6_red_peach
dw asc6_grass_flower
asc6_address:
dw digit_6_8_0 ;;0
dw digit_6_8_1 ;;1
dw digit_6_8_2 ;;2
dw digit_6_8_3 ;;3
dw digit_6_8_4 ;;4
dw digit_6_8_5 ;;5
dw digit_6_8_6 ;;6
dw digit_6_8_7 ;;7
dw digit_6_8_8 ;;8
dw digit_6_8_9 ;;9
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_plus ;;14
dw digit_6_minus ;;15
dw digit_6_mult ;;16
dw digit_6_div ;;17
dw digit_6_left_par ;;18
dw digit_6_right_par ;;19
dw digit_6_equal ;;1a
dw digit_6_dummy ;;1b
asc_pai_address:
dw _8_16_number_1
dw _8_16_number_1
dw _8_16_number_2
dw _8_16_number_3
dw _8_16_number_4
dw _8_16_number_5
dw _8_16_number_6
dw _8_16_number_7
dw _8_16_number_8
dw _8_16_number_9
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw digit_6_dummy ;;dummy
dw _8_16_number_10
dw _8_16_number_11
dw _8_16_number_12
dw _8_16_number_13
asc6_block:
db 5,6
db 00100011b,10111111b,11110111b,00010000b
asc6_black_peach:
db 5,6
db 00100011b,10111111b,11110010b,00111000b
asc6_red_peach:
db 5,6
db 01010011b,10111111b,11110111b,00010000b
asc6_grass_flower:
db 5,6
db 01110011b,10111111b,11110010b,00111000b
digit_6_8_0:
db 8,16
db 000h,000h,000h,000h,000h,07ch,0c6h,0c6h ;;30h
db 0ceh,0deh,0f6h,0e6h,0c6h,0c6h,0c6h,07ch ;;30h
digit_6_8_1:
db 8,16
db 000h,000h,000h,000h,000h,018h,038h,078h ;;31h
db 018h,018h,018h,018h,018h,018h,018h,07eh ;;31h
digit_6_8_2:
db 8,16
db 000h,000h,000h,000h,000h,07ch,0c6h,006h ;;32h
db 006h,00ch,018h,030h,060h,0c0h,0c6h,0feh ;;32h
digit_6_8_3:
db 8,16
db 000h,000h,000h,000h,000h,07ch,0c6h,006h ;;33h
db 006h,006h,03ch,006h,006h,006h,0c6h,07ch ;;33h
digit_6_8_4:
db 8,16
db 000h,000h,000h,000h,000h,00ch,01ch,03ch ;;34h
db 06ch,0cch,0cch,0cch,0feh,00ch,00ch,01eh ;;34h
digit_6_8_5:
db 8,16
db 000h,000h,000h,000h,000h,0feh,0c0h,0c0h ;;35h
db 0c0h,0c0h,0fch,006h,006h,006h,0c6h,07ch ;;35h
digit_6_8_6:
db 8,16
db 000h,000h,000h,000h,000h,038h,060h,0c0h ;;36h
db 0c0h,0c0h,0fch,0c6h,0c6h,0c6h,0c6h,07ch ;;36h
digit_6_8_7:
db 8,16
db 000h,000h,000h,000h,000h,0feh,0c6h,006h ;;37h
db 006h,00ch,018h,030h,030h,030h,030h,030h ;;37h
digit_6_8_8:
db 8,16
db 000h,000h,000h,000h,000h,07ch,0c6h,0c6h ;;38h
db 0c6h,0feh,07ch,0c6h,0c6h,0c6h,0c6h,07ch ;;38h
digit_6_8_9:
db 8,16
db 000h,000h,000h,000h,000h,07ch,0c6h,0c6h ;;39h
db 0c6h,0c6h,07eh,006h,006h,006h,00ch,078h ;;39h
digit_6_plus:
db 8,16
db 000h,000h,000h,000h,000h,000h,018h,018h ;;2bh
db 018h,0ffh,0ffh,018h,018h,018h,000h,000h ;;2bh
digit_6_minus:
db 8,16
db 000h,000h,000h,000h,000h,000h,000h,000h ;;2dh
db 000h,0feh,0feh,000h,000h,000h,000h,000h ;;2dh
digit_6_mult:
db 8,16
db 000h,000h,000h,000h,000h,000h,000h,066h ;;2ah
db 03ch,0ffh,03ch,066h,000h,000h,000h,000h ;;2ah
digit_6_div:
db 8,16
db 000h,000h,000h,000h,000h,002h,006h,00ch ;;2fh
db 018h,030h,060h,0c0h,080h,000h,000h,000h ;;2fh
digit_6_left_par:
db 8,16
db 000h,000h,000h,000h,000h,00ch,018h,030h ;;28h
db 030h,030h,030h,030h,018h,00ch,000h,000h ;;28h
digit_6_right_par:
db 8,16
db 000h,000h,000h,000h,000h,030h,018h,00ch ;;29h
db 00ch,00ch,00ch,00ch,018h,030h,000h,000h ;;29h
digit_6_equal:
db 8,16
db 000h,000h,000h,000h,000h,000h,000h,0fch ;;3dh
db 0fch,000h,000h,0fch,0fch,000h,000h,000h ;;3dh
digit_6_dummy:
db 8,16
db 000h,000h,000h,000h,000h,000h,000h,000h
db 000h,000h,000h,000h,000h,000h,000h,000h
cursor_block:
db 8,14
db 00000000b
db 00000000b
db 00000000b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
db 11111111b
_8_16_number_1: ;;ace
db 16,15
db 00000001b,10000000b
db 00000011b,11000000b
db 00000011b,11000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000100b,00100000b
db 00001100b,00110000b
db 00001100b,00110000b
db 00001100b,00110000b
db 00001111b,11111000b
db 00011000b,00011000b
db 00011000b,00011000b
db 00110000b,00001100b
db 00110000b,00001100b
db 01100000b,00000110b
_8_16_number_2:
db 16,15
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000000b,01100000b
db 00000000b,01100000b
db 00000000b,01000000b
db 00000000b,10000000b
db 00000001b,00000000b
db 00000001b,00000000b
db 00000110b,00000000b
db 00000110b,00000000b
db 00000110b,00100000b
db 00000111b,11100000b
_8_16_number_3:
db 16,15
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000000b,01000000b
db 00000001b,10000000b
db 00000000b,01000000b
db 00000000b,01100000b
db 00000000b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01000000b
db 00000001b,10000000b
_8_16_number_4:
db 16,15
db 00000000b,01000000b
db 00000000b,11000000b
db 00000000b,11000000b
db 00000001b,11000000b
db 00000001b,11000000b
db 00000001b,11000000b
db 00000010b,11000000b
db 00000010b,11000000b
db 00000100b,11000000b
db 00000100b,11000000b
db 00000111b,11100000b
db 00000000b,11000000b
db 00000000b,11000000b
db 00000000b,11000000b
db 00000001b,11100000b
_8_16_number_5:
db 16,15
db 00000111b,11100000b
db 00000111b,11100000b
db 00000100b,00000000b
db 00000100b,00000000b
db 00000100b,00000000b
db 00000101b,10000000b
db 00000110b,01000000b
db 00000110b,01100000b
db 00000000b,01100000b
db 00000000b,01100000b
db 00000000b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01000000b
db 00000001b,10000000b
_8_16_number_6:
db 16,15
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,00000000b
db 00000110b,00000000b
db 00000110b,00000000b
db 00000111b,10000000b
db 00000110b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01000000b
db 00000001b,10000000b
_8_16_number_7:
db 16,15
db 00000111b,11100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01000000b
db 00000000b,01000000b
db 00000000b,01000000b
db 00000000b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
db 00000001b,10000000b
_8_16_number_8:
db 16,15
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01000000b
db 00000001b,10000000b
_8_16_number_9:
db 16,15
db 00000001b,10000000b
db 00000010b,01000000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01100000b
db 00000001b,11100000b
db 00000000b,01100000b
db 00000000b,01100000b
db 00000110b,01100000b
db 00000110b,01100000b
db 00000010b,01000000b
db 00000001b,10000000b
_8_16_number_10:
db 16,15
db 00011000b,01100000b
db 00111000b,10010000b
db 01111001b,10011000b
db 00011001b,10011000b
db 00011001b,10011000b
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -