total-carnage/T2CREDS.ASM

967 lines
16 KiB
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

.MLIB "T2MACS.LIB"
.FILE 'T2CREDS.ASM'
.TITLE "<<< TERMINATOR 2 - DO THE CREDITS ALREADY >>>"
.WIDTH 132
.OPTION B,D,L,T
.MNOLIST
.INCLUDE "T2.H"
.INCLUDE "IMGTBL.GLO"
.INCLUDE "STRING.H"
.INCLUDE "T2AUDN.ASM" ;AUDITING OFFSETS
.DEF CREDIT_THINGY, COPYR
.REF WIPEOUT, ON_HSTD
*SYMBOLS IN T2FADE.ASM
.REF FADE_ONLY, FadeIn, FadeOut
.TEXT
.EVEN
LIST_PTR .EQU PDATA
LINE_DELAY .EQU PDATA+>20
TEXT_VEL .EQU ->10000
DEL_Y_LIMIT .EQU -20
**************************************************************************
* *
* CREDIT_THINGY *
* *
* RUN THE CREDIT SEQUENCE *
* *
* IN: NONE *
* OUT: NONE *
* *
**************************************************************************
CREDIT_THINGY
CALLA WIPEOUT
CALLA SINGLE_PLANE
PAGEON
MOVK 1,A0
MOVE A0,@ON_HSTD,W
CLR A0
MOVE A0,@SCRNTL,L
DISPON
MOVK 3,A14
MOVE A14,@GAMERASE,W
CREATE PID_ANIMP,ANIMP
CREATE PID_IND,DEL_CHARS_PROC
MOVI CRED_LIST,A8
JSRP DO_TEXT
SLEEP 60*5
CLR A14
MOVE A14,@GAMERASE,W
PAGEOFF
JSRP COPYR
RETP
**************************************************************************
* *
* STORY_THINGY *
* *
* RUN THE CREDITS *
* *
* IN: A8, CREDIT LIST *
* OUT: NONE *
* *
**************************************************************************
DO_TEXT
MOVE A8,*A13(LIST_PTR),L
TEXT_LP
MOVE *A13(LIST_PTR),A1,L
MOVE *A1+,A14,W
MOVE A14,*A13(LINE_DELAY),W
MOVE *A1+,A8,L
MOVE *A1+,A3,L
JRZ TEXT_DONE ; BR = NO MORE TEXT
MOVE A1,*A13(LIST_PTR),L
CALLA LM_SETUP
MOVE A3,A8
JSRP PRINTF
PUSHST
DINT
MOVI OID_CUSTOM,A0
CALLA EXISTOBJ_ALL
JRZ TEXT_WAIT ; BR = TIME TO NAP
MOVE A0,A8
TEXT_MOVE
MOVI TEXTOID,A14
MOVE A14,*A8(OID),L
MOVI TEXT_VEL,A14
MOVE A14,*A8(OYVEL),L
MOVI OID_CUSTOM,A0
CALLA NEXTOBJ
JRZ TEXT_MOVE ; BR = MORE TEXT TO MOTIVATE
TEXT_WAIT
POPST
MOVE *A13(LINE_DELAY),A14,W
JRZ TEXT_LP ; BR = MORE CREDITS TO DO
SLEEPR A14
JRUC TEXT_LP
TEXT_DONE
RETP
**************************************************************************
* *
* NEXTOBJ *
* *
* FIND NEXT OBJECT IN THE LIST *
* *
* IN: A8, CURRENT OBJECT *
* A0, OID TO MATCH *
* *
* OUT: Z FLAG SET -> A8, NEXT OBJECT *
* Z FLAG CLR -> NO MORE OBJECTS *
* *
**************************************************************************
NEXTOBJ
MOVE *A8(OLINK),A8,L
MOVE *A8(OID),A14,W
CMP A0,A14
RETS
**************************************************************************
* *
* DEL_CHARS_PROC *
* *
* DELETE CHARACTERS AFTER THEY SCROLL OFF THE SCREEN *
* *
* IN: NONE *
* OUT: NONE *
* *
**************************************************************************
DEL_CHARS_PROC
MOVI FGLISTS,A0
MOVE A0,A8
CHECK_SCRN_CHAR
MOVE *A8,A8,L
CMP A0,A8
JRNE OSC_CONT ;BR = NOT DONE CHECKING THE LIST
SLEEP 1
JRUC DEL_CHARS_PROC
OSC_CONT
MOVE *A8(OYPOS),A14,W
CMPI DEL_Y_LIMIT,A14
JRGT CHECK_SCRN_CHAR ;BR = CHARACTER STILL ON SCREEN (SORT OF)
MOVE *A8(OLINK),A1,L
CALLA DELETE_OBJ
MOVE A1,A8
JRUC CHECK_SCRN_CHAR
COPYR
MOVI TEXTPAL,A0
MOVI BLACK_LIST,A11
CALLA FADE_ONLY
SLEEP 1
MOVI COPYRIGHTS,A8
JSRP LM_PRINTF
MOVI TEXTPAL,A0
MOVI FadeIn,A11
CALLA FADE_ONLY
SLEEP 60*5
MOVI TEXTPAL,A0
MOVI FadeOut,A11
CALLA FADE_ONLY
SLEEP 20
CALLA CLR_SCRN
MOVI TEXTPAL,A0
MOVI BRIGHT_LIST,A11
CALLA FADE_ONLY
SLEEP 1
RETP
BLACK_LIST
.WORD 0,>FFFF
BRIGHT_LIST
.WORD 128,>FFFF
COPYRIGHTS
MESS_MAC RD7FONT,2,200,80,T2_PWHITE,STRCNRM,0
**** .STRING "%c1991 MIDWAY MANUFACTURING COMPANY\n\n\n"
.STRING "%c1991\n"
.STRING "TERMINATOR| 2: JUDGMENT DAY\n"
.STRING "ENDOSKELETON|\n"
.STRING "DEPICTION OF ENDOSKELETON|\n"
.STRING "TRADEMARKS OF CAROLCO PICTURES INC. (USA & CANADA)\n"
.STRING "AND CAROLCO INTERNATIONAL N.V. (ALL OTHER COUNTRIES),\n"
.STRING "SUBLICENSED BY MIDWAY\f~\f MANUFACTURING COMPANY\n"
.STRING "FROM ACCLAIM ENTERTAINMENT, INC.\n"
.STRING "ALL RIGHTS RESERVED.\n"
.STRING "UNAUTHORIZED DUPLICATION IS STRICTLY PROHIBITED.",0
**** .LONG CR
.LONG CR
.LONG [2,0]
.LONG [-2,0]
.EVEN
CR
.WORD 127
NL EQU 25
TL EQU 30
ED EQU 50
ST EQU 10
CRED_LIST
WLL 0, 0, 0
.IF 0
WLL 25, C20, CRED1_1
WLL ED, C15, CRED1_2
WLL TL, C15, CRED2
WLL NL, M15, CRED2_1
WLL ED, M15, CRED2_2
WLL TL, C15, CRED3
WLL 0, L15, CRED4_1
WLL NL, R7, CRED4_2
WLL 0, L15, CRED5_1
WLL NL, R7, CRED5_2
WLL 0, L15, CRED6_1
WLL NL, R7, CRED6_2
WLL 0, L15, CRED7_1
WLL NL, R7, CRED7_2
WLL 0, L15, CRED8_1
WLL NL, R7, CRED8_2
WLL 0, L15, CRED9_1
WLL NL, R7, CRED9_2
WLL 0, L15, CRED10_1
WLL NL, R7, CRED10_2
WLL 0, L15, CRED11_1
WLL ED, R7, CRED11_2
WLL TL, C15, CRED12
WLL NL, M15, CRED12_1
WLL ED, M15, CRED12_2
WLL TL, C15, CRED13
WLL NL, M15, CRED13_1
WLL ED, M15, CRED13_2
WLL TL, C15, CRED14
WLL 0, L15, CRED15_1
WLL NL, R7, CRED15_2
WLL 0, L15, CRED16_1
WLL NL, R7, CRED16_2
WLL 0, L15, CRED17_1
WLL NL, R7, CRED17_2
WLL 0, L15, CRED18_1
WLL NL, R7, CRED18_2
WLL 0, L15, CRED19_1
WLL NL, R7, CRED19_2
WLL 0, L15, CRED20_1
WLL NL, R7, CRED20_2
WLL 0, L15, CRED21_1
WLL NL, R7, CRED21_2
WLL 0, L15, CRED23_1
WLL NL, R7, CRED23_2
WLL 0, L15, CRED24_1
WLL NL, R7, CRED24_2
WLL 0, L15, CRED25_1
WLL NL, R7, CRED25_2
WLL 0, L15, CRED26_1
WLL NL, R7, CRED26_2
WLL 0, L15, CRED26A_1
WLL NL, R7, CRED26A_2
WLL 0, L15, CRED27_1
WLL ED, R7, CRED27_2
WLL TL, C15, CRED28
WLL NL, M15, CRED29
WLL NL, M15, CRED30
WLL NL, M15, CRED31
WLL NL, M15, CRED32
WLL NL, M15, CRED33
WLL ED, M15, CRED34
WLL TL, C15, CRED35A
WLL NL, M15, CRED35A_1
WLL ED, M15, CRED35A_2
WLL TL, C15, CRED35
WLL ED, M15, CRED35_1
WLL TL, C15, CRED36
WLL NL, M15, CRED36_1
WLL NL, M15, CRED36_2
WLL ED, M15, CRED36_3
WLL TL, C15, CRED37
WLL NL, M15, CRED37_1
WLL ED, M15, CRED37_2
WLL TL, C15, CRED37A
WLL NL, M15, CRED37A_1
WLL ED, M15, CRED37A_2
WLL TL, C15, CRED37B
WLL NL, M15, CRED37B_1
WLL NL, M15, CRED37B_2
WLL NL, M15, CRED37B_3
WLL ED, M15, CRED37B_4
WLL TL, C15, CRED37C
WLL NL, M15, CRED37C_1
WLL NL, M15, CRED37C_2
WLL NL, M15, CRED37C_3
WLL NL, M15, CRED37C_4
WLL NL, M15, CRED37C_4A
WLL NL, M15, CRED37C_5
WLL NL, M15, CRED37C_6
WLL NL, M15, CRED37C_7
WLL NL, M15, CRED37C_8
WLL NL, M15, CRED37C_9
WLL ED, M15, CRED37C_10
WLL 50, C15, CRED38
WLL TL, C15, CRED38_1
WLL NL, M15, CRED38_2
WLL NL, M15, CRED38_3
WLL NL, M15, CRED38_4
WLL NL, M15, CRED38_5
WLL NL, M15, CRED38_6
WLL ED, M15, CRED38_7
WLL TL, C15, CRED39
WLL ED, M15, CRED39_1
WLL TL, C15, CRED39A
WLL NL, M15, CRED39A_1
WLL NL, M15, CRED39A_2
WLL ED, M15, CRED39A_3
WLL TL, C15, CRED39B
WLL ED, M15, CRED39B_1
WLL TL, C15, CRED40
WLL NL, M15, CRED41
WLL NL, M15, CRED42
WLL ED, M15, CRED43
WLL TL, C15, CRED44
WLL ED, M15, CRED44_1
WLL 50, C15, CRED45
WLL NL, M15, CRED46
WLL NL, M15, CRED47
WLL NL, M15, CRED48
WLL NL, M15, CRED49
WLL NL, M15, CRED50
WLL NL, M15, CRED51
WLL NL, M15, CRED52
WLL ED, M15, CRED52A
WLL TL, C15, CRED52B
WLL 15, M15, CRED52B_1
WLL 10, C7, CRED52B_2
WLL ED, C7, CRED52B_3
WLL TL, C15, CRED58
WLL NL, M15, CRED58_1
WLL NL, M15, CRED58_2
WLL NL, M15, CRED58_3
WLL NL, M15, CRED58_4
WLL ED, M15, CRED58_5
WLL 50, C7, CRED53
WLL NL, C20, CRED1_1
WLL ED, C15, CRED1_2
WLL TL, C15, CRED54
WLL NL, M15, CRED54_1
WLL ED, M15, CRED54_2
WLL TL, C15, CRED55
WLL ED, M15, CRED55_1
WLL TL, C15, CRED56
WLL NL, M15, CRED56_1
WLL NL, M15, CRED56_2
WLL NL, M15, CRED56_3
WLL ED, M15, CRED56_4
WLL 0, M15, CRED57
WLL 0, 0, 0
C20
MESS_MAC RD20FONT,2,200,256,T2_PWHITE,STRCNRMO,OID_CUSTOM
C15
MESS_MAC SP15FONT,2,200,256,T2_PWHITE,STRCNRMO,OID_CUSTOM
M15
MESS_MAC RD15FONT,2,200,256,T2_PWHITE,STRCNRMO,OID_CUSTOM
C7
MESS_MAC RD7FONT,2,200,256,T2_PWHITE,STRCNRMO,OID_CUSTOM
L15
MESS_MAC RD15FONT,2,14,256,T2_PWHITE,STRLNRMO,OID_CUSTOM
R7
MESS_MAC RD7FONT,2,385,260,T2_PWHITE,STRRNRMO,OID_CUSTOM
CRED1_1
.STRING "TERMINA\fTOR{ 2",0
.LONG [0,-8]
.EVEN
CRED1_2
.STRING "JUDGMENT DA\fY",0
.LONG [0,-8]
.EVEN
CRED2
.STRING "DIRECTORS",0
.EVEN
CRED2_1
.STRING "GEORGE N. PETRO",0
.EVEN
CRED2_2
.STRING "JACK E. HAEGER",0
.EVEN
CRED_GEO EQU CRED2_1
CRED_JAK EQU CRED2_2
CRED3
.STRING "GAME DESIGN",0
.EVEN
CRED4_1 EQU CRED_GEO
CRED4_2
.STRING "PROGRAM",0
.EVEN
CRED5_1 EQU CRED_JAK
CRED5_2
.STRING "GRAPHICS",0
.EVEN
CRED6_1
.STRING "TIM COMAN",0
.EVEN
CRED6_2
.STRING "GRAPHICS",0
.EVEN
CRED_TIM EQU CRED6_1
CRED7_1
.STRING "JOHN VOGEL",0
.EVEN
CRED7_2
.STRING "GRAPHICS",0
.EVEN
CRED8_1
.STRING "WARREN DAVIS",0
.EVEN
CRED8_2
.STRING "PROGRAM",0
.EVEN
CRED9_1
.STRING "WILLIAM F. DABELSTEIN, JR.",0
.EVEN
CRED9_2
.STRING "PROGRAM",0
.EVEN
CRED10_1
.STRING "CHRIS GRANNER",0
.EVEN
CRED10_2
.STRING "SOUND/MUSIC",0
.EVEN
CRED11_1
.STRING "TODD R. ALLEN",0
.EVEN
CRED11_2
.STRING "PROGRAM",0
.EVEN
CRED12
.STRING "PRODUCERS",0
.EVEN
CRED12_1
.STRING "NEIL NICASTRO",0
.EVEN
CRED12_2
.STRING "KEN FEDESNA",0
.EVEN
CRED13
.STRING "BASED ON THE STORY BY",0
.EVEN
CRED13_1
.STRING "JAMES CAMERON &",0
.EVEN
CRED13_2
.STRING "WILLIAM WISHER",0
.EVEN
CRED14
.STRING "CAST",0
.EVEN
CRED15_1
.STRING "ARNOLD SCHWARZENEGGER",0
.EVEN
CRED15_2
.STRING "TERMINATOR",0
.EVEN
CRED16_1
.STRING "ROBERT PATRICK",0
.EVEN
CRED16_2
.STRING "T-1000",0
.EVEN
CRED17_1
.STRING "EDDIE FURLONG",0
.EVEN
CRED17_2
.STRING "JOHN CONNOR",0
.EVEN
CRED18_1
.STRING "PETER KENT",0
.EVEN
CRED18_2
.STRING "TERMINATOR",0
.EVEN
CRED19_1
.STRING "DEBBIE EVANS",0
.EVEN
CRED19_2
.STRING "SARAH CONNOR",0
.EVEN
CRED20_1
.STRING "DOUG WATSON",0
.EVEN
CRED20_2
.STRING "FUTURE SOLDIER",0
.EVEN
CRED21_1
.STRING "TANYA MULDERINK",0
.EVEN
CRED21_2
.STRING "FUTURE SOLDIER",0
.EVEN
CRED23_1
.STRING "KEN MORENO",0
.EVEN
CRED23_2
.STRING "SWAT/CLEAN ROOM GUY",0
.EVEN
CRED24_1 EQU CRED_JAK
CRED24_2
.STRING "HIDEOUT HUMAN",0
.EVEN
CRED25_1 EQU CRED_TIM
CRED25_2
.STRING "HIDEOUT GUNNER",0
.EVEN
CRED26_1
.STRING "MATT COONEY",0
.EVEN
CRED26_2
.STRING "HIDEOUT KID",0
.EVEN
CRED26A_1
.STRING "STEPHANIE ROGERS",0
.EVEN
CRED26A_2
.STRING "VOICE OF SKYNET",0
.EVEN
CRED27_1
.STRING "SPARKY",0
.EVEN
CRED27_2
.STRING "HIDEOUT DOG",0
.EVEN
CRED28
.STRING "HARDWARE",0
.EVEN
CRED29
.STRING "MARK LOFFREDO",0
.EVEN
CRED30
.STRING "CARY MEDNICK",0
.EVEN
CRED31
.STRING "RICH KARSTENS",0
.EVEN
CRED32
.STRING "GLENN SHIPP",0
.EVEN
CRED33
.STRING "PAT COX",0
.EVEN
CRED34
.STRING "RAYMOND GAY",0
.EVEN
CRED35A
.STRING "GUN DESIGN",0
.EVEN
CRED35A_1
.STRING "RAY CZAJKA &",0
.EVEN
CRED35A_2
.STRING "JERRY PINSLER",0
.EVEN
CRED35
.STRING "CABINET DESIGN",0
.EVEN
CRED35_1
.STRING "RAY CZAJKA",0
.EVEN
CRED36
.STRING "CABINET GRAPHICS",0
.EVEN
CRED36_1 EQU CRED_JAK
CRED36_2
.STRING "BRUCE SIEGEL",0
.EVEN
CRED36_3
.STRING "KEVIN O'CONNOR",0
.EVEN
CRED37
.STRING "PRODUCTION SUPPORT",0
.EVEN
CRED37_1
.STRING "SHERIDAN OURSLER",0
.EVEN
CRED37_2
.STRING "AL LASKO",0
.EVEN
CRED37A
.STRING "MARKETING",0
.EVEN
CRED37A_1
.STRING "ROGER SHARPE",0
.EVEN
CRED37A_2
.STRING "REBECCA ELLIS",0
.EVEN
CRED37B
.STRING "SALES",0
.EVEN
CRED37B_1
.STRING "JOE DILLON",0
.EVEN
CRED37B_2
.STRING "LESLEY ROSS",0
.EVEN
CRED37B_3
.STRING "BOB LENTZ",0
.EVEN
CRED37B_4
.STRING "RACHEL DAVIES",0
.EVEN
CRED37C
.STRING "THANKS TO",0
.EVEN
CRED37C_1
.STRING "JIM PATLA",0
.EVEN
CRED37C_2
.STRING "WALLY SMOLUCHA",0
.EVEN
CRED37C_3
.STRING "CHIP DROLETT",0
.EVEN
CRED37C_4
.STRING "BEN RODRIQUEZ",0
.EVEN
CRED37C_4A
.STRING "KAREN TRYBULA",0
.EVEN
CRED37C_5
.STRING "ED BOON",0
.EVEN
CRED37C_6
.STRING "ALISON QUANT",0
.EVEN
CRED37C_7
.STRING "MATT BOOTY",0
.EVEN
CRED37C_8
.STRING "JOE JOOS",0
.EVEN
CRED37C_9
.STRING "LESLIE PETRO",0
.EVEN
CRED37C_10
.STRING "CAROL DECROIX",0
.EVEN
CRED38
.STRING "T-1000 SPECIAL EFFECTS\nAND ENDOSKELETON",0
.EVEN
CRED38_1
.STRING "STAN WINSTON STUDIOS",0
.EVEN
CRED38_2
.STRING "STAN WINSTON",0
.EVEN
CRED38_3
.STRING "TARA MEANEY CROCITTO",0
.EVEN
CRED38_4
.STRING "JOHN ROSENGRANT",0
.EVEN
CRED38_5
.STRING "CHRISTIAN COWAN",0
.EVEN
CRED38_6
.STRING "IAN STEVENSON",0
.EVEN
CRED38_7
.STRING "DAVID GRASSO",0
.EVEN
CRED39
.STRING "FUTURE HUNTER KILLERS",0
.EVEN
CRED39_1
.STRING "FANTASY II FILM EFFECTS INC.",0
.EVEN
CRED39A
.STRING "COSTUMES",0
.EVEN
CRED39A_1
.STRING "GREG HALL",0
.EVEN
CRED39A_2
.STRING "DAWN Y. LINE",0
.EVEN
CRED39A_3
.STRING "KATE AT TASK FORCE",0
.EVEN
CRED39B
.STRING "CA\fTERING",0
.LONG [0,-3]
.EVEN
CRED39B_1
.STRING "GALA CATERING",0
.EVEN
CRED40
.STRING "WEST COAST VIDEO CREW",0
.EVEN
CRED41
.STRING "ED MARSH",0
.EVEN
CRED42
.STRING "DAVE HUDSON",0
.EVEN
CRED43
.STRING "ANDERS FALK",0
.EVEN
CRED44
.STRING "ADDITIONAL SOUND SUPPORT",0
.EVEN
CRED44_1
.STRING "LEE ORLOFF",0
.EVEN
CRED45
.STRING "SPECIAL THANKS TO\nLIGHTSTORM ENTERTAINMENT",0
.EVEN
CRED46
.STRING "JAMES CAMERON",0
.EVEN
CRED_CAM EQU CRED46
CRED47
.STRING "LARRY KASANOFF",0
.EVEN
CRED48
.STRING "VAN LING",0
.EVEN
CRED49
.STRING "B.J. RACK",0
.EVEN
CRED50
.STRING "STEPHANIE AUSTIN",0
.EVEN
CRED51
.STRING "GEOFFREY BURDICK",0
.EVEN
CRED52
.STRING "ALEXANDRA DROBAC",0
.EVEN
CRED52A
.STRING "STEVEN QUALE",0
.EVEN
CRED52B
.STRING "SPECIAL THANKS",0
.EVEN
CRED52B_1
.STRING "INDUSTRIAL LIGHT & MAGIC",0
.EVEN
CRED52B_2
.STRING "A DIVISION OF LUCAS ARTS ENTERTAINMENT COMPANY",0
.EVEN
CRED52B_3
.STRING "MARIN COUNTY, CALIFORNIA",0
.EVEN
CRED53
.STRING "MIDWAY MANUFACTURING WISHES TO THANK\n"
.STRING "THE CREATORS OF THE MOTION PICTURE",0
.EVEN
CRED54
.STRING "EXECUTIVE PRODUCERS",0
.EVEN
CRED54_1
.STRING "GALE ANNE HURD",0
.EVEN
CRED54_2
.STRING "MARIO KASSAR",0
.EVEN
CRED55
.STRING "PRODUCER\f/\fDIRECTOR",0
.LONG [2,0]
.LONG [-2,0]
.EVEN
CRED55_1 EQU CRED_CAM
CRED56
.STRING "STARRING",0
.EVEN
CRED56_1
.STRING "ARNOLD SCHWARZENEGGER",0
.EVEN
CRED56_2
.STRING "LINDA HAMILTON",0
.EVEN
CRED56_3
.STRING "EDDIE FURLONG",0
.EVEN
CRED56_4
.STRING "ROBERT PATRICK",0
.EVEN
CRED57
.STRING "PRODUCED BY CAROLCO PICTURES, INC.\nAND A TRI-STAR RELEASE",0
.EVEN
CRED58
.STRING "CAROLCO LICENSING",0
.EVEN
CRED58_1
.STRING "DANNY SIMON",0
.EVEN
CRED58_2
.STRING "LISA LOCKHART",0
.EVEN
CRED58_3
.STRING "PAMELA HARRIS",0
.EVEN
CRED58_4
.STRING "LESLIE BUHLER",0
.EVEN
CRED58_5
.STRING "BENITA KARROLL",0
.EVEN
.ENDIF