git.sur5r.net Git - cc65/blob - libsrc/runtime/along.s

   1 ;
   2 ; Ullrich von Bassewitz, 23.11.2002
   3 ;
   4 ; CC65 runtime: Convert char in ax into a long
   5 ;
   6
   7         .export         aulong, along
   8         .importzp       sreg
   9
  10 ; Convert A from char to long in EAX
  11
  12 aulong: ldx     #0
  13         stx     sreg
  14         stx     sreg+1
  15         rts
  16
  17 along:  cmp     #$80            ; Positive?
  18         bcc     aulong          ; Yes, handle like unsigned type
  19         ldx     #$ff
  20         stx     sreg
  21         stx     sreg+1
  22         rts
  23
  24