mirror of
https://github.com/mist64/msbasic.git
synced 2024-06-16 02:29:31 +00:00
cleanup
This commit is contained in:
parent
8de381086a
commit
82c75e263f
|
@ -28,12 +28,6 @@ RAMSTART2 := $0300
|
||||||
|
|
||||||
; magic memory locations
|
; magic memory locations
|
||||||
L0200 := $0200
|
L0200 := $0200
|
||||||
LD000 := $D000
|
|
||||||
LD300 := $D300
|
|
||||||
LD700 := $D700
|
|
||||||
LFB00 := $FB00
|
|
||||||
LFC00 := $FC00
|
|
||||||
LFFE0 := $FFE0
|
|
||||||
|
|
||||||
; monitor functions
|
; monitor functions
|
||||||
MONRDKEY := $FFEB
|
MONRDKEY := $FFEB
|
||||||
|
|
21
extra.s
Normal file
21
extra.s
Normal file
|
@ -0,0 +1,21 @@
|
||||||
|
.segment "EXTRA"
|
||||||
|
|
||||||
|
.ifdef KIM
|
||||||
|
.include "kim_extra.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef CONFIG_CBM1_PATCHES
|
||||||
|
.include "cbm1_patches.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef KBD
|
||||||
|
.include "kbd_extra.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef APPLE
|
||||||
|
.include "apple_extra.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef MICROTAN
|
||||||
|
.include "microtan_extra.s"
|
||||||
|
.endif
|
27
init.s
27
init.s
|
@ -436,30 +436,3 @@ QT_BASIC:
|
||||||
.byte $0D,$0A,$00
|
.byte $0D,$0A,$00
|
||||||
.endif
|
.endif
|
||||||
.endif /* KBD */
|
.endif /* KBD */
|
||||||
|
|
||||||
.segment "EXTRA"
|
|
||||||
|
|
||||||
.ifdef OSI
|
|
||||||
.include "osi_extra.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef KIM
|
|
||||||
.include "kim_extra.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef CONFIG_CBM1_PATCHES
|
|
||||||
.include "cbm1_patches.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
|
|
||||||
.ifdef KBD
|
|
||||||
.include "kbd_extra.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef APPLE
|
|
||||||
.include "apple_extra.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef MICROTAN
|
|
||||||
.include "microtan_extra.s"
|
|
||||||
.endif
|
|
|
@ -33,3 +33,4 @@
|
||||||
.include "rnd.s"
|
.include "rnd.s"
|
||||||
.include "trig.s"
|
.include "trig.s"
|
||||||
.include "init.s"
|
.include "init.s"
|
||||||
|
.include "extra.s"
|
||||||
|
|
BIN
orig/osi.bin
BIN
orig/osi.bin
Binary file not shown.
163
osi_extra.s
163
osi_extra.s
|
@ -1,163 +0,0 @@
|
||||||
.segment "EXTRA"
|
|
||||||
|
|
||||||
.byte $00,$00
|
|
||||||
LBEE4:
|
|
||||||
lda LBF03+2
|
|
||||||
lsr a
|
|
||||||
bcc LBEE4
|
|
||||||
lda LFB00+3
|
|
||||||
sta LFB00+7
|
|
||||||
and #$7F
|
|
||||||
rts
|
|
||||||
pha
|
|
||||||
LBEF4:
|
|
||||||
lda LFB00+5
|
|
||||||
bpl LBEF4
|
|
||||||
pla
|
|
||||||
sta LFB00+4
|
|
||||||
rts
|
|
||||||
lda LFB00+6
|
|
||||||
lda #$FF
|
|
||||||
LBF03:
|
|
||||||
sta LFB00+5
|
|
||||||
rts
|
|
||||||
LBF07:
|
|
||||||
lda LFC00
|
|
||||||
lsr a
|
|
||||||
bcc LBF07
|
|
||||||
lda LFC00+1
|
|
||||||
beq LBF07
|
|
||||||
and #$7F
|
|
||||||
rts
|
|
||||||
pha
|
|
||||||
LBF16:
|
|
||||||
lda LFC00
|
|
||||||
lsr a
|
|
||||||
lsr a
|
|
||||||
bcc LBF16
|
|
||||||
pla
|
|
||||||
sta LFC00+1
|
|
||||||
rts
|
|
||||||
lda #$03
|
|
||||||
sta LFC00
|
|
||||||
lda #$B1
|
|
||||||
sta LFC00
|
|
||||||
rts
|
|
||||||
sta L0200+2
|
|
||||||
pha
|
|
||||||
txa
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
pha
|
|
||||||
lda L0200+2
|
|
||||||
beq LBF6D
|
|
||||||
ldy L0200+6
|
|
||||||
beq LBF47
|
|
||||||
LBF3F:
|
|
||||||
ldx #$40
|
|
||||||
LBF41:
|
|
||||||
dex
|
|
||||||
bne LBF41
|
|
||||||
dey
|
|
||||||
bne LBF3F
|
|
||||||
LBF47:
|
|
||||||
cmp #$0A
|
|
||||||
beq LBF76
|
|
||||||
cmp #$0D
|
|
||||||
bne LBF55
|
|
||||||
jsr LBFD5
|
|
||||||
jmp LBF6D
|
|
||||||
LBF55:
|
|
||||||
sta L0200+1
|
|
||||||
jsr LBFC2
|
|
||||||
inc L0200+0
|
|
||||||
lda LFFE0+1
|
|
||||||
clc
|
|
||||||
adc LFFE0+0
|
|
||||||
cmp L0200+0
|
|
||||||
bmi LBF73
|
|
||||||
LBF6A:
|
|
||||||
jsr LBFDE
|
|
||||||
LBF6D:
|
|
||||||
pla
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
tax
|
|
||||||
pla
|
|
||||||
rts
|
|
||||||
LBF73:
|
|
||||||
jsr LBFD8
|
|
||||||
LBF76:
|
|
||||||
jsr LBFC2
|
|
||||||
lda LFFE0
|
|
||||||
and #$E0
|
|
||||||
sta L0200+2
|
|
||||||
ldx #$07
|
|
||||||
LBF83:
|
|
||||||
lda LBFF3,x
|
|
||||||
sta L0200+7,x
|
|
||||||
dex
|
|
||||||
bpl LBF83
|
|
||||||
ldx LBFFB,y
|
|
||||||
lda #$20
|
|
||||||
ldy LFFE0+1
|
|
||||||
cpy #$20
|
|
||||||
bmi LBF99
|
|
||||||
asl a
|
|
||||||
LBF99:
|
|
||||||
sta L0200+8
|
|
||||||
ldy #$00
|
|
||||||
LBF9E:
|
|
||||||
jsr L0200+7
|
|
||||||
bne LBF9E
|
|
||||||
inc L0200+9
|
|
||||||
inc L0200+12
|
|
||||||
cpx L0200+9
|
|
||||||
bne LBF9E
|
|
||||||
LBFAE:
|
|
||||||
jsr L0200+7
|
|
||||||
cpy L0200+2
|
|
||||||
bne LBFAE
|
|
||||||
lda #$20
|
|
||||||
LBFB8:
|
|
||||||
jsr L0200+10
|
|
||||||
dec L0200+8
|
|
||||||
bne LBFB8
|
|
||||||
beq LBF6A
|
|
||||||
LBFC2:
|
|
||||||
ldx L0200+0
|
|
||||||
lda L0200+1
|
|
||||||
LBFC8:
|
|
||||||
ldy LFFE0+2
|
|
||||||
bne LBFD1
|
|
||||||
sta LD300,x
|
|
||||||
rts
|
|
||||||
LBFD1:
|
|
||||||
sta LD700,x
|
|
||||||
rts
|
|
||||||
LBFD5:
|
|
||||||
jsr LBFC2
|
|
||||||
LBFD8:
|
|
||||||
lda LFFE0
|
|
||||||
sta L0200+0
|
|
||||||
LBFDE:
|
|
||||||
ldx L0200+0
|
|
||||||
lda LD300,x
|
|
||||||
ldy LFFE0+2
|
|
||||||
beq LBFEC
|
|
||||||
lda LD700,x
|
|
||||||
LBFEC:
|
|
||||||
sta L0200+1
|
|
||||||
lda #$5F
|
|
||||||
bne LBFC8
|
|
||||||
LBFF3:
|
|
||||||
lda LD000,y
|
|
||||||
sta LD000,y
|
|
||||||
iny
|
|
||||||
rts
|
|
||||||
LBFFB:
|
|
||||||
.byte $D3
|
|
||||||
.byte $D7
|
|
||||||
brk
|
|
||||||
brk
|
|
||||||
brk
|
|
Loading…
Reference in New Issue
Block a user