disabled function keys for non-direct mode and for MONITOR

src/kernal/screen/chrin_programmable_keys.s

@@ -13,33 +13,39 @@
 
 chrin_programmable_keys:
 
+	; Check if in direct mode
+
+	ldx CURLIN+1
+	inx
+	bne @2
+
 	; Check if the key is programmable
 
 	ldx #(__programmable_keys_codes_end - programmable_keys_codes - 1)
 @1:
 	cmp programmable_keys_codes, x
-	beq @2
+	beq @3
 	dex
 	bpl @1
 
 	; This is not a programmable key
-
+@2:
 	sec
 	rts
-@2:
+@3:
 	; .X contains index of the key code, we need offset to key string instead
 
 	lda programmable_keys_offsets, x
 	tax
 
 	; Print all the characters assigned to key
-@3:
+@4:
 	lda programmable_keys_strings, x
-	beq @4
+	beq @5
 	jsr CHROUT ; our implementation preserves .X too
 	inx
-	bne @3     ; jumps always
-@4:
+	bne @4     ; jumps always
+@5:
 	clc
 	rts