OpenCores
URL https://opencores.org/ocsvn/wb_z80/wb_z80/trunk

Subversion Repositories wb_z80

[/] [wb_z80/] [trunk/] [asm/] [BJS80TST.ASM] - Blame information for rev 39

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 bporcella
; bjp   modified to assemble on as80 assembler (needs different syntax).
2 25 bporcella
; minor mods to account for changes in interrupt structure  and I/O
3
; all such are flagged with my initials.....
4 20 bporcella
;
5 25 bporcella
; The origional code used operators <   and  >  on symbols to extract the
6 30 bporcella
; lower and higher bytes respectively.   It appears that as80 has no equivalent.
7 25 bporcella
; I have hand coded such ---- hopefully correctly.
8
; This is only a significant issue with such constructs as 
9
; My solution forces the stack to remain in its present location.
10
;
11
; WARNING   If you must move the stack  --   check comments and fix code for my kludges
12
;
13 30 bporcella
; Origional Code also had a pretty strange "passed" macro.  Removed it and
14
; output a more useful message. along with the bist controls
15
;
16 20 bporcella
;z80 simulator test routine
17
;total error count is left in a at end of test routine
18
;
19
 
20
                code
21
                org     #0000
22
;
23
rst_0000:       jp      rst_0000_1
24
;
25
                org     #0008
26
;
27
rst_0008:       ld      a,2
28
                ret
29
;
30
                org     #0010
31
;
32
rst_0010:       ld      a,3
33
                ret
34
;
35
                org     #0018
36
;
37
rst_0018:       ld      a,4
38
                ret
39
;
40
                org     #0020
41
;
42
rst_0020:       ld      a,5
43
                ret
44
;
45
                org     #0028
46
;
47
rst_0028:       ld      a,6
48
                ret
49
;
50
                org     #0030
51
;
52
rst_0030:       ld      a,7
53
                ret
54
;
55
                org     #0038
56
;
57
rst_0038:       ld      a,8
58
                ret
59
;
60
                code
61
;
62
 
63 30 bporcella
in_port:        equ     #20
64
out_port:       equ     #20
65
bist_adr:       equ     #ffff   ;last memory address for bist controll register
66
bist_ack:       equ     #01
67
bist_err:       equ     #02
68
bist_ei:        equ     #04     ;interrupt enable register for bist
69 20 bporcella
;
70
data_55:        equ     #55
71
data_7f:        equ     #7f
72
data_80:        equ     #80
73
data_aa:        equ     #aa
74
data_ff:        equ     #ff
75
;
76
data_1234:      equ     #1234
77
data_55aa:      equ     #55aa
78
data_7fff:      equ     #7fff
79
data_8000:      equ     #8000
80
data_aa55:      equ     #aa55
81
data_ffff:      equ     #ffff
82 30 bporcella
cr:             equ     #0d
83
lf:             equ     #0a
84
bell:           equ     #07
85 20 bporcella
;
86 25 bporcella
;inc_error_cnt  macro        ;bjp   change for initial test to halt on error
87 20 bporcella
;               ld      hl,error_cnt
88
;               inc     (hl)
89
;               endm
90
inc_error_cnt   macro
91
                halt
92
                endm
93
 
94
;
95 30 bporcella
;passed         macro
96
;               push    bc
97
;               ld      bc,(pass)
98
;               ld      (message_addr),bc
99
;               ld      bc,(pass+2)
100
;               ld      (message_addr+2),bc
101
;               ld      bc,(pass+4)
102
;               ld      (message_addr+4),bc
103
;               pop     bc
104
;               endm
105 20 bporcella
;
106 30 bporcella
;failed         macro
107
;               push    bc
108
;               ld      bc,(fail)
109
;               ld      (message_addr),bc
110
;               ld      bc,(fail+2)
111
;               ld      (message_addr+2),bc
112
;               ld      bc,(fail+4)
113
;               ld      (message_addr+4),bc
114
;               pop     bc
115
;               endm
116 20 bporcella
;
117
;
118
 
119
start:          xor     a
120
                ld      (pass_count),a
121
                ld      hl,error_cnt
122
                ld      (hl),a                  ;clear error count
123
nop_1:          nop
124
                nop
125 30 bporcella
 
126 20 bporcella
ld_167:         ld      a,data_55
127
                cp      data_55
128
                jr      z,ld_1
129
                inc_error_cnt
130
ld_1:           ld      b,data_7f
131
                ld      a,data_7f
132
                cp      b
133
                jr      z,ld_2
134
                inc_error_cnt
135
ld_2:           ld      c,data_80
136
                ld      a,data_80
137
                cp      c
138
                jr      z,ld_3
139
                inc_error_cnt
140
ld_3:           ld      d,data_aa
141
                ld      a,data_aa
142
                cp      d
143
                jr      z,ld_4
144
                inc_error_cnt
145
ld_4:           ld      e,data_55
146
                ld      a,data_55
147
                cp      e
148
                jr      z,ld_5
149
                inc_error_cnt
150
ld_5:           ld      h,data_7f
151
                ld      a,data_7f
152
                cp      h
153
                jr      z,ld_6
154
                inc_error_cnt
155
ld_6:           ld      l,data_80
156
                ld      a,data_80
157
                cp      l
158
                jr      z,ld_7
159
                inc_error_cnt
160
ld_7:           ld      a,data_55
161
                ld      b,a
162
                cp      b
163
                jr      z,ld_8
164
                inc_error_cnt
165
ld_8:           ld      c,b
166
                cp      c
167
                jr      z,ld_9
168
                inc_error_cnt
169
ld_9:           ld      d,c
170
                cp      d
171
                jr      z,ld_10
172
                inc_error_cnt
173
ld_10:          ld      e,d
174
                cp      e
175
                jr      z,ld_11
176
                inc_error_cnt
177
ld_11:          ld      h,e
178
                cp      h
179
                jr      z,ld_12
180
                inc_error_cnt
181
ld_12:          ld      l,h
182
                cp      l
183
                jr      z,ld_13
184
                inc_error_cnt
185
ld_13:          ld      l,data_80
186
                ld      a,l
187
                cp      l
188
                jr      z,ld_14
189
                inc_error_cnt
190
ld_14:          ld      h,l
191
                cp      h
192
                jr      z,ld_15
193
                inc_error_cnt
194
ld_15:          ld      e,h
195
                cp      e
196
                jr      z,ld_16
197
                inc_error_cnt
198
ld_16:          ld      d,e
199
                cp      d
200
                jr      z,ld_17
201
                inc_error_cnt
202
ld_17:          ld      c,d
203
                cp      c
204
                jr      z,ld_18
205
                inc_error_cnt
206
ld_18:          ld      b,c
207
                cp      b
208
                jr      z,ld_19
209
                inc_error_cnt
210
ld_19:          ld      hl,var1
211
                ld      a,(hl)
212
                cp      data_ff
213
                jr      z,ld_20
214
                inc_error_cnt
215
ld_20:          ld      hl,var2
216
                ld      a,data_55
217
                ld      b,(hl)
218
                cp      b
219
                jr      z,ld_21
220
                inc_error_cnt
221
ld_21:          ld      hl,var1
222
                ld      c,(hl)
223
                ld      a,(hl)
224
                cp      c
225
                jr      z,ld_22
226
                inc_error_cnt
227
ld_22:          ld      hl,var2
228
                ld      d,(hl)
229
                ld      a,(hl)
230
                cp      d
231
                jr      z,ld_23
232
                inc_error_cnt
233
ld_23:          ld      hl,var1
234
                ld      e,(hl)
235
                ld      a,(hl)
236
                cp      e
237
                jr      z,ld_24
238
                inc_error_cnt
239
ld_24:          ld      hl,var2
240
                ld      a,(hl)
241
                ld      h,(hl)
242
                cp      h
243
                jr      z,ld_25
244
                inc_error_cnt
245
ld_25:          ld      hl,var1
246
                ld      a,(hl)
247
                ld      l,(hl)
248
                cp      l
249
                jr      z,ld_26
250
                inc_error_cnt
251
ld_26:          ld      ix,var3
252
                ld      a,(ix-2)
253
                cp      data_ff
254
                jr      z,ld_27
255
                inc_error_cnt
256
ld_27:          ld      a,(ix+2)
257
                cp      data_7f
258
                jr      z,ld_28
259
                inc_error_cnt
260
ld_28:          ld      a,(ix-1)
261
                ld      b,(ix-1)
262
                cp      b
263
                jr      z,ld_29
264
                inc_error_cnt
265
ld_29:          cp      data_55
266
                jr      z,ld_30
267
                inc_error_cnt
268
ld_30:          ld      a,(ix+1)
269
                ld      c,(ix+1)
270
                cp      c
271
                jr      z,ld_31
272
                inc_error_cnt
273
ld_31:          cp      data_aa
274
                jr      z,ld_32
275
                inc_error_cnt
276
ld_32:          ld      d,(ix-2)
277
                ld      a,(ix-2)
278
                cp      d
279
                jr      z,ld_33
280
                inc_error_cnt
281
ld_33:          cp      data_ff
282
                jr      z,ld_34
283
                inc_error_cnt
284
ld_34:          ld      e,(ix+2)
285
                ld      a,(ix+2)
286
                cp      e
287
                jr      z,ld_35
288
                inc_error_cnt
289
ld_35:          cp      data_7f
290
                jr      z,ld_36
291
                inc_error_cnt
292
ld_36:          ld      h,(ix+0)
293
                ld      a,(ix+0)
294
                cp      h
295
                jr      z,ld_37
296
                inc_error_cnt
297
ld_37:          cp      data_80
298
                jr      z,ld_38
299
                inc_error_cnt
300
ld_38:          ld      l,(ix-1)
301
                ld      a,(ix-1)
302
                cp      l
303
                jr      z,ld_39
304
                inc_error_cnt
305
ld_39:          cp      data_55
306
                jr      z,ld_40
307
                inc_error_cnt
308
ld_40:          ld      iy,var3
309
                ld      a,(iy-2)
310
                cp      data_ff
311
                jr      z,ld_41
312
                inc_error_cnt
313
ld_41:          ld      a,(iy+2)
314
                cp      data_7f
315
                jr      z,ld_42
316
                inc_error_cnt
317
ld_42:          ld      b,(iy-1)
318
                ld      a,(iy-1)
319
                cp      b
320
                jr      z,ld_43
321
                inc_error_cnt
322
ld_43:          cp      data_55
323
                jr      z,ld_44
324
                inc_error_cnt
325
ld_44:          ld      c,(iy+1)
326
                ld      a,(iy+1)
327
                cp      c
328
                jr      z,ld_45
329
                inc_error_cnt
330
ld_45:          cp      data_aa
331
                jr      z,ld_46
332
                inc_error_cnt
333
ld_46:          ld      d,(iy-2)
334
                ld      a,(iy-2)
335
                cp      d
336
                jr      z,ld_47
337
                inc_error_cnt
338
ld_47:          cp      data_ff
339
                jr      z,ld_48
340
                inc_error_cnt
341
ld_48:          ld      e,(iy+2)
342
                ld      a,(iy+2)
343
                cp      e
344
                jr      z,ld_49
345
                inc_error_cnt
346
ld_49:          cp      data_7f
347
                jr      z,ld_50
348
                inc_error_cnt
349
ld_50:          ld      h,(iy+0)
350
                ld      a,(iy+0)
351
                cp      h
352
                jr      z,ld_51
353
                inc_error_cnt
354
ld_51:          cp      data_80
355
                jr      z,ld_52
356
                inc_error_cnt
357
ld_52:          ld      l,(iy-2)
358
                ld      a,(iy-2)
359
                cp      l
360
                jr      z,ld_53
361
                inc_error_cnt
362
ld_53:          cp      data_ff
363
                jr      z,ld_54
364
                inc_error_cnt
365
ld_54:          ld      hl,t_var1
366
                ld      a,data_aa+1
367
                ld      (hl),a
368
                ld      b,(hl)
369
                cp      b
370
                jr      z,ld_55
371
                inc_error_cnt
372
ld_55:          cp      data_aa+1
373
                jr      z,ld_56
374
                inc_error_cnt
375
ld_56:          ld      b,data_80+1
376
                ld      (hl),b
377
                ld      a,(hl)
378
                cp      b
379
                jr      z,ld_57
380
                inc_error_cnt
381
ld_57:          cp      data_80+1
382
                jr      z,ld_58
383
                inc_error_cnt
384
ld_58:          ld      c,data_55-1
385
                ld      (hl),c
386
                ld      a,(hl)
387
                cp      c
388
                jr      z,ld_59
389
                inc_error_cnt
390
ld_59:          cp      data_55-1
391
                jr      z,ld_60
392
                inc_error_cnt
393
ld_60:          ld      d,data_ff-1
394
                ld      (hl),d
395
                ld      a,(hl)
396
                cp      d
397
                jr      z,ld_61
398
                inc_error_cnt
399
ld_61:          cp      data_ff-1
400
                jr      z,ld_62
401
                inc_error_cnt
402
ld_62:          ld      e,data_55+1
403
                ld      (hl),e
404
                ld      a,(hl)
405
                cp      e
406
                jr      z,ld_63
407
                inc_error_cnt
408
ld_63:          cp      data_55+1
409
                jr      z,ld_64
410
                inc_error_cnt
411
ld_64:          ld      (hl),h
412
                ld      a,(hl)
413
                cp      h
414
                jr      z,ld_65
415
                inc_error_cnt
416
ld_65:          cp      #70             ;bjp  guess  >t_var1
417
                jr      z,ld_66
418
                inc_error_cnt
419
ld_66:          ld      (hl),l
420
                ld      a,(hl)
421
                cp      l
422
                jr      z,ld_67
423
                inc_error_cnt
424
ld_67:          cp      a, #00          ;bjp  guess 
425
                jr      z,ld_68
426
                inc_error_cnt
427
ld_68:          ld      ix,t_var3
428
                ld      a,data_55
429
                ld      (ix-2),a
430
                ld      a,0
431
                ld      a,(ix-2)
432
                cp      data_55
433
                jr      z,ld_69
434
                inc_error_cnt
435
ld_69:          ld      a,data_80
436
                ld      (ix+2),a
437
                ld      a,0
438
                ld      a,(ix+2)
439
                cp      data_80
440
                jr      z,ld_70
441
                inc_error_cnt
442
ld_70:          ld      b,data_7f
443
                ld      (ix-1),b
444
                ld      a,(ix-1)
445
                cp      b
446
                jr      z,ld_71
447
                inc_error_cnt
448
ld_71:          cp      data_7f
449
                jr      z,ld_72
450
                inc_error_cnt
451
ld_72:          ld      c,data_aa
452
                ld      (ix+1),c
453
                ld      a,(ix+1)
454
                cp      c
455
                jr      z,ld_73
456
                inc_error_cnt
457
ld_73:          cp      data_aa
458
                jr      z,ld_74
459
                inc_error_cnt
460
ld_74:          ld      d,data_80
461
                ld      (ix+0),d
462
                ld      a,(ix+0)
463
                cp      d
464
                jr      z,ld_75
465
                inc_error_cnt
466
ld_75:          cp      data_80
467
                jr      z,ld_76
468
                inc_error_cnt
469
ld_76:          ld      e,data_55+2
470
                ld      (ix-2),e
471
                ld      a,(ix-2)
472
                cp      e
473
                jr      z,ld_77
474
                inc_error_cnt
475
ld_77:          cp      data_55+2
476
                jr      z,ld_78
477
                inc_error_cnt
478
ld_78:          ld      h,data_aa-2
479
                ld      (ix+2),h
480
                ld      a,(ix+2)
481
                cp      h
482
                jr      z,ld_79
483
                inc_error_cnt
484
ld_79:          cp      data_aa-2
485
                jr      z,ld_80
486
                inc_error_cnt
487
ld_80:          ld      l,data_aa+2
488
                ld      (ix-1),l
489
                ld      a,(ix-1)
490
                cp      l
491
                jr      z,ld_81
492
                inc_error_cnt
493
ld_81:          cp      data_aa+2
494
                jr      z,ld_82
495
                inc_error_cnt
496
ld_82:          ld      iy,t_var3
497
                ld      a,data_ff
498
                ld      (iy-2),a
499
                ld      a,0
500
                ld      a,(iy-2)
501
                cp      data_ff
502
                jr      z,ld_83
503
                inc_error_cnt
504
ld_83:          ld      a,data_7f
505
                ld      (iy+2),a
506
                ld      a,0
507
                ld      a,(iy+2)
508
                cp      data_7f
509
                jr      z,ld_84
510
                inc_error_cnt
511
ld_84:          ld      b,data_55
512
                ld      (iy-1),b
513
                ld      a,(iy-1)
514
                cp      b
515
                jr      z,ld_85
516
                inc_error_cnt
517
ld_85:          cp      data_55
518
                jr      z,ld_86
519
                inc_error_cnt
520
ld_86:          ld      c,data_aa
521
                ld      (iy+1),c
522
                ld      a,(iy+1)
523
                cp      c
524
                jr      z,ld_87
525
                inc_error_cnt
526
ld_87:          cp      data_aa
527
                jr      z,ld_88
528
                inc_error_cnt
529
ld_88:          ld      d,data_80
530
                ld      (iy+0),d
531
                ld      a,(iy+0)
532
                cp      d
533
                jr      z,ld_89
534
                inc_error_cnt
535
ld_89:          cp      data_80
536
                jr      z,ld_90
537
                inc_error_cnt
538
ld_90:          ld      e,data_ff-2
539
                ld      (iy-2),e
540
                ld      a,(iy-2)
541
                cp      e
542
                jr      z,ld_91
543
                inc_error_cnt
544
ld_91:          cp      data_ff-2
545
                jr      z,ld_92
546
                inc_error_cnt
547
ld_92:          ld      h,data_7f-3
548
                ld      (iy+2),h
549
                ld      a,(iy+2)
550
                cp      h
551
                jr      z,ld_93
552
                inc_error_cnt
553
ld_93:          cp      data_7f-3
554
                jr      z,ld_94
555
                inc_error_cnt
556
ld_94:          ld      l,data_55-5
557
                ld      (iy-1),l
558
                ld      a,(iy-1)
559
                cp      l
560
                jr      z,ld_95
561
                inc_error_cnt
562
ld_95:          cp      data_55-5
563
                jr      z,ld_96
564
                inc_error_cnt
565
ld_96:          ld      hl,t_var1
566
                ld      (hl),data_80+10
567
                ld      a,(hl)
568
                cp      data_80+10
569
                jr      z,ld_97
570
                inc_error_cnt
571
ld_97:          ld      ix,t_var3
572
                ld      (ix-2),data_55-10
573
                ld      a,(ix-2)
574
                cp      data_55-10
575
                jr      z,ld_98
576
                inc_error_cnt
577
ld_98:          ld      (ix+2),data_55+10
578
                ld      a,(ix+2)
579
                cp      data_55+10
580
                jr      z,ld_99
581
                inc_error_cnt
582
ld_99:          ld      iy,t_var2
583
                ld      (iy-1),data_80+17
584
                ld      a,(iy-1)
585
                cp      data_80+17
586
                jr      z,ld_100
587
                inc_error_cnt
588
ld_100:         ld      (iy+1),data_80-17
589
                ld      a,(iy+1)
590
                cp      data_80-17
591
                jr      z,ld_101
592
                inc_error_cnt
593
ld_101:         ld      hl,t_var5
594
                ld      bc,t_var5
595
                ld      (hl),data_aa-10
596
                ld      a,(bc)
597
                cp      data_aa-10
598
                jr      z,ld_102
599
                inc_error_cnt
600
ld_102:         ld      hl,t_var3
601
                ld      de,t_var3
602
                ld      (hl),data_aa+10
603
                ld      a,(de)
604
                cp      data_aa+10
605
                jr      z,ld_103
606
                inc_error_cnt
607
ld_103:         ld      hl,t_var2
608
                ld      (hl),data_7f-25
609
                ld      a,(t_var2)
610
                cp      data_7f-25
611
                jr      z,ld_104
612
                inc_error_cnt
613
ld_104:         ld      hl,t_var4
614
                ld      bc,t_var4
615
                ld      a,data_55-20
616
                ld      (bc),a
617
                ld      b,(hl)
618
                cp      b
619
                jr      z,ld_105
620
                inc_error_cnt
621
ld_105:         ld      a,b
622
                cp      data_55-20
623
                jr      z,ld_106
624
                inc_error_cnt
625
ld_106:         ld      hl,t_var5
626
                ld      de,t_var5
627
                ld      a,data_55+20
628
                ld      (de),a
629
                ld      c,(hl)
630
                cp      c
631
                jr      z,ld_107
632
                inc_error_cnt
633
ld_107:         ld      a,c
634
                cp      data_55+20
635
                jr      z,ld_108
636
                inc_error_cnt
637
ld_108:         ld      hl,t_var4
638
                ld      a,data_ff-24
639
                ld      (t_var4),a
640
                ld      e,(hl)
641
                cp      e
642
                jr      z,ld_109
643
                inc_error_cnt
644
ld_109:         ld      a,e
645
                cp      data_ff-24
646
                jr      z,ld_110
647
                inc_error_cnt
648
ld_110:         ld      a,data_55
649
                ld      i,a
650
                ld      a,0
651
                ld      a,i
652
                jr      nz,ld_111
653
                inc_error_cnt
654
ld_111:         jp      p,ld_112
655
                inc_error_cnt
656
ld_112:         cp      data_55
657
                jr      z,ld_113
658
                inc_error_cnt
659
ld_113:         ld      a,data_80
660
                ld      i,a
661
                ld      a,0
662
                ld      a,i
663
                jr      nz,ld_114
664
                inc_error_cnt
665
ld_114:         jp      m,ld_115
666
                inc_error_cnt
667
ld_115:         cp      data_80
668
                jr      z,ld_116
669
                inc_error_cnt
670
ld_116:         ld      a,0
671
                ld      i,a
672
                ld      a,data_55
673
                ld      a,i
674 25 bporcella
                jr      z,ld_125
675 20 bporcella
                inc_error_cnt
676 25 bporcella
;   refresh register not implemented
677
;   test for ie ?
678
;ld_117:                ld      a,data_55
679
;               ld      r,a
680
;               ld      a,0
681
;               ld      a,r
682
;               jp      p,ld_118
683
;               inc_error_cnt
684
;ld_118:                jr      nz,ld_119
685
;               inc_error_cnt
686
;ld_119:                ld      a,data_ff
687
;               ld      r,a
688
;               ld      a,0
689
;               ld      a,r
690
;               jp      m,ld_120
691
;               inc_error_cnt
692
;ld_120:                ld      a,4                     ;totally sequence dependent
693
;               ld      r,a
694
;               ld      a,data_55
695
;               ld      a,r
696
;               jr      z,ld_121
697
;               inc_error_cnt
698
;ld_121:                ei                              ;set iff2
699
;               ld      a,i
700
;               jp      pe,ld_122               ;iff2 was set
701
;               inc_error_cnt
702
;ld_122:                di                              ;clear iff2
703
;               ld      a,i
704
;               jp      po,ld_123               ;iff2 was cleared
705
;               inc_error_cnt
706
;ld_123:                ei                              ;set iff2
707
;               ld      a,r
708
;               jp      pe,ld_124               ;iff2 was set
709
;               inc_error_cnt
710
;ld_124:                di                              ;clear iff2
711
;               ld      a,r
712
;               jp      po,ld_125               ;iff2 was cleared
713
;               inc_error_cnt
714
;
715 20 bporcella
ld_125:         ld      bc,data_1234
716
                ld      a, #12                  ;bjp  guess >data_1234
717
                cp      b
718
                jr      z,ld_126
719
                inc_error_cnt
720
ld_126:         ld      a, #34                  ;bjp  guess  
721
                cp      c
722
                jr      z,ld_127
723
                inc_error_cnt
724
ld_127:         ld      de,data_55aa
725
                ld      a,data_55
726
                cp      d
727
                jr      z,ld_128
728
                inc_error_cnt
729
ld_128:         ld      a,data_aa
730
                cp      e
731
                jr      z,ld_129
732
                inc_error_cnt
733
ld_129:         ld      hl,data_7fff
734
                ld      a,data_7f
735
                cp      h
736
                jr      z,ld_130
737
                inc_error_cnt
738
ld_130:         ld      a,data_ff
739
                cp      l
740
                jr      z,ld_131
741
                inc_error_cnt
742
ld_131:         ld      sp,data_aa55
743
                ld      hl,0
744
                add     hl,sp
745
                ld      a,data_aa
746
                cp      h
747
                jr      z,ld_132
748
                inc_error_cnt
749
ld_132:         ld      a,data_55
750
                cp      l
751
                jr      z,ld_133
752
                inc_error_cnt
753
ld_133:         ld      ix,data_ffff
754
                ld      hl,0
755
                ld      sp,ix
756
                add     hl,sp
757
                ld      a,data_ff
758
                cp      h
759
                jr      z,ld_134
760
                inc_error_cnt
761
ld_134:         cp      l
762
                jr      z,ld_135
763
                inc_error_cnt
764
ld_135:         ld      iy,data_1234
765
                ld      hl,0
766
                ld      sp,iy
767
                add     hl,sp
768
                ld      a,#12      ;bjp was >data_1234
769
                cp      h
770
                jr      z,ld_136
771
                inc_error_cnt
772
ld_136:         ld      a,#34      ;bjp was >data_1234
773
                cp      l
774
                jr      z,ld_137
775
                inc_error_cnt
776
ld_137:         ld      hl,(w_var2)
777
                ld      a,data_55
778
                cp      h
779
                jr      z,ld_138
780
                inc_error_cnt
781
ld_138:         ld      a,data_aa
782
                cp      l
783
                jr      z,ld_139
784
                inc_error_cnt
785
ld_139:         ld      bc,(w_var1)
786
                ld      a,#12      ;bjp was >data_1234
787
                cp      b
788
                jr      z,ld_140
789
                inc_error_cnt
790
ld_140:         ld      a,#34      ;bjp was >data_1234
791
                cp      c
792
                jr      z,ld_141
793
                inc_error_cnt
794
ld_141:         ld      de,(w_var3)
795
                ld      a,data_7f
796
                cp      d
797
                jr      z,ld_142
798
                inc_error_cnt
799
ld_142:         ld      a,data_ff
800
                cp      e
801
                jr      z,ld_143
802
                inc_error_cnt
803
ld_143:         ld      hl,(w_var4)
804
                ld      a,data_80
805
                cp      h
806
                jr      z,ld_144
807
                inc_error_cnt
808
ld_144:         ld      a,0
809
                cp      l
810
                jr      z,ld_145
811
                inc_error_cnt
812
ld_145:         ld      sp,(w_var5)
813
                ld      hl,0
814
                add     hl,sp
815
                ld      a,data_aa
816
                cp      h
817
                jr      z,ld_146
818
                inc_error_cnt
819
ld_146:         ld      a,data_55
820
                cp      l
821
                jr      z,ld_147
822
                inc_error_cnt
823
ld_147:         ld      ix,(w_var6)
824
                ld      hl,0
825
                ld      sp,ix
826
                add     hl,sp
827
                ld      a,data_ff
828
                cp      h
829
                jr      z,ld_148
830
                inc_error_cnt
831
ld_148:         cp      l
832
                jr      z,ld_149
833
                inc_error_cnt
834
ld_149:         ld      iy,(w_var1)
835
                ld      hl,0
836
                ld      sp,iy
837
                add     hl,sp
838
                ld      a,#12      ;bjp was >data_1234
839
                cp      h
840
                jr      z,ld_150
841
                inc_error_cnt
842
ld_150:         ld      a,#34      ;bjp was >data_1234
843
                cp      l
844
                jr      z,ld_151
845
                inc_error_cnt
846
ld_151:         ld      hl,data_1234
847
                ld      (tw_var1),hl
848
                ld      bc,(tw_var1)
849
                ld      a,#12      ;bjp was >data_1234
850
                cp      b
851
                jr      z,ld_152
852
                inc_error_cnt
853
ld_152:         ld      a,#34      ;bjp was >data_1234
854
                cp      c
855
                jr      z,ld_153
856
                inc_error_cnt
857
ld_153:         ld      bc,data_55aa
858
                ld      (tw_var2),bc
859
                ld      hl,(tw_var2)
