home *** CD-ROM | disk | FTP | other *** search
Text File | 2000-04-24 | 1.1 KB | 102 lines | [04] ASCII Text (0x0000) |
- ;FREQGRPH.SC0
- ;
- ORG $6000
- JMP INITPGM
- ;
- ZP1L EQU $06
- ZP1H EQU $07
- ZP2L EQU $08
- ZP2H EQU $09
- TESTJACK DFB $00
- FREQ DFB $00
- MASK DFB $00
- POKEBYTE DFB $00
- ;
- INITPGM LDA $C050
- LDA $C053
- LDA $C057
- MAINL1 LDA #$00
- STA YCOORD
- ;
- MAINLOO LDY YCOORD
- LDA LINELO,Y
- STA ZP1L
- LDA LINEHI,Y
- STA ZP1H
- LDA XCOORD,Y
- TAY
- DEY
- LDA XDIV7,Y
- TAY
- LDA #$00
- STA (ZP1L),Y
- ;
- LDY YCOORD
- INY
- LDA LINELO,Y
- STA ZP2L
- LDA LINEHI,Y
- STA ZP2H
- LDA XCOORD,Y
- DEY
- STA XCOORD,Y
- TAY
- DEY
- LDA XDIV7,Y
- TAY
- LDA (ZP2L),Y
- ; STA POKEBYTE
- ; LDY YCOORD
- ; LDA XCOORD,Y
- ; TAY
- ; DEY
- ; LDA XDIV7,Y
- ; TAY
- ; LDA POKEBYTE
- STA (ZP1L),Y
- ;
- INC YCOORD
- LDA YCOORD
- CMP #$7F
- BNE MAINLOO
- ;
- JSR SAMPLE
- ;
- LDY FREQ
- LDA OFFSET,Y
- STA MASK
- ;
- LDY #$7F
- LDA LINELO,Y
- STA ZP1L
- LDA LINEHI,Y
- STA ZP1H
- LDY FREQ
- DEY
- LDA XDIV7,Y
- TAY
- LDA MASK
- STA (ZP1L),Y
- LDA FREQ
- LDX #$7F
- STA XCOORD,X
- LDA $C000
- BPL MAINL1
- RTS
- ;
- SAMPLE LDA $C060
- AND #$80
- STA TESTJACK
- LDX #$00
- STX FREQ
- SAMPLOO LDA $C060
- AND #$80
- CMP TESTJACK
- BEQ NOCHG
- INC FREQ
- NOCHG INX
- GOBACK BNE SAMPLOO
- RTS
- ;
- CHN FREQGRPH.SC1
-