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
external
_cerror
cerror procedure
global
access procedure
_access procedure
entry
ld r0,r7
ld r1,r6
@ -13,5 +13,5 @@ access module
ld r2,r4
ret nc
jp cerror
end access
end _access
end access

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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