1
0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-02-10 10:20:38 +00:00

sys (display) comments

This commit is contained in:
Phil Budne
2016-03-17 00:07:57 -04:00
parent f91b929d90
commit 89356e9aea
5 changed files with 9 additions and 9 deletions

View File

@@ -107,7 +107,7 @@ swap: 0
lac u.dspbuf
sna " process using display??
jmp 2f " no
law dspbuf
law dspbuf " reset to default display buffer
jms movdsp
2:
iof " disable interrupts
@@ -123,7 +123,7 @@ swap: 0
lac u.dspbuf
sza " using display?
"** 01-s1.pdf page 4
jms movdsp " yes.
jms movdsp " yes. switch to user display bufferx
3:
dzm uquant " no. reset process tick count
iof

View File

@@ -29,14 +29,14 @@
.capt:
lac u.ac " get user AC
dac u.dspbuf " save as user display buffer
jms movdsp
jms movdsp " switch to user display buffer
jmp sysexit
" release display?
.rele:
dzm u.dspbuf
law dspbuf
jms movdsp
dzm u.dspbuf " clear user display buffer pointer
law dspbuf " get default display buffer
jms movdsp " change to it
jmp sysexit
.chmod:

View File

@@ -104,7 +104,7 @@ badcal: " bad (unimplemented) system call
lac u.dspbuf
sna " process using display?
jmp .+3 " no
law dspbuf " yes
law dspbuf " yes: get default display buffer
jms movdsp " move display
jms awake
lac u.ulistp i

View File

@@ -80,7 +80,7 @@ cnop: " fetched as constant in iread
1: lds " load display status (see 03-scope.pdf pg 25)
sma ral " edges flag??
jmp 1f " not set
cdf " clear display flags?
cdf " clear display flags
lac .dspb
sna
jmp piret

View File

@@ -125,7 +125,7 @@ coldentry:
law 3072 " initialize display....
wcga
jms dspinit
law dspbuf
law dspbuf " set display buffer to default
jms movdsp
cla " read system block from disk
jms dskio; 06000