From 71b03acd77d1c3d1d5c3943c8e29b3b5ab80b843 Mon Sep 17 00:00:00 2001 From: Johan Kotlinski Date: Mon, 20 May 2019 23:30:12 +0200 Subject: [PATCH] made QUIT reset TIB_PTR --- durexforth.asm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/durexforth.asm b/durexforth.asm index 33aa13191..836b575a2 100755 --- a/durexforth.asm +++ b/durexforth.asm @@ -156,7 +156,7 @@ BL rts TIB_PTR - !word TIB + !word 0 TIB_SIZE !word 0 @@ -1216,6 +1216,9 @@ quit_reset stx $d020 stx $d021 + lda #>TIB + sta TIB_PTR + 1 + lda #$56 ; ram + i/o + kernal sta 1 @@ -1233,6 +1236,7 @@ quit_reset stx STATE stx TIB_SIZE stx TIB_SIZE + 1 + stx TIB_PTR stx TO_IN stx TO_IN + 1 stx SOURCE_ID_LSB