First commit
[asteroids.git] / ASTDEC.XX
1         .SBTTL ASTDEC-ASTEROID DECLARATION\r
2 THRKHZ  =2001                   ;3KHZ SIGNAL\r
3 HALT    =2002                   ;D7=0 FOR HALTED\r
4 FIRESW  =2004                   ;FIRE BUTTON (D7=1 FOR ON)\r
5 HYPSW   =2003                   ;HYPERSPACE SWITCH (D7=1) FOR ON\r
6 DIAGSW  =2005                   ;DIGNOSTIC STEP SWITCH\r
7 $LAM    =2006                   ;SLAM SWITCH\r
8 $LMBIT  =80                     ;D7=1 FOR ON\r
9 STSTSW  =2007                   ;SELF TEST SWITCH (D7=1 FOR ON)\r
10 $COINA  =2400                   ;COIN SWITCHES (LEFT TO RIGHT, OFFSET=1)\r
11 STRT1   =2403                   ;1 PLAYER START SWITCH (D7=1 FOR ON)\r
12 STRT2   =2404                   ;2 PLAYER START SWITCH (D7=1 FOR ON)\r
13 THRUST  =2405                   ;THRUST (D7=1 FOR ON)\r
14 ROTL    =2407                   ;ROTATE LEFT (D7=1 FOR ON)\r
15 ROTR    =2406                   ;ROTATE RIGHT (D7=1 FOR ON)\r
16 OPTN1   =2800                   ;OPTION SWITCH 8=D1, SW7=D0, 0=ON (GAME PRICE)\r
17 OPTN2   =2801                   ;D1=SW6, D0=SW5 (MECH VALUES)\r
18 OPTN3   =2802                   ;D1=SW4, D0=SW3 (SW3=DIFFICULTY)\r
19 OPTN4   =2803                   ;D1=SW2, D0=SW1 (LANGUAGE)\r
20 GOADD   =3000                   ;RESTART VECTOR GEN\r
21 OUT1    =3200                   ;OUTPUT LATCH\r
22                                 ;D3-D5=COIN COUNTERS, 1=ON (LEFT TO RIGHT RESP)\r
23                                 ;D2=BANK SELECT\r
24                                 ;D1=1 PLAYERS START LAMP, 0=ON\r
25                                 ;D0=2 PLAYERS START LAMP, 0=ON\r
26 WTDOG   =3400                   ;WATCH DOG\r
27 EXPSND  =3600                   ;EXPLOSION SOUND  D6-D7=PITCH,D2-D5=VOLUME\r
28 THUMP   =3A00                   ;THUMP SOUND D4=1 FOR ON, D0-D3=FREQUENCY\r
29 SCRSND  =3C00                   ;SAUCER THRUST SOUND,D7=1 FOR ON\r
30 SCRFIR  =3C01                   ;SAUCER FIRE SOUND, D7=1 FOR ON\r
31 SCRSEL  =3C02                   ;SAUCER SOUND SELECT,D7=0 FOR SMALL SAUCER,D7=1 FOR LARGERE\r
32 SHPSND  =3C03                   ;SHIP THRUST SOUND, D7=1 FOR ON\r
33 SHPFIR  =3C04                   ;SHIP FIRE SOUND,D7=1 FOR ON\r
34 TONE    =3C05                   ;TONE FOR EXTRA LIFE, D7=1 FOR ON\r
35 NRESET  =3E00                   ;NOISE RESET\r
36 VECRAM  =4000                   ;VECTOR RAM\r
37 ;\r
38 ;SYMBOL DECLARATIONS\r
39 ;\r
40 NOBJ    =27.                    ;NUMBER OF ASTEROIDS\r
41                                 ;PLUS 1 SHIP\r
42                                 ;PLUS 1 SAUCER\r
43                                 ;PLUS 2 SAUCER TORPEDOES\r
44                                 ;PLUS 4 SHIP TORPEDOES\r
45         .SBTTL  MACRO DECLARATIONS\r
46         .MACRO LXL,ADD          ;LOAD LOWER HALF OF ADDRESS INTO X\r
47         LDX I,0\r
48         .=.-1\r
49         .WORD ADD\r
50         .=.-1\r
51         .ENDM\r
52         .MACRO LAH,ADD          ;LOAD UPPER HALF OF ADDRESS INTO A\r
53         LDA I,0\r
54         .=.-1\r
55         .ENABL M68\r
56         .WORD ADD\r
57         .DSABL M68\r
58         .=.-1\r
59         .ENDM   \r
60 \r
61 \r
62 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0