home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / mini.ampk / Mini-Compiler / asm / Upcase.Lib < prev   
Encoding:
Text File  |  1995-06-01  |  531 b   |  27 lines
  1.        Idnt     _UpChar
  2.        Section  _UpChar,COde
  3.        Xdef     Upcase
  4.  
  5. ; Stack : Rts.l, Char.w
  6. ; Stand : 09-Jan-94
  7. ;       1. Version erstellt
  8.  
  9. Upcase:  Move.l   (sp)+,a4     ; RTS-Adresse
  10.      Move.w      (sp),d0     ; Char
  11.      Cmp.w    #'a',D0
  12.      Blo.s      OK         ; Kein Upcase
  13.      Cmp.w    #'z',d0    
  14.      Bls.s    DoUp         ; Upcase durchführen
  15.      Cmp.w    #'ä',d0
  16.      Beq.s      DoUp
  17.      Cmp.w    #'ö',d0
  18.      beq.s       DoUp
  19.      Cmp.w      #'ü',d0
  20.      bne.s      OK
  21. DoUp     subi.w      #$20,d0    ; Upcase Durchführen
  22.      Move.w   d0,(a7)    ; und sichern
  23. OK     jmp      (a4)
  24.        End
  25.  
  26.  
  27.