;format abd2.6 disk 10
code segment
assume cs:code,ds:code
org 100h
begin:jmp kk
int_1e dd ?
new_1e db 0dfh,02h,25h,02h,0fh,1bh,0ffh,054h,0f6h,0fh,08h
chrn3 db 51h,1h,1h,2h
      db 51h,1h,2h,2h
      db 51h,1h,3h,2h
      db 51h,1h,4h,2h
      db 51h,1h,5h,2h
      db 51h,1h,6h,2h
      db 51h,1h,7h,2h
      db 51h,1h,8h,2h
      db 51h,1h,9h,2h
      db 51h,1h,0ah,2h
      db 51h,1h,0bh,2h
      db 51h,1h,0ch,2h
      db 51h,1h,0dh,2h
      db 51h,1h,0eh,2h
      db 51h,1h,0fh,2h
ferrmeg db 'format error!$'
werrmeg db 'write error!$'

kk:
call f1e
call format
call write
call un1e
call over


f1e proc near
push cs
pop ds
mov ax,351eh
int 21h
mov si,offset int_1e
mov cs:[si],bx
mov cs:[si+2],es
mov ax,251eh
mov dx,offset new_1e
int 21h  
ret
f1e endp

format proc near
push cs
pop es
mov ah,05h
mov dx,0101h
mov ch,51h
mov cl,0
mov bx,offset chrn3
int 13h
jb ferr
ret
format endp

un1e proc near
mov si,offset int_1e
mov dx,cs:[si]
mov ds,cs:[si+2]
mov ax,251eh
int 21h
ret
un1e endp

over proc near
mov ah,4ch
int 21h
ret
over endp

write proc near
mov ax,8000h
mov es,ax
mov cx,8
dddd:
push cx

mov ax,0301h
mov bx,0
mov ch,51h
mov cl,01h
mov dx,0101h
int 13h
pop cx
jb rr
jmp qq

rr:
dec cx
cmp cx,0
jnz dddd
jmp werr

qq:
ret

werr:
mov dx,offset werrmeg
jmp err

ferr:
mov dx,offset ferrmeg

err:
mov ah,9
push cs
pop ds
int 21h
call un1e
call over
write endp

code ends
end begin