Add missing files to src/cmd

src/cmd/st3.s

@@ -0,0 +1,188 @@
+"** 12-92-119.pdf page 10
+	" space travel 3
+
+updshp: 0
+	lac forflg
+	spa
+	jmp .+4
+	lac bacflg
+	sma
+	jmp 3f
+	fld; ascale
+	lac  forflg
+	sma
+	jmp 1f
+	lac bacflg
+	sma
+	jmp 1f+1
+	fld; fpzero
+	jmp 2f
+1:
+	fng
+	lac scale
+	tad aexp
+	dac aexp
+	lac forflg
+	sma
+	jmp .+3
+2:
+	lac accflg
+	sma
+	jmp .+3
+	fad; maxa
+	fng
+	fst; ftmp1
+	fmp; ctheta
+	fad; ax
+	fst; ax
+	fld; ftmp1
+	fmp; stheta
+	fad; ay
+	fst; ay
+3:
+	fld; ox
+	fng
+	fad; ax
+	fst; ftmp1
+	fld; x
+	lac aexp
+	tad d1
+	dac aexp
+	fad; ftmp1
+	fst; ftmp1
+	fld; x
+	fst; ox
+	fld; ftmp1
+	fst; x
+	fld; oy
+	fng
+	fad; ay
+	fst; ftmp1
+	fld; y
+	lac aexp
+	tad d1
+"** 12-92-119.pdf page 11
+	dac aexp
+	fad; ftmp1
+	fst; ftmp1
+	fld; y
+	fst; oy
+	fld; ftmp1
+	fst; y
+	lac par
+	sad maxj
+	jmp i updshp
+	jms absxy
+	jms shipxy
+	lac par
+	jms absv
+	fld; ox
+	fng
+	fad; x
+	fad; absx
+	fst; ox
+	fld; oy
+	fng
+	fad; y
+	fad; absy
+	fst; oy
+	lac maxj
+	dac par
+	jms absv
+	fld; ox
+	fng
+	fad; absx
+	fst; ox
+	fld; oy
+	fng
+	fad; absy
+	fst; oy
+	lac par
+	jms absxy
+	fld; absx
+	fad; shipx
+	fng
+	fst; x
+	fad; ox
+	fst; ox
+	fld; absy
+	fad; shipy
+	fng
+	fst; y
+fadins:
+	fad; oy
+	fst; oy
+	lac par
+	tad fppar
+	dac 1f
+	lac i 1f
+	tad prsq
+	dac 1f
+	fld; 1:..
+	sqrt
+	fst; rpar
+	jms dspsca
+	lac par
+"** 12-92-119.pdf page 12
+	jms dispname
+	jmp i updshp
+
+inscr: 0
+	fng
+	fix
+	tad d383
+	spa
+	jmp i inscr
+	tad dm768
+	sma
+	jmp i inscr
+	isz inscr
+	jmp i inscr
+
+absxy: 0
+	sna
+	jmp 7f
+	lmq
+	lac fldins
+	dac 2f-1
+	dac 4f-1
+	lacq
+1:
+	dac absi
+	sna
+	jmp i absxy
+	tad fppar
+	dac 9f+t
+	lac i 9f+t
+5:
+	tad px
+	dac 2f
+fldins:
+	fld; absx
+	fad; 2:..
+	fst; absx
+	lac i 9f+t
+6:
+	tad py
+	dac 4f
+	fld; absy
+	fad; 4:..
+	fst; absy
+	lac fadins
+	dac 2b-1
+	dac 4b-1
+	lac absi
+	tad ppar
+	dac 9f+t
+	lac i 9f+t
+	jmp 1b
+7:
+	dzm absx
+	dzm absx+1
+	dzm absx+2
+	dzm absy
+	dzm absy+1
+	dzm absy+2
+	jmp i absxy
+"** 12-92-119.pdf page 13
+	t = t+1