home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / 28may87r.ark / CALLVERS.ASM next >
Encoding:
Assembly Source File  |  1989-09-27  |  640 b   |  29 lines
  1.     ; CALLVERS program
  2.  
  3. bdos    equ    5            ; entry point for BDOS
  4. prtstr    equ    9            ; print string function
  5. vers    equ    12            ; get version function
  6. cr    equ    0dh            ; carriage return
  7. lf    equ    0ah            ; line feed
  8.  
  9.     org    100h
  10.     mvi     d,5            ; Perform 5 times
  11. loop:    push    d            ; save counter
  12.     mvi     c,prtstr 
  13.     lxi     d,call$msg        ; print call message
  14.     call     bdos
  15.     mvi     c,vers 
  16.     call     bdos            ; try to get version #
  17.                     ; CALLVERS will intercept
  18.     mov     a,l 
  19.     sta    curvers
  20.     pop     d
  21.     dcr     d            ; decrement counter
  22.     jnz     loop
  23.     mvi     c,0
  24.     jmp     bdos
  25. call$msg:
  26.     db    cr,lf,'**** CALLVERS **** $'
  27. curvers    db    0
  28.     end
  29.