标题: 有人能帮我解决吗？？ assembly language [打印本页] 作者: storm93 时间: 2014-3-21 05:19 PM 标题: 有人能帮我解决吗？？ assembly language 我要记录 价钱 然后 display 出来
.MODEL SMALL
.STACK
.DATA
IDmsg DB " Please enter ID: $"
WrongIDmsg DB 0ah,0dh," Invalid Login ID, Please Try Again !!!! $"
Welcomemsg DB 0ah,0dh," Welcome To System.... ",0ah,0dh
DB " -------------------------------------------------------- $",0ah,0dh
CustNamemsg DB 0ah,0dh," Enter customer name : $"
Contactmsg DB 0ah,0dh," Enter customer contact number : $"
Choicemsg DB 0ah,0dh," Enter Your Choice : $"
Quantitymsg DB 0ah,0dh," Enter Quantity : $"
choice DB ?
price DB ?
quantity DB ?
ProdDetailsMsg DB 0ah,0dh," Product Details .... ",0ah,0dh
DB " -------------------------------------------------------- ",0ah,0dh
DB " | Product Description | Price | ",0ah,0dh
DB " -------------------------------------------------------- ",0ah,0dh
DB " | (1) Washing Machine RM 500.00 | ",0ah,0dh
DB " | (2) Refrigrator RM 700.00 | ",0ah,0dh
DB " | (3) LED Samsung TV RM 1000.00 | ",0ah,0dh
DB " -------------------------------------------------------- $",0ah,0dh
AnymoreMsg DB 0ah,0dh," Anymore item to order?? (Y/N) : $",0ah,0dh
ErrorMsg DB 0ah,0dh,"Please Enter Y or N only.. $",0ah,0dh
TotalPriceMsg DB 0ah,0dh," Total Price : $",0ah,0dh
Id DB 5 DUP(?)
defaultID DB 'a','d','m','i','n'
validID DB 0
newline db " ",0ah,0dh,"$"
CustName Label Byte
Max_Len DB 30
ACT_Len DB ?
KB_Data DB 30 Dup(' ')
contact Label Byte
Max_Len1 DB 15
ACT_Len1 DB ?
KB_Data1 DB 15 Dup(' ')
.CODE
MAIN PROC FAR
MOV AX,@data
MOV DS,AX
;-----------------Enter ID --------------------
EnterID:
mov validID,0
Mov AH,09H
LEA DX,IDmsg
INT 21H
Mov Ah,07H
INT 21H
Mov id[0],AL
Mov Ah,02H
Mov DL,'#'
INT 21H
Mov Ah,07H
INT 21H
Mov id[1],AL
Mov Ah,02H
Mov DL,'#'
INT 21H
Mov Ah,07H
INT 21H
Mov id[2],AL
Mov Ah,02H
Mov DL,'#'
INT 21H
Mov Ah,07H
INT 21H
Mov id[3],AL
Mov Ah,02H
Mov DL,'#'
INT 21H
Mov Ah,07H
INT 21H
Mov id[4],AL
Mov Ah,02H
Mov DL,'#'
INT 21H
;-----------------Veridy ID --------------------
mov si,offset id
mov cx,5
mov DI,offset defaultID
mov AL,[SI]
Cmp AL,[DI]
JE ChkID1
JMP WrongID
ChkID1:
mov AL,[SI]+1
Cmp AL,[DI]+1
JE ChkID2
JMP WrongID
ChkID2:
mov AL,[SI]+2
Cmp AL,[DI]+2
JE ChkID3
JMP WrongID
ChkID3:
mov AL,[SI]+3
Cmp AL,[DI]+3
JE ChkID4
JMP WrongID
ChkID4:
mov AL,[SI]+4
Cmp AL,[DI]+4
JE CorrectID
JMP WrongID
WrongID:
Mov AH,09H
LEA DX,WrongIDmsg
INT 21H
mov ah,09h ;display newline
lea dx,newline
int 21h
JMP EnterID
CorrectID:
mov ah,09h ;display newline
lea dx,newline
int 21h
Mov AH,09H
LEA DX,Welcomemsg
INT 21H
;-----------------Enter customer details --------------------
Mov AH,09H
LEA DX,CustNamemsg
INT 21H
Mov AH,0AH
LEA DX,CustName
int 21H
Mov AH,09H
LEA DX,Contactmsg
INT 21H
Mov AH,0AH
LEA DX,contact
int 21H
mov ah,09h ;display newline
lea dx,newline
int 21h
mov ah,09h ;display newline
lea dx,newline
int 21h
;-----------asking for anymore item to order ----------
AskContOrder:
Mov AH,09H
LEA DX,AnymoreMsg
INT 21H
MOV AH,01H
INT 21H
CMP AL, 79H
JE ContOrder
CMP AL,59H
JE ContOrder
CMP AL, 4EH
JE CountPrice
CMP AL, 6EH
JE CountPrice
JNE Error
Error:
MOV AH,09H
LEA DX, ErrorMsg
INT 21H
JMP AskContOrder
CountPrice:
mov ah,09h ;display newline
lea dx,newline
int 21h
MOV AH,09H
LEA DX, TotalPriceMsg
INT 21H
;-----------------retrieve price --------------------
; Mov AL,choice
; CMP choice,1
; JE First
; CMP choice,2
; JE Second
; CMP choice,3
; JE third
; CMP choice,4
; JE Fourth
