Prev: 51368 Up: Map Next: 51563
51392: Bonus Print
Used by the routine at 50171.
BonusPrint 51392 LD HL,16384
51395 LD DE,16385
51398 LD BC,6143
51401 LD (HL),0
51403 LDIR
51405 LD HL,22528
51408 LD DE,22529
51411 LD BC,767
51414 LD (HL),7
51416 LDIR
51418 LD DE,51368 DE=BonusCopy (text).
51421 LD BC,24 BC=24 (counter).
51424 CALL 8252 Call PR_STRING.
51427 LD A,7
51429 LD (23693),A
51432 LD B,30
BonusPrint_0 51434 HALT
51435 DJNZ BonusPrint_0
51437 LD A,(23441)
51440 LD B,0
51442 LD C,A
BonusPrint_1 51443 PUSH HL
51444 PUSH BC
51445 PUSH DE
51446 LD HL,(23438)
51449 INC HL
51450 LD (23438),HL
51453 CALL 51529
51456 CALL BonusPrint_3
51459 POP DE
51460 POP BC
51461 POP HL
51462 DEC BC
51463 XOR A
51464 CP C
51465 JP NZ,BonusPrint_1
51468 CP B
51469 JP NZ,BonusPrint_1
51472 LD B,30
BonusPrint_2 51474 HALT
51475 DJNZ BonusPrint_2
51477 LD HL,16384
51480 LD DE,16385
51483 LD BC,6911
51486 LD (HL),0
51488 LDIR
51490 RET
BonusPrint_3 51491 PUSH HL
51492 PUSH DE
51493 PUSH BC
51494 LD A,C
51495 AND 31
51497 LD B,A
BonusPrint_4 51498 PUSH BC
51499 LD DE,1
51502 LD A,B
51503 OR 1
51505 RLCA
51506 LD L,A
51507 LD H,0
51509 CALL 949
51512 POP BC
51513 DJNZ BonusPrint_4
51515 POP BC
51516 POP DE
51517 POP HL
51518 RET
51519 LD D,14
51521 LD A,(BC)
51522 LD D,E
51523 LD B,E
51524 LD C,A
51525 LD D,D
51526 LD B,L
51527 LD A,(4384)
51530 CCF
51531 RET
51532 LD BC,10
51535 LD A,0
51537 LD (23659),A
51540 CALL 8252
51543 LD A,2
51545 LD (23659),A
51548 LD HL,(23438)
51551 PUSH HL
51552 POP BC
51553 CALL 11563
51556 CALL 11747
51559 LD A,48
51561 RST 16
51562 RET
Prev: 51368 Up: Map Next: 51563