1985-02-07 15:58:40 +00:00
|
|
|
.define _alarm
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
|
|
|
.sect .rom
|
|
|
|
.sect .data
|
|
|
|
.sect .bss
|
|
|
|
.sect .text
|
1985-02-07 15:58:40 +00:00
|
|
|
.extern _alarm
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
1985-02-07 15:58:40 +00:00
|
|
|
_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
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 0x1B
|
1985-02-07 15:58:40 +00:00
|
|
|
rts
|