home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / drivers / shelldc2.sda / PETASCII (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  2KB  |  61 lines
  1. PetASCII
  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 Drivers for Commodore type 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$    cmp    #$41
  35.     bcc    110$
  36.     cmp    #$7b
  37.     bcs    110$
  38.     cmp    #$60
  39.     beq    110$
  40. 100$    eor    #$20
  41.     cmp    #$7b
  42.     bcs    100$
  43. 110$    jsr    SendByte
  44.     bvc    50$
  45. @rStopTex
  46.     jsr    OpenChannel
  47.     ldx    #mEndText
  48. @ContText
  49.     jsr    SendMessage
  50. @ExitText
  51.     jsr    CloseChannel
  52.     ldx    #0
  53. HGEOS print PetASCII text file    
  54. Page: PAGE
  55. Printed on: DATE    At: TIME    File: PetASCII
  56. -----------------------
  57. HGEOS print PetASCII text file    
  58. Page: PAGE
  59. Printed on: DATE    At: TIME    File: PetASCII
  60. -----------------------------------------------------------------------------------------------
  61.