40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
; ################################################################
|
|
; # #
|
|
; # Copyright 2000, 2008 Fidelity Information Services, Inc #
|
|
; # #
|
|
; # This source code contains the intellectual property #
|
|
; # of its copyright holder(s), and is made available #
|
|
; # under a license. If you do not know the terms of #
|
|
; # the license, please stop and do not read further. #
|
|
; # #
|
|
; ################################################################
|
|
|
|
.title mval2mint "Converts an mval to integer"
|
|
|
|
; On entry, r1 -> mval
|
|
; On exit, r0 = integer value
|
|
|
|
mval$def
|
|
|
|
$routine MVAL2MINT, entry=MVAL2MINT_CA, kind=null
|
|
lda sp, -24(sp)
|
|
stq r26, (sp)
|
|
stq r13, 8(sp)
|
|
mov r27, r13
|
|
.base r13, $ls
|
|
|
|
mv_force_defined r1
|
|
stq r1, 16(sp)
|
|
mv_force_num (r1)
|
|
ldq r16, 16(sp)
|
|
$call MVAL2I, args=<r16>, set_arg_info=false, nonstandard=true
|
|
|
|
ldq r26, (sp)
|
|
ldq r13, 8(sp)
|
|
lda sp, 24(sp)
|
|
ret r26
|
|
|
|
$end_routine
|
|
|
|
.end
|