Scr#1
\ Double Precision D* UD/MOD
\ Assembler is required
CODE D* EXX B POP EXX B POP EXX
 D POP 0 H LDP# EXX H POP EXDE
H PUSH 0 H LDP#  20 A LD# BEGIN
 H ADDP EXX H ADCP EXX C SLA
 B RL EXX C RL B RL EXX CS IF
D ADDP EXX D ADCP EXX THEN A DER
 Z UNTIL D POP H PUSH EXX H PUSH
 EXX JPIX ;C
CODE UD/MOD B POP EXX B POP 0 H
LDP# EXX EXDE D POP EXX D POP
EXX H PUSH 0 H LDP# 20 A LD#
EXX A AND BEGIN E RL D RL EXX
E RL D RL EXX H ADCP EXX H ADCP
H PUSH EXX H PUSH A AND B SBCP
EXX B SBCP EXX CCF NC IF H POP
EXX H POP EXX ELSE SP INC SP INC
 SP INC SP INC THEN A DER Z UNTI
L B POP E RL D RL H PUSH EXX
E RL D RL H PUSH EXX D PUSH EXX
D PUSH EXX B D LD C E LD JPIX ;C

CODE 2UNDER B POP H POP AF POP
 AF POP H PUSH B PUSH JPIX ;C

: 2CONSTANT CREATE , , ;CODE
 H POP H INC H INC M C LD H INC
 M B LD H DEC H DEC B PUSH
 M B LD H DEC M C LD B PUSH JPIX
 ;C
  -->

Scr#2
\ Double Precision SQRT,D/DMOD
\ This word by Coos Haak
          MACRO SHL EXX H ADDP E
XX C RL B RL H ADCP ENDM
CODE SQRT EXX B POP 1 D LDP# H C
LR 0E A LD# EXX H POP EXX BEGIN
  SHL SHL D SUBP CS IF D ADDP D
DEC ELSE D INC THEN E SLA D RL D
  INC A DER Z UNTIL SHL SHL CS I
F D SUBP D INC ELSE L A LD E SUB
  H A LD D SBC CS IF D DEC ELSE
D SUBP D INC THEN THEN 7 H BIT
 NZ IF D INC ELSE SHL C A LD 0 S
UB# B A LD 80  SBC# L A LD E SBC
  H A LD D SBC NC IF D INC THEN
THEN D PUSH EXX JPIX ;C
: 2VARIABLE CREATE 4 ALLOT ;
2VARIABLE DIVISOR
: D/MOD DUP 0< >R DABS
  2SWAP DUP 0< >R DABS
  2SWAP 2DUP DIVISOR 2!
  UD/MOD R> R@ XOR IF DNEGATE
  THEN R> IF 2OVER OR IF
  2SWAP DIVISOR 2@ D- 2SWAP 1.
  D- THEN THEN ;

: DMOD D/MOD 2DROP ;
: D/ D/MOD 2UNDER ;



-->

Scr#3
\ Double Precision DMIN,DMAX

: D> 2SWAP D< ;
: D= D- D0= ;
CODE DU< EXX B POP D POP H POP
 EXSP A XOR D SBCP H POP B SBCP
 0 SBC# A L LD A H LD H PUSH EXX
 JPIX ;C

: DMIN 2OVER 2OVER D> IF
  2SWAP THEN 2DROP ;
: DMAX 2OVER 2OVER D< IF
  2SWAP THEN 2DROP ;

CODE D2/ B POP H POP B SRA C RR
 H RR L RR H PUSH B PUSH JPIX
;C

: D2* 2DUP D+ ;

: DU.R >R <# #S #> R> OVER -
  0 MAX SPACES TYPE ;
: U.R >R 0 R> DU.R ;
: DU. 0 DU.R SPACE ;

