6F6C: Read Shape Byte
| ReadShapeByte |
6F6C |
XOR A |
|
6F6D |
LD ($5BBE),A |
|
6F70 |
LD A,(HL) |
|
6F71 |
CP $FB |
|
6F73 |
CALL Z,FindShape_6 |
|
6F76 |
CP $EF |
|
6F78 |
JR NZ,ReadShapeByte_0 |
|
6F7A |
LD A,$01 |
|
6F7C |
JR ReadShapeByte_3 |
| ReadShapeByte_0 |
6F7E |
CP $EE |
|
6F80 |
JR NZ,ReadShapeByte_1 |
|
6F82 |
LD A,$02 |
|
6F84 |
JR ReadShapeByte_3 |
| ReadShapeByte_1 |
6F86 |
CP $EB |
|
6F88 |
JR NZ,ReadShapeByte_2 |
|
6F8A |
LD A,$03 |
|
6F8C |
JR ReadShapeByte_3 |
| ReadShapeByte_2 |
6F8E |
CP $F3 |
|
6F90 |
JR NZ,SpecialShape |
|
6F92 |
INC HL |
|
6F93 |
LD A,(HL) |
| ReadShapeByte_3 |
6F94 |
LD ($5BC0),A |
|
6F97 |
LD A,$82 |
|
6F99 |
LD ($5BBE),A |
|
6F9C |
LD ($5BBF),A |
|
6F9F |
LD ($5BBC),HL |
|
6FA2 |
XOR A |
|
6FA3 |
JR ScaleShape |
