From 170429cd2c857d62d4087080b24bd52d9844e923 Mon Sep 17 00:00:00 2001
From: Antoine Vignau <34219772+antoinevignau@users.noreply.github.com>
Date: Mon, 8 Jun 2020 22:54:17 +0200
Subject: [PATCH] Add files via upload

---
 source/twilight/sorry/fader/fader.rez      |  95 ++++++++++++++++++
 source/twilight/sorry/fader/fader.rez.back | 109 +++++++++++++++++++++
 source/twilight/sorry/fader/fader.rez.c    | 108 ++++++++++++++++++++
 source/twilight/sorry/fader/faderstk.asm   | 100 +++++++++++++++++++
 source/twilight/sorry/fader/make.old       |  18 ++++
 source/twilight/sorry/fader/makef          |  49 +++++++++
 source/twilight/sorry/fader/tester         | Bin 0 -> 535 bytes
 7 files changed, 479 insertions(+)
 create mode 100644 source/twilight/sorry/fader/fader.rez
 create mode 100644 source/twilight/sorry/fader/fader.rez.back
 create mode 100644 source/twilight/sorry/fader/fader.rez.c
 create mode 100644 source/twilight/sorry/fader/faderstk.asm
 create mode 100644 source/twilight/sorry/fader/make.old
 create mode 100644 source/twilight/sorry/fader/makef
 create mode 100644 source/twilight/sorry/fader/tester

