home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / MAC_PRGS.M2 / BERRTEST.M next >
Encoding:
Text File  |  1995-07-16  |  388 b   |  21 lines
  1. (*$c-*)
  2. module berrtest;
  3.  
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5.  
  6. begin
  7.   ASSEMBLER
  8.         illegal
  9.         move.l  $4f2,a0
  10.         move.w  $2000(a0),d0
  11.         addq    #1,d0
  12.         move.w  d0,$2000(a0)
  13.         move.l  $ff8600,d0
  14.         move.l  $ffff8600,d0
  15.         move.l  $fffA00,d0
  16.         move.l  $fffffA00,d0
  17.         clr     -(a7)
  18.         trap    #1
  19.   end
  20. end berrtest.
  21.