Fix for the Bugs in divide in ACTION!#
;The following Action! routine will provide you with a fix for the bugs
;in divide in Action! It should be self-explanatory...
MODULE ; NEWDIVI.ACT
; (c) 1983 ACS
; Copyright (c) 1983
; by Action Computer Services (ACS)
; Permission is granted to duplicate
; and/or distribute the contents of
; this file to any licensed user of
; OSS ACTION. This copyright notice
; must be replicated in all such
; copies. Copies of this file may
; not be sold or otherwise used for
; monetary gain.
; This file fixes the problems with
; the ACTION! divide routine and
; should be included within all your
; ACTION! programs until such time
; as an update ROM is available.
; TO USE:
; 'INCLUDE' this file in front
; of all your PROCedures and
; FUNCtions.
; e.g. INCLUDE "D2:NEWDIVI.ACT"
PROC DivI=*()
[ $20 $A06C $85 $86 $A2 $10 $26 $82
$26 $83 $26 $86 $26 $87 $38 $A5
$86 $E5 $84 $A8 $A5 $87 $E5 $85
$90 $04 $85 $87 $84 $86 $CA $D0
$E5 $A5 $82 $2A $26 $83 $A6 $83
$4C $A032]
PROC REMI=*()
[$20 DivI $86A5 $87A6 $60]
SET $4EA=DivI
SET $4EC=RemI
; End of MODULE NEWDIVI.ACT