home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / IsAlpha.ass < prev    next >
Encoding:
Text File  |  1980-10-26  |  262 b   |  23 lines
  1.  
  2. # IsAlpha(r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _IsAlpha
  6.  
  7. _IsAlpha:
  8.     cmpwi    r3,"A"
  9.     blt    .false
  10.     cmpwi    r3,"Z"
  11.     ble    .true
  12.     cmpwi    r3,"a"
  13.     blt    .false
  14.     cmpwi    r3,"z"
  15.     bgt    .false
  16. .true:    li    r3,-1
  17.     blr
  18. .false:    li    r3,0
  19.     blr
  20.  
  21.     .type    _IsAlpha,@function
  22.     .size    _IsAlpha,$-_IsAlpha
  23.