historicalsource
/
wwf-wrestlemania
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
wwf-wrestlemania/ATTR.ASM

3939 lines
66 KiB
NASM
Executable File
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.

****************************************************************
*
* Software: ?
* Initiated: ?
*
* Modified: Shawn Liptak 8/6/91 - Hiscore display and entry (Total carnage)
* Shawn Liptak 11/9/91 - Title screen
* Shawn Liptak 2/7/92 - Stripped for basketball
* Jason Skiles 12/9/93 - Stripped for WWF
*
* COPYRIGHT (C) 1992 WILLIAMS ELECTRONICS GAMES, INC.
*
*.Last mod - 12/9/93 12:35
****************************************************************
.file "attract.asm"
.title "attract mode"
.width 132
.option b,d,l,t
.mnolist
.include "mproc.equ"
.include "display.equ"
.include "sys.equ"
.include "gsp.equ"
.include "macros.h"
.include "game.equ"
.include "audit.equ"
.include "link.equ"
.include "sound.h"
.include "imgtbl.glo"
.include "crowdimg.glo"
.include "fontsimg.glo"
.include "miscimg.glo"
.include "bgndtbl.glo"
.include "ropeimg.glo"
.include "logo.tbl"
.include "logo.glo"
.include "dip.equ"
******************************************************************************
* EXTERNAL REFERENCES
.ref ADJ_PAGE,BAKMODS,BEATEN_TAB_ENTRIES,BGND_UD1
.ref BLOW_0_TO_1,CLOSE_PROGRESS_SCREEN,CRD_SCRN2
.ref DELETE_ANY_OFF_TOP,DUMRETS,GAMSTATE,HALT,GET_ADJ
.ref IRQSKYE,MOVE_ALL_OBJS_UP,RC_BYTEI,RD7FONT
.ref RESET_FROM_PIXEL_WIPE,RNDRNG0,RNDRNGS,RemapIO
.ref SET_UP_PIXEL_WIPE,SOUNDSUP,SPECIAL_WIPEOUT,STOP_ALL_OBJS
.ref STRCNRMO_2,WHICH_SCREEN,WIPEOUT
.ref copy_string,current_round
.ref dec_to_asc,dpageflip,draw_each_beaten_table_entry,fade_down
.ref fade_up,get_all_buttons_cur2,index1,match_cnt
.ref mess_cursx,mess_cursy,mess_line_spacing,nosounds
.ref p1rounds,p2rounds,page_addr,pal_clean,pal_getf,print_beaten
.ref print_hscores,print_string2,print_string_C2
.ref print_winstreaks,setup_message,start_match
.ref starting_num,table_cmos_check,total_matches,triple_sound
.ref wrestler_mugs2,set_volume,INIT_LADDER_TABLE
.ref wsf14_ascii,wsf10_ascii,print_string
.ref message_ascii,mess_cursx2
.ref osgemd_ascii,LADDER,CURRENT_LADDER,NUM_OPPS
.ref hscore_colcyc2,ogmd10_ascii,CLOSE_SCREEN_LINE
.ref OPEN_SCREEN_LINE,HORZTRN1,HORZTRN2,TOP_LEFT
.ref BOT_RIGHT,LINES,not_blank,doing_dcs_reset,QSNDRST
.REF MUSIC_HAP,JUDDER_SHADOW
.REF DRKTRPLTP
.ref STRCNRMO_1
.ref _clk_rd
.ref _auto_update_save
.ref _GetTime
.ref print_message
.ref concat_string
.ref concat_rom_string
.ref print_string_C
.ref print_string_C2
.ref copy_rom_string
.ref wgsf24_ascii
.ref wsf14_ascii
.ref WSF_R_P
.ref _tseconds
.ref _tminutes
.ref _thours
.ref _tday
.ref _tdate
.ref _tmonth
.ref _tyear
.ref WHERE_WRESTLMANIA_SPARKLES,SPRINKLE_GLINTS
.ref RANDOM_SPARKLE
.ref READ_DIP
.globl hstd_mod
.ref print_inter,belt_type
.ref draw_each_inter_table_entry
.ref INTER_TAB_ENTRIES
.REF print_tag
.REF RNDPER
.REF MAYBE_TOUGH_ENOUGH
.ref osgmd8_ascii,SGMD8WHT
.ref story_bgnd
.ref hscore_colcyc,hscore_colcyc2
******************************************************************************
;symbols defined externally
;ram
BSSX hisclong ,16 ;!0=Show hiscore table longer
BSSX SHOW_CRD_FLAG,16 ;Show credits in amode gameplay
.bss cycram ,8*2*16 ;Palette cycle mem
.bss cycram2 ,7*2*16 ;^
; .bss team_cnts ,32 ;left team cnt, +16=rgt team cnt
; .bss stick ,32 ;stick ram for team selection
; .bss loop, 16 ;
.bss TEMP,16
.BSS AMODE_LOOPS,16
.BSS DCS_PAL,16
.BSS DCS_BIT_TABLE,(32*7)*(31*44)
.BSS LOGOMOD_START,(40H*20)+32
.BSS LOGOMOD_END,0
.bss bios_type,16
.bss nb_save,16
.text
********************************
* Attract mode (Process)
SUBR attract_mode
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
;let the sound board reset finish up.
SLEEPK 8
clr a3
calla SNDSND
movi INAMODE,a14 ;set GAMSTATE
move a14,@GAMSTATE
clr a0 ;clear matches since attmode cntr
move a0,@total_matches,W
MOVE A0,@AMODE_LOOPS
MOVE A0,@MUSIC_HAP
movk 1,a0
move a0,@dpageflip ;page flipping on
calla display_unblank
JSRP dan_test
; ;temp!
;#foo JSRP DO_HINTS
; jruc #foo
#loop
* Please, stop messing with this ! If you want it changed, ask me ! - Jake
JSRP show_hstd
;TEST PURPOSES ONLY
; .ref show_wrestler_end_story
; .ref which_player
; .ref PSTATUS
;
; clr a14
; move a14,@PSTATUS
;
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 1,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 2,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 3,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 4,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 5,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 6,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
; movk 8,a14
; move a14,@which_player
; JSRP show_wrestler_end_story
;
;END TEST
JSRP DCS_LOGO
; JSRP show_sports_logo
JSRP show_gameplay
JSRP creditscreen
JSRP show_title
JSRP show_gameplay
JSRP creditscreen
JSRP DO_HINTS
JSRP show_gen_tips
JSRP show_bios
movk 1,a14
move a14,@bios_type
move @next_bio,a14
move a14,@nb_save
dec a14
andi 7,a14
move a14,@next_bio
movi story_bgnd,a0
JSRP show_bios_tips
clr a14
move a14,@bios_type
move @nb_save,a14
move a14,@nb_save
JSRP show_operatormsg
calla RemapIO ;Remap the I/O
MOVE @AMODE_LOOPS,A0
INC A0
MOVE A0,@AMODE_LOOPS
btst 0,a0
jrnz #loop
JSRP creditscreen
; JSRP show_hstd
JSRP show_time_date
MOVE @AMODE_LOOPS,A0
andk 7,a0
jrnz #loop
JSRP show_copyright
JSRP aama_message
clr a0
move a0,@AMODE_LOOPS
move a0,@SOUNDSUP ;turn all sounds on
jruc #loop
aama_message
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
clr a0
move a0,@HALT
move a0,@dtype ;2d mode
move a0,@IRQSKYE
clr a0 ;movk 1,a0 ;page flipping on
move a0,@dpageflip
SLEEPK 2
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
; movi hstd_mod,a0
; move a0,@BAKMODS,L
; calla BGND_UD1 ;create objects for background
;
; SLEEPK 2
; calla display_unblank
movi blue_grad_pal,a0
JSRP do_the_grad_thang
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln1,a8
movi [54+60-20,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln2,a8
movi [54+60,>b1],a9
JSRP STRCNRMO_2
clr a0
movi [>0606,0000],a6 ;pal 0, color 17
movi #ln2b,a8
movi [54+60,>104],a9
JSRP STRCNRMO_2
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln3,a8
movi [54+71,200],a9
JSRP STRCNRMO_2
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln4,a8
movi [54+82,200],a9
JSRP STRCNRMO_2
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln5,a8
movi [54+93,200],a9
JSRP STRCNRMO_2
clr a10
movk 8,a11
CREATE FADE_PID,fade_up
movk 1,a0
move a0,@DISPLAYON
SLEEPK 2
calla display_unblank
;Explanation - We MUST allow the fade process created above
;to finish because if someone wacks out below, the fade
;process is still running and JakeO's code to do his wipe
;across the screen stuff for the high score table starts running.
;His code uses the FADERAM area for those screen wipes and if a fader
;is running, the data in those areas gets changed by the fader process.
;Unfortunately, some of the data he is using is used as pointers in a
;memory to memory copy loop and if those values get changed the memory to
;memory copy goes haywire and starts scribbling all over the place causing
;a lockup. NOTE - The errant writes CAN and do occur into the CMOS area.
;There are 4 ways to solve the problem.
;
; 1. Guarentee that the fader is allowed to run to completion.
;
; 2. Kill off the fader after wacking out.
;
; 3. Use a different area of memory for the screen wipes.
;
; 4. Shoot Jake.
;
;Not wanting to go to jail I chose option 3 cause we got plenty of memory.
;
SLEEPK 20
movi 4*TSEC,a10
JSRP wait_on_butn
; clr a10
; movk 16,a11
; CREATE FADE_PID,fade_down
;
; SLEEP TSEC
;
; calla display_blank
RETP
; movi CLSNEUT|TYPTEXT|SUBTXT,a0
; calla obj_del1c
; calla display_on
; calla view_page_0
; movi >40*6,a10
; JSRP fadein_jsrp
; jruc amode_fade_retp
; RETP
#ln1 .string "AAMA PARENTAL ADVISORY",0
#ln2 .string "LIFE-LIKE VIOLENCE",0
#ln2b .string "- MILD",0
#ln3 .string "CONTAINS SELECTED SCENES INVOLVING",0
#ln4 .string "HUMAN-LIKE CHARACTERS ENGAGED IN",0
#ln5 .string "COMBATIVE ACTIVITY.",0
.byte 0
.even
do_the_grad_thang
calla pal_getf
SLEEPK 2
clr a3
movi >00000101,a1
movi 31,a10
loop movi >00020190,a2
movi >2000000,a4
movi >800c,a5
calla QDMAN ;dman
addi >01010000,a1
addi >00020000,a3
dsj a10,loop
addi >00840000,a3
movi 32,a10
loop2 movi >00020190,a2
movi >2000000,a4
movi >800c,a5
calla QDMAN ;dman
subi >01010000,a1
addi >00020000,a3
dsj a10,loop2
SLEEPK 4
RETP
**************************************************************************
* *
* dman - manual dma, all regs must be setup upon calling *
* a1 = [constant color,palette] *
* a2 = size [h,w] *
* a3 = destination [y,x] *
* a4 = starting address *
* a5 = [offset,control] *
* *
**************************************************************************
dman
*manual dma (setup your own regs)
*inputs:
*a1: constant color:palette
*a2: vsize:hsize
*a3: destination y:x
*a4: sag
*a5: offset:control
qdman:
MMTM sp,a2,a4,a13
jruc qdma1
**************************************************************************
* *
* dma queue support routines *
* *
**************************************************************************
*
* qdma puts image on dma q
* inputs:
* a1: constant color:palette
* a3: destination y:x
* a5: offset:control
* a14: address of image header
* gets: a2=h/w; a4=sag
*
;qdma
; mmtm sp,a2,a4,a13
; move *a14,a2,l ;get vsize:hsize
; move *a14(isag),a4,l ;get sag
qdma1
; movk 1,a13
; move a13,@qdmaflg,w ;q being modified
.ref DMAQCUR,DMAQ
move @DMAQCUR,a13,L
cmpi DMAQ,a13
jrls qdmax ;q overload, can it
mmtm a13,a1,a2,a3,a4,a5
move a13,@DMAQCUR,L
; clr a13
; move a13,@qdmaflg,w
qdmax MMFM sp,a2,a4,a13
rets
;*************************************************************************
blue_grad_pal
.word 32
.word 31
.word 30
.word 29
.word 28
.word 27
.word 26
.word 25
.word 24
.word 23
.word 22
.word 21
.word 20
.word 19
.word 18
.word 17
.word 16
.word 15
.word 14
.word 13
.word 12
.word 11
.word 10
.word 9
.word 8
.word 7
.word 6
.word 5
.word 4
.word 3
.word 2
.word 1
.word 0
************ clear screen routine *********************
;clr_scrn
; clr a0
; mmtm sp,a1,a2,a3
; move @displayon,a3,w
; clr a1
; move a1,@displayon,w
;; callr dmaqwait ;wait on dma
; clr a1
; move a1,@cmapsel,w ;select color map 0
; movi screen,a1,l
; movi ((scrne-2000h)-screen)/32,a2,l
;clrlp move a0,*a1+,l
; dsjs a2,clrlp
; move a3,@displayon,w
; mmfm sp,a1,a2,a3
; rets
#****************************************************************
* show_gameplay
SUBRP show_gameplay
movk 1,a0
move a0,@current_round
move a0,@match_cnt
move a0,@p1rounds
move a0,@p2rounds
movk 7,a0
calla RNDRNG0
cmpi 7,a0
jrnz #bug
inc a0
#bug move a0,@index1
;initialize NUM_OPPS and CURRENT_LADDER
;choose at random a battle between #2 and #6 on the ladder
clr a14
move a14,@belt_type
calla INIT_LADDER_TABLE
movk 5,a0
calla RNDRNG0
addk 1,a0
X32 a0
addi LADDER,a0
move a0,@CURRENT_LADDER,L
move *a0,a14,L
srl 24,a14
move a14,@NUM_OPPS
CALLR TURN_SOUNDS_OFF_IF_NEED
JSRP CLOSE_PROGRESS_SCREEN
calla SPECIAL_WIPEOUT
;Eventually, we should show just quick clips of cool gameplay.
movk 1,a0
move a0,@SHOW_CRD_FLAG
CALLR TURN_SOUNDS_OFF_IF_NEED
CREATE AMODE_GAMEPLAY_PID,start_match
CALLA MAYBE_TOUGH_ENOUGH
SLEEP 3*60
movi 10*TSEC,a10
JSRP wait_on_butn
;Freeze action in interesting spots...
;knockout processes
movk 1,a0
move a0,@HALT
;Stop wrestler procs
;Stop sweat
;Allow shadows to still shake
CREATE0 DO_SET_IMAGES
movi ACTIVE,a3,L
#lp move *a3,a3,L ;Get next
jrz #x ;End?
move *a3(PWAKE),a0,L
.ref DO_SET_IMAGES
cmpi DO_SET_IMAGES,a0
jrz #lp
move *a3(PTIME),a14 ;Add sleep
addi 3*60,a14
move a14,*a3(PTIME)
jruc #lp
#x
SLEEP 60
;fade down
clr a10
movk 16,a11
CREATE FADE_PID,fade_down
SLEEPK 32
calla display_blank
clr a0
move a0,@SHOW_CRD_FLAG
CALLA nosounds
RETP
TURN_SOUNDS_OFF_IF_NEED
ADJUST ADJMUSIC
JRNZ TURN_OFF_SOUNDS
MOVE @AMODE_LOOPS,A0
CMPI 2,A0
JRLT SOUNDS_SHOULD_BE_ON
TURN_OFF_SOUNDS
MOVK 2,A0
MOVE A0,@SOUNDSUP
SOUNDS_SHOULD_BE_ON
RETS
#****************************************************************
* Show an operator message if one has been entered
STRUCTPD
WORD som_string
SUBR show_operatormsg
calla ADJ_PAGE
movk CMESS_LINES,a2 ;>Check for a message
movi CUSTOM_MESSAGE,a7
#cmlp
calla RC_BYTEI
jrnz #msg
addi CMESS_LINE_SIZE,a7
dsj a2,#cmlp
jruc #x
#msg
JSRP GENERIC_DISPLAY
movk CMESS_LINES,a2 ;>Check for a message
movi CUSTOM_MESSAGE,a7
movi [50,200],a9
#prtlp
PUSHP a2,a7
calla ADJ_PAGE
move a13,a2
addi som_string,a2
#getlp calla RC_BYTEI
movb a0,*a2
addk 8,a2
move a0,a0
jrnz #getlp
movi GOLD,a0
calla pal_getf
move a0,a6
move a13,a8
addi som_string,a8
clr a0
movk 1,a10
movi osgfont_t,a11
PUSHP a9
JSRP STRCNRMO_1
PULLP a9
movi OBJLST,a14
#olp move *a14,a14,L ;A14=*Next
jrz #oend
move *a14(ODATA_p),a0,L
jrnz #olp
movi [>320,>320],a1
move a1,*a14(ODATA_p),L
jruc #olp
#oend
; PUSHP a6
; SLEEPK 30
; PULLP a6
PULLP a2,a7
#nxt
addi [45,0],a9
addi CMESS_LINE_SIZE,a7
dsj a2,#prtlp
SLEEP 2*60
movi 6*TSEC,a10
JSRP wait_on_butn
JSRP scrn_scaleout
calla WIPEOUT
#x RETP
#*****************************************************************************
.def osgfont_t
osgfont_t
.long OSGEMD_EXP,OSGEMD_APO,OSGEMD_NUM,OSGEMD_DOL ;!"#$
.long OSGEMD_SPC,OSGEMD_AND,OSGEMD_APO,OSGEMD_OBR ;%&'(
.long OSGEMD_CBR,OSGEMD_SPC,OSGEMD_SPC,OSGEMD_SPC ;)*+,
.long OSGEMD_DAS,OSGEMD_DOT,OSGEMD_SLS ;-./
.long OSGEMD_0,OSGEMD_1,OSGEMD_2,OSGEMD_3,OSGEMD_4
.long OSGEMD_5,OSGEMD_6,OSGEMD_7,OSGEMD_8,OSGEMD_9
.long OSGEMD_COL,OSGEMD_SPC,OSGEMD_SPC,OSGEMD_SPC ;:;<=
.long OSGEMD_SPC,OSGEMD_QUE,OSGEMD_SPC ;>?@
.long OSGEMD_A,OSGEMD_B,OSGEMD_C,OSGEMD_D
.long OSGEMD_E,OSGEMD_F,OSGEMD_G,OSGEMD_H
.long OSGEMD_I,OSGEMD_J,OSGEMD_K,OSGEMD_L
.long OSGEMD_M,OSGEMD_N,OSGEMD_O,OSGEMD_P
.long OSGEMD_Q,OSGEMD_R,OSGEMD_S,OSGEMD_T
.long OSGEMD_U,OSGEMD_V,OSGEMD_W,OSGEMD_X
.long OSGEMD_Y,OSGEMD_Z
.long OSGEMD_SPC,OSGEMD_SPC,OSGEMD_SPC,OSGEMD_END ;[\]^
.long OSGEMD_BAK,OSGEMD_SPC,OSGEMD_SPC ;_`
#*****************************************************************************
* Show credits screen
*
SUBRP creditscreen
calla pal_clean
movk 1,a10
JSRP CRD_SCRN2
movi AMODE_PID,a0
move a0,*a13(PROCID)
;fade down
; clr a10
; movk 16,a11
; CREATE0 fade_down
;
; SLEEP TSEC
RETP
#*****************************************************************************
* Show time and date
*
SUBRP show_time_date
calla READ_DIP
btst DPTDON_B,a0
jrz #std_exit
move @_clk_rd,a8,L ;Save current auto update state
move a8,@_auto_update_save,L
clr a8 ;Enable auto update
move a8,@_clk_rd,L
JSRP _GetTime
SLEEPK 30
JSRP GENERIC_DISPLAY
movi #date_time_prompt,a2
calla print_message
movi #day_of_week_setup,a2
calla setup_message
move @_tday,a4
cmpi 1,a4
jrlt #bad_day
cmpi 8,a4
jrlt #do_day
#bad_day
movk 1,a4
#do_day
subk 1,a4
sll 5,a4
addi #day_of_week_table,a4
move *a4,a4,L
calla print_string_C2
move @_tmonth,a4
cmpi 1,a4
jrlt #bad_month
cmpi 13,a4
jrlt #do_month
#bad_month
movk 1,a4
#do_month
subk 1,a4
sll 5,a4
addi #month_table,a4
move *a4,a4,L
calla copy_rom_string
move @_tdate,a0
cmpi 1,a0
jrlt #bad_date
cmpi 32,a0
jrlt #do_date
#bad_date
movk 1,a0
#do_date
movi 31,a1
calla dec_to_asc
calla concat_string
movi #d_sep,a4
calla concat_rom_string
move @_tyear,a0
jrn #bad_year
cmpi 99,a0
jrlt #do_year
#bad_year
clr a0
#do_year
cmpi 9,a0
jrgt #year_gt_9
movi #zero_year,a4
PUSHP a0
calla concat_rom_string
PULLP a0
#year_gt_9
movi 99,a1
calla dec_to_asc
calla concat_string
movi #date_setup,a2
calla setup_message
calla print_string_C
move @_thours,a0
jrn #bad_hour
cmpi 24,a0
jrlt #do_hour
#bad_hour
clr a0
#do_hour
movi 12,a1
modu a1,a0
jrnz #not_mid_or_noon
movk 12,a0
#not_mid_or_noon
movi 13,a1
calla dec_to_asc
calla copy_string
movi #t_sep,a4
calla concat_rom_string
move @_tminutes,a0
jrn #bad_minute
cmpi 60,a0
jrlt #do_minute
#bad_minute
clr a0
#do_minute
cmpi 9,a0
jrgt #min_gt_9
movi #zero_year,a4
PUSHP a0
calla concat_rom_string
PULLP a0
#min_gt_9
movi 60,a1
calla dec_to_asc
calla concat_string
movi #time_setup,a2
calla setup_message
calla print_string_C
movi #its_time_to_message,a2
calla print_message
movi #wrestlemania_message,a2
calla print_message
SLEEPK 25 ; Min time to display
movi TSEC*5,a2
#wait_loop
PUSHP a2
SLEEPK 1
PULLP a2
calla get_all_buttons_cur2
jrnz #time_date_done
dsjs a2,#wait_loop
#time_date_done
; move @_auto_update_save,a8,L ;Restore Auto Update state
clr a8
not a8
move a8,@_clk_rd,L
#std_exit
RETP
#date_time_prompt
JAM_STR ogmd10_ascii,10,0,200,40,SGMD8GLD,print_string_C2
.string "THE DATE AND TIME IS...",0
.even
#its_time_to_message
JAM_STR ogmd10_ascii,10,0,200,150,SGMD8GLD,print_string_C2
.string "THAT MEANS IT'S TIME TO PLAY...",0
.even
#wrestlemania_message
JAM_STR wgsf24_ascii,10,0,200,180,WGFS_W_P,print_string_C2
.string "WRESTLEMANIA",0
.even
#day_of_week_setup
JAM_STR wsf14_ascii,10,0,200,72,WSF_R_P,print_string_C2
.even
#date_setup
JAM_STR wsf14_ascii,10,0,200,92,WSF_R_P,print_string_C2
.even
#time_setup
JAM_STR wsf14_ascii,10,0,200,112,WSF_R_P,print_string_C2
.even
#d_sep
.string ", 19",0
.even
#t_sep
.string ":",0
.even
#zero_year
.string "0",0
.even
#monday_str
.string "MONDAY",0
.even
#tuesday_str
.string "TUESDAY",0
.even
#wednesday_str
.string "WEDNESDAY",0
.even
#thursday_str
.string "THURSDAY",0
.even
#friday_str
.string "FRIDAY",0
.even
#saturday_str
.string "SATURDAY",0
.even
#sunday_str
.string "SUNDAY",0
.even
#january_str
.string "JANUARY ",0
.even
#february_str
.string "FEBRUARY ",0
.even
#march_str
.string "MARCH ",0
.even
#april_str
.string "APRIL ",0
.even
#may_str
.string "MAY ",0
.even
#june_str
.string "JUNE ",0
.even
#july_str
.string "JULY ",0
.even
#august_str
.string "AUGUST ",0
.even
#september_str
.string "SEPTEMBER ",0
.even
#october_str
.string "OCTOBER ",0
.even
#november_str
.string "NOVEMBER ",0
.even
#december_str
.string "DECEMBER ",0
.even
#day_of_week_table
.long #sunday_str
.long #monday_str
.long #tuesday_str
.long #wednesday_str
.long #thursday_str
.long #friday_str
.long #saturday_str
#month_table
.long #january_str
.long #february_str
.long #march_str
.long #april_str
.long #may_str
.long #june_str
.long #july_str
.long #august_str
.long #september_str
.long #october_str
.long #november_str
.long #december_str
#*****************************************************************************
SUBRP show_copyright
calla display_blank
calla WIPEOUT
clr a0
move a0,@dtype ;2D
movk 1,a0 ;page flipping on
move a0,@dpageflip
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
move a0,@IRQSKYE
SLEEPK 2
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln1,a8
movi [50+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln2,a8
movi [62+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln3,a8
movi [74+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln4,a8
movi [86+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln5,a8
movi [98+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln6,a8
movi [110+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln7,a8
movi [122+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln8,a8
movi [134+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln9,a8
movi [146+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
movi [200,0],a0
movi [4bh-10,0],a1
movi SMWWF2,a2 ;* image
movi 20000,a3
movi DMAWNZ|M_NOCOLL,a4
movi CLSDEAD,a5
clr a6
clr a7
calla BEGINOBJ
clr a10
movk 8,a11
CREATE FADE_PID,fade_up
movk 1,a0
move a0,@DISPLAYON
SLEEPK 2
calla display_unblank
SLEEPK 20
movi 3*TSEC,a10
JSRP wait_on_butn
movi CLSNEUT|TYPTEXT|SUBTXT,a0
calla obj_del1c
clr a0
movi [>1111,0000],a6 ;pal 0, color 17
movi #ln10,a8
movi [50+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln11,a8
movi [62+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln12,a8
movi [74+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln13,a8
movi [86+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln14,a8
movi [98+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln15,a8
movi [110+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln16,a8
movi [122+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln17,a8
movi [134+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln18,a8
movi [146+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
clr a0
movi #ln19,a8
movi [158+60,200],a9
movk 1,a10
movi RD7FONT,a11
JSRP STRCNRMO_2
SLEEPK 20
movi 3*TSEC,a10
JSRP wait_on_butn
RETP
#ln1 .string "VIDEO GAME SOFTWARE DESIGNED AND DEVELOPED",0
#ln2 .string "BY MIDWAY MANUFACTURING COMPANY",0
#ln3 .string "(C) 1995 ASSIGNED TO ACCLAIM ENTERTAINMENT, INC.",0
#ln4 .string "[ (C) 1995 TITANSPORTS, INC. ]",0
#ln5 .string "ALL DISTINCTIVE NAMES AND CHARACTER LIKENESSES",0
#ln6 .string "USED HEREIN ARE TRADEMARKS OF TITANSPORTS, INC.",0
#ln7 .string "SUBLICENSED BY MIDWAY MANUFACTURING COMPANY",0
#ln8 .string "FROM ACCLAIM ENTERTAINMENT INC.",0
#ln9 .string "ALL RIGHTS RESERVED.",0
#ln10 .string "'WRESTLEMANIA'",0
#ln11 .string "COMPOSED/PERFORMED BY MICHAEL STOCK,",0
#ln12 .string "PETER WATERMAN, JAMES HART & J.J. MAGUIRE",0
#ln13 .string "COURTESY OF TITANSPORTS INC. USED BY PERMISSION -",0
#ln14 .string "ALL RIGHTS RESERVED",0
#ln15 .string "'WRESTLEMANIA' BY WWF SUPERSTARS. (P) 1993 THE",0
#ln16 .string "COPYRIGHT IN THIS SOUND RECORDING IS OWNED BY",0
#ln17 .string "BMG EURODISC LIMITED AND IS USED BY PERMISSION.",0
#ln18 .string "COMPOSED BY STOCK/WATERMAN/WWF AND PUBLISHED BY",0
#ln19 .string "BMG MUSIC PUBLISHING LTD./ALL BOYS MUSIC LTD.",0
.EVEN
#********************************************************
*
* Print general tips
*
SUBRP print_gen_tips
movi #gen_tip_mes,a2
calla print_message
MOVI [10,0],A0
MOVI [21,0],A1
movi MVEBAR_R,a2
movi 1799H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
MOVI [13,0],A0
MOVI [21+9,0],A1
movi SHADOW01,a2
movi 1799H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
CREATE FLASH_PID,JUDDER_SHADOW
movi #gen_tip_table,a1
movi 60,a3
#sgt_loop
move *a1+,a4,L
jrz #done
PUSHP a1,a3
calla copy_rom_string
movi #gt_line_setup,a2
calla setup_message
move a3,@mess_cursy
calla print_string_C
PULLP a1,a3
addk 15,a3
jruc #sgt_loop
#done
calla hscore_colcyc
; calla hscore_colcyc2
RETP
#gt_line_setup
JAM_STR ogmd10_ascii,6,0,200,90,SGMD8YEL,print_string
.even
#gen_tip_mes
JAM_STR osgemd_ascii,10,0,200,10,BLUE,print_string_C2
.byte "TONS O' TIPS",0,0
.even
#gen_tip1
.string "PUT YOUR OPPONENT INTO A HEAD HOLD",0
.even
#gen_tip1a
.string "USING TOWARD-TOWARD-POWERPUNCH.",0
.even
#gen_tip2
.string "FLING YOUR OPPONENT TO THE ROPES",0
.even
#gen_tip2a
.string "USING AWAY-AWAY-POWERPUNCH.",0
.even
#gen_tip3
.string "WHEN IN CLOSE TO YOUR OPPONENT",0
.even
#gen_tip3a
.string "USE AWAY-AWAY-PUNCH TO HIP TOSS HIM.",0
.even
#gen_tip4
.string "WHEN AN OPPONENT IS RUNNING AT YOU",0
.even
#gen_tip4a
.string "USE POWERPUNCH & AWAY TO FLING HIM.",0
.even
#gen_tip_table
.long #gen_tip1
.long #gen_tip1a
.long blank
.long #gen_tip2
.long #gen_tip2a
.long blank
.long #gen_tip3
.long #gen_tip3a
.long blank
.long #gen_tip4
.long #gen_tip4a
.long 0
#********************************************************
*
* Show General Gameplay tips
*
SUBRP show_gen_tips
movi hstd_mod,a0
calla SET_UP_PIXEL_WIPE
JSRP print_gen_tips
SLEEPK 1
JSRP BLOW_0_TO_1
calla RESET_FROM_PIXEL_WIPE
SLEEP TSEC
movi 10*TSEC,a10
JSRP wait_on_butn
movi FLASH_PID,a0
calla KIL1C
movi CYCPID,a0
calla KIL1C
RETP
#*****************************************************************************
*
* Show high score tables
*
SUBRP show_hstd
calla table_cmos_check ;make sure hscore CMOS is okay
movi hstd_mod,a0
CALLA SET_UP_PIXEL_WIPE
movi 1,a5
JSRP print_inter
SLEEPK 1
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP TSEC/2
MOVE @starting_num,a9
DEC A9
move a9,@starting_num
CMPI INTER_TAB_ENTRIES-6,A9
JRLT SCROLL_TABLE_LOOP_2_I
MOVI INTER_TAB_ENTRIES-1,A9
move a9,@starting_num
SCROLL_TABLE_LOOP_2_I
clr a0
move a0,@not_blank
MOVK 4,A11
SCROLL_TABLE_LOOP_I
MOVI 36,A10
WAIT_ON_THOSE_BUTS_I
SLEEP 1
calla get_all_buttons_cur2
JRNZ JUST_WAIT_I
DSJS A10,WAIT_ON_THOSE_BUTS_I
PUSH A11
CALLA DELETE_ANY_OFF_TOP
PULL A11
sleep 1
MOVE @starting_num,a9
cmpi INTER_TAB_ENTRIES-1,a9
JRGE JUST_WAIT_I
DEC A11
JRZ DELAY_SCROLL_I
BACK_IN_AGAIN_I
inc a9
move a9,@starting_num
PUSH A11
CALLA draw_each_inter_table_entry
CALLA MOVE_ALL_OBJS_UP
PULL A11
MOVI 34,A10
jruc WAIT_ON_THOSE_BUTS_I
DELAY_SCROLL_I
MOVK 3,A11
SLEEP 15H ;scroll last three off
PUSH A11
CALLA STOP_ALL_OBJS
PULL A11
MOVI 85,A8
MORE_WAITING_I
SLEEP 1 ;delay on each three displayed
calla get_all_buttons_cur2
JRNZ JUST_WAIT_I
DSJS A8,MORE_WAITING_I
move @not_blank,a0
jrnz JUST_WAIT_I
clr a0
JRUC BACK_IN_AGAIN_I
JUST_WAIT_I
CALLA STOP_ALL_OBJS
movi 5*TSEC,a10
JSRP wait_on_butn
MOVI FLASH_PID,A0
CLR A1
NOT A1
CALLA KILALL
*********************************************************************************
movi hstd_mod,a0
CALLA SET_UP_PIXEL_WIPE
movi 1,a5
JSRP print_beaten
SLEEPK 1
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP TSEC/2
MOVE @starting_num,a9
DEC A9
move a9,@starting_num
CMPI BEATEN_TAB_ENTRIES-6,A9
JRLT SCROLL_TABLE_LOOP_2
MOVI BEATEN_TAB_ENTRIES-1,A9
move a9,@starting_num
SCROLL_TABLE_LOOP_2
clr a0
move a0,@not_blank
MOVK 4,A11
SCROLL_TABLE_LOOP
MOVI 36,A10
WAIT_ON_THOSE_BUTS
SLEEP 1
calla get_all_buttons_cur2
JRNZ JUST_WAIT
DSJS A10,WAIT_ON_THOSE_BUTS
PUSH A11
CALLA DELETE_ANY_OFF_TOP
PULL A11
sleep 1
MOVE @starting_num,a9
cmpi BEATEN_TAB_ENTRIES-1,a9
JRGE JUST_WAIT
DEC A11
JRZ DELAY_SCROLL
BACK_IN_AGAIN
inc a9
move a9,@starting_num
PUSH A11
CALLA draw_each_beaten_table_entry
CALLA MOVE_ALL_OBJS_UP
PULL A11
MOVI 34,A10
jruc WAIT_ON_THOSE_BUTS
DELAY_SCROLL
MOVK 3,A11
SLEEP 15H ;scroll last three off
PUSH A11
CALLA STOP_ALL_OBJS
PULL A11
MOVI 85,A8
MORE_WAITING
SLEEP 1 ;delay on each three displayed
calla get_all_buttons_cur2
JRNZ JUST_WAIT
DSJS A8,MORE_WAITING
move @not_blank,a0
jrnz JUST_WAIT
clr a0
JRUC BACK_IN_AGAIN
JUST_WAIT
CALLA STOP_ALL_OBJS
movi 5*TSEC,a10
JSRP wait_on_butn
MOVI FLASH_PID,A0
CLR A1
NOT A1
CALLA KILALL
***********************
movi hstd_mod,a0
CALLA SET_UP_PIXEL_WIPE
JSRP print_tag
SLEEPK 1
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP TSEC/2
movi 5*TSEC,a10
JSRP wait_on_butn
***********************
movi hstd_mod,a0
CALLA SET_UP_PIXEL_WIPE
JSRP print_hscores
SLEEPK 1
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP TSEC/2
movi 5*TSEC,a10
JSRP wait_on_butn
MOVI hstd_mod,A0
CALLA SET_UP_PIXEL_WIPE
JSRP print_winstreaks
SLEEPK 1
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP TSEC/2
movi 5*TSEC,a10
JSRP wait_on_butn
RETP
hstd_mod
.long slateBMOD
.word 0,0
.long 0
.if 1
rule_str
JAM_STR osgmd8_ascii,6,0,200,225,SGMD8WHT,print_string_C2
.string "{WE MAKE THE GAMES THAT MAKE THE INDUSTRY}",0
.even
SUBRP dan_test
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
clr a0
move a0,@HALT
move a0,@dtype ;2d mode
move a0,@IRQSKYE ;Sky color
movk 1,a0 ;page flipping on
move a0,@dpageflip
SLEEPK 2
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
;Turn on background module
MOVI #logo_mod,A0
move a0,@BAKMODS,L
calla BGND_UD1 ;create objects for background
movi #gen_tip_mes,a2
calla print_message
SLEEPK 1
clr a10
movk 4,a11
CREATE FADE_PID,fade_up
movk 1,a0
move a0,@DISPLAYON
calla display_unblank
; SLEEPK 32
; CREATE WATER_PID,MOVE_BACK_OFF_SCREEN
;Turn some stuff on
CREATE BALL_PID,DISPATCH
SLEEPK 32
calla hscore_colcyc
;Wait for 8 more seconds
#loop movi 118*TSEC,a10
JSRP wait_on_butn
jruc #loop
;Timed out or hit a button
movi BALL_PID,a0
calla KIL1C
movi BALL_ID,a0
calla obj_del1c
RETP
BALL_PID .equ 1 ;Process ID
BALL_ID .equ 2 ;IMG ID
SUBRP DISPATCH
movi 32,a9 ;100 balls
#lpx CREATE BALL_PID,ONE_BALL
SLEEPK 5
dsjs a9,#lpx
DIE
.ref PCNT
SUBRP ONE_BALL
;Turn on 1 ball at center of screen, random vels
movi 80000h,a0
calla RNDRNG0 ;# between 0 and a0
subi 40000h,a0
move a0,a6 ;XVEL
movi 60000h,a0
calla RNDRNG0 ;# between 0 and a0
subi 30000h,a0
move a0,a7 ;YVEL
movi [200,0],a0 ;200 pixels over in x
movi [160,0],a1 ;Y pos
movi BALLD05A,a2 ;IMG to turn on
move @PCNT,a3
andi 07fffh,a3 ;ZPOS
movi DMAWNZ,a4 ;IMG flags
movi BALL_ID,a5 ;ID
calla BEGINOBJW ;Begin obj with world added in
;a8=obj pointer
#lp SLEEPK 1
move *a8(OXVEL),a1,L
move *a8(OXPOS),a0
cmpi 400,a0
jrlo #xok
neg a1
move a1,*a8(OXVEL),L
SLEEPK 2
#xok
move *a8(OYVEL),a1,L
move *a8(OYPOS),a0
cmpi 255,a0
jrlo #yok
neg a1
move a1,*a8(OYVEL),L
SLEEPK 2
#yok
jruc #lp
#gen_tip_mes
JAM_STR osgemd_ascii,10,0,200,20,BLUE,print_string_C2
.byte "WRESTLEMANIA LITE!",0,0
.even
MOVE_BACK_OFF_SCREEN
MOVE @WORLDTLX,A0,L
SUBI [2,0],A0
MOVE A0,@WORLDTLX,L
MOVE @WORLDTLY,A0,L
ADDI [2,0],A0
MOVE A0,@WORLDTLY,L
CALLA BGND_UD1
SLOOP 1,MOVE_BACK_OFF_SCREEN
LOGO_CREATLOOP
PUSH a0,a1,a3,a4,a5,a6,a7
calla BEGINOBJ
PULL a0,a1,a3,a4,a5,a6,a7
move *a9+,a2,L
jrnz LOGO_CREATLOOP
RETS
#logo_mod
.long SPORTBKBMOD
.word -400-(400*0),400*0
.long SPORTBKBMOD
.word -400-(400*1),400*1
.long SPORTBKBMOD
.word -400-(400*2),400*2
.long SPORTBKBMOD
.word -400-(400*3),400*3
.long SPORTBKBMOD
.word -400-(400*4),400*4
.long SPORTBKBMOD
.word -400-(400*5),400*5
.LONG 0
LOGO_LIST
.LONG SPRTLG01
.LONG SPRTLG02
.LONG SPRTLG03
.LONG SPRTLG04
.LONG SPRTLG05
.LONG SPRTLG06
.LONG SPRTLG07
.LONG SPRTLG08
.LONG SPRTLG09
.LONG SPRTLG10
.LONG SPRTLG11
.LONG SPRTLG12
.LONG SPRTLG13
.LONG SPRTLG14
.LONG SPRTLG15
.LONG SPRTLG16
.LONG SPRTLG17
.LONG 0
;MOVE_BACK_OFF_SCREEN
;
; MOVE @WORLDTLX,A0,L
; SUBI [2,0],A0
; MOVE A0,@WORLDTLX,L
;
; MOVE @WORLDTLY,A0,L
; ADDI [2,0],A0
; MOVE A0,@WORLDTLY,L
;
; CALLA BGND_UD1
;
; SLOOP 1,MOVE_BACK_OFF_SCREEN
;
; SUBRP show_big_wwf_title
;
; calla display_blank
; calla WIPEOUT ;CLEAN SYSTEM OUT
;
; clr a0
; move a0,@HALT
; move a0,@dtype ;2d mode
; move a0,@IRQSKYE
;
; movk 1,a0 ;page flipping on
; move a0,@dpageflip
;
; SLEEPK 2
;
; movi SCRNEND,a0 ;[256,405]
; move a0,@SCRNLR,L
;
; clr a0
; move a0,@WORLDTLX,L
; move a0,@WORLDTLY,L
;
; movi #big_wwf_mod,a0
; move a0,@BAKMODS,L
; calla BGND_UD1 ;create objects for background
;
; SLEEPK 2
;
; calla display_unblank
;
; SLEEP TSEC/2
; movi 10*TSEC,a10
; JSRP wait_on_butn
;
; retp
;
;#big_wwf_mod
; .long bigwwfBMOD
; .word 0,0
; .long 0
#*****************************************************************************
*
* Show lava title page
*
SUBRP show_title
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
clr a0
move a0,@HALT
move a0,@dtype ;2d mode
move a0,@IRQSKYE
movk 1,a0 ;page flipping on
move a0,@dpageflip
SLEEPK 2
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
movi #title_mod,a0
move a0,@BAKMODS,L
calla BGND_UD1 ;create objects for background
SLEEPK 2
calla display_unblank
CREATE CYCPID,#cycle_lava
MOVI [102,7],A8
MOVI WHERE_WRESTLMANIA_SPARKLES,A10
MOVK 4,A9
CREATE FLASH_PID,SPRINKLE_GLINTS
CREATE ATTRACT_ANIMPID,RANDOM_SPARKLE
SLEEP TSEC/2
movi 10*TSEC,a10
JSRP wait_on_butn
movi CYCPID,a0
calla KIL1C
MOVI FLASH_PID,A0
calla KIL1C
MOVI ATTRACT_ANIMPID,A0
calla KIL1C
RETP
SUBRP show_title2
CREATE CYCPID,#cycle_lava
SLEEP TSEC/2
movi 8*TSEC,a10
JSRP wait_on_butn
movi CYCPID,a0
calla KIL1C
;fade down
clr a10
movk 16,a11
CREATE FADE_PID,fade_down
SLEEP TSEC
calla display_blank
RETP
#title_mod
.long NTITLESCBMOD
.word 0,0
.long 0
#cycle_lava
movi #cyc_t,a9
#lp0
move *a9+,a0,L
calla pal_getf
move a0,a8 ;Pal thats needs changing
move *a9,a0,L
jrz #cycle_lava
calla pal_getf
move a0,a11 ;Pal to change into
movi BAKLST,a14
#lp
move *a14,a14,L
jrz #x
move *a14(OPAL),a2
cmp a8,a2
jrne #lp
;Found matching pal
move a11,*a14(OPAL)
jruc #lp
#x SLEEP 5
jruc #lp0
#cyc_t .long LAVA1_P
.long LAVA2_P
.long LAVA3_P
.long LAVA4_P
.long LAVA5_P
.long LAVA6_P
.long LAVA7_P
.long LAVA8_P
.long LAVA10_P
.long LAVA10_P
.long LAVA10_P
; .long LAVA9_P
.long LAVA10_P
.long LAVA8_P
.long LAVA7_P
.long LAVA6_P
.long LAVA5_P
.long LAVA4_P
.long LAVA3_P
.long LAVA2_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long LAVA1_P
.long 0
.endif
;Keep this code around
;#*****************************************************************************
;*
;* Show WWF logo
;
; SUBRP show_big_wwf_logo_screen_thingie
;
; calla display_blank
; calla WIPEOUT ;CLEAN SYSTEM OUT
;
; clr a0
; move a0,@HALT
; move a0,@dtype ;2d mode
; move a0,@IRQSKYE
;
; movk 1,a0 ;page flipping on
; move a0,@dpageflip
;
; SLEEPK 2
;
; movi SCRNEND,a0 ;[256,405]
; move a0,@SCRNLR,L
;
; clr a0
; move a0,@WORLDTLX,L
; move a0,@WORLDTLY,L
;
; movi #blank_mod,a0
; move a0,@BAKMODS,L
; calla BGND_UD1 ;create objects for background
;
; SLEEPK 2
;
; calla display_unblank
;
; SLEEPK 10
;
; movi #logo_mod,a0
; CALLA SET_UP_PIXEL_WIPE
;
; SLEEPK 1
;
; JSRP BLOW_0_TO_1
;
;
; SLEEP TSEC/2
; movi 8*TSEC,a10
; JSRP wait_on_butn
;
;;fade down
; clr a10
; movk 16,a11
; CREATE0 fade_down
;
; SLEEP TSEC
;
; calla display_blank
;
; RETP
;
;#logo_mod
; .long comesoonBMOD
; .word 0,0
; .long 0
;#blank_mod
; .long wwfblankBMOD
; .word 0,0
; .long 0
#*****************************************************************************
*
* Show wrestler bios
*
.bss next_bio,16
SUBRP show_bios
movi #bio_mod,a0
SUBRP show_bios_tips
CALLA SET_UP_PIXEL_WIPE
movb @next_bio,a10
andi 00001111b,a10
inc a10
cmpi 8,a10
jrlt #in_range
clr a10
#in_range
;draw the logo
PUSH a10
movb a10,@next_bio
MOVI 018h,a3
MOVI 00bh,a4
MOVI #bio_logos,a5
clr a7
CALLR MAKE_UP_LOGO
;draw the mugshot
PULL a10
PUSH a10
X32 a10
addi wrestler_mugs2,a10
move *a10,a9,L
movi [017ah,0],a0
movi [0Afh,0],a1
move *a9+,a2,L
clr a3
movi DMAWNZ|M_FLIPH,a4
movi CLSNEUT,a5
clr a6
clr a7
#mugcreatloop
PUSH a0,a1,a3,a4,a5,a6,a7
calla BEGINOBJ
PULL a0,a1,a3,a4,a5,a6,a7
move *a9+,a2,L
jrnz #mugcreatloop
.ref wrestler_attributes,attbars
;attributes
movi [0ffh,0],a0
movi [0aeh,0],a1
; movi ATTPL_G,a2
; movi 10,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
clr a6
clr a7
; PUSH a0,a1,a4,a5,a6,a7
; calla BEGINOBJ
; PULL a0,a1,a4,a5,a6,a7
; subi 2,a1
movi ATT_TXT,a2
movk 11,a3
PUSH a0,a1
calla BEGINOBJ
PULL a0,a1
;attribute bars
PULL a10
PUSH a10
addi [61,0],a0
addi [12,0],a1
movi ATTMTR_0,a2
movi 11,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
clr a6
clr a7
movi 4,a9 ;bar count
X64 a10
addi wrestler_attributes,a10
#abc_loop
PUSH a0,a1,a3,a4,a5,a6,a7
move *a10+,a2,W
X32 a2
addi attbars,a2
move *a2,a2,L
calla BEGINOBJ
PULL a0,a1,a3,a4,a5,a6,a7
addi [8,0],a1
dsj a9,#abc_loop
move @bios_type,a14
jrnz show_wres_tips
;print the bio text
;a11 becomes the halfwidth for current wrestler
PULL a10
PUSH a10
X32 a10
addi #bio_data,a10
move *a10,a10,L
move *a10+,a11,W
movi 20,a14
move a14,@mess_line_spacing
; movi #bio_setup1,a2
; calla setup_message
; movi #bio_center,a14
; sub a11,a14
; move a14,@mess_cursx
; movi #bio_message1,a4
; calla print_string2
;
; movi #bio_setup2,a2
; calla setup_message
; movi #bio_center,a14
; sub a11,a14
; move a14,@mess_cursx
; movi #bio_message2,a4
; calla print_string2
;
movi #bio_setup1,a2
calla setup_message
;from text
movi #bio_y,a14
move a14,@mess_cursy
movi #bio_center,a14
move a14,@mess_cursx
move *a10+,a4,L
calla print_string2
;weight
movi #bio_y+50,a14
move a14,@mess_cursy
movi #bio_center,a14
addi 16,a14
move a14,@mess_cursx
move *a10+,a0,W
movi 999,a1
calla dec_to_asc
calla copy_string
calla print_string
movi wsf10_ascii,a0
move a0,@message_ascii,L
movi #pounds,a4
movi #bio_y+54,a14
move a14,@mess_cursy
move @mess_cursx2,a0
move a0,@mess_cursx
calla print_string2
;height
movi #bio_y+25,a14
move a14,@mess_cursy
movi #bio_center,a14
addi 8,a14
move a14,@mess_cursx
movi wsf14_ascii,a0
move a0,@message_ascii,L
move *a10+,a0,W
movi 999,a1
calla dec_to_asc
calla copy_string
calla print_string
movi wsf10_ascii,a0
move a0,@message_ascii,L
movi #feet,a4
move @mess_cursx2,a0
move a0,@mess_cursx
movi #bio_y+29,a14
move a14,@mess_cursy
calla print_string2
movi wsf14_ascii,a0
move a0,@message_ascii,L
move *a10+,a0,W
movi 999,a1
calla dec_to_asc
calla copy_string
movi #bio_y+25,a14
move a14,@mess_cursy
move @mess_cursx2,a0
move a0,@mess_cursx
calla print_string
movi wsf10_ascii,a0
move a0,@message_ascii,L
movi #inches,a4
movi #bio_y+29,a14
move a14,@mess_cursy
move @mess_cursx2,a0
move a0,@mess_cursx
calla print_string2
;quote
movi #bio_y+96+4,a14
move a14,@mess_cursy
movi #bio_center,a14
addk 15,a14
move a14,@mess_cursx
movk 14,a14
move a14,@mess_line_spacing
move *a10+,a4,L
calla print_string_C2
;music
PULL a10
no_attr
MOVE @AMODE_LOOPS,A0
CMPI 2,A0
JRGE NO_MUSIC
ADJUST ADJMUSIC
JRNZ NO_MUSIC
X16 a10
addi #wrestler_tunes,a10
move *a10,a3,L
.if MUSIC_ON
calla SNDSND
.endif
NO_MUSIC
JSRP BLOW_0_TO_1
CALLA RESET_FROM_PIXEL_WIPE
SLEEP 2*TSEC
movi 6*TSEC,a10
JSRP wait_on_butn
RETP
wt_line1_setup
JAM_STR ogmd10_ascii,6,0,10,90,SGMD8YEL,print_string
.even
wt_title_setup
JAM_STR ogmd10_ascii,6,0,135,95,SGMD8RED,print_string_C2
.string "SPECIAL MOVES"
.byte 0,0
.even
blank
.byte 0
.even
bret_tip1
.string "CHARGE POWERPUNCH 2 SEC.",0
.even
bret_tip1a
.string "TO DO A DDT.",0
.even
bret_tip2
.string "DOWN-DOWN-PUNCH TO DO",0
.even
bret_tip2a
.string "A SUPER UPPERCUT.",0
.even
bret_tip3
.string "CHARGE POWERKICK 2 SEC",0
.even
bret_tip3a
.string "TO DO A FLYING KICK.",0
.even
bret_tips
.long bret_tip1
.long bret_tip1a
.long blank
.long bret_tip2
.long bret_tip2a
.long blank
.long bret_tip3
.long bret_tip3a
.long 0
razor_tip1
.string "CHARGE POWERKICK 2 SEC.",0
.even
razor_tip1a
.string "TO DO A FLYING KICK.",0
.even
razor_tip2
.string "1/4 CIRCLE D,DT,T - PUNCH",0
.even
razor_tip2a
.string "DOES DOWN SLASHES.",0
.even
razor_tip3
.string "CHARGE PUNCH 2 SECONDS",0
.even
razor_tip3a
.string "TO DO SLASHES.",0
.even
razor_tips
.long razor_tip1
.long razor_tip1a
.long blank
.long razor_tip2
.long razor_tip2a
.long blank
.long razor_tip3
.long razor_tip3a
.long 0
taker_tip1
.string "CHARGE PUNCH 2 SECONDS",0
.even
taker_tip1a
.string "TO DO A NECKBREAKER.",0
.even
taker_tip2
.string "TOWARD-TOWARD-POWERKICK",0
.even
taker_tip2a
.string "DOES A TOMBSTONE SMASH.",0
.even
taker_tip3
.string "1/4 CIRCLE D,DT,T - PUNCH",0
.even
taker_tip3a
.string "DOES A SLIDING CHOKE HOLD.",0
.even
taker_tips
.long taker_tip1
.long taker_tip1a
.long blank
.long taker_tip2
.long taker_tip2a
.long blank
.long taker_tip3
.long taker_tip3a
.long 0
yoko_tip1
.string "CHARGE PUNCH 2 SECONDS",0
.even
yoko_tip1a
.string "TO DO A SALT THROW.",0
.even
yoko_tip2
.string "TOWARD-TOWARD-PUNCH",0
.even
yoko_tip2a
.string "DOES A GUT PUSH.",0
.even
yoko_tip3
.string "TOWARD-TOWARD-POWERKICK",0
.even
yoko_tip3a
.string "DOES A SCISSORS.",0
.even
yoko_tips
.long yoko_tip1
.long yoko_tip1a
.long blank
.long yoko_tip2
.long yoko_tip2a
.long blank
.long yoko_tip3
.long yoko_tip3a
.long 0
shawn_tip1
.string "CHARGE POWERKICK 2 SEC.",0
.even
shawn_tip1a
.string "TO DO A FLYING KICK",0
.even
shawn_tip2
.string "TOWARD-TOWARD-POWERKICK",0
.even
shawn_tip2a
.string "DOES A FRANKENSTEINER.",0
.even
shawn_tip3
.string "TOWARD-TOWARD-KICK DOES",0
.even
shawn_tip3a
.string "A SLIDING KICKTOSS.",0
.even
shawn_tips
.long shawn_tip1
.long shawn_tip1a
.long blank
.long shawn_tip2
.long shawn_tip2a
.long blank
.long shawn_tip3
.long shawn_tip3a
.long 0
bam_tip1
.string "AWAY-AWAY-POWERKICK",0
.even
bam_tip1a
.string "DOES A JUMP KICK.",0
.even
bam_tip2
.string "CHARGE PUNCH 2 SECONDS",0
.even
bam_tip2a
.string "TO DO A FIREPUNCH.",0
.even
bam_tip3
.string "CHARGE POWERPUNCH 2 SEC",0
.even
bam_tip3a
.string "TO DO A NECKBREAKER.",0
.even
bam_tips
.long bam_tip1
.long bam_tip1a
.long blank
.long bam_tip2
.long bam_tip2a
.long blank
.long bam_tip3
.long bam_tip3a
.long 0
doink_tip1
.string "CHARGE PUNCH 2 SECONDS",0
.even
doink_tip1a
.string "TO DO A JOY BUZZER.",0
.even
doink_tip2
.string "TOWARD-TOWARD-POWERKICK",0
.even
doink_tip2a
.string "DOES A HAPPY HAMMER.",0
.even
doink_tip3
.string "SEVEN RAPID PUNCHES DOES",0
.even
doink_tip3a
.string "A BOXING PUNCH.",0
doink_tips
.long doink_tip1
.long doink_tip1a
.long blank
.long doink_tip2
.long doink_tip2a
.long blank
.long doink_tip3
.long doink_tip3a
.long 0
lex_tip1
.string "CHARGE PUNCH 2 SECONDS",0
.even
lex_tip1a
.string "TO DO A CLOBBER.",0
.even
lex_tip2
.string "TOWARD-TOWARD-PUNCH",0
.even
lex_tip2a
.string "DOES A SLIDING ELBOW.",0
.even
lex_tip3
.string "TOWARD-TOWARD-POWERKICK",0
.even
lex_tip3a
.string "DOES A HAMMER BLOW.",0
.even
lex_tips
.long lex_tip1
.long lex_tip1a
.long blank
.long lex_tip2
.long lex_tip2a
.long blank
.long lex_tip3
.long lex_tip3a
.long 0
wrestler_tips
.long bret_tips
.long razor_tips
.long taker_tips
.long yoko_tips
.long shawn_tips
.long bam_tips
.long doink_tips
.long lex_tips
SUBRP show_wres_tips
movi wt_title_setup,a2
calla print_message
PULL a10 ; This is the wrestler number (0-7)
move a10,a1
X32 a1
addi wrestler_tips,a1
movi 120,a3
move *a1,a1,L
swt_loop
move *a1+,a4,L
jrz no_attr
PUSHP a1,a3
calla copy_rom_string
movi wt_line1_setup,a2
calla setup_message
move a3,@mess_cursy
calla print_string
PULLP a1,a3
addk 15,a3
jruc swt_loop
SUBR MAKE_UP_LOGO
X64 a10
add A5,a10
move *a10+,a9,L
move *a10+,a0,W
move *a10,a1,W
add A3,a0
add A4,a1
sll 16,a0
sll 16,a1
move *a9+,a2,L
clr a3
movi DMAWNZ|M_SCRNREL,a4
movi CLSNEUT,a5
clr a6
#creatloop
MOVE A8,A10
PUSH a0,a1,a3,a4,a5,a6,a7
calla BEGINOBJ
PULL a0,a1,a3,a4,a5,a6,a7
move *a9+,a2,L
jrnz #creatloop
RETS
#bio_center .equ 100
#bio_halfwidth .equ 87
#bio_y .equ 106
;#bio_setup1
; JAM_STR osgmd8_ascii,5,0,0,#bio_y,SGMD8YEL,print_string2
;#bio_message1
; .byte "FROM:",1,"WEIGHT:",1,"HEIGHT:",1,"FINISHING",0
; .even
;
;#bio_setup2
; JAM_STR osgmd8_ascii,5,0,0,#bio_y+71,SGMD8YEL,print_string2
;#bio_message2
; .byte "MOVE:",0
; .even
;FIX!!
.even
#bio_setup1
JAM_STR wsf14_ascii,6,0,0,#bio_y+75,WSF_Y_P,print_string2
.even
;#bio_setup2
; JAM_STR wsf10_ascii,6,10,0,#bio_y+75,WSF_Y_P,print_string2
; .even
#pounds
.byte " LBS.",0
.even
#feet
.byte " FT. ",0
.even
#inches
.byte " IN.",0
.even
#bio_data
.long #bhart_data,#razor_data,#taker_data,#yoko_data,#shawn_data
.long #bambam_data,#doink_data,#luger_data
#bhart_data
.word 79 ;halfwidth
.long #bhart_fromstr ;from
.word 234,6,1 ;pounds, feet, inches
.long #bhart_quote ;quote text
#razor_data
.word 77 ;halfwidth
.long #razor_fromstr ;from
.word 262,6,7 ;pounds, feet, inches
.long #razor_quote ;quote text
#taker_data
.word 78 ;halfwidth
.long #taker_fromstr ;from
.word 322,6,11 ;pounds, feet, inches
.long #taker_quote ;quote text
#yoko_data
.word 78 ;halfwidth
.long #yoko_fromstr ;from
.word 568,6,4 ;pounds, feet, inches
.long #yoko_quote ;quote text
#shawn_data
.word 78 ;halfwidth
.long #shawn_fromstr ;from
.word 235,6,1 ;pounds, feet, inches
.long #shawn_quote ;quote text
#bambam_data
.word 78 ;halfwidth
.long #bambam_fromstr ;from
.word 400,6,4 ;pounds, feet, inches
.long #bambam_quote ;quote text
#doink_data
.word 78 ;halfwidth
.long #doink_fromstr ;from
.word 243,6,0 ;pounds, feet, inches
.long #doink_quote ;quote text
#luger_data
.word 81 ;halfwidth
.long #luger_fromstr ;from
.word 270,6,4 ;pounds, feet, inches
.long #luger_quote ;quote text
#bhart_fromstr
; .byte "CALGARY, ALBERTA",0 ;Too long
.byte "CALGARY",0
.even
#razor_fromstr
.byte "MIAMI, FLORIDA",0
.even
#taker_fromstr
.byte "DEATH VALLEY",0
.even
#yoko_fromstr
.byte "TOKYO, JAPAN",0
.even
#shawn_fromstr
.byte "SAN ANTONIO, TX",0
.even
#bambam_fromstr
.byte "ASBURY PARK, NJ",0
.even
#doink_fromstr
.byte "THE CIRCUS",0
.even
#luger_fromstr
.byte "ATLANTA, GA",0
.even
#bhart_quote
.byte "{I AM THE EXCELLENCE",1,"OF EXECUTION.}",0
.even
#razor_quote
.byte "{TAKE A LOOK AT",1,"THE BAD GUY.}",0
.even
#taker_quote
.byte "{REST IN PEACE}",0
.even
#yoko_quote
.byte "{BANZAI !!!}",0
.even
#shawn_quote
.byte "{I'M THE GREATEST THING",1,"GOING ON GOD'S GREEN EARTH.}",0
.even
#bambam_quote
.byte "{I'M THE BEAST",1,"FROM THE EAST!",0
.even
#doink_quote
.byte "{LIFE'S A JOKE!",0
#luger_quote
.byte "{LEX LUGER IS THE",1,"ALL AMERICAN HERO}",0
.even
#bio_mod
.long biopageBMOD ;wrestler bios
; .long slateBMOD ;wrestler bios
.word 0,0
.long 0
#bio_logos
LWW #bhart_logo,15,9
LWW #razor_logo,16,9
LWW #under_logo,17,9
LWW #yoko_logo,20,7
LWW #michael_logo,18,8
LWW #bambam_logo,18,7
LWW #doink_logo,24,8
LWW #luger_logo,10,7
#bhart_logo
.long HRT3,0
#razor_logo
.long RZR3,0
#under_logo .long UND3,0
#yoko_logo
.long YOK3,0
#michael_logo
.long SHN3,0
#bambam_logo
.long BAM3,0
#doink_logo
.long DNK3,0
#luger_logo
.long LEX3,0
#wrestler_tunes
.word 5,2,1,7,6,4,8,3
******************************************************************************
*
* A10 = # of ticks before timing out
SUBR wait_on_butn
#lp SLEEPK 1
calla get_all_buttons_cur2
jrz #nobutn
move @SOUNDSUP,a0
move a0,@TEMP
clr a0
move a0,@SOUNDSUP ;turn all sounds on
;set CMOS volume!
movi ADJVOLUME,a0
calla GET_ADJ
BADCHK a0,0,255,28 ;reg, lo, hi, val if bad
calla set_volume
movi >b6,a0
calla triple_sound
move @TEMP,a0
move a0,@SOUNDSUP ;turn all sounds off
jruc #exit
#nobutn
dsj a10,#lp
#exit
RETP
;#*****************************************************************************
;* play vid clips (test)
;
; SUBRP show_movie
;
;;bank select 0 bit is bit 8 of SYSCTRL register.
;
; calla display_blank
; calla WIPEOUT ;CLEAN SYSTEM OUT
; calla pal_clean
;
; clr a0
; move a0,@HALT
; move a0,@dtype ;2d mode
; move a0,@IRQSKYE
;
; movk 1,a0 ;page flipping on
; move a0,@dpageflip
;
; SLEEPK 2
;
; movi SCRNEND,a0 ;[256,405]
; move a0,@SCRNLR,L
;
; clr a0
; move a0,@WORLDTLX,L
; move a0,@WORLDTLY,L
;
; movi #movie_mod,a0
; move a0,@BAKMODS,L
; calla BGND_UD1 ;create objects for background
;
; calla display_unblank
;
;;;;-> movi shnvid_f,a8
; clr a9
; movi (100+20*512)*8,a10
; JSRP movie_run
;
; clr a0
; move a0,@dpageflip ;kill the page-flipping!
;
; movi 6*TSEC,a10
; JAUC wait_on_butn
;
;#movie_mod
; .long slateBMOD ;wrestler bios
; .word 0,0
; .long 0
;
;
;#*****************************************************************************
;* print that big picture of 'vince'
;* leave up whatever was on screen until we're ready to make the switch
;
; SUBRP show_vince
;
; ;disable auto page flipping
; clr a14
; move a14,@dpageflip
;
; ;dump the pic to the draw (inactive) page
;;;;-> movi vinsml_f,a8
; clr a9
; movi (#vince_x+512*(#vince_y))*8,a10
; JSRP movie_run
;
; ;swap 'em...
; callr page_flip
;
; ;...and wait
; movi 6*TSEC,a10
; JSRP wait_on_butn
;
; ;fade down
; clr a10
; movk 16,a11
; CREATE0 fade_down
;
; SLEEP TSEC
;
; RETP
;
;
;#vince_x equ (400->186)/2
;#vince_y equ (256->F5)/2
#*****************************************************************************
* flips the active page
; SUBRP page_flip
;
; movi ->1004,a0
; move @dpage,a14
; jrz #tp1
; movi -4,a0
;#tp1
; move a0,@DPYSTRT
; move a0,@DPYADR
;
; move @dpage,a0
; not a0
; move a0,@dpage
;
; rets
#*****************************************************************************
;NOW LETS SEE...
;WORD TWO PIXELS
;WORD TWO PIXELS
;WORD TWO PIXELS
;WORD TWO PIXELS
;LONG XVEL
;LONG YVEL
;LONG XPOS
;LONG YPOS
DCS_LOGO
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
movk 1,a0
move a0,@dpageflip ;page flipping on
clr a0
move a0,@IRQSKYE
MOVI [200,0],A0
MOVI [120,0],A1
MOVI dcslogo,a2
CLR A3
movi DMAWNZ|M_SCRNREL,a4 ;DMA flags
addi CLSNEUT,a5 ;object ID
clr a6 ;x vel
clr a7 ;y vel
CALLA BEGINOBJW
MOVE *A8(OPAL),A0
MOVE A0,@DCS_PAL
clr a10
movk 8,a11
CREATE FADE_PID,fade_up
movk 1,a0
move a0,@DISPLAYON
calla display_unblank
MOVE @AMODE_LOOPS,A0
CMPI 2,A0
JRGE NO_BANG
ADJUST ADJMUSIC
JRNZ NO_BANG
MOVI 1005,A3
CALLA SNDSND
NO_BANG
SLEEP 42h
MOVI DMACTRL,B1
WAIT_110
MOVE *B1,B2,L
JRN WAIT_110
PUSHST
DINT
PUSH A8
MOVI (186*5),A6
MOVI [6,0],A5
MOVI DCS_BIT_TABLE,A2
MOVI 44,A11
MOVE *A8(OSAG),A8,L
ADDI 02000000H,A8
NEXT_X_PIXEL1
MOVI 31,A10
MOVI [107,0],A4
NEXT_X_PIXEL2
CALLR SETUP_ALL_PIX1
MOVI 32000H,A0
CALLA RNDRNGS
MOVE A0,A1
SRA 7,A1
NEG A1
MOVE A1,*A2+,L ;XVEL
MOVE A0,*A2+,L ;XVEL
MOVE A4,*A2+,L ;XPOS
ADD A5,A4
ADDK 30,A8
DSJS A10,NEXT_X_PIXEL2
ADD A6,A8
DSJS A11,NEXT_X_PIXEL1
PULL A8
POPST
SLEEP 1
MOVE *A8(OFLAGS),A1
ORI M_NODISP,A1
MOVE A1,*A8(OFLAGS)
MOVI ADD_PIXEL_ROT,A0
MOVE A0,@WHICH_SCREEN,L
SLEEP 60
MOVI 254-60,A10
loop_it
SLEEPK 1
calla get_all_buttons_cur2
JRNZ nobutn1
dsj a10,loop_it
MOVI DUMRETS,A0
MOVE A0,@WHICH_SCREEN,L
MOVE *A8(OFLAGS),A1
ANDI 0FFFFH-M_NODISP,A1
MOVE A1,*A8(OFLAGS)
SLEEP 10
MOVI DMACTRL,B1
WAIT_111
MOVE *B1,B2,L
JRN WAIT_111
PUSHST
DINT
PUSH A8
MOVI 4C000H,A3
MOVI (186*5)*3,A6
MOVE *A8(OSAG),A8,L
ADDI 02000000H,A8
MOVI DCS_BIT_TABLE,A2
MOVI 020H,A5
MOVI 04000H,A7
MOVI 21,A11
NEXT_Y_PIXELS
MOVI 0358H,A4
MOVI 46,A10
NEXT_X_PIXELS
CALLR SETUP_ALL_PIX1
CALLR SETUP_ALL_PIX2
ADDK 20,A8
MOVI 0FH,A0
PUSH A1
CALLA RNDRNGS
PULL A1
MOVE A0,*A2+,L ;XVEL
MOVI 2100H,A0
PUSH A1
CALLA RNDRNGS
PULL A1
SLL 1,A0
MOVE A0,*A2+,L ;YVEL
MOVE A4,*A2+,L ;XPOS
MOVE A3,*A2+,L ;YPOS
ADD A5,A4
DSJS A10,NEXT_X_PIXELS
ADDK 10,A8
ADD A6,A8
ADD A7,A3
DEC A11
JRNZ NEXT_Y_PIXELS
PULL A8
POPST
CALLA DELOBJA8
MOVI ADD_PIXEL_VEL,A0
MOVE A0,@WHICH_SCREEN,L
MOVK 3,A8
FLASH_WHITE
MOVI 0FFFFH,A0
MOVE A0,@IRQSKYE
SLEEP 1
CLR A0
MOVE A0,@IRQSKYE
SLEEP 1
DSJS A8,FLASH_WHITE
SLEEPK 30
movi 100,a10
JSRP wait_on_butn
nobutn1
CLR A3
CALLA SNDSND
RETP
SETUP_ALL_PIX2
MOVE A8,A14
ADD A6,A14
ADD A6,A14
CALLR SETUP_TWO_PIX
ADDK 10,A14
JRUC SETUP_TWO_PIX
SETUP_ALL_PIX1
MOVE A8,A14
CALLR SETUP_TWO_PIX
ADDK 10,A14
CALLR SETUP_TWO_PIX
MOVE A8,A14
ADD A6,A14
CALLR SETUP_TWO_PIX
ADDK 10,A14
SETUP_TWO_PIX
MOVE *A14,A0
SLL 32-5,A0
SRL 32-5,A0
MOVE *A14(5),A9
SLL 32-5,A9
SRL 32-5-8,A9
OR A9,A0
MOVE A0,*A2+
RETS
ADD_PIXEL_VEL
MOVI DMACTRL,B1
MOVE @DCS_PAL,A3
CALLR SET_UP_PAL
MOVI 01F0H,A4
MOVI 966,A9
MOVI 3*32,A12
MOVE @page_addr+010h,a14
MOVE @page_addr,A10
sll 3,a10
sll 12,a14
or a14,a10
MOVI 0FA000H,A14
MOVI 0FF000H,A13
MOVI 0FFFF8H,A11
PUSHST
DINT
MOVI DCS_BIT_TABLE,A8
.ALIGN
NEXT_PIXEL_VEL
MMFM A8,A0,A1,A2,A3,A5,A6,A7
ADD A4,A2 ;DO YACCEL
JRZ NO_PLOT_ANYTHING
ADD A2,A0 ;Y
CMP A14,A0
JRGE NO_WORRY_ABOUT_Y_BOUNCE
ADD A3,A1 ;X
MMTM A8,A0,A1,A2
AND A11,A1
AND A13,A0
OR A0,A1
ADD A10,A1
MOVE A7,*A1,L
MOVE A6,*A1(01000H),L
MOVE A5,*A1(02000H),L
ADD A12,A8
NO_PLOT_ANYTHING
DSJS A9,NEXT_PIXEL_VEL
POPST
RETS
NO_WORRY_ABOUT_Y_BOUNCE
MOVE A4,A2
NEG A2
MMTM A8,A0,A1,A2
ADD A12,A8
DEC A9
JRNZ NEXT_PIXEL_VEL
POPST
RETS
SET_UP_PAL ;PAL IN A3
MOVE *B1,B2,L
JRN SET_UP_PAL
MMTM SP,A2,A3,A4,A5,A6,A7,A9
MOVI 01000100H,A2
MOVI [4,4],A4
CLR A5
MOVI 020000000H,A6
MOVI 0E0020000H,A9
MOVI DMAREGS,A7
mmtm A7,A2,A3,A4,A5,A6,A9
MMFM SP,A2,A3,A4,A5,A6,A7,A9
RETS
ADD_PIXEL_ROT
MOVI DMACTRL,B1
MOVE @DCS_PAL,A3
CALLR SET_UP_PAL
MOVI 2*32,A5
MOVE @page_addr+010h,a14
MOVE @page_addr,A10
sll 3,a10
sll 12,a14
or a14,a10
ADDI 4C000H,A10
MOVI 44,A9
MOVI 31,A13
MOVI 02000H,A4
MOVI 0FFFF8H,A11
MOVI DCS_BIT_TABLE,A12
.ALIGN
NEXT_PIXEL_ROT
MMFM A12,A0,A1,A2,A6,A7
ADD A2,A1 ;XVEL
ADD A1,A0 ;X POS
MMTM A12,A0,A1
SRA 16-3,A0
AND A11,A0
ADD A10,A0
MOVE A7,*A0,L
MOVE A6,*A0(01000H),L
ADD A5,A12
DSJS A13,NEXT_PIXEL_ROT
ADD A4,A10
MOVI 31,A13
DSJS A9,NEXT_PIXEL_ROT
RETS
******************************************************************************
SUBR GENERIC_DISPLAY
calla display_blank
calla WIPEOUT ;CLEAN SYSTEM OUT
clr a0
move a0,@HALT
move a0,@dtype ;2d mode
move a0,@IRQSKYE
movk 1,a0 ;page flipping on
move a0,@dpageflip
SLEEPK 2
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
movi hstd_mod,a0
move a0,@BAKMODS,L
calla BGND_UD1 ;create objects for background
SLEEPK 2
calla display_unblank
RETP
****************************************************************
* THIS SHOULD BE CALLED IN PLACE OF ANY JRxx $
* IN CASE OF ERROR. IF WE ARE IN DEBUG MODE
* IT WILL HANG, IF NOT, THE ERROR WILL BE LOGGED
* AND IT WILL RETURN.
* A1 = RETURN ADDRESS OF CALLING ROUTINE
* A2 = ERROR CODE
ERRORLOG
MMTM SP,A2,A3,A4,A5,A6,A7
; SLL 16,A2
;ERRLOGG ;A8 IS IN A8
;
; MOVE A13,A7 ;PROC. BLOCK IN A7
; MOVE *A7(PROCID),A6
; SLL 16,A6
; MOVE *A8(OID),A3
; MOVX A3,A6 ;A6 = [PROCID:*A8(OID)]
;
;; MOVE @CIRCUIT,A5
;; SLL 16,A5
;; MOVE @WAVE,A3
; MOVX A3,A5 ;A5 = [CIRCUIT#:WAVE#,)]
;
; MOVI AUD1STRT,A4 ;PLAY #
; callr GETAUD4
;
; SLL 16,A4
; MOVE *A0(OID),A3 ;A4 = [STRT#:*A0(OID)]
; MOVX A3,A4
;
; MOVE @GAMSTATE,A3 ;A2 = [PSTATUS:GAMSTATE]
; MOVX A3,A2
;
; MOVE @PSTATUS,A3 ;A2 = [ERROR CODE:PSTATUS]
; MOVX A3,A2
;; MOVE *SP(0C0H),A3,L ;A3=GET THE RETURN ADDRESS
; MOVE *SP(0E0H),A1,L ;A1=CALLING ADDRESS
;; CALLA ADD_DUMP
MMFM SP,A2,A3,A4,A5,A6,A7
RETS
******************************************************************************
NUM_HINTS .EQU 5
.bss last_hint,16
SUBR DO_HINTS
movk 18,a8
movk 6,a9
JSRP CLOSE_SCREEN_LINE
calla SPECIAL_WIPEOUT
clr a0
move a0,@HALT
move a0,@dtype ;2d mode
move a0,@IRQSKYE
movk 1,a0 ;page flipping on
move a0,@dpageflip
movi SCRNEND,a0 ;[256,405]
move a0,@SCRNLR,L
clr a0
move a0,@WORLDTLX,L
move a0,@WORLDTLY,L
movi hstd_mod,a0
move a0,@BAKMODS,L
calla BGND_UD1 ;create objects for background
CLR A1
MOVE A1,@TOP_LEFT,L
MOVE A1,@BOT_RIGHT,L
MOVI 100,A0
CALLA RNDPER
;temp!
JRUC WE_DO_THE_DESIGNER_HINTS
; JRLO WE_DO_THE_DESIGNER_HINTS
; MOVK NUM_HINTS,A0
; CALLA RNDRNG0
;
; SLL 6,A0
; ADDI GENERAL_HINT,A0
; MOVE *A0+,A4,L
; MOVE *A0+,A5,L
; PUSH A5,A4
;
; CALLA PUT_UP_BAR
;
; MOVI GENTIP,A2
; CALLA PUT_UP_TIP_NAME
;
; JRUC GEN_TIP_BACK_IN_HERE
WE_DO_THE_DESIGNER_HINTS
move @last_hint,a0
jrn #reset_chint
inc a0
cmpi NUM_HINTS,a0
jrge #reset_chint
jruc #shint
#reset_chint
clr a0
#shint move a0,@last_hint
PUSHP A0
SLL 7,A0
ADDI WHICH_HINT,A0
MOVE *A0+,A4,L
MOVE *A0+,A5,L
PUSH A5,A4
PUSH A0
CALLA PUT_UP_BAR
PULL A0
MOVE *A0+,A2,L
PUSH A0
CALLA PUT_UP_TIP_NAME
PULLP A2
SLL 5,A2
ADDI WHICH_22_NUM,A2
MOVE *A2,A2,L
MOVE *A8(OSIZEX),A0
SRL 1,A0
ADDI 200,A0
SLL 16,A0
MOVI [9,0],A1
movi 1800H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
movi WGFS_W_P,b0
calla BEGINOBJP
MOVI [400,0],A0
MOVI [254,0],A1
MOVI MUGBAK,A2
movi 17FFH,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
MOVI [400,0],A0
MOVI [254,0],A1
MOVI MUGFRNT,A2
movi 1801H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
PULL A0
MOVE *A0+,A2,L
MOVI [400,0],A0
MOVI [254,0],A1
movi 1800H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
GEN_TIP_BACK_IN_HERE
MOVI #SETUP_LINE_1,A2
CALLA setup_message
CALLA hscore_colcyc2
PULL A4
CALLA print_string_C2
PULL A4
PUSHP A4
; movk 18,a8
; movk 6,a9
; JSRP OPEN_SCREEN_LINE
MOVI #SETUP_LINE,A2
CALLA setup_message
MOVI 15,A0
MOVE A0,@mess_line_spacing
PULLP A4
MOVE A4,A10
MOVE *A10+,A9,L
NEXT_HINT
MOVE *A10+,A4,L
CALLA print_string_C2
move @mess_cursy,A0
ADDI 15,A0
move a0,@mess_cursy
DSJS A9,NEXT_HINT
movk 18,a8
movk 6,a9
JSRP OPEN_SCREEN_LINE
SLEEP 80
movi 15*TSEC,a10
JSRP wait_on_butn
movi FLASH_PID,a0
clr a1
not a1
CALLA KILALL
RETP ;?????? GOOD IDEA?
PUT_UP_TIP_NAME
MOVI [190,0],A0
MOVI [21,0],A1
movi 1800H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
movi WGFS_W_P,b0
; calla BEGINOBJ
calla BEGINOBJP
RETS
PUT_UP_BAR
MOVI [10,0],A0
MOVI [21,0],A1
movi MVEBAR_R,a2
movi 1799H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
MOVI [13,0],A0
MOVI [21+9,0],A1
movi SHADOW01,a2
movi 1799H,a3
movi DMAWNZ,a4
movi CLSNEUT,a5
CLR A6
CLR A7
calla BEGINOBJ
CREATE FLASH_PID,JUDDER_SHADOW
RETS
#title_mod
.long slateBMOD
; .long LAVAPGBMOD
.word 0,0
.long 0
WHICH_22_NUM
.LONG WGSF22_1
.LONG WGSF22_2
.LONG WGSF22_3
.LONG WGSF22_4
.LONG WGSF22_5
.LONG WGSF22_6
.LONG WGSF22_7
.LONG WGSF22_8
.LONG WGSF22_9
.LONG WGSF22_0
WHICH_HINT
.LONG #HNTT_2,#HNT_2,JMSTIP,JASMUG
.LONG #HNTT_4,#HNT_4,MIKTIP,MIKMUG
.LONG #HNTT_3,#HNT_3,MJTTIP,MRKMUG
.LONG #HNTT_7,#HNT_7,EUGTIP,EUGMUG
.LONG #HNTT_5,#HNT_5,SHNTIP,SHNMUG
.LONG #HNTT_8,#HNT_8,JAKTIP,JAKMUG
.LONG #HNTT_1,#HNT_1,SALTIP,SALMUG
.LONG #HNTT_6,#HNT_6,TONTIP,TONMUG
.LONG #HNTT_9,#HNT_9,JOSTIP,JSHMUG
.LONG #HNTT_9,#HNT_9,JOSTIP,JSHMUG
;GENERAL_HINT
; .LONG #HNTT_10,#HNT_10
; .LONG #HNTT_10,#HNT_10
; .LONG #HNTT_10,#HNT_10
; .LONG #HNTT_10,#HNT_10
; .LONG #HNTT_10,#HNT_10
; .LONG #HNTT_10,#HNT_10
#SETUP_LINE_1
JAM_STR osgemd_ascii,10,0,200,50+12,RUBYPAL,print_string_C2
#SETUP_LINE
JAM_STR wsf10_ascii,10,1,200,90+18,WSF_Y_P,print_string_C2
#HNTT_1 .byte "OUT OF RING",0,0
.even
#HNT_1 .long 4,#HNT_1A,#HNT_1B,#HNT_1C,#HNT_1D
#HNT_1A .byte "DON'T STAY OUT OF THE RING FOR",0,0
#HNT_1B .byte "LONG. YOU SUFFER DAMAGE UNTIL",0,0
#HNT_1C .byte "YOU RE-ENTER THE RING OR YOUR",0,0
#HNT_1D .byte "OPPONENT JOINS YOU OUTSIDE.",0,0
.even
#HNTT_2 .byte "IN-AIR PICK OFF",0,0
.even
#HNT_2 .long 4,#HNT_2A,#HNT_2B,#HNT_2C,#HNT_2D
#HNT_2A .byte "WHEN YOUR OPPONENT IS RUNNING",0,0
#HNT_2B .byte "OR LEAPING AT YOU, AWAY AWAY",0,0
#HNT_2C .byte "PUNCH CAN BE USED TO PICK HIM",0,0
#HNT_2D .byte "OFF AND DELIVER A BODY SLAM!",0,0
.even
#HNTT_3 .byte "TURNBUCKLE LEAPS",0,0
.even
#HNT_3 .long 6,#HNT_3A,#HNT_3B,#HNT_3C,#HNT_3D,#HNT_3E,#HNT_3F
#HNT_3A .byte "CLIMB THE TURNBUCKLE AND LEAP AT",0,0
#HNT_3B .byte "YOUR OPPONENT, USING THE JOYSTICK",0,0
#HNT_3C .byte "TO GUIDE YOUR FLIGHT. THESE ATTACKS",0,0
#HNT_3D .byte "CANNOT BE BLOCKED. HOWEVER, THEY",0,0
#HNT_3E .byte "CAN BE PICKED OFF WITH A WELL TIMED",0,0
#HNT_3F .byte "KICK.",0,0
.even
#HNTT_4 .byte "COMBO MODE",0,0
.even
#HNT_4 .long 6,#HNT_4A,#HNT_4B,#HNT_4C,#HNT_4D,#HNT_4E,#HNT_4F
#HNT_4A .byte "PERFORMING A VARIETY OF MOVES",0,0
#HNT_4B .byte "ACTIVATES 'COMBO MODE'. THIS ALLOWS",0,0
#HNT_4C .byte "YOU TO LAUNCH SPECIAL DEVASTATING",0,0
#HNT_4D .byte "COMBO MOVES FROM THE HEADHOLD.",0,0
#HNT_4E .byte "MOST COMBOS START WITH TOWARD",0,0
#HNT_4F .byte "TOWARD AND A BUTTON PRESS.",0,0
.even
#HNTT_5 .byte "REVERSALS",0,0
.even
#HNT_5 .long 5,#HNT_5A,#HNT_5B,#HNT_5C,#HNT_5D,#HNT_5E
#HNT_5A .byte "MANY HEADHOLD MOVES, SUCH AS THE",0,0
#HNT_5B .byte "PILEDRIVER, CAN BE DONE BY EITHER",0,0
#HNT_5C .byte "WRESTLER. WHOEVER DOES THE CORRECT",0,0
#HNT_5D .byte "STICK AND BUTTON COMBINATION FIRST",0,0
#HNT_5E .byte "WILL DO THE MOVE.",0,0
.even
#HNTT_6 .byte "HIGH RISK MANEUVERS",0,0
.even
#HNT_6 .long 3,#HNT_6A,#HNT_6B,#HNT_6C
#HNT_6A .byte "BOUNCE OFF THE ROPES JUST BEFORE",0,0
#HNT_6B .byte "PERFORMING MANY JUMPING ATTACKS",0,0
#HNT_6C .byte "FOR AN EXTRA DAMAGE BONUS!",0,0
.even
#HNTT_7 .byte "SECOND WIND",0,0
.even
#HNT_7 .long 6,#HNT_7A,#HNT_7B,#HNT_7C,#HNT_7D,#HNT_7E,#HNT_7F
.long #HNT_7G,#HNT_7H
#HNT_7A .byte "WHEN YOU'RE ABOUT TO BE PINNED",0,0
#HNT_7B .byte "FOR THE SECOND TIME, YOU CAN",0,0
#HNT_7C .byte "GET YOUR SECOND WIND AND FIGHT",0,0
#HNT_7D .byte "ON, BUT ONLY IF YOUR COMBO METER",0,0
#HNT_7E .byte "IS LIT. QUICKLY HIT THE BUTTONS",0,0
#HNT_7F .byte "ONCE YOUR HEALTH METER RUNS OUT.",0,0
#HNT_7G .byte "NOTE THAT THIS DOES NOT WORK IF",0,0
#HNT_7H .byte "IF YOU DIE OUTSIDE THE RING.",0,0
.even
#HNTT_8 .byte "HEAD HOLDS",0,0
.even
#HNT_8 .long 6,#HNT_8A,#HNT_8B,#HNT_8C,#HNT_8D,#HNT_8E,#HNT_8F
#HNT_8A .byte "RAPIDLY PRESSING THE BUTTONS FROM",0,0
#HNT_8B .byte "A HEADHOLD WILL EVENTUALLY CAUSE",0,0
#HNT_8C .byte "A PILEDRIVER OR OTHER SPECIAL MOVE",0,0
#HNT_8D .byte "TO HAPPEN. BUT THERE ARE MUCH",0,0
#HNT_8E .byte "FASTER WAYS TO DO THEM, SUCH AS",0,0
#HNT_8F .byte "TOWARD TOWARD POWER PUNCH.",0,0
.even
#HNTT_9 .byte "EXCESSIVE BLOCKING",0,0
.even
#HNT_9 .long 5,#HNT_9A,#HNT_9B,#HNT_9C,#HNT_9D,#HNT_9E
#HNT_9A .byte "IF YOUR OPPONENT IS CONSTANTLY",0,0
#HNT_9B .byte "BLOCKING, TRY GETTING IN CLOSE",0,0
#HNT_9C .byte "TO PUT HIM IN A HEADHOLD. THEY",0,0
#HNT_9D .byte "CAN'T BE BLOCKED. HIP TOSSES",0,0
#HNT_9E .byte "ARE ALSO DIFFICULT TO BLOCK.",0,0
.even
#*****************************************************************************
*
* successful octopus brings us to this page. It's a top-level process, just
* like the normal attract mode loop
.ref _switch_addr,_switch2_addr
OCTOBTN .macro VAL,TIMEOUT
movi :VAL:,a8
movi :TIMEOUT:,a9
JSRP #wait_but
jrc #octo_init
.endm
SUBR octopus_page
;make sure we're in attract mode
move @GAMSTATE,a14
cmpi INAMODE,a14
jane SUCIDE
calla SPECIAL_WIPEOUT
;let the sound board reset finish up.
SLEEPK 8
clr a3
calla SNDSND
;put up some wallpaper
JSRP GENERIC_DISPLAY
;draw the text/pix
calla display_unblank
movi TSEC*10,a10
#octo_init
;check overall timeout
TEST a10
jrn attract_mode
;octopus
OCTOBTN >fffeffff,TSEC/3 ;kick
OCTOBTN >ffffffdf,TSEC/3 ;block
OCTOBTN >ffffffbf,TSEC/3 ;pwr pnch
OCTOBTN >ffffffef,TSEC/3 ;pnch
OCTOBTN >ffffffdf,TSEC/3 ;block
OCTOBTN >fffdffff,TSEC/3 ;pwr kick
;success!
movi DIAGP,a14
move a14,*a13(PROCID)
.ref HID_P
jauc HID_P
;begin a normal attract mode
jruc attract_mode
SUBRP #wait_but
calla #mk_a0
cmp a0,a8
jreq #gotit
SLEEPK 1
dec a10
dsj a9,#wait_but
setc
RETP
#gotit clrc
RETP
SUBRP #mk_a0
move @_switch_addr,a0,L
move @_switch2_addr,a1,L
move *a0,a0
move *a1,a1
rl 16,a1
and a1,a0
rets
******************************************************************************
.end

Reference in New Issue View Git Blame Copy Permalink