汇编小程序

TITLE MAIN PROGRRAM TO CONTROL THE SYSTEM
PAGE 60, 132
EXTRN PASSWORD_TEST:FAR
EXTRN MY_GAME:FAR
EXTRN MY_CAL:FAR
PUBLIC CLS
;---------------------------------------------
.MODEL SMALL
.STACK 64
;------------------------------------------------
.DATA
MAIN_MSG1 DB 'Welcome to System!', '$'
MAIN_MSG3 DB 'Password wrong try again', '$'
MAIN_MSG4 DB 'Please choose your item to continue', '$'
MAIN_MSG5 DB '1: Little game', '$'
MAIN_MSG6 DB '2: Calculation', '$'
MAIN_MSG7 DB 'YOUR CHOISE:', '$'
MAIN_FLAG DB 0
CRLF DB 0DH, 0AH,'$'
;----------------------------------
.CODE
START:
MOV AX, @DATA
MOV DS, AX
CALL CLS ;清屏

MOV CX, 2
CALL CRLF_FUNC
LEA DX, MAIN_MSG1
MOV AH, 9
INT 21H

LEA DX, CRLF
MOV AH, 9
INT 21H

CALL PASSWORD_TEST ;调用密码判断功能可以跳出这个函数就可以往下运行

MAIN_S:
CALL MAIN_OUTPUT ;调用系统界面

;输入选择
MOV AH, 1
INT 21H

PUSH AX;保存命令,防止调用函数时改变了AL
CMP AL, '1' ;游戏
JNZ MAIN_S0
CALL CLS
CALL MY_GAME

MAIN_S0:
CMP AL, '2' ;计算器
JNZ MAIN_S1
CALL CLS
CALL MY_CAL

MAIN_S1:
POP AX
CMP AL, 'Q'
JNZ MAIN_S

MOV AH,4CH
INT 21H
RET
;***************************CLS*************************
CLS PROC FAR
MOV AH, 0FH
INT 10H
MOV AH, 0
INT 10H
RET
CLS ENDP
;***************************CRLF_FUNC***************************
;按CX来进行输空行
CRLF_FUNC PROC NEAR
SO:
LEA DX, CRLF
MOV AH, 9
INT 21H
LOOP SO
RET
CRLF_FUNC ENDP
;***************************MAIN_OUTPUT***************************

MAIN_OUTPUT PROC NEAR
CALL CLS
MOV CX, 2
CALL CRLF_FUNC

LEA DX, MAIN_MSG4
MOV AH,9
INT 21H

LEA DX, CRLF
MOV AH, 9
INT 21H

LEA DX, MAIN_MSG5
MOV AH, 9
INT 21H

LEA DX, CRLF
MOV AH, 9
INT 21H

LEA DX, MAIN_MSG6
MOV AH, 9
INT 21H

LEA DX, CRLF
MOV AH, 9
INT 21H

LEA DX, MAIN_MSG7
MOV AH, 9
INT 21H

RET
MAIN_OUTPUT ENDP
;***************************
END START