Prev: 7390 Up: Map Next: 73B6
7396: Routine at 7396
Used by the routine at InitialiseNewLevel.
7396 LD HL,$FA47 HL=FA47.
7399 LD B,$50 B=50.
739B LD A,(HL) A=*HL.
739C DEC L Decrease L by two.
739D DEC L
739E SUB $9A A-=9A.
73A0 SUB $05 A-=05.
73A2 JR NC,$73A0 Jump to 73A0 if {} is higher.
73A4 ADD A,$06 A+=06.
73A6 CP $05 Jump to 73AF if A is equal to 05.
73A8 JR Z,$73AF
73AA ADD A,A A+=A.
73AB ADD A,A A+=A.
73AC DEC A Decrease A by one.
73AD ADD A,(HL) A+=*HL.
73AE LD (HL),A Write A to *HL.
73AF LD DE,$000A DE=000A.
73B2 ADD HL,DE HL+=DE.
73B3 DJNZ $739B Decrease counter by one and loop back to 739B until counter is zero.
73B5 RET Return.
Prev: 7390 Up: Map Next: 73B6