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

   1 ;
   2 ; Ullrich von Bassewitz, 23.11.2002
   3 ; Christian Krueger, 11-Mar-2017, saved 5 bytes
   4 ;
   5 ; CC65 runtime: Convert char in ax into a long
   6 ;
   7
   8         .export         aulong, along
   9         .importzp       sreg
  10
  11 ; Convert A from char to long in EAX
  12
  13 along:  ldx     #$ff
  14         cmp     #$80            ; Positive?
  15         bcs     store           ; no, apply $FF
  16
  17 aulong: ldx     #0
  18 store:  stx     sreg
  19         stx     sreg+1
  20         rts