From cacacad2aefe35c6c5ee23176ddd639562a59479 Mon Sep 17 00:00:00 2001
From: moshix <moshix@gmail.com>
Date: Wed, 14 Oct 2020 11:42:07 -0500
Subject: [PATCH] TSO command to clear screen

---
 tsoCLS | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tsoCLS

diff --git a/tsoCLS b/tsoCLS
new file mode 100644
index 0000000..d795481
--- /dev/null
+++ b/tsoCLS
@@ -0,0 +1,17 @@
+         PRINT NOGEN                                               
+         TITLE 'CLEAR TSO SCREEN'                                  
+CLS      CSECT                                                     
+         BAKR 14,0                    SAVE REGISTERS               
+         LR   12,15                   LOAD ENTRY POINT             
+         USING CLS,12                 ESTABLISH ADDRESSABILITY     
+         LA   15,SAVEAREA             15 = MY SAVE AREA ADDR       
+         ST   15,8(13)                FORWARD CHAIN SAVE AREA      
+         LR   13,15                   13 = MY SAVE AREA ADDR       
+         TCLEARQ INPUT                CLEAR INPUT BUFFER           
+         LA   2,CLSCR                 SETUP TPUT                   
+         LA   3,L'CLSCR                          PARAMETERS        
+         TPUT (2),(3),FULLSCR,,HOLD ISSUE TPUT MACRO               
+         PR                           RESTORE REGISTERS AND RETURN 
+SAVEAREA DC   18F'0'                                               
+CLSCR    DC   X'C11140403C40400013'   BUFFER CONTROL ORDERS      
+         END