TITLE Read Char Progam
INCLUDE Irvine16.inc
.data
entChar BYTE "Enter a character: "
char BYTE ?
charEnt BYTE 0ah,0ah,0dh,"You entered: "
addChar BYTE 0ah,0ah,0dh,"Character + 24h: "
dblSpc BYTE 0ah,0ah,0dh
.code
main PROC
mov ax,@data ;prompt user for character
mov ds,ax ;
;
mov ah,40h ;
mov bx,1 ;
mov cx,SIZEOF entChar ;
mov dx,OFFSET entChar ;
int 21h ;
mov ah,1 ;read character from standard input
int 21h ;
mov char,al ;
mov ah,40h ;show character entered
mov bx,1 ;
mov cx,SIZEOF charEnt ;
mov dx,OFFSET charEnt ;
int 21h ;
;
mov ah,2 ;
mov dl,char ;
int 21h ;
add char,24h ;add 24h to character
mov ah,40h ;show character + 24h
mov bx,1 ;
mov cx,SIZEOF addChar ;
mov dx,OFFSET addChar ;
int 21h ;
;
mov ah,2 ;
mov dl,char ;
int 21h ;
mov ah,40h ;print double space
mov bx,1 ;
mov cx,SIZEOF dblSpc ;
mov dx,OFFSET dblSpc ;
int 21h ;
exit
main ENDP
END main
|
