-
Notifications
You must be signed in to change notification settings - Fork 0
/
MAIN.X68
84 lines (54 loc) · 3.13 KB
/
MAIN.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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
; =============================================================================
; TITLE : BOMBERMAN
; AUTHORS : GIAN LUCAS MARTÍN & TOMÁS BORDOY
; CREATION : 2-DEC-2018
; =============================================================================
ORG $1000
; --- CODE INCLUDES -----------------------------------------------------------
INCLUDE "SYSCONST.X68" ; SYSTEM CONSTANTS
INCLUDE "SYSTEM.X68" ; SYSTEM CODE
; TO DO: PUT YOUR GAME-RELATED INCLUDES HERE
INCLUDE "CONST.X68" ; USER CONSTANTS
INCLUDE "UTIL.X68" ; UTILITY MACRO AND SUBROUTINES
INCLUDE "GENERAL.X68" ; GENERAL PURPOSE, GAME RELATED
INCLUDE "GFX.X68" ; GRAPHICS MANAGEMENT
INCLUDE "MAP.X68" ; MAP MANAGEMENT
INCLUDE "AGENT.X68" ; AGENT MANAGEMENT
INCLUDE "PLAYER.X68" ; PLAYER MANAGEMENT
INCLUDE "ENEMY.X68" ; ENEMY MANAGEMENT
INCLUDE "BOMB.X68" ; BOMB MANAGEMENT
INCLUDE "GOVER.X68" ; GAME OVER MANAGEMENT
INCLUDE "INTRO.X68" ; INTRO MANAGEMENT
INCLUDE "VICTORY.X68" ; VICTORY MANAGEMENT
INCLUDE "STATES.X68" ; GAME STATES MANAGEMENT
INCLUDE "AGENTLST.X68" ; AGENT LIST MANAGEMENT
; --- DATA INCLUDES -----------------------------------------------------------
INCLUDE "DATA/GFXDATA.X68" ; GRAPHICS DATA
INCLUDE "DATA/MAPDATA.X68" ; MAP DATA
INCLUDE "DATA/STRDATA.X68" ; STRING DATA
; --- INITIALIZE --------------------------------------------------------------
START JSR SYSINIT ; INITIALIZE SYSTEM CODE
JSR STAINIT ; INITIALIZE GAME STATE
; TO DO: CALL GAME INITIALIZATION CODE HERE
; --- UPDATE ------------------------------------------------------------------
.LOOP TRAP #KBDTRAP ; READ KEYBOARD
JSR STAUPD ; UPDATE DEPENDING ON THE STATE
; TO DO: CALL GAME UPDATE CODE HERE
; --- WAIT SYNCH --------------------------------------------------------------
.WINT TST.B (SCRINTCT) ; WAIT FOR INTERRUPT
BEQ .WINT
CLR.B (SCRINTCT)
; --- PLOT --------------------------------------------------------------------
; TO DO: CALL GAME PLOT CODE HERE
JSR STAPLOT ; PLOT DEPENDING ON THE STATE
TRAP #SCRTRAP ; SHOW GRAPHICS
BRA .LOOP
SIMHALT
; --- VARIABLES ---------------------------------------------------------------
INCLUDE "SYSVAR.X68" ; SYSTEM VARIABLES
INCLUDE "VAR.X68" ; GAME VARIABLES
END START
*~Font name~Courier New~
*~Font size~10~
*~Tab type~0~
*~Tab size~4~