home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / dev / asm / tbsource / openwb / openwb.bak next >
Encoding:
Text File  |  1993-12-21  |  1.0 KB  |  55 lines
  1. *************************************************
  2. *                        *
  3. *         (C)opyright 1991        *
  4. *                        *
  5. *        by  Tomi Blinnikka        *
  6. *                        *
  7. *    Don´t try to understand the code    *
  8. *                        *
  9. * Version 0.01    28/07/1991            *
  10. *                        *
  11. * BUGS:    What are they?                *
  12. *                        *
  13. *************************************************
  14.     
  15.  
  16.     INCLUDE    "INCLUDES:JMPLibs.i"
  17.     INCLUDE    "INCLUDES:exec/types.i"
  18.     INCLUDE    "INCLUDES:intuition/intuition.i"
  19.     INCLUDE    "INCLUDES:libraries/dos.i"
  20.  
  21.     INCLUDE    "XREF:intuition.xref"
  22.     INCLUDE    "XREF:exec.xref"
  23.     INCLUDE    "XREF:dos.xref"
  24.  
  25.         section    OpenWB,CODE
  26.  
  27.         move.l    a0,a4
  28.         openlib    Dos,ShutDown_Out
  29.  
  30.         cmp.b    #"?",(a4)
  31.         beq    CmdLineHelp
  32.     
  33.         openlib    Intuition,NoIntuition
  34.         lib    Intuition,OpenWorkBench
  35.  
  36. ShutDown:    closlib    Intuition
  37.         closlib    Dos
  38. ShutDown_Out:    move.l    #RETURN_OK,d0
  39.         rts
  40.  
  41. NoIntuition:    print    <"Can't open intuition.library!",10>
  42.         jmp    ShutDown
  43.  
  44. CmdLineHelp:    print    <"OpenWB, v0.01a by Tomi Blinnikka",10,10,"This program tries to open the Workbench screen.",10>
  45.         jmp    ShutDown
  46.  
  47.  
  48.         dc.b    "$VER: OpenWB 0.01a",0
  49. ;library stuff
  50.  
  51.         libnames
  52.  
  53.         END
  54.  
  55.