860
                ld      a,data_55
861
                cp      h
862
                jr      z,ld_154
863
                inc_error_cnt
864
ld_154:         ld      a,data_aa
865
                cp      l
866
                jr      z,ld_155
867
                inc_error_cnt
868
ld_155:         ld      de,data_7fff
869
                ld      (tw_var3),de
870
                ld      hl,(tw_var3)
871
                ld      a,data_7f
872
                cp      h
873
                jr      z,ld_156
874
                inc_error_cnt
875
ld_156:         ld      a,data_ff
876
                cp      l
877
                jr      z,ld_157
878
                inc_error_cnt
879
ld_157:         ld      hl,data_8000
880
                ld      (tw_var4),hl
881
                ld      bc,(tw_var4)
882
                ld      a,data_80
883
                cp      b
884
                jr      z,ld_158
885
                inc_error_cnt
886
ld_158:         ld      a,0
887
                cp      c
888
                jr      z,ld_159
889
                inc_error_cnt
890
ld_159:         ld      sp,data_aa55
891
                ld      (tw_var5),sp
892
                ld      hl,(tw_var5)
893
                ld      a,data_aa
894
                cp      h
895
                jr      z,ld_160
896
                inc_error_cnt
897
ld_160:         ld      a,data_55
898
                cp      l
899
                jr      z,ld_161
900
                inc_error_cnt
901
ld_161:         ld      ix,data_ffff
902
                ld      (tw_var6),ix
903
                ld      hl,(tw_var6)
904
                ld      a,data_ff
905
                cp      h
906
                jr      z,ld_162
907
                inc_error_cnt
908
ld_162:         cp      l
909
                jr      z,ld_163
910
                inc_error_cnt
911
ld_163:         ld      iy,data_1234
912
                ld      (tw_var7),iy
913
                ld      hl,(tw_var7)
914
                ld      a,#12      ;bjp was >data_1234
915
                cp      h
916
                jr      z,ld_164
917
                inc_error_cnt
918
ld_164:         ld      a,#34      ;bjp was >data_1234
919
                cp      l
920
                jr      z,ld_165
921
                inc_error_cnt
922
ld_165:         ld      hl,data_55aa
923
                ld      sp,hl
924
                ld      hl,0
925
                add     hl,sp
926
                ld      a,data_55
927
                cp      h
928
                jr      z,ld_166
929
                inc_error_cnt
930
ld_166:         ld      a,data_aa
931
                cp      l
932
                jr      z,push_0
933
                inc_error_cnt
934
push_0:         ld      sp,stack_end
935
                ld      bc,data_1234
936
                push    bc
937
                ld      bc,0
938
                pop     bc
939
                ld      a,#12      ;bjp was >data_1234
940
                cp      b
941
                jr      z,push_1
942
                inc_error_cnt
943
push_1:         ld      a,#34      ;bjp was >data_1234
944
                cp      c
945
                jr      z,push_2
946
                inc_error_cnt
947
push_2:         ld      de,data_55aa
948
                push    de
949
                ld      de,0
950
                pop     de
951
                ld      a,data_55
952
                cp      d
953
                jr      z,push_3
954
                inc_error_cnt
955
push_3:         ld      a,data_aa
956
                cp      e
957
                jr      z,push_4
958
                inc_error_cnt
959
push_4:         ld      hl,data_7fff
960
                push    hl
961
                ld      hl,0
962
                pop     hl
963
                ld      a,data_7f
964
                cp      h
965
                jr      z,push_5
966
                inc_error_cnt
967
push_5:         ld      a,data_ff
968
                cp      l
969
                jr      z,push_6
970
                inc_error_cnt
971
push_6:         ld      a,data_80
972
                push    af                      ;f depends on previous compare
973
                ld      hl,0
974
                pop     hl
975
                cp      h
976
                jr      z,push_7
977
                inc_error_cnt
978
push_7:         ld      a,l
979
                cp      #42
980
                jr      z,push_8
981
push_8:         ld      h,data_55
982
                ld      l,data_80+#41
983
                ld      a,0
984
                push    hl
985
                pop     af
986
                jp      m,push_9
987
                inc_error_cnt
988
push_9:         jr      z,push_10
989
                inc_error_cnt
990
push_10:        jr      c,push_11
991
                inc_error_cnt
992
push_11:        cp      data_55
993
                jr      z,push_12
994
                inc_error_cnt
995
push_12:        ld      ix,data_aa55
996
                ld      bc,0
997
                push    ix
998
                pop     bc
999
                ld      a,data_aa
1000
                cp      b
1001
                jr      z,push_13
1002
                inc_error_cnt
1003
push_13:        ld      a,data_55
1004
                cp      c
1005
                jr      z,push_14
1006
                inc_error_cnt
1007
push_14:        ld      iy,data_7fff
1008
                ld      de,0
1009
                push    iy
1010
                pop     de
1011
                ld      a,data_7f
1012
                cp      d
1013
                jr      z,push_15
1014
                inc_error_cnt
1015
push_15:        ld      a,data_ff
1016
                cp      e
1017
                jr      z,push_16
1018
                inc_error_cnt
1019
push_16:        ld      de,data_1234
1020
                ld      ix,0
1021
                ld      hl,0
1022
                push    de
1023
                pop     ix
1024
                ld      sp,ix
1025
                add     hl,sp
1026
                ld      a,#12      ;bjp was >data_1234
1027
                cp      h
1028
                jr      z,push_17
1029
                inc_error_cnt
1030
push_17:        ld      a,#34      ;bjp was >data_1234
1031
                cp      l
1032
                jr      z,push_18
1033
                inc_error_cnt
1034
push_18:        ld      sp,stack_end
1035
                ld      bc,data_55aa
1036
                ld      iy,0
1037
                ld      hl,0
1038
                push    bc
1039
                pop     iy
1040
                ld      sp,iy
1041
                add     hl,sp
1042
                ld      a,data_55
1043
                cp      h
1044
                jr      z,push_19
1045
                inc_error_cnt
1046
push_19:        ld      a,data_aa
1047
                cp      l
1048
                jr      z,push_20
1049
                inc_error_cnt
1050
push_20:        ld      sp,stack_end
1051
ex_0:           ld      de,data_1234
1052 32 bporcella
                ld      hl,data_55aa   ; 10/2/2007 was ffff  need to check all bytes (missed a bug)
1053 20 bporcella
                ex      de,hl
1054 32 bporcella
                ld      a,data_55
1055 20 bporcella
                cp      d
1056
                jr      z,ex_1
1057
                inc_error_cnt
1058 32 bporcella
ex_1:           ld      a,data_aa
1059
                cp      e
1060 20 bporcella
                jr      z,ex_2
1061
                inc_error_cnt
1062
ex_2:           ld      a,#12      ;bjp was >data_1234
1063
                cp      h
1064
                jr      z,ex_3
1065
                inc_error_cnt
1066
ex_3:           ld      a,#34      ;bjp was >data_1234
1067
                cp      l
1068
                jr      z,ex_4
1069
                inc_error_cnt
1070
ex_4:           ld      h,0
1071
                ld      l,0
1072
                push    hl
1073
                pop     af
1074
                ex      af,af'
1075
                ld      h,data_7f
1076
                ld      l,data_80+#41
1077
                push    hl
1078
                pop     af
1079
                ex      af,af'
1080
                cp      0
1081
                jr      z,ex_5
1082
                inc_error_cnt
1083
ex_5:           ex      af,af'
1084
                jp      m,ex_6
1085
                inc_error_cnt
1086
ex_6:           jr      z,ex_7
1087
                inc_error_cnt
1088
ex_7:           cp      data_7f
1089
                jr      z,ex_8
1090
                inc_error_cnt
1091
ex_8:           ld      hl,0
1092
                ld      bc,0
1093
                ld      de,0
1094
                exx
1095
                ld      hl,data_1234
1096
                ld      bc,data_7fff
1097
                ld      de,data_aa55
1098
                exx
1099
                ld      a,0
1100
                cp      h
1101
                jr      z,ex_9
1102
                inc_error_cnt
1103
ex_9:           cp      l
1104
                jr      z,ex_10
1105
                inc_error_cnt
1106
ex_10:          cp      d
1107
                jr      z,ex_11
1108
                inc_error_cnt
1109
ex_11:          cp      e
1110
                jr      z,ex_12
1111
                inc_error_cnt
1112
ex_12:          cp      b
1113
                jr      z,ex_13
1114
                inc_error_cnt
1115
ex_13:          cp      c
1116
                jr      z,ex_14
1117
                inc_error_cnt
1118
ex_14:          exx
1119
                ld      a,#12      ;bjp was >data_1234
1120
                cp      h
1121
                jr      z,ex_15
1122
                inc_error_cnt
1123
ex_15:          ld      a,#34      ;bjp was >data_1234
1124
                cp      l
1125
                jr      z,ex_16
1126
                inc_error_cnt
1127
ex_16:          ld      a,data_aa
1128
                cp      d
1129
                jr      z,ex_17
1130
                inc_error_cnt
1131
ex_17:          ld      a,data_55
1132
                cp      e
1133
                jr      z,ex_18
1134
                inc_error_cnt
1135
ex_18:          ld      a,data_7f
1136
                cp      b
1137
                jr      z,ex_19
1138
                inc_error_cnt
1139
ex_19:          ld      a,data_ff
1140
                cp      c
1141
                jr      z,ex_20
1142
                inc_error_cnt
1143
ex_20:          ld      bc,data_55aa
1144
                ld      hl,data_7fff
1145
                push    bc
1146
                ex      (sp),hl
1147
                pop     bc
1148
                ld      a,data_7f
1149
                cp      b
1150
                jr      z,ex_21
1151
                inc_error_cnt
1152
ex_21:          ld      a,data_ff
1153
                cp      c
1154
                jr      z,ex_22
1155
                inc_error_cnt
1156
ex_22:          ld      a,data_55
1157
                cp      h
1158
                jr      z,ex_23
1159
                inc_error_cnt
1160
ex_23:          ld      a,data_aa
1161
                cp      l
1162
                jr      z,ex_24
1163
                inc_error_cnt
1164
ex_24:          ld      bc,data_ffff
1165
                ld      ix,data_8000
1166
                ld      hl,0
1167
                push    bc
1168
                ex      (sp),ix
1169
                pop     bc
1170
                ld      sp,ix
1171
                add     hl,sp
1172
                ld      a,data_80
1173
                cp      b
1174
                jr      z,ex_25
1175
                inc_error_cnt
1176
ex_25:          ld      a,0
1177
                cp      c
1178
                jr      z,ex_26
1179
                inc_error_cnt
1180
ex_26:          ld      a,data_ff
1181
                cp      h
1182
                jr      z,ex_27
1183
                inc_error_cnt
1184
ex_27:          cp      l
1185
                jr      z,ex_28
1186
                inc_error_cnt
1187
ex_28:          ld      sp,stack_end
1188
                ld      bc,data_1234
1189
                ld      iy,data_7fff
1190
                ld      hl,0
1191
                push    bc
1192
                ex      (sp),iy
1193
                pop     bc
1194
                ld      sp,iy
1195
                add     hl,sp
1196
                ld      a,data_7f
1197
                cp      b
1198
                jr      z,ex_29
1199
                inc_error_cnt
1200
ex_29:          ld      a,data_ff
1201
                cp      c
1202
                jr      z,ex_30
1203
                inc_error_cnt
1204
ex_30:          ld      a,#12      ;bjp was >data_1234
1205
                cp      h
1206
                jr      z,ex_31
1207
                inc_error_cnt
1208
ex_31:          ld      a,#34      ;bjp was >data_1234
1209
                cp      l
1210
                jr      z,add_0
1211
                inc_error_cnt
1212
add_0:          ld      a,0
1213
                ld      b,data_7f
1214
                add     a,b
1215
                cp      data_7f
1216
                jr      z,add_1
1217
                inc_error_cnt
1218
add_1:          ld      a,0
1219
                ld      b,0
1220
                add     a,b
1221
                jr      z,add_2
1222
                inc_error_cnt
1223
add_2:          ld      b,data_55
1224
                add     a,b
1225
                jr      nz,add_3
1226
                inc_error_cnt
1227
add_3:          cp      data_55
1228
                jr      z,add_4
1229
                inc_error_cnt
1230
add_4:          ld      a,data_ff
1231
                ld      b,1
1232
                add     a,b
1233
                jr      c,add_5
1234
                inc_error_cnt
1235
add_5:          add     a,b
1236
                jr      nc,add_6
1237
                inc_error_cnt
1238
add_6:          ld      a,data_ff
1239
                ld      b,0
1240
                add     a,b
1241
                jp      m,add_7
1242
                inc_error_cnt
1243
add_7:          ld      b,1
1244
                add     a,b
1245
                jp      p,add_8
1246
                inc_error_cnt
1247
add_8:          ld      a,data_7f
1248
                ld      b,1
1249
                add     a,b
1250
                jp      pe,add_9
1251
                inc_error_cnt
1252
add_9:          add     a,b
1253
                jp      po,add_10
1254
                inc_error_cnt
1255
add_10:         ld      a,data_55
1256
                ld      c,2
1257
                add     a,c
1258
                cp      data_55+2
1259
                jr      z,add_11
1260
                inc_error_cnt
1261
add_11:         ld      a,data_80
1262
                add     a,c
1263
                cp      data_80+2
1264
                jr      z,add_12
1265
                inc_error_cnt
1266
add_12:         ld      a,data_aa
1267
                ld      d,data_55
1268
                add     a,d
1269
                cp      data_aa+data_55
1270
                jr      z,add_13
1271
                inc_error_cnt
1272
add_13:         ld      a,data_aa
1273
                ld      e,2
1274
                add     a,e
1275
                cp      data_aa+2
1276
                jr      z,add_14
1277
                inc_error_cnt
1278
add_14:         ld      a,data_55
1279
                ld      h,24
1280
                add     a,h
1281
                cp      data_55+24
1282
                jr      z,add_15
1283
                inc_error_cnt
1284
add_15:         ld      a,data_7f-10
1285
                ld      l,10
1286
                add     a,l
1287
                cp      data_7f
1288
                jr      z,add_16
1289
                inc_error_cnt
1290
add_16:         ld      a,1
1291
                add     a,data_7f
1292
                jp      pe,add_17
1293
                inc_error_cnt
1294
add_17:         jp      m,add_18
1295
                inc_error_cnt
1296
add_18:         jr      nz,add_19
1297
                inc_error_cnt
1298
add_19:         cp      data_80
1299
                jr      z,add_20
1300
                inc_error_cnt
1301
add_20:         ld      a,data_55
1302
                add     a,1
1303
                jp      po,add_21
1304
                inc_error_cnt
1305
add_21:         jp      p,add_22
1306
                inc_error_cnt
1307
add_22:         jr      nc,add_23
1308
                inc_error_cnt
1309
add_23:         cp      data_55+1
1310
                jr      z,add_24
1311
                inc_error_cnt
1312
add_24:         ld      a,data_ff
1313
                add     a,1
1314
                jr      c,add_25
1315
                inc_error_cnt
1316
add_25:         jr      z,add_26
1317
                inc_error_cnt
1318
add_26:         add     a,1
1319
                jr      nc,add_27
1320
                inc_error_cnt
1321
add_27:         jr      nz,add_28
1322
                inc_error_cnt
1323
add_28:         cp      1
1324
                jr      z,add_29
1325
                inc_error_cnt
1326
add_29:         ld      hl,var2
1327
                ld      a,2
1328
                add     a,(hl)
1329
                jp      po,add_30
1330
                inc_error_cnt
1331
add_30:         jp      p,add_31
1332
                inc_error_cnt
1333
add_31:         jr      nz,add_32
1334
                inc_error_cnt
1335
add_32:         jr      nc,add_33
1336
                inc_error_cnt
1337
add_33:         cp      data_55+2
1338
                jr      z,add_34
1339
                inc_error_cnt
1340
add_34:         ld      hl,var1
1341
                ld      a,1
1342
                add     a,(hl)
1343
                jr      c,add_35
1344
                inc_error_cnt
1345
add_35:         jr      z,add_36
1346
                inc_error_cnt
1347
add_36:         ld      hl,var5
1348
                ld      a,1
1349
                add     a,(hl)
1350
                jp      m,add_37
1351
                inc_error_cnt
1352
add_37:         jp      pe,add_38
1353
                inc_error_cnt
1354
add_38:         cp      data_80
1355
                jr      z,add_39
1356
                inc_error_cnt
1357
add_39:         ld      ix,var3
1358
                ld      a,1
1359
                add     a,(ix-1)
1360
                jp      po,add_40
1361
                inc_error_cnt
1362
add_40:         jp      p,add_41
1363
                inc_error_cnt
1364
add_41:         jr      nz,add_42
1365
                inc_error_cnt
1366
add_42:         jr      nc,add_43
1367
                inc_error_cnt
1368
add_43:         cp      data_55+1
1369
                jr      z,add_44
1370
                inc_error_cnt
1371
add_44:         ld      a,1
1372
                add     a,(ix+2)
1373
                jp      pe,add_45
1374
                inc_error_cnt
1375
add_45:         jp      m,add_46
1376
                inc_error_cnt
1377
add_46:         cp      data_80
1378
                jr      z,add_47
1379
                inc_error_cnt
1380
add_47:         ld      a,1
1381
                add     a,(ix-2)
1382
                jr      c,add_48
1383
                inc_error_cnt
1384
add_48:         jr      z,add_49
1385
                inc_error_cnt
1386
add_49:         add     a,1
1387
                jr      nc,add_50
1388
                inc_error_cnt
1389
add_50:         jr      nz,add_51
1390
                inc_error_cnt
1391
add_51:         cp      1
1392
                jr      z,add_52
1393
                inc_error_cnt
1394
add_52:         ld      iy,var3
1395
                ld      a,10
1396
                add     a,(iy-1)
1397
                jp      po,add_53
1398
                inc_error_cnt
1399
add_53:         jp      p,add_54
1400
                inc_error_cnt
1401
add_54:         jr      nz,add_55
1402
                inc_error_cnt
1403
add_55:         jr      nc,add_56
1404
                inc_error_cnt
1405
add_56:         cp      data_55+10
1406
                jr      z,add_57
1407
                inc_error_cnt
1408
add_57:         ld      a,1
1409
                add     a,(iy+2)
1410
                jp      pe,add_58
1411
                inc_error_cnt
1412
add_58:         jp      m,add_59
1413
                inc_error_cnt
1414
add_59:         add     a,1
1415
                jp      po,add_60
1416
                inc_error_cnt
1417
add_60:         cp      data_80+1
1418
                jr      z,add_61
1419
                inc_error_cnt
1420
add_61:         ld      a,1
1421
                add     a,(iy-2)
1422
                jr      z,add_62
1423
                inc_error_cnt
1424
add_62:         jr      c,add_63
1425
                inc_error_cnt
1426
add_63:         add     a,1
1427
                jr      nc,add_64
1428
                inc_error_cnt
1429
add_64:         jr      nz,add_65
1430
                inc_error_cnt
1431
add_65:         cp      1
1432
                jr      z,add_66
1433
                inc_error_cnt
1434
add_66:         ld      a,data_ff
1435
                add     a,data_80
1436
                jp      p,add_67
1437
                inc_error_cnt
1438
add_67:         jp      pe,add_68
1439
                inc_error_cnt
1440
add_68:         jr      c,add_69
1441
                inc_error_cnt
1442
add_69:         add     a,1
1443
                jp      pe,add_70
1444
                inc_error_cnt
1445
add_70:         jp      m,add_71
1446
                inc_error_cnt
1447
add_71:         jr      nc,add_72
1448
                inc_error_cnt
1449
add_72:         add     a,1
1450
                jp      po,add_73
1451
                inc_error_cnt
1452
add_73:         cp      data_80+1
1453
                jr      z,adc_0
1454
                inc_error_cnt
1455 25 bporcella
adc_0:          ld      a,0                 ;clear cry
1456 20 bporcella
                add     a,0
1457
                ld      b,data_7f
1458 25 bporcella
                adc     a,b                  ;a=7f cry=0
1459 20 bporcella
                jp      p,adc_1
1460
                inc_error_cnt
1461
adc_1:          jp      po,adc_2
1462
                inc_error_cnt
1463
adc_2:          jr      nc,adc_3
1464
                inc_error_cnt
1465
adc_3:          jr      nz,adc_4
1466
                inc_error_cnt
1467
adc_4:          ld      b,1
1468 25 bporcella
                adc     a,b                     ;a=80 cry=0
1469
                jp      pe,adc_5                ;jp  ofl
1470 20 bporcella
                inc_error_cnt
1471
adc_5:          jp      m,adc_6
1472
                inc_error_cnt
1473
adc_6:          cp      data_80
1474 25 bporcella
                jr      z,adc_7                 ;z=0  ofl=0 cry=0 (borrow)
1475 20 bporcella
                inc_error_cnt
1476
adc_7:          ld      a,data_ff
1477
                ld      b,1
1478 25 bporcella
                adc     a,b                      ;ff+1+0
1479 20 bporcella
                jr      c,adc_8
1480
                inc_error_cnt
1481
adc_8:          jr      z,adc_9
1482
                inc_error_cnt
1483
adc_9:          adc     a,b
1484
                jr      nc,adc_10
1485
                inc_error_cnt
1486
adc_10:         jr      nz,adc_11
1487
                inc_error_cnt
1488
adc_11:         cp      2
1489
                jr      z,adc_12
1490
                inc_error_cnt
1491
adc_12:         ld      a,data_ff
1492
                ld      c,0
1493
                adc     a,c
1494
                jp      m,adc_13
1495
                inc_error_cnt
1496
adc_13:         jr      nc,adc_14
1497
                inc_error_cnt
1498
adc_14:         ld      c,2
1499
                adc     a,c
1500
                jp      p,adc_15
1501
                inc_error_cnt
1502
adc_15:         jr      c,adc_16
1503
                inc_error_cnt
1504
adc_16:         ld      c,0
1505
                adc     a,c
1506
                cp      2
1507
                jr      z,adc_17
1508
                inc_error_cnt
1509
adc_17:         ld      a,data_ff
1510
                ld      d,1
1511
                adc     a,d
1512
                jr      c,adc_18
1513
                inc_error_cnt
1514
adc_18:         ld      d,0
1515
                adc     a,d
1516
                jr      nc,adc_19
1517
                inc_error_cnt
1518
adc_19:         cp      1
1519
                jr      z,adc_20
1520
                inc_error_cnt
1521
adc_20:         ld      a,data_aa
1522
                ld      e,data_7f
1523
                adc     a,e
1524
                jr      c,adc_21
1525
                inc_error_cnt
1526
adc_21:         ld      e,#2b
1527
                adc     a,e
1528
                cp      data_55
1529
                jr      z,adc_22
1530
                inc_error_cnt
1531
adc_22:         ld      a,data_ff
1532
                ld      h,1
1533
                adc     a,h
1534
                jr      c,adc_23
1535
                inc_error_cnt
1536
adc_23:         adc     a,h
1537
                cp      2
1538
                jr      z,adc_24
1539
                inc_error_cnt
1540
adc_24:         ld      a,data_ff
1541
                ld      l,1
1542
                adc     a,l
1543
                jr      c,adc_25
1544
                inc_error_cnt
1545
adc_25:         adc     a,l
1546
                cp      2
1547
                jr      z,adc_26
1548
                inc_error_cnt
1549
adc_26:         ld      a,0
1550
                adc     a,data_7f
1551
                jp      po,adc_27
1552
                inc_error_cnt
1553
adc_27:         jp      p,adc_28
1554
                inc_error_cnt
1555
adc_28:         jr      nc,adc_29
1556
                inc_error_cnt
1557
adc_29:         jr      nz,adc_30
1558
                inc_error_cnt
1559
adc_30:         adc     a,1
1560
                jp      pe,adc_31
1561
                inc_error_cnt
1562
adc_31:         jp      m,adc_32
1563
                inc_error_cnt
1564
adc_32:         cp      data_80
1565
                jr      z,adc_33
1566
                inc_error_cnt
1567
adc_33:         ld      a,data_ff
1568
                adc     a,1
1569
                jr      c,adc_34
1570
                inc_error_cnt
1571
adc_34:         jr      z,adc_35
1572
                inc_error_cnt
1573
adc_35:         adc     a,1
1574
                jr      nc,adc_36
1575
                inc_error_cnt
1576
adc_36:         jr      nz,adc_37
1577
                inc_error_cnt
1578
adc_37:         cp      2
1579
                jr      z,adc_38
1580
                inc_error_cnt
1581
adc_38:         ld      hl,var5
1582
                ld      a,0
1583
                adc     a,(hl)
1584
                jp      p,adc_39
1585
                inc_error_cnt
1586
adc_39:         jp      po,adc_40
1587
                inc_error_cnt
1588
adc_40:         jr      nz,adc_41
1589
                inc_error_cnt
1590
adc_41:         jr      nc,adc_42
1591
                inc_error_cnt
1592
adc_42:         ld      a,1
1593
                adc     a,(hl)
1594
                jp      m,adc_43
1595
                inc_error_cnt
1596
adc_43:         jp      pe,adc_44
1597
                inc_error_cnt
1598
adc_44:         cp      data_80
1599
                jr      z,adc_45
1600
                inc_error_cnt
1601
adc_45:         ld      hl,var1
1602
                ld      a,1
1603
                adc     a,(hl)
1604
                jr      z,adc_46
1605
                inc_error_cnt
1606
adc_46:         jr      c,adc_47
1607
                inc_error_cnt
1608
adc_47:         ld      hl,var2
1609
                adc     a,(hl)
1610
                jr      nc,adc_48
1611
                inc_error_cnt
1612
adc_48:         jr      nz,adc_49
1613
                inc_error_cnt
1614
adc_49:         cp      data_55+1
1615
                jr      z,adc_50
1616
                inc_error_cnt
1617
adc_50:         ld      ix,var3
1618
                ld      a,0
1619
                adc     a,(ix+2)
1620
                jp      p,adc_51
1621
                inc_error_cnt
1622
adc_51:         jp      po,adc_52
1623
                inc_error_cnt
1624
adc_52:         jr      nc,adc_53
1625
                inc_error_cnt
1626
adc_53:         jr      nz,adc_54
1627
                inc_error_cnt
1628
adc_54:         ld      a,1
1629
                adc     a,(ix+2)
1630
                jp      m,adc_55
1631
                inc_error_cnt
1632
adc_55:         jp      pe,adc_56
1633
                inc_error_cnt
1634
adc_56:         cp      data_80
1635
                jr      z,adc_57
1636
                inc_error_cnt
1637
adc_57:         ld      a,1
1638
                adc     a,(ix-2)
1639
                jr      c,adc_58
1640
                inc_error_cnt
1641
adc_58:         jr      z,adc_59
1642
                inc_error_cnt
1643
adc_59:         adc     a,(ix-1)
1644
                jr      nc,adc_60
1645
                inc_error_cnt
1646
adc_60:         jr      nz,adc_61
1647
                inc_error_cnt
1648
adc_61:         cp      data_55+1
1649
                jr      z,adc_62
1650
                inc_error_cnt
1651
adc_62:         ld      iy,var3
1652
                ld      a,0
1653
                adc     a,(ix+2)
1654
                jp      p,adc_63
1655
                inc_error_cnt
1656
adc_63:         jp      po,adc_64
1657
                inc_error_cnt
1658
adc_64:         jr      nc,adc_65
1659
                inc_error_cnt
1660
adc_65:         jr      nz,adc_66
1661
                inc_error_cnt
1662
adc_66:         ld      a,1
1663
                adc     a,(iy+2)
1664
                jp      m,adc_67
1665
                inc_error_cnt
1666
adc_67:         jp      pe,adc_68
1667
                inc_error_cnt
1668
adc_68:         cp      data_80
1669
                jr      z,adc_69
1670
                inc_error_cnt
1671
adc_69:         ld      a,1
1672
                adc     a,(iy-2)
1673
                jr      c,adc_70
1674
                inc_error_cnt
1675
adc_70:         jr      z,adc_71
1676
                inc_error_cnt
1677
adc_71:         adc     a,(iy-1)
1678
                jr      nc,adc_72
1679
                inc_error_cnt
1680
adc_72:         jr      nz,adc_73
1681
                inc_error_cnt
