home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TEXT / FREQGRP2.TXT < prev    next >
Encoding:
Text File  |  2000-04-23  |  3.4 KB  |  152 lines  |  [04] ASCII Text (0x0000)
  1. ;FREQGRPH.ASM
  2. ;
  3.     ORG $6000
  4.     JMP INITPGM
  5. ;
  6. ZP1L        EQU $06
  7. ZP1H        EQU $07
  8. ZP2L        EQU $09
  9. ZP2H        EQU $09
  10. TESTJACK     DFB $00
  11. FREQ        DFB $00
  12. MASK        DFB $00
  13. ;
  14. INITPGM    LDA $C050
  15.     LDA $C053
  16.     LDA $C057
  17.     LDA #$00
  18.     STA YCOORD
  19. ;
  20. MAINLOO LDY YCOORD
  21.     LDA LINELO,Y
  22.     STA ZP1L
  23.     LDA LINEHI,Y
  24.     STA ZP1H
  25.     LDA XCOORD,Y
  26.     TAY
  27.     LDA #$00
  28.     STA (ZP1L),Y
  29. ;
  30.     LDY YCOORD
  31.     INY
  32.     LDA LINELO,Y
  33.     STA ZP2L
  34.     LDA LINEHI,Y
  35.     STA ZP2H
  36.     LDA XCOORD,Y
  37.     DEY
  38.     STA XCOORD,Y
  39.     INY
  40.     TAY
  41.     LDA (ZP2L),Y
  42.     STA (ZP1L),Y
  43. ;
  44.     INC YCOORD
  45.     LDA YCOORD
  46.     CMP #$7F
  47.     BNE MAINLOO
  48. ;
  49.     JSR SAMPLE
  50. ;
  51.     LDY FREQ
  52.     LDA OFFSET,Y
  53.     STA MASK
  54. ;
  55.     LDY #$7F
  56.     LDA LINELO,Y
  57.     STA ZP1L
  58.     LDA LINEHI,Y
  59.     STA ZP1H
  60.     LDY FREQ
  61.     LDA MASK
  62.     STA (ZP1L),Y    
  63. ;
  64. SAMPLE    LDA $C060
  65.     AND #$80
  66.     STA TESTJACK
  67.     LDX #$00
  68.     STX FREQ
  69. SAMPLOO    LDA $C060
  70.     AND #$80
  71.     CMP TESTJACK
  72.     BEQ NOCHG
  73.     INC FREQ
  74.     JMP GOBACK    ; EQUALIZE PATHS
  75. NOCHG    INX
  76. GOBACK    BNE SAMPLOO
  77.     RTS
  78. ;
  79. YCOORD  DFB $00
  80. XCOORD    DFB $00,$00,$00,$00,$00,$00,$00,$00
  81.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  82.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  83.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  84.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  85.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  86.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  87.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  88.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  89.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  90.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  91.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  92.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  93.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  94.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  95.       DFB $00,$00,$00,$00,$00,$00,$00,$00
  96. ;
  97. OFFSET    DFB $01,$02,$04,$08,$10,$20,$40
  98.     DFB $01,$02,$04,$08,$10,$20,$40
  99.     DFB $01,$02,$04,$08,$10,$20,$40
  100.     DFB $01,$02,$04,$08,$10,$20,$40
  101.     DFB $01,$02,$04,$08,$10,$20,$40
  102.     DFB $01,$02,$04,$08,$10,$20,$40
  103.     DFB $01,$02,$04,$08,$10,$20,$40
  104.     DFB $01,$02,$04,$08,$10,$20,$40
  105.     DFB $01,$02,$04,$08,$10,$20,$40
  106.     DFB $01,$02,$04,$08,$10,$20,$40
  107.         DFB $01,$02,$04,$08,$10,$20,$40
  108.     DFB $01,$02,$04,$08,$10,$20,$40
  109.     DFB $01,$02,$04,$08,$10,$20,$40
  110.     DFB $01,$02,$04,$08,$10,$20,$40
  111.     DFB $01,$02,$04,$08,$10,$20,$40
  112.     DFB $01,$02,$04,$08,$10,$20,$40
  113.     DFB $01,$02,$04,$08,$10,$20,$40
  114.     DFB $01,$02,$04,$08,$10,$20,$40
  115.     DFB $01,$02,$04,$08,$10,$20,$40
  116.     DFB $01,$02,$04,$08,$10,$20,$40
  117.         DFB $01,$02,$04,$08,$10,$20,$40
  118.     DFB $01,$02,$04,$08,$10,$20,$40
  119.     DFB $01,$02,$04,$08,$10,$20,$40
  120.     DFB $01,$02,$04,$08,$10,$20,$40
  121.     DFB $01,$02,$04,$08,$10,$20,$40
  122.     DFB $01,$02,$04,$08,$10,$20,$40
  123.     DFB $01,$02,$04,$08,$10,$20,$40
  124.     DFB $01,$02,$04,$08,$10,$20,$40
  125.     DFB $01,$02,$04,$08,$10,$20,$40
  126.     DFB $01,$02,$04,$08,$10,$20,$40
  127.         DFB $01,$02,$04,$08,$10,$20,$40
  128.     DFB $01,$02,$04,$08,$10,$20,$40
  129.     DFB $01,$02,$04,$08,$10,$20,$40
  130.     DFB $01,$02,$04,$08,$10,$20,$40
  131.     DFB $01,$02,$04,$08,$10,$20,$40
  132.     DFB $01,$02,$04,$08,$10,$20,$40
  133.     DFB $01,$02,$04,$08,$10,$20,$40
  134.     DFB $01,$02,$04,$08,$10,$20,$40
  135.     DFB $01,$02,$04,$08,$10,$20,$40
  136.     DFB $01,$02,$04,$08,$10,$20,$40
  137.         DFB $01,$02,$04,$08,$10,$20,$40
  138.     DFB $01,$02,$04,$08,$10,$20,$40
  139.     DFB $01,$02,$04,$08,$10,$20,$40
  140.     DFB $01,$02,$04,$08,$10,$20,$40
  141.     DFB $01,$02,$04,$08,$10,$20,$40
  142.     DFB $01,$02,$04,$08,$10,$20,$40
  143.     DFB $01,$02,$04,$08,$10,$20,$40
  144.     DFB $01,$02,$04,$08,$10,$20,$40
  145.     DFB $01,$02,$04,$08,$10,$20,$40
  146.     DFB $01,$02,$04,$08,$10,$20,$40
  147. ;
  148. LINEHI    DFB $20, ETC
  149. ;
  150. LINELO    DFB $00, ETC
  151. ;
  152.