Routines
Prev: BA76 Up: Map Next: BB05
BAB5: Initialise: Munich
Initialise_Munich BAB5 LD C,$48 C=48.
BAB7 LD IX,$6240 IX=6240.
BABB LD DE,$0006 DE=0006.
BABE LD HL,$BD4A HL=BD4A.
Initialise_Munich_0 BAC1 LD B,$08 B=08.
BAC3 LD A,(HL) A=*HL.
Initialise_Munich_1 BAC4 RLCA RLCA.
BAC5 JR NC,Initialise_Munich_2 Jump to Initialise_Munich_2 if is higher.
BAC7 SET 7,(IX+$00) Set bit 7 of *IX+00.
Initialise_Munich_2 BACB ADD IX,DE IX+=DE.
BACD DJNZ Initialise_Munich_1 Decrease counter by one and loop back to Initialise_Munich_1 until counter is zero.
BACF INC HL Increment HL by one.
BAD0 DEC C Decrease C by one.
BAD1 JR NZ,Initialise_Munich_0 Jump to Initialise_Munich_0 if C is not zero.
BAD3 LD HL,$9A92 Write 9A92 to *99BA.
BAD6 LD ($99BA),HL
BAD9 LD B,$22 B=22.
BADB LD IX,$BD92 IX=BD92.
BADF LD DE,$0018 Write 0018 to *926E.
BAE2 LD ($926E),DE
BAE6 LD DE,$7240 Write 7240 to *99B8.
BAE9 LD ($99B8),DE
BAED CALL $9226 Call 9226.
BAF0 LD B,$09 B=09.
BAF2 LD DE,$0030 Write 0030 to *926E.
BAF5 LD ($926E),DE
BAF9 CALL $9226 Call 9226.
BAFC LD A,$07 Write 07 to:
  • *6192
  • *6198
BAFE LD ($6192),A
BB01 LD ($6198),A
BB04 RET Return.
Prev: BA76 Up: Map Next: BB05