1682
adc_73:         cp      data_55+1
1683
                jr      z,adc_74
1684
                inc_error_cnt
1685
adc_74:         ld      a,data_ff
1686
                add     a,0
1687
                adc     a,data_80
1688
                jp      p,adc_75
1689
                inc_error_cnt
1690
adc_75:         jp      pe,adc_76
1691
                inc_error_cnt
1692
adc_76:         jr      nz,adc_77
1693
                inc_error_cnt
1694
adc_77:         adc     a,0
1695
                jp      m,adc_78
1696
                inc_error_cnt
1697
adc_78:         jp      pe,adc_79
1698
                inc_error_cnt
1699
adc_79:         adc     a,1
1700
                jp      po,adc_80
1701
                inc_error_cnt
1702
adc_80:         cp      data_80+1
1703
                jr      z,sub_0
1704
                inc_error_cnt
1705
sub_0:          ld      a,0
1706
                ld      b,1
1707
                sub     a,b
1708
                jp      m,sub_1
1709
                inc_error_cnt
1710
sub_1:          jp      po,sub_2
1711
                inc_error_cnt
1712
sub_2:          jr      c,sub_3
1713
                inc_error_cnt
1714
sub_3:          jr      nz,sub_4
1715
                inc_error_cnt
1716
sub_4:          sub     a,b
1717
                jr      nc,sub_5
1718
                inc_error_cnt
1719
sub_5:          cp      data_ff-1
1720
                jr      z,sub_6
1721
                inc_error_cnt
1722
sub_6:          ld      a,1
1723
                ld      b,0
1724
                sub     a,b
1725
                jr      nz,sub_7
1726
                inc_error_cnt
1727
sub_7:          jp      p,sub_8
1728
                inc_error_cnt
1729
sub_8:          ld      b,1
1730
                sub     a,b
1731
                jr      z,sub_9
1732
                inc_error_cnt
1733
sub_9:          sub     a,b
1734
                jp      m,sub_10
1735
                inc_error_cnt
1736
sub_10:         cp      data_ff
1737
                jr      z,sub_11
1738
                inc_error_cnt
1739
sub_11:         ld      a,data_80
1740
                ld      b,data_7f
1741
                sub     a,b
1742
                jp      pe,sub_12
1743
                inc_error_cnt
1744
sub_12:         sub     a,b
1745
                jp      po,sub_13
1746
                inc_error_cnt
1747
sub_13:         cp      data_80+2
1748
                jr      z,sub_14
1749
                inc_error_cnt
1750
sub_14:         ld      a,data_55
1751
                ld      c,data_55
1752
                sub     a,c
1753
                jr      z,sub_15
1754
                inc_error_cnt
1755
sub_15:         ld      c,1
1756
                sub     a,c
1757
                jp      m,sub_16
1758
                inc_error_cnt
1759
sub_16:         jr      c,sub_17
1760
                inc_error_cnt
1761
sub_17:         cp      data_ff
1762
                jr      z,sub_18
1763
                inc_error_cnt
1764
sub_18:         ld      a,data_55
1765
                ld      d,data_7f
1766
                sub     a,d
1767
                jr      c,sub_19
1768
                inc_error_cnt
1769
sub_19:         cp      data_55-data_7f
1770
                jr      z,sub_20
1771
                inc_error_cnt
1772
sub_20:         ld      a,0
1773
                ld      e,data_ff
1774
                sub     a,e
1775
                jr      c,sub_21
1776
                inc_error_cnt
1777
sub_21:         cp      1
1778
                jr      z,sub_22
1779
                inc_error_cnt
1780
sub_22:         ld      a,data_ff
1781
                ld      h,data_80
1782
                sub     a,h
1783
                jp      p,sub_23
1784
                inc_error_cnt
1785
sub_23:         cp      data_7f
1786
                jr      z,sub_24
1787
                inc_error_cnt
1788
sub_24:         ld      a,data_aa
1789
                ld      l,data_ff
1790
                sub     a,l
1791
                jr      c,sub_25
1792
                inc_error_cnt
1793
sub_25:         cp      data_aa+1
1794
                jr      z,sub_26
1795
                inc_error_cnt
1796
sub_26:         ld      a,data_7f
1797
                sub     a,data_ff
1798
                jp      pe,sub_27
1799
                inc_error_cnt
1800
sub_27:         jp      m,sub_28
1801
                inc_error_cnt
1802
sub_28:         sub     a,1
1803
                jp      p,sub_29
1804
                inc_error_cnt
1805
sub_29:         sub     a,1
1806
                jp      po,sub_30
1807
                inc_error_cnt
1808
sub_30:         jr      nz,sub_31
1809
                inc_error_cnt
1810
sub_31:         sub     a,data_7f-1
1811
                jr      z,sub_32
1812
                inc_error_cnt
1813
sub_32:         ld      a,0
1814
                sub     a,data_ff
1815
                jr      c,sub_33
1816
                inc_error_cnt
1817
sub_33:         sub     a,1
1818
                jr      z,sub_34
1819
                inc_error_cnt
1820
sub_34:         jr      nc,sub_35
1821
                inc_error_cnt
1822
sub_35:         ld      hl,var1
1823
                ld      a,data_7f
1824
                sub     a,(hl)
1825
                jp      m,sub_36
1826
                inc_error_cnt
1827
sub_36:         jp      pe,sub_37
1828
                inc_error_cnt
1829
sub_37:         jr      c,sub_38
1830
                inc_error_cnt
1831
sub_38:         ld      hl,var3
1832
                sub     a,(hl)
1833
                jp      p,sub_39
1834
                inc_error_cnt
1835
sub_39:         jp      po,sub_40
1836
                inc_error_cnt
1837
sub_40:         jr      nc,sub_41
1838
                inc_error_cnt
1839
sub_41          jr      z,sub_42
1840
                inc_error_cnt
1841
sub_42:         ld      hl,var2
1842
                sub     a,(hl)
1843
                jr      nz,sub_43
1844
                inc_error_cnt
1845
sub_43:         cp      data_aa+1
1846
                jr      z,sub_44
1847
                inc_error_cnt
1848
sub_44:         ld      ix,var3
1849
                ld      a,data_7f
1850
                sub     a,(ix-2)
1851
                jp      m,sub_45
1852
                inc_error_cnt
1853
sub_45:         jp      pe,sub_46
1854
                inc_error_cnt
1855
sub_46:         jr      c,sub_47
1856
                inc_error_cnt
1857
sub_47:         sub     a,(ix+0)
1858
                jp      p,sub_48
1859
                inc_error_cnt
1860
sub_48:         jp      po,sub_49
1861
                inc_error_cnt
1862
sub_49:         jr      nc,sub_50
1863
                inc_error_cnt
1864
sub_50:         jr      z,sub_51
1865
                inc_error_cnt
1866
sub_51:         sub     a,(ix+2)
1867
                jr      nz,sub_52
1868
                inc_error_cnt
1869
sub_52:         cp      data_80+1
1870
                jr      z,sub_53
1871
                inc_error_cnt
1872
sub_53:         ld      iy,var3
1873
                ld      a,data_7f
1874
                sub     a,(iy-2)
1875
                jp      m,sub_54
1876
                inc_error_cnt
1877
sub_54:         jp      pe,sub_55
1878
                inc_error_cnt
1879
sub_55:         jr      c,sub_56
1880
                inc_error_cnt
1881
sub_56:         jr      nz,sub_57
1882
                inc_error_cnt
1883
sub_57:         sub     a,(iy+0)
1884
                jp      p,sub_58
1885
                inc_error_cnt
1886
sub_58:         jp      po,sub_59
1887
                inc_error_cnt
1888
sub_59:         jr      nc,sub_60
1889
                inc_error_cnt
1890
sub_60:         jr      z,sub_61
1891
                inc_error_cnt
1892
sub_61:         sub     a,(iy+2)
1893
                jr      nz,sub_62
1894
                inc_error_cnt
1895
sub_62:         cp      data_80+1
1896
                jr      z,sbc_0
1897
                inc_error_cnt
1898
sbc_0:          ld      a,data_7f
1899
                ld      b,0
1900
                sub     a,b                     ;clear carry flag
1901
                ld      b,data_ff
1902
                sbc     a,b
1903
                jp      m,sbc_1
1904
                inc_error_cnt
1905
sbc_1:          jp      pe,sbc_2
1906
                inc_error_cnt
1907
sbc_2:          jr      c,sbc_3
1908
                inc_error_cnt
1909
sbc_3:          jr      nz,sbc_4
1910
                inc_error_cnt
1911
sbc_4:          ld      b,data_7f
1912
                sbc     a,b
1913
                jp      p,sbc_5
1914
                inc_error_cnt
1915
sbc_5:          jp      pe,sbc_6
1916
                inc_error_cnt
1917
sbc_6:          jr      nc,sbc_7
1918
                inc_error_cnt
1919
sbc_7:          jr      z,sbc_8
1920
                inc_error_cnt
1921
sbc_8:          ld      b,data_ff
1922
                sbc     a,b
1923
                jp      po,sbc_9
1924
                inc_error_cnt
1925
sbc_9:          jr      nz,sbc_10
1926
                inc_error_cnt
1927
sbc_10:         ld      b,0
1928
                sbc     a,b
1929
                jr      z,sbc_11
1930
                inc_error_cnt
1931
sbc_11:         ld      a,data_aa
1932
                ld      c,data_ff
1933
                sbc     a,c
1934
                jr      c,sbc_12
1935
                inc_error_cnt
1936
sbc_12:         ld      c,0
1937
                sbc     a,c
1938
                jr      nc,sbc_13
1939
                inc_error_cnt
1940
sbc_13:         cp      data_aa
1941
                jr      z,sbc_14
1942
                inc_error_cnt
1943
sbc_14:         ld      a,data_55
1944
                ld      d,data_ff
1945
                sbc     a,d
1946
                jr      c,sbc_15
1947
                inc_error_cnt
1948
sbc_15:         ld      d,0
1949
                sbc     a,d
1950
                jr      nc,sbc_16
1951
                inc_error_cnt
1952
sbc_16:         cp      data_55
1953
                jr      z,sbc_17
1954
                inc_error_cnt
1955
sbc_17:         ld      a,data_aa
1956
                ld      e,data_ff
1957
                sbc     a,e
1958
                jr      c,sbc_18
1959
                inc_error_cnt
1960
sbc_18:         ld      e,0
1961
                sbc     a,e
1962
                jr      nc,sbc_19
1963
                inc_error_cnt
1964
sbc_19:         cp      data_aa
1965
                jr      z,sbc_20
1966
                inc_error_cnt
1967
sbc_20:         ld      a,data_55
1968
                ld      h,data_ff
1969
                sbc     a,h
1970
                jr      c,sbc_21
1971
                inc_error_cnt
1972
sbc_21:         ld      h,0
1973
                sbc     a,h
1974
                jr      nc,sbc_22
1975
                inc_error_cnt
1976
sbc_22:         cp      data_55
1977
                jr      z,sbc_23
1978
                inc_error_cnt
1979
sbc_23:         ld      a,data_aa
1980
                ld      l,data_ff
1981
                sbc     a,l
1982
                jr      c,sbc_24
1983
                inc_error_cnt
1984
sbc_24:         ld      l,0
1985
                sbc     a,l
1986
                jr      nc,sbc_25
1987
                inc_error_cnt
1988
sbc_25:         cp      data_aa
1989
                jr      z,sbc_26
1990
                inc_error_cnt
1991
sbc_26:         ld      a,data_7f
1992
                sbc     a,data_ff
1993
                jp      m,sbc_27
1994
                inc_error_cnt
1995
sbc_27:         jp      pe,sbc_28
1996
                inc_error_cnt
1997
sbc_28:         jr      c,sbc_29
1998
                inc_error_cnt
1999
sbc_29:         jr      nz,sbc_30
2000
                inc_error_cnt
2001
sbc_30:         sbc     a,data_7f
2002
                jp      p,sbc_31
2003
                inc_error_cnt
2004
sbc_31:         jp      pe,sbc_32
2005
                inc_error_cnt
2006
sbc_32:         jr      nc,sbc_33
2007
                inc_error_cnt
2008
sbc_33:         jr      z,sbc_34
2009
                inc_error_cnt
2010
sbc_34:         sbc     a,data_ff
2011
                jr      nz,sbc_35
2012
                inc_error_cnt
2013
sbc_35:         cp      1
2014
                jr      z,sbc_36
2015
                inc_error_cnt
2016
sbc_36:         ld      hl,var1
2017
                ld      a,data_7f
2018
                sbc     a,(hl)
2019
                jp      m,sbc_37
2020
                inc_error_cnt
2021
sbc_37:         jp      pe,sbc_38
2022
                inc_error_cnt
2023
sbc_38:         jr      c,sbc_39
2024
                inc_error_cnt
2025
sbc_39:         jr      nz,sbc_40
2026
                inc_error_cnt
2027
sbc_40:         ld      hl,var5
2028
                sbc     a,(hl)
2029
                jp      p,sbc_41
2030
                inc_error_cnt
2031
sbc_41:         jp      pe,sbc_42
2032
                inc_error_cnt
2033
sbc_42:         jr      nc,sbc_43
2034
                inc_error_cnt
2035
sbc_43:         jr      z,sbc_44
2036
                inc_error_cnt
2037
sbc_44:         ld      hl,var2
2038
                sbc     a,(hl)
2039
                jr      nz,sbc_45
2040
                inc_error_cnt
2041
sbc_45:         cp      data_aa+1
2042
                jr      z,sbc_46
2043
                inc_error_cnt
2044
sbc_46:         ld      ix,var3
2045
                ld      a,data_7f
2046
                sbc     a,(ix-2)
2047
                jp      m,sbc_47
2048
                inc_error_cnt
2049
sbc_47:         jp      pe,sbc_48
2050
                inc_error_cnt
2051
sbc_48:         jr      c,sbc_49
2052
                inc_error_cnt
2053
sbc_49:         jr      nz,sbc_50
2054
                inc_error_cnt
2055
sbc_50:         sbc     a,(ix+2)
2056
                jp      p,sbc_51
2057
                inc_error_cnt
2058
sbc_51:         jp      pe,sbc_52
2059
                inc_error_cnt
2060
sbc_52:         jr      nc,sbc_53
2061
                inc_error_cnt
2062
sbc_53:         jr      z,sbc_54
2063
                inc_error_cnt
2064
sbc_54:         sbc     a,(ix-1)
2065
                jr      nz,sbc_55
2066
                inc_error_cnt
2067
sbc_55:         cp      data_aa+1
2068
                jr      z,sbc_56
2069
                inc_error_cnt
2070
sbc_56:         ld      iy,var3
2071
                ld      a,data_7f
2072
                sbc     a,(ix-2)
2073
                jp      m,sbc_57
2074
                inc_error_cnt
2075
sbc_57:         jp      pe,sbc_58
2076
                inc_error_cnt
2077
sbc_58:         jr      c,sbc_59
2078
                inc_error_cnt
2079
sbc_59:         jr      nz,sbc_60
2080
                inc_error_cnt
2081
sbc_60:         sbc     a,(ix+2)
2082
                jp      p,sbc_61
2083
                inc_error_cnt
2084
sbc_61:         jp      pe,sbc_62
2085
                inc_error_cnt
2086
sbc_62:         jr      nc,sbc_63
2087
                inc_error_cnt
2088
sbc_63:         jr      z,sbc_64
2089
                inc_error_cnt
2090
sbc_64:         sbc     a,(ix+1)
2091
                jr      nz,sbc_65
2092
                inc_error_cnt
2093
sbc_65:         cp      data_55+1
2094
                jr      z,and_0
2095
                inc_error_cnt
2096
and_0:          ld      a,data_ff
2097
                add     a,1                     ;set carry
2098
                ld      a,data_ff
2099
                ld      b,data_aa
2100
                and     a,b
2101
                jr      nc,and_1
2102
                inc_error_cnt
2103
and_1:          jp      m,and_2
2104
                inc_error_cnt
2105
and_2:          jp      pe,and_3
2106
                inc_error_cnt
2107
and_3:          jr      nz,and_4
2108
                inc_error_cnt
2109
and_4:          ld      b,data_55
2110
                and     a,b
2111
                jp      p,and_5
2112
                inc_error_cnt
2113
and_5:          jr      z,and_6
2114
                inc_error_cnt
2115
and_6:          ld      a,data_ff
2116
                ld      b,data_7f
2117
                and     a,b
2118
                jp      po,and_7
2119
                inc_error_cnt
2120
and_7:          ld      b,data_55
2121
                and     a,b
2122
                jp      pe,and_8
2123
                inc_error_cnt
2124
and_8:          ld      a,data_ff
2125
                ld      c,data_80
2126
                and     a,c
2127
                jp      m,and_9
2128
                inc_error_cnt
2129
and_9:          cp      data_80
2130
                jr      z,and_10
2131
                inc_error_cnt
2132
and_10:         ld      a,data_ff
2133
                ld      d,data_7f
2134
                and     a,d
2135
                jp      p,and_11
2136
                inc_error_cnt
2137
and_11:         cp      data_7f
2138
                jr      z,and_12
2139
                inc_error_cnt
2140
and_12:         ld      a,data_ff
2141
                ld      e,data_aa
2142
                and     a,e
2143
                jp      m,and_13
2144
                inc_error_cnt
2145
and_13:         cp      data_aa
2146
                jr      z,and_14
2147
                inc_error_cnt
2148
and_14:         ld      a,data_ff
2149
                ld      h,data_55
2150
                and     a,h
2151
                jp      p,and_15
2152
                inc_error_cnt
2153
and_15:         cp      data_55
2154
                jr      z,and_16
2155
                inc_error_cnt
2156
and_16:         ld      a,data_ff
2157
                ld      l,data_aa
2158
                and     a,l
2159
                jp      m,and_17
2160
                inc_error_cnt
2161
and_17:         cp      data_aa
2162
                jr      z,and_18
2163
                inc_error_cnt
2164
and_18:         ld      a,data_ff
2165
                and     a,data_aa
2166
                jp      m,and_19
2167
                inc_error_cnt
2168
and_19:         jr      nz,and_20
2169
                inc_error_cnt
2170
and_20:         and     a,data_55
2171
                jp      p,and_21
2172
                inc_error_cnt
2173
and_21:         jr      z,and_22
2174
                inc_error_cnt
2175
and_22:         ld      a,data_ff
2176
                and     a,data_7f
2177
                jp      po,and_23
2178
                inc_error_cnt
2179
and_23:         and     a,data_55
2180
                jp      pe,and_24
2181
                inc_error_cnt
2182
and_24:         jr      nz,and_25
2183
                inc_error_cnt
2184
and_25:         and     a,data_aa
2185
                jr      z,and_26
2186
                inc_error_cnt
2187
and_26:         ld      a,data_ff
2188
                and     a,data_aa
2189
                cp      data_aa
2190
                jr      z,and_27
2191
                inc_error_cnt
2192
and_27:         ld      hl,var4
2193
                ld      a,data_ff
2194
                and     a,(hl)
2195
                jp      m,and_28
2196
                inc_error_cnt
2197
and_28:         jr      nz,and_29
2198
                inc_error_cnt
2199
and_29:         ld      hl,var2
2200
                and     a,(hl)
2201
                jp      p,and_30
2202
                inc_error_cnt
2203
and_30:         jr      z,and_31
2204
                inc_error_cnt
2205
and_31:         ld      a,data_ff
2206
                ld      hl,var5
2207
                and     a,(hl)
2208
                jp      po,and_32
2209
                inc_error_cnt
2210
and_32:         ld      hl,var2
2211
                and     a,(hl)
2212
                jp      pe,and_33
2213
                inc_error_cnt
2214
and_33:         cp      data_55
2215
                jr      z,and_34
2216
                inc_error_cnt
2217
and_34:         ld      ix,var3
2218
                ld      a,data_ff
2219
                and     a,(ix+1)
2220
                jp      m,and_35
2221
                inc_error_cnt
2222
and_35:         jr      nz,and_36
2223
                inc_error_cnt
2224
and_36:         and     a,(ix-1)
2225
                jp      p,and_37
2226
                inc_error_cnt
2227
and_37:         jr      z,and_38
2228
                inc_error_cnt
2229
and_38:         ld      a,data_ff
2230
                and     a,(ix+2)
2231
                jp      po,and_39
2232
                inc_error_cnt
2233
and_39:         and     a,(ix-1)
2234
                jp      pe,and_40
2235
                inc_error_cnt
2236
and_40:         cp      data_55
2237
                jr      z,and_41
2238
                inc_error_cnt
2239
and_41:         ld      iy,var3
2240
                ld      a,data_ff
2241
                and     a,(iy+1)
2242
                jp      m,and_42
2243
                inc_error_cnt
2244
and_42:         jr      nz,and_43
2245
                inc_error_cnt
2246
and_43:         and     a,(iy-1)
2247
                jp      p,and_44
2248
                inc_error_cnt
2249
and_44:         jr      z,and_45
2250
                inc_error_cnt
2251
and_45:         ld      a,data_ff
2252
                and     a,(iy+2)
2253
                jp      po,and_46
2254
                inc_error_cnt
2255
and_46:         and     a,(iy-1)
2256
                jp      pe,and_47
2257
                inc_error_cnt
2258
and_47:         cp      data_55
2259
                jr      z,or_0
2260
                inc_error_cnt
2261
or_0:           ld      a,0
2262
                ld      b,data_7f
2263
                or      a,b
2264
                jp      p,or_1
2265
                inc_error_cnt
2266
or_1:           jp      po,or_2
2267
                inc_error_cnt
2268
or_2:           ld      b,data_80
2269
                or      a,b
2270
                jp      m,or_3
2271
                inc_error_cnt
2272
or_3:           jp      pe,or_4
2273
                inc_error_cnt
2274
or_4:           cp      data_ff
2275
                jr      z,or_5
2276
                inc_error_cnt
2277
or_5:           ld      a,0
2278
                ld      b,0
2279
                or      a,b
2280
                jr      z,or_6
2281
                inc_error_cnt
2282
or_6:           ld      b,data_55
2283
                or      a,b
2284
                jr      nz,or_7
2285
                inc_error_cnt
2286
or_7:           cp      data_55
2287
                jr      z,or_8
2288
                inc_error_cnt
2289
or_8:           ld      a,data_ff
2290
                add     a,1
2291
                jr      c,or_9
2292
                inc_error_cnt
2293
or_9:           ld      b,data_7f
2294
                or      a,b
2295
                jr      nc,or_10
2296
                inc_error_cnt
2297
or_10:          cp      data_7f
2298
                jr      z,or_11
2299
                inc_error_cnt
2300
or_11:          ld      a,0
2301
                ld      c,data_55
2302
                or      a,c
2303
                cp      data_55
2304
                jr      z,or_12
2305
                inc_error_cnt
2306
or_12:          ld      c,data_aa
2307
                or      a,c
2308
                cp      data_ff
2309
                jr      z,or_13
2310
                inc_error_cnt
2311
or_13:          ld      a,0
2312
                ld      d,data_aa
2313
                or      a,d
2314
                cp      data_aa
2315
                jr      z,or_14
2316
                inc_error_cnt
2317
or_14:          ld      e,data_55
2318
                or      a,e
2319
                cp      data_ff
2320
                jr      z,or_15
2321
                inc_error_cnt
2322
or_15:          ld      a,0
2323
                ld      h,data_80
2324
                or      a,h
2325
                cp      data_80
2326
                jr      z,or_16
2327
                inc_error_cnt
2328
or_16:          ld      l,data_7f
2329
                or      a,l
2330
                cp      data_ff
2331
                jr      z,or_17
2332
                inc_error_cnt
2333
or_17:          ld      a,0
2334
                or      a,data_7f
2335
                jp      p,or_18
2336
                inc_error_cnt
2337
or_18:          jp      po,or_19
2338
                inc_error_cnt
2339
or_19:          or      a,data_80
2340
                jp      m,or_20
2341
                inc_error_cnt
2342
or_20:          jp      pe,or_21
2343
                inc_error_cnt
2344
or_21:          cp      data_ff
2345
                jr      z,or_22
2346
                inc_error_cnt
2347
or_22:          ld      a,0
2348
                or      a,0
2349
                jr      z,or_23
2350
                inc_error_cnt
2351
or_23:          or      a,data_7f
2352
                jr      nz,or_24
2353
                inc_error_cnt
2354
or_24:          ld      a,data_ff
2355
                add     a,1
2356
                jr      c,or_25
2357
                inc_error_cnt
2358
or_25:          or      a,data_55
2359
                jr      nc,or_26
2360
                inc_error_cnt
2361
or_26:          cp      data_55
2362
                jr      z,or_27
2363
                inc_error_cnt
2364
or_27:          ld      hl,var5
2365
                ld      a,0
2366
                or      a,(hl)
2367
                jp      p,or_28
2368
                inc_error_cnt
2369
or_28:          jp      po,or_29
2370
                inc_error_cnt
2371
or_29:          ld      hl,var3
2372
                or      a,(hl)
2373
                jp      m,or_30
2374
                inc_error_cnt
2375
or_30:          jp      pe,or_31
2376
                inc_error_cnt
2377
or_31:          cp      data_ff
2378
                jr      z,or_32
2379
                inc_error_cnt
2380
or_32:          ld      hl,t_var1
2381
                ld      a,0
2382
                ld      (hl),a
2383
                or      a,(hl)
2384
                jr      z,or_33
2385
                inc_error_cnt
2386
or_33:          ld      hl,var2
2387
                or      a,(hl)
2388
                jr      nz,or_34
2389
                inc_error_cnt
2390
or_34:          cp      data_55
2391
                jr      z,or_35
2392
                inc_error_cnt
2393
or_35:          ld      ix,var3
2394
                ld      a,0
2395
                or      a,(ix+2)
2396
                jp      p,or_36
2397
                inc_error_cnt
2398
or_36:          jp      po,or_37
2399
                inc_error_cnt
2400
or_37:          or      a,(ix+0)
2401
                jp      m,or_38
2402
                inc_error_cnt
2403
or_38:          jp      pe,or_39
2404
                inc_error_cnt
2405
or_39:          cp      data_ff
2406
                jr      z,or_40
2407
                inc_error_cnt
2408
or_40:          ld      ix,t_var3
2409
                ld      a,0
2410
                ld      (ix-2),a
2411
                or      a,(ix-2)
2412
                jr      z,or_41
2413
                inc_error_cnt
2414
or_41:          ld      (ix+2),data_aa
2415
                or      a,(ix+2)
2416
                jr      nz,or_42
2417
                inc_error_cnt
2418
or_42:          cp      data_aa
2419
                jr      z,or_43
2420
                inc_error_cnt
2421
or_43:          ld      iy,var3
2422
                ld      a,0
2423
                or      a,(iy+2)
2424
                jp      p,or_44
2425
                inc_error_cnt
2426
or_44:          jp      po,or_45
2427
                inc_error_cnt
2428
or_45:          or      a,(iy+0)
2429
                jp      m,or_46
2430
                inc_error_cnt
2431
or_46:          jp      pe,or_47
2432
                inc_error_cnt
2433
or_47:          cp      data_ff
2434
                jr      z,or_48
2435
                inc_error_cnt
2436
or_48:          ld      iy,t_var3
2437
                ld      a,0
2438
                ld      (iy-2),a
2439
                or      a,(iy-2)
2440
                jr      z,or_49
2441
                inc_error_cnt
2442
or_49:          ld      (iy+2),data_55
2443
                or      a,(iy+2)
2444
                jr      nz,or_50
2445
                inc_error_cnt
2446
or_50:          cp      data_55
2447
                jr      z,xor_0
2448
                inc_error_cnt
2449
xor_0:          ld      a,data_ff
2450
                ld      b,data_55
2451
                xor     a,b
2452
                jp      m,xor_1
2453
                inc_error_cnt
2454
xor_1:          jp      pe,xor_2
2455
                inc_error_cnt
2456
xor_2:          ld      b,data_80
2457
                xor     a,b
2458
                jp      p,xor_3
2459
                inc_error_cnt
2460
xor_3:          jp      po,xor_4
2461
                inc_error_cnt
2462
xor_4:          cp      #2a
2463
                jr      z,xor_5
2464
                inc_error_cnt
