mirror of
https://github.com/mist64/msbasic.git
synced 2024-09-28 12:54:38 +00:00
...
This commit is contained in:
parent
560815ec48
commit
25c9858c47
@ -5,3 +5,4 @@ AppleSoft I 1977 1.1 N Y Apple CONFIG_11
|
|||||||
KIM BASIC 1977 1.1 N Y - CONFIG_11A
|
KIM BASIC 1977 1.1 N Y - CONFIG_11A
|
||||||
Commodore BASIC 2 1979 Y Y CBM CONFIG_2
|
Commodore BASIC 2 1979 Y Y CBM CONFIG_2
|
||||||
KBD BASIC 1980 Y N KBD
|
KBD BASIC 1980 Y N KBD
|
||||||
|
MicroTAN 1980 Y Y -
|
@ -3,6 +3,7 @@ CONFIG_SMALL := 1
|
|||||||
CONFIG_2 := 1
|
CONFIG_2 := 1
|
||||||
CBM2_KBD := 1
|
CBM2_KBD := 1
|
||||||
KIM_KBD := 1
|
KIM_KBD := 1
|
||||||
|
KBD_MICROTAN := 1
|
||||||
CONFIG_11 := 1
|
CONFIG_11 := 1
|
||||||
CONFIG_11A := 1
|
CONFIG_11A := 1
|
||||||
CONFIG_SAFE_NAMENOTFOUND := 1
|
CONFIG_SAFE_NAMENOTFOUND := 1
|
||||||
|
@ -6,6 +6,7 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
|
|||||||
KIM_APPLE := 1
|
KIM_APPLE := 1
|
||||||
CONFIG_NULL := 1
|
CONFIG_NULL := 1
|
||||||
CONFIG_PRINT_CR := 1 ; print CR when line end reached
|
CONFIG_PRINT_CR := 1 ; print CR when line end reached
|
||||||
|
KIM_MICROTAN := 1
|
||||||
|
|
||||||
CRLF_1 := $0D
|
CRLF_1 := $0D
|
||||||
CRLF_2 := $0A
|
CRLF_2 := $0A
|
||||||
|
@ -5,6 +5,8 @@ CONFIG_SAFE_NAMENOTFOUND := 1
|
|||||||
CBM2_KIM_APPLE := 1 ; OUTDO difference
|
CBM2_KIM_APPLE := 1 ; OUTDO difference
|
||||||
KIM_APPLE := 1
|
KIM_APPLE := 1
|
||||||
CBM2_MICROTAN := 1
|
CBM2_MICROTAN := 1
|
||||||
|
KBD_MICROTAN := 1
|
||||||
|
KIM_MICROTAN := 1
|
||||||
|
|
||||||
CONFIG_2 := 1
|
CONFIG_2 := 1
|
||||||
|
|
||||||
@ -52,11 +54,16 @@ MONCOUT := $1EA0
|
|||||||
|
|
||||||
STACK_TOP := $FE
|
STACK_TOP := $FE
|
||||||
SPACE_FOR_GOSUB := $3E
|
SPACE_FOR_GOSUB := $3E
|
||||||
NULL_MAX := $F2 ; probably different in original version; the image I have seems to be modified; see PDF
|
NULL_MAX := $F0 ; probably different in original version; the image I have seems to be modified; see PDF
|
||||||
|
|
||||||
|
|
||||||
RAMSTART2 := $AAAA
|
RAMSTART2 := $AAAA
|
||||||
USR := $AAAA
|
USR := $AAAA
|
||||||
SAVE := $AAAA
|
SAVE := $AAAA
|
||||||
LOAD := $AAAA
|
LOAD := $AAAA
|
||||||
LE21C := $AAAA
|
LE21C := $AAAA
|
||||||
|
LC3F0 := $AAAA
|
||||||
|
LFE73 := $AAAA
|
||||||
|
LFE75 := $AAAA
|
||||||
|
LFDFA := $AAAA
|
||||||
|
LE219 := $AAAA
|
||||||
|
24
flow.s
24
flow.s
@ -82,13 +82,13 @@ NEWSTT:
|
|||||||
jsr ISCNTC
|
jsr ISCNTC
|
||||||
lda TXTPTR
|
lda TXTPTR
|
||||||
ldy TXTPTR+1
|
ldy TXTPTR+1
|
||||||
.ifdef CONFIG_2
|
.ifdef CBM2_KBD
|
||||||
cpy #>INPUTBUFFER
|
cpy #>INPUTBUFFER
|
||||||
.endif
|
.endif
|
||||||
.ifdef CBM2
|
.ifdef CBM2
|
||||||
nop
|
nop
|
||||||
.endif
|
.endif
|
||||||
.ifdef CONFIG_2
|
.ifdef CBM2_KBD
|
||||||
beq LC6D4
|
beq LC6D4
|
||||||
.else
|
.else
|
||||||
beq L2683
|
beq L2683
|
||||||
@ -179,7 +179,7 @@ SYNERR1:
|
|||||||
.endif
|
.endif
|
||||||
.ifdef CONFIG_2
|
.ifdef CONFIG_2
|
||||||
LC721:
|
LC721:
|
||||||
.ifdef KBD
|
.ifdef KBD_MICROTAN
|
||||||
cmp #$45
|
cmp #$45
|
||||||
.else
|
.else
|
||||||
cmp #$4B
|
cmp #$4B
|
||||||
@ -206,11 +206,11 @@ SETDA:
|
|||||||
sty DATPTR+1
|
sty DATPTR+1
|
||||||
RET2:
|
RET2:
|
||||||
rts
|
rts
|
||||||
.ifndef CONFIG_CBM_ALL
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; SEE IF CONTROL-C TYPED
|
; SEE IF CONTROL-C TYPED
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
|
.ifndef CONFIG_CBM_ALL
|
||||||
ISCNTC:
|
ISCNTC:
|
||||||
.endif
|
.endif
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
@ -251,6 +251,17 @@ L0ECC:
|
|||||||
clc
|
clc
|
||||||
cmp #$03
|
cmp #$03
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef MICROTAN
|
||||||
|
lda $01
|
||||||
|
cmp #$03
|
||||||
|
beq LC6EF
|
||||||
|
lda #$01
|
||||||
|
rts
|
||||||
|
LC6EF:
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
cmp #$03
|
||||||
|
.endif
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; "STOP" STATEMENT
|
; "STOP" STATEMENT
|
||||||
@ -267,7 +278,7 @@ END2:
|
|||||||
bne RET1
|
bne RET1
|
||||||
lda TXTPTR
|
lda TXTPTR
|
||||||
ldy TXTPTR+1
|
ldy TXTPTR+1
|
||||||
.ifdef CONFIG_2
|
.ifdef CBM2_KBD
|
||||||
ldx CURLIN+1
|
ldx CURLIN+1
|
||||||
inx
|
inx
|
||||||
.endif
|
.endif
|
||||||
@ -363,6 +374,9 @@ CLEAR:
|
|||||||
.ifdef KIM
|
.ifdef KIM
|
||||||
.include "kim_loadsave.s"
|
.include "kim_loadsave.s"
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef MICROTAN
|
||||||
|
.include "microtan_loadsave.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; "RUN" COMMAND
|
; "RUN" COMMAND
|
||||||
|
2
input.s
2
input.s
@ -186,7 +186,7 @@ GETC:
|
|||||||
READ:
|
READ:
|
||||||
ldx DATPTR
|
ldx DATPTR
|
||||||
ldy DATPTR+1
|
ldy DATPTR+1
|
||||||
.ifdef CONFIG_2
|
.ifdef CBM2_KBD
|
||||||
lda #$98 ; AppleSoft, too
|
lda #$98 ; AppleSoft, too
|
||||||
.byte $2C
|
.byte $2C
|
||||||
L2ABE:
|
L2ABE:
|
||||||
|
74
microtan_loadsave.s
Normal file
74
microtan_loadsave.s
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
.segment "CODE"
|
||||||
|
|
||||||
|
ldy #$00
|
||||||
|
beq LC74D
|
||||||
|
LC74B:
|
||||||
|
ldy #$01
|
||||||
|
LC74D:
|
||||||
|
ldx #$4C
|
||||||
|
LC74F:
|
||||||
|
lda $13,x
|
||||||
|
pha
|
||||||
|
dex
|
||||||
|
bpl LC74F
|
||||||
|
ldx #$03
|
||||||
|
LC757:
|
||||||
|
lda $9A,x
|
||||||
|
sta $1C,x
|
||||||
|
dex
|
||||||
|
bpl LC757
|
||||||
|
jmp LE219
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
LC764:
|
||||||
|
tya
|
||||||
|
pha
|
||||||
|
ldy $03
|
||||||
|
lda #$FF
|
||||||
|
sta ($0A),y
|
||||||
|
pla
|
||||||
|
tay
|
||||||
|
jsr LFDFA
|
||||||
|
lda $01
|
||||||
|
jsr LC7A5
|
||||||
|
rts
|
||||||
|
.byte "DED"
|
||||||
|
.byte $0D,$0A
|
||||||
|
.byte "OK"
|
||||||
|
.byte $0D,$0A,$00
|
||||||
|
.byte "SAVED"
|
||||||
|
.byte $0D,$0A,$00
|
||||||
|
LC789:
|
||||||
|
jsr LC74B
|
||||||
|
ldx #$FF
|
||||||
|
tsx
|
||||||
|
lda #$4F
|
||||||
|
jsr LFE75
|
||||||
|
lda #$4B
|
||||||
|
jsr LFE75
|
||||||
|
jsr LFE73
|
||||||
|
lda $9C
|
||||||
|
tax
|
||||||
|
ldy $9D
|
||||||
|
jmp LC3F0
|
||||||
|
nop
|
||||||
|
LC7A5:
|
||||||
|
pha
|
||||||
|
cmp #$0A
|
||||||
|
beq LC7AD
|
||||||
|
jsr LFE75
|
||||||
|
LC7AD:
|
||||||
|
tya
|
||||||
|
pha
|
||||||
|
ldy $03
|
||||||
|
lda #$20
|
||||||
|
sta ($0A),y
|
||||||
|
pla
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
inc $8A17
|
||||||
|
stx $9C
|
||||||
|
sty $9D
|
||||||
|
jmp LC3F0
|
11
print.s
11
print.s
@ -86,6 +86,9 @@ L29B9:
|
|||||||
sty INPUTBUFFER,x
|
sty INPUTBUFFER,x
|
||||||
ldx #LINNUM+1
|
ldx #LINNUM+1
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef MICROTAN
|
||||||
|
bne LE882
|
||||||
|
.endif
|
||||||
.endif
|
.endif
|
||||||
.ifdef CONFIG_FILE
|
.ifdef CONFIG_FILE
|
||||||
lda Z03
|
lda Z03
|
||||||
@ -289,7 +292,7 @@ OUTDO:
|
|||||||
bit Z14
|
bit Z14
|
||||||
bmi L2A56
|
bmi L2A56
|
||||||
.endif
|
.endif
|
||||||
.ifndef CONFIG_2
|
.ifndef CBM2_KBD
|
||||||
pha
|
pha
|
||||||
.endif
|
.endif
|
||||||
.ifdef CBM1
|
.ifdef CBM1
|
||||||
@ -335,10 +338,10 @@ L2A4C:
|
|||||||
inc POSX
|
inc POSX
|
||||||
.endif
|
.endif
|
||||||
L2A4E:
|
L2A4E:
|
||||||
.ifndef CONFIG_2
|
.ifndef CBM2_KBD
|
||||||
pla
|
pla
|
||||||
.endif
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM_MICROTAN
|
||||||
sty DIMFLG
|
sty DIMFLG
|
||||||
.endif
|
.endif
|
||||||
.ifdef CONFIG_IO_MSB
|
.ifdef CONFIG_IO_MSB
|
||||||
@ -348,7 +351,7 @@ L2A4E:
|
|||||||
.ifdef CONFIG_IO_MSB
|
.ifdef CONFIG_IO_MSB
|
||||||
and #$7F
|
and #$7F
|
||||||
.endif
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM_MICROTAN
|
||||||
ldy DIMFLG
|
ldy DIMFLG
|
||||||
.endif
|
.endif
|
||||||
.ifdef OSI
|
.ifdef OSI
|
||||||
|
Loading…
Reference in New Issue
Block a user