Subversion Repositories ngs

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
69 savelij 1
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 1 - 1/17/2011 21:30:41
2
 
3
 
4
       1/       0 :                     
5
       2/       0 :                     ;LAST UPDATE: 17.01.2011 savelij
6
       3/       0 :                     
7
       4/       0 :                     		include macros.a80
8
(1)    1/       0 :                     
9
(1)    2/       0 :                     		RELAXED ON
10
(1)    3/       0 :                     		CPU Z80UNDOC
11
(1)    4/       0 :                     
12
(1)    5/       0 :                     DZ		MACRO DEFZ
13
(1)    6/       0 :                     		DB DEFZ,0
14
(1)    7/       0 :                     		ENDM 
15
(1)    8/       0 :                     
16
(1)    9/       0 :                     DC		MACRO DEFC
17
(1)   10/       0 :                     		IF STRLEN(DEFC)>1
18
(1)   11/       0 :                     		DB SUBSTR(DEFC,0,STRLEN(DEFC)-1)
19
(1)   12/       0 :                     		ENDIF
20
(1)   13/       0 :                     		IF STRLEN(DEFC)>0
21
(1)   14/       0 :                     		DB CHARFROMSTR(DEFC,STRLEN(DEFC)-1)|80H
22
(1)   15/       0 :                     		ENDIF
23
(1)   16/       0 :                     		ENDM
24
(1)   17/       0 :                     
25
(1)   18/       0 :                     SUM_HOB		MACRO STR,AA,BB,CC
26
(1)   19/       0 :                     		DB STR
27
(1)   20/       0 :                     		DW AA
28
(1)   21/       0 :                     		DW BB
29
(1)   22/       0 :                     		DW CC
30
(1)   23/       0 :                     $$I := 0
31
(1)   24/       0 :                     $$S := 0
32
(1)   25/       0 :                     		REPT 9
33
(1)   26/       0 :                     $$N := CHARFROMSTR (STR,STRLEN(STR)+$$S-9)
34
(1)   27/       0 :                     $$I := ($$I+$$S+$$N+($$N*256))&0XFFFF
35
(1)   28/       0 :                     $$S := $$S+1
36
(1)   29/       0 :                     		ENDM
37
(1)   30/       0 :                     $$I := ($$I+$$S+LOW (AA)+(LOW (AA)*0X100))&0XFFFF
38
(1)   31/       0 :                     $$S := $$S+1
39
(1)   32/       0 :                     $$I := ($$I+$$S+HIGH (AA)+(HIGH (AA)*0X100))&0XFFFF
40
(1)   33/       0 :                     $$S := $$S+1
41
(1)   34/       0 :                     $$I := ($$I+$$S+LOW (BB)+(LOW (BB)*0X100))&0XFFFF
42
(1)   35/       0 :                     $$S := $$S+1
43
(1)   36/       0 :                     $$I := ($$I+$$S+HIGH (BB)+(HIGH (BB)*0X100))&0XFFFF
44
(1)   37/       0 :                     $$S := $$S+1
45
(1)   38/       0 :                     $$I := ($$I+$$S+LOW (CC)+(LOW (CC)*0X100))&0XFFFF
46
(1)   39/       0 :                     $$S := $$S+1
47
(1)   40/       0 :                     $$I := ($$I+$$S+HIGH (CC)+(HIGH (CC)*0X100))&0XFFFF
48
(1)   41/       0 :                     $$S := $$S+1
49
(1)   42/       0 :                     		DW $$I
50
(1)   43/       0 :                     		ENDM
51
(1)   44/       0 :                     
52
(1)   45/       0 :                     DUPL		MACRO LEN,FILL
53
(1)   46/       0 :                     DUPL:
54
(1)   47/       0 :                     $$N		EQU (LEN) / 1024
55
(1)   48/       0 :                     $$M		EQU (LEN) # 1024
56
(1)   49/       0 :                     		REPT $$N
57
(1)   50/       0 :                     		DB 1024 DUP(FILL)
58
(1)   51/       0 :                     		ENDM
59
(1)   52/       0 :                     		IF $$M <> 0
60
(1)   53/       0 :                     		DB $$M DUP(FILL)
61
(1)   54/       0 :                     		ENDIF
62
(1)   55/       0 :                     		ENDM
63
(1)   56/       0 :                     
64
 AS V1.42 Beta [Bld 78] - source file flasher.a80(macros.a80) - page 2 - 1/17/2011 21:30:41
65
 
66
 
67
(1)   57/       0 :                     HIGH		FUNCTION X,((X >> 8) & 0XFF)
68
(1)   58/       0 :                     LOW		FUNCTION X,(X & 0XFF)
69
(1)   59/       0 :                     
70
       5/       0 :                     		include ports_ngs.a80
71
(1)    1/       0 :                     
72
(1)    2/       0 :                     ; ports description and include file for
73
(1)    3/       0 :                     ; NeoGS software projects, v0.3
74
(1)    4/       0 :                     ;
75
(1)    5/       0 :                     ;
76
(1)    6/       0 :                     ; bits degisnation:
77
(1)    7/       0 :                     ; B_* -bit position (0,1,2,3,4,5,6,7)
78
(1)    8/       0 :                     ; M_* -bit mask (1,2,4,8,0X10,
79
(1)    9/       0 :                     ;                           0X20,0X40,0X80)
80
(1)   10/       0 :                     ;
81
(1)   11/       0 :                     ; C_* - constants to be used
82
(1)   12/       0 :                     ;
83
(1)   13/       0 :                     ;
84
(1)   14/       0 :                     ; part of NeoGS project
85
(1)   15/       0 :                     ;
86
(1)   16/       0 :                     ; (c) 2008 NedoPC
87
(1)   17/       0 :                     
88
(1)   18/       0 :                     ;---------------------------------------
89
(1)   19/       0 :                     
90
(1)   20/       0 :                     ;ZX-side ports
91
(1)   21/       0 :                     
92
(1)   22/       0 : =BBH                GSCOM		EQU 0XBB	; write-only, command for NGS
93
(1)   23/       0 :                     
94
(1)   24/       0 : =BBH                GSSTAT		EQU 0XBB	; read-only, command and data bits
95
(1)   25/       0 :                     				; (positions given immediately below)
96
(1)   26/       0 :                     
97
(1)   27/       0 : =0H                 B_CBIT		EQU 0		; Command position
98
(1)   28/       0 : =1H                 M_CBIT		EQU 1		; BIT:AND Mask
99
(1)   29/       0 :                     
100
(1)   30/       0 : =7H                 B_DBIT		EQU 7		; Data position
101
(1)   31/       0 : =80H                M_DBIT		EQU 0X80	; BIT and mask
102
(1)   32/       0 :                     
103
(1)   33/       0 : =B3H                GSDAT		EQU 0XB3	; read-write
104
(1)   34/       0 :                     				; data transfer register for NGS
105
(1)   35/       0 :                     
106
(1)   36/       0 : =33H                GSCTR		EQU 0X33	; write-only, control register for NGS:
107
(1)   37/       0 :                     				; constants available given immediately below
108
(1)   38/       0 :                     
109
(1)   39/       0 : =80H                C_GRST		EQU 0X80	; reset constant to be written into
110
(1)   40/       0 :                     
111
(1)   41/       0 : =40H                C_GNMI		EQU 0X40	; NMI constant to be written into GSCTR
112
(1)   42/       0 :                     
113
(1)   43/       0 : =20H                C_GLED		EQU 0X20	; LED toggle constant
114
(1)   44/       0 :                     
115
(1)   45/       0 :                     ;---------------------------------------
116
(1)   46/       0 :                     
117
(1)   47/       0 :                     ;GS-side ports
118
(1)   48/       0 :                     
119
(1)   49/       0 : =0H                 MPAG		EQU 0X00	; write-only, Memory PAGe ;port (big
120
(1)   50/       0 :                     				; pages at 8000-FFFF or small at 8000-BFFF)
121
(1)   51/       0 :                     
122
(1)   52/       0 : =10H                MPAGEX		EQU 0X10	; write-only, Memory PAGe EXtended
123
(1)   53/       0 :                     				; (only small pages at C000-FFFF)
124
(1)   54/       0 :                     
125
(1)   55/       0 : =1H                 ZXCMD		EQU 0X01	; read-only, ZX CoMmanD port: here is
126
(1)   56/       0 :                     				; the byte written by ZX into GSCOM
127
 AS V1.42 Beta [Bld 78] - source file flasher.a80(ports_ngs.a80) - page 3 - 1/17/2011 21:30:41
128
 
129
 
130
(1)   57/       0 :                     
131
(1)   58/       0 : =2H                 ZXDATRD		EQU 0X02	; read-only, ZX DATa ReaD: a byte
132
(1)   59/       0 :                     				; written by ZX into GSDAT appears here
133
(1)   60/       0 :                     				; upon reading this port, data bit is cleared
134
(1)   61/       0 :                     
135
(1)   62/       0 : =3H                 ZXDATWR		EQU 0X03	; write-only, ZX DATa WRite: a byte
136
(1)   63/       0 :                     				; written here is available for ZX in
137
(1)   64/       0 :                     				; GSDAT upon writing here, data bit is set
138
(1)   65/       0 :                     
139
(1)   66/       0 : =4H                 ZXSTAT		EQU 0X04	; read-only, read ZX STATus: command and
140
(1)   67/       0 :                     				; data bits. positions are defined by
141
(1)   68/       0 :                     				; *_CBIT and *_DBIT above
142
(1)   69/       0 :                     
143
(1)   70/       0 : =5H                 CLRCBIT		EQU 0X05	; read-write, upon either reading or
144
(1)   71/       0 :                     				; writing this port, the Command BIT is CLeaRed
145
(1)   72/       0 : =6H                 VOL1		EQU 0X06
146
(1)   73/       0 : =7H                 VOL2		EQU 0X07
147
(1)   74/       0 : =8H                 VOL3		EQU 0X08
148
(1)   75/       0 : =9H                 VOL4		EQU 0X09
149
(1)   76/       0 : =16H                VOL5		EQU 0X16
150
(1)   77/       0 : =17H                VOL6		EQU 0X17
151
(1)   78/       0 : =18H                VOL7		EQU 0X18
152
(1)   79/       0 : =19H                VOL8		EQU 0X19	; write-only, volumes for sound channels 1-8
153
(1)   80/       0 :                     
154
(1)   81/       0 :                     ; following two ports are useless and
155
(1)   82/       0 :                     ; very odd. They have been made just
156
(1)   83/       0 :                     ; because they were on the original GS
157
(1)   84/       0 :                     ; and for that strange case when
158
(1)   85/       0 :                     ; somebody too crazy have used them.
159
(1)   86/       0 :                     ; Nevertheless, DO NOT USE THEM! They
160
(1)   87/       0 :                     ; can disappear or even radically change
161
(1)   88/       0 :                     ; functionality in future firmware
162
(1)   89/       0 :                     ; releases.
163
(1)   90/       0 :                     
164
(1)   91/       0 : =AH                 DPORT1		EQU 0X0A	; DAMNPORT1
165
(1)   92/       0 :                     				; writing or reading this port sets data
166
(1)   93/       0 :                     				; bit to the inverse of bit 0 into MPAG
167
(1)   94/       0 :                     				; port
168
(1)   95/       0 :                     
169
(1)   96/       0 : =BH                 DPORT2		EQU 0X0B	; DAMNPORT2
170
(1)   97/       0 :                     				; the same as DAMNPORT1, but instead
171
(1)   98/       0 :                     				; command bit involved, which is made
172
(1)   99/       0 :                     				; equal to 5th bit of VOL4
173
(1)  100/       0 :                     
174
(1)  101/       0 : =1H                 LEDCTR		EQU 0X01	; write-only, controls on-board LED.
175
(1)  102/       0 :                     				; D0=0 - LED is on, D0=1 - LED is off
176
(1)  103/       0 :                     				; reset state is LED on.
177
(1)  104/       0 :                     
178
(1)  105/       0 : =FH                 GSCFG0		EQU 0X0F	; read-write, GS ConFiG port 0: acts as
179
(1)  106/       0 :                     				; memory cell, reads previously written
180
(1)  107/       0 :                     				; value. Bits and fields follow:
181
(1)  108/       0 :                     
182
(1)  109/       0 : =0H                 B_NOROM		EQU 0		; =0 - there is ROM everywhere except 0X4000-7FFF,
183
(1)  110/       0 :                     				; =1 - the RAM is all around
184
(1)  111/       0 : =1H                 M_NOROM		EQU 1
185
(1)  112/       0 :                     
186
(1)  113/       0 : =1H                 B_RAMRO		EQU 1		; =1 - ram absolute adresses 0X0000-7FFF
187
(1)  114/       0 :                     				; (zeroth big page) are write-protected
188
(1)  115/       0 : =2H                 M_RAMRO		EQU 2
189
(1)  116/       0 :                     
190
 AS V1.42 Beta [Bld 78] - source file flasher.a80(ports_ngs.a80) - page 4 - 1/17/2011 21:30:41
191
 
192
 
193
(1)  117/       0 : =2H                 B_8CHAN		EQU 2		; B_8CHANS
194
(1)  118/       0 :                     				; =1 - 8 channels mode
195
(1)  119/       0 : =4H                 M_8CHAN		EQU 4		; M_8CHANS
196
(1)  120/       0 :                     
197
(1)  121/       0 : =3H                 B_EXPAG		EQU 3		; =1 - extended paging: both MPAG and
198
(1)  122/       0 :                     				; MPAGEX are used to switch two memory windows
199
(1)  123/       0 : =8H                 M_EXPAG		EQU 8
200
(1)  124/       0 :                     
201
(1)  125/       0 : =4H                 B_CKSL0		EQU 4		; B_CKSEL0
202
(1)  126/       0 :                     				; these bits should be set according to
203
(1)  127/       0 :                     				; the C_**MHZ constants below
204
(1)  128/       0 : =10H                M_CKSL0		EQU 0X10	; M_CKSEL0
205
(1)  129/       0 :                     
206
(1)  130/       0 : =5H                 B_CKSL1		EQU 5		; B_CKSEL1
207
(1)  131/       0 : =20H                M_CKSL1		EQU 0X20	; M_CKSEL1
208
(1)  132/       0 :                     
209
(1)  133/       0 : =30H                C_10MHZ		EQU 0X30
210
(1)  134/       0 : =10H                C_12MHZ		EQU 0X10
211
(1)  135/       0 : =20H                C_20MHZ		EQU 0X20
212
(1)  136/       0 : =0H                 C_24MHZ		EQU 0X00
213
(1)  137/       0 :                     
214
(1)  138/       0 : =6H                 B_PAN4C		EQU 6		; B_PAN4CH
215
(1)  139/       0 :                     				; =1 - 4 channels, panning (every
216
(1)  140/       0 :                     				; channel is on left and right with two volumes)
217
(1)  141/       0 : =40H                M_PAN4C		EQU 0X40	; M_PAN4CH
218
(1)  142/       0 :                     
219
(1)  143/       0 : =7H                 B_INV7B		EQU 7		;B_INV7B
220
(1)  144/       0 :                     				; =1 - invert 7th bit of sample before
221
(1)  145/       0 :                     				; putting them to MUL/DAC
222
(1)  146/       0 : =80H                M_INV7B		EQU 0X80
223
(1)  147/       0 :                     
224
(1)  148/       0 : =7H                 B_SNCLR		EQU 7		; B_SETNCLR
225
(1)  149/       0 : =80H                M_SNCLR		EQU 0X80	; M_SETNCLR
226
(1)  150/       0 :                     
227
(1)  151/       0 : =11H                SCTRL		EQU 0X11	; Serial ConTRoL: read-write, read:
228
(1)  152/       0 :                     				; current state of below bits, write - see GS_info
229
(1)  153/       0 :                     
230
(1)  154/       0 : =0H                 B_SDNCS		EQU 0
231
(1)  155/       0 : =1H                 M_SDNCS		EQU 1
232
(1)  156/       0 :                     
233
(1)  157/       0 : =1H                 B_MCNCS		EQU 1
234
(1)  158/       0 : =2H                 M_MCNCS		EQU 2
235
(1)  159/       0 :                     
236
(1)  160/       0 : =2H                 B_MPXRS		EQU 2
237
(1)  161/       0 : =4H                 M_MPXRS		EQU 4
238
(1)  162/       0 :                     
239
(1)  163/       0 : =3H                 B_MCSP0		EQU 3		; B_MCSPD0
240
(1)  164/       0 : =8H                 M_MCSP0		EQU 8		; M_MCSPD0
241
(1)  165/       0 :                     
242
(1)  166/       0 : =4H                 B_MDHLF		EQU 4
243
(1)  167/       0 : =10H                M_MDHLF		EQU 0X10
244
(1)  168/       0 :                     
245
(1)  169/       0 : =5H                 B_MCSP1		EQU 5		; B_MCSPD1
246
(1)  170/       0 : =20H                M_MCSP1		EQU 0X20	; M_MCSPD1
247
(1)  171/       0 :                     
248
(1)  172/       0 : =12H                SSTAT		EQU 0X12	; Serial STATus: read-only, reads state of below bits
249
(1)  173/       0 :                     
250
(1)  174/       0 : =0H                 B_MDDRQ		EQU 0
251
(1)  175/       0 : =1H                 M_MDDRQ		EQU 1
252
(1)  176/       0 :                     
253
 AS V1.42 Beta [Bld 78] - source file flasher.a80(ports_ngs.a80) - page 5 - 1/17/2011 21:30:41
254
 
255
 
256
(1)  177/       0 : =1H                 B_SDDET		EQU 1
257
(1)  178/       0 : =2H                 M_SDDET		EQU 2
258
(1)  179/       0 :                     
259
(1)  180/       0 : =2H                 B_SDWP		EQU 2
260
(1)  181/       0 : =4H                 M_SDWP		EQU 4
261
(1)  182/       0 :                     
262
(1)  183/       0 : =3H                 B_MCRDY		EQU 3
263
(1)  184/       0 : =8H                 M_MCRDY		EQU 8
264
(1)  185/       0 :                     
265
(1)  186/       0 : =13H                SD_SEND		EQU 0X13	; SD card SEND, write-only, when
266
(1)  187/       0 :                     				; written, byte transfer starts with
267
(1)  188/       0 :                     				; written byte
268
(1)  189/       0 :                     
269
(1)  190/       0 : =13H                SD_READ		EQU 0X13	; SD card READ, read-only, reads byte
270
(1)  191/       0 :                     				; received in previous byte transfer
271
(1)  192/       0 :                     
272
(1)  193/       0 : =14H                SD_RSTR		EQU 0X14	; SD card Read and STaRt, read-only,
273
(1)  194/       0 :                     				; reads previously received byte and
274
(1)  195/       0 :                     				; starts new byte transfer with 0XFF
275
(1)  196/       0 :                     
276
(1)  197/       0 : =14H                MD_SEND		EQU 0X14	; Mp3 Data SEND, write-only, sends byte
277
(1)  198/       0 :                     				; to the mp3 data interface
278
(1)  199/       0 :                     
279
(1)  200/       0 : =15H                MC_SEND		EQU 0X15	; Mp3 Control SEND, write-only, sends
280
(1)  201/       0 :                     				; byte to the mp3 control interface
281
(1)  202/       0 :                     
282
(1)  203/       0 : =15H                MC_READ		EQU 0X15	; Mp3 Control READ, read-only, reads
283
(1)  204/       0 :                     				; byte that was received during
284
(1)  205/       0 :                     				; previous sending of byte
285
(1)  206/       0 :                     
286
(1)  207/       0 : =1BH                DMA_MOD		EQU 0X1B	; DMA MODULE
287
(1)  208/       0 :                     
288
(1)  209/       0 : =1CH                DMA_HAD		EQU 0X1C	; DMA High ADdress
289
(1)  210/       0 :                     
290
(1)  211/       0 : =1DH                DMA_MAD		EQU 0X1D	; DMA Middle ADdress
291
(1)  212/       0 :                     
292
(1)  213/       0 : =1EH                DMA_LAD		EQU 0X1E	; DMA Low ADdress
293
(1)  214/       0 :                     
294
(1)  215/       0 : =1FH                DMA_CST		EQU 0X1F	; DMA Control and STate
295
(1)  216/       0 :                     
296
       6/       0 :                     
297
       7/       0 : =17.01.2011         DDMMYY		EQU "17.01.2011"
298
       8/       0 :                     
299
       9/       0 : =11H                DD		EQU 17				;ЧИСЛО
300
      10/       0 : =1H                 MM		EQU 1				;МЕСЯЦ
301
      11/       0 : =BH                 YY		EQU 11				;ГОД
302
      12/       0 : =9631H              DATA		EQU DD|MM<<5|YY<<9|0X8000	;ЗАКОДИРОВАННАЯ ДАТА
303
      13/       0 :                     
304
      14/       0 : =54H                SM_LDT		EQU 0X54
305
      15/       0 : =5800H              ADR_PROGR	EQU 0X5800
306
      16/       0 :                     
307
      17/       0 : =B800H              BUFTSC		EQU 0XB800
308
      18/       0 : =B980H              TXT_DEC		EQU BUFTSC+0X0180
309
      19/       0 : =B990H              TXT_HEX		EQU TXT_DEC+0X10
310
      20/       0 :                     
311
      21/       0 : =9000H              BUF_CRC16_TABL	EQU 0X9000			;200
312
      22/       0 : =9200H              BUFFER_ZAG	EQU BUF_CRC16_TABL+0X200	;200
313
      23/       0 : =9400H              SKLAD		EQU BUFFER_ZAG+0X200		;100
314
      24/       0 : =9500H              DRV_VAR		EQU SKLAD+0X100
315
      25/       0 :                     
316
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 6 - 1/17/2011 21:30:41
317
 
318
 
319
      26/       0 :                     ;ФОРМАТ ФЛАГОВОГО БАЙТА ОКНА
320
      27/       0 :                     ;X,Y,V,H,C,C
321
      28/       0 :                     ;IX+8
322
      29/       0 :                     ;7-1-НИЖНИЙ ЗАГОЛОВОК
323
      30/       0 :                     ;6-0-С РАМКОЙ,1-БЕЗ РАМКИ
324
      31/       0 :                     ;5-1-ВЕРХНИЙ ЗАГОЛОВОК
325
      32/       0 :                     ;4-0-ТЕКСТ ОКНА,1-БЕЗ ТЕКСТА
326
      33/       0 :                     ;3
327
      34/       0 :                     ;2-0-FILE,1-*.TRD
328
      35/       0 :                     ;1-0-MENU,1-FILES
329
      36/       0 :                     ;0-0-TRDOS,1-MSDOS
330
      37/       0 :                     
331
      38/       0 :                     ;BIT 4,(IY+55)
332
      39/       0 :                     ;BIT 3,(IY+55) 1-НЕТ ДИСКА, 0-ЕСТЬ
333
      40/       0 :                     ;BIT 2,(IY+55) 1-НЕ НАЙДЕНО, 0-FAT ЕСТЬ
334
      41/       0 :                     
335
      42/       0 :                     ;ОПИСАТЕЛЬ ОКНА (АДРЕС В IX)
336
      43/       0 :                     ;+00 X
337
      44/       0 :                     ;+01 Y
338
      45/       0 :                     ;+02 V
339
      46/       0 :                     ;+03 H
340
      47/       0 :                     ;+04 C
341
      48/       0 :                     ;+05 C
342
      49/       0 :                     ;+06 | АДРЕСА
343
      50/       0 :                     ;+07 | ПОДПРОГРАММ
344
      51/       0 :                     ;+08 F
345
      52/       0 :                     ;+09 X
346
      53/       0 :                     ;+0A Y
347
      54/       0 :                     ;+0B V
348
      55/       0 :                     ;+0C H
349
      56/       0 :                     ;+0D | АДРЕС
350
      57/       0 :                     ;+0E | ТЕКСТА
351
      58/       0 :                     ;+0F : НОМЕР ПУНКТА В ОКНЕ
352
      59/       0 :                     ;+10 : КОЛИЧЕСТВО
353
      60/       0 :                     ;+11 : ПУНКТОВ МЕНЮ
