incdir  include:
		incdir  lvo:

		include powerpc/ppcmacros.i
		include powerpc/powerpc.i
		include powerpc/tasksppc.i

		include powerpc_lib.i
		include exec_lib.i
		include dos_lib.i

		xref    _SysBase
		xref    _DOSBase
		xref    _PowerPCBase
		xref    _LinkerDB
		smalldata
		executable
		escapestr
		version 10

start
		prolog  1024
		push    r31
		la      _d1,template
		la      _d2,Array
		li      _d3,0
		RUN68K_XL       _DOSBase,ReadArgs
		tstw    _d0
		beq     .close
		mr      r31,_d0
		lw      r3,Array
		tstw    r3
		beq     .close
		lwz     r4,0(r3)
		cmpwi   r4,1
		bge     .cont
		li      r4,1
.cont
		cmpwi   r4,20
		ble     .cont2
		li      r4,20
.cont2
		sw      r4,Schedreaction
		la      r4,Schedtags
		CALLPOWERPC     SetScheduling
		lw      r3,Schedreaction
		sw      r3,Args
		la      _d1,showreaction
		la      _d2,Args
		RUN68K_XL       _DOSBase,VPrintf
		mr      _d1,r31
		RUN68K_XL       _DOSBase,FreeArgs
.close
		pop     r31
		epilog

		section data
template        dc.b    "REACTION/N",0
showreaction    dc.b    "Reaction value set to %ld\n"

		cnop    0,4

Schedtags       dc.l    SCHED_REACTION
Schedreaction   dc.l    0
		dc.l    0

		section bss
		ds.b    32
Array           ds.l    1
Args            ds.l    1
		ds.b    32
		even