mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-10-31 16:04:48 +00:00
Add embedded PLASMA sample
This commit is contained in:
dschmenk
parent
488f039494
commit
2118af149b
395
src/samplesrc/a2pwm/a2pwm.s
Executable file
395
src/samplesrc/a2pwm/a2pwm.s
Executable file
@ -0,0 +1,395 @@
|
|||||||
|
;****************************************************************
|
||||||
|
;*
|
||||||
|
;* PWM SOUND ROUTINES
|
||||||
|
;*
|
||||||
|
;****************************************************************
|
||||||
|
;*
|
||||||
|
;* PWM ZERO PAGE LOCATIONS
|
||||||
|
;*
|
||||||
|
SPEAKER = $C030
|
||||||
|
HFO = $08
|
||||||
|
LFO = $09
|
||||||
|
LFOINDEX= $0A ; IF LFOUSRH == 0
|
||||||
|
LFOUSRL = $0A
|
||||||
|
LFOUSRH = $0B
|
||||||
|
ATK = $0C
|
||||||
|
DCY = $0D
|
||||||
|
SUS = $0E
|
||||||
|
RLS = $0F
|
||||||
|
ATKINCL = $10
|
||||||
|
ATKINCH = $11
|
||||||
|
DCYINCL = $12
|
||||||
|
DCYINCH = $13
|
||||||
|
RLSINCL = $14
|
||||||
|
RLSINCH = $15
|
||||||
|
ADSRL = $16
|
||||||
|
ADSRH = $17
|
||||||
|
ADSRINCL= $18
|
||||||
|
ADSRINCH= $19
|
||||||
|
TONELEN = $1B
|
||||||
|
LPCNT = $1C
|
||||||
|
HFOCNT = $1D
|
||||||
|
LFOPOSL = $1E
|
||||||
|
LFOPOSH = $1F
|
||||||
|
LFOPTR = $00
|
||||||
|
LFOPTRL = LFOPTR
|
||||||
|
LFOPTRH = LFOPTRL+1
|
||||||
|
;*
|
||||||
|
;* PWM ENTRY POINT
|
||||||
|
;*
|
||||||
|
HILOPWM LDA LFOUSRL
|
||||||
|
LDX LFOUSRH
|
||||||
|
BNE + ; USER SUPPLIED WAVEFORM
|
||||||
|
LDX #>LFOTBL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
+ STA LFOPTRL
|
||||||
|
STX LFOPTRH
|
||||||
|
PHP
|
||||||
|
SEI
|
||||||
|
LDY #$00
|
||||||
|
STY LFOPOSL
|
||||||
|
; STY LFOPOSH
|
||||||
|
STY LPCNT
|
||||||
|
STY ADSRL
|
||||||
|
; STY ADSRH
|
||||||
|
LDA #$02
|
||||||
|
STA HFOCNT
|
||||||
|
ATTACK LDX #$0F
|
||||||
|
LDA ATK
|
||||||
|
BEQ DECAY
|
||||||
|
LDX #$00
|
||||||
|
STA TONELEN
|
||||||
|
LDA ATKINCL
|
||||||
|
STA ADSRINCL
|
||||||
|
LDA ATKINCH
|
||||||
|
STA ADSRINCH
|
||||||
|
JSR HILOSND
|
||||||
|
DECAY LDA DCY
|
||||||
|
BEQ SUSTAIN
|
||||||
|
STA TONELEN
|
||||||
|
LDA #$00 ; REVERSE ATTACK RATE
|
||||||
|
SEC
|
||||||
|
SBC DCYINCL
|
||||||
|
STA ADSRINCL
|
||||||
|
LDA #$00
|
||||||
|
SBC DCYINCH
|
||||||
|
STA ADSRINCH
|
||||||
|
JSR HILOSND
|
||||||
|
SUSTAIN LDA SUS
|
||||||
|
BEQ RELEASE
|
||||||
|
STA TONELEN
|
||||||
|
LDA #$00 ; SUSTAIN DOESN'T ALTER VOLUME
|
||||||
|
STA ADSRINCL
|
||||||
|
STA ADSRINCH
|
||||||
|
JSR HILOSND
|
||||||
|
RELEASE LDA RLS
|
||||||
|
BEQ PWMEXIT
|
||||||
|
STA TONELEN
|
||||||
|
LDA #$00 ; REVERSE RELEASE RATE
|
||||||
|
SEC
|
||||||
|
SBC RLSINCL
|
||||||
|
STA ADSRINCL
|
||||||
|
LDA #$00
|
||||||
|
SBC RLSINCH
|
||||||
|
STA ADSRINCH
|
||||||
|
JSR HILOSND
|
||||||
|
PWMEXIT PLP
|
||||||
|
RTS
|
||||||
|
PWMSND CLC ; 1, 2
|
||||||
|
LDA ADSRL ; 2, 3
|
||||||
|
ADC ADSRINCL ; 2, 3
|
||||||
|
STA TMP ; 2, 3
|
||||||
|
TXA ; 1, 2
|
||||||
|
ADC ADSRINCH ; 2, 3
|
||||||
|
DEC LPCNT ; 2, 5
|
||||||
|
;------
|
||||||
|
;12,21
|
||||||
|
|
||||||
|
BNE HILOSND ; 2, 2
|
||||||
|
AND #$0F ; 2, 2
|
||||||
|
TAX ; 1, 2
|
||||||
|
LDA TMP ; 2, 3
|
||||||
|
STA ADSRL ; 2, 3
|
||||||
|
DEC TONELEN ; 2, 5
|
||||||
|
BEQ PWMRET ; 2, 2
|
||||||
|
DEC HFOCNT ; 2, 5
|
||||||
|
BEQ SPKRON ; 2, 2
|
||||||
|
CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
NOP ; 1, 2
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;55,79
|
||||||
|
|
||||||
|
; BNE HILOSND ; , 3
|
||||||
|
HILOSND DEC HFOCNT ; 2, 5
|
||||||
|
BNE + ; 2, 2
|
||||||
|
SPKRON BIT SPEAKER ; 3, 4
|
||||||
|
SPKRPWM JMP PWM1 ; 3, 3+62
|
||||||
|
;------
|
||||||
|
;10,79
|
||||||
|
|
||||||
|
; BNE HILOSND ; , 3
|
||||||
|
; DEC HFOCNT ; , 5
|
||||||
|
; BNE + ; , 3
|
||||||
|
+ BNE ++ ; 2, 3
|
||||||
|
++ NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
NOP ; 1, 2
|
||||||
|
CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;44,79
|
||||||
|
PWMRET RTS
|
||||||
|
;*
|
||||||
|
;* 4 BIT x 4 BIT TO 3.5 BIT MULTIPLY TABLE
|
||||||
|
;*
|
||||||
|
!ALIGN 255,0
|
||||||
|
MUL4X4 !BYTE $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
||||||
|
!BYTE $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
||||||
|
!BYTE $00, $00, $00, $00, $00, $00, $00, $00, $20, $20, $20, $20, $20, $20, $20, $20
|
||||||
|
!BYTE $00, $00, $00, $00, $00, $00, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20
|
||||||
|
!BYTE $00, $00, $00, $00, $20, $20, $20, $20, $20, $20, $20, $20, $40, $40, $40, $40
|
||||||
|
!BYTE $00, $00, $00, $00, $20, $20, $20, $20, $20, $20, $40, $40, $40, $40, $40, $40
|
||||||
|
!BYTE $00, $00, $00, $20, $20, $20, $20, $20, $40, $40, $40, $40, $40, $40, $60, $60
|
||||||
|
!BYTE $00, $00, $00, $20, $20, $20, $20, $40, $40, $40, $40, $40, $60, $60, $60, $60
|
||||||
|
!BYTE $00, $00, $20, $20, $20, $20, $40, $40, $40, $40, $60, $60, $60, $60, $80, $80
|
||||||
|
!BYTE $00, $00, $20, $20, $20, $20, $40, $40, $40, $60, $60, $60, $60, $80, $80, $80
|
||||||
|
!BYTE $00, $00, $20, $20, $20, $40, $40, $40, $60, $60, $60, $60, $80, $80, $80, $A0
|
||||||
|
!BYTE $00, $00, $20, $20, $20, $40, $40, $40, $60, $60, $60, $80, $80, $80, $A0, $A0
|
||||||
|
!BYTE $00, $00, $20, $20, $40, $40, $40, $60, $60, $60, $80, $80, $A0, $A0, $A0, $C0
|
||||||
|
!BYTE $00, $00, $20, $20, $40, $40, $40, $60, $60, $80, $80, $80, $A0, $A0, $C0, $C0
|
||||||
|
!BYTE $00, $00, $20, $20, $40, $40, $60, $60, $80, $80, $80, $A0, $A0, $C0, $C0, $E0
|
||||||
|
!BYTE $00, $00, $20, $20, $40, $40, $60, $60, $80, $80, $A0, $A0, $C0, $C0, $E0, $E0
|
||||||
|
LFOTBL !SOURCE "lfotbl.s"
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM1 BIT SPEAKER ; 3, 4
|
||||||
|
CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM2 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,62
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM3 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM4 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM5 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM6 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM7 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
|
!ALIGN 63,0
|
||||||
|
PWM8 CLC ; 1, 2
|
||||||
|
LDA LFOPOSL ; 2, 3
|
||||||
|
ADC LFO ; 2, 3
|
||||||
|
STA LFOPOSL ; 2, 3
|
||||||
|
TYA ; 1, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
AND #$1F ; 2, 2
|
||||||
|
TAY ; 1, 2
|
||||||
|
TXA ; 1, 2
|
||||||
|
ORA (LFOPTR),Y ; 2, 5
|
||||||
|
STA *+4 ; 3, 4
|
||||||
|
LDA MUL4X4 ; 3, 4
|
||||||
|
ASL ; 1, 2
|
||||||
|
STA SPKRPWM+1 ; 3, 4
|
||||||
|
LDA #>PWM1 ; 2, 2
|
||||||
|
ADC #$00 ; 2, 2
|
||||||
|
STA SPKRPWM+2 ; 3, 4
|
||||||
|
LDA HFO ; 2, 3
|
||||||
|
STA HFOCNT ; 2, 3
|
||||||
|
BIT SPEAKER ; 3, 4
|
||||||
|
JMP PWMSND ; 3, 3
|
||||||
|
;------
|
||||||
|
;43,61
|
||||||
267
src/samplesrc/a2pwm/hilopwm.pla
Executable file
267
src/samplesrc/a2pwm/hilopwm.pla
Executable file
@ -0,0 +1,267 @@
|
|||||||
|
const inbuff = $200
|
||||||
|
const freemem = $0002
|
||||||
|
const FALSE = 0
|
||||||
|
const TRUE = !FALSE
|
||||||
|
//
|
||||||
|
// System variables.
|
||||||
|
//
|
||||||
|
word heap
|
||||||
|
//
|
||||||
|
// Periods of scale in second octave
|
||||||
|
//
|
||||||
|
byte scale[] = 166, 156, 148, 139, 132, 124, 117, 111, 104, 99, 93, 88, 83, 78
|
||||||
|
//
|
||||||
|
// Key mapping to note
|
||||||
|
//
|
||||||
|
byte keytone[] = 'A','S','E','D','R','F','G','Y','H','U','J','I','K','L'
|
||||||
|
//
|
||||||
|
// Which octave are we in
|
||||||
|
//
|
||||||
|
byte octave = 1
|
||||||
|
//
|
||||||
|
// FLO period and waveform
|
||||||
|
//
|
||||||
|
byte LFO, LFOmap
|
||||||
|
//
|
||||||
|
// Note duration
|
||||||
|
//
|
||||||
|
byte duration = 22
|
||||||
|
//
|
||||||
|
// Envelope parameters
|
||||||
|
//
|
||||||
|
byte atkLen = 2
|
||||||
|
byte dcyLen = 0
|
||||||
|
byte susLen = 4
|
||||||
|
byte relLen = 16
|
||||||
|
word atkRate = $07FF
|
||||||
|
word dcyRate = $0000
|
||||||
|
word relRate = $00FF
|
||||||
|
//
|
||||||
|
// Import utility routines
|
||||||
|
//
|
||||||
|
include "util.pla"
|
||||||
|
//
|
||||||
|
// Clear viewport to white
|
||||||
|
//
|
||||||
|
def clearWin
|
||||||
|
byte i, j
|
||||||
|
inverse
|
||||||
|
home
|
||||||
|
for j = 0 to 3
|
||||||
|
for i = 0 to 39; putc(' '); next
|
||||||
|
next
|
||||||
|
return gotoxy(0,0)
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Display LFO bar
|
||||||
|
//
|
||||||
|
def showLFO
|
||||||
|
byte LFObar
|
||||||
|
|
||||||
|
LFObar = (LFO+7)/8
|
||||||
|
grcolor(WHITE)
|
||||||
|
rect(34, 39, 6, 39, FALSE)
|
||||||
|
if LFObar < 32
|
||||||
|
grcolor(ORANGE)
|
||||||
|
rect(35, 38, 7, 38-LFObar, TRUE)
|
||||||
|
fin
|
||||||
|
if LFObar
|
||||||
|
grcolor(DRKBLU)
|
||||||
|
rect(35, 38, 39-LFObar, 38, TRUE)
|
||||||
|
fin
|
||||||
|
putsxy(36, 0, " ")
|
||||||
|
gotoxy(36, 0)
|
||||||
|
puti(LFO)
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Display LFO waveform
|
||||||
|
//
|
||||||
|
def showWaveform
|
||||||
|
byte i, mapBar
|
||||||
|
word mapPtr
|
||||||
|
//
|
||||||
|
// Get pointer to LFO waveform by calling PWM with zero note
|
||||||
|
//
|
||||||
|
envelope(0, 0, 0, 0, atkRate, dcyRate, relRate)
|
||||||
|
hilopwm(0, LFO, LFOmap)
|
||||||
|
mapPtr = *0 // Pointer at address 0
|
||||||
|
grcolor(WHITE)
|
||||||
|
rect(0, 33, 6, 39, FALSE)
|
||||||
|
for i = 0 to 31
|
||||||
|
mapBar = ^(mapPtr + i) >> 3
|
||||||
|
grcolor(BLACK)
|
||||||
|
vlin(7, 38-mapBar, i + 1)
|
||||||
|
grcolor(MAGENTA)
|
||||||
|
vlin(38 - mapBar, 38, i + 1)
|
||||||
|
grcolor(PURPLE)
|
||||||
|
vlin(37-mapBar, 38-mapBar, i + 1)
|
||||||
|
next
|
||||||
|
//
|
||||||
|
// Restore envelope
|
||||||
|
//
|
||||||
|
envelope(atkLen, dcyLen, susLen, relLen, atkRate, dcyRate, relRate)
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Display duration
|
||||||
|
//
|
||||||
|
def showDuration
|
||||||
|
byte left, right
|
||||||
|
|
||||||
|
if duration == 40
|
||||||
|
left = 0
|
||||||
|
right = 39
|
||||||
|
else
|
||||||
|
left = 19-duration/2
|
||||||
|
right = left + duration
|
||||||
|
fin
|
||||||
|
grcolor(BLACK)
|
||||||
|
if left > 0
|
||||||
|
rect(0, left-1, 0, 5, TRUE)
|
||||||
|
fin
|
||||||
|
if right < 39
|
||||||
|
rect(right+1, 39, 0, 5, TRUE)
|
||||||
|
fin
|
||||||
|
grcolor(AQUA)
|
||||||
|
rect(left, right, 0, 5, TRUE)
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Display octave
|
||||||
|
//
|
||||||
|
def showOctave
|
||||||
|
inverse
|
||||||
|
putsxy(0, 1, "----------------------------------------")
|
||||||
|
normal
|
||||||
|
putsxy(octave*10, 1, "----------")
|
||||||
|
inverse
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Recalc envelope parameters
|
||||||
|
//
|
||||||
|
def recalcEnv
|
||||||
|
atkLen = duration/8
|
||||||
|
relLen = duration/2
|
||||||
|
susLen = duration - atkLen - relLen
|
||||||
|
atkRate = $0FFF/atkLen
|
||||||
|
relRate = $0FFF/relLen
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Main loop
|
||||||
|
//
|
||||||
|
def main
|
||||||
|
byte quit, key, i
|
||||||
|
|
||||||
|
|
||||||
|
envelope(atkLen, dcyLen, susLen, relLen, atkRate, dcyRate, relRate)
|
||||||
|
quit = FALSE
|
||||||
|
repeat
|
||||||
|
if keypressed
|
||||||
|
key = toupper(getc)
|
||||||
|
when key
|
||||||
|
is $1B // ESC
|
||||||
|
quit = TRUE
|
||||||
|
break
|
||||||
|
is $15 // ->
|
||||||
|
if octave < 3
|
||||||
|
octave++
|
||||||
|
showOctave
|
||||||
|
fin
|
||||||
|
break
|
||||||
|
is $08 // <-
|
||||||
|
if octave > 0
|
||||||
|
octave--
|
||||||
|
showOctave
|
||||||
|
fin
|
||||||
|
break
|
||||||
|
is '1'
|
||||||
|
is '2'
|
||||||
|
is '3'
|
||||||
|
is '4'
|
||||||
|
is '5'
|
||||||
|
is '6'
|
||||||
|
is '7'
|
||||||
|
is '8'
|
||||||
|
LFOmap = key - '1'
|
||||||
|
showWaveform
|
||||||
|
break
|
||||||
|
is '<'
|
||||||
|
is ','
|
||||||
|
LFO--
|
||||||
|
showLFO
|
||||||
|
break
|
||||||
|
is '>'
|
||||||
|
is '.'
|
||||||
|
LFO++
|
||||||
|
showLFO
|
||||||
|
break
|
||||||
|
is '+'
|
||||||
|
is $0B // UP
|
||||||
|
if duration < 40
|
||||||
|
duration++
|
||||||
|
recalcEnv
|
||||||
|
envelope(atkLen, dcyLen, susLen, relLen, atkRate, dcyRate, relRate)
|
||||||
|
showDuration
|
||||||
|
fin
|
||||||
|
break
|
||||||
|
is '-'
|
||||||
|
is $0A // DOWN
|
||||||
|
if duration > 2
|
||||||
|
duration--
|
||||||
|
recalcEnv
|
||||||
|
envelope(atkLen, dcyLen, susLen, relLen, atkRate, dcyRate, relRate)
|
||||||
|
showDuration
|
||||||
|
fin
|
||||||
|
break
|
||||||
|
otherwise
|
||||||
|
for i = 0 to 13
|
||||||
|
if keytone[i] == key
|
||||||
|
if LFO == 0
|
||||||
|
hilopwm(scale[i]>>octave, LFO, 0)
|
||||||
|
else
|
||||||
|
hilopwm(scale[i]>>octave, LFO, LFOmap)
|
||||||
|
fin
|
||||||
|
break
|
||||||
|
fin
|
||||||
|
next
|
||||||
|
wend
|
||||||
|
fin
|
||||||
|
//LFO = pdl(0)
|
||||||
|
until quit
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Get heap start.
|
||||||
|
//
|
||||||
|
heap = *freemem
|
||||||
|
call($FDED, $8D, 0, 0, 0)
|
||||||
|
call($FDED, $91, 0, 0, 0)// CTRL-Q = turn off 80 column
|
||||||
|
call($FDED, $8D, 0, 0, 0)
|
||||||
|
^$C000 = 0 // Turn off 80STORE
|
||||||
|
grmode
|
||||||
|
clearview
|
||||||
|
showDuration
|
||||||
|
showWaveform
|
||||||
|
showLFO
|
||||||
|
putsxy(8, 0, "OSCILLATION OVERTHRUSTER")
|
||||||
|
normal
|
||||||
|
putsxy(2, 0, "1..8")
|
||||||
|
gotoxy(34, 0); putc('<')
|
||||||
|
gotoxy(39, 0); putc('>')
|
||||||
|
gotoxy(6, 3); putc('-')
|
||||||
|
gotoxy(32, 3); putc('+')
|
||||||
|
inverse
|
||||||
|
showOctave
|
||||||
|
normal
|
||||||
|
putsxy(0, 2, "<-")
|
||||||
|
putsxy(38, 2, "->")
|
||||||
|
inverse
|
||||||
|
putsxy(11, 3, "A S D F G H J K L")
|
||||||
|
normal
|
||||||
|
gotoxy(14, 2); putc('E')
|
||||||
|
gotoxy(16, 2); putc('R')
|
||||||
|
gotoxy(20, 2); putc('Y')
|
||||||
|
gotoxy(22, 2); putc('U')
|
||||||
|
gotoxy(24, 2); putc('I')
|
||||||
|
inverse
|
||||||
|
main
|
||||||
|
normal
|
||||||
|
textmode
|
||||||
|
done
|
||||||
BIN
src/samplesrc/a2pwm/lfo.po
Executable file
BIN
src/samplesrc/a2pwm/lfo.po
Executable file
Binary file not shown.
32
src/samplesrc/a2pwm/lfotbl.s
Executable file
32
src/samplesrc/a2pwm/lfotbl.s
Executable file
@ -0,0 +1,32 @@
|
|||||||
|
LFODWN !BYTE $F0 , $F0 , $E0 , $E0 , $D0 , $D0 , $C0 , $C0
|
||||||
|
!BYTE $B0 , $B0 , $A0 , $A0 , $90 , $90 , $80 , $80
|
||||||
|
!BYTE $70 , $70 , $60 , $60 , $50 , $50 , $40 , $40
|
||||||
|
!BYTE $30 , $30 , $20 , $20 , $10 , $10 , $00 , $00
|
||||||
|
LFOUP !BYTE $00 , $00 , $10 , $10 , $20 , $20 , $30 , $30
|
||||||
|
!BYTE $40 , $40 , $50 , $50 , $60 , $60 , $70 , $70
|
||||||
|
!BYTE $80 , $80 , $90 , $90 , $A0 , $A0 , $B0 , $B0
|
||||||
|
!BYTE $C0 , $C0 , $D0 , $D0 , $E0 , $E0 , $F0 , $F0
|
||||||
|
LFOREXP !BYTE $F0 , $D0 , $C0 , $B0 , $A0 , $90 , $90 , $80
|
||||||
|
!BYTE $70 , $60 , $60 , $50 , $50 , $40 , $40 , $40
|
||||||
|
!BYTE $30 , $30 , $30 , $20 , $20 , $20 , $20 , $10
|
||||||
|
!BYTE $10 , $10 , $10 , $10 , $10 , $00 , $00 , $00
|
||||||
|
LFOEXP !BYTE $00 , $00 , $00 , $10 , $10 , $10 , $10 , $10
|
||||||
|
!BYTE $10 , $20 , $20 , $20 , $20 , $30 , $30 , $30
|
||||||
|
!BYTE $40 , $40 , $40 , $50 , $50 , $60 , $60 , $70
|
||||||
|
!BYTE $80 , $90 , $90 , $A0 , $B0 , $C0 , $D0 , $F0
|
||||||
|
LFSAW !BYTE $00 , $10 , $20 , $30 , $40 , $50 , $60 , $70
|
||||||
|
!BYTE $80 , $90 , $A0 , $B0 , $C0 , $D0 , $E0 , $F0
|
||||||
|
!BYTE $F0 , $E0 , $D0 , $C0 , $B0 , $A0 , $90 , $80
|
||||||
|
!BYTE $70 , $60 , $50 , $40 , $30 , $20 , $10 , $00
|
||||||
|
LFOCOS !BYTE $00 , $10 , $10 , $20 , $30 , $40 , $50 , $60
|
||||||
|
!BYTE $80 , $90 , $B0 , $C0 , $D0 , $E0 , $F0 , $F0
|
||||||
|
!BYTE $F0 , $F0 , $F0 , $E0 , $D0 , $C0 , $B0 , $90
|
||||||
|
!BYTE $80 , $60 , $50 , $40 , $30 , $20 , $10 , $10
|
||||||
|
LFOSIN !BYTE $00 , $20 , $30 , $50 , $60 , $80 , $90 , $A0
|
||||||
|
!BYTE $B0 , $C0 , $D0 , $E0 , $E0 , $F0 , $F0 , $F0
|
||||||
|
!BYTE $F0 , $F0 , $F0 , $F0 , $E0 , $E0 , $D0 , $C0
|
||||||
|
!BYTE $B0 , $A0 , $90 , $80 , $60 , $50 , $30 , $20
|
||||||
|
LFOOCOS !BYTE $F0 , $F0 , $F0 , $E0 , $E0 , $E0 , $D0 , $C0
|
||||||
|
!BYTE $C0 , $B0 , $A0 , $90 , $90 , $90 , $80 , $80
|
||||||
|
!BYTE $80 , $80 , $80 , $90 , $90 , $90 , $A0 , $B0
|
||||||
|
!BYTE $C0 , $C0 , $D0 , $E0 , $E0 , $E0 , $F0 , $F0
|
||||||
28
src/samplesrc/a2pwm/makefile
Executable file
28
src/samplesrc/a2pwm/makefile
Executable file
@ -0,0 +1,28 @@
|
|||||||
|
.SUFFIXES =
|
||||||
|
AFLAGS = -o $@
|
||||||
|
HILOPWM = hilopwm.bin
|
||||||
|
PLASM = ../../plasm
|
||||||
|
#
|
||||||
|
# Image filetypes for Virtual ][
|
||||||
|
#
|
||||||
|
PLATYPE = .\$$ED
|
||||||
|
BINTYPE = .BIN
|
||||||
|
SYSTYPE = .SYS
|
||||||
|
TXTTYPE = .TXT
|
||||||
|
#
|
||||||
|
# Image filetypes for CiderPress
|
||||||
|
#
|
||||||
|
#RELTYPE = \#FE1000
|
||||||
|
#INTERPTYPE = \#050000
|
||||||
|
#BINTYPE = \#060000
|
||||||
|
#SYSTYPE = \#FF2000
|
||||||
|
#TXTTYPE = \#040000
|
||||||
|
|
||||||
|
all: $(HILOPWM)
|
||||||
|
|
||||||
|
clean:
|
||||||
|
-rm *.o *~ *.a *.bin
|
||||||
|
|
||||||
|
$(HILOPWM): a2pwm.s util.pla hilopwm.pla pwmvm.s $(PLASM)
|
||||||
|
./$(PLASM) -A < hilopwm.pla > hilopwm.a
|
||||||
|
acme -o $(HILOPWM) pwmvm.s
|
||||||
1007
src/samplesrc/a2pwm/pwmvm.s
Executable file
1007
src/samplesrc/a2pwm/pwmvm.s
Executable file
File diff suppressed because it is too large
Load Diff
404
src/samplesrc/a2pwm/util.pla
Normal file
404
src/samplesrc/a2pwm/util.pla
Normal file
@ -0,0 +1,404 @@
|
|||||||
|
//
|
||||||
|
// Colors
|
||||||
|
//
|
||||||
|
const BLACK = 0
|
||||||
|
const MAGENTA = 1
|
||||||
|
const DRKBLU = 2
|
||||||
|
const PURPLE = 3
|
||||||
|
const DRKGRN = 4
|
||||||
|
const GREY = 5
|
||||||
|
const MEDBLU = 6
|
||||||
|
const LGTBLU = 7
|
||||||
|
const BROWN = 8
|
||||||
|
const ORANGE = 9
|
||||||
|
const GRAY = 10
|
||||||
|
const PINK = 11
|
||||||
|
const LGTGRN = 12
|
||||||
|
const YELLOW = 13
|
||||||
|
const AQUA = 14
|
||||||
|
const WHITE = 15
|
||||||
|
|
||||||
|
word txt1scrn[] = $0400,$0480,$0500,$0580,$0600,$0680,$0700,$0780
|
||||||
|
word = $0428,$04A8,$0528,$05A8,$0628,$06A8,$0728,$07A8
|
||||||
|
word = $0450,$04D0,$0550,$05D0,$0650,$06D0,$0750,$07D0
|
||||||
|
//
|
||||||
|
// CALL 6502 ROUTINE
|
||||||
|
// CALL(ADDR, AREG, XREG, YREG, STATUS)
|
||||||
|
//
|
||||||
|
asm call
|
||||||
|
PHP
|
||||||
|
LDA ESTKL+4,X
|
||||||
|
STA CALL6502+1
|
||||||
|
LDA ESTKH+4,X
|
||||||
|
STA CALL6502+2
|
||||||
|
LDA ESTKL,X
|
||||||
|
PHA
|
||||||
|
LDA ESTKL+1,X
|
||||||
|
TAY
|
||||||
|
LDA ESTKL+3,X
|
||||||
|
PHA
|
||||||
|
LDA ESTKL+2,X
|
||||||
|
INX
|
||||||
|
INX
|
||||||
|
INX
|
||||||
|
INX
|
||||||
|
STX ESP
|
||||||
|
TAX
|
||||||
|
PLA
|
||||||
|
PLP
|
||||||
|
CALL6502 JSR $FFFF
|
||||||
|
PHP
|
||||||
|
STA REGVALS+0
|
||||||
|
STX REGVALS+1
|
||||||
|
STY REGVALS+2
|
||||||
|
PLA
|
||||||
|
STA REGVALS+3
|
||||||
|
LDX ESP
|
||||||
|
LDA #<REGVALS
|
||||||
|
LDY #>REGVALS
|
||||||
|
STA ESTKL,X
|
||||||
|
STY ESTKH,X
|
||||||
|
PLP
|
||||||
|
RTS
|
||||||
|
REGVALS !FILL 4
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// SET MEMORY TO VALUE
|
||||||
|
// MEMSET(ADDR, VALUE, SIZE)
|
||||||
|
// With optimizations from Peter Ferrie
|
||||||
|
//
|
||||||
|
asm memset
|
||||||
|
LDA ESTKL+2,X
|
||||||
|
STA DSTL
|
||||||
|
LDA ESTKH+2,X
|
||||||
|
STA DSTH
|
||||||
|
LDY ESTKL,X
|
||||||
|
BEQ +
|
||||||
|
INC ESTKH,X
|
||||||
|
LDY #$00
|
||||||
|
+ LDA ESTKH,X
|
||||||
|
BEQ SETMEX
|
||||||
|
SETMLPL CLC
|
||||||
|
LDA ESTKL+1,X
|
||||||
|
SETMLPH STA (DST),Y
|
||||||
|
DEC ESTKL,X
|
||||||
|
BEQ ++
|
||||||
|
- INY
|
||||||
|
BEQ +
|
||||||
|
-- BCS SETMLPL
|
||||||
|
SEC
|
||||||
|
LDA ESTKH+1,X
|
||||||
|
BCS SETMLPH
|
||||||
|
+ INC DSTH
|
||||||
|
BNE --
|
||||||
|
++ DEC ESTKH,X
|
||||||
|
BNE -
|
||||||
|
SETMEX INX
|
||||||
|
INX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// COPY MEMORY
|
||||||
|
// MEMCPY(DSTADDR, SRCADDR, SIZE)
|
||||||
|
//
|
||||||
|
asm memcpy
|
||||||
|
INX
|
||||||
|
INX
|
||||||
|
LDA ESTKL-2,X
|
||||||
|
ORA ESTKH-2,X
|
||||||
|
BEQ CPYMEX
|
||||||
|
LDA ESTKL-1,X
|
||||||
|
CMP ESTKL,X
|
||||||
|
LDA ESTKH-1,X
|
||||||
|
SBC ESTKH,X
|
||||||
|
BCC REVCPY
|
||||||
|
;
|
||||||
|
; FORWARD COPY
|
||||||
|
;
|
||||||
|
LDA ESTKL,X
|
||||||
|
STA DSTL
|
||||||
|
LDA ESTKH,X
|
||||||
|
STA DSTH
|
||||||
|
LDA ESTKL-1,X
|
||||||
|
STA SRCL
|
||||||
|
LDA ESTKH-1,X
|
||||||
|
STA SRCH
|
||||||
|
LDY ESTKL-2,X
|
||||||
|
BEQ FORCPYLP
|
||||||
|
INC ESTKH-2,X
|
||||||
|
LDY #$00
|
||||||
|
FORCPYLP LDA (SRC),Y
|
||||||
|
STA (DST),Y
|
||||||
|
INY
|
||||||
|
BNE +
|
||||||
|
INC DSTH
|
||||||
|
INC SRCH
|
||||||
|
+ DEC ESTKL-2,X
|
||||||
|
BNE FORCPYLP
|
||||||
|
DEC ESTKH-2,X
|
||||||
|
BNE FORCPYLP
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; REVERSE COPY
|
||||||
|
;
|
||||||
|
REVCPY ;CLC
|
||||||
|
LDA ESTKL-2,X
|
||||||
|
ADC ESTKL,X
|
||||||
|
STA DSTL
|
||||||
|
LDA ESTKH-2,X
|
||||||
|
ADC ESTKH,X
|
||||||
|
STA DSTH
|
||||||
|
CLC
|
||||||
|
LDA ESTKL-2,X
|
||||||
|
ADC ESTKL-1,X
|
||||||
|
STA SRCL
|
||||||
|
LDA ESTKH-2,X
|
||||||
|
ADC ESTKH-1,X
|
||||||
|
STA SRCH
|
||||||
|
DEC DSTH
|
||||||
|
DEC SRCH
|
||||||
|
LDY #$FF
|
||||||
|
LDA ESTKL-2,X
|
||||||
|
BEQ REVCPYLP
|
||||||
|
INC ESTKH-2,X
|
||||||
|
REVCPYLP LDA (SRC),Y
|
||||||
|
STA (DST),Y
|
||||||
|
DEY
|
||||||
|
CPY #$FF
|
||||||
|
BNE +
|
||||||
|
DEC DSTH
|
||||||
|
DEC SRCH
|
||||||
|
+ DEC ESTKL-2,X
|
||||||
|
BNE REVCPYLP
|
||||||
|
DEC ESTKH-2,X
|
||||||
|
BNE REVCPYLP
|
||||||
|
CPYMEX RTS
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Unsigned word comparisons.
|
||||||
|
//
|
||||||
|
asm uword_isge
|
||||||
|
LDA ESTKL+1,X
|
||||||
|
CMP ESTKL,X
|
||||||
|
LDA ESTKH+1,X
|
||||||
|
SBC ESTKH,X
|
||||||
|
LDA #$FF
|
||||||
|
ADC #$00
|
||||||
|
EOR #$FF
|
||||||
|
STA ESTKL+1,X
|
||||||
|
STA ESTKH+1,X
|
||||||
|
INX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
asm uword_isle
|
||||||
|
LDA ESTKL,X
|
||||||
|
CMP ESTKL+1,X
|
||||||
|
LDA ESTKH,X
|
||||||
|
SBC ESTKH+1,X
|
||||||
|
LDA #$FF
|
||||||
|
ADC #$00
|
||||||
|
EOR #$FF
|
||||||
|
STA ESTKL+1,X
|
||||||
|
STA ESTKH+1,X
|
||||||
|
INX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
asm uword_isgt
|
||||||
|
LDA ESTKL,X
|
||||||
|
CMP ESTKL+1,X
|
||||||
|
LDA ESTKH,X
|
||||||
|
SBC ESTKH+1,X
|
||||||
|
LDA #$FF
|
||||||
|
ADC #$00
|
||||||
|
STA ESTKL+1,X
|
||||||
|
STA ESTKH+1,X
|
||||||
|
INX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
asm uword_islt
|
||||||
|
LDA ESTKL+1,X
|
||||||
|
CMP ESTKL,X
|
||||||
|
LDA ESTKH+1,X
|
||||||
|
SBC ESTKH,X
|
||||||
|
LDA #$FF
|
||||||
|
ADC #$00
|
||||||
|
STA ESTKL+1,X
|
||||||
|
STA ESTKH+1,X
|
||||||
|
INX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Addresses of internal routines.
|
||||||
|
//
|
||||||
|
asm _hilopwm
|
||||||
|
TXA
|
||||||
|
PHA
|
||||||
|
JSR HILOPWM
|
||||||
|
PLA
|
||||||
|
TAX
|
||||||
|
DEX
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
asm toupper
|
||||||
|
LDA ESTKL,X
|
||||||
|
TOUPR AND #$7F
|
||||||
|
CMP #'a'
|
||||||
|
BCC +
|
||||||
|
CMP #'z'+1
|
||||||
|
BCS +
|
||||||
|
SBC #$1F
|
||||||
|
+ STA ESTKL,X
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// CONSOLE I/O
|
||||||
|
//
|
||||||
|
asm putc
|
||||||
|
LDA ESTKL,X
|
||||||
|
; JSR TOUPR
|
||||||
|
ORA #$80
|
||||||
|
JMP $FDF0
|
||||||
|
end
|
||||||
|
asm getc
|
||||||
|
DEX
|
||||||
|
- LDA $C000
|
||||||
|
BPL -
|
||||||
|
BIT $C010
|
||||||
|
AND #$7F
|
||||||
|
STA ESTKL,X
|
||||||
|
LDA #$00
|
||||||
|
STA ESTKH,X
|
||||||
|
RTS
|
||||||
|
end
|
||||||
|
def keypressed
|
||||||
|
return ^$C000 >= 128
|
||||||
|
end
|
||||||
|
def pdl(num)
|
||||||
|
return call($FB1E, 0, num, 0, 0)->2
|
||||||
|
end
|
||||||
|
def bttn(num)
|
||||||
|
return (^$C061+num) >= 128
|
||||||
|
end
|
||||||
|
def putln
|
||||||
|
return putc($0D)
|
||||||
|
end
|
||||||
|
def puts(str)
|
||||||
|
byte i
|
||||||
|
|
||||||
|
for i = 1 to ^str
|
||||||
|
putc(^(str+i))
|
||||||
|
next
|
||||||
|
end
|
||||||
|
def puti(i)
|
||||||
|
byte numstr[7]
|
||||||
|
byte place, sign
|
||||||
|
|
||||||
|
place = 6
|
||||||
|
if i < 0
|
||||||
|
sign = 1
|
||||||
|
i = -i
|
||||||
|
else
|
||||||
|
sign = 0
|
||||||
|
fin
|
||||||
|
while i >= 10
|
||||||
|
numstr[place] = i % 10 + '0'
|
||||||
|
i = i / 10
|
||||||
|
place--
|
||||||
|
loop
|
||||||
|
numstr[place] = i + '0'
|
||||||
|
place--
|
||||||
|
if sign
|
||||||
|
numstr[place] = '-'
|
||||||
|
place--
|
||||||
|
fin
|
||||||
|
numstr[place] = 6 - place
|
||||||
|
return puts(@numstr[place])
|
||||||
|
end
|
||||||
|
def normal
|
||||||
|
^$32 = $FF
|
||||||
|
end
|
||||||
|
def inverse
|
||||||
|
^$32 = $3F
|
||||||
|
end
|
||||||
|
def gotoxy(x, y)
|
||||||
|
^$24 = x + ^$20
|
||||||
|
return call($FB5B, y + ^$22, 0, 0, 0)
|
||||||
|
end
|
||||||
|
def home
|
||||||
|
return call($FC58, 0, 0, 0, 0)
|
||||||
|
end
|
||||||
|
def putsxy(x, y, str)
|
||||||
|
gotoxy(x, y)
|
||||||
|
return puts(str)
|
||||||
|
end
|
||||||
|
def textmode
|
||||||
|
call($FB39, 0, 0, 0, 0) // textmode()
|
||||||
|
return home
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// Clear viewport to white
|
||||||
|
//
|
||||||
|
def clearview
|
||||||
|
byte i
|
||||||
|
word c
|
||||||
|
inverse
|
||||||
|
c = ' ' | $80 & ^$32
|
||||||
|
c = c | (c << 8)
|
||||||
|
for i = ^$22 to ^$23
|
||||||
|
memset(txt1scrn[i] + ^$20, c, ^$21)
|
||||||
|
next
|
||||||
|
return gotoxy(0,0)
|
||||||
|
end
|
||||||
|
def grmode
|
||||||
|
call($FB2F, 0, 0, 0, 0) // initmode()
|
||||||
|
call($FB40, 0, 0, 0, 0) // grmode()
|
||||||
|
return home
|
||||||
|
end
|
||||||
|
def grcolor(color)
|
||||||
|
return call($F864, color, 0, 0, 0)
|
||||||
|
end
|
||||||
|
def plot(x, y)
|
||||||
|
return call($F800, y, 0, x, 0)
|
||||||
|
end
|
||||||
|
def hlin(left, right, y)
|
||||||
|
^$2C = right;
|
||||||
|
return call($F819, y, 0, left, 0)
|
||||||
|
end
|
||||||
|
def vlin(top, bottom, x)
|
||||||
|
^$2D = bottom;
|
||||||
|
return call($F828, top, 0, x, 0)
|
||||||
|
end
|
||||||
|
def rect(left, right, top, bottom, fill)
|
||||||
|
byte y
|
||||||
|
|
||||||
|
hlin(left, right, top)
|
||||||
|
hlin(left, right, bottom)
|
||||||
|
top++
|
||||||
|
bottom--
|
||||||
|
if fill
|
||||||
|
for y = top to bottom
|
||||||
|
hlin(left, right, y)
|
||||||
|
next
|
||||||
|
else
|
||||||
|
vlin(top, bottom, left)
|
||||||
|
vlin(top, bottom, right)
|
||||||
|
fin
|
||||||
|
end
|
||||||
|
//
|
||||||
|
// HFO/LFO PWM sound routines
|
||||||
|
//
|
||||||
|
def envelope(attack, decay, sustain, release, ainc, dinc, rinc)
|
||||||
|
^$0C = attack
|
||||||
|
^$0D = decay
|
||||||
|
^$0E = sustain
|
||||||
|
^$0F = release
|
||||||
|
*$10 = ainc
|
||||||
|
*$12 = dinc
|
||||||
|
*$14 = rinc
|
||||||
|
end
|
||||||
|
def hilopwm(HFO, LFO, LFOusr)
|
||||||
|
^$08 = HFO
|
||||||
|
^$09 = LFO
|
||||||
|
*$0A = LFOusr
|
||||||
|
return _hilopwm
|
||||||
|
end
|
||||||
Loading…
Reference in New Issue
Block a user