home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / NoReq20 / NoReq00a.S < prev    next >
Text File  |  1993-12-21  |  2KB  |  76 lines
  1. ***********************************************
  2. *                                             *
  3. *              (C)opyright 1991               *
  4. *                                             *
  5. *             by  Tomi Blinnikka              *
  6. *                                             *
  7. *      Don´t try to understand the code       *
  8. *                                             *
  9. *                                             *
  10. *      Get those requesters outta here!       *
  11. *                                             *
  12. ***********************************************
  13.     
  14.  
  15.     INCLUDE    "JMPLibs.i"
  16.  
  17. _LVOEasyRequestArgs:    EQU    -$024c
  18. _LVOAutoRequest:    EQU    -$015c
  19. _LVOSetFunction:    EQU    -$01a4
  20. _LVOOpenLibrary:    EQU    -$0228
  21. _LVOCloseLibrary:    EQU    -$019e
  22. _LVOAllocMem:        EQU    -$00c6
  23. _LVOCopyMem:        EQU    -$0270
  24. _LVOOutput:        EQU    -$003c
  25. _LVOWrite:        EQU    -$0030
  26.  
  27. Start:        move.l    a0,a2
  28.         openlib    Dos,ShutDown
  29.         lib    Dos,Output
  30.         move.l    d0,_stdout
  31.  
  32.         cmp.b    #"?",(a2)
  33.         beq    CommandLineHelp
  34.  
  35.         move.l    #36,d0
  36.         openlib    Intuition,ShutDown
  37.         move.l    #16,d0
  38.         move.l    #01,d1
  39.         lib    Exec,AllocMem
  40.         move.l    d0,d6
  41.         beq    NewCode
  42.         lea.l    NewCode(pc),a0
  43.         move.l    d0,a1
  44.         move.l    #6,d0
  45.         lib    Exec,CopyMem
  46.  
  47.         move.l    _IntuitionBase(pc),a1
  48.         move.l    d6,a0
  49.         move.l    a0,d0
  50.         move.l    #_LVOEasyRequestArgs,a0
  51.         lib    Exec,SetFunction
  52.         move.l    _IntuitionBase(pc),a1
  53.         lea.l    NewCode(pc),a0
  54.         move.l    a0,d0
  55.         move.l    #_LVOAutoRequest,a0
  56.         lib    Exec,SetFunction
  57.         print    <"NoReq20 v0.01a.",13,10>,_stdout
  58.         print    <"(C)opyright 1991 Tomi Blinnikka",13,10>,_stdout
  59.         print    <"Requesters will be canceled automatically.",13,10>,_stdout
  60. ShutDown:    closlib    Intuition
  61.         closlib    Dos
  62.  
  63. NewCode:    move.l    #$00,d0
  64.         rts
  65.  
  66.         INCLUDE    "FH1:Language/WF/NoReq20/NRCommandLineHelp.i"
  67.  
  68.         libnames
  69.  
  70. ;File stuff
  71.  
  72. _stdout:    dc.l    0
  73.  
  74.         END
  75.  
  76.