home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / drivers / shelldc2.sda / PCHANSERIAL7 (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  2KB  |  64 lines
  1. *#PChanSerial7
  2. PRG formatted GEOS file V1.0
  3. Star NX-10
  4. OP V2.0 or higherIN.LNK
  5. EPSON24PINGC.LNK
  6. BLASTER'S CONVERTER V2.5
  7. EP8PIN3PASS.LNK
  8. OKIMATE20G
  9. Write Image V2.0
  10. geoWrite    V2.1
  11. .Source code for interface part of Shell Printer Driver for Commodore type printers
  12.     .include    ShellZero
  13. @nPrimary
  14. @nSeconda
  15. ry    =$60+7
  16. @InitForI
  17. O    ==$c25c
  18. @DoneWith
  19. IO    ==$c25f
  20. @SetDevic
  21. e    ==$c2b0
  22. @Second
  23.     ==$ff93
  24. @CIOut
  25.     ==$ffa8
  26. @Unlisten
  27.     ==$ffae
  28. @Listen
  29.     ==$ffb1
  30.     .psect
  31. @XfaceAdd
  32. ress:
  33. @rOpenCha
  34. nnel:
  35.     lda    #4
  36.     jsr    SetDevice    ;Configure hardware for I/O.
  37.     jsr    InitForIO
  38.     lda    #0    ;Clear error indication.
  39.     sta    STATUS
  40.     lda    Primary    ;DeviceNumber
  41.     jsr    Listen
  42.     lda    Secondary    ;Get secondary address.
  43.     jmp    Second
  44. @rCloseCh
  45. annel:
  46.     jsr    Unlisten
  47.     lda    Primary    ;Get Device Number.
  48.     jsr    Listen
  49.     lda    #$e0    ;Get default secondary address.
  50.     jsr    Second
  51.     jsr    Unlisten
  52.     jmp    DoneWithIO
  53. @rSendByt
  54.     jmp    CIOut
  55. @ProgEnd
  56. HGEOS Printer Serial Bus SA=7    
  57. Page: PAGE
  58. Printed on: DATE    At: TIME    File: PChanSerial7
  59. ---------
  60. HGEOS Printer Serial Bus SA=7    
  61. Page: PAGE
  62. Printed on: DATE    At: TIME    File: PChanSerial7
  63. ----------------------------------------------------------------------------------------------
  64.