verified code

This commit is contained in:
Oliver Lehmann 2009-08-26 16:26:54 +00:00
parent c59bdd844b
commit 7c7c44fe51
55 changed files with 172 additions and 181 deletions

View File

@ -1,10 +1,10 @@
access module access module
external external
_cerror cerror procedure
global global
access procedure _access procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ access module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end access end _access
end access end access

View File

@ -1,10 +1,10 @@
acct module acct module
external external
_cerror cerror procedure
global global
acct procedure _acct procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ acct module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end acct end _acct
end acct end acct

View File

@ -1,11 +1,11 @@
alarm module alarm module
global global
alarm procedure _alarm procedure
entry entry
ld r0,r7 ld r0,r7
sc #27 sc #27
ld r2,r4 ld r2,r4
ret ret
end alarm end _alarm
end alarm end alarm

View File

@ -1,16 +1,14 @@
brk module brk module
external external
_end _end procedure
_cerror cerror procedure
internal
nd
word :=2
_end
global global
brk procedure nd
word := _end
_brk procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -19,16 +17,16 @@ brk module
jp c,cerror jp c,cerror
ld nd,r0 ld nd,r0
ret ret
end brk end _brk
sbrk procedure _sbrk procedure
entry entry
ld r0,r7 ld r0,r7
ld r2,nd ld r2,nd
add r0,r2 add r0,r2
ld r1,r0 ld r1,r0
dec r1,#1 dec r1,#1
dec r2,#2 dec r2,#1
cpb rh1,rh2 cpb rh1,rh2
jr z,t1 jr z,t1
sc #17 sc #17
@ -38,5 +36,5 @@ t1:
ld r2,nd ld r2,nd
ld nd,r0 ld nd,r0
ret ret
end sbrk end _sbrk
end brk end brk

View File

@ -1,10 +1,10 @@
chdir module chdir module
external external
_cerror cerror procedure
global global
chdir procedure _chdir procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ chdir module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end chdir end _chdir
end chdir end chdir

View File

@ -1,10 +1,10 @@
chmod module chmod module
external external
_cerror cerror procedure
global global
chmod procedure _chmod procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ chmod module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end chmod end _chmod
end chmod end chmod

View File

@ -1,10 +1,10 @@
chown module chown module
external external
_cerror cerror procedure
global global
chown procedure _chown procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -14,5 +14,5 @@ chown module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end chown end _chown
end chown end chown

View File

@ -1,10 +1,10 @@
close module close module
external external
_cerror cerror procedure
global global
close procedure _close procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ close module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end close end _close
end close end close

View File

@ -1,10 +1,10 @@
creat module creat module
external external
_cerror cerror procedure
global global
creat procedure _creat procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -12,5 +12,5 @@ creat module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end creat end _creat
end creat end creat

View File

@ -1,10 +1,10 @@
dup module dup module
external external
_cerror cerror procedure
global global
dup procedure _dup procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -12,5 +12,5 @@ dup module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end dup end _dup
end dup end dup

View File

@ -1,11 +1,11 @@
execl module execl module
external external
_environ _environ procedure
_cerror cerror procedure
global global
execl procedure _execl procedure
entry entry
ld r0,@r15 ld r0,@r15
ex r0,r7 ex r0,r7
@ -21,6 +21,6 @@ execl module
inc r15,#8 inc r15,#8
ld @r15,r7 ld @r15,r7
jp cerror jp cerror
end execl end _execl
end execl end execl

View File

@ -1,10 +1,10 @@
execle module execle module
external external
_cerror cerror procedure
global global
execle procedure _execle procedure
entry entry
ld r0,@r15 ld r0,@r15
ex r0,r7 ex r0,r7
@ -24,5 +24,5 @@ execle module
inc r15,#8 inc r15,#8
ld @r15,r7 ld @r15,r7
jp cerror jp cerror
end execle end _execle
end execle end execle

View File

