asmpro2.asm

这是交通灯管理系统和学生成绩录入系统得汇编语言程序

CRLF MACRO
  MOV  AH,02H
  MOV  DL,0DH
  INT       21H
  MOV       AH,02H
  MOV       DL,0AH
    INT       21H
ENDM
DATA SEGMENT
MARK DB ?
MESS     DB   'INPUT THE NUMBER END WITH SPACE',0DH,0AH,'INPUTE','$'  
ERROR  DB  0DH,0AH,'INPUT ERROR','$'
DATA ENDS
STACK SEGMENT
STA DW 32 DUP(?)
TOP DW ?
STACK ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACK
START: MOV AX,DATA
       MOV DS,AX
       MOV ES,AX
       MOV SP,TOP
HEAD:  CRLF
       MOV    MARK,0
       MOV       AH,09H  
       LEA    DX,MESS
       INT    21H
       CALL   GETNUM
       CMP    MARK,01H
       JE     HEAD
       MOV    CX,0010H
       MOV    BX,DX
TTT:   ROL    BX,1 
       MOV    DL,BL
       AND    DL,01H
       ADD    DL,30H
       MOV    AH,02H
       INT    21H
       LOOP   TTT
       JMP   HEAD
FINI:  MOV AX ,4C00H
       INT 21H
GETNUM  PROC NEAR
        PUSH CX
        XOR  DX,AX
GGG:    MOV AH,01H                                        
        INT 21H
        CMP AL,0DH
        JE  PPP
        CMP  AL,20H
        JE   FINI
        CMP  AL,30H
        JB   KKK
        SUB  AL,30H
        CMP  AL,0AH
        JB   GETS
        CMP  AL,11H
        JB   KKK
        SUB  AL,07H
        CMP  AL,15
        JBE  GETS
        CMP  AL,2AH
        JB   KKK
        CMP  AL,2FH
        JA   KKK
        SUB  AL,20H
GETS:   MOV  CL ,04
        SHL  DX,CL
        XOR  AH,AH
        ADD  DX,AX
        JMP  GGG
KKK:    MOV AH,09H       
        MOV DX,OFFSET ERROR
        INT  21H
        MOV  MARK,01H
PPP:    PUSH DX
        CRLF
        POP  DX
        POP  CX
        RET
GETNUM  ENDP
CODE  ENDS
  END START