bN}3ł$F37B-F57F()gpROM̈Ȃ̂ŁAɃR[hǉB


E934:
4C 7B F3	jmp	$F37B		; ̏ɃWv
		
----------------------------------------------

F37B:
85 4D		sta	$4D		; $4D$12̃Rs[ƂĂ(̃`FbNXW)
4A		lsr	a		; WvŒׂs
4A		lsr	a		; |
4A		lsr	a		; |
48		pha			; X^bNɃvbV
A5 02		lda	$02		; $02̒l[h
85 4E		sta	$4E		; $4EɊi[
68		pla			; X^bN|bv
4C 37 E9	jmp	$E937		; Wv֖߂

==============================================


F6BF:
4C 89 F3	jmp	$F389		; ̏ɃWv

----------------------------------------------
F389:

A5 41		lda	$41		; Largest block type found[h
C9 E0		cmp	#$E0		; #$E0(̓y)Ȃ΍`FbNɃWv
F0 XX(06)	beq	`FbN	; |
A5 10		lda	$10		; $10̒l[h


29 10		and	#$10		; `bvubNȂΒʏ`FbNɃWv
D0 XX(19)	bne	ʏ`FbN	; |

`FbN:(F395:)
A4 4E		ldy	$4E		; YWX^$4E̒l[h
B9 42 00	lda	$0042,y		; ̃`bv[h
C9 C0		cmp	#$C0		; #$C0(E)ȂΉE⏈ɃWv
F0 XX(13)	beq	E⏈	; |
C9 E0		cmp	#$E0		; #$E0(̓y)ȂΉEy䏈ɃWv
F0 XX(49)	beq	Ey䏈; |

A5 42		lda	$42		; Ẽ`bv[h
C9 A0		cmp	#$A0		; #$A0(E)ȂΉE⏈ɃWv
F0 XX(2B)	beq	E⏈	; |
C9 E0		cmp	#$E0		; #$E0(̓y)ȂΉEy䏈ɃWv
F0 XX(2E)	beq	Ey䏈; |

18		clc			; łȂ΃^[
60		rts			; |

ʏ`FbN:(F3AE:)
4C C5 F6	jmp	$F6C5		; Wvɖ߂


E⏈:(F3B1:)
A5 4D		lda	$4D		; ̃`FbNXW[h

Label0:(F3B3:)
29 0F		and	#$0F		; 4bito
85 4E		sta	$4E		; $4EɊi[
A5 11		lda	$11		; `FbNYW[h
48		pha			; X^bNɃvbV
29 0F		and	#$0F		; 4bito
38		sec			; L[Zbg
E5 4E		sbc	$4E		; `FbNYW(4bit) - `FbNXW(4bit) vZ
90 XX(0E)	bcc	RETURN		; `FbNYW(4bit)  `FbNXW(4bit) łȂRETURNɃWv

Label1:(F3C1:)
20 0D EE	jsr	$EE0D		; ̂߂荞݂ɑ΂YW␳(AWX^ɃbN}YW猸ZlČĂяo)

A9 00		lda	#$00		; Yxɑ傫ȒlZbg(Ƃ肠łFC.00 = -04.00)
9D 40 04	sta	$0440,x		; |
A9 FC		lda	#$FC		; |
9D 60 04	sta	$0460,x		; |
38		sec			; L[Zbg

RETURN:(F3CF:)
68		pla			; X^bN|bv
85 11		sta	$11		; $11Ɋi[
60		rts			; ^[

E⏈:(F3D3:)
A5 12		lda	$12		; Ẽ`FbNXW[h
49 0F		eor	#$0F		; 4bit]
4C XX XX(B3 F3)	jmp	Label0		; Label0ɃWv

Ey䏈:(F3D2:)
A5 12		lda	$12		; Ẽ`FbNXW[h
Label2(F3DC:)
29 0F		and	#$0F		; 4bito
85 4E		sta	$4E		; $4EɊi[
A5 11		lda	$11		; `FbNYW[h
48		pha			; X^bNɃvbV
29 0F		and	#$0F		; |
18		sec			; L[Zbg
65 4E		adc	$4E		; (YW and #$0F) + (XW and #$0F) + 1
4C XX XX(C1 F3)	jmp	Label1		; Label1ɃWv

Ey䏈:(F3E3:)
A5 4D		lda	$4D		; ̃`FbNXW[h
49 0F		eor	#$0F		; 4bit]
4C XX XX(DC F3)	jmp	Label2		; Label2ɃWv


F3F2:






