RNG1
From A complete guide to Super Metroid speedrunning
Ordered list of places in the game´s code (http://old.metroidconstruction.com/docs/pjboydissassemblylist.txt) at which the RNG routine ($05E5) is called (the corresponding lines are highlighted via stars at the beginning and the end of the line), together with the relevant surrounding code (the list in here is complete, but only with respect to PJBoy´s dissassembly list):
Routines/Subroutines that contain the following structure:
$(...) LDA $05E5 (...)
$(...) AND $0001
$(...) BEQ (...)
Those are listed above, separately, since those are the ones that contain RNG-dependent results where the RNG-dependency is decided by the parity (odd or even) of the RNG value.
7. --- $86AD5E db EB $86AD60 db AD, AC, 15, AB, 07, 07, 08, 90, 00, 00, 68, AB $86AD7A db 7C $86AD7C db FA, AC, 15, AB, 07, 07, 50, B0 $86AD86 db 68, AB $86ADD2 db 12, 83, 48, 06, 00, 3F, 8D, 06, 00, 55, 8D, 50, 00, 75, 8D $86ADE5 db 6A, 81, 52, 82, 5C, 82, 84, 82, D5, 81, 05, 00, BE, A3, DF, 81, 0F, 00, 1F, 00, 02, 00, 9C, 8D, 02, 00, A3, 8D, 03, 00, B9, 8D, 03, 00, CF, 8D, 02, 00, E5, 8D, DE, 81, C6, 81, F1, AD, 54, 81 $86AE15 22 11 81 80 JSL $808111[$80:8111] $86AE19 AE 54 0E LDX $0E54 [$86:0E54] *$86AE1C AD E5 05 LDA $05E5 [$86:05E5]* $86AE1F 29 01 00 AND #$0001 $86AE22 F0 05 BEQ $05 [$AE29] $86AE24 A9 F4 FF LDA #$FFF4 $86AE27 80 03 BRA $03 [$AE2C] $86AE29 A9 14 00 LDA #$0014 $86AE2C 18 CLC $86AE2D 7D 7E 0F ADC $0F7E,x[$86:0F7E] $86AE30 99 93 1A STA $1A93,y[$86:1AA1] $86AE33 A9 00 00 LDA #$0000 $86AE36 99 DB 1A STA $1ADB,y[$86:1AE9] $86AE39 3C B4 0F BIT $0FB4,x[$86:0FB4] $86AE3C 30 17 BMI $17 [$AE55] $86AE55 BD 7A 0F LDA $0F7A,x[$86:0F7A] $86AE58 18 CLC $86AE59 69 20 00 ADC #$0020 $86AE5C 99 4B 1A STA $1A4B,y[$86:1A59] $86AE5F A9 70 02 LDA #$0270 $86AE62 99 B7 1A STA $1AB7,y[$86:1AC5] $86AE65 A9 D2 AD LDA #$ADD2 $86AE68 99 47 1B STA $1B47,y[$86:1B55] $86AE6B 60 RTS --- 43. --- $A5899A 9C AA 0F STZ $0FAA [$A5:0FAA] *$A5899D AD E5 05 LDA $05E5 [$A5:05E5]* $A589A0 29 01 00 AND #$0001 $A589A3 F0 07 BEQ $07 [$89AC] $A589A5 A9 B3 89 LDA #$89B3 $A589A8 8D A8 0F STA $0FA8 [$A5:0FA8] $A589AB 60 RTS --- 44. --- *$A58ADC AD E5 05 LDA $05E5 [$A5:05E5]* $A58ADF 29 01 00 AND #$0001 $A58AE2 F0 18 BEQ $18 [$8AFC] $A58AE4 A9 F4 87 LDA #$87F4 $A58AE7 8D A8 0F STA $0FA8 [$A5:0FA8] $A58AEA 9C AA 0F STZ $0FAA [$A5:0FAA] $A58AED AF 00 78 7E LDA $7E7800[$7E:7800] $A58AF1 8D 7A 0F STA $0F7A [$A5:0F7A] $A58AF4 AF 02 78 7E LDA $7E7802[$7E:7802] $A58AF8 8D 7E 0F STA $0F7E [$A5:0F7E] $A58AFB 60 RTS --- 61. --- $A6BF1A A9 06 78 LDA #$7806 $A6BF1D 20 CB DB JSR $DBCB [$A6:DBCB] $A6BF20 AF 04 88 7E LDA $7E8804[$7E:8804] $A6BF24 85 12 STA $12 [$00:0012] $A6BF26 AF 08 88 7E LDA $7E8808[$7E:8808] $A6BF2A 85 14 STA $14 [$00:0014] $A6BF2C 64 16 STZ $16 [$00:0016] $A6BF2E 4C 13 DC JMP $DC13 [$A6:DC13] $A6BF31 db F2, BF $A6BF35 db 0A, 00, FD, BF, 0A, 00, 18, C0, 0A, 00, 33, C0, 0A, 00, 18, C0, F2, BF $A6BF49 db 0A, 00, FD, BF, 0A, 00, 18, C0, 0A, 00, 33, C0, 0A, 00, 18, C0, C9, BF, 31, BF, E1, BF, 0F, E2, 06, 00, FD, BF, E1, BF, 2D, E2, 05, 00, 18, C0, E1, BF, 4B, E2, 04, 00, 33, C0, E1, BF, 2D, E2, 03, 00, 18, C0, E1, BF, 0F, E2, 02, 00, FD, BF, E1, BF, 2D, E2, 03, 00, 18, C0, E1, BF, 4B, E2, 04, 00, 33, C0, E1, BF, 2D, E2, 05, 00, 18, C0, E1, BF, 0F, E2, 06, 00, FD, BF, E1, BF, 2D, E2, 07, 00, 18, C0, E1, BF, 4B, E2, 08, 00, 33, C0, E1, BF, 2D, E2, 09, 00, 18, C0, E1, BF, F1, E1, F2, BF $A6BFC5 db F8, BF, 31, BF $A6BFC9 AF 0C 88 7E LDA $7E880C[$7E:880C] $A6BFCD D0 08 BNE $08 [$BFD7] *$A6BFCF AD E5 05 LDA $05E5 [$A6:05E5]* $A6BFD2 29 01 00 AND #$0001 $A6BFD5 D0 21 BNE $21 [$BFF8] $A6BFD7 A9 24 00 LDA #$0024 $A6BFDA 22 4D 91 80 JSL $80914D[$80:914D] $A6BFDE E8 INX $A6BFDF E8 INX $A6BFE0 60 RTS ---
Routines/Subroutines in which 2 cases are distinguished depending on the RNG value (similar to the odd/even case, but differently). A jump in the code is executed or not, depending on if for an RNG value VWXY, Y is either among the values 0,1,4,5,8,9,C,D, or among the values 2,3,6,7,A,B,E,F. At the instruction BIT $0002, since 0x0002 has a binary representation of 0010, the game checks if this 1 occurs in the binary representation of the RNG value or if it doesn't:
41. --- $A49108 20 6C 91 JSR $916C [$A4:916C] $A4910B AD 7E 0F LDA $0F7E [$A4:0F7E] $A4910E A0 64 BF LDY #$BF64 $A49111 C9 18 01 CMP #$0118 $A49114 10 13 BPL $13 [$9129] $A49116 A0 6C BF LDY #$BF6C $A49119 C9 08 01 CMP #$0108 $A4911C 10 0B BPL $0B [$9129] $A4911E A0 72 BF LDY #$BF72 $A49121 C9 F8 00 CMP #$00F8 $A49124 10 03 BPL $03 [$9129] $A49126 A0 78 BF LDY #$BF78 $A49129 98 TYA $A4912A 8D 92 0F STA $0F92 [$A4:0F92] $A4912D A9 01 00 LDA #$0001 $A49130 8D 94 0F STA $0F94 [$A4:0F94] $A49133 4C C1 91 JMP $91C1 [$A4:91C1] $A49136 AF 16 90 7E LDA $7E9016[$7E:9016] $A4913A C9 16 00 CMP #$0016 $A4913D 30 03 BMI $03 [$9142] $A4913F 4C BA 91 JMP $91BA [$A4:91BA] $A49142 AA TAX $A49143 1A INC A $A49144 1A INC A $A49145 8F 16 90 7E STA $7E9016[$7E:9016] $A49149 BD 56 91 LDA $9156,x[$A4:9156] $A4914C A0 9D 8F LDY #$8F9D $A4914F 22 27 80 86 JSL $868027[$86:8027] $A49153 4C BA 91 JMP $91BA [$A4:91BA] $A49156 db 80, 07, 30, 07, 90, 07, 40, 07, B0, 07, 60, 07, A0, 07, 70, 07, 10, 07, 50, 07, 20, 07 $A4916C AF 18 90 7E LDA $7E9018[$7E:9018] $A49170 3A DEC A $A49171 8F 18 90 7E STA $7E9018[$7E:9018] $A49175 D0 42 BNE $42 [$91B9] $A49177 A9 06 00 LDA #$0006 $A4917A 8F 18 90 7E STA $7E9018[$7E:9018] *$A4917E AD E5 05 LDA $05E5 [$A4:05E5]* $A49181 29 3F 00 AND #$003F $A49184 AA TAX *$A49185 AD E5 05 LDA $05E5 [$A4:05E5]* $A49188 89 02 00 BIT #$0002 $A4918B D0 05 BNE $05 [$9192] $A4918D 8A TXA $A4918E 49 FF FF EOR #$FFFF $A49191 AA TAX $A49192 8A TXA $A49193 18 CLC $A49194 6D 7A 0F ADC $0F7A [$A4:0F7A] $A49197 85 12 STA $12 [$00:0012] *$A49199 AD E5 05 LDA $05E5 [$A4:05E5]* $A4919C 29 00 1F AND #$1F00 $A4919F EB XBA $A491A0 85 14 STA $14 [$00:0014] $A491A2 AD 62 19 LDA $1962 [$A4:1962] $A491A5 18 CLC $A491A6 69 10 00 ADC #$0010 $A491A9 38 SEC $A491AA E5 14 SBC $14 [$00:0014] $A491AC 85 14 STA $14 [$00:0014] $A491AE A9 15 00 LDA #$0015 $A491B1 85 16 STA $16 [$00:0016] $A491B3 64 18 STZ $18 [$00:0018] $A491B5 22 26 BC B4 JSL $B4BC26[$B4:BC26] $A491B9 60 RTS --- 68. --- $A7C995 AD B5 05 LDA $05B5 [$A7:05B5] $A7C998 89 02 00 BIT #$0002 *$A7C99B AD E5 05 LDA $05E5 [$A7:05E5]* $A7C99E 29 3F 00 AND #$003F $A7C9A1 AA TAX *$A7C9A2 AD E5 05 LDA $05E5 [$A7:05E5]* $A7C9A5 89 02 00 BIT #$0002 $A7C9A8 D0 05 BNE $05 [$C9AF] $A7C9AA 8A TXA $A7C9AB 49 FF FF EOR #$FFFF $A7C9AE AA TAX $A7C9AF 8A TXA $A7C9B0 18 CLC $A7C9B1 6D 7A 0F ADC $0F7A [$A7:0F7A] $A7C9B4 85 12 STA $12 [$00:0012] *$A7C9B6 AD E5 05 LDA $05E5 [$A7:05E5]* $A7C9B9 29 00 3F AND #$3F00 $A7C9BC EB XBA $A7C9BD 85 14 STA $14 [$00:0014] $A7C9BF A9 C0 01 LDA #$01C0 $A7C9C2 38 SEC $A7C9C3 E5 14 SBC $14 [$00:0014] $A7C9C5 85 14 STA $14 [$00:0014] $A7C9C7 A9 15 00 LDA #$0015 $A7C9CA 85 16 STA $16 [$00:0016] $A7C9CC 64 18 STZ $18 [$00:0018] $A7C9CE 22 26 BC B4 JSL $B4BC26[$B4:BC26] $A7C9D2 A0 61 9C LDY #$9C61 *$A7C9D5 AD E5 05 LDA $05E5 [$A7:05E5]* $A7C9D8 89 10 00 BIT #$0010 $A7C9DB F0 03 BEQ $03 [$C9E0] $A7C9DD A0 6F 9C LDY #$9C6F $A7C9E0 AE 54 0E LDX $0E54 [$A7:0E54] *$A7C9E3 AD E5 05 LDA $05E5 [$A7:05E5]* $A7C9E6 29 F0 03 AND #$03F0 $A7C9E9 22 27 80 86 JSL $868027[$86:8027] $A7C9ED 60 RTS ---
In the following routine/subroutine, the game jumps in the code or doesn't, depending on the RNG value, and the decision is done by checking for an RNG value VWXY, if Y is among 0 and 8 or if it isn't.
66. --- $A7ADE9 A9 A4 AE LDA #$AEA4 $A7ADEC 8D A8 0F STA $0FA8 [$A7:0FA8] $A7ADEF AD 7E 0F LDA $0F7E [$A7:0F7E] $A7ADF2 38 SEC $A7ADF3 E9 14 00 SBC #$0014 $A7ADF6 8D FE 0F STA $0FFE [$A7:0FFE] $A7ADF9 AD 7E 0F LDA $0F7E [$A7:0F7E] $A7ADFC 18 CLC $A7ADFD 69 2E 00 ADC #$002E $A7AE00 8D 3E 10 STA $103E [$A7:103E] $A7AE03 AD 7E 0F LDA $0F7E [$A7:0F7E] $A7AE06 18 CLC $A7AE07 69 70 00 ADC #$0070 $A7AE0A 8D 7E 10 STA $107E [$A7:107E] *$A7AE0D AD E5 05 LDA $05E5 [$A7:05E5]* $A7AE10 29 07 00 AND #$0007 $A7AE13 D0 03 BNE $03 [$AE18] $A7AE18 0A ASL A $A7AE19 0A ASL A $A7AE1A 0A ASL A $A7AE1B 0A ASL A $A7AE1C 0A ASL A $A7AE1D 0A ASL A $A7AE1E 8F 06 78 7E STA $7E7806[$7E:7806] $A7AE22 60 RTS ---
In the following routine/subroutine, the game jumps in the code or doesn't, depending on the RNG value, and the decision is done by checking for an RNG value VWXY, if Y is among 0, 4, 8, C or if it isn't.
74. --- $A8DF33 5A PHY $A8DF34 A9 02 00 LDA #$0002 $A8DF37 80 E7 BRA $E7 [$DF20] $A8DF39 5A PHY $A8DF3A A9 04 00 LDA #$0004 $A8DF3D 80 E1 BRA $E1 [$DF20] $A8DF3F AE 54 0E LDX $0E54 [$A8:0E54] $A8DF42 A9 4B DE LDA #$DE4B $A8DF45 9D A8 0F STA $0FA8,x[$A8:10E8] *$A8DF48 AD E5 05 LDA $05E5 [$A8:05E5]* $A8DF4B 29 03 00 AND #$0003 $A8DF4E D0 03 BNE $03 [$DF53] $A8DF50 A9 02 00 LDA #$0002 $A8DF53 9F 08 78 7E STA $7E7808,x[$7E:7948] $A8DF57 A0 E7 DB LDY #$DBE7 $A8DF5A BD AE 0F LDA $0FAE,x[$A8:10EE] $A8DF5D 30 03 BMI $03 [$DF62] $A8DF5F A0 57 DC LDY #$DC57 $A8DF62 6B RTL ---
In the following routine/subroutine, the game jumps in the code or doesn't, depending on the RNG value, and the decision is done by checking for an RNG value VWXY, if all the following conditions hold or don't all hold: V is among 0,1,2,3,4,5,6,7 (i.e. strictly less than 8). W is among 0,2,4,6,8,A,C,E (i.e. even). X is among 0,1,2,3,8,9,A,B. Y is among 0,1,4,5,8,9,C,D.
100. --- $AAC620 AD 9F 07 LDA $079F [$AA:079F] $AAC623 F0 03 BEQ $03 [$C628] $AAC625 4C 42 C6 JMP $C642 [$AA:C642] *$AAC628 AD E5 05 LDA $05E5 [$AA:05E5]* $AAC62B 29 42 81 AND #$8142 $AAC62E D0 11 BNE $11 [$C641] $AAC630 BD 8C 0F LDA $0F8C,x[$AA:0F8C] $AAC633 F0 0C BEQ $0C [$C641] $AAC635 C9 5E 01 CMP #$015E $AAC638 B0 07 BCS $07 [$C641] $AAC63A A0 69 A9 LDY #$A969 $AAC63D 22 27 80 86 JSL $868027[$86:8027] $AAC641 60 RTS ---
Routines/Subroutines that contain the following structure:
$(...) LDA $05E5 (...)
$(...) AND $0101
$(...) BEQ (...)
Those are listed next, separately, since those are the ones that contain RNG-dependent results where the RNG-dependency is decided by the parity (odd or even) of each of the high byte and the low byte of the RNG value, such that at least 2 cases are distinguished (and at most 4), and the game then either continues to work with one of the values 0001,0100,0101, or continues to work with the value 0000 (at a different place):
35. --- *$A2C2E7 AD E5 05 LDA $05E5 [$A2:05E5]* $A2C2EA 29 01 01 AND #$0101 $A2C2ED F0 09 BEQ $09 [$C2F8] $A2C2EF A9 C0 00 LDA #$00C0 $A2C2F2 22 9B BB A0 JSL $A0BB9B[$A0:BB9B] $A2C2F6 90 14 BCC $14 [$C30C] $A2C2F8 BF 02 78 7E LDA $7E7802,x[$7E:7882] $A2C2FC F0 0D BEQ $0D [$C30B] $A2C30B 6B RTL --- 37. --- *$A2C771 AD E5 05 LDA $05E5 [$A2:05E5]* $A2C774 29 01 01 AND #$0101 $A2C777 F0 09 BEQ $09 [$C782] $A2C779 A9 70 00 LDA #$0070 $A2C77C 22 9B BB A0 JSL $A0BB9B[$A0:BB9B] $A2C780 90 0E BCC $0E [$C790] $A2C782 A9 00 00 LDA #$0000 $A2C785 9F 02 78 7E STA $7E7802,x[$7E:7982] $A2C789 A9 1A C6 LDA #$C61A $A2C78C 20 A3 C8 JSR $C8A3 [$A2:C8A3] $A2C78F 6B RTL ---
In the following subroutines/routines, up to 16 cases are distinguished (but at least 2 cases, namely if the value is 0000 or not), in the way that the game continues to work with one of the values 0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111, or it continues with the value 0000 (at a different place):
45. --- $A58BAE 20 AA 87 JSR $87AA [$A5:87AA] $A58BB1 AD 66 0A LDA $0A66 [$A5:0A66] $A58BB4 D0 63 BNE $63 [$8C19] *$A58BB6 AD E5 05 LDA $05E5 [$A5:05E5]* $A58BB9 29 0F 00 AND #$000F $A58BBC D0 17 BNE $17 [$8BD5] $A58BBE AF 06 78 7E LDA $7E7806[$7E:7806] $A58BC2 3A DEC A $A58BC3 8F 06 78 7E STA $7E7806[$7E:7806] $A58BC7 F0 4B BEQ $4B [$8C14] $A58BC9 A0 90 9C LDY #$9C90 $A58BCC 8C 92 0F STY $0F92 [$A5:0F92] $A58BCF A9 01 00 LDA #$0001 $A58BD2 8D 94 0F STA $0F94 [$A5:0F94] $A58BD5 A9 20 00 LDA #$0020 $A58BD8 8D 32 0E STA $0E32 [$A5:0E32] $A58BDB AF 1A 78 7E LDA $7E781A[$7E:781A] $A58BDF 22 B2 B0 A0 JSL $A0B0B2[$A0:B0B2] $A58BE3 18 CLC $A58BE4 69 80 01 ADC #$0180 $A58BE7 8D 7E 0F STA $0F7E [$A5:0F7E] $A58BEA AF 1A 78 7E LDA $7E781A[$7E:781A] $A58BEE 18 CLC $A58BEF 69 01 00 ADC #$0001 $A58BF2 29 FF 00 AND #$00FF $A58BF5 8F 1A 78 7E STA $7E781A[$7E:781A] $A58BF9 AD 7C 0F LDA $0F7C [$A5:0F7C] $A58BFC 18 CLC $A58BFD 6D B0 0F ADC $0FB0 [$A5:0FB0] $A58C00 8D 7C 0F STA $0F7C [$A5:0F7C] $A58C03 AD 7A 0F LDA $0F7A [$A5:0F7A] $A58C06 6D AE 0F ADC $0FAE [$A5:0FAE] $A58C09 8D 7A 0F STA $0F7A [$A5:0F7A] $A58C0C 30 05 BMI $05 [$8C13] $A58C0E C9 A0 02 CMP #$02A0 $A58C11 10 01 BPL $01 [$8C14] $A58C13 60 RTS --- 46. --- $A58D30 AD 66 0A LDA $0A66 [$A5:0A66] $A58D33 D0 63 BNE $63 [$8D98] *$A58D35 AD E5 05 LDA $05E5 [$A5:05E5]* $A58D38 29 0F 00 AND #$000F $A58D3B D0 17 BNE $17 [$8D54] $A58D3D AF 06 78 7E LDA $7E7806[$7E:7806] $A58D41 3A DEC A $A58D42 8F 06 78 7E STA $7E7806[$7E:7806] $A58D46 F0 4B BEQ $4B [$8D93] $A58D48 A0 FE 98 LDY #$98FE $A58D4B 8C 92 0F STY $0F92 [$A5:0F92] $A58D4E A9 01 00 LDA #$0001 $A58D51 8D 94 0F STA $0F94 [$A5:0F94] $A58D54 A9 20 00 LDA #$0020 $A58D57 8D 32 0E STA $0E32 [$A5:0E32] $A58D5A AF 1A 78 7E LDA $7E781A[$7E:781A] $A58D5E 22 B2 B0 A0 JSL $A0B0B2[$A0:B0B2] $A58D62 18 CLC $A58D63 69 80 01 ADC #$0180 $A58D66 8D 7E 0F STA $0F7E [$A5:0F7E] $A58D69 AF 1A 78 7E LDA $7E781A[$7E:781A] $A58D6D 18 CLC $A58D6E 69 01 00 ADC #$0001 $A58D71 29 FF 00 AND #$00FF $A58D74 8F 1A 78 7E STA $7E781A[$7E:781A] $A58D78 AD 7C 0F LDA $0F7C [$A5:0F7C] $A58D7B 38 SEC $A58D7C ED B0 0F SBC $0FB0 [$A5:0FB0] $A58D7F 8D 7C 0F STA $0F7C [$A5:0F7C] $A58D82 AD 7A 0F LDA $0F7A [$A5:0F7A] $A58D85 ED AE 0F SBC $0FAE [$A5:0FAE] $A58D88 8D 7A 0F STA $0F7A [$A5:0F7A] $A58D8B 10 05 BPL $05 [$8D92] $A58D92 60 RTS ---
In the following subroutine/routine, up to 256 cases are distinguished (but at least 2 cases, namely if the low byte is 0000 or not), in the way that the game continues to work with any low non-zero low byte value or it continues with the low byte value 0x00 (at a different place):
47. --- $A58FD6 AD 64 0A LDA $0A64 [$A5:0A64] $A58FD9 89 01 00 BIT #$0001 $A58FDC F0 1D BEQ $1D [$8FFB] *$A58FFB AD E5 05 LDA $05E5 [$A5:05E5]* $A58FFE 29 FF 00 AND #$00FF $A59001 D0 0E BNE $0E [$9011] $A59003 A9 40 00 LDA #$0040 $A59006 8F 18 78 7E STA $7E7818[$7E:7818] $A5900A A9 D4 90 LDA #$90D4 $A5900D 8D A8 0F STA $0FA8 [$A5:0FA8] $A59010 60 RTS ---
In the following Routine/Subroutine, the RNG value is normalized to 0x0061 which is the initial RNG value with which the game starts:
2. --- $80841C 78 SEI $80841D 18 CLC $80841E FB XCE $80841F 5C 23 84 80 JMP $808423[$80:8423] $808423 E2 20 SEP #$20 $808425 A9 01 LDA #$01 $808427 8D 0D 42 STA $420D [$00:420D] $80842A 85 86 STA $86 [$00:0086] $80842C C2 30 REP #$30 $80842E A2 FF 1F LDX #$1FFF $808431 9A TXS $808432 A9 00 00 LDA #$0000 $808435 5B TCD $808436 4B PHK $808437 AB PLB $808438 E2 30 SEP #$30 $80843A A2 04 LDX #$04 $80843C AD 12 42 LDA $4212 [$80:4212] $80843F 10 FB BPL $FB [$843C] $808441 AD 12 42 LDA $4212 [$80:4212] $808444 30 FB BMI $FB [$8441] $808446 CA DEX $808447 D0 F3 BNE $F3 [$843C] $808449 C2 30 REP #$30 $80844B A2 FE 1F LDX #$1FFE $80844E 9E 00 00 STZ $0000,x[$80:1FFE] $808451 CA DEX $808452 CA DEX $808453 10 F9 BPL $F9 [$844E] $808455 22 46 91 8B JSL $8B9146[$8B:9146] $808459 22 0A 80 80 JSL $80800A[$80:800A] $80845D db 00, 80, CF $808460 80 20 BRA $20 [$8482] $808482 E2 20 SEP #$20 $808484 A9 8F LDA #$8F $808486 8D 00 21 STA $2100 [$80:2100] $808489 C2 30 REP #$30 $80848B F4 00 7E PEA $7E00 $80848E AB PLB $80848F AB PLB $808490 A2 FE 1F LDX #$1FFE $808493 9E 00 00 STZ $0000,x[$7E:1FFE] $808496 9E 00 20 STZ $2000,x[$7E:3FFE] $808499 9E 00 40 STZ $4000,x[$7E:5FFE] $80849C 9E 00 60 STZ $6000,x[$7E:7FFE] $80849F 9E 00 80 STZ $8000,x[$7E:9FFE] $8084A2 9E 00 A0 STZ $A000,x[$7E:BFFE] $8084A5 9E 00 C0 STZ $C000,x[$7E:DFFE] $8084A8 9E 00 E0 STZ $E000,x[$7E:FFFE] $8084AB CA DEX $8084AC CA DEX $8084AD 10 E4 BPL $E4 [$8493] $8084AF 4B PHK $8084B0 AB PLB $8084B1 E2 30 SEP #$30 $8084B3 9C 00 42 STZ $4200 [$80:4200] $8084B6 64 84 STZ $84 [$00:0084] $8084B8 A9 8F LDA #$8F $8084BA 85 51 STA $51 [$00:0051] $8084BC 20 5D 87 JSR $875D [$80:875D] $8084BF 20 92 87 JSR $8792 [$80:8792] $8084C2 20 D1 88 JSR $88D1 [$80:88D1] $8084C5 E2 20 SEP #$20 $8084C7 9C 43 06 STZ $0643 [$80:0643] $8084CA 9C 44 06 STZ $0644 [$80:0644] $8084CD 9C 45 06 STZ $0645 [$80:0645] $8084D0 9C 46 06 STZ $0646 [$80:0646] $8084D3 9C 47 06 STZ $0647 [$80:0647] $8084D6 9C 48 06 STZ $0648 [$80:0648] $8084D9 9C 49 06 STZ $0649 [$80:0649] $8084DC 9C 4A 06 STZ $064A [$80:064A] $8084DF 9C 4B 06 STZ $064B [$80:064B] $8084E2 9C 4D 06 STZ $064D [$80:064D] $8084E5 9C 4E 06 STZ $064E [$80:064E] $8084E8 9C 4F 06 STZ $064F [$80:064F] $8084EB 9C 50 06 STZ $0650 [$80:0650] $8084EE 9C 51 06 STZ $0651 [$80:0651] $8084F1 9C 52 06 STZ $0652 [$80:0652] $8084F4 9C 56 06 STZ $0656 [$80:0656] $8084F7 9C 66 06 STZ $0666 [$80:0666] $8084FA 9C 76 06 STZ $0676 [$80:0676] $8084FD C2 20 REP #$20 $8084FF 9C 90 05 STZ $0590 [$80:0590] $808502 64 53 STZ $53 [$00:0053] $808504 22 1A 8B 80 JSL $808B1A[$80:8B1A] $808508 22 6E 89 80 JSL $80896E[$80:896E] $80850C 9C 1D 07 STZ $071D [$80:071D] $80850F 9C 1F 07 STZ $071F [$80:071F] $808512 9C 21 07 STZ $0721 [$80:0721] $808515 22 4B 83 80 JSL $80834B[$80:834B] $808519 C2 30 REP #$30 $80851B 9C 40 21 STZ $2140 [$80:2140] $80851E 9C 42 21 STZ $2142 [$80:2142] $808521 E2 30 SEP #$30 $808523 A2 04 LDX #$04 $808525 AD 12 42 LDA $4212 [$80:4212] $808528 10 FB BPL $FB [$8525] $80852A AD 12 42 LDA $4212 [$80:4212] $80852D 30 FB BMI $FB [$852A] $80852F CA DEX $808530 D0 F3 BNE $F3 [$8525] $808532 C2 30 REP #$30 $808534 A9 61 00 LDA #$0061 *$808537 8D E5 05 STA $05E5 [$80:05E5]* $80853A A9 00 00 LDA #$0000 $80853D 8D 3F 06 STA $063F [$80:063F] $808540 8D 29 06 STA $0629 [$80:0629] $808543 8D 2B 06 STA $062B [$80:062B] $808546 8D 2D 06 STA $062D [$80:062D] $808549 8D 2F 06 STA $062F [$80:062F] $80854C 8D 31 06 STA $0631 [$80:0631] $80854F 8D 33 06 STA $0633 [$80:0633] $808552 8D 35 06 STA $0635 [$80:0635] $808555 8D 37 06 STA $0637 [$80:0637] $808558 AF 04 80 80 LDA $808004[$80:8004] $80855C 8D D1 05 STA $05D1 [$80:05D1] $80855F 20 F6 85 JSR $85F6 [$80:85F6] $808562 C2 30 REP #$30 $808564 22 61 82 80 JSL $808261[$80:8261] $808568 9C F5 05 STZ $05F5 [$80:05F5] $80856B 9C 86 06 STZ $0686 [$80:0686] $80856E 5C 3D 89 82 JMP $82893D[$82:893D] $80858C 08 PHP $80858D C2 30 REP #$30 $80858F AD 9F 07 LDA $079F [$81:079F] $808592 EB XBA $808593 AA TAX $808594 A0 00 00 LDY #$0000 $808597 BF 52 CD 7E LDA $7ECD52,x[$7E:CD52] $80859B 99 F7 07 STA $07F7,y[$81:07F7] $80859E E8 INX $80859F E8 INX $8085A0 C8 INY $8085A1 C8 INY $8085A2 C0 00 01 CPY #$0100 $8085A5 30 F0 BMI $F0 [$8597] $8085A7 AE 9F 07 LDX $079F [$81:079F] $8085AA BF 08 D9 7E LDA $7ED908,x[$7E:D908] $8085AE 29 FF 00 AND #$00FF $8085B1 8D 89 07 STA $0789 [$81:0789] $8085B4 28 PLP $8085B5 6B RTL ---
In the following Routine/Subroutine, the RNG value is normalized to 0x0011 which is the same that the Polyp enemy (volcanic rocks) normalizes the RNG value to:
34. --- $A2B4AA db 01, 00, F8, 81, F8, 00, 21, 01, 00, F8, 81, F8, 02, 21, 01, 00, F8, 81, F8, 04, 21, 01, 00, F8, 81, F8, 06, 21, 01, 00, F8, 81, F8, 08, 21, 01, 00, F8, 81, F8, 0A, 21, 01, 00, F8, 81, F8, 0C, 21, 01, 00, F8, 81, F8, 0E, 21 $A2B51A db 01, 00, FB, B5, 2F, 81, 10, 00 $A2B524 db 20, 00 $A2B528 db 30, 00 $A2B52E db 48, 00 $A2B536 db 1F, 00 $A2B542 db 25, 00, 26, 00 $A2B548 db 28, 00 $A2B556 db 90, 00 $A2B560 db A0, FF $A2B56A db 50, FF $A2B570 AE 54 0E LDX $0E54 [$A2:0E54] $A2B573 A9 1A B5 LDA #$B51A $A2B576 9D 92 0F STA $0F92,x[$A2:1112] $A2B579 A9 01 00 LDA #$0001 $A2B57C 9D 94 0F STA $0F94,x[$A2:1114] $A2B57F 9E 90 0F STZ $0F90,x[$A2:1110] $A2B582 A9 96 B5 LDA #$B596 $A2B585 9D A8 0F STA $0FA8,x[$A2:1128] $A2B588 A9 11 00 LDA #$0011 *$A2B58B 8D E5 05 STA $05E5 [$A2:05E5]* $A2B58E 6B RTL ---
In the following Routine/Subroutine, the RNG value is normalized to 0x0025 which is the same that any Sidehoppers normalize the RNG value to:
38. --- $A3AB09 AE 54 0E LDX $0E54 [$A3:0E54] $A3AB0C A9 25 00 LDA #$0025 *$A3AB0F 8D E5 05 STA $05E5 [$A3:05E5]* $A3AB12 22 11 81 80 JSL $808111[$80:8111] $A3AB16 A9 00 00 LDA #$0000 $A3AB19 9F 06 78 7E STA $7E7806,x[$7E:7846] $A3AB1D 9F 08 78 7E STA $7E7808,x[$7E:7848] $A3AB21 9F 0A 78 7E STA $7E780A,x[$7E:784A] $A3AB25 BD 78 0F LDA $0F78,x[$A3:0FB8] $A3AB28 AA TAX $A3AB29 BF 2A 00 A0 LDA $A0002A,x[$A0:D9E9] $A3AB2D 0A ASL A $A3AB2E AE 54 0E LDX $0E54 [$A3:0E54] $A3AB31 9F 0C 78 7E STA $7E780C,x[$7E:784C] $A3AB35 BD B4 0F LDA $0FB4,x[$A3:0FF4] $A3AB38 D0 0A BNE $0A [$AB44] $A3AB3A BF 0C 78 7E LDA $7E780C,x[$7E:784C] $A3AB3E A8 TAY $A3AB3F B9 C2 AA LDA $AAC2,y[$A3:AAC4] $A3AB42 80 08 BRA $08 [$AB4C] $A3AB44 BF 0C 78 7E LDA $7E780C,x[$7E:78CC] $A3AB48 A8 TAY $A3AB49 B9 CA AA LDA $AACA,y[$A3:AACC] $A3AB4C 9F 00 78 7E STA $7E7800,x[$7E:7840] $A3AB50 20 BB AB JSR $ABBB [$A3:ABBB] $A3AB53 BD 78 0F LDA $0F78,x[$A3:0FB8] $A3AB56 AA TAX $A3AB57 BF 2A 00 A0 LDA $A0002A,x[$A0:D9E9] $A3AB5B F0 0A BEQ $0A [$AB67] $A3AB5D A9 02 00 LDA #$0002 $A3AB60 AE 54 0E LDX $0E54 [$A3:0E54] $A3AB63 9F 0A 78 7E STA $7E780A,x[$7E:784A] $A3AB67 AE 54 0E LDX $0E54 [$A3:0E54] $A3AB6A BF 0A 78 7E LDA $7E780A,x[$7E:784A] $A3AB6E A8 TAY $A3AB6F B9 EE AA LDA $AAEE,y[$A3:AAF0] $A3AB72 85 16 STA $16 [$00:0016] $A3AB74 B9 E6 AA LDA $AAE6,y[$A3:AAE8] $A3AB77 85 18 STA $18 [$00:0018] $A3AB79 20 9D AB JSR $AB9D [$A3:AB9D] $A3AB7C 9F 02 78 7E STA $7E7802,x[$7E:7842] $A3AB80 BF 0A 78 7E LDA $7E780A,x[$7E:784A] $A3AB84 A8 TAY $A3AB85 B9 FA AA LDA $AAFA,y[$A3:AAFC] $A3AB88 85 16 STA $16 [$00:0016] $A3AB8A B9 F2 AA LDA $AAF2,y[$A3:AAF4] $A3AB8D 85 18 STA $18 [$00:0018] $A3AB8F 20 9D AB JSR $AB9D [$A3:AB9D] $A3AB92 9F 04 78 7E STA $7E7804,x[$7E:7844] $A3AB96 A9 D6 AB LDA #$ABD6 $A3AB99 9D AA 0F STA $0FAA,x[$A3:0FEA] $A3AB9C 6B RTL ---
In the following Routine/Subroutine, the RNG value is normalized to 0x0025 which is the same that the Beetom normalizes the RNG value to:
69. --- $A8B776 AE 54 0E LDX $0E54 [$A8:0E54] $A8B779 A9 00 00 LDA #$0000 $A8B77C 9D AE 0F STA $0FAE,x[$A8:10EE] $A8B77F 9D AC 0F STA $0FAC,x[$A8:10EC] $A8B782 9F 0A 78 7E STA $7E780A,x[$7E:794A] $A8B786 9F 10 78 7E STA $7E7810,x[$7E:7950] $A8B78A 9D A8 0F STA $0FA8,x[$A8:10E8] $A8B78D A9 40 00 LDA #$0040 $A8B790 9D B0 0F STA $0FB0,x[$A8:10F0] $A8B793 A5 8B LDA $8B [$00:008B] $A8B795 9D B2 0F STA $0FB2,x[$A8:10F2] $A8B798 A9 17 00 LDA #$0017 *$A8B79B 8D E5 05 STA $05E5 [$A8:05E5]* $A8B79E A9 00 30 LDA #$3000 $A8B7A1 85 16 STA $16 [$00:0016] $A8B7A3 A9 04 00 LDA #$0004 $A8B7A6 85 18 STA $18 [$00:0018] $A8B7A8 20 EF B7 JSR $B7EF [$A8:B7EF] $A8B7AB 9F 04 78 7E STA $7E7804,x[$7E:7944] $A8B7AF A9 00 40 LDA #$4000 $A8B7B2 85 16 STA $16 [$00:0016] $A8B7B4 A9 05 00 LDA #$0005 $A8B7B7 85 18 STA $18 [$00:0018] $A8B7B9 20 EF B7 JSR $B7EF [$A8:B7EF] $A8B7BC 9F 06 78 7E STA $7E7806,x[$7E:7946] $A8B7C0 A9 00 30 LDA #$3000 $A8B7C3 85 16 STA $16 [$00:0016] $A8B7C5 A9 03 00 LDA #$0003 $A8B7C8 85 18 STA $18 [$00:0018] $A8B7CA 20 EF B7 JSR $B7EF [$A8:B7EF] $A8B7CD 9F 08 78 7E STA $7E7808,x[$7E:7948] $A8B7D1 A9 F2 B6 LDA #$B6F2 $A8B7D4 9F 00 78 7E STA $7E7800,x[$7E:7940] $A8B7D8 22 E5 AE A0 JSL $A0AEE5[$A0:AEE5] $A8B7DC 10 07 BPL $07 [$B7E5] $A8B7DE A9 96 B6 LDA #$B696 $A8B7E1 9F 00 78 7E STA $7E7800,x[$7E:7900] $A8B7E5 20 62 B7 JSR $B762 [$A8:B762] $A8B7E8 A9 14 B8 LDA #$B814 $A8B7EB 9D AC 0F STA $0FAC,x[$A8:10EC] $A8B7EE 6B RTL ---
Routine/Subroutine that contains the following structure:
$(...) LDA $05E5 (...)
$(...) XBA
$(...) STA $05E5 (...)
This is put here, since it applies XBA to the RNG value and stores the new RNG value again with the swapped high and low bytes.
16. --- $88B3BE C2 30 REP #$30 $88B3C0 F4 C5 B3 PEA $B3C5 $88B3C3 6C 6C 19 JMP ($196C)[$88:B343] $88B3C6 20 C9 B2 JSR $B2C9 [$88:B2C9] $88B3C9 E2 10 SEP #$10 $88B3CB AD 76 19 LDA $1976 [$88:1976] $88B3CE 18 CLC $88B3CF 6D 70 19 ADC $1970 [$88:1970] $88B3D2 8D 60 19 STA $1960 [$88:1960] $88B3D5 AD 78 19 LDA $1978 [$88:1978] $88B3D8 6D 72 19 ADC $1972 [$88:1972] $88B3DB 8D 62 19 STA $1962 [$88:1962] $88B3DE A5 B1 LDA $B1 [$00:00B1] $88B3E0 8F DC CA 7E STA $7ECADC[$7E:CADC] $88B3E4 A9 00 00 LDA #$0000 $88B3E7 8F 00 9C 7E STA $7E9C00[$7E:9C00] $88B3EB A9 00 00 LDA #$0000 $88B3EE 8F DE CA 7E STA $7ECADE[$7E:CADE] $88B3F2 AD 62 19 LDA $1962 [$88:1962] $88B3F5 30 18 BMI $18 [$B40F] $88B3F7 38 SEC $88B3F8 ED 15 09 SBC $0915 [$88:0915] $88B3FB F0 02 BEQ $02 [$B3FF] $88B3FD 10 0B BPL $0B [$B40A] $88B3FF 49 1F 00 EOR #$001F $88B402 29 1F 00 AND #$001F $88B405 09 00 01 ORA #$0100 $88B408 80 10 BRA $10 [$B41A] $88B40A C9 00 01 CMP #$0100 $88B40D 90 05 BCC $05 [$B414] $88B40F A9 00 00 LDA #$0000 $88B412 80 06 BRA $06 [$B41A] $88B414 49 FF 00 EOR #$00FF $88B417 29 FF 00 AND #$00FF $88B41A 8F 02 9C 7E STA $7E9C02[$7E:9C02] $88B41E AE B2 18 LDX $18B2 [$88:18B2] $88B421 AD 6E 19 LDA $196E [$88:196E] $88B424 C9 02 00 CMP #$0002 $88B427 D0 21 BNE $21 [$B44A] $88B429 AD 62 19 LDA $1962 [$88:1962] $88B42C 30 1C BMI $1C [$B44A] $88B42E DE 2C 19 DEC $192C,x[$88:192C] $88B431 D0 17 BNE $17 [$B44A] $88B433 A9 70 00 LDA #$0070 $88B436 9D 2C 19 STA $192C,x[$88:192C] *$88B439 AD E5 05 LDA $05E5 [$88:05E5]* $88B43C 29 07 00 AND #$0007 $88B43F A8 TAY $88B440 B9 A1 B3 LDA $B3A1,y[$88:B3A4] $88B443 29 FF 00 AND #$00FF $88B446 22 CB 90 80 JSL $8090CB[$80:90CB] *$88B44A AD E5 05 LDA $05E5 [$88:05E5]* $88B44D EB XBA *$88B44E 8D E5 05 STA $05E5 [$88:05E5]* $88B451 AE B2 18 LDX $18B2 [$88:18B2] $88B454 BD C0 18 LDA $18C0,x[$88:18C0] $88B457 29 FF 00 AND #$00FF $88B45A A8 TAY $88B45B AD 62 19 LDA $1962 [$88:1962] $88B45E 30 14 BMI $14 [$B474] $88B460 38 SEC $88B461 ED 15 09 SBC $0915 [$88:0915] $88B464 18 CLC $88B465 69 00 01 ADC #$0100 $88B468 10 05 BPL $05 [$B46F] $88B46A A9 FF 00 LDA #$00FF $88B46D 80 08 BRA $08 [$B477] $88B46F C9 00 02 CMP #$0200 $88B472 90 03 BCC $03 [$B477] $88B474 A9 FF 01 LDA #$01FF $88B477 49 FF 01 EOR #$01FF $88B47A 1A INC A $88B47B 29 FF 03 AND #$03FF $88B47E 85 12 STA $12 [$00:0012] $88B480 A5 12 LDA $12 [$00:0012] $88B482 0A ASL A $88B483 18 CLC $88B484 65 12 ADC $12 [$00:0012] $88B486 69 2A B6 ADC #$B62A $88B489 9D D8 18 STA $18D8,x[$88:18D8] $88B48C AB PLB $88B48D 6B RTL ---
The following Routines/Subroutines all have very similar structure:
22. --- $A0B9A5 DA PHX $A0B9A6 5A PHY $A0B9A7 08 PHP $A0B9A8 A9 10 00 LDA #$0010 $A0B9AB 8D 0B 06 STA $060B [$A6:060B] $A0B9AE 22 11 81 80 JSL $808111[$80:8111] $A0B9B2 29 7F 00 AND #$007F $A0B9B5 18 CLC $A0B9B6 69 40 00 ADC #$0040 $A0B9B9 85 12 STA $12 [$00:0012] *$A0B9BB AD E5 05 LDA $05E5 [$A6:05E5]* $A0B9BE 29 00 3F AND #$3F00 $A0B9C1 EB XBA $A0B9C2 18 CLC $A0B9C3 69 40 01 ADC #$0140 $A0B9C6 85 14 STA $14 [$00:0014] $A0B9C8 A9 7F E1 LDA #$E17F $A0B9CB 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0B9CF CE 0B 06 DEC $060B [$A6:060B] $A0B9D2 D0 DA BNE $DA [$B9AE] $A0B9D4 28 PLP $A0B9D5 7A PLY $A0B9D6 FA PLX $A0B9D7 6B RTL --- 23. --- $A0B9D8 DA PHX $A0B9D9 5A PHY $A0B9DA 08 PHP $A0B9DB A9 10 00 LDA #$0010 $A0B9DE 8D 0B 06 STA $060B [$A4:060B] $A0B9E1 22 11 81 80 JSL $808111[$80:8111] $A0B9E5 29 7F 00 AND #$007F $A0B9E8 18 CLC $A0B9E9 69 40 02 ADC #$0240 $A0B9EC 85 12 STA $12 [$00:0012] *$A0B9EE AD E5 05 LDA $05E5 [$A4:05E5]* $A0B9F1 29 00 3F AND #$3F00 $A0B9F4 EB XBA $A0B9F5 18 CLC $A0B9F6 69 60 00 ADC #$0060 $A0B9F9 85 14 STA $14 [$00:0014] $A0B9FB A9 BF DD LDA #$DDBF $A0B9FE 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BA02 CE 0B 06 DEC $060B [$A4:060B] $A0BA05 D0 DA BNE $DA [$B9E1] $A0BA07 28 PLP $A0BA08 7A PLY $A0BA09 FA PLX $A0BA0A 6B RTL --- 24. --- $A0BA0B DA PHX $A0BA0C 5A PHY $A0BA0D 08 PHP $A0BA0E A9 10 00 LDA #$0010 $A0BA11 8D 0B 06 STA $060B [$A7:060B] $A0BA14 22 11 81 80 JSL $808111[$80:8111] $A0BA18 29 7F 00 AND #$007F $A0BA1B 18 CLC $A0BA1C 69 40 00 ADC #$0040 $A0BA1F 85 12 STA $12 [$00:0012] *$A0BA21 AD E5 05 LDA $05E5 [$A7:05E5]* $A0BA24 29 00 3F AND #$3F00 $A0BA27 EB XBA $A0BA28 18 CLC $A0BA29 69 60 00 ADC #$0060 $A0BA2C 85 14 STA $14 [$00:0014] $A0BA2E A9 BF E4 LDA #$E4BF $A0BA31 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BA35 CE 0B 06 DEC $060B [$A7:060B] $A0BA38 D0 DA BNE $DA [$BA14] $A0BA3A 28 PLP $A0BA3B 7A PLY $A0BA3C FA PLX $A0BA3D 6B RTL --- 25. --- $A0BA3E DA PHX $A0BA3F 5A PHY $A0BA40 08 PHP $A0BA41 A9 10 00 LDA #$0010 $A0BA44 8D 0B 06 STA $060B [$B3:060B] $A0BA47 22 11 81 80 JSL $808111[$80:8111] $A0BA4B 29 7F 00 AND #$007F $A0BA4E 18 CLC $A0BA4F 69 40 00 ADC #$0040 $A0BA52 85 12 STA $12 [$00:0012] *$A0BA54 AD E5 05 LDA $05E5 [$B3:05E5]* $A0BA57 29 00 3F AND #$3F00 $A0BA5A EB XBA $A0BA5B 18 CLC $A0BA5C 69 80 00 ADC #$0080 $A0BA5F 85 14 STA $14 [$00:0014] $A0BA61 A9 93 F2 LDA #$F293 $A0BA64 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BA68 CE 0B 06 DEC $060B [$B3:060B] $A0BA6B D0 DA BNE $DA [$BA47] $A0BA6D 28 PLP $A0BA6E 7A PLY $A0BA6F FA PLX $A0BA70 6B RTL --- 26. --- $A0BA71 DA PHX $A0BA72 5A PHY $A0BA73 08 PHP $A0BA74 A9 10 00 LDA #$0010 $A0BA77 8D 0B 06 STA $060B [$A7:060B] $A0BA7A 22 11 81 80 JSL $808111[$80:8111] $A0BA7E 29 FF 00 AND #$00FF $A0BA81 18 CLC $A0BA82 69 80 00 ADC #$0080 $A0BA85 85 12 STA $12 [$00:0012] *$A0BA87 AD E5 05 LDA $05E5 [$A7:05E5]* $A0BA8A 29 00 3F AND #$3F00 $A0BA8D EB XBA $A0BA8E 18 CLC $A0BA8F 69 60 01 ADC #$0160 $A0BA92 85 14 STA $14 [$00:0014] $A0BA94 A9 BF E2 LDA #$E2BF $A0BA97 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BA9B CE 0B 06 DEC $060B [$A7:060B] $A0BA9E D0 DA BNE $DA [$BA7A] $A0BAA0 28 PLP $A0BAA1 7A PLY $A0BAA2 FA PLX $A0BAA3 6B RTL --- 27. --- $A0BAA4 DA PHX $A0BAA5 5A PHY $A0BAA6 08 PHP $A0BAA7 A9 10 00 LDA #$0010 $A0BAAA 8D 0B 06 STA $060B [$AA:060B] $A0BAAD 22 11 81 80 JSL $808111[$80:8111] $A0BAB1 29 7F 00 AND #$007F $A0BAB4 18 CLC $A0BAB5 69 40 00 ADC #$0040 $A0BAB8 85 12 STA $12 [$00:0012] *$A0BABA AD E5 05 LDA $05E5 [$AA:05E5]* $A0BABD 29 00 3F AND #$3F00 $A0BAC0 EB XBA $A0BAC1 18 CLC $A0BAC2 69 60 00 ADC #$0060 $A0BAC5 85 14 STA $14 [$00:0014] $A0BAC7 A9 FF EE LDA #$EEFF $A0BACA 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BACE CE 0B 06 DEC $060B [$AA:060B] $A0BAD1 D0 DA BNE $DA [$BAAD] $A0BAD3 28 PLP $A0BAD4 7A PLY $A0BAD5 FA PLX $A0BAD6 6B RTL --- 28. --- $A0BAD7 DA PHX $A0BAD8 5A PHY $A0BAD9 08 PHP $A0BADA A9 10 00 LDA #$0010 $A0BADD 8D 0B 06 STA $060B [$AA:060B] $A0BAE0 22 11 81 80 JSL $808111[$80:8111] $A0BAE4 29 FF 00 AND #$00FF $A0BAE7 18 CLC $A0BAE8 69 80 00 ADC #$0080 $A0BAEB 85 12 STA $12 [$00:0012] *$A0BAED AD E5 05 LDA $05E5 [$AA:05E5]* $A0BAF0 29 00 3F AND #$3F00 $A0BAF3 EB XBA $A0BAF4 18 CLC $A0BAF5 69 20 01 ADC #$0120 $A0BAF8 85 14 STA $14 [$00:0014] $A0BAFA A9 FF EE LDA #$EEFF $A0BAFD 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BB01 CE 0B 06 DEC $060B [$AA:060B] $A0BB04 D0 DA BNE $DA [$BAE0] $A0BB06 28 PLP $A0BB07 7A PLY $A0BB08 FA PLX $A0BB09 6B RTL --- 29. --- $A0BB0A DA PHX $A0BB0B 5A PHY $A0BB0C 08 PHP $A0BB0D A9 10 00 LDA #$0010 $A0BB10 8D 0B 06 STA $060B [$A5:060B] $A0BB13 22 11 81 80 JSL $808111[$80:8111] $A0BB17 29 7F 00 AND #$007F $A0BB1A 18 CLC $A0BB1B 69 40 00 ADC #$0040 $A0BB1E 85 12 STA $12 [$00:0012] *$A0BB20 AD E5 05 LDA $05E5 [$A5:05E5]* $A0BB23 29 00 3F AND #$3F00 $A0BB26 EB XBA $A0BB27 18 CLC $A0BB28 69 10 02 ADC #$0210 $A0BB2B 85 14 STA $14 [$00:0014] $A0BB2D A9 3F DF LDA #$DF3F $A0BB30 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BB34 CE 0B 06 DEC $060B [$A5:060B] $A0BB37 D0 DA BNE $DA [$BB13] $A0BB39 28 PLP $A0BB3A 7A PLY $A0BB3B FA PLX $A0BB3C 6B RTL --- 30. --- $A0BB3D DA PHX $A0BB3E 5A PHY $A0BB3F 08 PHP $A0BB40 A9 10 00 LDA #$0010 $A0BB43 8D 0B 06 STA $060B [$A5:060B] $A0BB46 22 11 81 80 JSL $808111[$80:8111] $A0BB4A 29 FF 00 AND #$00FF $A0BB4D 18 CLC $A0BB4E 69 80 00 ADC #$0080 $A0BB51 85 12 STA $12 [$00:0012] *$A0BB53 AD E5 05 LDA $05E5 [$A5:05E5]* $A0BB56 29 00 3F AND #$3F00 $A0BB59 EB XBA $A0BB5A 18 CLC $A0BB5B 69 60 01 ADC #$0160 $A0BB5E 85 14 STA $14 [$00:0014] $A0BB60 A9 3F DE LDA #$DE3F $A0BB63 22 0E 92 A0 JSL $A0920E[$A0:920E] $A0BB67 CE 0B 06 DEC $060B [$A5:060B] $A0BB6A D0 DA BNE $DA [$BB46] $A0BB6C 28 PLP $A0BB6D 7A PLY $A0BB6E FA PLX $A0BB6F 6B RTL ---
The following Routines/Subroutines aswell have similar structure:
31. --- $A29B06 AE 54 0E LDX $0E54 [$A2:0E54] $A29B09 22 11 81 80 JSL $808111[$80:8111] *$A29B0D AD E5 05 LDA $05E5 [$A2:05E5]* $A29B10 18 CLC $A29B11 7D A4 0F ADC $0FA4,x[$A2:1124] $A29B14 29 07 00 AND #$0007 $A29B17 85 1C STA $1C [$00:001C] $A29B19 60 RTS --- 32. --- $A2A01C AE 54 0E LDX $0E54 [$A2:0E54] $A2A01F 22 11 81 80 JSL $808111[$80:8111] *$A2A023 AD E5 05 LDA $05E5 [$A2:05E5]* $A2A026 18 CLC $A2A027 7D A4 0F ADC $0FA4,x[$A2:0FA4] $A2A02A 29 FF 00 AND #$00FF $A2A02D C9 03 00 CMP #$0003 $A2A030 10 16 BPL $16 [$A048] $A2A032 A9 1B A0 LDA #$A01B $A2A035 9D B2 0F STA $0FB2,x[$A2:0FB2] $A2A038 BD B5 0F LDA $0FB5,x[$A2:0FB5] $A2A03B 29 FF 00 AND #$00FF $A2A03E F0 05 BEQ $05 [$A045] $A2A040 20 5C A0 JSR $A05C [$A2:A05C] $A2A043 80 03 BRA $03 [$A048] $A2A045 20 82 A0 JSR $A082 [$A2:A082] $A2A048 60 RTS --- 33. --- $A2A553 22 11 81 80 JSL $808111[$80:8111] *$A2A557 AD E5 05 LDA $05E5 [$A2:05E5]* $A2A55A 18 CLC $A2A55B 7D A4 0F ADC $0FA4,x[$A2:1164] $A2A55E 29 FF 00 AND #$00FF $A2A561 C9 06 00 CMP #$0006 $A2A564 10 06 BPL $06 [$A56C] $A2A566 A9 03 00 LDA #$0003 $A2A569 9D B0 0F STA $0FB0,x[$A2:1170] $A2A56C 60 RTS ---
Other routines/subroutines:
1.
---
$808111 E2 20 SEP #$20
*$808113 AD E5 05 LDA $05E5 [$82:05E5]*
$808116 8D 02 42 STA $4202 [$82:4202]
$808119 A9 05 LDA #$05
$80811B 8D 03 42 STA $4203 [$82:4203]
$80811E EA NOP
$80811F C2 20 REP #$20
$808121 AD 16 42 LDA $4216 [$82:4216]
$808124 48 PHA
$808125 E2 20 SEP #$20
$808127 AD E6 05 LDA $05E6 [$82:05E6]
$80812A 8D 02 42 STA $4202 [$82:4202]
$80812D A9 05 LDA #$05
$80812F 8D 03 42 STA $4203 [$82:4203]
$808132 EB XBA
$808133 EA NOP
$808134 AD 16 42 LDA $4216 [$82:4216]
$808137 38 SEC
$808138 63 02 ADC $02,s [$00:1FFB]
$80813A 83 02 STA $02,s [$00:1FFB]
$80813C C2 20 REP #$20
$80813E 68 PLA
$80813F 69 11 00 ADC #$0011
*$808142 8D E5 05 STA $05E5 [$82:05E5]*
$808145 6B RTL
---
3.
---
$869286 DA PHX
$869287 AE 54 0E LDX $0E54 [$86:0E54]
$86928A AD 93 19 LDA $1993 [$86:1993]
$86928D 99 4B 1A STA $1A4B,y[$86:1A5B]
$869290 A9 BB 00 LDA #$00BB
$869293 99 93 1A STA $1A93,y[$86:1AA3]
$869296 A9 00 00 LDA #$0000
$869299 99 6F 1A STA $1A6F,y[$86:1A7F]
$86929C 99 27 1A STA $1A27,y[$86:1A37]
$86929F A9 00 00 LDA #$0000
$8692A2 99 B7 1A STA $1AB7,y[$86:1AC7]
*$8692A5 AD E5 05 LDA $05E5 [$86:05E5]*
$8692A8 29 3F 00 AND #$003F
$8692AB 18 CLC
$8692AC 69 40 00 ADC #$0040
$8692AF 99 DB 1A STA $1ADB,y[$86:1AEB]
$8692B2 A9 00 04 LDA #$0400
$8692B5 99 BB 19 STA $19BB,y[$86:19CB]
$8692B8 FA PLX
$8692B9 60 RTS
---
4.
---
$869C29 db 24
$869C2B db 81, 99, 5C, 97, 08, 10, 28, 80, 00, 00, FA, 97, 3A
$869C39 db 29, 9B, E8, 97, 08, 10, 28, 40
$869C61 db 0C
$869C63 db 56, 9D, 7D, 9C, 04, 04, 00, A0
$869C6F db 0C
$869C71 db 56, 9D, 83, 9C, 04, 04, 00, A0
$869C7D db FF, 7F, 68, 82
$869C83 db FF, 7F, 6F, 82
$869D0C DA PHX
*$869D0D AD E5 05 LDA $05E5 [$86:05E5]*
$869D10 29 3F 00 AND #$003F
$869D13 AA TAX
*$869D14 AD E5 05 LDA $05E5 [$86:05E5]*
$869D17 89 01 00 BIT #$0001
$869D1A D0 05 BNE $05 [$9D21]
$869D1C 8A TXA
$869D1D 49 FF FF EOR #$FFFF
$869D20 AA TAX
$869D21 8A TXA
$869D22 AE 54 0E LDX $0E54 [$86:0E54]
$869D25 18 CLC
$869D26 7D 7A 0F ADC $0F7A,x[$86:0F7A]
$869D29 99 4B 1A STA $1A4B,y[$86:1A6D]
$869D2C A9 B0 01 LDA #$01B0
$869D2F 99 93 1A STA $1A93,y[$86:1AB5]
$869D32 A9 00 00 LDA #$0000
$869D35 99 6F 1A STA $1A6F,y[$86:1A91]
$869D38 99 27 1A STA $1A27,y[$86:1A49]
$869D3B AD 93 19 LDA $1993 [$86:1993]
$869D3E 99 B7 1A STA $1AB7,y[$86:1AD9]
$869D41 A9 00 FB LDA #$FB00
$869D44 99 DB 1A STA $1ADB,y[$86:1AFD]
$869D47 A9 00 06 LDA #$0600
$869D4A 99 BB 19 STA $19BB,y[$86:19DD]
$869D4D A9 1E 00 LDA #$001E
$869D50 22 4D 91 80 JSL $80914D[$80:914D]
$869D54 FA PLX
$869D55 60 RTS
---
5.
---
$86A46A db 02, 00, 00, 80, 02, 00, 00, 80, 61, 81, 87, A8, 30, 82, 00, 30, 05, 00, 54, 8C, 3C, 82, FF, EF, 40, 00, 54, 8C
$86A48E db 6A, 81, 08, 00, 5B, 8C, 08, 00, 62, 8C, 08, 00, 69, 8C, 54, 81
$86A4AA db 7E, 83, 26, 05, 00, 9C, 8D, 05, 00, A3, 8D, 05, 00, B9, 8D, 05, 00, CF, 8D, 05, 00, E5, 8D, 54, 81, 80, 00, FB, 8D, 12, 83, 0C, 61, 81, EF, A8, 70, 00, FB, 8D, 54, 81, 78, 00, 02, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 02, 8E, 54, 81, 70, 00, 09, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 09, 8E, 54, 81, 68, 00, 10, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 10, 8E, 54, 81, 60, 00, 17, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 17, 8E, 54, 81, 58, 00, 1E, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 1E, 8E, 54, 81, 50, 00, 25, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 25, 8E, 54, 81, 48, 00, 2C, 8E, 12, 83, 0C, 61, 81, EF, A8, 70, 00, 2C, 8E, 54, 81
$86A5D3 A9 00 00 LDA #$0000
$86A5D6 99 BB 19 STA $19BB,y[$86:19D7]
$86A5D9 22 11 81 80 JSL $808111[$80:8111]
$86A5DD 4A LSR A
$86A5DE 29 0E 00 AND #$000E
$86A5E1 AA TAX
$86A5E2 BD 4D A6 LDA $A64D,x[$86:A659]
$86A5E5 99 47 1B STA $1B47,y[$86:1B63]
$86A5E8 22 11 81 80 JSL $808111[$80:8111]
$86A5EC AE 54 0E LDX $0E54 [$86:0E54]
$86A5EF BD 7E 0F LDA $0F7E,x[$86:0F7E]
$86A5F2 18 CLC
$86A5F3 69 FB FF ADC #$FFFB
$86A5F6 99 93 1A STA $1A93,y[$86:1AAF]
$86A5F9 3C B4 0F BIT $0FB4,x[$86:0FB4]
$86A5FC 50 08 BVC $08 [$A606]
$86A606 30 05 BMI $05 [$A60D]
$86A608 A9 E0 00 LDA #$00E0
$86A60B 80 03 BRA $03 [$A610]
$86A610 85 12 STA $12 [$00:0012]
*$86A612 AD E5 05 LDA $05E5 [$86:05E5]*
$86A615 29 0F 00 AND #$000F
$86A618 38 SEC
$86A619 E9 08 00 SBC #$0008
$86A61C 18 CLC
$86A61D 65 12 ADC $12 [$00:0012]
$86A61F 0A ASL A
$86A620 AA TAX
$86A621 BF 43 B4 A0 LDA $A0B443,x[$A0:B605]
$86A625 99 B7 1A STA $1AB7,y[$86:1AD3]
$86A628 BF C3 B3 A0 LDA $A0B3C3,x[$A0:B585]
$86A62C 99 DB 1A STA $1ADB,y[$86:1AF7]
$86A62F AE 54 0E LDX $0E54 [$86:0E54]
$86A632 3C B4 0F BIT $0FB4,x[$86:0FB4]
$86A635 30 0B BMI $0B [$A642]
$86A637 BD 7A 0F LDA $0F7A,x[$86:0F7A]
$86A63A 18 CLC
$86A63B 69 F8 FF ADC #$FFF8
$86A63E 99 4B 1A STA $1A4B,y[$86:1A67]
$86A641 60 RTS
---
6.
---
$86A655 db 6E, A4, 6A, A4, 72, A4, 6E, A4
$86A65D A9 00 00 LDA #$0000
$86A660 99 BB 19 STA $19BB,y[$86:19CB]
$86A663 22 11 81 80 JSL $808111[$80:8111]
$86A667 AE 54 0E LDX $0E54 [$86:0E54]
$86A66A AD E5 05 LDA $05E5 [$86:05E5]
$86A66D 29 03 00 AND #$0003
$86A670 18 CLC
$86A671 7D 7E 0F ADC $0F7E,x[$86:0F7E]
$86A674 69 FB FF ADC #$FFFB
$86A677 99 93 1A STA $1A93,y[$86:1AA3]
*$86A67A AD E5 05 LDA $05E5 [$86:05E5]*
$86A67D 29 1F 00 AND #$001F
$86A680 69 30 00 ADC #$0030
$86A683 99 DB 1A STA $1ADB,y[$86:1AEB]
$86A686 22 11 81 80 JSL $808111[$80:8111]
*$86A68A AD E5 05 LDA $05E5 [$86:05E5]*
$86A68D 29 03 00 AND #$0003
$86A690 3C B4 0F BIT $0FB4,x[$86:0FB4]
$86A693 50 0E BVC $0E [$A6A3]
$86A695 18 CLC
$86A696 7D 7A 0F ADC $0F7A,x[$86:0F7A]
$86A699 99 4B 1A STA $1A4B,y[$86:1A61]
$86A69C A9 00 00 LDA #$0000
$86A69F 99 B7 1A STA $1AB7,y[$86:1ACD]
$86A6A2 60 RTS
---
8.
---
$86C684 AF 08 80 7E LDA $7E8008[$7E:8008]
$86C688 99 4B 1A STA $1A4B,y[$86:1A59]
$86C68B AF 06 80 7E LDA $7E8006[$7E:8006]
$86C68F 99 27 1A STA $1A27,y[$86:1A35]
$86C692 AF 0C 80 7E LDA $7E800C[$7E:800C]
$86C696 99 93 1A STA $1A93,y[$86:1AA1]
$86C699 AF 0A 80 7E LDA $7E800A[$7E:800A]
$86C69D 99 6F 1A STA $1A6F,y[$86:1A7D]
$86C6A0 AF 0E 80 7E LDA $7E800E[$7E:800E]
$86C6A4 99 B7 1A STA $1AB7,y[$86:1AC5]
$86C6A7 AF 10 80 7E LDA $7E8010[$7E:8010]
$86C6AB 99 DB 1A STA $1ADB,y[$86:1AE9]
$86C6AE BB TYX
$86C6AF 20 D6 92 JSR $92D6 [$86:92D6]
$86C6B2 BD 4B 1A LDA $1A4B,x[$86:1A59]
$86C6B5 8F 08 80 7E STA $7E8008[$7E:8008]
$86C6B9 BD 27 1A LDA $1A27,x[$86:1A35]
$86C6BC 8F 06 80 7E STA $7E8006[$7E:8006]
$86C6C0 BD 93 1A LDA $1A93,x[$86:1AA1]
$86C6C3 8F 0C 80 7E STA $7E800C[$7E:800C]
$86C6C7 BD 6F 1A LDA $1A6F,x[$86:1A7D]
$86C6CA 8F 0A 80 7E STA $7E800A[$7E:800A]
$86C6CE 22 11 81 80 JSL $808111[$80:8111]
$86C6D2 29 FF 00 AND #$00FF
$86C6D5 18 CLC
$86C6D6 6F 12 80 7E ADC $7E8012[$7E:8012]
$86C6DA 29 FF 00 AND #$00FF
$86C6DD 85 12 STA $12 [$00:0012]
$86C6DF 22 11 81 80 JSL $808111[$80:8111]
$86C6E3 29 00 07 AND #$0700
$86C6E6 DA PHX
$86C6E7 22 6C C2 86 JSL $86C26C[$86:C26C]
$86C6EB FA PLX
$86C6EC 9D B7 1A STA $1AB7,x[$86:1AC5]
*$86C6EF AD E5 05 LDA $05E5 [$86:05E5]*
$86C6F2 29 00 07 AND #$0700
$86C6F5 DA PHX
$86C6F6 22 72 C2 86 JSL $86C272[$86:C272]
$86C6FA FA PLX
$86C6FB 9D DB 1A STA $1ADB,x[$86:1AE9]
$86C6FE 20 D6 92 JSR $92D6 [$86:92D6]
$86C701 BD 93 1A LDA $1A93,x[$86:1AA1]
$86C704 C9 22 00 CMP #$0022
$86C707 30 29 BMI $29 [$C732]
$86C709 C9 CE 00 CMP #$00CE
$86C70C 10 24 BPL $24 [$C732]
$86C70E BD 4B 1A LDA $1A4B,x[$86:1A59]
$86C711 C9 02 00 CMP #$0002
$86C714 30 1C BMI $1C [$C732]
$86C716 C9 EE 00 CMP #$00EE
$86C719 10 17 BPL $17 [$C732]
$86C71B BD FF 1A LDA $1AFF,x[$86:1B0D]
$86C71E 1A INC A
$86C71F 29 03 00 AND #$0003
$86C722 9D FF 1A STA $1AFF,x[$86:1B0D]
$86C725 A9 00 00 LDA #$0000
$86C728 9D 23 1B STA $1B23,x[$86:1B31]
$86C72B 9D B7 1A STA $1AB7,x[$86:1AC5]
$86C72E 9D DB 1A STA $1ADB,x[$86:1AE9]
$86C731 60 RTS
---
9.
---
$86D02E db 88
$86D030 db EB, D0, 7D, 9C, 04, 04, 14, 00, 00, 00, 64, D0, 05, 00, 66, 84, B6, D1, FF, 7F, 5F, 84
$86D04A db FF, 7F, 5F, 84
$86D052 db 10, 00, 66, 84, 05, 00, 5F, 84, 5C, D1, FF, 7F, 58, 84
$86D064 db C7, D1, 04, 00, 9C, 8D, 04, 00, A3, 8D, 04, 00, B9, 8D, 04, 00, CF, 8D, 04, 00, E5, 8D, CE, D1, AB, 81, FC, 84
$86D082 db E0, 00, 30, 00, 00, 02
$86D088 AD 54 0E LDA $0E54 [$86:0E54]
$86D08B 99 23 1B STA $1B23,y[$86:1B45]
$86D08E AA TAX
$86D08F BD 7A 0F LDA $0F7A,x[$86:0FBA]
$86D092 99 4B 1A STA $1A4B,y[$86:1A6D]
$86D095 BD 7E 0F LDA $0F7E,x[$86:0FBE]
$86D098 99 93 1A STA $1A93,y[$86:1AB5]
*$86D09B AD E5 05 LDA $05E5 [$86:05E5]*
$86D09E 29 07 00 AND #$0007
$86D0A1 1A INC A
$86D0A2 99 FB 1B STA $1BFB,y[$86:1C1D]
$86D0A5 18 CLC
$86D0A6 69 04 00 ADC #$0004
$86D0A9 99 FF 1A STA $1AFF,y[$86:1B21]
$86D0AC A9 CA D0 LDA #$D0CA
$86D0AF 99 03 1A STA $1A03,y[$86:1A25]
$86D0B2 60 RTS
---
10.
---
$86D15C 20 B3 D0 JSR $D0B3 [$86:D0B3]
$86D15F 20 E4 D1 JSR $D1E4 [$86:D1E4]
*$86D162 AD E5 05 LDA $05E5 [$86:05E5]*
$86D165 29 00 03 AND #$0300
$86D168 18 CLC
$86D169 69 00 08 ADC #$0800
$86D16C 89 00 01 BIT #$0100
$86D16F 08 PHP
$86D170 49 FF FF EOR #$FFFF
$86D173 1A INC A
$86D174 9D DB 1A STA $1ADB,x[$86:1AFD]
$86D177 DA PHX
$86D178 BD 23 1B LDA $1B23,x[$86:1B45]
$86D17B AA TAX
$86D17C BD 7A 0F LDA $0F7A,x[$86:0FBA]
$86D17F FA PLX
$86D180 38 SEC
$86D181 FD 4B 1A SBC $1A4B,x[$86:1A6D]
$86D184 08 PHP
$86D185 10 04 BPL $04 [$D18B]
$86D187 49 FF FF EOR #$FFFF
$86D18A 1A INC A
$86D18B CD 84 D0 CMP $D084 [$86:D084]
$86D18E 30 11 BMI $11 [$D1A1]
$86D190 28 PLP
$86D191 10 07 BPL $07 [$D19A]
$86D193 28 PLP
$86D194 A9 01 00 LDA #$0001
$86D197 08 PHP
$86D198 80 08 BRA $08 [$D1A2]
$86D19A 28 PLP
$86D19B A9 00 00 LDA #$0000
$86D19E 08 PHP
$86D19F 80 01 BRA $01 [$D1A2]
$86D1A1 28 PLP
$86D1A2 AD 86 D0 LDA $D086 [$86:D086]
$86D1A5 28 PLP
$86D1A6 F0 04 BEQ $04 [$D1AC]
$86D1A8 49 FF FF EOR #$FFFF
$86D1AB 1A INC A
$86D1AC 9D B7 1A STA $1AB7,x[$86:1AD9]
$86D1AF A9 EC D0 LDA #$D0EC
$86D1B2 9D 03 1A STA $1A03,x[$86:1A25]
$86D1B5 60 RTS
---
11.
---
*$86D1B6 AD E5 05 LDA $05E5 [$86:05E5]*
$86D1B9 29 1F 00 AND #$001F
$86D1BC 1A INC A
$86D1BD 9D FB 1B STA $1BFB,x[$86:1C1D]
$86D1C0 A9 CA D0 LDA #$D0CA
$86D1C3 9D 03 1A STA $1A03,x[$86:1A25]
$86D1C6 60 RTS
---
12.
---
$86E47E db 00, 00, 00, 00, 00, 00, 00, 00
$86E496 db 0F, 00, 1F, 00, F8, FF, F0, FF
$86E4A6 AD 93 19 LDA $1993 [$86:1993]
$86E4A9 29 FF 00 AND #$00FF
$86E4AC 0A ASL A
$86E4AD AA TAX
$86E4AE BD 2C E4 LDA $E42C,x[$86:E440]
$86E4B1 99 47 1B STA $1B47,y[$86:1B69]
$86E4B4 AD 94 19 LDA $1994 [$86:1994]
$86E4B7 29 FF 00 AND #$00FF
$86E4BA 0A ASL A
$86E4BB 0A ASL A
$86E4BC 0A ASL A
$86E4BD AA TAX
*$86E4BE AD E5 05 LDA $05E5 [$86:05E5]*
$86E4C1 3D 7E E4 AND $E47E,x[$86:E496]
$86E4C4 18 CLC
$86E4C5 7D 82 E4 ADC $E482,x[$86:E49A]
$86E4C8 85 12 STA $12 [$00:0012]
$86E4CA AD E6 05 LDA $05E6 [$86:05E6]
$86E4CD 3D 80 E4 AND $E480,x[$86:E498]
$86E4D0 18 CLC
$86E4D1 7D 84 E4 ADC $E484,x[$86:E49C]
$86E4D4 85 14 STA $14 [$00:0014]
$86E4D6 AE 27 1C LDX $1C27 [$86:1C27]
$86E4D9 22 90 82 84 JSL $848290[$84:8290]
$86E4DD AD 29 1C LDA $1C29 [$86:1C29]
$86E4E0 38 SEC
$86E4E1 2A ROL A
$86E4E2 0A ASL A
$86E4E3 0A ASL A
$86E4E4 0A ASL A
$86E4E5 18 CLC
$86E4E6 65 12 ADC $12 [$00:0012]
$86E4E8 99 4B 1A STA $1A4B,y[$86:1A6D]
$86E4EB AD 2B 1C LDA $1C2B [$86:1C2B]
$86E4EE 38 SEC
$86E4EF 2A ROL A
$86E4F0 0A ASL A
$86E4F1 0A ASL A
$86E4F2 0A ASL A
$86E4F3 18 CLC
$86E4F4 65 14 ADC $14 [$00:0014]
$86E4F6 99 93 1A STA $1A93,y[$86:1AB5]
$86E4F9 22 11 81 80 JSL $808111[$80:8111]
$86E4FD 60 RTS
---
13.
---
$86EC95 db 62
$86EC97 db 94, EC, 56, EC, 02, 02, 05, 20
$86ECA3 db 40, 00, 00, 80, 10, EF, 54, 81, D5, 81, 05, 00, 17, ED, 03, 00, 17, ED, 0C, 00, 08, 00, 00, 80, 97, EE, C6, 81, AF, EC, AF, EE
$86ECC5 db D5, 81, 10, 00, E3, EC, 03, 00, E3, EC, 0C, 00, E3, EC, 15, 00, 08, 00, 00, 80, 97, EE, C6, 81, C9, EC, AF, EE
$86ECE3 DA PHX
$86ECE4 5A PHY
$86ECE5 22 11 81 80 JSL $808111[$80:8111]
$86ECE9 29 3F 00 AND #$003F
$86ECEC 38 SEC
$86ECED E9 20 00 SBC #$0020
$86ECF0 18 CLC
$86ECF1 7D 4B 1A ADC $1A4B,x[$86:1A5B]
$86ECF4 85 12 STA $12 [$00:0012]
*$86ECF6 AD E5 05 LDA $05E5 [$86:05E5]*
$86ECF9 29 00 3F AND #$3F00
$86ECFC EB XBA
$86ECFD 38 SEC
$86ECFE E9 20 00 SBC #$0020
$86ED01 18 CLC
$86ED02 7D 93 1A ADC $1A93,x[$86:1AA3]
$86ED05 85 14 STA $14 [$00:0014]
$86ED07 B9 00 00 LDA $0000,y[$86:ECCB]
$86ED0A 85 16 STA $16 [$00:0016]
$86ED0C 64 18 STZ $18 [$00:0018]
$86ED0E 22 26 BC B4 JSL $B4BC26[$B4:BC26]
$86ED12 7A PLY
$86ED13 FA PLX
$86ED14 C8 INY
$86ED15 C8 INY
$86ED16 60 RTS
---
14.
---
$86ED17 DA PHX
$86ED18 5A PHY
$86ED19 22 11 81 80 JSL $808111[$80:8111]
$86ED1D 29 1F 00 AND #$001F
$86ED20 38 SEC
$86ED21 E9 10 00 SBC #$0010
$86ED24 18 CLC
$86ED25 7D 4B 1A ADC $1A4B,x[$86:1A6D]
$86ED28 85 12 STA $12 [$00:0012]
*$86ED2A AD E5 05 LDA $05E5 [$86:05E5]*
$86ED2D 29 00 1F AND #$1F00
$86ED30 EB XBA
$86ED31 38 SEC
$86ED32 E9 10 00 SBC #$0010
$86ED35 18 CLC
$86ED36 7D 93 1A ADC $1A93,x[$86:1AB5]
$86ED39 85 14 STA $14 [$00:0014]
$86ED3B B9 00 00 LDA $0000,y[$86:ECB1]
$86ED3E 85 16 STA $16 [$00:0016]
$86ED40 64 18 STZ $18 [$00:0018]
$86ED42 22 26 BC B4 JSL $B4BC26[$B4:BC26]
$86ED46 7A PLY
$86ED47 FA PLX
$86ED48 C8 INY
$86ED49 C8 INY
$86ED4A 60 RTS
---
15.
---
$88B21D DA PHX
$88B21E 5A PHY
$88B21F 08 PHP
$88B220 C2 30 REP #$30
$88B222 AD 09 06 LDA $0609 [$88:0609]
$88B225 30 2B BMI $2B [$B252]
$88B227 3A DEC A
$88B228 8D 09 06 STA $0609 [$88:0609]
$88B22B 10 25 BPL $25 [$B252]
$88B22D AE 07 06 LDX $0607 [$88:0607]
$88B230 BD 56 B2 LDA $B256,x[$88:B256]
$88B233 10 06 BPL $06 [$B23B]
$88B235 A2 00 00 LDX #$0000
$88B238 BD 56 B2 LDA $B256,x[$88:B256]
$88B23B 22 CB 90 80 JSL $8090CB[$80:90CB]
*$88B23F AD E5 05 LDA $05E5 [$88:05E5]*
$88B242 29 03 00 AND #$0003
$88B245 7D 58 B2 ADC $B258,x[$88:B258]
$88B248 8D 09 06 STA $0609 [$88:0609]
$88B24B E8 INX
$88B24C E8 INX
$88B24D E8 INX
$88B24E E8 INX
$88B24F 8E 07 06 STX $0607 [$88:0607]
$88B252 28 PLP
$88B253 7A PLY
$88B254 FA PLX
$88B255 60 RTS
---
17.
---
$88D96C db 55, 86, 88, 6A, 86, 7E, 81, D9, 70, 85, A1, D9, 88, FF, 7F, 6F, D8
$88D981 DA PHX
*$88D982 AD E5 05 LDA $05E5 [$88:05E5]*
$88D985 4A LSR A
$88D986 29 06 00 AND #$0006
$88D989 AA TAX
$88D98A BD 92 D9 LDA $D992,x[$88:D994]
$88D98D FA PLX
$88D98E 9D 38 19 STA $1938,x[$88:193A]
$88D991 60 RTS
---
18.
---
$8FE525 AD 3F 09 LDA $093F [$8F:093F]
$8FE528 F0 FA BEQ $FA [$E524]
$8FE52A CE E1 07 DEC $07E1 [$8F:07E1]
$8FE52D 10 F5 BPL $F5 [$E524]
$8FE52F A9 08 00 LDA #$0008
$8FE532 8D E1 07 STA $07E1 [$8F:07E1]
$8FE535 A0 34 97 LDY #$9734
*$8FE538 AD E5 05 LDA $05E5 [$8F:05E5]*
$8FE53B 0A ASL A
$8FE53C 90 03 BCC $03 [$E541]
$8FE53E A0 42 97 LDY #$9742
*$8FE541 AD E5 05 LDA $05E5 [$8F:05E5]*
$8FE544 29 0F 00 AND #$000F
$8FE547 0A ASL A
$8FE548 AA TAX
$8FE549 BD 51 E5 LDA $E551,x[$8F:E56B]
$8FE54C 22 97 80 86 JSL $868097[$86:8097]
$8FE550 60 RTS
---
19.
---
$A0B7EE db 00, 00, 48, 06, 8F, 0C, D5, 12, 17, 19, 56, 1F
$A0B7FC db C3, 2B, F1, 31, 16, 38, 33, 3E, 47, 44, 4F, 4A
$A0B80A db 3E, 56
$A0B80E db F7, 61, BD, 67, 73, 6D, 19, 73, AC, 78, 2E, 7E, 9B, 83, F5, 88, 39, 8E, 67, 93, 7F, 98, 7F, 9D, 66, A2, 35, A7, EA, AB, 85, B0, 04, B5, 67, B9, AE, BD, D7, C1, E3, C5, D0, C9, 9E, CD, 4C, D1, DA, D4, 47, D8, 93, DB, BD, DE, C4, E1, A9, E4, 6A, E7, 08, EA, 82, EC, D7, EE, 08, F1, 13, F3, F9, F4, B9, F6, 52, F8, C6, F9, 13, FB, 3A, FC, 39, FD, 12, FE, C3, FE, 4D, FF, B0, FF, EB, FF, FF, FF, EB, FF, B0, FF, 4D, FF, C3, FE, 12, FE
$A0B87C db 3A, FC, 13, FB, C6, F9, 52, F8, B9, F6, F9, F4
$A0B88A db 08, F1
$A0B88E db 82, EC, 08, EA, 6A, E7, A9, E4, C4, E1, BD, DE, 93, DB, 47, D8, DA, D4, 4C, D1, 9E, CD, D0, C9, E3, C5, D7, C1, AE, BD, 67, B9, 04, B5, 85, B0, EA, AB, 35, A7, 66, A2, 7F, 9D, 7F, 98, 67, 93, 39, 8E, F5, 88, 9B, 83, 2E, 7E, AC, 78, 19, 73, 73, 6D, BD, 67, F7, 61, 21, 5C, 3E, 56, 4D, 50, 4F, 4A, 47, 44, 33, 3E, 16, 38, F1, 31, C3, 2B, 8F, 25, 56, 1F, 17, 19, D5, 12, 8F, 0C, 48, 06
$A0B8EE DA PHX
$A0B8EF 5A PHY
$A0B8F0 08 PHP
$A0B8F1 A9 04 00 LDA #$0004
$A0B8F4 8D 0B 06 STA $060B [$A6:060B]
$A0B8F7 22 11 81 80 JSL $808111[$80:8111]
$A0B8FB 29 1F 00 AND #$001F
$A0B8FE 38 SEC
$A0B8FF E9 10 00 SBC #$0010
$A0B902 18 CLC
$A0B903 6F 34 F4 7E ADC $7EF434[$7E:F434]
$A0B907 85 12 STA $12 [$00:0012]
*$A0B909 AD E5 05 LDA $05E5 [$A6:05E5]*
$A0B90C 29 00 1F AND #$1F00
$A0B90F EB XBA
$A0B910 38 SEC
$A0B911 E9 10 00 SBC #$0010
$A0B914 18 CLC
$A0B915 6F 36 F4 7E ADC $7EF436[$7E:F436]
$A0B919 85 14 STA $14 [$00:0014]
$A0B91B A9 FF E0 LDA #$E0FF
$A0B91E 22 0E 92 A0 JSL $A0920E[$A0:920E]
$A0B922 CE 0B 06 DEC $060B [$A6:060B]
$A0B925 D0 D0 BNE $D0 [$B8F7]
$A0B927 28 PLP
$A0B928 7A PLY
$A0B929 FA PLX
$A0B92A 6B RTL
---
20.
---
$A0B92B DA PHX
$A0B92C 5A PHY
$A0B92D 08 PHP
$A0B92E A9 05 00 LDA #$0005
$A0B931 8D 0B 06 STA $060B [$B2:060B]
$A0B934 22 11 81 80 JSL $808111[$80:8111]
$A0B938 29 1F 00 AND #$001F
$A0B93B 38 SEC
$A0B93C E9 10 00 SBC #$0010
$A0B93F 18 CLC
$A0B940 6F 34 F4 7E ADC $7EF434[$7E:F434]
$A0B944 85 12 STA $12 [$00:0012]
*$A0B946 AD E5 05 LDA $05E5 [$B2:05E5]*
$A0B949 29 00 1F AND #$1F00
$A0B94C EB XBA
$A0B94D 38 SEC
$A0B94E E9 10 00 SBC #$0010
$A0B951 18 CLC
$A0B952 6F 36 F4 7E ADC $7EF436[$7E:F436]
$A0B956 85 14 STA $14 [$00:0014]
$A0B958 A9 93 F5 LDA #$F593
$A0B95B 22 0E 92 A0 JSL $A0920E[$A0:920E]
$A0B95F CE 0B 06 DEC $060B [$B2:060B]
$A0B962 D0 D0 BNE $D0 [$B934]
$A0B964 28 PLP
$A0B965 7A PLY
$A0B966 FA PLX
$A0B967 6B RTL
---
21.
---
$A0B968 DA PHX
$A0B969 5A PHY
$A0B96A 08 PHP
$A0B96B A9 05 00 LDA #$0005
$A0B96E 8D 0B 06 STA $060B [$A3:060B]
$A0B971 22 11 81 80 JSL $808111[$80:8111]
$A0B975 29 1F 00 AND #$001F
$A0B978 38 SEC
$A0B979 E9 10 00 SBC #$0010
$A0B97C 18 CLC
$A0B97D 6F 34 F4 7E ADC $7EF434[$7E:F434]
$A0B981 85 12 STA $12 [$00:0012]
*$A0B983 AD E5 05 LDA $05E5 [$A3:05E5]*
$A0B986 29 00 1F AND #$1F00
$A0B989 EB XBA
$A0B98A 38 SEC
$A0B98B E9 10 00 SBC #$0010
$A0B98E 18 CLC
$A0B98F 6F 36 F4 7E ADC $7EF436[$7E:F436]
$A0B993 85 14 STA $14 [$00:0014]
$A0B995 A9 7F DD LDA #$DD7F
$A0B998 22 0E 92 A0 JSL $A0920E[$A0:920E]
$A0B99C CE 0B 06 DEC $060B [$A3:060B]
$A0B99F D0 D0 BNE $D0 [$B971]
$A0B9A1 28 PLP
$A0B9A2 7A PLY
$A0B9A3 FA PLX
$A0B9A4 6B RTL
---
36.
---
*$A2C30C AD E5 05 LDA $05E5 [$A2:05E5]*
$A2C30F 4A LSR A
$A2C310 29 02 00 AND #$0002
$A2C313 A8 TAY
$A2C314 B9 C1 C1 LDA $C1C1,y[$A2:C1C1]
$A2C317 9D A8 0F STA $0FA8,x[$A2:0FA8]
$A2C31A AD C5 C1 LDA $C1C5 [$A2:C1C5]
$A2C31D 9D AA 0F STA $0FAA,x[$A2:0FAA]
$A2C320 AD F6 0A LDA $0AF6 [$A2:0AF6]
$A2C323 DD 7A 0F CMP $0F7A,x[$A2:0F7A]
$A2C326 10 0A BPL $0A [$C332]
$A2C328 BD AA 0F LDA $0FAA,x[$A2:0FAA]
$A2C32B 49 FF FF EOR #$FFFF
$A2C32E 1A INC A
$A2C32F 9D AA 0F STA $0FAA,x[$A2:0FAA]
$A2C332 A9 07 C1 LDA #$C107
$A2C335 20 0D C4 JSR $C40D [$A2:C40D]
$A2C338 A9 3F C3 LDA #$C33F
$A2C33B 9D B2 0F STA $0FB2,x[$A2:0FB2]
$A2C33E 6B RTL
---
39.
---
$A48752 DA PHX
*$A48753 AD E5 05 LDA $05E5 [$A4:05E5]*
$A48756 29 FF 0F AND #$0FFF
$A48759 C9 00 04 CMP #$0400
$A4875C 10 0C BPL $0C [$876A]
$A4875E A9 08 00 LDA #$0008
$A48761 8D AC 0F STA $0FAC [$A4:0FAC]
$A48764 9C B2 0F STZ $0FB2 [$A4:0FB2]
$A48767 A0 36 BB LDY #$BB36
$A4876A FA PLX
$A4876B 6B RTL
---
40.
---
$A48FFA 20 04 90 JSR $9004 [$A4:9004]
$A48FFD 80 E0 BRA $E0 [$8FDF]
$A49004 DA PHX
*$A49005 AD E5 05 LDA $05E5 [$A4:05E5]*
$A49008 29 1F 00 AND #$001F
*$A4900B AE E5 05 LDX $05E5 [$A4:05E5]*
$A4900E E0 00 10 CPX #$1000
$A49011 30 04 BMI $04 [$9017]
$A49013 49 FF FF EOR #$FFFF
$A49016 1A INC A
$A49017 22 DA 9A A4 JSL $A49ADA[$A4:9ADA]
$A4901B FA PLX
$A4901C 60 RTS
---
42.
---
$A49A9B A9 E0 FF LDA #$FFE0
$A49A9E 80 3A BRA $3A [$9ADA]
$A49AA0 A9 00 00 LDA #$0000
$A49AA3 80 35 BRA $35 [$9ADA]
$A49AA5 A9 F0 FF LDA #$FFF0
$A49AA8 80 30 BRA $30 [$9ADA]
$A49AAA A9 10 00 LDA #$0010
$A49AAD 80 2B BRA $2B [$9ADA]
$A49AAF A9 00 00 LDA #$0000
$A49AB2 80 26 BRA $26 [$9ADA]
$A49AB4 A9 08 00 LDA #$0008
$A49AB7 80 21 BRA $21 [$9ADA]
$A49AB9 A9 10 00 LDA #$0010
$A49ABC 80 1C BRA $1C [$9ADA]
$A49ABE A9 18 00 LDA #$0018
$A49AC1 80 17 BRA $17 [$9ADA]
$A49AC3 A9 20 00 LDA #$0020
$A49AC6 80 12 BRA $12 [$9ADA]
$A49AC8 A9 28 00 LDA #$0028
$A49ACB 80 0D BRA $0D [$9ADA]
$A49ACD A9 30 00 LDA #$0030
$A49AD0 80 08 BRA $08 [$9ADA]
$A49AD2 A9 38 00 LDA #$0038
$A49AD5 80 03 BRA $03 [$9ADA]
$A49AD7 A9 40 00 LDA #$0040
$A49ADA DA PHX
$A49ADB 5A PHY
$A49ADC 85 12 STA $12 [$00:0012]
*$A49ADE AD E5 05 LDA $05E5 [$A4:05E5]*
$A49AE1 29 07 00 AND #$0007
$A49AE4 18 CLC
$A49AE5 6D 7A 0F ADC $0F7A [$A4:0F7A]
$A49AE8 65 12 ADC $12 [$00:0012]
$A49AEA 85 12 STA $12 [$00:0012]
$A49AEC AD 7E 0F LDA $0F7E [$A4:0F7E]
$A49AEF 18 CLC
$A49AF0 6D 84 0F ADC $0F84 [$A4:0F84]
$A49AF3 38 SEC
$A49AF4 E9 10 00 SBC #$0010
$A49AF7 85 14 STA $14 [$00:0014]
$A49AF9 A9 15 00 LDA #$0015
$A49AFC A0 09 E5 LDY #$E509
$A49AFF 22 97 80 86 JSL $868097[$86:8097]
$A49B03 7A PLY
$A49B04 FA PLX
$A49B05 6B RTL
---
48.
---
$A592EA 5A PHY
$A592EB DA PHX
$A592EC AD B6 05 LDA $05B6 [$A5:05B6]
$A592EF 29 07 00 AND #$0007
$A592F2 D0 25 BNE $25 [$9319]
$A592F4 22 11 81 80 JSL $808111[$80:8111]
$A592F8 29 7F 00 AND #$007F
$A592FB 18 CLC
$A592FC 69 C0 00 ADC #$00C0
$A592FF 85 12 STA $12 [$00:0012]
*$A59301 AD E5 05 LDA $05E5 [$A5:05E5]*
$A59304 29 00 3F AND #$3F00
$A59307 EB XBA
$A59308 18 CLC
$A59309 69 90 01 ADC #$0190
$A5930C 85 14 STA $14 [$00:0014]
$A5930E A9 15 00 LDA #$0015
$A59311 85 16 STA $16 [$00:0016]
$A59313 64 18 STZ $18 [$00:0018]
$A59315 22 26 BC B4 JSL $B4BC26[$B4:BC26]
$A59319 FA PLX
$A5931A 7A PLY
$A5931B 60 RTS
---
49.
---
$A5978B 22 11 81 80 JSL $808111[$80:8111]
*$A5978F AD E5 05 LDA $05E5 [$A5:05E5]*
$A59792 29 7F 00 AND #$007F
$A59795 38 SEC
$A59796 E9 40 00 SBC #$0040
$A59799 85 12 STA $12 [$00:0012]
$A5979B AD 7A 0F LDA $0F7A [$A5:0F7A]
$A5979E 18 CLC
$A5979F 65 12 ADC $12 [$00:0012]
$A597A1 85 12 STA $12 [$00:0012]
*$A597A3 AD E5 05 LDA $05E5 [$A5:05E5]*
$A597A6 29 00 7F AND #$7F00
$A597A9 EB XBA
$A597AA 38 SEC
$A597AB E9 40 00 SBC #$0040
$A597AE 85 14 STA $14 [$00:0014]
$A597B0 AD 7E 0F LDA $0F7E [$A5:0F7E]
$A597B3 18 CLC
$A597B4 65 14 ADC $14 [$00:0014]
$A597B6 85 14 STA $14 [$00:0014]
$A597B8 60 RTS
---
50.
---
$A5E96E 5A PHY
$A5E96F DA PHX
$A5E970 22 11 81 80 JSL $808111[$80:8111]
*$A5E974 AD E5 05 LDA $05E5 [$A5:05E5]*
$A5E977 29 7F 00 AND #$007F
$A5E97A 38 SEC
$A5E97B E9 40 00 SBC #$0040
$A5E97E 85 12 STA $12 [$00:0012]
$A5E980 AD 7A 0F LDA $0F7A [$A5:0F7A]
$A5E983 18 CLC
$A5E984 65 12 ADC $12 [$00:0012]
$A5E986 85 12 STA $12 [$00:0012]
*$A5E988 AD E5 05 LDA $05E5 [$A5:05E5]*
$A5E98B 29 00 7F AND #$7F00
$A5E98E EB XBA
$A5E98F 38 SEC
$A5E990 E9 40 00 SBC #$0040
$A5E993 85 14 STA $14 [$00:0014]
$A5E995 AD 7E 0F LDA $0F7E [$A5:0F7E]
$A5E998 18 CLC
$A5E999 65 14 ADC $14 [$00:0014]
$A5E99B 85 14 STA $14 [$00:0014]
$A5E99D A9 15 00 LDA #$0015
$A5E9A0 A0 09 E5 LDY #$E509
$A5E9A3 22 97 80 86 JSL $868097[$86:8097]
$A5E9A7 A9 29 00 LDA #$0029
$A5E9AA 22 CB 90 80 JSL $8090CB[$80:90CB]
$A5E9AE FA PLX
$A5E9AF 7A PLY
$A5E9B0 6B RTL
---
51.
---
$A5E9B1 5A PHY
$A5E9B2 DA PHX
$A5E9B3 22 11 81 80 JSL $808111[$80:8111]
*$A5E9B7 AD E5 05 LDA $05E5 [$A5:05E5]*
$A5E9BA 29 7F 00 AND #$007F
$A5E9BD 38 SEC
$A5E9BE E9 40 00 SBC #$0040
$A5E9C1 85 12 STA $12 [$00:0012]
$A5E9C3 AD 7A 0F LDA $0F7A [$A5:0F7A]
$A5E9C6 18 CLC
$A5E9C7 65 12 ADC $12 [$00:0012]
$A5E9C9 85 12 STA $12 [$00:0012]
*$A5E9CB AD E5 05 LDA $05E5 [$A5:05E5]*
$A5E9CE 29 00 3F AND #$3F00
$A5E9D1 EB XBA
$A5E9D2 38 SEC
$A5E9D3 E9 20 00 SBC #$0020
$A5E9D6 85 14 STA $14 [$00:0014]
$A5E9D8 AD 7E 0F LDA $0F7E [$A5:0F7E]
$A5E9DB 18 CLC
$A5E9DC 65 14 ADC $14 [$00:0014]
$A5E9DE 85 14 STA $14 [$00:0014]
$A5E9E0 A9 03 00 LDA #$0003
$A5E9E3 85 16 STA $16 [$00:0016]
$A5E9E5 64 18 STZ $18 [$00:0018]
$A5E9E7 22 26 BC B4 JSL $B4BC26[$B4:BC26]
$A5E9EB A9 25 00 LDA #$0025
$A5E9EE 22 CB 90 80 JSL $8090CB[$80:90CB]
$A5E9F2 FA PLX
$A5E9F3 7A PLY
$A5E9F4 6B RTL
---
52.
---
$A5E9F5 5A PHY
$A5E9F6 DA PHX
$A5E9F7 AD B6 05 LDA $05B6 [$A5:05B6]
$A5E9FA 29 0F 00 AND #$000F
$A5E9FD D0 28 BNE $28 [$EA27]
$A5E9FF 22 11 81 80 JSL $808111[$80:8111]
*$A5EA03 AD E5 05 LDA $05E5 [$A5:05E5]*
$A5EA06 29 3F 00 AND #$003F
$A5EA09 18 CLC
$A5EA0A 69 60 00 ADC #$0060
$A5EA0D 85 12 STA $12 [$00:0012]
*$A5EA0F AD E5 05 LDA $05E5 [$A5:05E5]*
$A5EA12 29 00 0F AND #$0F00
$A5EA15 EB XBA
$A5EA16 18 CLC
$A5EA17 69 E0 01 ADC #$01E0
$A5EA1A 85 14 STA $14 [$00:0014]
$A5EA1C A9 15 00 LDA #$0015
$A5EA1F 85 16 STA $16 [$00:0016]
$A5EA21 64 18 STZ $18 [$00:0018]
$A5EA23 22 26 BC B4 JSL $B4BC26[$B4:BC26]
$A5EA27 FA PLX
$A5EA28 7A PLY
$A5EA29 6B RTL
---
53.
---
$A69954 db 01, 00, F9, 81, F8, 0A, 23, 01, 00, F9, 81, F8, 08, 23, 01, 00, F8, 81, F8, 0A, E3, 01, 00, F8, 81, F8, 08, E3, 01, 00, F9, 81, F8, 06, 23, 01, 00, F9, 81, F8, 22, 23, 01, 00, F8, 81, F8, 06, E3, 01, 00, F8, 81, F8, 22, E3, 00, 38, 9D, 55, 16, 18, 0D, 10, 9F, 4B, 37, 3F, D0, 36, 69, 2E, 08, 26, A6, 1D, 25, 11, C5, 08, 03, 00, 4E, 09, 56, 16, 00, 00, 74, 9B, 10, 00, 64, 9C, 0C, 00, B6, 9C, 08, 00, 08, 9D, 0C, 00, 5A, 9D, 26, 9B, ED, 80, AC, 99, 74, 9B, 10, 00, 64, 9C, 26, 9B, 0C, 00, 5A, 9D, 08, 00, 08, 9D, 0C, 00, B6, 9C, ED, 80, C4, 99, 10, 00, AC, 9D, B2, 9B, 08, 00, FE, 9D, C4, 9B, 10, 00, 50, 9E, 08, 00, FE, 9D, ED, 80, AC, 99
$A699FA db 74, 9B, 10, 00, A2, 9E, 0C, 00, F4, 9E, 08, 00, 46, 9F, 0C, 00, 98, 9F, 26, 9B, ED, 80, FA, 99
$A69A48 db 00, FE, 00, FB, 00, FC, 00, FB
$A69A58 AE 54 0E LDX $0E54 [$A6:0E54]
*$A69A5B AD E5 05 LDA $05E5 [$A6:05E5]*
$A69A5E 29 03 00 AND #$0003
$A69A61 18 CLC
$A69A62 69 02 00 ADC #$0002
$A69A65 9D AE 0F STA $0FAE,x[$A6:106E]
$A69A68 9D B0 0F STA $0FB0,x[$A6:1070]
$A69A6B 18 CLC
$A69A6C 69 40 00 ADC #$0040
$A69A6F 9F 06 78 7E STA $7E7806,x[$7E:78C6]
$A69A73 18 CLC
$A69A74 69 20 00 ADC #$0020
$A69A77 9F 08 78 7E STA $7E7808,x[$7E:78C8]
$A69A7B 18 CLC
$A69A7C 69 D0 FF ADC #$FFD0
$A69A7F 9F 0A 78 7E STA $7E780A,x[$7E:78CA]
$A69A83 A9 00 00 LDA #$0000
$A69A86 9F 0E 78 7E STA $7E780E,x[$7E:78CE]
$A69A8A BD 86 0F LDA $0F86,x[$A6:1046]
$A69A8D 09 00 20 ORA #$2000
$A69A90 9D 86 0F STA $0F86,x[$A6:1046]
$A69A93 A9 01 00 LDA #$0001
$A69A96 9D 94 0F STA $0F94,x[$A6:1054]
$A69A99 9E 90 0F STZ $0F90,x[$A6:1050]
$A69A9C A9 FC FF LDA #$FFFC
$A69A9F 9D AA 0F STA $0FAA,x[$A6:106A]
$A69AA2 9D AC 0F STA $0FAC,x[$A6:106C]
$A69AA5 A0 AE 99 LDY #$99AE
$A69AA8 BD 7A 0F LDA $0F7A,x[$A6:103A]
$A69AAB 38 SEC
$A69AAC ED F6 0A SBC $0AF6 [$A6:0AF6]
$A69AAF 10 0C BPL $0C [$9ABD]
$A69AB1 A9 04 00 LDA #$0004
$A69AB4 9D AA 0F STA $0FAA,x[$A6:106A]
$A69AB7 9D AC 0F STA $0FAC,x[$A6:106C]
$A69ABA A0 FC 99 LDY #$99FC
$A69ABD 98 TYA
$A69ABE 9D 92 0F STA $0F92,x[$A6:1052]
$A69AC1 6B RTL
---
54.
---
*$A69AF1 AD E5 05 LDA $05E5 [$A6:05E5]*
$A69AF4 29 3F 00 AND #$003F
$A69AF7 18 CLC
$A69AF8 69 10 00 ADC #$0010
$A69AFB 9F 06 78 7E STA $7E7806,x[$7E:78CA]
$A69AFF 98 TYA
$A69B00 FA PLX
$A69B01 9F 0C 78 7E STA $7E780C,x[$7E:78CC]
$A69B05 A0 BE 9D LDY #$9DBE
$A69B08 BD AC 0F LDA $0FAC,x[$A6:106C]
$A69B0B 30 03 BMI $03 [$9B10]
$A69B0D A0 CC 9D LDY #$9DCC
$A69B10 22 27 80 86 JSL $868027[$86:8027]
$A69B14 22 70 AD A0 JSL $A0AD70[$A0:AD70]
$A69B18 2F FF FF 00 AND $00FFFF[$00:FFFF]
$A69B1C D0 07 BNE $07 [$9B25]
$A69B1E A9 3F 00 LDA #$003F
$A69B21 22 CB 90 80 JSL $8090CB[$80:90CB]
$A69B25 60 RTS
---
55.
---
$A69B26 5A PHY
$A69B27 AE 54 0E LDX $0E54 [$A6:0E54]
$A69B2A BD B0 0F LDA $0FB0,x[$A6:1070]
$A69B2D F0 03 BEQ $03 [$9B32]
$A69B2F DE B0 0F DEC $0FB0,x[$A6:1070]
$A69B32 DE AE 0F DEC $0FAE,x[$A6:106E]
$A69B35 D0 0F BNE $0F [$9B46]
*$A69B37 AD E5 05 LDA $05E5 [$A6:05E5]*
$A69B3A 29 03 00 AND #$0003
$A69B3D 18 CLC
$A69B3E 69 07 00 ADC #$0007
$A69B41 9D AE 0F STA $0FAE,x[$A6:106E]
$A69B44 80 0D BRA $0D [$9B53]
$A69B46 BD AA 0F LDA $0FAA,x[$A6:106A]
$A69B49 85 14 STA $14 [$00:0014]
$A69B4B 64 12 STZ $12 [$00:0012]
$A69B4D 22 AB C6 A0 JSL $A0C6AB[$A0:C6AB]
$A69B51 90 0A BCC $0A [$9B5D]
$A69B53 BD AA 0F LDA $0FAA,x[$A6:106A]
$A69B56 49 FF FF EOR #$FFFF
$A69B59 1A INC A
$A69B5A 9D AA 0F STA $0FAA,x[$A6:106A]
$A69B5D A9 FC FF LDA #$FFFC
$A69B60 9D AC 0F STA $0FAC,x[$A6:106C]
$A69B63 BD 7A 0F LDA $0F7A,x[$A6:103A]
$A69B66 38 SEC
$A69B67 ED F6 0A SBC $0AF6 [$A6:0AF6]
$A69B6A 10 06 BPL $06 [$9B72]
$A69B6C A9 04 00 LDA #$0004
$A69B6F 9D AC 0F STA $0FAC,x[$A6:106C]
$A69B72 7A PLY
$A69B73 6B RTL
---
56.
---
$A69B74 AE 54 0E LDX $0E54 [$A6:0E54]
$A69B77 BD B0 0F LDA $0FB0,x[$A6:1070]
$A69B7A D0 19 BNE $19 [$9B95]
*$A69B7C AD E5 05 LDA $05E5 [$A6:05E5]*
$A69B7F 29 03 00 AND #$0003
$A69B82 18 CLC
$A69B83 69 03 00 ADC #$0003
$A69B86 9D B0 0F STA $0FB0,x[$A6:1070]
$A69B89 A0 2A 9A LDY #$9A2A
$A69B8C BD AC 0F LDA $0FAC,x[$A6:106C]
$A69B8F 10 14 BPL $14 [$9BA5]
$A69B91 A0 DC 99 LDY #$99DC
$A69B94 6B RTL
---
57.
---
*$A6A2BD AD E5 05 LDA $05E5 [$A6:05E5]*
$A6A2C0 C9 00 FF CMP #$FF00
$A6A2C3 90 0D BCC $0D [$A2D2]
*$A6A2C5 AD E5 05 LDA $05E5 [$A6:05E5]*
$A6A2C8 29 0F 00 AND #$000F
$A6A2CB 69 07 00 ADC #$0007
$A6A2CE 8F 1E 20 7E STA $7E201E[$7E:201E]
$A6A2D2 60 RTS
---
58.
---
$A6B6A7 AD 7E 0F LDA $0F7E [$A6:0F7E]
$A6B6AA C9 20 01 CMP #$0120
$A6B6AD 30 1F BMI $1F [$B6CE]
$A6B6AF AF 20 78 7E LDA $7E7820[$7E:7820]
$A6B6B3 0A ASL A
$A6B6B4 A8 TAY
$A6B6B5 B9 C8 B6 LDA $B6C8,y[$A6:B6CC]
$A6B6B8 85 12 STA $12 [$00:0012]
$A6B6BA A9 20 01 LDA #$0120
$A6B6BD 85 14 STA $14 [$00:0014]
$A6B6BF A2 00 00 LDX #$0000
$A6B6C2 A0 00 00 LDY #$0000
$A6B6C5 4C 23 D5 JMP $D523 [$A6:D523]
$A6B6CC db 60, 00
$A6B6CE 20 55 D9 JSR $D955 [$A6:D955]
$A6B6D1 A9 DD B6 LDA #$B6DD
$A6B6D4 8D A8 0F STA $0FA8 [$A6:0FA8]
$A6B6D7 A9 20 00 LDA #$0020
$A6B6DA 8D B2 0F STA $0FB2 [$A6:0FB2]
$A6B6DD AD 7A 0F LDA $0F7A [$A6:0F7A]
$A6B6E0 85 12 STA $12 [$00:0012]
$A6B6E2 A9 20 01 LDA #$0120
$A6B6E5 85 14 STA $14 [$00:0014]
$A6B6E7 A2 00 00 LDX #$0000
$A6B6EA A0 00 00 LDY #$0000
$A6B6ED 20 23 D5 JSR $D523 [$A6:D523]
$A6B6F0 CE B2 0F DEC $0FB2 [$A6:0FB2]
$A6B6F3 10 18 BPL $18 [$B70D]
$A6B6F5 20 33 CB JSR $CB33 [$A6:CB33]
$A6B6F8 20 0F B9 JSR $B90F [$A6:B90F]
$A6B6FB A9 0E B7 LDA #$B70E
$A6B6FE 8D A8 0F STA $0FA8 [$A6:0FA8]
*$A6B701 AD E5 05 LDA $05E5 [$A6:05E5]*
$A6B704 29 3F 00 AND #$003F
$A6B707 69 80 00 ADC #$0080
$A6B70A 8D B2 0F STA $0FB2 [$A6:0FB2]
$A6B70D 60 RTS
---
59.
---
$A6B859 20 F1 BC JSR $BCF1 [$A6:BCF1]
$A6B85C B0 01 BCS $01 [$B85F]
$A6B85F A2 04 00 LDX #$0004
$A6B862 A0 04 00 LDY #$0004
$A6B865 86 16 STX $16 [$00:0016]
$A6B867 84 18 STY $18 [$00:0018]
$A6B869 AF 20 78 7E LDA $7E7820[$7E:7820]
$A6B86D 0A ASL A
$A6B86E A8 TAY
$A6B86F B9 D5 B9 LDA $B9D5,y[$A6:B9D9]
$A6B872 18 CLC
$A6B873 6D 7A 0F ADC $0F7A [$A6:0F7A]
$A6B876 85 12 STA $12 [$00:0012]
$A6B878 AF 3A 78 7E LDA $7E783A[$7E:783A]
$A6B87C A8 TAY
$A6B87D B9 DB B9 LDA $B9DB,y[$A6:B9DB]
$A6B880 18 CLC
$A6B881 6D 7E 0F ADC $0F7E [$A6:0F7E]
$A6B884 85 14 STA $14 [$00:0014]
$A6B886 4C 29 DF JMP $DF29 [$A6:DF29]
$A6B889 AD AC 0F LDA $0FAC [$A6:0FAC]
$A6B88C 30 04 BMI $04 [$B892]
$A6B88E 49 FF FF EOR #$FFFF
$A6B891 1A INC A
$A6B892 C9 00 FE CMP #$FE00
$A6B895 30 03 BMI $03 [$B89A]
$A6B89A 8D AC 0F STA $0FAC [$A6:0FAC]
$A6B89D 20 4D B8 JSR $B84D [$A6:B84D]
$A6B8A0 A9 8F BB LDA #$BB8F
$A6B8A3 8D A8 0F STA $0FA8 [$A6:0FA8]
$A6B8A6 4C 8F BB JMP $BB8F [$A6:BB8F]
$A6B8A9 AD AA 0F LDA $0FAA [$A6:0FAA]
$A6B8AC D0 0F BNE $0F [$B8BD]
$A6B8BD AD 7A 0F LDA $0F7A [$A6:0F7A]
$A6B8C0 38 SEC
$A6B8C1 ED F6 0A SBC $0AF6 [$A6:0AF6]
$A6B8C4 4D AA 0F EOR $0FAA [$A6:0FAA]
$A6B8C7 30 22 BMI $22 [$B8EB]
$A6B8C9 AD 7A 0F LDA $0F7A [$A6:0F7A]
$A6B8CC CF 04 80 7E CMP $7E8004[$7E:8004]
$A6B8D0 30 31 BMI $31 [$B903]
$A6B8D2 CF 06 80 7E CMP $7E8006[$7E:8006]
$A6B8D6 10 31 BPL $31 [$B909]
*$A6B8D8 AD E5 05 LDA $05E5 [$A6:05E5]*
$A6B8DB C9 55 05 CMP #$0555
$A6B8DE 90 0A BCC $0A [$B8EA]
$A6B8E0 AD AA 0F LDA $0FAA [$A6:0FAA]
$A6B8E3 49 FF FF EOR #$FFFF
$A6B8E6 1A INC A
$A6B8E7 8D AA 0F STA $0FAA [$A6:0FAA]
$A6B8EA 60 RTS
---
60.
---
$A6B8EB AD 7A 0F LDA $0F7A [$A6:0F7A]
$A6B8EE CF 04 80 7E CMP $7E8004[$7E:8004]
$A6B8F2 30 0F BMI $0F [$B903]
$A6B8F4 CF 06 80 7E CMP $7E8006[$7E:8006]
$A6B8F8 10 0F BPL $0F [$B909]
*$A6B8FA AD E5 05 LDA $05E5 [$A6:05E5]*
$A6B8FD C9 55 05 CMP #$0555
$A6B900 90 DE BCC $DE [$B8E0]
$A6B902 60 RTS
*$A6B90F AD E5 05 LDA $05E5 [$A6:05E5]*
$A6B912 29 03 00 AND #$0003
$A6B915 0A ASL A
$A6B916 A8 TAY
$A6B917 B9 65 B9 LDA $B965,y[$A6:B96B]
$A6B91A 85 12 STA $12 [$00:0012]
$A6B91C B9 6D B9 LDA $B96D,y[$A6:B973]
$A6B91F 85 14 STA $14 [$00:0014]
$A6B921 AF 24 78 7E LDA $7E7824[$7E:7824]
$A6B925 18 CLC
$A6B926 69 02 00 ADC #$0002
$A6B929 0A ASL A
$A6B92A A8 TAY
$A6B92B B9 4D B9 LDA $B94D,y[$A6:B951]
$A6B92E 8F 0E 20 7E STA $7E200E[$7E:200E]
$A6B932 B9 59 B9 LDA $B959,y[$A6:B95D]
$A6B935 8F 0C 20 7E STA $7E200C[$7E:200C]
$A6B939 B1 14 LDA ($14),y[$A6:B9CD]
$A6B93B 8D AC 0F STA $0FAC [$A6:0FAC]
$A6B93E B1 12 LDA ($12),y[$A6:B99D]
$A6B940 AE AA 0F LDX $0FAA [$A6:0FAA]
$A6B943 10 04 BPL $04 [$B949]
$A6B945 49 FF FF EOR #$FFFF
$A6B948 1A INC A
$A6B949 8D AA 0F STA $0FAA [$A6:0FAA]
$A6B94C 60 RTS
---
62.
---
$A6C66E db E8, FF, E8, FF, EC, FF, 14, 00, 10, 00, E2, FF, 1E, 00, FD, FF, 0E, 00, F3, FF, FE, FF, 12, 00, FE, FF, E0, FF, E1, FF, 08, 00, FC, FF, F6, FF, 13, 00, 13, 00
$A6C696 AE 54 0E LDX $0E54 [$A6:0E54]
$A6C699 A9 01 00 LDA #$0001
$A6C69C 9D 94 0F STA $0F94,x[$A6:0FD4]
$A6C69F 9E 90 0F STZ $0F90,x[$A6:0FD0]
$A6C6A2 9E 98 0F STZ $0F98,x[$A6:0FD8]
$A6C6A5 A9 00 0E LDA #$0E00
$A6C6A8 9D 96 0F STA $0F96,x[$A6:0FD6]
$A6C6AB BC B4 0F LDY $0FB4,x[$A6:0FF4]
$A6C6AE B9 CE C6 LDA $C6CE,y[$A6:C6DA]
$A6C6B1 9D B2 0F STA $0FB2,x[$A6:0FF2]
$A6C6B4 22 11 81 80 JSL $808111[$80:8111]
$A6C6B8 29 30 01 AND #$0130
*$A6C6BB 2C E5 05 BIT $05E5 [$A6:05E5]*
$A6C6BE 10 04 BPL $04 [$C6C4]
$A6C6C0 49 FF FF EOR #$FFFF
$A6C6C3 1A INC A
$A6C6C4 9D AA 0F STA $0FAA,x[$A6:0FEA]
$A6C6C7 9E AC 0F STZ $0FAC,x[$A6:0FEC]
$A6C6CA BB TYX
$A6C6CB 7C E6 C6 JMP ($C6E6,x)[$A6:C78E]
$A6C6CE db 48, 00, 50, 00, 58, 00, 60, 00, 68, 00, 70, 00, 78, 00, 28, 00, 30, 00, 38, 00, 80, 00, 40, 00, FE
$A6C6E8 db 16
$A6C6EA db 2E
$A6C6EC db 46
$A6C6EE db 5E
$A6C6F0 db 76
$A6C6F2 db 8E
$A6C6F4 db DA
$A6C6F6 db 0C
$A6C6F8 db 3E
$A6C6FA db 70
$A6C6FC db A2
$A6C6FE AE 54 0E LDX $0E54 [$A6:0E54]
$A6C701 AF 2C 20 7E LDA $7E202C[$7E:202C]
$A6C705 9D 7A 0F STA $0F7A,x[$A6:113A]
$A6C708 AF 2E 20 7E LDA $7E202E[$7E:202E]
$A6C70C 9D 7E 0F STA $0F7E,x[$A6:113E]
$A6C70F A9 47 CA LDA #$CA47
$A6C712 9D 92 0F STA $0F92,x[$A6:1152]
$A6C715 6B RTL
---
63.
---
$A6CC7D AD 04 20 LDA $2004 [$7E:2004]
$A6CC80 F0 08 BEQ $08 [$CC8A]
$A6CC82 AD 1C 20 LDA $201C [$7E:201C]
$A6CC85 2D 1A 20 AND $201A [$7E:201A]
$A6CC88 30 27 BMI $27 [$CCB1]
$A6CC8A AD 02 20 LDA $2002 [$7E:2002]
$A6CC8D F0 2A BEQ $2A [$CCB9]
*$A6CC8F AD E5 05 LDA $05E5 [$7E:05E5]*
$A6CC92 29 FF 00 AND #$00FF
$A6CC95 C9 F0 00 CMP #$00F0
$A6CC98 B0 17 BCS $17 [$CCB1]
$A6CC9A AD F6 0A LDA $0AF6 [$7E:0AF6]
$A6CC9D 38 SEC
$A6CC9E ED 7A 0F SBC $0F7A [$7E:0F7A]
$A6CCA1 10 04 BPL $04 [$CCA7]
$A6CCA3 49 FF FF EOR #$FFFF
$A6CCA6 1A INC A
$A6CCA7 C9 80 00 CMP #$0080
$A6CCAA B0 0D BCS $0D [$CCB9]
$A6CCAC A9 00 00 LDA #$0000
$A6CCAF 80 04 BRA $04 [$CCB5]
$A6CCB1 AD 04 20 LDA $2004 [$7E:2004]
$A6CCB4 3A DEC A
$A6CCB5 20 9D D1 JSR $D19D [$A6:D19D]
$A6CCB8 68 PLA
$A6CCB9 9C 04 20 STZ $2004 [$7E:2004]
$A6CCBC 60 RTS
---
64.
---
$A6CD24 20 FE CB JSR $CBFE [$A6:CBFE]
$A6CD27 20 1E CC JSR $CC1E [$A6:CC1E]
$A6CD2A 90 33 BCC $33 [$CD5F]
*$A6CD2C AD E5 05 LDA $05E5 [$7E:05E5]*
$A6CD2F 29 FF 00 AND #$00FF
$A6CD32 C9 F0 00 CMP #$00F0
$A6CD35 B0 13 BCS $13 [$CD4A]
$A6CD37 AD F6 0A LDA $0AF6 [$7E:0AF6]
$A6CD3A 38 SEC
$A6CD3B EF 7A 0F 00 SBC $000F7A[$00:0F7A]
$A6CD3F 10 04 BPL $04 [$CD45]
$A6CD41 49 FF FF EOR #$FFFF
$A6CD44 1A INC A
$A6CD45 C9 80 00 CMP #$0080
$A6CD48 B0 15 BCS $15 [$CD5F]
$A6CD4A AD 1C 20 LDA $201C [$7E:201C]
$A6CD4D 2D 1A 20 AND $201A [$7E:201A]
$A6CD50 10 0D BPL $0D [$CD5F]
$A6CD5F AD 20 20 LDA $2020 [$7E:2020]
$A6CD62 0D 34 20 ORA $2034 [$7E:2034]
$A6CD65 0D 48 20 ORA $2048 [$7E:2048]
$A6CD68 0D 5C 20 ORA $205C [$7E:205C]
$A6CD6B 0D 70 20 ORA $2070 [$7E:2070]
$A6CD6E 0D 84 20 ORA $2084 [$7E:2084]
$A6CD71 0D 98 20 ORA $2098 [$7E:2098]
$A6CD74 F0 01 BEQ $01 [$CD77]
$A6CD76 60 RTS
---
65.
---
$A6F765 AE 54 0E LDX $0E54 [$A6:0E54]
$A6F768 7C A8 0F JMP ($0FA8,x)[$A6:F7BD]
$A6F76B A0 14 00 LDY #$0014
$A6F76E 80 03 BRA $03 [$F773]
$A6F770 A0 1D 00 LDY #$001D
$A6F773 AD 3F 09 LDA $093F [$A6:093F]
$A6F776 C9 02 00 CMP #$0002
$A6F779 90 29 BCC $29 [$F7A4]
$A6F77B AD 40 18 LDA $1840 [$A6:1840]
$A6F77E D0 24 BNE $24 [$F7A4]
*$A6F780 AD E5 05 LDA $05E5 [$A6:05E5]*
$A6F783 29 FF 0F AND #$0FFF
$A6F786 C9 80 00 CMP #$0080
$A6F789 90 0B BCC $0B [$F796]
$A6F78B A9 02 00 LDA #$0002
$A6F78E 8D 40 18 STA $1840 [$A6:1840]
$A6F791 98 TYA
$A6F792 8D 3E 18 STA $183E [$A6:183E]
$A6F795 6B RTL
---
67.
---
$A7BD2D AE 54 0E LDX $0E54 [$A7:0E54]
$A7BD30 80 C0 BRA $C0 [$BCF2]
$A7BD32 C2 30 REP #$30
$A7BD34 AD 8C 0F LDA $0F8C [$A7:0F8C]
$A7BD37 C9 01 00 CMP #$0001
$A7BD3A 30 03 BMI $03 [$BD3F]
$A7BD3C 6C 28 11 JMP ($1128)[$A7:B92D]
$A7BD49 C2 30 REP #$30
$A7BD4B AD 8C 0F LDA $0F8C [$A7:0F8C]
$A7BD4E C9 01 00 CMP #$0001
$A7BD51 30 03 BMI $03 [$BD56]
$A7BD53 6C 68 11 JMP ($1168)[$A7:B92D]
*$A7BD60 AD E5 05 LDA $05E5 [$A7:05E5]*
$A7BD63 29 06 00 AND #$0006
$A7BD66 A8 TAY
$A7BD67 AD 30 11 LDA $1130 [$A7:1130]
$A7BD6A AE 54 0E LDX $0E54 [$A7:0E54]
$A7BD6D E0 80 01 CPX #$0180
$A7BD70 D0 03 BNE $03 [$BD75]
$A7BD72 AD 70 11 LDA $1170 [$A7:1170]
$A7BD75 C9 00 00 CMP #$0000
$A7BD78 10 05 BPL $05 [$BD7F]
$A7BD7A B9 3E BE LDA $BE3E,y[$A7:BE42]
$A7BD7D 80 03 BRA $03 [$BD82]
$A7BD7F B9 46 BE LDA $BE46,y[$A7:BE4A]
$A7BD82 A8 TAY
$A7BD83 B9 00 00 LDA $0000,y[$A7:BE76]
$A7BD86 9D AA 0F STA $0FAA,x[$A7:112A]
$A7BD89 B9 02 00 LDA $0002,y[$A7:BE78]
$A7BD8C 9D AC 0F STA $0FAC,x[$A7:112C]
$A7BD8F B9 04 00 LDA $0004,y[$A7:BE7A]
$A7BD92 9D AE 0F STA $0FAE,x[$A7:112E]
$A7BD95 B9 06 00 LDA $0006,y[$A7:BE7C]
$A7BD98 9D B0 0F STA $0FB0,x[$A7:1130]
$A7BD9B A9 01 00 LDA #$0001
$A7BD9E 9D B4 0F STA $0FB4,x[$A7:1134]
$A7BDA1 BD 86 0F LDA $0F86,x[$A7:1106]
$A7BDA4 29 FF FE AND #$FEFF
$A7BDA7 29 FF FB AND #$FBFF
$A7BDAA 9D 86 0F STA $0F86,x[$A7:1106]
$A7BDAD A9 01 00 LDA #$0001
$A7BDB0 9D 94 0F STA $0F94,x[$A7:1114]
$A7BDB3 A9 0A 8B LDA #$8B0A
$A7BDB6 9D 92 0F STA $0F92,x[$A7:1112]
$A7BDB9 A9 8E BE LDA #$BE8E
$A7BDBC 9D A8 0F STA $0FA8,x[$A7:1128]
$A7BDBF AD E5 05 LDA $05E5 [$A7:05E5]
$A7BDC2 89 01 00 BIT #$0001
$A7BDC5 D0 23 BNE $23 [$BDEA]
$A7BDC7 A9 00 00 LDA #$0000
$A7BDCA 9F 0E 78 7E STA $7E780E,x[$7E:798E]
$A7BDCE AD 7A 0F LDA $0F7A [$A7:0F7A]
$A7BDD1 38 SEC
$A7BDD2 ED 82 0F SBC $0F82 [$A7:0F82]
$A7BDD5 38 SEC
$A7BDD6 FD 82 0F SBC $0F82,x[$A7:1102]
$A7BDD9 29 F0 FF AND #$FFF0
$A7BDDC 9D 7A 0F STA $0F7A,x[$A7:10FA]
$A7BDDF AD BE 0F LDA $0FBE [$A7:0FBE]
$A7BDE2 18 CLC
$A7BDE3 69 80 00 ADC #$0080
$A7BDE6 9D 7E 0F STA $0F7E,x[$A7:10FE]
$A7BDE9 6B RTL
---
70.
---
$A8B82F AE 54 0E LDX $0E54 [$A8:0E54]
$A8B832 22 11 81 80 JSL $808111[$80:8111]
*$A8B836 AD E5 05 LDA $05E5 [$A8:05E5]*
$A8B839 29 07 00 AND #$0007
$A8B83C 0A ASL A
$A8B83D A8 TAY
$A8B83E B9 4E B7 LDA $B74E,y[$A8:B75A]
$A8B841 9D AC 0F STA $0FAC,x[$A8:10AC]
*$A8B844 AD E5 05 LDA $05E5 [$A8:05E5]*
$A8B847 29 01 00 AND #$0001
$A8B84A 9F 12 78 7E STA $7E7812,x[$7E:7912]
$A8B84E 60 RTS
---
71.
---
$A8D0C6 A9 1D CB LDA #$CB1D
$A8D0C9 85 32 STA $32 [$00:0032]
$A8D0CB A9 D0 D2 LDA #$D2D0
$A8D0CE 85 30 STA $30 [$00:0030]
$A8D0D0 80 0A BRA $0A [$D0DC]
$A8D0D2 A9 D1 C8 LDA #$C8D1
$A8D0D5 85 32 STA $32 [$00:0032]
$A8D0D7 A9 A6 D2 LDA #$D2A6
$A8D0DA 85 30 STA $30 [$00:0030]
$A8D0DC BD AA 0F LDA $0FAA,x[$A8:0FAA]
$A8D0DF D0 1B BNE $1B [$D0FC]
*$A8D0E1 AD E5 05 LDA $05E5 [$A8:05E5]*
$A8D0E4 29 1F 00 AND #$001F
$A8D0E7 18 CLC
$A8D0E8 69 10 00 ADC #$0010
$A8D0EB 9D AA 0F STA $0FAA,x[$A8:0FAA]
$A8D0EE DA PHX
$A8D0EF A4 30 LDY $30 [$00:0030]
$A8D0F1 AE 54 0E LDX $0E54 [$A8:0E54]
$A8D0F4 22 27 80 86 JSL $868027[$86:8027]
$A8D0F8 FA PLX
$A8D0F9 A4 32 LDY $32 [$00:0032]
$A8D0FB 6B RTL
---
72.
---
$A8D100 A9 09 CB LDA #$CB09
$A8D103 85 32 STA $32 [$00:0032]
$A8D105 80 05 BRA $05 [$D10C]
$A8D107 A9 BD C8 LDA #$C8BD
$A8D10A 85 32 STA $32 [$00:0032]
$A8D10C BD AA 0F LDA $0FAA,x[$A8:0FAA]
$A8D10F D0 1C BNE $1C [$D12D]
*$A8D111 AD E5 05 LDA $05E5 [$A8:05E5]*
$A8D114 29 1F 00 AND #$001F
$A8D117 18 CLC
$A8D118 69 10 00 ADC #$0010
$A8D11B 9D AA 0F STA $0FAA,x[$A8:0FAA]
$A8D11E DA PHX
$A8D11F A0 B4 D2 LDY #$D2B4
$A8D122 AE 54 0E LDX $0E54 [$A8:0E54]
$A8D125 22 27 80 86 JSL $868027[$86:8027]
$A8D129 FA PLX
$A8D12A A4 32 LDY $32 [$00:0032]
$A8D12C 6B RTL
---
73.
---
$A8D131 A9 DE D2 LDA #$D2DE
$A8D134 85 30 STA $30 [$00:0030]
$A8D136 A9 FD CA LDA #$CAFD
$A8D139 85 32 STA $32 [$00:0032]
$A8D13B 80 0A BRA $0A [$D147]
$A8D13D A9 C2 D2 LDA #$D2C2
$A8D140 85 30 STA $30 [$00:0030]
$A8D142 A9 B1 C8 LDA #$C8B1
$A8D145 85 32 STA $32 [$00:0032]
$A8D147 BD AA 0F LDA $0FAA,x[$A8:0FAA]
$A8D14A D0 1B BNE $1B [$D167]
*$A8D14C AD E5 05 LDA $05E5 [$A8:05E5]*
$A8D14F 29 1F 00 AND #$001F
$A8D152 18 CLC
$A8D153 69 10 00 ADC #$0010
$A8D156 9D AA 0F STA $0FAA,x[$A8:11AA]
$A8D159 DA PHX
$A8D15A A4 30 LDY $30 [$00:0030]
$A8D15C AE 54 0E LDX $0E54 [$A8:0E54]
$A8D15F 22 27 80 86 JSL $868027[$86:8027]
$A8D163 A4 32 LDY $32 [$00:0032]
$A8D165 FA PLX
$A8D166 6B RTL
---
75.
---
$A8F58B A9 E3 F5 LDA #$F5E3
$A8F58E 9D A8 0F STA $0FA8,x[$A8:10A8]
$A8F591 A9 00 00 LDA #$0000
$A8F594 9F 10 78 7E STA $7E7810,x[$7E:7910]
*$A8F598 AD E5 05 LDA $05E5 [$A8:05E5]*
$A8F59B 29 01 00 AND #$0001
$A8F59E 18 CLC
$A8F59F 69 F8 FF ADC #$FFF8
$A8F5A2 9F 12 78 7E STA $7E7812,x[$7E:7912]
$A8F5A6 BD 7A 0F LDA $0F7A,x[$A8:107A]
$A8F5A9 CD F6 0A CMP $0AF6 [$A8:0AF6]
$A8F5AC 10 1B BPL $1B [$F5C9]
$A8F5AE A9 00 00 LDA #$0000
$A8F5B1 9F 0C 78 7E STA $7E780C,x[$7E:798C]
$A8F5B5 A9 02 00 LDA #$0002
$A8F5B8 9F 0E 78 7E STA $7E780E,x[$7E:798E]
$A8F5BC A9 A6 EA LDA #$EAA6
$A8F5BF 9D 92 0F STA $0F92,x[$A8:1112]
$A8F5C2 A9 01 00 LDA #$0001
$A8F5C5 9D 94 0F STA $0F94,x[$A8:1114]
$A8F5C8 6B RTL
---
76.
---
$A988E9 A9 08 00 LDA #$0008
$A988EC 8F 30 80 7E STA $7E8030[$7E:8030]
$A988F0 AF 32 80 7E LDA $7E8032[$7E:8032]
$A988F4 3A DEC A
$A988F5 10 03 BPL $03 [$88FA]
$A988F7 A9 07 00 LDA #$0007
$A988FA 8F 32 80 7E STA $7E8032[$7E:8032]
$A988FE 0A ASL A
$A988FF 0A ASL A
$A98900 AA TAX
$A98901 BD 29 89 LDA $8929,x[$A9:8945]
$A98904 85 12 STA $12 [$00:0012]
$A98906 BD 2B 89 LDA $892B,x[$A9:8947]
$A98909 85 14 STA $14 [$00:0014]
$A9890B A0 03 00 LDY #$0003
*$A9890E AD E5 05 LDA $05E5 [$A9:05E5]*
$A98911 C9 00 40 CMP #$4000
$A98914 B0 03 BCS $03 [$8919]
$A98916 A0 0C 00 LDY #$000C
$A98919 98 TYA
$A9891A A0 09 E5 LDY #$E509
$A9891D 22 97 80 86 JSL $868097[$86:8097]
$A98921 A9 24 00 LDA #$0024
$A98924 22 B7 90 80 JSL $8090B7[$80:90B7]
$A98928 60 RTS
---
77.
---
$A98F46 CE F2 0F DEC $0FF2 [$A9:0FF2]
$A98F49 10 06 BPL $06 [$8F51]
$A98F4B A9 07 00 LDA #$0007
$A98F4E 8D F2 0F STA $0FF2 [$A9:0FF2]
$A98F51 AD F2 0F LDA $0FF2 [$A9:0FF2]
$A98F54 0A ASL A
$A98F55 AA TAX
$A98F56 BD 7F 8F LDA $8F7F,x[$A9:8F8D]
$A98F59 85 12 STA $12 [$00:0012]
$A98F5B A9 D4 00 LDA #$00D4
$A98F5E 85 14 STA $14 [$00:0014]
*$A98F60 AD E5 05 LDA $05E5 [$A9:05E5]*
$A98F63 29 00 01 AND #$0100
$A98F66 EB XBA
$A98F67 AA TAX
$A98F68 BD 7D 8F LDA $8F7D,x[$A9:8F7D]
$A98F6B 29 FF 00 AND #$00FF
$A98F6E A0 09 E5 LDY #$E509
$A98F71 22 97 80 86 JSL $868097[$86:8097]
$A98F75 A9 29 00 LDA #$0029
$A98F78 22 B7 90 80 JSL $8090B7[$80:90B7]
$A98F7C 60 RTS
---
78.
---
$A9930C AF 5C 80 7E LDA $7E805C[$7E:805C]
$A99310 85 12 STA $12 [$00:0012]
$A99312 AF 5E 80 7E LDA $7E805E[$7E:805E]
$A99316 85 14 STA $14 [$00:0014]
$A99318 20 CB 93 JSR $93CB [$A9:93CB]
$A9931B AF 56 80 7E LDA $7E8056[$7E:8056]
$A9931F 85 12 STA $12 [$00:0012]
$A99321 AF 58 80 7E LDA $7E8058[$7E:8058]
$A99325 85 14 STA $14 [$00:0014]
$A99327 20 CB 93 JSR $93CB [$A9:93CB]
$A9932A AF 50 80 7E LDA $7E8050[$7E:8050]
$A9932E 85 12 STA $12 [$00:0012]
$A99330 AF 52 80 7E LDA $7E8052[$7E:8052]
$A99334 85 14 STA $14 [$00:0014]
$A99336 20 CB 93 JSR $93CB [$A9:93CB]
$A99339 AF 4A 80 7E LDA $7E804A[$7E:804A]
$A9933D 85 12 STA $12 [$00:0012]
$A9933F AF 4C 80 7E LDA $7E804C[$7E:804C]
$A99343 85 14 STA $14 [$00:0014]
$A99345 20 CB 93 JSR $93CB [$A9:93CB]
$A99348 AF 44 80 7E LDA $7E8044[$7E:8044]
$A9934C 85 12 STA $12 [$00:0012]
$A9934E AF 46 80 7E LDA $7E8046[$7E:8046]
$A99352 85 14 STA $14 [$00:0014]
$A99354 4C CB 93 JMP $93CB [$A9:93CB]
$A99357 AF 68 78 7E LDA $7E7868[$7E:7868]
$A9935B F0 12 BEQ $12 [$936F]
$A9935D AF 6A 78 7E LDA $7E786A[$7E:786A]
$A99361 D0 0C BNE $0C [$936F]
*$A99363 AD E5 05 LDA $05E5 [$A9:05E5]*
$A99366 30 07 BMI $07 [$936F]
$A99368 A0 3D CB LDY #$CB3D
$A9936B 22 97 80 86 JSL $868097[$86:8097]
$A9936F 20 AF 92 JSR $92AF [$A9:92AF]
$A99372 AF 1A 78 7E LDA $7E781A[$7E:781A]
$A99376 AA TAX
$A99377 AD DC 0F LDA $0FDC [$A9:0FDC]
$A9937A 4A LSR A
$A9937B 90 03 BCC $03 [$9380]
$A9937D A2 00 00 LDX #$0000
$A99380 86 16 STX $16 [$00:0016]
$A99382 AF 40 78 7E LDA $7E7840[$7E:7840]
$A99386 F0 07 BEQ $07 [$938F]
$A99388 3A DEC A
$A99389 8F 40 78 7E STA $7E7840[$7E:7840]
$A9938D 80 08 BRA $08 [$9397]
$A9938F AD DC 0F LDA $0FDC [$A9:0FDC]
$A99392 D0 03 BNE $03 [$9397]
$A99394 AD E2 0F LDA $0FE2 [$A9:0FE2]
$A99397 29 06 00 AND #$0006
$A9939A AA TAX
$A9939B BD BB 93 LDA $93BB,x[$A9:93BB]
$A9939E 18 CLC
$A9939F 6D BA 0F ADC $0FBA [$A9:0FBA]
$A993A2 85 12 STA $12 [$00:0012]
$A993A4 18 CLC
$A993A5 69 20 00 ADC #$0020
$A993A8 38 SEC
$A993A9 ED 11 09 SBC $0911 [$A9:0911]
$A993AC 30 0C BMI $0C [$93BA]
$A993AE BD C3 93 LDA $93C3,x[$A9:93C5]
$A993B1 18 CLC
$A993B2 6D BE 0F ADC $0FBE [$A9:0FBE]
$A993B5 85 14 STA $14 [$00:0014]
$A993B7 4C EE 93 JMP $93EE [$A9:93EE]
$A993BA 60 RTS
---
79.
---
$A99B7F db 77, 9B, 02, 00, F8, A5, 02, 00, 2C, A6, 3C, 9B, 02, 00, 2C, A6, 6D, 9B, 28, 9B, 7E, 00, 3C, 9B, 10, 00, 60, A6, 3C, 9B, 10, 00, 60, A6, 3C, 9B, 20, 00, 60, A6, 04, 00, 2C, A6, 01, 00, F8, A5, 0F, 9B, AB, 9B, 77, 9B, 02, 00, 17, A7, 02, 00, 50, A7, 3C, 9B, 02, 00, 50, A7, 6D, 9B, 28, 9B, 7E, 00, 3C, 9B, 10, 00, 89, A7, 3C, 9B, 10, 00, 89, A7, 3C, 9B, 20, 00, 89, A7, 04, 00, 50, A7, 01, 00, 17, A7, 0F, 9B, DF, 9B, 77, 9B, 02, 00, 17, A7, 02, 00, 50, A7, 02, 00, 50, A7, 6D, 9B, 28, 9B, 7E, 00, 10, 00, 89, A7, 10, 00, 89, A7
$A99C13 db 00, 00, 20, A3, 2F, 81
$A99C21 db 04, 00, 86, A5, 0F, 9B, 21, 9C, 08, 00, 17, A7, 04, 00, D9, A6, 04, 00, 9B, A6, 0F, 9B, 31, 9C, 77, 9B, 04, 00, 17, A7, 04, 00, 50, A7, 28, 9B, 7E, 00, 02, 00, 89, A7, 3C, 9B, 02, 00, 89, A7, 3C, 9B, 02, 00, 89, A7, 3C, 9B, 02, 00, 89, A7, 3C, 9B, 02, 00, 89, A7, 65, 9C
$A99C65 A2 5F 9C LDX #$9C5F
*$A99C68 AD E5 05 LDA $05E5 [$A9:05E5]*
$A99C6B 29 FF 0F AND #$0FFF
$A99C6E C9 E0 0F CMP #$0FE0
$A99C71 90 03 BCC $03 [$9C76]
$A99C73 A2 47 9C LDX #$9C47
$A99C76 60 RTS
---
80.
---
$A99C77 db 01, 00, F8, A5, 0F, 9B, 77, 9C
$A99C87 db 04, 00, 86, A5, 04, 00, BF, A5, 08, 00, F8, A5, 04, 00, BF, A5, 04, 00, 86, A5, 04, 00, BF, A5, 08, 00, F8, A5, AD, 9C, 04, 00, BF, A5, 0F, 9B, 87, 9C
*$A99CAD AD E5 05 LDA $05E5 [$A9:05E5]*
$A99CB0 C9 00 F0 CMP #$F000
$A99CB3 B0 03 BCS $03 [$9CB8]
$A99CB5 A2 9F 9C LDX #$9C9F
$A99CB8 60 RTS
---
81.
---
$A99CB9 db 04, 00, 9B, A6, 04, 00, D9, A6, 08, 00, 17, A7, 04, 00, D9, A6, 04, 00, 9B, A6, 04, 00, D9, A6, 08, 00, 17, A7, 08, 00, D9, A6, 0D, 9D, 04, 00, 9B, A6, 0F, 9B, B9, 9C
*$A99D0D AD E5 05 LDA $05E5 [$A9:05E5]*
$A99D10 29 FF 0F AND #$0FFF
$A99D13 C9 40 0F CMP #$0F40
$A99D16 80 04 BRA $04 [$9D1C]
$A99D1C C9 C0 0E CMP #$0EC0
$A99D1F B0 03 BCS $03 [$9D24]
$A99D21 A2 D1 9C LDX #$9CD1
$A99D24 60 RTS
---
82.
---
$A9B223 DA PHX
*$A9B224 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B227 29 1F 00 AND #$001F
$A9B22A 18 CLC
$A9B22B 6D BA 0F ADC $0FBA [$A9:0FBA]
$A9B22E 18 CLC
$A9B22F 69 F0 FF ADC #$FFF0
$A9B232 85 12 STA $12 [$00:0012]
$A9B234 AD BE 0F LDA $0FBE [$A9:0FBE]
$A9B237 18 CLC
$A9B238 69 10 00 ADC #$0010
$A9B23B 85 14 STA $14 [$00:0014]
$A9B23D A9 0A 00 LDA #$000A
$A9B240 A0 09 E5 LDY #$E509
$A9B243 22 97 80 86 JSL $868097[$86:8097]
$A9B247 AD 44 0E LDA $0E44 [$A9:0E44]
$A9B24A 29 07 00 AND #$0007
$A9B24D D0 07 BNE $07 [$B256]
$A9B24F A9 10 00 LDA #$0010
$A9B252 22 B7 90 80 JSL $8090B7[$80:90B7]
$A9B256 FA PLX
$A9B257 60 RTS
---
83.
---
$A9B61A AD CC 0F LDA $0FCC [$A9:0FCC]
$A9B61D C9 94 11 CMP #$1194
$A9B620 30 12 BMI $12 [$B634]
*$A9B622 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B625 C9 00 10 CMP #$1000
$A9B628 90 03 BCC $03 [$B62D]
$A9B62A 4C B8 C6 JMP $C6B8 [$A9:C6B8]
$A9B62D A9 4B B6 LDA #$B64B
$A9B630 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9B633 60 RTS
---
84.
---
*$A9B634 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B637 C9 00 20 CMP #$2000
$A9B63A B0 03 BCS $03 [$B63F]
$A9B63C 4C B8 C6 JMP $C6B8 [$A9:C6B8]
$A9B63F C9 00 A0 CMP #$A000
$A9B642 B0 E9 BCS $E9 [$B62D]
$A9B644 A9 7D B8 LDA #$B87D
$A9B647 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9B64A 60 RTS
---
85.
---
$A9B64B AF 30 78 7E LDA $7E7830[$7E:7830]
$A9B64F 0A ASL A
$A9B650 AA TAX
$A9B651 7C 54 B6 JMP ($B654,x)[$A9:B65A]
$A9B654 db 5A
$A9B656 db 64
$A9B658 db 73
$A9B65A A9 40 00 LDA #$0040
$A9B65D 8D B4 0F STA $0FB4 [$A9:0FB4]
$A9B660 AF 30 78 7E LDA $7E7830[$7E:7830]
$A9B664 1A INC A
$A9B665 8F 30 78 7E STA $7E7830[$7E:7830]
$A9B669 20 E2 B6 JSR $B6E2 [$A9:B6E2]
$A9B66C A2 DC B6 LDX #$B6DC
$A9B66F AD BE 0F LDA $0FBE [$A9:0FBE]
$A9B672 18 CLC
$A9B673 69 04 00 ADC #$0004
$A9B676 38 SEC
$A9B677 ED FA 0A SBC $0AFA [$A9:0AFA]
$A9B67A 10 04 BPL $04 [$B680]
$A9B67C 49 FF FF EOR #$FFFF
$A9B67F 1A INC A
$A9B680 C9 20 00 CMP #$0020
$A9B683 B0 03 BCS $03 [$B688]
$A9B688 E2 20 SEP #$20
$A9B68A A0 00 00 LDY #$0000
*$A9B68D AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B690 DD 00 00 CMP $0000,x[$A9:B6DC]
$A9B693 90 10 BCC $10 [$B6A5]
$A9B695 C8 INY
$A9B696 C8 INY
$A9B697 DD 01 00 CMP $0001,x[$A9:B6DD]
$A9B69A 90 09 BCC $09 [$B6A5]
$A9B6A5 BB TYX
$A9B6A6 C2 20 REP #$20
$A9B6A8 BD D4 B6 LDA $B6D4,x[$A9:B6D4]
$A9B6AB C9 CC 9E CMP #$9ECC
$A9B6AE F0 09 BEQ $09 [$B6B9]
$A9B6B0 C9 34 9F CMP #$9F34
$A9B6B3 F0 16 BEQ $16 [$B6CB]
$A9B6B5 20 47 C4 JSR $C447 [$A9:C447]
$A9B6B8 60 RTS
---
86.
---
$A9B6D4 db 87, 9C, 3D, 9D
$A9B6DC db 40, 80
$A9B6E2 AD 1F 0A LDA $0A1F [$A9:0A1F]
$A9B6E5 29 FF 00 AND #$00FF
$A9B6E8 0A ASL A
$A9B6E9 AA TAX
$A9B6EA BD 2C B7 LDA $B72C,x[$A9:B72C]
$A9B6ED D0 1D BNE $1D [$B70C]
*$A9B6EF AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B6F2 29 FF 00 AND #$00FF
$A9B6F5 C9 80 00 CMP #$0080
$A9B6F8 30 08 BMI $08 [$B702]
$A9B702 68 PLA
$A9B703 A9 0E B8 LDA #$B80E
$A9B706 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9B709 4C 0E B8 JMP $B80E [$A9:B80E]
*$A9B70C AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B70F 29 FF 00 AND #$00FF
$A9B712 C9 80 00 CMP #$0080
$A9B715 10 01 BPL $01 [$B718]
$A9B717 60 RTS
---
87.
---
*$A9B781 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9B784 C9 80 FF CMP #$FF80
$A9B787 B0 2E BCS $2E [$B7B7]
$A9B789 A2 40 00 LDX #$0040
$A9B78C C9 00 60 CMP #$6000
$A9B78F B0 03 BCS $03 [$B794]
$A9B791 A2 60 00 LDX #$0060
$A9B794 8A TXA
$A9B795 CD 7A 0F CMP $0F7A [$A9:0F7A]
$A9B798 10 1D BPL $1D [$B7B7]
$A9B7AB 60 RTS
---
88.
---
$A9BD45 A9 50 00 LDA #$0050
$A9BD48 22 5E A4 A0 JSL $A0A45E[$A0:A45E]
$A9BD4C 0A ASL A
$A9BD4D 0A ASL A
$A9BD4E 69 14 00 ADC #$0014
$A9BD51 CD C2 09 CMP $09C2 [$A9:09C2]
$A9BD54 10 3B BPL $3B [$BD91]
*$A9BD56 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9BD59 29 FF 0F AND #$0FFF
$A9BD5C C9 A0 0F CMP #$0FA0
$A9BD5F 90 25 BCC $25 [$BD86]
$A9BD61 A9 A0 00 LDA #$00A0
$A9BD64 22 5E A4 A0 JSL $A0A45E[$A0:A45E]
$A9BD68 18 CLC
$A9BD69 69 14 00 ADC #$0014
$A9BD6C CD C2 09 CMP $09C2 [$A9:09C2]
$A9BD6F 10 0E BPL $0E [$BD7F]
$A9BD71 A0 CC 9E LDY #$9ECC
*$A9BD74 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9BD77 29 FF 0F AND #$0FFF
$A9BD7A C9 F0 0F CMP #$0FF0
$A9BD7D B0 03 BCS $03 [$BD82]
$A9BD7F A0 7F 9D LDY #$9D7F
$A9BD82 98 TYA
$A9BD83 4C 47 C4 JMP $C447 [$A9:C447]
$A9BD86 AD A4 0F LDA $0FA4 [$A9:0FA4]
$A9BD89 29 1F 00 AND #$001F
$A9BD8C D0 09 BNE $09 [$BD97]
$A9BD8E 4C A7 C1 JMP $C1A7 [$A9:C1A7]
$A9BD91 A9 98 BD LDA #$BD98
$A9BD94 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9BD97 60 RTS
---
89.
---
$A9C14D A9 5C C1 LDA #$C15C
$A9C150 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9C153 A0 0A 00 LDY #$000A
$A9C156 A9 50 00 LDA #$0050
$A9C159 20 01 C6 JSR $C601 [$A9:C601]
$A9C15C 20 A7 C1 JSR $C1A7 [$A9:C1A7]
*$A9C15F AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C162 30 01 BMI $01 [$C165]
$A9C164 60 RTS
---
90.
---
$A9C1A7 AF 04 78 7E LDA $7E7804[$7E:7804]
$A9C1AB F0 13 BEQ $13 [$C1C0]
$A9C1AD C9 06 00 CMP #$0006
$A9C1B0 D0 1C BNE $1C [$C1CE]
*$A9C1B2 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C1B5 29 FF 00 AND #$00FF
$A9C1B8 C9 C0 00 CMP #$00C0
$A9C1BB 90 11 BCC $11 [$C1CE]
$A9C1BD 4C 70 C6 JMP $C670 [$A9:C670]
*$A9C1C0 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C1C3 29 FF 00 AND #$00FF
$A9C1C6 C9 C0 00 CMP #$00C0
$A9C1C9 90 03 BCC $03 [$C1CE]
$A9C1CB 4C A3 C6 JMP $C6A3 [$A9:C6A3]
$A9C1CE 60 RTS
---
91.
---
$A9C215 20 27 C3 JSR $C327 [$A9:C327]
$A9C218 20 5A C2 JSR $C25A [$A9:C25A]
$A9C21B AF 04 78 7E LDA $7E7804[$7E:7804]
$A9C21F D0 F3 BNE $F3 [$C214]
$A9C221 AF 0C 78 7E LDA $7E780C[$7E:780C]
$A9C225 D0 ED BNE $ED [$C214]
*$A9C227 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C22A 10 E8 BPL $E8 [$C214]
$A9C22C A0 00 9F LDY #$9F00
*$A9C22F AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C232 29 FF 00 AND #$00FF
$A9C235 C9 80 00 CMP #$0080
$A9C238 90 03 BCC $03 [$C23D]
$A9C23A A0 BB 9D LDY #$9DBB
$A9C23D 98 TYA
$A9C23E 20 47 C4 JSR $C447 [$A9:C447]
$A9C241 A9 4E C2 LDA #$C24E
$A9C244 8D A8 0F STA $0FA8 [$A9:0FA8]
$A9C247 A9 40 00 LDA #$0040
$A9C24A 8D B2 0F STA $0FB2 [$A9:0FB2]
$A9C24D 60 RTS
---
92.
---
$A9C261 AF 74 78 7E LDA $7E7874[$7E:7874]
$A9C265 85 12 STA $12 [$00:0012]
$A9C267 6C 12 00 JMP ($0012)[$A9:C26A]
$A9C26A AF 0E 78 7E LDA $7E780E[$7E:780E]
$A9C26E F0 31 BEQ $31 [$C2A1]
$A9C270 18 CLC
$A9C271 69 20 00 ADC #$0020
$A9C274 8F 0E 78 7E STA $7E780E[$7E:780E]
$A9C278 C9 00 01 CMP #$0100
$A9C27B 90 23 BCC $23 [$C2A0]
$A9C27D AD 7A 0F LDA $0F7A [$A9:0F7A]
$A9C280 1A INC A
$A9C281 8F 76 78 7E STA $7E7876[$7E:7876]
*$A9C285 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C288 29 02 00 AND #$0002
$A9C28B 18 CLC
$A9C28C 69 04 00 ADC #$0004
$A9C28F A8 TAY
$A9C290 AF 76 78 7E LDA $7E7876[$7E:7876]
$A9C294 20 01 C6 JSR $C601 [$A9:C601]
$A9C297 90 07 BCC $07 [$C2A0]
$A9C2A0 60 RTS
---
93.
---
$A9C6B8 AF 04 78 7E LDA $7E7804[$7E:7804]
$A9C6BC F0 01 BEQ $01 [$C6BF]
$A9C6BF AF 0E 78 7E LDA $7E780E[$7E:780E]
$A9C6C3 F0 22 BEQ $22 [$C6E7]
$A9C6C5 18 CLC
$A9C6C6 69 06 00 ADC #$0006
$A9C6C9 8F 0E 78 7E STA $7E780E[$7E:780E]
$A9C6CD C9 00 01 CMP #$0100
$A9C6D0 90 2A BCC $2A [$C6FC]
$A9C6D2 A9 80 00 LDA #$0080
$A9C6D5 8F 0E 78 7E STA $7E780E[$7E:780E]
$A9C6D9 AD 7A 0F LDA $0F7A [$A9:0F7A]
$A9C6DC C9 80 00 CMP #$0080
$A9C6DF 10 2E BPL $2E [$C70F]
$A9C6E1 A9 A4 97 LDA #$97A4
$A9C6E4 4C 2D C4 JMP $C42D [$A9:C42D]
$A9C6E7 A9 01 00 LDA #$0001
$A9C6EA 8F 0E 78 7E STA $7E780E[$7E:780E]
$A9C6EE AD 7A 0F LDA $0F7A [$A9:0F7A]
$A9C6F1 C9 30 00 CMP #$0030
$A9C6F4 30 0E BMI $0E [$C704]
$A9C6F6 A9 C6 98 LDA #$98C6
$A9C6F9 4C 2D C4 JMP $C42D [$A9:C42D]
$A9C6FC AD 7A 0F LDA $0F7A [$A9:0F7A]
$A9C6FF C9 30 00 CMP #$0030
$A9C702 10 0B BPL $0B [$C70F]
*$A9C704 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C707 29 FF 0F AND #$0FFF
$A9C70A C9 C0 0F CMP #$0FC0
$A9C70D 10 C3 BPL $C3 [$C6D2]
$A9C70F 60 RTS
---
94.
---
$A9C9C3 A9 00 00 LDA #$0000
$A9C9C6 9F 08 78 7E STA $7E7808,x[$7E:7888]
$A9C9CA 1A INC A
$A9C9CB 9F 12 78 7E STA $7E7812,x[$7E:7892]
*$A9C9CF AD E5 05 LDA $05E5 [$A9:05E5]*
$A9C9D2 29 FF 0F AND #$0FFF
$A9C9D5 C9 A0 0F CMP #$0FA0
$A9C9D8 90 07 BCC $07 [$C9E1]
$A9C9DA A9 52 00 LDA #$0052
$A9C9DD 22 CB 90 80 JSL $8090CB[$80:90CB]
$A9C9E1 BF 1C 78 7E LDA $7E781C,x[$7E:789C]
$A9C9E5 A8 TAY
$A9C9E6 B9 00 00 LDA $0000,y[$A9:CA24]
$A9C9E9 85 12 STA $12 [$00:0012]
$A9C9EB B9 02 00 LDA $0002,y[$A9:CA26]
$A9C9EE 85 14 STA $14 [$00:0014]
$A9C9F0 B9 06 00 LDA $0006,y[$A9:CA2A]
$A9C9F3 85 16 STA $16 [$00:0016]
$A9C9F5 B9 04 00 LDA $0004,y[$A9:CA28]
$A9C9F8 5A PHY
$A9C9F9 A8 TAY
$A9C9FA F4 FF C9 PEA $C9FF
$A9C9FD 6C 16 00 JMP ($0016)[$A9:F466]
$A9CA00 7A PLY
$A9CA01 A9 04 00 LDA #$0004
$A9CA04 85 16 STA $16 [$00:0016]
$A9CA06 85 18 STA $18 [$00:0018]
$A9CA08 22 06 EF A9 JSL $A9EF06[$A9:EF06]
$A9CA0C B0 11 BCS $11 [$CA1F]
$A9CA0E B9 08 00 LDA $0008,y[$A9:CA2C]
$A9CA11 30 0D BMI $0D [$CA20]
$A9CA13 BF 1C 78 7E LDA $7E781C,x[$7E:789C]
$A9CA17 18 CLC
$A9CA18 69 08 00 ADC #$0008
$A9CA1B 9F 1C 78 7E STA $7E781C,x[$7E:789C]
$A9CA1F 60 RTS
---
95.
---
$A9D549 db C0, 00, 00, 7E, 60, 20, 90, 70, C0, 00, 00, 7E, A0, 21, 90, 71, 00, 01, 00, 7E, C0, 22, 80, 72, 00, 01, 00, 7E, 00, 24, 80, 73, 00, 01, 00, 7E, 40, 25, 80, 74, 00, 01, 00, 7E, 80, 26, 80, 75, 20, 01, 00, 7E, 20, 96, 00, 71, 00, 00, 00, 01, 00, 7E, C0, 27, 80, 76, 00, 01, 00, 7E, 00, 29, 80, 77, 00, 01, 00, 7E, 40, 2A, 80, 78, 20, 01, 00, 7E, 60, 2B, 70, 79, 40, 01, 00, 7E, 80, 2C, 60, 7A, 40, 01, 00, 7E, C0, 2D, 60, 7B, 00, 01, 00, 7E, 00, 95, 00, 70, 00, 00
$A9D5BD DA PHX
*$A9D5BE AD E5 05 LDA $05E5 [$A9:05E5]*
$A9D5C1 29 1F 00 AND #$001F
$A9D5C4 18 CLC
$A9D5C5 69 10 01 ADC #$0110
$A9D5C8 85 12 STA $12 [$00:0012]
$A9D5CA A9 BC 00 LDA #$00BC
$A9D5CD 85 14 STA $14 [$00:0014]
$A9D5CF A9 0A 00 LDA #$000A
$A9D5D2 A0 09 E5 LDY #$E509
$A9D5D5 22 97 80 86 JSL $868097[$86:8097]
$A9D5D9 AD 44 0E LDA $0E44 [$A9:0E44]
$A9D5DC 29 07 00 AND #$0007
$A9D5DF D0 07 BNE $07 [$D5E8]
$A9D5E1 A9 10 00 LDA #$0010
$A9D5E4 22 CB 90 80 JSL $8090CB[$80:90CB]
$A9D5E8 FA PLX
$A9D5E9 60 RTS
---
96.
---
$A9DBE0 8D 02 88 STA $8802 [$7E:8802]
$A9DBE3 A8 TAY
$A9DBE4 29 F8 FF AND #$FFF8
$A9DBE7 4A LSR A
$A9DBE8 4A LSR A
$A9DBE9 AA TAX
$A9DBEA 98 TYA
$A9DBEB 29 07 00 AND #$0007
$A9DBEE C9 06 00 CMP #$0006
$A9DBF1 B0 09 BCS $09 [$DBFC]
$A9DBF3 9B TXY
$A9DBF4 0A ASL A
$A9DBF5 77 14 ADC [$14],y[$A9:E23C]
$A9DBF7 AA TAX
$A9DBF8 A8 TAY
$A9DBF9 6C 12 00 JMP ($0012)[$A9:E38B]
$A9DBFC 9B TXY
$A9DBFD 0A ASL A
$A9DBFE 77 14 ADC [$14],y[$A9:E23C]
$A9DC00 AA TAX
$A9DC01 6D 10 88 ADC $8810 [$7E:8810]
$A9DC04 A8 TAY
$A9DC05 6C 12 00 JMP ($0012)[$A9:E272]
$A9DC08 DA PHX
*$A9DC09 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9DC0C 29 1A 00 AND #$001A
$A9DC0F AE 54 0E LDX $0E54 [$A9:0E54]
$A9DC12 18 CLC
$A9DC13 7D 7A 0F ADC $0F7A,x[$A9:107A]
$A9DC16 18 CLC
$A9DC17 69 F2 FF ADC #$FFF2
$A9DC1A 85 12 STA $12 [$00:0012]
$A9DC1C BD 7E 0F LDA $0F7E,x[$A9:107E]
$A9DC1F 18 CLC
$A9DC20 69 10 00 ADC #$0010
$A9DC23 85 14 STA $14 [$00:0014]
$A9DC25 A9 0A 00 LDA #$000A
$A9DC28 A0 09 E5 LDY #$E509
$A9DC2B 22 97 80 86 JSL $868097[$86:8097]
$A9DC2F AD 44 0E LDA $0E44 [$A9:0E44]
$A9DC32 29 07 00 AND #$0007
$A9DC35 D0 07 BNE $07 [$DC3E]
$A9DC37 A9 10 00 LDA #$0010
$A9DC3A 22 B7 90 80 JSL $8090B7[$80:90B7]
$A9DC3E FA PLX
$A9DC3F 60 RTS
---
97.
---
$A9F180 BD 7A 0F LDA $0F7A,x[$A9:0F7A]
$A9F183 38 SEC
$A9F184 ED F6 0A SBC $0AF6 [$A9:0AF6]
$A9F187 10 04 BPL $04 [$F18D]
$A9F18D C9 08 00 CMP #$0008
$A9F190 B0 09 BCS $09 [$F19B]
$A9F19B BF 04 78 7E LDA $7E7804,x[$7E:7804]
$A9F19F F0 09 BEQ $09 [$F1AA]
$A9F1AA 9F 04 78 7E STA $7E7804,x[$7E:7804]
$A9F1AE C9 00 01 CMP #$0100
$A9F1B1 B0 3D BCS $3D [$F1F0]
$A9F1B3 AD F6 0A LDA $0AF6 [$A9:0AF6]
$A9F1B6 C9 00 02 CMP #$0200
$A9F1B9 30 35 BMI $35 [$F1F0]
$A9F1BB BF 02 78 7E LDA $7E7802,x[$7E:7802]
$A9F1BF F0 0A BEQ $0A [$F1CB]
$A9F1CB A0 50 00 LDY #$0050
*$A9F1CE AD E5 05 LDA $05E5 [$A9:05E5]*
$A9F1D1 29 FF 0F AND #$0FFF
$A9F1D4 C9 E0 0F CMP #$0FE0
$A9F1D7 90 07 BCC $07 [$F1E0]
$A9F1E0 84 14 STY $14 [$00:0014]
$A9F1E2 AD F6 0A LDA $0AF6 [$A9:0AF6]
$A9F1E5 85 12 STA $12 [$00:0012]
$A9F1E7 AE 54 0E LDX $0E54 [$A9:0E54]
$A9F1EA A0 0A 00 LDY #$000A
$A9F1ED 4C 51 F4 JMP $F451 [$A9:F451]
$A9F1F0 AE 54 0E LDX $0E54 [$A9:0E54]
$A9F1F3 A9 FA F1 LDA #$F1FA
$A9F1F6 9D A8 0F STA $0FA8,x[$A9:0FA8]
$A9F1F9 60 RTS
---
98.
---
$A9F3D4 BD 7A 0F LDA $0F7A,x[$A9:0F7A]
$A9F3D7 38 SEC
$A9F3D8 ED F6 0A SBC $0AF6 [$A9:0AF6]
$A9F3DB 10 04 BPL $04 [$F3E1]
$A9F3DD 49 FF FF EOR #$FFFF
$A9F3E0 1A INC A
$A9F3E1 C9 02 00 CMP #$0002
$A9F3E4 B0 09 BCS $09 [$F3EF]
$A9F3E6 BF 04 78 7E LDA $7E7804,x[$7E:7804]
$A9F3EA 69 02 00 ADC #$0002
$A9F3ED 80 0F BRA $0F [$F3FE]
$A9F3EF BF 04 78 7E LDA $7E7804,x[$7E:7804]
$A9F3F3 F0 09 BEQ $09 [$F3FE]
$A9F3F5 38 SEC
$A9F3F6 E9 01 00 SBC #$0001
$A9F3F9 10 03 BPL $03 [$F3FE]
$A9F3FE 9F 04 78 7E STA $7E7804,x[$7E:7804]
$A9F402 BF 02 78 7E LDA $7E7802,x[$7E:7802]
$A9F406 F0 0F BEQ $0F [$F417]
$A9F408 3A DEC A
$A9F409 9F 02 78 7E STA $7E7802,x[$7E:7802]
$A9F40D AD FA 0A LDA $0AFA [$A9:0AFA]
$A9F410 18 CLC
$A9F411 69 EE FF ADC #$FFEE
$A9F414 A8 TAY
$A9F415 80 15 BRA $15 [$F42C]
$A9F417 A0 50 00 LDY #$0050
*$A9F41A AD E5 05 LDA $05E5 [$A9:05E5]*
$A9F41D 29 FF 0F AND #$0FFF
$A9F420 C9 E0 0F CMP #$0FE0
$A9F423 90 07 BCC $07 [$F42C]
$A9F425 A9 20 00 LDA #$0020
$A9F428 9F 02 78 7E STA $7E7802,x[$7E:7802]
$A9F42C 84 14 STY $14 [$00:0014]
$A9F42E AD F6 0A LDA $0AF6 [$A9:0AF6]
$A9F431 85 12 STA $12 [$00:0012]
$A9F433 AE 54 0E LDX $0E54 [$A9:0E54]
$A9F436 A0 08 00 LDY #$0008
$A9F439 20 51 F4 JSR $F451 [$A9:F451]
$A9F43C BF 04 78 7E LDA $7E7804,x[$7E:7804]
$A9F440 C9 00 04 CMP #$0400
$A9F443 B0 0A BCS $0A [$F44F]
$A9F445 AD F6 0A LDA $0AF6 [$A9:0AF6]
$A9F448 C9 80 00 CMP #$0080
$A9F44B 30 02 BMI $02 [$F44F]
$A9F44F 38 SEC
$A9F450 60 RTS
---
99.
---
*$A9F994 AD E5 05 LDA $05E5 [$A9:05E5]*
$A9F997 10 0A BPL $0A [$F9A3]
$A9F999 A9 52 00 LDA #$0052
$A9F99C 22 CB 90 80 JSL $8090CB[$80:90CB]
$A9F9A0 C8 INY
$A9F9A1 C8 INY
$A9F9A2 6B RTL
---
Some further routines that involve $05E5 that aren't covered in PJboy's disassembly: (The pc address $110AA7 corresponds to the address $A28AA7.)
101.
---
$110AA7 (something to do with firing projectiles?; a counter between shots?)
AE 54 0E LDX $0E54 ;Enemy Index
22 11 81 80 JSL $808111 ; guh?
AD E5 05 LDA $05E5 ;Load a random number
18 CLC
7D A4 0F ADC $0FA4, X ;Add it to this and X
29 FF 00 AND #$00FF ;AND it with 00FF
C9 02 00 CMP #$0002 ;Compare it to 0002
10 09 BPL ;Branch to CLC AND RTS
A9 75 8A LDA #$8A75 ;
9D B2 0F STA $0FB2 ;
38 SEC
80 01 BRA ;Branch to RTS
18 CLC
60 RTS
---
102.
---
$A2:8AA7>11:0AA7 Projectile Firing AI
$A2:8AA7 AE 54 0E LDX $0E54 ;Enemy Index
$A2:8AAA 22 11 81 80 JSL $808111 ;JSL to Random Number Generator
$A2:8AAE AD E5 05 LDA $05E5
$A2:8AB1 18 CLC
$A2:8AB2 7D A4 0F ADC $0FA4, X
$A2:8AB5 29 FF 00 AND #$00FF
$A2:8AB8 C9 02 00 CMP #$0002
$A2:8ABB 10 09 BPL ;CLC if pos, Fire Projectile and SEC if neg, then RTS
$A2:8ABD A9 75 8A LDA #$8A75 ;Load "Fire Projectile" value
$A2:8AC0 9D B2 0F STA $0FB2, X ;and store it to current action
$A2:8AC3 38 SEC
$A2:8AC4 80 01 BRA ;Branch to RTS
$A2:8AC6 18 CLC
$A2:8AC7 60 RTS
---
103.
---
$A7BA2E AF 40 79 7E LDA $7E7940[$7E:7940] ;\
$A7BA32 3A DEC A ;} Decrement Kraid foot next function
$A7BA33 8F 40 79 7E STA $7E7940[$7E:7940] ;/
$A7BA37 D0 43 BNE $43 [$BA7C] ; If Kraid foot next function != 0: return
$A7BA39 A2 00 00 LDX #$0000 ;\
;|
$A7BA3C AD 7A 0F LDA $0F7A [$7E:0F7A] ;|
$A7BA3F DD 7D BA CMP $BA7D,x[$A7:BA7D] ;|
$A7BA42 F0 0C BEQ $0C [$BA50] ;|
$A7BA44 E8 INX ;} X = index of Kraid X position in [$BA7D + X] or 18h (18h should fail horribly though) :/
$A7BA45 E8 INX ;|
$A7BA46 E8 INX ;|
$A7BA47 E8 INX ;|
$A7BA48 E0 18 00 CPX #$0018 ;|
$A7BA4B 30 EF BMI $EF [$BA3C] ;/
$A7BA50 AD E5 05 LDA $05E5 [$7E:05E5] ;\
$A7BA53 29 1C 00 AND #$001C ;|
$A7BA56 C9 10 00 CMP #$0010 ;} A = randomly 10h, 14h, 18h or 1Ch
$A7BA59 30 03 BMI $03 [$BA5E] ;|
$A7BA5B A9 10 00 LDA #$0010 ;/
$A7BA5E 18 CLC ;\
$A7BA5F 7D 7F BA ADC $BA7F,x[$A7:BA83] ;} X = [$BA7D + X+2] + A
$A7BA62 AA TAX ;/
$A7BA63 BD 02 00 LDA $0002,x[$A7:BABB] ;\
$A7BA66 A8 TAY ;} Y = [X+2]
$A7BA67 BD 00 00 LDA $0000,x[$A7:BAB9] ;\
$A7BA6A CD 7A 0F CMP $0F7A [$7E:0F7A] ;} If [X] < Kraid X position:
$A7BA6D 10 07 BPL $07 [$BA76] ;/
$A7BA6F BD 00 00 LDA $0000,x[$A7:BAF9]
$A7BA72 20 29 BB JSR $BB29 [$A7:BB29] ; Execute subroutine $BB29 (done)
$A7BA75 6B RTL
---
104.
---
$A7BA76 BD 00 00 LDA $0000,x[$A7:BAB9] ;\ Else ([X] >= Kraid X position):
$A7BA79 20 0D BB JSR $BB0D [$A7:BB0D] ; Execute subroutine $BB0D (done)
$A7BA7C 6B RTL
$A7BBEA 20 32 AF JSR $AF32 [$A7:AF32] ; Process Kraid instruction ($0FAA)
$A7BBED C9 FF FF CMP #$FFFF ;\
$A7BBF0 F0 31 BEQ $31 [$BC23] ;} If not returned A = FFFFh:
$A7BBF2 AD AA 0F LDA $0FAA [$7E:0FAA] ;\
$A7BBF5 38 SEC ;|
$A7BBF6 E9 08 00 SBC #$0008 ;|
$A7BBF9 AA TAX ;} If [[$0FAA]-6] == $A0C8:
$A7BBFA BD 02 00 LDA $0002,x[$A7:96D4] ;|
$A7BBFD C9 C8 A0 CMP #$A0C8 ;|
$A7BC00 D0 20 BNE $20 [$BC22] ;/
$A7BC02 AD AC 0F LDA $0FAC [$7E:0FAC] ;\
$A7BC05 29 0F 00 AND #$000F ;} If [$0FAC] is multiple of 16:
$A7BC08 D0 18 BNE $18 [$BC22] ;/
$A7BC0A A0 45 9C LDY #$9C45 ;\
$A7BC0D AD E5 05 LDA $05E5 [$7E:05E5] ;|
$A7BC10 29 0E 00 AND #$000E ;|
$A7BC13 AA TAX ;} Spawn ER projectile $9C45 with random parameter FB40h/FB80h/FC00h/FC40h
$A7BC14 BD 65 BC LDA $BC65,x[$A7:BC65] ;|
$A7BC17 22 27 80 86 JSL $868027[$86:8027] ;/
$A7BC1B A9 1E 00 LDA #$001E ;\
$A7BC1E 22 4D 91 80 JSL $80914D[$80:914D] ;} Sound library 3: 1Eh
$A7BC22 6B RTL
---
105. Ridley AI
---
B5C4: Consider Tailbouncing
{
LDA #$000B
STA $7E201E ;Movement threshold
LDA #$0180
STA $7E2012 ;Tail extension rate
LDA #$B5E5
STA $0FA8 ;Next main AI script
LDA $05E5 ;Random number
AND #$001F
CLC
ADC #$0020 ;20 - 3F
STA $0FB2 ;Variable use timer
B5E5: Considering tailbouncing
LDA $7E7820 ;Facing direction. 0 = left, 1 = forward, 2 = right
ASL A
TAY
LDA $B60D, Y ;00C0, 0080, or 0040
STA $12
JSR $B641 ;Fly towards $12 (X position) / Samus's Y position. If Samus is not spin jumping, SEC before RTS. Else CLC and randomly fireball if allowed.
{
LDA $0AFA ;Samus's Y position
CMP #$0160
BMI BRANCH_ALPHA
LDA #$0160
BRANCH_ALPHA ;Maximum cap is 160
STA $14
LDX #$0000
JSR $B42E ;Y = 4, 8, A, or C, depending on general speed byte
{
LDA $7E7824 ;General speed byte
ASL A
TAY
LDA $B439, Y ;0004, 0008, 000A, 000C
TAY
RTS
}
JSR $D523 ;Accelerates Ridley towards the desired X/Y ($12/$14). No deceleration boost ($1A), Y is index value to find acceleration divisor ($18), X is enemy's index
LDA #$0001
STA $7E2004 ;Tail fling trigger
LDA $0A1F ;Samus's movement type
AND #$00FF
CMP #$0003 ;Spin jump
BNE BRANCH_BETA
LDA $05E5 ;Random number
AND #$00FF
CMP #$0080
BCC BRANCH_GAMMA ;50% chance of not fireballing
LDA $7E781E ;Current sound playing?
BNE BRANCH_GAMMA
LDA $7E7820 ;Facing direction
DEC A
BEQ BRANCH_GAMMA ;Branch if facing forward
LDA #$E73A ;Fireballing AI
JSR $D467 ;STA to GraphicAI instruction (0F92), delay (0F94) = 1, STZ $0F90
BRANCH_GAMMA
CLC
RTS
BRANCH_BETA
SEC
RTS
}
---
106. Ridley AI
---
JSR $B90F ;Set speeds for tailbouncing
{
LDA $05E5 ;Random number
AND #$0003
ASL A
TAY
LDA $B965, Y ;B975, B981, B98D, B999. Options for absolute X speed from tail bounces
STA $12
LDA $B96D, Y ;B9A5, B9B1, B9BD, B9C9. Options for Y speed from tail bounces
STA $14
LDA $7E7824 ;General speed byte (max is 3)
CLC
ADC #$0002 ;*cough*incinc*cough*
ASL A
TAY
LDA $B94D, Y ;20, 30, 40, 50
STA $7E200E
LDA $B959, Y ;40, 80, 400, 500
STA $7E200C ;For below: Each pair of parenthesis are the 4 speed choices for a single one of the above randomly chosen pointers.
LDA ($14), Y ;(FCE0, FC20, FA80, F980), (FC80, FBC0, FA60, F960), (FC60, FB80, FA40, F940), (FC40, FB60, FA20, F920)
STA $0FAC ;Ridley's Y speed
LDA ($12), Y ;(A0, A8, B0, B8), (C0, C8, D0, D8), (E0, E8, F0, F8), (100, 108, 110, 118)
LDX $0FAA ;Ridley's X speed
BPL BRANCH_ALPHA
EOR #$FFFF
INC A
BRANCH_ALPHA ;Keep sign from old X speed, magnitude from lookup
STA $0FAA
RTS
}
LDA #$B70E
STA $0FA8 ;Next AI script
LDA $05E5 ;Random number
AND #$003F
ADC #$0080
STA $0FB2 ;AI script timer. In this specific case, the timer is decremented every frame Ridley is moving up from tailbouncing.
BRANCH_ALPHA
RTS
}
---
107. Ridley AI
---
BCC BRANCH_GAMMA ;Branch if no collisions with ground
LDA $7E20A4 ;Tail tip X position
STA $12
LDA $7E20A6 ;Tail tip Y position
CLC
ADC #$000C
STA $14
LDA #$0009
LDY #$E509
JSL $868097 ;Create sprite: smoke where tail tip hit the ground
LDA #$0076
JSL $8090CB ;Play sound
LDA #$000D
STA $183E ;Room shake type
LDA #$0004
STA $1840 ;Room shake duration
JSR $B8A9 ;
{
LDA $0FAA ;Ridley X speed
BNE BRANCH_ALPHA ;Branch if moving
LDA #$00C0
BIT $0F79 ;Low byte of Ridley's X position
BPL BRANCH_BETA ;Branch if Ridley is on the left half of the room
EOR #$FFFF
INC A
BRANCH_BETA ;Set Ridley to moving towards the center
STA $0FAA ;Set Ridley's speed to 0.C pixels per frame
BRANCH_ALPHA
LDA $0F7A ;Ridley's X position
SEC
SBC $0AF6 ;Samus's X position
EOR $0FAA ;Ridley's X speed
BMI BRANCH_GAMMA ;Branch if Ridley is moving towards Samus
LDA $0F7A ;Ridley's X position
CMP $7E8004 ;Leftmost allowed X position
BMI BRANCH_DELTA
CMP $7E8006 ;Rightmost allowed X position
BPL BRANCH_EPSILON
LDA $05E5 ;Random number
CMP #$0555 ;... 1 / 30 chance?
BCC BRANCH_ZETA
BRANCH_THETA
LDA $0FAA
EOR #$FFFF
INC A
STA $0FAA ;Reverse Ridley's X speed
BRANCH_ZETA
RTS ;Summary: If Ridley is within the room boundaries and moving away from Samus, 2F/30 times reverse directions
BRANCH_GAMMA
LDA $0F7A ;Ridley's X position
CMP $7E8004 ;Leftmost allowed X position
BMI BRANCH_DELTA
CMP $7E8006 ;Rightmost allowed X position
BPL BRANCH_EPSILON
LDA $05E5
CMP #$0555 ;1/30 chance
BCC BRANCH_THETA ;Switch directions (If Ridley is within the room boundaries and moving towards Samus, 1/30 times reverse directions
RTS
---
108. Ridley AI
---
$132288 ALTERNATE ENTRY POINT ;Ceres Ridley's Main AI
LDA #$7FFF
STA $0F8C ;Ridley's health
PEA #$A293 ;Right before the LDA $093F
JMP ($0FA8) ;Basically JSR ($0FA8) instead, run main AI script
LDA $093F ;Unknown, initialized to 0
BNE BRANCH_ZETA
LDA $7E7804 ;Check if Ridley is active?
BEQ BRANCH_THETA
JSR $D4DA ;Make wings/tail flash when hit
JSR $D86B ;Handles movement and main body wall collisions
JSR $D97D ;Handle wing flapping
JSR $A2BD ;1/100 chance of setting 7E:201E to 7-16 (all hex numbers)
{
LDA $05E5 ;Random number
CMP #$FF00
BCC BRANCH_MU
LDA $05E5
AND #$000F
ADC #$0007
STA $7E201E ;Tail movement threshold
BRANCH_MU
RTS
}
---
109. Ridley AI
---
BCC BRANCH_ALPHA ;Skip
LDA $05E5 ;Random number
AND #$00FF
CMP #$00F0 ;1/10 chance of skipping distance check
BCS BRANCH_BETA
LDA $0AF6 ;Samus X
SEC
SBC $000F7A ;Ridley X. o_O
BPL BRANCH_GAMMA
EOR #$FFFF
INC A
BRANCH_GAMMA ;Absolute X distance
CMP #$0080 ;Half a screen
BCS BRANCH_ALPHA
BRANCH_BETA ;All tail parts are rotating, + 1/10 chance or Ridley is within 1/2 a screen of Samus.
LDA $201C ;Optional maximum
AND $201A ;Optional minimum
BPL BRANCH_ALPHA
LDA #$3F00
STA $201A
LDA #$0008
STA $2014 ;Tail parts' angular speed
RTS
---
110. Ridley AI
---
CC39: Fling tail at Samus:
Setup max angles (CBFE), then if tail is 'prepped' (all tail parts rotating, target angle not set yet, $2004 (trigger?) is set), target an angle.
Target angle is first projectile near tail tip, in a 8x8 tile square centered on tail tip, or Samus. Max rotational speed, 8.
If no tail parts are currently moving, start the first one moving.
{
JSR $CBFE ;Set min and max tail angles based on direction
JSR $CC1E ;SEC if all tail parts are rotating, else CLC
BCC BRANCH_ALPHA
JSR $CC7D ;
{
LDA $2004 ;Tail fling trigger
BEQ BRANCH_ALPHA
LDA $201C
AND $201A
BMI BRANCH_BETA ;Branch if optional limits are unused
BRANCH_ALPHA
LDA $2002 ;Main battle AI flag (0 = inactive, 1 = active, FFFF = dead)
BEQ BRANCH_GAMMA
LDA $05E5 ;RNG
AND #$00FF
CMP #$00F0
BCS BRANCH_BETA ;Branch 1/10 times
LDA $0AF6 ;Samus X position
SEC
SBC $0F7A ;Ridley X position
BPL BRANCH_DELTA
EOR #$FFFF
INC A
BRANCH_DELTA ;Absolute distance
CMP #$0080 ;1/2 a screen
BCS BRANCH_GAMMA
LDA #$0000
BRA BRANCH_EPSILON
BRANCH_BETA ;If Norfair, only here if 2004 is set and angle targets are currently unused
LDA $2004
DEC A
BRANCH_EPSILON
JSR $D19D ;Target an angle (towards a missile or Samus) for tail. Note: Actual angle is actually twice the angle chosen, since each tail segment doubles it. Also, tail circles 2*A amount of times first
{
AND #$00FF
XBA
STA $200A ;Revolutions to make
LDA $7820 ;Direction facing
DEC A
BEQ BRANCH_ALPHA ;Branch if facing forward
LDA $7802 ;Main battle AI
BEQ BRANCH_ALPHA ;Branch if inactive
JSR $D242 ;Target a missile/super missile if available
{
LDA $20A4 ;Tail tip X position
STA $12
LDA $20A6 ;Tail tip Y position
STA $14
LDA #$0040 ;Tail tip detection area
STA $16 ;X size
STA $18 ;Y size
LDA $0CCE ;Samus's projectile counter
BNE BRANCH_ALPHA ;Branch if there are projectiles
CLC
RTS
---
111. Ridley AI
---
CDAA: Extend tail. Happens only while tail bouncing, moving downwards, and no tail parts currently rotating
{
JSR $CBFE ;Set min and max tail angles based on direction
JSR $CC1E ;SEC if all tail parts are rotating, else CLC
BCC BRANCH_ALPHA ;Always branches?
{ ;All this code NEVER HAPPENS! Just go to Branch_Alpha
LDA $05E5 ;Random number
AND #$00FF
CMP #$00F0 ;1/10 chance of branching
BCS BRANCH_BETA
LDA $0AF6 ;Samus's X position
SEC
SBC $000F7A ;Ridley's X position
BPL BRANCH_GAMMA
EOR #$FFFF
INC A
BRANCH_GAMMA ;Absolute distance
CMP #$0080 ;1/2 a screen
BCS BRANCH_ALPHA
BRANCH_BETA
LDA $201C
AND $201A
BPL BRANCH_ALPHA ;Branch if both target angles are used
LDA #$3F00
STA $201A ;Set lower (clockwise) target angle
LDA #$0008
STA $2014
RTS
}
---
