cc65/libsrc/runtime/along.s

;
; Ullrich von Bassewitz, 23.11.2002
;
; CC65 runtime: Convert char in ax into a long
;

        .export         aulong, along
        .importzp       sreg

; Convert A from char to long in EAX

aulong: ldx     #0
        stx     sreg
        stx     sreg+1
        rts

along:  cmp     #$80            ; Positive?
        bcc     aulong          ; Yes, handle like unsigned type
        ldx     #$ff
        stx     sreg
        stx     sreg+1
        rts
New module git-svn-id: svn://svn.cc65.org/cc65/trunk@1602 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-23 11:19:51 +00:00			`;`
			`; Ullrich von Bassewitz, 23.11.2002`
			`;`
			`; CC65 runtime: Convert char in ax into a long`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 13:56:54 +02:00			`.export aulong, along`
			`.importzp sreg`
New module git-svn-id: svn://svn.cc65.org/cc65/trunk@1602 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-23 11:19:51 +00:00
			`; Convert A from char to long in EAX`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 13:56:54 +02:00			`aulong: ldx #0`
			`stx sreg`
			`stx sreg+1`
			`rts`
New module git-svn-id: svn://svn.cc65.org/cc65/trunk@1602 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-23 11:19:51 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 13:56:54 +02:00			`along: cmp #$80 ; Positive?`
			`bcc aulong ; Yes, handle like unsigned type`
			`ldx #$ff`
			`stx sreg`
			`stx sreg+1`
			`rts`
New module git-svn-id: svn://svn.cc65.org/cc65/trunk@1602 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-23 11:19:51 +00:00