354
      61/       0 :                     ;+12 "C" | ТЕКУЩИЙ
355
      62/       0 :                     ;+13 "B" | ПУНКТ МЕНЮ
356
      63/       0 :                     
357
      64/    6000 :                     		ORG 0X6000
358
      65/    6000 : F3                  START_		DI
359
      66/    6001 : 3E 10               		LD A,0X10
360
      67/    6003 : 01 FD 7F            		LD BC,0X7FFD
361
      68/    6006 : ED 79               		OUT (C),A			;ВКЛЮЧИЛИ СТРАНИЦУ 0
362
      69/    6008 : CD 6E 62            		CALL INITLOADER
363
      70/    600B : F5                  		PUSH AF
364
      71/    600C : 3E 0A               		LD A,0X0A
365
      72/    600E : D3 BB               		OUT (GSCOM),A
366
      73/    6010 : FD CB 30 DE         		SET 3,(IY+48)
367
      74/    6014 : 21 10 01            		LD HL,0X0110
368
      75/    6017 : 22 09 5C            		LD (0X5C09),HL			;УСТАНОВИЛИ ПАРАМЕТРЫ ОПРОСА КЛАВИАТУРЫ
369
      76/    601A : 3E 28               		LD A,0X28
370
      77/    601C : CD 19 6E            		CALL CLS			;ОЧИСТКА ЭКРАНА
371
      78/    601F : FD CB 01 AE         		RES 5,(IY+1)
372
      79/    6023 : FD CB 30 BE         		RES 7,(IY+48)
373
      80/    6027 : FD CB 37 9E         		RES 3,(IY+55)			;УСТАНОВКА ЕЩЕ НЕКОТОРЫХ ПАРАМЕТРОВ
374
      81/    602B : CD E7 6D            		CALL ADRTSC			;ФОРМИРОВАНИЕ ТАБЛИЦЫ АДРЕСОВ ЭКРАНА
375
      82/    602E : F1                  		POP AF
376
      83/    602F : C2 A7 60            		JP NZ,NGSNOTFOUND
377
      84/    6032 : 3E 07               RESTARTUPD	LD A,7
378
      85/    6034 : D3 BB               		OUT (GSCOM),A
379
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 7 - 1/17/2011 21:30:41
380
 
381
 
382
      86/    6036 : CD D3 62            		CALL WC
383
      87/    6039 : DB B3               		IN A,(GSDAT)
384
      88/    603B : A7                  		AND A
385
      89/    603C : 28 27               		JR Z,PROD001
386
      90/    603E : F5                  		PUSH AF
387
      91/    603F : DD 21 AA 73         		LD IX,ERROR_UPDATE
388
      92/    6043 : CD F8 6E            		CALL WINW
389
      93/    6046 : F1                  		POP AF
390
      94/    6047 : 21 C2 73            		LD HL,TXT_ERRUPD1
391
      95/    604A : FE AA               		CP 0XAA
392
      96/    604C : 28 0A               		JR Z,ERRORRING
393
      97/    604E : 21 D8 73            		LD HL,TXT_ERRUPD2
394
      98/    6051 : FE DD               		CP 0XDD
395
      99/    6053 : 28 03               		JR Z,ERRORRING
396
     100/    6055 : 21 ED 73            		LD HL,TXT_ERRUPD3
397
     101/    6058 : CD F8 70            ERRORRING	CALL NEXT
398
     102/    605B : CD 4E 6C            		CALL KEYS
399
     103/    605E : DD 21 EF 75         		LD IX,ALLSCR
400
     104/    6062 : CD F8 6E            		CALL WINW			;ВЫВОД ОСНОВНОГО ОКНА
401
     105/    6065 : 3E 09               PROD001		LD A,9
402
     106/    6067 : D3 BB               		OUT (GSCOM),A
403
     107/    6069 : CD D3 62            		CALL WC
404
     108/    606C : DB B3               		IN A,(GSDAT)			;код ошибки
405
     109/    606E : 08                  		EX AF,AF'
406
     110/    606F : CD DF 62            		CALL WN
407
     111/    6072 : DB B3               		IN A,(GSDAT)			;младший байт ответа
408
     112/    6074 : 6F                  		LD L,A
409
     113/    6075 : CD DF 62            		CALL WN
410
     114/    6078 : DB B3               		IN A,(GSDAT)			;старший байт ответа
411
     115/    607A : 67                  		LD H,A
412
     116/    607B : 08                  		EX AF,AF'
413
     117/    607C : E6 03               		AND 3
414
     118/    607E : 28 0D               		JR Z,PROD000
415
     119/    6080 : DD 21 AA 73          		LD IX,ERROR_UPDATE
416
     120/    6084 : CD F8 6E            		CALL WINW
417
     121/    6087 : 21 06 74            		LD HL,TXT_CRC
418
     122/    608A : CD F8 70            		CALL NEXT
419
     123/    608D : DD 21 EF 75         PROD000		LD IX,ALLSCR
420
     124/    6091 : CD F8 6E            		CALL WINW
421
     125/    6094 : DD 21 B9 75         		LD IX,WEKS2
422
     126/    6098 : CD F8 6E            		CALL WINW
423
     127/    609B : CD 3A 61            PROD01		CALL UPDOWN
424
     128/    609E : CD DD 72            		CALL CP_KEYS
425
     129/    60A1 : 0D                  		DB 0X0D
426
     130/    60A2 : BE 60               		DW KENTER
427
     131/    60A4 : 00                  		DB 0
428
     132/    60A5 : 18 F4               		JR PROD01
429
     133/    60A7 :                     
430
     134/    60A7 : DD 21 AA 73         NGSNOTFOUND	LD IX,ERROR_UPDATE
431
     135/    60AB : CD F8 6E            		CALL WINW
432
     136/    60AE : 21 17 74            		LD HL,TXT_NONGS
433
     137/    60B1 : CD F8 70            		CALL NEXT
434
     138/    60B4 : CD 4E 6C            		CALL KEYS
435
     139/    60B7 : 21 00 00            		LD HL,0
436
     140/    60BA : E5                  		PUSH HL
437
     141/    60BB : C3 2F 3D            		JP 0X3D2F
438
     142/    60BE :                     
439
     143/    60BE :                     ;ОТРАБОТКА ПЕДАЛИ ENTER
440
     144/    60BE : DD 7E 12            KENTER		LD A,(IX+0X12)
441
     145/    60C1 : A7                  		AND A
442
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 8 - 1/17/2011 21:30:41
443
 
444
 
445
     146/    60C2 : 28 03               		JR Z,KENTER1		;ПЕРЕХОД ДЛЯ ПУНКТА 1-ЗАГРУЗКА ОБНОВЛЕНИЯ
446
     147/    60C4 : C3 33 61            		JP KENTER4		;ПЕРЕХОД ДЛЯ ПУНКТА 3-ВЫХОД В TR-DOS
447
     148/    60C7 :                     
448
     149/    60C7 :                     ;ВЫБОР И ЗАГРУЗКА ОБНОВЛЕНИЯ ПЗУ
449
     150/    60C7 :                     KENTER1		
450
     151/    60C7 : 3E 07               		LD A,7
451
     152/    60C9 : D3 BB               		OUT (GSCOM),A
452
     153/    60CB : CD D3 62            		CALL WC
453
     154/    60CE : DB B3               		IN A,(GSDAT)
454
     155/    60D0 : A7                  		AND A
455
     156/    60D1 : C2 32 60            		JP NZ,RESTARTUPD
456
     157/    60D4 : 3E 09               		LD A,9
457
     158/    60D6 : D3 BB               		OUT (GSCOM),A
458
     159/    60D8 : CD D3 62            		CALL WC
459
     160/    60DB : DB B3               		IN A,(GSDAT)			;код ошибки
460
     161/    60DD : 08                  		EX AF,AF'
461
     162/    60DE : CD DF 62            		CALL WN
462
     163/    60E1 : DB B3               		IN A,(GSDAT)			;младший байт ответа
463
     164/    60E3 : 6F                  		LD L,A
464
     165/    60E4 : CD DF 62            		CALL WN
465
     166/    60E7 : DB B3               		IN A,(GSDAT)			;старший байт ответа
466
     167/    60E9 : 67                  		LD H,A
467
     168/    60EA : 08                  		EX AF,AF'
468
     169/    60EB : FE 80               		CP 0X80
469
     170/    60ED : C2 32 60            		JP NZ,RESTARTUPD
470
     171/    60F0 :                     
471
     172/    60F0 : AF                  		XOR A
472
     173/    60F1 : D3 B3               		OUT (GSDAT),A
473
     174/    60F3 : 3E 06               		LD A,6
474
     175/    60F5 : D3 BB               		OUT (GSCOM),A
475
     176/    60F7 : CD D3 62            		CALL WC
476
     177/    60FA : AF                  		XOR A
477
     178/    60FB : D3 B3               		OUT (GSDAT),A
478
     179/    60FD : CD D9 62            		CALL WD
479
     180/    6100 : 3E 58               		LD A,0X58
480
     181/    6102 : D3 B3               		OUT (GSDAT),A
481
     182/    6104 : CD D9 62            		CALL WD
482
     183/    6107 : DB B3               		IN A,(GSDAT)
483
     184/    6109 : FE 99               		CP 0X99
484
     185/    610B : 20 FA               		JR NZ,$-4
485
     186/    610D : FB                  		EI
486
     187/    610E :                     		REPT 5
487
     188/    610E :                     		HALT
488
     189/    610E :                     		ENDM
489
     188/    610E : 76                  		HALT
490
     188/    610F : 76                  		HALT
491
     188/    6110 : 76                  		HALT
492
     188/    6111 : 76                  		HALT
493
     188/    6112 : 76                  		HALT
494
     190/    6113 : F3                  		DI
495
     191/    6114 : DD 21 AA 73         		LD IX,ERROR_UPDATE
496
     192/    6118 : CD F8 6E            		CALL WINW
497
     193/    611B : 21 2E 74            		LD HL,TXT_OKUPDATE
498
     194/    611E : CD F8 70            		CALL NEXT
499
     195/    6121 : CD 4E 6C            		CALL KEYS
500
     196/    6124 : C3 00 60            		JP START_
501
     197/    6127 :                     
502
     198/    6127 : 3E 0A               		LD A,0X0A
503
     199/    6129 : D3 BB               		OUT (GSCOM),A
504
     200/    612B : FB                  		EI
505
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 9 - 1/17/2011 21:30:41
506
 
507
 
508
     201/    612C : 76                  		HALT
509
     202/    612D : 76                  		HALT
510
     203/    612E : 76                  		HALT
511
     204/    612F : F3                  		DI
512
     205/    6130 : C3 32 60            		JP RESTARTUPD
513
     206/    6133 :                     
514
     207/    6133 :                     ;ВЫХОД ИЗ ПРОШИВАЛЬЩИКА
515
     208/    6133 : 21 00 00            KENTER4		LD HL,0
516
     209/    6136 : E5                  		PUSH HL
517
     210/    6137 : C3 2F 3D            		JP 0X3D2F
518
     211/    613A :                     
519
     212/    613A : DD 4E 12            UPDOWN		LD C,(IX+0X12)
520
     213/    613D : DD 46 13            		LD B,(IX+0X13)
521
     214/    6140 : CD 0D 62            		CALL RVERT
522
     215/    6143 : FD CB 37 DE         		SET 3,(IY+55)
523
     216/    6147 : FD CB 37 5E         UPD04		BIT 3,(IY+55)
524
     217/    614B : 28 04               		JR Z,UPD02
525
     218/    614D : FD CB 37 9E         		RES 3,(IY+55)
526
     219/    6151 : FB                  UPD02		EI
527
     220/    6152 : 76                  		HALT
528
     221/    6153 : F3                  		DI
529
     222/    6154 : FD CB 01 6E         		BIT 5,(IY+1)
530
     223/    6158 : 28 ED               		JR Z,UPD04
531
     224/    615A : FD 7E CE            		LD A,(IY-0X32)
532
     225/    615D : FD CB 01 AE         		RES 5,(IY+1)
533
     226/    6161 : FE 0A               		CP 0X0A
534
     227/    6163 : 20 09               		JR NZ,UPD01
535
     228/    6165 : CD 8E 61            		CALL DOWN
536
     229/    6168 : FD CB 37 DE         		SET 3,(IY+55)
537
     230/    616C : 18 E3               		JR UPD02
538
     231/    616E :                     
539
     232/    616E : FE 0B               UPD01		CP 0X0B
540
     233/    6170 : 20 09               		JR NZ,UPD03
541
     234/    6172 : CD D6 61            		CALL UP
542
     235/    6175 : FD CB 37 DE         		SET 3,(IY+55)
543
     236/    6179 : 18 D6               		JR UPD02
544
     237/    617B :                     
545
     238/    617B : FD CB 30 BE         UPD03		RES 7,(IY+48)
546
     239/    617F : DD 71 12            		LD (IX+0X12),C
547
     240/    6182 : DD 70 13            		LD (IX+0X13),B
548
     241/    6185 : F5                  		PUSH AF
549
     242/    6186 : DD 7E 04            		LD A,(IX+4)
550
     243/    6189 : CD 25 62            		CALL WYDELK
551
     244/    618C : F1                  		POP AF
552
     245/    618D : C9                  		RET
553
     246/    618E :                     
554
     247/    618E : DD 6E 10            DOWN		LD L,(IX+0X10)
555
     248/    6191 : DD 66 11            		LD H,(IX+0X11)
556
     249/    6194 : 7C                  		LD A,H
557
     250/    6195 : B5                  		OR L
558
     251/    6196 : C8                  		RET Z
559
     252/    6197 : 37                  		SCF
560
     253/    6198 : ED 42               		SBC HL,BC
561
     254/    619A : C8                  		RET Z
562
     255/    619B : 03                  		INC BC
563
     256/    619C : DD 7E 02            		LD A,(IX+2)
564
     257/    619F : D6 03               		SUB 3
565
     258/    61A1 : DD BE 0F            		CP (IX+0X0F)
566
     259/    61A4 : 28 16               		JR Z,DOWN1
567
     260/    61A6 : DD 34 0F            		INC (IX+0X0F)
568
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 10 - 1/17/2011 21:30:41
569
 
570
 
571
     261/    61A9 : DD 7E 04            		LD A,(IX+4)
572
     262/    61AC : CD 25 62            		CALL WYDELK
573
     263/    61AF : 11 20 00            		LD DE,0X20
574
     264/    61B2 : 19                  		ADD HL,DE
575
     265/    61B3 : 22 27 62            		LD (ADRAT+1),HL
576
     266/    61B6 : DD 7E 05            		LD A,(IX+5)
577
     267/    61B9 : C3 25 62            		JP WYDELK
578
     268/    61BC :                     
579
     269/    61BC : DD 7E 00            DOWN1		LD A,(IX)
580
     270/    61BF : 87                  		ADD A,A
581
     271/    61C0 : 87                  		ADD A,A
582
     272/    61C1 : 87                  		ADD A,A
583
     273/    61C2 : 3C                  		INC A
584
     274/    61C3 : 67                  		LD H,A
585
     275/    61C4 : DD 7E 01            		LD A,(IX+1)
586
     276/    61C7 : DD 86 02            		ADD A,(IX+2)
587
     277/    61CA : D6 02               		SUB 2
588
     278/    61CC : 87                  		ADD A,A
589
     279/    61CD : 87                  		ADD A,A
590
     280/    61CE : 87                  		ADD A,A
591
     281/    61CF : 6F                  		LD L,A
592
     282/    61D0 : 22 73 71            		LD (ADRSTR+1),HL
593
     283/    61D3 : C3 A6 6F            		JP SCRUP
594
     284/    61D6 :                     
595
     285/    61D6 : 78                  UP		LD A,B
596
     286/    61D7 : B1                  		OR C
597
     287/    61D8 : C8                  		RET Z
598
     288/    61D9 : 0B                  		DEC BC
599
     289/    61DA : DD 7E 0F            		LD A,(IX+0X0F)
600
     290/    61DD : A7                  		AND A
601
     291/    61DE : 28 17               		JR Z,UP1
602
     292/    61E0 : DD 35 0F            		DEC (IX+0X0F)
603
     293/    61E3 : DD 7E 04            		LD A,(IX+4)
604
     294/    61E6 : CD 25 62            		CALL WYDELK
605
     295/    61E9 : A7                  		AND A
606
     296/    61EA : 11 20 00            		LD DE,0X20
607
     297/    61ED : ED 52               		SBC HL,DE
608
     298/    61EF : 22 27 62            		LD (ADRAT+1),HL
609
     299/    61F2 : DD 7E 05            		LD A,(IX+5)
610
     300/    61F5 : 18 2E               		JR WYDELK
611
     301/    61F7 :                     
612
     302/    61F7 : DD 7E 00            UP1		LD A,(IX)
613
     303/    61FA : 87                  		ADD A,A
614
     304/    61FB : 87                  		ADD A,A
615
     305/    61FC : 87                  		ADD A,A
616
     306/    61FD : 3C                  		INC A
617
     307/    61FE : 67                  		LD H,A
618
     308/    61FF : DD 7E 01            		LD A,(IX+1)
619
     309/    6202 : 3C                  		INC A
620
     310/    6203 : 87                  		ADD A,A
621
     311/    6204 : 87                  		ADD A,A
622
     312/    6205 : 87                  		ADD A,A
623
     313/    6206 : 6F                  		LD L,A
624
     314/    6207 : 22 73 71            		LD (ADRSTR+1),HL
625
     315/    620A : C3 CE 6F            		JP SCRDN
626
     316/    620D :                     
627
     317/    620D : D5                  RVERT		PUSH DE
628
     318/    620E : DD 66 00            		LD H,(IX)
629
     319/    6211 : DD 6E 01            		LD L,(IX+1)
630
     320/    6214 : DD 7E 0F            		LD A,(IX+0X0F)
631
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 11 - 1/17/2011 21:30:41
632
 
633
 
634
     321/    6217 : 85                  		ADD A,L
635
     322/    6218 : 6F                  		LD L,A
636
     323/    6219 : 2C                  		INC L
637
     324/    621A : CD AA 70            		CALL ADRDIS
638
     325/    621D : EB                  		EX DE,HL
639
     326/    621E : 22 27 62            		LD (ADRAT+1),HL
640
     327/    6221 : DD 7E 05            		LD A,(IX+5)
641
     328/    6224 : D1                  		POP DE
642
     329/    6225 : C5                  WYDELK		PUSH BC
643
     330/    6226 : 21 00 00            ADRAT		LD HL,0
644
     331/    6229 : E5                  		PUSH HL
645
     332/    622A : DD 46 03            		LD B,(IX+3)
646
     333/    622D : 77                  		LD (HL),A
647
     334/    622E : 23                  		INC HL
648
     335/    622F : 10 FC               		DJNZ $-2
649
     336/    6231 : E1                  		POP HL
650
     337/    6232 : C1                  		POP BC
651
     338/    6233 : C9                  		RET
652
     339/    6234 :                     
653
     340/    6234 : 3E 80               FINDNGS		LD A,0X80
654
     341/    6236 : D3 33               		OUT (GSCTR),A
655
     342/    6238 :                     
656
     343/    6238 :                     ;DS 3:LD A,0X55:OUT (GSDAT),A
657
     344/    6238 :                     ;OUT (GSCOM),A:CALL WC:LD A,0XAA
658
     345/    6238 :                     ;OUT (GSDAT),A,(GSCOM),A:XOR A
659
     346/    6238 :                     ;OUT (GSDAT),A:LD A,0X1D
660
     347/    6238 :                     ;OUT (GSCOM),A:CALL WC
661
     348/    6238 :                     ;IN A,(GSDAT)
662
     349/    6238 :                     
663
     350/    6238 : FB                  		EI
664
     351/    6239 : 76                  		HALT
665
     352/    623A : 76                  		HALT
666
     353/    623B : F3                  		DI
667
     354/    623C : 3E F3               		LD A,0XF3
668
     355/    623E : D3 BB               		OUT (GSCOM),A
669
     356/    6240 : FB                  		EI
670
     357/    6241 : 76                  		HALT
671
     358/    6242 : 76                  		HALT
672
     359/    6243 : F3                  		DI
673
     360/    6244 : 06 30               		LD B,0X30
674
     361/    6246 : FB                  FNDNGS1		EI
675
     362/    6247 : 76                  		HALT
676
     363/    6248 : F3                  		DI
677
     364/    6249 : 05                  		DEC B
678
     365/    624A : 28 12               		JR Z,FNDNGS2
679
     366/    624C : DB BB               		IN A,(GSCOM)
680
     367/    624E : 1F                  		RRA
681
     368/    624F : 38 F5               		JR C,FNDNGS1
682
     369/    6251 : 1E 0F               		LD E,GSCFG0
683
     370/    6253 : CD 61 62            		CALL INPORT
684
     371/    6256 : 3C                  		INC A
685
     372/    6257 : 28 02               		JR Z,NONGS
686
     373/    6259 : AF                  		XOR A
687
     374/    625A : C9                  		RET
688
     375/    625B :                     
689
     376/    625B : AF                  NONGS		XOR A
690
     377/    625C : 3C                  		INC A
691
     378/    625D : C9                  		RET
692
     379/    625E :                     
693
     380/    625E : AF                  FNDNGS2		XOR A
694
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 12 - 1/17/2011 21:30:41
695
 
696
 
697
     381/    625F : 3D                  		DEC A
698
     382/    6260 : C9                  		RET
699
     383/    6261 :                     
700
     384/    6261 : 7B                  INPORT		LD A,E
701
     385/    6262 : D3 B3               		OUT (GSDAT),A
702
     386/    6264 : 3E 11               		LD A,0X11
703
     387/    6266 : D3 BB               		OUT (GSCOM),A
704
     388/    6268 : CD D3 62            		CALL WC
705
     389/    626B : DB B3               		IN A,(GSDAT)
706
     390/    626D : C9                  		RET
707
     391/    626E :                     
708
     392/    626E : CD 34 62            INITLOADER	CALL FINDNGS
709
     393/    6271 : A7                  		AND A
710
     394/    6272 : C0                  		RET NZ
711
     395/    6273 : 01 B3 00            		LD BC,GSDAT
712
     396/    6276 : 21 00 58            		LD HL,0X5800
713
     397/    6279 : 11 69 01            		LD DE,MINILDE-MINILD
714
     398/    627C : ED 59               		OUT (C),E
715
     399/    627E : 3E 14               		LD A,0X14
716
     400/    6280 : D3 BB               		OUT (GSCOM),A
717
     401/    6282 : CD D3 62            		CALL WC
718
     402/    6285 : ED 51               		OUT (C),D
719
     403/    6287 : CD D9 62            		CALL WD
720
     404/    628A : ED 69               		OUT (C),L
721
     405/    628C : CD D9 62            		CALL WD
722
     406/    628F : ED 61               		OUT (C),H
723
     407/    6291 : CD D9 62            		CALL WD
724
     408/    6294 : 21 E5 62            		LD HL,MINISTR
725
     409/    6297 : ED A3               OUTCOD		OUTI
726
     410/    6299 : CD D9 62            		CALL WD
727
     411/    629C : 1B                  		DEC DE
728
     412/    629D : 7A                  		LD A,D
729
     413/    629E : B3                  		OR E
730
     414/    629F : 20 F6               		JR NZ,OUTCOD
731
     415/    62A1 : 21 00 58            		LD HL,0X5800
732
     416/    62A4 : ED 69               		OUT (C),L
733
     417/    62A6 : 3E 13               		LD A,0X13
734
     418/    62A8 : D3 BB               		OUT (GSCOM),A
735
     419/    62AA : CD D3 62            		CALL WC
736
     420/    62AD : ED 61               		OUT (C),H
737
     421/    62AF : CD D9 62            		CALL WD
738
     422/    62B2 : 11 0A 09            		LD DE,NGS_LOADERE-NGS_LOADER
739
     423/    62B5 : ED 59               		OUT (C),E
740
     424/    62B7 : CD D9 62            		CALL WD
741
     425/    62BA : ED 51               		OUT (C),D
742
     426/    62BC : CD D9 62            		CALL WD
