1990-01-11 16:00:19 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
|
|
|
|
.sect .text
|
|
|
|
|
.define _dup
|
|
|
|
|
.define _dup2
|
|
|
|
|
dup = 41
|
1986-12-12 12:49:50 +00:00
|
|
|
|
|
|
|
|
.align 1
|
|
|
|
|
_dup:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1986-12-12 12:49:50 +00:00
|
|
|
brb 1f
|
|
|
|
|
|
|
|
|
|
.align 1
|
|
|
|
|
_dup2:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data2 0x0000
|
1986-12-12 12:49:50 +00:00
|
|
|
bisb2 $0100,4(ap)
|
|
|
|
|
1:
|
|
|
|
|
chmk $dup
|
|
|
|
|
bcc 1f
|
|
|
|
|
jmp errmon
|
|
|
|
|
1:
|
|
|
|
|
ret
|
