STSEG SEGMENT STACK 'stack'

DB 64 DUP(?)

STSEG ENDS

;---

DTSEG SEGMENT

DATA1 DB 'mY NAME is jUn'

ORG 0020H

DATA2 DB 14 DUP(?)

DTSEG ENDS

;----

CDSEG SEGMENT

MAIN PROC FAR

ASSUME CS:CDSEG, DS:DTSEG, SS:STSEG

MOV AX, DTSEG

MOV DS, AX

MOV SI, OFFSET DATA1

MOV BX, OFFSET DATA2

MOV CX, 14

BACK: MOV AL, [SI]

CMP AL, 41H

JB OVER

CMP AL, 5AH

JA OVER

OR AL, 00100000B

OVER: MOV [BX], AL

INC SI

INC BX

LOOP BACK

MOV AH, 4CH

INT 21H

MAIN ENDP

CDSEG ENDS

END MAIN

+ Recent posts