Routines
Prev: 42298 Up: Map Next: 42812
42361: Routine at A579
Used by the routine at 41983.
42361 LD A,(24130) A=24130.
42364 AND %00000011 Keep only bits 0-1.
42366 RET NZ Return if the result is non-zero.
42367 CALL HandlerControls Call HandlerControls.
42370 BIT 4,A
42372 RET NZ
42373 LD HL,24576 HL=Laser_Param_1.
42376 LD DE,24 DE=0024.
42379 LD B,2 B=2 (counter).
42381 LD A,(HL)
42382 AND A
42383 JR Z,42389
42385 ADD HL,DE
42386 DJNZ 42381 Decrease counter by one and loop back to 42381 until counter is zero.
42388 RET Return.
42389 PUSH HL
42390 CALL 47456
42393 POP HL
42394 LD (HL),88
42396 INC HL
42397 INC HL
42398 EX DE,HL
42399 LD A,(IX+0)
42402 RLCA
42403 RLCA
42404 AND 60
42406 LD C,A
42407 LD B,0
42409 LD HL,42635
42412 ADD HL,BC
42413 LD A,(HL)
42414 LD B,0
42416 AND A
42417 JP P,42421
42420 DEC B
42421 ADD A,(IX+2)
42424 INC HL
42425 LD (DE),A
42426 INC DE
42427 LD A,(IX+3)
42430 ADC A,B
42431 AND 31
42433 LD (DE),A
42434 INC DE
42435 LD A,(IX+4)
42438 ADD A,(HL)
42439 INC HL
This entry point is used by the routine at 42298.
42440 LD (DE),A
42441 INC DE
42442 LD A,(HL)
42443 INC HL
42444 LD (DE),A
42445 INC DE
42446 LD A,(HL)
42447 INC HL
42448 LD (DE),A
42449 INC DE
42450 LD A,(24128)
42453 AND 3
42455 LD BC,42479
42458 ADD A,C
42459 LD C,A
42460 LD A,B
42461 ADC A,0
42463 LD B,A
42464 LD A,(BC)
42465 LD (DE),A
42466 INC DE
42467 LD A,32
42469 LD (DE),A
42470 INC DE
42471 LD B,15
42473 XOR A
42474 LD (DE),A
42475 INC DE
42476 DJNZ 42474
42478 RET
42479 LD B,H
42480 LD B,L
42481 LD B,(HL)
42482 LD B,A
42483 ADD A,(IX+16)
42486 LD C,A
42487 AND 15
42489 LD (IX+16),A
42492 LD A,C
42493 RRCA
42494 RRCA
42495 RRCA
42496 RRCA
42497 AND 15
42499 LD B,0
42501 JR 42558
42503 ADD A,(IX+17)
42506 LD C,A
42507 AND 15
42509 LD (IX+17),A
42512 LD A,C
42513 RRCA
42514 RRCA
42515 RRCA
42516 RRCA
42517 AND 15
42519 JR 42602
42521 DEC (IX+8)
42524 JP Z,42812
42527 LD A,(IX+5)
42530 AND A
42531 JP P,42483
42534 ADD A,(IX+16)
42537 LD C,A
42538 AND 15
42540 NEG
42542 LD (IX+16),A
42545 LD A,C
42546 NEG
42548 RRCA
42549 RRCA
42550 RRCA
42551 RRCA
42552 AND 15
42554 NEG
42556 LD B,255
42558 ADD A,(IX+2)
42561 LD (IX+2),A
42564 LD A,(IX+3)
42567 ADC A,B
42568 AND 31
42570 LD (IX+3),A
42573 LD A,(IX+6)
42576 AND A
42577 JP P,42503
42580 ADD A,(IX+17)
42583 LD C,A
42584 AND 15
42586 NEG
42588 LD (IX+17),A
42591 LD A,C
42592 NEG
42594 RRCA
42595 RRCA
42596 RRCA
42597 RRCA
42598 AND 15
42600 NEG
42602 ADD A,(IX+4)
42605 CP 175
42607 JP NC,42812
42610 CP 48
42612 JP C,42812
42615 LD (IX+4),A
42618 LD A,(IX+0)
42621 XOR 1
42623 LD (IX+0),A
42626 CALL 35699
42629 CALL 34611
42632 JP 42699
42635 RET M
42636 CALL M,192
42639 RET M
42640 LD SP,HL
42641 CALL NZ,63994
42644 OR 199
42646 EX (SP),HL
42647 LD SP,HL
42648 CALL P,57034
42651 CALL M,54258
42654 OUT (255),A
42656 RET P
42657 IN A,(204)
42659 LD BC,58352
42662 RST 0
42663 INC BC
42664 XOR 234
42666 CALL NZ,64528
42669 LD B,B
42670 NOP
42671 DJNZ 42666
42673 INC A
42674 JP M,62736
42677 ADD HL,SP
42678 EX (SP),HL
42679 RRCA
42680 DI
42681 LD (HL),222
42683 INC C
42684 JP P,54061
42687 ADD HL,BC
42688 RET P
42689 DEC H
42690 CALL Z,61192
42693 DEC E
42694 RST 0
42695 DEC B
42696 DEFB 237,22
42698 CALL NZ,6206
42701 LD (42790),A
42704 LD HL,25008
42707 LD DE,24
42710 LD B,6
42712 CALL 42738
42715 LD A,12
42717 LD (42790),A
42720 LD HL,24840
42723 LD B,1
42725 CALL 42738
42728 LD A,24
42730 LD (42790),A
42733 LD HL,24888
42736 LD B,1
42738 LD A,(HL)
42739 AND A
42740 PUSH BC
42741 PUSH DE
42742 PUSH HL
42743 CALL NZ,42753
42746 POP HL
42747 POP DE
42748 POP BC
42749 ADD HL,DE
42750 DJNZ 42738
42752 RET
42753 INC HL
42754 INC HL
42755 EX DE,HL
42756 LD A,(DE)
42757 INC DE
42758 LD C,A
42759 LD A,(DE)
42760 INC DE
42761 LD B,A
42762 LD HL,8
42765 ADD HL,BC
42766 LD C,(IX+2)
42769 LD B,(IX+3)
42772 AND A
42773 SBC HL,BC
42775 LD A,H
42776 AND 31
42778 RET NZ
42779 LD A,L
42780 CP 16
42782 RET NC
42783 LD A,(DE)
42784 ADD A,4
42786 SUB (IX+4)
42789 CP 24
42791 RET NC
42792 EX DE,HL
42793 LD BC,12
42796 ADD HL,BC
42797 SET 0,(HL)
42799 CALL 35560
42802 LD (IX+0),0
42806 POP HL
42807 POP HL
42808 POP HL
42809 POP HL
42810 POP HL
42811 RET
Prev: 42298 Up: Map Next: 42812