From 4dc8163df818ce8a07d9dca0c209ced9119899a8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tomek=20W=C3=B3jcik?= <labs@tomekwojcik.pl>
Date: Sat, 14 Sep 2024 22:30:58 +0200
Subject: [PATCH] [ElectroMAN] WIP

---
 WHDLoad/ElectroMAN/.editorconfig       |  16 ++
 WHDLoad/ElectroMAN/.gitignore          |  13 +
 WHDLoad/ElectroMAN/ElectroMAN.inf      | Bin 0 -> 450 bytes
 WHDLoad/ElectroMAN/Install             | 327 +++++++++++++++++++++++++
 WHDLoad/ElectroMAN/Install.info        | Bin 0 -> 2031 bytes
 WHDLoad/ElectroMAN/README.md           |  46 ++++
 WHDLoad/ElectroMAN/ReadMe              |  38 +++
 WHDLoad/ElectroMAN/ReadMe.info         | Bin 0 -> 1990 bytes
 WHDLoad/ElectroMAN/data.info           | Bin 0 -> 1484 bytes
 WHDLoad/ElectroMAN/data/.placeholder   |   0
 WHDLoad/ElectroMAN/source/ElectroMAN.s | 167 +++++++++++++
 WHDLoad/ElectroMAN/source/Makefile     |  16 ++
 12 files changed, 623 insertions(+)
 create mode 100644 WHDLoad/ElectroMAN/.editorconfig
 create mode 100644 WHDLoad/ElectroMAN/.gitignore
 create mode 100755 WHDLoad/ElectroMAN/ElectroMAN.inf
 create mode 100755 WHDLoad/ElectroMAN/Install
 create mode 100755 WHDLoad/ElectroMAN/Install.info
 create mode 100644 WHDLoad/ElectroMAN/README.md
 create mode 100755 WHDLoad/ElectroMAN/ReadMe
 create mode 100644 WHDLoad/ElectroMAN/ReadMe.info
 create mode 100755 WHDLoad/ElectroMAN/data.info
 create mode 100644 WHDLoad/ElectroMAN/data/.placeholder
 create mode 100755 WHDLoad/ElectroMAN/source/ElectroMAN.s
 create mode 100644 WHDLoad/ElectroMAN/source/Makefile

