Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-27 15:29:47 +00:00
Code Issues Projects Releases Wiki Activity

ed: properly handle self modify w/o hardcoding address

Browse Source
This commit is contained in:
Vince Weaver 2018-06-02 23:27:38 -04:00
parent 537f5a6bee
commit 6e07405b31
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
electric_duet/duet.s
View File

@ -35,8 +35,6 @@ MADDRH EQU $1F
LOC4E EQU $4E
COUNT256 EQU $4F
STARTADDR EQU $0c00
play_ed:
LDA #$01 ; 900: A9 01 ; 2 *!*
STA INSTRUMENT1 ; 902: 85 09 ; 3 set default
@ -95,7 +93,7 @@ exit_player:
play_note:
STA DURATION ; 937: 85 08 ; 3 store out duration
JSR load_freq ; 939: 20 2D09 ; 6 get freq#1
STX STARTADDR+$83 ; 93C: 8E 8309 ; 4 if 0 self-modify EOR/CMP
STX selfmodify1 ; 93C: 8E 8309 ; 4 if 0 self-modify EOR/CMP
STA FREQ1 ; 93F: 85 06 ; 3
LDX INSTRUMENT1 ; 941: A6 09 ; 3 *!*
@ -103,17 +101,17 @@ instr1_adjust:
LSR A ; 943: 4A ; 2 rshift freq by inst#
DEX ; 944: CA ; 2
BNE instr1_adjust ; 945: D0 FC ; 4 *!*
STA STARTADDR+$7C ; 947: 8D 7C09 ; 4 self-modify a CPY
STA selfmodify2+1 ; 947: 8D 7C09 ; 4 self-modify a CPY
JSR load_freq ; 94A: 20 2D09 ; 6 get freq#2
STX STARTADDR+$BB ; 94D: 8E BB09 ; 4 if 0 self-modify EOR/CMP
STX selfmodify3 ; 94D: 8E BB09 ; 4 if 0 self-modify EOR/CMP
STA FREQ2 ; 950: 85 07 ; 3
LDX INSTRUMENT2 ; 952: A6 1D ; 3 *!*
instr2_adjust:
LSR A ; 954: 4A ; 2 rshift freq by inst#
DEX ; 955: CA ; 2
BNE instr2_adjust ; 956: D0 FC ; 4 *!*
STA STARTADDR+$B4 ; 958: 8D B409 ; 4 self modify a CPX
STA selfmodify4+1 ; 958: 8D B409 ; 4 self modify a CPX
PLA ; 95B: 68 ; 4
TAY ; 95C: A8 ; 2
@ -136,15 +134,15 @@ label9:
BIT $C000 ; 971: 2C 00C0 ; 4 KEYBOARD DATA
BMI exit_player ; 974: 30 C0 ; 4 *!* if keypress, exit
DEY ; 976: 88 ; 2
BNE label10 ; 977: D0 02 ; 4 *!*
BNE selfmodify2 ; 977: D0 02 ; 4 *!*
BEQ label11 ; 979: F0 06 ; 4 *!*
label10:
selfmodify2:
CPY #$00 ; 97B: C0 00 ; 2
BEQ label12 ; 97D: F0 04 ; 4 *!* !!!
BEQ selfmodify1 ; 97D: F0 04 ; 4 *!* !!!
BNE label13 ; 97F: D0 04 ; 4 *!*
label11:
LDY FREQ1 ; 981: A4 06 ; 3 *!*
label12:
selfmodify1:
EOR #$40 ; 983: 49 40 ; 2 *!* !!!
label13:
BIT LOC4E ; 985: 24 4E ; 3
@ -179,15 +177,15 @@ label19:
label18:
DEX ; 9AE: CA ; 2
BNE label20 ; 9AF: D0 02 ; 4 *!*
BNE selfmodify4 ; 9AF: D0 02 ; 4 *!*
BEQ label21 ; 9B1: F0 06 ; 4 *!*
label20:
selfmodify4:
CPX #$00 ; 9B3: E0 00 ; 2
BEQ label22 ; 9B5: F0 04 ; 4 *!* !!!
BEQ selfmodify3 ; 9B5: F0 04 ; 4 *!* !!!
BNE label23 ; 9B7: D0 04 ; 4 *!*
label21:
LDX FREQ2 ; 9B9: A6 07 ; 3 *!*
label22:
selfmodify3:
EOR #$80 ; 9BB: 49 80 ; 2 *!* !!!
label23:
BVS label99 ; 9BD: 70 A3 ; 4 *!*