From c33fa907be3fee7096e904218f658d18231562d2 Mon Sep 17 00:00:00 2001 From: Philip Zembrod Date: Thu, 5 Nov 2020 23:03:39 +0100 Subject: [PATCH] Fix i/o-status? for X16 - i/o status byte is at $0286 instead of $90 --- 6502/C64/src/vf-sys-c16.fth | 2 ++ 6502/C64/src/vf-sys-c64.fth | 2 ++ 6502/C64/src/vf-sys-cbm.fth | 2 -- 6502/C64/src/vf-sys-x16.fth | 2 ++ 4 files changed, 6 insertions(+), 2 deletions(-) diff --git a/6502/C64/src/vf-sys-c16.fth b/6502/C64/src/vf-sys-c16.fth index eab3bdd..ce4e0c6 100644 --- a/6502/C64/src/vf-sys-c16.fth +++ b/6502/C64/src/vf-sys-c16.fth @@ -55,6 +55,8 @@ end-code include vf-sys-cbm.fth +: i/o-status? $90 c@ ; + \ *** Block No. 143, Hexblock 8f \ ... continued diff --git a/6502/C64/src/vf-sys-c64.fth b/6502/C64/src/vf-sys-c64.fth index cce6648..92fcb10 100644 --- a/6502/C64/src/vf-sys-c64.fth +++ b/6502/C64/src/vf-sys-c64.fth @@ -58,6 +58,8 @@ Code curoff ( --) include vf-sys-cbm.fth +: i/o-status? $90 c@ ; + \ *** Block No. 143, Hexblock 8f \ ... continued diff --git a/6502/C64/src/vf-sys-cbm.fth b/6502/C64/src/vf-sys-cbm.fth index 96cb736..d0a4dde 100644 --- a/6502/C64/src/vf-sys-cbm.fth +++ b/6502/C64/src/vf-sys-cbm.fth @@ -211,8 +211,6 @@ Code bus@ ( -- 8b) : businput ( adr n --) bounds ?DO bus@ I c! LOOP pause ; -: i/o-status? $90 c@ ; - : derror? ( -- flag ) disk $F busin bus@ dup Ascii 0 - IF BEGIN emit bus@ dup #cr = UNTIL diff --git a/6502/C64/src/vf-sys-x16.fth b/6502/C64/src/vf-sys-x16.fth index 45cb645..7a8d929 100644 --- a/6502/C64/src/vf-sys-x16.fth +++ b/6502/C64/src/vf-sys-x16.fth @@ -85,6 +85,8 @@ Code curoff ( --) include vf-sys-cbm.fth +: i/o-status? $0286 c@ ; + \ *** Block No. 143, Hexblock 8f \ ... continued