2465
xor_5:          ld      a,data_ff
2466
                ld      b,data_ff
2467
                xor     a,b
2468
                jr      z,xor_6
2469
                inc_error_cnt
2470
xor_6:          ld      b,data_55
2471
                xor     a,b
2472
                jr      nz,xor_7
2473
                inc_error_cnt
2474
xor_7:          cp      data_55
2475
                jr      z,xor_8
2476
                inc_error_cnt
2477
xor_8:          ld      a,data_ff
2478
                add     a,1
2479
                jr      c,xor_9
2480
                inc_error_cnt
2481
xor_9:          ld      b,data_aa
2482
                xor     a,b
2483
                jr      nc,xor_10
2484
                inc_error_cnt
2485
xor_10:         cp      data_aa
2486
                jr      z,xor_11
2487
                inc_error_cnt
2488
xor_11:         ld      a,data_ff
2489
                ld      c,data_7f
2490
                xor     a,c
2491
                jp      m,xor_12
2492
                inc_error_cnt
2493
xor_12:         cp      data_80
2494
                jr      z,xor_13
2495
                inc_error_cnt
2496
xor_13:         ld      a,data_ff
2497
                ld      d,data_55
2498
                xor     a,d
2499
                jp      m,xor_14
2500
                inc_error_cnt
2501
xor_14:         cp      data_aa
2502
                jr      z,xor_15
2503
                inc_error_cnt
2504
xor_15:         ld      e,data_55
2505
                xor     a,e
2506
                jp      m,xor_16
2507
                inc_error_cnt
2508
xor_16:         cp      data_ff
2509
                jr      z,xor_17
2510
                inc_error_cnt
2511
xor_17:         ld      a,data_ff
2512
                ld      h,data_7f
2513
                xor     a,h
2514
                jp      po,xor_18
2515
                inc_error_cnt
2516
xor_18:         ld      l,data_7f
2517
                xor     a,l
2518
                jp      pe,xor_19
2519
                inc_error_cnt
2520
xor_19:         cp      data_ff
2521
                jr      z,xor_20
2522
                inc_error_cnt
2523
xor_20:         ld      a,data_ff
2524
                add     a,1
2525
                jr      c,xor_21
2526
                inc_error_cnt
2527
xor_21:         ld      b,data_7f
2528
                xor     a,b
2529
                jr      nc,xor_22
2530
                inc_error_cnt
2531
xor_22:         cp      data_7f
2532
                jr      z,xor_23
2533
                inc_error_cnt
2534
xor_23:         ld      a,data_ff
2535
                xor     a,data_7f
2536
                jp      po,xor_24
2537
                inc_error_cnt
2538
xor_24:         jp      m,xor_25
2539
                inc_error_cnt
2540
xor_25:         xor     a,data_7f
2541
                jp      pe,xor_26
2542
                inc_error_cnt
2543
xor_26:         jp      m,xor_27
2544
                inc_error_cnt
2545
xor_27:         xor     a,data_aa
2546
                jp      p,xor_28
2547
                inc_error_cnt
2548
xor_28:         cp      data_55
2549
                jr      z,xor_29
2550
                inc_error_cnt
2551
xor_29:         ld      a,data_ff
2552
                xor     a,data_ff
2553
                jr      z,xor_30
2554
                inc_error_cnt
2555
xor_30:         xor     a,data_80
2556
                jr      nz,xor_31
2557
                inc_error_cnt
2558
xor_31:         cp      data_80
2559
                jr      z,xor_32
2560
                inc_error_cnt
2561
xor_32:         ld      hl,var5
2562
                ld      a,data_ff
2563
                xor     a,(hl)
2564
                jp      m,xor_33
2565
                inc_error_cnt
2566
xor_33:         jp      po,xor_34
2567
                inc_error_cnt
2568
xor_34:         xor     a,(hl)
2569
                jp      m,xor_35
2570
                inc_error_cnt
2571
xor_35:         jp      pe,xor_36
2572
                inc_error_cnt
2573
xor_36:         ld      hl,var3
2574
                xor     a,(hl)
2575
                jp      p,xor_37
2576
                inc_error_cnt
2577
xor_37:         cp      data_7f
2578
                jr      z,xor_38
2579
                inc_error_cnt
2580
xor_38:         ld      hl,var1
2581
                ld      a,data_ff
2582
                xor     a,(hl)
2583
                jr      z,xor_39
2584
                inc_error_cnt
2585
xor_39:         ld      hl,var2
2586
                xor     a,(hl)
2587
                jr      nz,xor_40
2588
                inc_error_cnt
2589
xor_40:         cp      data_55
2590
                jr      z,xor_41
2591
                inc_error_cnt
2592
xor_41:         ld      ix,var3
2593
                ld      a,data_ff
2594
                xor     a,(ix+2)
2595
                jp      m,xor_42
2596
                inc_error_cnt
2597
xor_42:         jp      po,xor_43
2598
                inc_error_cnt
2599
xor_43:         xor     a,(ix+2)
2600
                jp      m,xor_44
2601
                inc_error_cnt
2602
xor_44:         jp      pe,xor_45
2603
                inc_error_cnt
2604
xor_45:         xor     a,(ix+1)
2605
                jp      p,xor_46
2606
                inc_error_cnt
2607
xor_46:         cp      data_55
2608
                jr      z,xor_47
2609
                inc_error_cnt
2610
xor_47:         ld      a,data_ff
2611
                xor     a,(ix-2)
2612
                jr      z,xor_48
2613
                inc_error_cnt
2614
xor_48:         xor     a,(ix+1)
2615
                jr      nz,xor_49
2616
                inc_error_cnt
2617
xor_49:         cp      data_aa
2618
                jr      z,xor_50
2619
                inc_error_cnt
2620
xor_50:         ld      iy,var3
2621
                ld      a,data_ff
2622
                xor     a,(iy+2)
2623
                jp      m,xor_51
2624
                inc_error_cnt
2625
xor_51:         jp      po,xor_52
2626
                inc_error_cnt
2627
xor_52:         xor     a,(iy+2)
2628
                jp      m,xor_53
2629
                inc_error_cnt
2630
xor_53:         jp      pe,xor_54
2631
                inc_error_cnt
2632
xor_54:         xor     a,(iy+1)
2633
                jp      p,xor_55
2634
                inc_error_cnt
2635
xor_55:         cp      data_55
2636
                jr      z,xor_56
2637
                inc_error_cnt
2638
xor_56:         ld      a,data_ff
2639
                xor     a,(iy-2)
2640
                jr      z,xor_57
2641
                inc_error_cnt
2642
xor_57:         xor     a,(iy-1)
2643
                jr      nz,xor_58
2644
                inc_error_cnt
2645
xor_58:         cp      data_55
2646
                jr      z,cp_0
2647
                inc_error_cnt
2648
cp_0:           ld      a,0
2649
                ld      b,0
2650
                cp      a,b
2651
                jr      z,cp_1
2652
                inc_error_cnt
2653
cp_1:           jp      p,cp_2
2654
                inc_error_cnt
2655
cp_2:           jr      nc,cp_3
2656
                inc_error_cnt
2657
cp_3:           ld      b,data_55
2658
                cp      a,b
2659
                jr      nz,cp_4
2660
                inc_error_cnt
2661
cp_4:           jp      m,cp_5
2662
                inc_error_cnt
2663
cp_5:           jr      c,cp_6
2664
                inc_error_cnt
2665
cp_6:           ld      a,data_80
2666
                ld      b,data_7f
2667
                cp      a,b
2668
                jp      pe,cp_7
2669
                inc_error_cnt
2670
cp_7:           jr      nc,cp_8
2671
                inc_error_cnt
2672
cp_8:           ld      a,data_7f
2673
                ld      b,data_80
2674
                cp      a,b
2675
                jp      pe,cp_9
2676
                inc_error_cnt
2677
cp_9:           jr      c,cp_10
2678
                inc_error_cnt
2679
cp_10:          ld      b,0
2680
                cp      a,b
2681
                jp      po,cp_11
2682
                inc_error_cnt
2683
cp_11:          jr      nc,cp_12
2684
                inc_error_cnt
2685
cp_12:          ld      a,data_80
2686
                ld      c,0
2687
                cp      a,c
2688
                jp      m,cp_13
2689
                inc_error_cnt
2690
cp_13:          ld      c,data_80
2691
                cp      a,c
2692
                jr      z,cp_14
2693
                inc_error_cnt
2694
cp_14:          ld      a,data_7f
2695
                ld      d,data_55
2696
                cp      a,d
2697
                jp      p,cp_15
2698
                inc_error_cnt
2699
cp_15:          jr      nz,cp_16
2700
                inc_error_cnt
2701
cp_16:          ld      e,data_7f
2702
                cp      a,e
2703
                jr      z,cp_17
2704
                inc_error_cnt
2705
cp_17:          ld      a,data_80
2706
                ld      h,data_ff
2707
                cp      a,h
2708
                jp      m,cp_18
2709
                inc_error_cnt
2710
cp_18:          jr      c,cp_19
2711
                inc_error_cnt
2712
cp_19:          ld      l,data_80
2713
                cp      a,l
2714
                jr      z,cp_20
2715
                inc_error_cnt
2716
cp_20:          ld      a,data_80
2717
                cp      a,data_7f
2718
                jp      p,cp_21
2719
                inc_error_cnt
2720
cp_21:          jp      pe,cp_22
2721
                inc_error_cnt
2722
cp_22:          jr      nz,cp_23
2723
                inc_error_cnt
2724
cp_23:          cp      a,data_80
2725
                jp      p,cp_24
2726
                inc_error_cnt
2727
cp_24:          jp      po,cp_25
2728
                inc_error_cnt
2729
cp_25:          jr      z,cp_26
2730
                inc_error_cnt
2731
cp_26:          ld      a,data_55
2732
                cp      a,data_7f
2733
                jr      c,cp_27
2734
                inc_error_cnt
2735
cp_27:          jp      m,cp_28
2736
                inc_error_cnt
2737
cp_28:          cp      a,data_55
2738
                jr      nc,cp_29
2739
                inc_error_cnt
2740
cp_29:          jr      z,cp_30
2741
                inc_error_cnt
2742
cp_30:          ld      a,data_80
2743
                ld      hl,var5
2744
                cp      a,(hl)
2745
                jp      p,cp_31
2746
                inc_error_cnt
2747
cp_31:          jp      pe,cp_32
2748
                inc_error_cnt
2749
cp_32:          jr      nz,cp_33
2750
                inc_error_cnt
2751
cp_33:          ld      hl,var3
2752
                cp      a,(hl)
2753
                jp      p,cp_34
2754
                inc_error_cnt
2755
cp_34:          jp      po,cp_35
2756
                inc_error_cnt
2757
cp_35:          jr      z,cp_36
2758
                inc_error_cnt
2759
cp_36:          ld      a,data_55
2760
                ld      hl,var5
2761
                cp      a,(hl)
2762
                jr      c,cp_37
2763
                inc_error_cnt
2764
cp_37:          jp      m,cp_38
2765
                inc_error_cnt
2766
cp_38:          ld      hl,var2
2767
                cp      a,(hl)
2768
                jr      nc,cp_39
2769
                inc_error_cnt
2770
cp_39:          jp      p,cp_40
2771
                inc_error_cnt
2772
cp_40:          jr      z,cp_41
2773
                inc_error_cnt
2774
cp_41:          ld      a,data_80
2775
                ld      ix,var3
2776
                cp      a,(ix+2)
2777
                jp      p,cp_42
2778
                inc_error_cnt
2779
cp_42:          jp      pe,cp_43
2780
                inc_error_cnt
2781
cp_43:          jr      nz,cp_44
2782
                inc_error_cnt
2783
cp_44:          cp      a,(ix+0)
2784
                jp      p,cp_45
2785
                inc_error_cnt
2786
cp_45:          jp      po,cp_46
2787
                inc_error_cnt
2788
cp_46:          jr      z,cp_47
2789
                inc_error_cnt
2790
cp_47:          ld      a,data_55
2791
                cp      a,(ix-2)
2792
                jr      nz,cp_48
2793
                inc_error_cnt
2794
cp_48:          jr      c,cp_49
2795
                inc_error_cnt
2796
cp_49:          cp      a,(ix-1)
2797
                jr      z,cp_50
2798
                inc_error_cnt
2799
cp_50:          jr      nc,cp_51
2800
                inc_error_cnt
2801
cp_51:          ld      iy,var3
2802
                ld      a,data_80
2803
                cp      a,(iy+2)
2804
                jp      p,cp_52
2805
                inc_error_cnt
2806
cp_52:          jp      pe,cp_53
2807
                inc_error_cnt
2808
cp_53:          jr      nz,cp_54
2809
                inc_error_cnt
2810
cp_54:          cp      a,(iy+0)
2811
                jp      p,cp_55
2812
                inc_error_cnt
2813
cp_55:          jp      po,cp_56
2814
                inc_error_cnt
2815
cp_56:          jr      z,cp_57
2816
                inc_error_cnt
2817
cp_57:          ld      a,data_55
2818
                cp      a,(iy-2)
2819
                jr      nz,cp_58
2820
                inc_error_cnt
2821
cp_58:          jr      c,cp_59
2822
                inc_error_cnt
2823
cp_59:          cp      a,(iy-1)
2824
                jr      z,cp_60
2825
                inc_error_cnt
2826
cp_60:          jr      nc,inc_0
2827
                inc_error_cnt
2828
inc_0:          ld      a,data_7f
2829
                cp      a,data_7f
2830
                jr      z,inc_1
2831
                inc_error_cnt
2832
inc_1:          inc     a
2833
                jp      pe,inc_2
2834
                inc_error_cnt
2835
inc_2:          jp      m,inc_3
2836
                inc_error_cnt
2837
inc_3:          jr      nz,inc_4
2838
                inc_error_cnt
2839
inc_4:          ld      a,data_55
2840
                inc     a
2841
                jp      po,inc_5
2842
                inc_error_cnt
2843
inc_5:          jp      p,inc_6
2844
                inc_error_cnt
2845
inc_6:          cp      a,data_55+1
2846
                jr      z,inc_7
2847
                inc_error_cnt
2848
inc_7:          ld      a,data_ff-1
2849
                inc     a
2850
                jr      nz,inc_8
2851
                inc_error_cnt
2852
inc_8:          jp      m,inc_9
2853
                inc_error_cnt
2854
inc_9:          inc     a
2855
                jr      z,inc_10
2856
                inc_error_cnt
2857
inc_10:         ld      b,data_aa
2858
                inc     b
2859
                jp      m,inc_11
2860
                inc_error_cnt
2861
inc_11:         ld      a,b
2862
                cp      a,data_aa+1
2863
                jr      z,inc_12
2864
                inc_error_cnt
2865
inc_12:         ld      c,data_80
2866
                inc     c
2867
                jp      m,inc_13
2868
                inc_error_cnt
2869
inc_13:         ld      a,c
2870
                cp      a,data_80+1
2871
                jr      z,inc_14
2872
                inc_error_cnt
2873
inc_14:         ld      d,data_ff
2874
                inc     d
2875
                jr      z,inc_15
2876
                inc_error_cnt
2877
inc_15:         ld      e,data_55
2878
                inc     e
2879
                jp      p,inc_16
2880
                inc_error_cnt
2881
inc_16:         ld      a,e
2882
                cp      a,data_55+1
2883
                jr      z,inc_17
2884
                inc_error_cnt
2885
inc_17:         ld      h,data_7f
2886
                inc     h
2887
                jp      pe,inc_18
2888
                inc_error_cnt
2889
inc_18:         ld      a,h
2890
                cp      a,data_80
2891
                jr      z,inc_19
2892
                inc_error_cnt
2893
inc_19:         ld      l,data_aa
2894
                inc     l
2895
                jp      m,inc_20
2896
                inc_error_cnt
2897
inc_20:         ld      a,l
2898
                cp      a,data_aa+1
2899
                jr      z,inc_21
2900
                inc_error_cnt
2901
inc_21:         ld      hl,t_var1
2902
                ld      a,data_7f
2903
                ld      (hl),a
2904
                cp      a,(hl)
2905
                jr      z,inc_22
2906
                inc_error_cnt
2907
inc_22:         inc     (hl)
2908
                jp      m,inc_23
2909
                inc_error_cnt
2910
inc_23:         jp      pe,inc_24
2911
                inc_error_cnt
2912
inc_24:         ld      a,data_55
2913
                ld      (hl),a
2914
                inc     (hl)
2915
                jp      p,inc_25
2916
                inc_error_cnt
2917
inc_25:         jp      po,inc_26
2918
                inc_error_cnt
2919
inc_26:         ld      a,(hl)
2920
                cp      a,data_55+1
2921
                jr      z,inc_27
2922
                inc_error_cnt
2923
inc_27:         ld      a,data_ff
2924
                ld      (hl),a
2925
                inc     (hl)
2926
                jr      z,inc_28
2927
                inc_error_cnt
2928
inc_28:         inc     (hl)
2929
                jr      nz,inc_29
2930
                inc_error_cnt
2931
inc_29:         ld      a,(hl)
2932
                cp      a,1
2933
                jr      z,inc_30
2934
                inc_error_cnt
2935
inc_30:         ld      a,data_aa
2936
                ld      (hl),a
2937
                inc     (hl)
2938
                jp      m,inc_31
2939
                inc_error_cnt
2940
inc_31:         ld      a,(hl)
2941
                cp      a,data_aa+1
2942
                jr      z,inc_32
2943
                inc_error_cnt
2944
inc_32:         ld      ix,t_var3
2945
                ld      a,data_7f
2946
                ld      (ix-2),a
2947
                cp      a,data_7f
2948
                jr      z,inc_33
2949
                inc_error_cnt
2950
inc_33:         inc     (ix-2)
2951
                jp      m,inc_34
2952
                inc_error_cnt
2953
inc_34:         jp      pe,inc_35
2954
                inc_error_cnt
2955
inc_35:         ld      a,data_55
2956
                ld      (ix+2),a
2957
                inc     (ix+2)
2958
                jp      p,inc_36
2959
                inc_error_cnt
2960
inc_36:         jp      po,inc_37
2961
                inc_error_cnt
2962
inc_37:         ld      a,(ix+2)
2963
                cp      a,data_55+1
2964
                jr      z,inc_38
2965
                inc_error_cnt
2966
inc_38:         ld      a,data_ff
2967
                ld      (ix-1),a
2968
                inc     (ix-1)
2969
                jr      z,inc_39
2970
                inc_error_cnt
2971
inc_39:         inc     (ix-1)
2972
                jr      nz,inc_40
2973
                inc_error_cnt
2974
inc_40:         ld      a,(ix-1)
2975
                cp      a,1
2976
                jr      z,inc_41
2977
                inc_error_cnt
2978
inc_41:         ld      a,data_aa
2979
                ld      (ix+1),a
2980
                inc     (ix+1)
2981
                jp      m,inc_42
2982
                inc_error_cnt
2983
inc_42:         ld      a,(ix+1)
2984
                cp      a,data_aa+1
2985
                jr      z,inc_43
2986
                inc_error_cnt
2987
inc_43:         ld      iy,t_var3
2988
                ld      a,data_7f
2989
                ld      (iy+2),a
2990
                cp      a,data_7f
2991
                jr      z,inc_44
2992
                inc_error_cnt
2993
inc_44:         inc     (iy+2)
2994
                jp      m,inc_45
2995
                inc_error_cnt
2996
inc_45:         jp      pe,inc_46
2997
                inc_error_cnt
2998
inc_46:         ld      a,data_55
2999
                ld      (iy-2),a
3000
                inc     (iy-2)
3001
                jp      p,inc_47
3002
                inc_error_cnt
3003
inc_47:         jp      po,inc_48
3004
                inc_error_cnt
3005
inc_48:         ld      a,(iy-2)
3006
                cp      a,data_55+1
3007
                jr      z,inc_49
3008
                inc_error_cnt
3009
inc_49:         ld      a,data_ff
3010
                ld      (iy+1),a
3011
                inc     (iy+1)
3012
                jr      z,inc_50
3013
                inc_error_cnt
3014
inc_50:         inc     (iy+1)
3015
                jr      nz,inc_51
3016
                inc_error_cnt
3017
inc_51:         ld      a,(iy+1)
3018
                cp      a,1
3019
                jr      z,inc_52
3020
                inc_error_cnt
3021
inc_52:         ld      a,data_80
3022
                ld      (iy-1),a
3023
                inc     (iy-1)
3024
                jp      m,inc_53
3025
                inc_error_cnt
3026
inc_53:         ld      a,(iy-1)
3027
                cp      a,data_80+1
3028
                jr      z,dec_0
3029
                inc_error_cnt
3030
dec_0:          ld      a,data_80
3031
                cp      a,data_80
3032
                jr      z,dec_1
3033
                inc_error_cnt
3034
dec_1:          dec     a
3035
                jp      p,dec_2
3036
                inc_error_cnt
3037
dec_2:          jp      pe,dec_3
3038
                inc_error_cnt
3039
dec_3:          ld      a,0
3040
                dec     a
3041
                jp      m,dec_4
3042
                inc_error_cnt
3043
dec_4:          jp      po,dec_5
3044
                inc_error_cnt
3045
dec_5:          cp      a,data_ff
3046
                jr      z,dec_6
3047
                inc_error_cnt
3048
dec_6:          ld      a,1
3049
                dec     a
3050
                jr      z,dec_7
3051
                inc_error_cnt
3052
dec_7:          dec     a
3053
                jr      nz,dec_8
3054
                inc_error_cnt
3055
dec_8:          cp      a,data_ff
3056
                jr      z,dec_9
3057
                inc_error_cnt
3058
dec_9:          ld      a,data_aa
3059
                dec     a
3060
                cp      a,data_aa-1
3061
                jr      z,dec_10
3062
                inc_error_cnt
3063
dec_10:         ld      b,data_7f
3064
                dec     b
3065
                ld      a,b
3066
                cp      a,data_7f-1
3067
                jr      z,dec_11
3068
                inc_error_cnt
3069
dec_11:         ld      c,data_55
3070
                dec     c
3071
                ld      a,c
3072
                cp      a,data_55-1
3073
                jr      z,dec_12
3074
                inc_error_cnt
3075
dec_12:         ld      d,data_aa
3076
                dec     d
3077
                ld      a,d
3078
                cp      a,data_aa-1
3079
                jr      z,dec_13
3080
                inc_error_cnt
3081
dec_13:         ld      e,data_80
3082
                dec     e
3083
                ld      a,e
3084
                cp      a,data_80-1
3085
                jr      z,dec_14
3086
                inc_error_cnt
3087
dec_14:         ld      h,data_ff
3088
                dec     h
3089
                ld      a,h
3090
                cp      a,data_ff-1
3091
                jr      z,dec_15
3092
                inc_error_cnt
3093
dec_15:         ld      l,data_55
3094
                dec     l
3095
                ld      a,l
3096
                cp      a,data_55-1
3097
                jr      z,dec_16
3098
                inc_error_cnt
3099
dec_16:         ld      hl,t_var5
3100
                ld      a,data_80
3101
                ld      (hl),a
3102
                cp      a,(hl)
3103
                jr      z,dec_17
3104
                inc_error_cnt
3105
dec_17:         dec     (hl)
3106
                jp      p,dec_18
3107
                inc_error_cnt
3108
dec_18:         jp      pe,dec_19
3109
                inc_error_cnt
3110
dec_19:         ld      a,0
3111
                ld      (hl),a
3112
                dec     (hl)
3113
                jp      m,dec_20
3114
                inc_error_cnt
3115
dec_20:         jp      po,dec_21
3116
                inc_error_cnt
3117
dec_21:         ld      a,(hl)
3118
                cp      a,data_ff
3119
                jr      z,dec_22
3120
                inc_error_cnt
3121
dec_22:         ld      a,1
3122
                ld      (hl),a
3123
                dec     (hl)
3124
                jr      z,dec_23
3125
                inc_error_cnt
3126
dec_23:         dec     (hl)
3127
                jr      nz,dec_24
3128
                inc_error_cnt
3129
dec_24:         ld      a,(hl)
3130
                cp      a,data_ff
3131
                jr      z,dec_25
3132
                inc_error_cnt
3133
dec_25:         ld      a,data_aa
3134
                ld      (hl),a
3135
                dec     (hl)
3136
                ld      a,(hl)
3137
                cp      a,data_aa-1
3138
                jr      z,dec_26
3139
                inc_error_cnt
3140
dec_26:         ld      ix,t_var3
3141
                ld      a,data_80
3142
                ld      (ix-2),a
3143
                cp      a,(ix-2)
3144
                jr      z,dec_27
3145
                inc_error_cnt
3146
dec_27:         dec     (ix-2)
3147
                jp      p,dec_28
3148
                inc_error_cnt
3149
dec_28:         jp      pe,dec_29
3150
                inc_error_cnt
3151
dec_29:         ld      a,0
3152
                ld      (ix+2),a
3153
                dec     (ix+2)
3154
                jp      m,dec_30
3155
                inc_error_cnt
3156
dec_30:         jp      po,dec_31
3157
                inc_error_cnt
3158
dec_31:         ld      a,(ix+2)
3159
                cp      a,data_ff
3160
                jr      z,dec_32
3161
                inc_error_cnt
3162
dec_32:         ld      a,1
3163
                ld      (ix-1),a
3164
                dec     (ix-1)
3165
                jr      z,dec_33
3166
                inc_error_cnt
3167
dec_33:         dec     (ix-1)
3168
                jr      nz,dec_34
3169
                inc_error_cnt
3170
dec_34:         ld      a,(ix-1)
3171
                cp      a,data_ff
3172
                jr      z,dec_35
3173
                inc_error_cnt
3174
dec_35:         ld      a,data_7f
3175
                ld      (ix+1),a
3176
                dec     (ix+1)
3177
                ld      a,(ix+1)
3178
                cp      a,data_7f-1
3179
                jr      z,dec_36
3180
                inc_error_cnt
3181
dec_36:         ld      iy,t_var3
3182
                ld      a,data_80
3183
                ld      (iy-2),a
3184
                cp      a,(iy-2)
3185
                jr      z,dec_37
3186
                inc_error_cnt
3187
dec_37:         dec     (iy-2)
3188
                jp      p,dec_38
3189
                inc_error_cnt
3190
dec_38:         jp      pe,dec_39
3191
                inc_error_cnt
3192
dec_39:         ld      a,0
3193
                ld      (iy+2),a
3194
                dec     (iy+2)
3195
                jp      m,dec_40
3196
                inc_error_cnt
3197
dec_40:         jp      po,dec_41
3198
                inc_error_cnt
3199
dec_41:         ld      a,(iy+2)
3200
                cp      a,data_ff
3201
                jr      z,dec_42
3202
                inc_error_cnt
3203
dec_42:         ld      a,1
3204
                ld      (iy+1),a
3205
                dec     (iy+1)
3206
                jr      z,dec_43
3207
                inc_error_cnt
3208
dec_43:         dec     (iy+1)
3209
                jr      nz,dec_44
3210
                inc_error_cnt
3211
dec_44:         ld      a,(iy+1)
3212
                cp      a,data_ff
3213
                jr      z,dec_45
3214
                inc_error_cnt
3215
dec_45:         ld      a,data_aa
3216
                ld      (iy-1),a
3217
                dec     (iy-1)
3218
                ld      a,(iy-1)
3219
                cp      a,data_aa-1
3220
                jr      z,cpl_0
3221
                inc_error_cnt
3222
cpl_0:          ld      a,data_ff
3223
                cpl
3224
                cp      a,0
3225
                jr      z,cpl_1
3226
                inc_error_cnt
3227
cpl_1:          ld      a,data_aa
3228
                cpl
3229
                cp      a,data_55
3230
                jr      z,cpl_2
3231
                inc_error_cnt
3232
cpl_2:          cpl
3233
                cp      a,data_aa
3234
                jr      z,neg_0
3235
                inc_error_cnt
3236
neg_0:          ld      a,data_80
3237
                cp      a,data_80
3238
                jp      po,neg_1
3239
                inc_error_cnt
3240
neg_1:          neg
3241
                jp      pe,neg_2
3242
                inc_error_cnt
3243
neg_2:          jr      nz,neg_3
3244
                inc_error_cnt
