From 378c361aab358a2113bebbba5802dd7ec3de6af4 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Fri, 26 Feb 2016 16:25:53 -0500
Subject: [PATCH] fixes sop.s supercedes (most of) sx.s

---
 scans/s5.s |  2 +-
 scans/s7.s |  2 +-
 scans/s9.s |  6 +++---
 scans/sx.s | 24 ------------------------
 4 files changed, 5 insertions(+), 29 deletions(-)

diff --git a/scans/s5.s b/scans/s5.s
index 9a136ce..8f12620 100644
--- a/scans/s5.s
+++ b/scans/s5.s
@@ -212,7 +212,7 @@ dspnl: 0
    jmp dspnl i
 1:
    lac o2000
-   wbi			"** ??
+   wbl
    isz dspput
    jmp dspput i
 
diff --git a/scans/s7.s b/scans/s7.s
index 03ce63d..6d12062 100644
--- a/scans/s7.s
+++ b/scans/s7.s
@@ -266,7 +266,7 @@ ttyrestart: 0
    jms wakeup
    dac sfiles+6
    cla
-   wbi
+   wbl
    jmp piret	"** END CROSSED OUT
 
 1: crsf
diff --git a/scans/s9.s b/scans/s9.s
index 4967d2f..b308170 100644
--- a/scans/s9.s
+++ b/scans/s9.s
@@ -38,7 +38,7 @@
    jmp 1b " 0 count means pause
    dac xx
    isz ii
-   iac ii
+   lac ii
    jms iget
    jms copyz; inode; 12
    jms getw " flags
@@ -95,8 +95,8 @@ getw: 0
    omq
    lmq
    jms getc
-   omg
-   lmg
+   omq
+   lmq
    add sum
    dac sum
    lacq
diff --git a/scans/sx.s b/scans/sx.s
index ab37559..6b08758 100644
--- a/scans/sx.s
+++ b/scans/sx.s
@@ -1,28 +1,4 @@
 " For now, this stuff is defined so that
 " the assembler doesn't complain about it
 
-" illegible
-idunno=-1
-wbi=-1
-
-" disk I/O instructions?
-dscs=-1
-dslw=-1
-dslm=-1
-dsld=-1
-dsls=-1
-dssf=-1
-dsrs=-1
-
-" display I/O instructions?
-dprs=-1
-dprc=-1
-dpsf=-1
-dpcf=-1
-
-" printer I/O instructions?
-lpsf=-1
-lpcf=-1
-lpb=-1
-
 o7000: 07000