From 61951f20b17c6d924735fa67eb506e40987f941d Mon Sep 17 00:00:00 2001 From: Mohamed Akram Date: Fri, 27 Jan 2023 19:52:28 +0400 Subject: [PATCH] Annotate st (#235) * Annotate st * Fix consistency * Add missing comments --- src/cmd/st1.s | 186 +++++++++++++++++++++++++------------------------- src/cmd/st2.s | 134 ++++++++++++++++++------------------ src/cmd/st3.s | 118 ++++++++++++++++---------------- src/cmd/st4.s | 150 ++++++++++++++++++++-------------------- src/cmd/st5.s | 30 ++++---- src/cmd/st6.s | 12 ++-- src/cmd/st7.s | 102 +++++++++++++-------------- 7 files changed, 366 insertions(+), 366 deletions(-) diff --git a/src/cmd/st1.s b/src/cmd/st1.s index f2332a6..7a1c6f1 100644 --- a/src/cmd/st1.s +++ b/src/cmd/st1.s @@ -4,17 +4,17 @@ t = 0 start: "[------ stuff for gravity - scan markup] - law 13 - sys sysloc - dac .pbson + law 13 " 13 = pbsflgs + sys sysloc " get pbsflgs location + dac .pbson " store in .pbson lac pww dac 1f dac 2f lac pw dac 3f -32 - dac cplan -4: + dac cplan " cplan = -32 +4: " while (cplan != 0) { fld; 1:0 fmp; 2:0 -1 @@ -22,7 +22,7 @@ start: "[------ stuff for gravity - scan markup] dac aexp fng fad; fpone - fst; 3:0 + fst; 3:0 " pw[i] = - (pww[i] * pww[i]) / 2 + 1 lac 1b tad d3 dac 1b @@ -30,36 +30,36 @@ start: "[------ stuff for gravity - scan markup] lac 3b tad d3 dac 3b - isz cplan - jmp 4b + isz cplan " cplan++ + jmp 4b " } law dspl-1 dac clistp - dac lanflg - dzm crflg - dzm goflg - dzm .pbsint - dzm forflg - dzm bacflg + dac lanflg " lanflg = true + dzm crflg " crflg = false + dzm goflg " goflg = false + dzm .pbsint " pbsint = 0 + dzm forflg " forflg = false + dzm bacflg " bacflg = false dzm dspflg "[line connecting this instruction to... - scan markup] - dzm locflg + dzm locflg " locflg = false dzm locpar "[... this instruction - scan markup] lac d1 - dac par - jms dispname + dac par " par = 1 + jms dispname " dispname() fld; prsq+4 sqrt - fst; rpar - fst; y - fst; oy + fst; rpar " rpar = sqrt(prsq[par]) + fst; y " y = rpar + fst; oy " oy = y fld; fpone - fst; sphi - fst; stheta - jms dspsca + fst; sphi " sphi = 1 + fst; stheta " stehta = sphi + jms dspsca " dspsca() fld; fpzero - fst; x - fst; ox - fst; cphi - fst; ctheta + fst; x " x = 0 + fst; ox " ox = x + fst; cphi " cphi = ox + fst; ctheta " ctheta = cphi law displist "** 12-92-119.pdf page 2 sys capt @@ -70,43 +70,43 @@ loop: dac clistp jms contrl "[arrow from below points to this instruction - scan markup] lac par - jms absxy - jms shipxy + jms absxy " absxy(par) + jms shipxy " shipxy() lac goflg spa - jmp loop3 "[long dash after loop3 - scan markup] + jmp loop3 "[long dash after loop3 - scan markup] if (!goflg) { fld; fpzero - fst; ax - fst; ay - fst; maxa - lac nplan + fst; ax " ax = 0 + fst; ay " ay = 0 + fst; maxa " maxa = 0 + lac nplan " AC = nplan skp loop1: - lac cplan - tad dm1 + lac cplan " AC = cplan + tad dm1 " AC-- spa - jmp loop2 - dac cplan + jmp loop2 " while (AC >= 0) { + dac cplan " cplan = AC tad fppar dac fcplan lac i fcplan dac fcplan - jms updacc - jms displa + jms updacc " updacc() + jms displa " displa() lac cplan sza - jms updpln + jms updpln " if (cplan) updpln() lac cplan and o7 sad o7 - jms contrl - jmp loop1 + jms contrl " if (cplan & 7 == 7) contrl() + jmp loop1 " } loop2: lac lanflg sma - jms updshp -loop3: + jms updshp " if (!lanflg) updshp() +loop3: " } fld; horizv "[a box enclosing all code from loop3 to loop4 - scan markup] lac scale "[arrow drawn from box up to location above - scan markup] cma @@ -114,128 +114,128 @@ loop3: tad aexp dac aexp jms inscr - jmp loop4 + jmp loop4 " if ((AC = inscr(horizv / 2**(vscale-scale-1)))) { tad o141577 dac i clistp "[crossed out with an arrow pointint to "dac dspvel" - scan markup] lac o164372 "[crossed out - scan markup] dac clistp i "[crossed out - scan markup] cla "[crossed out - scan markup] - jms dsplanet "[crossed out - scan markup] -loop4: "[inside a drawn box - scan markup] + jms dsplanet "[crossed out - scan markup] dsplanet(0) +loop4: "[inside a drawn box - scan markup] } sys time "put delay here..... "** 12-92-119.pdf page 3 - dzm dispcl + dzm dispcl " dispcl = "" lac crflg sma - jmp 1f + jmp 1f " if (crflg) lac o20714 "cl - dac dispcl + dac dispcl " dispcl = "CL" jmp 2f 1: lac lanflg sma - jmp 2f + jmp 2f " else if (lanflg) lac o114 "l - dac dispcl + dac dispcl " dispcl = "L" 2: lac dhalt dac i clistp jmp loop " check 2-display question contrl: 0 - lac i .pbson + lac i .pbson " load push button flags xor .pbsint - and .pbson i + and .pbson i " AC = (.pbson ^ .pbsint) & .pbson sna - jmp noneon + jmp noneon " if (AC) { lmq spa ral - sys exit + sys exit " if (pbson[0]) exit() sma - jmp 1f - dzm goflg - dzm crflg -1: + jmp 1f " if (pbson[1]) { + dzm goflg " goflg = false + dzm crflg " crflg = false +1: " } lacq als 6 sma ral - jmp 1f + jmp 1f " if (pbson[6]) { spa - jmp noneon - isz scale + jmp noneon " if (!pbson[7]) { + isz scale " scale++ nop jms dspsca "uprange - jmp noneon -1: + jmp noneon " } +1: " } sma - jmp noneon + jmp noneon " if (pbson[7]) { -1 tad scale - dac scale + dac scale " scale-- jms dspsca "downrange -noneon: - dzm forflg - dzm bacflg +noneon: " } } + dzm forflg " forflg = false + dzm bacflg " bacflg = false lac i .pbson dac .pbsint als 2 sma - jmp 1f + jmp 1f " if (pbson[2]) { lac dhalt - dac forflg + dac forflg " forflg = true lac goflg sma "** 12-92-119.pdf page 4 - dzm lanflg -1: + dzm lanflg " if (!goflg) lanflg = false +1: " } lac i .pbson als 3 sma - jmp 1f + jmp 1f " if (pbson[3]) { lac dhalt - dac bacflg + dac bacflg " bacflg = true lac goflg sma - dzm lanflg -1: + dzm lanflg " if (!goflg) lanflg = false +1: " } lac i .pbson als 4 sma - jmp 1f + jmp 1f " if (pbson[4]) { ral spa - jmp i contrl - dzm 9f+t + jmp i contrl " if (pbson[5]) return + dzm 9f+t " 9f+t = false jmp 2f -1: +1: " } else { ral sma - jmp i contrl + jmp i contrl " if (!pbson[5]) return lac dhalt - dac 9f+t -2: + dac 9f+t " 9f+t = true +2: " } fld; cphi fmp; sdphi lac 9f+t sma fng - fst; ftmp1 + fst; ftmp1 " ftmp1 = cphi * sdphi * (9f+t ? 1 : -1) fld; sphi fmp; cdphi fad; ftmp1 - fst; ftmp2 + fst; ftmp2 " ftmp2 = sphi * cdphi + ftmp1 fld; sphi fmp; sdphi lac 9f+t spa fng - fst; ftmp1 + fst; ftmp1 " ftmp1 = sphi * sdphi * (9f+t ? -1 : 1) fld; cphi fmp; cdphi fad; ftmp1 - fst; cphi + fst; cphi " cphi = cphi * cdphi + ftmp1 fld; ftmp2 - fst; sphi + fst; sphi " sphi = ftmp2 jmp i contrl t = t+1 @@ -244,10 +244,10 @@ shipxy: 0 fld; absx fad; x fng - fst; shipx + fst; shipx " shipx = -(absx + x) fld; absy fad; y "** 12-92-119.pdf page 5 fng - fst; shipy + fst; shipy " shipy = -(absy + y) jmp i shipxy diff --git a/src/cmd/st2.s b/src/cmd/st2.s index 25e9f01..13c1b80 100644 --- a/src/cmd/st2.s +++ b/src/cmd/st2.s @@ -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 diff --git a/src/cmd/st3.s b/src/cmd/st3.s index d725606..ea68d28 100644 --- a/src/cmd/st3.s +++ b/src/cmd/st3.s @@ -7,21 +7,21 @@ updshp: 0 jmp .+4 lac bacflg sma - jmp 3f - fld; ascale + jmp 3f " if (forflg || bacflg) { + fld; ascale " FAC = ascale lac forflg sma jmp 1f lac bacflg sma jmp 1f+1 - fld; fpzero + fld; fpzero " if (forflg && bacflg) FAC = 0 jmp 2f 1: - fng + fng " if (!forflg) FAC = -FAC lac scale tad aexp - dac aexp + dac aexp " FAC = FAC * 2**scale lac forflg sma jmp .+3 @@ -29,89 +29,89 @@ updshp: 0 lac accflg "[arrow pointing here from the text "how to set?" - scan markup] sma jmp .+3 - fad; maxa - fng + fad; maxa " if (accflg) FAC += maxa + fng " FAC = -FAC fst; ftmp1 fmp; ctheta fad; ax - fst; ax + fst; ax " ax += ftmp1 * ctheta fld; ftmp1 fmp; stheta fad; ay - fst; ay -3: + fst; ay " ay += ftmp1 * stheta +3: " } fld; ox fng fad; ax - fst; ftmp1 + fst; ftmp1 " ftmp1 = -ox + ax fld; x lac aexp tad d1 dac aexp fad; ftmp1 - fst; ftmp1 + fst; ftmp1 " ftmp1 += x*2 fld; x - fst; ox + fst; ox " ox = x fld; ftmp1 - fst; x + fst; x " x = ftmp1 fld; oy fng fad; ay - fst; ftmp1 + fst; ftmp1 " ftmp1 = -oy + ay fld; y lac aexp tad d1 "** 12-92-119.pdf page 11 dac aexp fad; ftmp1 - fst; ftmp1 + fst; ftmp1 " ftmp1 += y*2 fld; y - fst; oy + fst; oy " oy = y fld; ftmp1 - fst; y + fst; y " y = ftmp1 lac par sad maxj - jmp i updshp - jms absxy - jms shipxy + jmp i updshp " if (par == maxj) return + jms absxy " absxy(par) + jms shipxy " shipxy() lac par - jms absv + jms absv " absv(par) fld; ox fng fad; x fad; absx - fst; ox + fst; ox " ox = -ox + x + absx fld; oy fng fad; y fad; absy - fst; oy + fst; oy " oy = -oy + y + absy lac maxj - dac par - jms absv + dac par " par = maxj + jms absv " absv(par) fld; ox fng fad; absx - fst; ox + fst; ox " ox = -ox + absx fld; oy fng fad; absy - fst; oy + fst; oy " oy = -oy + absy lac par - jms absxy + jms absxy " absxy(par) fld; absx fad; shipx fng - fst; x + fst; x " x = -(absx + shipx) fad; ox - fst; ox + fst; ox " ox += x fld; absy fad; shipy fng - fst; y -fadins: + fst; y " y = -(absy + shipy) +fadins: " fad instruction fad; oy - fst; oy + fst; oy " oy += y lac par tad fppar dac 1f @@ -120,69 +120,69 @@ fadins: dac 1f fld; 1:.. sqrt - fst; rpar - jms dspsca + fst; rpar " rpar = sqrt(prsq[par]) + jms dspsca " dspsca() lac par "** 12-92-119.pdf page 12 - jms dispname + jms dispname " dispname(par) jmp i updshp -inscr: 0 +inscr: 0 " in screen fng - fix - tad d383 + fix " AC = (int) -FAC + tad d383 " AC += 383 spa - jmp i inscr - tad dm768 - sma + jmp i inscr " if (AC < 0) return + tad dm768 " AC -= 768 + sma " if (AC >= 0) return jmp i inscr isz inscr - jmp i inscr + jmp i inscr " return AC absxy: 0 sna - jmp 7f + jmp 7f " if (AC) { lmq lac fldins - dac 2f-1 - dac 4f-1 + dac 2f-1 " C(2f-1) = fld + dac 4f-1 " C(4f-1) = fld lacq -1: - dac absi +1: " while (true) { + dac absi " absi = AC sna - jmp i absxy + jmp i absxy " if (!absi) return tad fppar dac 9f+t lac i 9f+t 5: tad px dac 2f -fldins: +fldins: " fld instruction fld; absx fad; 2:.. - fst; absx + fst; absx " if (i==0) absx = px[absi]; else absx += px[absi] lac i 9f+t 6: tad py dac 4f fld; absy fad; 4:.. - fst; absy + fst; absy " if (i==0) absy = py[absi]; else absy += py[absi] lac fadins dac 2b-1 dac 4b-1 lac absi tad ppar dac 9f+t - lac i 9f+t - jmp 1b -7: - dzm absx + lac i 9f+t " AC = ppar[absi] + jmp 1b " } +7: " } else { + dzm absx " absx = 0 dzm absx+1 dzm absx+2 - dzm absy + dzm absy " absy = 0 dzm absy+1 dzm absy+2 - jmp i absxy + jmp i absxy " } "** 12-92-119.pdf page 13 t = t+1 diff --git a/src/cmd/st4.s b/src/cmd/st4.s index 1720189..d25e02c 100644 --- a/src/cmd/st4.s +++ b/src/cmd/st4.s @@ -5,37 +5,37 @@ displa: 0 lac locpar sad cplan skp - jmp 2f + jmp 2f " if (cplan == locpar) { lac locflg "[arrow points here from the text "how to set?" - scan markup] sma - jmp 1f + jmp 1f " if (locflg) { fld; cphi "[-\ - scan markup] fmp; absy "[ | - scan markup] - fst; ftmp1 "[ | - scan markup] + fst; ftmp1 "[ | - scan markup] ftmp1 = cphi * absy fld; sphi "[ | - scan markup] fmp; absx "[ | - scan markup] fad; ftmp1 "[ | - scan markup] fdv; dpar "[ | - scan markup] - fst; stheta "[ \ lock calculation - scan markup] + fst; stheta "[ \ lock calculation - scan markup] stheta = (sphi * absx + ftmp1) / dpar fld; sphi "[ / - scan markup] fmp; absy "[ | - scan markup] fng "[ | - scan markup] - fst; ftmp1 "[ | - scan markup] + fst; ftmp1 "[ | - scan markup] ftmp1 = - (sphi * absy) fld; cphi "[ | - scan markup] fmp; absx "[ | - scan markup] fad; ftmp1 "[ | - scan markup] fdv; dpar "[ | - scan markup] - fst; ctheta "[ | - scan markup] + fst; ctheta "[ | - scan markup] ctheta = (cphi * absx + ftmp1) / dpar jmp 2f "[-/ - scan markup] -1: +1: " } else { fld; sphi - fst; stheta + fst; stheta " stheta = sphi fld; cphi - fst; ctheta -2: + fst; ctheta " ctheta = cphi +2: " } } fld; absx sfmp; ctheta - fst; ftmp1 + fst; ftmp1 " ftmp1 = absx * ctheta fld; absy sfmp; stheta fad; ftmp1 @@ -44,30 +44,30 @@ displa: 0 tad scale cma dac aexp - fst; spy - dzm inflg + fst; spy " spy = (absy * stheta + ftmp1) / 2**scale + dzm inflg " inflg = false jms inscr - jmp 1f + jmp 1f " if ((AC = inscr(spy))) { tad o145777 dac clistp i - jms rotx + jms rotx " rotx() lac dhalt - dac inflg + dac inflg " inflg = true jms inscr - jmp 1f + jmp 1f " if ((AC = inscr(spx))) { tad o161577 dac i clistp lac cplan - jms dsplanet -1: - jms drcirc + jms dsplanet " dsplanet(cplan) +1: " } } + jms drcirc " drcirc() "** 12-92-119.pdf page 15 jmp i displa rotx: 0 fld; absx sfmp; stheta - fst; ftmp1 + fst; ftmp1 " ftmp1 = absx * stheta fld; absy sfmp; ctheta fng @@ -77,70 +77,70 @@ rotx: 0 tad scale cma dac aexp - fst; spx + fst; spx " spx = (-(absy * ctheta) + ftmp1) / 2**scale jmp i rotx surf: 0 -1 tad setx cma - dac tsetx + dac tsetx " tsetx = -setx lac setx tad o141577 dac i clistp -1 tad sety cma - dac tsety + dac tsety " tsety = -sety lac sety tad o165777 dac clistp i lac narcs - dac nt + dac nt " nt = narcs fld; wx - fst; twx + fst; twx " twx = wx fld; wy - fst; twy + fst; twy " twy = wy fld; v fng - fst; v -2: + fst; v " v = -v +2: " while (nt != 0) { fld; v sfmp; twy fng - fst; ftmp1 + fst; ftmp1 " ftmp1 = -(v * twy) fld; vv sfmp; twx fad; ftmp1 - fst; ftmp2 + fst; ftmp2 " ftmp2 = vv * twx + ftmp1 fld; v sfmp; twx - fst; ftmp1 + fst; ftmp1 " ftmp1 = v * twx fld; vv sfmp; twy fad; ftmp1 - fst; twy + fst; twy " twy = vv * twy + ftmp1 fad; spy jms inscr - jmp 1f + jmp 1f " if (!(AC = inscr(twy + spy))) return false "** 12-92-119.pdf page 16 tad tsety - dac dely + dac dely " dely = AC + tsety cma tad d1 tad tsety - dac tsety + dac tsety " tsety -= dely fld; ftmp2 - fst; twx + fst; twx " twx = ftmp2 fad; spx jms inscr - jmp 1f + jmp 1f " if (!(AC = inscr(twx + spx))) return false tad tsetx - dac delx + dac delx " delx = res + tsetx cma tad d1 tad tsetx - dac tsetx + dac tsetx " tsetx -= delx lac delx sma jmp .+3 @@ -156,17 +156,17 @@ surf: 0 tad delx tad o220000 dac i clistp - isz nt - jmp 2b - jmp i surf + isz nt " nt++ + jmp 2b " } + jmp i surf " return true 1: isz surf jmp i surf -drcirc: 0 +drcirc: 0 " draw circle lac grvflg spa - jmp i drcirc + jmp i drcirc " if (grvflg) return lac fcplan tad prsq dac .+2 @@ -177,79 +177,79 @@ drcirc: 0 tad scale cma dac aexp - fst; dtmp1 + fst; dtmp1 " dtmp1 = sqrt(prsq[fcplan]) / (2**scale) fcp; thrs spa - jmp i drcirc + jmp i drcirc " if (dtmp1 < thrs) return fng lac dpar cma tad scale "** 12-92-119.pdf page 17 cma - dac dpar + dac dpar " dpar /= (2**scale) fad; dpar sfdv; dpar - fst; dtmp2 + fst; dtmp2 " dtmp2 = (-dtmp1 + dpar) / dpar sfmp; spy - fst; wy - jms inscr - jmp i drcirc - dac sety + fst; wy " wy = dtmp2 * spy + jms inscr " if (!(AC = inscr(wy))) + jmp i drcirc " return + dac sety " sety = AC lac inflg sma - jms rotx + jms rotx " if (!inflg) rotx() fld; dtmp2 sfmp; spx - fst; wx - jms inscr - jmp i drcirc - dac setx + fst; wx " wx = dtmp2 * spx + jms inscr " if (!(AC = inscr(wx))) + jmp i drcirc " return + dac setx " setx = AC fld; spy fng fad; wy - fst; wy + fst; wy " wy -= spy fld; spx fng fad; wx - fst; wx + fst; wx " wx -= spx fld; dtmp1 - sfmp; pid10 + sfmp; pid10 " FAC = dtmp1 * pid10 fcp; f400 spa - jmp 1f + jmp 1f " if (FAC > 400) { lac d400 - dac narcs - jmp 2f + dac narcs " narcs = 400 + jmp 2f " } else { 1: - fix + fix " AC = (int) FAC tad dm20 spa - cla - tad d20 - dac narcs - flt + cla " if (AC - 20 < 0) AC = 0 + tad d20 " AC += 20 + dac narcs " narcs = AC + flt " } 2: fst; dtmp1 -1 tad narcs cma - dac narcs + dac narcs " narcs = -narcs fld; f2pi sfdv; dtmp1 - fst; v + fst; v " v = f2pi / dtmp1 sfmp; v -1 tad aexp dac aexp fng fad; fpone - fst; vv - lac o40004 + fst; vv " vv = -(v*v)/2 + 1 + lac o40004 " intens 0 dac i clistp "** 12-92-119.pdf page 18 jms surf - jmp i drcirc + jmp i drcirc " if (surf()) return jms surf - jmp i drcirc + jmp i drcirc " if (surf()) return jmp i drcirc diff --git a/src/cmd/st5.s b/src/cmd/st5.s index 20dcd55..93d2f7e 100644 --- a/src/cmd/st5.s +++ b/src/cmd/st5.s @@ -1,11 +1,11 @@ "** 12-92-119.pdf page 19 " space travel 5 -dsplanet: 0 - tad points +dsplanet: 0 " display planet center + tad points " add points address to ac (planet index) dac 9f+t lac i 9f+t - dac i clistp + dac i clistp " set planet brightness lac o246256 dac i clistp lac o253052 @@ -14,8 +14,8 @@ dsplanet: 0 dac i clistp jmp dsplanet i -dispname: 0 - tad names +dispname: 0 " display planet name + tad names " add names address to ac (planet index) dac 9f+t lac i 9f+t tad dm1 @@ -50,26 +50,26 @@ dispname: 0 t = t+2 -dspsca: 0 - lac scale +dspsca: 0 " display scale + lac scale " AC = scale sma - jmp 1f + jmp 1f " if (scale < 0) { lac o55 "- - dac dssca + dac dssca " dssca[0] = '-' -1 tad scale - cma + cma " AC = -AC jmp 2f -1: +1: " } else { "** 12-92-119.pdf page 20 lac o53 "+ - dac dssca + dac dssca " dssca[0] = '+' lac scale -2: +2: " } cll; idiv; 10 tad o60 - dac dssca+2 + dac dssca+2 " dssca[2] = (AC % 10) + '0' lacq tad o60 - dac dssca+1 + dac dssca+1 " dssca[1] = (AC / 10) + '0' jmp i dspsca diff --git a/src/cmd/st6.s b/src/cmd/st6.s index 4def68e..6bb140b 100644 --- a/src/cmd/st6.s +++ b/src/cmd/st6.s @@ -69,7 +69,7 @@ umbriel: ;
;;;;;0 venus: ;;