home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / abort.mac < prev    next >
Text File  |  1989-02-23  |  640b  |  27 lines
  1. ;
  2. ; abort.mac    by    F. A. Scacchitti    11 - 24 - 84
  3. ;
  4. ;    abort(error code)
  5. ;
  6. EXTRN    EXIT
  7. ;
  8. ABORT::
  9. ;
  10.     POP    B        ; throw away return address
  11.     POP    H        ; get abort code
  12.     ORA    A        ; code passed ?
  13.     JZ    ABORT2        ; no  - leave it as is
  14.     MOV    A,L
  15.     STA    ABCODE        ; yes - imbed it in the message
  16. ABORT2:    LXI    D,ABTMSG    ; Load abort message
  17.     MVI    C,9
  18.     CALL    5
  19.     JMP    EXIT
  20. ;
  21. ABTMSG:    DB    0DH, 'Aborted '
  22. ;
  23. ABCODE:    DB    07,0D,'$'
  24. ;
  25.     END
  26.  
  27.