diff --git a/init.s b/init.s index 4dd5899..13ddf9c 100644 --- a/init.s +++ b/init.s @@ -7,7 +7,7 @@ FNDLIN2: .endif ; ---------------------------------------------------------------------------- -COLD_START: +PR_WRITTEN_BY: .ifdef KBD lda #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 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 diff --git a/input.s b/input.s index 3686792..4c3b709 100644 --- a/input.s +++ b/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 -; KIM, and okay on APPLE and CBM2, because +; ldx and the ldy. It was broken on KIM +; 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 diff --git a/microtan_extra.s b/microtan_extra.s index d70742e..039efff 100644 --- a/microtan_extra.s +++ b/microtan_extra.s @@ -129,7 +129,7 @@ LE2E4: sta $BFC2 sta $15 sta $16 - jmp COLD_START2 + jmp COLD_START LE2FD: pha txa diff --git a/osi_iscntc.s b/osi_iscntc.s index 29df3e2..c84a99d 100644 --- a/osi_iscntc.s +++ b/osi_iscntc.s @@ -9,4 +9,4 @@ ISCNTC: bcc RET2 jsr GETLN cmp #$03 -;!!! runs into "STOP" \ No newline at end of file +;!!! *used*to* run into "STOP" \ No newline at end of file