add GlobalKeyboardHandler installer and welcome message

2024-12-22 02:30:25 +00:00 · 2016-10-16 14:32:54 -04:00 · 2016-10-16 14:32:54 -04:00 · 5ac4bd1689
commit 5ac4bd1689
parent 20b168f429
2 changed files with 40 additions and 0 deletions
--- a/bin/V2Make.scpt
+++ b/bin/V2Make.scpt
--- a/src/4live.a
+++ b/src/4live.a
@ -5,4 +5,44 @@
 !cpu 6502
 *=$8000
 ;
+!addr   KSWL            = $38
+!addr   RECONNECTDOS    = $3EA
+!addr   WARMDOS         = $3D0
+!addr   KBD             = $C000
+!addr   STROBE          = $C010
+!addr   COUT            = $FDED
+
+        HOTKEY          = $80           ; CTRL-@
+
+;
+
+        ldy     #0
+-       lda     _WelcomeMessage,y
+        beq     +
+        ora     #$80
+        jsr     COUT
+        iny
+        bne     -
+       jsr     Install
+        jmp     WARMDOS
+
+_WelcomeMessage
+        !text   $8D, "4LIVE READY. PRESS CTRL-@ TO ACTIVATE.", $8D, 0
+
+Install
+        lda     #<GlobalKeyboardHook
+        sta     KSWL
+        lda     #>GlobalKeyboardHook
+        sta     KSWL+1
+        jmp     RECONNECTDOS
+
+GlobalKeyboardHook
+-       lda     KBD
+        bpl     -
+        bit     STROBE
+        cmp     #HOTKEY
+        beq     +
        rts
+
+        jsr     $FC58
+        jmp     GlobalKeyboardHook