Annotate st (#235)
* Annotate st * Fix consistency * Add missing comments
This commit is contained in:
Mohamed Akram
+67
-67
@@ -9,32 +9,32 @@ absv: 0
|
||||
dzm absy+1
|
||||
dzm absy+2
|
||||
1:
|
||||
dac absi
|
||||
dac absi " absi = AC
|
||||
sna
|
||||
jmp i absv
|
||||
jmp i absv " while (absi) {
|
||||
tad fppar
|
||||
dac 9f+t
|
||||
jms invert
|
||||
jms invert " invert(absi) -> ftmp1 = px[absi], ftmp2 = py[absi]
|
||||
fld; ftmp1
|
||||
fng
|
||||
fad; absx
|
||||
fst; absx
|
||||
fst; absx " absx -= ftmp1
|
||||
fld; ftmp2
|
||||
fng
|
||||
fad; absy
|
||||
fst; absy
|
||||
jms invert
|
||||
fst; absy " absy -= ftmp2
|
||||
jms invert " invert(absi) -> ftmp1 = px[absi], ftmp2 = py[absi]
|
||||
fld; ftmp1
|
||||
fad; absx
|
||||
fst; absx
|
||||
fst; absx " absx += ftmp1
|
||||
fld; ftmp2
|
||||
fad; absy
|
||||
fst; absy
|
||||
fst; absy " absy += ftmp2
|
||||
lac absi
|
||||
tad ppar
|
||||
dac 9f+t
|
||||
lac i 9f+t
|
||||
jmp 1b
|
||||
lac i 9f+t " absi = ppar[absi]
|
||||
jmp 1b " }
|
||||
|
||||
invert: 0
|
||||
lac i 9f+t
|
||||
@@ -50,12 +50,12 @@ invert: 0
|
||||
dac 4f
|
||||
fld; 1:..
|
||||
fng
|
||||
fst; 2:..
|
||||
jms updpln
|
||||
fst; 2:.. " pww[par] = -pww[par]
|
||||
jms updpln " updpln()
|
||||
fld; 3:..
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = px[par]
|
||||
fld; 4:..
|
||||
fst; ftmp2
|
||||
fst; ftmp2 " ftmp2 = py[par]
|
||||
jmp i invert
|
||||
|
||||
t = t+1
|
||||
@@ -82,122 +82,122 @@ updpln: 0
|
||||
dac 8f
|
||||
|
||||
fld; 1:..
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = px[fcplan]
|
||||
fmp; 2:..
|
||||
fst; ftmp2
|
||||
fst; ftmp2 " ftmp2 = ftmp1 * pw[fcplan]
|
||||
fld; 3:..
|
||||
fmp; 4:..
|
||||
fng
|
||||
fad; ftmp2
|
||||
fst; 5:..
|
||||
fst; 5:.. " px[fcplan] = - (py[fcplan] * pww[fcplan]) + ftmp2
|
||||
fld; 6:..
|
||||
fmp; 7:..
|
||||
fst; ftmp2
|
||||
fst; ftmp2 " ftmp2 = py[fcplan] * pw[fcplan]
|
||||
fld; ftmp1
|
||||
fmp; 8:..
|
||||
fad; ftmp2
|
||||
fst; 0:..
|
||||
fst; 0:.. " py[fcplan] = ftmp1 * pww[fcplan] + ftmp2
|
||||
jmp updpln i
|
||||
|
||||
updacc: 0
|
||||
updacc: 0 " update acceleration
|
||||
lac cplan
|
||||
sad par
|
||||
jmp upda2
|
||||
jms absxy
|
||||
jmp upda2 " if (cplan != par) {
|
||||
jms absxy " absxy(cplan)
|
||||
fld; absx
|
||||
fad; shipx
|
||||
jmp 1f
|
||||
fad; shipx " FAC = absx + shipx
|
||||
jmp 1f " } else {
|
||||
upda2:
|
||||
fld; x
|
||||
fng
|
||||
1:
|
||||
fst; absx
|
||||
fng " FAC = -x
|
||||
1: " }
|
||||
fst; absx " absx = FAC
|
||||
fmp; absx
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = absx * absx
|
||||
lac cplan
|
||||
sad par
|
||||
jmp 1f
|
||||
jmp 1f " if (cplan != par)
|
||||
fld; absy
|
||||
fad; shipy
|
||||
fad; shipy " FAC = absy + shipy
|
||||
jmp 2f
|
||||
1:
|
||||
fld; y
|
||||
fng
|
||||
fng " else FAC = -y
|
||||
"** 12-92-119.pdf page 8
|
||||
2:
|
||||
fst; absy
|
||||
fmp; absy
|
||||
fad; ftmp1
|
||||
fst; dtmp1
|
||||
fst; dtmp1 " dtmp1 = absy * absy + ftmp1
|
||||
sqrt
|
||||
fst; dpar
|
||||
fst; dpar " dpar = sqrt(dtmp1)
|
||||
lac cplan
|
||||
sad par
|
||||
skp
|
||||
jmp upda5
|
||||
jmp upda5 " if (cplan == par) {
|
||||
fld; ox
|
||||
fng
|
||||
fad; x
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = -ox + x
|
||||
fmp; y
|
||||
fst; horizv
|
||||
fst; horizv " horizv = ftmp1 * y
|
||||
fld; y
|
||||
fng
|
||||
fad; oy
|
||||
fst; ftmp2
|
||||
fst; ftmp2 " ftmp2 = -y + oy
|
||||
fmp; x
|
||||
fad; horizv
|
||||
fdv; dpar
|
||||
fst; horizv
|
||||
fst; horizv " horizv = (ftmp2 * x + horizv) / dpar
|
||||
fld; dpar
|
||||
fcp; rpar
|
||||
sma
|
||||
jmp upda5
|
||||
jmp upda5 " if (dpar < rpar) {
|
||||
lac lanflg
|
||||
spa
|
||||
jmp upda5
|
||||
jmp upda5 " if (!lanflg) {
|
||||
fld; ftmp1
|
||||
fmp; ftmp1
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 *= ftmp1
|
||||
fld; ftmp2
|
||||
fmp; ftmp2
|
||||
fad; ftmp1
|
||||
fcp; crash
|
||||
spa
|
||||
jmp 1f
|
||||
jmp 1f " if (ftmp2 * ftmp2 + ftmp1 > crash) {
|
||||
lac dhalt
|
||||
dac goflg
|
||||
dac crflg
|
||||
1:
|
||||
dac goflg " goflg = true
|
||||
dac crflg " crflg = true
|
||||
1: " }
|
||||
lac dhalt
|
||||
dac lanflg
|
||||
dac lanflg " lanflg = true
|
||||
fld; rpar
|
||||
fdv; dpar
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = rpar / dpar
|
||||
fmp; x
|
||||
fst; x
|
||||
fst; ox
|
||||
fst; x " x *= ftmp1
|
||||
fst; ox " ox = x
|
||||
fld; ftmp1
|
||||
fmp; y
|
||||
fst; y
|
||||
fst; oy
|
||||
fst; y " y *= ftmp1
|
||||
fst; oy " oy = y
|
||||
lac par
|
||||
jms absxy
|
||||
jms shipxy
|
||||
jmp upda2
|
||||
jms absxy " absxy(par)
|
||||
jms shipxy " shipxy()
|
||||
jmp upda2 " } } }
|
||||
"** 12-92-119.pdf page 9
|
||||
upda5:
|
||||
fcp; fardst
|
||||
spa
|
||||
jmp 1f
|
||||
jmp 1f " if (dpar > fardst) {
|
||||
lac cplan
|
||||
sna
|
||||
jmp 1f
|
||||
jmp 1f " if (cplan) {
|
||||
lac dhalt
|
||||
dac grvflg
|
||||
jmp i updacc
|
||||
1:
|
||||
dzm grvflg
|
||||
dac grvflg " grvflg = true
|
||||
jmp i updacc " return
|
||||
1: " } }
|
||||
dzm grvflg " grvflg = false
|
||||
lac fcplan
|
||||
tad accl
|
||||
dac 1f
|
||||
@@ -205,18 +205,18 @@ upda5:
|
||||
fdv; dtmp1
|
||||
fcp; maxa
|
||||
spa
|
||||
jmp 2f
|
||||
fst; maxa
|
||||
jmp 2f " if (accl[fcplan] / dtmp1 > maxa) {
|
||||
fst; maxa " maxa = accl[fcplan] / dtmp1
|
||||
lac cplan
|
||||
dac maxj
|
||||
2:
|
||||
dac maxj " maxj = cplan
|
||||
2: " }
|
||||
fdv; dpar
|
||||
fst; ftmp1
|
||||
fst; ftmp1 " ftmp1 = (accl[fcplan] / dtmp1) / dpar
|
||||
fmp; absx
|
||||
fad; ax
|
||||
fst; ax
|
||||
fst; ax " ax += ftmp1 * absx
|
||||
fld; ftmp1
|
||||
fmp; absy
|
||||
fad; ay
|
||||
fst; ay
|
||||
fst; ay " ay += ftmp1 * absy
|
||||
jmp i updacc
|
||||
|
||||
Reference in New Issue
Block a user