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