J sei -J lda #$37 cJ sta $01 y!J lda #$a0 #J sta $03 %J ldy #$00 'J sty $02 )Jzca29 lda ($02),yG+J sta ($02),y}-J dey .J bne zca29 0J inc $03 2J lda $03 54J cmp #$c0 k6J bne zca29 8J lda #$36 :J sta $01 Kzcb3e clc (?Kzcb3f lda #$03 (aK adc $5f (cK sta $5f (eK bcc zcb49 O(gK inc $60 (iKzcb49 cmp $fd (kK bne zcb2c )mK cpx $60 ')oK bne zcb2c =)qK beq zcb27 s)sKzcb53 clc )tK lda $fd )vK sta $5f )xK stx $60 )zK eor $31 A)\K bne zcb62 W)^K cpx $32 )K beq zcb89 *Kzcb62 ldy #$02 *K lda ($5f),y/*K adc $5f e*K sta $fd [*K iny *K lda ($5f),y*K adc $60 *K tax *K ldy #$00 I*K lda ($5f),y*K iny *K eor ($5f),y+K bpl zcb53 !+K ldy #$04 7+K lda ($5f),ym+K asl +K adc #$05 +K adc $5f +K sta $5f +K bcc zcb89 +K inc $60 Q+K clc +Kzcb89 rts +Kzcb8a lda $f8 ,K sta $4f ),K lda $f9 ?,K sta $59 u,K ldy #$00 ,K sty $4e ,K sty $58 ,K ldx $fa ,K inx C,Kzcb9b lda ($4e),yY,K sta ($58),y,K iny - K bne zcb9b -K inc $59 1-K inc $4f g-K dex ]-K bne zcb9b -`K rts -Kzcbaa pha -K sei -K lda #$35 K-K sta $01 -K pla -K cmp $f8 .K bcc zcbba #.K sbc $f8 9.K clc o.K adc $f9 .|Kzcbba sta $4f .K dey .K lda ($5f),y.K sta $4e .AK dey S.BK sec .CK lda $33 .EK sbc ($5f),y/GK sta $33 +/IK iny a/JK sta ($5f),yw/LK lda $34 /NK sbc #$00 /PK sta $34 /RK iny /SK sta ($5f),yE/UK dey {/VK dey /WK lda ($5f),y0YK beq zcbe4 0{K tay 30|Kzcbdc dey i0}K lda ($4e),y_0K sta ($33),y0K tya 0K bne zcbdc 0Kzcbe4 lda #$36 0K sta $01 M0K cli 0K clc 0K lda $fe 1K sbc $34 %1K rts ;1Kzcbef brk q1Kzcbf0 brk 1Kzcbf1 brk 1Kzcbf2 brk 1K .byte $43 `1K and ($39),y1K sec U1K and $20,x 1K lsr $2e 2K .byte $53 2K eor #$4d -2K .byte $4f c2K jsr $2020 y2L jsr $2020