я довільного сектора з диска , 10, 13, 0
CODESEG:, @ data, ax, ax
; -----, OFFSET titl, OFFSET CLRF
, OFFSET ask_h, 0Ah, OFFSET ans_hh, OFFSET CRLF
, OFFSET ask_t, 0Ah, OFFSET ans_th, OFFSE T CLRF
, OFFSET ask_s, 0Ah, OFFSET ans_sh, OFFSET CLRF
, OFFSET ans_h.String, al
, OFFSET ans_t.String, al
, OFFSET ans_s.String, al
, OFFSET CLRF
, 0; Dive A:, OFFSET s_buff
; -----:, 4C00hh
, 2, bx
@ @ 10:, [si + bx], 0 @ @ 99h @ @ 10
@ @ 99:
; ch <-track, cl <-sector, dh <-head, dl <-drive, bx <-, 0201hh @ @ 10, OFFSET err_r
@ @ 10:
; bx <-buffer [StrInOA.String], ax, si, 10
@ @ 10:, [bx + si], 13 @ @ 20, dh, 0 , ah @ @ 10
@ @ 20:
; al <-numbercx, ah, 0A10h, ch @ @ 10, A - 10 @ @ 20
@ @ 10:, 0
@ @ 20:, ch @ @ 30, A - 10 @ @ 40
@ @ 30:, 0
@ @ 40:, al, 2h, ah, 2h
, OFFSET s_buff, si, 1
@ @ 10:, [bx + si], 27 @ @ 20, 2, h
@ @ 20:, 512 @ @ 99 @ @ 30, 1
@ @ 30: @ @ 10
@ @ 99:
