Prev: E6EC Up: Map Next: E741
E713: Routine at E713
Used by the routine at F801.
E713 LD HL,$E293 HL=Table_Tiles.
E716 LD A,($D826) Jump to E724 if *D826 is not equal to 00.
E719 CP $00
E71B JP NZ,$E724
E71E LD A,$00 Write 00 to *Item_ID.
E720 LD ($E2C7),A
E723 RET Return.
E724 LD A,(HL) A=*HL.
E725 PUSH HL DE=HL (using the stack).
E726 POP DE
E727 INC HL Increment HL by one.
E728 LD ($E2C7),A Write A to *Item_ID.
E72B LD A,($D826) A=*D826.
E72E DEC A Decrease A by one.
E72F CP $00 Jump to E738 if A is not equal to 00.
E731 JP NZ,$E738
E734 LD C,$01 C=01.
E736 JR $E739 Jump to E739.
E738 LD C,A C=A.
E739 LD B,$00 B=00.
E73B LDIR LDIR.
E73D LD ($D826),A Write A to *D826.
E740 RET Return.
Prev: E6EC Up: Map Next: E741