;robot per testare lo sparo trigonometrico istantaneo da fermo
#def tar_vel
#def tar_ang
#def larghezza
#def direzione
#def distanza
#def settore
#def accur
#def spara
#def angolocorpo
#def sterzo
#def posx 
#def velocita
#def calore
#def destra
#def fattoreang
#def casuale

	jmp 1000
:0
:1
:2
:3
:4
	jmp 1600
:5
:6
:7
:8
:9
:10
:11
:12
	opo 12 1
	jmp 1600
:13
:14
:15
:16
:17
:18
:19
:20
	opo 12 2
	jmp 1600
:21
:22
:23
:24
:25
:26
:27
:28
:29
:30
	opo 12 3
	jmp 1600
:31
:32
:33
:34
:35
:36
:37
:38
:39
:40
:41
:42
:43
	opo 12 4
	jmp 1600
: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
	opo 12 5
	jmp 1600
:85
:86
:87
:88
:89
:90
:91
:92
:93
:94
:95
:96
:97
	opo 12 4
	jmp 1600
:98
:99
:100
:101
:102
:103
:104
:105
:106
:107
	opo 12 3
	jmp 1600
:108
:109
:110
:111
:112
:113
:114
:115
	opo 12 2
	jmp 1600
:116
:117
:118
:119
:120
:121
:122
:123
:124
	opo 12 1
	jmp 1600
:125
:126
:127
:128
:129
:130
:131
:132
	opo 12 0
	jmp 1600
:133
:134
:135
:136
:137
:138
:139
:140
	opo 12 -1
	jmp 1600
:141
:142
:143
:144
:145
:146
:147
:148
	opo 12 -2
	jmp 1600
:149
:150
:151
:152
:153
:154
:155
:156
:157
:158
	opo 12 -3
	jmp 1600
:159
:160
:161
:162
:163
:164
:165
:166
:167
:168
:169
:170
:171
:172
	opo 12 -4
	jmp 1600
:173
:174
:175
:176
:177
:178
:179
:180
:181
:182
:183
:184
:185
:186
:187
:188
:189
:190
:191
:192
:193
:194
:195
:196
:197
:198
:199
:200
:201
:202
:203
:204
:205
:206
:207
:208
:209
:210
:211
:212
	opo 12 -5
	jmp 1600
:213
:214
:215
:216
:217
:218
:219
:220
:221
:222
:223
:224
:225
	opo 12 -4
	jmp 1600
:226
:227
:228
:229
:230
:231
:232
:233
:234
:235
	opo 12 -3
	jmp 1600
:236
:237
:238
:239
:240
:241
:242
:243
	opo 12 -2
	jmp 1600
:244
:245
:246
:247
:248
:249
:250
:251
:252
	opo 12 -1
	jmp 1600
:253
:254
:255
	jmp 1600
	
:1000
	mov larghezza 64
:1100
	;gosub movimento
	cmp larghezza 2
	jeq 1500
;******
	opo 17 larghezza 
	ipo 7 distanza
	cmp distanza 1500
	jgr 10000
	shr larghezza 1
	ipo 8 accur
	cmp accur 0
	jgr 1105
	jls 1110
	;uguale
	jmp 1115
:1105
	;maggiore
	mov settore larghezza
	opo 12 settore
	jmp 1115
:1110
	mov settore 0
	sub settore larghezza
	opo 12 settore
:1115
	jmp 1100	
;******
	

:1500
	opo 17 larghezza
	ipo 2 calore
	cmp calore 250
	jgr 1700; devo attendere
	ipo 7 distanza
	cmp @7 0
	jeq 1600
	jmp @6
:1600
	opo 15 @3
:1700   
	cmp distanza 1500
	jls 1500
		
:10000 ;non c'è il bersaglio
	mov larghezza 64
	opo 12 128
	jmp 1100