mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-02-26 17:03:40 +00:00
58c2fa1ded
Comparison of st?.s and space-travel-?.s revealed where the two transcriptions differed. Typos were corrected in st?.s, and space-travel-?.s removed.
256 lines
2.5 KiB
ArmAsm
256 lines
2.5 KiB
ArmAsm
"** 12-92-119.pdf page 14
|
|
" space travel 4
|
|
|
|
displa: 0
|
|
lac locpar
|
|
sad cplan
|
|
skp
|
|
jmp 2f
|
|
lac locflg
|
|
sma
|
|
jmp 1f
|
|
fld; cphi
|
|
fmp; absy
|
|
fst; ftmp1
|
|
fld; sphi
|
|
fmp; absx
|
|
fad; ftmp1
|
|
fdv; dpar
|
|
fst; stheta
|
|
fld; sphi
|
|
fmp; absy
|
|
fng
|
|
fst; ftmp1
|
|
fld; cphi
|
|
fmp; absx
|
|
fad; ftmp1
|
|
fdv; dpar
|
|
fst; ctheta
|
|
jmp 2f
|
|
1:
|
|
fld; sphi
|
|
fst; stheta
|
|
fld; cphi
|
|
fst; ctheta
|
|
2:
|
|
fld; absx
|
|
sfmp; ctheta
|
|
fst; ftmp1
|
|
fld; absy
|
|
sfmp; stheta
|
|
fad; ftmp1
|
|
lac aexp
|
|
cma
|
|
tad scale
|
|
cma
|
|
dac aexp
|
|
fst; spy
|
|
dzm inflg
|
|
jms inscr
|
|
jmp 1f
|
|
tad o145777
|
|
dac clistp i
|
|
jms rotx
|
|
lac dhalt
|
|
dac inflg
|
|
jms inscr
|
|
jmp 1f
|
|
tad o161577
|
|
dac i clistp
|
|
lac cplan
|
|
jms dsplanet
|
|
1:
|
|
jms drcirc
|
|
"** 12-92-119.pdf page 15
|
|
jmp i displa
|
|
|
|
rotx: 0
|
|
fld; absx
|
|
sfmp; stheta
|
|
fst; ftmp1
|
|
fld; absy
|
|
sfmp; ctheta
|
|
fng
|
|
fad; ftmp1
|
|
lac aexp
|
|
cma
|
|
tad scale
|
|
cma
|
|
dac aexp
|
|
fst; spx
|
|
jmp i rotx
|
|
|
|
surf: 0
|
|
-1
|
|
tad setx
|
|
cma
|
|
dac tsetx
|
|
lac setx
|
|
tad o141577
|
|
dac i clistp
|
|
-1
|
|
tad sety
|
|
cma
|
|
dac tsety
|
|
lac sety
|
|
tad o165777
|
|
dac clistp i
|
|
lac narcs
|
|
dac nt
|
|
fld; wx
|
|
fst; twx
|
|
fld; wy
|
|
fst; twy
|
|
fld; v
|
|
fng
|
|
fst; v
|
|
2:
|
|
fld; v
|
|
sfmp; twy
|
|
fng
|
|
fst; ftmp1
|
|
fld; vv
|
|
sfmp; twx
|
|
fad; ftmp1
|
|
fst; ftmp2
|
|
fld; v
|
|
sfmp; twx
|
|
fst; ftmp1
|
|
fld; vv
|
|
sfmp; twy
|
|
fad; ftmp1
|
|
fst; twy
|
|
fad; spy
|
|
jms inscr
|
|
jmp 1f
|
|
"** 12-92-119.pdf page 16
|
|
tad tsety
|
|
dac dely
|
|
cma
|
|
tad d1
|
|
tad tsety
|
|
dac tsety
|
|
fld; ftmp2
|
|
fst; twx
|
|
fad; spx
|
|
jms inscr
|
|
jmp 1f
|
|
tad tsetx
|
|
dac delx
|
|
cma
|
|
tad d1
|
|
tad tsetx
|
|
dac tsetx
|
|
lac delx
|
|
sma
|
|
jmp .+3
|
|
cma
|
|
tad o41
|
|
alss 6
|
|
dac delx
|
|
lac dely
|
|
sma
|
|
jmp .+3
|
|
cma
|
|
tad o41
|
|
tad delx
|
|
tad o220000
|
|
dac i clistp
|
|
isz nt
|
|
jmp 2b
|
|
jmp i surf
|
|
1:
|
|
isz surf
|
|
jmp i surf
|
|
|
|
drcirc: 0
|
|
lac crvflg
|
|
spa
|
|
jmp i drcirc
|
|
lac fcplan
|
|
tad prsq
|
|
dac .+2
|
|
fld; ..
|
|
sqrt
|
|
lac aexp
|
|
cma
|
|
tad scale
|
|
cma
|
|
dac aexp
|
|
fst; dtmp1
|
|
fcp; thrs
|
|
spa
|
|
jmp i drcirc
|
|
fng
|
|
lac dpar
|
|
cma
|
|
tad scale
|
|
"** 12-92-119.pdf page 17
|
|
cma
|
|
dac dpar
|
|
fad; dpar
|
|
sfdv; dpar
|
|
fst; dtmp2
|
|
sfmp; spy
|
|
fst; wy
|
|
jms inscr
|
|
jmp i drcirc
|
|
dac sety
|
|
lac inflg
|
|
sma
|
|
jms rotx
|
|
fld; dtmp2
|
|
sfmp; spx
|
|
fst; wx
|
|
jms inscr
|
|
jmp i drcirc
|
|
dac setx
|
|
fld; spy
|
|
fng
|
|
fad; wy
|
|
fst; wy
|
|
fld; spx
|
|
fng
|
|
fad; wx
|
|
fst; wx
|
|
fld; dtmp1
|
|
sfmp; pid10
|
|
fcp; f400
|
|
spa
|
|
jmp 1f
|
|
lac d400
|
|
dac narcs
|
|
jmp 2f
|
|
1:
|
|
fix
|
|
tad dm20
|
|
spa
|
|
cla
|
|
tad d20
|
|
dac narcs
|
|
flt
|
|
2:
|
|
fst; dtmp1
|
|
-1
|
|
tad narcs
|
|
cma
|
|
dac narcs
|
|
fld; f2pi
|
|
sfdv; dtmp1
|
|
fst; v
|
|
sfmp; v
|
|
-1
|
|
tad aexp
|
|
dac aexp
|
|
fng
|
|
fad; fpone
|
|
fst; vv
|
|
lac o40004
|
|
dac i clistp
|
|
"** 12-92-119.pdf page 18
|
|
jms surf
|
|
jmp i drcirc
|
|
jms surf
|
|
jmp i drcirc
|
|
jmp i drcirc
|