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
Text File  |  2000-06-30  |  4KB  |  211 lines
  1. ;            SUPER DISK OPERATING SYSTEM
  2. ;            ===========================
  3. ; 
  4. ; Release H:  
  5.  
  6.     .comment \
  7.  
  8. Program:    NovaDOS
  9. Authors:    Herman Ten Brugge (PDOS, P2DOS, release ??/??/85)
  10.         Bemjamin Ho (SuprBDOS, release 09/02/86)
  11.         Lindsay Haisley (NovaDOS, release 10/25/88)
  12.  
  13.         This is an evolutionary program rather than the  result 
  14.         of collaboration between the authors.  Most of the work 
  15.         was done by H.A.J. Ten Brugge who  wrote  the  original 
  16.         code.  
  17.         
  18.  
  19. COPYRIGHT NOTICE
  20. ----------------
  21.  
  22. *   This source code is copyright (c) 1985 by Herman Ten Brugge of  The   *
  23. *   Netherlands.   It  may be freely copied and used for non-commercial   *
  24. *   purposes.  Any commercial use  is  prohibited  unless  approved  in   *
  25. *   writing by the original author, H.A.J. Ten Brugge.              *
  26. *
  27. *   ALL RIGHTS RESERVED         H.A.J. Ten Brugge              *
  28. *                              Molenstraat 33                  *
  29. *                  NL-7491 BD Delden              *
  30. *                 The Netherlands              *
  31. *                 Tel:..31-5407-1980              *
  32.  
  33.  
  34.         *   *   *   *   *   *   *   *   *   *   *   *
  35.  
  36. Many  Thanks  to  Jay Sage of Sage Microsystems East for the inspiration and 
  37. ideas for the organization of this code.  
  38.         
  39.  
  40. \
  41.  
  42.  
  43. false    equ    0000
  44. true    equ    not false
  45. yes    equ    true
  46. no    equ    false
  47.  
  48.     maclib    NDOSHDR.LIB
  49.  
  50.      if    hexgen and not intadr and not z33adr
  51.     .printx    * HEXGEN ERROR.  INTADR OR Z33ADR MUST BE TRUE IN HEADER FILE *
  52.      else
  53. ;
  54.      if    cmnadr
  55.     common    /_ID_/            ; Include the ID common, if needed
  56.     defb    'NovaDOS Rel: '
  57.     version
  58.     defb    0dh,0ah
  59.     .radix 16
  60.     
  61.      if    resdsk
  62.      if    resflag
  63.     defb    'BIOS resdsk: INTRNL',0dh,0ah
  64.      else
  65. resmac    macro    xx
  66.     defb    'BIOS resdsk: &xx h',0dh,0ah
  67.     endm
  68.     resmac    %setdsk
  69.      endif    ; resflag
  70.      endif    ; resdsk
  71.     
  72.      if    pathoff gt 0
  73. pathmac    macro    xx
  74.     defb    'DOS path at: &xx h',0dh,0ah
  75.     endm
  76.     pathmac    %pathoff
  77.      else
  78.     defb    'DOS path:    OFF',0dh,0ah
  79.      endif
  80.  
  81. flagmac    macro    xx
  82.     defb    'Init. Flags: &xx',0dh,0ah
  83.     endm
  84.     .radix 2
  85.     flagmac    %flagbyte
  86.     .radix 16
  87.  
  88.      if    dotime
  89. timemac    macro    xx
  90.     defb    'Time/dte at: &xx h',0dh,0ah
  91.     endm
  92.     timemac    %timeoff
  93.      endif
  94.     
  95.      if    exstack
  96. stakmac    macro    xx
  97.     defb    'DOS stack:   &xx h',0dh,0ah
  98.      endm
  99.     stakmac    %exstack
  100.      else
  101.     defb    'DOS stack:   INTRNL',0dh,0ah
  102.      endif
  103.     
  104.      if    erresc
  105. errmac    macro    xx
  106.     defb    'Error esc:   &xx h',0dh,0ah
  107.     endm
  108.     errmac    %erresc
  109.      endif
  110.  
  111.      if    hifuncs
  112. zvermac    macro xx
  113.     defb    'ZRDOS vs. #: &xx',0dh,0ah
  114.     endm
  115.     zvermac    %zrvers
  116.      endif
  117.     
  118.     defb    'CTRL-R:      '
  119.      if    contron
  120.     defb    'YES'
  121.      else
  122.     defb    'NO'
  123.      endif
  124.     defb    0dh,0ah
  125.     
  126.     defb    'Function 37: '
  127.      if    runlog
  128.     defb    'CP/M'
  129.      else
  130.     defb    'ZRDOS'
  131.      endif
  132.     defb    0dh,0ah
  133.     
  134.     defb    'High funcs:  '
  135.      if    hifuncs
  136.     defb    'YES'
  137.      else
  138.     defb    'NO'
  139.      endif
  140.     defb    0dh,0ah
  141.  
  142.      if    relfunc
  143.     defb    'Reloc. Fnc:  YES',0dh,0ah
  144.      endif
  145.     
  146.     defb    'Function 42: '
  147.      if    pathcall
  148.     defb    'YES'
  149.      else
  150.     defb    'NO'
  151.      endif
  152.     defb    0dh,0ah
  153.  
  154.     defb    'Hi bit I/O:  '
  155.      if    hibiton
  156.     defb    'YES'
  157.      else    
  158.     defb    'NO'
  159.      endif
  160.     
  161.     defb    0
  162.     .radix    10    
  163.     cseg
  164.      endif
  165.  
  166. ;
  167. ; PRTVAL macro(s) to print text and value during assembly
  168. ; (Courtesy of Jim Lill)
  169. ;
  170.  
  171. prtval2    macro m1,v1,m2            ; \
  172.     .printx    + m1 v1 m2 +        ;  +- this is the print value macro
  173.     endm                ; /
  174.  
  175. prtval    macro r,msg1,val,msg2        ; \
  176.     .radix r            ;   passing the radix value
  177.     prtval2 <msg1>,%val,<msg2>    ;   requires the uses of 2 macros
  178.     .radix 10            ; /
  179.     endm                ; 
  180.  
  181.      if    intadr
  182. bdosloc    equ    idosloc
  183. p2bios    equ    ip2bios
  184.      endif
  185.  
  186.      if    z33adr
  187.     maclib    Z3BASE.LIB
  188. bdosloc    equ    ccp+800h
  189. p2bios    equ    ccp+1600h
  190.      endif
  191.  
  192.      if    cmnadr
  193.     name    ('DOS')
  194.     maclib    Z34CMN.LIB
  195. p2bios    equ    bios
  196.      endif
  197.      if    reladr
  198. p2bios    equ    p2dos+0e00h
  199.      endif
  200.  
  201.      if    hexgen
  202.     org    putsdos
  203.      endif
  204.  
  205.     maclib    NVDS-1.Z80
  206.     maclib    NVDS-2.Z80
  207.     maclib    NVDS-3.Z80
  208.     maclib    NVDS-4.Z80
  209.      endif    ; hexgen and not intadr and not z33adr
  210.     end
  211.