6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 02:30:44 +00:00
Code Issues Projects Releases Wiki Activity

New module

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1602 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-11-23 11:19:51 +00:00
parent d7d86886b6
commit 3650422769
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/runtime/Makefile
View File

@ -13,6 +13,7 @@
OBJS = add.o \
addeqsp.o \
addysp.o \
along.o \
and.o \
aslax1.o \
aslax2.o \

24
libsrc/runtime/along.s Normal file
View File

@ -0,0 +1,24 @@
;
; 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