github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-24 19:40:14 +00:00
Code Issues Releases Wiki Activity

Add handwritten notes to st1.s.

Browse Source
This commit is contained in:
Sebastian Rasmussen
2019-11-03 03:05:59 +01:00
parent 312f8a507f
commit c45fba954f
2 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
scans/st1.s
View File

@@ -3,7 +3,7 @@
t = 0
start:
start: "[------ stuff for gravity - scan markup]
law 13
sys sysloc
dac .pbson
@@ -40,9 +40,9 @@ start:
dzm .pbsint
dzm forflg
dzm bacflg
dzm dspflg
dzm dspflg "[line connecting this instruction to... - scan markup]
dzm locflg
dzm locpar
dzm locpar "[... this instruction - scan markup]
lac d1
dac par
jms dispname
@@ -68,13 +68,13 @@ start:
loop:
law dspl-1
dac clistp
jms contrl
jms contrl "[arrow from below points to this instruction - scan markup]
lac par
jms absxy
jms shipxy
lac goflg
spa
jmp loop3
jmp loop3 "[long dash after loop3 - scan markup]
fld; fpzero
fst; ax
fst; ay
@@ -107,8 +107,8 @@ loop2:
sma
jms updshp
loop3:
fld; horizv
lac scale
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
tad vscale
tad aexp
@@ -116,12 +116,12 @@ loop3:
jms inscr
jmp loop4
tad o141577
dac i clistp
lac o164372
dac clistp i
cla
jms dsplanet
loop4:
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]
sys time "put delay here.....
"** 12-92-119.pdf page 3
dzm dispcl

26
src/cmd/st1.s
View File

@@ -3,7 +3,7 @@
t = 0
start:
start: "[------ stuff for gravity - scan markup]
law 13
sys sysloc
dac .pbson
@@ -40,9 +40,9 @@ start:
dzm .pbsint
dzm forflg
dzm bacflg
dzm dspflg
dzm dspflg "[line connecting this instruction to... - scan markup]
dzm locflg
dzm locpar
dzm locpar "[... this instruction - scan markup]
lac d1
dac par
jms dispname
@@ -68,13 +68,13 @@ start:
loop:
law dspl-1
dac clistp
jms contrl
jms contrl "[arrow from below points to this instruction - scan markup]
lac par
jms absxy
jms shipxy
lac goflg
spa
jmp loop3
jmp loop3 "[long dash after loop3 - scan markup]
fld; fpzero
fst; ax
fst; ay
@@ -107,8 +107,8 @@ loop2:
sma
jms updshp
loop3:
fld; horizv
lac scale
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
tad vscale
tad aexp
@@ -116,12 +116,12 @@ loop3:
jms inscr
jmp loop4
tad o141577
dac i clistp
lac o164372
dac clistp i
cla
jms dsplanet
loop4:
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]
sys time "put delay here.....
"** 12-92-119.pdf page 3
dzm dispcl