Reintegrate dwg -> trunk

Apps/crossdev/SETLABEL.ASM

@@ -0,0 +1,89 @@
+; setlabel.asm 2/22/2012 dwg - use new labelib macro library for labels
+; label.asm    2/11/2012 dwg - make ident compliant
+; label.asm    2/11/2012 dwg - begin 1.6 enhancements
+; label.asm    2/04/2012 dwg - use new macros for benefits
+; label.asm    1/20/2012 dwg - label a drive or slice
+
+;
+; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3.
+;
+; This file is part of NuBiosDWG and is free software: you can
+; redistribute it and/or modify it under the terms of the GNU
+; General Public License as published by the Free Software Foundation,
+; either version 3 of the License, or (at your option) any later version.
+; This file is distributed in the hope that it will be useful,
+; but WITHOUT ANY WARRANTY; without even the implied warranty of
+; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+; GNU General Public License for more details.
+; You should have received a copy of the GNU General Public License
+; along with it.  If not, see <http://www.gnu.org/licenses/>.
+;
+
+
+	maclib	portab
+	maclib	globals
+	maclib	stdlib		; SUCCESS & FAILURE
+	maclib	cpmbios
+	maclib	cpmbdos
+	maclib	bioshdr
+	maclib	applvers
+	maclib	cpmappl
+	maclib	banner
+	maclib	identity
+	maclib	labelib
+	maclib	version
+
+	cseg
+
+	do$start	; begin application housekeeping
+
+	jmp	around$bandata
+argv	dw	prog,dat,prod,orig,ser,myname,0
+prog	db	'SETLABEL.COM$'
+	date
+	serial
+	product
+	originator
+	oriname
+uuid	db	'A3EEDB99-2CC0-483E-8176-A67118936E32$'
+around$bandata:
+
+	sbanner	argv
+
+;	version	warn$msg,error$msg
+
+	mvi	c,RETCURR
+	call	BDOS
+	sta	drive$num
+
+	mov	c,a
+	get$off
+	mov	a,h
+	ora	l
+	jnz	off$ok
+	printf	'Sorry, you can only label drives with reserved tracks'
+	jmp	main$exit
+off$ok:
+
+	lda	drive$num	; using the default drive number
+	mov	c,a		; (presented in the C register)
+	call	x$label		; call the actual code in labelib.asm
+
+main$exit:
+	do$end			; finish up application housekeeping
+
+
+	dseg
+
+drive$num ds 1
+
+; here are the two strings required for the version call
+warn$msg  db 'The version number of this program '
+	  db 'is not exactly the same as the BIOS',CR,LF,'$'
+error$msg db 'Sorry, requires RomWBW or NuBios v2.0'
+
+crlf	db	CR,LF,'$'
+
+	end	start
+
+