Routines
Prev: A7A9 Up: Map Next: A7CE
A7BA: Simulate conveyor belt going down
Used by the routines at 947A and A915.
Input
HL Address pointer for tile graphic data
A7BA PUSH HL Save HL
A7BB LD DE,$0007 Point HL to the last byte of the tile
A7BE ADD HL,DE
A7BF LD C,(HL) Set C to the last byte value
A7C0 LD E,L Copy HL to DE
A7C1 LD D,H
A7C2 DEC HL Decrement HL
A7C3 LD B,$07 Set B to loop 7 times
A7C5 LD A,(HL) Copy byte from HL to DE
A7C6 LD (DE),A
A7C7 DEC DE Decrement DE and HL
A7C8 DEC HL
A7C9 DJNZ $A7C5 Jump until all 7 bytes copied
A7CB POP HL Restore HL
A7CC LD (HL),C Put the last byte into the first position
A7CD RET
Prev: A7A9 Up: Map Next: A7CE