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

Add page comments to ds.s.

Browse Source
This commit is contained in:
Sebastian Rasmussen
2019-11-01 03:50:55 +01:00
parent e8c99b737a
commit 5350984840
2 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
scans/ds.s
View File

@@ -1,3 +1,4 @@
"** 07-13-19.pdf page 30
" ds
lac 017777 i
@@ -60,6 +61,7 @@ loop:
lac i1 i
sad ddfilp i
jmp 2f
"** 07-13-19.pdf page 31
isz i1
isz c1
jmp 1b
@@ -120,6 +122,7 @@ loop:
sad i2 i
skp
jmp 3f
"** 07-13-19.pdf page 32
-1
tad i1
dac i3
@@ -181,6 +184,7 @@ loop:
jms putname; scrname
jms putname; dd
law 012
"** 07-13-19.pdf page 33
jms putc
3:
@@ -242,6 +246,7 @@ longout: 0
lac statbuf+10
jms octal; -5
jmp longout i
"** 07-13-19.pdf page 34
readdir: 0
law 012
@@ -303,6 +308,7 @@ readdir: 0
lac i1
dac 8
lac 8 i
"** 07-13-19.pdf page 35
dac fsopt i
isz fsopt
lac 8 i
@@ -364,6 +370,7 @@ octal: 0
jmp 1b
lac octal i
dac c
"** 07-13-19.pdf page 36
1:
ecla llss 3
tad o60
@@ -425,6 +432,7 @@ putc: 0
spa
jmp 1f
lac 2f i
"** 07-13-19.pdf page 37
xor 2f+1
jmp 3f
1:
@@ -486,6 +494,7 @@ ddfilp: .=.+1
ddfiles: .=.+1
statbuf: .=.+13
c: .=.+1
"** 07-13-19.pdf page 38
i1: .=.+1
i2: .=.+1
i3: .=.+1
@@ -498,4 +507,3 @@ fsopt: .=.+1
fsobuf: .=.+64
dbuf: .=.+100
fbuf:

9
src/cmd/ds.s
View File

@@ -1,3 +1,4 @@
"** 07-13-19.pdf page 30
" ds
lac 017777 i
@@ -65,6 +66,7 @@ loop:
lac i1 i
sad ddfilp i
jmp 2f
"** 07-13-19.pdf page 31
isz i1
isz c1
jmp 1b
@@ -127,6 +129,7 @@ loop:
sad i2 i
skp
jmp 3f
"** 07-13-19.pdf page 32
-1
tad i1
dac i3
@@ -189,6 +192,7 @@ loop:
jms putname; scrname
jms putname; dd
law 012
"** 07-13-19.pdf page 33
jms putc
3:
@@ -250,7 +254,7 @@ longout: 0
lac statbuf+10
jms octal; -5
jmp longout i
"** 07-13-19.pdf page 34
readdir: 0
law 012
jms putc
@@ -313,6 +317,7 @@ readdir: 0
lac i1
dac 8
lac 8 i
"** 07-13-19.pdf page 35
dac fsopt i
isz fsopt
lac 8 i
@@ -439,6 +444,7 @@ putc: 0
spa " If the bit was set, we already have one
jmp 1f " character at 2f+1. If no previous character,
lac 2f i " merge the old and new character together
"** 07-13-19.pdf page 37
xor 2f+1
jmp 3f " and go to the "save it in buffer" code
1:
@@ -501,6 +507,7 @@ ddfilp: .=.+1
ddfiles: .=.+1
statbuf: .=.+13
c: .=.+1
"** 07-13-19.pdf page 38
i1: .=.+1
i2: .=.+1
i3: .=.+1