70 lines
1.3 KiB
NASM
70 lines
1.3 KiB
NASM
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
CREATE LORDPID,OVERLORD
|
||
CREATE COLPID,COLLISIONS
|
||
CREATE PCPID,PIECES
|
||
CREATE ICONPID,SEND_ICON
|
||
MOVK 1,A8 ;INDICATE PLAYER 1
|
||
CLR A9 ;INDICATE START ME BEHIND PODIUM
|
||
;FOR DEMO MODE SCREENS
|
||
CREATE PLY1PID,DRAW_PLYR_TORSO ;START ALL GAME PROCESSES
|
||
CALLA BTOF
|
||
MOVE @WAVE,A8
|
||
CALLA HEXTOASC
|
||
CLR A0
|
||
MOVI 03F3FH,A6 ;COLOR CYCLE
|
||
MOVI [080H,0C4H],A9 ;Y,X POSITION
|
||
MOVE @WAVE,A8
|
||
DEC A8
|
||
;CIRCUIT 1 ONLY
|
||
MOVI NAMEBASE,A10
|
||
SLL 5,A8
|
||
ADD A8,A10
|
||
MOVE *A10,A8,L
|
||
MOVI [0,2],A10 ;Y,X SPACING BETWEEN CHARCTERS
|
||
MOVI RD15FONT,A11 ;FONT TABLE
|
||
JSRP STRCNRMO
|
||
CALLA DRAWLIVES ;DRAW PLAYERS LIVES IN P BOX
|
||
SLEEP 54*2 ;ALLOW ENOUGH TIME TO SEE WAVE NO.
|
||
CALLA ERASE_TXT
|
||
MOVK 2,A0 ;TAKE OUT AND PUT IN TURMELL FILE
|
||
MOVE A0,@EHALT
|
||
MOVE @PLYRPRCS,A7,L ;ADJUST PLYR 1 BNDRYS
|
||
CALLA DO_BND
|
||
|
||
;EVEN THOUGH DEMO ONLY SHOWS PLAYER 1 RIGHT NOW!
|
||
; MOVE @PLYRPRCS+32,A7,L ;ADJUST PLYR 2 BNDRYS
|
||
; CALLA DO_BND
|
||
|
||
;TURN ON RING AROUND PLAYER 1
|
||
MOVK 1,A9
|
||
MOVI 06D0H,A10 ;TIME RINGS ARE ON
|
||
CREATE RNGPID,RINGS ;PLACE RING AROUND PLAYER X
|
||
DIE
|
||
|
||
WVFADE .LONG 0,PAL5TAB,P5TAB,P6TAB,0,0,0,0,0,0,P5TAB
|
||
PAL5TAB:
|
||
.LONG AUTOPAL,PRPLARN,NUARENAP,0
|
||
P5TAB:
|
||
.LONG AUTOPAL,NUARENAP,0
|
||
P6TAB:
|
||
.LONG NUARENAP,RBTP5,0
|
||
|
||
|