journal of all scince V.1. NO.1 | Page 46

.

8

M,

%

J %

M, %

$
%

%

:

:
writech proc
mov bh,0
mov cx,1
mov ah,0ah
int 10h
ret
Writech Endp
getch proc
mov ah,0
int 16h
ret
getch Endp
theend proc
mov ah,4CH
int 21h
ret
theend endp
seg1 segment
assume cs:seg1
l:
mov bh,0
mov dh,12
mov dl,40
start:mov ah,2
PG%
*-B
,3

? M{ W , % Z .

jmp start
U:
cmp ah,48h
jne D
writech ' '
dec dh
cmp dh,-1
jne start
mov dh,24
jmp start
D:
cmp ah,50h
jne start
writech' '
inc dh
cmp dh,25
jne start
mov dh,0
jmp start
exit: call theend
seg1 ends
end l

int 10h
Mov al,’*’
Call writech
Call getch
cmp ah,1
je exit
cmp ah,4bh
jne R
writech' '
dec dl
cmp dl,-1
jne start
mov dl,79
jmp start
R:
cmp ah,4dh
jne U
writech' '
inc dl
cmp dl,80
jne start
mov dl,0

% x' . M{
pop

% % T

"%87
'

"

F. %

push -'

%

. M{

"

+U%

. M{ W

% %
.

,

J %

jmp start
U:
cmp ah,48h
jne D
writech ' '
dec dh
cmp dh,-1
jne start
mov dh,24
jmp start
D:
cmp ah,50h
jne start
writech' '
inc dh
cmp dh,25
jne start
mov dh,0
jmp start
exit: theend
seg1 ends
end l

int 10h
writech'*'
getch
cmp ah,1
je exit
cmp ah,4bh
jne R
writech' '
dec dl
cmp dl,-1
jne start
mov dl,79
jmp start
R:
cmp ah,4dh
jne U
writech' '
inc dl
cmp dl,80
jne start
mov dl,0

writech macro x
mov al,x
mov bh,0
mov cx,1
mov ah,0ah
i ?B??V?F?vWF6??7&????b?????Bf??V?F?F?VV?B?7&????b??D4????B#??V?F?6Vs6Vv?V?@?77V?R73?6Vs?à???b&?????bF?? ???bF??C?7F'C???b?? ???b??P??"R?`???? ?P??`???RR@?Rp??