cleanup

init.s

@@ -7,7 +7,7 @@ FNDLIN2:
 .endif
 
 ; ----------------------------------------------------------------------------
-COLD_START:
+PR_WRITTEN_BY:
 .ifdef KBD
         lda     #<LFD81
         sta     $03A0
@@ -25,7 +25,7 @@ COLD_START:
         ldy     #>QT_WRITTEN_BY
         jsr     STROUT
   .endif
-COLD_START2:
+COLD_START:
   .ifndef CBM2
         ldx     #$FF
         stx     CURLIN+1
@@ -35,8 +35,8 @@ COLD_START2:
   .endif
         txs
   .ifndef CONFIG_CBM_ALL
-        lda     #<COLD_START2
+        lda     #<COLD_START
-        ldy     #>COLD_START2
+        ldy     #>COLD_START
         sta     GORESTART+1
         sty     GORESTART+2
         sta     GOSTROUT+1
@@ -167,7 +167,7 @@ L4098:
         sty     TXTPTR+1
         jsr     CHRGET
         cmp     #$41
-        beq     COLD_START
+        beq     PR_WRITTEN_BY
         tay
         bne     L40EE
 .endif

input.s

@@ -245,8 +245,8 @@ PROCESS_INPUT_ITEM:
 ; code had ldx/ldy/bne here, which was only
 ; correct for a non-ZP INPUTBUFFER. Commodore
 ; fixed it in CBMBASIC V1 by swapping the
-; ldx and the ldy. It was broken on OSI and
+; ldx and the ldy. It was broken on KIM
-; KIM, and okay on APPLE and CBM2, because
+; and okay on APPLE and CBM2, because
 ; these used a non-ZP INPUTBUFFER.
 ; Microsoft fixed this somewhere after KIM
 ; and before MICROTAN, by using beq instead

microtan_extra.s

@@ -129,7 +129,7 @@ LE2E4:
         sta     $BFC2
         sta     $15
         sta     $16
-        jmp     COLD_START2
+        jmp     COLD_START
 LE2FD:
         pha
         txa

osi_iscntc.s

@@ -9,4 +9,4 @@ ISCNTC:
         bcc     RET2
         jsr     GETLN
         cmp     #$03
-;!!! runs into "STOP"
+;!!! *used*to* run into "STOP"