Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-12-21 17:30:09 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-19 21:01:27 +00:00
parent a58694fb68
commit 82cd980b79
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
init.s
View File

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

4
input.s
View File

@ -245,8 +245,8 @@ PROCESS_INPUT_ITEM:
; code had ldx/ldy/bne here, which was only ; code had ldx/ldy/bne here, which was only
; correct for a non-ZP INPUTBUFFER. Commodore ; correct for a non-ZP INPUTBUFFER. Commodore
; fixed it in CBMBASIC V1 by swapping the ; 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. ; these used a non-ZP INPUTBUFFER.
; Microsoft fixed this somewhere after KIM ; Microsoft fixed this somewhere after KIM
; and before MICROTAN, by using beq instead ; and before MICROTAN, by using beq instead

2
microtan_extra.s
View File

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

2
osi_iscntc.s
View File

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