Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-01-02 22:33:24 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-13 03:25:57 +00:00
parent 4574fd1983
commit 91e3811751
5 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
chrget.s
View File

@ -12,6 +12,7 @@ GENERIC_TXTPTR = GENERIC_CHRGOT + 1
.endif .endif
cmp #$3A cmp #$3A
bcs L4058 bcs L4058
GENERIC_CHRGOT2:
cmp #$20 cmp #$20
beq GENERIC_CHRGET beq GENERIC_CHRGET
sec sec

2
defines_kbd.s
View File

@ -39,8 +39,6 @@ Z14 := $000F;64 ; Ctrl+O flag
JMPADRS := $0093;A1 JMPADRS := $0093;A1
LOWTRX := $0094;AA ; $AB also EXPSGN? LOWTRX := $0094;AA ; $AB also EXPSGN?
RNDSEED := $00D4
L0207 := $0207 L0207 := $0207
L020A := $020A L020A := $020A
;L2A13 := $2A0A ;L2A13 := $2A0A

2
defines_osi.s
View File

@ -36,8 +36,6 @@ INPUTFLG := $0062
CPRMASK := $0063 CPRMASK := $0063
Z14 := $0064 ; Ctrl+O flag Z14 := $0064 ; Ctrl+O flag
RNDSEED := $00D4
L0207 := $0207 L0207 := $0207
L020A := $020A L020A := $020A
MONRDKEY := $FFEB MONRDKEY := $FFEB

6
misc1.s
View File

@ -94,12 +94,12 @@ L2923:
LETSTRING: LETSTRING:
.ifndef CONFIG_SMALL .ifndef CONFIG_SMALL
pla pla
.endif
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
; INSTALL STRING, DESCRIPTOR ADDRESS IS AT FAC+3,4 ; INSTALL STRING, DESCRIPTOR ADDRESS IS AT FAC+3,4
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
PUTSTR: PUTSTR:
.endif
.ifdef CONFIG_CBM_ALL .ifdef CONFIG_CBM_ALL
ldy FORPNT+1 ldy FORPNT+1
.ifdef CBM1 .ifdef CBM1
@ -110,7 +110,7 @@ PUTSTR:
bne LC92B bne LC92B
jsr FREFAC jsr FREFAC
cmp #$06 cmp #$06
.ifdef CBM2_KBD .ifdef CBM2
bne IQERR1 bne IQERR1
.else .else
beq LC8E2 beq LC8E2
@ -155,7 +155,7 @@ LC912:
rts rts
LC91C: LC91C:
lda (INDEX),y lda (INDEX),y
jsr L00CF jsr CHRGOT2
bcc LC926 bcc LC926
IQERR1: IQERR1:
jmp IQERR jmp IQERR

8
zeropage.s
View File

@ -110,13 +110,9 @@ FACEXTENSION = STRNG1+1
STRNG2: STRNG2:
.res 2 .res 2
CHRGET: CHRGET:
.res 7
.res 6
CHRGOT = GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET
TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET) TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
.ifndef CONFIG_SMALL CHRGOT = <(GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET)
L00CF: CHRGOT2 = <(GENERIC_CHRGOT2-GENERIC_CHRGET + CHRGET)
RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET) RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
.endif