home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 70 / af070sub.adf / Fake020 / Fake020.lha / fake / fake20.e < prev    next >
Encoding:
Text File  |  1980-01-01  |  498 b   |  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.