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
|
|||
|
|
|
|||
|
|
|