From: Greg King <gregdk@users.sf.net>
Date: Mon, 5 May 2014 17:45:34 +0000 (-0400)
Subject: Added comments that explain why some instructions are implied.
X-Git-Tag: V2.15~66^2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a27e7562fd04567f608606bd1b3dde566e792f93;p=cc65

Added comments that explain why some instructions are implied.
---

diff --git a/libsrc/c128/mou/c128-1351.s b/libsrc/c128/mou/c128-1351.s
index 89a32bbd5..298cf9e13 100644
--- a/libsrc/c128/mou/c128-1351.s
+++ b/libsrc/c128/mou/c128-1351.s
@@ -208,7 +208,7 @@ UNINSTALL:
         sta     IRQInd+1
         lda     old_irq+1
         sta     IRQInd+2
-        ;cli
+        ;cli                            ; This will be done at end of HIDE
 
         jsr     HIDE                    ; Hide cursor on exit
         lda     INIT_save
diff --git a/libsrc/c128/mou/c128-inkwell.s b/libsrc/c128/mou/c128-inkwell.s
index 1e2f19844..0e45046e8 100644
--- a/libsrc/c128/mou/c128-inkwell.s
+++ b/libsrc/c128/mou/c128-inkwell.s
@@ -240,7 +240,7 @@ UNINSTALL:
         sei
         sta     IRQInd+1
         stx     IRQInd+2
-        ;cli
+        ;cli                            ; This will be done at end of HIDE
 
         jsr     HIDE                    ; Hide cursor on exit
         lda     INIT_save
@@ -410,7 +410,7 @@ IRQ:    jsr     CPREP
         ldy     #%00000000              ; Set ports A and B to input
         sty     CIA1_DDRB
         sty     CIA1_DDRA               ; Keyboard won't look like buttons
-        ;lda     #%01111111
+        ;lda     #%01111111             ; (Keyboard scan leaves this in port A)
         ;sta     CIA1_PRA
         lda     CIA1_PRB                ; Read Control Port 1
         dec     CIA1_DDRA               ; Set port A back to output
diff --git a/libsrc/c128/mou/c128-joy.s b/libsrc/c128/mou/c128-joy.s
index 2426ebd69..47a73c877 100644
--- a/libsrc/c128/mou/c128-joy.s
+++ b/libsrc/c128/mou/c128-joy.s
@@ -209,7 +209,7 @@ UNINSTALL:
         sta     IRQInd+1
         lda     old_irq+1
         sta     IRQInd+2
-        ;cli
+        ;cli                            ; This will be done at end of HIDE
 
         jsr     HIDE                    ; Hide cursor on exit
         lda     INIT_save
diff --git a/libsrc/c128/mou/c128-pot.s b/libsrc/c128/mou/c128-pot.s
index 0a3ed6051..43a4b40e9 100644
--- a/libsrc/c128/mou/c128-pot.s
+++ b/libsrc/c128/mou/c128-pot.s
@@ -209,7 +209,7 @@ UNINSTALL:
         sei
         sta     IRQInd+1
         stx     IRQInd+2
-        ;cli
+        ;cli                            ; This will be done at end of HIDE
 
         jsr     HIDE                    ; Hide cursor on exit
         lda     INIT_save
@@ -318,8 +318,8 @@ BUTTONS:
         and     #JOY::LEFT | JOY::RIGHT
         lsr     a
         lsr     a
-        ;clc
-        adc     #%00001110
+        ;clc                            ; ("lsr" shifted zero into carry flag)
+        adc     #%00001110              ; Shift bit 1 over to bit 4
         and     #MOUSE_BTN_LEFT | MOUSE_BTN_RIGHT
         rts