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

Removed ctrl-Ms and added a newline at the end.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-23 22:27:36 +10:00
parent 99a33c8dde
commit d5eb2a6b96
2 changed files with 195 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/cmd/bi.s
+1 -1
View File
@@ -430,4 +430,4 @@ pc = 017
sp: stack sp: stack
dp: stack dp: stack
ap: stack ap: stack
stack: 0 stack: 0
src/cmd/bl.s
+194 -194
View File
@@ -1,194 +1,194 @@
" bl " bl
jmp start jmp start
.array: .+1 .array: .+1
s 2 s 2
n 8 n 8
n 7 n 7
-1 -1
tad sp i tad sp i
cma cma
tad lastv tad lastv
dac lastv dac lastv
lmq lmq
lac sp lac sp
tad d1 tad d1
dac sp i dac sp i
isz sp isz sp
lacq lacq
dac sp i dac sp i
isz sp isz sp
jmp fetch jmp fetch
.read: .+1 .read: .+1
s 2 s 2
n 8 n 8
n 7 n 7
lac sp lac sp
tad d1 tad d1
dac sp i dac sp i
isz sp isz sp
jms getc jms getc
dac sp i dac sp i
isz sp isz sp
jmp fetch jmp fetch
.write: .+1 .write: .+1
s 2 s 2
n 8 n 8
n 7 n 7
lac sp i lac sp i
dac t1 dac t1
lrss 9 lrss 9
jms putc jms putc
lac t1 lac t1
jms putc jms putc
jmp fetch jmp fetch
.flush: .+1 .flush: .+1
n 8 n 8
n 7 n 7
jms flush jms flush
jmp fetch jmp fetch
getc: 0 getc: 0
lac iflg lac iflg
dzm iflg dzm iflg
sza sza
jmp getc i jmp getc i
lac cibufp lac cibufp
sad eibufp sad eibufp
jmp 1f jmp 1f
lac cibufp i lac cibufp i
and o777 and o777
dac iflg dac iflg
lac cibufp i lac cibufp i
isz cibufp isz cibufp
lrss 9 lrss 9
jmp getc i jmp getc i
1: 1:
lac .fin lac .fin
sys read; ibufp: ..; 64 sys read; ibufp: ..; 64
sna spa sna spa
jmp 1f jmp 1f
tad ibufp tad ibufp
dac eibufp dac eibufp
lac ibufp lac ibufp
dac cibufp dac cibufp
jmp getc+1 jmp getc+1
1: 1:
lac o4 lac o4
jmp getc i jmp getc i
putc: 0 putc: 0
and o777 and o777
sna sna
jmp putc i jmp putc i
lmq lmq
lac oflg lac oflg
sza sza
jmp 1f jmp 1f
lacq lacq
alss 9 alss 9
dac cobufp i dac cobufp i
dac oflg dac oflg
jmp putc i jmp putc i
1: 1:
lac cobufp i lac cobufp i
omq omq
dac cobufp i dac cobufp i
dac cobufp i dac cobufp i
dzm oflg dzm oflg
isz cobufp isz cobufp
lac cobufp lac cobufp
sad eobufp sad eobufp
skp skp
jmp putc i jmp putc i
lac .fout lac .fout
sys write; obufp: ..; 64 sys write; obufp: ..; 64
lac obufp lac obufp
dac cobufp dac cobufp
jmp putc i jmp putc i
stop: stop:
jms flush jms flush
las las
sma sma
sys exit " XXX replaced for now: sys save sys exit " XXX replaced for now: sys save
sys exit sys exit
flush: 0 flush: 0
lac oflg lac oflg
sza sza
isz cobufp isz cobufp
lac cobufp lac cobufp
cma cma
tad obufp tad obufp
cma cma
sna sna
jmp flush i jmp flush i
dac 1f+1 dac 1f+1
lac obufp lac obufp
dac 1f dac 1f
lac .fout lac .fout
sys write; 1: ..; .. sys write; 1: ..; ..
lac obufp lac obufp
dac cobufp dac cobufp
dzm oflg dzm oflg
jmp flush i jmp flush i
initio: 0 initio: 0
lac 017777 i lac 017777 i
sad d4 sad d4
jmp 2f jmp 2f
sad d8 sad d8
jmp 1f jmp 1f
law 9 law 9
tad 017777 tad 017777
dac .+3 dac .+3
law 017 law 017
sys creat; .. sys creat; ..
spa spa
jmp stop jmp stop
dac .fout dac .fout
1: 1:
law 5 law 5
tad 017777 tad 017777
dac .+2 dac .+2
sys open; ..; 0 sys open; ..; 0
spa spa
jmp stop jmp stop
dac .fin dac .fin
2: 2:
lac lastv lac lastv
dac eibufp dac eibufp
dac cibufp dac cibufp
-64 -64
tad lastv tad lastv
dac lastv dac lastv
dac ibufp dac ibufp
lac lastv lac lastv
dac eobufp dac eobufp
-64 -64
tad lastv tad lastv
dac lastv dac lastv
dac obufp dac obufp
dac cobufp dac cobufp
dzm oflg dzm oflg
jmp initio i jmp initio i
.fin: 0 .fin: 0
.fout: 1 .fout: 1
eibufp: 0 eibufp: 0
cibufp: 0 cibufp: 0
iflg: 0 iflg: 0
eobufp: 0 eobufp: 0
cobufp: 0 cobufp: 0
oflg: 0 oflg: 0
lastv: 017770 lastv: 017770
o777: 0777 o777: 0777
d4:o4: 4 d4:o4: 4
d8: 8 d8: 8