home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / drivers / shelldc2.sda / PCHANGC (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  2KB  |  68 lines
  1. PChanGC
  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 interface part of Shell Printer Driver for geoPrint Cable.
  12.     .include    ShellZero
  13. @nPrimary
  14. @nSeconda
  15. ry    =$60+5
  16. @InitForI
  17. O        ==$c25c
  18. @DoneWith
  19. IO    ==$c25f
  20. @SetDevic
  21. e    ==$c2b0
  22.     .psect
  23. @XfaceAdd
  24. ress:
  25. @rOpenCha
  26. nnel:
  27.     lda    #4
  28.     jsr    SetDevice    ;Configure hardware for I/O.
  29.     jsr    InitForIO
  30.     lda    #$c5    ;Set handshake high before making output.
  31.     sta    $dd00
  32.     lda    #$3f    ;Now set handshake for output.
  33.     sta    $dd02
  34.     ldy    #$ff    ;Set data port for output.
  35.     sty    $dd03
  36.     lda    $dd0d    ;Clear handshake received flag.
  37.     iny        ;Change y to zero and output it.
  38.     sty    $dd01
  39.     iny        ;Change y to $01
  40.     sty    $dd00
  41.     lda    #$05
  42.     sta    $dd00
  43. 10$    dex
  44.     bne    10$
  45.     lda    $dd0d
  46.     and    #$10
  47.     bne    90$    ;Branch with x=0 if handshake complete.
  48.     bne    10$
  49.     ldx    #$80        ;Set error if handshake never detected.
  50. 90$    stx    STATUS
  51. @rSendByt
  52.     sta    $dd01
  53.     lda    #$01
  54.     sta    $dd00
  55.     lda    #$05
  56.     sta    $dd00
  57. 10$    lda    $dd0d
  58.     and    #$10
  59.     beq    10$
  60. @rCloseCh
  61. annel:
  62.     jmp    DoneWithIO
  63. ProgEnd:
  64. HGEOS geoPrint Cable module    
  65. Page: PAGE
  66. Printed on: DATE    At: TIME    File: PChanGC
  67. ----------------------------------------------------------------------------------------------
  68.