743
     427/    62BF : 21 27 79            		LD HL,NGS_LOADER
744
     428/    62C2 : ED A3               OUTCOD1		OUTI
745
     429/    62C4 : CD D9 62            		CALL WD
746
     430/    62C7 : 1B                  		DEC DE
747
     431/    62C8 : 7A                  		LD A,D
748
     432/    62C9 : B3                  		OR E
749
     433/    62CA : 20 F6               		JR NZ,OUTCOD1
750
     434/    62CC : FB                  		EI
751
     435/    62CD : 76                  		HALT
752
     436/    62CE : 76                  		HALT
753
     437/    62CF : 76                  		HALT
754
     438/    62D0 : F3                  		DI
755
     439/    62D1 : AF                  		XOR A
756
     440/    62D2 : C9                  		RET
757
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 13 - 1/17/2011 21:30:41
758
 
759
 
760
     441/    62D3 :                     
761
     442/    62D3 : DB BB               WC		IN A,(GSCOM)
762
     443/    62D5 : 1F                  		RRA
763
     444/    62D6 : 38 FB               		JR C,$-3
764
     445/    62D8 : C9                  		RET
765
     446/    62D9 :                     
766
     447/    62D9 : DB BB               WD		IN A,(GSCOM)
767
     448/    62DB : 17                  		RLA
768
     449/    62DC : 38 FB               		JR C,$-3
769
     450/    62DE : C9                  		RET
770
     451/    62DF :                     
771
     452/    62DF : DB BB               WN		IN A,(GSCOM)
772
     453/    62E1 : 17                  		RLA
773
     454/    62E2 : 30 FB               		JR NC,$-3
774
     455/    62E4 : C9                  		RET
775
     456/    62E5 :                     
776
     457/    62E5 :                     MINISTR
777
     458/    5800 :                     		PHASE ADR_PROGR
778
     459/    5800 : F3                  MINILD		DI
779
     460/    5801 : DB 02               		IN A,(ZXDATRD)
780
     461/    5803 : D3 05               		OUT (CLRCBIT),A
781
     462/    5805 : 3E 11               		LD A,0X11
782
     463/    5807 : D3 0F               		OUT (GSCFG0),A			;ОТКЛЮЧИЛИ ПЗУ И ВКЛЮЧИЛИ ЧАСТОТЦ 12МГЦ
783
     464/    5809 : 21 00 00            		LD HL,0				;АДРЕС ЗАГРУЗКИ КОДА СО СПЕКА
784
     465/    580C : AF                  		XOR A
785
     466/    580D : D3 00               		OUT (MPAG),A			;СТРАНИЦА 0
786
     467/    580F : 01 02 00            		LD BC,ZXDATRD
787
     468/    5812 : DB 04               		IN A,(ZXSTAT)
788
     469/    5814 : 17                  		RLA
789
     470/    5815 : 30 FB               		JR NC,$-3
790
     471/    5817 : ED 58               		IN E,(C)
791
     472/    5819 : DB 04               		IN A,(ZXSTAT)
792
     473/    581B : 17                  		RLA
793
     474/    581C : 30 FB               		JR NC,$-3
794
     475/    581E : ED 50               		IN D,(C)			;DE=ДЛИНА КОДА ДЛЯ ЗАГРУЗКИ В НГС
795
     476/    5820 : DB 04               MINILD1		IN A,(ZXSTAT)
796
     477/    5822 : 17                  		RLA
797
     478/    5823 : 30 FB               		JR NC,$-3
798
     479/    5825 : ED A2               		INI
799
     480/    5827 : 1B                  		DEC DE
800
     481/    5828 : 7A                  		LD A,D
801
     482/    5829 : B3                  		OR E
802
     483/    582A : 20 F4               		JR NZ,MINILD1
803
     484/    582C : 21 00 58            		LD HL,MINILD
804
     485/    582F : 36 C3               		LD (HL),0XC3
805
     486/    5831 : 23                  		INC HL
806
     487/    5832 : 36 42               		LD (HL),LOW (PROGR)
807
     488/    5834 : 23                  		INC HL
808
     489/    5835 : 36 58               		LD (HL),HIGH (PROGR)
809
     490/    5837 : 3E 11               		LD A,0X11
810
     491/    5839 : D3 0F               		OUT (GSCFG0),A
811
     492/    583B : 31 80 40            		LD SP,0X4080
812
     493/    583E : AF                  		XOR A
813
     494/    583F : C3 45 00            		JP 0X0045
814
     495/    5842 :                     
815
     496/    5842 : F3                  PROGR		DI
816
     497/    5843 : 3E 02               		LD A,2
817
     498/    5845 : D3 00               		OUT (MPAG),A
818
     499/    5847 : 3E 11               		LD A,0X11
819
     500/    5849 : D3 0F               		OUT (GSCFG0),A
820
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 14 - 1/17/2011 21:30:41
821
 
822
 
823
     501/    584B : 21 00 80            		LD HL,0X8000
824
     502/    584E : 7E                  		LD A,(HL)
825
     503/    584F : 0F                  		RRCA
826
     504/    5850 : 0F                  		RRCA
827
     505/    5851 : 0F                  		RRCA
828
     506/    5852 : 0F                  		RRCA
829
     507/    5853 : E6 07               		AND 7
830
     508/    5855 : 47                  		LD B,A
831
     509/    5856 : 11 08 00            		LD DE,8
832
     510/    5859 : 19                  		ADD HL,DE
833
     511/    585A : 3E 02               PROG0		LD A,2
834
     512/    585C : D3 00               		OUT (MPAG),A
835
     513/    585E : C5                  		PUSH BC
836
     514/    585F : 11 10 58            		LD DE,MINILD+0X10
837
     515/    5862 : 01 10 00            		LD BC,0X10
838
     516/    5865 : ED B0               		LDIR
839
     517/    5867 : E5                  		PUSH HL
840
     518/    5868 : CD 84 58            		CALL PROGR0
841
     519/    586B : E1                  		POP HL
842
     520/    586C : C1                  		POP BC
843
     521/    586D : 10 EB               		DJNZ PROG0
844
     522/    586F : 3E 99               		LD A,0X99
845
     523/    5871 : D3 03               		OUT (ZXDATWR),A
846
     524/    5873 : AF                  		XOR A
847
     525/    5874 : D3 00               		OUT (MPAG),A
848
     526/    5876 : 3E 31               		LD A,0X31
849
     527/    5878 : 21 D3 80            		LD HL,0X80D3
850
     528/    587B : D3 0F               		OUT (GSCFG0),A
851
     529/    587D : 22 FE FF            		LD (0XFFFE),HL
852
     530/    5880 : AF                  		XOR A
853
     531/    5881 : C3 FE FF            		JP 0XFFFE
854
     532/    5884 :                     
855
     533/    5884 : 2A 12 58            PROGR0		LD HL,(MINILD+0X12)
856
     534/    5887 : 7D                  		LD A,L
857
     535/    5888 : E6 7F               		AND 0X7F
858
     536/    588A : ED 5B 11 58         		LD DE,(MINILD+0X11)
859
     537/    588E : 57                  		LD D,A
860
     538/    588F : 29                  		ADD HL,HL
861
     539/    5890 : 3E 02               		LD A,2
862
     540/    5892 : 84                  		ADD A,H
863
     541/    5893 : FD 67               		LD IYH,A;HY,A
864
     542/    5895 : 21 00 00            		LD HL,0
865
     543/    5898 : 3A 10 58            		LD A,(MINILD+0X10)
866
     544/    589B : E6 07               		AND 7
867
     545/    589D : DD 21 00 80         		LD IX,0X8000
868
     546/    58A1 : DD 19               		ADD IX,DE
869
     547/    58A3 : CD E5 58            		CALL SET_ADR
870
     548/    58A6 : CD EC 58            		CALL ERA_BLK
871
     549/    58A9 : ED 5B 14 58         		LD DE,(MINILD+0X14)
872
     550/    58AD : CD C2 58            		CALL PROGR1
873
     551/    58B0 : 3A 10 58            		LD A,(MINILD+0X10)
874
     552/    58B3 : E6 07               		AND 7
875
     553/    58B5 : 21 F8 FF            		LD HL,0XFFF8
876
     554/    58B8 : CD E5 58            		CALL SET_ADR
877
     555/    58BB : DD 21 18 58         		LD IX,MINILD+0X18
878
     556/    58BF : 11 08 00            		LD DE,8
879
     557/    58C2 :                     
880
     558/    58C2 : FD 7C               PROGR1		LD A,IYH
881
     559/    58C4 : D3 00               		OUT (MPAG),A
882
     560/    58C6 : DD 7E 00            		LD A,(IX)
883
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 15 - 1/17/2011 21:30:41
884
 
885
 
886
     561/    58C9 : DD 23               		INC IX
887
     562/    58CB : D5                  		PUSH DE
888
     563/    58CC : CD 2D 59            		CALL WR_BYTE
889
     564/    58CF : DD 7C               		LD A,IXH
890
     565/    58D1 : DD B5               		OR IXL
891
     566/    58D3 : 20 06               		JR NZ,PROGR2
892
     567/    58D5 : FD 24               		INC IYH
893
     568/    58D7 : DD 21 00 80         		LD IX,0X8000
894
     569/    58DB : D1                  PROGR2		POP DE
895
     570/    58DC : 1B                  		DEC DE
896
     571/    58DD : 7A                  		LD A,D
897
     572/    58DE : B3                  		OR E
898
     573/    58DF : 20 E1               		JR NZ,PROGR1
899
     574/    58E1 : C9                  		RET
900
     575/    58E2 :                     
901
     576/    58E2 :                     		include flasher_ngs.a80
902
(1)    1/    58E2 :                     
903
(1)    2/    58E2 :                     ;ФЛЕШЕР ДЛЯ НГС
904
(1)    3/    58E2 :                     
905
(1)    4/    58E2 : 00                  LOW		DB 0		;БИТЫ 7-0 АДРЕСА
906
(1)    5/    58E3 : 00                  MIDDLE		DB 0		;БИТЫ 15-8 АДРЕСА
907
(1)    6/    58E4 : 00                  HIGH		DB 0		;БИТЫ 23-16 АДРЕСА
908
(1)    7/    58E5 :                     
909
(1)    8/    58E5 :                     ;УСТАНОВКА АДРЕСА ЗАПИСИ
910
(1)    9/    58E5 :                     ;HL-МЛАДШИЕ 16 БИТ АДРЕС
911
(1)   10/    58E5 :                     ;A-СТАРШИЕ 8 БИТ АДРЕСА
912
(1)   11/    58E5 : 22 E2 58            SET_ADR		LD (LOW),HL
913
(1)   12/    58E8 : 32 E4 58            		LD (HIGH),A
914
(1)   13/    58EB : C9                  		RET
915
(1)   14/    58EC :                     
916
(1)   15/    58EC :                     ;СТИРАНИЕ БЛОКА 64К
917
(1)   16/    58EC :                     ;НА ВХОДЕ:
918
(1)   17/    58EC :                     ;A-НОМЕР БЛОКА ДЛЯ СТИРАНИЯ (0...7)
919
(1)   18/    58EC : 47                  ERA_BLK		LD B,A
920
(1)   19/    58ED : AF                  		XOR A
921
(1)   20/    58EE : D3 00               		OUT (MPAG),A
922
(1)   21/    58F0 : 3E 10               		LD A,0X10
923
(1)   22/    58F2 : D3 0F               		OUT (GSCFG0),A
924
(1)   23/    58F4 :                     
925
(1)   24/    58F4 : 3E AA               		LD A,0XAA
926
(1)   25/    58F6 : 32 55 85            		LD (0X0555+0X8000),A	;555,AA
927
(1)   26/    58F9 : 3E 55               		LD A,0X55
928
(1)   27/    58FB : 32 AA 82            		LD (0X02AA+0X8000),A	;2AA,55
929
(1)   28/    58FE : 3E 80               		LD A,0X80
930
(1)   29/    5900 : 32 55 85            		LD (0X0555+0X8000),A	;555,80
931
(1)   30/    5903 : 3E AA               		LD A,0XAA
932
(1)   31/    5905 : 32 55 85            		LD (0X0555+0X8000),A	;555,AA
933
(1)   32/    5908 : 3E 55               		LD A,0X55
934
(1)   33/    590A : 32 AA 82            		LD (0X02AA+0X8000),A	;2AA,55
935
(1)   34/    590D :                     
936
(1)   35/    590D : 78                  		LD A,B
937
(1)   36/    590E : E6 07               		AND 7
938
(1)   37/    5910 : 87                  		ADD A,A
939
(1)   38/    5911 : D3 00               		OUT (MPAG),A
940
(1)   39/    5913 :                     
941
(1)   40/    5913 : 3E 30               		LD A,0X30
942
(1)   41/    5915 : 32 00 80            		LD (0X8000),A		;BA,30
943
(1)   42/    5918 :                     
944
(1)   43/    5918 :                     ;50uS pause (@12MHz)
945
(1)   44/    5918 : 06 32               		LD B,50
946
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_ngs.a80) - page 16 - 1/17/2011 21:30:41
947
 
948
 
949
(1)   45/    591A : 10 FE               		DJNZ $
950
(1)   46/    591C :                     
951
(1)   47/    591C : 3A 00 80            WCMP		LD A,(0X8000)
952
(1)   48/    591F : 47                  		LD B,A
953
(1)   49/    5920 : 3A 00 80            		LD A,(0X8000)
954
(1)   50/    5923 : A8                  		XOR B
955
(1)   51/    5924 : E6 40               		AND 0X40
956
(1)   52/    5926 : 20 F4               		JR NZ,WCMP
957
(1)   53/    5928 : 3E 11               		LD A,0X11
958
(1)   54/    592A : D3 0F               		OUT (GSCFG0),A
959
(1)   55/    592C : C9                  		RET
960
(1)   56/    592D :                     
961
(1)   57/    592D :                     ;ЗАПИСЬ БАЙТА ВО ФЛЕШЬ
962
(1)   58/    592D : 47                  WR_BYTE		LD B,A
963
(1)   59/    592E : AF                  		XOR A
964
(1)   60/    592F : D3 00               		OUT (MPAG),A
965
(1)   61/    5931 : 3E 10               		LD A,0X10
966
(1)   62/    5933 : D3 0F               		OUT (GSCFG0),A
967
(1)   63/    5935 :                     
968
(1)   64/    5935 : 21 E2 58            		LD HL,LOW
969
(1)   65/    5938 : 5E                  		LD E,(HL)
970
(1)   66/    5939 : 23                  		INC HL
971
(1)   67/    593A : 56                  		LD D,(HL)
972
(1)   68/    593B : 23                  		INC HL
973
(1)   69/    593C : 4E                  		LD C,(HL)
974
(1)   70/    593D :                     
975
(1)   71/    593D : 3E AA               		LD A,0XAA
976
(1)   72/    593F : 32 55 85            		LD (0X0555+0X8000),A	;555,AA
977
(1)   73/    5942 : 3E 55               		LD A,0X55
978
(1)   74/    5944 : 32 AA 82            		LD (0X02AA+0X8000),A	;2AA,55
979
(1)   75/    5947 : 3E A0               		LD A,0XA0
980
(1)   76/    5949 : 32 55 85            		LD (0X0555+0X8000),A	;555,A0
981
(1)   77/    594C :                     
982
(1)   78/    594C : 7A                  		LD A,D
983
(1)   79/    594D : 17                  		RLA
984
(1)   80/    594E : 79                  		LD A,C
985
(1)   81/    594F : 8F                  		ADC A,A
986
(1)   82/    5950 : E6 0F               		AND 0X0F
987
(1)   83/    5952 : D3 00               		OUT (MPAG),A
988
(1)   84/    5954 :                     
989
(1)   85/    5954 : 62                  		LD H,D
990
(1)   86/    5955 : 6B                  		LD L,E
991
(1)   87/    5956 : CB FC               		SET 7,H
992
(1)   88/    5958 :                     
993
(1)   89/    5958 : 70                  		LD (HL),B
994
(1)   90/    5959 : 13                  		INC DE
995
(1)   91/    595A : 7A                  		LD A,D
996
(1)   92/    595B : B3                  		OR E
997
(1)   93/    595C : 20 01               		JR NZ,$+3
998
(1)   94/    595E : 0C                  		INC C
999
(1)   95/    595F : 21 E2 58            		LD HL,LOW
1000
(1)   96/    5962 : 73                  		LD (HL),E
1001
(1)   97/    5963 : 23                  		INC HL
1002
(1)   98/    5964 : 72                  		LD (HL),D
1003
(1)   99/    5965 : 23                  		INC HL
1004
(1)  100/    5966 : 71                  		LD (HL),C
1005
(1)  101/    5967 : 18 B3               		JR WCMP
1006
(1)  102/    5969 :                     
1007
     577/    5969 :                     MINILDE
1008
     578/    644E :                     		DEPHASE
1009
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 17 - 1/17/2011 21:30:41
1010
 
1011
 
1012
     579/    644E :                     
1013
     580/    644E :                     CHARS		binclude altstd.bin
1014
     581/    6C4E :                     		include window.a80
1015
(1)    1/    6C4E :                     
1016
(1)    2/    6C4E :                     ;LAST UPDATE: 08.12.2009 savelij
1017
(1)    3/    6C4E :                     
1018
(1)    4/    6C4E : FB                  KEYS	EI
1019
(1)    5/    6C4F : 76                  	HALT
1020
(1)    6/    6C50 : F3                  	DI
1021
(1)    7/    6C51 : FD CB 01 6E         	BIT 5,(IY+1)
1022
(1)    8/    6C55 : 28 F7               	JR Z,KEYS
1023
(1)    9/    6C57 : FD 7E CE            	LD A,(IY-0X32)
1024
(1)   10/    6C5A : FD CB 01 AE         	RES 5,(IY+1)
1025
(1)   11/    6C5E : C9                  	RET
1026
(1)   12/    6C5F :                     
1027
(1)   13/    6C5F : F5                  VCURS	PUSH AF
1028
(1)   14/    6C60 : 3A CE 6D            	LD A,(CURSOR)
1029
(1)   15/    6C63 : 47                  	LD B,A
1030
(1)   16/    6C64 : 87                  	ADD A,A
1031
(1)   17/    6C65 : 80                  	ADD A,B
1032
(1)   18/    6C66 : 87                  	ADD A,A
1033
(1)   19/    6C67 : 47                  	LD B,A
1034
(1)   20/    6C68 : 3A A3 6D            	LD A,(BUFFE+2)
1035
(1)   21/    6C6B : 80                  	ADD A,B
1036
(1)   22/    6C6C : F5                  	PUSH AF
1037
(1)   23/    6C6D : 11 00 B8            	LD DE,BUFTSC
1038
(1)   24/    6C70 : 2A A2 6D            	LD HL,(BUFFE+1)
1039
(1)   25/    6C73 : 26 00               	LD H,0
1040
(1)   26/    6C75 : 29                  	ADD HL,HL
1041
(1)   27/    6C76 : 19                  	ADD HL,DE
1042
(1)   28/    6C77 : 5E                  	LD E,(HL)
1043
(1)   29/    6C78 : 23                  	INC HL
1044
(1)   30/    6C79 : 56                  	LD D,(HL)
1045
(1)   31/    6C7A : 0F                  	RRCA
1046
(1)   32/    6C7B : 0F                  	RRCA
1047
(1)   33/    6C7C : 0F                  	RRCA
1048
(1)   34/    6C7D : E6 1F               	AND 0X1F
1049
(1)   35/    6C7F : 83                  	ADD A,E
1050
(1)   36/    6C80 : 6F                  	LD L,A
1051
(1)   37/    6C81 : 62                  	LD H,D
1052
(1)   38/    6C82 : F1                  	POP AF
1053
(1)   39/    6C83 : E6 07               	AND 7
1054
(1)   40/    6C85 : 47                  	LD B,A
1055
(1)   41/    6C86 : 3E 80               	LD A,0X80
1056
(1)   42/    6C88 : 28 03               	JR Z,$+5
1057
(1)   43/    6C8A : 0F                  	RRCA
1058
(1)   44/    6C8B : 10 FD               	DJNZ $-1
1059
(1)   45/    6C8D : 06 08               	LD B,8
1060
(1)   46/    6C8F : 4F                  	LD C,A
1061
(1)   47/    6C90 : 79                  	LD A,C
1062
(1)   48/    6C91 : AE                  	XOR (HL)
1063
(1)   49/    6C92 : 77                  	LD (HL),A
1064
(1)   50/    6C93 : 24                  	INC H
1065
(1)   51/    6C94 : 10 FA               	DJNZ $-4
1066
(1)   52/    6C96 : F1                  	POP AF
1067
(1)   53/    6C97 : C9                  	RET
1068
(1)   54/    6C98 :                     
1069
(1)   55/    6C98 : 3E 0F               ZADER	LD A,15
1070
(1)   56/    6C9A : 3D                  	DEC A
1071
(1)   57/    6C9B : 32 99 6C            	LD (ZADER+1),A
1072
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 18 - 1/17/2011 21:30:41
1073
 
1074
 
1075
(1)   58/    6C9E : C0                  	RET NZ
1076
(1)   59/    6C9F : 3E 0F               	LD A,15
1077
(1)   60/    6CA1 : 32 99 6C            	LD (ZADER+1),A
1078
(1)   61/    6CA4 : C3 5F 6C            	JP VCURS
1079
(1)   62/    6CA7 :                     
1080
(1)   63/    6CA7 : 22 A2 6D            INPUTT	LD (BUFFE+1),HL
1081
(1)   64/    6CAA : 32 D0 6D            	LD (LENGHT),A
1082
(1)   65/    6CAD : 6F                  	LD L,A
1083
(1)   66/    6CAE : 3C                  	INC A
1084
(1)   67/    6CAF : 32 DC 6D            	LD (PRIBUF+1),A
1085
(1)   68/    6CB2 : E5                  	PUSH HL
1086
(1)   69/    6CB3 : AF                  	XOR A
1087
(1)   70/    6CB4 : 21 A4 6D            	LD HL,BUFFER
1088
(1)   71/    6CB7 : 5D                  	LD E,L
1089
(1)   72/    6CB8 : 54                  	LD D,H
1090
(1)   73/    6CB9 : 13                  	INC DE
1091
(1)   74/    6CBA : 01 27 00            	LD BC,39
1092
(1)   75/    6CBD : 77                  	LD (HL),A
1093
(1)   76/    6CBE : ED B0               	LDIR
1094
(1)   77/    6CC0 : FD CB 30 DE         	SET 3,(IY+48)
1095
(1)   78/    6CC4 : E1                  	POP HL
1096
(1)   79/    6CC5 : 32 CE 6D            	LD (CURSOR),A
1097
(1)   80/    6CC8 : 67                  	LD H,A
1098
(1)   81/    6CC9 : 11 A4 6D            	LD DE,BUFFER
1099
(1)   82/    6CCC : 19                  	ADD HL,DE
1100
(1)   83/    6CCD : 22 CC 6D            	LD (BUFEND),HL
1101
(1)   84/    6CD0 : 3A D0 6D            	LD A,(LENGHT)
1102
(1)   85/    6CD3 : 47                  	LD B,A
1103
(1)   86/    6CD4 : 21 A4 6D            	LD HL,BUFFER
1104
(1)   87/    6CD7 : 36 20               CLEAR	LD (HL),0X20
1105
(1)   88/    6CD9 : 23                  	INC HL
1106
(1)   89/    6CDA : 10 FB               	DJNZ CLEAR
1107
(1)   90/    6CDC : 21 A1 6D            ACCEPT	LD HL,BUFFE
1108
(1)   91/    6CDF : CD DB 6D            	CALL PRIBUF
1109
(1)   92/    6CE2 : CD 5F 6C            GETKEY	CALL VCURS
1110
(1)   93/    6CE5 : CD 4E 6C            	CALL KEYS
1111
(1)   94/    6CE8 : CD 5F 6C            	CALL VCURS
1112
(1)   95/    6CEB : FE 07               	CP 7
1113
(1)   96/    6CED : C8                  	RET Z
1114
(1)   97/    6CEE :                     ;	CP 6
1115
(1)   98/    6CEE :                     ;	JR C,GETKEY
1116
(1)   99/    6CEE : FE 0D               	CP 0X0D
1117
(1)  100/    6CF0 : CA 8C 6D            	JP Z,ENTER
1118
(1)  101/    6CF3 : FE 08               	CP 8
1119
(1)  102/    6CF5 : 28 3A               	JR Z,CRLEFT
1120
(1)  103/    6CF7 : FE 09               	CP 9
1121
(1)  104/    6CF9 : 28 43               	JR Z,CRRIGT
1122
(1)  105/    6CFB : FE 0C               	CP 0X0C
1123
(1)  106/    6CFD : 28 51               	JR Z,DELETE
1124
(1)  107/    6CFF :                     ;	CP 0X0F
1125
(1)  108/    6CFF :                     ;	JP Z,INSOVR
1126
(1)  109/    6CFF : FE 06               	CP 0X06
1127
(1)  110/    6D01 : CA 81 6D            	JP Z,CAPSLK
1128
(1)  111/    6D04 : FE 21               	CP 0X21
1129
(1)  112/    6D06 : 38 DA               	JR C,GETKEY
1130
(1)  113/    6D08 : FE 80               	CP 0X80
1131
(1)  114/    6D0A : 30 D6               	JR NC,GETKEY
1132
(1)  115/    6D0C : 5F                  	LD E,A
1133
(1)  116/    6D0D : 3A CE 6D            	LD A,(CURSOR)
1134
(1)  117/    6D10 : 47                  	LD B,A
1135
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 19 - 1/17/2011 21:30:41
1136
 
