home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / SOFTTHRU.SRC < prev    next >
Encoding:
Text File  |  2015-03-23  |  703 b   |  41 lines  |  [04] ASCII Text (0x0000)
  1. ; SOFT THRU
  2. ;
  3. CTRLREG  EQU $C0A8
  4. DATAREG  EQU $C0A9
  5. PTR      EQU $06
  6. ;
  7.          ORG $300
  8. BEGIN    LDA #$00
  9.          STA PTR
  10.          LDA #$20
  11.          STA PTR+1
  12.          LDA DATAREG 
  13. WAITRCRV LDA CTRLREG
  14.          AND #$01
  15.          BEQ WAITRCRV
  16.          LDA DATAREG
  17.          CMP #$F0
  18.          BCS WAITRCRV
  19.          CMP #$90
  20.          BEQ GOT90
  21. SENDIT   STA DATAREG
  22. WAITSEND LDA CTRLREG
  23.          AND #$02
  24.          BEQ WAITSEND
  25.          JMP WAITRCRV    
  26. ;
  27. GOT90    LDA CTRLREG
  28.          AND #$01
  29.          BEQ GOT90
  30.          LDA DATAREG
  31.          CMP #$43
  32.          BEQ GOT43
  33.          JMP SENDIT
  34. ;
  35. GOT43    LDA CTRLREG
  36.          AND #$01
  37.          BEQ GOT43
  38.          LDA DATAREG
  39.          LSR
  40.          JMP SENDIT
  41. ;