home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol270 / upcase.mac < prev    next >
Encoding:
Text File  |  1986-05-22  |  547 b   |  37 lines
  1.         .Z80
  2.         public upcase,lowcase
  3.         external strg
  4.  
  5. upcase: LD HL,(strg)
  6.         LD B,(HL)
  7.         INC B
  8. U1:     DEC B
  9.         JP Z,U2
  10.         INC HL
  11.         LD A,(HL)
  12.         CP 'a'
  13.         JP C,U1
  14.         CP 'z'+1
  15.         JP NC,U1
  16.         SUB 20H
  17.         LD (HL),A
  18.         JP U1
  19. U2:
  20.  
  21. lowcase:LD HL,(strg)
  22.         LD B,(HL)
  23.         INC B
  24. L1:     DEC B
  25.         JP Z,L2
  26.         INC HL
  27.         LD A,(HL)
  28.         CP 'A'
  29.         JP C,L1
  30.         CP 'Z'+1
  31.         JP NC,L1
  32.         ADD A,20H
  33.         LD (HL),A
  34.         JP L1
  35. L2:
  36.         end
  37.