main:
LDA $17CC
CMP #$00
BNE +

LDA #$05
STA $17C0	
LDA $D3	
CLC
ADC #$08				
STA $17C4	
LDA $D1				
STA $17C8			
LDA #$1C
STA $17CC

+
LDA $17CD
CMP #$00
BNE ++

LDA #$05
STA $17C1	
LDA $D3	
CLC
ADC #$00				
STA $17C5	
LDA $D1				
STA $17C9			
LDA #$1C
STA $17CD

++
LDA $17CE
CMP #$00
BNE +++

LDA #$05
STA $17C2	
LDA $D3	
CLC
ADC #$0E				
STA $17C6	
LDA $D1				
STA $17CA			
LDA #$1C
STA $17CE
+++
RTL

back to listings