home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug049.ark / TRNSLT.Z80 < prev   
Encoding:
Text File  |  1984-04-29  |  391 b   |  28 lines
  1. ;SUBROUTINE TRNSLT(A,L,B,TBL)
  2. ;transliterate L characters from A to B using TBL
  3. ;TBL starts with NUL replacement character
  4.     EXT    $AT
  5.     ENTRY    TRNSLT
  6. TRNSLT:    PUSH    HL
  7.     PUSH    DE
  8.     LD    A,2
  9.     LD    HL,BA
  10.     CALL    $AT
  11.     POP    HL
  12.     POP    IX
  13.     LD    IY,(BA)
  14.     LD    B,(HL)
  15.     LD    DE,(TBL)
  16. LOOP:    LD    L,(IX)
  17.     LD    H,0
  18.     ADD    HL,DE
  19.     LD    A,(HL)
  20.     LD    (IY),A
  21.     INC    IX
  22.     INC    IY
  23.     DJNZ    LOOP
  24.     RET
  25. BA:    DS    2
  26. TBL:    DS    2
  27.     END
  28.