forked from aburguera/YAP
-
Notifications
You must be signed in to change notification settings - Fork 0
/
VICTORY.X68
45 lines (42 loc) · 1.57 KB
/
VICTORY.X68
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
; =============================================================================
; VICTORY MANAGEMENT
; =============================================================================
; -----------------------------------------------------------------------------
VICINIT EQU GOVINIT
; INITIALIZES THE VICTORY
; INPUT - NONE
; OUTPUT - NONE
; MODIFIES - NONE
; NOTE - USES THE SAME CODE AND VARIABLES THAT GAME OVER. SO, VICINIT
; IS JUST A PLACEHOLDER FOR GOVINIT.
; -----------------------------------------------------------------------------
; -----------------------------------------------------------------------------
VICUPD EQU GOVUPD
; UPDATES THE VICTORY
; INPUT - NONE
; OUTPUT - NONE
; MODIFIES - NONE
; NOTE - USES THE SAME CODE AND VARIABLES THAT GAME OVER. SO, VICUPD
; IS JUST A PLACEHOLDER FOR GOVUPD.
; -----------------------------------------------------------------------------
; -----------------------------------------------------------------------------
VICPLOT
; PLOTS THE VICTORY
; INPUT - NONE
; OUTPUT - NONE
; MODIFIES - NONE
; -----------------------------------------------------------------------------
MOVEM.L D7/A0,-(A7)
MOVE.L #$00020000,D7
MOVE.W (GOVCUROF),D7
JSR GENCURT
TST.W (GOVCUROF)
BPL .END
LEA STRBLKVI,A0
JSR GENFPLOT
.END MOVEM.L (A7)+,D7/A0
RTS
*~Font name~Courier New~
*~Font size~10~
*~Tab type~0~
*~Tab size~4~