home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 24 DOS / 24-DOS.zip / dosrx10b.zip / INTR.R < prev    next >
Text File  |  1988-04-10  |  288b  |  9 lines
  1. /* interrupt test */
  2. /* print msg via int 21, ah = 9 */
  3. msg = "This is an interrupt test. Prints this message",
  4.       "using Dos int 21, ah=9." || "0A0D"x || "$"
  5. seg = d2x(addr('msg') % 16)
  6. ofs = d2x(addr('msg') // 16)
  7. regs = intr( x2d("21"), "ax=0900 dx="ofs "ds="seg )
  8. say regs
  9.