home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol147 / muchtext.a86 < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.9 KB  |  156 lines
  1. ; 
  2. ;        MUCHTEXT.A86 Version 1.0 as of March 29, 1981
  3. ; 
  4. ;                By: Kelly Smith, CP/M-Net
  5. ; 
  6. ;      I  spend a fair amount of time using Wordstar for doing 
  7. ; software  documentation,   letter  writing,  and  especially 
  8. ; magazine  articles that pay by the page...it's nice to  know 
  9. ; at times just how much stuff I have "cranked-out" during the 
  10. ; course of one of my long-winded Wordstar sessions...
  11. ; 
  12. ;      So,  just  How-MUCHTEXT did I type?  Well,  I put  this 
  13. ; together  to tell me.  Works accurately on text  files,  but 
  14. ; don't  use  it  on  non-ASCII  files  to  get  a   character 
  15. ; count, 'cause it will be wrong.
  16. ; 
  17. ;      MUCHTEXT  doesn't  care how the text was  prepared,  as 
  18. ; long  as  a  line  has a ASCII line  feed  delimeter  in  it 
  19. ; (indicating the end of a line). This seems to work very well 
  20. ; in  all cases that I have tried...Here is an example of  how 
  21. ; to use it:
  22. ; 
  23. ; A>muchtext muchtext.asm<cr>
  24. ; 
  25. ; Contains      150 lines of text
  26. ; A total,     3955 characters
  27. ; 
  28. ; A0>
  29. ; 
  30. ;      If you have any bright ideas for improvements,  I would 
  31. ; appreciate  it if you would MODEM it to the CP/M-Net  System 
  32. ; as "MUCHTEXT.NEW", to share with others.
  33. ; 
  34. ;                                        Best regards, 
  35. ; 
  36. ;                                        Kelly Smith, CP/M-Net
  37. ;
  38. ;
  39. ;
  40. bdos    EQU    05h            ; CP/M BDOS entry address
  41. fcb    EQU    5ch            ; CP/M FCB address
  42. ;
  43. wbfc    EQU    0            ; warm boot function
  44. psfc    EQU    9            ; print string
  45. offc    EQU    15            ; open file
  46. sdma    EQU    26            ; set dma address
  47. rrfc    EQU    20            ; read record
  48. ;
  49. lf    EQU    0ah            ; ASCII line feed
  50. cr    EQU    0dh            ; ASCII carriage return
  51. ;
  52. M    EQU    Byte Ptr 0[BX]
  53. ;
  54.     ORG    0100h
  55. ;
  56.     MOV    DX,fcb
  57.     MOV    CL,offc            ; open file name specified in the fcb
  58.     INT    224
  59.     INC    AL
  60.     JNZ    openok
  61.     CALL    prnexit
  62.     DB    cr,lf,lf,'+++ Can''t open file! +++$'
  63. openok:    PUSH    BX
  64.     MOV    BX,Word Ptr dmabuf    ; point to dma buffer
  65.     MOV    AL,Byte Ptr extcnt    ; get extent count
  66.     OR    AL,AL
  67.     JNS    nextrec
  68.     MOV    BX,Word Ptr dmabuf
  69.     XCHG    BX,DX
  70.     MOV    CL,sdma            ; set dma address for file
  71.     INT    224
  72.     MOV    DX,fcb
  73. readin:    MOV    CL,rrfc            ; read record
  74.     INT    224
  75.     OR    AL,AL
  76.     JNZ    ateof            ; at the end-of-file yet?
  77.     MOV    BX,Word Ptr dmabuf    ; get next record for next extent
  78.     XOR    AL,AL            ; set up next extent
  79.     JMPS    nextrec
  80. ;
  81. nextrec:INC    AL            ; update extent count
  82.     MOV    Byte Ptr extcnt,AL
  83.     DEC    AL
  84.     ADD    AL,BL            ; you put your right foot in...
  85.     MOV    BL,AL
  86.     MOV    AL,BH
  87.     ADC    AL,0
  88.     MOV    BH,AL            ; you put your right foot out...
  89.     MOV    AL,M            ; get character...and shake it all about
  90.     POP    BX
  91.     CMP    AL,'Z'-40h        ; end of file?
  92.     JZ    ateof            ; if so, finish up...
  93.     LAHF                ; save character
  94.     XCHG    AL,AH
  95.     PUSH    AX
  96.     MOV    BX,(Offset chars)    ; do range check on digits count
  97. nxtpos:    MOV    AL,M
  98.     CMP    AL,' '            ; this position occupied yet?
  99.     JNZ    nocary
  100. cary:    MOV    AL,'0'            ; make an ascii zero character
  101. nocary:    INC    AL            ; +1 to digit position
  102.     MOV    M,AL
  103.     CMP    AL,':'            ; digit >9?
  104.     JNZ    less9            ; if so, check if line feed
  105.     MOV    M,'0'            ; zero this digit
  106.     DEC    BX
  107.     JMPS    nxtpos            ; try the next position
  108. less9:    POP    AX            ; get character
  109.     XCHG    AL,AH
  110.     CMP    AL,lf            ; I walk the line...you know your mine
  111.     JZ    L_1    
  112.     JMP    openok
  113. L_1:
  114.     MOV    BX,(Offset lines)    ; point to number of lines
  115. nxtpos1:MOV    AL,M
  116.     CMP    AL,' '            ; this position occupied yet?
  117.     JNZ    nocary1
  118.     MOV    AL,'0'            ; make an ascii zero character
  119. nocary1:INC    AL
  120.     MOV    M,AL
  121.     CMP    AL,':'            ; digit >9?
  122.     JZ    L_2    
  123.     JMP    openok
  124. L_2:
  125.     MOV    M,'0'            ; zero this digit
  126.     DEC    BX
  127.     JMPS    nxtpos1            ; try the next position
  128. ;
  129. ateof:    CALL    prnexit            ; finally at the "end-of-file"...give info, and exit
  130.     DB    cr,lf
  131.     DB    'Contains '
  132.     DB    '       '
  133. lines    DB    '0 lines of text'
  134.     DB    cr,lf
  135.     DB    'A total, '
  136.     DB    '       '
  137. chars    DB    '0 characters'
  138.     DB    cr,lf,'$'
  139. ;
  140. exit:    MOV    CL,0            ; get back Loretta...
  141.     INT    224
  142. ;
  143. prnexit:POP    DX            ; get message string off the stack from "call"
  144.     MOV    CL,psfc            ; print string
  145.     INT    224
  146.     JMPS    exit            ; exit...gracefully
  147. L_3    EQU    $
  148.     DSEG
  149.     ORG    Offset L_3
  150. ;
  151. dmabuf    DW    0080h            ; default dma disk buffer pointer
  152. ;
  153. extcnt    DB    080h            ; extent count
  154. ;
  155.     END
  156.