home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol157 / cline.a86 < prev    next >
Encoding:
Text File  |  1985-03-14  |  609 b   |  35 lines

  1.     TITLE    'CLINE - SAVE COMMAND LINE IN INTERNAL BUFFER'
  2.     PUBLIC    CLINE
  3.  
  4.     CSEG
  5.  
  6. ;BX-->POINTS TO COMMAND LINE (USUALLY DS:0080H)
  7. ;EXIT WITH BX-->POINTING TO LINE IN HERE WITH NULL TERMINATOR
  8.  
  9. CLINE:    PUSH    SI
  10.     PUSH    DI
  11.     PUSH    ES
  12.     MOV    SI,DS
  13.     MOV    ES,SI
  14.     PUSH    CX
  15.     PUSHF
  16.     CLD    
  17.     MOV    CL,BYTE PTR 0 [BX]    ;COUNT OF CHARS IN LINE
  18.     MOV    CH,0
  19.     LEA    SI,1[BX]    ;GET START OF STRING
  20.     MOV    DI,OFFSET THISBFR    ;INTERNAL BUFFER
  21.     MOV    BX,DI        ;SET ADDRESS OF CLINE BUFFER
  22.     REP MOVSB        ;MOVE THE STRING TO HERE
  23.     MOV    BYTE PTR [DI],0        ;PUT TERMINATOR ON STRING
  24.     POPF
  25.     POP    CX
  26.     POP    ES
  27.     POP    DI
  28.     POP    SI
  29.     RET
  30.  
  31.     DSEG
  32.  
  33. THISBFR    RB    128        ;CLINE BUFFER
  34.     END
  35.