modified mapped to start noting where memory is accessed

diff --git a/ROM/mapped.asm b/ROM/mapped.asm
index 965e665..913a899 100644 (file)
--- a/ROM/mapped.asm
+++ b/ROM/mapped.asm
@@ -898,7 +898,7 @@ jump15:
 86D4 F5 00 00        ...   bitb 0000
 86D7 C6 FF           ..    ldab #ff
 86D9 F7 0B BC        ...   stb 0bbc
-86DC F6 18 00        ...   ldab 1800
+86DC F6 18 00        ...   ldab 1800           ;tristate buffer
 86DF 2D 29           -)    blt 29              ;870A
 86E1 F6 00 07        ...   ldab 0007
 86E4 26 24           &$    bne 24              ;870A
@@ -2334,7 +2334,7 @@ jump22:
 935E 32              2     pula 
 935F 33              3     pulb 
 9360 FD 0D F1        ...   stad 0df1
-9363 F6 20 00        . .   ldab 2000
+9363 F6 20 00        . .   ldab 2000           ;switch block 1
 9366 C4 40           .@    andb #40
 9368 27 37           '7    beq 37              ;93A1
 936A F6 00 1F        ...   ldab 001f
@@ -7511,7 +7511,7 @@ BA81 31              1     ins
 BA82 39              9     rts 
 
 jump125:
-BA83 F6 18 00        ...   ldab 1800
+BA83 F6 18 00        ...   ldab 1800           ;tristate buffer
 BA86 C4 7F           ..    andb #7f
 BA88 F7 00 23        ..#   stb 0023
 BA8B F6 00 23        ..#   ldab 0023
@@ -7519,10 +7519,10 @@ BA8E F1 00 12        ...   cmpb 0012
 BA91 27 06           '.    beq 06              ;BA99
 BA93 F6 00 23        ..#   ldab 0023
 BA96 F7 00 12        ...   stb 0012
-BA99 F6 20 00        . .   ldab 2000
+BA99 F6 20 00        . .   ldab 2000           ;switch block 1
 BA9C F1 00 20        ..    cmpb 0020
 BA9F 27 08           '.    beq 08              ;BAA9
-BAA1 F6 20 00        . .   ldab 2000
+BAA1 F6 20 00        . .   ldab 2000           ;switch block 1
 BAA4 F7 00 20        ..    stb 0020
 BAA7 20 0E            .    bra 0e              ;BAB7
 BAA9 F6 00 20        ..    ldab 0020
@@ -7571,12 +7571,12 @@ BB00 CE 00 14        ...   ldx #0014
 BB03 1C 00           ..    bset add,x 00,x
 BB05 04              .     lsrd 
 BB06 F6 00 14        ...   ldab 0014
-BB09 F7 38 00        .8.   stb 3800
+BB09 F7 38 00        .8.   stb 3800            ;changer output
 BB0C CE 00 14        ...   ldx #0014
 BB0F 1D 00           ..    bclr add,x 00,x
 BB11 04              .     lsrd 
 BB12 F6 00 14        ...   ldab 0014
-BB15 F7 38 00        .8.   stb 3800
+BB15 F7 38 00        .8.   stb 3800            ;changer output
 BB18 CE 00 00        ...   ldx #0000
 BB1B 3C              <     pshx 
 BB1C 5F              _     clrb 
@@ -7598,12 +7598,12 @@ BB37 CE 00 14        ...   ldx #0014
 BB3A 1C 00           ..    bset add,x 00,x
 BB3C 04              .     lsrd 
 BB3D F6 00 14        ...   ldab 0014
-BB40 F7 38 00        .8.   stb 3800
+BB40 F7 38 00        .8.   stb 3800            ;changer output
 BB43 CE 00 14        ...   ldx #0014
 BB46 1D 00           ..    bclr add,x 00,x
 BB48 04              .     lsrd 
 BB49 F6 00 14        ...   ldab 0014
