;   @com.wudsn.ide.asm.mainsourcefile=scorch.asm

    .IF *>0 ;this is a trick that prevents compiling this file alone

;===================================================================================
;==========================CONSTANT TABLES, do not erase!===========================
;===================================================================================
TankColoursTable  .BYTE $52,$32,$72,$92,$B2,$02
CashOptionL ;(one zero less than on the screen)
    .by 0,<200,<500,<800,<1000
CashOptionH   
    .by 0,>200,>500,>800,>1000
GravityTable   .by 10,20,25,30,40
MaxWindTable   .by 5,20,40,60,80
RoundsTable    .by 10,20,30,40,50
flyDelayTable  .by 255,150,75,35,1
seppukuTable   .by 255, 45,25,15,9
;------------------------------------------------

LevelNameBeginL ; begins of level names
    .by <NamesOfLevels,<(NamesOfLevels+10),<(NamesOfLevels+20)
    .by <(NamesOfLevels+32),<(NamesOfLevels+42),<(NamesOfLevels+52)
    .by <(NamesOfLevels+64),<(NamesOfLevels+74),<(NamesOfLevels+84)
LevelNameBeginH
    .by >NamesOfLevels,>(NamesOfLevels+10),>(NamesOfLevels+20)
    .by >(NamesOfLevels+32),>(NamesOfLevels+42),>(NamesOfLevels+52)
    .by >(NamesOfLevels+64),>(NamesOfLevels+74),>(NamesOfLevels+84)
;--------------
TanksWeaponsTableL
    .by <TanksWeapon1,<TanksWeapon2,<TanksWeapon3,<TanksWeapon4,<TanksWeapon5,<TanksWeapon6
TanksWeaponsTableH
    .by >TanksWeapon1,>TanksWeapon2,>TanksWeapon3,>TanksWeapon4,>TanksWeapon5,>TanksWeapon6
;-----4x4 texts-----

LineTop
    dta d"(%%%%%%%%%%%%)"
    .byte $ff
;# - vertical, () * +, % - horizontal
LineBottom
    dta d"*%%%%%%%%%%%%+"
    .byte $ff
LineEmpty
    dta d"#            #"
    .byte $ff
LineHeader1
    dta d"# ROUND: "
RoundNrDisplay
    dta d"    #"
    .byte $ff
LineHeader2
    dta d"#  RESULTS   #"
    .byte $ff
LineGameOver
    dta d"# GAME  OVER #"
    .byte $ff
seppukuText
    dta d"#  SEPPUKU!  #"
    .byte $ff
lineClear
    dta d"              "
    .byte $ff


;-----------
pmtableL ; addressess of the P/M memory for 5 tanks (6th is without P/M background)
    .by <(pmgraph+$400)
    .by <(pmgraph+$500)
    .by <(pmgraph+$600)
    .by <(pmgraph+$700)
    .by <(pmgraph+$300)  ; this is a missile background
pmtableH
    .by >(pmgraph+$400)
    .by >(pmgraph+$500)
    .by >(pmgraph+$600)
    .by >(pmgraph+$700)
    .by >(pmgraph+$300)
;-----------
; this table changes Angle to the appropriate tank character
BarrelTableL
    .by $02,$02,$02,$02,$02,$02,$02,$02
    .by $04,$04,$04,$04,$04,$04,$04,$04
    .by $06,$06,$06,$06,$06,$06,$06,$06,$06
    .by $08,$08,$08,$08,$08,$08,$08,$08
    .by $0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a
    .by $0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c
    .by $0e,$0e,$0e,$0e,$0e,$0e,$0e,$0e
    .by $10,$10,$10,$10,$10,$10,$10,$10
    .by $12,$12,$12,$12,$12,$12,$12,$12,$12
    .by $14,$14,$14,$14,$14,$14,$14,$14
    .by $16,$16,$16,$16,$16,$16,$16,$16
BarrelTableR
    .by $2c,$2c,$2c,$2c,$2c,$2c,$2c,$2c
    .by $2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a
    .by $28,$28,$28,$28,$28,$28,$28,$28,$28
    .by $26,$26,$26,$26,$26,$26,$26,$26
    .by $24,$24,$24,$24,$24,$24,$24,$24
    .by $22,$22,$22,$22,$22,$22,$22,$22,$22
    .by $20,$20,$20,$20,$20,$20,$20,$20
    .by $1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e
    .by $1c,$1c,$1c,$1c,$1c,$1c,$1c,$1c,$1c
    .by $1a,$1a,$1a,$1a,$1a,$1a,$1a,$1a
    .by $18,$18,$18,$18,$18,$18,$18,$18