1137
 
1138
(1)  118/    6D11 : 3A D0 6D            	LD A,(LENGHT)
1139
(1)  119/    6D14 : 90                  	SUB B
1140
(1)  120/    6D15 : 28 CB               	JR Z,GETKEY
1141
(1)  121/    6D17 : 4F                  	LD C,A
1142
(1)  122/    6D18 : 78                  	LD A,B
1143
(1)  123/    6D19 : 3C                  	INC A
1144
(1)  124/    6D1A : 32 CE 6D            	LD (CURSOR),A
1145
(1)  125/    6D1D : 7B                  	LD A,E
1146
(1)  126/    6D1E : 2A CC 6D            	LD HL,(BUFEND)
1147
(1)  127/    6D21 : 54                  	LD D,H
1148
(1)  128/    6D22 : 5D                  	LD E,L
1149
(1)  129/    6D23 : FD CB 30 76         	BIT 6,(IY+48)
1150
(1)  130/    6D27 : 20 01               	JR NZ,$+3
1151
(1)  131/    6D29 : 2B                  	DEC HL
1152
(1)  132/    6D2A : 06 00               	LD B,0
1153
(1)  133/    6D2C : ED B8               	LDDR
1154
(1)  134/    6D2E : 12                  	LD (DE),A
1155
(1)  135/    6D2F : 18 AB               	JR ACCEPT
1156
(1)  136/    6D31 :                     
1157
(1)  137/    6D31 : 3A CE 6D            CRLEFT	LD A,(CURSOR)
1158
(1)  138/    6D34 : A7                  	AND A
1159
(1)  139/    6D35 : 28 AB               	JR Z,GETKEY
1160
(1)  140/    6D37 : 3D                  	DEC A
1161
(1)  141/    6D38 : 32 CE 6D            	LD (CURSOR),A
1162
(1)  142/    6D3B : C3 DC 6C            	JP ACCEPT
1163
(1)  143/    6D3E :                     
1164
(1)  144/    6D3E : 3A D0 6D            CRRIGT	LD A,(LENGHT)
1165
(1)  145/    6D41 : 4F                  	LD C,A
1166
(1)  146/    6D42 : 3A CE 6D            	LD A,(CURSOR)
1167
(1)  147/    6D45 : B9                  	CP C
1168
(1)  148/    6D46 : CA E2 6C            	JP Z,GETKEY
1169
(1)  149/    6D49 : 3C                  	INC A
1170
(1)  150/    6D4A : 32 CE 6D            	LD (CURSOR),A
1171
(1)  151/    6D4D : C3 DC 6C            	JP ACCEPT
1172
(1)  152/    6D50 : 3A CE 6D            DELETE	LD A,(CURSOR)
1173
(1)  153/    6D53 : A7                  	AND A
1174
(1)  154/    6D54 : CA E2 6C            	JP Z,GETKEY
1175
(1)  155/    6D57 : 5F                  	LD E,A
1176
(1)  156/    6D58 : 3A D0 6D            	LD A,(LENGHT)
1177
(1)  157/    6D5B : 93                  	SUB E
1178
(1)  158/    6D5C : 3C                  	INC A
1179
(1)  159/    6D5D : 4F                  	LD C,A
1180
(1)  160/    6D5E : 7B                  	LD A,E
1181
(1)  161/    6D5F : 3D                  	DEC A
1182
(1)  162/    6D60 : 32 CE 6D            	LD (CURSOR),A
1183
(1)  163/    6D63 : 21 A4 6D            	LD HL,BUFFER
1184
(1)  164/    6D66 : 16 00               	LD D,0
1185
(1)  165/    6D68 : 19                  	ADD HL,DE
1186
(1)  166/    6D69 : 54                  	LD D,H
1187
(1)  167/    6D6A : 5D                  	LD E,L
1188
(1)  168/    6D6B : 1B                  	DEC DE
1189
(1)  169/    6D6C : 06 00               	LD B,0
1190
(1)  170/    6D6E : ED B0               	LDIR
1191
(1)  171/    6D70 : 3E 20               	LD A,0X20
1192
(1)  172/    6D72 : 12                  	LD (DE),A
1193
(1)  173/    6D73 : C3 DC 6C            	JP ACCEPT
1194
(1)  174/    6D76 :                     
1195
(1)  175/    6D76 : 3E 40               INSOVR	LD A,0X40
1196
(1)  176/    6D78 : FD AE 30            	XOR (IY+48)
1197
(1)  177/    6D7B : FD 77 30            	LD (IY+48),A
1198
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 20 - 1/17/2011 21:30:41
1199
 
1200
 
1201
(1)  178/    6D7E : C3 DC 6C            	JP ACCEPT
1202
(1)  179/    6D81 :                     
1203
(1)  180/    6D81 : 3E 08               CAPSLK	LD A,8
1204
(1)  181/    6D83 : FD AE 30            	XOR (IY+48)
1205
(1)  182/    6D86 : FD 77 30            	LD (IY+48),A
1206
(1)  183/    6D89 : C3 DC 6C            	JP ACCEPT
1207
(1)  184/    6D8C :                     
1208
(1)  185/    6D8C : 11 A4 6D            ENTER	LD DE,BUFFER
1209
(1)  186/    6D8F : 21 CB 6D            	LD HL,BUFEND-1
1210
(1)  187/    6D92 : 7E                  CLEAN	LD A,(HL)
1211
(1)  188/    6D93 : FE 21               	CP 0X21
1212
(1)  189/    6D95 : 30 05               	JR NC,ENDEDIT
1213
(1)  190/    6D97 : 36 00               	LD (HL),0
1214
(1)  191/    6D99 : 2B                  	DEC HL
1215
(1)  192/    6D9A : 18 F6               	JR CLEAN
1216
(1)  193/    6D9C :                     
1217
(1)  194/    6D9C : AF                  ENDEDIT	XOR A
1218
(1)  195/    6D9D : 21 A4 6D            	LD HL,BUFFER
1219
(1)  196/    6DA0 : C9                  	RET
1220
(1)  197/    6DA1 :                     
1221
(1)  198/    6DA1 : 16 00 00            BUFFE	DB 0X16,0,0
1222
(1)  199/    6DA4 :                     BUFFER	DS 40
1223
(1)  200/    6DCC : 00 00               BUFEND	DW 0
1224
(1)  201/    6DCE : 00                  CURSOR	DB 0
1225
(1)  202/    6DCF : 00                  LETTER	DB 0
1226
(1)  203/    6DD0 : 00                  LENGHT	DB 0
1227
(1)  204/    6DD1 :                     
1228
(1)  205/    6DD1 : 11 A4 6D            MOVI	LD DE,BUFFER
1229
(1)  206/    6DD4 : EB                  	EX DE,HL
1230
(1)  207/    6DD5 : 06 00               	LD B,0
1231
(1)  208/    6DD7 : ED B0               	LDIR
1232
(1)  209/    6DD9 : EB                  	EX DE,HL
1233
(1)  210/    6DDA : C9                  	RET
1234
(1)  211/    6DDB :                     
1235
(1)  212/    6DDB : 06 00               PRIBUF	LD B,0
1236
(1)  213/    6DDD : 7E                  	LD A,(HL)
1237
(1)  214/    6DDE : 23                  	INC HL
1238
(1)  215/    6DDF : C5                  	PUSH BC
1239
(1)  216/    6DE0 : CD 01 71            	CALL PRINT
1240
(1)  217/    6DE3 : C1                  	POP BC
1241
(1)  218/    6DE4 : 10 F7               	DJNZ PRIBUF+2
1242
(1)  219/    6DE6 : C9                  	RET
1243
(1)  220/    6DE7 :                     
1244
(1)  221/    6DE7 : 06 18               ADRTSC	LD B,0X18
1245
(1)  222/    6DE9 : 11 00 40            	LD DE,0X4000
1246
(1)  223/    6DEC : 21 00 B8            	LD HL,BUFTSC
1247
(1)  224/    6DEF : 0E 08               	LD C,8
1248
(1)  225/    6DF1 : 73                  	LD (HL),E
1249
(1)  226/    6DF2 : 23                  	INC HL
1250
(1)  227/    6DF3 : 72                  	LD (HL),D
1251
(1)  228/    6DF4 : 23                  	INC HL
1252
(1)  229/    6DF5 : 14                  	INC D
1253
(1)  230/    6DF6 : 0D                  	DEC C
1254
(1)  231/    6DF7 : 20 F8               	JR NZ,$-6
1255
(1)  232/    6DF9 : 3E 20               	LD A,0X20
1256
(1)  233/    6DFB : 83                  	ADD A,E
1257
(1)  234/    6DFC : 5F                  	LD E,A
1258
(1)  235/    6DFD : 38 04               	JR C,$+6
1259
(1)  236/    6DFF : 7A                  	LD A,D
1260
(1)  237/    6E00 : D6 08               	SUB 8
1261
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 21 - 1/17/2011 21:30:41
1262
 
1263
 
1264
(1)  238/    6E02 : 57                  	LD D,A
1265
(1)  239/    6E03 : 10 EA               	DJNZ $-20
1266
(1)  240/    6E05 : C9                  	RET
1267
(1)  241/    6E06 :                     
1268
(1)  242/    6E06 : DD 6E 06            WTABL	LD L,(IX+6)
1269
(1)  243/    6E09 : DD 66 07            	LD H,(IX+7)
1270
(1)  244/    6E0C : 87                  	ADD A,A
1271
(1)  245/    6E0D : 16 00               	LD D,0
1272
(1)  246/    6E0F : 5F                  	LD E,A
1273
(1)  247/    6E10 : 19                  	ADD HL,DE
1274
(1)  248/    6E11 : 5E                  	LD E,(HL)
1275
(1)  249/    6E12 : 23                  	INC HL
1276
(1)  250/    6E13 : 56                  	LD D,(HL)
1277
(1)  251/    6E14 : EB                  	EX DE,HL
1278
(1)  252/    6E15 : 7D                  	LD A,L
1279
(1)  253/    6E16 : B4                  	OR H
1280
(1)  254/    6E17 : C8                  	RET Z
1281
(1)  255/    6E18 : E9                  	JP (HL)
1282
(1)  256/    6E19 :                     
1283
(1)  257/    6E19 : 21 00 40            CLS	LD HL,0X4000
1284
(1)  258/    6E1C : 5D                  	LD E,L
1285
(1)  259/    6E1D : 54                  	LD D,H
1286
(1)  260/    6E1E : 75                  	LD (HL),L
1287
(1)  261/    6E1F : 1C                  	INC E
1288
(1)  262/    6E20 : 01 00 18            	LD BC,0X1800
1289
(1)  263/    6E23 : ED B0               	LDIR
1290
(1)  264/    6E25 : 32 8D 5C            CLSCLR	LD (0X5C8D),A
1291
(1)  265/    6E28 : 32 48 5C            	LD (0X5C48),A
1292
(1)  266/    6E2B : 21 00 58            	LD HL,0X5800
1293
(1)  267/    6E2E : 54                  	LD D,H
1294
(1)  268/    6E2F : 5D                  	LD E,L
1295
(1)  269/    6E30 : 77                  	LD (HL),A
1296
(1)  270/    6E31 : 01 FF 02            	LD BC,0X02FF
1297
(1)  271/    6E34 : 1C                  	INC E
1298
(1)  272/    6E35 : ED B0               	LDIR
1299
(1)  273/    6E37 : 0F                  	RRCA
1300
(1)  274/    6E38 : 0F                  	RRCA
1301
(1)  275/    6E39 : 0F                  	RRCA
1302
(1)  276/    6E3A : E6 07               	AND 7
1303
(1)  277/    6E3C : D3 FE               	OUT (0XFE),A
1304
(1)  278/    6E3E : C9                  	RET
1305
(1)  279/    6E3F :                     
1306
(1)  280/    6E3F : DD 7E 00            INWERT	LD A,(IX)
1307
(1)  281/    6E42 : DD 23               	INC IX
1308
(1)  282/    6E44 : 81                  	ADD A,C
1309
(1)  283/    6E45 : 6F                  	LD L,A
1310
(1)  284/    6E46 : DD 66 00            	LD H,(IX)
1311
(1)  285/    6E49 : DD 23               	INC IX
1312
(1)  286/    6E4B : 54                  	LD D,H
1313
(1)  287/    6E4C : 5D                  	LD E,L
1314
(1)  288/    6E4D : 1C                  	INC E
1315
(1)  289/    6E4E : 36 FF               	LD (HL),0XFF
1316
(1)  290/    6E50 : C5                  	PUSH BC
1317
(1)  291/    6E51 : CD 46 70            	CALL LDIST
1318
(1)  292/    6E54 : C1                  	POP BC
1319
(1)  293/    6E55 : 10 E8               	DJNZ INWERT
1320
(1)  294/    6E57 : C9                  	RET
1321
(1)  295/    6E58 :                     
1322
(1)  296/    6E58 :                     ;X-L,Y-H,H-B,V-C
1323
(1)  297/    6E58 : E5                  WINOUT	PUSH HL
1324
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 22 - 1/17/2011 21:30:41
1325
 
1326
 
1327
(1)  298/    6E59 : C5                  	PUSH BC
1328
(1)  299/    6E5A : DD E5               	PUSH IX
1329
(1)  300/    6E5C : F5                  	PUSH AF
1330
(1)  301/    6E5D : 3E 22               	LD A,0X22
1331
(1)  302/    6E5F : 90                  	SUB B
1332
(1)  303/    6E60 : 87                  	ADD A,A
1333
(1)  304/    6E61 : 32 47 70            	LD (LDIST+1),A
1334
(1)  305/    6E64 : C5                  			PUSH BC
1335
(1)  306/    6E65 : 79                  	LD A,C
1336
(1)  307/    6E66 : 07                  	RLCA
1337
(1)  308/    6E67 : 07                  	RLCA
1338
(1)  309/    6E68 : 07                  	RLCA
1339
(1)  310/    6E69 : 3D                  	DEC A
1340
(1)  311/    6E6A : 3D                  	DEC A
1341
(1)  312/    6E6B : 47                  	LD B,A
1342
(1)  313/    6E6C : DD 21 00 B8         	LD IX,BUFTSC
1343
(1)  314/    6E70 : EB                  	EX DE,HL
1344
(1)  315/    6E71 : 6A                  	LD L,D
1345
(1)  316/    6E72 : 26 00               	LD H,0
1346
(1)  317/    6E74 : 29                  	ADD HL,HL
1347
(1)  318/    6E75 : 29                  	ADD HL,HL
1348
(1)  319/    6E76 : 29                  	ADD HL,HL
1349
(1)  320/    6E77 : 29                  	ADD HL,HL
1350
(1)  321/    6E78 : EB                  	EX DE,HL
1351
(1)  322/    6E79 : DD 19               	ADD IX,DE
1352
(1)  323/    6E7B : DD E5               			PUSH IX
1353
(1)  324/    6E7D : 4D                  	LD C,L
1354
(1)  325/    6E7E : DD 23               POWT1	INC IX
1355
(1)  326/    6E80 : DD 23               	INC IX
1356
(1)  327/    6E82 : DD 5E 00            	LD E,(IX)
1357
(1)  328/    6E85 : DD 56 01            	LD D,(IX+1)
1358
(1)  329/    6E88 : 79                  	LD A,C
1359
(1)  330/    6E89 : 83                  	ADD A,E
1360
(1)  331/    6E8A : 5F                  	LD E,A
1361
(1)  332/    6E8B : EB                  	EX DE,HL
1362
(1)  333/    6E8C : 36 80               	LD (HL),0X80
1363
(1)  334/    6E8E : =6E8DH              RAMK0	EQU $-1
1364
(1)  335/    6E8E : 23                  	INC HL
1365
(1)  336/    6E8F : 36 00               	LD (HL),0
1366
(1)  337/    6E91 : 54                  	LD D,H
1367
(1)  338/    6E92 : 5D                  	LD E,L
1368
(1)  339/    6E93 : 1C                  	INC E
1369
(1)  340/    6E94 : C5                  			PUSH BC
1370
(1)  341/    6E95 : CD 46 70            	CALL LDIST
1371
(1)  342/    6E98 : C1                  			POP BC
1372
(1)  343/    6E99 : 36 01               	LD (HL),1
1373
(1)  344/    6E9B : =6E9AH              RAMK1	EQU $-1
1374
(1)  345/    6E9B : 10 E1               	DJNZ POWT1
1375
(1)  346/    6E9D : DD 5E 00            	LD E,(IX)
1376
(1)  347/    6EA0 : DD 56 01            	LD D,(IX+1)
1377
(1)  348/    6EA3 : 14                  	INC D
1378
(1)  349/    6EA4 : 79                  	LD A,C
1379
(1)  350/    6EA5 : 83                  	ADD A,E
1380
(1)  351/    6EA6 : 5F                  	LD E,A
1381
(1)  352/    6EA7 : EB                  	EX DE,HL
1382
(1)  353/    6EA8 : 36 FF               	LD (HL),0XFF
1383
(1)  354/    6EAA : =6EA9H              RAMK2	EQU $-1
1384
(1)  355/    6EAA : 54                  	LD D,H
1385
(1)  356/    6EAB : 5D                  	LD E,L
1386
(1)  357/    6EAC : 1C                  	INC E
1387
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 23 - 1/17/2011 21:30:41
1388
 
1389
 
1390
(1)  358/    6EAD : C5                  			PUSH BC
1391
(1)  359/    6EAE : CD 46 70            	CALL LDIST
1392
(1)  360/    6EB1 : ED A0               	LDI
1393
(1)  361/    6EB3 : C1                  			POP BC
1394
(1)  362/    6EB4 : DD E1               			POP IX
1395
(1)  363/    6EB6 : DD 5E 00            	LD E,(IX)
1396
(1)  364/    6EB9 : DD 56 01            	LD D,(IX+1)
1397
(1)  365/    6EBC : 79                  	LD A,C
1398
(1)  366/    6EBD : 83                  	ADD A,E
1399
(1)  367/    6EBE : 5F                  	LD E,A
1400
(1)  368/    6EBF : EB                  	EX DE,HL
1401
(1)  369/    6EC0 : 36 FF               	LD (HL),0XFF
1402
(1)  370/    6EC2 : =6EC1H              RAMK3	EQU $-1
1403
(1)  371/    6EC2 : 54                  	LD D,H
1404
(1)  372/    6EC3 : 5D                  	LD E,L
1405
(1)  373/    6EC4 : 1C                  	INC E
1406
(1)  374/    6EC5 : C5                  			PUSH BC
1407
(1)  375/    6EC6 : CD 46 70            	CALL LDIST
1408
(1)  376/    6EC9 : ED A0               	LDI
1409
(1)  377/    6ECB : C1                  			POP BC
1410
(1)  378/    6ECC : DD 7E 00            	LD A,(IX)
1411
(1)  379/    6ECF : 81                  	ADD A,C
1412
(1)  380/    6ED0 : 5F                  	LD E,A
1413
(1)  381/    6ED1 : DD 7E 01            	LD A,(IX+1)
1414
(1)  382/    6ED4 : 1F                  	RRA
1415
(1)  383/    6ED5 : 1F                  	RRA
1416
(1)  384/    6ED6 : 1F                  	RRA
1417
(1)  385/    6ED7 : E6 0F               	AND 0X0F
1418
(1)  386/    6ED9 : F6 50               	OR 0X50
1419
(1)  387/    6EDB : 57                  	LD D,A
1420
(1)  388/    6EDC : EB                  	EX DE,HL
1421
(1)  389/    6EDD : D1                  			POP DE
1422
(1)  390/    6EDE : 43                  	LD B,E
1423
(1)  391/    6EDF : F1                  			POP AF
1424
(1)  392/    6EE0 : E5                  POWT2	PUSH HL
1425
(1)  393/    6EE1 : 54                  	LD D,H
1426
(1)  394/    6EE2 : 5D                  	LD E,L
1427
(1)  395/    6EE3 : 1C                  	INC E
1428
(1)  396/    6EE4 : 77                  	LD (HL),A
1429
(1)  397/    6EE5 : C5                  			PUSH BC
1430
(1)  398/    6EE6 : CD 46 70            	CALL LDIST
1431
(1)  399/    6EE9 : ED A0               	LDI
1432
(1)  400/    6EEB : C1                  			POP BC
1433
(1)  401/    6EEC : E1                  			POP HL
1434
(1)  402/    6EED : 11 20 00            	LD DE,0X20
1435
(1)  403/    6EF0 : 19                  	ADD HL,DE
1436
(1)  404/    6EF1 : 10 ED               	DJNZ POWT2
1437
(1)  405/    6EF3 : DD E1               	POP IX
1438
(1)  406/    6EF5 : C1                  	POP BC
1439
(1)  407/    6EF6 : E1                  	POP HL
1440
(1)  408/    6EF7 : C9                  	RET
1441
(1)  409/    6EF8 :                     
1442
(1)  410/    6EF8 : DD CB 08 76         WINW	BIT 6,(IX+8)
1443
(1)  411/    6EFC : 21 01 80            	LD HL,0X8001
1444
(1)  412/    6EFF : 06 FF               	LD B,0XFF
1445
(1)  413/    6F01 : 28 04               	JR Z,WINW1
1446
(1)  414/    6F03 : 21 00 00            	LD HL,0
1447
(1)  415/    6F06 : 45                  	LD B,L
1448
(1)  416/    6F07 : 7C                  WINW1	LD A,H
1449
(1)  417/    6F08 : 32 8D 6E            	LD (RAMK0),A
1450
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 24 - 1/17/2011 21:30:41
1451
 
1452
 
