diff --git a/pages/e00-05 b/pages/e00-05 index d99b92a..92a0ef4 100644 --- a/pages/e00-05 +++ b/pages/e00-05 @@ -20,7 +20,7 @@ / size of directory mov r0,u.base / set buffer address for write to top of directory clr u.off / clear file offset used in 'seek' and 'tell' - add u.count,r0 / r0 polnts to the header of the next directory + add u.count,r0 / r0 points to the header of the next directory jsr r0,writei / write the directory and i-node onto drum br 1b / do next directory .endif diff --git a/pages/e05-01 b/pages/e05-01 index f21b0e6..822db56 100644 --- a/pages/e05-01 +++ b/pages/e05-01 @@ -1,6 +1,6 @@ / u5 - unix mget: - mov *u.fofp,mq / file offset ln mq + mov *u.fofp,mq / file offset in mq clr ac / later to be high sig mov $-8,lsh / divide ac/mq by 256. mov mq,r2 @@ -12,7 +12,7 @@ mget: mov 1.dskp(r2),r1 / r1 has physical block number bne 2f / lf physical block num is zero then need a new block / for file - jsr rO,alloc / allocate a new block + jsr r0,alloc / allocate a new block mov r1,i.dskp(r2) / physical block number stored in i-node jsr r0,setimod / set inode modified byte (imod) jsr r0,clear / zero out disk/drum block just allocated @@ -37,7 +37,7 @@ mget: dec r3 bgt 1b jsr r0,dskwr / write new indirect block on disk - mov r1,i.dskp / put pointer to indirect block ln i—node + mov r1,i.dskp / put pointer to indirect block in i-node bis $10000,i.flgs / set large file blt in i.flgs word of i-node jsr r0,setimod / set i-node modified flag br mget diff --git a/pages/e05-02 b/pages/e05-02 index 300be6b..113b1d4 100644 --- a/pages/e05-02 +++ b/pages/e05-02 @@ -1,5 +1,5 @@ mov r1,i.dskp(r2) / put block number of new block in i-node - jsr r0,setimod / set i—node modified byte + jsr r0,setimod / set i-node modified byte jsr r0,clear / clear new block 2: jsr r0,dskrd / read in indirect block @@ -11,10 +11,10 @@ / sought in r1 bne 2f / if no block exists jsr r0,alloc / allocate a new block - mov r1,(r2) / put new block number into proper location ln + mov r1,(r2) / put new block number into proper location in / indirect block mov (sp)+,r1 / get block number of indirect block - mov (r2),—(sp) / save block number of new block + mov (r2),-(sp) / save block number of new block jsr r0,wslot jsr r0,dskwr / write newly modified indirect block back out / on disk @@ -24,8 +24,8 @@ tst (sp)+ / bump stack pointer rts r0 alloc: - mov r2,—(sp) / save r2, r3 on stack - mov r3,—(sp) + mov r2,-(sp) / save r2, r3 on stack + mov r3,-(sp) mov $systm,r2 / start of inode and free storage map for drum tst cdev beq 1f / drum ls device diff --git a/pages/e05-03 b/pages/e05-03 index 2eaa460..dfb2050 100644 --- a/pages/e05-03 +++ b/pages/e05-03 @@ -4,7 +4,7 @@ br 2f free: mov r2,-(sp) / save r2, r3 - mov r3,—(sp) + mov r3,-(sp) jsr r0,3f / set up bit mask and word no. in free storage map / for block bis r3,(r2) / set free storage block bit; indicates free block @@ -39,7 +39,7 @@ free: add $systm+2,r2 / address of word of free storage map for drum / with block bit in it tst cdev - beq 1f / cdev = O indicates device is drum + beq 1f / cdev = 0 indicates device is drum add $mount-systm,r2 / address of word of free storage map for / mountable device with bit of block to be / freed diff --git a/pages/e05-04 b/pages/e05-04 index 7096707..fb3c614 100644 --- a/pages/e05-04 +++ b/pages/e05-04 @@ -4,7 +4,7 @@ / read/write bits asrb r2 1: - bit r2,(r0)+ / test read—write flags against argument in + bit r2,(r0)+ / test read-write flags against argument in / access call bne 1f tstb u.uid @@ -13,14 +13,14 @@ 1: rts r0 setimod: - movb $1,imod / set current i—node modified bytes + movb $1,imod / set current i-node modified bytes mov s.time,i.mtim / put present tlme into file modified time mov s.time+2,i.mtim+2 rts r0 -imap: / get the byte that has the allocation bit for the i—number contained +imap: / get the byte that has the allocation bit for the i-number contained / in r1 mov $1,mq / put 1 in the mq - mov r1,r2 / r2 now has i—number whose byte in the map we + mov r1,r2 / r2 now has i-number whose byte in the map we / must find sub $41.,r2 / r2 has i-41 mov r2,r3 / r3 has i-41 @@ -36,7 +36,7 @@ imap: / get the byte that has the allocation bit for the i—number contained / block for drum tst cdev / is the device the disk beg 1f / yes - add $mount—systm,r2 / for mounted device, r2 points to 1st word + add $mount-systm,r2 / for mounted device, r2 points to 1st word / of its super block 1: add (r2)+,(sp) / get byte address of allocation bit diff --git a/pages/e05-05 b/pages/e05-05 index 7c308c3..3835816 100644 --- a/pages/e05-05 +++ b/pages/e05-05 @@ -28,7 +28,7 @@ icalc: / i-node i is located in block (i+31.)/16. and begins 32.* / (i+31)mod16 bytes from its start add $31.,r1 / add 31. to i-number - mov r1,—(sp) / save i+.31. on stack + mov r1,-(sp) / save i+.31. on stack asr r1 / divide by 16. asr r1 asr r1 @@ -43,7 +43,7 @@ icalc: / i-node i is located in block (i+31.)/16. and begins 32.* bic $!17,(sp) / zero all but last 4 bits; gives (i+31.) mod 16 mov (sp)+,mq / calculate offset in data buffer; 32.*(i+31.)mod16 mov $5,lsh / for i-node i. - add mq,r5 / r5 points to flrst word ln i-node i. + add mq,r5 / r5 points to flrst word in i-node i. mov $inode,r1 / inode is address of first word of current i-node mov $16.,r3 tst (r0)+ / branch to 2f when argument in icalc call = 0 diff --git a/pages/e06-01 b/pages/e06-01 index 064083d..d60c17a 100644 --- a/pages/e06-01 +++ b/pages/e06-01 @@ -4,9 +4,9 @@ read: tst u.count / is number of bytes to be read greater than 0 bgt 1f / yes, branch rts r0 / no, nothing to read; return to caller -1: · - mov r1,-(sp) / save 1—number on stack - cmp r1,$40. / want to read a special file (1—nodes 1,...,40 are +1: + mov r1,-(sp) / save i-number on stack + cmp r1,$40. / want to read a special file (i-nodes 1,...,40 are / for special files) ble 1f / yes, branch jmp dskr / no, jmp to dskr; read file with 1.-node number (:1) @@ -31,14 +31,14 @@ read: rcvt / tty0 rcvt / tty1 rcvt / tty2 - rcvt / tty3 ‘ + rcvt / tty3 rcvt / tty4 rcvt / tty5 rcvt / tty6 zcvt / ety7 rcrd/ crd rtty: / read from console tty - mov tty+[8*ntty]—8+6,r5 / r5 is the address of the 4th word of + mov tty+[8*ntty]-8+6,r5 / r5 is the address of the 4th word of / of the control and status block _ tst 2(r5) / for the console tty; this word points to the console / tty bufTer diff --git a/pages/e06-02 b/pages/e06-02 index 5f5e32e..d0579d6 100644 --- a/pages/e06-02 +++ b/pages/e06-02 @@ -8,7 +8,7 @@ rppt: / read paper tape` / places br ret / it 1n r1; 1f there 1s no problem with reader, it / also enables read bit Ln prs - jsr rO,passc / place character in users buffer area + jsr r0,passc / place character in users buffer area br rppt rmem: / transfer characters from memory to a user area of core @@ -17,7 +17,7 @@ rmem: / transfer characters from memory to a user area of core inc *u.fofp / increment file offset to point to 'next' char 1n / memory file movb (r1),r1 / get character from memory file, put it in r1 - jsr rO,passc / move this character to the next byte of the + jsr r0,passc / move this character to the next byte of the / users core area br mem / continue 1: @@ -26,8 +26,8 @@ rcrd: dskr: mov (sp),r1 / i-number in r1 - jsr r0,iget / get i-node (r1) into i—node section of core - mov i.size,r2 / file size ln bytes in r2 + jsr r0,iget / get i-node (r1) into i-node section of core + mov i.size,r2 / file size in bytes in r2 sub *u.fofp,r2 / subtract file offset blos ret cmp r2,u.count / are enough bytes left in file to carry out read diff --git a/pages/e06-03 b/pages/e06-03 index 5642b0d..93c9388 100644 --- a/pages/e06-03 +++ b/pages/e06-03 @@ -2,22 +2,22 @@ inc u.nread / increment the number of bytes read dec u.count / decrement the number of bytes to be read bne 1f / any more bytes to read?; yes, branch - mov (sp)+,rO / no, do a non—local return to the caller of + mov (sp)+,r0 / no, do a non-local return to the caller of / 'readi' by: -ret: / (1) pop the return address off the stack into rO +ret: / (1) pop the return address off the stack into r0 mov (sp)+,r1 / (2) pup the i-number off the stack into r1 1 : . clr *$ps / clear processor status - rts rO / return to address currently on top of stack + rts r0 / return to address currently on top of stack writei: clr u.nread / clear the number of bytes transmitted during / read or write calls tst u.count / test the byte count specified by the user bgt 1f / any bytes to output; yes, branch - rts rO / no, return - no writing to do + rts r0 / no, return - no writing to do 1: mov r1 ,-(sp) / save the i-node number on the stack - cmp r1,$40. / does the i—node number indicate a special file? + cmp r1,$40. / does the i-node number indicate a special file? bgt dskw / no, branch to standard file output asl r1 / yes, calculate the index into the special file jmp *1f-2(r1) / jump table and jump to the appropriate routine @@ -35,7 +35,7 @@ writei: wtap / tap5 wtap / tap6 wtap / tap7 - xmtt / ttyO + xmtt / tty0 xmtt / tty1 xmtt / tty2 xmtt / tty3 diff --git a/pages/e06-04 b/pages/e06-04 index 0cea8f0..6f6c00d 100644 --- a/pages/e06-04 +++ b/pages/e06-04 @@ -8,8 +8,8 @@ jsr r0,startty / attempt to output character on tty br wtty 2: - mov r1,—(sp) / place character on stack - jsr rO,sleep; 1 / put process to sleep + mov r1,-(sp) / place character on stack + jsr r0,sleep; 1 / put process to sleep mov (sp)+,r1 / remove character from stack br 1b / try again to place character in clist and output @@ -30,7 +30,7 @@ wppt: / br w1pr wmem: / transfer characters from a user area of core to memory file - jsr rO,cpass / get next character from users area of core and + jsr r0,cpass / get next character from users area of core and / put it in r1 mov r1,-(sp) / put character on the stack mov *u.fofp,r1 / save file offset in r1 @@ -41,10 +41,10 @@ wmem: / transfer characters from a user area of core to memory file br wmem / continue 1: jmp error / ? -dskw: / write routine for non—special files +dskw: / write routine for non-special files mov (sp),r1 / get an i-node number from the stack into r1 - jsr r0,iget / write i—node out (if modified), read i-node 'r1' - / into i—node area of core + jsr r0,iget / write i-node out (if modified), read i-node 'r1' + / into i-node area of core mov *u.fofp,r2 / put the file offset [(u.off) or the offset in / the fsp entry for this file] in r2 add u.count,r2 / no. of bytes to be written + file offset is diff --git a/pages/e06-05 b/pages/e06-05 index 5300ddd..50c7379 100644 --- a/pages/e06-05 +++ b/pages/e06-05 @@ -1,13 +1,13 @@ mov r2,i.size / yes, increase the f11e size to file offset + / no. of data bytes - jsr rO,setimod / set imod=1 (1.e., core inode has been + jsr r0,setimod / set imod=1 (1.e., core inode has been / modified), stuff tlme of modiflcatlon into / core image of i-node 1: jsr r0,mget / get the block no. in which to write the next data / byte bit *u.fofp,$777 / test the lower 9 bits of the file offset - bne 2f / if its non-zero, branch; if zero, file offset = O, + bne 2f / if its non-zero, branch; if zero, file offset = 0, / 512, 1024,...(i.e., start of new block) cmp u.count,$512. / if zero, is there enough data to fill an / entire block? (i.e., no. of @@ -19,8 +19,8 @@ / into an I/O buffer 3: jsr r0,wslot / set write and inhibit bits in I/O queue, proc. - / status=O, r5 points to 1st word of data - jsr rO,sioreg / r3 = no. of bytes of data, r1 = address of data, + / status=0, r5 points to 1st word of data + jsr r0,sioreg / r3 = no. of bytes of data, r1 = address of data, / r2 points to location in buffer in which to / start writing data 2: @@ -35,21 +35,21 @@ cpass: / get next character from user area of core and put it in r1 tst u.count / have all the characters been transferred (i.e., / u.count, # of chars. left . - beg 1f / to be transferred = O?) yes, branch + beg 1f / to be transferred = 0?) yes, branch dec u.count / no, decrement u.count movb *u.base,r1 / take the character pointed to by u.base and - / put it ln r1 + / put it in r1 inc u.nread / increment no. of bytes transferred inc u.base / increment the buffer address to point to the rts r0 / next byte 1: mov (sp)+,r0 / put return address of calling routine into r0 mov (sp)+,r1 / i.-number in r1 - rts r0 / non—local return + rts r0 / non-local return sioreg: mov *u.fofp,r2 / file offset (in bytes) is moved to r2 mov r2,r3 / and also to r3 - bis $177000,r3 / set bits 9,...,15. of file offset ln r3 + bis $177000,r3 / set bits 9,...,15. of file offset in r3 blc $l777,r2 / calculate file offset mod 512. add r5,r2 / r2 now points to 1st byte in system buffer where / data is to be placed diff --git a/pages/e09-03 b/pages/e09-03 index 23382c1..7551e90 100644 --- a/pages/e09-03 +++ b/pages/e09-03 @@ -42,7 +42,7 @@ starxmt: movb tty+3(r2),0f / yes, make byte 4 arg of "getc" inc 0f / increment arg to make it tty output list of / clist - jsr r0,getc; 0:.. / obtain next character ln clist for tty + jsr r0,getc; 0:.. / obtain next character in clist for tty / out and place in r1 br 1f / if no entry in clist to be output, return to / calling routine diff --git a/pages/e09-04 b/pages/e09-04 index 4844b37..01029b3 100644 --- a/pages/e09-04 +++ b/pages/e09-04 @@ -44,7 +44,7 @@ / (character leftover after "lf" ) 2: movb (r2),r3 / place present column count in r3 - beq 1f / return to calling routlne if count = 0 + beq 1f / return to calling routine if count = 0 clrb (r2) / col clear column count asr r3 asr r3