Function C1 8D05

• I don't know

$C1/8D05 7B          TDC
$C1/8D06 BF 27 82 C1 LDA $C18227,x[$C1:822B] 
$C1/8D0A 8D 7B 7B    STA $7B7B  [$00:7B7B]   
$C1/8D0D EE 79 7B    INC $7B79  [$00:7B79]   
$C1/8D10 EE 77 7B    INC $7B77  [$00:7B77]   
$C1/8D13 AD 76 7B    LDA $7B76  [$00:7B76]   
$C1/8D16 C9 04       CMP #$04                
$C1/8D18 F0 03       BEQ $03    [$8D1D]      
$C1/8D1A 1A          INC A                   
$C1/8D1B 80 01       BRA $01    [$8D1E]      
$C1/8D1D 7B          TDC                     
$C1/8D1E 8D 76 7B    STA $7B76  [$00:7B76]   
$C1/8D21 CE 75 7B    DEC $7B75  [$00:7B75]   
$C1/8D24 D0 05       BNE $05    [$8D2B]      
$C1/8D26 A9 02       LDA #$02                
$C1/8D28 8D 92 7B    STA $7B92  [$00:7B92]   
$C1/8D2B 60          RTS