-BB4C F7 38 00        .8.   stb 3800
+BB4C F7 38 00        .8.   stb 3800            ;changer output
 BB4F CE 00 00        ...   ldx #0000
 BB52 3C              <     pshx 
 BB53 5F              _     clrb 
@@ -7870,13 +7870,13 @@ BDC1 CE 00 14        ...   ldx #0014
 BDC4 1C 00           ..    bset add,x 00,x
 BDC6 08              .     inx 
 BDC7 F6 00 14        ...   ldab 0014
-BDCA F7 38 00        .8.   stb 3800
+BDCA F7 38 00        .8.   stb 3800            ;changer output
 BDCD 20 0C            .    bra 0c              ;BDDB
 BDCF CE 00 14        ...   ldx #0014
 BDD2 1D 00           ..    bclr add,x 00,x
 BDD4 08              .     inx 
 BDD5 F6 00 14        ...   ldab 0014
-BDD8 F7 38 00        .8.   stb 3800
+BDD8 F7 38 00        .8.   stb 3800            ;changer output
 BDDB 30              0     tsx 
 BDDC E6 03           ..    ldab 03,x
 BDDE F7 10 2A        ..*   stb 102a
@@ -8344,7 +8344,7 @@ C0FE CE 00 14        ...   ldx #0014
 C101 1C 00           ..    bset add,x 00,x
 C103 01              .     nop 
 C104 F6 00 14        ...   ldab 0014
-C107 F7 38 00        .8.   stb 3800
+C107 F7 38 00        .8.   stb 3800            ;changer output
 C10A F6 00 15        ...   ldab 0015
 C10D C4 1F           ..    andb #1f
 C10F 26 03           &.    bne 03              ;C114
@@ -8686,7 +8686,7 @@ C39F CE 00 14        ...   ldx #0014
 C3A2 1D 00           ..    bclr add,x 00,x
 C3A4 01              .     nop 
 C3A5 F6 00 14        ...   ldab 0014
-C3A8 F7 38 00        .8.   stb 3800
+C3A8 F7 38 00        .8.   stb 3800            ;changer output
 C3AB 7C 00 7C        |.|   inc 007c
 C3AE CE 00 15        ...   ldx #0015
 C3B1 1D 00           ..    bclr add,x 00,x
@@ -8973,7 +8973,7 @@ C640 CE 00 14        ...   ldx #0014
 C643 1D 00           ..    bclr add,x 00,x
 C645 02              .     idiv 
 C646 F6 00 14        ...   ldab 0014
-C649 F7 38 00        .8.   stb 3800
+C649 F7 38 00        .8.   stb 3800            ;changer output
 C64C CC 00 1E        ...   ldd #001e
 C64F BD E5 71        ..q   jsr e571            ;jump13
 C652 CE 00 15        ...   ldx #0015
@@ -8982,14 +8982,14 @@ C657 1F CE 00 14     ....  brclr ce,x 00 14
 C65B 1C 00           ..    bset add,x 00,x
 C65D 02              .     idiv 
 C65E F6 00 14        ...   ldab 0014
-C661 F7 38 00        .8.   stb 3800
+C661 F7 38 00        .8.   stb 3800            ;changer output
 C664 CC 00 19        ...   ldd #0019
 C667 BD E5 71        ..q   jsr e571            ;jump13
 C66A CE 00 14        ...   ldx #0014
 C66D 1C 00           ..    bset add,x 00,x
 C66F 01              .     nop 
 C670 F6 00 14        ...   ldab 0014
-C673 F7 38 00        .8.   stb 3800
+C673 F7 38 00        .8.   stb 3800            ;changer output
 C676 CC 00 19        ...   ldd #0019
 C679 BD E5 71        ..q   jsr e571            ;jump13
 goto43:
@@ -9034,7 +9034,7 @@ C6CD F7 00 30        ..0   stb 0030
 C6D0 C6 1E           ..    ldab #1e
 C6D2 F7 00 35        ..5   stb 0035
 C6D5 20 5D            ]    bra 5d              ;C734
