1987-02-02 16:06:51 +00:00
|
|
|
#include "em_abs.h"
|
1990-01-11 16:00:19 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
|
|
|
|
.sect .text
|
1987-02-02 16:06:51 +00:00
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
! $Header$
|
1987-02-02 16:06:51 +00:00
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
.define hol0
|
|
|
|
|
.define .reghp
|
1990-01-22 13:58:54 +00:00
|
|
|
.define .limhp
|
1990-01-11 16:00:19 +00:00
|
|
|
.define .trppc
|
|
|
|
|
.define .trpim
|
1987-02-02 16:06:51 +00:00
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
! run time startoff
|
|
|
|
|
.data2 0
|
|
|
|
|
bispsw $0100 ! set FU(0100)
|
1987-02-02 16:06:51 +00:00
|
|
|
movl 4(sp),r0
|
|
|
|
|
clrl -4(r0)
|
|
|
|
|
movl sp,r0
|
|
|
|
|
movl (r0)+,r1
|
|
|
|
|
movl r0,r2
|
1990-01-11 16:00:19 +00:00
|
|
|
1:
|
1987-02-02 16:06:51 +00:00
|
|
|
tstl (r0)+
|
1990-01-11 16:00:19 +00:00
|
|
|
bneq 1b
|
1987-02-02 16:06:51 +00:00
|
|
|
cmpl r0,(r2)
|
1990-01-11 16:00:19 +00:00
|
|
|
blssu 2f
|
1987-02-02 16:06:51 +00:00
|
|
|
tstl -(r0)
|
1990-01-11 16:00:19 +00:00
|
|
|
2:
|
1987-02-02 16:06:51 +00:00
|
|
|
pushl r0
|
|
|
|
|
pushl r2
|
|
|
|
|
pushl r1
|
1991-03-06 14:26:16 +00:00
|
|
|
calls $3,__m_a_i_n
|
1990-01-11 16:00:19 +00:00
|
|
|
movl $Im2,ap
|
1987-02-02 16:06:51 +00:00
|
|
|
movl r0,6(ap)
|
|
|
|
|
chmk (ap)+
|
|
|
|
|
halt
|
|
|
|
|
|
1990-01-11 16:00:19 +00:00
|
|
|
.sect .data
|
|
|
|
|
Im2:
|
|
|
|
|
.data2 1
|
|
|
|
|
.data4 1
|
|
|
|
|
.data4 0
|
1990-12-03 14:14:48 +00:00
|
|
|
.data2 0
|
1987-02-02 16:06:51 +00:00
|
|
|
.reghp:
|
1990-09-28 15:35:16 +00:00
|
|
|
.data4 __end
|
1990-01-22 13:58:54 +00:00
|
|
|
.limhp:
|
1990-09-28 15:35:16 +00:00
|
|
|
.data4 __end
|
1987-02-02 16:06:51 +00:00
|
|
|
hol0:
|
|
|
|
|
.space 8
|
|
|
|
|
.trppc:
|
|
|
|
|
.space 4
|
|
|
|
|
.trpim:
|
1990-01-11 16:00:19 +00:00
|
|
|
.data4 0
|