diff --git a/source/twilight/sorry/fader/fader.rez b/source/twilight/sorry/fader/fader.rez
new file mode 100644
index 0000000..72031e1
--- /dev/null
+++ b/source/twilight/sorry/fader/fader.rez
@@ -0,0 +1,95 @@
+
+#include "types.rez"
+#include "22:t2common.rez"
+
+// --- Flags resource
+
+resource rT2ModuleFlags (moduleFlags) {
+	fWantFadeOut+fWantFadeIn,	// module flags
+	$01,						// enabled flag (unimplemented)
+	$0100,					// minimum T2 version required
+	NIL,						// reserved
+	"Tester"					// module name
+};
+
+// --- About text resource
+
+resource rTextForLETextBox2 (moduleMessage) {
+       "\$01"
+       "J"
+       "\$00"
+       "\$00"
+       "\$01"
+       "L"
+       "\$00"
+       "\$00"
+       "\$01"
+       "C"
+       "\$11"
+       "\$11"
+       "\$01"
+       "B"
+       "\$FF"
+       "\$FF"
+       "This module is for test purposes only."
+};
+
+// --- Version resource
+
+resource rVersion (moduleVersion) {
+       { $1,$0,$0,beta,$3 },             // Version 1.0b3
+       verUS,                             // US Version
+       "T2 Tester Module",     // program's name
+       "By Jim Maricondo.\n"
+       "Copyright 1991 Jim Maricondo."    // copyright notice
+};
+
+// --- About icon resource
+
+resource rIcon (moduleIcon) {
+       $8000,                  // kind
+       $0014,                  // height
+       $001C,                  // width
+
+       $"FFF0000000000000000000000FFF"
+       $"FFF0FFFFFFFFFFFFFFFFFFFF0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0FFFFFFFFFFFFFFFFAFFF0FFF"
+       $"FFF0000000000000000000000FFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FF4AFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0CCCCCCCCCCCCCCCCCC0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFAFF0FFFF"
+       $"FFFF00000000000000000000FFFF",
+
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000";
+};
diff --git a/source/twilight/sorry/fader/fader.rez.back b/source/twilight/sorry/fader/fader.rez.back
new file mode 100644
index 0000000..ee0283f
--- /dev/null
+++ b/source/twilight/sorry/fader/fader.rez.back
@@ -0,0 +1,109 @@
+
+#include "types.rez"
+#include ":jim4:dya:twilight:t2common.rez"
+
+// --- Flags resource
+
+resource rT2ModuleFlags (moduleFlags) {
+	fWantFadeOut+fWantFadeIn
+};
+
+// --- Module name resource
+
+resource 0x8006 (moduleName) {
+       "Foreground Fader"
+};
+
+// --- About text resource
+
+resource rTextForLETextBox2 (moduleMessage) {
+       "\$01"
+       "J"
+       "\$00"
+       "\$00"
+       "\$01"
+       "L"
+       "\$00"
+       "\$00"
+       "\$01"
+       "R"
+       "\$04"
+       "\$00"
+       "\$01"
+       "F"
+       "\$FE"
+       "\$FF"
+       "\$00"
+       "\$08"
+       "\$01"
+       "C"
+       "\$11"
+       "\$11"
+       "\$01"
+       "B"
+       "\$FF"
+       "\$FF"
+       "This module fades your screen to black when it's time to "
+       "blank the screen and fades it back in when it's time to restore the "
+       "screen."
+};
+
+// --- Version resource
+
+resource rVersion (moduleVersion) {
+       { $1,$0,$0,beta,$3 },             // Version 1.0b3
+       verUS,                             // US Version
+       "Twilight II Foreground Fader Module",     // program's name
+       "By Jim Maricondo.\n"
+       "Copyright 1991 Jim Maricondo."    // copyright notice
+};
+
+// --- About icon resource
+
+resource rIcon (moduleIcon) {
+       $8000,                  // kind
+       $0014,                  // height
+       $001C,                  // width
+
+       $"FFF0000000000000000000000FFF"
+       $"FFF0FFFFFFFFFFFFFFFFFFFF0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0FFFFFFFFFFFFFFFFAFFF0FFF"
+       $"FFF0000000000000000000000FFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FF4AFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0CCCCCCCCCCCCCCCCCC0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFAFF0FFFF"
+       $"FFFF00000000000000000000FFFF",
+
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000";
+};
diff --git a/source/twilight/sorry/fader/fader.rez.c b/source/twilight/sorry/fader/fader.rez.c
new file mode 100644
index 0000000..95a14c8
--- /dev/null
+++ b/source/twilight/sorry/fader/fader.rez.c
@@ -0,0 +1,108 @@
+
+#include "types.rez"
+#include ":jim4:dya:twilight:t2common.rez"
+
+resource rT2ModuleFlags (0x1) {
+	wantFadeOut+wantFadeIn
+};
+
+
+// --- Module name resource
+
+resource 0x8006 (0x1) {
+       "Foreground Fader"
+};
+
+// --- About text resource
+
+resource rTextForLETextBox2 ($0010DD01) {
+       "\$01"
+       "J"
+       "\$00"
+       "\$00"
+       "\$01"
+       "L"
+       "\$00"
+       "\$00"
+       "\$01"
+       "R"
+       "\$04"
+       "\$00"
+       "\$01"
+       "F"
+       "\$FE"
+       "\$FF"
+       "\$00"
+       "\$08"
+       "\$01"
+       "C"
+       "\$11"
+       "\$11"
+       "\$01"
+       "B"
+       "\$FF"
+       "\$FF"
+       "This module fades your screen to black when it's time to "
+       "blank the screen and fades it back in when it's time to restore the "
+       "screen."
+};
+
+// --- Version resource
+
+resource rVersion (0x1) {
+       { $1,$0,$0,beta,$3 },             // Version 1.0b3
+       verUS,                             // US Version
+       "Twilight II Foreground Fader Module",     // program's name
+       "By Jim Maricondo.\n"
+       "Copyright 1991 Jim Maricondo."    // copyright notice
+};
+
+// --- About icon resource
+
+resource rIcon ($0010DD01) {
+       $8000,                  // kind
+       $0014,                  // height
+       $001C,                  // width
+
+       $"FFF0000000000000000000000FFF"
+       $"FFF0FFFFFFFFFFFFFFFFFFFF0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F011111111111111110F0FFF"
+       $"FFF0F000000000000000000F0FFF"
+       $"FFF0FFFFFFFFFFFFFFFFAFFF0FFF"
+       $"FFF0000000000000000000000FFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0FF4AFFFFFFFFFFFFFF0FFFF"
+       $"FFFF0CCCCCCCCCCCCCCCCCC0FFFF"
+       $"FFFF0FFFFFFFFFFFFFFFAFF0FFFF"
+       $"FFFF00000000000000000000FFFF",
+
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"000FFFFFFFFFFFFFFFFFFFFFF000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000"
+       $"0000FFFFFFFFFFFFFFFFFFFF0000";
+};
\ No newline at end of file
diff --git a/source/twilight/sorry/fader/faderstk.asm b/source/twilight/sorry/fader/faderstk.asm
new file mode 100644
index 0000000..6469d69
--- /dev/null
+++ b/source/twilight/sorry/fader/faderstk.asm
@@ -0,0 +1,100 @@
+
+	mcopy	fader.mac
+	keep	fader.d
+	copy	..t2common.equ
+*-----------------------------------------------------------------------------*
+*debugSymbols	gequ  $BAD               ; Put in debugging symbols ?
+*-----------------------------------------------------------------------------*
+* Fader! V1.0b1-  Unknown: Original version - by Jim R Maricondo.
+*        V1.0b2- 05/10/92: Updated for Generation 2 Module Format. (d31)
+*        V1.0b3- 05/14/92: Updated to use new T2ModuleFlags bits. (d32)
+*
+* Fade screen out.  Wait until user activity.  Fade screen in.
+*
+* Inputs:
+*
+* |previous contents|
+* |-----------------|
+* |    T2Result     |  Long - Result space.  (currently reserved)
+* |-----------------|
+* |    T2Message    |  Word - Action to perform.
+* |-----------------|
+* |     T2data1     |  Long - Action specific input.
+* |-----------------|
+* |     T2data2     |  Long - Action specific input.
+* |-----------------|
+* |     rtlAddr     |  3 bytes - Return address.
+* |-----------------|
+*
+* Outputs:
+*
+* |previous contents|
+* |-----------------|
+* |    T2Result     |  Long - Result space.  (reserved at this time)
+* |-----------------|
+* |     rtlAddr     |  3 bytes - Return address.
+* |-----------------|
+*
+
+Fader          Start
+	kind  $1000	; no special memory
+               debug 'Fader'
+
+	mnote ''
+	aif t:debugSymbols="G",.begin
+	mnote '## Note - Debug Symbols: OFF'
+	ago .jet
+.begin
+ 	mnote '## Note - Debug Symbols: ON'
+.jet
+
+	DefineStack
+oldBorder      word
+stkFrameSize   EndLocals
+dpageptr       word
+dbank          byte
+rtlAddr	block	3
+T2data2	long
+T2data1	long
+T2message	word
+T2result	long
+
+               phb
+               phd
+               tsc
+               sec
+               sbc   #stkFrameSize
+               tcs
+               tcd
+
+               lda   <T2Message         ; Get which setup procedure to call.
+	cmp	#BlankT2
+	bne	notSupported
+
+	lda	CLOCKCTL
+	and	#$FFF0
+	sta	CLOCKCTL
+
+again          lda   [T2data1]	; movePtr
+               beq   again
+
+notSupported   tsc
+               clc
+               adc   #stkFrameSize
+               tcs
+               pld
+               plb
+               lda   1,s
+               sta   1+10,s
+               lda   2,s
+               sta   2+10,s
+               tsc
+               clc
+               adc   #10
+               tcs
+               clc
+               rtl
+
+               End
+*-----------------------------------------------------------------------------*
+	
\ No newline at end of file
diff --git a/source/twilight/sorry/fader/make.old b/source/twilight/sorry/fader/make.old
new file mode 100644
index 0000000..f180f78
--- /dev/null
+++ b/source/twilight/sorry/fader/make.old
@@ -0,0 +1,18 @@
+
+echo asml Fader.asm keep=Fader.d
+asml Fader.asm keep=Fader.d
+
+echo duplicate -d Fader.d Fader
+duplicate -d Fader.d Fader
+
+echo duplicate -r Fader.r Fader
+duplicate -r Fader.r Fader
+
+echo filetype Fader $BC
+filetype Fader $BC
+
+echo setfile Fader -at $4004
+setfile Fader -at $4004
+
+echo copy -c Fader /jim1/system/cdevs/Twilight/Fader
+copy -c Fader /jim1/system/cdevs/Twilight/Fader
diff --git a/source/twilight/sorry/fader/makef b/source/twilight/sorry/fader/makef
new file mode 100644
index 0000000..4dbeb9a
--- /dev/null
+++ b/source/twilight/sorry/fader/makef
@@ -0,0 +1,49 @@
+
+echo "### Foreground Fader Make v1.0, 29 May 1992 Jim Maricondo."
+
+if {#} == 0
+   echo "### Fad:Make - Error - Bad input parameters!"
+
+else if {1} == d
+   echo "### Fad:Make - Compiling and linking Foreground Fader Module."
+   asml +w fader.asm
+   echo "### Fad:Make - Module compiled and linked."
+
+   echo "### Fad:Make - Building Module.."
+   copy -f fader.d fader
+   echo "### Fad:Make - Setting filetype."
+   filetype fader $bc $4004
+   echo "### Fad:Make - Built.  Now copying to Twilight folder..."
+   copy -c fader :jim1:system:cdevs:twilight:fader
+
+else if {1} == r
+   echo "### Fad:Make - Compiling fader resources."
+   compile fader.rez keep=fader.r
+   echo "### Fad:Make - Module resources built."
+
+   echo "### Fad:Make - Building Module.."
+   copy -r fader.r fader
+   echo "### Fad:Make - Setting filetype."
+   filetype fader $bc $4004
+   echo "### Fad:Make - Built.  Now copying to Twilight folder..."
+   copy -c fader :jim1:system:cdevs:twilight:fader
+
+else if {1} == rd
+   echo "### Fad:Make - Compiling and linking Foreground Fader module."
+   asml +w fader.asm
+   echo "### Fad:Make - Module compiled and linked."
+   echo "### Fad:Make - Compiling fader resources."
+   compile fader.rez keep=fader.r
+   echo "### Fad:Make - Module resources built."
+
+   echo "### Fad:Make - Building Module.."
+   copy -f fader.d fader
+   copy -r fader.r fader
+   echo "### Fad:Make - Setting filetype."
+   filetype fader $bc $4004
+   echo "### Fad:Make - Built.  Now copying to Twilight folder..."
+   copy -c fader :jim1:system:cdevs:twilight:fader
+
+else
+   echo "### Fad:Make - Invalid parameters/options specified."
+end
diff --git a/source/twilight/sorry/fader/tester b/source/twilight/sorry/fader/tester
new file mode 100644
index 0000000000000000000000000000000000000000..ba58c8b427c3d0617b17802e24b3e8e1e7b3f64d
GIT binary patch
literal 535
zcmbQo00E(3iiL@Rfsui+0V)Wl7{R0tgENBy9Pre+RumMa78m>EC#HOY=mja`0;^?U
zU}AUyWQhT_{sUqOuqecA1_7uNFa@*@2y_@+k<8|T+oHfw39%e(5(5Kn6AXYRfB-@(
zk}01+?r7p*C@g1nOH4^E>gKkNUdn%xiQ$46Ogt$kF)v%;4uirEhNf8zCm9$nhytb9
zfm&E{6SGsHGA#@znISS@!*YOrFNR1pWSwMTxF8PH!v)mCUYdt2=Xa8o;erUvyzI=J
z9H=JKlWYtZgn<%lKuydUnI%wh*^`V67l45VaX@im8Pov{EX%n+{Lx;$n6a6AF;g>-
zwL~TtgS13;6Aw^7r>}2tNn%k+XaV;kCMG2YhKCuwB8&-5yg)fFpj<|2iA#QY-dYhx
mk3~$(Ao&CahVMYz85sCf)a@K2V@fOfCN5jK|Ik+kP6hyPNpMU6

literal 0
HcmV?d00001