3245
neg_3:          jr      c,neg_4
3246
                inc_error_cnt
3247
neg_4:          ld      a,0
3248
                neg
3249
                jp      po,neg_5
3250
                inc_error_cnt
3251
neg_5:          jr      z,neg_6
3252
                inc_error_cnt
3253
neg_6:          jr      nc,neg_7
3254
                inc_error_cnt
3255
neg_7:          ld      a,data_55
3256
                cp      a,data_55
3257
                jp      p,neg_8
3258
                inc_error_cnt
3259
neg_8:          neg
3260
                jp      m,neg_9
3261
                inc_error_cnt
3262
neg_9:          neg
3263
                jp      p,neg_10
3264
                inc_error_cnt
3265
neg_10:         cp      a,data_55
3266
                jr      z,ccf_0
3267
                inc_error_cnt
3268
ccf_0:          scf
3269
                jr      c,ccf_1
3270
                inc_error_cnt
3271
ccf_1:          ccf
3272
                jr      nc,ccf_2
3273
                inc_error_cnt
3274
ccf_2:          ccf
3275
                jr      c,im_0
3276
                inc_error_cnt
3277
im_0:           im      0
3278
                im      1
3279
                im      2
3280
daa_0:          ld      a,#99
3281
                ld      b,#1
3282
                add     a,b
3283
                daa
3284
                jr      c,daa_1
3285
                inc_error_cnt
3286
daa_1:          jr      z,daa_2
3287
                inc_error_cnt
3288
daa_2:          add     a,b
3289
                jr      nc,daa_3
3290
                inc_error_cnt
3291
daa_3:          jr      nz,daa_4
3292
                inc_error_cnt
3293
daa_4:          cp      a,1
3294
                jr      z,daa_5
3295
                inc_error_cnt
3296
daa_5:          ld      a,#98
3297
                ld      b,1
3298
                add     a,b
3299
                daa
3300
                jp      m,daa_6
3301
                inc_error_cnt
3302
daa_6:          add     a,b
3303
                daa
3304
                jp      p,daa_7
3305
                inc_error_cnt
3306
daa_7:          ld      a,1
3307
                ld      b,1
3308
                add     a,b
3309
                daa
3310
                jp      po,daa_8
3311
                inc_error_cnt
3312
daa_8:          add     a,b
3313
                daa
3314
                jp      pe,daa_9
3315
                inc_error_cnt
3316
daa_9:          cp      a,3
3317
                jr      z,add_74
3318
                inc_error_cnt
3319
add_74:         ld      hl,data_1234
3320
                add     hl,hl
3321
                jr      nc,add_75
3322
                inc_error_cnt
3323
add_75:         ld      a,h
3324
                cp      a,#24
3325
                jr      z,add_76
3326
                inc_error_cnt
3327
add_76:         ld      a,l
3328
                cp      a,#68
3329
                jr      z,add_77
3330
                inc_error_cnt
3331
add_77:         ld      hl,data_7fff
3332
                ld      bc,data_8000
3333
                add     hl,bc
3334
                jr      nc,add_78
3335
                inc_error_cnt
3336
add_78:         ld      bc,1
3337
                add     hl,bc
3338
                jr      c,add_79
3339
                inc_error_cnt
3340
add_79:         ld      a,h
3341
                cp      a,0
3342
                jr      z,add_80
3343
                inc_error_cnt
3344
add_80:         ld      a,l
3345
                cp      a,0
3346
                jr      z,add_81
3347
                inc_error_cnt
3348
add_81:         ld      hl,data_aa55
3349
                ld      de,data_ffff
3350
                add     hl,de
3351
                jr      c,add_82
3352
                inc_error_cnt
3353
add_82:         ld      a,h
3354
                cp      a,data_aa
3355
                jr      z,add_83
3356
                inc_error_cnt
3357
add_83:         ld      a,l
3358
                cp      a,data_55-1
3359
                jr      z,add_84
3360
                inc_error_cnt
3361
add_84:         ld      hl,data_aa55
3362
                ld      sp,data_8000
3363
                add     hl,sp
3364
                jr      c,add_85
3365
                inc_error_cnt
3366
add_85:         ld      a,h
3367
                cp      a,#2a
3368
                jr      z,add_86
3369
                inc_error_cnt
3370
add_86:         ld      a,l
3371
                cp      a,data_55
3372
                jr      z,add_87
3373
                inc_error_cnt
3374
add_87:         ld      sp,stack_end
3375
                ld      hl,data_1234
3376
                scf
3377
                ccf
3378
                adc     hl,hl
3379
                jr      nz,add_88
3380
                inc_error_cnt
3381
add_88:         jr      nc,add_89
3382
                inc_error_cnt
3383
add_89:         jp      p,add_90
3384
                inc_error_cnt
3385
add_90:         jp      po,add_91
3386
                inc_error_cnt
3387
add_91:         ld      bc,data_8000
3388
                adc     hl,bc
3389
                jp      m,add_92
3390
                inc_error_cnt
3391
add_92:         jr      nc,add_93
3392
                inc_error_cnt
3393
add_93:         jp      po,add_94
3394
                inc_error_cnt
3395
add_94:         jp      nz,add_95
3396
                inc_error_cnt
3397
add_95:         adc     hl,bc
3398
                jp      p,add_96
3399
                inc_error_cnt
3400
add_96:         jp      pe,add_97
3401
                inc_error_cnt
3402
add_97:         jr      c,add_98
3403
                inc_error_cnt
3404
add_98:         jr      nz,add_99
3405
                inc_error_cnt
3406
add_99:         ld      de,#db97
3407
                adc     hl,de
3408
                jr      z,add_100
3409
                inc_error_cnt
3410
add_100:        jr      c,add_101
3411
                inc_error_cnt
3412
add_101:        jp      po,add_102
3413
                inc_error_cnt
3414
add_102:        ld      de,0
3415
                adc     hl,de
3416
                jr      nc,add_103
3417
                inc_error_cnt
3418
add_103:        jr      nz,add_104
3419
                inc_error_cnt
3420
add_104:        ld      a,h
3421
                cp      a,0
3422
                jr      z,add_105
3423
                inc_error_cnt
3424
add_105:        ld      a,l
3425
                cp      a,1
3426
                jr      z,add_106
3427
                inc_error_cnt
3428
add_106:        ld      hl,data_1234
3429
                ld      sp,data_ffff
3430
                adc     hl,sp
3431
                jr      c,add_107
3432
                inc_error_cnt
3433
add_107:        ld      a,h
3434
                cp      a,#12
3435
                jr      z,add_108
3436
                inc_error_cnt
3437
add_108:        ld      a,l
3438
                cp      a,#33
3439
                jr      z,sbc_66
3440
                inc_error_cnt
3441
sbc_66:         ld      sp,stack_end
3442
                scf
3443
                ccf
3444
                ld      hl,data_1234
3445
                sbc     hl,hl
3446
                jr      z,sbc_67
3447
                inc_error_cnt
3448
sbc_67:         jp      p,sbc_68
3449
                inc_error_cnt
3450
sbc_68:         jp      po,sbc_69
3451
                inc_error_cnt
3452
sbc_69:         jr      nc,sbc_70
3453
                inc_error_cnt
3454
sbc_70:         ld      bc,data_1234
3455
                sbc     hl,bc
3456
                jr      nz,sbc_71
3457
                inc_error_cnt
3458
sbc_71:         jr      c,sbc_72
3459
                inc_error_cnt
3460
sbc_72:         jp      m,sbc_73
3461
                inc_error_cnt
3462
sbc_73:         jp      po,sbc_74
3463
                inc_error_cnt
3464
sbc_74:         ld      de,data_7fff
3465
                sbc     hl,de
3466
                jr      nz,sbc_75
3467
                inc_error_cnt
3468
sbc_75:         jr      nc,sbc_76
3469
                inc_error_cnt
3470
sbc_76:         jp      p,sbc_77
3471
                inc_error_cnt
3472
sbc_77:         jp      pe,sbc_78
3473
                inc_error_cnt
3474
sbc_78:         ld      sp,data_1234
3475
                sbc     hl,sp
3476
                jr      nz,sbc_79
3477
                inc_error_cnt
3478
sbc_79:         ld      a,h
3479
                cp      a,#5b
3480
                jr      z,sbc_80
3481
                inc_error_cnt
3482
sbc_80:         ld      a,l
3483
                cp      a,#98
3484
                jr      z,add_109
3485
                inc_error_cnt
3486
add_109:        ld      sp,stack_end
3487
                ld      ix,0
3488
                add     ix,sp
3489
                jr      nc,add_110
3490
                inc_error_cnt
3491 25 bporcella
add_110:        push    ix
3492
                pop     hl
3493
                ld      a,h
3494
                cp      a,#71           ; >stack_end
3495
                jr      z,add_111
3496
                inc_error_cnt
3497
add_111:        ld      a,l
3498
                cp      a,#80           ; 
3499
                jr      z,add_112
3500
                inc_error_cnt
3501
add_112:        ld      ix,data_7fff
3502
                ld      bc,data_aa55
3503
                add     ix,bc
3504
                jr      c,add_113
3505
                inc_error_cnt
3506
add_113:        add     ix,bc
3507
                jr      nc,add_114
3508
                inc_error_cnt
3509
add_114:        push    ix
3510
                pop     hl
3511
                ld      a,h
3512
                cp      a,#d4
3513
                jr      z,add_115
3514
                inc_error_cnt
3515
add_115:        ld      a,l
3516
                cp      a,#a9
3517
                jr      z,add_116
3518
                inc_error_cnt
3519
add_116:        ld      ix,data_1234
3520
                ld      de,data_1234
3521
                add     ix,de
3522
                push    ix
3523
                pop     hl
3524
                ld      a,h
3525
                cp      a,#24           ;>(data_1234+data_1234)
3526
                jr      z,add_117
3527
                inc_error_cnt
3528
add_117:        ld      a,l
3529
                cp      a,#68           ;<(data_1234+data_1234)
3530
                jr      z,add_118
3531
                inc_error_cnt
3532
add_118:        ld      ix,data_1234
3533
                add     ix,ix
3534
                push    ix
3535
                pop     bc
3536
                ld      a,b
3537
                cp      a,#24           ;>(data_1234+data_1234)
3538
                jr      z,add_119
3539
                inc_error_cnt
3540
add_119:        ld      a,c
3541
                cp      a,#68           ;<(data_1234+data_1234)
3542
                jr      z,add_120
3543
                inc_error_cnt
3544
add_120:        ld      sp,stack_end
3545
                ld      iy,0
3546
                add     iy,sp
3547
                jr      nc,add_121
3548
                inc_error_cnt
3549
add_121:        push    iy
3550
                pop     hl
3551
                ld      a,h
3552
                cp      a,#71           ;>stack_end
3553
                jr      z,add_122
3554
                inc_error_cnt
3555
add_122:        ld      a,l
3556
                cp      a,#80           ;
3557
                jr      z,add_123
3558
                inc_error_cnt
3559
add_123:        ld      iy,data_7fff
3560
                ld      bc,data_aa55
3561
                add     iy,bc
3562
                jr      c,add_124
3563
                inc_error_cnt
3564
add_124:        add     iy,bc
3565
                jr      nc,add_125
3566
                inc_error_cnt
3567
add_125:        push    iy
3568
                pop     hl
3569
                ld      a,h
3570
                cp      a,#d4
3571
                jr      z,add_126
3572
                inc_error_cnt
3573
add_126:        ld      a,l
3574
                cp      a,#a9
3575
                jr      z,add_127
3576
                inc_error_cnt
3577
add_127:        ld      iy,data_1234
3578
                ld      de,data_1234
3579
                add     iy,de
3580
                push    iy
3581
                pop     hl
3582
                ld      a,h
3583
                cp      a,#24           ;>(data_1234+data_1234)
3584
                jr      z,add_128
3585
                inc_error_cnt
3586
add_128:        ld      a,l
3587
                cp      a,#68           ;<(data_1234+data_1234)
3588
                jr      z,add_129
3589
                inc_error_cnt
3590
add_129:        ld      iy,data_1234
3591
                add     iy,iy
3592
                push    iy
3593
                pop     bc
3594
                ld      a,b
3595
                cp      a,#24           ;>(data_1234+data_1234)
3596
                jr      z,add_130
3597
                inc_error_cnt
3598
add_130:        ld      a,c
3599
                cp      a,#68           ;<(data_1234+data_1234)
3600
                jr      z,inc_54
3601
                inc_error_cnt
3602
inc_54:         ld      bc,data_1234
3603
                inc     bc
3604
                ld      a,b
3605
                cp      a,#12      ;bjp was >data_1234
3606
                jr      z,inc_55
3607
                inc_error_cnt
3608
inc_55:         ld      a,c
3609
                cp      a,#34+1      ;bjp was >data_1234+1
3610
                jr      z,inc_56
3611
                inc_error_cnt
3612
inc_56:         ld      de,data_55aa
3613
                inc     de
3614
                ld      a,d
3615
                cp      a,#55           ;>data_55aa
3616
                jr      z,inc_57
3617
                inc_error_cnt
3618
inc_57:         ld      a,e
3619
                cp      a,#ab           ;
3620
                jr      z,inc_58
3621
                inc_error_cnt
3622
inc_58:         ld      hl,data_7fff
3623
                inc     hl
3624
                ld      a,h
3625
                cp      a,#80           ;>data_7fff+1
3626
                jr      z,inc_59
3627
                inc_error_cnt
3628
inc_59:         ld      a,l
3629
                cp      a,#00           ;
3630
                jr      z,inc_60
3631
                inc_error_cnt
3632
inc_60:         ld      hl,0
3633
                inc     sp
3634
                add     hl,sp
3635
                ld      sp,stack_end
3636
                ld      a,h
3637
                cp      a,#71           ;>stack_end+1
3638
                jr      z,inc_61
3639
                inc_error_cnt
3640
inc_61:         ld      a,l
3641
                cp      a,#81           ;
3642
                jr      z,inc_62
3643
                inc_error_cnt
3644
inc_62:         ld      ix,data_8000
3645
                inc     ix
3646
                push    ix
3647
                pop     de
3648
                ld      a,d
3649
                cp      a,#80           ;>data_8000
3650
                jr      z,inc_63
3651
                inc_error_cnt
3652
inc_63:         ld      a,e
3653
                cp      a,#01           ;
3654
                jr      z,inc_64
3655
                inc_error_cnt
3656
inc_64:         ld      iy,data_7fff
3657
                inc     iy
3658
                push    iy
3659
                pop     bc
3660
                ld      a,b
3661
                cp      a,#80           ;>data_7fff+1
3662
                jr      z,inc_65
3663
                inc_error_cnt
3664
inc_65:         ld      a,c
3665
                cp      a,#00           ;
3666
                jr      z,dec_46
3667
                inc_error_cnt
3668
dec_46:         ld      bc,data_1234
3669
                dec     bc
3670
                ld      a,b
3671
                cp      a,#12      ;bjp was >data_1234
3672
                jr      z,dec_47
3673
                inc_error_cnt
3674
dec_47:         ld      a,c
3675
                cp      a,#34-1      ;bjp was >data_1234-1
3676
                jr      z,dec_48
3677
                inc_error_cnt
3678
dec_48:         ld      de,data_8000
3679
                dec     de
3680
                ld      a,d
3681
                cp      a,#7f           ;>data_7fff
3682
                jr      z,dec_49
3683
                inc_error_cnt
3684
dec_49:         ld      a,e
3685
                cp      a,#ff           ;
3686
                jr      z,dec_50
3687
                inc_error_cnt
3688
dec_50:         ld      hl,data_aa55
3689
                dec     hl
3690
                ld      a,h
3691
                cp      a,#aa           ;>data_aa55
3692
                jr      z,dec_51
3693
                inc_error_cnt
3694
dec_51:         ld      a,l
3695
                cp      a,#54           ;
3696
                jr      z,dec_52
3697
                inc_error_cnt
3698
dec_52:         ld      hl,0
3699
                dec     sp
3700
                add     hl,sp
3701
                ld      a,h
3702
                cp      a,#71           ;>stack_end-1
3703
                jr      z,dec_53
3704
                inc_error_cnt
3705
dec_53:         ld      a,l
3706
                cp      a,#7f           ;
3707
                jr      z,dec_54
3708
                inc_error_cnt
3709
dec_54:         ld      sp,stack_end
3710
                ld      ix,data_ffff
3711
                dec     ix
3712
                push    ix
3713
                pop     bc
3714
                ld      a,b
3715
                cp      a,#ff           ;>data_ffff
3716
                jr      z,dec_55
3717
                inc_error_cnt
3718
dec_55:         ld      a,c
3719
                cp      a,#fe           ;
3720
                jr      z,dec_56
3721
                inc_error_cnt
3722
dec_56:         ld      iy,data_aa55
3723
                dec     iy
3724
                push    iy
3725
                pop     de
3726
                ld      a,d
3727
                cp      a,#aa           ;>data_aa55
3728
                jr      z,dec_57
3729
                inc_error_cnt
3730
dec_57:         ld      a,e
3731
                cp      a,#54           ;
3732
                jr      z,rlca_0
3733
                inc_error_cnt
3734 30 bporcella
                ; bjp  don't see any further mucking with sp after the load above.
3735
                ; perhaps it is now safe to enable interrupts. and test them a little
3736
rlca_0:         ld      hl, bist_adr      ; enable interrupts
3737
                ld      (hl), bist_ei
3738
                ld      a, #72         ;bjp  this is >int_tbl  - if you move int_tbl change
3739
                ld      i, a
3740
                ei
3741
 
3742
                ld      a,data_80
3743 25 bporcella
                rlca
3744
                jr      c,rlca_1
3745
                inc_error_cnt
3746
rlca_1:         rlca
3747
                jr      nc,rlca_2
3748
                inc_error_cnt
3749
rlca_2:         cp      a,2
3750
                jr      z,rlca_3
3751
                inc_error_cnt
3752
rlca_3:         ld      a,data_55
3753
                rlca
3754
                cp      a,data_aa
3755
                jr      z,rla_0
3756
                inc_error_cnt
3757
rla_0:          scf
3758
                ccf
3759
                ld      a,data_80
3760
                rla
3761
                jr      c,rla_1
3762
                inc_error_cnt
3763
rla_1:          rla
3764
                jr      nc,rla_2
3765
                inc_error_cnt
3766
rla_2:          cp      a,1
3767
                jr      z,rla_3
3768
                inc_error_cnt
3769
rla_3:          ld      a,data_7f
3770
                rla
3771
                cp      a,data_ff-1
3772
                jr      z,rrca_0
3773
                inc_error_cnt
3774 30 bporcella
rrca_0:         di                 ; disable interrupts  we want to enable at specific pts
3775
                scf
3776 25 bporcella
                ccf
3777
                ld      a,1
3778
                rrca
3779
                jr      c,rrca_1
3780
                inc_error_cnt
3781
rrca_1:         rrca
3782
                jr      nc,rrca_2
3783
                inc_error_cnt
3784
rrca_2:         cp      a,data_7f-#3f
3785
                jr      z,rrca_3
3786
                inc_error_cnt
3787
rrca_3:         ld      a,data_aa
3788
                rrca
3789
                cp      a,data_55
3790
                jr      z,rra_0
3791
                inc_error_cnt
3792
rra_0:          scf
3793
                ccf
3794
                ld      a,1
3795
                rra
3796
                jr      c,rra_1
3797
                inc_error_cnt
3798
rra_1:          rra
3799
                jr      nc,rra_2
3800
                inc_error_cnt
3801
rra_2:          cp      a,data_80
3802
                jr      z,rra_3
3803
                inc_error_cnt
3804
rra_3:          ld      a,data_aa
3805
                rra
3806
                cp      a,data_55
3807
                jr      z,rlc_0
3808
                inc_error_cnt
3809
rlc_0:          ld      a,data_80
3810
                rlc     a
3811
                jr      c,rlc_1
3812
                inc_error_cnt
3813
rlc_1:          jp      p,rlc_2
3814
                inc_error_cnt
3815
rlc_2:          jr      nz,rlc_3
3816
                inc_error_cnt
3817
rlc_3:          jp      po,rlc_4
3818
                inc_error_cnt
3819
rlc_4:          rlc     a
3820
                jr      nc,rlc_5
3821
                inc_error_cnt
3822
rlc_5:          rlc     a
3823
                rlc     a
3824
                rlc     a
3825
                rlc     a
3826
                rlc     a
3827
                rlc     a
3828
                jp      m,rlc_6
3829
                inc_error_cnt
3830
rlc_6:          ld      a,data_55
3831
                rlc     a
3832
                jp      m,rlc_7
3833
                inc_error_cnt
3834
rlc_7:          jp      pe,rlc_8
3835
                inc_error_cnt
3836
rlc_8:          cp      a,data_aa
3837
                jr      z,rlc_9
3838
                inc_error_cnt
3839
rlc_9:          ld      a,0
3840
                rlc     a
3841
                jr      z,rlc_10
3842
                inc_error_cnt
3843
rlc_10:         ld      b,data_7f
3844
                rlc     b
3845
                ld      a,b
3846
                cp      a,data_ff-1
3847
                jr      z,rlc_11
3848
                inc_error_cnt
3849
rlc_11:         ld      c,data_aa
3850
                rlc     c
3851
                jr      c,rlc_12
3852
                inc_error_cnt
3853
rlc_12:         ld      a,c
3854
                cp      a,data_55
3855
                jr      z,rlc_13
3856
                inc_error_cnt
3857
rlc_13:         ld      d,data_80
3858
                rlc     d
3859
                jr      c,rlc_14
3860
                inc_error_cnt
3861
rlc_14:         ld      a,d
3862
                cp      a,1
3863
                jr      z,rlc_15
3864
                inc_error_cnt
3865
rlc_15:         ld      e,data_ff
3866
                rlc     e
3867
                jr      c,rlc_16
3868
                inc_error_cnt
3869
rlc_16:         ld      a,e
3870
                cp      a,data_ff
3871
                jr      z,rlc_17
3872
                inc_error_cnt
3873
rlc_17:         ld      h,data_55
3874
                rlc     h
3875
                jp      m,rlc_18
3876
                inc_error_cnt
3877
rlc_18:         ld      a,h
3878
                cp      a,data_aa
3879
                jr      z,rlc_19
3880
                inc_error_cnt
3881
rlc_19:         ld      l,data_80
3882
                rlc     l
3883
                jp      p,rlc_20
3884
                inc_error_cnt
3885
rlc_20:         ld      a,l
3886
                cp      a,1
3887
                jr      z,rlc_21
3888
                inc_error_cnt
3889
rlc_21:         ld      hl,t_var1
3890
                ld      a,data_55
3891
                ld      (hl),a
3892
                rlc     (hl)
3893
                jp      m,rlc_22
3894
                inc_error_cnt
3895
rlc_22:         jp      pe,rlc_23
3896
                inc_error_cnt
3897
rlc_23:         jr      nc,rlc_24
3898
                inc_error_cnt
3899
rlc_24:         jr      nz,rlc_25
3900
                inc_error_cnt
3901
rlc_25:         rlc     (hl)
3902
                jp      p,rlc_26
3903
                inc_error_cnt
3904
rlc_26:         jr      c,rlc_27
3905
                inc_error_cnt
3906
rlc_27:         ld      a,(hl)
3907
                cp      a,data_55
3908
                jr      z,rlc_28
3909
                inc_error_cnt
3910
rlc_28:         ld      a,data_7f
3911
                ld      (hl),a
3912
                rlc     (hl)
3913
                jp      po,rlc_29
3914
                inc_error_cnt
3915
rlc_29:         ld      a,(hl)
3916
                cp      a,data_ff-1
3917
                jr      z,rlc_30
3918
                inc_error_cnt
3919
rlc_30:         ld      a,0
3920
                ld      (hl),a
3921
                rlc     (hl)
3922
                jr      z,rlc_31
3923
                inc_error_cnt
3924
rlc_31:         ld      ix,t_var3
3925
                ld      a,data_55
3926
                ld      (ix-2),a
3927
                rlc     (ix-2)
3928
                jp      m,rlc_32
3929
                inc_error_cnt
3930
rlc_32:         jp      pe,rlc_33
3931
                inc_error_cnt
3932
rlc_33:         jr      nz,rlc_34
3933
                inc_error_cnt
3934
rlc_34:         jr      nc,rlc_35
3935
                inc_error_cnt
3936
rlc_35:         rlc     (ix-2)
3937
                jp      p,rlc_36
3938
                inc_error_cnt
3939
rlc_36:         jr      c,rlc_37
3940
                inc_error_cnt
3941
rlc_37:         ld      a,(ix-2)
3942
                cp      a,data_55
3943
                jr      z,rlc_38
3944
                inc_error_cnt
3945
rlc_38:         ld      a,data_7f
3946
                ld      (ix+2),a
3947
                rlc     (ix+2)
3948
                jp      po,rlc_39
3949
                inc_error_cnt
3950
rlc_39:         ld      a,(ix+2)
3951
                cp      a,data_ff-1
3952
                jr      z,rlc_40
3953
                inc_error_cnt
3954
rlc_40:         ld      a,0
3955
                ld      (ix-1),a
3956
                rlc     (ix-1)
3957
                jr      z,rlc_41
3958
                inc_error_cnt
3959
rlc_41:         ld      iy,t_var3
3960
                ld      a,data_55
3961
                ld      (iy+2),a
3962
                rlc     (iy+2)
3963
                jp      m,rlc_42
3964
                inc_error_cnt
3965
rlc_42:         jp      pe,rlc_43
3966
                inc_error_cnt
3967
rlc_43:         jr      nc,rlc_44
3968
                inc_error_cnt
3969
rlc_44:         jr      nz,rlc_45
3970
                inc_error_cnt
3971
rlc_45:         rlc     (iy+2)
3972
                jp      p,rlc_46
3973
                inc_error_cnt
3974
rlc_46:         jr      c,rlc_47
3975
                inc_error_cnt
3976
rlc_47:         ld      a,(iy+2)
3977
                cp      a,data_55
3978
                jr      z,rlc_48
3979
                inc_error_cnt
3980
rlc_48:         ld      a,data_7f
3981
                ld      (iy-2),a
3982
                rlc     (iy-2)
3983
                jp      po,rlc_49
3984
                inc_error_cnt
3985
rlc_49:         ld      a,(iy-2)
3986
                cp      a,data_ff-1
3987
                jr      z,rlc_50
3988
                inc_error_cnt
3989
rlc_50:         ld      a,0
3990
                ld      (iy+1),a
3991
                rlc     (iy+1)
3992
                jr      z,rl_0
3993
                inc_error_cnt
3994
rl_0:           scf
3995
                ccf
3996
                ld      a,data_55
3997
                rl      a
3998
                jp      m,rl_1
3999
                inc_error_cnt
4000
rl_1:           jp      pe,rl_2
4001
                inc_error_cnt
4002
rl_2:           jr      nc,rl_3
4003
                inc_error_cnt
4004
rl_3:           jr      nz,rl_4
4005
                inc_error_cnt
4006
rl_4:           rl      a
4007
                jp      p,rl_5
4008
                inc_error_cnt
4009
rl_5:           jp      po,rl_6
4010
                inc_error_cnt
4011
rl_6:           jr      c,rl_7
4012
                inc_error_cnt
4013
rl_7:           rl      a
4014
                cp      a,data_aa-1
4015
                jr      z,rl_8
4016
                inc_error_cnt
4017
rl_8:           ld      a,0
4018
                rl      a
4019
                jr      z,rl_9
4020
                inc_error_cnt
4021
rl_9:           ld      b,data_aa
4022
                ld      c,data_7f
4023
                rl      b
4024
                jr      c,rl_10
4025
                inc_error_cnt
4026
rl_10:          rl      c
4027
                jr      nc,rl_11
4028
                inc_error_cnt
4029
rl_11:          ld      a,b
4030
                cp      a,data_55-1
4031
                jr      z,rl_12
4032
                inc_error_cnt
4033
rl_12:          ld      a,c
4034
                cp      a,data_ff
4035
                jr      z,rl_13
4036
                inc_error_cnt
4037
rl_13:          ld      d,data_ff
4038
                ld      e,data_80
4039
                rl      e
4040
                jr      c,rl_14
4041
                inc_error_cnt
