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 / UTILS / A / 28MAY87R.ARK / ECHOVERS.ASM < prev    next >
Assembly Source File  |  1989-09-27  |  896b  |  47 lines
  1.     ; ECHOVERS RSX
  2.  
  3. pstring    equ    9            ; string print function
  4. cr    equ    0dh
  5. lf    equ    0ah
  6. ;
  7. ;        RSX PREFIX STRUCTURE
  8. ;
  9.     db    0,0,0,0,0,0        ; room for serial number
  10.     jmp    ftest            ; begin of program
  11. next    db    0c3H            ; jump
  12.         dw    0            ; next module in line
  13. prev:    dw    0            ; previous module
  14. remov:    db    0ffh            ; remove flag set
  15. nonbnk:    db    0
  16.     db    'ECHOVERS'
  17. space:    ds    3
  18.  
  19. ftest:                    ; is this function 12?
  20.     mov     a,c 
  21.     cpi     12 
  22.     jz     begin            ; yes - intercept
  23.         jmp     next            ; some other function 
  24.  
  25. begin:
  26.     lxi     h,0    
  27.     dad     sp             ;save stack
  28.     shld     ret$stack
  29.     lxi     sp,loc$stack
  30.  
  31.     mvi     c,pstring 
  32.     lxi     d,test$msg        ; print message
  33.     call     next            ; call BDOS
  34.  
  35.     lhld     ret$stack         ; restore user stack
  36.     sphl
  37.     lxi     h,0031h            ; return version number = 0031h
  38.     ret
  39.  
  40. test$msg:
  41.     db    cr,lf,'**** ECHOVERS **** $'
  42. ret$stack:    
  43.     dw    0
  44.     ds    32            ; 16 level stack
  45. loc$stack:
  46.     end
  47.