diff --git a/WHDLoad/ElectroMAN/.editorconfig b/WHDLoad/ElectroMAN/.editorconfig
new file mode 100644
index 0000000..511091b
--- /dev/null
+++ b/WHDLoad/ElectroMAN/.editorconfig
@@ -0,0 +1,16 @@
+root = true
+
+[*]
+charset = latin1
+end_of_line = lf
+
+[{Makefile}]
+indent_style = tab
+tab_size = 4
+
+[{*.s}]
+indent_style = space
+tab_size = 4
+
+[{README.md}]
+charset = utf-8
diff --git a/WHDLoad/ElectroMAN/.gitignore b/WHDLoad/ElectroMAN/.gitignore
new file mode 100644
index 0000000..35a18b1
--- /dev/null
+++ b/WHDLoad/ElectroMAN/.gitignore
@@ -0,0 +1,13 @@
+data/DAT/
+data/L0/
+data/L1/
+data/L2/
+data/L3/
+data/L4/
+data/L5/
+data/L6/
+data/L7/
+data/L8/
+data/SFX/
+data/ElectroMan.exu*
+ElectroMAN.slave
diff --git a/WHDLoad/ElectroMAN/ElectroMAN.inf b/WHDLoad/ElectroMAN/ElectroMAN.inf
new file mode 100755
index 0000000000000000000000000000000000000000..af002ab0f5076ea3c53a4053bd9db8f24fec382c
GIT binary patch
literal 450
zcmZ{eF%E)25Jms8pcH7fK`l(=3>LI%Z9@UQy@zlQ<pC%>fx+Iy3s71ZamHCB8u`iQ
z?fjXYzc&MgRw<_Nsa9sZKepx<mH#O%-S~7ea!oOTXU<!ryB4h#MZMHDw<37qs<|?U
zCFV?WwH0FLXdFW#%`HyEFhR16pz9gR5$6mvG}EIM|EQnh(+Kqs4eNn7nmaB9E9+$y
pNWTi!h-t2(Ey@usWAPFEP*KhAHjWwRWGHfGt|YgQl56?fq!*-;NBsZ*

literal 0
HcmV?d00001

diff --git a/WHDLoad/ElectroMAN/Install b/WHDLoad/ElectroMAN/Install
new file mode 100755
index 0000000..78899e4
--- /dev/null
+++ b/WHDLoad/ElectroMAN/Install
@@ -0,0 +1,327 @@
+
+(set #sub-dir "data")                   ;name of the sub-directory if any
+(set #readme-file "ReadMe")		;name of readme file
+(set #man-file "Manual")		;name of manual file
+(set #hint-file "Hints")		;name of hint file
+(set #sol-file "Solution")		;name of solution file
+(set #highs-file "highs")		;name of high scores file
+(set #exename "")		        ;name of executable program
+(set #prefix "ElectroMAN")
+;----------------------------
+; copy file including icon if exist
+; #copy-file - name of file to copy
+
+(procedure P_CopyFile
+  (if
+    (exists #copy-file)
+    (
+      (copyfiles
+        (help @copyfiles-help)
+        (source #copy-file)
+        (dest #dest)
+      )
+      (if
+        (exists ("%s.info" #copy-file))
+        (
+          (copyfiles
+            (help @copyfiles-help)
+            (source ("%s.info" #copy-file))
+            (dest #dest)
+          )
+          (tooltype
+            (dest (tackon #dest #copy-file))
+            (noposition)
+          )
+        )
+      )
+    )
+  )
+)
+
+;****************************
+;----------------------------
+; checks if given program is installed, if not abort install
+; #program - to check
+
+(procedure P_ChkRun
+  (if
+    (= 0 (run ("cd SYS:\nWhich %s" #program)))
+    ("")
+    (abort
+      (cat
+	"You must install \"" #program "\" first!\n"
+	"It must be accessible via the path.\n"
+	"You can find it in the WHDLoad package."
+      )
+    )
+  )
+)
+
+;----------------------------
+; Wait for inserting disk
+; IN:  #AD_disk - name of disk
+; OUT: -
+
+(procedure P_disk
+  (askdisk
+    (dest #AD_disk)
+    (prompt ("\nInsert Disk \"%s\" in any drive!" #AD_disk))
+    (help @askdisk-help)
+  )
+)
+
+(procedure P_InstallDisk
+
+(P_disk)
+      (copyfiles
+        (help @copyfiles-help)
+        (source ("%s:" #AD_disk))
+        (dest #dest)
+        (all)
+      )
+
+)
+
+(procedure P_Install
+
+
+(set #AD_disk "ELECTROMAN")
+(P_InstallDisk)
+(set #AD_disk "SOUNDDATA")
+(P_InstallDisk)
+
+)
+;****************************
+
+(if
+  (< @installer-version (+ (* 44 65536) 10))
+  (
+  (message
+    (cat
+      "Warning: your installer is outdated.\n"
+      "All features of this installation won't be available, such as icon show and drawer opening.\n"
+      "You have version " (/ @installer-version 65536) "." 
+      (BITAND @installer-version 65535) ", needed is at least version 44.10. "
+      "The 'installer' 44.10 comes with OS 3.5 but is also contained in the NDK 3.9. "
+      "You may also use the InstallerNG by Jens Tröger."
+      "\n\n"
+      "The installers can be obtained from the net:\n"
+      "http://www.amiga.com/3.9/download/NDK3.9.lha\n"
+      "aminet:util/sys/InstallerNG.lha"
+    )
+  )
+  (set #newstuff 0)
+  )
+  (set #newstuff 1)
+)
+
+(if
+  (exists #readme-file)
+  (if
+    (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
+    ("")
+    (run ("SYS:Utilities/More %s" #readme-file))
+  )
+)
+
+(set #program "WHDLoad")
+(P_ChkRun)
+
+(set #suffix "")   ; replace by suffix if dic slave is peculiar
+(if
+  (getenv "WHDLInstPath")
+  (set @default-dest (getenv "WHDLInstPath"))
+)
+
+
+
+(set #dest
+  (askdir
+    (prompt
+      (cat
+	"Where should \"" @app-name "\" be installed?\n"
+	"A drawer \"" #prefix "\" will be automatically created."
+      )
+    )
+    (help @askdir-help)
+    (default @default-dest)
+  )
+)
+
+; update for the end message
+(set @default-dest #dest)
+
+(run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" #dest))
+(set #dest (tackon #dest #prefix))
+(set #dest-org #dest)
+(if
+  (exists #dest)
+  (
+    (set #choice
+      (askbool
+        (prompt
+          (cat
+            "\nDirectory \"" #dest "\" already exists.\n"
+            "Should it be deleted?"
+          )
+        )
+        (default 1)
+        (choices "Delete" "Skip")
+        (help @askbool-help)
+      )
+    )
+    (if
+      (= #choice 1)
+      (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
+    )
+  )
+)
+(makedir #dest
+  (help @makedir-help)
+  (infos)
+)
+
+;----------------------------
+
+(copyfiles
+  (help @copyfiles-help)
+  (source ("%s.Slave" #prefix #suffix))
+  (dest #dest)
+  )
+
+(if (exists ("%s.glowexot"  #prefix)) ((set #icon 7)(set #icnt (+ 1 #icnt))(set #icon-gex "Exotic GlowIcon")) (set #icon-gex ""))
+(if (exists ("%s.newexot"   #prefix)) ((set #icon 6)(set #icnt (+ 1 #icnt))(set #icon-nex "Exotic NewIcon"))  (set #icon-nex ""))
+(if (exists ("%s.exoticon"  #prefix)) ((set #icon 5)(set #icnt (+ 1 #icnt))(set #icon-exo "Exoticon"))        (set #icon-exo ""))
+(if (exists ("%s.glowicon"  #prefix)) ((set #icon 4)(set #icnt (+ 1 #icnt))(set #icon-glo "Glow Icon"))       (set #icon-glo ""))
+(if (exists ("%s.coloricon" #prefix)) ((set #icon 3)(set #icnt (+ 1 #icnt))(set #icon-col "OS3.5 Icon"))      (set #icon-col ""))
+(if (exists ("%s.newicon"   #prefix)) ((set #icon 2)(set #icnt (+ 1 #icnt))(set #icon-new "NewIcon"))         (set #icon-new ""))
+(if (exists ("%s.romicon"   #prefix)) ((set #icon 1)(set #icnt (+ 1 #icnt))(set #icon-rom "RomIcon"))         (set #icon-rom ""))
+(if (exists ("%s.inf"       #prefix)) ((set #icon 0)(set #icnt (+ 1 #icnt))(set #icon-nor "Normal"))          (set #icon-nor ""))
+(procedure P_Icon
+  (copyfiles
+    (help @copyfiles-help)
+    (source ("%s.%s" #prefix #icon-suf))
+    (newname ("%s.info" #icon-name))
+    (dest #icon-dir)
+  )
+  (tooltype
+    (dest (tackon #icon-dir #icon-name))
+    (noposition)
+  )
+)
+(if
+  (> #icnt 1)
+  (
+    (set #icon-dir ("T:%s Icons" #prefix))
+    (makedir #icon-dir
+      (help @makedir-help)
+    )
+    (if #icon-nor ((set #icon-suf "inf")       (set #icon-name #icon-nor)  (P_Icon)))
+    (if #icon-rom ((set #icon-suf "romicon")   (set #icon-name #icon-rom)  (P_Icon)))
+    (if #icon-new ((set #icon-suf "newicon")   (set #icon-name #icon-new)  (P_Icon)))
+    (if #icon-col ((set #icon-suf "coloricon") (set #icon-name #icon-col)  (P_Icon)))
+    (if #icon-glo ((set #icon-suf "glowicon")  (set #icon-name #icon-glo)  (P_Icon)))
+    (if #icon-exo ((set #icon-suf "exoticon")  (set #icon-name #icon-exo)  (P_Icon)))
+    (if #icon-nex ((set #icon-suf "newexot")   (set #icon-name #icon-nex)  (P_Icon)))
+    (if #icon-gex ((set #icon-suf "glowexot")  (set #icon-name #icon-gex)  (P_Icon)))
+
+    (if (= #newstuff 1)
+       (openwbobject #icon-dir)
+    )
+
+    (set #icon
+      (askchoice
+        (prompt "\nWhich icon would you like to install?\n")
+        (choices #icon-nor #icon-rom #icon-new #icon-col #icon-glo #icon-exo #icon-nex #icon-gex)
+        (default #icon)
+        (help @askchoice-help)
+      )
+    )
+    (if (= #newstuff 1)
+      (closewbobject #icon-dir)
+    )
+    (delete #icon-dir
+      (help @delete-help)
+      (all)
+    )
+  )
+)
+(set #isnewicon 0)
+
+(select #icon
+  (set #icon "inf")
+  (set #icon "romicon")
+  (
+     (set #icon "newicon")
+     (set #isnewicon 1)
+  )
+  (set #icon "coloricon")
+  (set #icon "glowicon")
+  (set #icon "exoticon")
+  (
+     (set #icon "newexot")
+     (set #isnewicon 1)
+  )
+  (set #icon "glowexot")
+)
+(copyfiles
+  (help @copyfiles-help)
+  (source ("%s.%s" #prefix #icon))
+  (newname ("%s.info" #prefix))
+  (dest #dest)
+)
+(if
+  (= #isnewicon 1)
+  ("")
+  (
+    (tooltype
+      (dest (tackon #dest #prefix))
+      (settooltype "Slave")
+      (settooltype "PreLoad")
+    )
+    (tooltype
+      (dest (tackon #dest #prefix))
+      (settooltype "PreLoad" "")
+      (settooltype "Slave" ("%s.Slave" #prefix))
+    )
+  )
+)
+(tooltype
+  (dest (tackon #dest #prefix))
+  (setdefaulttool "WHDLoad")
+  (setstack 10240)
+  (noposition)
+)
+(set #copy-file #readme-file)
+(P_CopyFile)
+(set #copy-file #man-file)
+(P_CopyFile)
+(set #copy-file #hint-file)
+(P_CopyFile)
+(set #copy-file #sol-file)
+(P_CopyFile)
+(if
+  (= #sub-dir "")
+  ("")
+  (
+    (set #dest (tackon #dest #sub-dir))
+    (makedir #dest
+      (help @makedir-help)
+    )
+  )
+)
+(set #copy-file #highs-file)
+(P_CopyFile)
+(makedir (tackon #dest "save")
+  (help @makedir-help)
+)
+(makedir (tackon #dest "libs")
+  (help @makedir-help)
+)
+
+(P_Install)
+(if (= #newstuff 1)
+  (openwbobject #dest-org)
+)
+(exit)
+
diff --git a/WHDLoad/ElectroMAN/Install.info b/WHDLoad/ElectroMAN/Install.info
new file mode 100755
index 0000000000000000000000000000000000000000..7b5cd78938922afc19a7388f94d85cfd5783ef60
GIT binary patch
literal 2031
zcmZ`(d2kcg9e%6BTE_-2cx|s6CEYkqqO|JRY2-$3B_V;=XLR`hlvqUz5*cQo;6tXA
z8M2Zrg^1cX7J-CZjx<9uOeTNWOr~|1AdWyLj*+oLWCl7m$ZbgmPvUVaf?d}AJ=txh
z?Ns|#`@Q%5uJ_ybZHht!!oNq+T13JngE>L%D$!<E|ND=St)+hVjX?RYy${rbaBup-
zM70cY6oT4$CB7UOAssrfa_N>W9;o|GM<>5?r>7myX}I%EHk-v{=Jec7&$iC?-DZ;o
zQx80At<hJTo^9grEZf$|HFK6KJ)Y#5>ntrzT%(@bY~vc6QMI+vjF95tx(!xKwP^!(
z$olC|poI21v#AClX)P*|5=55dI^um&62*;RA%h$JHZJCTpErF*5Oa<Y=mKdIa*aU}
zgFnXCGHn-W`%6lm!@xFdq}f-vQhzqxSc`#=%lUwCU1A=o%Wd=1eHf_NV9qJR*Px1!
z^x(_o89+8wv(q2Pe<VvCDm7ZPgH;(2q~=1o)2EF}(r(e(f^;gl3`*xhlxeK&0&$9?
z?Oc_eqnk0H=DMl%jb<y#vTN;TeSVOhxB@`O%a~U;*8G9!w9vj#)y-PQjRCd3#qn@l
zZr3)-*5n6S(;5I2*u76wS+wmfRjHRAYsSElzYs6fcUmeRd!;JX@1QZ@L;H=4-kao3
zT;aQ)+f~Q_&<Cz{oF-yPXIBwd$T++0e2C%lCv|CM#|0EgI)h2Rt7yTcPBZ!dtU5cs
zKpjb^H_5-a5m~q0`R?&wcYKL5?tB-s<!d1|sShMv^9kMEA9vg!z%&y8g1XWSADGl1
zj>O;eB?MG7`@)qtX+UVppM?z&*pQIB(^mJ=31e$u8p*}iq>yh>w<eNsFLkY~6%%dm
z>|N(v+CTdpcz)lyDmc02rtmZbjp3kusOX-HO6TDmj&(Qto?(f^fFzm8o##p$4l8hm
zv~|&){h9I}s_ZIm3$;Q`y7|ckojf8IOWPI71@u&xGPt+I8G<;mvkqO_vF_`>8rFNs
z5MSjC@y^$dxqe6i>q$dA#~CW(gRpUk^HAiPK5}i{EV%3gYPB<v(50=g<cWx{%i4}9
zUzm;83;-oa+mi3h1ny54wJxGnab?HsSkYVG?7u&zFbIl03T4}+*1zn%51YC{#I<j}
zhe(s(Z+^Si6CM_$;;_8Jd-B{T=fvak6DLo8_~D?~zhsy8U%ospel9_t<Ko4o3UpND
zm-^8@u|?b^4-M)|ou%TEm=aIQ^`>w|<vuYi?hxxlm5AgmgO2N7(~6!>p(n7Oq`yGz
zJ}G<+4#bhdjnGGeLWTr{e1AepN+6M-=tO&r@FX7^BhHhoK(cp@DDMu7?iv-jMn7o`
zfMt0%Y3$Ae%M0)%4Xok(V*VY&06K@*e^g0w(Z@!HM1GoAP;D!Nu?ab+(H?>Hlk{%;
z*%0lQpfXA!K_yuXA7t8VO7W<s`4G!W=8>9}uv^2bXz;<AzITJFXqXX%oG+10AbsIQ
zwaxx=c_h1>Z%_}JwOb+39?}niRD&bxp$3ip_vPoa=n1oGyjO?GzHFQYNDYwVpE5v>
z_o&9hn)!>6YZ2YRxelqvGyDX{@b#JuUn#{rd~ry0kcp0{2S>|pPyOx1o=3p9HX5#c
zdYQ&00jC}x)trgh>ou|ZCplUbJ={EZ5Zai@Jc`R2GHWL4HMp!EO+le88rC;K07RB#
zm7V%_{?i6$`&W()3EkhTSr&Vh&5W(@QN<2?&S*~*JGO6jcvfpMmvOi~_VXUq)L^Jr
z72EVP?)4p9p)GZl5&Q@$JrfYDznYozzOmyNV|R`4R|}e<3&_vz_Q#=0akRKD`MkTJ
zP=0Hq;%dRaoFWZjO|%CZZTGz8^%Qz;jmQe7RvfpEE|;yEiXL$}JV!Sd9g<Ow(4$a3
zu2em7Sd$useXC$Z!@jFWSKT@*`)FIge5G9V#EkkLv_AaI?P$}0cYBVSa`e{bL39#9
z>qmdN{_>HbdPsjy6;f<;VRE(J4&9TGzC#-5E0D1R;U~1QurIl3dnK#=_hyG6BQznb
zO@$Y<?)d@lq+6Izm^02$nqIb8kZ;(LXlZG|dx7SmgVT&kfP;<@E170Vd;nyuRzl!&
z;)k{WGr(Q~QWb|KQ^Opn@p`XG^oUF3bx-BDf2F4?D#WlHlnZYFbes|3eKYZPuSiL-
aw2=ga{U55%!m9osNv~cO^l^li#r#hwE#ip)

literal 0
HcmV?d00001

diff --git a/WHDLoad/ElectroMAN/README.md b/WHDLoad/ElectroMAN/README.md
new file mode 100644
index 0000000..5d66516
--- /dev/null
+++ b/WHDLoad/ElectroMAN/README.md
@@ -0,0 +1,46 @@
+# WHDLoad Installer for ElectroMAN by Tukinem
+
+*ElectroMAN* is an Amiga port of Polish DOS game of the same title. I really
+enjoyed playing the game in primary school. Now I can play it on the Amiga.
+
+The game came on 2 floppy disks. Having dumped them, I figured I might as well
+write WHDLoad slave so I can launch it from TinyLauncher.
+
+This is my first time writing a WHDLoad slave. It's also the first time I
+touched M68K assembly in over two decades. I took a lot of code from
+[jotd/whdload_slaves](https://github.com/jotd666/whdload_slaves) repository
+and WHDLoad sources.
+
+As is, this work should be considered **unstable**.
+
+## Known issues
+
+* When exitting the game by pressing ESC key on the title screen, WHDLoad will
+  crash. For now, please exit the game by pressing the F10 key.
+
+## TODO
+
+* Add support for quitting the game with ESC key :).
+
+## Requirements
+
+AGA Amiga, Kickstart 3.1 or newer.
+
+## Changelog
+
+Version 1.0b1 (13.09.2024)
+
+  * Initial release.
+
+## Contributing
+
+If you think you found a bug or want to send a patch, feel free to contact
+me through e-mail.
+
+## Author
+
+This WHDLoad installer is developed by [Tomek Wójcik](https://www.bthlabs.pl/).
+
+## License
+
+Public domain.
diff --git a/WHDLoad/ElectroMAN/ReadMe b/WHDLoad/ElectroMAN/ReadMe
new file mode 100755
index 0000000..274f368
--- /dev/null
+++ b/WHDLoad/ElectroMAN/ReadMe
@@ -0,0 +1,38 @@
+THIS PACKAGE COMES WITH ABSOLUTELY NO WARRANTY OF ANY KIND, EITHER EXPRESS OR
+IMPLIED, STATUTORY OR OTHERWISE. THE ENTIRE RISK AS TO USE, RESULTS AND
+PERFORMANCE OF THE PACKAGE IS ASSUMED BY YOU AND IF THE PACKAGE SHOULD PROVE
+TO BE DEFECTIVE, YOU ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICING,
+REPAIR OR OTHER REMEDIATION.
+UNDER NO CIRCUMSTANCES, CAN THE AUTHOR BE HELD RESPONSIBLE FOR ANY DAMAGE
+CAUSED IN ANY USUAL, SPECIAL, OR ACCIDENTAL WAY, ALSO IF THE OWNER OR A THIRD
+PARTY HAS BEEN POINTED AT SUCH POSSIBILITIES OF DAMAGE.
+
+This install applies to "EletroMAN" (C) 2024 Tukinem & Retronics.
+
+This install requires WHDLoad to be in the path. It can be found in the
+WHDLoad package.
+
+The installed program requires 2 MB ChipMem and 0 MB OtherMem.
+It can be quit by pressing num 'F10' (key can be changed with Tooltype
+"QuitKey=").
+
+The game reuires AGA and Kickstart 3.1 or newer.
+
+If you have problems with this installation please try and get a newer
+version of this package from the WHDLoad WWW-Page. If that doesn't help try
+some Tooltypes like NOCACHE, NOAUTOVEC, NOVBRMOVE, NOMMU, PAL or NTSC. If
+that also fails, please inform the author via the Bug-Report-Form which
+can be accessed on the WHDLoad WWW-Page or create a mantis issue directly
+at http://mantis.whdload.de
+
+For the full WHDLoad package, other installs and updates refer to:
+    http://www.whdload.de/
+or	aminet:dev/misc/whdload#?
+and	aminet:game/patch/
+
+Version 1.0b1 (13.09.2024) done by Tomek Wojcik:
+  - initial release
+  - source code included
+
+Make sure that you're using the install script, not a simple copy of disk
+contents to "data".
diff --git a/WHDLoad/ElectroMAN/ReadMe.info b/WHDLoad/ElectroMAN/ReadMe.info
new file mode 100644
index 0000000000000000000000000000000000000000..d52a85d1dcf634a81ea790cc9f236c2630677f80
GIT binary patch
literal 1990
zcmZvcZERCj7{~v&?YeeO+`2Fqfvs5=&8k4R6_8}mE*)e000pA6F_B$2z#)d=8z2Gh
zMVf5$%WBlU1jFW*=q$0(G`xJWO(4V&W5~pS!N@W&Dkd;_>DboY>;K%A7Zc8hU;pQM
zp7WgNob&WvEr0|uiqVPZ;DVKNDcAedhFtmSQ-<eJNEQcuC0Wx6{#qWoof#>zm~*$>
zJeB*vWipiY0acUGs;SsuDUhq{nvrWWnGeB|X9PWlmM;nIH}tSzPNG@xN1?;-IyR$B
zOH;c#_2uM%M!jm_C^Oi*6Vy_l(o5>;BrOrpVh;;0Ixds0GeQggj<UPDeiW8Zfz>eo
zsp~1030{h#iwcP>XM`Chbaf`Q38?ww(uatSCM5?{TT;qHbT~SihmRNN`Z+|8-PEJ_
z<?@xwQADFY>Zw`fSL$OrwZ3nJys`cCE41%Wg!gY>Q50!Mf_frcc9M}LE!64$js;Qt
zkXK2ajF>KxMY<A2S46Dpa_Qu6@eXo$t<cx|1V66=-1zK>u3yLDYXB=`>6sTXWlzMT
zJQy|=-~*d;_P4|R)f4Hz_&W2`<8Tj&kir5%_mGWz`Mj98zi^U!CX-|)Mwtvz?;KZ2
zWzsLW>swMrE!kL5M%HgDCH*DyguS4NY<G&f+GzxKcThs!OF;GuHX8dH5;BYT;{#)|
zpLQD*KF>W7_WzOT#I37r4?B^y@D0;q6AnMrm@HU2DY)bw{Om;10))t%X2FaeaZu-I
z!k&{}{?J}OEVT4J8J2zup+&>45ZXFj`^f>-7s7#o?$seQbq|(?P}g^GkknxBM^mH%
zm(UajGrx9RW=z`|)EcC{g`L=sdUoQA2(S}bp=#6|5q!+Z6`ffA!uU56yprUiTX2si
z7hmU7i%xX2*Uq7E!5{20_t&B?=D#{p6r(m%FS@L+pniUi+PAM^B!*{q%$<&5#Xkp>
z7;203L=5F&mya<eEmvsiuOw}G8*j#d$iZ&1NKf5>EmEQHgw3V@9K*tR$4C_A>_o0I
zI&mR8aS1F&Cl*~3oe0(FM4re5AK&HvKa6IM#3Zl~iQ8ox@{ySGjT<~~G3<|L2#>cT
zWY|@5m&ykn0z4LU6`<CF@HUiLpq5xlX)nM$3r3x)on!@JoM0!`V`wjI^!jNMtGJ6Q
zB!*1v<gAX+Zi7l9Yf*(1BX8aNZ@ss@dHdEqXb5gv$J4HF3Ix|T)CJbiYpq<&PjF$=
zy1KRW)WB|*Bnv-{g@>MWPL#<g-6U0|P`Km*d>72#WkTM8@0!)?^>)Z+NBxYl#pVqJ
z0zI<inDm?H{B422iWI6Uf+uJEX3hTzecnOC8L#J}nnAH@TFK<|ragA1T>27I+JrZF
z6(aby|F8(odbb#Rd#6P#6JOLs;=>~GY-V|;gkap{5{tFq8`C{;BhTz3k=514)>BHO
zxpk%3^h_pg%9Hg>D~&m=)fty@reNIWs?IuRmBu-_rhHH~IqsJlx4SqhGd0cjoVGI9
zH)iZR=dTF_+vqQ^rvJMN<7n|*5kKeTDPFG#ti9WFBAwA*Z_3kJUF|ZabuM~#>&~J<
z+3E-cf^j45u<j{Vcyr!V&si*uo11%6*jP~$j5|cma&KL8cZ+b}>-kc5zAa`OB*#>h
ziCN35=C}9W;l=qzXFJBMYnr=zJdz{rX{~X&W|rPHxA))TWsF#v#y6Hz+}`^yq_pQ9
q9^5x(ZRqT4fnKnzU0G?~yY*21_-s_uwX51$?IZ0?tx{{!fd2q{2~<)5

literal 0
HcmV?d00001

diff --git a/WHDLoad/ElectroMAN/data.info b/WHDLoad/ElectroMAN/data.info
new file mode 100755
index 0000000000000000000000000000000000000000..99888151b36c89725316d9d0eb69693f01f2ab4c
GIT binary patch
literal 1484
zcmZ8gYi!e26uwTo&<9x@4=5lFH%-D&H5SPFV2G*Et^p)iLR6>Ogp@L2r%01xX-d*E
zX=w*h?CwXyhG?8W$;Q+wMWTgHo75InVrmDp(jH<DestXfw12Q}qD~vn-nk|)v~!ay
z-_PIqzH{v3-$_Iu2;zBUMisEi;Y^T`4j!X8h;CG)U!24T!w>p3Y<;Ca8F`a@gwgwn
zy{M6>MEf-jBL+mpk>m5X^t-l0pFLv1-h~;!Az)LVpxB)t*DvnT3j%l_datzhJt4V0
zzM}{|v*B=?=XLjiwsyE-+_@9>`ol*L90bn>WGW+wazi<?_g9ec`vmQ_Ilna8T&|Yu
z#@1Fpjfm$ID_d9R^L02JjGH;OY`$LYgQL&4;@uP^QOi}M&*5;+Ryi2IpNZGjP<0MW
zXMpZkf-8vLrCMj}95|SESS-u_jV6GCv!2znST??YBlT38m-G8iJVe(Y8(r{2guPam
z9T&p*m=2Z&gbS?@yM0(2{Fv};70Ysdj^@?c2w+au1YRu1ax!{HciU8Q<A4?CNxR$a
zK6#Sk;&aAmG#35>4f2(CXx*;Vp0&5W)>`n$D9dZL<%O;!7viD{Z!GfLdt^kl%%S*j
zWi%EFMGO4qEKk@9T|-<n8VZk~@K=N=oBvwtTBmd+L(y1N)){T`6OlCxXwEq*dg5aa
zi)^KbAO}&N;j(vc$^7vvF<k_0a1L8ePfg8FPcKYvhO8x?u&;JmN9FOoTLwoABHgEX
z=E|a>hvbg*D!=C&I;DCpXz_w6Es0_}1_kf<wt(zhk*`pAp(iOM<-X>h=oAWfSEPls
zIC!&Kl<q9v=`SFQX}N#B*PtOyja!0)GvVylp7@wQHrf)-I)j7i5p|1tRlTRe2$p8&
z8Zzs%lSK7+c1*dg<kPY3&$~3KZS%qV*GR*?T@>xrNMD0LIA`>;Y<RXZ5)s?1vU$18
z=2niS877fP1_DB_aMnfh2C8MYIss53vC{X(87rOA$hxMYw;Ld(?|VT=rw3dBT0U%m
zL?#djBocy<y`iNV0NzeD0*I3ZXju?N5fsKX^1CJ=2LizxmH>dDanV{dFW1=G1K3>v
zcTwqsCwJaOkDIB+l7He92#6n9;oGO0m<V|F2v8@^m!ykUge<m0|K<0u!jqTIyMS%O
zbp?XmbQ(fROD+pg^$yN##2tVtpc$Ro+1uMYG$cu5H;wuHXm)b_gq0+y#>+2ixdokY
z{I@G_U(yvKoS*4byvfc;EF#C(svqUcsR1b?<&|9JTJGjWoZM7QRjs8m8LW4@dIAci
zn&cF4@|o-?%1#1=Eml)iN@^gJAI-1irgW|FsfxS=q+2MPDUpij>ZPNHvDT-z3nf}y
zD!crToD1HCavy7*+xqkU2lrt}ZqMLUuxu`*?2Ga*uO86>Fl;WS_DW+NhUu9BXc9Bx
zqBd4E%`Z$(&yVJdxq0XkQLn7!s+HUamnNqsSH@q4*GEuGyXq{fh*)wi%cfr+8i@Z#
v5mmtWE={&S_+tZ<&}nH74IPY)ywI6^$@6~A!PvUykZM<vI-p)te?<QRVtgj?

literal 0
HcmV?d00001

diff --git a/WHDLoad/ElectroMAN/data/.placeholder b/WHDLoad/ElectroMAN/data/.placeholder
new file mode 100644
index 0000000..e69de29
diff --git a/WHDLoad/ElectroMAN/source/ElectroMAN.s b/WHDLoad/ElectroMAN/source/ElectroMAN.s
new file mode 100755
index 0000000..cff32ce
--- /dev/null
+++ b/WHDLoad/ElectroMAN/source/ElectroMAN.s
@@ -0,0 +1,167 @@
+;*---------------------------------------------------------------------------
+;  :Program.    ElectroMAN.s
+;  :Contents.   Slave for "ElectroMAN" from Tukinem & Retronics
+;  :Author.     Tomek Wojcik, from Wepl sources
+;  :Original    v1.0b1
+;  :Version.    $Id: ElectroMAN.s 1.0b1 2024/09/13 22:20:34 BTHLabs Exp BTHLabs $
+;  :History.    2024-09-13 started
+;  :Requires.   -
+;  :Copyright.  Public Domain
+;  :Language.   68000 Assembler
+;  :Translator. Devpac 3.14, Barfly 2.9
+;  :To Do.      * Add support for quitting the game with ESC key :)
+;---------------------------------------------------------------------------*
+
+    INCLUDE whdload.i
+    INCLUDE whdmacros.i
+    INCLUDE lvo/dos.i
+
+    IFD BARFLY
+    OUTPUT  "/ElectroMAN.Slave"
+    BOPT    O+              ;enable optimizing
+    BOPT    OG+             ;enable optimizing
+    BOPT    ODd-            ;disable mul optimizing
+    BOPT    ODe-            ;disable mul optimizing
+    BOPT    w4-             ;disable 64k warnings
+    BOPT    wo-             ;disable optimizer warnings
+    SUPER
+    ENDC
+
+;============================================================================
+
+CHIPMEMSIZE = $200000   ;size of chip memory
+FASTMEMSIZE = 0     ;size of fast memory
+NUMDRIVES   = 1     ;amount of floppy drives to be configured
+WPDRIVES    = %0000     ;write protection of floppy drives
+
+BLACKSCREEN         ;set all initial colors to black
+;BOOTBLOCK          ;enable _bootblock routine
+BOOTDOS             ;enable _bootdos routine
+;BOOTEARLY          ;enable _bootearly routine
+;CBDOSLOADSEG           ;enable _cb_dosLoadSeg routine
+;CBDOSREAD          ;enable _cb_dosRead routine
+;CBKEYBOARD         ;enable _cb_keyboard routine
+CACHE               ;enable inst/data cache for fast memory with MMU
+;CACHECHIP          ;enable inst cache for chip/fast memory
+;CACHECHIPDATA          ;enable inst/data cache for chip/fast memory
+;DEBUG              ;add more internal checks
+;DISKSONBOOT            ;insert disks in floppy drives
+DOSASSIGN           ;enable _dos_assign routine
+;FONTHEIGHT = 8     ;enable 80 chars per line
+HDINIT              ;initialize filesystem handler
+;HRTMON             ;add support for HrtMON
+IOCACHE     = 10000     ;cache for the filesystem handler (per fh)
+INITAGA             ;enable AGA
+;MEMFREE    = $200      ;location to store free memory counter
+;NEEDFPU            ;set requirement for a fpu
+;POINTERTICKS   = 1     ;set mouse speed
+;SETPATCH           ;enable patches from SetPatch 1.38
+;SNOOPFS            ;trace filesystem handler
+;STACKSIZE  = 6000      ;increase default stack
+;TRDCHANGEDISK          ;enable _trd_changedisk routine
+
+;============================================================================
+
+slv_Version = 17
+slv_Flags   = WHDLF_NoError|WHDLF_Examine
+slv_keyexit = $59       ;F10
+
+;============================================================================
+
+    INCLUDE whdload/kick31.s
+
+;============================================================================
+
+slv_name    dc.b    "ElectroMAN",0
+slv_copy    dc.b    "2024 Tukinem & Retronics",0
+slv_info    dc.b    "adapted by Tomek Wojcik",10
+        dc.b    "Version 1.0b1 2024-09-13"
+        dc.b    0
+slv_CurrentDir  dc.b    "data",0
+slv_config      dc.b    0
+_disk1      dc.b    "ELECTROMAN",0
+_disk2      dc.b    "SOUNDDATA",0
+_program    dc.b    "ElectroMan.exu",0
+_args       dc.b    10
+_args_end   dc.b    0
+    EVEN
+
+;============================================================================
+
+_bootdos    move.l  _resload(pc),a2     ;A2 = resload
+
+        lea (_saveregs,pc),a0
+        movem.l d1-d6/a2-a6,(a0)
+        move.l  (a7)+,(44,a0)
+
+    ;open doslib
+        lea (_dosname,pc),a1
+        move.l  (4),a6
+        jsr (_LVOOldOpenLibrary,a6)
+        lea (_dosbase,pc),a0
+        move.l  d0,(a0)
+        move.l  d0,a6           ;A6 = dosbase
+
+    ;assigns
+        lea (_disk1,pc),a0
+        sub.l   a1,a1
+        bsr _dos_assign
+
+        lea (_disk2,pc),a0
+        sub.l   a1,a1
+        bsr _dos_assign
+
+    ;load exe
+        lea (_program,pc),a0
+        move.l  a0,d1
+        jsr (_LVOLoadSeg,a6)
+        move.l  d0,d7           ;D7 = segment
+        beq .end
+
+    ;patch
+        move.l  a3,a0
+        move.l  d7,a1
+        jsr (resload_PatchSeg,a2)
+
+    IFD DEBUG
+    ;set debug
+        clr.l   -(a7)
+        move.l  d7,-(a7)
+        pea WHDLTAG_DBGSEG_SET
+        move.l  a7,a0
+        jsr (resload_Control,a2)
+        add.w   #12,a7
+    ENDC
+
+    ;call
+        move.l  d7,a1
+        add.l   a1,a1
+        add.l   a1,a1
+        moveq   #_args_end-_args,d0
+        lea (_args,pc),a0
+        movem.l (_saveregs,pc),d1-d6/a2-a6
+        jsr (4,a1)
+
+        pea TDREASON_OK
+        jmp (resload_Abort,a2)
+
+    IFEQ 1
+    ;remove exe
+        move.l  d7,d1
+        move.l  (_dosbase),a6
+        jsr (_LVOUnLoadSeg,a6)
+    ENDC
+
+.end        moveq   #0,d0
+        move.l  (_saverts,pc),-(a7)
+        rts
+
+;============================================================================
+
+_saveregs   ds.l    11
+_saverts    dc.l    0
+_dosbase    dc.l    0
+
+;============================================================================
+
+    END
diff --git a/WHDLoad/ElectroMAN/source/Makefile b/WHDLoad/ElectroMAN/source/Makefile
new file mode 100644
index 0000000..728ea14
--- /dev/null
+++ b/WHDLoad/ElectroMAN/source/Makefile
@@ -0,0 +1,16 @@
+DEVPACK		:= DEVPACK:
+VBCC		:= $(DEVPACK)VBCC
+
+VASM		:= $(VBCC)/bin/vasmm68k_mot -pic -x -devpac -I$(DEVPACK)SDK/NDK_3.9/Include/include_i -I$(DEVPACK)SDK/whdload/Include -I$(DEVPACK)SDK/whdload/Src/sources -nosym -Fhunkexe
+
+OUTFILE		:= /ElectroMAN.slave
+
+SOURCES		:= ElectroMAN.s
+
+all: $(OUTFILE)
+
+clean:
+	Delete ALL FORCE $(OUTFILE) $(OBJECTS)
+
+$(OUTFILE): $(SOURCES)
+	$(VASM) -o $(OUTFILE) $(SOURCES)