home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / GETVOICE.SRC.txt < prev    next >
Text File  |  2020-08-13  |  963b  |  59 lines
  1. ; GETVOICE - PAGE 325
  2. ;
  3. VPOINT   EQU $6
  4. VDATA    EQU $1000
  5. ;
  6. HIMEM    EQU $73
  7. ;
  8. KEYBOARD EQU $C000
  9. KBSTROBE EQU $C010
  10. CASSIN   EQU $C060
  11. ;
  12.          ORG $300
  13. ;
  14.          LDA #<VDATA
  15.          STA VPOINT
  16.          LDA #>VDATA
  17.          STA VPOINT+1
  18.          LDX #8
  19. READTAPE LDY STALLNUM
  20. STALL    DEY
  21.          BNE STALL
  22.          NOP
  23.          NOP
  24.          NOP
  25.          NOP
  26.          LDA CASSIN
  27.          ROL
  28.          ROL VBYTE
  29.          DEX
  30.          BNE DELAYADJ
  31.          LDX #8
  32.          LDA KEYBOARD
  33.          BMI EXIT
  34.          LDY #0
  35.          LDA VBYTE
  36.          STA (VPOINT),Y
  37.          INC VPOINT
  38.          BNE FULLCHK
  39.          INC VPOINT+1
  40.          JMP FULLCHK1
  41. FULLCHK  NOP
  42.          NOP
  43.          BNE FULLCHK1
  44. FULLCHK1 LDA VPOINT+1
  45.          CMP HIMEM+1
  46.          BNE READTAPE
  47. EXIT     BIT KBSTROBE
  48.          RTS
  49. DELAYADJ JSR DUMMY
  50.          JSR DUMMY
  51.          JSR DUMMY
  52.          NOP
  53.          NOP
  54.          JMP READTAPE
  55. DUMMY    RTS
  56. VBYTE    DS        1
  57. STALLNUM DFB       16
  58. ;
  59.