***************************************************************
*                                                             *
*      Module Name: SETSECTR.LIB         Rev. 1.00            *
*      Function:  Set a given sector     Last rev. 06 May 85  *
*         number into the 1791.          By: glh/w6bsk        *
*                                                             *
***************************************************************


sctreg    equ  0e3feh    ; Morrow DJ2B sector register
 
setsec:
          mov  c,a       ; Enter with sector # in acc
          sui  30h       ; Force binary, if not already
          cpi  27        ; Test for legal range.
maxsec    equ  $-1       ; Set in proper max sector #+1
          jnc  scterr
          cpi  01h
          jc   scterr    ; Zero/Negatives not allowed
          sta  cursct    ; Make it current track
          call notbsy    ; Make sure 1791 is idle
          sta  sctreg    ; and load sector number.
          adi  30h       ; Make it ascii for possible
          sta  ascsct    ; use elsewhere. 
          ret
scterr:
          call ccrlf
          call spmsg     
          db   ' Sector number not acceptable.',0
          xra  a         ; Set z flag
          ret

cursct    db   1         
ascsct    db   1