home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
BDOS
/
NOVADOSI.LBR
/
NVDS.ZZ0
/
NVDS.Z80
Wrap
Text File
|
2000-06-30
|
4KB
|
211 lines
; SUPER DISK OPERATING SYSTEM
; ===========================
;
; Release H:
.comment \
Program: NovaDOS
Authors: Herman Ten Brugge (PDOS, P2DOS, release ??/??/85)
Bemjamin Ho (SuprBDOS, release 09/02/86)
Lindsay Haisley (NovaDOS, release 10/25/88)
This is an evolutionary program rather than the result
of collaboration between the authors. Most of the work
was done by H.A.J. Ten Brugge who wrote the original
code.
COPYRIGHT NOTICE
----------------
* This source code is copyright (c) 1985 by Herman Ten Brugge of The *
* Netherlands. It may be freely copied and used for non-commercial *
* purposes. Any commercial use is prohibited unless approved in *
* writing by the original author, H.A.J. Ten Brugge. *
*
* ALL RIGHTS RESERVED H.A.J. Ten Brugge *
* Molenstraat 33 *
* NL-7491 BD Delden *
* The Netherlands *
* Tel:..31-5407-1980 *
* * * * * * * * * * * *
Many Thanks to Jay Sage of Sage Microsystems East for the inspiration and
ideas for the organization of this code.
\
false equ 0000
true equ not false
yes equ true
no equ false
maclib NDOSHDR.LIB
if hexgen and not intadr and not z33adr
.printx * HEXGEN ERROR. INTADR OR Z33ADR MUST BE TRUE IN HEADER FILE *
else
;
if cmnadr
common /_ID_/ ; Include the ID common, if needed
defb 'NovaDOS Rel: '
version
defb 0dh,0ah
.radix 16
if resdsk
if resflag
defb 'BIOS resdsk: INTRNL',0dh,0ah
else
resmac macro xx
defb 'BIOS resdsk: &xx h',0dh,0ah
endm
resmac %setdsk
endif ; resflag
endif ; resdsk
if pathoff gt 0
pathmac macro xx
defb 'DOS path at: &xx h',0dh,0ah
endm
pathmac %pathoff
else
defb 'DOS path: OFF',0dh,0ah
endif
flagmac macro xx
defb 'Init. Flags: &xx',0dh,0ah
endm
.radix 2
flagmac %flagbyte
.radix 16
if dotime
timemac macro xx
defb 'Time/dte at: &xx h',0dh,0ah
endm
timemac %timeoff
endif
if exstack
stakmac macro xx
defb 'DOS stack: &xx h',0dh,0ah
endm
stakmac %exstack
else
defb 'DOS stack: INTRNL',0dh,0ah
endif
if erresc
errmac macro xx
defb 'Error esc: &xx h',0dh,0ah
endm
errmac %erresc
endif
if hifuncs
zvermac macro xx
defb 'ZRDOS vs. #: &xx',0dh,0ah
endm
zvermac %zrvers
endif
defb 'CTRL-R: '
if contron
defb 'YES'
else
defb 'NO'
endif
defb 0dh,0ah
defb 'Function 37: '
if runlog
defb 'CP/M'
else
defb 'ZRDOS'
endif
defb 0dh,0ah
defb 'High funcs: '
if hifuncs
defb 'YES'
else
defb 'NO'
endif
defb 0dh,0ah
if relfunc
defb 'Reloc. Fnc: YES',0dh,0ah
endif
defb 'Function 42: '
if pathcall
defb 'YES'
else
defb 'NO'
endif
defb 0dh,0ah
defb 'Hi bit I/O: '
if hibiton
defb 'YES'
else
defb 'NO'
endif
defb 0
.radix 10
cseg
endif
;
; PRTVAL macro(s) to print text and value during assembly
; (Courtesy of Jim Lill)
;
prtval2 macro m1,v1,m2 ; \
.printx + m1 v1 m2 + ; +- this is the print value macro
endm ; /
prtval macro r,msg1,val,msg2 ; \
.radix r ; passing the radix value
prtval2 <msg1>,%val,<msg2> ; requires the uses of 2 macros
.radix 10 ; /
endm ;
if intadr
bdosloc equ idosloc
p2bios equ ip2bios
endif
if z33adr
maclib Z3BASE.LIB
bdosloc equ ccp+800h
p2bios equ ccp+1600h
endif
if cmnadr
name ('DOS')
maclib Z34CMN.LIB
p2bios equ bios
endif
if reladr
p2bios equ p2dos+0e00h
endif
if hexgen
org putsdos
endif
maclib NVDS-1.Z80
maclib NVDS-2.Z80
maclib NVDS-3.Z80
maclib NVDS-4.Z80
endif ; hexgen and not intadr and not z33adr
end