Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-01-14 13:30:10 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-19 06:00:50 +00:00
parent 065f8cace9
commit 8de381086a
6 changed files with 67 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
defines_osi.s
View File

@ -27,8 +27,13 @@ WIDTH2 := 56
RAMSTART2 := $0300 RAMSTART2 := $0300
; magic memory locations ; magic memory locations
L0207 := $0207 L0200 := $0200
L020A := $020A LD000 := $D000
LD300 := $D300
LD700 := $D700
LFB00 := $FB00
LFC00 := $FC00
LFFE0 := $FFE0
; monitor functions ; monitor functions
MONRDKEY := $FFEB MONRDKEY := $FFEB
@ -36,4 +41,3 @@ MONCOUT := $FFEE
MONISCNTC := $FFF1 MONISCNTC := $FFF1
LOAD := $FFF4 LOAD := $FFF4
SAVE := $FFF7 SAVE := $FFF7

4
eval.s
View File

@ -455,8 +455,8 @@ FRM_VARIABLE_CALL = *-1
LCE3B: LCE3B:
.else .else
ldx #$00 ldx #$00
stx $6D stx STRNG1+1
bit $62 bit FAC+4
bpl LCE53 bpl LCE53
cmp #$54 ; T cmp #$54 ; T
bne LCE53 bne LCE53

6
kbd_extra.s
View File

@ -174,7 +174,7 @@ LBF83:
txa txa
sbc FRETOP sbc FRETOP
sta $0521 sta $0521
lda #$3F lda #>CONST_MEMSIZ
sbc FRETOP+1 sbc FRETOP+1
sta $0522 sta $0522
lda FRETOP lda FRETOP
@ -236,9 +236,9 @@ LFF34:
sta HIGHTR sta HIGHTR
lda FRETOP+1 lda FRETOP+1
sta HIGHTR+1 sta HIGHTR+1
lda #$FF lda #<CONST_MEMSIZ
sta HIGHDS sta HIGHDS
lda #$3F lda #>CONST_MEMSIZ
sta HIGHDS+1 sta HIGHDS+1
lda $0523 lda $0523
sta FRETOP sta FRETOP

100
osi_extra.s
View File

