Routines
Prev: 47734 Up: Map Next: 47877
47797: Initialise: Munich
Initialise_Munich 47797 LD C,72 C=72.
47799 LD IX,25152 IX=25152.
47803 LD DE,6 DE=0006.
47806 LD HL,48458 HL=48458.
Initialise_Munich_0 47809 LD B,8 B=8.
47811 LD A,(HL) A=*HL.
Initialise_Munich_1 47812 RLCA RLCA.
47813 JR NC,Initialise_Munich_2 Jump to Initialise_Munich_2 if is higher.
47815 SET 7,(IX+0) Set bit 7 of *IX+0.
Initialise_Munich_2 47819 ADD IX,DE IX+=DE.
47821 DJNZ Initialise_Munich_1 Decrease counter by one and loop back to Initialise_Munich_1 until counter is zero.
47823 INC HL Increment HL by one.
47824 DEC C Decrease C by one.
47825 JR NZ,Initialise_Munich_0 Jump to Initialise_Munich_0 if C is not zero.
47827 LD HL,39570 Write 39570 to *39354.
47830 LD (39354),HL
47833 LD B,34 B=34.
47835 LD IX,48530 IX=48530.
47839 LD DE,24 Write 0024 to *37486.
47842 LD (37486),DE
47846 LD DE,29248 Write 29248 to *39352.
47849 LD (39352),DE
47853 CALL 37414 Call 37414.
47856 LD B,9 B=9.
47858 LD DE,48 Write 0048 to *37486.
47861 LD (37486),DE
47865 CALL 37414 Call 37414.
47868 LD A,7 Write 7 to:
  • *24978
  • *24984
47870 LD (24978),A
47873 LD (24984),A
47876 RET Return.
Prev: 47734 Up: Map Next: 47877