Atari 400 Technical Reference Manual page 273

ERR LINE ADDR B1 B2 B3 B4
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
0006
0800
D8E6
09AA
D9D2
DA60
DA66
DADB
OB28
DD89
DD8D
0098
DD9C
DDA7
DDAB
DDB6
DD40
DDCO
DDCC
DECO
OEDl
B081
BD73
BE43
BEBl
6500 ASSEMBLER VER 1.0MR PAGE 12
PAGE FIVE RAM ASSIGNMENTS
PAGE FIVE IS RESERVED AS A USER WORK SPACE
NOTE: SEE FLOATING POINT SUBROUTINE AREA FOR PAGE FIVE CELLS
PAGE SIX RAM ASSIGNMENTS
PAGE SIX IS RESERVEO AS A USER'S USER WORK SPACE
FLOATING POINT SUBROUTINES
FPREC = 6
i
IF CARRY USED THEN CARRY
AFP $0800
FASC
IFP
FPI
FSUB
FADD
FMUL
FOIV
FLDOR
FLDOP
FLD1R
FLD1P
FSTOR
FSTOP
FMOVE
PLYEVL
EXP
EXP10
LOG
LOG10
=
=
=
=
=
=
=
=
=
$D8E6
$09AA
$09D2
$OA60
$DA66
$OAOB
$OB28
$DD89
$DD8D
$0098
$DD9C
$DDA7
$DDAB
$DDB6
$DD40
iFLOATING PT PRECISION
(#
OF BYTES>
CLEAR
=~
NO ERROR, CARR
iASCII-~FLOATING
POINT (FP)
INBUFF+CIX -) FRO, CIX, CARRY
iFP -~ ASCII FRO-~ LBUFF (INBUFF)
i
INTEGER -~ FP
O-$FFFF (LSB,MSB) IN FRO,FRO+l-~FRO
iFP -) INTEGER FRO -) FRO,FRO+l, CARRY
;FRO
<-
FRO - FRl ,CARRY
iFRO
<-
FRO + FRl ,CARRY
iFRO
<-
FRO * FRl ,CARRY
; FRO
<-
FRO I FRl ,CARRY
iFLOATING LOAD REGO FRO
<-
FRO
<-
REGl FRl
<-
FRl
<-
iFLOATING STORE REGO (X/Y)
<-
(X, Y)
(FLPTR)
(X, Y)
(FLPTR)
FRO
II
(FLPTR) <-
FRO
i
FRl
<-
FRO
; FRO
<-
pel)
=
SUM(I=N TO 0) (A(I>*l**I) CAR
INPUT: (X, Y> A(N), A(N-l >. .. A(O>
-~
PLYARG
ACC
=
#
OF COEFFICIENTS
=
DEGREE+l
FRO
=
l
;FRO
<-
E**FRO = EXP10(FRO * LOG10(E» CARRY
iFRO
<-
lO**FRO CARRY
iFRO
<-
LN(FRO)
=
LOG10(FRO)/LOG10(E) CARRY
iFRO
<-
LOG10 (FRO> CARRY
i
THE FOLLOWING
$ODCO
$ODCC
$DECD
$OED1
ARE IN
$9081
$9073
$9E43
$9EBl
BASIC CARTRIDGE:
SIN
=
COS
ATAN
SGR
=
=
;FRO
<-
SIN(FRO) OEGFLG=O =>RADS, 6=>DEG. CA
; FRO
<-
COS(FRO) CARRY
; FRO
<-
ATAN(FRO) CARRY
;FRO
<-
SGUAREROOT(FRO) CARRY