@ -2,58 +2,56 @@
.byte $00,$00 .byte $00,$00
LBEE4: LBEE4:
lda LBF05 lda LBF03+2
lsr a lsr a
bcc LBEE4 bcc LBEE4
lda $FB03 lda LFB00+3
sta $FB07 sta LFB00+7
and #$7F and #$7F
rts rts
pha pha
LBEF4: LBEF4:
lda $FB05 lda LFB00+5
bpl LBEF4 bpl LBEF4
pla pla
sta $FB04 sta LFB00+4
rts rts
lda $FB06 lda LFB00+6
lda #$FF lda #$FF
.byte $8D LBF03:
.byte $05 sta LFB00+5
LBF05:
.byte $FB
rts rts
LBF07: LBF07:
lda $FC00 lda LFC00
lsr a lsr a
bcc LBF07 bcc LBF07
lda $FC01 lda LFC00+1
beq LBF07 beq LBF07
and #$7F and #$7F
rts rts
pha pha
LBF16: LBF16:
lda $FC00 lda LFC00
lsr a lsr a
lsr a lsr a
bcc LBF16 bcc LBF16
pla pla
sta $FC01 sta LFC00+1
rts rts
lda #$03 lda #$03
sta $FC00 sta LFC00
lda #$B1 lda #$B1
sta $FC00 sta LFC00
rts rts
sta $0202 sta L0200+2
pha pha
txa txa
pha pha
tya tya
pha pha
lda $0202 lda L0200+2
beq LBF6D beq LBF6D
ldy $0206 ldy L0200+6
beq LBF47 beq LBF47
LBF3F: LBF3F:
ldx #$40 ldx #$40
@ -70,13 +68,13 @@ LBF47:
jsr LBFD5 jsr LBFD5
jmp LBF6D jmp LBF6D
LBF55: LBF55:
sta $0201 sta L0200+1
jsr LBFC2 jsr LBFC2
inc $0200 inc L0200+0
lda $FFE1 lda LFFE0+1
clc clc
adc $FFE0 adc LFFE0+0
cmp $0200 cmp L0200+0
bmi LBF73 bmi LBF73
LBF6A: LBF6A:
jsr LBFDE jsr LBFDE
@ -91,70 +89,70 @@ LBF73:
jsr LBFD8 jsr LBFD8
LBF76: LBF76:
jsr LBFC2 jsr LBFC2
lda $FFE0 lda LFFE0
and #$E0 and #$E0
sta $0202 sta L0200+2
ldx #$07 ldx #$07
LBF83: LBF83:
lda LBFF3,x lda LBFF3,x
sta L0207,x sta L0200+7,x
dex dex
bpl LBF83 bpl LBF83
ldx LBFFB,y ldx LBFFB,y
lda #$20 lda #$20
ldy $FFE1 ldy LFFE0+1
cpy #$20 cpy #$20
bmi LBF99 bmi LBF99
asl a asl a
LBF99: LBF99:
sta $0208 sta L0200+8
ldy #$00 ldy #$00
LBF9E: LBF9E:
jsr L0207 jsr L0200+7
bne LBF9E bne LBF9E
inc $0209 inc L0200+9
inc $020C inc L0200+12
cpx $0209 cpx L0200+9
bne LBF9E bne LBF9E
LBFAE: LBFAE:
jsr L0207 jsr L0200+7
cpy $0202 cpy L0200+2
bne LBFAE bne LBFAE
lda #$20 lda #$20
LBFB8: LBFB8:
jsr L020A jsr L0200+10
dec $0208 dec L0200+8
bne LBFB8 bne LBFB8
beq LBF6A beq LBF6A
LBFC2: LBFC2:
ldx $0200 ldx L0200+0
lda $0201 lda L0200+1
LBFC8: LBFC8:
ldy $FFE2 ldy LFFE0+2
bne LBFD1 bne LBFD1
sta $D300,x sta LD300,x
rts rts
LBFD1: LBFD1:
sta $D700,x sta LD700,x
rts rts
LBFD5: LBFD5:
jsr LBFC2 jsr LBFC2
LBFD8: LBFD8:
lda $FFE0 lda LFFE0
sta $0200 sta L0200+0
LBFDE: LBFDE:
ldx $0200 ldx L0200+0
lda $D300,x lda LD300,x
ldy $FFE2 ldy LFFE0+2
beq LBFEC beq LBFEC
lda $D700,x lda LD700,x
LBFEC: LBFEC:
sta $0201 sta L0200+1
lda #$5F lda #$5F
bne LBFC8 bne LBFC8
LBFF3: LBFF3:
lda $D000,y lda LD000,y
sta $D000,y sta LD000,y
iny iny
rts rts
LBFFB: LBFFB:

4
print.s
View File

@ -101,7 +101,7 @@ CRDO:
.if .def(CONFIG_PRINTNULLS) && .def(CONFIG_FILE) .if .def(CONFIG_PRINTNULLS) && .def(CONFIG_FILE)
lda CURDVC lda CURDVC
bne LC9D8 bne LC9D8
sta $05 sta POSX
LC9D8: LC9D8:
.endif .endif
lda #CRLF_1 lda #CRLF_1
@ -116,7 +116,7 @@ CRDO2:
PRINTNULLS: PRINTNULLS:
.ifdef KBD .ifdef KBD
lda #$00 lda #$00
sta $10 sta POSX
eor #$FF eor #$FF
.else .else
.if .def(CONFIG_NULL) || .def(CONFIG_PRINTNULLS) .if .def(CONFIG_NULL) || .def(CONFIG_PRINTNULLS)

8
rnd.s
View File

@ -10,8 +10,8 @@ RND:
jsr SIGN jsr SIGN
beq LFC26 beq LFC26
bmi LFC10 bmi LFC10
lda $87 lda RNDSEED
ldy $88 ldy RNDSEED+1
LFBFA: LFBFA:
sta FAC+2 sta FAC+2
sty FAC+1 sty FAC+1
@ -33,10 +33,10 @@ LFC10:
lda FAC+2 lda FAC+2
dex dex
bne LFBFE bne LFBFE
sta $87 sta RNDSEED
sta FAC+3 sta FAC+3
lda FAC+1 lda FAC+1
sta $88 sta RNDSEED+1
lda #$80 lda #$80
sta FAC sta FAC
stx FACSIGN stx FACSIGN