home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / LEADZERO.ASM < prev    next >
Assembly Source File  |  1984-08-05  |  640b  |  26 lines
  1. ; Subroutine.: LEADZERO.ASM
  2. ; Author.....: Luis A. Castro
  3. ; Date.......: 1982
  4. ; Notice.....: Copyright 1982, Ashton-Tate, All Rights Reserved
  5. ; Notes......: Replace leading blanks with leading zeroes.
  6. ; 
  7. ; 
  8.     ORG    42000    ; LOAD IN dBASE FREE AREA 
  9.     SHLD    SAVEHL    ; SAVE HL REGISTERS 
  10.     MOV    B,M    ; STORE LENGTH OF STRING TO COUNTER 
  11. ; 
  12. LOOP:
  13.     INX    H    ; SKIP TO NEXT CHARACTER
  14.     MOV    A,M    ; FETCH CHARACTER
  15.     CPI    ' '    ; IS IT A SPACE?
  16.     JNZ    DONE    ; YES, DONE 
  17.     MVI    M,'0'    ; REPLACE SPACE WITH ZERO
  18.     DCR    B    ; DECREMENT COUNTER
  19.     JNZ    LOOP    ; REPEAT UNTIL DONE
  20. DONE:
  21.     LHLD    SAVEHL    ; RESTORE HL REGISTERS 
  22.     RET
  23. ; 
  24. SAVEHL    DB    0,0
  25.     END
  26.