Routines
Prev: 28503 Up: Map Next: 28581
28524: Read Shape Byte
Used by the routines at SpecialShape and ScaleShape.
Fetches the next shape byte and remembers it for the shift that follows.
ReadShapeByte 28524 XOR A
28525 LD (23486),A
28528 LD A,(HL)
28529 CP 251
28531 CALL Z,FindShape_6
28534 CP 239
28536 JR NZ,ReadShapeByte_0
28538 LD A,1
28540 JR ReadShapeByte_3
ReadShapeByte_0 28542 CP 238
28544 JR NZ,ReadShapeByte_1
28546 LD A,2
28548 JR ReadShapeByte_3
ReadShapeByte_1 28550 CP 235
28552 JR NZ,ReadShapeByte_2
28554 LD A,3
28556 JR ReadShapeByte_3
ReadShapeByte_2 28558 CP 243
28560 JR NZ,SpecialShape
28562 INC HL
28563 LD A,(HL)
ReadShapeByte_3 28564 LD (23488),A
28567 LD A,130
28569 LD (23486),A
28572 LD (23487),A
28575 LD (23484),HL
28578 XOR A
28579 JR ScaleShape
Prev: 28503 Up: Map Next: 28581