home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum5.lzh / SPRACHEN / ASSEMBLER / break.a < prev    next >
Text File  |  1987-03-13  |  2KB  |  67 lines
  1.  NAM BREAK
  2.  TTL Call System debugger
  3. *********************************
  4. *             BREAK             *
  5. *     Call System debugger      *
  6. * Disassembled 1987 by L.Zeller *
  7. *********************************
  8.  
  9.  USE /dd/defs/defsfile
  10.  
  11. VERSION EQU 0 program version number
  12. REVISION EQU 0 revision count
  13. EDITION EQU 8 edition count
  14.  
  15. * Versions / Revisions
  16. * 0.0 : object code at disassembly time
  17.  
  18. * Edition History
  19. * ---------------
  20. * 008 : object code at disassembly time
  21.  
  22. TYPELANG EQU (Prgrm<<8)+Objct
  23. ATTREV EQU (ReEnt<<8)+REVISION
  24.  
  25. STACKSIZ EQU 256
  26.  
  27.  PSECT break,TYPELANG,ATTREV,EDITION,STACKSIZ,BREAKENT
  28.  
  29. STDIN EQU 0 standard input
  30. STDOUT EQU 1 standard output
  31. STDERR EQU 2 standard output
  32.  
  33.  VSECT
  34.  ENDS
  35.  
  36. * Program code
  37. * ============
  38.  
  39. USETEXT DC.B "Syntax: break",$0D
  40.  DC.B "Function: invokes the system level debugger",$0D
  41.  DC.B "  (You must be the super user)",$0D
  42.  
  43. BREAKTXT DC.B "(breakpoints stop timesharing.)",$0D
  44.  DC.B "Timesharing resumed.",$0D
  45.  
  46. * entry point
  47. BREAKENT SUBQ.L #3,D5 less than 3 bytes parameters ?
  48.  BCS.S BRK1 ..yes --> ok
  49.  CMPI.B #'-,(A5)+ option specified ?
  50.  BNE.S BRK1 ..no --> ok
  51.  CMPI.B #'?,(A5)+ help option ?
  52.  BNE.S BRK1 ..no --> ok
  53. BRK2 LEA USETEXT(PC),A0 ptr to help text
  54.  BRA.S BRK3
  55. BRK1 TST.L D1 superuser ?
  56.  BNE.S BRK2 ..no --> display help text
  57.  MOVEQ #0,D1
  58.  OS9 F$SysDbg call system debugger
  59.  LEA BREAKTXT(PC),A0 ptr to return-from-debugger text
  60. BRK3 MOVEQ #STDOUT,D0
  61.  MOVEQ #-1,D1 as much as you can
  62.  OS9 I$WritLn display message
  63.  MOVEQ #0,D1 no errors
  64.  OS9 F$Exit exit
  65.  
  66.  ENDS
  67.