1453
(1)  418/    6F0B : 7D                  	LD A,L
1454
(1)  419/    6F0C : 32 9A 6E            	LD (RAMK1),A
1455
(1)  420/    6F0F : 78                  	LD A,B
1456
(1)  421/    6F10 : 32 C1 6E            	LD (RAMK3),A
1457
(1)  422/    6F13 : 32 A9 6E            	LD (RAMK2),A
1458
(1)  423/    6F16 : DD 6E 00            	LD L,(IX+0)
1459
(1)  424/    6F19 : DD 66 01            	LD H,(IX+1)
1460
(1)  425/    6F1C : DD 4E 02            	LD C,(IX+2)
1461
(1)  426/    6F1F : DD 46 03            	LD B,(IX+3)
1462
(1)  427/    6F22 : DD 7E 04            	LD A,(IX+4)
1463
(1)  428/    6F25 : CD 58 6E            	CALL WINOUT
1464
(1)  429/    6F28 : DD CB 08 6E         	BIT 5,(IX+8)
1465
(1)  430/    6F2C : 28 21               	JR Z,W_NIZ
1466
(1)  431/    6F2E : 21 47 70            	LD HL,LDIST+1
1467
(1)  432/    6F31 : 35                  	DEC (HL)
1468
(1)  433/    6F32 : 35                  	DEC (HL)
1469
(1)  434/    6F33 : DD E5               	PUSH IX
1470
(1)  435/    6F35 : DD 4E 00            	LD C,(IX)
1471
(1)  436/    6F38 : 06 08               	LD B,8
1472
(1)  437/    6F3A : DD 6E 01            	LD L,(IX+1)
1473
(1)  438/    6F3D : 26 00               	LD H,0
1474
(1)  439/    6F3F : DD 21 00 B8         	LD IX,BUFTSC
1475
(1)  440/    6F43 : 29                  	ADD HL,HL
1476
(1)  441/    6F44 : 29                  	ADD HL,HL
1477
(1)  442/    6F45 : 29                  	ADD HL,HL
1478
(1)  443/    6F46 : 29                  	ADD HL,HL
1479
(1)  444/    6F47 : EB                  	EX DE,HL
1480
(1)  445/    6F48 : DD 19               	ADD IX,DE
1481
(1)  446/    6F4A : CD 3F 6E            	CALL INWERT
1482
(1)  447/    6F4D : DD E1               	POP IX
1483
(1)  448/    6F4F : DD CB 08 7E         W_NIZ	BIT 7,(IX+8)
1484
(1)  449/    6F53 : 28 21               	JR Z,RASCH
1485
(1)  450/    6F55 : DD E5               	PUSH IX
1486
(1)  451/    6F57 : DD 4E 00            	LD C,(IX)
1487
(1)  452/    6F5A : 06 08               	LD B,8
1488
(1)  453/    6F5C : DD 7E 01            	LD A,(IX+1)
1489
(1)  454/    6F5F : DD 86 02            	ADD A,(IX+2)
1490
(1)  455/    6F62 : 3D                  	DEC A
1491
(1)  456/    6F63 : 6F                  	LD L,A
1492
(1)  457/    6F64 : 26 00               	LD H,0
1493
(1)  458/    6F66 : 29                  	ADD HL,HL
1494
(1)  459/    6F67 : 29                  	ADD HL,HL
1495
(1)  460/    6F68 : 29                  	ADD HL,HL
1496
(1)  461/    6F69 : 29                  	ADD HL,HL
1497
(1)  462/    6F6A : DD 21 00 B8         	LD IX,BUFTSC
1498
(1)  463/    6F6E : EB                  	EX DE,HL
1499
(1)  464/    6F6F : DD 19               	ADD IX,DE
1500
(1)  465/    6F71 : CD 3F 6E            	CALL INWERT
1501
(1)  466/    6F74 : DD E1               	POP IX
1502
(1)  467/    6F76 : DD 7E 00            RASCH   LD A,(IX)
1503
(1)  468/    6F79 : 87                  	ADD A,A
1504
(1)  469/    6F7A : 87                  	ADD A,A
1505
(1)  470/    6F7B : 87                  	ADD A,A
1506
(1)  471/    6F7C : 3C                  	INC A
1507
(1)  472/    6F7D : 57                  	LD D,A
1508
(1)  473/    6F7E : 32 3D 71            	LD (XNEW+1),A
1509
(1)  474/    6F81 : 32 1F 71            	LD (EX2+1),A
1510
(1)  475/    6F84 : DD 7E 01            	LD A,(IX+1)
1511
(1)  476/    6F87 : 87                  	ADD A,A
1512
(1)  477/    6F88 : 87                  	ADD A,A
1513
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 25 - 1/17/2011 21:30:41
1514
 
1515
 
1516
(1)  478/    6F89 : 87                  	ADD A,A
1517
(1)  479/    6F8A : 5F                  	LD E,A
1518
(1)  480/    6F8B : ED 53 73 71         	LD (ADRSTR+1),DE
1519
(1)  481/    6F8F : DD 7E 03            	LD A,(IX+3)
1520
(1)  482/    6F92 : 87                  	ADD A,A
1521
(1)  483/    6F93 : 87                  	ADD A,A
1522
(1)  484/    6F94 : 87                  	ADD A,A
1523
(1)  485/    6F95 : 32 19 71            	LD (EX1+1),A
1524
(1)  486/    6F98 : DD CB 08 66         	BIT 4,(IX+8)
1525
(1)  487/    6F9C : C0                  	RET NZ
1526
(1)  488/    6F9D : DD 6E 0D            	LD L,(IX+13)
1527
(1)  489/    6FA0 : DD 66 0E            	LD H,(IX+14)
1528
(1)  490/    6FA3 : C3 F8 70            	JP NEXT
1529
(1)  491/    6FA6 :                     
1530
(1)  492/    6FA6 : C5                  SCRUP	PUSH BC
1531
(1)  493/    6FA7 : DD E5               	PUSH IX
1532
(1)  494/    6FA9 : DD 6E 01            	LD L,(IX+1)
1533
(1)  495/    6FAC : 2C                  	INC L
1534
(1)  496/    6FAD : CD 89 70            	CALL USTAN
1535
(1)  497/    6FB0 : DD 7E 10            	LD A,(IX+0X10)
1536
(1)  498/    6FB3 : 81                  	ADD A,C
1537
(1)  499/    6FB4 : 6F                  	LD L,A
1538
(1)  500/    6FB5 : DD 66 11            	LD H,(IX+0X11)
1539
(1)  501/    6FB8 : DD 7E 00            	LD A,(IX)
1540
(1)  502/    6FBB : 81                  	ADD A,C
1541
(1)  503/    6FBC : 5F                  	LD E,A
1542
(1)  504/    6FBD : DD 56 01            	LD D,(IX+1)
1543
(1)  505/    6FC0 : CD FB 6F            	CALL SHIFT
1544
(1)  506/    6FC3 : 11 10 00            	LD DE,0X10
1545
(1)  507/    6FC6 : DD 19               	ADD IX,DE
1546
(1)  508/    6FC8 : 10 E6               	DJNZ $-24
1547
(1)  509/    6FCA : DD E1               	POP IX
1548
(1)  510/    6FCC : C1                  	POP BC
1549
(1)  511/    6FCD : C9                  	RET
1550
(1)  512/    6FCE :                     
1551
(1)  513/    6FCE : C5                  SCRDN	PUSH BC
1552
(1)  514/    6FCF : DD E5               	PUSH IX
1553
(1)  515/    6FD1 : DD 7E 02            	LD A,(IX+2)
1554
(1)  516/    6FD4 : DD 86 01            	ADD A,(IX+1)
1555
(1)  517/    6FD7 : D6 03               	SUB 3
1556
(1)  518/    6FD9 : 6F                  	LD L,A
1557
(1)  519/    6FDA : CD 89 70            	CALL USTAN
1558
(1)  520/    6FDD : DD 7E 00            	LD A,(IX)
1559
(1)  521/    6FE0 : 81                  	ADD A,C
1560
(1)  522/    6FE1 : 6F                  	LD L,A
1561
(1)  523/    6FE2 : DD 66 01            	LD H,(IX+1)
1562
(1)  524/    6FE5 : DD 7E 10            	LD A,(IX+0X10)
1563
(1)  525/    6FE8 : 81                  	ADD A,C
1564
(1)  526/    6FE9 : 5F                  	LD E,A
1565
(1)  527/    6FEA : DD 56 11            	LD D,(IX+0X11)
1566
(1)  528/    6FED : CD FB 6F            	CALL SHIFT
1567
(1)  529/    6FF0 : 11 F0 FF            	LD DE,0XFFF0
1568
(1)  530/    6FF3 : DD 19               	ADD IX,DE
1569
(1)  531/    6FF5 : 10 E6               	DJNZ $-24
1570
(1)  532/    6FF7 : DD E1               	POP IX
1571
(1)  533/    6FF9 : C1                  	POP BC
1572
(1)  534/    6FFA : C9                  	RET
1573
(1)  535/    6FFB :                     
1574
(1)  536/    6FFB : C5                  SHIFT	PUSH BC
1575
(1)  537/    6FFC :                     	REPT 8
1576
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 26 - 1/17/2011 21:30:41
1577
 
1578
 
1579
(1)  538/    6FFC :                     	PUSH HL
1580
(1)  539/    6FFC :                     	PUSH DE
1581
(1)  540/    6FFC :                     	CALL LDIST
1582
(1)  541/    6FFC :                     	POP DE
1583
(1)  542/    6FFC :                     	POP HL
1584
(1)  543/    6FFC :                     	INC H
1585
(1)  544/    6FFC :                     	INC D
1586
(1)  545/    6FFC :                     	ENDM
1587
(1)  538/    6FFC : E5                  	PUSH HL
1588
(1)  539/    6FFD : D5                  	PUSH DE
1589
(1)  540/    6FFE : CD 46 70            	CALL LDIST
1590
(1)  541/    7001 : D1                  	POP DE
1591
(1)  542/    7002 : E1                  	POP HL
1592
(1)  543/    7003 : 24                  	INC H
1593
(1)  544/    7004 : 14                  	INC D
1594
(1)  538/    7005 : E5                  	PUSH HL
1595
(1)  539/    7006 : D5                  	PUSH DE
1596
(1)  540/    7007 : CD 46 70            	CALL LDIST
1597
(1)  541/    700A : D1                  	POP DE
1598
(1)  542/    700B : E1                  	POP HL
1599
(1)  543/    700C : 24                  	INC H
1600
(1)  544/    700D : 14                  	INC D
1601
(1)  538/    700E : E5                  	PUSH HL
1602
(1)  539/    700F : D5                  	PUSH DE
1603
(1)  540/    7010 : CD 46 70            	CALL LDIST
1604
(1)  541/    7013 : D1                  	POP DE
1605
(1)  542/    7014 : E1                  	POP HL
1606
(1)  543/    7015 : 24                  	INC H
1607
(1)  544/    7016 : 14                  	INC D
1608
(1)  538/    7017 : E5                  	PUSH HL
1609
(1)  539/    7018 : D5                  	PUSH DE
1610
(1)  540/    7019 : CD 46 70            	CALL LDIST
1611
(1)  541/    701C : D1                  	POP DE
1612
(1)  542/    701D : E1                  	POP HL
1613
(1)  543/    701E : 24                  	INC H
1614
(1)  544/    701F : 14                  	INC D
1615
(1)  538/    7020 : E5                  	PUSH HL
1616
(1)  539/    7021 : D5                  	PUSH DE
1617
(1)  540/    7022 : CD 46 70            	CALL LDIST
1618
(1)  541/    7025 : D1                  	POP DE
1619
(1)  542/    7026 : E1                  	POP HL
1620
(1)  543/    7027 : 24                  	INC H
1621
(1)  544/    7028 : 14                  	INC D
1622
(1)  538/    7029 : E5                  	PUSH HL
1623
(1)  539/    702A : D5                  	PUSH DE
1624
(1)  540/    702B : CD 46 70            	CALL LDIST
1625
(1)  541/    702E : D1                  	POP DE
1626
(1)  542/    702F : E1                  	POP HL
1627
(1)  543/    7030 : 24                  	INC H
1628
(1)  544/    7031 : 14                  	INC D
1629
(1)  538/    7032 : E5                  	PUSH HL
1630
(1)  539/    7033 : D5                  	PUSH DE
1631
(1)  540/    7034 : CD 46 70            	CALL LDIST
1632
(1)  541/    7037 : D1                  	POP DE
1633
(1)  542/    7038 : E1                  	POP HL
1634
(1)  543/    7039 : 24                  	INC H
1635
(1)  544/    703A : 14                  	INC D
1636
(1)  538/    703B : E5                  	PUSH HL
1637
(1)  539/    703C : D5                  	PUSH DE
1638
(1)  540/    703D : CD 46 70            	CALL LDIST
1639
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 27 - 1/17/2011 21:30:41
1640
 
1641
 
1642
(1)  541/    7040 : D1                  	POP DE
1643
(1)  542/    7041 : E1                  	POP HL
1644
(1)  543/    7042 : 24                  	INC H
1645
(1)  544/    7043 : 14                  	INC D
1646
(1)  546/    7044 : C1                  	POP BC
1647
(1)  547/    7045 : C9                  	RET
1648
(1)  548/    7046 :                     
1649
(1)  549/    7046 : 18 FE               LDIST	JR $
1650
(1)  550/    7048 :                     	REPT 32
1651
(1)  551/    7048 :                     	LDI
1652
(1)  552/    7048 :                     	ENDM
1653
(1)  551/    7048 : ED A0               	LDI
1654
(1)  551/    704A : ED A0               	LDI
1655
(1)  551/    704C : ED A0               	LDI
1656
(1)  551/    704E : ED A0               	LDI
1657
(1)  551/    7050 : ED A0               	LDI
1658
(1)  551/    7052 : ED A0               	LDI
1659
(1)  551/    7054 : ED A0               	LDI
1660
(1)  551/    7056 : ED A0               	LDI
1661
(1)  551/    7058 : ED A0               	LDI
1662
(1)  551/    705A : ED A0               	LDI
1663
(1)  551/    705C : ED A0               	LDI
1664
(1)  551/    705E : ED A0               	LDI
1665
(1)  551/    7060 : ED A0               	LDI
1666
(1)  551/    7062 : ED A0               	LDI
1667
(1)  551/    7064 : ED A0               	LDI
1668
(1)  551/    7066 : ED A0               	LDI
1669
(1)  551/    7068 : ED A0               	LDI
1670
(1)  551/    706A : ED A0               	LDI
1671
(1)  551/    706C : ED A0               	LDI
1672
(1)  551/    706E : ED A0               	LDI
1673
(1)  551/    7070 : ED A0               	LDI
1674
(1)  551/    7072 : ED A0               	LDI
1675
(1)  551/    7074 : ED A0               	LDI
1676
(1)  551/    7076 : ED A0               	LDI
1677
(1)  551/    7078 : ED A0               	LDI
1678
(1)  551/    707A : ED A0               	LDI
1679
(1)  551/    707C : ED A0               	LDI
1680
(1)  551/    707E : ED A0               	LDI
1681
(1)  551/    7080 : ED A0               	LDI
1682
(1)  551/    7082 : ED A0               	LDI
1683
(1)  551/    7084 : ED A0               	LDI
1684
(1)  551/    7086 : ED A0               	LDI
1685
(1)  553/    7088 : C9                  	RET
1686
(1)  554/    7089 :                     
1687
(1)  555/    7089 : 3E 20               USTAN	LD A,0X20
1688
(1)  556/    708B : DD 96 03            	SUB (IX+3)
1689
(1)  557/    708E : 87                  	ADD A,A
1690
(1)  558/    708F : 32 47 70            	LD (LDIST+1),A
1691
(1)  559/    7092 : DD 4E 00            	LD C,(IX)		;СМЕЩЕНИЕ ПО X
1692
(1)  560/    7095 : DD 46 02            	LD B,(IX+2)		;ВЫСОТА В ЗНАКОМЕСТАХ
1693
(1)  561/    7098 : 05                  	DEC B
1694
(1)  562/    7099 : 05                  	DEC B
1695
(1)  563/    709A : 05                  	DEC B
1696
(1)  564/    709B : 26 00               	LD H,0
1697
(1)  565/    709D : 29                  	ADD HL,HL
1698
(1)  566/    709E : 29                  	ADD HL,HL
1699
(1)  567/    709F : 29                  	ADD HL,HL
1700
(1)  568/    70A0 : DD 21 00 B8         	LD IX,BUFTSC
1701
(1)  569/    70A4 : EB                  	EX DE,HL
1702
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 28 - 1/17/2011 21:30:41
1703
 
1704
 
1705
(1)  570/    70A5 : DD 19               	ADD IX,DE
1706
(1)  571/    70A7 : DD 19               	ADD IX,DE
1707
(1)  572/    70A9 : C9                  	RET
1708
(1)  573/    70AA :                     
1709
(1)  574/    70AA : 32 C8 70            ADRDIS	LD (ASD+1),A
1710
(1)  575/    70AD : 7D                  	LD A,L
1711
(1)  576/    70AE : E6 18               	AND 0X18
1712
(1)  577/    70B0 : F6 40               	OR 0X40
1713
(1)  578/    70B2 : 08                  	EX AF,AF'
1714
(1)  579/    70B3 : 7D                  	LD A,L
1715
(1)  580/    70B4 : E6 07               	AND 7
1716
(1)  581/    70B6 : 0F                  	RRCA
1717
(1)  582/    70B7 : 0F                  	RRCA
1718
(1)  583/    70B8 : 0F                  	RRCA
1719
(1)  584/    70B9 : 84                  	ADD A,H
1720
(1)  585/    70BA : 6F                  	LD L,A
1721
(1)  586/    70BB : 08                  	EX AF,AF'
1722
(1)  587/    70BC : 67                  	LD H,A
1723
(1)  588/    70BD : 5D                  	LD E,L
1724
(1)  589/    70BE : 7C                  ADRATR	LD A,H
1725
(1)  590/    70BF : 0F                  	RRCA
1726
(1)  591/    70C0 : 0F                  	RRCA
1727
(1)  592/    70C1 : 0F                  	RRCA
1728
(1)  593/    70C2 : E6 03               	AND 3
1729
(1)  594/    70C4 : F6 58               	OR 0X58
1730
(1)  595/    70C6 : 57                  	LD D,A
1731
(1)  596/    70C7 : 3E 00               ASD	LD A,0
1732
(1)  597/    70C9 : C9                  	RET
1733
(1)  598/    70CA :                     
1734
(1)  599/    70CA : 24                  INCHL	INC H
1735
(1)  600/    70CB : 7C                  	LD A,H
1736
(1)  601/    70CC : E6 07               	AND 7
1737
(1)  602/    70CE : C0                  	RET NZ
1738
(1)  603/    70CF : 7D                  	LD A,L
1739
(1)  604/    70D0 : C6 20               	ADD A,0X20
1740
(1)  605/    70D2 : 6F                  	LD L,A
1741
(1)  606/    70D3 : D8                  	RET C
1742
(1)  607/    70D4 : 7C                  UMEHL1	LD A,H
1743
(1)  608/    70D5 : D6 08               	SUB 8
1744
(1)  609/    70D7 : 67                  	LD H,A
1745
(1)  610/    70D8 : C9                  	RET
1746
(1)  611/    70D9 :                     
1747
(1)  612/    70D9 : 25                  DECHL	DEC H
1748
(1)  613/    70DA : 7C                  	LD A,H
1749
(1)  614/    70DB : E6 07               	AND 7
1750
(1)  615/    70DD : FE 07               	CP 7
1751
(1)  616/    70DF : C0                  	RET NZ
1752
(1)  617/    70E0 : 7D                  	LD A,L
1753
(1)  618/    70E1 : D6 20               	SUB 0X20
1754
(1)  619/    70E3 : 6F                  	LD L,A
1755
(1)  620/    70E4 : D8                  	RET C
1756
(1)  621/    70E5 : 7C                  UVEHL1	LD A,H
1757
(1)  622/    70E6 : C6 08               	ADD A,8
1758
(1)  623/    70E8 : 67                  	LD H,A
1759
(1)  624/    70E9 : C9                  	RET
1760
(1)  625/    70EA :                     
1761
(1)  626/    70EA : 3E 20               UVEHL	LD A,0X20
1762
(1)  627/    70EC : 85                  	ADD A,L
1763
(1)  628/    70ED : 6F                  	LD L,A
1764
(1)  629/    70EE : D0                  	RET NC
1765
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 29 - 1/17/2011 21:30:41
1766
 
1767
 
1768
(1)  630/    70EF : 18 F4               	JR UVEHL1
1769
(1)  631/    70F1 :                     
1770
(1)  632/    70F1 : 7D                  UMEHL	LD A,L
1771
(1)  633/    70F2 : D6 20               	SUB 0X20
1772
(1)  634/    70F4 : 6F                  	LD L,A
1773
(1)  635/    70F5 : D0                  	RET NC
1774
(1)  636/    70F6 : 18 DC               	JR UMEHL1
1775
(1)  637/    70F8 :                     
1776
(1)  638/    70F8 : 7E                  NEXT	LD A,(HL)
1777
(1)  639/    70F9 : 23                  	INC HL
1778
(1)  640/    70FA : A7                  	AND A
1779
(1)  641/    70FB : C8                  	RET Z
1780
(1)  642/    70FC : CD 01 71            	CALL PRINT
1781
(1)  643/    70FF : 18 F7               	JR NEXT
1782
(1)  644/    7101 :                     
1783
(1)  645/    7101 : FE 20               PRINT	CP 0X20
1784
(1)  646/    7103 : 30 60               	JR NC,PRINTA
1785
(1)  647/    7105 : FE 03               	CP 3
1786
(1)  648/    7107 : 20 1C               	JR NZ,COD9
1787
(1)  649/    7109 : 06 00               CENTR	LD B,0		;ЦЕНТРОВКА СТРОКИ В ОКНЕ
1788
(1)  650/    710B : E5                  	PUSH HL
1789
(1)  651/    710C : 7E                  CEN2	LD A,(HL)
1790
(1)  652/    710D : FE 20               	CP 0X20
1791
(1)  653/    710F : 38 07               	JR C,EX1
1792
(1)  654/    7111 : 3E 06               	LD A,6
1793
(1)  655/    7113 : 80                  	ADD A,B
1794
(1)  656/    7114 : 47                  	LD B,A
1795
(1)  657/    7115 : 23                  	INC HL
1796
(1)  658/    7116 : 18 F4               	JR CEN2
1797
(1)  659/    7118 :                     
1798
(1)  660/    7118 : 3E 00               EX1	LD A,0
1799
(1)  661/    711A : 90                  	SUB B
1800
(1)  662/    711B : CB 3F               	SRL A
1801
(1)  663/    711D : 3D                  	DEC A
1802
(1)  664/    711E : C6 00               EX2	ADD A,0
1803
(1)  665/    7120 : 32 74 71            	LD (ADRSTR+2),A
1804
(1)  666/    7123 : E1                  	POP HL
1805
(1)  667/    7124 : C9                  	RET
1806
(1)  668/    7125 :                     
1807
(1)  669/    7125 : FE 09               COD9	CP 9
1808
(1)  670/    7127 : 20 0F               	JR NZ,COD13
1809
(1)  671/    7129 : 7E                  	LD A,(HL)		;ТАБУЛЯЦИЯ НА N ПОЗИЦИЙ
1810
(1)  672/    712A : 23                  	INC HL
1811
(1)  673/    712B : 47                  	LD B,A
1812
(1)  674/    712C : 87                  	ADD A,A
1813
(1)  675/    712D : 80                  	ADD A,B
1814
(1)  676/    712E : 87                  	ADD A,A
1815
(1)  677/    712F : 47                  	LD B,A
1816
(1)  678/    7130 : 3A 74 71            	LD A,(ADRSTR+2)
1817
(1)  679/    7133 : 80                  	ADD A,B
1818
(1)  680/    7134 : 32 74 71            	LD (ADRSTR+2),A
1819
(1)  681/    7137 : C9                  	RET
1820
(1)  682/    7138 :                     
1821
(1)  683/    7138 : FE 0D               COD13	CP 0X0D
1822
(1)  684/    713A : 20 0E               	JR NZ,COD14
1823
(1)  685/    713C : 3E 00               XNEW	LD A,0			;ПЕРЕВОД СТРОКИ 
1824
(1)  686/    713E : 32 74 71            	LD (ADRSTR+2),A
1825
(1)  687/    7141 : 3A 73 71            	LD A,(ADRSTR+1)
1826
(1)  688/    7144 : C6 08               	ADD A,8
1827
(1)  689/    7146 : 32 73 71            	LD (ADRSTR+1),A
1828
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 30 - 1/17/2011 21:30:41
1829
 
1830
 
