– NHẬP XUẤT SỐ DẠNG BIN-HEX-DEC XDONG DB 10, 13, ‘$’ KYTU DB
Bài 4 – Nhập xuất số dạng BIN-HEX-DEC
xdong DB 10, 13, ‘$’
kytu DB ?
DSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG, DS:DSEG
begin: MOV AX, DSEG
MOV DS, AX
inchuoi
msg1
MOV
AH,
01h
INT
21h
MOV kytu, AL ; cất ký tự nhận được
inchuoi
xdong
inchuoi
msg2
MOV BH, kytu ; Ký tự cần in
CALL
hex_out
MOV AH, 02
; in ra ký tự
h
sau số Hex
MOV
DL,
‘h’
MOV AH, 01
MOV AH, 4Ch
; thoat khỏi chương trình
hex_out PROC
MOV
CX,
4
xuat:PUSH CX
MOV
CL,
4
MOV
DL,
BH
SHR
DL,
CL
CMP
DL,
09h
JA
kytu
ADD
DL,
30h
;
Đổi thành ký số ‘0’-‘9’
JMP
inra
kytu:ADD
DL, 37h ; Đổi thành ký tự ‘A-‘F’
inra:MOV
AH, 02h ; In ra màn hình ký tự đã đổi
INT
21h
SHL BX, CL ; Quay trái BX 4 bit
POP
CX
LOOP
xuat
RET
hex
_out ENDP
CSEG ENDS
END
begin
3.3. Xuất số thập phân nguyên dương:
Chương trình sau đây cho phép nhập 1 ký tự từ bàn phím, sau đó in ra màn hình
mã ASCII của ký tự nhận được ở dạng thập phân.