sintable
    .by 0
    .by 4
    .by 8
    .by 13
    .by 17
    .by 22
    .by 26
    .by 31
    .by 35
    .by 40
    .by 44
    .by 48
    .by 53
    .by 57
    .by 61
    .by 66
    .by 70
    .by 74
    .by 79
    .by 83
    .by 87
    .by 91
    .by 95
    .by 100
    .by 104
    .by 108
    .by 112
    .by 116
    .by 120
    .by 124
    .by 128
    .by 131
    .by 135
    .by 139
    .by 143
    .by 146
    .by 150
    .by 154
    .by 157
    .by 161
    .by 164
    .by 167
    .by 171
    .by 174
    .by 177
    .by 181
    .by 184
    .by 187
    .by 190
    .by 193
    .by 196
    .by 198
    .by 201
    .by 204
    .by 207
    .by 209
    .by 212
    .by 214
    .by 217
    .by 219
    .by 221
    .by 223
    .by 226
    .by 228
    .by 230
    .by 232
    .by 233
    .by 235
    .by 237
    .by 238
    .by 240
    .by 242
    .by 243
    .by 244
    .by 246
    .by 247
    .by 248
    .by 249
    .by 250
    .by 251
    .by 252
    .by 252
    .by 253
    .by 254
    .by 254
    .by 255
    .by 255
    .by 255
    .by 255
    .by 255
    .by 255 ;anti self destruction byte

costable
    .by 255 ;anti self destruction byte
    .by 255
    .by 255
    .by 255
    .by 255
    .by 255
    .by 254
    .by 254
    .by 253
    .by 252
    .by 252
    .by 251
    .by 250
    .by 249
    .by 248
    .by 247
    .by 246
    .by 244
    .by 243
    .by 242
    .by 240
    .by 238
    .by 237
    .by 235
    .by 233
    .by 232
    .by 230
    .by 228
    .by 226
    .by 223
    .by 221
    .by 219
    .by 217
    .by 214
    .by 212
    .by 209
    .by 207
    .by 204
    .by 201
    .by 198
    .by 196
    .by 193
    .by 190
    .by 187
    .by 184
    .by 181
    .by 177
    .by 174
    .by 171
    .by 167
    .by 164
    .by 161
    .by 157
    .by 154
    .by 150
    .by 146
    .by 143
    .by 139
    .by 135
    .by 131
    .by 128
    .by 124
    .by 120
    .by 116
    .by 112
    .by 108
    .by 104
    .by 100
    .by 95
    .by 91
    .by 87
    .by 83
    .by 79
    .by 74
    .by 70
    .by 66
    .by 61
    .by 57
    .by 53
    .by 48
    .by 44
    .by 40
    .by 35
    .by 31
    .by 26
    .by 22
    .by 17
    .by 13
    .by 8
    .by 4
    .by 0