1831
(1)  690/    7149 : C9                  	RET
1832
(1)  691/    714A :                     
1833
(1)  692/    714A : FE 14               COD14	CP 0X14
1834
(1)  693/    714C : 20 0B               	JR NZ,COD16
1835
(1)  694/    714E : 7E                  	LD A,(HL)		;ВКЛ/ВЫКЛ ИНВЕРСИИ ПЕЧАТИ
1836
(1)  695/    714F : 23                  	INC HL
1837
(1)  696/    7150 : A7                  	AND A
1838
(1)  697/    7151 : 28 02               	JR Z,$+4
1839
(1)  698/    7153 : 3E FC               	LD A,0XFC
1840
(1)  699/    7155 : 32 AE 71            	LD (NO_INW+1),A
1841
(1)  700/    7158 : C9                  	RET
1842
(1)  701/    7159 :                     
1843
(1)  702/    7159 : FE 16               COD16	CP 0X16
1844
(1)  703/    715B : C0                  	RET NZ
1845
(1)  704/    715C : 5E                  	LD E,(HL)		;ПЕЧАТЬ В УКАЗАННОЙ ПОЗИЦИИ
1846
(1)  705/    715D : 23                  	INC HL
1847
(1)  706/    715E : 56                  	LD D,(HL)
1848
(1)  707/    715F : 23                  	INC HL
1849
(1)  708/    7160 : ED 53 73 71         	LD (ADRSTR+1),DE
1850
(1)  709/    7164 : C9                  	RET
1851
(1)  710/    7165 :                     
1852
(1)  711/    7165 :                     ;ПЕЧАТЬ СИМВОЛА В "A"
1853
(1)  712/    7165 : E5                  PRINTA	PUSH HL
1854
(1)  713/    7166 : D5                  	PUSH DE
1855
(1)  714/    7167 : 11 4E 64            	LD DE,CHARS
1856
(1)  715/    716A : 6F                  	LD L,A
1857
(1)  716/    716B : AF                  	XOR A
1858
(1)  717/    716C : 67                  	LD H,A
1859
(1)  718/    716D : 29                  	ADD HL,HL
1860
(1)  719/    716E : 29                  	ADD HL,HL
1861
(1)  720/    716F : 29                  	ADD HL,HL
1862
(1)  721/    7170 : 19                  	ADD HL,DE
1863
(1)  722/    7171 : D9                  	EXX
1864
(1)  723/    7172 : 21 00 00            ADRSTR	LD HL,0			;H=X L=Y
1865
(1)  724/    7175 : 57                  	LD D,A
1866
(1)  725/    7176 : 7C                  	LD A,H
1867
(1)  726/    7177 : E6 F8               	AND 0XF8
1868
(1)  727/    7179 : 47                  	LD B,A
1869
(1)  728/    717A : 7C                  	LD A,H
1870
(1)  729/    717B : E6 07               	AND 7
1871
(1)  730/    717D : 4F                  	LD C,A
1872
(1)  731/    717E : 3E 06               	LD A,6
1873
(1)  732/    7180 : 84                  	ADD A,H
1874
(1)  733/    7181 : 67                  	LD H,A
1875
(1)  734/    7182 : 22 73 71            	LD (ADRSTR+1),HL
1876
(1)  735/    7185 : 5D                  	LD E,L
1877
(1)  736/    7186 : 78                  	LD A,B
1878
(1)  737/    7187 : 21 00 B8            	LD HL,BUFTSC
1879
(1)  738/    718A : 42                  	LD B,D
1880
(1)  739/    718B : 19                  	ADD HL,DE
1881
(1)  740/    718C : 19                  	ADD HL,DE
1882
(1)  741/    718D : 0F                  	RRCA
1883
(1)  742/    718E : 0F                  	RRCA
1884
(1)  743/    718F : 0F                  	RRCA
1885
(1)  744/    7190 : 86                  	ADD A,(HL)
1886
(1)  745/    7191 : 23                  	INC HL
1887
(1)  746/    7192 : 5F                  	LD E,A
1888
(1)  747/    7193 : 56                  	LD D,(HL)
1889
(1)  748/    7194 : 3E 15               	LD A,21
1890
(1)  749/    7196 : 91                  	SUB C
1891
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 31 - 1/17/2011 21:30:41
1892
 
1893
 
1894
(1)  750/    7197 : 91                  	SUB C
1895
(1)  751/    7198 : 91                  	SUB C
1896
(1)  752/    7199 : 32 B2 71            	LD (SKOLKO+1),A
1897
(1)  753/    719C : 21 DD 71            	LD HL,BUFMSK
1898
(1)  754/    719F : 09                  	ADD HL,BC
1899
(1)  755/    71A0 : 09                  	ADD HL,BC
1900
(1)  756/    71A1 : 7E                  	LD A,(HL)
1901
(1)  757/    71A2 : 23                  	INC HL
1902
(1)  758/    71A3 : 66                  	LD H,(HL)
1903
(1)  759/    71A4 : 6F                  	LD L,A
1904
(1)  760/    71A5 : EB                  	EX DE,HL
1905
(1)  761/    71A6 : 3E 08               	LD A,8
1906
(1)  762/    71A8 : 08                  SLEDU	EX AF,AF'
1907
(1)  763/    71A9 : D9                  	EXX
1908
(1)  764/    71AA : 7E                  	LD A,(HL)
1909
(1)  765/    71AB : 23                  	INC HL
1910
(1)  766/    71AC : D9                  	EXX
1911
(1)  767/    71AD : EE 00               NO_INW	XOR 0
1912
(1)  768/    71AF : 4F                  	LD C,A
1913
(1)  769/    71B0 : AF                  	XOR A
1914
(1)  770/    71B1 : 18 13               SKOLKO	JR $+21
1915
(1)  771/    71B3 :                     	REPT 7
1916
(1)  772/    71B3 :                     	SRL C	;8
1917
(1)  773/    71B3 :                     	RRA	;4
1918
(1)  774/    71B3 :                     	ENDM
1919
(1)  772/    71B3 : CB 39               	SRL C	;8
1920
(1)  773/    71B5 : 1F                  	RRA	;4
1921
(1)  772/    71B6 : CB 39               	SRL C	;8
1922
(1)  773/    71B8 : 1F                  	RRA	;4
1923
(1)  772/    71B9 : CB 39               	SRL C	;8
1924
(1)  773/    71BB : 1F                  	RRA	;4
1925
(1)  772/    71BC : CB 39               	SRL C	;8
1926
(1)  773/    71BE : 1F                  	RRA	;4
1927
(1)  772/    71BF : CB 39               	SRL C	;8
1928
(1)  773/    71C1 : 1F                  	RRA	;4
1929
(1)  772/    71C2 : CB 39               	SRL C	;8
1930
(1)  773/    71C4 : 1F                  	RRA	;4
1931
(1)  772/    71C5 : CB 39               	SRL C	;8
1932
(1)  773/    71C7 : 1F                  	RRA	;4
1933
(1)  775/    71C8 : 47                  	LD B,A
1934
(1)  776/    71C9 : 7E                  	LD A,(HL)
1935
(1)  777/    71CA : A3                  	AND E
1936
(1)  778/    71CB : B1                  	OR C
1937
(1)  779/    71CC : 77                  	LD (HL),A
1938
(1)  780/    71CD : 2C                  	INC L
1939
(1)  781/    71CE : 7E                  	LD A,(HL)
1940
(1)  782/    71CF : A2                  	AND D
1941
(1)  783/    71D0 : B0                  	OR B
1942
(1)  784/    71D1 : 77                  	LD (HL),A
1943
(1)  785/    71D2 : 2D                  	DEC L
1944
(1)  786/    71D3 : 24                  	INC H
1945
(1)  787/    71D4 : 08                  	EX AF,AF'
1946
(1)  788/    71D5 : 3D                  	DEC A
1947
(1)  789/    71D6 : C2 A8 71            	JP NZ,SLEDU
1948
(1)  790/    71D9 : D9                  	EXX
1949
(1)  791/    71DA : D1                  	POP DE
1950
(1)  792/    71DB : E1                  	POP HL
1951
(1)  793/    71DC : C9                  	RET
1952
(1)  794/    71DD :                     
1953
(1)  795/    71DD : 03 FF               BUFMSK	DB 0X03,0XFF
1954
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 32 - 1/17/2011 21:30:41
1955
 
1956
 
1957
(1)  796/    71DF : 81 FF               	DB 0X81,0XFF
1958
(1)  797/    71E1 : C0 FF               	DB 0XC0,0XFF
1959
(1)  798/    71E3 : E0 7F               	DB 0XE0,0X7F
1960
(1)  799/    71E5 : F0 3F               	DB 0XF0,0X3F
1961
(1)  800/    71E7 : F8 1F               	DB 0XF8,0X1F
1962
(1)  801/    71E9 : FC 0F               	DB 0XFC,0X0F
1963
(1)  802/    71EB : FE 07               	DB 0XFE,0X07
1964
(1)  803/    71ED :                     
1965
(1)  804/    71ED :                     ;KOI2ALT DB 0XCF,0XD0,0XD1,0XB5,0XB6,0XB7,0XB8
1966
(1)  805/    71ED :                     ;DB 0XD2,0XD3,0XD4,0XD5,0XBD,0XBE,0XC6
1967
(1)  806/    71ED :                     ;DB 0XC7,0XD6,0XC9,0XBB,0XBC,0XC8,0XCD
1968
(1)  807/    71ED :                     ;DB 0XBA,0XCB,0XB9,0XCA,0XCC,0XCE,0XB0
1969
(1)  808/    71ED :                     ;DB 0XB1,0XB2,0XD7,0XD8,0XDA,0XBF,0XD9
1970
(1)  809/    71ED :                     ;DB 0XDA,0XC4,0XB3,0XC2,0XB4,0XC1,0XC3
1971
(1)  810/    71ED :                     ;DB 0XC5,0XDB,0XDC,0XDD,0XDE,0XDF
1972
(1)  811/    71ED :                     ;DB 0X80,0X81,0X82,0X83,0X84,0X85,0X86
1973
(1)  812/    71ED :                     ;DB 0X87,0X88,0X89,0X8A,0X8B,0X8C,0X8D
1974
(1)  813/    71ED :                     ;DB 0X8E,0X8F,0X90,0X91,0X92,0X93,0X94
1975
(1)  814/    71ED :                     ;DB 0X95,0X96,0X97,0X98,0X99,0X9A,0X9B
1976
(1)  815/    71ED :                     ;DB 0X9C,0X9D,0X9E,0X9F,0XA0,0XA1,0XA2
1977
(1)  816/    71ED :                     ;DB 0XA3,0XA4,0XA5,0XA6,0XA7,0XA8,0XA9
1978
(1)  817/    71ED :                     ;DB 0XAA,0XAB,0XAC,0XAD,0XAE,0XAF,0XE0
1979
(1)  818/    71ED :                     ;DB 0XE1,0XE2,0XE3,0XE4,0XE5,0XE6,0XE7
1980
(1)  819/    71ED :                     ;DB 0XE8,0XE9,0XEA,0XEB,0XEC,0XED,0XEE
1981
(1)  820/    71ED :                     ;DB 0XEF,0XF0,0XF1,0XF2,0XF3,0XF4,0XF5
1982
(1)  821/    71ED :                     ;DB 0XF6,0XF7,0XF8,0XF9,0XFA,0XFB,0XFC
1983
(1)  822/    71ED :                     ;DB 0XFD,0XFE,0XFF
1984
(1)  823/    71ED :                     ;ALT2KOI DB 0XB0,0XB1,0XB2,0XB3,0XB4,0XB5,0XB6
1985
(1)  824/    71ED :                     ;DB 0XB7,0XB8,0XB9,0XBA,0XBB,0XBC,0XBD
1986
(1)  825/    71ED :                     ;DB 0XBE,0XBF,0XC0,0XC1,0XC2,0XC3,0XC4
1987
(1)  826/    71ED :                     ;DB 0XC5,0XC6,0XC7,0XC8,0XC9,0XCA,0XCB
1988
(1)  827/    71ED :                     ;DB 0XCC,0XCD,0XCE,0XCF,0XD0,0XD1,0XD2
1989
(1)  828/    71ED :                     ;DB 0XD3,0XD4,0XD5,0XD6,0XD7,0XD8,0XD9
1990
(1)  829/    71ED :                     ;DB 0XDA,0XDB,0XDC,0XDD,0XDE,0XDF,0X9B
1991
(1)  830/    71ED :                     ;DB 0X9C,0X9D,0XA5,0XA7,0X83,0X84,0X85
1992
(1)  831/    71ED :                     ;DB 0X86,0X97,0X95,0X91,0X92,0X8B,0X8C
1993
(1)  832/    71ED :                     ;DB 0XA1,0XA3,0XA8,0XA6,0XA9,0XA4,0XAA
1994
(1)  833/    71ED :                     ;DB 0X8D,0X8E,0X93,0X90,0X98,0X96,0X99
1995
(1)  834/    71ED :                     ;DB 0X94,0X9A,0X80,0X81,0X82,0X87,0X88
1996
(1)  835/    71ED :                     ;DB 0X89,0X8A,0X8F,0X9E,0X9F,0XA2,0XA0
1997
(1)  836/    71ED :                     ;DB 0XAB,0XAC,0XAD,0XAE,0XAF
1998
(1)  837/    71ED :                     ;DB 0XE0,0XE1,0XE2,0XE3,0XE4,0XE5,0XE6
1999
(1)  838/    71ED :                     ;DB 0XE7,0XE8,0XE9,0XEA,0XEB,0XEC,0XED
2000
(1)  839/    71ED :                     ;DB 0XEE,0XEF,0XF0,0XF1,0XF2,0XF3,0XF4
2001
(1)  840/    71ED :                     ;DB 0XF5,0XF6,0XF7,0XF8,0XF9,0XFA,0XFB
2002
(1)  841/    71ED :                     ;DB 0XFC,0XFD,0XFE,0XFF
2003
(1)  842/    71ED :                     
2004
(1)  843/    71ED : 21 90 B9            HEX2TXT	LD HL,TXT_HEX
2005
(1)  844/    71F0 : E5                  	PUSH HL
2006
(1)  845/    71F1 : 78                  	LD A,B
2007
(1)  846/    71F2 : CD 05 72            	CALL HEX_CON
2008
(1)  847/    71F5 : 79                  	LD A,C
2009
(1)  848/    71F6 : CD 05 72            	CALL HEX_CON
2010
(1)  849/    71F9 : 7A                  	LD A,D
2011
(1)  850/    71FA : CD 05 72            	CALL HEX_CON
2012
(1)  851/    71FD : 7B                  	LD A,E
2013
(1)  852/    71FE : CD 05 72            	CALL HEX_CON
2014
(1)  853/    7201 : 36 00               	LD (HL),0
2015
(1)  854/    7203 : E1                  	POP HL
2016
(1)  855/    7204 : C9                  	RET
2017
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 33 - 1/17/2011 21:30:41
2018
 
2019
 
2020
(1)  856/    7205 :                     
2021
(1)  857/    7205 : 47                  HEX_CON	LD B,A
2022
(1)  858/    7206 : 0F                  	RRCA
2023
(1)  859/    7207 : 0F                  	RRCA
2024
(1)  860/    7208 : 0F                  	RRCA
2025
(1)  861/    7209 : 0F                  	RRCA
2026
(1)  862/    720A : CD 0E 72            	CALL ML_BYT
2027
(1)  863/    720D : 78                  	LD A,B
2028
(1)  864/    720E : E6 0F               ML_BYT	AND 0X0F
2029
(1)  865/    7210 : C6 30               	ADD A,0X30
2030
(1)  866/    7212 : FE 3A               	CP 0X3A
2031
(1)  867/    7214 : 38 02               	JR C,$+4
2032
(1)  868/    7216 : C6 07               	ADD A,7
2033
(1)  869/    7218 : 77                  	LD (HL),A
2034
(1)  870/    7219 : 23                  	INC HL
2035
(1)  871/    721A : C9                  	RET
2036
(1)  872/    721B :                     
2037
(1)  873/    721B : D9                  HEX4DEC	EXX
2038
(1)  874/    721C : 21 80 B9            	LD HL,TXT_DEC
2039
(1)  875/    721F : E5                  	PUSH HL
2040
(1)  876/    7220 : E5                  	PUSH HL
2041
(1)  877/    7221 : 06 09               	LD B,9
2042
(1)  878/    7223 : D9                  	EXX
2043
(1)  879/    7224 : 21 7E 72            	LD HL,CHISLA4
2044
(1)  880/    7227 :                     	REPT 9
2045
(1)  881/    7227 :                     	CALL BCDEMHL
2046
(1)  882/    7227 :                     	ENDM
2047
(1)  881/    7227 : CD A2 72            	CALL BCDEMHL
2048
(1)  881/    722A : CD A2 72            	CALL BCDEMHL
2049
(1)  881/    722D : CD A2 72            	CALL BCDEMHL
2050
(1)  881/    7230 : CD A2 72            	CALL BCDEMHL
2051
(1)  881/    7233 : CD A2 72            	CALL BCDEMHL
2052
(1)  881/    7236 : CD A2 72            	CALL BCDEMHL
2053
(1)  881/    7239 : CD A2 72            	CALL BCDEMHL
2054
(1)  881/    723C : CD A2 72            	CALL BCDEMHL
2055
(1)  881/    723F : CD A2 72            	CALL BCDEMHL
2056
(1)  883/    7242 : 3E 30               H2D1	LD A,0X30
2057
(1)  884/    7244 : 83                  	ADD A,E
2058
(1)  885/    7245 : D9                  	EXX
2059
(1)  886/    7246 : 77                  	LD (HL),A
2060
(1)  887/    7247 : 23                  	INC HL
2061
(1)  888/    7248 : 36 00               	LD (HL),0
2062
(1)  889/    724A : 78                  	LD A,B
2063
(1)  890/    724B : D9                  	EXX
2064
(1)  891/    724C : E1                  	POP HL
2065
(1)  892/    724D : 47                  	LD B,A
2066
(1)  893/    724E : 7E                  	LD A,(HL)
2067
(1)  894/    724F : FE 30               	CP 0X30
2068
(1)  895/    7251 : 20 05               	JR NZ,$+7
2069
(1)  896/    7253 : 36 20               	LD (HL),0X20
2070
(1)  897/    7255 : 23                  	INC HL
2071
(1)  898/    7256 : 10 F6               	DJNZ $-8
2072
(1)  899/    7258 : E1                  	POP HL
2073
(1)  900/    7259 : C9                  	RET
2074
(1)  901/    725A :                     
2075
(1)  902/    725A : D9                  HEX2DEC	EXX
2076
(1)  903/    725B : 21 80 B9            	LD HL,TXT_DEC
2077
(1)  904/    725E : E5                  	PUSH HL
2078
(1)  905/    725F : E5                  	PUSH HL
2079
(1)  906/    7260 : 06 04               	LD B,4
2080
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 34 - 1/17/2011 21:30:41
2081
 
2082
 
2083
(1)  907/    7262 : D9                  	EXX
2084
(1)  908/    7263 : 21 92 72            	LD HL,CHISLA2
2085
(1)  909/    7266 : 01 00 00            	LD BC,0
2086
(1)  910/    7269 : 18 CB               	JR H2D1-(4*3)
2087
(1)  911/    726B :                     
2088
(1)  912/    726B : D9                  HEX1DEC	EXX
2089
(1)  913/    726C : 21 80 B9            	LD HL,TXT_DEC
2090
(1)  914/    726F : E5                  	PUSH HL
2091
(1)  915/    7270 : E5                  	PUSH HL
2092
(1)  916/    7271 : 06 02               	LD B,2
2093
(1)  917/    7273 : D9                  	EXX
2094
(1)  918/    7274 : 21 9A 72            	LD HL,CHISLA1
2095
(1)  919/    7277 : 01 00 00            	LD BC,0
2096
(1)  920/    727A : 16 00               	LD D,0
2097
(1)  921/    727C : 18 BE               	JR H2D1-(2*3)
2098
(1)  922/    727E :                     
2099
(1)  923/    727E : 00 CA 9A 3B         CHISLA4	DB 0X00,0XCA,0X9A,0X3B;1000000000
2100
(1)  924/    7282 : 00 E1 F5 05         	DB 0X00,0XE1,0XF5,0X05;100000000
2101
(1)  925/    7286 : 80 96 98 00         	DB 0X80,0X96,0X98,0X00;10000000
2102
(1)  926/    728A : 40 42 0F 00         	DB 0X40,0X42,0X0F,0X00;1000000
2103
(1)  927/    728E : A0 86 01 00         	DB 0XA0,0X86,0X01,0X00;100000
2104
(1)  928/    7292 : 10 27 00 00         CHISLA2	DB 0X10,0X27,0X00,0X00;10000
2105
(1)  929/    7296 : E8 03 00 00         	DB 0XE8,0X03,0X00,0X00;1000
2106
(1)  930/    729A : 64 00 00 00         CHISLA1	DB 0X64,0X00,0X00,0X00;100
2107
(1)  931/    729E : 0A 00 00 00         	DB 0X0A,0X00,0X00,0X00;10
2108
(1)  932/    72A2 :                     
2109
(1)  933/    72A2 :                     ;BCDE-(ADR)=BCDE
2110
(1)  934/    72A2 : AF                  BCDEMHL	XOR A
2111
(1)  935/    72A3 : 08                  	EX AF,AF'
2112
(1)  936/    72A4 : 7B                  	LD A,E
2113
(1)  937/    72A5 : 96                  	SUB (HL)
2114
(1)  938/    72A6 : 23                  	INC HL
2115
(1)  939/    72A7 : 5F                  	LD E,A
2116
(1)  940/    72A8 : 7A                  	LD A,D
2117
(1)  941/    72A9 : 9E                  	SBC A,(HL)
2118
(1)  942/    72AA : 23                  	INC HL
2119
(1)  943/    72AB : 57                  	LD D,A
2120
(1)  944/    72AC : 79                  	LD A,C
2121
(1)  945/    72AD : 9E                  	SBC A,(HL)
2122
(1)  946/    72AE : 23                  	INC HL
2123
(1)  947/    72AF : 4F                  	LD C,A
2124
(1)  948/    72B0 : 78                  	LD A,B
2125
(1)  949/    72B1 : 9E                  	SBC A,(HL)
2126
(1)  950/    72B2 : 47                  	LD B,A
2127
(1)  951/    72B3 : 2B                  	DEC HL
2128
(1)  952/    72B4 : 2B                  	DEC HL
2129
(1)  953/    72B5 : 2B                  	DEC HL
2130
(1)  954/    72B6 : 08                  	EX AF,AF'
2131
(1)  955/    72B7 : 3C                  	INC A
2132
(1)  956/    72B8 : 08                  	EX AF,AF'
2133
(1)  957/    72B9 : 78                  	LD A,B
2134
(1)  958/    72BA : FE C4               	CP 0XC4
2135
(1)  959/    72BC : 38 E6               	JR C,BCDEMHL+2
2136
(1)  960/    72BE : 7E                  	LD A,(HL)
2137
(1)  961/    72BF : 83                  	ADD A,E
2138
(1)  962/    72C0 : 5F                  	LD E,A
2139
(1)  963/    72C1 : 23                  	INC HL
2140
(1)  964/    72C2 : 7E                  	LD A,(HL)
2141
(1)  965/    72C3 : 8A                  	ADC A,D
2142
(1)  966/    72C4 : 57                  	LD D,A
2143
 AS V1.42 Beta [Bld 78] - source file flasher.a80(window.a80) - page 35 - 1/17/2011 21:30:41
2144
 
2145
 
