mirror of
https://github.com/callapple/Twilight_II.git
synced 2024-12-28 18:29:53 +00:00
Add files via upload
This commit is contained in:
Antoine Vignau
GitHub
parent
02608681c4
commit
170429cd2c
95
source/twilight/sorry/fader/fader.rez
Normal file
95
source/twilight/sorry/fader/fader.rez
Normal file
@ -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";
|
||||
};
|
||||
109
source/twilight/sorry/fader/fader.rez.back
Normal file
109
source/twilight/sorry/fader/fader.rez.back
Normal file
@ -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";
|
||||
};
|
||||
108
source/twilight/sorry/fader/fader.rez.c
Normal file
108
source/twilight/sorry/fader/fader.rez.c
Normal file
@ -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";
|
||||
};
|
||||
100
source/twilight/sorry/fader/faderstk.asm
Normal file
100
source/twilight/sorry/fader/faderstk.asm
Normal file
@ -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
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
18
source/twilight/sorry/fader/make.old
Normal file
18
source/twilight/sorry/fader/make.old
Normal file
@ -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
|
||||
49
source/twilight/sorry/fader/makef
Normal file
49
source/twilight/sorry/fader/makef
Normal file
@ -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
|
||||
BIN
source/twilight/sorry/fader/tester
Normal file
BIN
source/twilight/sorry/fader/tester
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user