6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-06-03 07:29:37 +00:00
Code Issues Projects Releases Wiki Activity
37a9788a10
kickc/src/test/ref/examples/c64/nmisamples/nmisamples.log
Jesper Gravgaard 8416086294 Updated test programs use of CIA_INTERRUPT_CLEAR.
2024-01-02 19:21:16 +01:00

737 lines
26 KiB
Plaintext
Raw Blame History

Resolved forward reference nmi to __interrupt(hardware_clobber) void nmi()
Resolved forward reference nmi2 to __interrupt(hardware_clobber) void nmi2()
Inlined call vicSelectGfxBank::$0 = call toDd00(vicSelectGfxBank::gfx)
Inlined call call __init
CONTROL FLOW GRAPH SSA
void main()
main: scope:[main] from __start::@1
asm { lda#$ff sta$d406 sta$d40d sta$d414 lda#$49 sta$d404 sta$d40b sta$d412 }
asm { sei }
*((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = CIA_INTERRUPT_CLEAR_ALL
*KERNEL_NMI = &nmi
*((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88
*((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81
*((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1
asm { cli }
to:main::@return
main::@return: scope:[main] from main
return
to:@return
__interrupt(hardware_clobber) void nmi()
nmi: scope:[nmi] from
*((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
asm { ldaCIA2_INTERRUPT }
nmi::$1 = *sample & $f
*((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi::$1
*KERNEL_NMI = &nmi2
*((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
to:nmi::@return
nmi::@return: scope:[nmi] from nmi
return
to:@return
__interrupt(hardware_clobber) void nmi2()
nmi2: scope:[nmi2] from
*((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
asm { ldaCIA2_INTERRUPT }
nmi2::$1 = *sample >> 4
*((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi2::$1
sample = ++ sample
nmi2::$2 = byte1 sample
nmi2::$3 = nmi2::$2 == byte1 SAMPLE+$6100
nmi2::$4 = ! nmi2::$3
if(nmi2::$4) goto nmi2::@1
to:nmi2::@2
nmi2::@1: scope:[nmi2] from nmi2 nmi2::@2
*KERNEL_NMI = &nmi
*((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
to:nmi2::@return
nmi2::@2: scope:[nmi2] from nmi2
sample = SAMPLE
to:nmi2::@1
nmi2::@return: scope:[nmi2] from nmi2::@1
return
to:@return
void __start()
__start: scope:[__start] from
to:__start::__init1
__start::__init1: scope:[__start] from __start
sample = SAMPLE
to:__start::@1
__start::@1: scope:[__start] from __start::__init1
call main
to:__start::@2
__start::@2: scope:[__start] from __start::@1
to:__start::@return
__start::@return: scope:[__start] from __start::@2
return
to:@return
SYMBOL TABLE SSA
__constant struct MOS6526_CIA * const CIA2 = (struct MOS6526_CIA *)$dd00
__constant char * const CIA2_INTERRUPT = (char *)$dd0d
__constant const char CIA_INTERRUPT_CLEAR_ALL = $7f
__constant void (** const KERNEL_NMI)() = (void (**)())$318
__constant char OFFSET_STRUCT_MOS6526_CIA_INTERRUPT = $d
__constant char OFFSET_STRUCT_MOS6526_CIA_TIMER_A = 4
__constant char OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL = $e
__constant char OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR = $20
__constant char OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE = $18
__constant char SAMPLE[SAMPLE_SIZE] = kickasm {{ .import binary "moments_sample.bin" }}
__constant const unsigned int SAMPLE_SIZE = $6100
__constant struct MOS6581_SID * const SID = (struct MOS6581_SID *)$d400
__constant struct MOS6569_VICII * const VICII = (struct MOS6569_VICII *)$d000
void __start()
void main()
__interrupt(hardware_clobber) void nmi()
number nmi::$1
__interrupt(hardware_clobber) void nmi2()
char nmi2::$1
char nmi2::$2
bool nmi2::$3
bool nmi2::$4
__loadstore char * volatile sample
Adding number conversion cast (unumber) $88 in *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88
Adding number conversion cast (unumber) $81 in *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81
Adding number conversion cast (unumber) 1 in *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1
Adding number conversion cast (unumber) $f in nmi::$1 = *sample & $f
Adding number conversion cast (unumber) nmi::$1 in nmi::$1 = *sample & (unumber)$f
Adding number conversion cast (unumber) 4 in nmi2::$1 = *sample >> 4
Adding number conversion cast (unumber) $6100 in nmi2::$3 = nmi2::$2 == byte1 SAMPLE+$6100
Successful SSA optimization PassNAddNumberTypeConversions
Inlining cast *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = (unumber)$88
Inlining cast *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = (unumber)$81
Inlining cast *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = (unumber)1
Successful SSA optimization Pass2InlineCast
Simplifying constant pointer cast (struct MOS6581_SID *) 54272
Simplifying constant pointer cast (struct MOS6569_VICII *) 53248
Simplifying constant pointer cast (struct MOS6526_CIA *) 56576
Simplifying constant pointer cast (char *) 56589
Simplifying constant pointer cast (void (**)()) 792
Simplifying constant integer cast $88
Simplifying constant integer cast $81
Simplifying constant integer cast 1
Simplifying constant integer cast $f
Simplifying constant integer cast 4
Simplifying constant integer cast $6100
Successful SSA optimization PassNCastSimplification
Finalized unsigned number type (char) $88
Finalized unsigned number type (char) $81
Finalized unsigned number type (char) 1
Finalized unsigned number type (char) $f
Finalized unsigned number type (char) 4
Finalized unsigned number type (unsigned int) $6100
Successful SSA optimization PassNFinalizeNumberTypeConversions
Inferred type updated to char in nmi::$1 = *sample & $f
Inversing boolean not [23] nmi2::$4 = nmi2::$2 != byte1 SAMPLE+$6100 from [22] nmi2::$3 = nmi2::$2 == byte1 SAMPLE+$6100
Successful SSA optimization Pass2UnaryNotSimplification
Simple Condition nmi2::$4 [23] if(nmi2::$2!=byte1 SAMPLE+$6100) goto nmi2::@1
Successful SSA optimization Pass2ConditionalJumpSimplification
Adding NOP phi() at start of __start
Adding NOP phi() at start of __start::@1
Adding NOP phi() at start of __start::@2
CALL GRAPH
Calls in [__start] to main:3
Created 0 initial phi equivalence classes
Coalesced down to 0 phi equivalence classes
Culled Empty Block label __start::@2
Adding NOP phi() at start of __start
Adding NOP phi() at start of __start::@1
FINAL CONTROL FLOW GRAPH
void __start()
__start: scope:[__start] from
[0] phi()
to:__start::__init1
__start::__init1: scope:[__start] from __start
[1] sample = SAMPLE
to:__start::@1
__start::@1: scope:[__start] from __start::__init1
[2] phi()
[3] call main
to:__start::@return
__start::@return: scope:[__start] from __start::@1
[4] return
to:@return
__interrupt(hardware_clobber) void nmi2()
nmi2: scope:[nmi2] from
[5] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
asm { ldaCIA2_INTERRUPT }
[7] nmi2::$1 = *sample >> 4
[8] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi2::$1
[9] sample = ++ sample
[10] nmi2::$2 = byte1 sample
[11] if(nmi2::$2!=byte1 SAMPLE+$6100) goto nmi2::@1
to:nmi2::@2
nmi2::@2: scope:[nmi2] from nmi2
[12] sample = SAMPLE
to:nmi2::@1
nmi2::@1: scope:[nmi2] from nmi2 nmi2::@2
[13] *KERNEL_NMI = &nmi
[14] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
to:nmi2::@return
nmi2::@return: scope:[nmi2] from nmi2::@1
[15] return
to:@return
__interrupt(hardware_clobber) void nmi()
nmi: scope:[nmi] from
[16] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
asm { ldaCIA2_INTERRUPT }
[18] nmi::$1 = *sample & $f
[19] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi::$1
[20] *KERNEL_NMI = &nmi2
[21] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR)
to:nmi::@return
nmi::@return: scope:[nmi] from nmi
[22] return
to:@return
void main()
main: scope:[main] from __start::@1
asm { lda#$ff sta$d406 sta$d40d sta$d414 lda#$49 sta$d404 sta$d40b sta$d412 }
asm { sei }
[25] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = CIA_INTERRUPT_CLEAR_ALL
[26] *KERNEL_NMI = &nmi
[27] *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88
[28] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81
[29] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1
asm { cli }
to:main::@return
main::@return: scope:[main] from main
[31] return
to:@return
VARIABLE REGISTER WEIGHTS
void __start()
void main()
__interrupt(hardware_clobber) void nmi()
char nmi::$1 // 4.0
__interrupt(hardware_clobber) void nmi2()
char nmi2::$1 // 4.0
char nmi2::$2 // 4.0
__loadstore char * volatile sample // 1.9999999999999996
Initial phi equivalence classes
Added variable sample to live range equivalence class [ sample ]
Added variable nmi2::$1 to live range equivalence class [ nmi2::$1 ]
Added variable nmi2::$2 to live range equivalence class [ nmi2::$2 ]
Added variable nmi::$1 to live range equivalence class [ nmi::$1 ]
Complete equivalence classes
[ sample ]
[ nmi2::$1 ]
[ nmi2::$2 ]
[ nmi::$1 ]
Allocated zp[1]:2 [ nmi2::$1 ]
Allocated zp[1]:3 [ nmi2::$2 ]
Allocated zp[1]:4 [ nmi::$1 ]
Allocated zp[2]:5 [ sample ]
REGISTER UPLIFT POTENTIAL REGISTERS
Statement [1] sample = SAMPLE [ ] ( [ ] { } ) always clobbers reg byte a
Statement asm { ldaCIA2_INTERRUPT } always clobbers reg byte a
Statement [7] nmi2::$1 = *sample >> 4 [ sample nmi2::$1 ] ( [ sample nmi2::$1 ] { } ) always clobbers reg byte a reg byte y
Statement [12] sample = SAMPLE [ ] ( [ ] { } ) always clobbers reg byte a
Statement [13] *KERNEL_NMI = &nmi [ ] ( [ ] { } ) always clobbers reg byte a
Statement [15] return [ ] ( [ ] { } ) always clobbers reg byte a reg byte x reg byte y
Statement asm { ldaCIA2_INTERRUPT } always clobbers reg byte a
Statement [18] nmi::$1 = *sample & $f [ nmi::$1 ] ( [ nmi::$1 ] { } ) always clobbers reg byte a reg byte y
Statement [20] *KERNEL_NMI = &nmi2 [ ] ( [ ] { } ) always clobbers reg byte a
Statement [22] return [ ] ( [ ] { } ) always clobbers reg byte a reg byte x reg byte y
Statement asm { lda#$ff sta$d406 sta$d40d sta$d414 lda#$49 sta$d404 sta$d40b sta$d412 } always clobbers reg byte a
Statement [25] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = CIA_INTERRUPT_CLEAR_ALL [ ] ( main:3 [ ] { } ) always clobbers reg byte a
Statement [26] *KERNEL_NMI = &nmi [ ] ( main:3 [ ] { } ) always clobbers reg byte a
Statement [27] *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88 [ ] ( main:3 [ ] { } ) always clobbers reg byte a
Statement [28] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81 [ ] ( main:3 [ ] { } ) always clobbers reg byte a
Statement [29] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1 [ ] ( main:3 [ ] { } ) always clobbers reg byte a
Potential registers zp[2]:5 [ sample ] : zp[2]:5 ,
Potential registers zp[1]:2 [ nmi2::$1 ] : zp[1]:2 , reg byte a , reg byte x , reg byte y ,
Potential registers zp[1]:3 [ nmi2::$2 ] : zp[1]:3 , reg byte a , reg byte x , reg byte y ,
Potential registers zp[1]:4 [ nmi::$1 ] : zp[1]:4 , reg byte a , reg byte x , reg byte y ,
REGISTER UPLIFT SCOPES
Uplift Scope [nmi2] 4: zp[1]:2 [ nmi2::$1 ] 4: zp[1]:3 [ nmi2::$2 ]
Uplift Scope [nmi] 4: zp[1]:4 [ nmi::$1 ]
Uplift Scope [] 2: zp[2]:5 [ sample ]
Uplift Scope [MOS6526_CIA]
Uplift Scope [MOS6569_VICII]
Uplift Scope [MOS6581_SID]
Uplift Scope [main]
Uplift Scope [__start]
Uplifting [nmi2] best 756 combination reg byte a [ nmi2::$1 ] reg byte a [ nmi2::$2 ]
Uplifting [nmi] best 750 combination reg byte a [ nmi::$1 ]
Uplifting [] best 750 combination zp[2]:5 [ sample ]
Uplifting [MOS6526_CIA] best 750 combination
Uplifting [MOS6569_VICII] best 750 combination
Uplifting [MOS6581_SID] best 750 combination
Uplifting [main] best 750 combination
Uplifting [__start] best 750 combination
Allocated (was zp[2]:5) zp[2]:2 [ sample ]
Interrupt procedure nmi clobbers AYnzP
Interrupt procedure nmi2 clobbers AYcnzP
ASSEMBLER BEFORE OPTIMIZATION
// File Comments
// NMI Sample Player using the SID volume register
// Code by Scan of Desire (Richard-William Loerakker)
// Sample from ART OF NOISE: MOMENTS IN LOVE
// Upstart
// Commodore 64 PRG executable file
.file [name="nmisamples.prg", type="prg", segments="Program"]
.segmentdef Program [segments="Basic, Code, Data"]
.segmentdef Basic [start=$0801]
.segmentdef Code [start=$80d]
.segmentdef Data [startAfter="Code"]
.segment Basic
:BasicUpstart(__start)
// Global Constants & labels
/// Value that disables all CIA interrupts when stored to the CIA Interrupt registers
.const CIA_INTERRUPT_CLEAR_ALL = $7f
.const SAMPLE_SIZE = $6100
.const OFFSET_STRUCT_MOS6526_CIA_INTERRUPT = $d
.const OFFSET_STRUCT_MOS6526_CIA_TIMER_A = 4
.const OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL = $e
.const OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR = $20
.const OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE = $18
/// The SID MOS 6581/8580
.label SID = $d400
/// The VIC-II MOS 6567/6569
.label VICII = $d000
/// The CIA#2: Serial bus, RS-232, VIC memory bank
.label CIA2 = $dd00
/// CIA#2 Interrupt for reading in ASM
.label CIA2_INTERRUPT = $dd0d
/// The vector used when the KERNAL serves NMI interrupts
.label KERNEL_NMI = $318
.label sample = 2
.segment Code
// __start
__start: {
jmp __init1
// __start::__init1
__init1:
// [1] sample = SAMPLE -- pbuz1=pbuc1
lda #<SAMPLE
sta.z sample
lda #>SAMPLE
sta.z sample+1
// [2] phi from __start::__init1 to __start::@1 [phi:__start::__init1->__start::@1]
__b1_from___init1:
jmp __b1
// __start::@1
__b1:
// [3] call main
jsr main
jmp __breturn
// __start::@return
__breturn:
// [4] return
rts
}
// nmi2
nmi2: {
// interrupt(isr_hardware_clobber_entry) -- isr_hardware_all_entry
sta rega+1
sty regy+1
// [5] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_inc__deref_pbuc1
inc VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// asm { ldaCIA2_INTERRUPT }
lda CIA2_INTERRUPT
// [7] nmi2::$1 = *sample >> 4 -- vbuaa=_deref_pbuz1_ror_4
ldy #0
lda (sample),y
lsr
lsr
lsr
lsr
// [8] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi2::$1 -- _deref_pbuc1=vbuaa
sta SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE
// [9] sample = ++ sample -- pbuz1=_inc_pbuz1
inc.z sample
bne !+
inc.z sample+1
!:
// [10] nmi2::$2 = byte1 sample -- vbuaa=_byte1_pbuz1
lda.z sample+1
// [11] if(nmi2::$2!=byte1 SAMPLE+$6100) goto nmi2::@1 -- vbuaa_neq_vbuc1_then_la1
cmp #>SAMPLE+$6100
bne __b1
jmp __b2
// nmi2::@2
__b2:
// [12] sample = SAMPLE -- pbuz1=pbuc1
lda #<SAMPLE
sta.z sample
lda #>SAMPLE
sta.z sample+1
jmp __b1
// nmi2::@1
__b1:
// [13] *KERNEL_NMI = &nmi -- _deref_qprc1=pprc2
lda #<nmi
sta KERNEL_NMI
lda #>nmi
sta KERNEL_NMI+1
// [14] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_dec__deref_pbuc1
dec VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
jmp __breturn
// nmi2::@return
__breturn:
// [15] return
// interrupt(isr_hardware_clobber_exit) -- isr_hardware_all_exit
rega:
lda #0
regy:
ldy #0
rti
}
// nmi
nmi: {
// interrupt(isr_hardware_clobber_entry) -- isr_hardware_all_entry
sta rega+1
sty regy+1
// [16] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_inc__deref_pbuc1
inc VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// asm { ldaCIA2_INTERRUPT }
lda CIA2_INTERRUPT
// [18] nmi::$1 = *sample & $f -- vbuaa=_deref_pbuz1_band_vbuc1
lda #$f
ldy #0
and (sample),y
// [19] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi::$1 -- _deref_pbuc1=vbuaa
sta SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE
// [20] *KERNEL_NMI = &nmi2 -- _deref_qprc1=pprc2
lda #<nmi2
sta KERNEL_NMI
lda #>nmi2
sta KERNEL_NMI+1
// [21] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_dec__deref_pbuc1
dec VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
jmp __breturn
// nmi::@return
__breturn:
// [22] return
// interrupt(isr_hardware_clobber_exit) -- isr_hardware_all_exit
rega:
lda #0
regy:
ldy #0
rti
}
// main
main: {
// asm { lda#$ff sta$d406 sta$d40d sta$d414 lda#$49 sta$d404 sta$d40b sta$d412 }
// Boosting 8580 Digis
// See https://gist.github.com/munshkr/30f35e39905e63876ff7 (line 909)
lda #$ff
sta $d406
sta $d40d
sta $d414
lda #$49
sta $d404
sta $d40b
sta $d412
// asm { sei }
sei
// [25] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = CIA_INTERRUPT_CLEAR_ALL -- _deref_pbuc1=vbuc2
lda #CIA_INTERRUPT_CLEAR_ALL
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT
// [26] *KERNEL_NMI = &nmi -- _deref_qprc1=pprc2
lda #<nmi
sta KERNEL_NMI
lda #>nmi
sta KERNEL_NMI+1
// [27] *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88 -- _deref_pwuc1=vbuc2
lda #<$88
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A
lda #>$88
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A+1
// [28] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81 -- _deref_pbuc1=vbuc2
// speed
lda #$81
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT
// [29] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1 -- _deref_pbuc1=vbuc2
lda #1
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL
// asm { cli }
cli
jmp __breturn
// main::@return
__breturn:
// [31] return
rts
}
// File Data
.segment Data
SAMPLE:
.import binary "moments_sample.bin"
ASSEMBLER OPTIMIZATIONS
Removing instruction jmp __init1
Removing instruction jmp __b1
Removing instruction jmp __breturn
Removing instruction jmp __b2
Removing instruction jmp __b1
Removing instruction jmp __breturn
Removing instruction jmp __breturn
Removing instruction jmp __breturn
Succesful ASM optimization Pass5NextJumpElimination
Removing instruction __b1_from___init1:
Removing instruction __breturn:
Removing instruction __breturn:
Succesful ASM optimization Pass5RedundantLabelElimination
Removing instruction __init1:
Removing instruction __b1:
Removing instruction __breturn:
Removing instruction __b2:
Removing instruction __breturn:
Succesful ASM optimization Pass5UnusedLabelElimination
FINAL SYMBOL TABLE
__constant struct MOS6526_CIA * const CIA2 = (struct MOS6526_CIA *) 56576
__constant char * const CIA2_INTERRUPT = (char *) 56589
__constant const char CIA_INTERRUPT_CLEAR_ALL = $7f
__constant void (** const KERNEL_NMI)() = (void (**)()) 792
__constant char OFFSET_STRUCT_MOS6526_CIA_INTERRUPT = $d
__constant char OFFSET_STRUCT_MOS6526_CIA_TIMER_A = 4
__constant char OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL = $e
__constant char OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR = $20
__constant char OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE = $18
__constant char SAMPLE[SAMPLE_SIZE] = kickasm {{ .import binary "moments_sample.bin" }}
__constant const unsigned int SAMPLE_SIZE = $6100
__constant struct MOS6581_SID * const SID = (struct MOS6581_SID *) 54272
__constant struct MOS6569_VICII * const VICII = (struct MOS6569_VICII *) 53248
void __start()
void main()
__interrupt(hardware_clobber) void nmi()
char nmi::$1 // reg byte a 4.0
__interrupt(hardware_clobber) void nmi2()
char nmi2::$1 // reg byte a 4.0
char nmi2::$2 // reg byte a 4.0
__loadstore char * volatile sample // zp[2]:2 1.9999999999999996
zp[2]:2 [ sample ]
reg byte a [ nmi2::$1 ]
reg byte a [ nmi2::$2 ]
reg byte a [ nmi::$1 ]
FINAL ASSEMBLER
Score: 579
// File Comments
// NMI Sample Player using the SID volume register
// Code by Scan of Desire (Richard-William Loerakker)
// Sample from ART OF NOISE: MOMENTS IN LOVE
// Upstart
// Commodore 64 PRG executable file
.file [name="nmisamples.prg", type="prg", segments="Program"]
.segmentdef Program [segments="Basic, Code, Data"]
.segmentdef Basic [start=$0801]
.segmentdef Code [start=$80d]
.segmentdef Data [startAfter="Code"]
.segment Basic
:BasicUpstart(__start)
// Global Constants & labels
/// Value that disables all CIA interrupts when stored to the CIA Interrupt registers
.const CIA_INTERRUPT_CLEAR_ALL = $7f
.const SAMPLE_SIZE = $6100
.const OFFSET_STRUCT_MOS6526_CIA_INTERRUPT = $d
.const OFFSET_STRUCT_MOS6526_CIA_TIMER_A = 4
.const OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL = $e
.const OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR = $20
.const OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE = $18
/// The SID MOS 6581/8580
.label SID = $d400
/// The VIC-II MOS 6567/6569
.label VICII = $d000
/// The CIA#2: Serial bus, RS-232, VIC memory bank
.label CIA2 = $dd00
/// CIA#2 Interrupt for reading in ASM
.label CIA2_INTERRUPT = $dd0d
/// The vector used when the KERNAL serves NMI interrupts
.label KERNEL_NMI = $318
.label sample = 2
.segment Code
// __start
__start: {
// __start::__init1
// char* volatile sample = SAMPLE
// [1] sample = SAMPLE -- pbuz1=pbuc1
lda #<SAMPLE
sta.z sample
lda #>SAMPLE
sta.z sample+1
// [2] phi from __start::__init1 to __start::@1 [phi:__start::__init1->__start::@1]
// __start::@1
// [3] call main
jsr main
// __start::@return
// [4] return
rts
}
// nmi2
nmi2: {
// interrupt(isr_hardware_clobber_entry) -- isr_hardware_all_entry
sta rega+1
sty regy+1
// (VICII->BORDER_COLOR)++;
// [5] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_inc__deref_pbuc1
inc VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// asm
// asm { ldaCIA2_INTERRUPT }
lda CIA2_INTERRUPT
// *sample >> 4
// [7] nmi2::$1 = *sample >> 4 -- vbuaa=_deref_pbuz1_ror_4
ldy #0
lda (sample),y
lsr
lsr
lsr
lsr
// SID->VOLUME_FILTER_MODE = *sample >> 4
// [8] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi2::$1 -- _deref_pbuc1=vbuaa
sta SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE
// sample++;
// [9] sample = ++ sample -- pbuz1=_inc_pbuz1
inc.z sample
bne !+
inc.z sample+1
!:
// BYTE1(sample)
// [10] nmi2::$2 = byte1 sample -- vbuaa=_byte1_pbuz1
lda.z sample+1
// if (BYTE1(sample) == BYTE1(SAMPLE+$6100))
// [11] if(nmi2::$2!=byte1 SAMPLE+$6100) goto nmi2::@1 -- vbuaa_neq_vbuc1_then_la1
cmp #>SAMPLE+$6100
bne __b1
// nmi2::@2
// sample = SAMPLE
// [12] sample = SAMPLE -- pbuz1=pbuc1
lda #<SAMPLE
sta.z sample
lda #>SAMPLE
sta.z sample+1
// nmi2::@1
__b1:
// *KERNEL_NMI = &nmi
// [13] *KERNEL_NMI = &nmi -- _deref_qprc1=pprc2
lda #<nmi
sta KERNEL_NMI
lda #>nmi
sta KERNEL_NMI+1
// (VICII->BORDER_COLOR)--;
// [14] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_dec__deref_pbuc1
dec VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// nmi2::@return
// }
// [15] return
// interrupt(isr_hardware_clobber_exit) -- isr_hardware_all_exit
rega:
lda #0
regy:
ldy #0
rti
}
// nmi
nmi: {
// interrupt(isr_hardware_clobber_entry) -- isr_hardware_all_entry
sta rega+1
sty regy+1
// (VICII->BORDER_COLOR)++;
// [16] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = ++ *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_inc__deref_pbuc1
inc VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// asm
// asm { ldaCIA2_INTERRUPT }
lda CIA2_INTERRUPT
// *sample & $0f
// [18] nmi::$1 = *sample & $f -- vbuaa=_deref_pbuz1_band_vbuc1
lda #$f
ldy #0
and (sample),y
// SID->VOLUME_FILTER_MODE = *sample & $0f
// [19] *((char *)SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE) = nmi::$1 -- _deref_pbuc1=vbuaa
sta SID+OFFSET_STRUCT_MOS6581_SID_VOLUME_FILTER_MODE
// *KERNEL_NMI = &nmi2
// [20] *KERNEL_NMI = &nmi2 -- _deref_qprc1=pprc2
lda #<nmi2
sta KERNEL_NMI
lda #>nmi2
sta KERNEL_NMI+1
// (VICII->BORDER_COLOR)--;
// [21] *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) = -- *((char *)VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR) -- _deref_pbuc1=_dec__deref_pbuc1
dec VICII+OFFSET_STRUCT_MOS6569_VICII_BORDER_COLOR
// nmi::@return
// }
// [22] return
// interrupt(isr_hardware_clobber_exit) -- isr_hardware_all_exit
rega:
lda #0
regy:
ldy #0
rti
}
// main
main: {
// asm
// asm { lda#$ff sta$d406 sta$d40d sta$d414 lda#$49 sta$d404 sta$d40b sta$d412 }
// Boosting 8580 Digis
// See https://gist.github.com/munshkr/30f35e39905e63876ff7 (line 909)
lda #$ff
sta $d406
sta $d40d
sta $d414
lda #$49
sta $d404
sta $d40b
sta $d412
// asm { sei }
sei
// CIA2->INTERRUPT = CIA_INTERRUPT_CLEAR_ALL
// [25] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = CIA_INTERRUPT_CLEAR_ALL -- _deref_pbuc1=vbuc2
lda #CIA_INTERRUPT_CLEAR_ALL
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT
// *KERNEL_NMI = &nmi
// [26] *KERNEL_NMI = &nmi -- _deref_qprc1=pprc2
lda #<nmi
sta KERNEL_NMI
lda #>nmi
sta KERNEL_NMI+1
// CIA2->TIMER_A = 0x88
// [27] *((unsigned int *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A) = $88 -- _deref_pwuc1=vbuc2
lda #<$88
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A
lda #>$88
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A+1
// CIA2->INTERRUPT = 0x81
// [28] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT) = $81 -- _deref_pbuc1=vbuc2
// speed
lda #$81
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_INTERRUPT
// CIA2->TIMER_A_CONTROL = 0x01
// [29] *((char *)CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL) = 1 -- _deref_pbuc1=vbuc2
lda #1
sta CIA2+OFFSET_STRUCT_MOS6526_CIA_TIMER_A_CONTROL
// asm
// asm { cli }
cli
// main::@return
// }
// [31] return
rts
}
// File Data
.segment Data
SAMPLE:
.import binary "moments_sample.bin"
Reference in New Issue View Git Blame Copy Permalink