From 5839acb568b8aba50672529843db87da8e7edaf5 Mon Sep 17 00:00:00 2001 From: mgcaret Date: Thu, 5 Dec 2019 11:05:56 -0800 Subject: [PATCH] Neon816: Credit where due --- platforms/Neon816/platform-lib.s | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/platforms/Neon816/platform-lib.s b/platforms/Neon816/platform-lib.s index 9614307..f91b3fc 100644 --- a/platforms/Neon816/platform-lib.s +++ b/platforms/Neon816/platform-lib.s @@ -35,6 +35,7 @@ table: .addr _sf_pre_init .proc _sf_pre_init ; 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 .a8 lda #$8D @@ -45,6 +46,7 @@ table: .addr _sf_pre_init sta f:SERctrlC rep #SHORT_A .a16 + ; EOC plx jmp _sf_success .endproc @@ -58,6 +60,7 @@ table: .addr _sf_pre_init plx ; get forth SP jsr _popay ; grab the top item phx ; and save new SP + ; The code from here to the EOC commment was adapted from code written by Lenore Byron sep #SHORT_A .a8 tya @@ -67,12 +70,14 @@ table: .addr _sf_pre_init bne :- rep #SHORT_A .a16 + ; EOC plx jmp _sf_success .endproc .proc _sf_keyq ldy #$0000 ; anticipate false + ; The code from here to the EOC commment was adapted from code written by Lenore Byron sep #SHORT_A .a8 lda f:SERstat ; b0=1 if data ready @@ -81,6 +86,7 @@ table: .addr _sf_pre_init iny : rep #SHORT_A .a16 + ; EOC tya plx jsr _pushay @@ -88,6 +94,7 @@ table: .addr _sf_pre_init .endproc .proc _sf_key + ; The code from here to the EOC commment was adapted from code written by Lenore Byron sep #SHORT_A .a8 : lda f:SERstat @@ -96,6 +103,7 @@ table: .addr _sf_pre_init lda f:SERio rep #SHORT_A .a16 + ; EOC and #$00FF tay lda #$0000