2146
(1)  967/    72C5 : 23                  	INC HL
2147
(1)  968/    72C6 : 7E                  	LD A,(HL)
2148
(1)  969/    72C7 : 89                  	ADC A,C
2149
(1)  970/    72C8 : 4F                  	LD C,A
2150
(1)  971/    72C9 : 23                  	INC HL
2151
(1)  972/    72CA : 7E                  	LD A,(HL)
2152
(1)  973/    72CB : 88                  	ADC A,B
2153
(1)  974/    72CC : 47                  	LD B,A
2154
(1)  975/    72CD : 2B                  	DEC HL
2155
(1)  976/    72CE : 2B                  	DEC HL
2156
(1)  977/    72CF : 2B                  	DEC HL
2157
(1)  978/    72D0 : 08                  	EX AF,AF'
2158
(1)  979/    72D1 : 3D                  	DEC A
2159
(1)  980/    72D2 : C6 30               	ADD A,0X30
2160
(1)  981/    72D4 : 23                  	INC HL
2161
(1)  982/    72D5 : 23                  	INC HL
2162
(1)  983/    72D6 : 23                  	INC HL
2163
(1)  984/    72D7 : 23                  	INC HL
2164
(1)  985/    72D8 : D9                  	EXX
2165
(1)  986/    72D9 : 77                  	LD (HL),A
2166
(1)  987/    72DA : 23                  	INC HL
2167
(1)  988/    72DB : D9                  	EXX
2168
(1)  989/    72DC : C9                  	RET
2169
(1)  990/    72DD :                     
2170
(1)  991/    72DD : E1                  CP_KEYS	POP HL
2171
(1)  992/    72DE : 47                  	LD B,A
2172
(1)  993/    72DF : 7E                  CPKEYS1	LD A,(HL)
2173
(1)  994/    72E0 : 23                  	INC HL
2174
(1)  995/    72E1 : A7                  	AND A
2175
(1)  996/    72E2 : 20 01               	JR NZ,$+3
2176
(1)  997/    72E4 : E9                  	JP (HL)
2177
(1)  998/    72E5 :                     	
2178
(1)  999/    72E5 : 5E                  	LD E,(HL)
2179
(1) 1000/    72E6 : 23                  	INC HL
2180
(1) 1001/    72E7 : 56                  	LD D,(HL)
2181
(1) 1002/    72E8 : 23                  	INC HL
2182
(1) 1003/    72E9 : B8                  	CP B
2183
(1) 1004/    72EA : 20 F3               	JR NZ,CPKEYS1
2184
(1) 1005/    72EC : D5                  	PUSH DE
2185
(1) 1006/    72ED : 7E                  CPKEYS2	LD A,(HL)
2186
(1) 1007/    72EE : 23                  	INC HL
2187
(1) 1008/    72EF : A7                  	AND A
2188
(1) 1009/    72F0 : 20 02               	JR NZ,$+4
2189
(1) 1010/    72F2 : E3                  	EX (SP),HL
2190
(1) 1011/    72F3 : E9                  	JP (HL)
2191
(1) 1012/    72F4 :                     
2192
(1) 1013/    72F4 : 23                          INC HL
2193
(1) 1014/    72F5 : 23                          INC HL
2194
(1) 1015/    72F6 : 18 F5                       JR CPKEYS2
2195
(1) 1016/    72F8 :                     
2196
(1) 1017/    72F8 : C5                  PAG_128	PUSH BC
2197
(1) 1018/    72F9 : 01 FD 7F            	LD BC,0X7FFD
2198
(1) 1019/    72FC : F6 10               	OR 0X10
2199
(1) 1020/    72FE : ED 79               	OUT (C),A
2200
(1) 1021/    7300 :                     ;	LD (PAGE128),A
2201
(1) 1022/    7300 : C1                  	POP BC
2202
(1) 1023/    7301 : C9                  	RET
2203
(1) 1024/    7302 :                     
2204
     582/    7302 :                     		include flasher_data.a80
2205
(1)    1/    7302 :                     
2206
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 36 - 1/17/2011 21:30:41
2207
 
2208
 
2209
(1)    2/    7302 :                     ;ФОРМАТ ФЛАГОВОГО БАЙТА ОКНА
2210
(1)    3/    7302 :                     ;X,Y,V,H,C,C
2211
(1)    4/    7302 :                     ;IX+8
2212
(1)    5/    7302 :                     ;7-1-НИЖНИЙ ЗАГОЛОВОК
2213
(1)    6/    7302 :                     ;6-0-С РАМКОЙ,1-БЕЗ РАМКИ
2214
(1)    7/    7302 :                     ;5-1-ВЕРХНИЙ ЗАГОЛОВОК
2215
(1)    8/    7302 :                     ;4-0-ТЕКСТ ОКНА,1-БЕЗ ТЕКСТА
2216
(1)    9/    7302 :                     ;3
2217
(1)   10/    7302 :                     ;2-0-FILE,1-*.TRD
2218
(1)   11/    7302 :                     ;1-0-MENU,1-FILES
2219
(1)   12/    7302 :                     ;0-0-TRDOS,1-MSDOS
2220
(1)   13/    7302 :                     
2221
(1)   14/    7302 :                     ;BIT 4,(IY+55)
2222
(1)   15/    7302 :                     ;BIT 3,(IY+55) 1-НЕТ ДИСКА, 0-ЕСТЬ
2223
(1)   16/    7302 :                     ;BIT 2,(IY+55) 1-НЕ НАЙДЕНО, 0-FAT ЕСТЬ
2224
(1)   17/    7302 :                     
2225
(1)   18/    7302 :                     ;ОПИСАТЕЛЬ ОКНА (АДРЕС В IX)
2226
(1)   19/    7302 :                     ;+00 X
2227
(1)   20/    7302 :                     ;+01 Y
2228
(1)   21/    7302 :                     ;+02 V
2229
(1)   22/    7302 :                     ;+03 H
2230
(1)   23/    7302 :                     ;+04 C
2231
(1)   24/    7302 :                     ;+05 C
2232
(1)   25/    7302 :                     ;+06 | АДРЕСА
2233
(1)   26/    7302 :                     ;+07 | ПОДПРОГРАММ
2234
(1)   27/    7302 :                     ;+08 F
2235
(1)   28/    7302 :                     ;+09 X
2236
(1)   29/    7302 :                     ;+0A Y
2237
(1)   30/    7302 :                     ;+0B V
2238
(1)   31/    7302 :                     ;+0C H
2239
(1)   32/    7302 :                     ;+0D | АДРЕС
2240
(1)   33/    7302 :                     ;+0E | ТЕКСТА
2241
(1)   34/    7302 :                     ;+0F : НОМЕР ПУНКТА В ОКНЕ
2242
(1)   35/    7302 :                     ;+10 : КОЛИЧЕСТВО
2243
(1)   36/    7302 :                     ;+11 : ПУНКТОВ МЕНЮ
2244
(1)   37/    7302 :                     ;+12 "C" | ТЕКУЩИЙ
2245
(1)   38/    7302 :                     ;+13 "B" | ПУНКТ МЕНЮ
2246
(1)   39/    7302 :                     
2247
(1)   40/    7302 : 03 0A 0A 1A 0F 1F   WIN_INDICAT	DB 0X03,0X0A,0X0A,0X1A,0X0F,0X1F
2248
(1)   41/    7308 : 00 00               		DW 0
2249
(1)   42/    730A : 10 00 00 00 00      		DB %00010000,0,0,0,0
2250
(1)   43/    730F : 00 00               		DW 0
2251
(1)   44/    7311 : 00                  		DB 0
2252
(1)   45/    7312 : 00 00 00 00         		DW 0,0
2253
(1)   46/    7316 :                     		;   12345678901234567890123456789012
2254
(1)   47/    7316 : 87 A0 A3 E0 E3 A7   TLOADPAGE1	DB "Загрузка обновления             ",0
2255
                    AA A0 20 AE A1 AD 
2256
                    AE A2 AB A5 AD A8 
2257
                    EF 20 20 20 20 20 
2258
                    20 20 20 20 20 20 
2259
                    20 20 00 
2260
(1)   48/    7337 : 8F E0 AE A2 A5 E0   TLOADPAGE2	DB "Проверка CRC16 страницы         ",0
2261
                    AA A0 20 43 52 43 
2262
                    31 36 20 E1 E2 E0 
2263
                    A0 AD A8 E6 EB 20 
2264
                    20 20 20 20 20 20 
2265
                    20 20 00 
2266
(1)   49/    7358 : =734FH              NUMTLDP2	EQU $-9
2267
(1)   50/    7358 : 43 52 43 31 36 20   TLOADPAGE3	DB "CRC16 страницы ОК               ",0
2268
                    E1 E2 E0 A0 AD A8 
2269
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 37 - 1/17/2011 21:30:41
2270
 
2271
 
2272
                    E6 EB 20 8E 8A 20 
2273
                    20 20 20 20 20 20 
2274
                    20 20 20 20 20 20 
2275
                    20 20 00 
2276
(1)   51/    7379 : 20 20 4F 4B 00      TLOADPAGE4	DB "  OK",0
2277
(1)   52/    737E : 20 20 45 52 52 4F   TLOADPAGE5	DB "  ERROR",0
2278
                    52 00 
2279
(1)   53/    7386 :                     
2280
(1)   54/    7386 : 0D 20 20 20 00      NEW_STROKA	DB 0X0D,"   ",0
2281
(1)   55/    738B :                     
2282
(1)   56/    738B : 0C 09 03 08 17 00   NO_UPDATE	DB 0X0C,0X09,0X03,0X08,0X17,0X00
2283
(1)   57/    7391 : 00 00               		DW 0
2284
(1)   58/    7393 : 00 00 00 00 00      		DB 0,0,0,0,0
2285
(1)   59/    7398 : 9F 73               		DW NOTUPDATE
2286
(1)   60/    739A : 00                  		DB 0
2287
(1)   61/    739B : 00 00 00 00         		DW 0,0
2288
(1)   62/    739F : 0D 03 4E 6F 20 66   NOTUPDATE	DB 0X0D,3,"No files",0
2289
                    69 6C 65 73 00 
2290
(1)   63/    73AA :                     
2291
(1)   64/    73AA : 06 05 03 14 17 00   ERROR_UPDATE	DB 0X06,0X05,0X03,0X14,0X17,0X00
2292
(1)   65/    73B0 : 00 00               		DW 0
2293
(1)   66/    73B2 : 00 00 00 00 00      		DB 0,0,0,0,0
2294
(1)   67/    73B7 : BE 73               		DW TXT_ERRUPDATE
2295
(1)   68/    73B9 : 00                  		DB 0
2296
(1)   69/    73BA : 00 00 00 00         		DW 0,0
2297
(1)   70/    73BE : 0D 20 20 00         TXT_ERRUPDATE	DB 0X0D,"  ",0
2298
(1)   71/    73C2 : 45 52 52 4F 52 3A   TXT_ERRUPD1	DB "ERROR: File not found",0
2299
                    20 46 69 6C 65 20 
2300
                    6E 6F 74 20 66 6F 
2301
                    75 6E 64 00 
2302
(1)   72/    73D8 : 45 52 52 4F 52 3A   TXT_ERRUPD2	DB "ERROR: FAT not found",0
2303
                    20 46 41 54 20 6E 
2304
                    6F 74 20 66 6F 75 
2305
                    6E 64 00 
2306
(1)   73/    73ED : 45 52 52 4F 52 3A   TXT_ERRUPD3	DB "ERROR: SD card not found",0
2307
                    20 53 44 20 63 61 
2308
                    72 64 20 6E 6F 74 
2309
                    20 66 6F 75 6E 64 
2310
                    00 
2311
(1)   74/    7406 :                     
2312
(1)   75/    7406 : 45 52 52 4F 52 3A   TXT_CRC		DB "ERROR: CRC error",0
2313
                    20 43 52 43 20 65 
2314
                    72 72 6F 72 00 
2315
(1)   76/    7417 : 45 52 52 4F 52 3A   TXT_NONGS	DB "ERROR: NeoGS not found",0
2316
                    20 4E 65 6F 47 53 
2317
                    20 6E 6F 74 20 66 
2318
                    6F 75 6E 64 00 
2319
(1)   77/    742E : 46 6C 61 73 68 20   TXT_OKUPDATE	DB "Flash ROM NeoGS updated",0
2320
                    52 4F 4D 20 4E 65 
2321
                    6F 47 53 20 75 70 
2322
                    64 61 74 65 64 00 
2323
(1)   78/    7446 :                     
2324
(1)   79/    7446 : 00 00 18 0A 0F 1F   FILE_SELECT	DB 0,0,24,10,0X0F,0X1F,0,0,%00010001
2325
                    00 00 11 
2326
(1)   80/    744F : (MACRO)             		DUPL 11,0
2327
(1)   80/    744F :                     DUPL:
2328
(1)   80/    744F : =0H                 $$N             EQU (11) / 1024
2329
(1)   80/    744F : =BH                 $$M             EQU (11) # 1024
2330
(1)   80/    744F :                                     REPT $$N
2331
(1)   80/    744F :                                     DB 1024 DUP(0)
2332
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 38 - 1/17/2011 21:30:41
2333
 
2334
 
2335
(1)   80/    744F :                                     ENDM
2336
(1)   80/    744F : =>TRUE                              IF $$M <> 0
2337
(1)   80/    744F : 00 00 00 00 00 00                   DB $$M DUP(0)
2338
                    00 00 00 00 00 
2339
(1)   80/    745A : [80]                                ENDIF
2340
(1)   81/    745A :                     
2341
(1)   82/    745A : 00                  PAGE128		DB 0
2342
(1)   83/    745B :                     
2343
(1)   84/    745B : 08 07 05 10 17 1F   PROGERS		DB 8,7,5,16,0X17,0X1F
2344
(1)   85/    7461 : (MACRO)             		DUPL 7,0
2345
(1)   85/    7461 :                     DUPL:
2346
(1)   85/    7461 : =0H                 $$N             EQU (7) / 1024
2347
(1)   85/    7461 : =7H                 $$M             EQU (7) # 1024
2348
(1)   85/    7461 :                                     REPT $$N
2349
(1)   85/    7461 :                                     DB 1024 DUP(0)
2350
(1)   85/    7461 :                                     ENDM
2351
(1)   85/    7461 : =>TRUE                              IF $$M <> 0
2352
(1)   85/    7461 : 00 00 00 00 00 00                   DB $$M DUP(0)
2353
                    00 
2354
(1)   85/    7468 : [85]                                ENDIF
2355
(1)   86/    7468 : 6F 74               		DW PROGERT
2356
(1)   87/    746A : (MACRO)             		DUPL 5,0
2357
(1)   87/    746A :                     DUPL:
2358
(1)   87/    746A : =0H                 $$N             EQU (5) / 1024
2359
(1)   87/    746A : =5H                 $$M             EQU (5) # 1024
2360
(1)   87/    746A :                                     REPT $$N
2361
(1)   87/    746A :                                     DB 1024 DUP(0)
2362
(1)   87/    746A :                                     ENDM
2363
(1)   87/    746A : =>TRUE                              IF $$M <> 0
2364
(1)   87/    746A : 00 00 00 00 00                      DB $$M DUP(0)
2365
(1)   87/    746F : [87]                                ENDIF
2366
(1)   88/    746F : 0D 0D 03 8F E0 AE   PROGERT		DB 0X0D,0X0D,3,"Прошиваю...",0
2367
                    E8 A8 A2 A0 EE 2E 
2368
                    2E 2E 00 
2369
(1)   89/    747E :                     
2370
(1)   90/    747E : 0D 0D 03 91 E2 E0   THLPL0		DB 0X0D,0X0D,3,"Страница прошивок Pentagon режима",0
2371
                    A0 AD A8 E6 A0 20 
2372
                    AF E0 AE E8 A8 A2 
2373
                    AE AA 20 50 65 6E 
2374
                    74 61 67 6F 6E 20 
2375
                    E0 A5 A6 A8 AC A0 
2376
                    00 
2377
(1)   91/    74A3 :                     
2378
(1)   92/    74A3 :                     THLPL1
2379
(1)   93/    74A3 :                     THLPL2
2380
(1)   94/    74A3 :                     THLPL3
2381
(1)   95/    74A3 :                     THLPL4
2382
(1)   96/    74A3 :                     THLPL5
2383
(1)   97/    74A3 : 00                  THLPL6		DB 0
2384
(1)   98/    74A4 :                     
2385
(1)   99/    74A4 : 0D 0D 03 91 E2 E0   THLPL7		DB 0X0D,0X0D,3,"Страница прошивок ATM режима",0
2386
                    A0 AD A8 E6 A0 20 
2387
                    AF E0 AE E8 A8 A2 
2388
                    AE AA 20 41 54 4D 
2389
                    20 E0 A5 A6 A8 AC 
2390
                    A0 00 
2391
(1)  100/    74C4 :                     
2392
(1)  101/    74C4 : 0D 0D 03 87 A0 A3   THLPR0		DB 0X0D,0X0D,3,"Загрузить обновление",0
2393
                    E0 E3 A7 A8 E2 EC 
2394
                    20 AE A1 AD AE A2 
2395
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 39 - 1/17/2011 21:30:41
2396
 
2397
 
2398
                    AB A5 AD A8 A5 00 
2399
(1)  102/    74DC :                     
2400
(1)  103/    74DC : 0D 0D 03 8E A1 AD   THLPR1		DB 0X0D,0X0D,3,"Обновить все страницы",0
2401
                    AE A2 A8 E2 EC 20 
2402
                    A2 E1 A5 20 E1 E2 
2403
                    E0 A0 AD A8 E6 EB 
2404
                    00 
2405
(1)  104/    74F5 :                     
2406
(1)  105/    74F5 : 0D 0D 03 8D A5 A1   THLPR2		DB 0X0D,0X0D,3,"Небольшой встроенный HELP",0
2407
                    AE AB EC E8 AE A9 
2408
                    20 A2 E1 E2 E0 AE 
2409
                    A5 AD AD EB A9 20 
2410
                    48 45 4C 50 00 
2411
(1)  106/    7512 :                     
2412
(1)  107/    7512 : 0D 0D 03 82 EB E5   THLPR3		DB 0X0D,0X0D,3,"Выход из программы",0
2413
                    AE A4 20 A8 A7 20 
2414
                    AF E0 AE A3 E0 A0 
2415
                    AC AC EB 00 
2416
(1)  108/    7528 :                     
2417
(1)  109/    7528 : 01 0D 06 1E 0F 1F   WHELP		DB 1,13,6,30,0X0F,0X1F,0,0,0X10
2418
                    00 00 10 
2419
(1)  110/    7531 : (MACRO)             		DUPL 11,0
2420
(1)  110/    7531 :                     DUPL:
2421
(1)  110/    7531 : =0H                 $$N             EQU (11) / 1024
2422
(1)  110/    7531 : =BH                 $$M             EQU (11) # 1024
2423
(1)  110/    7531 :                                     REPT $$N
2424
(1)  110/    7531 :                                     DB 1024 DUP(0)
2425
(1)  110/    7531 :                                     ENDM
2426
(1)  110/    7531 : =>TRUE                              IF $$M <> 0
2427
(1)  110/    7531 : 00 00 00 00 00 00                   DB $$M DUP(0)
2428
                    00 00 00 00 00 
2429
(1)  110/    753C : [110]                               ENDIF
2430
(1)  111/    753C :                     
2431
(1)  112/    753C : 7E 74 A3 74 A3 74   THELP1		DW THLPL0,THLPL1,THLPL2,THLPL3,THLPL4,THLPL5,THLPL6,THLPL7
2432
                    A3 74 A3 74 A3 74 
2433
                    A3 74 A4 74 
2434
(1)  113/    754C :                     
2435
(1)  114/    754C : C4 74 DC 74 F5 74   THELP2		DW THLPR0,THLPR1,THLPR2,THLPR3
2436
                    12 75 
2437
(1)  115/    7554 :                     
2438
(1)  116/    7554 : 01 02 0A 0A 0F 1F   WEKS1		DB 0X01,0X02,0X0A,0X0A,0X0F,0X1F
2439
(1)  117/    755A : 3C 75               		DW THELP1
2440
(1)  118/    755C : 22 00 00 00 00      		DB %00100010,0,0,0,0
2441
(1)  119/    7561 : 68 75               		DW DNAME
2442
(1)  120/    7563 : 00                  		DB 0
2443
(1)  121/    7564 : 08 00 00 00         		DW 8,0			;КОЛИЧЕСТВО ПУНКТОВ МЕНЮ			
2444
(1)  122/    7568 : 14 01 03            DNAME		DB 0X14,1,3
2445
(1)  123/    756B : 46 4C 41 53 48 20   		DB "FLASH Pages",0X14,0
2446
                    50 61 67 65 73 14 
2447
                    00 
2448
(1)  124/    7578 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 0"
2449
                    20 30 
2450
(1)  125/    7580 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 1"
2451
                    20 31 
2452
(1)  126/    7588 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 2"
2453
                    20 32 
2454
(1)  127/    7590 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 3"
2455
                    20 33 
2456
(1)  128/    7598 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 4"
2457
                    20 34 
2458
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 40 - 1/17/2011 21:30:41
2459
 
2460
 
2461
(1)  129/    75A0 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 5"
2462
                    20 35 
2463
(1)  130/    75A8 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 6"
2464
                    20 36 
2465
(1)  131/    75B0 : 0D 03 50 61 67 65   		DB 0X0D,3,"Page 7",0
2466
                    20 37 00 
2467
(1)  132/    75B9 :                     
2468
(1)  133/    75B9 : 08 08 04 0F 0F 1F   WEKS2		DB 0X08,0X08,0X04,0X0F,0X0F,0X1F
2469
(1)  134/    75BF : 4C 75               		DW THELP2
2470
(1)  135/    75C1 : 20 00 00 00 00      		DB %00100000,0,0,0,0
2471
(1)  136/    75C6 : CD 75               		DW SDNAME
2472
(1)  137/    75C8 : 00                  		DB 0
2473
(1)  138/    75C9 : 02 00 00 00         		DW 2,0				;КОЛИЧЕСТВО ПУНКТОВ МЕНЮ
2474
(1)  139/    75CD : 14 01 03 84 A5 A9   SDNAME		DB 0X14,1,3,"Действие",0X14,0
2475
                    E1 E2 A2 A8 A5 14 
2476
                    00 
2477
(1)  140/    75DA : 0D 03 8E A1 AD AE   		DB 0X0D,3,"Обновить все"
2478
                    A2 A8 E2 EC 20 A2 
2479
                    E1 A5 
2480
(1)  141/    75E8 : 0D 03 45 78 69 74   		DB 0X0D,3,"Exit",0
2481
                    00 
2482
(1)  142/    75EF :                     
2483
(1)  143/    75EF : 00 00 18 20 29 1F   ALLSCR		DB 0X00,0X00,0X18,0X20,0X29,0X1F
2484
(1)  144/    75F5 : 00 00               		DW 0
2485
(1)  145/    75F7 : 22 00 00 00 00      		DB %00100010,0,0,0,0
2486
(1)  146/    75FC : 03 76               		DW SCRTXT
2487
(1)  147/    75FE : 00                  		DB 0
2488
(1)  148/    75FF : 00 00 00 00         		DW 0,0
2489
(1)  149/    7603 : 14 01 03 46 4C 41   SCRTXT		DB 0X14,1,3,"FLASHER for NeoGS v0.2",0X14,0,0
2490
                    53 48 45 52 20 66 
2491
                    6F 72 20 4E 65 6F 
2492
                    47 53 20 76 30 2E 
2493
                    32 14 00 00 
2494
(1)  150/    761F :                     
2495
(1)  151/    761F : 00 00 18 20 28 1F   MEGHELP		DB 0,0,24,32,0X28,0X1F
2496
(1)  152/    7625 : (MACRO)             		DUPL 7,0
2497
(1)  152/    7625 :                     DUPL:
2498
(1)  152/    7625 : =0H                 $$N             EQU (7) / 1024
2499
(1)  152/    7625 : =7H                 $$M             EQU (7) # 1024
2500
(1)  152/    7625 :                                     REPT $$N
2501
(1)  152/    7625 :                                     DB 1024 DUP(0)
2502
(1)  152/    7625 :                                     ENDM
2503
(1)  152/    7625 : =>TRUE                              IF $$M <> 0
2504
(1)  152/    7625 : 00 00 00 00 00 00                   DB $$M DUP(0)
2505
                    00 
