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

separated out chrget and init

Browse Source
This commit is contained in:
Michael Steil 2008-10-13 00:27:11 +00:00
parent aa1b5377ae
commit c4f4578d97
13 changed files with 1179 additions and 1149 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
applesoft.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

2
cbmbasic1.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

2
cbmbasic2.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

22
chrget.s Normal file
View File

@ -0,0 +1,22 @@
.segment "CHRGET"
RAMSTART1:
GENERIC_CHRGET:
inc TXTPTR
bne GENERIC_CHRGOT
inc TXTPTR+1
GENERIC_CHRGOT:
GENERIC_TXTPTR = GENERIC_CHRGOT + 1
lda $EA60
.ifdef KBD
jsr LF430
.endif
cmp #$3A
bcs L4058
cmp #$20
beq GENERIC_CHRGET
sec
sbc #$30
sec
sbc #$D0
L4058:
rts

4
float.s
View File

@ -1,3 +1,5 @@
.segment "CODE"
TEMP1X = TEMP1+(5-BYTES_FP) TEMP1X = TEMP1+(5-BYTES_FP)
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
@ -1885,5 +1887,5 @@ L3ECB:
ldy #$00 ldy #$00
dec SERLEN dec SERLEN
bne L3EBE bne L3EBE
L3EDA: RTS19:
rts rts

1105
init.s Normal file
View File

File diff suppressed because it is too large Load Diff

2
kb9.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

2
kbdbasic.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

1147
msbasic.s
View File

File diff suppressed because it is too large Load Diff

2
osi.cfg
View File

@ -10,6 +10,8 @@ SEGMENTS {
VECTORS: load = BASROM, type = ro; VECTORS: load = BASROM, type = ro;
KEYWORDS: load = BASROM, type = ro; KEYWORDS: load = BASROM, type = ro;
CODE: load = BASROM, type = ro; CODE: load = BASROM, type = ro;
CHRGET: load = BASROM, type = ro;
INIT: load = BASROM, type = ro;
DUMMY: load = DUMMY; # don't include DUMMY: load = DUMMY; # don't include
} }

33
rnd.s
View File

@ -1,3 +1,9 @@
.segment "CODE"
; ----------------------------------------------------------------------------
; "RND" FUNCTION
; ----------------------------------------------------------------------------
.ifdef KBD .ifdef KBD
RND: RND:
ldx #$10 ldx #$10
@ -43,6 +49,8 @@ GOMOVMF:
bne LFBFA bne LFBFA
.byte $F0 .byte $F0
.else .else
; <<< THESE ARE MISSING ONE BYTE FOR FP VALUES >>>
; (non CONFIG_SMALL)
CONRND1: CONRND1:
.byte $98,$35,$44,$7A .byte $98,$35,$44,$7A
CONRND2: CONRND2:
@ -71,7 +79,7 @@ LDF63:
jsr LOAD_FAC_FROM_YA jsr LOAD_FAC_FROM_YA
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
txa txa
beq L3EDA beq RTS19
.endif .endif
lda #<CONRND1 lda #<CONRND1
ldy #>CONRND1 ldy #>CONRND1
@ -103,3 +111,26 @@ LDF88:
GOMOVMF: GOMOVMF:
jmp STORE_FAC_AT_YX_ROUNDED jmp STORE_FAC_AT_YX_ROUNDED
.endif .endif
; ----------------------------------------------------------------------------
; INITIAL VALUE FOR RANDOM NUMBER, ALSO COPIED
; IN ALONG WITH CHRGET, BUT ERRONEOUSLY:
; <<< THE LAST BYTE IS NOT COPIED >>>
; ----------------------------------------------------------------------------
.segment "CHRGET"
GENERIC_RNDSEED:
.ifndef KBD
; random number seed
.ifdef OSI
.byte $80,$4F,$C7,$52
.endif
.ifdef CONFIG_11
.byte $80,$4F,$C7,$52,$58
.endif
.ifdef CBM1
.byte $80,$4F,$C7,$52,$59
.endif
.endif
GENERIC_CHRGET_END:

2
trig.s
View File

@ -1,3 +1,5 @@
.segment "CODE"
SIN_COS_TAN_ATN: SIN_COS_TAN_ATN:
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
; "COS" FUNCTION ; "COS" FUNCTION

3
zeropage.s
View File

@ -116,6 +116,5 @@ CHRGOT = GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET
TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET) TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
.ifndef CONFIG_SMALL .ifndef CONFIG_SMALL
L00CF: L00CF:
.res 11 RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
RNDSEED:
.endif .endif