@ -1,11 +1,11 @@
execv module execv module
external external
_environ _environ procedure
_cerror cerror procedure
global global
execv procedure _execv procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ execv module
sc #59 sc #59
ld r2,r4 ld r2,r4
jp cerror jp cerror
end execv end _execv
end execv end execv

View File

@ -1,10 +1,10 @@
execve module execve module
external external
_cerror cerror procedure
global global
execve procedure _execve procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -12,5 +12,5 @@ execve module
sc #59 sc #59
ld r2,r4 ld r2,r4
jp cerror jp cerror
end execve end _execve
end execve end execve

View File

@ -1,10 +1,10 @@
exit module exxit module
global global
exit procedure __exit procedure
entry entry
ld r0,r7 ld r0,r7
sc #1 sc #1
ld r2,r4 ld r2,r4
end exit end __exit
end exit end exxit

View File

@ -1,18 +1,18 @@
fcntl module fcntl module
external external
_cerror cerror procedure
global global
fcntl procedure _fcntl procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
ld r2,r5 ld r2,r5
xor r4,r4 sub r4,r4
sc #38 sc #38
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end fcntl end _fcntl
end fcntl end fcntl

View File

@ -1,14 +1,13 @@
fork module fork module
internal
_par_uid
word :=2
external external
_cerror cerror procedure
global global
fork procedure _par_uid
word
_fork procedure
entry entry
sc #2 sc #2
jr uid jr uid
@ -17,7 +16,7 @@ fork module
jp cerror jp cerror
uid: uid:
ld _par_uid,r4 ld _par_uid,r4
xorg r2,r2 xor r2,r2
ret ret
end fork end _fork
end fork end fork

View File

@ -1,10 +1,10 @@
fstat module fstat module
external external
_cerror cerror procedure
global global
fstat procedure _fstat procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ fstat module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end fstat end _fstat
end fstat end fstat

View File

@ -1,10 +1,10 @@
getegid module getegid module
global global
getegid procedure _getegid procedure
entry entry
sc #47 sc #47
ld r2,r5 ld r2,r5
ret ret
end getegid end _getegid
end getegid end getegid

View File

@ -1,10 +1,10 @@
geteuid module geteuid module
global global
geteuid procedure _geteuid procedure
entry entry
sc #24 sc #24
ld r2,r5 ld r2,r5
ret ret
end geteuid end _geteuid
end geteuid end geteuid

View File

@ -1,10 +1,10 @@
getgid module getgid module
global global
getgid procedure _getgid procedure
entry entry
sc #47 sc #47
ld r2,r4 ld r2,r4
ret ret
end getgid end _getgid
end getgid end getgid

View File

@ -1,10 +1,10 @@
getpid module getpid module
global global
getpid procedure _getpid procedure
entry entry
sc #20 sc #20
ld r2,r4 ld r2,r4
ret ret
end getpid end _getpid
end getpid end getpid

View File

@ -1,12 +1,12 @@
getppid module getppid module
global global
getppid procedure _getppid procedure
entry entry
xor r4,r4 xor r4,r4
xor r5,r5 xor r5,r5
sc #20 sc #20
ld r2,r5 ld r2,r5
ret ret
end getppid end _getppid
end getppid end getppid

View File

@ -1,10 +1,10 @@
getuid module getuid module
global global
getuid procedure _getuid procedure
entry entry
sc #24 sc #24
ld r2,r4 ld r2,r4
ret ret
end getuid end _getuid
end getuid end getuid

View File

@ -1,10 +1,10 @@
ioctl module ioctl module
external external
_cerror cerror procedure
global global
ioctl procedure _ioctl procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -14,5 +14,5 @@ ioctl module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end ioctl end _ioctl
end ioctl end ioctl

View File

@ -1,10 +1,10 @@
kill module kill module
external external
_cerror cerror procedure
global global
kill procedure _kill procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ kill module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end kill end _kill
end kill end kill

View File

@ -1,10 +1,10 @@
link module link module
external external
_cerror cerror procedure
global global
link procedure _link procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ link module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end link end _link
end link end link

