home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SOURCE / CASSTEST.SRC < prev    next >
Encoding:
Text File  |  2001-05-23  |  408 b   |  24 lines  |  [04] ASCII Text (0x0000)
  1. ;CASSETTE TESTER
  2. ;
  3.          ORG $300
  4. ;
  5.          CLV
  6. LOOP     LDA $C060
  7.          BPL STORZERO
  8.          LDA #$7F
  9.          BVC POKEIT
  10. STORZERO LDA #$00
  11. POKEIT   STA $2000 
  12.          INC POKEIT+1
  13.          BNE LOOP
  14.          INC POKEIT+2
  15.          LDA POKEIT+2
  16.          CMP #$40
  17.          BNE LOOP
  18.          LDA #$20
  19.          STA POKEIT+2
  20.          LDA $C000
  21.          BPL LOOP
  22.          LDA $C010
  23.          RTS
  24. ;