Prev: F31E Up: Map Next: F38F
F349: Routine at F349
Used by the routine at D352.
F349 LD B,$28 B=28.
F34B LD HL,$D83A HL=Time.
F34E RES 5,(HL) Reset bit 5 of *HL.
F350 RES 6,(HL) Reset bit 6 of *HL.
F352 LD HL,($D85B) HL=*D85B.
F355 LD C,$04 C=04.
F357 PUSH HL Stash HL on the stack.
F358 SCF Set the carry flag.
F359 RR (HL) Rotate *HL right.
F35B JP C,$F37C Jump to F37C if is lower.
F35E INC H Increment H by one.
F35F DEC C Decrease C by one.
F360 JP NZ,$F358 Jump to F358 if C is not zero.
F363 LD A,B A=B.
F364 ADD A,$1E A+=1E.
F366 LD H,A H=A.
F367 LD L,$14 L=14.
F369 LD A,$05 A=05.
F36B XOR %00010000 Flip bits 4.
F36D OUT ($FE),A Set border to the colour held by A.
F36F LD D,H D=H.
F370 DEC D Decrease D by one.
F371 JP NZ,$F370 Jump to F370 if D is not zero.
F374 DEC L Decrease L by one.
F375 JP NZ,$F36B Jump to F36B if L is not zero.
F378 POP HL Restore HL from the stack.
F379 DJNZ $F355 Decrease counter by one and loop back to F355 until counter is zero.
F37B RET Return.
F37C POP HL Restore HL from the stack.
F37D LD A,($D85E) A=*D85E.
F380 CP $14 Compare A with 14.
F382 RET P Return P.
F383 INC A Increment A by one.
F384 LD ($D85E),A Write A to *D85E.
F387 INC HL Increment HL by one.
F388 LD ($D85B),HL Write HL to *D85B.
F38B PUSH HL Stash HL on the stack.
F38C JP $F358 Jump to F358.
Prev: F31E Up: Map Next: F38F