home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / SEQTEST.SRC < prev    next >
Encoding:
Text File  |  2015-03-23  |  437 b   |  26 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.          LDY #$00
  20.          STA (PTR),Y
  21.          INC PTR
  22.          BNE INCPTR2
  23.          INC PTR+1
  24. INCPTR2  CLV
  25.          BVC WAITRCRV
  26. ;