d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
keie 1985-02-07 15:58:40 +00:00
parent 9c93cbdfaa
commit 3df42a584c
38 changed files with 721 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
mach/pmds/libsys/access.s Normal file
View file

@ -0,0 +1,21 @@
.define _access
.extern _access
.text
_access:
tst.b -40(sp)
link a6,#-0
move.w 12(a6), d2
ext.l d2
move.l d2,-(sp)
move.l 8(a6),-(sp)
jsr __Saccess
add.l #8,sp
unlk a6
rts
__Saccess: trap #0
.short 0x21
bcc 1f
jmp cerror
1:
clr.l d0
rts

15
mach/pmds/libsys/alarm.s Normal file
View file

@ -0,0 +1,15 @@
.define _alarm
.extern _alarm
.text
_alarm:
tst.b -40(sp)
link a6,#-0
move.w 8(a6),-(sp)
clr.w -(sp)
jsr __Salarm
add.l #4,sp
unlk a6
rts
__Salarm: trap #0
.short 0x1B
rts

9
mach/pmds/libsys/cerror.s Normal file
View file

@ -0,0 +1,9 @@
.define cerror
.extern cerror
cerror: move.l d0,_errno
move.l #-1,d0
rts
.bss
_errno:
.space 4
.text

21
mach/pmds/libsys/chmod.s Normal file
View file

@ -0,0 +1,21 @@
.define _chmod
.extern _chmod
.text
_chmod:
tst.b -40(sp)
link a6,#-0
move.w 12(a6), d2
ext.l d2
move.l d2,-(sp)
move.l 8(a6),-(sp)
jsr __Schmod
add.l #8,sp
unlk a6
rts
__Schmod: trap #0
.short 0xF
bcc 1f
jmp cerror
1:
clr.l d0
rts

24
mach/pmds/libsys/chown.s Normal file
View file

@ -0,0 +1,24 @@
.define _chown
.extern _chown
.text
_chown:
tst.b -40(sp)
link a6,#-0
move.w 14(a6), d2
ext.l d2
move.w 12(a6), d1
ext.l d1
move.l d2,-(sp)
move.l d1,-(sp)
move.l 8(a6),-(sp)
jsr __Schown
lea 12(sp),sp
unlk a6
rts
__Schown: trap #0
.short 0x10
bcc 1f
jmp cerror
1:
clr.l d0
rts

5
mach/pmds/libsys/cleanup.s Normal file
View file

@ -0,0 +1,5 @@
.define __cleanup
.extern __cleanup
.text
__cleanup:
rts

20
mach/pmds/libsys/close.s Normal file
View file

@ -0,0 +1,20 @@
.define _close
.extern _close
.text
_close:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l d2,-(sp)
jsr __Sclose
add.l #4,sp
unlk a6
rts
__Sclose: trap #0
.short 0x6
bcc 1f
jmp cerror
1:
clr.l d0
rts

20
mach/pmds/libsys/creat.s Normal file
View file

@ -0,0 +1,20 @@
.define _creat
.extern _creat
.text
_creat:
tst.b -40(sp)
link a6,#-0
move.w 12(a6), d2
ext.l d2
move.l d2,-(sp)
move.l 8(a6),-(sp)
jsr __Screat
add.l #8,sp
unlk a6
rts
__Screat: trap #0
.short 0x8
bcc 1f
jmp cerror
1:
rts

36
mach/pmds/libsys/dup.s Normal file
View file

