github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-11 23:53:23 +00:00
Code Issues Releases Wiki Activity

Add handwritten notes to st4.s.

Browse Source
This commit is contained in:
Sebastian Rasmussen 2019-11-03 03:06:57 +01:00
parent 312f8a507f
commit df31ca4816
2 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
scans/st4.s
View File

@ -6,27 +6,27 @@ displa: 0
sad cplan
skp
jmp 2f
lac locflg
lac locflg "[arrow points here from the text "how to set?" - scan markup]
sma
jmp 1f
fld; cphi
fmp; absy
fst; ftmp1
fld; sphi
fmp; absx
fad; ftmp1
fdv; dpar
fst; stheta
fld; sphi
fmp; absy
fng
fst; ftmp1
fld; cphi
fmp; absx
fad; ftmp1
fdv; dpar
fst; ctheta
jmp 2f
fld; cphi "[-\ - scan markup]
fmp; absy "[ | - scan markup]
fst; ftmp1 "[ | - scan markup]
fld; sphi "[ | - scan markup]
fmp; absx "[ | - scan markup]
fad; ftmp1 "[ | - scan markup]
fdv; dpar "[ | - scan markup]
fst; stheta "[ \ lock calculation - scan markup]
fld; sphi "[ / - scan markup]
fmp; absy "[ | - scan markup]
fng "[ | - scan markup]
fst; ftmp1 "[ | - scan markup]
fld; cphi "[ | - scan markup]
fmp; absx "[ | - scan markup]
fad; ftmp1 "[ | - scan markup]
fdv; dpar "[ | - scan markup]
fst; ctheta "[ | - scan markup]
jmp 2f "[-/ - scan markup]
1:
fld; sphi
fst; stheta

38
src/cmd/st4.s
View File

@ -6,27 +6,27 @@ displa: 0
sad cplan
skp
jmp 2f
lac locflg
lac locflg "[arrow points here from the text "how to set?" - scan markup]
sma
jmp 1f
fld; cphi
fmp; absy
fst; ftmp1
fld; sphi
fmp; absx
fad; ftmp1
fdv; dpar
fst; stheta
fld; sphi
fmp; absy
fng
fst; ftmp1
fld; cphi
fmp; absx
fad; ftmp1
fdv; dpar
fst; ctheta
jmp 2f
fld; cphi "[-\ - scan markup]
fmp; absy "[ | - scan markup]
fst; ftmp1 "[ | - scan markup]
fld; sphi "[ | - scan markup]
fmp; absx "[ | - scan markup]
fad; ftmp1 "[ | - scan markup]
fdv; dpar "[ | - scan markup]
fst; stheta "[ \ lock calculation - scan markup]
fld; sphi "[ / - scan markup]
fmp; absy "[ | - scan markup]
fng "[ | - scan markup]
fst; ftmp1 "[ | - scan markup]
fld; cphi "[ | - scan markup]
fmp; absx "[ | - scan markup]
fad; ftmp1 "[ | - scan markup]
fdv; dpar "[ | - scan markup]
fst; ctheta "[ | - scan markup]
jmp 2f "[-/ - scan markup]
1:
fld; sphi
fst; stheta