home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / TASMSWAN.ZIP / DIVFAULT.ASM < prev    next >
Assembly Source File  |  1989-07-17  |  561b  |  41 lines

  1. %TITLE  "Divide-Fault demo"
  2.  
  3.     IDEAL
  4.     DOSSEG
  5.     MODEL    small
  6.     STACK    256
  7.  
  8. ;----- Equates
  9. cr        EQU    13
  10. lf        EQU    10
  11.  
  12.     DATASEG
  13.  
  14. exitCode    db    0
  15. message1    db    cr,lf,'Forcing a divide by Zero fault...', 0
  16. message2    db    cr,lf,'Program continued normally',cr,lf, 0
  17.  
  18.     CODESEG
  19.  
  20. ;---------- from STRIO.obj
  21.     EXTRN    StrWrite:proc
  22.  
  23.  
  24. Start:
  25.     mov    ax,@data
  26.     mov    ds,ax
  27.     mov    es,ax
  28.     mov    di, offset message1
  29.     call    StrWrite
  30.     mov    ax, 100h
  31.     xor    bx,bx
  32.     div    bx
  33. Exit:
  34.     mov    di, offset message2
  35.     call    StrWrite
  36.     mov    ah,04Ch
  37.     mov    al,[exitCode]
  38.     int    21h
  39.  
  40.     END    Start
  41.