6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-05 03:29:36 +00:00
Code Issues Projects Releases Wiki Activity

On X16, clear IOStatus byte (C64: $0090) via new Kernal call instead

Browse Source 
of writing directly to Kernal variable (which may break between
Kernal revisions)
This commit is contained in:
Philip Zembrod 2024-05-26 22:43:18 +02:00
parent 627522012b
commit 3678e8f90b
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
6502/C64/src/vf-sys-cbm.fth
View File

@ -150,8 +150,10 @@ Label nodevice 0 # ldx 1 # ldy
\ ?device clv12jul87
Label (?dev
IOStatus stx \ because IOStatus isn't cleared by LISTEN or TALK
Label (?dev ( a: dev )
\ Clear IOStatus because it isn't cleared by LISTEN or TALK
(C64 IOStatus stx ( ) (C16 IOStatus stx ( )
(X16 pha 1 # lda ExtApi jsr pla ( )
\ It's unclear in which situation or use case the following
\ workaround for a C16 OS error is needed. The v4th tests pass
\ even with the following line removed.

2
6502/C64/src/vf-sys-x16.fth
View File

@ -7,7 +7,7 @@ include vf-lbls-cbm.fth
0ffd2 >label ConOut
0febd >label KbdbufPeek
0287 >label IOStatus \ aka status
0feab >label ExtApi
028d >label MsgFlg
09f2c >label BrdCol
0376 >label BkgPenCol \ aka color