home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / SOFTTHRU.SRC.txt < prev    next >
Text File  |  2020-08-13  |  702b  |  41 lines
  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.