mirror of
https://github.com/livingcomputermuseum/pdp7-unix.git
synced 2026-04-19 01:18:14 +00:00
157 lines
1.9 KiB
ArmAsm
157 lines
1.9 KiB
ArmAsm
"** 10-36-55.pdf page 18
|
|
" p5
|
|
|
|
frfac = 0774000 " loss in vel to friction
|
|
toptest: 02000+01000-0177700
|
|
bottest: -02000-01000
|
|
righttest: 02000+040400-0177700
|
|
lefttest: -02000-040400
|
|
minvx: -02000 " vel below whitch vel is set zero
|
|
fsin: 0203 " sine of fine rotation angle
|
|
csin: 02534 " sine of coarse rotation angle
|
|
mfsin: -0203 " negative of fsin
|
|
mcsin: -02534 " negative of csin
|
|
fcos: 0177777 " cosine of fine rotation angle
|
|
ccos: 0177761 " cosine of coarse rotation angle
|
|
|
|
nball = 16
|
|
|
|
d1: 1
|
|
o17: 017
|
|
o300000: 0300000
|
|
dm1: -1
|
|
o142000: 0142000
|
|
o164000: 0164000
|
|
o400000: 0400000
|
|
o177777: 0177777
|
|
o2000: 02000
|
|
o100000: 0100000
|
|
o124000: 0124000
|
|
qsin: 0177777
|
|
qcos: 0
|
|
dmpname: <pd>;<um>;<p 040; 040040
|
|
nballp: nball
|
|
listpm1: list-1
|
|
|
|
outline:
|
|
0065047
|
|
0140000 0400
|
|
0164000 04
|
|
0220414
|
|
0124000 01000-010-020
|
|
0225010
|
|
0221010
|
|
0124000 0777-010-020
|
|
0224414
|
|
0221444
|
|
0120000 0777-010-020
|
|
0221404
|
|
0224454
|
|
0126000 0777-010-020
|
|
0221050
|
|
0225050
|
|
0126000 01000-010-020
|
|
0220454
|
|
0225404
|
|
0122000 0777-010-020
|
|
0225444
|
|
noutline = .-outline
|
|
|
|
circle:
|
|
0212000
|
|
0220002
|
|
0220002
|
|
"** 10-36-55.pdf page 19
|
|
0224101
|
|
0220002
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224101
|
|
0224200
|
|
0224101
|
|
0224200
|
|
0224200
|
|
0224200
|
|
0224200
|
|
0224141
|
|
0224200
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0224141
|
|
0220042
|
|
0224141
|
|
0220042
|
|
0220042
|
|
0220042
|
|
0220042
|
|
0220141
|
|
0220042
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220141
|
|
0220200
|
|
0220141
|
|
0220200
|
|
0220200
|
|
0220200
|
|
0220200
|
|
0220101
|
|
0220200
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220101
|
|
0220002
|
|
0220101
|
|
0220002
|
|
"** 10-36-55.pdf page 20
|
|
0220002
|
|
circsize = .-circle
|
|
|
|
.pb: .=.+1
|
|
.sw: .=.+1
|
|
stime: .=.+1
|
|
waitup: .=.+1
|
|
sin: .=.+1
|
|
cos: .=.+1
|
|
vp1: .=.+1
|
|
vp2: .=.+1
|
|
vt1: .=.+1
|
|
vt2: .=.+1
|
|
displist: .=.+1
|
|
9: .=.+t
|
|
ball1:
|
|
sflg = .-ball1
|
|
.=.+1
|
|
x = .-ball1
|
|
.=.+1
|
|
y = .-ball1
|
|
.=.+1
|
|
vx = .-ball1
|
|
.=.+1
|
|
vy = .-ball1
|
|
.=.+1
|
|
bvsize = .-ball1
|
|
ball2:
|
|
.=.+bvsize
|
|
list:
|