View File

@ -1,10 +1,10 @@
lseek module lseek module
external external
_cerror cerror procedure
global global
lseek procedure _lseek procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r4 ld r1,r4
@ -14,5 +14,5 @@ lseek module
ldl rr2,rr4 ldl rr2,rr4
ret nc ret nc
jp cerror jp cerror
end lseek end _lseek
end lseek end lseek

View File

@ -1,10 +1,10 @@
mknod module mknod module
external external
_cerror cerror procedure
global global
mknod procedure _mknod procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -14,5 +14,5 @@ mknod module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end mknod end _mknod
end mknod end mknod

View File

@ -1,10 +1,10 @@
mount module mount module
external external
_cerror cerror procedure
global global
mount procedure _mount procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -14,5 +14,5 @@ mount module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end mount end _mount
end mount end mount

View File

@ -1,10 +1,10 @@
nice module nice module
external external
_cerror cerror procedure
global global
nice procedure _nice procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ nice module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end nice end _nice
end nice end nice

View File

@ -1,10 +1,10 @@
open module open module
external external
_cerror cerror procedure
global global
open procedure _open procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ open module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end open end _open
end open end open

View File

@ -1,9 +1,9 @@
pause module pause module
global global
pause procedure _pause procedure
entry entry
sc #29 sc #29
ret ret
end pause end _pause
end pause end pause

View File

@ -1,10 +1,10 @@
pipe module pipe module
external external
_cerror cerror procedure
global global
pipe procedure _pipe procedure
entry entry
sc #42 sc #42
ld r2,r4 ld r2,r4
@ -12,5 +12,5 @@ pipe module
ldl @r7,rr4 ldl @r7,rr4
xor r2,r2 xor r2,r2
ret ret
end pipe end _pipe
end pipe end pipe

View File

@ -1,10 +1,7 @@
profil module profil module
external
_cerror
global global
profil procedure _profil procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +10,5 @@ profil module
sc #44 sc #44
xor r2,r2 xor r2,r2
ret ret
end profil end _profil
end profil end profil

View File

@ -1,14 +1,11 @@
ptrace module ptrace module
internal
_errno
word :=2
external external
_cerror cerror procedure
_errno word
global global
ptrace procedure _ptrace procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -20,5 +17,5 @@ ptrace module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end ptrace end _ptrace
end ptrace end ptrace

View File

@ -1,10 +1,10 @@
read module read module
external external
_cerror cerror procedure
global global
read procedure _read procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ read module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end read end _read
end read end read

View File

@ -1,10 +1,10 @@
setgid module setgid module
external external
_cerror cerror procedure
global global
setgid procedure _setgid procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ setgid module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end setgid end _setgid
end setgid end setgid

View File

@ -1,10 +1,10 @@
setpgrp module setpgrp module
external external
_cerror cerror procedure
global global
setpgrp procedure _setpgrp procedure
entry entry
ld r0,#%0001 ld r0,#%0001
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ setpgrp module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end setpgrp end _setpgrp
end setpgrp end setpgrp

View File

@ -1,10 +1,10 @@
setuid module setuid module
external external
_cerror cerror procedure
global global
setuid procedure _setuid procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ setuid module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end setuid end _setuid
end setuid end setuid

View File

@ -2,13 +2,13 @@ signal module
internal internal
L1 L1
WORD = 80 WORD := 80
external external
_cerror cerror procedure
global global
signal procedure _signal procedure
entry entry
ld r2,#22 ld r2,#22
ld r0,r7 ld r0,r7
@ -65,5 +65,5 @@ L7:
ldm r0,@r15,#15 ldm r0,@r15,#15
add r15,#32 add r15,#32
sc #0 sc #0
end signal end _signal
end signal end signal

View File

@ -1,10 +1,10 @@
stat module stat module
external external
_cerror cerror procedure
global global
stat procedure _stat procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ stat module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end stat end _stat
end stat end stat

View File

