Prev: 38425 Up: Map Next: 38654
38452: Routine at 9634
Used by the routine at 37488.
38452 LD A,(29191) Return if *29191 is not equal to 1.
38455 CP 1
38457 RET NZ
38458 LD HL,39332 HL=39332.
38461 LD IX,29184 IX=29184.
38465 DEC (HL) Decrease *HL by one.
38466 JR NZ,38521 Jump to 38521 if *HL is not zero.
38468 LD (HL),5 Write 5 to *HL.
38470 LD A,(39331) A=*39331.
38473 CP 0 Jump to 38491 if A is equal to 0.
38475 JR Z,38491
38477 DEC A Decrease A by one.
38478 LD (39331),A Write A to *39331.
38481 JR NZ,38491 Jump to 38491 if A is not zero.
38483 LD C,64 C=64.
38485 LD HL,20672 HL=20672 (screen buffer location).
38488 CALL ClearScreenArea Call ClearScreenArea.
38491 LD HL,39385 HL=39385.
38494 LD A,(39339) A=*39339.
38497 SRL A Shift A right four positions.
38499 SRL A
38501 SRL A
38503 SRL A
38505 INC A Increment A by one.
38506 LD (HL),A Write A to *HL.
38507 LD DE,61431 DE=ActivePlayerCash_01.
38510 LD B,2 B=2.
38512 CALL SpendMoney Call SpendMoney.
38515 JR C,38635 Jump to 38635 if A is lower.
38517 SET 1,(IX+0) Set bit 1 of *IX+0.
38521 BIT 0,(IX+0) Test bit 0 of *IX+0.
38525 JR Z,38577 Jump to 38577 if A is zero.
38527 LD DE,61431 DE=ActivePlayerCash_01.
38530 LD HL,39387 HL=39387.
38533 LD B,2 B=2.
38535 CALL AddMoney Call AddMoney.
38538 LD DE,61428 DE=ActivePlayerScore.
38541 LD HL,39389 HL=39389.
38544 LD B,3 B=3.
38546 CALL AddMoney Call AddMoney.
38549 LD DE,16417 DE=16417 (screen buffer location).
38552 LD BC,515 BC=0515.
38555 LD HL,61430 HL=61430.
38558 CALL PrintNumbers Call PrintNumbers.
38561 LD HL,39341 HL=39341.
38564 DEC (HL) Decrease *HL by one.
38565 JR NZ,38577 Jump to 38577 if *HL is not zero.
38567 LD HL,61434 HL=GameState_1.
38570 SET 0,(HL) Set bit 0 of *HL.
38572 LD SP,(39342) SP=*39342.
38576 RET Return.
38577 BIT 4,(IX+0) Test bit 4 of *IX+0.
38581 JR NZ,38591 Jump to 38591 if *HL is not zero.
38583 BIT 1,(IX+0) Test bit 1 of *IX+0.
38587 JR Z,38630 Jump to 38630 if *HL is zero.
38589 JR 38618 Jump to 38618.
38591 LD DE,61431 DE=ActivePlayerCash_01.
38594 LD HL,39392 HL=39392.
38597 LD B,2 B=2.
38599 CALL SpendMoney Call SpendMoney.
38602 JR C,38635 Jump to 38635 if *HL is lower.
38604 LD HL,39331 HL=39331.
38607 LD (HL),5 Write 5 to *HL.
38609 LD HL,(39383) HL=*39383.
38612 LD DE,20672 DE=20672 (screen buffer location).
38615 CALL 38740 Call 38740.
38618 LD DE,16443 DE=16443 (screen buffer location).
38621 LD BC,514 BC=0514.
38624 LD HL,61432 HL=ActivePlayerCash_02.
38627 CALL PrintNumbers Call PrintNumbers.
38630 LD (IX+0),0 Write 0 to *IX+0.
38634 RET Return.
38635 LD HL,0 Write 0000 to *ActivePlayerCash_01.
38638 LD (61431),HL
38641 CALL 38618 Call 38618.
38644 LD HL,61434 HL=GameState_1.
38647 SET 4,(HL) Set bit 4 of *HL.
38649 LD SP,(39342) SP=*39342.
38653 RET Return.
Prev: 38425 Up: Map Next: 38654