home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / FREQFAST.SC0 < prev    next >
Encoding:
Text File  |  2000-04-24  |  831 b   |  69 lines  |  [04] ASCII Text (0x0000)
  1. ;FREQFAST.SC0
  2. ;
  3.   ORG $6000
  4.   JMP INITPGM
  5. ;
  6. ZP1L    EQU $06
  7. ZP1H    EQU $07
  8. ZP2L    EQU $08
  9. ZP2H    EQU $09
  10. TESTJACK   DFB $00
  11. FREQ    DFB $00
  12. MASK    DFB $00
  13. POKEBYTE DFB $00
  14. ;
  15. INITPGM  LDA $C050
  16.   LDA $C053
  17.   LDA $C057
  18. MAINL1 LDA #$00
  19.   STA YCOORD
  20. ;
  21. MAINLOO JSR SAMPLE
  22.   LDY FREQ
  23.   LDA OFFSET,Y
  24.   STA MASK
  25.   LDY YCOORD
  26.   LDA LINELO,Y
  27.   STA ZP1L
  28.   LDA LINEHI,Y
  29.   STA ZP1H
  30.   LDA XCOORD,Y
  31.   TAY
  32.   DEY
  33.   LDA XDIV7,Y
  34.   TAY
  35.   LDA #$00
  36.   STA (ZP1L),Y
  37.   LDY YCOORD
  38.   LDA FREQ
  39.   STA XCOORD,Y
  40.   LDY FREQ
  41.   DEY
  42.   LDA XDIV7,Y
  43.   TAY
  44.   LDA MASK
  45.   STA (ZP1L),Y
  46.   INC YCOORD
  47.   LDA YCOORD
  48.   CMP #$7F
  49.   BNE MAINLOO
  50.   LDA $C000
  51.   BPL MAINL1
  52.   RTS
  53. ;
  54. SAMPLE  LDA $C060
  55.   AND #$80
  56.   STA TESTJACK
  57.   LDX #$00
  58.   STX FREQ
  59. SAMPLOO  LDA $C060
  60.   AND #$80
  61.   CMP TESTJACK
  62.   BEQ NOCHG
  63.   INC FREQ
  64. NOCHG  INX
  65. GOBACK  BNE SAMPLOO
  66.   RTS
  67. ;
  68.          CHN FREQGRPH.SC1
  69.