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