Swapped the locations of a constructor and a destructor in a source file.

The constructor now is first.

Used a more expressive literal zero.

diff --git a/libsrc/atmos/capslock.s b/libsrc/atmos/capslock.s
index 6811862c650e7e1a926d2ab942f9970e7487c5d5..0ed6e70da7156e11e98ae7fab68d2a942e6b4289 100644 (file)
--- a/libsrc/atmos/capslock.s
+++ b/libsrc/atmos/capslock.s
@@ -5,25 +5,15 @@
 ; (which is the default on other cc65 platforms).
 ; This module is linked by the conio and POSIX input functions.
 ;
-; 2014-08-22, Greg King
+; 2014-09-04, Greg King
 ;
 
-        .destructor     restore_caps
         .constructor    disable_caps
+        .destructor     restore_caps
 
         .include        "atmos.inc"
 
 
-;--------------------------------------------------------------------------
-
-; Restore the old capitals-lock state.
-
-restore_caps:
-        lda     capsave
-        sta     CAPSLOCK
-        rts
-
-
 ;--------------------------------------------------------------------------
 ; Put this constructor into a segment that can be re-used by programs.
 ;
@@ -39,6 +29,18 @@ disable_caps:
         rts
 
 
+;--------------------------------------------------------------------------
+
+.code
+
+; Restore the old capitals-lock state.
+
+restore_caps:
+        lda     capsave
+        sta     CAPSLOCK
+        rts
+
+
 ;--------------------------------------------------------------------------
 
 .bss

diff --git a/libsrc/atmos/cgetc.s b/libsrc/atmos/cgetc.s
index dab92f882203ee8943fb650baa8415a3421b9a80..e4ea15ac659d7741a5e1d5d853ffa692427663d8 100644 (file)
--- a/libsrc/atmos/cgetc.s
+++ b/libsrc/atmos/cgetc.s
@@ -1,6 +1,6 @@
 ;
 ; 2003-04-13, Ullrich von Bassewitz
-; 2014-08-22, Greg King
+; 2014-09-04, Greg King
 ;
 ; char cgetc (void);
 ;
@@ -38,15 +38,15 @@
         beq     @L2
         dec     STATUS          ; Clear bit zero
 
-; We have the character, clear avail flag
+; We have the character, clear the "available" flag
 
 @L2:    and     #$7F            ; Mask out avail flag
         sta     KEYBUF
-        ldx     #>0
+        ldx     #>$0000
         ldy     MODEKEY
         cpy     #FUNCTKEY
         bne     @L3
-        ora     #$80            ; FUNCT pressed
+        ora     #$80            ; FUNCT-key pressed
 
 ; Done