chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rename some jump marks 

do some commenting
This commit is contained in:
Oliver Lehmann 2008-05-02 22:16:56 +00:00
parent 8b0040a5ee
commit 71f99685e6
1 changed files with 57 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
WEGA/src/uts/dev/clist.s
View File

@ -26,42 +26,42 @@
_putcf:: _putcf::
{ {
ldctl r1,fcw ldctl r1,fcw //save processor status
di vi,nvi di vi,nvi //dvi
ldl rr4,_cfreelist ldl rr4,_cfreelist
ldl @rr6,rr4 ldl @rr6,rr4 //cbptr->c_next = cfreelist.c_next
ldl _cfreelist,rr6 ldl _cfreelist,rr6 //cfreelist.c_next = cbptr
ldctl fcw,r1 ldctl fcw,r1 //restore processor status
ret ret
} /* _putcf */ } /* _putcf */
_getcf:: _getcf::
{ {
ldctl r1,fcw ldctl r1,fcw //save processor status
di vi,nvi di vi,nvi //dvi
ldl rr2,_cfreelist ldl rr2,_cfreelist //rr2 = cfreelist
testl rr2 testl rr2
jr z,~egetcf jr z,~end //if its 0, then just return.
ldl rr4,@rr2 ldl rr4,@rr2
ldl _cfreelist,rr4 ldl _cfreelist,rr4 //cfreelist.c_next = cfreelist.c_next->c_next
subl rr6,rr6 subl rr6,rr6
ldl @rr2,rr6 ldl @rr2,rr6 //clear c_next in cblock
ld r0,_cfreelist+4 ld r0,_cfreelist+4
ld rr2(#4),r0 ld rr2(#4),r0
~egetcf: ~end:
ldctl fcw,r1 ldctl fcw,r1 //restore processor status
ret ret
} }
_getcb:: _getcb::
{ {
ldctl r1,fcw ldctl r1,fcw //save processor status
di vi,nvi di vi,nvi //dvi
ldl rr2,rr6(#2) ldl rr2,rr6(#2) //rr2 = ptr->c_cf
testl rr2 testl rr2
jr z,~egetcb jr z,~end //if its 0, then just return.
ld r0,rr2(#4) ld r0,rr2(#4)
subb rl0,rh0 subb rl0,rh0
@ -72,29 +72,29 @@ _getcb::
ldl rr4,@rr2 ldl rr4,@rr2
ldl rr6(#2),rr4 ldl rr6(#2),rr4
testl rr4 testl rr4
jpr ne,~egetcb jpr ne,~end
subl rr4,rr4 subl rr4,rr4
ldl rr6(#6),rr4 ldl rr6(#6),rr4
~egetcb: ~end:
ldctl fcw,r1 ldctl fcw,r1 //restore processor status
ret ret
} }
_putcb:: _putcb::
{ {
ldctl r1,fcw ldctl r1,fcw //save processor status
push @r14,r1 push @r14,r1
di vi,nvi di vi,nvi //dvi
ldl rr2,rr4(#6) ldl rr2,rr4(#6)
testl rr2 testl rr2
jpr ne,~else_putcb jpr ne,L1
ldl rr4(#2),rr6 ldl rr4(#2),rr6
ldl rr4(#6),rr6 ldl rr4(#6),rr6
jpr ~endif_putcb jpr L2
~else_putcb: L1:
ldl rr4(#6),rr6 ldl rr4(#6),rr6
ldl @rr2,rr6 ldl @rr2,rr6
~endif_putcb: L2:
subl rr0,rr0 subl rr0,rr0
ldl @rr6,rr0 ldl @rr6,rr0
ld r1,rr6(#4) ld r1,rr6(#4)
@ -104,17 +104,17 @@ _putcb::
add r0,r1 add r0,r1
ld @rr4,r0 ld @rr4,r0
pop r1,@rr14 pop r1,@rr14
ldctl fcw,r1 ldctl fcw,r1 //restore processor status
ret ret
} }
_getc:: _getc::
{ {
ldctl r1,fcw ldctl r1,fcw //save processor status
push @r14,r1 push @r14,r1
di vi,nvi di vi,nvi //dvi
dec @rr6,#1 dec @rr6,#1
jpr lt,~else_getc jpr lt,L3
ldl rr2,rr6(#2) ldl rr2,rr6(#2)
lda rr4,rr2(#4) lda rr4,rr2(#4)
ldb rl1,@rr4 ldb rl1,@rr4
@ -122,49 +122,49 @@ _getc::
subb rh1,rh1 subb rh1,rh1
ldb rl0,rr2(#5) ldb rl0,rr2(#5)
cpb rl0,@rr4 cpb rl0,@rr4
jr eq,~endif_getc jr eq,L4
inc r5,#2 inc r5,#2
add r5,r1 add r5,r1
ldb rl2,@rr4 ldb rl2,@rr4
subb rh2,rh2 subb rh2,rh2
~egetc: ~end:
pop r1,@rr14 pop r1,@rr14
ldctl fcw,r1 ldctl fcw,r1 //restore processor status
ret ret
~else_getc: L3:
inc @rr6,#1 inc @rr6,#1
ld r2,#-1 ld r2,#-1
jpr ~egetc jpr ~end
~endif_getc: L4:
inc r5,#2 inc r5,#2
add r5,r1 add r5,r1
ldb rl0,@rr4 ldb rl0,@rr4
ldl rr4,@rr2 ldl rr4,@rr2
ldl rr6(#2),rr4 ldl rr6(#2),rr4
testl rr4 testl rr4
jpr ne,~else2_getc jpr ne,L5
ldl rr6(#6),rr4 ldl rr6(#6),rr4
~else2_getc: L5:
ldl rr4,_cfreelist //get link to first free cblock ldl rr4,_cfreelist //get link to first free cblock
ldl @rr2,rr4 //put it into link of new free cblock ldl @rr2,rr4 //put it into link of new free cblock
ldl _cfreelist,rr2 //put address of new free cblock into cfreelist ldl _cfreelist,rr2 //put address of new free cblock into cfreelist
ldb rl2,rl0 ldb rl2,rl0
subb rh2,rh2 subb rh2,rh2
jpr ~egetc jpr ~end
} }
_putc:: _putc::
{ {
ldctl r6,fcw ldctl r6,fcw //save processor status
di vi,nvi di vi,nvi //dvi
ldl rr2,rr4(#6) ldl rr2,rr4(#6)
testl rr2 testl rr2
jpr eq,~else_putc jpr eq,L7
~L0: L6:
ldb rl0,rr2(#5) ldb rl0,rr2(#5)
subb rh0,rh0 subb rh0,rh0
cp r0,_cfreelist+4 cp r0,_cfreelist+4
jpr ge,~endif2_putc jpr ge,L10
inc @rr4,#1 inc @rr4,#1
lda rr4,rr2(#6) lda rr4,rr2(#6)
add r5,r0 add r5,r0
@ -172,31 +172,31 @@ _putc::
incb rl0,#1 incb rl0,#1
ldb rr2(#5),rl0 ldb rr2(#5),rl0
clr r2 clr r2
~eputc: ~end:
ldctl fcw,r6 ldctl fcw,r6 //restore processor status
ret ret
~else_putc: L7:
ldl rr2,_cfreelist ldl rr2,_cfreelist
testl rr2 testl rr2
jpr eq,~endif_putc jpr eq,L9
ldl rr4(#2),rr2 ldl rr4(#2),rr2
~L1: L8:
ldl rr0,@rr2 ldl rr0,@rr2
ldl _cfreelist,rr0 ldl _cfreelist,rr0
clr @rr2 clr @rr2
subl rr0,rr0 subl rr0,rr0
ldl rr2(#2),rr0 ldl rr2(#2),rr0
ldl rr4(#6),rr2 ldl rr4(#6),rr2
jpr ~L0 jpr L6
~endif_putc: L9:
ld r2,#-1 ld r2,#-1
jpr ~eputc jpr ~end
~endif2_putc: L10:
ldl rr0,_cfreelist ldl rr0,_cfreelist
testl rr0 testl rr0
jpr eq,~endif_putc jpr eq,L9
ldl @rr2,rr0 ldl @rr2,rr0
ldl rr2,rr0 ldl rr2,rr0
jpr ~L1 jpr L8
} }