home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / Debug / Debug.bak next >
Text File  |  1993-12-21  |  2KB  |  83 lines
  1. *************************************************
  2. *                        *
  3. *         (C)opyright 1992        *
  4. *                        *
  5. *        by  Tomi Blinnikka        *
  6. *                        *
  7. *    Don´t try to understand the code    *
  8. *                        *
  9. * Version 0.01    27/05/1992            *
  10. *                        *
  11. * BUGS:    What ?                    *
  12. *                        *
  13. *************************************************
  14.  
  15.     INCLUDE    "JMPLibs.i"
  16.     INCLUDE    "exec/types.i"
  17.     INCLUDE    "intuition/intuition.i"
  18.     INCLUDE    "libraries/dos.i"
  19.  
  20.     INCLUDE    "XREF:intuition.xref"
  21.     INCLUDE    "XREF:exec.xref"
  22.     INCLUDE    "XREF:dos.xref"
  23.  
  24.         section    Debug,CODE
  25.  
  26.         move.l    a0,a4
  27.         openlib    Dos,ShutDown_Out
  28.  
  29.         lea.l    AuthorText1,a0
  30.         bsr    Printer
  31.  
  32.         cmp.b    #"?",(a4)
  33.         beq    CmdLineHelp
  34.         cmp.w    #'-?',(a4)
  35.         beq    CmdLineHelp
  36.         cmp.w    #'-h',(a4)
  37.         beq    CmdLineHelp
  38.  
  39.         lea.l    EnterText1,a0
  40.         bsr    Printer
  41.  
  42.         lib    Exec,Debug
  43.  
  44.         lea.l    ReturnText1,a0
  45.         bsr    Printer
  46.         
  47. ShutDown:    closlib    Dos
  48. ShutDown_Out:    move.l    #RETURN_OK,d0
  49.         rts
  50.  
  51. CmdLineHelp:    lea.l    UsageText1,a0
  52.         bsr    Printer    
  53.         bra    ShutDown
  54.  
  55. Printer:    printa    a0
  56.         rts
  57.  
  58. ;Structures and reservations
  59.  
  60.         dc.b    "$VER: "
  61. AuthorText1:    dc.b    "Debug 0.01 by Tomi Blinnikka",10,10
  62. ;        dc.b    10,"!!! BETA TESTER VERSION !!!",10,10,10
  63.         dc.b    0
  64.  
  65. UsageText1:    dc.b    "USAGE: Debug [?]",10,10
  66.         dc.b    "       Where: [?] gives this text.",10,10
  67.         dc.b    "This program makes the computer enter the debug "
  68.         dc.b    "state (ROM-wack).",10
  69.         dc.b    "See docs for more information.",10,0
  70.  
  71. EnterText1:    dc.b    "==> Entered debug state <==",10
  72.         dc.b    10,"Use 'resume' to return",10,0
  73. ReturnText1:    dc.b    10,"<== Returned from debug ==>",10,0
  74.  
  75.         ds.l    0
  76.  
  77. ;library stuff
  78.  
  79.         libnames
  80.  
  81.         END
  82.  
  83.