home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / drivers / shelldc2.sda / PRINTASCII (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  2KB  |  53 lines
  1. PrintASCII
  2. PRG formatted GEOS file V1.0
  3. Star NX-10
  4. OP V2.0 or higherHELL
  5. SHELLHEADER
  6. BLASTER'S CONVERTER V2.5
  7. PetASCII
  8. PChanGC
  9. Write Image V2.0
  10. geoWrite    V2.1
  11. .Source code for Text part of Shell Printer Driver for standard ASCII printers.
  12.     .include    ShellZero
  13.     .psect
  14. @TextAddr
  15. @rStartTe
  16.     jsr    OpenChannel
  17.     ldx    #mBeginText
  18.     bne    ContText
  19. @rPrintTe
  20.     jsr    OpenChannel
  21. 50$    ldy    #0
  22.     lda    (r0),y
  23.     beq    ExitText
  24. 60$    inc    r0
  25.     bne    70$
  26.     inc    r0+1
  27. 70$    cmp    #CR
  28.     beq    80$
  29.     cmp    #LF
  30.     bne    90$
  31. 80$    ldx    #mTextLineFeed
  32.     jsr    SendMessage
  33.     bvc    50$
  34. 90$    jsr    SendByte
  35.     bvc    50$
  36. @rStopTex
  37.     jsr    OpenChannel
  38.     ldx    #mEndText
  39. @ContText
  40.     jsr    SendMessage
  41. @ExitText
  42.     jsr    CloseChannel
  43.     ldx    #0
  44. HGEOS print ASCII text file    
  45. Page: PAGE
  46. Printed on: DATE    At: TIME    File: PrintASCII
  47. -----------------------------------------------------------------------------------------------
  48. nter Driver",0    ;Info 
  49. HGEOS print ASCII text file    
  50. Page: PAGE
  51. Printed on: DATE    At: TIME    File: PrintASCII
  52. -----------------------------------------------------------------------------------------------
  53.