mirror of
https://github.com/mist64/msbasic.git
synced 2024-12-06 23:51:30 +00:00
cleanup
This commit is contained in:
parent
a58694fb68
commit
82cd980b79
10
init.s
10
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
|
||||
ldy #>COLD_START2
|
||||
lda #<COLD_START
|
||||
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
|
||||
|
4
input.s
4
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
|
||||
|
@ -129,7 +129,7 @@ LE2E4:
|
||||
sta $BFC2
|
||||
sta $15
|
||||
sta $16
|
||||
jmp COLD_START2
|
||||
jmp COLD_START
|
||||
LE2FD:
|
||||
pha
|
||||
txa
|
||||
|
@ -9,4 +9,4 @@ ISCNTC:
|
||||
bcc RET2
|
||||
jsr GETLN
|
||||
cmp #$03
|
||||
;!!! runs into "STOP"
|
||||
;!!! *used*to* run into "STOP"
|
Loading…
Reference in New Issue
Block a user