Routines
Prev: 51875 Up: Map Next: 51986
51947: Routine at CAEB
Used by the routines at QuarterFinals, SemiFinals and TheFinal.
51947 LD HL,51875 HL=51875.
51950 LD DE,24 DE=0024.
51953 OR A Set the bits from A.
51954 JR Z,51960 Jump to 51960 if the result is zero.
51956 LD B,A B=A.
51957 ADD HL,DE HL+=DE.
51958 DJNZ 51957 Decrease counter by one and loop back to 51957 until counter is zero.
51960 LD DE,46129 DE=46129.
51963 LD B,4 B=4.
51965 PUSH BC Stash BC on the stack.
51966 EX DE,HL Exchange the DE and HL registers.
51967 LD (HL),E Write E to *HL.
51968 INC HL Increment HL by one.
51969 LD (HL),D Write D to *HL.
51970 INC HL Increment HL by one.
51971 EX DE,HL Exchange the DE and HL registers.
51972 LD BC,6 HL+=0006.
51975 ADD HL,BC
51976 POP BC Restore BC from the stack.
51977 DJNZ 51965 Decrease counter by one and loop back to 51965 until counter is zero.
51979 EX DE,HL Exchange the DE and HL registers.
51980 DEC DE Decrease DE by two.
51981 DEC DE
51982 LD (HL),E Write E to *HL.
51983 INC HL Increment HL by one.
51984 LD (HL),D Write D to *HL.
51985 RET Return.
Prev: 51875 Up: Map Next: 51986