File: mval2bool.m64

package info (click to toggle)
fis-gtm 6.2-000-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 30,784 kB
  • ctags: 42,554
  • sloc: ansic: 358,483; asm: 4,847; csh: 4,574; sh: 2,261; awk: 200; makefile: 86; sed: 13
file content (39 lines) | stat: -rw-r--r-- 1,102 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
; ################################################################
; #                                                              #
; #      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	mval2bool "Sets condition code from mval"

;	On entry, r1 -> mval.
;	On exit, r24 = numeric value of mval

	mval$def

	$routine MVAL2BOOL, entry=MVAL2BOOL_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	r1, 16(sp)
	ldl	r24, mval$l_m1(r1)

	ldq	r26, (sp)
	ldq	r13, 8(sp)
	lda	sp, 24(sp)
	ret	r26

	$end_routine

	.end