*
*  explain.a  -	 Copyright 1990 D.W.Reisig
*
*   #	 date	 by    Comment
*  -- --------- ----- ---------------------
*   0 29-Oct-89	 DWR   Created for Tracksalve
*   1 10-Apr-90	 DWR   TrackSalve 1.3, more switches
*
*  Program cmdline help
*

*		nolist
		ifnd	IFILES
IFILES		set	1
		INCLUDE "exec/types.i"
		INCLUDE "libraries/dos.i"
		INCLUDE "libraries/dos_lib.i"
		INCLUDE "call.i"
		endc
*		list


NEWLINE		EQU	$0a

		CSECT	text,0,0,1,2

		XREF	_ConOut,_DOSBase,_Pr

		Func	_Explain
		lea.l	ExplMsg1(pc),a0			Load introducer
		bsr.s	ConMsg				Print
		move.l	_Pr(a4),a0			Load programname from cmdline
		bsr.s	ConMsg				Print
		lea.l	ExplMsg2(pc),a0			Rest of the explain text

		Func	ConMsg,@ConMsg			Print (a0) to the console (Not stdout)
		movem.l d2/d3/a6,-(a7)
		move.l	a0,d2				String
		beq.s	ConMsgRtn			No string..
		moveq.l #-1,d3				Init length parameter
10$		addq.l	#1,d3				Counter
		tst.b	(a0)+				String terminator?
		bne.s	10$				No..
		move.l	_ConOut(a4),d1			Console file handle
		move.l	_DOSBase(a4),a6
		jsr	_LVOWrite(a6)
ConMsgRtn	movem.l (a7)+,d2/d3/a6
		rts


ExplMsg1
  dc.b 'Syntax:   ',0
ExplMsg2
  dc.b ' {[!]<unit>|a {<unit>} {<Command>}}',NEWLINE
  dc.b 'Function: Modify a Trackdisk device unit addressed by its unit number',NEWLINE
  dc.b ' <no args>         Show present status',NEWLINE
  dc.b 'Units:',NEWLINE
  dc.b ' 0-3   Unit(s)     Succeeding commands are applied to listed units',NEWLINE
  dc.b '  a    All         Succeeding commands are applied to all TD units',NEWLINE
  dc.b '  !    Warning     Suppress error if the following unit does not exist',NEWLINE
  dc.b 'Commands:',NEWLINE
  dc.b '<none> TD in RAM   No special functions (.=default), improved reliability',NEWLINE
  dc.b '  o    Original    Let TD execute in its original ROM code',NEWLINE
  dc.b '  s    SectorDisk  Let Trackdisk only give errors from bad sectors',NEWLINE
  dc.b '  t   .TrackDisk   Normal: Let TD give errors from bad tracks',NEWLINE
  dc.b '  n    NoClick     Perform noclick on the unit(s)',NEWLINE
  dc.b '  c   .Click       Normal: No noclick',NEWLINE
  dc.b '  r    ReadOnly    Make unit read-only, simulate open disk-tab',NEWLINE
  dc.b '  w   .WriteEnable Normal: Unit is read/write according to disk-tab',NEWLINE
  dc.b '  v    Verify      Read written track back and compare (vv, vvv)',NEWLINE
  dc.b '  b   .Believe     Normal: Asume track is written well',NEWLINE
  dc.b '  u    Update      Update track and stop motor after 5 sec idling',NEWLINE
  dc.b '  e   .ExtUpdate   Normal: External update and motor off',NEWLINE
  dc.b '  /    Separator   E.g. "0/2n"  Units 0 and 2 in RAM, noclick only on 2',NEWLINE
  dc.b ' h ?   Explain     If given (anywhere), no commands are executed',NEWLINE
  dc.b 0


		END