6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-16 21:30:59 +00:00
Code Issues Projects Releases Wiki Activity

Fix i/o-status? for X16 - i/o status byte is at $0286 instead of $90

Browse Source
This commit is contained in:
Philip Zembrod 2020-11-05 23:03:39 +01:00
parent d1a6435700
commit c33fa907be
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,6 +55,8 @@ end-code
include vf-sys-cbm.fth include vf-sys-cbm.fth
: i/o-status? $90 c@ ;
\ *** Block No. 143, Hexblock 8f \ *** Block No. 143, Hexblock 8f
\ ... continued \ ... continued

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

@ -58,6 +58,8 @@ Code curoff ( --)
include vf-sys-cbm.fth include vf-sys-cbm.fth
: i/o-status? $90 c@ ;
\ *** Block No. 143, Hexblock 8f \ *** Block No. 143, Hexblock 8f
\ ... continued \ ... continued

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

@ -211,8 +211,6 @@ Code bus@ ( -- 8b)
: businput ( adr n --) : businput ( adr n --)
bounds ?DO bus@ I c! LOOP pause ; bounds ?DO bus@ I c! LOOP pause ;
: i/o-status? $90 c@ ;
: derror? ( -- flag ) : derror? ( -- flag )
disk $F busin bus@ dup Ascii 0 - disk $F busin bus@ dup Ascii 0 -
IF BEGIN emit bus@ dup #cr = UNTIL IF BEGIN emit bus@ dup #cr = UNTIL

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

@ -85,6 +85,8 @@ Code curoff ( --)
include vf-sys-cbm.fth include vf-sys-cbm.fth
: i/o-status? $0286 c@ ;
\ *** Block No. 143, Hexblock 8f \ *** Block No. 143, Hexblock 8f
\ ... continued \ ... continued