linetableL
    :screenheight .by <(display+screenBytes*#)
linetableH
    :screenheight .by >(display+screenBytes*#)
;----------------------------
bittable
    .by $80,$40,$20,$10,$08,$04,$02,$01
bittable2
    .by $7f,$bf,$df,$ef,$f7,$fb,$fd,$fe
;----------------------------
disktance ;tanks distance
    .by 0,0
    .by screenwidth/3
    .by screenwidth/4
    .by screenwidth/5
    .by screenwidth/6
    .by screenwidth/7
    ;max number of players=6

; this table is for deciding where a tank should slide
; accordingly to what is below the tank
; there are 3 bits used here
; bit 0 - go down
; bit 1 - go left
; bit 2 - go right
; position in the table equals to bit pattern of soil below tank

WhereToSlideTable
  ; we have 3 bits, when set: 2 - go left, 1 - go right, 0 - go down
    .BY %001  ; 00000000
    .BY %101  ; 00000001
    .BY %100  ; 00000010
    .BY %100  ; 00000011
    .BY %100  ; 00000100
    .BY %100  ; 00000101
    .BY %100  ; 00000110
    .BY %100  ; 00000111
    .BY %100  ; 00001000
    .BY %000  ; 00001001
    .BY %000  ; 00001010
    .BY %000  ; 00001011
    .BY %100  ; 00001100
    .BY %000  ; 00001101
    .BY %000  ; 00001110
    .BY %000  ; 00001111
    .BY %010  ; 00010000
    .BY %000  ; 00010001
    .BY %000  ; 00010010
    .BY %000  ; 00010011
    .BY %000  ; 00010100
    .BY %000  ; 00010101
    .BY %000  ; 00010110
    .BY %000  ; 00010111
    .BY %000  ; 00011000
    .BY %000  ; 00011001
    .BY %000  ; 00011010
    .BY %000  ; 00011011
    .BY %000  ; 00011100
    .BY %000  ; 00011101
    .BY %000  ; 00011110
    .BY %000  ; 00011111
    .BY %010  ; 00100000
    .BY %000  ; 00100001
    .BY %000  ; 00100010
    .BY %000  ; 00100011
    .BY %000  ; 00100100
    .BY %000  ; 00100101
    .BY %000  ; 00100110
    .BY %000  ; 00100111
    .BY %000  ; 00101000
    .BY %000  ; 00101001
    .BY %000  ; 00101010
    .BY %000  ; 00101011
    .BY %000  ; 00101100
    .BY %000  ; 00101101
    .BY %000  ; 00101110
    .BY %000  ; 00101111
    .BY %010  ; 00110000
    .BY %000  ; 00110001
    .BY %000  ; 00110010
    .BY %000  ; 00110011
    .BY %000  ; 00110100
    .BY %000  ; 00110101
    .BY %000  ; 00110110
    .BY %000  ; 00110111
    .BY %000  ; 00111000
    .BY %000  ; 00111001
    .BY %000  ; 00111010
    .BY %000  ; 00111011
    .BY %000  ; 00111100
    .BY %000  ; 00111101
    .BY %000  ; 00111110
    .BY %000  ; 00111111
    .BY %010  ; 01000000
    .BY %000  ; 01000001
    .BY %000  ; 01000010
    .BY %000  ; 01000011
    .BY %000  ; 01000100
    .BY %000  ; 01000101
    .BY %000  ; 01000110
    .BY %000  ; 01000111
    .BY %000  ; 01001000
    .BY %000  ; 01001001
    .BY %000  ; 01001010
    .BY %000  ; 01001011
    .BY %000  ; 01001100
    .BY %000  ; 01001101
    .BY %000  ; 01001110
    .BY %000  ; 01001111
    .BY %000  ; 01010000
    .BY %000  ; 01010001
    .BY %000  ; 01010010
    .BY %000  ; 01010011
    .BY %000  ; 01010100
    .BY %000  ; 01010101
    .BY %000  ; 01010110
    .BY %000  ; 01010111
    .BY %000  ; 01011000
    .BY %000  ; 01011001
    .BY %000  ; 01011010
    .BY %000  ; 01011011
    .BY %000  ; 01011100
    .BY %000  ; 01011101
    .BY %000  ; 01011110
    .BY %000  ; 01011111
    .BY %010  ; 01100000
    .BY %000  ; 01100001
    .BY %000  ; 01100010
    .BY %000  ; 01100011
    .BY %000  ; 01100100
    .BY %000  ; 01100101
    .BY %000  ; 01100110
    .BY %000  ; 01100111
    .BY %000  ; 01101000
    .BY %000  ; 01101001
    .BY %000  ; 01101010
    .BY %000  ; 01101011
    .BY %000  ; 01101100
    .BY %000  ; 01101101
    .BY %000  ; 01101110
    .BY %000  ; 01101111
    .BY %000  ; 01110000
    .BY %000  ; 01110001
    .BY %000  ; 01110010
    .BY %000  ; 01110011
    .BY %000  ; 01110100
    .BY %000  ; 01110101
    .BY %000  ; 01110110
    .BY %000  ; 01110111
    .BY %000  ; 01111000
    .BY %000  ; 01111001
    .BY %000  ; 01111010
    .BY %000  ; 01111011
    .BY %000  ; 01111100
    .BY %000  ; 01111101
    .BY %000  ; 01111110
    .BY %000  ; 01111111
    .BY %011  ; 10000000
    .BY %000  ; 10000001
    .BY %000  ; 10000010
    .BY %000  ; 10000011
    .BY %000  ; 10000100
    .BY %000  ; 10000101
    .BY %000  ; 10000110
    .BY %000  ; 10000111
    .BY %000  ; 10001000
    .BY %000  ; 10001001
    .BY %000  ; 10001010
    .BY %000  ; 10001011
    .BY %000  ; 10001100
    .BY %000  ; 10001101
    .BY %000  ; 10001110
    .BY %000  ; 10001111
    .BY %000  ; 10010000
    .BY %000  ; 10010001
    .BY %000  ; 10010010
    .BY %000  ; 10010011
    .BY %000  ; 10010100
    .BY %000  ; 10010101
    .BY %000  ; 10010110
    .BY %000  ; 10010111
    .BY %000  ; 10011000
    .BY %000  ; 10011001
    .BY %000  ; 10011010
    .BY %000  ; 10011011
    .BY %000  ; 10011100
    .BY %000  ; 10011101
    .BY %000  ; 10011110
    .BY %000  ; 10011111
    .BY %010  ; 10100000
    .BY %000  ; 10100001
    .BY %000  ; 10100010
    .BY %000  ; 10100011
    .BY %000  ; 10100100
    .BY %000  ; 10100101
    .BY %000  ; 10100110
    .BY %000  ; 10100111
    .BY %000  ; 10101000
    .BY %000  ; 10101001
    .BY %000  ; 10101010
    .BY %000  ; 10101011
    .BY %000  ; 10101100
    .BY %000  ; 10101101
    .BY %000  ; 10101110
    .BY %000  ; 10101111
    .BY %000  ; 10110000
    .BY %000  ; 10110001
    .BY %000  ; 10110010
    .BY %000  ; 10110011
    .BY %000  ; 10110100
    .BY %000  ; 10110101
    .BY %000  ; 10110110
    .BY %000  ; 10110111
    .BY %000  ; 10111000
    .BY %000  ; 10111001
    .BY %000  ; 10111010
    .BY %000  ; 10111011
    .BY %000  ; 10111100
    .BY %000  ; 10111101
    .BY %000  ; 10111110
    .BY %000  ; 10111111
    .BY %010  ; 11000000
    .BY %000  ; 11000001
    .BY %000  ; 11000010
    .BY %000  ; 11000011
    .BY %000  ; 11000100
    .BY %000  ; 11000101
    .BY %000  ; 11000110
    .BY %000  ; 11000111
    .BY %000  ; 11001000
    .BY %000  ; 11001001
    .BY %000  ; 11001010
    .BY %000  ; 11001011
    .BY %000  ; 11001100
    .BY %000  ; 11001101
    .BY %000  ; 11001110
    .BY %000  ; 11001111
    .BY %000  ; 11010000
    .BY %000  ; 11010001
    .BY %000  ; 11010010
    .BY %000  ; 11010011
    .BY %000  ; 11010100
    .BY %000  ; 11010101
    .BY %000  ; 11010110
    .BY %000  ; 11010111
    .BY %000  ; 11011000
    .BY %000  ; 11011001
    .BY %000  ; 11011010
    .BY %000  ; 11011011
    .BY %000  ; 11011100
    .BY %000  ; 11011101
    .BY %000  ; 11011110
    .BY %000  ; 11011111
    .BY %010  ; 11100000
    .BY %000  ; 11100001
    .BY %000  ; 11100010
    .BY %000  ; 11100011
    .BY %000  ; 11100100
    .BY %000  ; 11100101
    .BY %000  ; 11100110
    .BY %000  ; 11100111
    .BY %000  ; 11101000
    .BY %000  ; 11101001
    .BY %000  ; 11101010
    .BY %000  ; 11101011
    .BY %000  ; 11101100
    .BY %000  ; 11101101
    .BY %000  ; 11101110
    .BY %000  ; 11101111
    .BY %000  ; 11110000
    .BY %000  ; 11110001
    .BY %000  ; 11110010
    .BY %000  ; 11110011
    .BY %000  ; 11110100
    .BY %000  ; 11110101
    .BY %000  ; 11110110
    .BY %000  ; 11110111
    .BY %000  ; 11111000
    .BY %000  ; 11111001
    .BY %000  ; 11111010
    .BY %000  ; 11111011
    .BY %000  ; 11111100
    .BY %000  ; 11111101
    .BY %000  ; 11111110
    .BY %000  ; 11111111

EndOfTheBarrelX
    .by 4,4,4,4,4,4,4,4,4,4,4
    .by 5,5,5,5,5,5,5,5,5,5
    .by 6,6,6,6,6,6,6,6,6
    .by 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7,7,7,7,7

    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0

    .by 0,0,0,0,0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
    .by 1,1,1,1,1,1,1,1,1
    .by 2,2,2,2,2,2,2,2,2,2
    .by 3,3,3,3,3,3,3,3,3,3,3

EndOfTheBarrelY
    .by 7,7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
    .by 6,6,6,6,6,6,6,6,6
    .by 5,5,5,5,5,5,5,5,5,5
    .by 4,4,4,4,4,4,4,4,4,4,4,4,4
    .by 3,3,3,3,3,3,3,3,3,3,3,3,3,3

    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0,0,0,0,0,0,0
    .by 0,0,0,0

    .by 3,3,3,3,3,3,3,3,3,3,3,3,3,3
    .by 4,4,4,4,4,4,4,4,4,4,4,4,4
    .by 5,5,5,5,5,5,5,5,5,5
    .by 6,6,6,6,6,6,6,6,6
    .by 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7
    .by 7,7,7,7,7,7,7,7,7,7,7
;-------------------------------------------------

TanksNamesDefault
    dta d"1st.Tank"
    dta d"2nd.Tank"
    dta d"3rd.Tank"
    dta d"4th.Tank"
    dta d"5th.Tank"
    dta d"6th.Tank"

;Weapon prices (*10 on screen)
price_Baby_Missile___ = 0      ;_0
price_Missile________ = 96     ;_1
price_Baby_Nuke______ = 111    ;_2
price_Nuke___________ = 144    ;_3
price_LeapFrog_______ = 192    ;_4
price_Funky_Bomb_____ = 293    ;_5
price_MIRV___________ = 456    ;_6
price_Death_s_Head___ = 337    ;_7
price_Napalm_________ = 0 ;496    ;_8
price_Hot_Napalm_____ = 0 ;511    ;_9
price_Tracer_________ = 102    ;_10
price_Smoke_Tracer___ = 291    ;_11
price_Baby_Roller____ = 689    ;_12
price_Roller_________ = 600    ;_13
price_Heavy_Roller___ = 592    ;_14
price_Riot_Charge____ = 0 ;330    ;_15
price_Riot_Blast_____ = 0 ;341    ;_16
price_Riot_Bomb______ = 369    ;_17
price_Heavy_Riot_Bomb = 322    ;_18
price_Baby_Digger____ = 336    ;_19
price_Digger_________ = 276    ;_20
price_Heavy_Digger___ = 253    ;_21
price_Baby_Sandhog___ = 218    ;_22
price_Sandhog________ = 191    ;_23
price_Heavy_Sandhog__ = 305    ;_24
price_Dirt_Clod______ = 104    ;_25
price_Dirt_Ball______ = 130    ;_26
price_Ton_of_Dirt____ = 171    ;_27
price_Liquid_Dirt____ = 0 ;530    ;_28
price_Dirt_Charge____ = 581    ;_29
price_Earth_Disrupter = 0 ;430    ;_30
price_Plasma_Blast___ = 0 ;274    ;_31
price_Laser__________ = 577    ;_32
price______________33 = 0
price______________34 = 0
price______________35 = 0
price______________36 = 0
price______________37 = 0
price______________38 = 0
price______________39 = 0
price______________40 = 0
price______________41 = 0
price______________42 = 0
price______________43 = 0
price______________44 = 0
price______________45 = 0
price______________46 = 0
price______________47 = 0   
price_Heat_Guidance__ = 0    ;_48_($30)
price_Bal_Guidance___ = 0    ;_49
price_Horz_Guidance__ = 0    ;_50
price_Vert_Guidance__ = 0    ;_51
price_Lazy_Boy_______ = 0    ;_52
price_Parachute______ = 1100 ;_53
price_Battery________ = 0    ;_54
price_Mag_Deflector__ = 0    ;_55
price_Shield_________ = 0    ;_56
price_Force_Shield___ = 0    ;_57
price_Heavy_Shield___ = 0    ;_58
price_Super_Mag______ = 0    ;_59
price_Auto_Defense___ = 0    ;_60
price_Fuel_Tank______ = 0    ;_61
price_Contact_Trigger = 0    ;_62
price______________63 = 0

WeaponPriceH ; weapons prices (tables with prices of weapons)
  .by >price_Baby_Missile___
  .by >price_Missile________
  .by >price_Baby_Nuke______
  .by >price_Nuke___________
  .by >price_LeapFrog_______
  .by >price_Funky_Bomb_____
  .by >price_MIRV___________
  .by >price_Death_s_Head___
  .by >price_Napalm_________
  .by >price_Hot_Napalm_____
  .by >price_Tracer_________
  .by >price_Smoke_Tracer___
  .by >price_Baby_Roller____
  .by >price_Roller_________
  .by >price_Heavy_Roller___
  .by >price_Riot_Charge____
  .by >price_Riot_Blast_____
  .by >price_Riot_Bomb______
  .by >price_Heavy_Riot_Bomb
  .by >price_Baby_Digger____
  .by >price_Digger_________
  .by >price_Heavy_Digger___
  .by >price_Baby_Sandhog___
  .by >price_Sandhog________
  .by >price_Heavy_Sandhog__
  .by >price_Dirt_Clod______
  .by >price_Dirt_Ball______
  .by >price_Ton_of_Dirt____
  .by >price_Liquid_Dirt____
  .by >price_Dirt_Charge____
  .by >price_Earth_Disrupter
  .by >price_Plasma_Blast___
  .by >price_Laser__________
  .by >price______________33
  .by >price______________34
  .by >price______________35
  .by >price______________36
  .by >price______________37
  .by >price______________38
  .by >price______________39
  .by >price______________40
  .by >price______________41
  .by >price______________42
  .by >price______________43
  .by >price______________44
  .by >price______________45
  .by >price______________46
  .by >price______________47
  .by >price_Heat_Guidance__
  .by >price_Bal_Guidance___
  .by >price_Horz_Guidance__
  .by >price_Vert_Guidance__
  .by >price_Lazy_Boy_______
  .by >price_Parachute______
  .by >price_Battery________
  .by >price_Mag_Deflector__
  .by >price_Shield_________
  .by >price_Force_Shield___
  .by >price_Heavy_Shield___
  .by >price_Super_Mag______
  .by >price_Auto_Defense___
  .by >price_Fuel_Tank______
  .by >price_Contact_Trigger
  .by >price______________63

WeaponPriceL
  .by <price_Baby_Missile___
  .by <price_Missile________
  .by <price_Baby_Nuke______
  .by <price_Nuke___________
  .by <price_LeapFrog_______
  .by <price_Funky_Bomb_____
  .by <price_MIRV___________
  .by <price_Death_s_Head___
  .by <price_Napalm_________
  .by <price_Hot_Napalm_____
  .by <price_Tracer_________
  .by <price_Smoke_Tracer___
  .by <price_Baby_Roller____
  .by <price_Roller_________
  .by <price_Heavy_Roller___
  .by <price_Riot_Charge____
  .by <price_Riot_Blast_____
  .by <price_Riot_Bomb______
  .by <price_Heavy_Riot_Bomb
  .by <price_Baby_Digger____
  .by <price_Digger_________
  .by <price_Heavy_Digger___
  .by <price_Baby_Sandhog___
  .by <price_Sandhog________
  .by <price_Heavy_Sandhog__
  .by <price_Dirt_Clod______
  .by <price_Dirt_Ball______
  .by <price_Ton_of_Dirt____
  .by <price_Liquid_Dirt____
  .by <price_Dirt_Charge____
  .by <price_Earth_Disrupter
  .by <price_Plasma_Blast___
  .by <price_Laser__________
  .by <price______________33
  .by <price______________34
  .by <price______________35
  .by <price______________36
  .by <price______________37
  .by <price______________38
  .by <price______________39
  .by <price______________40
  .by <price______________41
  .by <price______________42
  .by <price______________43
  .by <price______________44
  .by <price______________45
  .by <price______________46
  .by <price______________47
  .by <price_Heat_Guidance__
  .by <price_Bal_Guidance___
  .by <price_Horz_Guidance__
  .by <price_Vert_Guidance__
  .by <price_Lazy_Boy_______
  .by <price_Parachute______
  .by <price_Battery________
  .by <price_Mag_Deflector__
  .by <price_Shield_________
  .by <price_Force_Shield___
  .by <price_Heavy_Shield___
  .by <price_Super_Mag______
  .by <price_Auto_Defense___
  .by <price_Fuel_Tank______
  .by <price_Contact_Trigger
  .by <price______________63

;-------------------------------------------------
; how many units (bulletd) of a given weapon we get for a given price
; This is a table of constans.
; If on a given position is 0 it means that this weapon
; is not present in the game.
; This is the slot for adding new weapons.
WeaponUnits
  .by 10 ;Baby_Missile___
  .by 5  ;Missile________
  .by 3  ;Baby_Nuke______
  .by 1  ;Nuke___________
  .by 2  ;LeapFrog_______
  .by 2  ;Funky_Bomb_____
  .by 3  ;MIRV___________
  .by 1  ;Death_s_Head___
  .by 10 ;Napalm_________
  .by 2  ;Hot_Napalm_____
  .by 20 ;Tracer_________
  .by 10 ;Smoke_Tracer___
  .by 10 ;Baby_Roller____
  .by 5  ;Roller_________
  .by 2  ;Heavy_Roller___
  .by 1  ;Riot_Charge____
  .by 5  ;Riot_Blast_____
  .by 5  ;Riot_Bomb______
  .by 2  ;Heavy_Riot_Bomb
  .by 10 ;Baby_Digger____
  .by 5  ;Digger_________
  .by 2  ;Heavy_Digger___
  .by 10 ;Baby_Sandhog___
  .by 5  ;Sandhog________
  .by 2  ;Heavy_Sandhog__
  .by 10 ;Dirt_Clod______
  .by 5  ;Dirt_Ball______
  .by 2  ;Ton_of_Dirt____
  .by 2  ;Liquid_Dirt____
  .by 10 ;Dirt_Charge____
  .by 10 ;Earth_Disrupter
  .by 5  ;Plasma_Blast___
  .by 5  ;Laser__________
  .by 0  ;_____________33
  .by 0  ;_____________34
  .by 0  ;_____________35
  .by 0  ;_____________36
  .by 0  ;_____________37
  .by 0  ;_____________38
  .by 0  ;_____________39
  .by 0  ;_____________40
  .by 0  ;_____________41
  .by 0  ;_____________42
  .by 0  ;_____________43
  .by 0  ;_____________44
  .by 0  ;_____________45
  .by 0  ;_____________46
  .by 0  ;_____________47
  .by 6  ;Heat_Guidance__
  .by 2  ;Bal_Guidance___
  .by 5  ;Horz_Guidance__
  .by 5  ;Vert_Guidance__
  .by 2  ;Lazy_Boy_______
  .by 8  ;Parachute______
  .by 10 ;Battery________
  .by 2  ;Mag_Deflector__
  .by 3  ;Shield_________
  .by 3  ;Force_Shield___
  .by 2  ;Heavy_Shield___
  .by 2  ;Super_Mag______
  .by 1  ;Auto_Defense___
  .by 10 ;Fuel_Tank______
  .by 25 ;Contact_Trigger
  .by 0  ;_____________63

PurchaseMeTable ;weapons good to be purchased by the robot 
                ;the comment is an index in the tables
    dta 1 ;"Baby Missile    " ; 0
    dta 1 ;"Missile         " ; 1
    dta 1 ;"Baby Nuke       " ; 2
    dta 1 ;"Nuke            " ; 3
    dta 1 ;"LeapFrog        " ; 4
    dta 1 ;"Funky Bomb      " ; 5
    dta 1 ;"MIRV            " ; 6
    dta 1 ;"Death's Head    " ; 7
    dta 0 ;"Napalm          " ; 8
    dta 0 ;"Hot Napalm      " ; 9
    dta 0 ;"Tracer          " ; 10
    dta 0 ;"Smoke Tracer    " ; 11
    dta 1 ;"Baby Roller     " ; 12
    dta 1 ;"Roller          " ; 13
    dta 1 ;"Heavy Roller    " ; 14
    dta 0 ;"Riot Charge     " ; 15
    dta 0 ;"Riot Blast      " ; 16
    dta 0 ;"Riot Bomb       " ; 17
    dta 0 ;"Heavy Riot Bomb " ; 18
    dta 0 ;"Baby Digger     " ; 19
    dta 0 ;"Digger          " ; 20
    dta 0 ;"Heavy Digger    " ; 21
    dta 0 ;"Baby Sandhog    " ; 22
    dta 0 ;"Sandhog         " ; 23
    dta 0 ;"Heavy Sandhog   " ; 24
    dta 0 ;"Dirt Clod       " ; 25
    dta 0 ;"Dirt Ball       " ; 26
    dta 0 ;"Ton of Dirt     " ; 27
    dta 0 ;"Liquid Dirt     " ; 28
    dta 0 ;"Dirt Charge     " ; 29
    dta 0 ;"Earth Disrupter " ; 30
    dta 0 ;"Plasma Blast    " ; 31
    dta 1 ;"Laser           " ; 32
    dta 0 ;"----------------" ; 33
    dta 0 ;"----------------" ; 34
    dta 0 ;"----------------" ; 35
    dta 0 ;"----------------" ; 36
    dta 0 ;"----------------" ; 37
    dta 0 ;"----------------" ; 38
    dta 0 ;"----------------" ; 39
    dta 0 ;"----------------" ; 40
    dta 0 ;"----------------" ; 41
    dta 0 ;"----------------" ; 42
    dta 0 ;"----------------" ; 43
    dta 0 ;"----------------" ; 44
    dta 0 ;"----------------" ; 45
    dta 0 ;"----------------" ; 46
    dta 0 ;"----------------" ; 47
 

;-------------------------------------------------
; Screen codes of icons (chars) representing a given weapon
WeaponSymbols
    .by $40,$41,$42,$43,$44,$45,$46,$47
    .by $48,$49,$4a,$4b,$4c,$4d,$4e,$4f
    .by $50,$51,$52,$53,$54,$55,$56,$57
    .by $58,$59,$5a,$5b,$60,$7b,$7c,$7d
    .by $20,$00,$00,$00,$00,$00,$00,$00
    .by $00,$00,$00,$00,$00,$00,$00,$00
    .by $02,$03,$06,$1d,$0a,$1b,$1c,$1e
    .by $3b,$3c,$3d,$3e,$3f,$5e,$5f,$00

; Names of weapons (16 chars long)
NamesOfWeapons ;the comment is an index in the tables
    dta d"Baby Missile    " ; 0
    dta d"Missile         " ; 1
    dta d"Baby Nuke       " ; 2
    dta d"Nuke            " ; 3
    dta d"LeapFrog        " ; 4
    dta d"Funky Bomb      " ; 5
    dta d"MIRV            " ; 6
    dta d"Death's Head    " ; 7
    dta d"Napalm          " ; 8
    dta d"Hot Napalm      " ; 9
    dta d"Tracer          " ; 10
    dta d"Smoke Tracer    " ; 11
    dta d"Baby Roller     " ; 12
    dta d"Roller          " ; 13
    dta d"Heavy Roller    " ; 14
    dta d"Riot Charge     " ; 15
    dta d"Riot Blast      " ; 16
    dta d"Riot Bomb       " ; 17
    dta d"Heavy Riot Bomb " ; 18
    dta d"Baby Digger     " ; 19
    dta d"Digger          " ; 20
    dta d"Heavy Digger    " ; 21
    dta d"Baby Sandhog    " ; 22
    dta d"Sandhog         " ; 23
    dta d"Heavy Sandhog   " ; 24
    dta d"Dirt Clod       " ; 25
    dta d"Dirt Ball       " ; 26
    dta d"Ton of Dirt     " ; 27
    dta d"Liquid Dirt     " ; 28
    dta d"Dirt Charge     " ; 29
    dta d"Earth Disrupter " ; 30
    dta d"Plasma Blast    " ; 31
    dta d"Laser           " ; 32
    dta d"----------------" ; 33
    dta d"----------------" ; 34
    dta d"----------------" ; 35
    dta d"----------------" ; 36
    dta d"----------------" ; 37
    dta d"----------------" ; 38
    dta d"----------------" ; 39
    dta d"----------------" ; 40
    dta d"----------------" ; 41
    dta d"----------------" ; 42
    dta d"----------------" ; 43
    dta d"----------------" ; 44
    dta d"----------------" ; 45
    dta d"----------------" ; 46
    dta d"----------------" ; 47

    dta d"Heat Guidance   " ; 48 ($30)
    dta d"Bal Guidance    " ; 49
    dta d"Horz Guidance   " ; 50
    dta d"Vert Guidance   " ; 51
    dta d"Lazy Boy        " ; 52
    dta d"Parachute       " ; 53
    dta d"Battery         " ; 54
    dta d"Mag Deflector   " ; 55
    dta d"Shield          " ; 56
    dta d"Force Shield    " ; 57
    dta d"Heavy Shield    " ; 58
    dta d"Super Mag       " ; 59
    dta d"Auto Defense    " ; 60
    dta d"Fuel Tank       " ; 61
    dta d"Contact Trigger " ; 62
    dta d"----------------" ; 63
joyToKeyTable
  ; .by  00, 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12, 13, 14, 15
    .by $ff,$ff,$ff,$ff,$ff,$ff,$ff,$07,$ff,$ff,$ff,$06,$ff,$0f,$0e,$ff

;-----------------------------------
keycodes ;tables for converting KeyCode to Screen Code (38 -1  characters)
    .by $3f,$15,$12,$3a,$2a,$38,$3d,$39
    .by $0d,$01,$05,$00,$25,$23,$08,$0a
    .by $2f,$28,$3e,$2d,$0b,$10,$2e,$16
    .by $2b,$17,$1f,$1e,$1a,$18,$1d,$1b
    .by $33,$35,$30,$32,$22 ;,$0e <-- hyphen removed from the table, sorry hyphen lovers
keycodesEnd
scrcodes
    dta d"abcdefgh"
    dta d"ijklmnop"
    dta d"qrstuvwx"
    dta d"yz123456"
    dta d"7890." ; "-"

.endif