home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OSETOPTN.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  3.2 KB  |  159 lines
  1.  
  2. ;    FILENAME: OSETOPTN.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements these routines.
  6. ;    SetOpt1 sets input buffer size.
  7. ;    SetOpt2 sets output buffer size.
  8. ;    SetOpt3 sets the byte to end lines.
  9. ;    SetOpt4 clears all tab stops.
  10. ;    SetOpt5 sets a tab stop.
  11. ;    SetOpt6 truncates lines to a specified length.
  12. ;    SetOpt7 sets the left margin.
  13. ;    SetOpt8 deletes the left margin.
  14. ;    SetOpt9 displays a help message.
  15. ; 
  16. ;    ASSEMBLY INSTRUCTIONS:  To assemble this module use the following  
  17. ;    TASM command line.     
  18. ;  
  19. ;        TASM osetoptn
  20.  
  21. include globals.inc
  22.  
  23. _TEXT   segment
  24.  
  25.     SetOpt1 proc
  26.  
  27.     ;    Input 
  28.     ;        none
  29.     ;    Output
  30.     ;        input buffer size set
  31.     ;    Registers modified
  32.     ;        none
  33.  
  34.     call    CmdNum         ;get size
  35.     mov     InpBlk+2, cx   ;save
  36.     ret
  37.     SetOpt1 endp
  38.  
  39.     SetOpt2 proc
  40.  
  41.     ;    Input 
  42.     ;        none
  43.     ;    Output
  44.     ;        output buffer size set
  45.     ;    Registers modified
  46.     ;        none
  47.  
  48.     call    CmdNum          ;get size
  49.     mov     OutBlk+2, cx    ;save
  50.     ret
  51.     SetOpt2 endp
  52.  
  53.     SetOpt3 proc
  54.  
  55.     ;    Input 
  56.     ;        none
  57.     ;    Output
  58.     ;        input buffer size set
  59.     ;    Registers modified
  60.     ;        none
  61.  
  62.     call    CmdNum          ;get byte
  63.     mov     EOL, cl         ;save
  64.     ret
  65.     SetOpt3 endp
  66.  
  67.     SetOpt4 proc
  68.  
  69.     ;    Input 
  70.     ;        none
  71.     ;    Output
  72.     ;        all tab stops cleared
  73.     ;    Registers modified
  74.     ;        none
  75.  
  76.     call    TabClear       ;clear all stops
  77.     ret
  78.     SetOpt4 endp
  79.  
  80.     SetOpt5 proc
  81.  
  82.     ;    Input 
  83.     ;        none
  84.     ;    Output
  85.     ;        tab stop set
  86.     ;    Registers modified
  87.     ;        none
  88.  
  89.     call    CmdNum          ;get location
  90.     push    bx
  91.     mov     bx, cx
  92.     dec     bx              ;start numbering at 0
  93.     call    TabSet          ;set tab stop
  94.     pop     bx
  95.     ret
  96.     SetOpt5 endp
  97.  
  98.     SetOpt6 proc
  99.  
  100.     ;    Input 
  101.     ;        none
  102.     ;    Output
  103.     ;        lines truncated to specified length
  104.     ;    Registers modified
  105.     ;        none
  106.  
  107.     call    CmdNum          ;get length
  108.     mov     Trunc, cx       ;save
  109.     ret
  110.     SetOpt6 endp
  111.  
  112.     SetOpt7 proc
  113.  
  114.     ;    Input 
  115.     ;        none
  116.     ;    Output
  117.     ;        left margin set
  118.     ;    Registers modified
  119.     ;        none
  120.  
  121.     call    CmdNum          ;get size
  122.     mov     LeftMar, cx     ;save
  123.     ret
  124.     SetOpt7 endp
  125.  
  126.     SetOpt8 proc
  127.  
  128.     ;    Input 
  129.     ;        none
  130.     ;    Output
  131.     ;        left margin deleted
  132.     ;    Registers modified
  133.     ;        none
  134.  
  135.     call    CmdNum          ;get bytes to delete
  136.     mov     LeftDel, cx     ;save
  137.     ret
  138.     SetOpt8 endp
  139.  
  140.     SetOpt9 proc
  141.  
  142.     ;    Input 
  143.     ;        none
  144.     ;    Output
  145.     ;        left margin deleted
  146.     ;    Registers modified
  147.     ;        none
  148.  
  149.     mov     ah, 9           ;display function
  150.     lea     dx, Help        ;load help location
  151.     int     21h             ;execute
  152.     mov     ax, 4c03h       ;exit function and error code
  153.     int     21h             ;execute
  154.     SetOpt9 endp
  155.  
  156. _TEXT    ends
  157.  
  158. end
  159.