;format dd for L93 disk from bios
code segment
assume cs:code,ds:code
org 100h
begin:jmp kk
int_1e dd ?
new_1e db 0dfh,02h,25h,04h,02h,1bh,0ffh,54h,0f6h,0fh,08h
chrn3 db 27h,0h,1h,4h
      db 27h,0h,2h,4h
      db 27h,0h,3h,4h
      db 27h,0h,4h,4h
      db 27h,0h,5h,4h
      db 27h,0h,6h,4h
      db 27h,0h,7h,4h
      db 27h,0h,8h,4h
      db 27h,0h,9h,4h
      db 27h,0h,10,4h
      db 27h,0h,11,4h
      db 27h,0h,12,4h
      db 27h,0h,13,4h
      db 27h,0h,14,4h
      db 27h,0h,15,4h
errmeg db 'error!$'
okm db 'format ok!$'
kk:
call f1e
call format
call write
;call read
call un1e
mov ah,9h
mov dx,offset okm
push cs
pop ds
int 21h

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 dl,0
mov dh,0
mov ch,27h
mov cl,0
mov bx,offset chrn3
int 13h
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,0301h
mov bx,0c120h
mov es,bx
mov bx,0
mov ch,27h
mov cl,1
mov dx,0
int 13h
jb err
ret

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

read proc near
mov ax,0201h
mov bx,8000h
mov es,bx
mov bx,0h
mov cx,2701h
mov dx,0
int 13h
ret 
read endp

code ends
end begin