home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / demos / programme / WarpUPV3 / WarpUP-WarpOS / Source / tools / sched.p < prev    next >
Encoding:
Text File  |  1998-10-06  |  1.2 KB  |  73 lines
  1.         incdir  include:
  2.         incdir  lvo:
  3.  
  4.         include powerpc/ppcmacros.i
  5.         include powerpc/powerpc.i
  6.         include powerpc/tasksppc.i
  7.  
  8.         include powerpc_lib.i
  9.         include exec_lib.i
  10.         include dos_lib.i
  11.  
  12.         xref    _SysBase
  13.         xref    _DOSBase
  14.         xref    _PowerPCBase
  15.         xref    _LinkerDB
  16.         smalldata
  17.         executable
  18.         escapestr
  19.         version 10
  20.  
  21. start
  22.         prolog  1024
  23.         push    r31
  24.         la      _d1,template
  25.         la      _d2,Array
  26.         li      _d3,0
  27.         RUN68K_XL       _DOSBase,ReadArgs
  28.         tstw    _d0
  29.         beq     .close
  30.         mr      r31,_d0
  31.         lw      r3,Array
  32.         tstw    r3
  33.         beq     .close
  34.         lwz     r4,0(r3)
  35.         cmpwi   r4,1
  36.         bge     .cont
  37.         li      r4,1
  38. .cont
  39.         cmpwi   r4,20
  40.         ble     .cont2
  41.         li      r4,20
  42. .cont2
  43.         sw      r4,Schedreaction
  44.         la      r4,Schedtags
  45.         CALLPOWERPC     SetScheduling
  46.         lw      r3,Schedreaction
  47.         sw      r3,Args
  48.         la      _d1,showreaction
  49.         la      _d2,Args
  50.         RUN68K_XL       _DOSBase,VPrintf
  51.         mr      _d1,r31
  52.         RUN68K_XL       _DOSBase,FreeArgs
  53. .close
  54.         pop     r31
  55.         epilog
  56.  
  57.         section data
  58. template        dc.b    "REACTION/N",0
  59. showreaction    dc.b    "Reaction value set to %ld\n"
  60.  
  61.         cnop    0,4
  62.  
  63. Schedtags       dc.l    SCHED_REACTION
  64. Schedreaction   dc.l    0
  65.         dc.l    0
  66.  
  67.         section bss
  68.         ds.b    32
  69. Array           ds.l    1
  70. Args            ds.l    1
  71.         ds.b    32
  72.         even
  73.