4042
rl_14:          rl      d
4043
                jr      c,rl_15
4044
                inc_error_cnt
4045
rl_15:          ld      a,d
4046
                cp      a,data_ff
4047
                jr      z,rl_16
4048
                inc_error_cnt
4049
rl_16:          ld      a,e
4050
                cp      a,0
4051
                jr      z,rl_17
4052
                inc_error_cnt
4053
rl_17:          ld      h,data_7f
4054
                ld      l,data_55
4055
                rl      h
4056
                jp      m,rl_18
4057
                inc_error_cnt
4058
rl_18:          rl      l
4059
                jp      m,rl_19
4060
                inc_error_cnt
4061
rl_19:          ld      a,h
4062
                cp      a,data_ff-1
4063
                jr      z,rl_20
4064
                inc_error_cnt
4065
rl_20:          ld      a,l
4066
                cp      a,data_aa
4067
                jr      z,rl_21
4068
                inc_error_cnt
4069
rl_21:          ld      hl,t_var5
4070
                ld      a,data_55
4071
                ld      (hl),a
4072
                rl      (hl)
4073
                jp      m,rl_22
4074
                inc_error_cnt
4075
rl_22:          jp      pe,rl_23
4076
                inc_error_cnt
4077
rl_23:          jr      nc,rl_24
4078
                inc_error_cnt
4079
rl_24:          jr      nz,rl_25
4080
                inc_error_cnt
4081
rl_25:          rl      (hl)
4082
                jp      p,rl_26
4083
                inc_error_cnt
4084
rl_26:          jp      po,rl_27
4085
                inc_error_cnt
4086
rl_27:          jr      c,rl_28
4087
                inc_error_cnt
4088
rl_28:          ld      a,(hl)
4089
                cp      a,data_55-1
4090
                jr      z,rl_29
4091
                inc_error_cnt
4092
rl_29:          ld      a,0
4093
                ld      (hl),a
4094
                rl      (hl)
4095
                jr      z,rl_30
4096
                inc_error_cnt
4097
rl_30:          ld      ix,t_var3
4098
                ld      a,data_55
4099
                ld      (ix-2),a
4100
                rl      (ix-2)
4101
                jp      m,rl_31
4102
                inc_error_cnt
4103
rl_31:          jp      pe,rl_32
4104
                inc_error_cnt
4105
rl_32:          jr      nc,rl_33
4106
                inc_error_cnt
4107
rl_33:          jr      nz,rl_34
4108
                inc_error_cnt
4109
rl_34:          rl      (ix-2)
4110
                jp      p,rl_35
4111
                inc_error_cnt
4112
rl_35:          jp      po,rl_36
4113
                inc_error_cnt
4114
rl_36:          jr      c,rl_37
4115
                inc_error_cnt
4116
rl_37:          ld      a,(ix-2)
4117
                cp      a,data_55-1
4118
                jr      z,rl_38
4119
                inc_error_cnt
4120
rl_38:          ld      a,0
4121
                ld      (ix+2),a
4122
                rl      (ix+2)
4123
                jr      z,rl_39
4124
rl_39:          ld      iy,t_var3
4125
                ld      a,data_55
4126
                ld      (iy-1),a
4127
                rl      (iy-1)
4128
                jp      m,rl_40
4129
                inc_error_cnt
4130
rl_40:          jp      pe,rl_41
4131
                inc_error_cnt
4132
rl_41:          jr      nc,rl_42
4133
                inc_error_cnt
4134
rl_42:          jr      nz,rl_43
4135
                inc_error_cnt
4136
rl_43:          rl      (iy-1)
4137
                jp      p,rl_44
4138
                inc_error_cnt
4139
rl_44:          jp      po,rl_45
4140
                inc_error_cnt
4141
rl_45:          jr      c,rl_46
4142
                inc_error_cnt
4143
rl_46:          ld      a,(iy-1)
4144
                cp      a,data_55-1
4145
                jr      z,rl_47
4146
                inc_error_cnt
4147
rl_47:          ld      a,0
4148
                ld      (iy+1),a
4149
                rl      (iy+1)
4150
                jr      z,rrc_0
4151
                inc_error_cnt
4152
rrc_0:          ld      a,data_aa
4153
                rrc     a
4154
                jp      p,rrc_1
4155
                inc_error_cnt
4156
rrc_1:          jp      pe,rrc_2
4157
                inc_error_cnt
4158
rrc_2:          jr      nz,rrc_3
4159
                inc_error_cnt
4160
rrc_3:          jr      nc,rrc_4
4161
                inc_error_cnt
4162
rrc_4:          rrc     a
4163
                jp      m,rrc_5
4164
                inc_error_cnt
4165
rrc_5:          jr      c,rrc_6
4166
                inc_error_cnt
4167
rrc_6:          cp      a,data_aa
4168
                jr      z,rrc_7
4169
                inc_error_cnt
4170
rrc_7:          ld      a,1
4171
                rrc     a
4172
                jr      c,rrc_8
4173
                inc_error_cnt
4174
rrc_8:          cp      a,data_80
4175
                jr      z,rrc_9
4176
                inc_error_cnt
4177
rrc_9:          ld      a,data_7f
4178
                rrc     a
4179
                jp      po,rrc_10
4180
                inc_error_cnt
4181
rrc_10:         cp      a,#bf
4182
                jr      z,rrc_11
4183
                inc_error_cnt
4184
rrc_11:         ld      b,data_80
4185
                ld      c,data_55
4186
                rrc     b
4187
                jr      nc,rrc_12
4188
                inc_error_cnt
4189
rrc_12:         rrc     c
4190
                jr      c,rrc_13
4191
                inc_error_cnt
4192
rrc_13:         ld      a,b
4193
                cp      a,#40
4194
                jr      z,rrc_14
4195
                inc_error_cnt
4196
rrc_14:         ld      a,c
4197
                cp      a,data_aa
4198
                jr      z,rrc_15
4199
                inc_error_cnt
4200
rrc_15:         ld      d,data_aa
4201
                ld      e,1
4202
                rrc     d
4203
                jp      p,rrc_16
4204
                inc_error_cnt
4205
rrc_16:         rrc     e
4206
                jp      m,rrc_17
4207
                inc_error_cnt
4208
rrc_17:         ld      a,d
4209
                cp      a,data_55
4210
                jr      z,rrc_18
4211
                inc_error_cnt
4212
rrc_18:         ld      a,e
4213
                cp      a,data_80
4214
                jr      z,rrc_19
4215
                inc_error_cnt
4216
rrc_19:         ld      h,data_55
4217
                ld      l,data_ff
4218
                rrc     h
4219
                jr      c,rrc_20
4220
                inc_error_cnt
4221
rrc_20:         rrc     l
4222
                jr      c,rrc_21
4223
                inc_error_cnt
4224
rrc_21:         ld      a,h
4225
                cp      a,data_aa
4226
                jr      z,rrc_22
4227
                inc_error_cnt
4228
rrc_22:         ld      a,l
4229
                cp      a,data_ff
4230
                jr      z,rrc_23
4231
                inc_error_cnt
4232
rrc_23:         ld      hl,t_var4
4233
                ld      (hl),data_aa
4234
                rrc      (hl)
4235
                jp      p,rrc_24
4236
                inc_error_cnt
4237
rrc_24:         jp      pe,rrc_25
4238
                inc_error_cnt
4239
rrc_25:         jr      nz,rrc_26
4240
                inc_error_cnt
4241
rrc_26:         jr      nc,rrc_27
4242
                inc_error_cnt
4243
rrc_27:         rrc     (hl)
4244
                jp      m,rrc_28
4245
                inc_error_cnt
4246
rrc_28:         jr      c,rrc_29
4247
                inc_error_cnt
4248
rrc_29:         ld      a,(hl)
4249
                cp      a,data_aa
4250
                jr      z,rrc_30
4251
                inc_error_cnt
4252
rrc_30:         ld      (hl),data_7f
4253
                rrc     (hl)
4254
                jp      po,rrc_31
4255
                inc_error_cnt
4256
rrc_31:         ld      a,(hl)
4257
                cp      a,#bf
4258
                jr      z,rrc_32
4259
                inc_error_cnt
4260
rrc_32:         ld      (hl),0
4261
                rrc     (hl)
4262
                jr      z,rrc_33
4263
                inc_error_cnt
4264
rrc_33:         ld      ix,t_var3
4265
                ld      a,data_aa
4266
                ld      (ix+2),a
4267
                rrc     (ix+2)
4268
                jp      p,rrc_34
4269
                inc_error_cnt
4270
rrc_34:         jp      pe,rrc_35
4271
                inc_error_cnt
4272
rrc_35:         jr      nc,rrc_36
4273
                inc_error_cnt
4274
rrc_36:         jr      nz,rrc_37
4275
                inc_error_cnt
4276
rrc_37:         rrc     (ix+2)
4277
                jp      m,rrc_38
4278
                inc_error_cnt
4279
rrc_38:         jr      c,rrc_39
4280
                inc_error_cnt
4281
rrc_39:         ld      a,(ix+2)
4282
                cp      a,data_aa
4283
                jr      z,rrc_40
4284
                inc_error_cnt
4285
rrc_40:         ld      a,1
4286
                ld      (ix-2),a
4287
                rrc     (ix-2)
4288
                jp      po,rrc_41
4289
                inc_error_cnt
4290
rrc_41:         ld      a,(ix-2)
4291
                cp      a,data_80
4292
                jr      z,rrc_42
4293
                inc_error_cnt
4294
rrc_42:         ld      a,0
4295
                ld      (ix+1),a
4296
                rrc     (ix+1)
4297
                jr      z,rrc_43
4298
                inc_error_cnt
4299
rrc_43:         ld      iy,t_var3
4300
                ld      a,data_aa
4301
                ld      (iy+2),a
4302
                rrc     (iy+2)
4303
                jp      p,rrc_44
4304
                inc_error_cnt
4305
rrc_44:         jp      pe,rrc_45
4306
                inc_error_cnt
4307
rrc_45:         jr      nc,rrc_46
4308
                inc_error_cnt
4309
rrc_46:         jr      nz,rrc_47
4310
                inc_error_cnt
4311
rrc_47:         rrc     (iy+2)
4312
                jp      m,rrc_48
4313
                inc_error_cnt
4314
rrc_48:         jr      c,rrc_49
4315
                inc_error_cnt
4316
rrc_49:         ld      a,(iy+2)
4317
                cp      a,data_aa
4318
                jr      z,rrc_50
4319
                inc_error_cnt
4320
rrc_50:         ld      a,1
4321
                ld      (iy-2),a
4322
                rrc     (iy-2)
4323
                jp      po,rrc_51
4324
                inc_error_cnt
4325
rrc_51:         ld      a,(iy-2)
4326
                cp      a,data_80
4327
                jr      z,rrc_52
4328
                inc_error_cnt
4329
rrc_52:         ld      a,0
4330
                ld      (iy+1),a
4331
                rrc     (iy+1)
4332
                jr      z,rr_0
4333
                inc_error_cnt
4334
rr_0:           scf
4335
                ccf
4336
                ld      a,data_aa
4337
                rr      a
4338
                jp      p,rr_1
4339
                inc_error_cnt
4340
rr_1:           jp      pe,rr_2
4341
                inc_error_cnt
4342
rr_2:           jr      nc,rr_3
4343
                inc_error_cnt
4344
rr_3:           jr      nz,rr_4
4345
                inc_error_cnt
4346
rr_4:           rr      a
4347
                jr      c,rr_5
4348
                inc_error_cnt
4349
rr_5:           jp      po,rr_6
4350
                inc_error_cnt
4351
rr_6:           cp      a,#2a
4352
                jr      z,rr_7
4353
                inc_error_cnt
4354
rr_7:           scf
4355
                ld      a,0
4356
                rr      a
4357
                jp      m,rr_8
4358
                inc_error_cnt
4359
rr_8:           cp      a,data_80
4360
                jr      z,rr_9
4361
                inc_error_cnt
4362
rr_9:           ld      a,0
4363
                rr      a
4364
                jr      z,rr_10
4365
                inc_error_cnt
4366
rr_10:          ld      b,data_55
4367
                ld      c,data_aa
4368
                rr      b
4369
                jr      c,rr_11
4370
                inc_error_cnt
4371
rr_11:          rr      c
4372
                jr      nc,rr_12
4373
                inc_error_cnt
4374
rr_12:          ld      a,b
4375
                cp      a,#2a
4376
                jr      z,rr_13
4377
                inc_error_cnt
4378
rr_13:          ld      a,c
4379
                cp      a,#d5
4380
                jr      z,rr_14
4381
                inc_error_cnt
4382
rr_14:          ld      d,data_7f
4383
                ld      e,data_80
4384
                rr      d
4385
                jr      c,rr_15
4386
                inc_error_cnt
4387
rr_15:          rr      e
4388
                jr      nc,rr_16
4389
                inc_error_cnt
4390
rr_16:          ld      a,d
4391
                cp      a,#3f
4392
                jr      z,rr_17
4393
                inc_error_cnt
4394
rr_17:          ld      a,e
4395
                cp      a,#c0
4396
                jr      z,rr_18
4397
                inc_error_cnt
4398
rr_18:          ld      hl,t_var2
4399
                ld      (hl),data_55
4400
                rr      (hl)
4401
                jp      p,rr_19
4402
                inc_error_cnt
4403
rr_19:          jp      po,rr_20
4404
                inc_error_cnt
4405
rr_20:          jr      c,rr_21
4406
                inc_error_cnt
4407
rr_21:          jr      nz,rr_22
4408
                inc_error_cnt
4409
rr_22:          rr      (hl)
4410
                jp      m,rr_23
4411
                inc_error_cnt
4412
rr_23:          jp      pe,rr_24
4413
                inc_error_cnt
4414
rr_24:          jr      nc,rr_25
4415
                inc_error_cnt
4416
rr_25:          ld      a,(hl)
4417
                cp      a,#95
4418
                jr      z,rr_26
4419
                inc_error_cnt
4420
rr_26:          ld      (hl),0
4421
                rr      (hl)
4422
                jr      z,rr_27
4423
                inc_error_cnt
4424
rr_27:          ld      ix,t_var3
4425
                ld      a,data_55
4426
                ld      (ix-2),a
4427
                rr      (ix-2)
4428
                jp      p,rr_28
4429
                inc_error_cnt
4430
rr_28:          jp      po,rr_29
4431
                inc_error_cnt
4432
rr_29:          jr      c,rr_30
4433
                inc_error_cnt
4434
rr_30:          jr      nz,rr_31
4435
                inc_error_cnt
4436
rr_31:          rr      (ix-2)
4437
                jp      m,rr_32
4438
                inc_error_cnt
4439
rr_32:          jp      pe,rr_33
4440
                inc_error_cnt
4441
rr_33:          jr      nc,rr_34
4442
                inc_error_cnt
4443
rr_34:          ld      a,(ix-2)
4444
                cp      a,#95
4445
                jr      z,rr_35
4446
                inc_error_cnt
4447
rr_35:          ld      a,0
4448
                ld      (ix+2),a
4449
                rr      (ix+2)
4450
                jr      z,rr_36
4451
                inc_error_cnt
4452
rr_36:          ld      iy,t_var3
4453
                ld      a,data_55
4454
                ld      (iy+2),a
4455
                rr      (iy+2)
4456
                jp      p,rr_37
4457
                inc_error_cnt
4458
rr_37:          jp      po,rr_38
4459
                inc_error_cnt
4460
rr_38:          jr      c,rr_39
4461
                inc_error_cnt
4462
rr_39:          jr      nz,rr_40
4463
                inc_error_cnt
4464
rr_40:          rr      (iy+2)
4465
                jp      m,rr_41
4466
                inc_error_cnt
4467
rr_41:          jp      pe,rr_42
4468
                inc_error_cnt
4469
rr_42:          jr      nc,rr_43
4470
                inc_error_cnt
4471
rr_43:          ld      a,(iy+2)
4472
                cp      a,#95
4473
                jr      z,rr_44
4474
                inc_error_cnt
4475
rr_44:          ld      a,0
4476
                ld      (iy-1),a
4477
                rr      (iy-1)
4478
                jr      z,sla_0
4479
                inc_error_cnt
4480
sla_0:          ld      a,data_55
4481
                sla     a
4482
                jp      m,sla_1
4483
                inc_error_cnt
4484
sla_1:          jp      pe,sla_2
4485
                inc_error_cnt
4486
sla_2:          jr      nc,sla_3
4487
                inc_error_cnt
4488
sla_3:          jr      nz,sla_4
4489
                inc_error_cnt
4490
sla_4:          sla     a
4491
                jp      p,sla_5
4492
                inc_error_cnt
4493
sla_5:          jp      po,sla_6
4494
                inc_error_cnt
4495
sla_6:          jr      c,sla_7
4496
                inc_error_cnt
4497
sla_7:          cp      a,data_55-1
4498
                jr      z,sla_8
4499
                inc_error_cnt
4500
sla_8:          ld      a,0
4501
                sla     a
4502
                jr      z,sla_9
4503
                inc_error_cnt
4504
sla_9:          ld      b,data_80
4505
                ld      c,data_7f
4506
                sla     b
4507
                jr      c,sla_10
4508
                inc_error_cnt
4509
sla_10:         ld      a,b
4510
                cp      a,0
4511
                jr      z,sla_11
4512
                inc_error_cnt
4513
sla_11:         sla     c
4514
                jp      m,sla_12
4515
                inc_error_cnt
4516
sla_12:         ld      a,c
4517
                cp      a,data_ff-1
4518
                jr      z,sla_13
4519
                inc_error_cnt
4520
sla_13:         ld      d,data_aa
4521
                ld      e,data_55
4522
                sla     d
4523
                jr      c,sla_14
4524
                inc_error_cnt
4525
sla_14:         ld      a,d
4526
                cp      a,data_55-1
4527
                jr      z,sla_15
4528
                inc_error_cnt
4529
sla_15:         sla     e
4530
                jp      m,sla_16
4531
                inc_error_cnt
4532
sla_16:         ld      a,e
4533
                cp      a,data_aa
4534
                jr      z,sla_17
4535
                inc_error_cnt
4536
sla_17:         ld      h,#12      ;bjp was >data_1234
4537
                ld      l,#34      ;bjp was >data_1234
4538
                sla     h
4539
                jp      p,sla_18
4540
                inc_error_cnt
4541
sla_18:         ld      a,h
4542
                cp      a,#24
4543
                jr      z,sla_19
4544
                inc_error_cnt
4545
sla_19:         sla     l
4546
                jp      p,sla_20
4547
                inc_error_cnt
4548
sla_20:         ld      a,l
4549
                cp      a,#68
4550
                jr      z,sla_21
4551
                inc_error_cnt
4552
sla_21:         ld      hl,t_var3
4553
                ld      (hl),data_55
4554
                sla     (hl)
4555
                jp      m,sla_22
4556
                inc_error_cnt
4557
sla_22:         jp      pe,sla_23
4558
                inc_error_cnt
4559
sla_23:         jr      nc,sla_24
4560
                inc_error_cnt
4561
sla_24:         jr      nz,sla_25
4562
                inc_error_cnt
4563
sla_25:         sla     (hl)
4564
                jp      p,sla_26
4565
                inc_error_cnt
4566
sla_26:         jp      po,sla_27
4567
                inc_error_cnt
4568
sla_27:         jr      c,sla_28
4569
                inc_error_cnt
4570
sla_28:         ld      a,(hl)
4571
                cp      a,data_55-1
4572
                jr      z,sla_29
4573
                inc_error_cnt
4574
sla_29:         ld      (hl),0
4575
                sla     (hl)
4576
                jr      z,sla_30
4577
                inc_error_cnt
4578
sla_30:         ld      ix,t_var3
4579
                ld      a,data_55
4580
                ld      (ix-2),a
4581
                sla     (ix-2)
4582
                jp      m,sla_31
4583
                inc_error_cnt
4584
sla_31:         jp      pe,sla_32
4585
                inc_error_cnt
4586
sla_32:         jr      nc,sla_33
4587
                inc_error_cnt
4588
sla_33:         jr      nz,sla_34
4589
                inc_error_cnt
4590
sla_34:         sla     (ix-2)
4591
                jp      p,sla_35
4592
                inc_error_cnt
4593
sla_35:         jp      po,sla_36
4594
                inc_error_cnt
4595
sla_36:         jr      c,sla_37
4596
                inc_error_cnt
4597
sla_37:         ld      a,(ix-2)
4598
                cp      a,data_55-1
4599
                jr      z,sla_38
4600
                inc_error_cnt
4601
sla_38:         ld      a,data_80
4602
                ld      (ix+2),a
4603
                sla     (ix+2)
4604
                jr      z,sla_39
4605
                inc_error_cnt
4606
sla_39:         jr      c,sla_40
4607
                inc_error_cnt
4608
sla_40:         ld      iy,t_var3
4609
                ld      a,data_55
4610
                ld      (iy+2),a
4611
                sla     (iy+2)
4612
                jp      m,sla_41
4613
                inc_error_cnt
4614
sla_41:         jp      pe,sla_42
4615
                inc_error_cnt
4616
sla_42:         jr      nc,sla_43
4617
                inc_error_cnt
4618
sla_43:         jr      nz,sla_44
4619
                inc_error_cnt
4620
sla_44:         sla     (iy+2)
4621
                jp      p,sla_45
4622
                inc_error_cnt
4623
sla_45:         jp      po,sla_46
4624
                inc_error_cnt
4625
sla_46:         jr      c,sla_47
4626
                inc_error_cnt
4627
sla_47:         ld      a,(iy+2)
4628
                cp      a,data_55-1
4629
                jr      z,sla_48
4630
                inc_error_cnt
4631
sla_48:         ld      a,data_80
4632
                ld      (iy-2),a
4633
                sla     (iy-2)
4634
                jr      z,sla_49
4635
                inc_error_cnt
4636
sla_49:         jr      c,sra_0
4637
                inc_error_cnt
4638
sra_0:          ld      a,data_55
4639
                sra     a
4640
                jp      p,sra_1
4641
                inc_error_cnt
4642
sra_1:          jp      po,sra_2
4643
                inc_error_cnt
4644
sra_2:          jr      c,sra_3
4645
                inc_error_cnt
4646
sra_3:          jr      nz,sra_4
4647
                inc_error_cnt
4648
sra_4:          sra     a
4649
                jp      po,sra_5
4650
                inc_error_cnt
4651
sra_5:          jr      nc,sra_6
4652
                inc_error_cnt
4653
sra_6:          sra     a
4654
                jp      pe,sra_7
4655
                inc_error_cnt
4656
sra_7:          cp      a,#0a                   ;data_aa.and.#0f
4657
                jr      z,sra_8
4658
                inc_error_cnt
4659
sra_8:          ld      a,1
4660
                sra     a
4661
                jr      c,sra_9
4662
                inc_error_cnt
4663
sra_9:          jr      z,sra_10
4664
                inc_error_cnt
4665
sra_10:         ld      a,data_80
4666
                sra     a
4667
                jp      m,sra_11
4668
                inc_error_cnt
4669
sra_11:         cp      a,#c0
4670
                jr      z,sra_12
4671
                inc_error_cnt
4672
sra_12:         ld      b,data_7f
4673
                ld      c,data_aa
4674
                sra     b
4675
                jr      c,sra_13
4676
                inc_error_cnt
4677
sra_13:         ld      a,b
4678
                cp      a,#3f
4679
                jr      z,sra_14
4680
                inc_error_cnt
4681
sra_14:         sra     c
4682
                jr      nc,sra_15
4683
                inc_error_cnt
4684
sra_15:         ld      a,c
4685
                cp      a,#d5
4686
                jr      z,sra_16
4687
                inc_error_cnt
4688
sra_16:         ld      d,data_55
4689
                ld      e,data_ff
4690
                sra     d
4691
                jr      c,sra_17
4692
                inc_error_cnt
4693
sra_17:         ld      a,d
4694
                cp      a,#2a
4695
                jr      z,sra_18
4696
                inc_error_cnt
4697
sra_18:         sra     e
4698
                jp      m,sra_19
4699
                inc_error_cnt
4700
sra_19:         ld      a,e
4701
                cp      a,data_ff
4702
                jr      z,sra_20
4703
                inc_error_cnt
4704
sra_20:         ld      h,data_aa
4705
                ld      l,data_7f
4706
                sra     h
4707
                jp      m,sra_21
4708
                inc_error_cnt
4709
sra_21:         ld      a,h
4710
                cp      a,#d5
4711
                jr      z,sra_22
4712
                inc_error_cnt
4713
sra_22:         sra     l
4714
                jr      c,sra_23
4715
                inc_error_cnt
4716
sra_23:         ld      a,l
4717
                cp      a,#3f
4718
                jr      z,sra_24
4719
                inc_error_cnt
4720
sra_24:         ld      hl,t_var1
4721
                ld      (hl),data_55
4722
                sra     (hl)
4723
                jp      p,sra_25
4724
                inc_error_cnt
4725
sra_25:         jp      po,sra_26
4726
                inc_error_cnt
4727
sra_26:         jr      c,sra_27
4728
                inc_error_cnt
4729
sra_27:         jr      nz,sra_28
4730
                inc_error_cnt
4731
sra_28:         sra     (hl)
4732
                jr      nc,sra_29
4733
                inc_error_cnt
4734
sra_29:         sra     (hl)
4735
                jp      pe,sra_30
4736
                inc_error_cnt
4737
sra_30:         ld      a,(hl)
4738
                cp      a,#0a                   ;data_aa.and.#0f
4739
                jr      z,sra_31
4740
                inc_error_cnt
4741
sra_31:         ld      (hl),data_80
4742
                sra     (hl)
4743
                jp      m,sra_32
4744
                inc_error_cnt
4745
sra_32:         ld      a,(hl)
4746
                cp      a,#c0
4747
                jr      z,sra_33
4748
                inc_error_cnt
4749
sra_33:         ld      (hl),1
4750
                sra     (hl)
4751
                jr      c,sra_34
4752
                inc_error_cnt
4753
sra_34:         jr      z,sra_35
4754
                inc_error_cnt
4755
sra_35:         ld      ix,t_var3
4756
                ld      a,data_55
4757
                ld      (ix-2),a
4758
                sra     (ix-2)
4759
                jp      p,sra_36
4760
                inc_error_cnt
4761
sra_36:         jp      po,sra_37
4762
                inc_error_cnt
4763
sra_37:         jr      c,sra_38
4764
                inc_error_cnt
4765
sra_38:         jr      nz,sra_39
4766
                inc_error_cnt
4767
sra_39:         sra     (ix-2)
4768
                jr      nc,sra_40
4769
                inc_error_cnt
4770
sra_40:         sra     (ix-2)
4771
                jp      pe,sra_41
4772
                inc_error_cnt
4773
sra_41:         ld      a,(ix-2)
4774
                cp      a,#0a           ;data_aa.and.#0f
4775
                jr      z,sra_42
4776
                inc_error_cnt
4777
sra_42:         ld      a,data_80
4778
                ld      (ix+2),a
4779
                sra     (ix+2)
4780
                jp      m,sra_43
4781
                inc_error_cnt
4782
sra_43:         ld      a,(ix+2)
4783
                cp      a,#c0
4784
                jr      z,sra_44
4785
                inc_error_cnt
4786
sra_44:         ld      a,1
4787
                ld      (ix-1),a
4788
                sra     (ix-1)
4789
                jr      c,sra_45
4790
                inc_error_cnt
4791
sra_45:         jr      z,sra_46
4792
                inc_error_cnt
4793
sra_46:         ld      iy,t_var3
4794
                ld      a,data_55
4795
                ld      (iy-2),a
4796
                sra     (iy-2)
4797
                jp      p,sra_47
4798
                inc_error_cnt
4799
sra_47:         jp      po,sra_48
4800
                inc_error_cnt
4801
sra_48:         jr      c,sra_49
4802
                inc_error_cnt
4803
sra_49:         jr      nz,sra_50
4804
                inc_error_cnt
4805
sra_50:         sra     (iy-2)
4806
                jr      nc,sra_51
4807
                inc_error_cnt
4808
sra_51:         sra     (iy-2)
4809
                jp      pe,sra_52
4810
                inc_error_cnt
4811
sra_52:         ld      a,(iy-2)
4812
                cp      a,#0a           ;data_aa.and.#0f
