From 064a22e6d88c48cd8bf6549bef7cc9d069bb6c5a Mon Sep 17 00:00:00 2001
From: Andrew Roughan <roughana@yahoo.com.au>
Date: Sun, 3 May 2015 21:12:21 +1000
Subject: [PATCH] System 6.0.1 macros provided by Eric Shepherd

---
 Ctl.Macs.S      | 25 ++++++++++++++++++++++++-
 Line.Macs.S     |  6 ++++++
 Misc.Macs.S     | 13 +++++++++++++
 QDAux.Macs.S    | 19 +++++++++++++++++++
 Resource.Macs.S | 12 ++++++++++++
 Scrap.Macs.S    |  6 ++++++
 Window.Macs.S   |  5 +++++
 7 files changed, 85 insertions(+), 1 deletion(-)

diff --git a/Ctl.Macs.S b/Ctl.Macs.S
index 9bb9636..a3c814d 100644
--- a/Ctl.Macs.S
+++ b/Ctl.Macs.S
@@ -290,7 +290,30 @@ _SetLETextByID MAC
 _GetLETextByID MAC
  Tool $3B10
  <<<
-
+~SetCtlValueByID MAC
+ PHWL ]1;]2
+ PHL ]3
+_SetCtlValueByID MAC
+ Tool $3C10
+ <<<
+~GetCtlValueByID MAC
+ P1SL ]1
+ PHL ]2
+_GetCtlValueByID MAC
+ Tool $3D10
+ <<<
+~InvalOneCtlByID MAC
+ PxL ]1;]2
+_InvalOneCtlByID MAC
+ Tool $3E10
+ <<<
+~HiliteCtlByID MAC
+ PHWL ]1;]2
+ PHL ]3
+_HiliteCtlByID MAC
+ Tool $3F10
+ <<<
+ 
 ~qCtlStartUp MAC
  PHW ]1
  NextDP ]2;$100
diff --git a/Line.Macs.S b/Line.Macs.S
index c47ef68..c4b00d4 100644
--- a/Line.Macs.S
+++ b/Line.Macs.S
@@ -172,6 +172,12 @@ _LEGetTextLen MAC
 _GetLEDefProc MAC
  Tool $2414
  <<<
+~LEClassifyKey MAC
+ P1SW ]1
+ PHL ]2
+_LEClassifyKey MAC
+ Tool $2514
+ <<<
 ~qLEStartUp MAC
  PHW ]1
  NextDP ]2;$100
diff --git a/Misc.Macs.S b/Misc.Macs.S
index b2b3504..b6176c9 100644
--- a/Misc.Macs.S
+++ b/Misc.Macs.S
@@ -288,3 +288,16 @@ _ShowBootInfo MAC
 _ScanDevices MAC
  Tool $3D03
  <<<
+~AlertMessage MAC
+ P1SL ]1
+ PHWL ]2;]3
+_AlertMessage MAC
+ Tool $3E03
+ <<<
+~DoSysPrefs MAC
+ P1SW ]1
+ PHW ]2
+_DoSysPrefs MAC
+ Tool $3F03
+ <<<
+ 
\ No newline at end of file
diff --git a/QDAux.Macs.S b/QDAux.Macs.S
index 69f241a..d6fb936 100644
--- a/QDAux.Macs.S
+++ b/QDAux.Macs.S
@@ -82,3 +82,22 @@ _IBeamCursor MAC
 _WooshRect MAC
  Tool $1412
  <<<
+~DrawStringWidth MAC
+ P1SL ]1
+ PHW ]2
+_DrawStringWidth MAC
+ Tool $1512
+ <<<
+~UseColorTable MAC
+ P2SW ]1
+ PHLW ]2;]3
+_UseColorTable MAC
+ Tool $1612
+ <<<
+~RestoreColorTable MAC
+ PHL ]1
+ PHW ]2
+_RestoreColorTable MAC
+ Tool $1712
+ <<<
+ 
\ No newline at end of file
diff --git a/Resource.Macs.S b/Resource.Macs.S
index bd69900..2fb1020 100644
--- a/Resource.Macs.S
+++ b/Resource.Macs.S
@@ -236,3 +236,15 @@ _LoadNamedResource MAC
 _SetResourceName MAC
  Tool $2D1E
  <<<
+~OpenResourceFileByID MAC
+ P1SW ]1
+ PHW ]2
+_OpenResourceFileByID MAC
+ Tool $2E1E
+ <<<
+~CompactResourceFile MAC
+ PxW ]1;]2
+_CompactResourceFile MAC
+ Tool $2F1E
+ <<<
+ 
\ No newline at end of file
diff --git a/Scrap.Macs.S b/Scrap.Macs.S
index 4444daa..4a617bb 100644
--- a/Scrap.Macs.S
+++ b/Scrap.Macs.S
@@ -82,3 +82,9 @@ _GetScrapState MAC
 _GetIndScrap MAC
  Tool $1416
  <<<
+~ShowClipboard MAC
+ P2SW ]1
+ PHL ]2
+_ShowClipboard MAC
+ Tool $1516
+ <<<
diff --git a/Window.Macs.S b/Window.Macs.S
index b63a53a..d321743 100644
--- a/Window.Macs.S
+++ b/Window.Macs.S
@@ -548,3 +548,8 @@ _ResizeInfoBar MAC
 _HandleDiskInsert MAC
  Tool $6B0E
  <<<
+~UpdateWindow MAC
+ PHWL ]1;]2
+_UpdateWindow MAC
+ Tool $6C0E
+ <<<