cc65/libsrc/atmos/capslock.s

;
; When Oric computers are in BASIC's command mode, the keyboard is in CAPS lock
; mode (because Oric BASIC keywords must be typed in upper-case).  This
; constructor disables that mode, so that text will be typed as lower-case
; (which is the default on other cc65 platforms).
; This module is linked by the conio and POSIX input functions.
;
; 2014-09-04, Greg King
;

        .constructor    disable_caps
        .destructor     restore_caps

        .include        "atmos.inc"


;--------------------------------------------------------------------------
; Put this constructor into a segment whose space
; will be re-used by BSS, the heap, and the C stack.
;
.segment        "ONCE"

; Turn the capitals lock off.

disable_caps:
        lda     CAPSLOCK
        sta     capsave
        lda     #$7F
        sta     CAPSLOCK
        rts


;--------------------------------------------------------------------------

.code

; Restore the old capitals-lock state.

restore_caps:
        lda     capsave
        sta     CAPSLOCK
        rts


;--------------------------------------------------------------------------

.segment        "INIT"

capsave:
        .res    1
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00			`;`
			`; When Oric computers are in BASIC's command mode, the keyboard is in CAPS lock`
			`; mode (because Oric BASIC keywords must be typed in upper-case). This`
			`; constructor disables that mode, so that text will be typed as lower-case`
			`; (which is the default on other cc65 platforms).`
			`; This module is linked by the conio and POSIX input functions.`
			`;`
Swapped the locations of a constructor and a destructor in a source file. The constructor now is first. Used a more expressive literal zero. 2014-09-04 21:37:41 +00:00			`; 2014-09-04, Greg King`
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00			`;`

			`.constructor disable_caps`
Swapped the locations of a constructor and a destructor in a source file. The constructor now is first. Used a more expressive literal zero. 2014-09-04 21:37:41 +00:00			`.destructor restore_caps`
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00
			`.include "atmos.inc"`


			`;--------------------------------------------------------------------------`
Converted the Atmos configuration to the new constructor segment model. 2016-03-18 15:28:56 +00:00			`; Put this constructor into a segment whose space`
			`; will be re-used by BSS, the heap, and the C stack.`
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00			`;`
Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 20:26:22 +00:00			`.segment "ONCE"`
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00
			`; Turn the capitals lock off.`

			`disable_caps:`
			`lda CAPSLOCK`
			`sta capsave`
			`lda #$7F`
			`sta CAPSLOCK`
			`rts`


Swapped the locations of a constructor and a destructor in a source file. The constructor now is first. Used a more expressive literal zero. 2014-09-04 21:37:41 +00:00			`;--------------------------------------------------------------------------`

			`.code`

			`; Restore the old capitals-lock state.`

			`restore_caps:`
			`lda capsave`
			`sta CAPSLOCK`
			`rts`


Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00			`;--------------------------------------------------------------------------`

Adjusted constructors. The constructors are _NOT_ allowed anymore to access the BSS. Rather they must use the DATA segment or the INIT segment. The latter isn't cleared at any point so the constructors may use it to expose values to the main program. However they must make sure to always write the values as they are not pre-initialized. 2016-03-16 15:28:32 +00:00			`.segment "INIT"`
Moved the CAPS LOCK code out of the startup file, and into its own file. 2014-08-22 21:19:58 +00:00
			`capsave:`
			`.res 1`