4813
                jr      z,sra_53
4814
                inc_error_cnt
4815
sra_53:         ld      a,data_80
4816
                ld      (iy+2),a
4817
                sra     (iy+2)
4818
                jp      m,sra_54
4819
                inc_error_cnt
4820
sra_54:         ld      a,(iy+2)
4821
                cp      a,#c0
4822
                jr      z,sra_55
4823
                inc_error_cnt
4824
sra_55:         ld      a,1
4825
                ld      (iy-1),a
4826
                sra     (iy-1)
4827
                jr      c,sra_56
4828
                inc_error_cnt
4829
sra_56:         jr      z,srl_0
4830
                inc_error_cnt
4831
srl_0:          ld      a,data_55
4832
                srl     a
4833
                jr      c,srl_1
4834
                inc_error_cnt
4835
srl_1:          jp      po,srl_2
4836
                inc_error_cnt
4837
srl_2:          srl     a
4838
                jr      nc,srl_3
4839
                inc_error_cnt
4840
srl_3:          srl     a
4841
                jp      pe,srl_4
4842
                inc_error_cnt
4843
srl_4:          cp      a,#0a                   ;data_aa.and.#0f
4844
                jr      z,srl_5
4845
                inc_error_cnt
4846
srl_5:          ld      a,data_80
4847
                and     a
4848
                jp      m,srl_6
4849
                inc_error_cnt
4850
srl_6:          srl     a
4851
                jp      p,srl_7
4852
                inc_error_cnt
4853
srl_7:          ld      a,2
4854
                srl     a
4855
                jr      nz,srl_8
4856
                inc_error_cnt
4857
srl_8:          srl     a
4858
                jr      z,srl_9
4859
                inc_error_cnt
4860
srl_9:          jr      c,srl_10
4861
                inc_error_cnt
4862
srl_10:         ld      b,data_aa
4863
                srl     b
4864
                jp      p,srl_11
4865
                inc_error_cnt
4866
srl_11:         ld      a,b
4867
                cp      a,data_55
4868
                jr      z,srl_12
4869
                inc_error_cnt
4870
srl_12:         ld      c,data_7f
4871
                srl     c
4872
                jr      c,srl_13
4873
                inc_error_cnt
4874
srl_13:         ld      a,c
4875
                cp      a,#3f
4876
                jr      z,srl_14
4877
                inc_error_cnt
4878
srl_14:         ld      d,data_55
4879
                srl     d
4880
                jr      c,srl_15
4881
                inc_error_cnt
4882
srl_15:         ld      a,d
4883
                cp      a,#2a
4884
                jr      z,srl_16
4885
                inc_error_cnt
4886
srl_16:         ld      e,data_ff
4887
                srl     e
4888
                jr      c,srl_17
4889
                inc_error_cnt
4890
srl_17:         ld      a,e
4891
                cp      a,data_7f
4892
                jr      z,srl_18
4893
                inc_error_cnt
4894
srl_18:         ld      h,#12      ;bjp was >data_1234
4895
                srl     h
4896
                jr      nc,srl_19
4897
                inc_error_cnt
4898
srl_19:         ld      a,h
4899
                cp      a,9
4900
                jr      z,srl_20
4901
                inc_error_cnt
4902
srl_20:         ld      l,#34      ;bjp was >data_1234
4903
                srl     l
4904
                jr      nc,srl_21
4905
                inc_error_cnt
4906
srl_21:         ld      a,l
4907
                cp      a,#1a
4908
                jr      z,srl_22
4909
                inc_error_cnt
4910
srl_22:         ld      hl,t_var1
4911
                ld      (hl),data_55
4912
                srl     (hl)
4913
                jr      c,srl_23
4914
                inc_error_cnt
4915
srl_23:         jp      po,srl_24
4916
                inc_error_cnt
4917
srl_24:         srl     (hl)
4918
                jr      nc,srl_25
4919
                inc_error_cnt
4920
srl_25:         srl     (hl)
4921
                jp      pe,srl_26
4922
                inc_error_cnt
4923
srl_26:         ld      a,(hl)
4924
                cp      a,#0a                   ;data_aa.and.#0f
4925
                jr      z,srl_27
4926
                inc_error_cnt
4927
srl_27:         ld      (hl),data_80
4928
                and     (hl)
4929
                jp      z,srl_28
4930
                inc_error_cnt
4931
srl_28:         srl     (hl)
4932
                jp      p,srl_29
4933
                inc_error_cnt
4934
srl_29:         ld      a,(hl)
4935
                cp      a,#40
4936
                jr      z,srl_30
4937
                inc_error_cnt
4938
srl_30:         ld      (hl),2
4939
                srl     (hl)
4940
                jr      nz,srl_31
4941
                inc_error_cnt
4942
srl_31:         srl     (hl)
4943
                jr      z,srl_32
4944
                inc_error_cnt
4945
srl_32:         jr      c,srl_33
4946
                inc_error_cnt
4947
srl_33:         ld      ix,t_var3
4948
                ld      a,data_55
4949
                ld      (ix+2),a
4950
                srl     (ix+2)
4951
                jr      c,srl_34
4952
                inc_error_cnt
4953
srl_34:         jp      po,srl_35
4954
                inc_error_cnt
4955
srl_35:         srl     (ix+2)
4956
                jr      nc,srl_36
4957
                inc_error_cnt
4958
srl_36:         srl     (ix+2)
4959
                jp      pe,srl_37
4960
                inc_error_cnt
4961
srl_37:         ld      a,(ix+2)
4962
                cp      a,#0a                   ;data_aa.and.#0f
4963
                jr      z,srl_38
4964
                inc_error_cnt
4965
srl_38:         ld      a,data_80
4966
                ld      (ix-2),a
4967
                and     (ix-2)
4968
                jp      m,srl_39
4969
                inc_error_cnt
4970
srl_39:         srl     (ix-2)
4971
                jp      p,srl_40
4972
                inc_error_cnt
4973
srl_40:         ld      a,(ix-2)
4974
                cp      a,#40
4975
                jr      z,srl_41
4976
                inc_error_cnt
4977
srl_41:         ld      a,2
4978
                ld      (ix+1),a
4979
                srl     (ix+1)
4980
                jr      nz,srl_42
4981
                inc_error_cnt
4982
srl_42:         srl     (ix+1)
4983
                jr      z,srl_43
4984
                inc_error_cnt
4985
srl_43:         jr      c,srl_44
4986
                inc_error_cnt
4987
srl_44:         ld      iy,t_var3
4988
                ld      a,data_55
4989
                ld      (iy+2),a
4990
                srl     (iy+2)
4991
                jr      c,srl_45
4992
                inc_error_cnt
4993
srl_45:         jp      po,srl_46
4994
                inc_error_cnt
4995
srl_46:         srl     (iy+2)
4996
                jr      nc,srl_47
4997
                inc_error_cnt
4998
srl_47:         srl     (iy+2)
4999
                jp      pe,srl_48
5000
                inc_error_cnt
5001
srl_48:         ld      a,(iy+2)
5002
                cp      a,#0a                   ;data_aa.and.#0f
5003
                jr      z,srl_49
5004
                inc_error_cnt
5005
srl_49:         ld      a,data_80
5006
                ld      (iy-2),a
5007
                and     (iy-2)
5008
                jp      m,srl_50
5009
                inc_error_cnt
5010
srl_50:         srl     (iy-2)
5011
                jp      p,srl_51
5012
                inc_error_cnt
5013
srl_51:         ld      a,(iy-2)
5014
                cp      a,#40
5015
                jr      z,srl_52
5016
                inc_error_cnt
5017
srl_52:         ld      a,2
5018
                ld      (iy+1),a
5019
                srl     (iy+1)
5020
                jr      nz,srl_53
5021
                inc_error_cnt
5022
srl_53:         srl     (iy+1)
5023
                jr      z,srl_54
5024
                inc_error_cnt
5025
srl_54:         jr      c,rld_0
5026
                inc_error_cnt
5027
rld_0:          ld      hl,t_var5
5028
                ld      a,data_55
5029
                ld      (hl),data_aa
5030
                rld
5031
                jp      p,rld_1
5032
                inc_error_cnt
5033
rld_1:          cp      a,data_55+5
5034
                jr      z,rld_2
5035
                inc_error_cnt
5036
rld_2:          ld      a,(hl)
5037
                cp      a,data_aa-5
5038
                jr      z,rld_3
5039
                inc_error_cnt
5040
rld_3:          ld      (hl),data_7f
5041
                ld      a,data_80
5042
                rld
5043
                jp      m,rld_4
5044
                inc_error_cnt
5045
rld_4:          jp      pe,rld_5
5046
                inc_error_cnt
5047
rld_5:          rld
5048
                jp      po,rld_6
5049
                inc_error_cnt
5050
rld_6:          cp      a,data_80+15
5051
                jr      z,rld_7
5052
                inc_error_cnt
5053
rld_7:          ld      a,(hl)
5054
                cp      a,7
5055
                jr      z,rld_8
5056
                inc_error_cnt
5057
rld_8:          ld      a,#05                   ;data_55.and.#0f
5058
                ld      (hl),#0a                        ;data_aa.and.#0f
5059
                rld
5060
                jr      z,rld_9
5061
                inc_error_cnt
5062
rld_9:          ld      a,(hl)
5063
                cp      a,#a5
5064
                jr      z,rrd_0
5065
                inc_error_cnt
5066
rrd_0:          ld      hl,t_var3
5067
                ld      a,data_55
5068
                ld      (hl),data_aa
5069
                rrd
5070
                jp      p,rrd_1
5071
                inc_error_cnt
5072
rrd_1:          jp      pe,rrd_2
5073
                inc_error_cnt
5074
rrd_2:          jr      nz,rrd_3
5075
                inc_error_cnt
5076
rrd_3:          cp      a,data_55+5
5077
                jr      z,rrd_4
5078
                inc_error_cnt
5079
rrd_4:          ld      a,(hl)
5080
                cp      a,data_55+5
5081
                jr      z,rrd_5
5082
                inc_error_cnt
5083
rrd_5:          ld      (hl),data_7f
5084
                ld      a,data_80
5085
                rrd
5086
                jp      m,rrd_6
5087
                inc_error_cnt
5088
rrd_6:          jp      po,rrd_7
5089
                inc_error_cnt
5090
rrd_7:          cp      a,data_80+15
5091
                jr      z,rrd_8
5092
                inc_error_cnt
5093
rrd_8:          ld      a,(hl)
5094
                cp      a,7
5095
                jr      z,rrd_9
5096
                inc_error_cnt
5097
rrd_9:          ld      a,8
5098
                ld      (hl),0
5099
                rrd
5100
                jr      z,rrd_10
5101
                inc_error_cnt
5102
rrd_10:         ld      a,(hl)
5103
                cp      a,data_80
5104
                jr      z,bit_0
5105
                inc_error_cnt
5106
bit_0:          ld      a,data_ff
5107
                bit     0,a
5108
                jr      nz,bit_1
5109
                inc_error_cnt
5110
bit_1:          bit     1,a
5111
                jr      nz,bit_2
5112
                inc_error_cnt
5113
bit_2:          bit     2,a
5114
                jr      nz,bit_3
5115
                inc_error_cnt
5116
bit_3:          bit     3,a
5117
                jr      nz,bit_4
5118
                inc_error_cnt
5119
bit_4:          bit     4,a
5120
                jr      nz,bit_5
5121
                inc_error_cnt
5122
bit_5:          bit     5,a
5123
                jr      nz,bit_6
5124
                inc_error_cnt
5125
bit_6:          bit     6,a
5126
                jr      nz,bit_7
5127
                inc_error_cnt
5128
bit_7:          bit     7,a
5129
                jr      nz,bit_8
5130
                inc_error_cnt
5131
bit_8:          ld      a,0
5132
                bit     0,a
5133
                jr      z,bit_9
5134
                inc_error_cnt
5135
bit_9:          bit     1,a
5136
                jr      z,bit_10
5137
                inc_error_cnt
5138
bit_10:         bit     2,a
5139
                jr      z,bit_11
5140
                inc_error_cnt
5141
bit_11:         bit     3,a
5142
                jr      z,bit_12
5143
                inc_error_cnt
5144
bit_12:         bit     4,a
5145
                jr      z,bit_13
5146
                inc_error_cnt
5147
bit_13:         bit     5,a
5148
                jr      z,bit_14
5149
                inc_error_cnt
5150
bit_14:         bit     6,a
5151
                jr      z,bit_15
5152
                inc_error_cnt
5153
bit_15:         bit     7,a
5154
                jr      z,bit_16
5155
                inc_error_cnt
5156
bit_16:         ld      b,data_80
5157
                bit     2,b
5158
                jr      z,bit_17
5159
                inc_error_cnt
5160
bit_17:         bit     7,b
5161
                jr      nz,bit_18
5162
                inc_error_cnt
5163
bit_18:         ld      c,data_55
5164
                bit     7,c
5165
                jr      z,bit_19
5166
                inc_error_cnt
5167
bit_19:         bit     0,c
5168
                jr      nz,bit_20
5169
                inc_error_cnt
5170
bit_20:         ld      d,data_aa
5171
                bit     7,d
5172
                jr      nz,bit_21
5173
                inc_error_cnt
5174
bit_21:         bit     4,d
5175
                jr      z,bit_22
5176
                inc_error_cnt
5177
bit_22:         ld      e,data_7f
5178
                bit     7,e
5179
                jr      z,bit_23
5180
                inc_error_cnt
5181
bit_23:         bit     3,e
5182
                jr      nz,bit_24
5183
                inc_error_cnt
5184
bit_24:         ld      h,#12      ;bjp was >data_1234
5185
                bit     4,h
5186
                jr      nz,bit_25
5187
                inc_error_cnt
5188
bit_25:         bit     2,h
5189
                jr      z,bit_26
5190
                inc_error_cnt
5191
bit_26:         ld      l,#34      ;bjp was >data_1234
5192
                bit     3,l
5193
                jr      z,bit_27
5194
                inc_error_cnt
5195
bit_27:         bit     2,l
5196
                jr      nz,bit_28
5197
                inc_error_cnt
5198
bit_28:         ld      hl,t_var4
5199
                ld      (hl),data_55
5200
                bit     0,(hl)
5201
                jr      nz,bit_29
5202
                inc_error_cnt
5203
bit_29:         bit     1,(hl)
5204
                jr      z,bit_30
5205
                inc_error_cnt
5206
bit_30:         bit     2,(hl)
5207
                jr      nz,bit_31
5208
                inc_error_cnt
5209
bit_31:         bit     3,(hl)
5210
                jr      z,bit_32
5211
                inc_error_cnt
5212
bit_32:         bit     4,(hl)
5213
                jr      nz,bit_33
5214
                inc_error_cnt
5215
bit_33:         bit     5,(hl)
5216
                jr      z,bit_34
5217
                inc_error_cnt
5218
bit_34:         bit     6,(hl)
5219
                jr      nz,bit_35
5220
                inc_error_cnt
5221
bit_35:         bit     7,(hl)
5222
                jr      z,bit_36
5223
                inc_error_cnt
5224
bit_36:         ld      ix,t_var3
5225
                ld      a,data_aa
5226
                ld      (ix-2),a
5227
                bit     0,(ix-2)
5228
                jr      z,bit_37
5229
                inc_error_cnt
5230
bit_37:         bit     1,(ix-2)
5231
                jr      nz,bit_38
5232
                inc_error_cnt
5233
bit_38:         bit     2,(ix-2)
5234
                jr      z,bit_39
5235
                inc_error_cnt
5236
bit_39:         bit     3,(ix-2)
5237
                jr      nz,bit_40
5238
                inc_error_cnt
5239
bit_40:         bit     4,(ix-2)
5240
                jr      z,bit_41
5241
                inc_error_cnt
5242
bit_41:         bit     5,(ix-2)
5243
                jr      nz,bit_42
5244
                inc_error_cnt
5245
bit_42:         bit     6,(ix-2)
5246
                jr      z,bit_43
5247
                inc_error_cnt
5248
bit_43:         bit     7,(ix-2)
5249
                jr      nz,bit_44
5250
                inc_error_cnt
5251
bit_44:         ld      iy,t_var3
5252
                ld      a,data_55
5253
                ld      (iy+2),a
5254
                bit     0,(iy+2)
5255
                jr      nz,bit_45
5256
                inc_error_cnt
5257
bit_45:         bit     1,(iy+2)
5258
                jr      z,bit_46
5259
                inc_error_cnt
5260
bit_46:         bit     2,(iy+2)
5261
                jr      nz,bit_47
5262
                inc_error_cnt
5263
bit_47:         bit     3,(iy+2)
5264
                jr      z,bit_48
5265
                inc_error_cnt
5266
bit_48:         bit     4,(iy+2)
5267
                jr      nz,bit_49
5268
                inc_error_cnt
5269
bit_49:         bit     5,(iy+2)
5270
                jr      z,bit_50
5271
                inc_error_cnt
5272
bit_50:         bit     6,(iy+2)
5273
                jr      nz,bit_51
5274
                inc_error_cnt
5275
bit_51:         bit     7,(iy+2)
5276
                jr      z,set_0
5277
                inc_error_cnt
5278
set_0:          ld      a,0
5279
                set     0,a
5280
                set     2,a
5281
                set     4,a
5282
                set     6,a
5283
                cp      a,data_55
5284
                jr      z,set_1
5285
                inc_error_cnt
5286
set_1:          set     1,a
5287
                set     3,a
5288
                set     5,a
5289
                set     7,a
5290
                cp      a,data_ff
5291
                jr      z,set_2
5292
                inc_error_cnt
5293
set_2:          ld      b,0
5294
                set     1,b
5295
                set     3,b
5296
                ld      a,b
5297
                cp      a,#0a                   ;data_aa.and.#0f
5298
                jr      z,set_3
5299
                inc_error_cnt
5300
set_3:          ld      c,0
5301
                set     1,c
5302
                set     4,c
5303
                ld      a,c
5304
                cp      a,#12      ;bjp was >data_1234
5305
                jr      z,set_4
5306
                inc_error_cnt
5307
set_4:          ld      d,0
5308
                set     2,d
5309
                set     4,d
5310
                set     5,d
5311
                ld      a,d
5312
                cp      a,#34      ;bjp was >data_1234
5313
                jr      z,set_5
5314
                inc_error_cnt
5315
set_5:          ld      e,0
5316
                set     7,e
5317
                ld      a,e
5318
                cp      a,data_80
5319
                jr      z,set_6
5320
                inc_error_cnt
5321
set_6:          ld      h,0
5322
                set     0,h
5323
                set     2,h
5324
                set     4,h
5325
                set     6,h
5326
                ld      a,h
5327
                cp      a,data_55
5328
                jr      z,set_7
5329
                inc_error_cnt
5330
set_7:          ld      l,0
5331
                set     1,l
5332
                set     3,l
5333
                set     5,l
5334
                set     7,l
5335
                ld      a,l
5336
                cp      a,data_aa
5337
                jr      z,set_8
5338
                inc_error_cnt
5339
set_8:          ld      hl,t_var5
5340
                ld      (hl),0
5341
                set     0,(hl)
5342
                set     2,(hl)
5343
                set     4,(hl)
5344
                set     6,(hl)
5345
                ld      a,(hl)
5346
                cp      a,data_55
5347
                jr      z,set_9
5348
                inc_error_cnt
5349
set_9:          ld      (hl),0
5350
                set     1,(hl)
5351
                set     3,(hl)
5352
                set     5,(hl)
5353
                set     7,(hl)
5354
                ld      a,(hl)
5355
                cp      a,data_aa
5356
                jr      z,set_10
5357
                inc_error_cnt
5358
set_10:         ld      ix,t_var3
5359
                ld      a,0
5360
                ld      (ix-2),a
5361
                ld      (ix+2),a
5362
                set     0,(ix-2)
5363
                set     2,(ix-2)
5364
                set     4,(ix-2)
5365
                set     6,(ix-2)
5366
                ld      a,(ix-2)
5367
                cp      a,data_55
5368
                jr      z,set_11
5369
                inc_error_cnt
5370
set_11:         set     1,(ix+2)
5371
                set     3,(ix+2)
5372
                set     5,(ix+2)
5373
                set     7,(ix+2)
5374
                ld      a,(ix+2)
5375
                cp      a,data_aa
5376
                jr      z,set_12
5377
                inc_error_cnt
5378
set_12:         ld      iy,t_var3
5379
                ld      a,0
5380
                ld      (iy-1),a
5381
                ld      (iy+1),a
5382
                set     0,(iy-1)
5383
                set     2,(iy-1)
5384
                set     4,(iy-1)
5385
                set     6,(iy-1)
5386
                ld      a,(iy-1)
5387
                cp      a,data_55
5388
                jr      z,set_13
5389
                inc_error_cnt
5390
set_13:         set     1,(iy+1)
5391
                set     3,(iy+1)
5392
                set     5,(iy+1)
5393
                set     7,(iy+1)
5394
                ld      a,(iy+1)
5395
                cp      a,data_aa
5396
                jr      z,res_0
5397
                inc_error_cnt
5398
res_0:          ld      a,data_ff
5399
                res     7,a
5400
                cp      a,data_7f
5401
                jr      z,res_1
5402
                inc_error_cnt
5403
res_1:          res     5,a
5404
                res     3,a
5405
                res     1,a
5406
                cp      a,data_55
5407
                jr      z,res_2
5408
                inc_error_cnt
5409
res_2:          ld      a,data_ff
5410
                res     0,a
5411
                res     2,a
5412
                res     4,a
5413
                res     6,a
5414
                cp      a,data_aa
5415
                jr      z,res_3
5416
                inc_error_cnt
5417
res_3:          ld      b,data_ff
5418
                res     7,b
5419
                ld      a,b
5420
                cp      a,data_7f
5421
                jr      z,res_4
5422
                inc_error_cnt
5423
res_4:          ld      c,data_ff
5424
                res     0,c
5425
                res     1,c
5426
                res     2,c
5427
                res     3,c
5428
                res     4,c
5429
                res     5,c
5430
                res     6,c
5431
                ld      a,c
5432
                cp      a,data_80
5433
                jr      z,res_5
5434
                inc_error_cnt
5435
res_5:          ld      d,data_ff
5436
                res     0,d
5437
                res     2,d
5438
                res     4,d
5439
                res     6,d
5440
                ld      a,d
5441
                cp      a,data_aa
5442
                jr      z,res_6
5443
                inc_error_cnt
5444
res_6:          ld      e,data_ff
5445
                res     1,e
5446
                res     3,e
5447
                res     5,e
5448
                res     7,e
5449
                ld      a,e
5450
                cp      a,data_55
5451
                jr      z,res_7
5452
                inc_error_cnt
5453
res_7:          ld      h,data_ff
5454
                res     0,h
5455
                res     2,h
5456
                res     3,h
5457
                res     5,h
5458
                res     6,h
5459
                res     7,h
5460
                ld      a,h
5461
                cp      a,#12      ;bjp was >data_1234
5462
                jr      z,res_8
5463
                inc_error_cnt
5464
res_8:          ld      l,data_ff
5465
                res     0,l
5466
                res     1,l
5467
                res     3,l
5468
                res     6,l
5469
                res     7,l
5470
                ld      a,l
5471
                cp      a,#34      ;bjp was >data_1234
5472
                jr      z,res_9
5473
                inc_error_cnt
5474
res_9:          ld      hl,t_var3
5475
                ld      (hl),data_ff
5476
                res     0,(hl)
5477
                res     2,(hl)
5478
                res     4,(hl)
5479
                res     6,(hl)
5480
                ld      a,(hl)
5481
                cp      a,data_aa
5482
                jr      z,res_10
5483
                inc_error_cnt
5484
res_10:         res     1,(hl)
5485
                res     3,(hl)
5486
                res     5,(hl)
5487
                res     7,(hl)
5488
                ld      a,(hl)
5489
                cp      a,0
5490
                jr      z,res_11
5491
                inc_error_cnt
5492
res_11:         ld      ix,t_var3
5493
                ld      a,data_ff
5494
                ld      (ix-2),a
5495
                ld      (ix+2),a
5496
                res     1,(ix-2)
5497
                res     3,(ix-2)
5498
                res     5,(ix-2)
5499
                res     7,(ix-2)
5500
                ld      a,(ix-2)
5501
                cp      a,data_55
5502
                jr      z,res_12
5503
                inc_error_cnt
5504
res_12:         res     0,(ix+2)
5505
                res     2,(ix+2)
5506
                res     4,(ix+2)
5507
                res     6,(ix+2)
5508
                ld      a,(ix+2)
5509
                cp      a,data_aa
5510
                jr      z,res_13
5511
                inc_error_cnt
5512
res_13:         ld      iy,t_var3
5513
                ld      a,data_ff
5514
                ld      (iy-1),a
5515
                ld      (iy+1),a
5516
                res     1,(iy-1)
5517
                res     3,(iy-1)
5518
                res     5,(iy-1)
5519
                res     7,(iy-1)
5520
                ld      a,(iy-1)
5521
                cp      a,data_55
5522
                jr      z,res_14
5523
                inc_error_cnt
5524
res_14:         res     0,(iy+1)
5525
                res     2,(iy+1)
5526
                res     4,(iy+1)
5527
                res     6,(iy+1)
5528
                ld      a,(iy+1)
5529
                cp      a,data_aa
5530
                jr      z,jp_0
5531
                inc_error_cnt
5532
jp_0:           jp      jp_1
5533
                nop
5534
                nop
5535
                inc_error_cnt
5536
jp_1:           ld      a,0
5537
                and     a
5538
                jp      z,jp_2
5539
                inc_error_cnt
5540
jp_2:           jp      nc,jp_3
5541
                inc_error_cnt
5542
jp_3:           ld      b,1
5543
                sub     a,b
5544
                jp      nz,jp_4
5545
                inc_error_cnt
5546
jp_4:           jp      c,jp_5
5547
                inc_error_cnt
5548
jp_5:           jp      jp_7
5549
                inc_error_cnt
5550
jp_6:           jp      jr_0
5551
                inc_error_cnt
5552
jp_7:           jp      jp_6
5553
                inc_error_cnt
5554
jr_0:           jr      jr_2
5555
                inc_error_cnt
5556
jr_1:           jr      jr_3
5557
                inc_error_cnt
5558
jr_2:           jr      jr_1
5559
                inc_error_cnt
5560
jr_3:           ld      hl,jp_9
5561
                jp      (hl)
5562
                inc_error_cnt
5563
jp_8:           ld      ix,jp_10
5564
                jp      (ix)
5565
                inc_error_cnt
5566
jp_9:           jp      jp_8
5567
                inc_error_cnt
5568
jp_10:          ld      iy,djnz_0
5569
                jp      (iy)
5570
                inc_error_cnt
5571
djnz_0:         ld      b,5
5572
                ld      a,0
5573
djnz_1:         inc     a
5574
                djnz    djnz_1
5575
                cp      a,5
5576
                jr      z,call_0
5577
                inc_error_cnt
5578
call_0:         ld      a,0
5579
                call    sub1
5580
                cp      a,data_7f
5581
                jr      z,call_1
5582
                inc_error_cnt
5583
call_1:         ld      a,0
5584
                and     a
5585
                call    z,sub2
5586
                cp      a,data_55
5587
                jr      z,call_2
5588
                inc_error_cnt
5589
call_2:         ld      a,data_aa
5590
                and     a
5591
                call    nz,sub3
5592
                cp      a,data_aa+1
5593
                jr      z,call_3
5594
                inc_error_cnt
5595
call_3:         ld      a,0
5596
                cp      a,0
5597
                call    nc,sub4
5598
                cp      a,data_ff
5599
                jr      z,call_4
5600
                inc_error_cnt
5601
call_4:         ld      a,0
5602
                sub     a,1
5603
                call    c,sub5
5604
                cp      a,data_ff-1
5605
                jr      z,call_5
5606
                inc_error_cnt
5607
call_5:         ld      a,data_7f
5608
                sla     a
5609
                call    po,sub6
5610
                cp      a,data_7f
5611
                jr      z,call_6
5612
                inc_error_cnt
5613
call_6:         ld      a,data_aa
5614
                srl     a
5615
                call    pe,sub7
5616
                cp      a,data_aa
