From e9b10fc41ef72343e76ea5ff75a4f36bd1b04d10 Mon Sep 17 00:00:00 2001
From: Joerg Elfring <devops@elfrinjo.de>
Date: Tue, 5 Feb 2019 21:06:53 +0100
Subject: [PATCH] Add VirtVar

---
 virtvar/README.md        |   9 +++
 virtvar/dm42_virtvar.raw | Bin 0 -> 362 bytes
 virtvar/dm42_virtvar.txt | 120 +++++++++++++++++++++++++++++++++++++++
 3 files changed, 129 insertions(+)
 create mode 100644 virtvar/README.md
 create mode 100644 virtvar/dm42_virtvar.raw
 create mode 100644 virtvar/dm42_virtvar.txt

diff --git a/virtvar/README.md b/virtvar/README.md
new file mode 100644
index 0000000..e00f8c7
--- /dev/null
+++ b/virtvar/README.md
@@ -0,0 +1,9 @@
+The program was created by [swissmicros forum user delachieze](https://forum.swissmicros.com/viewtopic.php?f=19&t=330)
+
+---
+
+# Swissmicros DM42 VirtVar
+The swissmicros DM42 has some special features that need to be accessed through
+special [virtual variables](https://www.swissmicros.com/dm42/doc/dm42_user_manual/#_virtual_variables]).
+
+This program provides an Interface.
diff --git a/virtvar/dm42_virtvar.raw b/virtvar/dm42_virtvar.raw
new file mode 100644
index 0000000000000000000000000000000000000000..d4db4cf0467dc9721c6c241ffba56cc1c4710768
GIT binary patch
literal 362
zcmX@W@QooXv#2EOeA-u+)G|+(&yN@xzq%Ls=BIpq#KiO^D784^^CM<v5F_&QBNmn~
zVM&Q4pC7TZehW%X^Kk~MXJh;Pm_7aTV-6tZ<XjZja)BX@tMz>Pw~1h5K6wPBf2x=N
z{FssZvyp*;5Q8Ix%futd;P~0ZzyQK!<`rc4J`rN((vB~_iJ5uHU~MdXFkvAEpoDvV
zelbLXl^-S{0+jgdm<QFsCIEC#8qhsJ40cZ|6U1v98JHnH+sMEI_Si-SR<OS|GO&TY
zwUL1x>MO=sC9A|Hekq^u<x{=w?Bcpso^tMQjbQ&=U`Xc`V%W{VCk!O`1sTo@!kn?R
a>w6=_13)$B`GpuRFbJL(5CKsK7<d8X0Gb>C

literal 0
HcmV?d00001

diff --git a/virtvar/dm42_virtvar.txt b/virtvar/dm42_virtvar.txt
new file mode 100644
index 0000000..706d31f
--- /dev/null
+++ b/virtvar/dm42_virtvar.txt
@@ -0,0 +1,120 @@
+00 { 359-Byte Prgm }
+01▸LBL "VirtV"
+02▸LBL A
+03 "DevID"
+04 KEY 1 XEQ 01
+05 "GrMod"
+06 KEY 2 XEQ 02
+07 "ResX"
+08 KEY 3 XEQ 03
+09 "ResY"
+10 KEY 4 XEQ 04
+11 "Vbat"
+12 KEY 5 XEQ 05
+13 "RefLCD"
+14 KEY 6 XEQ 06
+15 KEY 7 GTO B
+16 KEY 8 GTO B
+17 KEY 9 GTO 09
+18 MENU
+19 STOP
+20 GTO A
+21▸LBL 09
+22 RTN
+23▸LBL B
+24 RCL "GrMod"
+25 "HP"
+26 X=0?
+27 ├"•"
+28 KEY 1 GTO 11
+29 "200"
+30 2
+31 -
+32 X=0?
+33 ├"•"
+34 KEY 2 GTO 12
+35 1
+36 -
+37 "400"
+38 X=0?
+39 ├"•"
+40 KEY 3 GTO 13
+41 1
+42 RCL "RefLCD"
+43 AND
+44 "Main"
+45 X≠0?
+46 ├"•"
+47 KEY 4 GTO 14
+48 RCL "RefLCD"
+49 2
+50 AND
+51 "Goos"
+52 X≠0?
+53 ├"•"
+54 KEY 5 GTO 15
+55 RCL "RefLCD"
+56 4
+57 AND
+58 "Ann"
+59 X≠0?
+60 ├"•"
+61 KEY 6 GTO 16
+62 KEY 7 GTO A
+63 KEY 8 GTO A
+64 KEY 9 GTO 09
+65 MENU
+66 STOP
+67 RTN
+68▸LBL 01
+69 "DevID"
+70 GTO 00
+71▸LBL 02
+72 "GrMod"
+73 GTO 00
+74▸LBL 03
+75 "ResX"
+76 GTO 00
+77▸LBL 04
+78 "ResY"
+79 GTO 00
+80▸LBL 05
+81 "Vbat"
+82 GTO 00
+83▸LBL 06
+84 "RefLCD"
+85▸LBL 00
+86 ASTO ST L
+87 FS?C 22
+88 STO IND ST L
+89 CLX
+90 RCL IND ST L
+91 ├"="
+92 ARCL ST X
+93 AVIEW
+94 RTN
+95▸LBL 11
+96 CLX
+97▸LBL 10
+98 STO "GrMod"
+99 GTO B
+100▸LBL 12
+101 2
+102 GTO 10
+103▸LBL 13
+104 3
+105 GTO 10
+106▸LBL 14
+107 1
+108▸LBL 17
+109 RCL "RefLCD"
+110 XOR
+111 STO "RefLCD"
+112 GTO B
+113▸LBL 15
+114 2
+115 GTO 17
+116▸LBL 16
+117 4
+118 GTO 17
+119 END