***************************************************************
*                                                             *
*      Module Name: READTRAK.LIB         Rev. 1.00            *
*      Function: Read an entire track    Last rev. 06 May 85  *
*         at one gulp and store it in    By: glh/w6bsk        *
*         memory.                                             *
***************************************************************


datreg    equ  0e3ffh    ; Morrow DJ2B 1791 data port
cmdreg    equ  0e3fch    ; Morrow DJ2B 1791 command port
rtkcmd    equ  000e4h    ; 1791 read track command

redtrk:
          call notbsy    ; Wait until 1791 is idle
          lxi  d,datreg  ; Look at 1791 data register
          lxi  h,trkbuf  ; and set up buffer area
          mvi  c,24      ; Load number of pages
maxpag    equ  $-1       ; to be read from track. 
          mvi  a,rtkcmd  ; Load and issue track read
          sta  cmdreg    ; command for the 1791
datain:
          ldax d         ; Load data byte
          mov  m,a       ; and store in buffer.
          inr  l
          jnz  datain    ; Loop until all written.
          inr  h
          dcr  c
          jnz  datain
          ret

trkbuf    ds   17ffh     ; Room needed to read 8" track.