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 / ENTERPRS / CPM / TERMS / ZMP-SRC.LZH / USERDEF.AS < prev    next >
Text File  |  2000-06-30  |  2KB  |  128 lines
  1. ; Jump table and dummy routines for user-defined stuff
  2. ;
  3. ;Written rjm August, 1988
  4. ; Added setport() rjm 25/3/89
  5.  
  6.     psect    text
  7.  
  8.     global    userdef
  9.     global    _screenpr,_mrd,_mchin,_mchout,_moutrdy,_mirdy
  10.     global    _sendbrk,_locate,_cls,_stndout,_getvarsr
  11.     global    _stndend,_hidecurs,_showcurs,_savecurs,_restcurs
  12.     global    _minterru,_initvect,_deinitve,_mdmerror,_dtron
  13.     global    _dtroff,_initace,_wait,_mswait,_userin,_userout
  14.     global    _getvars,_setport
  15.  
  16. ;General equates:
  17. bdos    equ    5
  18. cr    equ    0dh
  19. lf    equ    0ah
  20.  
  21. userdef:        ; Marker so we know where the overlay starts
  22.  
  23. ;Organise as jump table for the overlay
  24.  
  25. _screenpr:        ; screen print for ZMP, get variables for RZMP
  26. _getvarsr:
  27.     jp    abort
  28. _mrd:
  29.     jp    abort
  30. _mchin:
  31.     jp    abort
  32. _mchout:
  33.     jp    abort
  34. _moutrdy:
  35.     jp    abort
  36. _mirdy:
  37.     jp    abort
  38. _sendbrk:
  39.     jp    abort
  40. _locate:
  41.     jp    abort
  42. _cls:
  43.     jp    abort
  44. _stndout:
  45.     jp    abort
  46. _stndend:
  47.     jp    abort
  48. _hidecurs:
  49.     jp    abort
  50. _showcurs:
  51.     jp    abort
  52. _savecurs:
  53.     jp    abort
  54. _restcurs:
  55.     jp    abort
  56. _minterru:
  57.     jp    abort
  58. _initvect:
  59.     jp    abort
  60. _deinitve:
  61.     jp    abort
  62. _mdmerror:
  63.     jp    abort
  64. _dtron:
  65.     jp    abort
  66. _dtroff:
  67.     jp    abort
  68. _initace:
  69.     jp    abort
  70. _wait:
  71.     jp    abort
  72. _mswait:
  73.     jp    abort
  74. _userin:
  75.     jp    abort
  76. _userout:
  77.     jp    abort
  78. _getvars:
  79.     jp    abort
  80. _setport:
  81.     jp    abort
  82.  
  83. ;Spares
  84.     jp    abort
  85.     jp    abort
  86.     jp    abort
  87.     jp    abort
  88.     jp    abort
  89.  
  90.  
  91. abort:
  92.     call    print
  93.     defb    cr,lf
  94.     defm    'This copy of ZMP is not installed. Obtain a '
  95.     defm    'suitable overlay for your system.'
  96.     defb    cr,lf,lf,0
  97.     jp    0        ; warm boot
  98.  
  99. ;In-line print routine
  100. print:
  101.     ex    (sp),hl        ; get return address
  102. print1:
  103.     ld    a,(hl)        ; get next character
  104.     inc    hl        ; bump pointer
  105.     or    a        ; done if zero
  106.     jr    nz,print2
  107.     ex    (sp),hl        ; so swap back
  108.     ret
  109. print2:
  110.     call    cout        ; ok, print it
  111.     jr    print1        ; and loop
  112.  
  113. ;Print character in A
  114. cout:
  115.     push    bc
  116.     push    de
  117.     push    hl
  118.     ld    c,2
  119.     ld    e,a
  120.     call    bdos
  121.     pop    hl
  122.     pop    de
  123.     pop    bc
  124.     ret
  125.  
  126.     defs    0400h - ($ - userdef)    ; Allow room for overlay
  127.  
  128.