readdisk for L93 to 8000:0
code segment
assume cs:code,ds:code
org 100h
begin:jmp kk
int_1e dd ?
new_1e db 0dfh,02h,25h,04h,0fh,1bh,0ffh,54h,0f6h,0fh,08h
chrn db 27h,0h,1h,4h,27h,0h,2h,4h,27h,0h,3h,4h,27h,0h,4h,4h,27h,0h,5h,4h,27h,0h,6h,4h,27h,0h,7h,4h,27h,0h,8h,4h,27h,0h,9h,4h,27h,0h,10,4h,27h,0h,11,4h,27h,0h,12,4h,27h,0h,13,4h,27h,0h,14,4h,27h,0h,15,4h


kk:
call f1e
;call format
;call write
call read
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 dl,0
mov dh,0
mov ch,27h
mov cl,0
mov bx,offset chrn
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,0
mov es,bx
mov ch,27h
mov cl,1
mov dx,0
int 13h
ret
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