8086-Lab-Programs/BCD.ASM at master · uvce-lab/8086-Lab-Programs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
WRITELINE MACRO VAR
	LEA DX, VAR
	MOV AH, 09
	INT 21H
ENDM
CLRSCR MACRO
	MOV AX, 0600H
	MOV CX, 0	; Top and left Corners
	MOV DH, 24	; Row
	MOV DL, 79	; Column
	MOV BH, 3	; Color attribute
	INT 10H
ENDM
.MODEL SMALL

.DATA
	ENTROW DB 10, 13, 'Enter the row (00 - 24): $'
	ENTCOL DB 10, 13, 'Enter the column (00 - 79): $'
	CURSOR DB '_$'
	ROW DB ?
	COL DB ?

.CODE
	MOV AX, @DATA
	MOV DS, AX

	WRITELINE ENTROW
	CALL READ
	MOV ROW, AL

	WRITELINE ENTCOL
	CALL READ
	MOV COL, AL

	MOV AH, 2
	MOV DH, ROW
	MOV DL, COL
	INT 10H

	CLRSCR
	WRITELINE CURSOR

	JMP EOF

	READ PROC NEAR
		MOV AH, 1
		INT 21H

		AND AL, 0FH
		MOV BL, AL

		MOV AH, 1
		INT 21H

		AND AL, 0FH
		MOV AH, BL
		AAD
		RET
	READ ENDP

	EOF:
		MOV AH, 4CH
		INT 21H
END