glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #181 from sebras/notes/psych.s

Browse Source 
Add handwritten comments to psych.s.
This commit is contained in:
Phil Budne
2019-11-12 23:26:42 -05:00
committed by GitHub
parent b5f30bf098 56a75c0362
commit b0e0d68b40
2 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/psych.s
+18 -18
View File
@@ -9,24 +9,24 @@
tad d1 tad d1
dac .pbp1 dac .pbp1
restart: restart:
fld; arg1 fld; arg1 "[ g = arg1 - scan markup]
fst; g fst; g "[ fact = arg2 - scan markup]
fld; arg2 fld; arg2 "[ d = 1.0 - scan markup]
fst; fact fst; fact "[ z = 0 - scan markup]
fld; fp01 fld; fp01 "[ oldx = 0 - scan markup]
fst; d fst; d "[ oldy = 0 - scan markup]
jms capture jms capture "[loop: - scan markup]
-100 -100 "[ b = z - 110. - scan markup]
dac j dac j "[ ---------- - scan markup]
fld; fp0 fld; fp0 "[ radians - scan markup]
fst; z fst; z "[ z = z + g - scan markup]
fst; oldx fst; oldx "[ g = -g * fact - scan markup]
fst; oldy fst; oldy "[ fact = 1 / fact - scan markup]
lac o400000 lac o400000 "[ xx = 500. * d * sin(b + pi/2) - scan markup]
dac i 11 dac i 11 "[ ni() - scan markup]
dac i 11 dac i 11 "[ yy = 500. * d * sin(b) - scan markup]
lac setx lac setx "[ ni() - scan markup]
dac i 10 dac i 10 "[ goto loop " an arrow points up to loop: above - scan markup]
lac sety lac sety
dac i 10 dac i 10
src/cmd/psych.s
+18 -18
View File
@@ -9,24 +9,24 @@
tad d1 tad d1
dac .pbp1 dac .pbp1
restart: restart:
fld; arg1 fld; arg1 "[ g = arg1 - scan markup]
fst; g fst; g "[ fact = arg2 - scan markup]
fld; arg2 fld; arg2 "[ d = 1.0 - scan markup]
fst; fact fst; fact "[ z = 0 - scan markup]
fld; fp01 fld; fp01 "[ oldx = 0 - scan markup]
fst; d fst; d "[ oldy = 0 - scan markup]
jms capture jms capture "[loop: - scan markup]
-100 -100 "[ b = z - 110. - scan markup]
dac j dac j "[ ---------- - scan markup]
fld; fp0 fld; fp0 "[ radians - scan markup]
fst; z fst; z "[ z = z + g - scan markup]
fst; oldx fst; oldx "[ g = -g * fact - scan markup]
fst; oldy fst; oldy "[ fact = 1 / fact - scan markup]
lac o400000 lac o400000 "[ xx = 500. * d * sin(b + pi/2) - scan markup]
dac i 11 dac i 11 "[ ni() - scan markup]
dac i 11 dac i 11 "[ yy = 500. * d * sin(b) - scan markup]
lac setx lac setx "[ ni() - scan markup]
dac i 10 dac i 10 "[ goto loop " an arrow points up to loop: above - scan markup]
lac sety lac sety
dac i 10 dac i 10