home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / _ITOBS.D < prev    next >
Text File  |  1988-07-11  |  1KB  |  42 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; _ITOBS - CONVERT INTEGER TO BINARY STRING
  5. ;
  6. ; Entry Conditions:
  7. ;    AX HOLDS THE VALUE
  8. ;    CX HOLDS THE LENGTH OF THE TARGET STRING
  9. ;    DI POINTS TO THE STRING
  10. ;
  11. ; Exit Conditions:
  12. ;    DI,AX,BX,CX,DX MODIFIED
  13. ;
  14. SUBPGM    _ITOBS
  15. BEGIN    _ITOBS
  16.     ADD    DI,CX        ; CALC THE START OF THE STRING
  17.     MOV    BYTE PTR [DI],00 ; SET THE TERMINATOR
  18.     JCXZ    @ITB35        ; EXIT IF NO COUNT
  19.     DEC    DI        ; STEP BACK TO THE 1ST VALID LOCATION
  20.     MOV    DX,01        ; LOAD THE MASK
  21.     MOV    BX,'10'        ; GET THE CHARACTER PAIR TO BE STORED
  22. ;
  23. @ITB20:
  24.     TEST    DX,AX        ; IS THIS BIT SET?
  25.     JNE    @ITB25
  26.     MOV    [DI],BL        ; NO, SAVE A '0'
  27.     JMP    SHORT @ITB30
  28. ;
  29. @ITB25:
  30.     MOV    [DI],BH        ; YES, SAVE A 1
  31. ;
  32. @ITB30:
  33.     DEC    DI        ; STEP BACK TO THE NEXT LOCATION
  34.     SHL    DX,1        ; MOVE THE MASK BIT ONE POSITION
  35.     LOOP    @ITB20        ; CONTINUE UNTIL DONE
  36. ;
  37. @ITB35:
  38.     RET            ; EXIT NOW
  39.  
  40. ENDPGM    _ITOBS
  41. ;
  42.