Exception Trouble

Hi,

I'm using the Professional version of SwiftX68K.

I know the following is not optimal, but is there anything actually wrong
with it? I'm getting strange behavior with the exceptions and am having
trouble tracking it down.

Thanks,

Noel

: /portf ( - )
  $01 pfpar w!
  $60 ddrf w!
  $00 portf w!
  ;

: powerdown ( - )
  /portf
  true to do-powerdown?
  ;

' powerdown
label <powerdown>
  RL R -) MMOV D0 D1 // A0 // U /// \ not optimized
  AB JSR \ call powerdown
  R )+ RL MMOV D0 D1 // A0 // U /// \ not optimized
  RTE
  end-code

<powerdown> $1F EXCEPTION

-- 
------------------------------------------------------------------
  Noel Henson
  www.noels-lab.com	Chips, firmware and embedded systems
  www.vimoutliner.org	Work fast. Think well.
----------------------------------------------------------------------
swiftx_at_forth.com          The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users.  For product support and bug 
reports, please send email to support_at_forth.com
----------------------------------------------------------------------