6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-01-21 00:31:55 +00:00
Code Issues Projects Releases Wiki Activity

Neon816: Credit where due

Browse Source
This commit is contained in:
mgcaret 2019-12-05 11:05:56 -08:00
parent cd55c04640
commit 5839acb568
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
platforms/Neon816/platform-lib.s
View File

@ -35,6 +35,7 @@ table: .addr _sf_pre_init
.proc _sf_pre_init .proc _sf_pre_init
; NeonFORTH does this, presumably to initialize the serial port ; NeonFORTH does this, presumably to initialize the serial port
; The code from here to the EOC commment was adapted from code written by Lenore Byron
sep #SHORT_A sep #SHORT_A
.a8 .a8
lda #$8D lda #$8D
@ -45,6 +46,7 @@ table: .addr _sf_pre_init
sta f:SERctrlC sta f:SERctrlC
rep #SHORT_A rep #SHORT_A
.a16 .a16
; EOC
plx plx
jmp _sf_success jmp _sf_success
.endproc .endproc
@ -58,6 +60,7 @@ table: .addr _sf_pre_init
plx ; get forth SP plx ; get forth SP
jsr _popay ; grab the top item jsr _popay ; grab the top item
phx ; and save new SP phx ; and save new SP
; The code from here to the EOC commment was adapted from code written by Lenore Byron
sep #SHORT_A sep #SHORT_A
.a8 .a8
tya tya
@ -67,12 +70,14 @@ table: .addr _sf_pre_init
bne :- bne :-
rep #SHORT_A rep #SHORT_A
.a16 .a16
; EOC
plx plx
jmp _sf_success jmp _sf_success
.endproc .endproc
.proc _sf_keyq .proc _sf_keyq
ldy #$0000 ; anticipate false ldy #$0000 ; anticipate false
; The code from here to the EOC commment was adapted from code written by Lenore Byron
sep #SHORT_A sep #SHORT_A
.a8 .a8
lda f:SERstat ; b0=1 if data ready lda f:SERstat ; b0=1 if data ready
@ -81,6 +86,7 @@ table: .addr _sf_pre_init
iny iny
: rep #SHORT_A : rep #SHORT_A
.a16 .a16
; EOC
tya tya
plx plx
jsr _pushay jsr _pushay
@ -88,6 +94,7 @@ table: .addr _sf_pre_init
.endproc .endproc
.proc _sf_key .proc _sf_key
; The code from here to the EOC commment was adapted from code written by Lenore Byron
sep #SHORT_A sep #SHORT_A
.a8 .a8
: lda f:SERstat : lda f:SERstat
@ -96,6 +103,7 @@ table: .addr _sf_pre_init
lda f:SERio lda f:SERio
rep #SHORT_A rep #SHORT_A
.a16 .a16
; EOC
and #$00FF and #$00FF
tay tay
lda #$0000 lda #$0000