home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 221_01 / isalpha.asm < prev    next >
Assembly Source File  |  1979-12-31  |  640b  |  56 lines
  1. ;small-c V2.3
  2.  NAME isalpha
  3.  GLOBAL isalpha
  4. isalpha
  5.  LDB  3,S
  6.  SEX
  7.  PSHS D
  8.  LDD  #97
  9.  CMPD ,S++
  10.  BLE  *+8
  11.  LDD  #0
  12.  JMP cc2 _
  13.  LDD  #1
  14.  LDB  3,S
  15.  SEX
  16.  PSHS D
  17.  LDD  #122
  18.  CMPD ,S++
  19.  BGE  *+8
  20.  LDD  #0
  21.  JMP cc2 _
  22.  LDD  #1
  23.  LDD  #1
  24. cc2
  25.  CMPD #1
  26.  LBEQ cc3
  27.  LDB  3,S
  28.  SEX
  29.  PSHS D
  30.  LDD  #65
  31.  CMPD ,S++
  32.  BLE  *+8
  33.  LDD  #0
  34.  JMP cc4 _
  35.  LDD  #1
  36.  LDB  3,S
  37.  SEX
  38.  PSHS D
  39.  LDD  #90
  40.  CMPD ,S++
  41.  BGE  *+8
  42.  LDD  #0
  43.  JMP cc4 _
  44.  LDD  #1
  45.  LDD  #1
  46. cc4
  47.  CMPD #1
  48.  LBEQ cc3
  49.  LDD  #0
  50.  JMP cc5
  51. cc3
  52.  LDD  #1
  53. cc5
  54.  RTS
  55.  END
  56.