1 * TANK BATTLE - COPYRIGHT 1984 BY DAN PINAL 2 * TANK GAME - MASTER FILE 3 * THIS IS D:TANKMAST.SRC 4 * 5 ORG $4000 6 * TF "D:TANK.OBJ" 7 * 8 INCLUDE EQUATES 1 ; 2 ; EQUATE FILE 3 ; O.S. EQUATES 4 RTCLOK EQU $12 5 RTCLOC EQU RTCLOK+2 6 ATRACT EQU $4D 7 VDSLST EQU $200 ;DLI VECTOR 8 VBLKD EQU $224 9 SDMCTL EQU $22F ;SHADOW DMACTL 10 SDLSTL EQU $230 ;SHADOW DISPLAY LIST POINTER 11 SDLSTH EQU $231 ;SHADOW DLIST HI 12 GPRIOR EQU $26F ;SHADOW PRIORITY REG. 13 STICK0 EQU $278 14 STRIG0 EQU $284 15 PCOLR0 EQU $2C0 16 PCOLR1 EQU $2C1 17 PCOLR2 EQU $2C2 18 PCOLR3 EQU $2C3 19 COLOR0 EQU $2C4 20 COLOR1 EQU $2C5 21 COLOR2 EQU $2C6 22 COLOR3 EQU $2C7 23 COLOR4 EQU $2C8 24 CHBAS EQU $2F4 ;SHADOW CHR BAS 25 HPOSP0 EQU $D000 26 MOPF EQU $D000 27 HPOSP1 EQU $D001 28 HPOSP2 EQU $D002 29 HPOSM0 EQU $D004 30 POPF EQU $D004 31 HPOSM1 EQU $D005 32 MOPL EQU $D008 33 P2PL EQU $D00E 34 COLPM2 EQU $D014 35 GRACTL EQU $D01D 36 HITCLR EQU $D01E 37 CONSOL EQU $D01F 38 AUDF1 EQU $D200 39 AUDC1 EQU $D201 40 AUDF2 EQU $D202 41 AUDC2 EQU $D203 42 AUDF3 EQU $D204 43 AUDC3 EQU $D205 44 AUDF4 EQU $D206 45 AUDC4 EQU $D207 46 AUDCTL EQU $D208 47 STIMER EQU $D209 ;(W) START TIMER (RESET AUD-FREQ DIVIDERS TO AUDF VALUES) 48 RANDOM EQU $D20A 49 SKCTL EQU $D20F 50 PMBASE EQU $D407 51 CHBASE EQU $D409 52 WSYNC EQU $D40A 53 NMIEN EQU $D40E ;FOR DLI 54 SETVBV EQU $E45C 55 XITVBV EQU $E462 9 INCLUDE TANK.EQU 1 * GAME EQUATES 2 * THIS IS TANK.EQU 3 CHRLO EQU $F0 4 CHRHI EQU $F1 5 DATAP1 EQU $F2 6 DATAP2 EQU $F4 7 POTMP0 EQU $F6 8 POTMP1 EQU $F7 9 POTMP2 EQU $F8 10 POTMP3 EQU $F9 11 POTMP4 EQU $FA 12 POTMP5 EQU $FB 13 POTMP6 EQU $FC 14 PDATA EQU $6000 15 CHRSET EQU PDATA 16 MISSILES EQU PDATA+$300 17 PLAYR0 EQU MISSILES+$100 18 PLAYR1 EQU PLAYR0+$100 19 PLAYR2 EQU PLAYR1+$100 20 PLAYR3 EQU PLAYR2+$100 21 SCREEN EQU $7000 22 WINDOW EQU SCREEN+400 23 LINE1 EQU WINDOW 24 LINE2 EQU LINE1+20 25 LINE3 EQU LINE2+20 26 LINE4 EQU LINE3+20 27 ATARI EQU $E000 ;INTERNAL CHARACTER SET 28 ; 10 INCLUDE TANK.SRC 1 * THIS IS D:TANK.SRC 2 * SET UP SCREEN & PMG 3 TITLE 4 ; SET UP COLORS 4000 A209 5 LDX #$09 6 AA0 4002 BD6C4A 7 LDA COLORS,X 4005 9DC002 8 STA PCOLR0,X 4008 CA 9 DEX 4009 10F7 10 BPL AA0 400B A907 11 LDA #TDLIST ;PUT UP TITLE 400D 8D3002 12 STA SDLSTL 4010 A94B 13 LDA #NDLIST 4045 8D3002 40 STA SDLSTL 4048 A94A 41 LDA #