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 89a32bbd5d38c0f89b7f39eaf35e06bcf62143ae..298cf9e132e8332a5776f5d19ece179a570807be 100644 (file)
--- 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 1e2f198445c098438463424d7f733f4af66af1be..0e45046e8633a2b52fe28922f234879db63fad18 100644 (file)
--- 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 2426ebd6983d96ceb81baf7e20e298b46d2d4fc1..47a73c877e3ac67dface85184982486abffe7630 100644 (file)
--- 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 0a3ed605161c641ef1bde136cb6848c148c737db..43a4b40e95996ca5692c3e95b511c3182028cf4c 100644 (file)
--- 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