@ -0,0 +1,36 @@
.define _dup
.define _dup2
.extern _dup
.text
_dup:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l d2,-(sp)
jsr __Sdup
add.l #4,sp
unlk a6
rts
.extern _dup2
_dup2:
tst.b -40(sp)
link a6,#-0
move.w 10(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l d2,-(sp)
move.l d1,-(sp)
jsr __Sdup2
add.l #8,sp
unlk a6
rts
__Sdup2: or.l #64,4(sp)
__Sdup: trap #0
.short 0x29
bcc 1f
jmp cerror
1:
rts

27
mach/pmds/libsys/exec.s Normal file
View file

@ -0,0 +1,27 @@
.define _execl
.define _execve
.define _execv
.extern _execl
.extern _execve
.extern _execv
_execl: tst.b -48(sp)
link a6,#0
move.l _environ,-(sp)
pea 12(a6)
move.l 8(a6),-(sp)
jsr _execve
add.l #12,sp
unlk a6
rts
_execve: trap #0
.short 59
jmp cerror
_execv: tst.b -48(sp)
link a6,#0
move.l _environ,-(sp)
move.l 12(a6),-(sp)
move.l 8(a6),-(sp)
jsr _execve
add.l #12,sp
unlk a6
rts

12
mach/pmds/libsys/exit1.s Normal file
View file

@ -0,0 +1,12 @@
.define _exit
.extern _exit
.text
_exit:
tst.b -40(sp)
link a6,#-0
jsr __cleanup
move.w 8(a6),-(sp)
jsr __exit
add.l #2,sp
unlk a6
rts

15
mach/pmds/libsys/exit2.s Normal file
View file

@ -0,0 +1,15 @@
.define __exit
.extern __exit
.text
__exit:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l d2,-(sp)
jsr __Sexit
add.l #4,sp
unlk a6
rts
__Sexit: trap #0
.short 0x1

12
mach/pmds/libsys/fork.s Normal file
View file

@ -0,0 +1,12 @@
.define _fork
.extern _fork
_fork: trap #0
.short 0x2
bra 3f
rts
3:
bcc 2f
jmp cerror
2:
clr.l d0
rts

21
mach/pmds/libsys/fstat.s Normal file
View file

@ -0,0 +1,21 @@
.define _fstat
.extern _fstat
.text
_fstat:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l 10(a6),-(sp)
move.l d2,-(sp)
jsr __Sfstat
add.l #8,sp
unlk a6
rts
__Sfstat: trap #0
.short 0x1C
bcc 1f
jmp cerror
1:
clr.l d0
rts

12
mach/pmds/libsys/getgid.s Normal file
View file

@ -0,0 +1,12 @@
.define _getgid
.define _getegid
.extern _getgid
.extern _getegid
_getgid: trap #0
.short 0x2F
rts
_getegid: trap #0
.short 0x2F
move.l d1,d0
rts

5
mach/pmds/libsys/getpid.s Normal file
View file

@ -0,0 +1,5 @@
.define _getpid
.extern _getpid
_getpid: trap #0
.short 0x14
rts

12
mach/pmds/libsys/getuid.s Normal file
View file

@ -0,0 +1,12 @@
.define _getuid
.define _geteuid
.extern _getuid
.extern _geteuid
_getuid: trap #0
.short 0x18
rts
_geteuid: trap #0
.short 0x18
move.l d1,d0
rts

13
mach/pmds/libsys/gtty.s Normal file
View file

@ -0,0 +1,13 @@
.define _gtty
.extern _gtty
.text
_gtty:
tst.b -40(sp)
link a6,#-0
move.l 10(a6),-(sp)
move.w #29704,-(sp)
move.w 8(a6),-(sp)
jsr _ioctl
add.l #8,sp
unlk a6
rts

24
mach/pmds/libsys/ioctl.s Normal file
View file

@ -0,0 +1,24 @@
.define _ioctl
.extern _ioctl
.text
_ioctl:
tst.b -40(sp)
link a6,#-0
move.w 10(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l 12(a6),-(sp)
move.l d2,-(sp)
move.l d1,-(sp)
jsr __Sioctl
lea 12(sp),sp
unlk a6
rts
__Sioctl: trap #0
.short 0x36
bcc 1f
jmp cerror
1:
clr.l d0
rts

23
mach/pmds/libsys/kill.s Normal file
View file

@ -0,0 +1,23 @@
.define _kill
.extern _kill
.text
_kill:
tst.b -40(sp)
link a6,#-0
move.w 10(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l d2,-(sp)
move.l d1,-(sp)
jsr __Skill
add.l #8,sp
unlk a6
rts
__Skill: trap #0
.short 0x25
bcc 1f
jmp cerror
1:
clr.l d0
rts

9
mach/pmds/libsys/link.s Normal file
View file

@ -0,0 +1,9 @@
.define _link
.extern _link
_link: trap #0
.short 0x9
bcc 1f
jmp cerror
1:
clr.l d0
rts

23
mach/pmds/libsys/lseek.s Normal file
View file

@ -0,0 +1,23 @@
.define _lseek
.extern _lseek
.text
_lseek:
tst.b -40(sp)
link a6,#-0
move.w 14(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l d2,-(sp)
move.l 10(a6),-(sp)
move.l d1,-(sp)
jsr __Slseek
lea 12(sp),sp
unlk a6
rts
__Slseek: trap #0
.short 0x13
bcc 1f
jmp cerror
1:
rts

24
mach/pmds/libsys/mknod.s Normal file
View file

@ -0,0 +1,24 @@
.define _mknod
.extern _mknod
.text
_mknod:
tst.b -40(sp)
link a6,#-0
move.w 14(a6), d2
ext.l d2
move.w 12(a6), d1
ext.l d1
move.l d2,-(sp)
move.l d1,-(sp)
move.l 8(a6),-(sp)
jsr __Smknod
lea 12(sp),sp
unlk a6
rts
__Smknod: trap #0
.short 0xE
bcc 1f
jmp cerror
1:
clr.l d0
rts

22
mach/pmds/libsys/mount.s Normal file
View file

@ -0,0 +1,22 @@
.define _mount
.extern _mount
.text
_mount:
tst.b -40(sp)
link a6,#-0
move.w 16(a6), d2
ext.l d2
move.l d2,-(sp)
move.l 12(a6),-(sp)
move.l 8(a6),-(sp)
jsr __Smount
lea 12(sp),sp
unlk a6
rts
__Smount: trap #0
.short 0x15
bcc 1f
jmp cerror
1:
clr.l d0
rts

20
mach/pmds/libsys/nice.s Normal file
View file

@ -0,0 +1,20 @@
.define _nice
.extern _nice
.text
_nice:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l d2,-(sp)
jsr __Snice
add.l #4,sp
unlk a6
rts
__Snice: trap #0
.short 0x22
bcc 1f
jmp cerror
1:
clr.l d0
rts

20
mach/pmds/libsys/open.s Normal file
View file

@ -0,0 +1,20 @@
.define _open
.extern _open
.text
_open:
tst.b -40(sp)
link a6,#-0
move.w 12(a6), d2
ext.l d2
move.l d2,-(sp)
move.l 8(a6),-(sp)
jsr __Sopen
add.l #8,sp
unlk a6
rts
__Sopen: trap #0
.short 0x5
bcc 1f
jmp cerror
1:
rts

8
mach/pmds/libsys/pause.s Normal file
View file

@ -0,0 +1,8 @@
.define _pause
.extern _pause
_pause: trap #0
.short 29
bcc 1f
jmp cerror
1:
rts

12
mach/pmds/libsys/pipe.s Normal file
View file

@ -0,0 +1,12 @@
.define _pipe
.extern _pipe
_pipe: trap #0
.short 0x2A
bcc 1f
jmp cerror
1:
move.l 4(sp),a0
move.w d0,(a0)+
move.w d1,(a0)
clr.l d0
rts

23
mach/pmds/libsys/profil.s Normal file
View file

@ -0,0 +1,23 @@
.define _profil
.extern _profil
.text
_profil:
tst.b -40(sp)
link a6,#-0
move.w 16(a6), d2
ext.l d2
move.w 14(a6), d1
ext.l d1
move.w 12(a6), d0
ext.l d0
move.l d2,-(sp)
move.l d1,-(sp)
move.l d0,-(sp)
move.l 8(a6),-(sp)
jsr __Sprofil
lea 16(sp),sp
unlk a6
rts
__Sprofil: trap #0
.short 0x2C
rts

23
mach/pmds/libsys/read.s Normal file
View file

@ -0,0 +1,23 @@
.define _read
.extern _read
.text
_read:
tst.b -40(sp)
link a6,#-0
move.w 14(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l d2,-(sp)
move.l 10(a6),-(sp)
move.l d1,-(sp)
jsr __Sread
lea 12(sp),sp
unlk a6
rts
__Sread: trap #0
.short 0x3
bcc 1f
jmp cerror
1:
rts

50
mach/pmds/libsys/sbrk.s Normal file
View file

@ -0,0 +1,50 @@
.define _brk
.define _sbrk
.extern _brk
.text
_brk:
tst.b -40(sp)
link a6,#-0
move.l 8(a6),-(sp)
jsr __Sbrk
add.l #4,sp
unlk a6
rts
.extern _sbrk
_sbrk:
tst.b -40(sp)
link a6,#-0
move.w 8(a6), d2
ext.l d2
move.l d2,-(sp)
jsr __Ssbrk
add.l #4,sp
unlk a6
rts
__Ssbrk: tst.b -8(sp)
move.l 4(sp),d0
beq 1f
add.l nd,d0
move.l d0,-(sp)
clr.l -(sp)
trap #0
.short 0x11
add.l #8,sp
bcc 1f
jmp cerror
1:
move.l nd,d0
move.l 4(sp),d1
add.l d1,nd
rts
__Sbrk: trap #0
.short 0x11
bcc 1f
jmp cerror
1:
move.l 4(sp),nd
clr.l d0
rts
.data
nd: .long endbss
.text

52
mach/pmds/libsys/signal.s Normal file
View file

@ -0,0 +1,52 @@
.define _signal
.extern _signal
NSIG=32
_signal:
move.w 4(sp), d0
ext.l d0
cmp.l #NSIG,d0
bcc 1f
move.l 6(sp),d1
move.l d0,a0
add.l a0,a0
add.l a0,a0
add.l #dvect,a0
move.l (a0),a1
move.l d1,(a0)
beq 2f
btst #0,d1
bne 2f
move.l #enter,d1
2:
move.l d1,-(sp)
move.l d0,-(sp)
clr.l -(sp)
trap #0
.short 48
add.l #12,sp
bcs 3f
btst #0,d0
bne 4f
move.l a1,d0
4:
rts
1:
move.l #22,d0
3:
jmp cerror
enter:
movem.l d0/d1/a0/a1,-(sp)
move.l 16(sp),a0
move.l a0,-(sp)
add.l a0,a0
add.l a0,a0
add.l #dvect,a0
move.l (a0),a0
jsr (a0)
add.l #4,sp
movem.l (sp)+,d0/d1/a0/a1
add.l #4,sp
rtr
.bss
dvect: .space 4*NSIG

9
mach/pmds/libsys/stat.s Normal file
View file

@ -0,0 +1,9 @@
.define _stat
.extern _stat
_stat: trap #0
.short 0x12
bcc 1f
jmp cerror
1:
clr.l d0
rts

13
mach/pmds/libsys/stty.s Normal file
View file

@ -0,0 +1,13 @@
.define _stty
.extern _stty
.text
_stty:
tst.b -40(sp)
link a6,#-0
move.l 10(a6),-(sp)
move.w #29705,-(sp)
move.w 8(a6),-(sp)
jsr _ioctl
add.l #8,sp
unlk a6
rts

21
mach/pmds/libsys/time.s Normal file
View file

@ -0,0 +1,21 @@
.define _time
.define _ftime
.extern _time
_time:
trap #0
.short 0xD
tst.l 4(sp)
beq 1f
move.l 4(sp),a0
move.l d0,(a0)
1:
rts
.extern _ftime
_ftime:
trap #0
.short 0x23
bcc 1f
jmp cerror
1:
clr.l d0
rts

9
mach/pmds/libsys/unlink.s Normal file
View file

@ -0,0 +1,9 @@
.define _unlink
.extern _unlink
_unlink: trap #0
.short 0xA
bcc 1f
jmp cerror
1:
clr.l d0
rts

13
mach/pmds/libsys/wait.s Normal file
View file

@ -0,0 +1,13 @@
.define _wait
.extern _wait
_wait: trap #0
.short 0x7
bcc 1f
jmp cerror
1:
tst.l 4(sp)
beq 2f
move.l 4(sp),a0
move.w d1,(a0)
2:
rts

23
mach/pmds/libsys/write.s Normal file
View file

@ -0,0 +1,23 @@
.define _write
.extern _write
.text
_write:
tst.b -40(sp)
link a6,#-0
move.w 14(a6), d2
ext.l d2
move.w 8(a6), d1
ext.l d1
move.l d2,-(sp)
move.l 10(a6),-(sp)
move.l d1,-(sp)
jsr __Swrite
lea 12(sp),sp
unlk a6
rts
__Swrite: trap #0
.short 0x4
bcc 1f
jmp cerror
1:
rts