1990-01-11 16:00:19 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
|
|
|
|
.sect .text
|
|
|
|
|
pipe = 42
|
|
|
|
|
.define _pipe
|
1987-02-02 16:06:51 +00:00
|
|
|
|
|
|
|
|
_pipe:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1987-02-02 16:06:51 +00:00
|
|
|
chmk $pipe
|
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
|
|
|
movl 4(ap),r2
|
|
|
|
|
movl r0,(r2)+
|
|
|
|
|
movl r1,(r2)
|
|
|
|
|
clrl r0
|
|
|
|
|
ret
|