2506
(1)  152/    762C : [152]                               ENDIF
2507
(1)  153/    762C : 33 76               		DW MEGATXT
2508
(1)  154/    762E : (MACRO)             		DUPL 5,0
2509
(1)  154/    762E :                     DUPL:
2510
(1)  154/    762E : =0H                 $$N             EQU (5) / 1024
2511
(1)  154/    762E : =5H                 $$M             EQU (5) # 1024
2512
(1)  154/    762E :                                     REPT $$N
2513
(1)  154/    762E :                                     DB 1024 DUP(0)
2514
(1)  154/    762E :                                     ENDM
2515
(1)  154/    762E : =>TRUE                              IF $$M <> 0
2516
(1)  154/    762E : 00 00 00 00 00                      DB $$M DUP(0)
2517
(1)  154/    7633 : [154]                               ENDIF
2518
(1)  155/    7633 :                     		;       123456789012345678901234567890123456789012
2519
(1)  156/    7633 : 0D 20 20 20 9D E2   MEGATXT		DB 0X0D,"   Эта программа предназначена для обнов- "
2520
                    A0 20 AF E0 AE A3 
2521
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 41 - 1/17/2011 21:30:41
2522
 
2523
 
2524
                    E0 A0 AC AC A0 20 
2525
                    AF E0 A5 A4 AD A0 
2526
                    A7 AD A0 E7 A5 AD 
2527
                    A0 20 A4 AB EF 20 
2528
                    AE A1 AD AE A2 2D 
2529
                    20 
2530
(1)  157/    765E : 0D 20 AB A5 AD A8   		DB 0X0D," ления прошивки FLASH ROM, находящейся на "
2531
                    EF 20 AF E0 AE E8 
2532
                    A8 A2 AA A8 20 46 
2533
                    4C 41 53 48 20 52 
2534
                    4F 4D 2C 20 AD A0 
2535
                    E5 AE A4 EF E9 A5 
2536
                    A9 E1 EF 20 AD A0 
2537
                    20 
2538
(1)  158/    7689 : 0D 20 AF AB A0 E2   		DB 0X0D," плате NeoGS. В этой версии обновляется:  "
2539
                    A5 20 4E 65 6F 47 
2540
                    53 2E 20 82 20 ED 
2541
                    E2 AE A9 20 A2 A5 
2542
                    E0 E1 A8 A8 20 AE 
2543
                    A1 AD AE A2 AB EF 
2544
                    A5 E2 E1 EF 3A 20 
2545
                    20 
2546
(1)  159/    76B4 : 0D 20 AF E0 AE E8   		DB 0X0D," прошивка FPGA - добавляется режим DMA;   "
2547
                    A8 A2 AA A0 20 46 
2548
                    50 47 41 20 2D 20 
2549
                    A4 AE A1 A0 A2 AB 
2550
                    EF A5 E2 E1 EF 20 
2551
                    E0 A5 A6 A8 AC 20 
2552
                    44 4D 41 3B 20 20 
2553
                    20 
2554
(1)  160/    76DF : 0D 20 A7 A0 A3 E0   		DB 0X0D," загрузчик - добавлены несколько возмож-  "
2555
                    E3 A7 E7 A8 AA 20 
2556
                    2D 20 A4 AE A1 A0 
2557
                    A2 AB A5 AD EB 20 
2558
                    AD A5 E1 AA AE AB 
2559
                    EC AA AE 20 A2 AE 
2560
                    A7 AC AE A6 2D 20 
2561
                    20 
2562
(1)  161/    770A : 0D 20 AD AE E1 E2   		DB 0X0D," ностей, подробнее в прилагающемся PDF-   "
2563
                    A5 A9 2C 20 AF AE 
2564
                    A4 E0 AE A1 AD A5 
2565
                    A5 20 A2 20 AF E0 
2566
                    A8 AB A0 A3 A0 EE 
2567
                    E9 A5 AC E1 EF 20 
2568
                    50 44 46 2D 20 20 
2569
                    20 
2570
(1)  162/    7735 : 0D 20 E4 A0 A9 AB   		DB 0X0D," файле.                                   "
2571
                    A5 2E 20 20 20 20 
2572
                    20 20 20 20 20 20 
2573
                    20 20 20 20 20 20 
2574
                    20 20 20 20 20 20 
2575
                    20 20 20 20 20 20 
2576
                    20 20 20 20 20 20 
2577
                    20 
2578
(1)  163/    7760 : 0D                  		DB 0X0D
2579
(1)  164/    7761 : 0D 20 20 20 8B A5   		DB 0X0D,"   Левое окно служит только для просмотра "
2580
                    A2 AE A5 20 AE AA 
2581
                    AD AE 20 E1 AB E3 
2582
                    A6 A8 E2 20 E2 AE 
2583
                    AB EC AA AE 20 A4 
2584
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 42 - 1/17/2011 21:30:41
2585
 
2586
 
2587
                    AB EF 20 AF E0 AE 
2588
                    E1 AC AE E2 E0 A0 
2589
                    20 
2590
(1)  165/    778C : 0D 20 A2 A5 E0 E1   		DB 0X0D," версии прошивки в страницах FLASH ROM.   "
2591
                    A8 A8 20 AF E0 AE 
2592
                    E8 A8 A2 AA A8 20 
2593
                    A2 20 E1 E2 E0 A0 
2594
                    AD A8 E6 A0 E5 20 
2595
                    46 4C 41 53 48 20 
2596
                    52 4F 4D 2E 20 20 
2597
                    20 
2598
(1)  166/    77B7 : 0D                  		DB 0X0D
2599
(1)  167/    77B8 : 0D 20 20 20 8F E0   		DB 0X0D,"   Правое окно предназначено для обновле- "
2600
                    A0 A2 AE A5 20 AE 
2601
                    AA AD AE 20 AF E0 
2602
                    A5 A4 AD A0 A7 AD 
2603
                    A0 E7 A5 AD AE 20 
2604
                    A4 AB EF 20 AE A1 
2605
                    AD AE A2 AB A5 2D 
2606
                    20 
2607
(1)  168/    77E3 : 0D 20 AD A8 EF 20   		DB 0X0D," ния прошивки FLASH ROM, просмотра этого  "
2608
                    AF E0 AE E8 A8 A2 
2609
                    AA A8 20 46 4C 41 
2610
                    53 48 20 52 4F 4D 
2611
                    2C 20 AF E0 AE E1 
2612
                    AC AE E2 E0 A0 20 
2613
                    ED E2 AE A3 AE 20 
2614
                    20 
2615
(1)  169/    780E : 0D 20 E2 A5 AA E1   		DB 0X0D," текста или выхода из программы с полным  "
2616
                    E2 A0 20 A8 AB A8 
2617
                    20 A2 EB E5 AE A4 
2618
                    A0 20 A8 A7 20 AF 
2619
                    E0 AE A3 E0 A0 AC 
2620
                    AC EB 20 E1 20 AF 
2621
                    AE AB AD EB AC 20 
2622
                    20 
2623
(1)  170/    7839 : 0D 20 AF A5 E0 A5   		DB 0X0D," перезапуском NeoGS.                      "
2624
                    A7 A0 AF E3 E1 AA 
2625
                    AE AC 20 4E 65 6F 
2626
                    47 53 2E 20 20 20 
2627
                    20 20 20 20 20 20 
2628
                    20 20 20 20 20 20 
2629
                    20 20 20 20 20 20 
2630
                    20 
2631
(1)  171/    7864 : 0D                  		DB 0X0D
2632
(1)  172/    7865 : 0D 20 20 20 8D A8   		DB 0X0D,"   Нижнее окно показывает: номер версии   "
2633
                    A6 AD A5 A5 20 AE 
2634
                    AA AD AE 20 AF AE 
2635
                    AA A0 A7 EB A2 A0 
2636
                    A5 E2 3A 20 AD AE 
2637
                    AC A5 E0 20 A2 A5 
2638
                    E0 E1 A8 A8 20 20 
2639
                    20 
2640
(1)  173/    7890 : 0D 20 AF E0 AE E8   		DB 0X0D," прошивки уже зашитой во FLASH ROM или    "
2641
                    A8 A2 AA A8 20 E3 
2642
                    A6 A5 20 A7 A0 E8 
2643
                    A8 E2 AE A9 20 A2 
2644
                    AE 20 46 4C 41 53 
2645
                    48 20 52 4F 4D 20 
2646
                    A8 AB A8 20 20 20 
2647
 AS V1.42 Beta [Bld 78] - source file flasher.a80(flasher_data.a80) - page 43 - 1/17/2011 21:30:41
2648
 
2649
 
2650
                    20 
2651
(1)  174/    78BB : 0D 20 AA E0 A0 E2   		DB 0X0D," краткой помощи того, что можно сделать   "
2652
                    AA AE A9 20 AF AE 
2653
                    AC AE E9 A8 20 E2 
2654
                    AE A3 AE 2C 20 E7 
2655
                    E2 AE 20 AC AE A6 
2656
                    AD AE 20 E1 A4 A5 
2657
                    AB A0 E2 EC 20 20 
2658
                    20 
2659
(1)  175/    78E6 : 0D 20 A2 20 AC A5   		DB 0X0D," в меню ",0X22,"Действие.",0X22
2660
                    AD EE 20 22 84 A5 
2661
                    A9 E1 E2 A2 A8 A5 
2662
                    2E 22 
2663
(1)  176/    78FA : 0D                  		DB 0X0D
2664
(1)  177/    78FB : 0D 20 20 20 20 20   		DB 0X0D,"                     ",DDMMYY,"   savelij "
2665
                    20 20 20 20 20 20 
2666
                    20 20 20 20 20 20 
2667
                    20 20 20 20 31 37 
2668
                    2E 30 31 2E 32 30 
2669
                    31 31 20 20 20 73 
2670
                    61 76 65 6C 69 6A 
2671
                    20 
2672
(1)  178/    7926 : 00                  		DB 0
2673
(1)  179/    7927 :                     		;       123456789012345678901234567890123456789012
2674
(1)  180/    7927 :                     
2675
     583/    7927 :                     NGS_LOADER	binclude ../loader_ngs/loader_ngs.rom
2676
     584/    8231 :                     NGS_LOADERE
2677
     585/    8231 :                     
2678
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 44 - 1/17/2011 21:30:41
2679
 
2680
 
2681
  symbol table (* = unused):
2682
  ------------------------
2683
 
2684
 ACCEPT :                      6CDC C |  ADRAT :                       6226 C |
2685
*ADRATR :                      70BE C |  ADRDIS :                      70AA C |
2686
 ADRSTR :                      7172 C |  ADRTSC :                      6DE7 C |
2687
 ADR_PROGR :                   5800 - |  ALLSCR :                      75EF C |
2688
*ARCHITECTURE :  i386-unknown-win32 - |  ASD :                         70C7 C |
2689
 BCDEMHL :                     72A2 C | *BIGENDIAN :                      0 - |
2690
*BRANCHEXT :                      0 - |  BUFEND :                      6DCC C |
2691
 BUFFE :                       6DA1 C |  BUFFER :                      6DA4 C |
2692
 BUFFER_ZAG :                  9200 - |  BUFMSK :                      71DD C |
2693
 BUFTSC :                      B800 - |  BUF_CRC16_TABL :              9000 - |
2694
*B_8CHAN :                        2 - | *B_CBIT :                         0 - |
2695
*B_CKSL0 :                        4 - | *B_CKSL1 :                        5 - |
2696
*B_DBIT :                         7 - | *B_EXPAG :                        3 - |
2697
*B_INV7B :                        7 - | *B_MCNCS :                        1 - |
2698
*B_MCRDY :                        3 - | *B_MCSP0 :                        3 - |
2699
*B_MCSP1 :                        5 - | *B_MDDRQ :                        0 - |
2700
*B_MDHLF :                        4 - | *B_MPXRS :                        2 - |
2701
*B_NOROM :                        0 - | *B_PAN4C :                        6 - |
2702
*B_RAMRO :                        1 - | *B_SDDET :                        1 - |
2703
*B_SDNCS :                        0 - | *B_SDWP :                         2 - |
2704
*B_SNCLR :                        7 - |  CAPSLK :                      6D81 C |
2705
*CASESENSITIVE :                  1 - |  CEN2 :                        710C C |
2706
*CENTR :                       7109 C |  CHARS :                       644E C |
2707
 CHISLA1 :                     729A C |  CHISLA2 :                     7292 C |
2708
 CHISLA4 :                     727E C |  CLEAN :                       6D92 C |
2709
 CLEAR :                       6CD7 C |  CLRCBIT :                        5 - |
2710
 CLS :                         6E19 C | *CLSCLR :                      6E25 C |
2711
 COD13 :                       7138 C |  COD14 :                       714A C |
2712
 COD16 :                       7159 C |  COD9 :                        7125 C |
2713
*CONSTPI :        3.141592653589793 - |  CPKEYS1 :                     72DF C |
2714
 CPKEYS2 :                     72ED C |  CP_KEYS :                     72DD C |
2715
 CRLEFT :                      6D31 C |  CRRIGT :                      6D3E C |
2716
 CURSOR :                      6DCE C | *C_10MHZ :                       30 - |
2717
*C_12MHZ :                       10 - | *C_20MHZ :                       20 - |
2718
*C_24MHZ :                        0 - | *C_GLED :                        20 - |
2719
*C_GNMI :                        40 - | *C_GRST :                        80 - |
2720
*DATA :                        9631 - | *DATE :                   1/17/2011 - |
2721
 DD :                            11 - |  DDMMYY :                17.01.2011 - |
2722
*DECHL :                       70D9 C |  DELETE :                      6D50 C |
2723
*DMA_CST :                       1F - | *DMA_HAD :                       1C - |
2724
*DMA_LAD :                       1E - | *DMA_MAD :                       1D - |
2725
*DMA_MOD :                       1B - |  DNAME :                       7568 C |
2726
 DOWN :                        618E C |  DOWN1 :                       61BC C |
2727
*DPORT1 :                         A - | *DPORT2 :                         B - |
2728
*DRV_VAR :                     9500 - |  ENDEDIT :                     6D9C C |
2729
 ENTER :                       6D8C C |  ERA_BLK :                     58EC C |
2730
 ERRORRING :                   6058 C |  ERROR_UPDATE :                73AA C |
2731
 EX1 :                         7118 C |  EX2 :                         711E C |
2732
*FALSE :                          0 - | *FILE_SELECT :                 7446 C |
2733
 FINDNGS :                     6234 C |  FNDNGS1 :                     6246 C |
2734
 FNDNGS2 :                     625E C | *FULLPMMU :                       1 - |
2735
 GETKEY :                      6CE2 C |  GSCFG0 :                         F - |
2736
 GSCOM :                         BB - |  GSCTR :                         33 - |
2737
 GSDAT :                         B3 - | *GSSTAT :                        BB - |
2738
 H2D1 :                        7242 C | *HAS64 :                          1 - |
2739
*HASDSP :                         0 - | *HASFPU :                         0 - |
2740
*HASPMMU :                        0 - | *HEX1DEC :                     726B C |
2741
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 45 - 1/17/2011 21:30:41
2742
 
2743
 
2744
*HEX2DEC :                     725A C | *HEX2TXT :                     71ED C |
2745
*HEX4DEC :                     721B C |  HEX_CON :                     7205 C |
2746
 HIGH :                        58E4 C | *INCHL :                       70CA C |
2747
*INEXTMODE :                      0 - |  INITLOADER :                  626E C |
2748
*INLWORDMODE :                    0 - | *INMAXMODE :                      0 - |
2749
 INPORT :                      6261 C | *INPUTT :                      6CA7 C |
2750
*INSOVR :                      6D76 C | *INSRCMODE :                      0 - |
2751
*INSUPMODE :                      0 - |  INWERT :                      6E3F C |
2752
 KENTER :                      60BE C |  KENTER1 :                     60C7 C |
2753
 KENTER4 :                     6133 C |  KEYS :                        6C4E C |
2754
 LDIST :                       7046 C | *LEDCTR :                         1 - |
2755
 LENGHT :                      6DD0 C | *LETTER :                      6DCF C |
2756
*LISTON :                         1 - |  LOW :                         58E2 C |
2757
 M259 :                           B - |  M262 :                           7 - |
2758
 M263 :                           5 - |  M278 :                           B - |
2759
 M288 :                           7 - |  M289 :                           5 - |
2760
*MACEXP :                         1 - | *MC_READ :                       15 - |
2761
*MC_SEND :                       15 - | *MD_SEND :                       14 - |
2762
 MEGATXT :                     7633 C | *MEGHELP :                     761F C |
2763
*MIDDLE :                      58E3 C |  MINILD :                      5800 C |
2764
 MINILD1 :                     5820 C |  MINILDE :                     5969 C |
2765
 MINISTR :                     62E5 C |  ML_BYT :                      720E C |
2766
 MM :                             1 - | *MOMCPU :                      80DC - |
2767
*MOMCPUNAME :              Z80UNDOC - | *MOVI :                        6DD1 C |
2768
 MPAG :                           0 - | *MPAGEX :                        10 - |
2769
*M_8CHAN :                        4 - | *M_CBIT :                         1 - |
2770
*M_CKSL0 :                       10 - | *M_CKSL1 :                       20 - |
2771
*M_DBIT :                        80 - | *M_EXPAG :                        8 - |
2772
*M_INV7B :                       80 - | *M_MCNCS :                        2 - |
2773
*M_MCRDY :                        8 - | *M_MCSP0 :                        8 - |
2774
*M_MCSP1 :                       20 - | *M_MDDRQ :                        1 - |
2775
*M_MDHLF :                       10 - | *M_MPXRS :                        4 - |
2776
*M_NOROM :                        1 - | *M_PAN4C :                       40 - |
2777
*M_RAMRO :                        2 - | *M_SDDET :                        2 - |
2778
*M_SDNCS :                        1 - | *M_SDWP :                         4 - |
2779
*M_SNCLR :                       80 - |  N259 :                           0 - |
2780
 N262 :                           0 - |  N263 :                           0 - |
2781
 N278 :                           0 - |  N288 :                           0 - |
2782
 N289 :                           0 - | *NESTMAX :                      100 - |
2783
*NEW_STROKA :                  7386 C |  NEXT :                        70F8 C |
2784
 NGSNOTFOUND :                 60A7 C |  NGS_LOADER :                  7927 C |
2785
 NGS_LOADERE :                 8231 C |  NONGS :                       625B C |
2786
 NOTUPDATE :                   739F C |  NO_INW :                      71AD C |
2787
*NO_UPDATE :                   738B C | *NUMTLDP2 :                    734F - |
2788
 OUTCOD :                      6297 C |  OUTCOD1 :                     62C2 C |
2789
*PACKING :                        0 - | *PADDING :                        1 - |
2790
*PAGE128 :                     745A C | *PAG_128 :                     72F8 C |
2791
 POWT1 :                       6E7E C |  POWT2 :                       6EE0 C |
2792
 PRIBUF :                      6DDB C |  PRINT :                       7101 C |
2793
 PRINTA :                      7165 C |  PROD000 :                     608D C |
2794
 PROD001 :                     6065 C |  PROD01 :                      609B C |
2795
 PROG0 :                       585A C | *PROGERS :                     745B C |
2796
 PROGERT :                     746F C |  PROGR :                       5842 C |
2797
 PROGR0 :                      5884 C |  PROGR1 :                      58C2 C |
2798
 PROGR2 :                      58DB C |  RAMK0 :                       6E8D - |
2799
 RAMK1 :                       6E9A - |  RAMK2 :                       6EA9 - |
2800
 RAMK3 :                       6EC1 - |  RASCH :                       6F76 C |
2801
*RELAXED :                        1 - |  RESTARTUPD :                  6032 C |
2802
 RVERT :                       620D C |  SCRDN :                       6FCE C |
2803
 SCRTXT :                      7603 C |  SCRUP :                       6FA6 C |
2804
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 46 - 1/17/2011 21:30:41
2805
 
2806
 
2807
*SCTRL :                         11 - |  SDNAME :                      75CD C |
2808
*SD_READ :                       13 - | *SD_RSTR :                       14 - |
2809
*SD_SEND :                       13 - |  SET_ADR :                     58E5 C |
2810
 SHIFT :                       6FFB C |  SKLAD :                       9400 - |
2811
 SKOLKO :                      71B1 C |  SLEDU :                       71A8 C |
2812
*SM_LDT :                        54 - | *SSTAT :                         12 - |
2813
 START_ :                      6000 C |  THELP1 :                      753C C |
2814
 THELP2 :                      754C C |  THLPL0 :                      747E C |
2815
 THLPL1 :                      74A3 C |  THLPL2 :                      74A3 C |
2816
 THLPL3 :                      74A3 C |  THLPL4 :                      74A3 C |
2817
 THLPL5 :                      74A3 C |  THLPL6 :                      74A3 C |
2818
 THLPL7 :                      74A4 C |  THLPR0 :                      74C4 C |
2819
 THLPR1 :                      74DC C |  THLPR2 :                      74F5 C |
2820
 THLPR3 :                      7512 C | *TIME :                    21:30:41 - |
2821
*TLOADPAGE1 :                  7316 C | *TLOADPAGE2 :                  7337 C |
2822
*TLOADPAGE3 :                  7358 C | *TLOADPAGE4 :                  7379 C |
2823
*TLOADPAGE5 :                  737E C | *TRUE :                           1 - |
2824
 TXT_CRC :                     7406 C |  TXT_DEC :                     B980 - |
2825
 TXT_ERRUPD1 :                 73C2 C |  TXT_ERRUPD2 :                 73D8 C |
2826
 TXT_ERRUPD3 :                 73ED C |  TXT_ERRUPDATE :               73BE C |
2827
 TXT_HEX :                     B990 - |  TXT_NONGS :                   7417 C |
2828
 TXT_OKUPDATE :                742E C | *UMEHL :                       70F1 C |
2829
 UMEHL1 :                      70D4 C |  UP :                          61D6 C |
2830
 UP1 :                         61F7 C |  UPD01 :                       616E C |
2831
 UPD02 :                       6151 C |  UPD03 :                       617B C |
2832
 UPD04 :                       6147 C |  UPDOWN :                      613A C |
2833
 USTAN :                       7089 C | *UVEHL :                       70EA C |
2834
 UVEHL1 :                      70E5 C |  VCURS :                       6C5F C |
2835
*VERSION :                     142F - | *VOL1 :                           6 - |
2836
*VOL2 :                           7 - | *VOL3 :                           8 - |
2837
*VOL4 :                           9 - | *VOL5 :                          16 - |
2838
*VOL6 :                          17 - | *VOL7 :                          18 - |
2839
*VOL8 :                          19 - |  WC :                          62D3 C |
2840
 WCMP :                        591C C |  WD :                          62D9 C |
2841
*WEKS1 :                       7554 C |  WEKS2 :                       75B9 C |
2842
*WHELP :                       7528 C |  WINOUT :                      6E58 C |
2843
 WINW :                        6EF8 C |  WINW1 :                       6F07 C |
2844
*WIN_INDICAT :                 7302 C |  WN :                          62DF C |
2845
 WR_BYTE :                     592D C | *WTABL :                       6E06 C |
2846
 WYDELK :                      6225 C |  W_NIZ :                       6F4F C |
2847
 XNEW :                        713C C |  YY :                             B - |
2848
 ZADER :                       6C98 C | *ZXCMD :                          1 - |
2849
 ZXDATRD :                        2 - |  ZXDATWR :                        3 - |
2850
 ZXSTAT :                         4 - |
2851
 
2852
    321 symbols
2853
    140 unused symbols
2854
 
2855
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 47 - 1/17/2011 21:30:41
2856
 
2857
 
2858
  defined macros:
2859
  ---------------
2860
 
2861
DC                                    | DUPL                                 
2862
DZ                                    | SUM_HOB                              
2863
 
2864
      4 macros
2865
 
2866
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 48 - 1/17/2011 21:30:41
2867
 
2868
 
2869
  defined functions:
2870
  ------------------
2871
 
2872
LOW                                   | HIGH                                 
2873
 
2874
 AS V1.42 Beta [Bld 78] - source file flasher.a80 - page 49 - 1/17/2011 21:30:41
2875
 
2876
 
2877
  codepages:
2878
  ----------
2879
 
2880
STANDARD (0 changed characters)
2881
 
2882
 
2883
0.16 seconds assembly time
2884
 
2885
   2166 lines source file
2886
   2336 lines incl. macro expansions
2887
      2 passes
2888
 
2889