D SEGMENT
PASS1 DB '12 ab'
N the EQU $- PASS1
D1 DB 'PASSWARD? Dh, '0, 0 ah,' $'
PASS2 DW 20
The DB?
The DB 20 DUP (?)
D2 dh DB 0, 0 ah, 'OK' $'
D ENDS
C SEGMENT
ASSUME CS: C, DS: D, ES: D
BG: MOV AX, D
MOV DS, AX
MOV ES, AX
LEA DX, D1
MOV AH, 9
INT 21 h
LEA DX, PASS2
MOV AH, AH 0
INT 21 h
LEA SI, PASS1
LEA DI, PASS2
CMP BYTE PTR [DI + 1], N
Developed the LAST
CX, MOV N
LEA DI, PASS2 + 2
CLD
REPZ CMPSB
JZ DISOK
The LAST: MOV AH, 4 ch
INT 21 h
DISOK: LEA DX, D2
MOV AH, 9
INT 21 h
JMP LAST
C ENDS
END BG
CodePudding user response:

CodePudding user response:
There should be no grammatical errors, may is the issue of assembler