5617
                jr      z,call_7
5618
                inc_error_cnt
5619
call_7:         ld      a,data_80
5620
                sra     a
5621
                call    m,sub8
5622
                cp      a,data_80
5623
                jr      z,call_8
5624
                inc_error_cnt
5625
call_8:         ld      a,data_7f
5626
                sra     a
5627
                call    p,sub9
5628
                cp      a,data_7f
5629
                jr      z,rst_0
5630
                inc_error_cnt
5631
rst_0:          rst     #00
5632
                cp      a,1
5633
                jr      z,rst_1
5634
                inc_error_cnt
5635
rst_1:          rst     #08
5636
                cp      a,2
5637
                jr      z,rst_2
5638
                inc_error_cnt
5639
rst_2:          rst     #10
5640
                cp      a,3
5641
                jr      z,rst_3
5642
                inc_error_cnt
5643
rst_3:          rst     #18
5644
                cp      a,4
5645
                jr      z,rst_4
5646
                inc_error_cnt
5647
rst_4:          rst     #20
5648
                cp      a,5
5649
                jr      z,rst_5
5650
                inc_error_cnt
5651
rst_5:          rst     #28
5652
                cp      a,6
5653
                jr      z,rst_6
5654
                inc_error_cnt
5655
rst_6:          rst     #30
5656
                cp      a,7
5657
                jr      z,rst_7
5658
                inc_error_cnt
5659
rst_7:          rst     #38
5660
                cp      a,8
5661
                jr      z,in_0
5662
                inc_error_cnt
5663
in_0:           in      a,(in_port)
5664
                cp      a,data_7f
5665
                jr      z,in_1
5666
                inc_error_cnt
5667
in_1:           ld      c,in_port
5668
                in      a,(c)
5669
                jr      nz,in_2
5670
                inc_error_cnt
5671
in_2:           jp      p,in_3
5672
                inc_error_cnt
5673
in_3:           jp      pe,in_4
5674
                inc_error_cnt
5675
in_4:           cp      a,data_55
5676
                jr      z,in_5
5677
                inc_error_cnt
5678
in_5:           in      a,(c)
5679
                jp      m,in_6
5680
                inc_error_cnt
5681
in_6:           jp      po,in_7
5682
                inc_error_cnt
5683
in_7:           jr      nz,in_8
5684
                inc_error_cnt
5685
in_8:           cp      a,data_80
5686
                jr      z,in_9
5687
                inc_error_cnt
5688
in_9:           in      a,(c)
5689
                jr      z,in_10
5690
                inc_error_cnt
5691
in_10:          in      b,(c)
5692
                jp      m,in_11
5693
                inc_error_cnt
5694
in_11:          ld      a,b
5695
                cp      a,data_ff
5696
                jr      z,in_12
5697
                inc_error_cnt
5698
in_12:          in      d,(c)
5699
                jp      pe,in_13
5700
                inc_error_cnt
5701
in_13:          ld      a,d
5702
                cp      a,data_aa
5703
                jr      z,in_14
5704
                inc_error_cnt
5705
in_14:          in      e,(c)
5706
                jp      p,in_15
5707
                inc_error_cnt
5708
in_15:          ld      a,e
5709
                cp      a,data_7f
5710
                jr      z,in_16
5711
                inc_error_cnt
5712
in_16:          in      h,(c)
5713
                jp      pe,in_17
5714
                inc_error_cnt
5715
in_17:          ld      a,h
5716
                cp      a,data_55
5717
                jr      z,in_18
5718
                inc_error_cnt
5719
in_18:          in      l,(c)
5720
                jp      m,in_19
5721
                inc_error_cnt
5722
in_19:          ld      a,l
5723
                cp      a,data_80
5724
                jr      z,in_20
5725
                inc_error_cnt
5726
in_20:          in      c,(c)
5727
                jr      z,in_21
5728
                inc_error_cnt
5729
in_21:          ld      c,in_port
5730
                ld      b,2
5731
                ld      hl,t_var1
5732
                ini
5733
                jr      nz,in_22
5734
                inc_error_cnt
5735
in_22:          ini
5736
                jr      z,in_23
5737
                inc_error_cnt
5738
in_23:          ld      hl,t_var1
5739
                ld      a,(hl)
5740
                cp      a,data_ff
5741
                jr      z,in_24
5742
                inc_error_cnt
5743
in_24:          inc     hl
5744
                ld      a,(hl)
5745
                cp      a,data_aa
5746
                jr      z,in_25
5747
                inc_error_cnt
5748
in_25:          ld      b,5
5749
                ld      c,in_port
5750
                ld      hl,t_var1
5751
                inir
5752
                jr      z,in_26
5753
                inc_error_cnt
5754
in_26:          ld      hl,t_var1
5755
                ld      a,(hl)
5756
                cp      a,data_7f
5757
                jr      z,in_27
5758
                inc_error_cnt
5759
in_27:          inc     hl
5760
                ld      a,(hl)
5761
                cp      a,data_55
5762
                jr      z,in_28
5763
                inc_error_cnt
5764
in_28:          inc     hl
5765
                ld      a,(hl)
5766
                cp      a,data_80
5767
                jr      z,in_29
5768
                inc_error_cnt
5769
in_29:          inc     hl
5770
                ld      a,(hl)
5771
                cp      a,0
5772
                jr      z,in_30
5773
                inc_error_cnt
5774
in_30:          inc     hl
5775
                ld      a,(hl)
5776
                cp      a,data_ff
5777
                jr      z,in_31
5778
                inc_error_cnt
5779
in_31:          ld      b,2
5780
                ld      c,in_port
5781
                ld      hl,t_var5
5782
                ind
5783
                jr      nz,in_32
5784
                inc_error_cnt
5785
in_32:          ind
5786
                jr      z,in_33
5787
                inc_error_cnt
5788
in_33:          ld      hl,t_var5
5789
                ld      a,(hl)
5790
                cp      a,data_aa
5791
                jr      z,in_34
5792
                inc_error_cnt
5793
in_34:          dec     hl
5794
                ld      a,(hl)
5795
                cp      a,data_7f
5796
                jr      z,in_35
5797
                inc_error_cnt
5798
in_35:          ld      b,5
5799
                ld      c,in_port
5800
                ld      hl,t_var5
5801
                indr
5802
                jr      z,in_36
5803
                inc_error_cnt
5804
in_36:          ld      hl,t_var5
5805
                ld      a,(hl)
5806
                cp      a,data_55
5807
                jr      z,in_37
5808
                inc_error_cnt
5809
in_37:          dec     hl
5810
                ld      a,(hl)
5811
                cp      a,data_80
5812
                jr      z,in_38
5813
                inc_error_cnt
5814
in_38:          dec     hl
5815
                ld      a,(hl)
5816
                cp      a,0
5817
                jr      z,in_39
5818
                inc_error_cnt
5819
in_39:          dec     hl
5820
                ld      a,(hl)
5821
                cp      a,data_ff
5822
                jr      z,in_40
5823
                inc_error_cnt
5824
in_40:          dec     hl
5825
                ld      a,(hl)
5826
                cp      a,data_aa
5827 36 bporcella
                jr      z,in_41
5828
                inc_error_cnt
5829
                ; 10,09,2007  Test for Howard Hart's IN bug
5830
in_41:          ld      hl, t_var1
5831
                ld      a, #34       ; something not in the input sequencer
5832
                in      a,(in_port)
5833
                ld      (hl), a      ; 10/12/2007 previously this instruction got skipped
5834
                ld      a, #34
5835
                ld      a,(hl)
5836
                cp      a,data_7f
5837 25 bporcella
                jr      z,ldi_0
5838
                inc_error_cnt
5839
ldi_0:          ld      hl,t_var1
5840
                ld      a,#12      ;bjp was >data_1234
5841
                ld      (hl),a
5842
                inc     hl
5843
                ld      a,#34      ;bjp was >data_1234
5844
                ld      (hl),a
5845
                dec     hl
5846
                ld      de,t_var3
5847
                ld      bc,2
5848
                ldi
5849
                jp      pe,ldi_1
5850
                inc_error_cnt
5851
ldi_1:          ldi
5852
                jp      po,ldi_2
5853
                inc_error_cnt
5854
ldi_2:          ld      hl,t_var3
5855
                ld      a,(hl)
5856
                cp      a,#12      ;bjp was >data_1234
5857
                jr      z,ldi_3
5858
                inc_error_cnt
5859
ldi_3:          inc     hl
5860
                ld      a,(hl)
5861
                cp      a,#34      ;bjp was >data_1234
5862
                jr      z,ldir_0
5863
                inc_error_cnt
5864
ldir_0:         ld      hl,var1
5865
                ld      de,t_var1
5866
                ld      bc,5
5867 30 bporcella
                ei                 ;bjp  be sure we can interrupt this instruction
5868 25 bporcella
                ldir
5869
                jp      po,ldir_1
5870
                inc_error_cnt
5871
ldir_1:         ld      hl,t_var1
5872
                ld      a,(hl)
5873
                cp      a,data_ff
5874
                jr      z,ldir_2
5875
                inc_error_cnt
5876
ldir_2:         inc     hl
5877
                ld      a,(hl)
5878
                cp      a,data_55
5879
                jr      z,ldir_3
5880
                inc_error_cnt
5881
ldir_3:         inc     hl
5882
                ld      a,(hl)
5883
                cp      a,data_80
5884
                jr      z,ldir_4
5885
                inc_error_cnt
5886
ldir_4:         inc     hl
5887
                ld      a,(hl)
5888
                cp      a,data_aa
5889
                jr      z,ldir_5
5890
                inc_error_cnt
5891
ldir_5:         inc     hl
5892
                ld      a,(hl)
5893
                cp      a,data_7f
5894
                jr      z,ldd_0
5895
                inc_error_cnt
5896
ldd_0:          ld      hl,t_var5
5897
                ld      a,#12      ;bjp was >data_1234
5898
                ld      (hl),a
5899
                dec     hl
5900
                ld      a,#34      ;bjp was >data_1234
5901
                ld      (hl),a
5902
                inc     hl
5903
                ld      bc,2
5904
                ld      de,t_var3
5905
                ldd
5906
                jp      pe,ldd_1
5907
                inc_error_cnt
5908
ldd_1:          ldd
5909
                jp      po,ldd_2
5910
                inc_error_cnt
5911
ldd_2:          ld      hl,t_var3
5912
                ld      a,(hl)
5913
                cp      a,#12      ;bjp was >data_1234
5914
                jr      z,ldd_3
5915
                inc_error_cnt
5916
ldd_3:          dec     hl
5917
                ld      a,(hl)
5918
                cp      a,#34      ;bjp was >data_1234
5919
                jr      z,lddr_0
5920
                inc_error_cnt
5921
lddr_0:         ld      bc,5
5922
                ld      hl,var5
5923
                ld      de,t_var5
5924
                lddr
5925
                jp      po,lddr_1
5926
                inc_error_cnt
5927
lddr_1:         ld      hl,t_var1
5928
                ld      a,(hl)
5929
                cp      a,data_ff
5930
                jr      z,lddr_2
5931
                inc_error_cnt
5932
lddr_2:         inc     hl
5933
                ld      a,(hl)
5934
                cp      a,data_55
5935
                jr      z,lddr_3
5936
                inc_error_cnt
5937
lddr_3:         inc     hl
5938
                ld      a,(hl)
5939
                cp      a,data_80
5940
                jr      z,lddr_4
5941
                inc_error_cnt
5942
lddr_4:         inc     hl
5943
                ld      a,(hl)
5944
                cp      a,data_aa
5945
                jr      z,lddr_5
5946
                inc_error_cnt
5947
lddr_5:         inc     hl
5948
                ld      a,(hl)
5949
                cp      a,data_7f
5950
                jr      z,cpi_0
5951
                inc_error_cnt
5952
cpi_0:          ld      hl,t_var1
5953
                ld      bc,5
5954
                ld      a,data_7f
5955
                cpi
5956
                jp      pe,cpi_1
5957
                inc_error_cnt
5958
cpi_1:          jp      m,cpi_2
5959
                inc_error_cnt
5960
cpi_2:          jr      nz,cpi_3
5961
                inc_error_cnt
5962
cpi_3:          cpi
5963
                jp      pe,cpi_4
5964
                inc_error_cnt
5965
cpi_4:          jp      p,cpi_5
5966
                inc_error_cnt
5967
cpi_5:          jr      nz,cpi_6
5968
                inc_error_cnt
5969
cpi_6:          cpi
5970
                jp      pe,cpi_7
5971
                inc_error_cnt
5972
cpi_7:          jp      m,cpi_8
5973
                inc_error_cnt
5974
cpi_8:          jr      nz,cpi_9
5975
                inc_error_cnt
5976
cpi_9:          cpi
5977
                jp      pe,cpi_10
5978
                inc_error_cnt
5979
cpi_10:         jp      m,cpi_11
5980
                inc_error_cnt
5981
cpi_11:         jr      nz,cpi_12
5982
                inc_error_cnt
5983
cpi_12:         cpi
5984
                jp      po,cpi_13
5985
                inc_error_cnt
5986
cpi_13:         jp      p,cpi_14
5987
                inc_error_cnt
5988
cpi_14:         jr      z,cpir_0
5989
                inc_error_cnt
5990
cpir_0:         ld      a,data_aa
5991
                ld      hl,var1
5992
                ld      bc,5
5993
                cpir
5994
                jr      z,cpir_1
5995
                inc_error_cnt
5996
cpir_1:         jp      pe,cpir_2
5997
                inc_error_cnt
5998
cpir_2:         ld      a,b
5999
                cp      a,0
6000
                jr      z,cpir_3
6001
                inc_error_cnt
6002
cpir_3:         ld      a,c
6003
                cp      a,1
6004
                jr      z,cpir_4
6005
                inc_error_cnt
6006
cpir_4:         ld      a,data_7f
6007
                ld      hl,var1
6008
                ld      bc,5
6009
                cpir
6010
                jp      po,cpir_5
6011
                inc_error_cnt
6012
cpir_5:         jr      z,cpir_6
6013
                inc_error_cnt
6014
cpir_6:         ld      a,#34      ;bjp was >data_1234
6015
                ld      hl,var1
6016
                ld      bc,5
6017
                cpir
6018
                jp      po,cpir_7
6019
                inc_error_cnt
6020
cpir_7:         jr      nz,cpir_8
6021
                inc_error_cnt
6022
cpir_8:         jp      m,cpir_9
6023
                inc_error_cnt
6024
cpir_9:         ld      a,data_aa
6025
                ld      hl,var1
6026
                ld      bc,3
6027
                cpir
6028
                jp      po,cpir_10
6029
                inc_error_cnt
6030
cpir_10:        jp      p,cpir_11
6031
                inc_error_cnt
6032
cpir_11:        jr      nz,cpd_0
6033
                inc_error_cnt
6034
cpd_0:          ld      a,data_ff
6035
                ld      hl,var5
6036
                ld      bc,5
6037
                cpd
6038
                jp      m,cpd_1
6039
                inc_error_cnt
6040
cpd_1:          jp      pe,cpd_2
6041
                inc_error_cnt
6042
cpd_2:          jr      nz,cpd_3
6043
                inc_error_cnt
6044
cpd_3:          cpd
6045
                jp      p,cpd_4
6046
                inc_error_cnt
6047
cpd_4:          jp      pe,cpd_5
6048
                inc_error_cnt
6049
cpd_5:          jr      nz,cpd_6
6050
                inc_error_cnt
6051
cpd_6:          cpd
6052
                jp      p,cpd_7
6053
                inc_error_cnt
6054
cpd_7:          jp      pe,cpd_8
6055
                inc_error_cnt
6056
cpd_8:          jr      nz,cpd_9
6057
                inc_error_cnt
6058
cpd_9:          cpd
6059
                jp      m,cpd_10
6060
                inc_error_cnt
6061
cpd_10:         jp      pe,cpd_11
6062
                inc_error_cnt
6063
cpd_11:         jr      nz,cpd_12
6064
                inc_error_cnt
6065
cpd_12:         cpd
6066
                jp      p,cpd_13
6067
                inc_error_cnt
6068
cpd_13:         jp      po,cpd_14
6069
                inc_error_cnt
6070
cpd_14:         jr      z,cpdr_0
6071
                inc_error_cnt
6072
cpdr_0:         ld      a,data_80
6073
                ld      hl,var5
6074
                ld      bc,5
6075
                cpdr
6076
                jp      pe,cpdr_1
6077
                inc_error_cnt
6078
cpdr_1:         jp      p,cpdr_2
6079
                inc_error_cnt
6080
cpdr_2:         jr      z,cpdr_3
6081
                inc_error_cnt
6082
cpdr_3:         ld      a,b
6083
                cp      a,0
6084
                jr      z,cpdr_4
6085
                inc_error_cnt
6086
cpdr_4:         ld      a,c
6087
                cp      a,2
6088
                jr      z,cpdr_5
6089
                inc_error_cnt
6090
cpdr_5:         ld      a,#34      ;bjp was >data_1234
6091
                ld      hl,var5
6092
                ld      bc,5
6093
                cpdr
6094
                jp      po,cpdr_6
6095
                inc_error_cnt
6096
cpdr_6:         jr      nz,cpdr_7
6097
                inc_error_cnt
6098
cpdr_7:         jp      p,cpdr_8
6099
                inc_error_cnt
6100
cpdr_8:         ld      a,#34      ;bjp was >data_1234
6101
                ld      hl,var5
6102
                ld      bc,3
6103
                cpdr
6104
                jp      po,cpdr_9
6105
                inc_error_cnt
6106
cpdr_9:         jr      nz,cpdr_10
6107
                inc_error_cnt
6108 32 bporcella
cpdr_10:        jp      m,c_ret_f
6109 25 bporcella
                inc_error_cnt
6110 32 bporcella
 
6111
;add a test for the Stephen Warren bug
6112
;  first cut didn't do it. Lots of insts actually work. Gotta be something
6113
;  basically executed from ir1  - like push
6114
c_ret_f:        di
6115
                ld      de, #1122
6116
                push    de
6117
                pop     af
6118
                ld      hl, 0xaa55
6119
                ld      a,7
6120
                cp      0
6121
                ret     z
6122
                push    hl
6123
                pop     af
6124
                cp      a, data_aa
6125
                jp      z, out_0
6126
                inc_error_cnt
6127
 
6128
 
6129
 
6130 25 bporcella
;
6131
;the file portfe.xxx must be examined to see if the proper output is generated
6132
;
6133 30 bporcella
out_0:          di              ; interrupts are tested, don't muck up output
6134
                ld      a,#30
6135 25 bporcella
                out     (out_port),a
6136
                ld      c,out_port
6137
                ld      a,#31
6138
                out     (c),a
6139
                ld      b,#32
6140
                out     (c),b
6141
                ld      d,#33
6142
                out     (c),d
6143
                ld      e,#34
6144
                out     (c),e
6145
                ld      h,#35
6146
                out     (c),h
6147
                ld      l,#36
6148
                out     (c),l
6149
                out     (c),c                   ;output value divider
6150
outi_0:         ld      a,#31                   ;set up output values
6151
                ld      b,5
6152
                ld      hl,t_var1
6153
outi_1:         ld      (hl),a
6154
                inc     a
6155
                inc     hl
6156
                djnz    outi_1
6157
outi_2:         ld      c,out_port
6158
                ld      b,5
6159
                ld      hl,t_var1
6160
outi_3:         outi
6161
                jr      nz,outi_3
6162
otir_0:         out     (c),c                   ;output value divider
6163
                ld      hl,t_var1
6164
                ld      b,5
6165
                otir
6166
                jr      z,outd_0
6167
                inc_error_cnt
6168
outd_0:         out     (c),c
6169
                ld      hl,t_var5
6170
                ld      b,5
6171
outd_1:         outd
6172
                jr      nz,outd_1
6173
otdr_0:         out     (c),c
6174
                ld      b,5
6175
                ld      hl,t_var5
6176
                otdr
6177
                jr      z,otdr_1
6178
                inc_error_cnt
6179
otdr_1:         out     (c),c
6180
                ld      a,#0d
6181
                out     (c),a
6182
                ld      a,#0a
6183
                out     (c),a
6184 20 bporcella
inc_pass:       ld      a,(pass_count)
6185
                inc     a
6186
                ld      (pass_count),a
6187
                ld      hl,error_cnt
6188
                ld      a,(hl)
6189
                cp      a,0
6190
                jr      z,worked
6191 30 bporcella
failed:         ld      hl,fail_msg
6192
                ld      b,27
6193
                otir
6194
                ld      hl, bist_adr
6195
                ld      (hl), bist_ack+bist_err
6196
                halt
6197
                nop
6198
                nop
6199 20 bporcella
;worked:                passed           ;???? bjp
6200 30 bporcella
worked:         ld      hl,match_msg
6201
                ld      b,33
6202
                otir
6203
                ld      hl,pass_msg
6204
                ld      b,45
6205
                otir
6206
                ld      hl, bist_adr
6207
                ld      (hl), bist_ack
6208
 
6209 20 bporcella
 
6210
 
6211
stop:           halt
6212
                nop
6213
                nop
6214
                nop
6215 30 bporcella
 
6216
int_start:      push    hl
6217
                push    bc
6218
                push    af      ; bj  -- this stuff gronks f as well
6219
                ld      hl, int_msg
6220
                ld      b, 1
6221
                ld      c, out_port
6222
                otir
6223
                pop     af
6224
                pop     bc
6225
                pop     hl
6226
                reti
6227
 
6228 20 bporcella
;subroutine 1, must load a with #7f
6229
;
6230
sub1:           ld      a,data_7f
6231
                ret
6232
;
6233
;
6234
;subroutine 2, must load a with #55
6235
;
6236
sub2:           ld      a,data_55
6237
                cp      a,data_55
6238
                ret     z
6239
;
6240
;subroutine 3, increments a
6241
;
6242
sub3:           inc     a
6243
                and     a
6244
                ret     nz
6245
;
6246
;subroutine 4, subtracts 1 from a
6247
;
6248
sub4:           sub     a,1
6249
                ret     c
6250
;
6251
;subroutine 5, subtracts 1 from a
6252
;
6253
sub5:           sub     a,1
6254
                ret     nc
6255
;
6256
;subroutine 6, shifts a right logically
6257
;
6258
sub6:           srl     a
6259
                ret     po
6260
;
6261
;subroutine 7, shifts a left arithmetically
6262
;
6263
sub7:           sla     a
6264
                ret     pe
6265
;
6266
;subroutine 8, shifts a left arithmetically
6267
;
6268
sub8:           sla     a
6269
                ret     m
6270
;
6271
;subroutine 9, rotates a left
6272
;
6273
sub9:           rl      a
6274
                ret     p
6275
;
6276
;restart 0 routine
6277
;
6278
rst_0000_1:     ld      a,(pass_count)
6279
                or      a
6280
                jp      nz,start
6281
                ld      a,1
6282
                ret
6283
;
6284
;               data
6285
;
6286 30 bporcella
 
6287
fail_msg:               db      cr,lf,'instruction test failed',cr,lf
6288
match_msg:              db      lf,'0123456 12345 12345 54321 54321',lf
6289
pass_msg:               db      'If above lines match instruction test passed',lf
6290
int_msg:                db      bell
6291
;message_addr:  equ     #be58
6292
 
6293 20 bporcella
var1:           db      data_ff
6294
var2:           db      data_55
6295
var3:           db      data_80
6296
var4:           db      data_aa
6297
var5:           db      data_7f
6298
;
6299
 
6300
                org     #7000
6301
t_var1:         db      0
6302
t_var2:         db      0
6303
t_var3:         db      0
6304
t_var4:         db      0
6305
t_var5:         db      0
6306
;
6307
w_var1:         dw      data_1234
6308
w_var2:         dw      data_55aa
6309
w_var3:         dw      data_7fff
6310
w_var4:         dw      data_8000
6311
w_var5:         dw      data_aa55
6312
w_var6:         dw      data_ffff
6313
;
6314
tw_var1:        dw      0
6315
tw_var2:        dw      0
6316
tw_var3:        dw      0
6317
tw_var4:        dw      0
6318
tw_var5:        dw      0
6319
tw_var6:        dw      0
6320
tw_var7:        dw      0
6321
;
6322
error_cnt:      db      0
6323
pass_count:     db      1
6324
;
6325
                org     #7100
6326
stack:          ds      128
6327
stack_end:      equ     $
6328
;
6329
                end start
6330 30 bporcella
; only a single pointer in the interrupt table
6331
                org     #7200
6332
int_tbl:        dw      0
6333
                org     #72fe
6334
int_ptr:        dw      int_start
6335 20 bporcella
 
6336
 
6337
 
6338
 
6339
 
6340
 
6341
 
6342
 
6343
 
6344
 
6345
 
6346
 
6347
 
6348
 
6349
 
6350
 
6351
 
6352
 
6353
 
6354
 
6355
 
6356
 
6357
 
6358
 
6359
 
6360
 
6361
 
6362
 
6363
 
6364
 
6365
 
6366
 
6367
 
6368
 
6369
 
6370
 
6371
 
6372
 
6373
 
6374
 
6375
 
6376
 
6377
 
6378
 
6379
 
6380
 
6381
 
6382
 
6383
 
6384
 
6385
 
6386
 
6387
 
6388
 
6389
 
6390
 
6391
 
6392
 
6393
 
6394
 
6395
 
6396
 
6397
 
6398
 
6399
 
6400
 
6401
 
6402
 
6403
 
6404
 
6405
 
6406
 
6407
 
6408
 
6409
 
6410
 
6411
 
6412
 
6413
 
6414
 
6415
 
6416
 
6417
 
6418
 
6419
 
6420
 
6421
 
6422
 
6423
 
6424
 
6425
 
6426
 
6427
 
6428
 
6429
 
6430
 
6431
 
6432
 
6433
 
6434
 
6435
 
6436
 
6437
 
6438
 
6439
 
6440
 
6441
 
6442
 
6443
 
6444
 
6445
 
6446
 
6447
 
6448
 
6449
 
6450
 
6451
 
6452
 
6453
 
6454
 
6455
 
6456
 
6457
 
6458
 
6459
 
6460
 
6461
 
6462
 
6463
 
6464
 
6465
 
6466
 
6467
 
6468
 
6469
 
6470
 
6471
 
6472
 
6473
 
6474
 
6475
 
6476
 
6477
 
6478
 
6479
 
6480
 
6481
 
6482
 
6483
 
6484
 
6485
 
6486
 
6487
 
6488
 
6489
 
6490
 
6491
 
6492
 
6493
 
6494
 
6495
 
6496
 
6497
 
6498
 
6499
 
6500
 
6501
 
6502
 
6503
 
6504
 
6505
 
6506
 
6507
 
6508
 
6509
 
6510
 
6511
 
6512
 
6513
 
6514
 
6515
 
6516
 
6517
 
6518
 
6519
 
6520
 
6521
 
6522
 
6523
 
6524
 
6525
 
6526
 
6527
 
6528
 
6529
 
6530
 
6531
 
6532
 
6533
 
6534
 
6535
 
6536
 
6537
 
6538
 
6539
 
6540
 
6541
 
6542
 
6543
 
6544
 
6545
 
6546
 
6547
 
6548
 
6549
 
6550
 
6551
 
6552
 
6553
 
6554
 
6555
 
6556
 
6557
 
6558
 
6559
 
6560
 
6561
 
6562
 
6563
 
6564
 
6565
 
6566
 
6567
 
6568
 
6569
 
6570
 
6571
 
6572
 
6573
 
6574
 
6575
 
6576
 
6577
 
6578
 
6579
 
6580
 
6581
 
6582
 
6583
 
6584
 
6585
 
6586
 
6587
 
6588
 
6589
 
6590
 
6591
 
6592
 
6593
 
6594
 
6595
 
6596
 
6597
 
6598
 
6599
 
6600
 
6601
 
6602
 
6603
 
6604
 
6605
 
6606
 
6607
 
6608
 
6609
 
6610
 
6611
 
6612
 
6613
 
6614
 
6615
 
6616
 
6617
 
6618
 
6619
 
6620
 
6621
 
6622
 
6623
 
6624
 
6625
 
6626
 
6627
 
6628
 
6629
 
6630
 
6631
 
6632
 
6633
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.