Page    60,132
;Reads one sector from drive A--absolute sector 360
;Uses BIOS interrupt 25h

stk     segment stack                ; set up a stack
        dw      64 dup(?)
stk     ends

data    segment
s       db      512dup(?)
data    ends

code    segment
        assume  ds:data, cs:code
main    proc    far                  ; Bookkeeping...
        push    ds                   ; instructions--
        sub     ax,ax                ; Necessary...
        push    ax                   ; under DOS
        mov     ax,data
        mov     ds,ax
        mov     cx,1          ; one sector
        mov     al,0          ; drive A
        mov     dx,360        ; log. sector = trk*18 + sector
        mov     bx,offset s   ; address of read buffer
        int     25h           ; read
        add     sp,2          ; Even stack

        ret                   ; Return to DOS
main    endp         
code    ends
        end     main