mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
89 lines
2.3 KiB
NASM
89 lines
2.3 KiB
NASM
; 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
|
||
|
||
|