home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compatibl / fake / fake20.e < prev    next >
Text File  |  1995-02-27  |  498b  |  20 lines
  1. OPT OSVERSION=39
  2. OPT    STACK=10000
  3.  
  4. MODULE    'exec/execbase'
  5.  
  6. DEF eb=NIL:PTR TO execbase
  7.  
  8. PROC main()
  9.  
  10.     WriteF('\n\nFAKE20 v0.1  by C.Randall on Dec 14, 1993.\n')
  11.     WriteF('      OK.  Now your OS thinks this is a 68020.\n')
  12.     WriteF('      Remember to REBOOT after usage. (Read the docs.)\n\n')
  13.  
  14.     eb:=OpenLibrary('exec.library',39)
  15.     eb.attnflags:=2 /*bit 2 signals a 68020. Other bits are cleared */
  16.                     /*because we might have a MMU/FPU. We want a plain 68020.*/
  17.     CloseLibrary(eb)
  18.  
  19. ENDPROC
  20.