mirror of
https://github.com/PDP-10/its.git
synced 2026-03-24 09:30:29 +00:00
79 lines
894 B
Groff
79 lines
894 B
Groff
RELOCA
|
||
TITLE WAR MATH
|
||
|
||
B==3
|
||
C==4
|
||
|
||
COS": FADR A",[1.57079631847]
|
||
SIN": MOVM B,A
|
||
CAMGE B,[.001]
|
||
POPJ P,
|
||
FDV B,[1.57079631847]
|
||
CAMG B,[1.0]
|
||
JRST SINS2
|
||
MULI B,400
|
||
ASH C,-202(B)
|
||
MOVEI B,200
|
||
ROT C,3
|
||
LSHC B,33
|
||
FAD B,[0]
|
||
JUMPE C,SINS2
|
||
TLCE C,1000
|
||
FSB B,[1.0]
|
||
TLCE C,3000
|
||
TLNN C,3000
|
||
MOVNS B
|
||
|
||
SINS2: SKIPGE A
|
||
MOVNS B
|
||
MOVEM B,A
|
||
FMPR B,B
|
||
MOVE C,[.00015148419]
|
||
FMP C,B
|
||
FAD C,[-.00467376557]
|
||
FMP C,B
|
||
FAD C,[.07968967928]
|
||
FMP C,B
|
||
FAD C,[-.64596371106]
|
||
FMP C,B
|
||
FAD C,[1.57079631847]
|
||
FMPR A,C
|
||
POPJ P,
|
||
|
||
|
||
;FLOATING POINT SQUARE ROOT FUNCTION
|
||
|
||
SQRT": MOVEM B,BSAV
|
||
MOVMS A
|
||
JUMPLE A,SQ2
|
||
ASHC A,-33
|
||
SUBI A,201
|
||
ROT A,-1
|
||
HRRM A,SQ1
|
||
LSH A,-43
|
||
ASH B,-10
|
||
FSC B,177(A)
|
||
MOVEM B,ST
|
||
FMP B,S1(A)
|
||
FAD B,S2(A)
|
||
MOVE A,ST
|
||
FDV A,B
|
||
FAD B,A
|
||
FSC B,-1
|
||
MOVE A,ST
|
||
FDV A,B
|
||
FADR A,B
|
||
SQ1: FSC A,0
|
||
SQ2: MOVE B,BSAV
|
||
POPJ P",
|
||
|
||
S1: 0.8125
|
||
0.578125
|
||
S2: 0.302734
|
||
0.421875
|
||
|
||
ST: 0
|
||
BSAV: 0
|
||
|
||
END
|