1990-01-11 16:00:19 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
|
|
|
|
.sect .text
|
|
|
|
|
msg = 49
|
|
|
|
|
.define _msgrcv
|
|
|
|
|
.define _msgctl
|
|
|
|
|
.define _msgsnd
|
|
|
|
|
.define _msgget
|
1987-02-02 16:06:51 +00:00
|
|
|
|
|
|
|
|
_msgsnd:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
pushl 16(ap)
|
|
|
|
|
pushl 12(ap)
|
|
|
|
|
pushl 8(ap)
|
|
|
|
|
pushl 4(ap)
|
|
|
|
|
pushl $3
|
1990-01-11 16:00:19 +00:00
|
|
|
calls $5,Isys
|
1987-02-02 16:06:51 +00:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
_msgrcv:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
pushl 20(sp)
|
|
|
|
|
pushl 16(ap)
|
|
|
|
|
pushl 12(ap)
|
|
|
|
|
pushl 8(ap)
|
|
|
|
|
pushl 4(ap)
|
|
|
|
|
pushl $2
|
1990-01-11 16:00:19 +00:00
|
|
|
calls $6,Isys1
|
1987-02-02 16:06:51 +00:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
_msgctl:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
pushl 12(ap)
|
|
|
|
|
pushl 8(ap)
|
|
|
|
|
pushl 4(ap)
|
|
|
|
|
pushl $1
|
1990-01-11 16:00:19 +00:00
|
|
|
calls $4,Isys
|
1987-02-02 16:06:51 +00:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
_msgget:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
pushl 8(ap)
|
|
|
|
|
pushl 4(ap)
|
|
|
|
|
pushl $0
|
1990-01-11 16:00:19 +00:00
|
|
|
calls $3,Isys1
|
1987-02-02 16:06:51 +00:00
|
|
|
ret
|
|
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
Isys:
|
|
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
chmk $msg
|
1990-01-11 16:00:19 +00:00
|
|
|
bcc 1f
|
1987-02-02 16:06:51 +00:00
|
|
|
jmp cerror
|
1990-01-11 16:00:19 +00:00
|
|
|
1:
|
1987-02-02 16:06:51 +00:00
|
|
|
clrl r0
|
|
|
|
|
ret
|
|
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
Isys1:
|
|
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
chmk $msg
|
1990-01-11 16:00:19 +00:00
|
|
|
bcc 1f
|
1987-02-02 16:06:51 +00:00
|
|
|
jmp cerror
|
1990-01-11 16:00:19 +00:00
|
|
|
1:
|
1987-02-02 16:06:51 +00:00
|
|
|
ret
|
