github.com/DoctorWkt.unix-jun72
1
0
Fork 0
mirror of https://github.com/DoctorWkt/unix-jun72.git synced 2026-04-15 16:11:36 +00:00
Code Issues Releases Wiki Activity

- cleaned up some unicode stuff. didnt go through all of e11 yet.

Browse Source
This commit is contained in:
tim.newsham
2008-04-30 22:07:47 +00:00
parent 7cf50f75b8
commit b42665c20d
7 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pages/e01-06
View File

@@ -47,7 +47,7 @@
sysread:
jsr r0,rw1 / get i-number of file to be read into r1
tst r1 / negative i—number?
tst r1 / negative i-number?
ble error1 / yes, error 1 to read it should be positive
jsr r0,readi / read data into core
br 1f

6
pages/e04-02
View File

@@ -1,7 +1,7 @@
mov $touts-toutt-1,r0 / set up r0 as index to decrement thru
/ the table
1:
tstb toutt(r0) / is the time out for this entry —
tstb toutt(r0) / is the time out for this entry
beq 2f / yes
decb toutt(r0) / no, decrement the time
bne 2f / is the time O, now
@@ -27,7 +27,7 @@ ttyi: / console tty input interrupt routine
add $40,r1 / if upper case, calculate the representation of its
/ lower case counter part
1:
cmp r1,$175 / char = "}”? Note: may be quit char (fs)
cmp r1,$175 / char = "}"? Note: may be quit char (fs)
beq 2f / yes 2f
cmp r1,$177 / char = "del" ?
beq 2f / yes, 2f
@@ -53,4 +53,4 @@ ttyi: / console tty input interrupt routine
jsr r0,wakeall / wakeup all sleeping processes
br retisp / return

4
pages/e04-03
View File

@@ -35,7 +35,7 @@ ppti: / paper tape lnput interrupt routine M
jsr r0,pptito / place 10 ln toutt entry for ppt input
br retisp
1:
movb $4,pptiflg / change "pptiflg" to indicate file "normal°
movb $4,pptiflg / change "pptiflg" to indicate file "normal"
2:
jsr r0,wakeup; runq+2; 2 / wakeup process for ppt input entry
/ ln wllst
@@ -55,4 +55,4 @@ ppti: / paper tape lnput interrupt routine M
/lpto:

4
pages/e08-02
View File

@@ -9,7 +9,7 @@
bit $22000,(r5) / are 10th and 13th bits set (read bits)
beq 1f / no
cmp cdev,$1 / disk or drum?
ble 2f / yes ·
ble 2f / yes
tstb uquant / is the time quan+um = 0?
bne 2f / no, 2f
mov r5,-(sp) / yes, save r5 (buffer address)
@@ -36,7 +36,7 @@
mov (sp)+,r0 / jump to routine that called readi
jmp ret
bwrite: / write on block structured device »
bwrite: / write on block structured device
jsr r0,tstdeve / test the device for an error
mov *u.fofp,r1 / put the block number in r1
cmp r1,(r0)+ / does block number exceed maximum allowable #

2
pages/e08-08
View File

@@ -4,7 +4,7 @@
bgt 0b / if gt keep reading
br taper / else reverse
tape3: / I/O transfer ·
tape3: / I/O transfer
bic $30000,(r1) / clear bits 12 and 13 of I/0 queue entry
jsr r0,poke / do the I/O
bit $4,active / still k sy see if pick up r-ahead, w-behind

2
pages/e08-09
View File

@@ -1,5 +1,5 @@
4:
jmp retisp / u4—3
jmp retisp / u4-3
trapt: / r2 points to the
mov (r0)+,r2 / device control register

10
pages/e11-01
View File

@@ -1,7 +1,7 @@
/ sh —— command interpreter
/ sh -- command interpreter
mov sp,r5
mov r5.shel larg / save orig sp in shel larg
cdpb B(r5),$’— / was this sh calleZd by init or loginx~
cdpb B(r5),$'- / was this sh calleZd by init or loginx~
bne 2f / no
sys intr; O / yes, turn off interrupts
sys quit; O
@@ -12,7 +12,7 @@
movb $'#,at / yes, set new prompt symbol
2:
cmn (r5),$l / tty input?
ble newline / yes, call with ’-(or with no command
ble newline / yes, call with '-(or with no command
/ file name)
clr rO / no, set ttv
sys close / close it
@@ -41,14 +41,14 @@ newarg:
jsr pc,blank / squeeze out leading blanks
jsr r5,delim / is new character a ; \n or &
br 2f / yes
mov r3,—(sp) I no, push arg pointer onto stack
mov r3,-(sp) I no, push arg pointer onto stack
cmp rO,$'< / new input file?
bne 1f / no
mov (sp).infile / yes, save arg pointer
clr (sp) / clear pointer
br 3f
1:
cmp r0,$’> / new output file?
cmp r0,$'> / new output file?
bne newchar / no
mov (sp),outfile / yes, save arg pointer
clr (sp) / clear pointer