github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-02-25 00:27:55 +00:00
Code Issues Releases Wiki Activity

Merge pull request #176 from sebras/notes/st4.s

Browse Source 
Add handwritten notes to st4.s.
This commit is contained in:
Phil Budne
2019-11-12 20:43:56 -05:00
committed by GitHub
parent 80e75e71f7 df31ca4816
commit b4c3f6f2b3
2 changed files with 38 additions and 38 deletions
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