-C6D7 F6 18 00        ...   ldab 1800
+C6D7 F6 18 00        ...   ldab 1800           ;tristate buffer
 C6DA 2D 2A           -*    blt 2a              ;C706
 C6DC F6 00 07        ...   ldab 0007
 C6DF 26 25           &%    bne 25              ;C706
@@ -9884,9 +9884,9 @@ CD9B CD              .     illegal
 CD9C B1 00 31        ..1   cmpa 0031
 CD9F CD              .     illegal 
 CDA0 DB 00 01        ...   addb 00
-CDA3 CE 20 00        . .   ldx #2000
+CDA3 CE 20 00        . .   ldx #2000           ;switch block 1
 CDA6 01              .     nop 
-CDA7 CE 28 00        .(.   ldx #2800
+CDA7 CE 28 00        .(.   ldx #2800   ;snack motor home sensors
 CDAA 05              .     asld 
 CDAB CE 34 FF        .4.   ldx #34ff
 CDAE C8 00           ..    eorb #00
@@ -10316,7 +10316,7 @@ D131 14              .     bset
 D132 1D 00           ..    bclr add,x 00,x
 D134 40              @     nega 
 D135 F6 00 14        ...   ldab 0014
-D138 F7 38 00        .8.   stb 3800
+D138 F7 38 00        .8.   stb 3800            ;changer output
 D13B 31              1     ins 
 D13C 39              9     rts 
 
@@ -10367,13 +10367,13 @@ D190 CE 00 14        ...   ldx #0014
 D193 1C 00           ..    bset add,x 00,x
 D195 10              .     sba 
 D196 F6 00 14        ...   ldab 0014
-D199 F7 38 00        .8.   stb 3800
+D199 F7 38 00        .8.   stb 3800            ;changer output
 D19C 20 0C            .    bra 0c              ;D1AA
 D19E CE 00 14        ...   ldx #0014
 D1A1 1D 00           ..    bclr add,x 00,x
 D1A3 10              .     sba 
 D1A4 F6 00 14        ...   ldab 0014
-D1A7 F7 38 00        .8.   stb 3800
+D1A7 F7 38 00        .8.   stb 3800            ;changer output
 D1AA CE 10 00        ...   ldx #1000
 D1AD 1C 00           ..    bset add,x 00,x
 D1AF 20 CE            .    bra ce              ;D17F
@@ -10395,7 +10395,7 @@ D1CC 1C 00           ..    bset add,x 00,x
 D1CE 20 F6            .    bra f6              ;D1C6
 D1D0 00              .     test 
 D1D1 14              .     bset 
-D1D2 F7 38 00        .8.   stb 3800
+D1D2 F7 38 00        .8.   stb 3800            ;changer output
 D1D5 20 13            .    bra 13              ;D1EA
 D1D7 F6 00 5F        .._   ldab 005f
 D1DA C1 0A           ..    cmpb #0a
@@ -10404,7 +10404,7 @@ D1DE CE 00 14        ...   ldx #0014
 D1E1 1C 00           ..    bset add,x 00,x
 D1E3 40              @     nega 
 D1E4 F6 00 14        ...   ldab 0014
-D1E7 F7 38 00        .8.   stb 3800
+D1E7 F7 38 00        .8.   stb 3800            ;changer output
 D1EA CE 10 00        ...   ldx #1000
 D1ED 1D 00           ..    bclr add,x 00,x
 D1EF 40              @     nega 
@@ -10705,7 +10705,7 @@ D428 26 37           &7    bne 37               ;D461
 D42A BD D1 3D        ..=   jsr d13d            ;jump34
 D42D 7F 00 1C        ...   clr 001c
 D430 7F 00 18        ...   clr 0018
-D433 F6 18 00        ...   ldab 1800
+D433 F6 18 00        ...   ldab 1800           ;tristate buffer
 D436 C4 40           .@    andb #40
 D438 26 14           &.    bne 14              ;D44E
 D43A 7C 00 1C        |..   inc 001c
@@ -11021,7 +11021,7 @@ D65E CE 00 14        ...   ldx #0014
 D661 1D 00           ..    bclr add,x 00,x
 D663 01              .     nop 
 D664 F6 00 14        ...   ldab 0014
-D667 F7 38 00        .8.   stb 3800
+D667 F7 38 00        .8.   stb 3800            ;changer output
 D66A 39              9     rts 
 
 jump107:
@@ -11061,14 +11061,14 @@ D6B9 CE 00 14        ...   ldx #0014
 D6BC 1C 00           ..    bset add,x 00,x
 D6BE 02              .     idiv 
 D6BF F6 00 14        ...   ldab 0014
-D6C2 F7 38 00        .8.   stb 3800
+D6C2 F7 38 00        .8.   stb 3800            ;changer output
 D6C5 BD C0 E0        ...   jsr c0e0            ;jump94
 D6C8 20 0C            .    bra 0c              ;D6D6
 D6CA CE 00 14        ...   ldx #0014
 D6CD 1D 00           ..    bclr add,x 00,x
 D6CF 01              .     nop 
 D6D0 F6 00 14        ...   ldab 0014
-D6D3 F7 38 00        .8.   stb 3800
+D6D3 F7 38 00        .8.   stb 3800            ;changer output
 D6D6 20 05            .    bra 05              ;D6DD
 D6D8 BD D6 52        ..R   jsr d652            ;jump5
 D6DB 8D 53           .S    bsr dest 53
@@ -13579,7 +13579,7 @@ EA65 83 00 00        ...   subd #0000
 EA68 27 3F           '?    beq 3f              ;EAA9
 EA6A CE 00 01        ...   ldx #0001
 EA6D 3C              <     pshx 
-EA6E CC 18 00        ...   ldd #1800
+EA6E CC 18 00        ...   ldd #1800           ;tristate buffer
 EA71 BD E5 D7        ...   jsr e5d7            ;jump69
 EA74 38              8     pulx 
 EA75 83 00 00        ...   subd #0000
@@ -13587,7 +13587,7 @@ EA78 27 2F           '/    beq 2f               ;EAA9
 EA7A CC 03 E8        ...   ldd #03e8
 EA7D BD E5 71        ..q   jsr e571            ;jump13
 EA80 7F 0B A8        ...   clr 0ba8
-EA83 F6 18 00        ...   ldab 1800
+EA83 F6 18 00        ...   ldab 1800           ;tristate buffer
 EA86 C4 01           ..    andb #01
 EA88 26 1C           &.    bne 1c              ;EAA6
 EA8A BD BE 4B        ..K   jsr be4b            ;jump1
@@ -13605,7 +13605,7 @@ EAA6 BD BE 69        ..i   jsr be69             ;jump3
 EAA9 C6 01           ..    ldab #01
 EAAB F7 00 14        ...   stb 0014
 EAAE F6 00 14        ...   ldab 0014
-EAB1 F7 38 00        .8.   stb 3800
+EAB1 F7 38 00        .8.   stb 3800            ;changer output
 EAB4 CC 00 1E        ...   ldd #001e
 EAB7 BD E5 71        ..q   jsr e571            ;jump13
 EABA CE 00 01        ...   ldx #0001
@@ -13626,7 +13626,7 @@ EADA 7E ED F8        ~..   jmp edf8             ;goto80
 EADD C6 02           ..    ldab #02
 EADF F7 00 14        ...   stb 0014
 EAE2 F6 00 14        ...   ldab 0014
-EAE5 F7 38 00        .8.   stb 3800
+EAE5 F7 38 00        .8.   stb 3800            ;changer output
 EAE8 CC 00 1E        ...   ldd #001e
 EAEB BD E5 71        ..q   jsr e571            ;jump13
 EAEE CE 00 01        ...   ldx #0001
@@ -14011,7 +14011,7 @@ EDF3 F7 08 00        ...   stb 0800
 EDF6 8D 21           .!    bsr dest 21
 EDF8 7F 00 14        ...   clr 0014
 EDFB F6 00 14        ...   ldab 0014
-EDFE F7 38 00        .8.   stb 3800
+EDFE F7 38 00        .8.   stb 3800            ;changer output
 EE01 31              1     ins 
 EE02 39              9     rts 
 
@@ -14059,7 +14059,7 @@ EE56 F6 00 1A        ...   ldab 001a
 EE59 F7 30 00        .0.   stb 3000    ;snack motor drivers serial data is bit 7
 EE5C CC 00 0A        ...   ldd #000a
 EE5F BD E5 71        ..q   jsr e571            ;jump13
-EE62 F6 18 00        ...   ldab 1800
+EE62 F6 18 00        ...   ldab 1800           ;tristate buffer
 EE65 2C 07           ,.    bge 07              ;EE6E
 EE67 CC B1 5A        ..Z   ldd #b15a
 EE6A 8D 97           ..    bsr dest 97
@@ -14075,7 +14075,7 @@ EE7E F6 00 1A        ...   ldab 001a
 EE81 F7 30 00        .0.   stb 3000    ;snack motor drivers serial data is bit 7
 EE84 CC 00 0A        ...   ldd #000a
 EE87 BD E5 71        ..q   jsr e571            ;jump13
-EE8A F6 18 00        ...   ldab 1800
+EE8A F6 18 00        ...   ldab 1800           ;tristate buffer
 EE8D 2D 08           -.    blt 08              ;EE97
 EE8F CC B1 5A        ..Z   ldd #b15a
 EE92 BD EE 03        ...   jsr ee03            ;jump36
@@ -14143,7 +14143,7 @@ EF2A F6 00 1A        ...   ldab 001a
 EF2D F7 30 00        .0.   stb 3000    ;snack motor drivers serial data is bit 7
 EF30 CC 00 0A        ...   ldd #000a
 EF33 BD E5 71        ..q   jsr e571            ;jump13
-EF36 F6 18 00        ...   ldab 1800
+EF36 F6 18 00        ...   ldab 1800           ;tristate buffer
 EF39 C4 20           .     andb #20
 EF3B 26 06           &.    bne 06              ;EF43
 EF3D CC B1 70        ..p   ldd #b170
@@ -14155,7 +14155,7 @@ EF49 F6 00 1A        ...   ldab 001a
 EF4C F7 30 00        .0.   stb 3000    ;snack motor drivers serial data is bit 7
 EF4F CC 00 0A        ...   ldd #000a
 EF52 BD E5 71        ..q   jsr e571            ;jump13
-EF55 F6 18 00        ...   ldab 1800
+EF55 F6 18 00        ...   ldab 1800           ;tristate buffer
 EF58 C4 20           .     andb #20
 EF5A 27 06           '.    beq 06              ;EF62
 EF5C CC B1 70        ..p   ldd #b170
@@ -14240,10 +14240,10 @@ F01F 1C 00           ..    bset add,x 00,x
 F021 20 F6            .    bra f6              ;F019
 F023 00              .     test 
 F024 14              .     bset 
-F025 F7 38 00        .8.   stb 3800
+F025 F7 38 00        .8.   stb 3800            ;changer output
 F028 CC 00 0A        ...   ldd #000a
 F02B BD E5 71        ..q   jsr e571            ;jump13
-F02E F6 20 00        . .   ldab 2000
+F02E F6 20 00        . .   ldab 2000           ;switch block 1
 F031 C4 40           .@    andb #40
 F033 26 06           &.    bne 06              ;F03B
 F035 CC B1 9C        ...   ldd #b19c
@@ -14253,10 +14253,10 @@ F03E 1D 00           ..    bclr add,x 00,x
 F040 20 F6            .    bra f6              ;F038
 F042 00              .     test 
 F043 14              .     bset 
-F044 F7 38 00        .8.   stb 3800
+F044 F7 38 00        .8.   stb 3800            ;changer output
 F047 CC 00 0A        ...   ldd #000a
 F04A BD E5 71        ..q   jsr e571            ;jump13
-F04D F6 20 00        . .   ldab 2000
+F04D F6 20 00        . .   ldab 2000           ;switch block 1
 F050 C4 40           .@    andb #40
 F052 27 06           '.    beq 06              ;F05A
 F054 CC B1 9C        ...   ldd #b19c
@@ -14265,10 +14265,10 @@ F05A CE 00 14        ...   ldx #0014
 F05D 1C 00           ..    bset add,x 00,x
 F05F 40              @     nega 
 F060 F6 00 14        ...   ldab 0014
-F063 F7 38 00        .8.   stb 3800
+F063 F7 38 00        .8.   stb 3800            ;changer output
 F066 CC 00 0A        ...   ldd #000a
 F069 BD E5 71        ..q   jsr e571            ;jump13
-F06C F6 20 00        . .   ldab 2000
+F06C F6 20 00        . .   ldab 2000           ;switch block 1
 F06F 2C 06           ,.    bge 06              ;F077
 F071 CC B1 9C        ...   ldd #b19c
 F074 BD EE 03        ...   jsr ee03            ;jump36
@@ -14276,10 +14276,10 @@ F077 CE 00 14        ...   ldx #0014
 F07A 1D 00           ..    bclr add,x 00,x
 F07C 40              @     nega 
 F07D F6 00 14        ...   ldab 0014
-F080 F7 38 00        .8.   stb 3800
+F080 F7 38 00        .8.   stb 3800            ;changer output
 F083 CC 00 0A        ...   ldd #000a
 F086 BD E5 71        ..q   jsr e571            ;jump13
-F089 F6 20 00        . .   ldab 2000
+F089 F6 20 00        . .   ldab 2000           ;switch block 1
 F08C 2D 06           -.    blt 06              ;F094
 F08E CC B1 9C        ...   ldd #b19c
 F091 BD EE 03        ...   jsr ee03            ;jump36
@@ -14335,7 +14335,7 @@ F109 F7 00 06        ...   stb 0006
 F10C BD D1 3D        ..=   jsr d13d            ;jump34
 F10F CC 00 0A        ...   ldd #000a
 F112 BD E5 71        ..q   jsr e571            ;jump13
-F115 F6 18 00        ...   ldab 1800
+F115 F6 18 00        ...   ldab 1800           ;tristate buffer
 F118 C4 40           .@    andb #40
 F11A 26 0B           &.    bne 0b              ;F127
 F11C BD D1 05        ...   jsr d105            ;jump32
@@ -14345,7 +14345,7 @@ F125 20 1D            .    bra 1d               ;F144
 F127 BD D1 05        ...   jsr d105            ;jump32
 F12A CC 00 0A        ...   ldd #000a
 F12D BD E5 71        ..q   jsr e571            ;jump13
-F130 F6 18 00        ...   ldab 1800
+F130 F6 18 00        ...   ldab 1800           ;tristate buffer
 F133 C4 40           .@    andb #40
 F135 27 08           '.    beq 08              ;F13F
 F137 CC B1 B2        ...   ldd #b1b2
@@ -14372,9 +14372,9 @@ F160 C4 40           .@    andb #40
 F162 26 5B           &[    bne 5b              ;F1BF
 F164 C6 FF           ..    ldab #ff
 F166 F7 00 39        ..9   stb 0039
-F169 F6 20 00        . .   ldab 2000
+F169 F6 20 00        . .   ldab 2000           ;switch block 1
 F16C 2C 11           ,.    bge 11              ;F17F
-F16E F6 20 00        . .   ldab 2000
+F16E F6 20 00        . .   ldab 2000           ;switch block 1
 F171 C4 40           .@    andb #40
 F173 27 0A           '.    beq 0a              ;F17F
 F175 F6 00 39        ..9   ldab 0039
@@ -14387,7 +14387,7 @@ F184 CE 00 19        ...   ldx #0019
 F187 1C 00           ..    bset add,x 00,x
 F189 40              @     nega 
 F18A 20 33            3    bra 33              ;F1BF
-F18C F6 20 00        . .   ldab 2000
+F18C F6 20 00        . .   ldab 2000           ;switch block 1
 F18F C4 40           .@    andb #40
 F191 27 2C           ',    beq 2c              ;F1BF
 F193 F6 00 1D        ...   ldab 001d
@@ -14418,7 +14418,7 @@ F1C0 39              9     rts
 jump59:
 F1C1 37              7     pshb 
 F1C2 36              6     psha 
-F1C3 F6 20 00        . .   ldab 2000
+F1C3 F6 20 00        . .   ldab 2000           ;switch block 1
 F1C6 C4 40           .@    andb #40
 F1C8 27 1C           '.    beq 1c              ;F1E6
 F1CA 7F 00 18        ...   clr 0018
@@ -14445,7 +14445,7 @@ F1E7 39              9     rts
 jump57:
 F1E8 37              7     pshb 
 F1E9 36              6     psha 
-F1EA F6 20 00        . .   ldab 2000
+F1EA F6 20 00        . .   ldab 2000           ;switch block 1
 F1ED C4 40           .@    andb #40
 F1EF 27 1B           '.    beq 1b              ;F20C
 F1F1 CC 00 20        ..    ldd #0020
@@ -14469,7 +14469,7 @@ F20D 39              9     rts
 jump62:
 F20E 37              7     pshb 
 F20F 36              6     psha 
-F210 F6 20 00        . .   ldab 2000
+F210 F6 20 00        . .   ldab 2000           ;switch block 1
 F213 C4 40           .@    andb #40
 F215 27 34           '4    beq 34              ;F24B
 F217 CE 00 1D        ...   ldx #001d
@@ -14501,7 +14501,7 @@ F24C 39              9     rts
 jump58:
 F24D 37              7     pshb 
 F24E 36              6     psha 
-F24F F6 20 00        . .   ldab 2000
+F24F F6 20 00        . .   ldab 2000           ;switch block 1
 F252 C4 40           .@    andb #40
 F254 27 41           'A    beq 41              ;F297
 F256 CE 00 1D        ...   ldx #001d
@@ -14539,7 +14539,7 @@ jump61
 jump61::
 F299 37              7     pshb 
 F29A 36              6     psha 
-F29B F6 20 00        . .   ldab 2000
+F29B F6 20 00        . .   ldab 2000           ;switch block 1
 F29E C4 40           .@    andb #40
 F2A0 27 7B           '{    beq 7b              ;F31D
 F2A2 F6 00 17        ...   ldab 0017
@@ -14602,7 +14602,7 @@ F31F 38              8     pulx
 F320 37              7     pshb 
 F321 36              6     psha 
 F322 3C              <     pshx 
-F323 F6 20 00        . .   ldab 2000
+F323 F6 20 00        . .   ldab 2000           ;switch block 1
 F326 C4 40           .@    andb #40
 F328 26 03           &.    bne 03              ;F32D
 F32A 7E F3 BC        ~..   jmp f3bc            ;goto82
@@ -14679,7 +14679,7 @@ F3BF 6E 00           n.    jmp 00,x
 jump63:
 F3C1 37              7     pshb 
 F3C2 36              6     psha 
-F3C3 F6 20 00        . .   ldab 2000
+F3C3 F6 20 00        . .   ldab 2000           ;switch block 1
 F3C6 C4 40           .@    andb #40
 F3C8 27 49           'I    beq 49              ;F413
 F3CA CC B4 71        ..q   ldd #b471   "    CODE "
@@ -15114,7 +15114,7 @@ main:
 
 F7D6 7F 00 14        ...   clr 0014    ;0 -> 0014
 F7D9 5F              _     clrb        ;0 -> B
-F7DA F7 38 00        .8.   stb 3800    ;B -> 3800
+F7DA F7 38 00        .8.   stb 3800    ;B -> 3800 changer output
 F7DD C6 7F           ..    ldab #7f    ;7F -> B
 F7DF F7 00 1A        ...   stb 001a    ;B -> 001a
 F7E2 C6 7F           ..    ldab #7f    ;7F -> B