mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
2.2 KiB
88 lines
2.2 KiB
; 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
|
|
|
|
|