cleanup

defines_kbd.s

@@ -43,7 +43,7 @@ MONCOUT         := $FDFA
 LC000			:= $C000
 LC009			:= $C009
 LDE24			:= $DE24
-LDE42			:= $DE42 ; PRIMM ?
+PRIMM			:= $DE42
 LDE48			:= $DE48
 LDE53			:= $DE53
 LDE7F			:= $DE7F

flow1.s

@@ -274,6 +274,7 @@ L271C:
         sty     CURLIN+1
 RET1:
         rts
+
 .ifdef KBD
 PRT:
         jsr     GETBYT
@@ -293,6 +294,7 @@ LE68E:
         bpl     LE68E
         rts
 .endif
+
 .if .def(CONFIG_NULL) || .def(CBM1)
 ; CBM1 has the keyword removed,
 ; but the code is still here

init.s

@@ -9,9 +9,9 @@ FNDLIN2:
 ; ----------------------------------------------------------------------------
 COLD_START:
 .ifdef KBD
-        lda     #$81
+        lda     #<LFD81
         sta     $03A0
-        lda     #$FD
+        lda     #>LFD81
         sta     $03A1
         lda     #$20
         sta     $0480

kbd_extra.s

@@ -9,7 +9,8 @@
         sta     TXTTAB+1
         jsr     SCRTCH
         sta     STACK+255
-        jsr     LDE42
+LFD81:
+        jsr     PRIMM
         .byte   $1B,$06,$01,$0C
 		.byte	"INTELLIVISION BASIC"
         .byte	$0D,$0A,$0A
@@ -21,7 +22,7 @@
         lda     #$FF
         sta     ($04),y
         jsr     LDE8C
-        .byte   $0C
+        .byte   $0C	; NOP $xxxx
         jmp     RESTART
 OUTQUESSP:
         jsr     OUTQUES
@@ -326,6 +327,9 @@ LFFED:
         bne     LFFB6
         rts
         .byte   $FF
+; NMI
         .addr   LC000
+; RESET
         .addr   LC000
+; IRQ
         .addr   LC009

message.s

@@ -24,7 +24,7 @@ QT_IN:
 .ifdef KBD
 		.byte	$54,$D2 ; ???
 OKPRT:
-		jsr     LDE42
+		jsr     PRIMM
         .byte   CR,CR,">>",CR,LF
 		.byte	0
         rts