home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / FREQGRPH.SC0.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  102 lines
  1. ;FREQGRPH.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 LDY YCOORD
  22.   LDA LINELO,Y
  23.   STA ZP1L
  24.   LDA LINEHI,Y
  25.   STA ZP1H
  26.   LDA XCOORD,Y
  27.   TAY
  28.   DEY
  29.   LDA XDIV7,Y
  30.   TAY
  31.   LDA #$00
  32.   STA (ZP1L),Y
  33. ;
  34.   LDY YCOORD
  35.   INY
  36.   LDA LINELO,Y
  37.   STA ZP2L
  38.   LDA LINEHI,Y
  39.   STA ZP2H
  40.   LDA XCOORD,Y
  41.   DEY
  42.   STA XCOORD,Y
  43.   TAY
  44.   DEY
  45.   LDA XDIV7,Y
  46.   TAY
  47.   LDA (ZP2L),Y
  48. ;  STA POKEBYTE
  49. ;  LDY YCOORD
  50. ;  LDA XCOORD,Y
  51. ;  TAY
  52. ;  DEY
  53. ;  LDA XDIV7,Y
  54. ;  TAY
  55. ;  LDA POKEBYTE
  56.   STA (ZP1L),Y
  57. ;
  58.   INC YCOORD
  59.   LDA YCOORD
  60.   CMP #$7F
  61.   BNE MAINLOO
  62. ;
  63.   JSR SAMPLE
  64. ;
  65.   LDY FREQ
  66.   LDA OFFSET,Y
  67.   STA MASK
  68. ;
  69.   LDY #$7F
  70.   LDA LINELO,Y
  71.   STA ZP1L
  72.   LDA LINEHI,Y
  73.   STA ZP1H
  74.   LDY FREQ
  75.   DEY
  76.   LDA XDIV7,Y
  77.   TAY
  78.   LDA MASK
  79.   STA (ZP1L),Y
  80.   LDA FREQ
  81.   LDX #$7F
  82.   STA XCOORD,X
  83.   LDA $C000
  84.   BPL MAINL1
  85.   RTS   
  86. ;
  87. SAMPLE  LDA $C060
  88.   AND #$80
  89.   STA TESTJACK
  90.   LDX #$00
  91.   STX FREQ
  92. SAMPLOO  LDA $C060
  93.   AND #$80
  94.   CMP TESTJACK
  95.   BEQ NOCHG
  96.   INC FREQ
  97. NOCHG  INX
  98. GOBACK  BNE SAMPLOO
  99.   RTS
  100. ;
  101.          CHN FREQGRPH.SC1
  102.