@ -1,10 +1,10 @@
stime module stime module
external external
_cerror cerror procedure
global global
stime procedure _stime procedure
entry entry
ldl rr0,@r7 ldl rr0,@r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ stime module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end stime end _stime
end stime end stime

View File

@ -1,9 +1,9 @@
sync module sync module
global global
sync procedure _sync procedure
entry entry
sc #36 sc #36
ret ret
end sync end _sync
end sync end sync

View File

@ -1,7 +1,7 @@
time module time module
global global
time procedure _time procedure
entry entry
sc #13 sc #13
ldl rr2,rr4 ldl rr2,rr4
@ -9,5 +9,5 @@ time module
ret z ret z
ldl @r7,rr2 ldl @r7,rr2
ret ret
end time end _time
end time end time

View File

@ -1,10 +1,10 @@
times module times module
external external
_cerror cerror procedure
global global
times procedure _times procedure
entry entry
ld r0,r7 ld r0,r7
subl rr4,rr4 subl rr4,rr4
@ -12,5 +12,5 @@ times module
ldl rr2,rr4 ldl rr2,rr4
ret nc ret nc
jp cerror jp cerror
end times end _times
end times end times

View File

@ -1,18 +1,18 @@
ulimit module ulimit module
external external
_cerror cerror procedure
global global
ulimit procedure _ulimit procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r4 ld r1,r4
ld r2,r5 ld r2,r5
ldl rr4,0 ldl rr4,#%00000000
sc #54 sc #54
ldl rr2,rr4 ldl rr2,rr4
ret nc ret nc
jp cerror jp cerror
end ulimit end _ulimit
end ulimit end ulimit

View File

@ -1,11 +1,11 @@
umask module umask module
global global
umask procedure _umask procedure
entry entry
ld r0,r7 ld r0,r7
sc #60 sc #60
ld r2,r4 ld r2,r4
ret ret
end umask end _umask
end umask end umask

View File

@ -1,10 +1,10 @@
umount module umount module
external external
_cerror cerror procedure
global global
umount procedure _umount procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ umount module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end umount end _umount
end umount end umount

View File

@ -1,10 +1,10 @@
uname module uname module
external external
_cerror cerror procedure
global global
uname procedure _uname procedure
entry entry
ld r0,r7 ld r0,r7
ld r2,#0 ld r2,#0
@ -12,5 +12,5 @@ uname module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end uname end _uname
end uname end uname

View File

@ -1,10 +1,10 @@
unlink module unlink module
external external
_cerror cerror procedure
global global
unlink procedure _unlink procedure
entry entry
ld r0,r7 ld r0,r7
xor r4,r4 xor r4,r4
@ -12,5 +12,5 @@ unlink module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end unlink end _unlink
end unlink end unlink

View File

@ -1,17 +1,17 @@
ustat module ustat module
external external
_cerror cerror procedure
global global
ustat procedure _ustat procedure
entry entry
ld r0,r7 ld r0,r6
ld r1,r7 ld r1,r7
ld r2,#2 ld r2,#2
sc #57 sc #57
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end ustat end _ustat
end ustat end ustat

View File

@ -1,10 +1,10 @@
utime module utime module
external external
_cerror cerror procedure
global global
utime procedure _utime procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ utime module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end utime end _utime
end utime end utime

View File

@ -1,10 +1,10 @@
wait module wait module
external external
_cerror cerror procedure
global global
wait procedure _wait procedure
entry entry
sc #7 sc #7
ldl rr2,rr4 ldl rr2,rr4
@ -13,5 +13,5 @@ wait module
ret z ret z
ld @r7,r3 ld @r7,r3
ret ret
end wait end _wait
end wait end wait

View File

@ -1,10 +1,10 @@
write module write module
external external
_cerror cerror procedure
global global
write procedure _write procedure
entry entry
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
@ -13,5 +13,5 @@ write module
ld r2,r4 ld r2,r4
ret nc ret nc
jp cerror jp cerror
end write end _write
end write end write