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

wake up init with smes before exiting

Browse Source
This commit is contained in:
Phil Budne
2016-03-21 11:00:18 -04:00
parent dee1695759
commit c1ef96a723
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/other/pbsh.s
+6 -1
View File
@@ -332,7 +332,7 @@ rline: 0
1: 1:
cla; sys read; char; 1 " Read in one character from stdin cla; sys read; char; 1 " Read in one character from stdin
sna " read ok? sna " read ok?
sys exit " EOF: quit jmp quit " no
lac char lac char
lrss 9 " Get it and shift down 9 bits lrss 9 " Get it and shift down 9 bits
sad o100 " '@' (kill) character? sad o100 " '@' (kill) character?
@@ -353,6 +353,11 @@ rline: 0
dac 8 dac 8
jmp 1b " and loop back jmp 1b " and loop back
quit:
lac d1; sys smes " wake up init
sys exit
" copied from cat.s:
putc: 0 putc: 0
and o177 " Keep the lowest 7 bits and save into 2f+1 and o177 " Keep the lowest 7 bits and save into 2f+1
dac 2f+1 dac 2f+1