summaryrefslogtreecommitdiff
path: root/system/eumel0-z80/src/eumel0.prt.1
blob: 244dcbe5227ffe851653d6cd8ff41e361e7a647a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER  COMMENT

1400 45          E     LD    B,L        ; "EUMEL           " (16 chars) 
1401 55          U     LD    D,L        
1402 4D          M     LD    C,L        
1403 45          E     LD    B,L        
1404 4C          L     LD    C,H        
1405 20 20             JR    NZ,1427    
1407 20 20             JR    NZ,1429    
1409 20 20             JR    NZ,142B    
140B 20 20             JR    NZ,142D    
140D 20 20             JR    NZ,142F    
140F 20 
1410 3A 00                              ; eumel0blocks (58) 
1412 D6 06       ..    SUB   A,06       ; mind. hgversion (1750) ID(0)
1414 01 00                              ; cputype: z80 (1)       ID(1) 
                                        ; 3=8086, 4=68000, 5=80286
1416 65 00       ..e   LD    BC,6500    ; urladerversion (101)   ID(2)
1418 00 00                              ; reserviert (0)         ID(3)
141A 05 00                              ; mind shard version (5)
141C 08 00       .     NOP              ; max shard version (8)
                                        ; ----------- 175 Leiste ---------
141E C3 D4 28    ..(   JP    28D4       ; Systemstart 175
1421 C3 71 1F    .q.   JP    1F71       ; inputinterrupt
1424 C3 35 6E    .5n   JP    6E35       ; timerinterrupt
1427 C3 E2 6D    ..m   JP    6DE2       ; EUMEL0 Warte aufruefen
142A C3 5B 5E    .[^   JP    5E5B       ; grab Blocks
142D C3 21 60    .!`   JP    6021       ; free Blocks
1430 C3 1C 29    ..)   JP    291C       ; Shutup ausfuehren
1433 C3 09 29    ..)   JP    2909       ; Info " shard" Ansprungaddresse
1436 00          .     NOP              ; 1500 00 7F FF
1437 15          .     DEC   D          ; etc. wie 1.7.3
1438 FF          .     RST   38         
1439 7F          .     LD    A,A        
143A 00          .     NOP              
143B 80          .     ADD   B          
143C 15          .     DEC   D          
143D 02          .     LD    (BC),A     
143E 7F          .     LD    A,A        
143F 00          .     NOP              
1440 00          .     NOP              
1441 16 FD       ..    LD    D,FD       
1443 7F          .     LD    A,A        
1444 00          .     NOP              
1445 80          .     ADD   B          
1446 16 FF       ..    LD    D,FF       
1448 7F          .     LD    A,A        
1449 00          .     NOP              
144A 00          .     NOP              
144B 17          .     RLA              
144C 00          .     NOP              
144D 7F          .     LD    A,A        
144E 01 80 18    ...   LD    BC,1880    
1451 FF          .     RST   38         
1452 7F          .     LD    A,A        
1453 00          .     NOP              
1454 00          .     NOP              
1455 19          .     ADD   HL,DE      
1456 00          .     NOP              
1457 FF          .     RST   38         
1458 04          .     INC   B          
1459 00          .     NOP              
145A 00          .     NOP              
145B 31 37 35    175   LD    SP,3537    ; "175 hwtest   7 (!)"
145E 20 68        h    JR    NZ,14C8    
1460 77          w     LD    (HL),A     
1461 74          t     LD    (HL),H     
1462 65          e     LD    H,L        
1463 73          s     LD    (HL),E     
1464 74          t     LD    (HL),H     
1465 20 20             JR    NZ,1487    
1467 20 37        7    JR    NZ,14A0    
1469 20 28        (    JR    NZ,1493    
146B 21 29       !).   LD    HL,CD29    
146D CD EB 6D          CALL  6DEB       ;---- EUMEL0-Ram Tabellen init ---
1470 2A 36 14    *6.   LD    HL,(1436)  
1473 E5          .     PUSH  HL         
1474 21 36 14    !6.   LD    HL,1436    
1477 97          .     SUB   A          
1478 5E          ^     LD    E,(HL)     
1479 23          #     INC   HL         
147A 56          V     LD    D,(HL)     
147B 14          .     INC   D          
147C 15          .     DEC   D          
147D 28 09       (.    JR    Z,1488     
147F 23          #     INC   HL         
1480 01 03 00    ...   LD    BC,0003    
1483 ED B0       ..    LDIR             
1485 3C          <     INC   A          
1486 18 F0       ..    JR    1478       
1488 D1          .     POP   DE         
1489 62          b     LD    H,D        
148A 6B          k     LD    L,E        
148B 23          #     INC   HL         
148C 4E          N     LD    C,(HL)     
148D 23          #     INC   HL         
148E 46          F     LD    B,(HL)     
148F 2B          +     DEC   HL         
1490 EB          .     EX    DE,HL      
1491 ED B0       ..    LDIR             
1493 3D          =     DEC   A          
1494 20 F3        .    JR    NZ,1489    ; Miniprozess endlosschleife
1496 C3 A0 6D    ..m   JP    6DA0       ; ====== Allgemeiner Systemstart ===
1499 31 00 A1    1..   LD    SP,A100    ; Stackpointer vorlaefig setzen
149C CD A0 28    ..(   CALL  28A0       ; Limit holen
149F ED 53 3D 1D .S=.  LD    (1D3D),DE  
14A3 ED 7B 3D 1D .{=.  LD    SP,(1D3D)  
14A7 CD FE 6D    ..m   CALL  6DFE       
14AA FB          .     EI               
14AB 3A 6E 28    :n(   LD    A,(286E)   ; Vortest durchfuehren ?
14AE CB 4F       .O    BIT   1,A        
14B0 C2 BF 15    ...   JP    NZ,15BF    
14B3 21 AF 82    !..   LD    HL,82AF    ; "EUMEL-Vortest"
14B6 CD CA 6E    ..n   CALL  6ECA       ; Text ausgeben
14B9 3E 02       >.    LD    A,02       ; Terminalkanaele anzeigen
14BB F5          .     PUSH  AF         
14BC CD 71 1E    .q.   CALL  1E71       ; Typ erfragen
14BF 38 16       8.    JR    C,14D7     
14C1 F1          .     POP   AF         
14C2 F5          .     PUSH  AF         
14C3 16 00       ..    LD    D,00       
14C5 5F          _     LD    E,A        
14C6 21 1B 1D    !..   LD    HL,1D1B    
14C9 FE 0A       ..    CP    0A         
14CB 30 01       0.    JR    NC,14CE    
14CD 23          #     INC   HL         
14CE CD 00 4E    ..N   CALL  4E00       
14D1 21 19 1D    !..   LD    HL,1D19    
14D4 CD CA 6E    ..n   CALL  6ECA       
14D7 F1          .     POP   AF         
14D8 3C          <     INC   A          
14D9 FE 21       .!    CP    21         ; 31 Kanaele
14DB 38 DE       8.    JR    C,14BB     
14DD CD E0 1C    ...   CALL  1CE0       
14E0 CD 8A 28    ..(   CALL  288A       
14E3 22 11 1D    "..   LD    (1D11),HL  
14E6 ED 43 0F 1D .C..  LD    (1D0F),BC  
14EA CB B8       ..    RES   7,B        
14EC CB 70       .p    BIT   6,B        
14EE 50          P     LD    D,B        
14EF 59          Y     LD    E,C        
14F0 28 03       (.    JR    Z,14F5     
14F2 01 00 00    ...   LD    BC,0000    
14F5 CB 21       .!    SLA   C          
14F7 CB 10       ..    RL    B          
14F9 ED 43 0D 1D .C..  LD    (1D0D),BC  
14FD CB B2       ..    RES   6,D        
14FF 21 40 00    !@.   LD    HL,0040    
1502 19          .     ADD   HL,DE      
1503 EB          .     EX    DE,HL      
1504 21 00 85    !..   LD    HL,8500    
1507 CD 00 4E    ..N   CALL  4E00       
150A 21 E8 84    !..   LD    HL,84E8    
150D CD CA 6E    ..n   CALL  6ECA       
1510 CD A0 28    ..(   CALL  28A0       
1513 21 97 82    !..   LD    HL,8297    
1516 EB          .     EX    DE,HL      
1517 B7          .     OR    A          
1518 ED 52       .R    SBC   HL,DE      
151A CB 3C       .<    SLR   H          
151C CB 3C       .<    SLR   H          
151E 5C          \     LD    E,H        
151F 16 00       ..    LD    D,00       
1521 21 70 85    !p.   LD    HL,8570    
1524 CD 00 4E    ..N   CALL  4E00       
1527 21 57 85    !W.   LD    HL,8557    
152A CD CA 6E    ..n   CALL  6ECA       
152D 97          .     SUB   A          
152E 01 05 00    ...   LD    BC,0005    
1531 11 00 00    ...   LD    DE,0000    
1534 CD A8 28    ..(   CALL  28A8       
1537 CB 28       .(    SRA   B          
1539 CB 19       ..    RR    C          
153B 59          Y     LD    E,C        
153C 50          P     LD    D,B        
153D 21 1F 85    !..   LD    HL,851F    
1540 3E E7       >.    LD    A,E7       
1542 93          .     SUB   E          
1543 3E 03       >.    LD    A,03       
1545 9A          .     SBC   D          
1546 38 01       8.    JR    C,1549     
1548 23          #     INC   HL         
1549 CD 00 4E    ..N   CALL  4E00       
154C 21 08 85    !..   LD    HL,8508    
154F CD CA 6E    ..n   CALL  6ECA       
1552 3A 6E 28    :n(   LD    A,(286E)   
1555 CB 47       .G    BIT   0,A        
1557 20 0C        .    JR    NZ,1565    
1559 21 DD 82    !..   LD    HL,82DD    
155C CD CA 6E    ..n   CALL  6ECA       
155F CD F0 17    ...   CALL  17F0       
1562 CD E0 1C    ...   CALL  1CE0       
1565 01 00 00    ...   LD    BC,0000    
1568 ED A1       ..    CPI              
156A EA 68 15    .h.   JP    PE,1568    
156D 3E 01       >.    LD    A,01       
156F CD 06 1F    ...   CALL  1F06       
1572 38 4B       8K    JR    C,15BF     
1574 ED 7B 3D 1D .{=.  LD    SP,(1D3D)  ; ----- Menue ausgeben --------
1578 97          .     SUB   A          
1579 32 30 1D    20.   LD    (1D30),A   
157C 21 EE 82    !..   LD    HL,82EE    ; Menuetext
157F CD CA 6E    ..n   CALL  6ECA       ; Ausgeben
1582 CD 9B 1C    ...   CALL  1C9B       ; AUf Taste warten
1585 FE 31       .1    CP    31         ; "1" Systemstart
1587 28 36       (6    JR    Z,15BF     
1589 FE 32       .2    CP    32         ; "2" Neuen HG laden
158B CA 16 16    ...   JP    Z,1616     
158E FE 33       .3    CP    33         ; "3" Hardwaretest
1590 CA 9D 16    ...   JP    Z,169D     
1593 FE 34       .4    CP    34         ; "4" neuen Urlader vom Archiv
1595 28 35       (5    JR    Z,15CC     
1597 FE 53       .S    CP    53         ; "S" Systemstart ohne Block 0
1599 CA 6D 14    .m.   JP    Z,146D     ; Zur Miniprozess Schleife
159C FE 49       .I    CP    49         ; "I" Info aufrufen
159E 20 D4        .    JR    NZ,1574    
15A0 DD 21 31 1D .!1.  LD    IX,1D31    
15A4 CD C0 1A    ...   CALL  1AC0       
15A7 21 46 A0    !F.   LD    HL,A046    
15AA 11 19 7D    ..}   LD    DE,7D19    
15AD 01 0A 00    ...   LD    BC,000A    
15B0 ED B0       ..    LDIR             
15B2 CD 1F 70    ..p   CALL  701F       ; Info aufrufen 
15B5 18 06       ..    JR    15BD       ; " start"
15B7 20 73        s    JR    NZ,162C    
15B9 74          t     LD    (HL),H     
15BA 61          a     LD    H,C        
15BB 72          r     LD    (HL),D     
15BC 74          t     LD    (HL),H     
15BD 18 B5       ..    JR    1574       ; ------- Vortest Ende -----------
15BF DD 21 31 1D .!1.  LD    IX,1D31    ; Systemstart
15C3 CD C0 1A    ...   CALL  1AC0       ; Block 0 laden
15C6 CD 66 1C    .f.   CALL  1C66       ; Etikett testen
15C9 C3 6D 14    .m.   JP    146D       ; Zur Miniprozess Schleife
15CC DD 21 36 1D .!6.  LD    IX,1D36    ;-- Neuen Urlader laden ------
15D0 CD 9F 1A    ...   CALL  1A9F       
15D3 21 0A 00    !..   LD    HL,000A    
15D6 22 32 1D    "2.   LD    (1D32),HL  
15D9 22 37 1D    "7.   LD    (1D37),HL  
15DC CD 03 16    ...   CALL  1603       
15DF DD 21 31 1D .!1.  LD    IX,1D31    
15E3 CD 03 16    ...   CALL  1603       
15E6 ED 4B 10 A0 .K..  LD    BC,(A010)  
15EA 21 3A 00    !:.   LD    HL,003A    
15ED 37          7     SCF              
15EE ED 42       .B    SBC   HL,BC      
15F0 30 08       0.    JR    NC,15FA    
15F2 21 44 00    !D.   LD    HL,0044    
15F5 22 3B 1D    ";.   LD    (1D3B),HL  
15F8 18 4E       .N    JR    1648       
15FA 21 D4 85    !..   LD    HL,85D4    
15FD CD CA 6E    ..n   CALL  6ECA       
1600 C3 74 15    .t.   JP    1574       ; Zum Vortest Menue
1603 CD F2 1A    ...   CALL  1AF2       
1606 21 00 A0    !..   LD    HL,A000    
1609 11 2A 1D    .*.   LD    DE,1D2A    
160C 01 05 00    ...   LD    BC,0005    
160F CD 92 1C    ...   CALL  1C92       
1612 C2 74 15    .t.   JP    NZ,1574    ; Zum Vortest Menue
1615 C9          .     RET              ;-------- Neuen HG vom ARchiv ----
1616 21 C9 84    !..   LD    HL,84C9    ; "ALten HG ueberschreiben (j/n) ?"
1619 CD CA 6E    ..n   CALL  6ECA       
161C CD 9B 1C    ...   CALL  1C9B       
161F FE 79       .y    CP    79         ; "y" oder
1621 28 05       (.    JR    Z,1628     
1623 FE 6A       .j    CP    6A         ; "j" erlaubt
1625 C2 74 15    .t.   JP    NZ,1574    
1628 DD 21 31 1D .!1.  LD    IX,1D31    ; Ueberschreiben
162C CD 9F 1A    ...   CALL  1A9F       
162F CD C0 1A    ...   CALL  1AC0       
1632 DD 21 36 1D .!6.  LD    IX,1D36    
1636 CD 9F 1A    ...   CALL  1A9F       
1639 CD C0 1A    ...   CALL  1AC0       
163C CD 66 1C    .f.   CALL  1C66       
163F 2A 24 A0    *$.   LD    HL,(A024)  
1642 29          )     ADD   HL,HL      
1643 29          )     ADD   HL,HL      
1644 29          )     ADD   HL,HL      
1645 22 3B 1D    ";.   LD    (1D3B),HL  
1648 CD B6 1C    ...   CALL  1CB6       
164B DD 21 31 1D .!1.  LD    IX,1D31    
164F CD D1 1B    ...   CALL  1BD1       
1652 DD 21 36 1D .!6.  LD    IX,1D36    
1656 CD F2 1A    ...   CALL  1AF2       
1659 DD 21 31 1D .!1.  LD    IX,1D31    
165D CD 08 1C    ...   CALL  1C08       
1660 CD BA 1B    ...   CALL  1BBA       
1663 2A 3B 1D    *;.   LD    HL,(1D3B)  
1666 ED 5B 32 1D .[2.  LD    DE,(1D32)  
166A B7          .     OR    A          
166B ED 52       .R    SBC   HL,DE      
166D CA 8F 16    ...   JP    Z,168F     
1670 DD 21 36 1D .!6.  LD    IX,1D36    
1674 CD BA 1B    ...   CALL  1BBA       
1677 20 CF        .    JR    NZ,1648    
1679 21 43 84    !C.   LD    HL,8443    
167C CD CA 6E    ..n   CALL  6ECA       
167F CD 9B 1C    ...   CALL  1C9B       
1682 FE 79       .y    CP    79         ; "y" oder
1684 28 04       (.    JR    Z,168A     
1686 FE 6A       .j    CP    6A         ; "j" erlaubt
1688 20 EF        .    JR    NZ,1679    
168A CD 9F 1A    ...   CALL  1A9F       
168D 18 B9       ..    JR    1648       
168F CD E0 1C    ...   CALL  1CE0       
1692 CD E0 1C    ...   CALL  1CE0       
1695 21 B5 84    !..   LD    HL,84B5    
1698 CD CA 6E    ..n   CALL  6ECA       
169B 18 FE       ..    JR    169B       
169D 3E 01       >.    LD    A,01       ; ------ Hardwaretest
169F 32 30 1D    20.   LD    (1D30),A   
16A2 21 6C 83    !l.   LD    HL,836C    
16A5 CD CA 6E    ..n   CALL  6ECA       ; Hardwaretest Menue
16A8 21 00 00    !..   LD    HL,0000    
16AB 22 F3 1C    "..   LD    (1CF3),HL  
16AE CD 9B 1C    ...   CALL  1C9B       
16B1 FE 31       .1    CP    31         ; "1" Speichertest
16B3 CA C6 16    ...   JP    Z,16C6     
16B6 FE 32       .2    CP    32         ; "2" Kanaltest
16B8 CA 7C 17    .|.   JP    Z,177C     
16BB FE 33       .3    CP    33         
16BD 28 12       (.    JR    Z,16D1     ; "3" HG Test
16BF FE 34       .4    CP    34         ; "4" Archivtest
16C1 28 14       (.    JR    Z,16D7     
16C3 C3 74 15    .t.   JP    1574       
16C6 CD C2 1C    ...   CALL  1CC2       ; ----Speichertest
16C9 CD F0 17    ...   CALL  17F0       
16CC CD B6 1C    ...   CALL  1CB6       
16CF 18 F5       ..    JR    16C6       ; Wiederholen
16D1 DD 21 31 1D .!1.  LD    IX,1D31    ; ------- HG Test
16D5 18 04       ..    JR    16DB       
16D7 DD 21 36 1D .!6.  LD    IX,1D36    ; -------- Archivtest
16DB 21 C1 83    !..   LD    HL,83C1    
16DE CD CA 6E    ..n   CALL  6ECA       
16E1 CD 9B 1C    ...   CALL  1C9B       
16E4 FE 31       .1    CP    31         ; "1" Lesetest
16E6 28 0C       (.    JR    Z,16F4     
16E8 FE 32       .2    CP    32         ; "2" Schreiblesetest
16EA 28 21       (!    JR    Z,170D     
16EC FE 33       .3    CP    33         ; "3" Positioniertest
16EE CA 60 17    .`.   JP    Z,1760     
16F1 C3 74 15    .t.   JP    1574       ; Zum Vortest Menue
16F4 CD C2 1C    ...   CALL  1CC2       
16F7 CD E0 1C    ...   CALL  1CE0       
16FA CD 9F 1A    ...   CALL  1A9F       
16FD CD B6 1C    ...   CALL  1CB6       
1700 CD D1 1B    ...   CALL  1BD1       
1703 CD F2 1A    ...   CALL  1AF2       
1706 CD BA 1B    ...   CALL  1BBA       
1709 20 F2        .    JR    NZ,16FD    
170B 18 E7       ..    JR    16F4       
170D CD C2 1C    ...   CALL  1CC2       
1710 CD E0 1C    ...   CALL  1CE0       
1713 CD 9F 1A    ...   CALL  1A9F       
1716 CD B6 1C    ...   CALL  1CB6       
1719 CD D1 1B    ...   CALL  1BD1       
171C CD F2 1A    ...   CALL  1AF2       
171F 21 00 A0    !..   LD    HL,A000    
1722 11 00 A2    ...   LD    DE,A200    
1725 01 00 02    ...   LD    BC,0200    
1728 ED B0       ..    LDIR             
172A 3E 55       >U    LD    A,55       
172C CD 31 1C    .1.   CALL  1C31       
172F 3E AA       >.    LD    A,AA       
1731 CD 31 1C    .1.   CALL  1C31       
1734 21 00 A2    !..   LD    HL,A200    
1737 11 00 A0    ...   LD    DE,A000    
173A 01 00 02    ...   LD    BC,0200    
173D ED B0       ..    LDIR             
173F CD 08 1C    ...   CALL  1C08       
1742 3E 55       >U    LD    A,55       
1744 CD 59 1C    .Y.   CALL  1C59       
1747 CD ED 1B    ...   CALL  1BED       
174A 21 00 A0    !..   LD    HL,A000    
174D 11 00 A2    ...   LD    DE,A200    
1750 01 00 02    ...   LD    BC,0200    
1753 CD 92 1C    ...   CALL  1C92       
1756 C4 27 1C    .'.   CALL  NZ,1C27    
1759 CD BA 1B    ...   CALL  1BBA       
175C 20 B8        .    JR    NZ,1716    
175E 18 AD       ..    JR    170D       
1760 CD C2 1C    ...   CALL  1CC2       
1763 CD E0 1C    ...   CALL  1CE0       
1766 CD 9F 1A    ...   CALL  1A9F       
1769 CD B6 1C    ...   CALL  1CB6       
176C CD C0 1A    ...   CALL  1AC0       
176F CD D1 1B    ...   CALL  1BD1       
1772 CD F2 1A    ...   CALL  1AF2       
1775 CD BA 1B    ...   CALL  1BBA       
1778 20 EF        .    JR    NZ,1769    
177A 18 E4       ..    JR    1760       
177C CD C2 1C    ...   CALL  1CC2       
177F CD E0 1C    ...   CALL  1CE0       
1782 CD B6 1C    ...   CALL  1CB6       
1785 3E 20       >     LD    A,20       
1787 32 30 85    20.   LD    (8530),A   
178A 3E 02       >.    LD    A,02       
178C F5          .     PUSH  AF         
178D 5F          _     LD    E,A        
178E CD 71 1E    .q.   CALL  1E71       
1791 38 53       8S    JR    C,17E6     
1793 F1          .     POP   AF         
1794 F5          .     PUSH  AF         
1795 CD 59 1E    .Y.   CALL  1E59       
1798 FE 1E       ..    CP    1E         
179A 38 20       8     JR    C,17BC     
179C 16 00       ..    LD    D,00       
179E 21 31 85    !1.   LD    HL,8531    
17A1 36 20       6     LD    (HL),20    
17A3 2B          +     DEC   HL         
17A4 CD 00 4E    ..N   CALL  4E00       
17A7 21 28 85    !(.   LD    HL,8528    
17AA 4E          N     LD    C,(HL)     
17AB 23          #     INC   HL         
17AC 06 00       ..    LD    B,00       
17AE F1          .     POP   AF         
17AF F5          .     PUSH  AF         
17B0 59          Y     LD    E,C        
17B1 CD 88 21    ..!   CALL  2188       
17B4 38 06       8.    JR    C,17BC     
17B6 09          .     ADD   HL,BC      
17B7 7B          {     LD    A,E        
17B8 91          .     SUB   C          
17B9 4F          O     LD    C,A        
17BA 18 F2       ..    JR    17AE       
17BC F1          .     POP   AF         
17BD F5          .     PUSH  AF         
17BE CD 06 1F    ...   CALL  1F06       
17C1 38 23       8#    JR    C,17E6     
17C3 5F          _     LD    E,A        
17C4 16 00       ..    LD    D,00       
17C6 21 20 20    !     LD    HL,2020    
17C9 22 55 85    "U.   LD    (8555),HL  
17CC 21 54 85    !T.   LD    HL,8554    
17CF CD 00 4E    ..N   CALL  4E00       
17D2 F1          .     POP   AF         
17D3 F5          .     PUSH  AF         
17D4 5F          _     LD    E,A        
17D5 16 00       ..    LD    D,00       
17D7 21 42 85    !B.   LD    HL,8542    
17DA 36 20       6     LD    (HL),20    
17DC 2B          +     DEC   HL         
17DD CD 00 4E    ..N   CALL  4E00       
17E0 21 34 85    !4.   LD    HL,8534    
17E3 CD CA 6E    ..n   CALL  6ECA       
17E6 F1          .     POP   AF         
17E7 3C          <     INC   A          
17E8 FE 20       .     CP    20         
17EA DA 8C 17    ...   JP    C,178C     
17ED C3 7C 17    .|.   JP    177C       
17F0 CD A0 28    ..(   CALL  28A0       
17F3 15          .     DEC   D          
17F4 21 DE 85    !..   LD    HL,85DE    
17F7 22 E7 1C    "..   LD    (1CE7),HL  
17FA EB          .     EX    DE,HL      
17FB B7          .     OR    A          
17FC ED 52       .R    SBC   HL,DE      
17FE 22 E9 1C    "..   LD    (1CE9),HL  
1801 EB          .     EX    DE,HL      
1802 CB 3A       .:    SLR   D          
1804 CB 1B       ..    RR    E          
1806 21 03 00    !..   LD    HL,0003    
1809 CD 3D 4D    .=M   CALL  4D3D       
180C CB 23       .#    SLA   E          
180E CB 12       ..    RL    D          
1810 ED 53 EB 1C .S..  LD    (1CEB),DE  
1814 21 DE 85    !..   LD    HL,85DE    
1817 11 3F 1D    .?.   LD    DE,1D3F    
181A B7          .     OR    A          
181B ED 52       .R    SBC   HL,DE      
181D 22 ED 1C    "..   LD    (1CED),HL  
1820 EB          .     EX    DE,HL      
1821 21 03 00    !..   LD    HL,0003    
1824 CD 3D 4D    .=M   CALL  4D3D       
1827 ED 53 EF 1C .S..  LD    (1CEF),DE  
182B 21 FF FF    !..   LD    HL,FFFF    
182E 22 F1 1C    "..   LD    (1CF1),HL  
1831 2A E7 1C    *..   LD    HL,(1CE7)  
1834 CD 12 19    ...   CALL  1912       
1837 21 00 00    !..   LD    HL,0000    
183A 5C          \     LD    E,H        
183B E5          .     PUSH  HL         
183C CD C9 19    ...   CALL  19C9       
183F 30 0D       0.    JR    NC,184E    
1841 CD 12 19    ...   CALL  1912       
1844 E1          .     POP   HL         
1845 7C          |     LD    A,H        
1846 C6 40       .@    ADD   A,40       
1848 67          g     LD    H,A        
1849 30 01       0.    JR    NC,184C    
184B 1C          .     INC   E          
184C 18 ED       ..    JR    183B       
184E E1          .     POP   HL         ; Testmuster fuer Speichertest
184F 11 01 55    ..U   LD    DE,5501    
1852 CD 22 19    .".   CALL  1922       
1855 11 02 55    ..U   LD    DE,5502    
1858 CD 22 19    .".   CALL  1922       
185B 11 00 AA    ...   LD    DE,AA00    
185E CD 22 19    .".   CALL  1922       
1861 11 01 55    ..U   LD    DE,5501    
1864 CD 7A 19    .z.   CALL  197A       
1867 11 01 AA    ...   LD    DE,AA01    
186A CD 22 19    .".   CALL  1922       
186D 11 02 55    ..U   LD    DE,5502    
1870 CD 7A 19    .z.   CALL  197A       
1873 11 00 AA    ...   LD    DE,AA00    
1876 CD 7A 19    .z.   CALL  197A       
1879 11 01 AA    ...   LD    DE,AA01    
187C CD 7A 19    .z.   CALL  197A       
187F 11 00 55    ..U   LD    DE,5500    
1882 CD 22 19    .".   CALL  1922       
1885 11 00 55    ..U   LD    DE,5500    
1888 CD 7A 19    .z.   CALL  197A       
188B 11 02 AA    ...   LD    DE,AA02    
188E CD 22 19    .".   CALL  1922       
1891 11 02 AA    ...   LD    DE,AA02    
1894 CD 7A 19    .z.   CALL  197A       
1897 2A E9 1C    *..   LD    HL,(1CE9)  
189A ED 5B ED 1C .[..  LD    DE,(1CED)  
189E B7          .     OR    A          
189F ED 52       .R    SBC   HL,DE      
18A1 38 5D       8]    JR    C,1900     
18A3 F3          .     DI               
18A4 21 3F 1D    !?.   LD    HL,1D3F    
18A7 ED 5B E7 1C .[..  LD    DE,(1CE7)  
18AB CD 1B 1A    ...   CALL  1A1B       
18AE 11 01 55    ..U   LD    DE,5501    
18B1 CD 07 1A    ...   CALL  1A07       
18B4 11 02 55    ..U   LD    DE,5502    
18B7 CD 07 1A    ...   CALL  1A07       
18BA 11 00 AA    ...   LD    DE,AA00    
18BD CD 07 1A    ...   CALL  1A07       
18C0 11 01 55    ..U   LD    DE,5501    
18C3 CD 11 1A    ...   CALL  1A11       
18C6 11 01 AA    ...   LD    DE,AA01    
18C9 CD 07 1A    ...   CALL  1A07       
18CC 11 02 55    ..U   LD    DE,5502    
18CF CD 11 1A    ...   CALL  1A11       
18D2 11 00 AA    ...   LD    DE,AA00    
18D5 CD 11 1A    ...   CALL  1A11       
18D8 11 01 AA    ...   LD    DE,AA01    
18DB CD 11 1A    ...   CALL  1A11       
18DE 11 00 55    ..U   LD    DE,5500    
18E1 CD 07 1A    ...   CALL  1A07       
18E4 11 00 55    ..U   LD    DE,5500    
18E7 CD 11 1A    ...   CALL  1A11       
18EA 11 02 AA    ...   LD    DE,AA02    
18ED CD 07 1A    ...   CALL  1A07       
18F0 11 02 AA    ...   LD    DE,AA02    
18F3 CD 11 1A    ...   CALL  1A11       
18F6 2A E7 1C    *..   LD    HL,(1CE7)  
18F9 11 3F 1D    .?.   LD    DE,1D3F    
18FC CD 1B 1A    ...   CALL  1A1B       
18FF FB          .     EI               
1900 CD E0 1C    ...   CALL  1CE0       
1903 3A E6 1C    :..   LD    A,(1CE6)   
1906 B7          .     OR    A          
1907 C8          .     RET   Z          
1908 ED 7B 3D 1D .{=.  LD    SP,(1D3D)  
190C CD E0 1C    ...   CALL  1CE0       
190F C3 2B 18    .+.   JP    182B       
1912 06 05       ..    LD    B,05       
1914 97          .     SUB   A          
1915 57          W     LD    D,A        
1916 77          w     LD    (HL),A     
1917 7E          ~     LD    A,(HL)     
1918 BA          .     CP    D          
1919 C4 31 1A    .1.   CALL  NZ,1A31    
191C 3C          <     INC   A          
191D 20 F6        .    JR    NZ,1915    
191F 10 F3       ..    DJNZ  1914       
1921 C9          .     RET              
1922 2A E7 1C    *..   LD    HL,(1CE7)  
1925 ED 4B EB 1C .K..  LD    BC,(1CEB)  
1929 CD 51 19    .Q.   CALL  1951       
192C 26 00       &.    LD    H,00       
192E 6B          k     LD    L,E        
192F 1E 00       ..    LD    E,00       
1931 E5          .     PUSH  HL         
1932 CD C9 19    ...   CALL  19C9       
1935 30 0F       0.    JR    NC,1946    
1937 7D          }     LD    A,L        
1938 72          r     LD    (HL),D     
1939 C6 03       ..    ADD   A,03       
193B 6F          o     LD    L,A        
193C 30 FA       0.    JR    NC,1938    
193E E1          .     POP   HL         
193F 6F          o     LD    L,A        
1940 24          $     INC   H          
1941 20 EE        .    JR    NZ,1931    
1943 1C          .     INC   E          
1944 18 EB       ..    JR    1931       
1946 CD 6D 19    .m.   CALL  196D       
1949 21 0B 1D    !..   LD    HL,1D0B    
194C CD CA 6E    ..n   CALL  6ECA       
194F E1          .     POP   HL         
1950 C9          .     RET              
1951 D5          .     PUSH  DE         
1952 79          y     LD    A,C        
1953 B7          .     OR    A          
1954 28 01       (.    JR    Z,1957     
1956 04          .     INC   B          
1957 79          y     LD    A,C        
1958 48          H     LD    C,B        
1959 47          G     LD    B,A        
195A 7A          z     LD    A,D        
195B 16 00       ..    LD    D,00       
195D 19          .     ADD   HL,DE      
195E 11 03 00    ...   LD    DE,0003    
1961 77          w     LD    (HL),A     
1962 19          .     ADD   HL,DE      
1963 10 FC       ..    DJNZ  1961       
1965 0D          .     DEC   C          
1966 20 F9        .    JR    NZ,1961    
1968 D1          .     POP   DE         
1969 CD 6D 19    .m.   CALL  196D       
196C C9          .     RET              
196D F5          .     PUSH  AF         
196E C5          .     PUSH  BC         
196F 3E 00       >.    LD    A,00       
1971 06 64       .d    LD    B,64       
1973 ED 4F       .O    LD    R,A        
1975 10 FC       ..    DJNZ  1973       
1977 C1          .     POP   BC         
1978 F1          .     POP   AF         
1979 C9          .     RET              
197A 2A E7 1C    *..   LD    HL,(1CE7)  
197D ED 4B EB 1C .K..  LD    BC,(1CEB)  
1981 CD A1 19    ...   CALL  19A1       
1984 26 00       &.    LD    H,00       
1986 6B          k     LD    L,E        
1987 5C          \     LD    E,H        
1988 E5          .     PUSH  HL         
1989 CD C9 19    ...   CALL  19C9       
198C 30 B8       0.    JR    NC,1946    
198E 7E          ~     LD    A,(HL)     
198F BA          .     CP    D          
1990 C4 31 1A    .1.   CALL  NZ,1A31    
1993 7D          }     LD    A,L        
1994 C6 03       ..    ADD   A,03       
1996 6F          o     LD    L,A        
1997 30 F5       0.    JR    NC,198E    
1999 E1          .     POP   HL         
199A 6F          o     LD    L,A        
199B 24          $     INC   H          
199C 20 EA        .    JR    NZ,1988    
199E 1C          .     INC   E          
199F 18 E7       ..    JR    1988       
19A1 D5          .     PUSH  DE         
19A2 79          y     LD    A,C        
19A3 B7          .     OR    A          
19A4 28 01       (.    JR    Z,19A7     
19A6 04          .     INC   B          
19A7 79          y     LD    A,C        
19A8 48          H     LD    C,B        
19A9 47          G     LD    B,A        
19AA 7A          z     LD    A,D        
19AB 16 00       ..    LD    D,00       
19AD 19          .     ADD   HL,DE      
19AE 11 FF FF    ...   LD    DE,FFFF    
19B1 ED 53 F1 1C .S..  LD    (1CF1),DE  
19B5 57          W     LD    D,A        
19B6 7E          ~     LD    A,(HL)     
19B7 BA          .     CP    D          
19B8 C4 31 1A    .1.   CALL  NZ,1A31    
19BB 7D          }     LD    A,L        
19BC C6 03       ..    ADD   A,03       
19BE 6F          o     LD    L,A        
19BF 30 01       0.    JR    NC,19C2    
19C1 24          $     INC   H          
19C2 10 F2       ..    DJNZ  19B6       
19C4 0D          .     DEC   C          
19C5 20 EF        .    JR    NZ,19B6    
19C7 D1          .     POP   DE         
19C8 C9          .     RET              
19C9 E5          .     PUSH  HL         
19CA 6C          l     LD    L,H        
19CB 63          c     LD    H,E        
19CC 24          $     INC   H          
19CD 22 F1 1C    "..   LD    (1CF1),HL  
19D0 25          %     DEC   H          
19D1 D5          .     PUSH  DE         
19D2 55          U     LD    D,L        
19D3 CB 3C       .<    SLR   H          
19D5 CB 1D       ..    RR    L          
19D7 E5          .     PUSH  HL         
19D8 ED 4B 0D 1D .K..  LD    BC,(1D0D)  
19DC B7          .     OR    A          
19DD ED 42       .B    SBC   HL,BC      
19DF E1          .     POP   HL         
19E0 30 08       0.    JR    NC,19EA    
19E2 CD EE 19    ...   CALL  19EE       
19E5 7A          z     LD    A,D        
19E6 E6 01       ..    AND   01         
19E8 B4          .     OR    H          
19E9 37          7     SCF              
19EA D1          .     POP   DE         
19EB E1          .     POP   HL         
19EC 67          g     LD    H,A        
19ED C9          .     RET              
19EE 3A 10 1D    :..   LD    A,(1D10)   
19F1 CB 7F       ..    BIT   7,A        
19F3 C2 8D 28    ..(   JP    NZ,288D    
19F6 CB 3C       .<    SLR   H          
19F8 CB 1D       ..    RR    L          
19FA 7D          }     LD    A,L        
19FB 2A 11 1D    *..   LD    HL,(1D11)  
19FE 30 02       0.    JR    NC,1A02    
1A00 CB CC       ..    SET   1,H        
1A02 2E 00       ..    LD    L,00       
1A04 C3 8D 28    ..(   JP    288D       
1A07 21 3F 1D    !?.   LD    HL,1D3F    
1A0A ED 4B EF 1C .K..  LD    BC,(1CEF)  
1A0E C3 51 19    .Q.   JP    1951       
1A11 21 3F 1D    !?.   LD    HL,1D3F    
1A14 ED 4B EF 1C .K..  LD    BC,(1CEF)  
1A18 C3 A1 19    ...   JP    19A1       
1A1B ED 4B ED 1C .K..  LD    BC,(1CED)  
1A1F ED B0       ..    LDIR             
1A21 2B          +     DEC   HL         
1A22 1B          .     DEC   DE         
1A23 ED 4B ED 1C .K..  LD    BC,(1CED)  
1A27 1A          .     LD    A,(DE)     
1A28 ED A9       ..    CPD              
1A2A 20 FE        .    JR    NZ,1A2A    
1A2C 1B          .     DEC   DE         
1A2D EA 27 1A    .'.   JP    PE,1A27    
1A30 C9          .     RET              
1A31 F5          .     PUSH  AF         
1A32 C5          .     PUSH  BC         
1A33 D5          .     PUSH  DE         
1A34 E5          .     PUSH  HL         
1A35 42          B     LD    B,D        
1A36 4F          O     LD    C,A        
1A37 ED 5B F1 1C .[..  LD    DE,(1CF1)  
1A3B CB 7A       .z    BIT   7,D        
1A3D 28 25       (%    JR    Z,1A64     
1A3F E5          .     PUSH  HL         
1A40 EB          .     EX    DE,HL      
1A41 2A E7 1C    *..   LD    HL,(1CE7)  
1A44 B7          .     OR    A          
1A45 ED 52       .R    SBC   HL,DE      
1A47 E1          .     POP   HL         
1A48 38 16       8.    JR    C,1A60     
1A4A E5          .     PUSH  HL         
1A4B C5          .     PUSH  BC         
1A4C 11 3F 1D    .?.   LD    DE,1D3F    
1A4F 2A E7 1C    *..   LD    HL,(1CE7)  
1A52 CD 1B 1A    ...   CALL  1A1B       
1A55 C1          .     POP   BC         
1A56 E1          .     POP   HL         
1A57 FB          .     EI               
1A58 3E 00       >.    LD    A,00       
1A5A CD 66 1A    .f.   CALL  1A66       
1A5D C3 08 19    ...   JP    1908       
1A60 3E 00       >.    LD    A,00       
1A62 18 02       ..    JR    1A66       
1A64 7A          z     LD    A,D        
1A65 63          c     LD    H,E        
1A66 F5          .     PUSH  AF         
1A67 3E 01       >.    LD    A,01       
1A69 32 E6 1C    2..   LD    (1CE6),A   
1A6C 11 D2 85    ...   LD    DE,85D2    
1A6F 79          y     LD    A,C        
1A70 CD F5 1C    ...   CALL  1CF5       
1A73 11 CA 85    ...   LD    DE,85CA    
1A76 78          x     LD    A,B        
1A77 CD F5 1C    ...   CALL  1CF5       
1A7A F1          .     POP   AF         
1A7B 11 BE 85    ...   LD    DE,85BE    
1A7E CD F5 1C    ...   CALL  1CF5       
1A81 7C          |     LD    A,H        
1A82 CD F5 1C    ...   CALL  1CF5       
1A85 7D          }     LD    A,L        
1A86 CD F5 1C    ...   CALL  1CF5       
1A89 21 B0 85    !..   LD    HL,85B0    
1A8C CD CA 6E    ..n   CALL  6ECA       
1A8F 3E 01       >.    LD    A,01       
1A91 CD 06 1F    ...   CALL  1F06       
1A94 38 F9       8.    JR    C,1A8F     
1A96 FE 0D       ..    CP    0D         
1A98 20 F5        .    JR    NZ,1A8F    
1A9A E1          .     POP   HL         
1A9B D1          .     POP   DE         
1A9C C1          .     POP   BC         
1A9D F1          .     POP   AF         
1A9E C9          .     RET              
1A9F DD 7E 00    .~.   LD    A,(IX+00)  
1AA2 01 05 00    ...   LD    BC,0005    
1AA5 DD E5       ..    PUSH  IX         
1AA7 D5          .     PUSH  DE         
1AA8 11 00 00    ...   LD    DE,0000    
1AAB CD A8 28    ..(   CALL  28A8       
1AAE D1          .     POP   DE         
1AAF DD E1       ..    POP   IX         
1AB1 DD 71 03    .q.   LD    (IX+03),C  
1AB4 DD 70 04    .p.   LD    (IX+04),B  
1AB7 DD 36 01 00 .6..  LD    (IX+01),00 
1ABB DD 36 02 00 .6..  LD    (IX+02),00 
1ABF C9          .     RET              
1AC0 21 00 A0    !..   LD    HL,A000    
1AC3 11 00 00    ...   LD    DE,0000    
1AC6 01 00 00    ...   LD    BC,0000    
1AC9 DD 7E 00    .~.   LD    A,(IX+00)  
1ACC DD E5       ..    PUSH  IX         
1ACE CD 7E 28    .~(   CALL  287E       
1AD1 DD E1       ..    POP   IX         
1AD3 0C          .     INC   C          
1AD4 0D          .     DEC   C          
1AD5 C8          .     RET   Z          
1AD6 21 00 A0    !..   LD    HL,A000    
1AD9 DD 7E 00    .~.   LD    A,(IX+00)  
1ADC 01 00 00    ...   LD    BC,0000    
1ADF DD E5       ..    PUSH  IX         
1AE1 CD 7E 28    .~(   CALL  287E       
1AE4 DD E1       ..    POP   IX         
1AE6 0C          .     INC   C          
1AE7 0D          .     DEC   C          
1AE8 C8          .     RET   Z          
1AE9 21 A4 84    !..   LD    HL,84A4    
1AEC CD CA 6E    ..n   CALL  6ECA       
1AEF C3 74 15    .t.   JP    1574       
1AF2 21 00 A0    !..   LD    HL,A000    
1AF5 06 40       .@    LD    B,40       
1AF7 3E 1E       >.    LD    A,1E       
1AF9 77          w     LD    (HL),A     
1AFA 23          #     INC   HL         
1AFB 10 FC       ..    DJNZ  1AF9       
1AFD DD 5E 01    .^.   LD    E,(IX+01)  
1B00 DD 56 02    .V.   LD    D,(IX+02)  
1B03 3E 14       >.    LD    A,14       
1B05 F5          .     PUSH  AF         
1B06 21 00 A0    !..   LD    HL,A000    
1B09 01 00 00    ...   LD    BC,0000    
1B0C DD 7E 00    .~.   LD    A,(IX+00)  
1B0F DD E5       ..    PUSH  IX         
1B11 CD 7E 28    .~(   CALL  287E       
1B14 21 00 A0    !..   LD    HL,A000    
1B17 06 40       .@    LD    B,40       
1B19 3E 1E       >.    LD    A,1E       
1B1B BE          .     CP    (HL)       
1B1C 20 05        .    JR    NZ,1B23    
1B1E 23          #     INC   HL         
1B1F 10 FA       ..    DJNZ  1B1B       
1B21 0E 1E       ..    LD    C,1E       
1B23 DD E1       ..    POP   IX         
1B25 F1          .     POP   AF         
1B26 0D          .     DEC   C          
1B27 F2 32 1B    .2.   JP    P,1B32     
1B2A FE 14       ..    CP    14         
1B2C C8          .     RET   Z          
1B2D 21 27 84    !'.   LD    HL,8427    
1B30 18 4C       .L    JR    1B7E       
1B32 FE 0A       ..    CP    0A         
1B34 20 14        .    JR    NZ,1B4A    
1B36 D5          .     PUSH  DE         
1B37 F5          .     PUSH  AF         
1B38 21 00 A0    !..   LD    HL,A000    
1B3B DD 7E 00    .~.   LD    A,(IX+00)  
1B3E 11 00 00    ...   LD    DE,0000    
1B41 DD E5       ..    PUSH  IX         
1B43 CD 7E 28    .~(   CALL  287E       
1B46 DD E1       ..    POP   IX         
1B48 F1          .     POP   AF         
1B49 D1          .     POP   DE         
1B4A 3D          =     DEC   A          
1B4B 20 B8        .    JR    NZ,1B05    
1B4D 21 FD FF    !..   LD    HL,FFFD    ; -3 ist Markierung f. defekten Bl.
1B50 22 00 A0    "..   LD    (A000),HL  
1B53 21 00 A0    !..   LD    HL,A000    
1B56 11 02 A0    ...   LD    DE,A002    
1B59 01 FE 01    ...   LD    BC,01FE    
1B5C ED B0       ..    LDIR             
1B5E 21 31 84    !1.   LD    HL,8431    
1B61 3A 30 1D    :0.   LD    A,(1D30)   
1B64 B7          .     OR    A          
1B65 20 17        .    JR    NZ,1B7E    
1B67 CD CA 6E    ..n   CALL  6ECA       
1B6A 21 77 85    !w.   LD    HL,8577    
1B6D CD CA 6E    ..n   CALL  6ECA       
1B70 CD 9B 1C    ...   CALL  1C9B       
1B73 FE 6E       .n    CP    6E         
1B75 CA 74 15    .t.   JP    Z,1574     
1B78 CD E0 1C    ...   CALL  1CE0       
1B7B C3 F2 1A    ...   JP    1AF2       
1B7E 3A 30 1D    :0.   LD    A,(1D30)   
1B81 B7          .     OR    A          
1B82 28 1B       (.    JR    Z,1B9F     
1B84 CD A6 1B    ...   CALL  1BA6       
1B87 21 68 84    !h.   LD    HL,8468    
1B8A CD CA 6E    ..n   CALL  6ECA       
1B8D CD 9B 1C    ...   CALL  1C9B       
1B90 F5          .     PUSH  AF         
1B91 CD E0 1C    ...   CALL  1CE0       
1B94 F1          .     POP   AF         
1B95 FE 79       .y    CP    79         
1B97 28 02       (.    JR    Z,1B9B     
1B99 FE 6A       .j    CP    6A         
1B9B CC 08 1C    ...   CALL  Z,1C08     
1B9E C9          .     RET              
1B9F CD A6 1B    ...   CALL  1BA6       
1BA2 CD E0 1C    ...   CALL  1CE0       
1BA5 C9          .     RET              
1BA6 E5          .     PUSH  HL         
1BA7 21 91 85    !..   LD    HL,8591    
1BAA DD 7E 00    .~.   LD    A,(IX+00)  
1BAD B7          .     OR    A          
1BAE 28 03       (.    JR    Z,1BB3     
1BB0 21 95 85    !..   LD    HL,8595    
1BB3 CD CA 6E    ..n   CALL  6ECA       
1BB6 E1          .     POP   HL         
1BB7 C3 CA 6E    ..n   JP    6ECA       
1BBA DD 5E 01    .^.   LD    E,(IX+01)  
1BBD DD 56 02    .V.   LD    D,(IX+02)  
1BC0 DD 6E 03    .n.   LD    L,(IX+03)  
1BC3 DD 66 04    .f.   LD    H,(IX+04)  
1BC6 13          .     INC   DE         
1BC7 DD 73 01    .s.   LD    (IX+01),E  
1BCA DD 72 02    .r.   LD    (IX+02),D  
1BCD B7          .     OR    A          
1BCE ED 52       .R    SBC   HL,DE      
1BD0 C9          .     RET              
1BD1 DD 5E 01    .^.   LD    E,(IX+01)  
1BD4 DD 56 02    .V.   LD    D,(IX+02)  
1BD7 21 20 20    !     LD    HL,2020    
1BDA 22 26 1D    "&.   LD    (1D26),HL  
1BDD 22 28 1D    "(.   LD    (1D28),HL  
1BE0 21 25 1D    !%.   LD    HL,1D25    
1BE3 CD 00 4E    ..N   CALL  4E00       
1BE6 21 22 1D    !".   LD    HL,1D22    
1BE9 CD CA 6E    ..n   CALL  6ECA       
1BEC C9          .     RET              
1BED DD 5E 01    .^.   LD    E,(IX+01)  
1BF0 DD 56 02    .V.   LD    D,(IX+02)  
1BF3 21 00 A0    !..   LD    HL,A000    
1BF6 01 00 00    ...   LD    BC,0000    
1BF9 DD 7E 00    .~.   LD    A,(IX+00)  
1BFC DD E5       ..    PUSH  IX         
1BFE CD 7E 28    .~(   CALL  287E       
1C01 DD E1       ..    POP   IX         
1C03 78          x     LD    A,B        
1C04 B1          .     OR    C          
1C05 20 20             JR    NZ,1C27    
1C07 C9          .     RET              
1C08 06 05       ..    LD    B,05       
1C0A C5          .     PUSH  BC         
1C0B 21 00 A0    !..   LD    HL,A000    
1C0E DD 5E 01    .^.   LD    E,(IX+01)  
1C11 DD 56 02    .V.   LD    D,(IX+02)  
1C14 01 00 00    ...   LD    BC,0000    
1C17 DD 7E 00    .~.   LD    A,(IX+00)  
1C1A DD E5       ..    PUSH  IX         
1C1C CD 81 28    ..(   CALL  2881       
1C1F DD E1       ..    POP   IX         
1C21 79          y     LD    A,C        
1C22 B0          .     OR    B          
1C23 C1          .     POP   BC         
1C24 C8          .     RET   Z          
1C25 10 E3       ..    DJNZ  1C0A       
1C27 21 08 84    !..   LD    HL,8408    
1C2A CD A6 1B    ...   CALL  1BA6       
1C2D CD E0 1C    ...   CALL  1CE0       
1C30 C9          .     RET              
1C31 F5          .     PUSH  AF         
1C32 CD 59 1C    .Y.   CALL  1C59       
1C35 CD 08 1C    ...   CALL  1C08       
1C38 3E 0F       >.    LD    A,0F       
1C3A CD 59 1C    .Y.   CALL  1C59       
1C3D CD ED 1B    ...   CALL  1BED       
1C40 F1          .     POP   AF         
1C41 21 00 A0    !..   LD    HL,A000    
1C44 01 00 02    ...   LD    BC,0200    
1C47 ED A1       ..    CPI              
1C49 20 04        .    JR    NZ,1C4F    
1C4B EA 92 1C    ...   JP    PE,1C92    
1C4E C9          .     RET              
1C4F 21 16 84    !..   LD    HL,8416    
1C52 CD CA 6E    ..n   CALL  6ECA       
1C55 CD E0 1C    ...   CALL  1CE0       
1C58 C9          .     RET              
1C59 21 00 A0    !..   LD    HL,A000    
1C5C 11 01 A0    ...   LD    DE,A001    
1C5F 01 FF 01    ...   LD    BC,01FF    
1C62 77          w     LD    (HL),A     
1C63 ED B0       ..    LDIR             
1C65 C9          .     RET              ; ---- Korrekten Block 0 testen
1C66 21 00 A0    !..   LD    HL,A000    
1C69 11 2A 1D    .*.   LD    DE,1D2A    ; "EUMEL-"
1C6C 01 06 00    ...   LD    BC,0006    
1C6F CD 92 1C    ...   CALL  1C92       
1C72 20 12        .    JR    NZ,1C86    ; "HG-ungueltig"
1C74 21 09 A0    !..   LD    HL,A009    
1C77 11 86 82    ...   LD    DE,8286    ; 
1C7A 01 02 00    ...   LD    BC,0002    
1C7D CD 92 1C    ...   CALL  1C92       ; Versionsnummer
1C80 C8          .     RET   Z          
1C81 21 93 84    !..   LD    HL,8493    ; "Falsche Version"
1C84 18 03       ..    JR    1C89       
1C86 21 85 84    !..   LD    HL,8485    
1C89 CD CA 6E    ..n   CALL  6ECA       
1C8C CD 9B 1C    ...   CALL  1C9B       
1C8F C3 74 15    .t.   JP    1574       ; Zum Vortest Menue
1C92 1A          .     LD    A,(DE)     ; Zeichenkette vergleichen
1C93 13          .     INC   DE         
1C94 ED A1       ..    CPI              
1C96 C0          .     RET   NZ         
1C97 EA 92 1C    ...   JP    PE,1C92    
1C9A C9          .     RET              ;----------- Auf Taste warten > A --
1C9B 3E 01       >.    LD    A,01       ; Kanal 1
1C9D CD 06 1F    ...   CALL  1F06       ; Auf Taste warten
1CA0 38 F9       8.    JR    C,1C9B     ; Warten!
1CA2 FE 1B       ..    CP    1B         ; ESC
1CA4 CA 74 15    .t.   JP    Z,1574     ; Zum Vortest Menue
1CA7 FE 20       .     CP    20         ; 
1CA9 D8          .     RET   C          ; < Blank zurueck
1CAA 32 1E 1D    2..   LD    (1D1E),A   
1CAD F5          .     PUSH  AF         
1CAE 21 1D 1D    !..   LD    HL,1D1D    ; CRLF
1CB1 CD CA 6E    ..n   CALL  6ECA       ; ausgeben
1CB4 F1          .     POP   AF         
1CB5 C9          .     RET              ;----- incharety an Kanal 1
1CB6 3E 01       >.    LD    A,01       
1CB8 CD 06 1F    ...   CALL  1F06       ; 
1CBB D8          .     RET   C          ; Wenn nichts da ist
1CBC FE 1B       ..    CP    1B         
1CBE CA 74 15    .t.   JP    Z,1574     ; ESC --> Zum Vortest Menue
1CC1 C9          .     RET              ; -------- Zaehlpuffer loeschen
1CC2 21 20 20    !     LD    HL,2020    
1CC5 22 AA 85    "..   LD    (85AA),HL  
1CC8 22 AC 85    "..   LD    (85AC),HL  
1CCB ED 5B F3 1C .[..  LD    DE,(1CF3)  
1CCF 13          .     INC   DE         
1CD0 ED 53 F3 1C .S..  LD    (1CF3),DE  
1CD4 21 A9 85    !..   LD    HL,85A9    
1CD7 CD 00 4E    ..N   CALL  4E00       ; Dezimal -- ASCII Konvertiereung
1CDA 21 9D 85    !..   LD    HL,859D    ; Puffer ausgeben
1CDD C3 CA 6E    ..n   JP    6ECA       
1CE0 21 16 1D    !..   LD    HL,1D16    ; CRLF ausgeben
1CE3 C3 CA 6E    ..n   JP    6ECA
1CE6 00          .     NOP              
1CE7 00          .     NOP              
1CE8 00          .     NOP              
1CE9 00          .     NOP              
1CEA 00          .     NOP              
1CEB 00          .     NOP              
1CEC 00          .     NOP              
1CED 00          .     NOP              
1CEE 00          .     NOP              
1CEF 00          .     NOP              
1CF0 00          .     NOP              
1CF1 00          .     NOP              
1CF2 00          .     NOP              
1CF3 00          .     NOP              
1CF4 00          .     NOP              
1CF5 F5          .     PUSH  AF         ;- Byte in A Hex --> (DE),(DE+1)
1CF6 0F          .     RRCA             
1CF7 0F          .     RRCA             
1CF8 0F          .     RRCA             
1CF9 0F          .     RRCA             
1CFA CD FE 1C    ...   CALL  1CFE       
1CFD F1          .     POP   AF         
1CFE E6 0F       ..    AND   0F         
1D00 C6 30       .0    ADD   A,30       
1D02 FE 3A       .:    CP    3A         
1D04 38 02       8.    JR    C,1D08     
1D06 C6 07       ..    ADD   A,07       
1D08 12          .     LD    (DE),A     
1D09 13          .     INC   DE         
1D0A C9          .     RET              ; ------ Zeichentexte ------
1D0B 01 2A 00    .*.   LD    BC,002A    ; "*" Laenge 1
1D0E 00          .     NOP              
1D0F 00          .     NOP              
1D10 00          .     NOP              
1D11 00          .     NOP              
1D12 00          .     NOP              
1D13 00          .     NOP              
1D14 01 20 02    . .   LD    BC,0220    ; Blank
1D17 0A          .     LD    A,(BC)     ; CRLF
1D18 0D          .     DEC   C          
1D19 03          .     INC   BC         ; ", 1"
1D1A 2C          ,     INC   L          
1D1B 20 31        1    JR    NZ,1D4E    
1D1D 04          .     INC   B          ; Blank, CR, LF,LF
1D1E 20 0D        .    JR    NZ,1D2D    
1D20 0A          .     LD    A,(BC)     
1D21 0A          .     LD    A,(BC)     
1D22 07          .     RLCA             ; CR, "#     "
1D23 0D          .     DEC   C          
1D24 23          #     INC   HL         
1D25 20 20             JR    NZ,1D47    
1D27 20 20             JR    NZ,1D49    
1D29 20 45        E    JR    NZ,1D70    ; "EUMEL-" HG Kennzeichen
1D2B 55          U     LD    D,L        
1D2C 4D          M     LD    C,L        
1D2D 45          E     LD    B,L        
1D2E 4C          L     LD    C,H        
1D2F 2D          -     DEC   L          
1D30 00          .     NOP              
1D31 00          .     NOP              ; Harddisk Descriptor
1D32 00          .     NOP              
1D33 00          .     NOP              
1D34 00          .     NOP              
1D35 00          .     NOP              
1D36 1F          .     RRA              ; Floppy Descriptor
1D37 00          .     NOP              
1D38 00          .     NOP              
1D39 00          .     NOP              
1D3A 00          .     NOP              
1D3B 00          .     NOP              
1D3C 00          .     NOP              
1D3D 00          .     NOP              
1D3E 00          .     NOP              
1D3F FF          .     RST   38         ; ====== Ende des nichtresidenten
1D40 FF          .     RST   38         ; EUMEL0 Teils ==================
1D41 FF          .     RST   38         
1D42 FF          .     RST   38         
1D43 FF          .     RST   38         
1D44 FF          .     RST   38         
1D45 FF          .     RST   38         
1D46 FF          .     RST   38         
1D47 FF          .     RST   38         
1D48 FF          .     RST   38         
1D49 FF          .     RST   38         
1D4A FF          .     RST   38         
1D4B FF          .     RST   38         
1D4C FF          .     RST   38         
1D4D FF          .     RST   38         
1D4E FF          .     RST   38         
1D4F FF          .     RST   38         
1D50 FF          .     RST   38         
1D51 FF          .     RST   38         
1D52 FF          .     RST   38         
1D53 FF          .     RST   38         
1D54 FF          .     RST   38         
1D55 FF          .     RST   38         
1D56 FF          .     RST   38         
1D57 FF          .     RST   38         
1D58 FF          .     RST   38         
1D59 FF          .     RST   38         
1D5A FF          .     RST   38         
1D5B FF          .     RST   38         
1D5C FF          .     RST   38         
1D5D FF          .     RST   38         
1D5E FF          .     RST   38         
1D5F FF          .     RST   38         
1D60 FF          .     RST   38         
1D61 FF          .     RST   38         
1D62 FF          .     RST   38         
1D63 FF          .     RST   38         
1D64 FF          .     RST   38         
1D65 FF          .     RST   38         
1D66 FF          .     RST   38         
1D67 FF          .     RST   38         
1D68 FF          .     RST   38         
1D69 FF          .     RST   38         
1D6A FF          .     RST   38         
1D6B FF          .     RST   38         
1D6C FF          .     RST   38         
1D6D FF          .     RST   38         
1D6E FF          .     RST   38         
1D6F FF          .     RST   38         
1D70 FF          .     RST   38         
1D71 FF          .     RST   38         
1D72 FF          .     RST   38         
1D73 FF          .     RST   38         
1D74 FF          .     RST   38         
1D75 FF          .     RST   38         
1D76 FF          .     RST   38         
1D77 FF          .     RST   38         
1D78 FF          .     RST   38         
1D79 FF          .     RST   38         
1D7A FF          .     RST   38         
1D7B FF          .     RST   38         
1D7C FF          .     RST   38         
1D7D FF          .     RST   38         
1D7E FF          .     RST   38         
1D7F FF          .     RST   38         
1D80 FF          .     RST   38         
1D81 FF          .     RST   38         
1D82 FF          .     RST   38         
1D83 FF          .     RST   38         
1D84 FF          .     RST   38         
1D85 FF          .     RST   38         
1D86 FF          .     RST   38         
1D87 FF          .     RST   38         
1D88 FF          .     RST   38         
1D89 FF          .     RST   38         
1D8A FF          .     RST   38         
1D8B FF          .     RST   38         
1D8C FF          .     RST   38         
1D8D FF          .     RST   38         
1D8E FF          .     RST   38         
1D8F FF          .     RST   38         
1D90 FF          .     RST   38         
1D91 FF          .     RST   38         
1D92 FF          .     RST   38         
1D93 FF          .     RST   38         
1D94 FF          .     RST   38         
1D95 FF          .     RST   38         
1D96 FF          .     RST   38         
1D97 FF          .     RST   38         
1D98 FF          .     RST   38         
1D99 FF          .     RST   38         
1D9A FF          .     RST   38         
1D9B FF          .     RST   38         
1D9C FF          .     RST   38         
1D9D FF          .     RST   38         
1D9E FF          .     RST   38         
1D9F FF          .     RST   38         
1DA0 FF          .     RST   38         
1DA1 FF          .     RST   38         
1DA2 FF          .     RST   38         
1DA3 FF          .     RST   38         
1DA4 FF          .     RST   38         
1DA5 FF          .     RST   38         
1DA6 FF          .     RST   38         
1DA7 FF          .     RST   38         
1DA8 FF          .     RST   38         
1DA9 FF          .     RST   38         
1DAA FF          .     RST   38         
1DAB FF          .     RST   38         
1DAC FF          .     RST   38         
1DAD FF          .     RST   38         
1DAE FF          .     RST   38         
1DAF FF          .     RST   38         
1DB0 FF          .     RST   38         
1DB1 FF          .     RST   38         
1DB2 FF          .     RST   38         
1DB3 FF          .     RST   38         
1DB4 FF          .     RST   38         
1DB5 FF          .     RST   38         
1DB6 FF          .     RST   38         
1DB7 FF          .     RST   38         
1DB8 FF          .     RST   38         
1DB9 FF          .     RST   38         
1DBA FF          .     RST   38         
1DBB FF          .     RST   38         
1DBC FF          .     RST   38         
1DBD FF          .     RST   38         
1DBE FF          .     RST   38         
1DBF FF          .     RST   38         
1DC0 FF          .     RST   38         
1DC1 FF          .     RST   38         
1DC2 FF          .     RST   38         
1DC3 FF          .     RST   38         
1DC4 FF          .     RST   38         
1DC5 FF          .     RST   38         
1DC6 FF          .     RST   38         
1DC7 FF          .     RST   38         
1DC8 FF          .     RST   38         
1DC9 FF          .     RST   38         
1DCA FF          .     RST   38         
1DCB FF          .     RST   38         
1DCC FF          .     RST   38         
1DCD FF          .     RST   38         
1DCE FF          .     RST   38         
1DCF FF          .     RST   38         
1DD0 FF          .     RST   38         
1DD1 FF          .     RST   38         
1DD2 FF          .     RST   38         
1DD3 FF          .     RST   38         
1DD4 FF          .     RST   38         
1DD5 FF          .     RST   38         
1DD6 FF          .     RST   38         
1DD7 FF          .     RST   38         
1DD8 FF          .     RST   38         
1DD9 FF          .     RST   38         
1DDA FF          .     RST   38         
1DDB FF          .     RST   38         
1DDC FF          .     RST   38         
1DDD FF          .     RST   38         
1DDE FF          .     RST   38         
1DDF FF          .     RST   38         
1DE0 FF          .     RST   38         
1DE1 FF          .     RST   38         
1DE2 FF          .     RST   38         
1DE3 FF          .     RST   38         
1DE4 FF          .     RST   38         
1DE5 FF          .     RST   38         
1DE6 FF          .     RST   38         
1DE7 FF          .     RST   38         
1DE8 FF          .     RST   38         
1DE9 FF          .     RST   38         
1DEA FF          .     RST   38         
1DEB FF          .     RST   38         
1DEC FF          .     RST   38         
1DED FF          .     RST   38         
1DEE FF          .     RST   38         
1DEF FF          .     RST   38         
1DF0 FF          .     RST   38         
1DF1 FF          .     RST   38         
1DF2 FF          .     RST   38         
1DF3 FF          .     RST   38         
1DF4 FF          .     RST   38         
1DF5 FF          .     RST   38         
1DF6 FF          .     RST   38         
1DF7 FF          .     RST   38         
1DF8 FF          .     RST   38         
1DF9 FF          .     RST   38         
1DFA FF          .     RST   38         
1DFB FF          .     RST   38         
1DFC FF          .     RST   38         
1DFD FF          .     RST   38         
1DFE FF          .     RST   38         
1DFF FF          .     RST   38         
1E00 FF          .     RST   38         ; ======= Residenter EUMEL0 =======
1E01 FF          .     RST   38         ; DR EIntrag des DRDR
1E02 FF          .     RST   38         
1E03 FF          .     RST   38         
1E04 FF          .     RST   38         
1E05 FF          .     RST   38         
1E06 FF          .     RST   38         
1E07 FF          .     RST   38         
1E08 FF          .     RST   38         
1E09 FF          .     RST   38         
1E0A FF          .     RST   38         
1E0B FF          .     RST   38         
1E0C FF          .     RST   38         
1E0D FF          .     RST   38         
1E0E FF          .     RST   38         
1E0F FF          .     RST   38         ; ---------- 173 Leiste ---------
1E10 C3 DF 28    ..(   JP    28DF       ; systemstart 173
1E13 C3 71 1F    .q.   JP    1F71       ; inputinterrupt
1E16 C3 35 6E    .5n   JP    6E35       ; timerinterrupt
1E19 C3 E2 6D    ..m   JP    6DE2       ; warte
1E1C C3 22 1E    .".   JP    1E22       ; frei eumel0 (nur 173)
1E1F C3 1F 70    ..p   JP    701F       ; info (Text uebergeben)
1E22 3A 6D 28    :m(   LD    A,(286D)   ;----------- frei eumel0 ---------
1E25 CB C7       ..    SET   0,A        ; MODE Bit 0 setzen
1E27 32 6D 28    2m(   LD    (286D),A   
1E2A C9          .     RET              ;--------------------------------
1E2B FF          .     RST   38         
1E2C FF          .     RST   38         
1E2D FF          .     RST   38         
1E2E FF          .     RST   38         
1E2F FF          .     RST   38         
1E30 FF          .     RST   38         
1E31 FF          .     RST   38         
1E32 FF          .     RST   38         
1E33 FF          .     RST   38         
1E34 FF          .     RST   38         
1E35 FF          .     RST   38         
1E36 FF          .     RST   38         
1E37 FF          .     RST   38         
1E38 FF          .     RST   38         
1E39 FF          .     RST   38         
1E3A FF          .     RST   38         
1E3B FF          .     RST   38         
1E3C FF          .     RST   38         
1E3D FF          .     RST   38         
1E3E FF          .     RST   38         
1E3F FF          .     RST   38         
1E40 FF          .     RST   38         
1E41 FF          .     RST   38         
1E42 FF          .     RST   38         
1E43 FF          .     RST   38         
1E44 FF          .     RST   38         
1E45 FF          .     RST   38         
1E46 FF          .     RST   38         
1E47 FF          .     RST   38         
1E48 FF          .     RST   38         
1E49 FF          .     RST   38         
1E4A FF          .     RST   38         
1E4B 74          t     LD    (HL),H     ; "trmnet  10 (!)"
1E4C 72          r     LD    (HL),D     
1E4D 6D          m     LD    L,L        
1E4E 6E          n     LD    L,(HL)     
1E4F 65          e     LD    H,L        
1E50 74          t     LD    (HL),H     
1E51 20 20             JR    NZ,1E73    
1E53 31 30 20    10    LD    SP,2030    
1E56 28 21       (!    JR    Z,1E79     
1E58 29          )     ADD   HL,HL      ;---------- intern frout ---------
1E59 FE 11       ..    CP    11
1E5B D0          .     RET   NC         
1E5C E5          .     PUSH  HL         
1E5D CD EB 23    ..#   CALL  23EB       
1E60 CB 5E       .^    BIT   3,(HL)     
1E62 E1          .     POP   HL         
1E63 28 02       (.    JR    Z,1E67     
1E65 97          .     SUB   A          ; Ist Stop-Taste gedrueckt
1E66 C9          .     RET              
1E67 C5          .     PUSH  BC         ; Weiter gedrueckt
1E68 01 02 00    ...   LD    BC,0002    ; IOCONTROL frout
1E6B CD A8 28    ..(   CALL  28A8       
1E6E 79          y     LD    A,C        
1E6F C1          .     POP   BC         
1E70 C9          .     RET              ;-------- intern typ --------------
1E71 32 B8 26    2.&   LD    (26B8),A   
1E74 C5          .     PUSH  BC         
1E75 01 01 00    ...   LD    BC,0001    ; IOCONTROL typ
1E78 CD A8 28    ..(   CALL  28A8       
1E7B 79          y     LD    A,C        
1E7C E6 03       ..    AND   03         
1E7E FE 03       ..    CP    03         
1E80 C1          .     POP   BC         
1E81 3A B8 26    :.&   LD    A,(26B8)   
1E84 C9          .     RET              ; ---------- cursorpos --> BC ---
1E85 FE 11       ..    CP    11         
1E87 D0          .     RET   NC         
1E88 E5          .     PUSH  HL         
1E89 CD EB 23    ..#   CALL  23EB       ; Kanaltabellenaddresse
1E8C 01 02 00    ...   LD    BC,0002    
1E8F 09          .     ADD   HL,BC      
1E90 4E          N     LD    C,(HL)     
1E91 23          #     INC   HL         
1E92 46          F     LD    B,(HL)     
1E93 E1          .     POP   HL         
1E94 B7          .     OR    A          
1E95 C9          .     RET              ;----------------------------------
1E96 DD 7E 04    .~.   LD    A,(IX+04)  ; Grosser Puffer leer ?
1E99 D6 01       ..    SUB   A,01       
1E9B 30 0B       0.    JR    NC,1EA8    
1E9D DD 7E 0B    .~.   LD    A,(IX+0B)  
1EA0 D6 01       ..    SUB   A,01       
1EA2 30 04       0.    JR    NC,1EA8    
1EA4 CD E4 1E    ...   CALL  1EE4       ; IOCONTROL weiter
1EA7 37          7     SCF              
1EA8 C1          .     POP   BC         
1EA9 DD E1       ..    POP   IX         
1EAB E1          .     POP   HL         
1EAC C9          .     RET              ;---------------------------------
1EAD FE 11       ..    CP    11         
1EAF 3F          ?     CCF              
1EB0 D8          .     RET   C          
1EB1 E5          .     PUSH  HL         
1EB2 DD E5       ..    PUSH  IX         
1EB4 C5          .     PUSH  BC         
1EB5 32 AC 26    2.&   LD    (26AC),A   
1EB8 CD FA 23    ..#   CALL  23FA       
1EBB 3A A9 26    :.&   LD    A,(26A9)   
1EBE B7          .     OR    A          
1EBF 28 11       (.    JR    Z,1ED2     
1EC1 F5          .     PUSH  AF         
1EC2 97          .     SUB   A          
1EC3 32 A9 26    2.&   LD    (26A9),A   
1EC6 F1          .     POP   AF         
1EC7 28 09       (.    JR    Z,1ED2     
1EC9 CD 1F 70    ..p   CALL  701F       
1ECC 18 04       ..    JR    1ED2       
1ECE 20 69        i    JR    NZ,1F39    ; Info aufrufen
1ED0 6E          n     LD    L,(HL)     ; " int"
1ED1 74          t     LD    (HL),H     
1ED2 DD 2A AD 26 .*.&  LD    IX,(26AD)  
1ED6 CB 6E       .n    BIT   5,(HL)     
1ED8 20 BC        .    JR    NZ,1E96    ; Grosser Puffer
1EDA DD 7E 04    .~.   LD    A,(IX+04)  ; Kleiner Puffer leer ?
1EDD FE 07       ..    CP    07         
1EDF 28 15       (.    JR    Z,1EF6     
1EE1 B7          .     OR    A          
1EE2 18 51       .Q    JR    1F35       
1EE4 3A AC 26    :.&   LD    A,(26AC)   ;---------- intern weiter --------
1EE7 01 04 00    ...   LD    BC,0004    ; IOCONTROL weiter
1EEA C3 A8 28    ..(   JP    28A8       
1EED C5          .     PUSH  BC         ;---------- intern stop -----------
1EEE 01 03 00    ...   LD    BC,0003    
1EF1 CD A8 28    ..(   CALL  28A8       ; IOCONTORL stop
1EF4 C1          .     POP   BC         
1EF5 C9          .     RET              ;----------------------------------
1EF6 CD E4 1E    ...   CALL  1EE4       ; CALL weiter
1EF9 DD 7E 04    .~.   LD    A,(IX+04)  ;
1EFC FE 07       ..    CP    07         
1EFE 28 03       (.    JR    Z,1F03     ; Puffer leer ?
1F00 B7          .     OR    A          
1F01 18 32       .2    JR    1F35       ; Routine mit CLC verlassen 
1F03 37          7     SCF              
1F04 18 2F       ./    JR    1F35       ; ROutine mit SEC verlassen
1F06 CD AD 1E    ...   CALL  1EAD       ;---------------------------------
1F09 D8          .     RET   C          
1F0A E5          .     PUSH  HL         
1F0B DD E5       ..    PUSH  IX         
1F0D C5          .     PUSH  BC         
1F0E DD 2A AD 26 .*.&  LD    IX,(26AD)  
1F12 DD 7E 07    .~.   LD    A,(IX+07)  
1F15 DD CB 00 6E ...n  BIT   5,(IX+00)  
1F19 20 1F        .    JR    NZ,1F3A    
1F1B 2A AD 26    *.&   LD    HL,(26AD)  
1F1E 01 07 00    ...   LD    BC,0007    
1F21 09          .     ADD   HL,BC      
1F22 D5          .     PUSH  DE         
1F23 54          T     LD    D,H        
1F24 5D          ]     LD    E,L        
1F25 23          #     INC   HL         
1F26 01 0F 00    ...   LD    BC,000F    
1F29 F3          .     DI               
1F2A ED B0       ..    LDIR             
1F2C DD 35       .5    DEC   (IX+04)    
1F2E 04          .     INC   B          
1F2F DD 35       .5    DEC   (IX+05)    
1F31 05          .     DEC   B          
1F32 FB          .     EI               
1F33 D1          .     POP   DE         
1F34 B7          .     OR    A          
1F35 C1          .     POP   BC         
1F36 DD E1       ..    POP   IX         
1F38 E1          .     POP   HL         
1F39 C9          .     RET              
1F3A 67          g     LD    H,A        ; Pufferaddresse
1F3B DD 6E 0C    .n.   LD    L,(IX+0C)  ; Pufferaddresse 
1F3E CD 81 5A    ..Z   CALL  5A81       
1F41 DD 7E 05    .~.   LD    A,(IX+05)  ; Lowbyte Schreibzeiger
1F44 3C          <     INC   A          
1F45 DD 77 05    .w.   LD    (IX+05),A
1F48 20 03        .    JR    NZ,1F4D    
1F4A DD 34       .4    INC   (IX+0A)    ; Highbyte Schreibzeiger
1F4C 0A          .     LD    A,(BC)     
1F4D 6F          o     LD    L,A        
1F4E DD 7E 0A    .~.   LD    A,(IX+0A)  
1F51 E6 01       ..    AND   01         
1F53 84          .     ADD   H          
1F54 67          g     LD    H,A        
1F55 7E          ~     LD    A,(HL)     
1F56 F5          .     PUSH  AF         
1F57 CD 8C 5A    ..Z   CALL  5A8C       
1F5A F3          .     DI               
1F5B DD 6E 04    .n.   LD    L,(IX+04)  ; Jetzt darf kein Inputinter. komm.
1F5E DD 66 0B    .f.   LD    H,(IX+0B)  
1F61 2B          +     DEC   HL         
1F62 DD 74 0B    .t.   LD    (IX+0B),H  
1F65 DD 75 04    .u.   LD    (IX+04),L  
1F68 FB          .     EI               
1F69 7D          }     LD    A,L        
1F6A B7          .     OR    A          
1F6B CC E4 1E    ...   CALL  Z,1EE4     ; CALL weiter
1F6E F1          .     POP   AF         
1F6F 18 C3       ..    JR    1F34       ;=========== inputinterrupt =======
1F71 FE 11       ..    CP    11         ; B=Eingabezeichen
1F73 D0          .     RET   NC         ; C=Errorbits
1F74 DD E5       ..    PUSH  IX         
1F76 E5          .     PUSH  HL         
1F77 F5          .     PUSH  AF         
1F78 CD EB 23    ..#   CALL  23EB       ; Kanaltabelleaddresse
1F7B E5          .     PUSH  HL         
1F7C DD E1       ..    POP   IX         
1F7E CB B9       ..    RES   7,C        ; 
1F80 CB A9       ..    RES   5,C        ; Pufferoverflowbit
1F82 DD 7E 01    .~.   LD    A,(IX+01)  
1F85 B1          .     OR    C          ; Mit Bits vom Shard verodern 
1F86 DD 77 01    .w.   LD    (IX+01),A  
1F89 CB 7F       ..    BIT   7,A        
1F8B 28 0A       (.    JR    Z,1F97     
1F8D E5          .     PUSH  HL         
1F8E DD CB 01 F6 ....  SET   6,(IX+01)  
1F92 21 A9 26    !.&   LD    HL,26A9    
1F95 34          4     INC   (HL)       
1F96 E1          .     POP   HL         
1F97 DD CB 01 FE ....  SET   7,(IX+01)  
1F9B CB 6E       .n    BIT   5,(HL)     ; Grosser Puffer ?
1F9D 28 6F       (o    JR    Z,200E     
1F9F DD 7E 0B    .~.   LD    A,(IX+0B)  ; ja
1FA2 FE 01       ..    CP    01         
1FA4 38 0E       8.    JR    C,1FB4     ; < 1 (=0) : Nicht voll
1FA6 20 3A        :    JR    NZ,1FE2    ; > 1 (=2) : Voll
1FA8 DD 7E 04    .~.   LD    A,(IX+04)  ; = 180 ,
1FAB FE 80       ..    CP    80         ; Puffer 3/4b voll Hysterese Stop
1FAD 20 05        .    JR    NZ,1FB4    
1FAF F1          .     POP   AF         
1FB0 F5          .     PUSH  AF         
1FB1 CD ED 1E    ...   CALL  1EED       ; CALL stop
1FB4 DD 34       .4    INC   (IX+04)    
1FB6 04          .     INC   B          
1FB7 20 03        .    JR    NZ,1FBC    
1FB9 DD 34       .4    INC   (IX+0B)    
1FBB 0B          .     DEC   BC         
1FBC DD 66 07    .f.   LD    H,(IX+07)  
1FBF DD 6E 0C    .n.   LD    L,(IX+0C)  
1FC2 78          x     LD    A,B        
1FC3 C5          .     PUSH  BC         
1FC4 F5          .     PUSH  AF         
1FC5 CD 81 5A    ..Z   CALL  5A81       
1FC8 DD 7E 08    .~.   LD    A,(IX+08)  
1FCB 3C          <     INC   A          
1FCC DD 77 08    .w.   LD    (IX+08),A  
1FCF 6F          o     LD    L,A        
1FD0 20 03        .    JR    NZ,1FD5    
1FD2 DD 34       .4    INC   (IX+09)    
1FD4 09          .     ADD   HL,BC      
1FD5 DD 7E 09    .~.   LD    A,(IX+09)  
1FD8 E6 01       ..    AND   01         
1FDA 84          .     ADD   H          
1FDB 67          g     LD    H,A        
1FDC F1          .     POP   AF         
1FDD 77          w     LD    (HL),A     
1FDE CD 8C 5A    ..Z   CALL  5A8C       
1FE1 C1          .     POP   BC         
1FE2 DD CB 01 EE ....  SET   5,(IX+01)  ; Pufferoverflow setzen
1FE6 F1          .     POP   AF         
1FE7 21 AB 26    !.&   LD    HL,26AB    
1FEA CB B6       ..    RES   6,(HL)     
1FEC DD CB 01 BE ....  RES   7,(IX+01)  
1FF0 FB          .     EI               
1FF1 DD CB 00 6E ...n  BIT   5,(IX+00)  ; Groer Puffer ?
1FF5 20 09        .    JR    NZ,2000    
1FF7 3E 17       >.    LD    A,17       ; Pufferende-Lesezeiger
1FF9 DD 96 04    ...   SUB   (IX+04)    ; Platz im Puffer
1FFC E1          .     POP   HL         
1FFD DD E1       ..    POP   IX         
1FFF C9          .     RET              ;----------- Ende von inputinterr.
2000 DD 7E 0B    .~.   LD    A,(IX+0B)  
2003 B7          .     OR    A          
2004 3E FF       >.    LD    A,FF       
2006 28 F4       (.    JR    Z,1FFC     
2008 97          .     SUB   A          
2009 DD 96 04    ...   SUB   (IX+04)    
200C 18 EE       ..    JR    1FFC       
200E F1          .     POP   AF         ;------ kleiner Puffer ------------
200F F5          .     PUSH  AF         
2010 CD 95 26    ..&   CALL  2695       ; Typtabellennummer
2013 FE 7E       .~    CP    7E         ; psi ?
2015 20 29        )    JR    NZ,2040    
2017 78          x     LD    A,B        ; info-Taste
2018 FE 04       ..    CP    04         
201A 28 18       (.    JR    Z,2034       
201C FE 07       ..    CP    07         ; SV-Call
201E 28 1A       (.    JR    Z,203A     
2020 FE 11       ..    CP    11         ; Stop
2022 28 0A       (.    JR    Z,202E     
2024 FE 17       ..    CP    17         ; Weiter
2026 20 18        .    JR    NZ,2040    
2028 DD CB 00 9E ....  RES   3,(IX+00)  ; Weiter gedrueckt
202C 18 B8       ..    JR    1FE6       
202E DD CB 00 DE ....  SET   3,(IX+00)  ; Stop gedrueckt
2032 18 B2       ..    JR    1FE6       
2034 F1          .     POP   AF         ; info-taste gedrueckt 
2035 CD 33 6F    .3o   CALL  6F33       
2038 18 AD       ..    JR    1FE7       
203A F1          .     POP   AF         ; SV-Call gedrueckt
203B CD 93 4C    ..L   CALL  4C93       ; SV-Call zustellen
203E 18 A7       ..    JR    1FE7       
2040 C5          .     PUSH  BC         ; nicht psi als tabelle
2041 DD 7E 05    .~.   LD    A,(IX+05)  ; Schreibzeiger >= 16H ? 
2044 FE 16       ..    CP    16         
2046 D2 F2 20    ..    JP    NC,20F2    ; Pufferoverflow setzen
2049 21 AB 26    !.&   LD    HL,26AB    
204C CB F6       ..    SET   6,(HL)     
204E 4F          O     LD    C,A        
204F 06 00       ..    LD    B,00       
2051 DD E5       ..    PUSH  IX         
2053 E1          .     POP   HL         
2054 09          .     ADD   HL,BC      
2055 C1          .     POP   BC         
2056 70          p     LD    (HL),B     
2057 23          #     INC   HL         
2058 36 FF       6.    LD    (HL),FF    
205A DD 34       .4    INC   (IX+05)    ; Schreibzeiger
205C 05          .     DEC   B          
205D FE 0E       ..    CP    0E         
205F 20 0E        .    JR    NZ,206F    
2061 F1          .     POP   AF         
2062 F5          .     PUSH  AF         
2063 CD 95 26    ..&   CALL  2695       
2066 CB 7E       .~    BIT   7,(HL)     
2068 28 05       (.    JR    Z,206F     
206A F1          .     POP   AF         
206B F5          .     PUSH  AF         
206C CD ED 1E    ...   CALL  1EED       
206F F1          .     POP   AF         
2070 F5          .     PUSH  AF         
2071 CD 95 26    ..&   CALL  2695       
2074 FE 7E       .~    CP    7E         
2076 D2 EB 20    ..    JP    NC,20EB    
2079 CD 1F 24    ..$   CALL  241F       
207C D5          .     PUSH  DE         
207D C5          .     PUSH  BC         
207E 01 80 01    ...   LD    BC,0180    
2081 09          .     ADD   HL,BC      
2082 E5          .     PUSH  HL         
2083 EB          .     EX    DE,HL      
2084 DD E5       ..    PUSH  IX         
2086 E1          .     POP   HL         
2087 DD 4E 04    .N.   LD    C,(IX+04)  
208A 06 00       ..    LD    B,00       
208C 09          .     ADD   HL,BC      
208D 1A          .     LD    A,(DE)     ; Zeichen an Lesezeigerposition holen
208E 13          .     INC   DE         
208F 3C          <     INC   A          
2090 F5          .     PUSH  AF         
2091 20 04        .    JR    NZ,2097    
2093 1A          .     LD    A,(DE)     ; Zeichen = FF ?
2094 3C          <     INC   A          
2095 28 38       (8    JR    Z,20CF     
2097 E5          .     PUSH  HL         
2098 EB          .     EX    DE,HL      
2099 1A          .     LD    A,(DE)     
209A ED A1       ..    CPI              
209C 20 24        $    JR    NZ,20C2    
209E 13          .     INC   DE         
209F 3C          <     INC   A          
20A0 20 F7        .    JR    NZ,2099    
20A2 E1          .     POP   HL         
20A3 F1          .     POP   AF         
20A4 3D          =     DEC   A          
20A5 FE 11       ..    CP    11         ; Weiter
20A7 CA 1C 21    ..!   JP    Z,211C     
20AA FE 04       ..    CP    04         ; Info
20AC 28 56       (V    JR    Z,2104     
20AE FE 07       ..    CP    07         ; SV-Call
20B0 28 5E       (^    JR    Z,2110     
20B2 FE 17       ..    CP    17         ; Stop
20B4 CA 22 21    ."!   JP    Z,2122     
20B7 77          w     LD    (HL),A     ; Anderer Eingabecode
20B8 DD 34       .4    INC   (IX+04)    ; Lese-Zeiger weitersetzen
20BA 04          .     INC   B          
20BB 23          #     INC   HL         
20BC CD 2F 21    ./!   CALL  212F       
20BF E1          .     POP   HL         
20C0 18 1B       ..    JR    20DD       
20C2 3C          <     INC   A          
20C3 28 1C       (.    JR    Z,20E1     
20C5 7E          ~     LD    A,(HL)     
20C6 23          #     INC   HL         
20C7 3C          <     INC   A          
20C8 20 FB        .    JR    NZ,20C5    
20CA EB          .     EX    DE,HL      
20CB E1          .     POP   HL         
20CC F1          .     POP   AF         
20CD 18 BE       ..    JR    208D       
20CF F1          .     POP   AF         
20D0 E1          .     POP   HL         
20D1 DD 34       .4    INC   (IX+04)    
20D3 04          .     INC   B          
20D4 DD 7E 04    .~.   LD    A,(IX+04)  ; Lesezeiger = Schreibzeiger ?
20D7 DD BE 05    ...   CP    (IX+05)    
20DA C2 82 20    ..    JP    NZ,2082    
20DD C1          .     POP   BC         
20DE D1          .     POP   DE         
20DF 18 0D       ..    JR    20EE       
20E1 3E 02       >.    LD    A,02       
20E3 32 AB 26    2.&   LD    (26AB),A   
20E6 E1          .     POP   HL         
20E7 F1          .     POP   AF         
20E8 E1          .     POP   HL         
20E9 18 F2       ..    JR    20DD       
20EB DD 34       .4    INC   (IX+04)    ; Zeiger weitersetzen
20ED 04          .     INC   B          
20EE F1          .     POP   AF         
20EF C3 E7 1F    ...   JP    1FE7       
20F2 DD CB 01 EE ....  SET   5,(IX+01)  ; Bit 5 : Puffer overflow
20F6 DD 7E 04    .~.   LD    A,(IX+04)  ; Schreibzeiger := Lesezeiger
20F9 DD 77 05    .w.   LD    (IX+05),A  
20FC 3E 03       >.    LD    A,03       
20FE 32 AB 26    2.&   LD    (26AB),A   
2101 C1          .     POP   BC         
2102 18 EA       ..    JR    20EE       ;-------------- Info-Taste --------
2104 CD 2F 21    ./!   CALL  212F       
2107 E1          .     POP   HL         
2108 C1          .     POP   BC         
2109 D1          .     POP   DE         
210A F1          .     POP   AF         
210B CD 33 6F    .3o   CALL  6F33       
210E 18 DF       ..    JR    20EF       ;--------------- SV-Call ---------
2110 CD 2F 21    ./!   CALL  212F       
2113 E1          .     POP   HL         
2114 C1          .     POP   BC         
2115 D1          .     POP   DE         
2116 F1          .     POP   AF         
2117 CD 93 4C    ..L   CALL  4C93       
211A 18 D3       ..    JR    20EF       ;-------------- Weiter-Taste ------
211C DD CB 00 DE ....  SET   3,(IX+00)  ; Weiterbit setzen 
2120 18 04       ..    JR    2126       ;-------------- Stop-Taste --------
2122 DD CB 00 9E ....  RES   3,(IX+00)  ; 
2126 CD 2F 21    ./!   CALL  212F       
2129 E1          .     POP   HL         
212A C1          .     POP   BC         
212B D1          .     POP   DE         
212C F1          .     POP   AF         
212D 18 C0       ..    JR    20EF       
212F DD 7E 04    .~.   LD    A,(IX+04)  ; Schreibzeiger := Lesezeiger
2132 DD 77 05    .w.   LD    (IX+05),A  
2135 3E FF       >.    LD    A,FF       ; Puffer bis zum Ende mit FF fuellen
2137 77          w     LD    (HL),A     
2138 23          #     INC   HL         
2139 7B          {     LD    A,E        
213A BD          .     CP    L          
213B 20 F8        .    JR    NZ,2135    
213D C9          .     RET              ; ------ Test ob Puffer overflow
213E F5          .     PUSH  AF         
213F E5          .     PUSH  HL         
2140 21 B2 26    !.&   LD    HL,26B2    
2143 CB 7E       .~    BIT   7,(HL)     
2145 28 02       (.    JR    Z,2149     
2147 86          .     ADD   (HL)       
2148 77          w     LD    (HL),A     
2149 3A AB 26    :.&   LD    A,(26AB)   
214C 3D          =     DEC   A          
214D FA 85 21    ..!   JP    M,2185     
2150 32 AB 26    2.&   LD    (26AB),A   
2153 20 30        0    JR    NZ,2185    
2155 DD E5       ..    PUSH  IX         
2157 D5          .     PUSH  DE         
2158 C5          .     PUSH  BC         
2159 11 18 00    ...   LD    DE,0018    
215C 3E 01       >.    LD    A,01       ; Beginne mit Kanal 1
215E CD EB 23    ..#   CALL  23EB       ; Zeiger auf Kanaltabelle --> HL
2161 06 10       ..    LD    B,10       ; Fuer 16 Kanaele
2163 E5          .     PUSH  HL         
2164 DD E1       ..    POP   IX         
2166 DD CB 00 6E ...n  BIT   5,(IX+00)  ; Groer Puffer
216A 20 11        .    JR    NZ,217D    ; kein overflow
216C F3          .     DI               
216D DD 7E 05    .~.   LD    A,(IX+05)  ; Schreibzeiger >= 16H ? 
2170 FE 16       ..    CP    16         
2172 38 05       8.    JR    C,2179     
2174 3E 13       >.    LD    A,13       ; zuruecksetzen auf 13
2176 DD 77 05    .w.   LD    (IX+05),A  
2179 DD 77 04    .w.   LD    (IX+04),A  
217C FB          .     EI               
217D DD 19       ..    ADD   IX,DE      ; Next entry
217F 10 E5       ..    DJNZ  2166       
2181 C1          .     POP   BC         
2182 D1          .     POP   DE         
2183 DD E1       ..    POP   IX         
2185 E1          .     POP   HL         
2186 F1          .     POP   AF         
2187 C9          .     RET              ;----------- OUTPUT ------------
2188 FE 11       ..    CP    11         
218A D2 7B 28    .{(   JP    NC,287B    
218D F5          .     PUSH  AF         
218E DD E5       ..    PUSH  IX         
2190 32 AC 26    2.&   LD    (26AC),A   
2193 E5          .     PUSH  HL         
2194 CD 95 26    ..&   CALL  2695       
2197 D2 3A 22    .:"   JP    NC,223A    
219A 32 B1 26    2.&   LD    (26B1),A   
219D 3A AC 26    :.&   LD    A,(26AC)   
21A0 CD FA 23    ..#   CALL  23FA       
21A3 DD 2A AD 26 .*.&  LD    IX,(26AD)  
21A7 7E          ~     LD    A,(HL)     
21A8 E6 0B       ..    AND   0B         
21AA 28 24       ($    JR    Z,21D0     
21AC CB 5F       ._    BIT   3,A        
21AE 20 0C        .    JR    NZ,21BC    
21B0 CB 47       .G    BIT   0,A        
21B2 28 13       (.    JR    Z,21C7     
21B4 3A AC 26    :.&   LD    A,(26AC)   
21B7 CD 59 1E    .Y.   CALL  1E59       
21BA 38 09       8.    JR    C,21C5     
21BC E1          .     POP   HL         
21BD DD E1       ..    POP   IX         
21BF F1          .     POP   AF         
21C0 01 00 00    ...   LD    BC,0000    
21C3 B7          .     OR    A          
21C4 C9          .     RET              
21C5 CB 86       ..    RES   0,(HL)     
21C7 3A B2 26    :.&   LD    A,(26B2)   
21CA CB 7F       ..    BIT   7,A        
21CC 20 EE        .    JR    NZ,21BC    
21CE CB 8E       ..    RES   1,(HL)     
21D0 E1          .     POP   HL         
21D1 D5          .     PUSH  DE         
21D2 E5          .     PUSH  HL         
21D3 3A B1 26    :.&   LD    A,(26B1)   
21D6 CD 1F 24    ..$   CALL  241F       
21D9 54          T     LD    D,H        
21DA 5D          ]     LD    E,L        
21DB E1          .     POP   HL         
21DC E5          .     PUSH  HL         
21DD C5          .     PUSH  BC         
21DE 78          x     LD    A,B        
21DF B1          .     OR    C          
21E0 20 08        .    JR    NZ,21EA    
21E2 C1          .     POP   BC         
21E3 E1          .     POP   HL         
21E4 D1          .     POP   DE         
21E5 DD E1       ..    POP   IX         
21E7 F1          .     POP   AF         
21E8 37          7     SCF              
21E9 C9          .     RET              
21EA E5          .     PUSH  HL         
21EB 7E          ~     LD    A,(HL)     
21EC 2A AD 26    *.&   LD    HL,(26AD)  
21EF CB 56       .V    BIT   2,(HL)     
21F1 28 0F       (.    JR    Z,2202     
21F3 CB 66       .f    BIT   4,(HL)     
21F5 CA 07 23    ..#   JP    Z,2307     
21F8 CB A6       ..    RES   4,(HL)     
21FA 23          #     INC   HL         
21FB 23          #     INC   HL         
21FC 77          w     LD    (HL),A     
21FD E1          .     POP   HL         
21FE 23          #     INC   HL         
21FF 0B          .     DEC   BC         
2200 18 DC       ..    JR    21DE       
2202 E1          .     POP   HL         
2203 E5          .     PUSH  HL         
2204 C5          .     PUSH  BC         
2205 3A B1 26    :.&   LD    A,(26B1)   
2208 FE 7E       .~    CP    7E         
220A 28 35       (5    JR    Z,2241     
220C E5          .     PUSH  HL         
220D 6E          n     LD    L,(HL)     
220E 26 00       &.    LD    H,00       
2210 19          .     ADD   HL,DE      
2211 7E          ~     LD    A,(HL)     
2212 3C          <     INC   A          
2213 20 38        8    JR    NZ,224D    
2215 E1          .     POP   HL         
2216 ED A1       ..    CPI              
2218 EA 0C 22    .."   JP    PE,220C    
221B C1          .     POP   BC         
221C E1          .     POP   HL         
221D C5          .     PUSH  BC         
221E 3A AC 26    :.&   LD    A,(26AC)   
2221 CD 7B 28    .{(   CALL  287B       
2224 F5          .     PUSH  AF         
2225 DD 7E 03    .~.   LD    A,(IX+03)  ; xpos INCR C
2228 81          .     ADD   C          
2229 DD 77 03    .w.   LD    (IX+03),A  
222C F1          .     POP   AF         
222D D2 CE 23    ..#   JP    NC,23CE    
2230 09          .     ADD   HL,BC      
2231 E3          .     EX    (SP),HL    
2232 B7          .     OR    A          
2233 ED 42       .B    SBC   HL,BC      
2235 44          D     LD    B,H        
2236 4D          M     LD    C,L        
2237 E1          .     POP   HL         
2238 18 A4       ..    JR    21DE       
223A E1          .     POP   HL         
223B DD E1       ..    POP   IX         
223D F1          .     POP   AF         
223E C3 7B 28    .{(   JP    287B       
2241 3E 0D       >.    LD    A,0D       
2243 BE          .     CP    (HL)       
2244 30 08       0.    JR    NC,224E    
2246 ED A1       ..    CPI              
2248 EA 43 22    .C"   JP    PE,2243    
224B 18 CE       ..    JR    221B       
224D E1          .     POP   HL         
224E 7E          ~     LD    A,(HL)     
224F E1          .     POP   HL         
2250 E5          .     PUSH  HL         
2251 B7          .     OR    A          
2252 ED 42       .B    SBC   HL,BC      
2254 28 06       (.    JR    Z,225C     
2256 44          D     LD    B,H        
2257 4D          M     LD    C,L        
2258 E1          .     POP   HL         
2259 E3          .     EX    (SP),HL    
225A 18 C2       ..    JR    221E       
225C F5          .     PUSH  AF         
225D 3A AC 26    :.&   LD    A,(26AC)   
2260 C5          .     PUSH  BC         
2261 01 02 00    ...   LD    BC,0002    ; IOCONTROL frout
2264 CD A8 28    ..(   CALL  28A8       
2267 79          y     LD    A,C        
2268 C1          .     POP   BC         
2269 FE 10       ..    CP    10         
226B DA E6 23    ..#   JP    C,23E6     
226E F1          .     POP   AF         
226F CD 79 22    .y"   CALL  2279       
2272 C1          .     POP   BC         
2273 E1          .     POP   HL         
2274 0B          .     DEC   BC         
2275 23          #     INC   HL         
2276 C3 DE 21    ..!   JP    21DE       ;-------- cursor mitfuehren ------
2279 FE 06       ..    CP    06         
227B CA FF 22    .."   JP    Z,22FF     
227E 38 54       8T    JR    C,22D4     
2280 FE 08       ..    CP    08         ; Left
2282 28 15       (.    JR    Z,2299     
2284 FE 07       ..    CP    07         ; Bell: Keine Veraenderung
2286 28 5B       ([    JR    Z,22E3     
2288 FE 0A       ..    CP    0A         ; LF
228A 28 12       (.    JR    Z,229E     
228C DD 34       .4    INC   (IX+03)    ; Alles andere wie right 
228E 03          .     INC   BC         
228F FE 0D       ..    CP    0D         ; CR
2291 20 50        P    JR    NZ,22E3    
2293 DD 36 03 00 .6..  LD    (IX+03),00 
2297 18 4A       .J    JR    22E3       
2299 DD 35       .5    DEC   (IX+03)    
229B 03          .     INC   BC         
229C 18 45       .E    JR    22E3       
229E F5          .     PUSH  AF         
229F DD 7E 02    .~.   LD    A,(IX+02)  ; ypos des cursors
22A2 DD BE 06    ...   CP    (IX+06)    ; max. ypos (wird mit ysize ges.) 
22A5 28 03       (.    JR    Z,22AA     
22A7 DD 34       .4    INC   (IX+02)    ; ypos +1
22A9 02          .     LD    (BC),A     
22AA F1          .     POP   AF         
22AB 18 36       .6    JR    22E3       
22AD E5          .     PUSH  HL         
22AE 23          #     INC   HL         
22AF CD 5F 23    ._#   CALL  235F       
22B2 E1          .     POP   HL         
22B3 7E          ~     LD    A,(HL)     
22B4 B7          .     OR    A          
22B5 C8          .     RET   Z          
22B6 2A AD 26    *.&   LD    HL,(26AD)  
22B9 CB C6       ..    SET   0,(HL)     
22BB CB CE       ..    SET   1,(HL)     
22BD 3E 81       >.    LD    A,81       
22BF 32 B2 26    2.&   LD    (26B2),A   
22C2 C3 E0 23    ..#   JP    23E0       
22C5 DD 36 02 00 .6..  LD    (IX+02),00 
22C9 DD 36 03 00 .6..  LD    (IX+03),00 
22CD 18 14       ..    JR    22E3       
22CF DD 34       .4    INC   (IX+03)    
22D1 03          .     INC   BC         
22D2 18 0F       ..    JR    22E3       
22D4 FE 01       ..    CP    01         ; Home ?
22D6 28 ED       (.    JR    Z,22C5     
22D8 FE 02       ..    CP    02         ; Right ?
22DA 28 F3       (.    JR    Z,22CF     
22DC FE 03       ..    CP    03         ; Up
22DE 20 03        .    JR    NZ,22E3    
22E0 DD 35       .5    DEC   (IX+02)    ; ypos-1 
22E2 02          .     LD    (BC),A     
22E3 6F          o     LD    L,A        
22E4 3A B1 26    :.&   LD    A,(26B1)   
22E7 FE 7E       .~    CP    7E         
22E9 20 04        .    JR    NZ,22EF    
22EB 7D          }     LD    A,L        
22EC C3 B8 23    ..#   JP    23B8       
22EF 26 00       &.    LD    H,00       
22F1 19          .     ADD   HL,DE      
22F2 7E          ~     LD    A,(HL)     
22F3 FE 80       ..    CP    80         
22F5 DA B8 23    ..#   JP    C,23B8     
22F8 D6 80       ..    SUB   A,80       
22FA 62          b     LD    H,D        
22FB 6F          o     LD    L,A        
22FC 24          $     INC   H          
22FD 18 AE       ..    JR    22AD       ;---------- cursor (x,y) ----------
22FF 2A AD 26    *.&   LD    HL,(26AD)  
2302 CB D6       ..    SET   2,(HL)     
2304 CB E6       ..    SET   4,(HL)     
2306 C9          .     RET              ;---------------------------------
2307 23          #     INC   HL         
2308 23          #     INC   HL         
2309 23          #     INC   HL         
230A 77          w     LD    (HL),A     
230B 3A B1 26    :.&   LD    A,(26B1)   
230E FE 7E       .~    CP    7E         ; psi ?
2310 20 11        .    JR    NZ,2323    
2312 3E 06       >.    LD    A,06       ; Code 6
2314 CD B8 23    ..#   CALL  23B8       
2317 2B          +     DEC   HL         
2318 7E          ~     LD    A,(HL)     ; y pos 
2319 CD B8 23    ..#   CALL  23B8       
231C 23          #     INC   HL         
231D 7E          ~     LD    A,(HL)     ; x pos  
231E CD B8 23    ..#   CALL  23B8       
2321 18 31       .1    JR    2354       
2323 14          .     INC   D          
2324 1A          .     LD    A,(DE)     
2325 15          .     DEC   D          
2326 3C          <     INC   A          
2327 20 0E        .    JR    NZ,2337    
2329 DD 7E 03    .~.   LD    A,(IX+03)  ; alte xpos
232C D6 50       .P    SUB   A,50       ; 80 Spalten Umbruch
232E 38 07       8.    JR    C,2337     
2330 DD CB 02 F6 ....  SET   6,(IX+02)  
2334 DD 77 03    .w.   LD    (IX+03),A  
2337 C5          .     PUSH  BC         
2338 21 06 00    !..   LD    HL,0006    ; Cursorstringcode = 6
233B 19          .     ADD   HL,DE      
233C 7E          ~     LD    A,(HL)     ; Ist immer ein outstring
233D CB BF       ..    RES   7,A        
233F 24          $     INC   H          ; Outstringpage
2340 6F          o     LD    L,A        
2341 2C          ,     INC   L          ; keine wartezeit
2342 CD 5F 23    ._#   CALL  235F       ; prestring ausgeben
2345 23          #     INC   HL         
2346 CD 6C 23    .l#   CALL  236C       ; x/y pos ausgeben
2349 CD 5F 23    ._#   CALL  235F       ; midstring ausgeben
234C 23          #     INC   HL         
234D CD 6C 23    .l#   CALL  236C       ; x/y pos ausgeben
2350 CD 5F 23    ._#   CALL  235F       ; poststring ausgeben
2353 C1          .     POP   BC         ; naechstes zeichen interpretieren
2354 2A AD 26    *.&   LD    HL,(26AD)  
2357 CB 96       ..    RES   2,(HL)     
2359 E1          .     POP   HL         
235A 23          #     INC   HL         
235B 0B          .     DEC   BC         
235C C3 DE 21    ..!   JP    21DE       ; string ausgeben (mit 0 am ende)
235F 06 46       .F    LD    B,46       ; max 70 zeichen
2361 7E          ~     LD    A,(HL)     
2362 B7          .     OR    A          
2363 28 06       (.    JR    Z,236B     
2365 CD B8 23    ..#   CALL  23B8       ; char out
2368 23          #     INC   HL         
2369 10 F6       ..    DJNZ  2361       
236B C9          .     RET              ;----------- x/y pos out --------- 
236C 7E          ~     LD    A,(HL)     ; zeichen "x" oder "y" 
236D E5          .     PUSH  HL         
236E 2A AD 26    *.&   LD    HL,(26AD)  ; zeiger auf x pos (26ad)+2
2371 23          #     INC   HL         
2372 23          #     INC   HL         
2373 FE 79       .y    CP    79         ; "y" Kennzeichen
2375 28 01       (.    JR    Z,2378     
2377 23          #     INC   HL         ; ypos 
2378 46          F     LD    B,(HL)     ; neue position --> B
2379 FD E5       ..    PUSH  IY         
237B 14          .     INC   D          ; 
237C D5          .     PUSH  DE         
237D FD E1       ..    POP   IY         
237F 15          .     DEC   D          
2380 FE 79       .y    CP    79         ; "y" Kennzeichen
2382 28 02       (.    JR    Z,2386     
2384 FD 23       .#    INC   IY         
2386 FD 7E 02    .~.   LD    A,(IY+02)  ; Offset + pos
2389 80          .     ADD   B          
238A FD CB 00 56 ...V  BIT   2,(IY+00)  ; Keine Konvertierung
238E 20 0C        .    JR    NZ,239C     
2390 FD CB 00 46 ...F  BIT   0,(IY+00)  ; Dezimale ASCII-Ausgabe
2394 20 0E        .    JR    NZ,23A4    
2396 FE 0C       ..    CP    0C         ; Elbit Cursor
2398 38 02       8.    JR    C,239C     
239A C6 04       ..    ADD   A,04       ; ywert
239C CD B8 23    ..#   CALL  23B8       ; Byte ausgeben
239F FD E1       ..    POP   IY         
23A1 E1          .     POP   HL         
23A2 23          #     INC   HL         
23A3 C9          .     RET              ;--------- Dezimal ausgeben -------
23A4 D5          .     PUSH  DE         
23A5 5F          _     LD    E,A        
23A6 16 00       ..    LD    D,00       
23A8 21 A4 26    !.&   LD    HL,26A4    ; Zwischenspeicheraddresse
23AB CD 00 4E    ..N   CALL  4E00       ; String uebertragen
23AE 41          A     LD    B,C        ; Laengebyte
23AF 21 A4 26    !.&   LD    HL,26A4    ; Startaddresse des Strings
23B2 CD 61 23    .a#   CALL  2361       ; String ausgeben
23B5 D1          .     POP   DE         
23B6 18 E7       ..    JR    239F       ; Return
23B8 E5          .     PUSH  HL         
23B9 C5          .     PUSH  BC         
23BA 21 AA 26    !.&   LD    HL,26AA    
23BD 77          w     LD    (HL),A     
23BE 01 01 00    ...   LD    BC,0001    
23C1 3A AC 26    :.&   LD    A,(26AC)   
23C4 CD 7B 28    .{(   CALL  287B       
23C7 78          x     LD    A,B        
23C8 B1          .     OR    C          
23C9 28 F3       (.    JR    Z,23BE     
23CB C1          .     POP   BC         
23CC E1          .     POP   HL         
23CD C9          .     RET              
23CE E1          .     POP   HL         
23CF B7          .     OR    A          
23D0 ED 42       .B    SBC   HL,BC      
23D2 E3          .     EX    (SP),HL    
23D3 C1          .     POP   BC         
23D4 B7          .     OR    A          
23D5 ED 42       .B    SBC   HL,BC      
23D7 44          D     LD    B,H        
23D8 4D          M     LD    C,L        
23D9 E1          .     POP   HL         
23DA D1          .     POP   DE         
23DB DD E1       ..    POP   IX         
23DD F1          .     POP   AF         
23DE B7          .     OR    A          
23DF C9          .     RET              
23E0 C1          .     POP   BC         
23E1 E1          .     POP   HL         
23E2 2B          +     DEC   HL         
23E3 C1          .     POP   BC         
23E4 18 EC       ..    JR    23D2       
23E6 E1          .     POP   HL         
23E7 E1          .     POP   HL         
23E8 C1          .     POP   BC         
23E9 18 E7       ..    JR    23D2       ;----- Zeiger auf Kanaltabelle
23EB D5          .     PUSH  DE         
23EC C5          .     PUSH  BC         
23ED 21 B1 26    !.&   LD    HL,26B1    
23F0 47          G     LD    B,A        
23F1 11 18 00    ...   LD    DE,0018    ; 24 Bytes lang ein entry
23F4 19          .     ADD   HL,DE      
23F5 10 FD       ..    DJNZ  23F4       
23F7 C1          .     POP   BC         
23F8 D1          .     POP   DE         
23F9 C9          .     RET              
23FA CD EB 23    ..#   CALL  23EB       
23FD 22 AD 26    ".&   LD    (26AD),HL  
2400 C9          .     RET              ;--------- Typtabellennummeraddr->HL
2401 FE 7E       .~    CP    7E         ; psi
2403 C8          .     RET   Z          
2404 FE 05       ..    CP    05         ; Tabellennummer >= 5 ?
2406 38 0E       8.    JR    C,2416     
2408 CD 1F 70    ..p   CALL  701F       ; Info aufrufen
240B 18 09       ..    JR    2416       ; " lst ovfl"
240D 20 6C        l    JR    NZ,247B    
240F 73          s     LD    (HL),E     
2410 74          t     LD    (HL),H     
2411 20 6F        o    JR    NZ,2482    
2413 76          v     HALT             
2414 66          f     LD    H,(HL)     
2415 6C          l     LD    L,H        
2416 21 B3 26    !.&   LD    HL,26B3
2419 85          .     ADD   L          
241A 6F          o     LD    L,A        
241B 30 01       0.    JR    NC,241E    
241D 24          $     INC   H          
241E C9          .     RET              ;------ Addresse der Typtabelle --
241F CD 01 24    ..$   CALL  2401       
2422 66          f     LD    H,(HL)     
2423 2E 00       ..    LD    L,00       
2425 C9          .     RET              ;--Typt.Block reservieren -------
2426 E5          .     PUSH  HL         
2427 D5          .     PUSH  DE         
2428 CD 42 5E    .B^   CALL  5E42       ; Block freimachen
242B 7D          }     LD    A,L        
242C 87          .     ADD   A          ; * 2
242D D1          .     POP   DE         
242E E1          .     POP   HL         
242F 77          w     LD    (HL),A     ; Pufferaddresse (Block)eintragen
2430 C9          .     RET              
2431 F1          .     POP   AF         
2432 01 FF FF    ...   LD    BC,FFFF    ; Returncode -1
2435 C9          .     RET              ; ---- 173/175 Shard-IOCONTROL ----- 
2436 F5          .     PUSH  AF         
2437 3A 6B 28    :k(   LD    A,(286B)   ; Shardversion 
243A FE 06       ..    CP    06         ; 173 Shard
243C 38 F3       8.    JR    C,2431     ; < 6 : control geht nicht
243E FE 08       ..    CP    08         
2440 30 0A       0.    JR    NC,244C    ; >= 8 : keine Registerverlagerung
2442 F1          .     POP   AF         ; 173: Register umdrehen
2443 61          a     LD    H,C        ; H = Schlssel (>=8: HL=Schlssel)
2444 42          B     LD    B,D        ; BC = Funktionsnummer
2445 4B          K     LD    C,E        ; L war schon addressierter Kanal
2446 11 00 00    ...   LD    DE,0000    ; DE = Funktionscode 1 (nicht in <8)
2449 C3 A8 28    ..(   JP    28A8       ; IOCONTROL an Shard geben
244C F1          .     POP   AF         ; --- 175 Shard-IOCONTROL ---------- 
244D C5          .     PUSH  BC         
244E 42          B     LD    B,D        ; Funktionsnummer nach BC
244F 4B          K     LD    C,E        
2450 54          T     LD    D,H        ; Code 1 nach DE
2451 5D          ]     LD    E,L        
2452 E1          .     POP   HL         ; Code 2 nach HL
2453 C3 A8 28    ..(   JP    28A8       ; ---- CONTROL (DE,HL,BC,res BC) ----
2456 CB 7A       .z    BIT   7,D        
2458 20 F3        .    JR    NZ,244D    
245A F5          .     PUSH  AF         
245B 7B          {     LD    A,E        ; Control 6: flow (kanal.
245C FE 06       ..    CP    06         
245E CA 24 25    .$%   JP    Z,2524     
2461 FE 08       ..    CP    08         ; Control 8: baud (kanal,schlssl,res)
2463 28 D2       (.    JR    Z,2437     
2465 FE 09       ..    CP    09         ; Control 9: bits (kanal,schlssl,res)
2467 28 CE       (.    JR    Z,2437     
2469 FE 0A       ..    CP    0A         ; Control 10: calendar (field,0,bcd)
246B 28 1B       (.    JR    Z,2488     
246D FE 0C       ..    CP    0C         ; Control 12: xmiterror (0,0,err)
246F 20 1E        .    JR    NZ,248F    ;--------- IOCONTROL 12 ----------
2471 0E 3F       .?    LD    C,3F
2473 3A 6B 28    :k(   LD    A,(286B)   
2476 FE 08       ..    CP    08         ; Shard Version >= 8 ?
2478 30 02       0.    JR    NC,247C    
247A 0E 20       .     LD    C,20       ; Nur Puffer uebergelaufen
247C F1          .     POP   AF         
247D CD EB 23    ..#   CALL  23EB       ; Zeiger auf Kanaltabelle 
2480 23          #     INC   HL         
2481 7E          ~     LD    A,(HL)     
2482 A1          .     AND   C          
2483 4F          O     LD    C,A        
2484 06 00       ..    LD    B,00       
2486 70          p     LD    (HL),B     
2487 C9          .     RET              ; ----- IOCONTROL calendar ---------
2488 3A 6B 28    :k(   LD    A,(286B)   
248B FE 08       ..    CP    08         ; Shard Vers >= 8 ? 
248D 38 A2       8.    JR    C,2431     ; nein, Return -1
248F F1          .     POP   AF         ; ------ 
2490 FE 20       .     CP    20         ; Parameterkanal ?
2492 28 0E       (.    JR    Z,24A2     
2494 F5          .     PUSH  AF         ; Kein Parameterkanal
2495 7B          {     LD    A,E        
2496 FE 05       ..    CP    05         ; Funktion 5: size
2498 28 04       (.    JR    Z,249E     
249A FE 07       ..    CP    07         ; Funktion 7: format
249C 20 AE        .    JR    NZ,244C    
249E F1          .     POP   AF         
249F C3 2A 64    .*d   JP    642A       ; bergeben an PROZ ARCH
24A2 7B          {     LD    A,E        ; Am Parameterkanal
24A3 FE 01       ..    CP    01         ; Funktion 1: typtab(kanal,typnr,res)
24A5 28 65       (e    JR    Z,250C     
24A7 FE 02       ..    CP    02         ; Funktion 2: inbuffsize(kanal,size,res)
24A9 28 06       (.    JR    Z,24B1     
24AB FE 0B       ..    CP    0B         ; Funktion 11: ysize(kanal,ysize,res)
24AD CA 3C 25    .<%   JP    Z,253C     
24B0 C9          .     RET              ;--- CONTROL inputbuffersize ------
24B1 7D          }     LD    A,L        ; Funktion 2 :
24B2 FE 11       ..    CP    11         
24B4 D0          .     RET   NC         ; Kanal < 17 ?
24B5 CD EB 23    ..#   CALL  23EB       ; Zeiger auf Kanaltabelle berechnen 
24B8 78          x     LD    A,B        ; > 255 ?
24B9 FE 01       ..    CP    01         
24BB 30 22       0"    JR    NC,24DF    
24BD CB 6E       .n    BIT   5,(HL)     ; inputbuffersize < 256
24BF C8          .     RET   Z          ; schon eingestellt
24C0 DD E5       ..    PUSH  IX         
24C2 E5          .     PUSH  HL         
24C3 DD E1       ..    POP   IX         
24C5 DD 66 07    .f.   LD    H,(IX+07)  ; 7 = Blockaddresse
24C8 DD 6E 0C    .n.   LD    L,(IX+0C)  
24CB CD 0B 5E    ..^   CALL  5E0B       ; Alten Pufferblock freigeben
24CE F3          .     DI               
24CF DD 36 00 00 .6..  LD    (IX+00),00 ; Jetzt kleiner Puffer ohne Flussk.
24D3 DD 36 04 07 .6..  LD    (IX+04),07 ; Zeiger auf Pufferanfang
24D7 FB          .     EI               
24D8 DD 36 05 07 .6..  LD    (IX+05),07 
24DC DD E1       ..    POP   IX         
24DE C9          .     RET              ;---- Grosser Puffer --------------
24DF CB 6E       .n    BIT   5,(HL)     
24E1 C0          .     RET   NZ         ; war schon > 255 eingestellt
24E2 DD E5       ..    PUSH  IX         
24E4 E5          .     PUSH  HL         
24E5 CD 18 5E    ..^   CALL  5E18       ; Block freimachen fuer Puffer
24E8 DD E1       ..    POP   IX         
24EA F3          .     DI               
24EB DD CB 00 EE ....  SET   5,(IX+00)  ; Grosser Puffer
24EF DD 74 07    .t.   LD    (IX+07),H  ; Pufferaddresse setzen
24F2 DD 75 0C    .u.   LD    (IX+0C),L  
24F5 97          .     SUB   A          ; Puffer leeren
24F6 DD 77 04    .w.   LD    (IX+04),A  ; Lese- und Schreibzeiger jetzt 16Bit
24F9 DD 77 08    .w.   LD    (IX+08),A  ; Auf Blockanfang
24FC DD 77 05    .w.   LD    (IX+05),A  
24FF DD 77 0B    .w.   LD    (IX+0B),A  
2502 DD 77 09    .w.   LD    (IX+09),A  
2505 DD 77 0A    .w.   LD    (IX+0A),A  
2508 FB          .     EI               
2509 DD E1       ..    POP   IX         
250B C9          .     RET              ;------ CONTROL typtabelle -------
250C 79          y     LD    A,C        ; Typtabelle einstellen
250D FE FE       ..    CP    FE         ; >= 254: psi o. transparent
250F 30 05       0.    JR    NC,2516    ; 
2511 FE 05       ..    CP    05         
2513 D2 3F 26    .?&   JP    NC,263F    ; >= 5: falsche Nummer
2516 7D          }     LD    A,L        
2517 FE 11       ..    CP    11         
2519 D2 5A 26    .Z&   JP    NC,265A    
251C CD 95 26    ..&   CALL  2695       ; Kanaltyptabellenaddresse holen 
251F 71          q     LD    (HL),C     ; Nummer eintragen
2520 01 00 00    ...   LD    BC,0000    ; ok
2523 C9          .     RET              ;------ IOCONTROL flow ----------
2524 F1          .     POP   AF         ; Eigener Kanal
2525 C5          .     PUSH  BC         
2526 E5          .     PUSH  HL         
2527 CD 36 24    .6$   CALL  2436       ; Shard IOCONTROL flow
252A E1          .     POP   HL         
252B D1          .     POP   DE         
252C 7D          }     LD    A,L        ; Addressierter Kanal
252D FE 11       ..    CP    11         ; > 16: fertig
252F D0          .     RET   NC         
2530 CD 95 26    ..&   CALL  2695       ; Tytabellennummer holen --> A
2533 CB BE       ..    RES   7,(HL)     ; Erstmal keine Flukontrolle setzen
2535 7B          {     LD    A,E        
2536 B7          .     OR    A          
2537 28 02       (.    JR    Z,253B     ; Wenn Flukontrolle, dann in Typ-
2539 CB FE       ..    SET   7,(HL)     ; tabellennummer vermerken
253B C9          .     RET              ;------- IOCONTROL ysize ----------- 
253C 7D          }     LD    A,L        ; Addressierter Kanal
253D FE 11       ..    CP    11         ; > 16: fertig
253F D0          .     RET   NC         
2540 CD EB 23    ..#   CALL  23EB       ; Addresse der Kanaltabelle holen 
2543 DD E5       ..    PUSH  IX         
2545 E5          .     PUSH  HL         
2546 DD E1       ..    POP   IX         
2548 0D          .     DEC   C          ; ysize-1 (=ymax f. y=0..ymax)
2549 DD 46 06    .F.   LD    B,(IX+06)  ; Return = alte ysize
254C 04          .     INC   B          ; ymax + 1 = ysize
254D DD 71 06    .q.   LD    (IX+06),C  
2550 DD E1       ..    POP   IX         
2552 48          H     LD    C,B        ; Nur Werte 0..255
2553 06 00       ..    LD    B,00       
2555 C9          .     RET              ;----------------------------------
2556 CB 7C       .|    BIT   7,H        
2558 C2 DE 63    ..c   JP    NZ,63DE    
255B 32 AC 26    2.&   LD    (26AC),A   
255E 7C          |     LD    A,H        
255F B5          .     OR    L          
2560 20 06        .    JR    NZ,2568    
2562 3A AC 26    :.&   LD    A,(26AC)   
2565 C3 DE 63    ..c   JP    63DE        
2568 7C          |     LD    A,H        
2569 E6 FE       ..    AND   FE         
256B FE 02       ..    CP    02         
256D 28 08       (.    JR    Z,2577     
256F C3 5E 26    .^&   JP    265E       
2572 01 01 02    ...   LD    BC,0201    
2575 E1          .     POP   HL         
2576 C9          .     RET              
2577 78          x     LD    A,B        
2578 B1          .     OR    C          
2579 C8          .     RET   Z          
257A 25          %     DEC   H          
257B 25          %     DEC   H          
257C E5          .     PUSH  HL         
257D 09          .     ADD   HL,BC      
257E 7C          |     LD    A,H        
257F D6 02       ..    SUB   A,02       
2581 38 05       8.    JR    C,2588     
2583 20 ED        .    JR    NZ,2572    
2585 B5          .     OR    L          
2586 20 EA        .    JR    NZ,2572    
2588 3A AC 26    :.&   LD    A,(26AC)   
258B CD FA 23    ..#   CALL  23FA       
258E E1          .     POP   HL         
258F 19          .     ADD   HL,DE      
2590 DD E5       ..    PUSH  IX         
2592 DD 2A AD 26 .*.&  LD    IX,(26AD)  
2596 DD CB 00 6E ...n  BIT   5,(IX+00)  
259A 28 5E       (^    JR    Z,25FA     
259C C5          .     PUSH  BC         
259D E5          .     PUSH  HL         
259E DD 66 0B    .f.   LD    H,(IX+0B)  
25A1 DD 6E 04    .n.   LD    L,(IX+04)  
25A4 B7          .     OR    A          
25A5 ED 42       .B    SBC   HL,BC      
25A7 DA 13 26    ..&   JP    C,2613     
25AA DD 66 07    .f.   LD    H,(IX+07)  
25AD DD 6E 0C    .n.   LD    L,(IX+0C)  
25B0 CD 81 5A    ..Z   CALL  5A81       
25B3 ED 43 AF 26 .C.&  LD    (26AF),BC  
25B7 DD 6E 05    .n.   LD    L,(IX+05)  
25BA DD 7E 0A    .~.   LD    A,(IX+0A)  
25BD E6 01       ..    AND   01         
25BF 84          .     ADD   H          
25C0 67          g     LD    H,A        
25C1 D1          .     POP   DE         
25C2 C1          .     POP   BC         
25C3 C5          .     PUSH  BC         
25C4 23          #     INC   HL         
25C5 7D          }     LD    A,L        
25C6 B7          .     OR    A          
25C7 20 06        .    JR    NZ,25CF    
25C9 CB 44       .D    BIT   0,H        
25CB 20 02        .    JR    NZ,25CF    
25CD 25          %     DEC   H          
25CE 25          %     DEC   H          
25CF ED A0       ..    LDI              
25D1 EA C5 25    ..%   JP    PE,25C5    
25D4 2B          +     DEC   HL         
25D5 DD 75 05    .u.   LD    (IX+05),L  
25D8 DD 74 0A    .t.   LD    (IX+0A),H  
25DB ED 4B AF 26 .K.&  LD    BC,(26AF)  
25DF CD 8C 5A    ..Z   CALL  5A8C       
25E2 C1          .     POP   BC         
25E3 F3          .     DI               
25E4 DD 66 0B    .f.   LD    H,(IX+0B)  
25E7 DD 6E 04    .n.   LD    L,(IX+04)  
25EA B7          .     OR    A          
25EB ED 42       .B    SBC   HL,BC      
25ED DD 74 0B    .t.   LD    (IX+0B),H  
25F0 DD 75 04    .u.   LD    (IX+04),L  
25F3 FB          .     EI               
25F4 01 00 00    ...   LD    BC,0000    
25F7 DD E1       ..    POP   IX         
25F9 C9          .     RET              ;----------------------------------
25FA 3A AC 26    :.&   LD    A,(26AC)   
25FD CD AD 1E    ...   CALL  1EAD       
2600 DC 1A 26    ..&   CALL  C,261A     
2603 DD E1       ..    POP   IX         
2605 3A AC 26    :.&   LD    A,(26AC)   
2608 CD 06 1F    ...   CALL  1F06       
260B D8          .     RET   C          
260C 77          w     LD    (HL),A     
260D ED A1       ..    CPI              
260F EA 05 26    ..&   JP    PE,2605    
2612 C9          .     RET              
2613 CD 1A 26    ..&   CALL  261A       
2616 E1          .     POP   HL         
2617 C1          .     POP   BC         
2618 18 E9       ..    JR    2603       
261A 2A AD 26    *.&   LD    HL,(26AD)  
261D 7E          ~     LD    A,(HL)     
261E EE 40       .@    XOR   40         
2620 77          w     LD    (HL),A     
2621 CB 77       .w    BIT   6,A        
2623 C8          .     RET   Z          
2624 21 00 00    !..   LD    HL,0000    
2627 C3 1A 6C    ..l   JP    6C1A
262A CB 7C       .|    BIT   7,H        
262C C2 25 64    .%d   JP    NZ,6425    
262F 32 AC 26    2.&   LD    (26AC),A   
2632 F5          .     PUSH  AF         
2633 7C          |     LD    A,H        
2634 B5          .     OR    L          
2635 20 2B        +    JR    NZ,2662    
2637 F1          .     POP   AF         
2638 FE 20       .     CP    20         
263A C2 25 64    .%d   JP    NZ,6425    
263D 18 04       ..    JR    2643       
263F 01 02 00    ...   LD    BC,0002    ; Nummer der Typtabelle falsch
2642 C9          .     RET              
2643 79          y     LD    A,C        
2644 FE 05       ..    CP    05         
2646 30 F7       0.    JR    NC,263F    
2648 CD 01 24    ..$   CALL  2401       
264B 7E          ~     LD    A,(HL)     
264C B7          .     OR    A          
264D CC 26 24    .&$   CALL  Z,2426     
2650 67          g     LD    H,A        
2651 2E 00       ..    LD    L,00       
2653 EB          .     EX    DE,HL      
2654 01 00 02    ...   LD    BC,0200    ; Typtabelle in Bereich uebertragen
2657 ED B0       ..    LDIR             
2659 C9          .     RET              
265A 01 03 00    ...   LD    BC,0003    
265D C9          .     RET              
265E 01 01 00    ...   LD    BC,0001    
2661 C9          .     RET              
2662 F1          .     POP   AF         
2663 7C          |     LD    A,H        
2664 E6 FE       ..    AND   FE         
2666 FE 02       ..    CP    02         
2668 28 02       (.    JR    Z,266C     
266A 18 F2       ..    JR    265E       
266C 78          x     LD    A,B        
266D B1          .     OR    C          
266E C8          .     RET   Z          
266F C5          .     PUSH  BC         
2670 E5          .     PUSH  HL         
2671 01 02 00    ...   LD    BC,0002    
2674 3A AC 26    :.&   LD    A,(26AC)   
2677 CD A8 28    ..(   CALL  28A8       ; IOCONTROL frout
267A 21 1C 00    !..   LD    HL,001C    ; 28 Zeichen
267D ED 42       .B    SBC   HL,BC      ; Anzahl uebernommener Zeichen
267F D4 1A 26    ..&   CALL  NC,261A    
2682 E1          .     POP   HL         
2683 C1          .     POP   BC         
2684 25          %     DEC   H          
2685 25          %     DEC   H          
2686 19          .     ADD   HL,DE      
2687 C5          .     PUSH  BC         
2688 3A AC 26    :.&   LD    A,(26AC)   
268B CD 88 21    ..!   CALL  2188       
268E E1          .     POP   HL         
268F B7          .     OR    A          
2690 ED 42       .B    SBC   HL,BC      
2692 44          D     LD    B,H        
2693 4D          M     LD    C,L        
2694 C9          .     RET              
2695 21 B8 26    !.&   LD    HL,26B8    
2698 C5          .     PUSH  BC         
2699 4F          O     LD    C,A        
269A 06 00       ..    LD    B,00       
269C 09          .     ADD   HL,BC      
269D C1          .     POP   BC         
269E 7E          ~     LD    A,(HL)     
269F CB BF       ..    RES   7,A        
26A1 FE 7F       ..    CP    7F         
26A3 C9          .     RET              
26A4 FF          .     RST   38         
26A5 FF          .     RST   38         
26A6 FF          .     RST   38         
26A7 FF          .     RST   38         
26A8 FF          .     RST   38         
26A9 00          .     NOP              
26AA 00          .     NOP              
26AB 00          .     NOP              
26AC 00          .     NOP              
26AD 00          .     NOP              
26AE 00          .     NOP              
26AF 00          .     NOP              
26B0 00          .     NOP              
26B1 00          .     NOP              
26B2 00          .     NOP              
26B3 00          .     NOP              
26B4 00          .     NOP              
26B5 00          .     NOP              
26B6 00          .     NOP              
26B7 00          .     NOP              
26B8 00          .     NOP              ; typtabellen nummern & Flusskontr.
26B9 7E          ~     LD    A,(HL)     ; Kanal 1 : psi ohne flow
26BA FF          .     RST   38         ; kanal 2 : transparent mit flow
26BB FF          .     RST   38         ; (Bit 7 = 1: Mit Flukontrolle)
26BC FF          .     RST   38         
26BD FF          .     RST   38         
26BE FF          .     RST   38         
26BF FF          .     RST   38         
26C0 FF          .     RST   38         
26C1 FF          .     RST   38         
26C2 FF          .     RST   38         
26C3 FF          .     RST   38         
26C4 FF          .     RST   38         
26C5 FF          .     RST   38         
26C6 FF          .     RST   38         
26C7 FF          .     RST   38         
26C8 FF          .     RST   38         ; kanal 16 
                                        ; kanaltabelle fuer kanal 1
26C9 00          .     NOP            0 ; Bit 0 :
                                        ; Bit 3 : 1=Stoptaste gedrueckt
                                        ; Bit 5 : 1=Grosser Puffer (>255Byte) 
26CA 00          .     NOP            1 ; Bits 0..5 : Errorbits
26CB FF          .     RST   38       2 ; Cursorpos y
26CC FF          .     RST   38       3 ; Cursorpos x
26CD 07          .     RLCA           4 ; Pufferzeiger schreiben
26CE 07          .     RLCA           5 ; Pufferzeiger lesen
26CF 17          .     RLA            6 ; ysize = 23
26D0 FF          .     RST   38       7 ; Ab hier Eingabezeichen ...
26D1 FF          .     RST   38       8 ;
26D2 FF          .     RST   38       9 ;
26D3 FF          .     RST   38      10 ;
26D4 FF          .     RST   38      11 ;
26D5 FF          .     RST   38      12 ;
26D6 FF          .     RST   38
26D7 FF          .     RST   38         
26D8 FF          .     RST   38         
26D9 FF          .     RST   38         
26DA FF          .     RST   38         
26DB FF          .     RST   38         
26DC FF          .     RST   38         ; I.d.R bis hier
26DD FF          .     RST   38         
26DE FF          .     RST   38         
26DF FF          .     RST   38         
26E0 FF          .     RST   38         
26E1 00          .     NOP              ; kanal 2
26E2 00          .     NOP              
26E3 FF          .     RST   38         
26E4 FF          .     RST   38         
26E5 07          .     RLCA             
26E6 07          .     RLCA             
26E7 17          .     RLA              
26E8 FF          .     RST   38         
26E9 FF          .     RST   38         
26EA FF          .     RST   38         
26EB FF          .     RST   38         
26EC FF          .     RST   38         
26ED FF          .     RST   38         
26EE FF          .     RST   38         
26EF FF          .     RST   38         
26F0 FF          .     RST   38         
26F1 FF          .     RST   38         
26F2 FF          .     RST   38         
26F3 FF          .     RST   38         
26F4 FF          .     RST   38         
26F5 FF          .     RST   38         
26F6 FF          .     RST   38         
26F7 FF          .     RST   38         
26F8 FF          .     RST   38         
26F9 00          .     NOP              ; kanal 3
26FA 00          .     NOP              
26FB FF          .     RST   38         
26FC FF          .     RST   38         
26FD 07          .     RLCA             
26FE 07          .     RLCA             
26FF 17          .     RLA              
2700 FF          .     RST   38         
2701 FF          .     RST   38         
2702 FF          .     RST   38         
2703 FF          .     RST   38         
2704 FF          .     RST   38         
2705 FF          .     RST   38         
2706 FF          .     RST   38         
2707 FF          .     RST   38         
2708 FF          .     RST   38         
2709 FF          .     RST   38         
270A FF          .     RST   38         
270B FF          .     RST   38         
270C FF          .     RST   38         
270D FF          .     RST   38         
270E FF          .     RST   38         
270F FF          .     RST   38         
2710 FF          .     RST   38         
2711 00          .     NOP              ; kanal 4
2712 00          .     NOP              
2713 FF          .     RST   38         
2714 FF          .     RST   38         
2715 07          .     RLCA             
2716 07          .     RLCA             
2717 17          .     RLA              
2718 FF          .     RST   38         
2719 FF          .     RST   38         
271A FF          .     RST   38         
271B FF          .     RST   38         
271C FF          .     RST   38         
271D FF          .     RST   38         
271E FF          .     RST   38         
271F FF          .     RST   38         
2720 FF          .     RST   38         
2721 FF          .     RST   38         
2722 FF          .     RST   38         
2723 FF          .     RST   38         
2724 FF          .     RST   38         
2725 FF          .     RST   38         
2726 FF          .     RST   38         
2727 FF          .     RST   38         
2728 FF          .     RST   38         
2729 00          .     NOP              ; kanal 5
272A 00          .     NOP              
272B FF          .     RST   38         
272C FF          .     RST   38         
272D 07          .     RLCA             
272E 07          .     RLCA             
272F 17          .     RLA              
2730 FF          .     RST   38         
2731 FF          .     RST   38         
2732 FF          .     RST   38         
2733 FF          .     RST   38         
2734 FF          .     RST   38         
2735 FF          .     RST   38         
2736 FF          .     RST   38         
2737 FF          .     RST   38         
2738 FF          .     RST   38         
2739 FF          .     RST   38         
273A FF          .     RST   38         
273B FF          .     RST   38         
273C FF          .     RST   38         
273D FF          .     RST   38         
273E FF          .     RST   38         
273F FF          .     RST   38         
2740 FF          .     RST   38         
2741 00          .     NOP              ; kanal 6
2742 00          .     NOP              
2743 FF          .     RST   38         
2744 FF          .     RST   38         
2745 07          .     RLCA             
2746 07          .     RLCA             
2747 17          .     RLA              
2748 FF          .     RST   38         
2749 FF          .     RST   38         
274A FF          .     RST   38         
274B FF          .     RST   38         
274C FF          .     RST   38         
274D FF          .     RST   38         
274E FF          .     RST   38         
274F FF          .     RST   38         
2750 FF          .     RST   38         
2751 FF          .     RST   38         
2752 FF          .     RST   38         
2753 FF          .     RST   38         
2754 FF          .     RST   38         
2755 FF          .     RST   38         
2756 FF          .     RST   38         
2757 FF          .     RST   38         
2758 FF          .     RST   38         
2759 00          .     NOP              ; kanal 7
275A 00          .     NOP              
275B FF          .     RST   38         
275C FF          .     RST   38         
275D 07          .     RLCA             
275E 07          .     RLCA             
275F 17          .     RLA              
2760 FF          .     RST   38         
2761 FF          .     RST   38         
2762 FF          .     RST   38         
2763 FF          .     RST   38         
2764 FF          .     RST   38         
2765 FF          .     RST   38         
2766 FF          .     RST   38         
2767 FF          .     RST   38         
2768 FF          .     RST   38         
2769 FF          .     RST   38         
276A FF          .     RST   38         
276B FF          .     RST   38         
276C FF          .     RST   38         
276D FF          .     RST   38         
276E FF          .     RST   38         
276F FF          .     RST   38         
2770 FF          .     RST   38         
2771 00          .     NOP              ; kanal 8
2772 00          .     NOP              
2773 FF          .     RST   38         
2774 FF          .     RST   38         
2775 07          .     RLCA             
2776 07          .     RLCA             
2777 17          .     RLA              
2778 FF          .     RST   38         
2779 FF          .     RST   38         
277A FF          .     RST   38         
277B FF          .     RST   38         
277C FF          .     RST   38         
277D FF          .     RST   38         
277E FF          .     RST   38         
277F FF          .     RST   38         
2780 FF          .     RST   38         
2781 FF          .     RST   38         
2782 FF          .     RST   38         
2783 FF          .     RST   38         
2784 FF          .     RST   38         
2785 FF          .     RST   38         
2786 FF          .     RST   38         
2787 FF          .     RST   38         
2788 FF          .     RST   38         
2789 00          .     NOP              ; kanal 9
278A 00          .     NOP              
278B FF          .     RST   38         
278C FF          .     RST   38         
278D 07          .     RLCA             
278E 07          .     RLCA             
278F 17          .     RLA              
2790 FF          .     RST   38         
2791 FF          .     RST   38         
2792 FF          .     RST   38         
2793 FF          .     RST   38         
2794 FF          .     RST   38         
2795 FF          .     RST   38         
2796 FF          .     RST   38         
2797 FF          .     RST   38         
2798 FF          .     RST   38         
2799 FF          .     RST   38         
279A FF          .     RST   38         
279B FF          .     RST   38         
279C FF          .     RST   38         
279D FF          .     RST   38         
279E FF          .     RST   38         
279F FF          .     RST   38         
27A0 FF          .     RST   38         
27A1 00          .     NOP              ; kanal 10
27A2 00          .     NOP              
27A3 FF          .     RST   38         
27A4 FF          .     RST   38         
27A5 07          .     RLCA             
27A6 07          .     RLCA             
27A7 17          .     RLA              
27A8 FF          .     RST   38         
27A9 FF          .     RST   38         
27AA FF          .     RST   38         
27AB FF          .     RST   38         
27AC FF          .     RST   38         
27AD FF          .     RST   38         
27AE FF          .     RST   38         
27AF FF          .     RST   38         
27B0 FF          .     RST   38         
27B1 FF          .     RST   38         
27B2 FF          .     RST   38         
27B3 FF          .     RST   38         
27B4 FF          .     RST   38         
27B5 FF          .     RST   38         
27B6 FF          .     RST   38         
27B7 FF          .     RST   38         
27B8 FF          .     RST   38         
27B9 00          .     NOP              ; kanal 11
27BA 00          .     NOP              
27BB FF          .     RST   38         
27BC FF          .     RST   38         
27BD 07          .     RLCA             
27BE 07          .     RLCA             
27BF 17          .     RLA              
27C0 FF          .     RST   38         
27C1 FF          .     RST   38         
27C2 FF          .     RST   38         
27C3 FF          .     RST   38         
27C4 FF          .     RST   38         
27C5 FF          .     RST   38         
27C6 FF          .     RST   38         
27C7 FF          .     RST   38         
27C8 FF          .     RST   38         
27C9 FF          .     RST   38         
27CA FF          .     RST   38         
27CB FF          .     RST   38         
27CC FF          .     RST   38         
27CD FF          .     RST   38         
27CE FF          .     RST   38         
27CF FF          .     RST   38         
27D0 FF          .     RST   38         
27D1 00          .     NOP              ; kanal 12
27D2 00          .     NOP              
27D3 FF          .     RST   38         
27D4 FF          .     RST   38         
27D5 07          .     RLCA             
27D6 07          .     RLCA             
27D7 17          .     RLA              
27D8 FF          .     RST   38         
27D9 FF          .     RST   38         
27DA FF          .     RST   38         
27DB FF          .     RST   38         
27DC FF          .     RST   38         
27DD FF          .     RST   38         
27DE FF          .     RST   38         
27DF FF          .     RST   38         
27E0 FF          .     RST   38         
27E1 FF          .     RST   38         
27E2 FF          .     RST   38         
27E3 FF          .     RST   38         
27E4 FF          .     RST   38         
27E5 FF          .     RST   38         
27E6 FF          .     RST   38         
27E7 FF          .     RST   38         
27E8 FF          .     RST   38         
27E9 00          .     NOP              ; kanal 13
27EA 00          .     NOP              
27EB FF          .     RST   38         
27EC FF          .     RST   38         
27ED 07          .     RLCA             
27EE 07          .     RLCA             
27EF 17          .     RLA              
27F0 FF          .     RST   38         
27F1 FF          .     RST   38         
27F2 FF          .     RST   38         
27F3 FF          .     RST   38         
27F4 FF          .     RST   38         
27F5 FF          .     RST   38         
27F6 FF          .     RST   38         
27F7 FF          .     RST   38         
27F8 FF          .     RST   38         
27F9 FF          .     RST   38         
27FA FF          .     RST   38         
27FB FF          .     RST   38         
27FC FF          .     RST   38         
27FD FF          .     RST   38         
27FE FF          .     RST   38         
27FF FF          .     RST   38         
2800 FF          .     RST   38         
2801 00          .     NOP              ; kanal 14
2802 00          .     NOP              
2803 FF          .     RST   38         
2804 FF          .     RST   38         
2805 07          .     RLCA             
2806 07          .     RLCA             
2807 17          .     RLA              
2808 FF          .     RST   38         
2809 FF          .     RST   38         
280A FF          .     RST   38         
280B FF          .     RST   38         
280C FF          .     RST   38         
280D FF          .     RST   38         
280E FF          .     RST   38         
280F FF          .     RST   38         
2810 FF          .     RST   38         
2811 FF          .     RST   38         
2812 FF          .     RST   38         
2813 FF          .     RST   38         
2814 FF          .     RST   38         
2815 FF          .     RST   38         
2816 FF          .     RST   38         
2817 FF          .     RST   38         
2818 FF          .     RST   38         
2819 00          .     NOP              ; kanal 15
281A 00          .     NOP              
281B FF          .     RST   38         
281C FF          .     RST   38         
281D 07          .     RLCA             
281E 07          .     RLCA             
281F 17          .     RLA              
2820 FF          .     RST   38         
2821 FF          .     RST   38         
2822 FF          .     RST   38         
2823 FF          .     RST   38         
2824 FF          .     RST   38         
2825 FF          .     RST   38         
2826 FF          .     RST   38         
2827 FF          .     RST   38         
2828 FF          .     RST   38         
2829 FF          .     RST   38         
282A FF          .     RST   38         
282B FF          .     RST   38         
282C FF          .     RST   38         
282D FF          .     RST   38         
282E FF          .     RST   38         
282F FF          .     RST   38         
2830 FF          .     RST   38         
2831 00          .     NOP              ; kanal 16
2832 00          .     NOP              
2833 FF          .     RST   38         
2834 FF          .     RST   38         
2835 07          .     RLCA             
2836 07          .     RLCA             
2837 17          .     RLA              
2838 FF          .     RST   38         
2839 FF          .     RST   38         
283A FF          .     RST   38         
283B FF          .     RST   38         
283C FF          .     RST   38         
283D FF          .     RST   38         
283E FF          .     RST   38         
283F FF          .     RST   38         
2840 FF          .     RST   38         
2841 FF          .     RST   38         
2842 FF          .     RST   38         
2843 FF          .     RST   38         
2844 FF          .     RST   38         
2845 FF          .     RST   38         
2846 FF          .     RST   38         
2847 FF          .     RST   38         
2848 FF          .     RST   38         
2849 73          s     LD    (HL),E     ; "shdifc.z80 001 (!)"
284A 68          h     LD    L,B        
284B 64          d     LD    H,H        
284C 69          i     LD    L,C        
284D 66          f     LD    H,(HL)     
284E 63          c     LD    H,E        
284F 2E 7A       .z    LD    L,7A       
2851 38 30       80    JR    C,2883     
2853 20 30        0    JR    NZ,2885    
2855 30 31       01    JR    NC,2888    
2857 20 28        (    JR    NZ,2881    
2859 21 29 
285B FF                                 ;------ 69 Bytes von hier -------
285C FF          .     RST   38         ; "SHARD           "
285D FF          .     RST   38         
285E FF          .     RST   38         
285F FF          .     RST   38         
2860 FF          .     RST   38         
2861 FF          .     RST   38         
2862 FF          .     RST   38         
2863 FF          .     RST   38         
2864 FF          .     RST   38         
2865 FF          .     RST   38         
2866 FF          .     RST   38         
2867 FF          .     RST   38         
2868 FF          .     RST   38         
2869 FF          .     RST   38         
286A FF          .     RST   38         ; Shard Interface
286B 06                                 ; SHard versionnummer(wird veraendert
286C 00                                 ; "
286D 00          .     NOP              ; mode :BIT 0: 1=frei eumel0
286E 00          .     NOP              ; bit 8:0=speichetest,9:0=vortest
286F 00          .     NOP              ; id4
2870 00          .     NOP              
2871 00          .     NOP              ; id5
2872 00          .     NOP              
2873 00          .     NOP              ; id6
2874 00          .     NOP              
2875 00          .     NOP              ; id7
2876 00          .     NOP              
2877 00          .     NOP              ; leer
2878 00          .     NOP              
2879 00          .     NOP              ; leer
287A 00          .     NOP              
287B C3 06 01    ...   JP    0106       ; OUTPUT
287E C3 09 01    ...   JP    0109       ; BLOCKIN
2881 C3 0C 01    ...   JP    010C       ; BLOCKOUT
2884 C3 0F 01    ...   JP    010F       ; IOCONTROL
2887 C3 12 01    ...   JP    0112       ; SYSEND
288A C3 15 01    ...   JP    0115       ; SCHINF
288D C3 18 01    ...   JP    0118       ; SCHACC
2890 00          .     NOP              ; leer
2891 00          .     NOP              
2892 00          .     NOP              ; RAM-Limit low
2893 00          .     NOP              ;    " high
2894 00          .     NOP              
2895 00          .     NOP              
2896 00          .     NOP              
2897 00          .     NOP              
2898 00          .     NOP              
2899 00          .     NOP              
289A 00          .     NOP              
289B 00          .     NOP              
289C 00          .     NOP              
289D 00          .     NOP              
289E 00          .     NOP              
289F 00          .     NOP              ;----------- bis hier ---------
28A0 ED 5B 92 28 .[.(  LD    DE,(2892)  ; RAM-Limit laden
28A4 C9          .     RET              ;-------------------------------
28A5 ED B0       ..    LDIR             ; Longmove = LDIR (immer)
28A7 C9          .     RET              
28A8 B7          .     OR    A          ; Intern IOCONTROL
28A9 20 D9        .    JR    NZ,2884    ; Fuer alle Kanale > 0: IOCONTROL
28AB 79          y     LD    A,C        
28AC FE 05       ..    CP    05         ; HG-Kanal Fkt. 5 : Size
28AE 28 03       (.    JR    Z,28B3     
28B0 97          .     SUB   A          ; Alle anderen HG-Controls weiter
28B1 18 D1       ..    JR    2884       ; IOCONTROL
28B3 97          .     SUB   A          
28B4 CD 84 28    ..(   CALL  2884       ; Anz. Bloecke DIV 65536 in A
28B7 E5          .     PUSH  HL         
28B8 67          g     LD    H,A        ; A retten
28B9 3A 6B 28    :k(   LD    A,(286B)   ; Shard Version
28BC FE 07       ..    CP    07         
28BE 30 02       0.    JR    NC,28C2    ; 
28C0 26 00       &.    LD    H,00       ; Shard Version 6 : Hoechstens 65536
28C2 7C          |     LD    A,H        ; Shard Version > 6 : Auch mehr als^
28C3 B7          .     OR    A          
28C4 20 08        .    JR    NZ,28CE    
28C6 21 80 7E    !.~   LD    HL,7E80    ; 
28C9 B7          .     OR    A          ; CLC
28CA ED 42       .B    SBC   HL,BC      
28CC E1          .     POP   HL         
28CD D0          .     RET   NC         
28CE E1          .     POP   HL         
28CF 97          .     SUB   A          ; Maximum an Bloecken: 32384
28D0 01 80 7E    ..~   LD    BC,7E80    ; 15MB + 832 KB
28D3 C9          .     RET              ;========== 175 Systemstart =======
28D4 11 5B 28    .[(   LD    DE,285B    ; 69 Bytes uebertragen
28D7 01 45 00    .E.   LD    BC,0045    ; Von Shard Leiste --> EUMEL0
28DA ED B0       ..    LDIR             ; 175 Systemstart
28DC C3 99 14    ...   JP    1499       ;========= 173 Systemstart ========
28DF 3A 1E 01    :..   LD    A,(011E)   ; Shardversion
28E2 32 6B 28    2k(   LD    (286B),A   
28E5 FE 07       ..    CP    07         ; >= 7 : falsche Leiste !
28E7 30 0A       0.    JR    NC,28F3    
28E9 CD 03 01    ...   CALL  0103       ; LIMIT erfragen
28EC ED 53 92 28 .S.(  LD    (2892),DE  ; Eintragen
28F0 C3 99 14    ...   JP    1499       ; Zum neuen Systemstart (175)
28F3 CD 1F 70    ..p   CALL  701F       ; Info aufrufen
28F6 18 0F       ..    JR    2907       
28F8 20 66        f    JR    NZ,2960    ; " falsche Leiste"
28FA 61          a     LD    H,C        
28FB 6C          l     LD    L,H        
28FC 73          s     LD    (HL),E     
28FD 63          c     LD    H,E        
28FE 68          h     LD    L,B        
28FF 65          e     LD    H,L        
2900 20 4C        L    JR    NZ,294E    
2902 65          e     LD    H,L        
2903 69          i     LD    L,C        
2904 73          s     LD    (HL),E     
2905 74          t     LD    (HL),H     
2906 65          e     LD    H,L        
2907 18 EA       ..    JR    28F3       ; Endlos
2909 F5          .     PUSH  AF         ; Info Aufruf vom Shard
290A 3E F2       >.    LD    A,F2       
290C 32 19 7D    2.}   LD    (7D19),A   
290F F1          .     POP   AF         
2910 CD 1F 70    ..p   CALL  701F       
2913 18 06       ..    JR    291B       ; Info aufrufen
2915 20 73        s    JR    NZ,298A    ; " shard"
2917 68          h     LD    L,B        
2918 61          a     LD    H,C        
2919 72          r     LD    (HL),D     
291A 64          d     LD    H,H        
291B C9          .     RET              ;---------------------------------
291C 3E 04       >.    LD    A,04       ; shutup anfordern
291E C3 BB 81    ...   JP    81BB       
2921 3A 00                              ; Task geht in Wartezustand--------
2923 DD 77 06          LD    (IX+6),A   ; status pcb-Feld setzen
2926 DD CB 07 7E       BIT   7,(IX+7)
292A C4 02 2A    ..*   CALL  NZ,2A02    ; Speicherfelder --> pcb-felder
292D 31 13 6D    1.m   LD    SP,6D13    ; Schleifenanfang fuer offenen Warte
2930 CD 41 6B    .Ak   CALL  6B41       ; zustand
2933 3A 1A 6E    :.n   LD    A,(6E1A)   
2936 3D          =     DEC   A          
2937 CC 38 4C    .8L   CALL  Z,4C38     ; Supervisor
293A DD 7E 06    .~.   LD    A,(IX+06)  
293D CB 47       .G    BIT   0,A        ; geblockt, keine Aktion bis entblockt
293F 20 3D        =    JR    NZ,297E    
2941 E6 3C       .<    AND   3C         ; Statusbist ausblenden
2943 FE 2C       .,    CP    2C         
2945 D2 D8 29    ..)   JP    NC,29D8    
2948 32 51 29    2Q)   LD    (2951),A   
294B FE 18       ..    CP    18         ; 18 : Leitblockfelder --> Speicher
294D D4 46 2A    .F*   CALL  NC,2A46    
2950 18 FE       ..    JR    2950       ; Sprung in Tabelle
2952 C3 CC 29    ..)   JP    29CC       ; 00 : Test, ob haltprocess
2955 FF          .     RST   38         
2956 C3 BE 29    ..)   JP    29BE       ; 04 : auf kanalankoppeln warten
2959 FF          .     RST   38         
295A C3 AA 29    ..)   JP    29AA       ; 08 : warten auf tastendruck
295D FF          .     RST   38         
295E C3 95 29    ..)   JP    2995       ; 0C : pause (in mod)
2961 FF          .     RST   38         
2962 C3 7C 2E    .|.   JP    2E7C       ; 10 : Busy, RET TRUE, test halt
2965 FF          .     RST   38         
2966 C3 81 2E    ...   JP    2E81       ; 14 : Busy, RET FALSE, test halt
2969 FF          .     RST   38         
296A C3 B5 2F    ../   JP    2FB5       ; 18 : CALL PROC
296D FF          .     RST   38         
296E C3 38 3D    .8=   JP    3D38       ; 1C : EXTERNAL TERM
2971 FF          .     RST   38         
2972 C3 3D 4A    .=J   JP    4A3D       ; 20 : anford. garbagecollect.
2975 FF          .     RST   38         
2976 C3 5D 4A    .]J   JP    4A5D       ; 24 : garbage collect. 1. Teil 
2979 FF          .     RST   38         
297A C3 09 4B    ..K   JP    4B09       ; 28 : garbage collect. 2 teil
297D FF          .     RST   38         
297E 3A 1A 6E    :.n   LD    A,(6E1A)   ; Supervisor  
2981 FE 01       ..    CP    01         
2983 20 0A        .    JR    NZ,298F    
2985 F3          .     DI               
2986 3A F9 4C    :.L   LD    A,(4CF9)   
2989 B7          .     OR    A          
298A 3A 1A 6E    :.n   LD    A,(6E1A)   
298D 20 03        .    JR    NZ,2992    ; SV-Call angefordert ?
298F CD 74 6D    .tm   CALL  6D74       ; block SV
2992 FB          .     EI               
2993 18 98       ..    JR    292D       
2995 2A F1 4C    *.L   LD    HL,(4CF1)  ; Pausenende abwarten
2998 DD 7E 0C    .~.   LD    A,(IX+0C)  
299B 95          .     SUB   L          
299C DD 7E 0D    .~.   LD    A,(IX+0D)  
299F 9C          .     SBC   H          
29A0 FA CC 29    ..)   JP    M,29CC     
29A3 DD 7E 26    .~&   LD    A,(IX+26)  
29A6 B7          .     OR    A          
29A7 CA 2D 29    .-)   JP    Z,292D     
29AA DD CB 05 46 ...F  BIT   0,(IX+05)  
29AE 20 1C        .    JR    NZ,29CC    
29B0 DD 7E 26    .~&   LD    A,(IX+26)  
29B3 B7          .     OR    A          
29B4 28 C8       (.    JR    Z,297E     
29B6 CD AD 1E    ...   CALL  1EAD       ; taste gedrueckt ?
29B9 DA 2D 29    .-)   JP    C,292D     
29BC 18 0E       ..    JR    29CC       
29BE DD 7E 26    .~&   LD    A,(IX+26)  
29C1 B7          .     OR    A          
29C2 28 BA       (.    JR    Z,297E     
29C4 CD 59 1E    .Y.   CALL  1E59       
29C7 FE 1E       ..    CP    1E         ; Mindestens 30 Zeichen uebernehmen 
29C9 DA 2D 29    .-)   JP    C,292D     
29CC DD 35       .5    DEC   (IX+08)
29CE 08          .     EX    AF,AF'     
29CF F2 2D 29    .-)   JP    P,292D     
29D2 CD 7E 2A    .~*   CALL  2A7E       ; Test, ob halt process
29D5 C3 A7 2A    ..*   JP    2AA7       ; zur interpreter schleife
29D8 DD CB 05 46 ...F  BIT   0,(IX+05)  
29DC 20 EE        .    JR    NZ,29CC    
29DE DD 7E 34    .~4   LD    A,(IX+34)  
29E1 B7          .     OR    A          
29E2 20 9A        .    JR    NZ,297E    
29E4 DD 7E 26    .~&   LD    A,(IX+26)  
29E7 B7          .     OR    A          
29E8 28 94       (.    JR    Z,297E     
29EA CD AD 1E    ...   CALL  1EAD       ; taste gedrueckt ?
29ED DA 2D 29    .-)   JP    C,292D     
29F0 DD 36 2C FC .6,.  LD    (IX+2C),FC ; msgcod := -4
29F4 DD 36 2D FF .6-.  LD    (IX+2D),FF 
29F8 DD 36 2E 01 .6..  LD    (IX+2E),01 
29FC DD CB 07 DE ....  SET   3,(IX+07)  
2A00 18 CA       ..    JR    29CC       ;---------------------------------
2A02 CD F6 4B    ..K   CALL  4BF6       
2A05 DD CB 07 BE ....  RES   7,(IX+07)  ; Felder wurden uebertragen
2A09 ED 5B 1C 6E .[.n  LD    DE,(6E1C)  
2A0D 1E 10       ..    LD    E,10       ; 10..17
2A0F 21 C4 41    !.A   LD    HL,41C4    ; pcb Felder von Hauptspeicher
2A12 ED A0       ..    LDI              ; in Leitblock  uebertragen
2A14 ED A0       ..    LDI              ; lbas
2A16 ED A0       ..    LDI              ; ltop
2A18 ED A0       ..    LDI
2A1A ED A0       ..    LDI              ; ls_top
2A1C ED A0       ..    LDI              
2A1E ED A0       ..    LDI              ; hptop
2A20 ED A0       ..    LDI              
2A22 DD CB 07 6E ...n  BIT   5,(IX+07)  
2A26 C4 4D 45    .ME   CALL  NZ,454D    
2A29 D9          .     EXX              ; pbas
2A2A DD 71 0E    .q.   LD    (IX+0E),C  
2A2D DD 7E 2A    .~*   LD    A,(IX+2A)  ; prio --> pricnt
2A30 DD 77 08    .w.   LD    (IX+08),A  
2A33 08          .     EX    AF,AF'     
2A34 DD CB 09 16 ....  RL    (IX+09)    
2A38 1F          .     RRA              
2A39 30 07       0.    JR    NC,2A42    
2A3B D6 80       ..    SUB   A,80       
2A3D 30 03       0.    JR    NC,2A42    
2A3F DD 35       .5    DEC   (IX+0A)    
2A41 0A          .     LD    A,(BC)     
2A42 DD 77 09    .w.   LD    (IX+09),A  
2A45 C9          .     RET              ;--------------------------------
2A46 CD 16 42    ..B   CALL  4216       
2A49 DD 4E 0E    .N.   LD    C,(IX+0E)  ; pbas
2A4C 16 19       ..    LD    D,19       
2A4E D9          .     EXX              
2A4F 2A 1C 6E    *.n   LD    HL,(6E1C)  ; Leitblock Felder in Hauptspeicher
2A52 2E 10       ..    LD    L,10       ; uebertragen
2A54 11 C4 41    ..A   LD    DE,41C4    
2A57 ED A0       ..    LDI              
2A59 ED A0       ..    LDI              
2A5B ED A0       ..    LDI              
2A5D ED A0       ..    LDI              
2A5F ED A0       ..    LDI              
2A61 ED A0       ..    LDI              
2A63 ED A0       ..    LDI              
2A65 ED A0       ..    LDI              
2A67 CD AB 42    ..B   CALL  42AB       
2A6A DD 4E 09    .N.   LD    C,(IX+09)  
2A6D CB 21       .!    SLA   C          
2A6F 17          .     RLA              
2A70 47          G     LD    B,A        
2A71 DD CB 07 FE ....  SET   7,(IX+07)  ; Felder wurden uebertragen
2A75 79          y     LD    A,C        
2A76 08          .     EX    AF,AF'     
2A77 CD DB 4B    ..K   CALL  4BDB       ; millis verringern
2A7A CD 93 2A    ..*   CALL  2A93       
2A7D C9          .     RET              ;--------------------------------
2A7E CD 46 2A    .F*   CALL  2A46       
2A81 DD 36 06 00 .6..  LD    (IX+06),00 
2A85 DD CB 05 46 ...F  BIT   0,(IX+05)  ; halt process angefordert ?
2A89 C8          .     RET   Z          
2A8A DD CB 05 86 ....  RES   0,(IX+05)  
2A8E 3E 01       >.    LD    A,01       
2A90 C3 0D 3D    ..=   JP    3D0D       ; errorstop "halt from terminal"
2A93 21 E6 7C    !.|   LD    HL,7CE6    ; AND 7C--------------------------
2A96 22 AE 2A    ".*   LD    (2AAE),HL  
2A99 C9          .     RET              
2A9A 21 18 F1    !..   LD    HL,F118    ; JR 2AA1
2A9D 22 AE 2A    ".*   LD    (2AAE),HL  
2AA0 C9          .     RET              
2AA1 CD 93 2A    ..*   CALL  2A93       ; AND 7C Maske setzen
2AA4 C3 26 29    .&)   JP    2926       ; Je nach Status reagieren 
2AA7 79          y     LD    A,C        ;----------------------------------
2AA8 08          .     EX    AF,AF'
2AA9 0A          .     LD    A,(BC)     
2AAA 6F          o     LD    L,A        
2AAB 0C          .     INC   C          
2AAC 0A          .     LD    A,(BC)     
2AAD 67          g     LD    H,A        ; HL := Codeword
2AAE E6 7C       .|    AND   7C         ; Opcodebits ausmaskieren
2AB0 32 B6 2A    2.*   LD    (2AB6),A   ; Opcode setzen
2AB3 AC          .     XOR   H          ; Datenbits in A
2AB4 0C          .     INC   C          ; BC zeigt auf naechsten Opcode
2AB5 20 FE        .    JR    NZ,2AB5    ; Wird 
2AB7 C3 8C 2C    ..,   JP    2C8C       ; Neue Seite, ggf neuen Block laden
2ABA FF          .     RST   38         ; und Restart (EUMEL0-Restart)
2ABB C3 F1 2C    ..,   JP    2CF1       ; 0 LN (nr)
2ABE FF          .     RST   38         ; 1 LONGLN (nr-1024)
2ABF C3 FD 2C    ..,   JP    2CFD       ; 2 MOV1 (source, dest)
2AC2 FF          .     RST   38         
2AC3 C3 11 2D    ..-   JP    2D11       ; 3 INC1 (dest) 
2AC6 FF          .     RST   38         
2AC7 C3 1F 2D    ..-   JP    2D1F       ; 4 DEC1 (dest)
2ACA FF          .     RST   38         
2ACB C3 30 2D    .0-   JP    2D30       ; 5 INC (source, dest)
2ACE FF          .     RST   38         
2ACF C3 50 2D    .P-   JP    2D50       ; 6 DEC (source, dest)
2AD2 FF          .     RST   38         
2AD3 C3 65 2D    .e-   JP    2D65       ; 7 ADD (a, b, c)
2AD6 FF          .     RST   38         
2AD7 C3 82 2D    ..-   JP    2D82       ; 8 SUB (a, b, c)
2ADA FF          .     RST   38         
2ADB C3 D2 2D    ..-   JP    2DD2       ; 9 CLEAR (dest)
2ADE FF          .     RST   38         
2ADF C3 2B 2E    .+.   JP    2E2B       ; 10 TEST (source) --> BOOL
2AE2 FF          .     RST   38         
2AE3 C3 60 2E    .`.   JP    2E60       ; 11 EQU (a, b) --> BOOL
2AE6 FF          .     RST   38         
2AE7 C3 35 2E    .5.   JP    2E35       ; 12 LSEQ (a, b) --> BOOL
2AEA FF          .     RST   38         
2AEB C3 04 35    ..5   JP    3504       ; 13 MOV8 (source, dest)
2AEE FF          .     RST   38         
2AEF C3 20 35    . 5   JP    3520       ; 14 FADD (a, b, c)
2AF2 FF          .     RST   38         
2AF3 C3 3B 35    .;5   JP    353B       ; 15 FSUB (a, b, c)
2AF6 FF          .     RST   38         
2AF7 C3 41 35    .A5   JP    3541       ; 16 FMULT (a, b, c) 
2AFA FF          .     RST   38         
2AFB C3 47 35    .G5   JP    3547       ; 17 FDIV (a, b, c)
2AFE FF          .     RST   38         
2AFF C3 5D 35    .]5   JP    355D       ; 18 FLSEQ (a, b) --> BOOL
2B02 FF          .     RST   38         
2B03 C3 CD 30    ..0   JP    30CD       ; 19 TMOV (source, dest)
2B06 FF          .     RST   38         
2B07 C3 0F 31    ..1   JP    310F       ; 20 TEQU (a, b) --> BOOL
2B0A FF          .     RST   38         
2B0B C3 4E 2E    .N.   JP    2E4E       ; 21 ULSEQU (a, b) --> BOOL
2B0E FF          .     RST   38         
2B0F C3 03 36    ..6   JP    3603       ; 22 ACCDS (dsid, refadr)
2B12 FF          .     RST   38         
2B13 C3 21 36    .!6   JP    3621       ; 23 REF (source, refadr)
2B16 FF          .     RST   38         
2B17 C3 43 36    .C6   JP    3643       ; 24 SUBS (limit-1, index, refadr)
2B1A FF          .     RST   38         
2B1B C3 27 36    .'6   JP    3627       ; 25 SEL (base, offset, refadr)
2B1E FF          .     RST   38         
2B1F C3 02 2F    ../   JP    2F02       ; 26 PPV (source)
2B22 FF          .     RST   38         
2B23 C3 07 2F    ../   JP    2F07       ; 27 PP (source)
2B26 FF          .     RST   38         
2B27 C3 8E 2E    ...   JP    2E8E       ; 28 BR (lowadr)
2B2A FF          .     RST   38         
2B2B C3 A3 2E    ...   JP    2EA3       ; 29 LONGBR (lowadr-1024)
2B2E FF          .     RST   38         
2B2F C3 40 2F    .@/   JP    2F40       ; 30 CALL (modnr)
2B32 FF          .     RST   38         
2B33 07          .     RLCA             ; 31 ...
2B34 07          .     RLCA             
2B35 07          .     RLCA             
2B36 32 3A 2B    2:+   LD    (2B3A),A   
2B39 18 FE       ..    JR    2B39       ; Sprung auf SPezial
2B3B C3 6E 36    .n6   JP    366E       ; 0 : ISXCHAR (char) --> BOOL
2B3E FF          .     RST   38         
2B3F C3 80 36    ..6   JP    3680       ; 1 : STIM (byteval, dest) 
2B42 FF          .     RST   38         
2B43 C3 8C 36    ..6   JP    368C       ; 2 : MOVX (bytelen, source, dest)
2B46 FF          .     RST   38         
2B47 C3 D2 36    ..6   JP    36D2       ; 3 : PW (ds+segment, offs, value) 
2B4A FF          .     RST   38         
2B4B C3 C9 36    ..6   JP    36C9       ; 4 : GW (ds+segment, offs, result) 
2B4E FF          .     RST   38         
2B4F C3 DE 2F    ../   JP    2FDE       ; 5 : PENTER (highbyte)
2B52 FF          .     RST   38         
2B53 C3 76 2B    .v+   JP    2B76       ; 6 : ESC (functionbyte)
2B56 FF          .     RST   38         
2B57 7D          }     LD    A,L        ; 7 : LONGA (opcodebyte)
2B58 32 B6 2A    2.*   LD    (2AB6),A   
2B5B E6 83       ..    AND   83         
2B5D 20 08        .    JR    NZ,2B67    
2B5F 0A          .     LD    A,(BC)     
2B60 6F          o     LD    L,A        
2B61 0C          .     INC   C          ; Zur Interpreterschleife mit Opcode 
2B62 0A          .     LD    A,(BC)     
2B63 0C          .     INC   C          
2B64 C3 B5 2A    ..*   JP    2AB5       ; --------
2B67 3E FD       >.    LD    A,FD       ; -3 = Block unlesbar
2B69 BD          .     CP    L          
2B6A C2 F4 3C    ..<   JP    NZ,3CF4    
2B6D DD CB 0B B6 ....  RES   6,(IX+0B)  ; enablestop
2B71 3E 10       >.    LD    A,10       ; Errorstop Block unlesbar 
2B73 C3 12 3D    ..=   JP    3D12       ;------------ ESC ---------------
2B76 7D          }     LD    A,L        
2B77 FE 82       ..    CP    82         ; 129 ist Maximum ESC 
2B79 D2 F4 3C    ..<   JP    NC,3CF4    
2B7C 26 00       &.    LD    H,00       
2B7E 29          )     ADD   HL,HL      ; * 2 fuer Zugriff
2B7F 11 88 2B    ..+   LD    DE,2B88    ; Tabellen anfang
2B82 19          .     ADD   HL,DE      
2B83 5E          ^     LD    E,(HL)     
2B84 23          #     INC   HL         
2B85 56          V     LD    D,(HL)     ; Sprung addresse --> DE
2B86 EB          .     EX    DE,HL      
2B87 E9          .     JP    (HL)       ; EXTERNAL aufrufen-------------
2B88 F3 2F       0 : RTN 
2B8A F9 2F       1 : RTN FALSE --> BOOL
2B8C 0A 30       2 : RTN TRUE  --> BOOL
2B8E F4 3C       3 : --------
2B90 38 3D       4 : TERM
2B92 7F 30       5 : GOSUB (adr) 
2B94 0E 37       6 : KE 
2B96 AF 30       7 : GORET (adr) 
2B98 CE 3A       8 : CRD (var, var)
2B9A DA 3A       9 : BCRD (var, var)
2B9C B3 3A      10 : CWR (var, char, int)
2B9E 79 3A      11 : ECWR (var, var, char) 
2BA0 1B 3B      12 : CTT (int, refadr) 
2BA2 26 3B      13 : GETC (text, posvar) 
2BA4 54 3B      14 : FNONBL (charvar, text, posvar) --> BOOL
2BA6 A7 3B      15 : DREM256 (var, var) 
2BA8 BC 3B      16 : AMUL256 (var, int)
2BAA F4 3C      17 : ---------
2BAC DF 3B      18 : ISDIG (char) --> BOOL 
2BAE CC 3B      19 : ISLD (char) --> BOOL 
2BB0 F1 3B      20 : ISLCAS (char) --> BOOL 
2BB2 F6 3B      21 : ISUCAS (chasr) --> BOOL 
2BB4 FB 3B      22 : GADDR (a, b, c) 
2BB6 17 3C      23 : GCADDR (a, b, c) --> BOOL 
2BB8 36 3C      24 : ISSHA (int) --> BOOL 
2BBA 14 37      25 : SYSGEN 
2BBC 42 3C      26 : GETTAB 
2BBE 58 3C      27 : PUTTAB 
2BC0 62 3C      28 : ERATAB 
2BC2 3A 2F      29 : EXEC (modnr)
2BC4 E8 2E      30 : PPROC (modnr) 
2BC6 33 2F      31 : PCALL (adr) 
2BC8 CC 2E      32 : CASE (switch, limit)
2BCA 86 36      33 : MOVEXX (len, from, to) 
2BCC 9A 38      34 : ALIAS (...,...) 
2BCE 0C 2D      35 : MOVIM (...,...) 
2BD0 4D 35      36 : FEQU (a, b) --> BOOL 
2BD2 44 31      37 : TLSEQ (a, b) --> BOOL 
2BD4 6E 35      38 : FCOMPL (source, dest)
2BD6 DC 2D      39 : COMPL (source, dest) 
2BD8 C1 2D      40 : IMULT (a, b, c) 
2BDA A0 2D      41 : MULT (a, b, c) 
2BDC AC 2D      42 : DIV (a, b, c) 
2BDE B8 2D      43 : MOD (a, b, c) 
2BE0 9F 34      44 : ISUB (text, pos, result) 
2BE2 8D 34      45 : replace (text, pos, int) 
2BE4 A8 31      46 : CODE (text, result)
2BE6 B9 31      47 : ENCODE (int, text) 
2BE8 C2 31      48 : SUB (text, pos, result) 
2BEA CE 31      49 : subtext (source, from, to, result) 
2BEC C8 31      50 : subtext (source, from, result)
2BEE 2F 32      51 : replace (text, pos, text) 
2BF0 D4 31      52 : CAT (text, text) 
2BF2 97 31      53 : LENGTH (text, result) 
2BF4 81 32      54 : pos (source, pattern, result) 
2BF6 89 32      55 : pos (source, pattern, from, result)
2BF8 92 32      56 : pos (source, pattern, from, to, result) 
2BFA 93 33      57 : stranalyze (row256int, intv,int,text,intv,int,intv)
2BFC 42 33      58 : pos (source, low, high, from, result) 
2BFE F4 3C      59 : ------------
2C00 67 37      60 : out (text) 
2C02 1A 37      61 : cout (int) 
2C04 5D 37      62 : outsubtext (text, from) 
2C06 62 37      63 : outsubtext (text, from, to) 
2C08 9E 37      64 : inchar (result) 
2C0A BD 37      65 : incharety (result) 
2C0C D4 37      66 : pause (time) 
2C0E F5 37      67 : getcursor (x, y)
2C10 10 38      68 : catinput (textv, escchar) 
2C12 E5 38      69 : nilspace (result) 
2C14 EB 38      70 : dscopy (dest, source)
2C16 19 39      71 : forget (ds) 
2C18 47 39      72 : settype (ds, type) 
2C1A 68 39      73 : gettype (ds, type) 
2C1C 79 39      74 : heapsize (ds, size) 
2C1E 4E 3D      75 : enablestop 
2C20 5B 3D      76 : disablestop 
2C22 62 3D      77 : seterrorstop (nr) 
2C24 76 3D      78 : iserror --> BOOL 
2C26 80 3D      79 : clearerror 
2C28 9F 3D      80 : readpcb (field, result) 
2C2A 87 41      81 : infopassword (alt, neu, ok)
2C2C E4 35      82 : setclock (task, value) 
2C2E 0E 2E      83 : rotate (int, anzahl) 
2C30 09 3A      84 : control (fkt, code1, code2, result) 
2C32 B3 39      85 : blockout (ds, page, code1, code2, result) 
2C34 E5 39      86 : blockin (ds, page, code1, code2, result) 
2C36 3B 3A      87 : nextdspage (ds, page, result) 
2C38 97 39      88 : pages (ds, task, result)
2C3A 7A 3C      89 : storage (size, used) ?
2C3C 8D 3C      90 : sysop (nr) 
2C3E E5 2F      91 : arith15 
2C40 EC 2F      92 : arith16 
2C42 7A 34      93 : heapsize (result) 
2C44 88 34      94 : collectheapgarbage 
2C46 9D 3E      95 : ? (neues begin)
2C48 7C 35      96 : shiftleftdigits (in, real, out) 
2C4A 98 35      97 : decimalexponent (real, result) 
2C4C A1 35      98 : setexp (exp, real) 
2C4E AE 35      99 : floor (source, dest) 
2C50 A3 34     100 : RSUB (text, pos, result) 
2C52 91 34     101 : replace (text, pos, real) 
2C54 BC 35     102 : clock (nr, result) 
2C56 F2 35     103 : setclock (value) 
2C58 EB 3D     104 : readpcb (task, field, result) 
2C5A F1 3D     105 : writepcb (task, field, value) 
2C5C DC 35     106 : readclock (task, result) 
2C5E 1E 3E     107 : status (task, result) 
2C60 2E 3E     108 : unblock (task) 
2C62 41 3E     109 : block (task) 
2C64 63 3E     110 : halt process (task) 
2C66 6C 3E     111 : create process (... 
2C68 52 3F     112 : erase process (task) 
2C6A B7 40     113 : send (...
2C6C BD 40     114 : wait (... 
2C6E 06 41     115 : call (... 
2C70 F7 3A     116 : cdb int (adr, result) 
2C72 0E 3B     117 : cdb text (adr, result) 
2C74 4F 3E     118 : nextactive (taskandresult) 
2C76 EF 36     119 : putword (seg, adr, value) 
2C78 E5 36     120 : getword (seg, adr, result) 
2C7A 02 2E     121 : XOR (a, b, c) 
2C7C 2B 41     122 : pingpong (... 
2C7E 5B 3F     123 : exists (task) --> BOOL
2C80 EA 2D     124 : AND (a, b, c) 
2C82 F6 2D     125 : OR (a, b, c) 
2C84 67 41     126 : session (result) 
2C86 96 40     127 : sendfromto (...
2C88 51 41     128 : define collector (task) 
2C8A 6E 41     129 : id (field, result)

2C8C C2 F3 2C    ..,   JP    NZ,2CF3    ; C <> 0: LN Befehl, kein Page
2C8F F5          .     PUSH  AF         ; Neuen Block
2C90 3A B6 2A    :.*   LD    A,(2AB6)   ; Opcode BF oder LN
2C93 FE 70       .p    CP    70         
2C95 28 02       (.    JR    Z,2C99     
2C97 FE 74       .t    CP    74         
2C99 C4 87 42    ..B   CALL  NZ,4287    ; Neue Seite laden
2C9C F1          .     POP   AF         
2C9D 04          .     INC   B           
2C9E 05          .     DEC   B          ; Flag B = 0 setzen
2C9F C3 B5 2A    ..*   JP    2AB5       ; Befehl nochmal aufsetzen
2CA2 CD 13 43    ..C   CALL  4313       ;--------------------------------
2CA5 5E          ^     LD    E,(HL)     ; DE := 1. Codewort
2CA6 2C          ,     INC   L          
2CA7 56          V     LD    D,(HL)     
2CA8 CD 13 43    ..C   CALL  4313       ; HL := 2. Codewort
2CAB 7E          ~     LD    A,(HL)     
2CAC 2C          ,     INC   L          
2CAD 66          f     LD    H,(HL)     
2CAE 6F          o     LD    L,A        
2CAF C9          .     RET              ;----------- Bytemove ------------
2CB0 04          .     INC   B          
2CB1 05          .     DEC   B          
2CB2 20 12        .    JR    NZ,2CC6    ; Weniger als 256 Bytes ?
2CB4 79          y     LD    A,C        ; 256 Bytes in einem Schub per LDIR
2CB5 B7          .     OR    A          
2CB6 C8          .     RET   Z          ; Nichts moven
2CB7 85          .     ADD   L          
2CB8 38 07       8.    JR    C,2CC1     
2CBA 79          y     LD    A,C         
2CBB 83          .     ADD   E          
2CBC 38 03       8.    JR    C,2CC1     
2CBE ED B0       ..    LDIR             
2CC0 C9          .     RET              
2CC1 3E 0D       >.    LD    A,0D       
2CC3 B9          .     CP    C          
2CC4 30 0C       0.    JR    NC,2CD2    
2CC6 CD 78 45    .xE   CALL  4578       ; Move in mehreren Teilen
2CC9 C8          .     RET   Z          
2CCA ED B0       ..    LDIR             
2CCC D0          .     RET   NC         
2CCD CD C1 45    ..E   CALL  45C1       
2CD0 18 F4       ..    JR    2CC6       
2CD2 7E          ~     LD    A,(HL)     
2CD3 0D          .     DEC   C          
2CD4 28 19       (.    JR    Z,2CEF     
2CD6 F5          .     PUSH  AF         
2CD7 D5          .     PUSH  DE         
2CD8 FD 21 85 46 .!.F  LD    IY,4685    
2CDC 2C          ,     INC   L          
2CDD CC 1B 45    ..E   CALL  Z,451B     
2CE0 EB          .     EX    DE,HL      
2CE1 FD 21 89 46 .!.F  LD    IY,4689    
2CE5 2C          ,     INC   L          
2CE6 CC 1B 45    ..E   CALL  Z,451B     
2CE9 EB          .     EX    DE,HL      
2CEA CD D2 2C    ..,   CALL  2CD2       ; Teilmove
2CED D1          .     POP   DE         
2CEE F1          .     POP   AF         
2CEF 12          .     LD    (DE),A     
2CF0 C9          .     RET              ;------------- LONGLN ------------
2CF1 C6 04       ..    ADD   A,04       ; 
2CF3 07          .     RLCA             ;------------- LN ----------------
2CF4 DD 75 20    .u    LD    (IX+20),L  
2CF7 DD 77 21    .w!   LD    (IX+21),A  
2CFA C3 A7 2A    ..*   JP    2AA7       ;--------- MOV1  -----------------
2CFD CD 1B 43    ..C   CALL  431B       ; fromaddresse --> HL
2D00 5E          ^     LD    E,(HL)     
2D01 2C          ,     INC   L          
2D02 56          V     LD    D,(HL)     
2D03 CD 64 43    .dC   CALL  4364       ; toaddresse --> HL
2D06 73          s     LD    (HL),E     
2D07 2C          ,     INC   L          
2D08 72          r     LD    (HL),D     
2D09 C3 A7 2A    ..*   JP    2AA7       ;----------- MOVIM --------------
2D0C CD 43 44    .CD   CALL  4443       
2D0F 18 F2       ..    JR    2D03       
2D11 CD 6C 43    .lC   CALL  436C       ;---------- INC1 ----------------
2D14 34          4     INC   (HL)       
2D15 C2 A7 2A    ..*   JP    NZ,2AA7    
2D18 2C          ,     INC   L          
2D19 34          4     INC   (HL)       
2D1A E2 A7 2A    ..*   JP    PO,2AA7    
2D1D 18 2B       .+    JR    2D4A       ;-------------- DEC1 -------------
2D1F CD 6C 43    .lC   CALL  436C       
2D22 7E          ~     LD    A,(HL)     
2D23 D6 01       ..    SUB   A,01       
2D25 77          w     LD    (HL),A     
2D26 D2 A7 2A    ..*   JP    NC,2AA7    
2D29 2C          ,     INC   L          
2D2A 35          5     DEC   (HL)       
2D2B E2 A7 2A    ..*   JP    PO,2AA7    
2D2E 18 1A       ..    JR    2D4A       ;------------- INC ---------------
2D30 CD 1B 43    ..C   CALL  431B       
2D33 5E          ^     LD    E,(HL)     
2D34 2C          ,     INC   L          
2D35 56          V     LD    D,(HL)     
2D36 CD 64 43    .dC   CALL  4364       
2D39 7E          ~     LD    A,(HL)     
2D3A 83          .     ADD   E          
2D3B 77          w     LD    (HL),A     
2D3C 2C          ,     INC   L          
2D3D 7E          ~     LD    A,(HL)     
2D3E 8A          .     ADC   D          
2D3F 77          w     LD    (HL),A     
2D40 E2 A7 2A    ..*   JP    PO,2AA7    
2D43 30 05       0.    JR    NC,2D4A    
2D45 3E FF       >.    LD    A,FF       
2D47 77          w     LD    (HL),A     
2D48 2D          -     DEC   L          
2D49 77          w     LD    (HL),A     
2D4A CD FC 3C    ..<   CALL  3CFC       
2D4D C3 A7 2A    ..*   JP    2AA7       ;------------- DEC ----------------
2D50 CD 1B 43    ..C   CALL  431B       
2D53 5E          ^     LD    E,(HL)     
2D54 2C          ,     INC   L          
2D55 56          V     LD    D,(HL)     
2D56 CD 64 43    .dC   CALL  4364       
2D59 7E          ~     LD    A,(HL)     
2D5A 93          .     SUB   E          
2D5B 77          w     LD    (HL),A     
2D5C 2C          ,     INC   L          
2D5D 7E          ~     LD    A,(HL)     
2D5E 9A          .     SBC   D          
2D5F 77          w     LD    (HL),A     
2D60 E2 A7 2A    ..*   JP    PO,2AA7    
2D63 18 DE       ..    JR    2D43       ;------------- ADD ---------------
2D65 CD 1B 43    ..C   CALL  431B       
2D68 5E          ^     LD    E,(HL)     
2D69 2C          ,     INC   L          
2D6A 56          V     LD    D,(HL)     
2D6B CD 13 43    ..C   CALL  4313       
2D6E 7E          ~     LD    A,(HL)     
2D6F 2C          ,     INC   L          
2D70 66          f     LD    H,(HL)     
2D71 6F          o     LD    L,A        
2D72 B7          .     OR    A          
2D73 ED 5A       .Z    ADC   HL,DE      
2D75 EC FC 3C    ..<   CALL  PE,3CFC    
2D78 EB          .     EX    DE,HL      
2D79 CD 64 43    .dC   CALL  4364       
2D7C 73          s     LD    (HL),E     
2D7D 2C          ,     INC   L          
2D7E 72          r     LD    (HL),D     
2D7F C3 A7 2A    ..*   JP    2AA7       ;------------ SUB ----------------
2D82 CD 1B 43    ..C   CALL  431B       
2D85 5E          ^     LD    E,(HL)     
2D86 2C          ,     INC   L          
2D87 56          V     LD    D,(HL)     
2D88 CD 13 43    ..C   CALL  4313       
2D8B 7E          ~     LD    A,(HL)     
2D8C 2C          ,     INC   L          
2D8D 66          f     LD    H,(HL)     
2D8E 6F          o     LD    L,A        
2D8F EB          .     EX    DE,HL      
2D90 B7          .     OR    A          
2D91 ED 52       .R    SBC   HL,DE      
2D93 EC FC 3C    ..<   CALL  PE,3CFC    
2D96 EB          .     EX    DE,HL      
2D97 CD 64 43    .dC   CALL  4364       
2D9A 73          s     LD    (HL),E     
2D9B 2C          ,     INC   L          
2D9C 72          r     LD    (HL),D     
2D9D C3 A7 2A    ..*   JP    2AA7       ;-------------- MULT ------------
2DA0 CD A2 2C    ..,   CALL  2CA2       ; Zwei Addressen holen --> HL, DE
2DA3 CD 0D 4D    ..M   CALL  4D0D       ; MULT
2DA6 DC FC 3C    ..<   CALL  C,3CFC     ; Overflow, ggf
2DA9 C3 03 2D    ..-   JP    2D03       ;--------------- DIV ------------
2DAC CD A2 2C    ..,   CALL  2CA2       
2DAF CD 3D 4D    .=M   CALL  4D3D       ; DIV
2DB2 DC CD 3C    ..<   CALL  C,3CCD     
2DB5 C3 03 2D    ..-   JP    2D03       ;--------------- MOD -------------
2DB8 CD A2 2C    ..,   CALL  2CA2       
2DBB CD 3D 4D    .=M   CALL  4D3D       ; DIV
2DBE EB          .     EX    DE,HL      ; Rest davon
2DBF 18 F1       ..    JR    2DB2       ;------------- IMULT -------------
2DC1 CD A2 2C    ..,   CALL  2CA2       
2DC4 CD 6D 4D    .mM   CALL  4D6D       
2DC7 EB          .     EX    DE,HL      
2DC8 CE 00       ..    ADC   A,00       
2DCA 28 03       (.    JR    Z,2DCF     
2DCC 11 FF FF    ...   LD    DE,FFFF    ; Overflow = -1
2DCF C3 03 2D    ..-   JP    2D03       ;------------- CLEAR -------------
2DD2 CD 6C 43    .lC   CALL  436C       
2DD5 97          .     SUB   A          
2DD6 77          w     LD    (HL),A     
2DD7 2C          ,     INC   L          
2DD8 77          w     LD    (HL),A     
2DD9 C3 A7 2A    ..*   JP    2AA7       ;------------- COMPL --------------
2DDC CD A8 2C    ..,   CALL  2CA8       
2DDF EB          .     EX    DE,HL      
2DE0 21 00 00    !..   LD    HL,0000    
2DE3 B7          .     OR    A          
2DE4 ED 52       .R    SBC   HL,DE      
2DE6 EB          .     EX    DE,HL      
2DE7 C3 03 2D    ..-   JP    2D03       ;--------------- AND -------------
2DEA CD A2 2C    ..,   CALL  2CA2       
2DED 7B          {     LD    A,E        
2DEE A5          .     AND   L          
2DEF 5F          _     LD    E,A        
2DF0 7A          z     LD    A,D        
2DF1 A4          .     AND   H          
2DF2 57          W     LD    D,A        
2DF3 C3 03 2D    ..-   JP    2D03       ;-------------- OR --------------
2DF6 CD A2 2C    ..,   CALL  2CA2       
2DF9 7B          {     LD    A,E        
2DFA B5          .     OR    L          
2DFB 5F          _     LD    E,A        
2DFC 7A          z     LD    A,D        
2DFD B4          .     OR    H          
2DFE 57          W     LD    D,A        
2DFF C3 03 2D    ..-   JP    2D03       ;---------------- XOR ------------
2E02 CD A2 2C    ..,   CALL  2CA2       
2E05 7B          {     LD    A,E        
2E06 AD          .     XOR   L          
2E07 5F          _     LD    E,A        
2E08 7A          z     LD    A,D        
2E09 AC          .     XOR   H          
2E0A 57          W     LD    D,A        
2E0B C3 03 2D    ..-   JP    2D03       ;-------------- rotate ------------
2E0E CD 64 43    .dC   CALL  4364       
2E11 E5          .     PUSH  HL         
2E12 5E          ^     LD    E,(HL)     
2E13 2C          ,     INC   L          
2E14 56          V     LD    D,(HL)     
2E15 CD 13 43    ..C   CALL  4313       
2E18 7E          ~     LD    A,(HL)     
2E19 E6 0F       ..    AND   0F         ; keine links/rechts Optimierung
2E1B 28 0A       (.    JR    Z,2E27     
2E1D CB 23       .#    SLA   E          
2E1F CB 12       ..    RL    D          
2E21 30 01       0.    JR    NC,2E24    
2E23 1C          .     INC   E          
2E24 3D          =     DEC   A          
2E25 20 F6        .    JR    NZ,2E1D    
2E27 E1          .     POP   HL         
2E28 C3 06 2D    ..-   JP    2D06       ;------------- TEST ---------------
2E2B CD 1B 43    ..C   CALL  431B       
2E2E 7E          ~     LD    A,(HL)     
2E2F 2C          ,     INC   L          
2E30 B6          .     OR    (HL)       
2E31 28 3E       (>    JR    Z,2E71     ; Beide 0 ?
2E33 18 4F       .O    JR    2E84       ;------------- LSEQ --------------
2E35 CD 1B 43    ..C   CALL  431B       
2E38 EB          .     EX    DE,HL      
2E39 CD 13 43    ..C   CALL  4313       
2E3C EB          .     EX    DE,HL      
2E3D 1A          .     LD    A,(DE)     
2E3E 96          .     SUB   (HL)       
2E3F 1C          .     INC   E          
2E40 2C          ,     INC   L          
2E41 1A          .     LD    A,(DE)     
2E42 9E          .     SBC   (HL)       
2E43 E2 48 2E    .H.   JP    PO,2E48    
2E46 EE 80       ..    XOR   80         
2E48 F2 71 2E    .q.   JP    P,2E71     
2E4B C3 84 2E    ...   JP    2E84       ;------------ ULSEQU --------------
2E4E CD 1B 43    ..C   CALL  431B       
2E51 EB          .     EX    DE,HL      
2E52 CD 13 43    ..C   CALL  4313       
2E55 EB          .     EX    DE,HL      
2E56 1A          .     LD    A,(DE)     
2E57 96          .     SUB   (HL)       
2E58 1C          .     INC   E          
2E59 2C          ,     INC   L          
2E5A 1A          .     LD    A,(DE)     
2E5B 9E          .     SBC   (HL)       
2E5C 30 13       0.    JR    NC,2E71    
2E5E 18 24       .$    JR    2E84       ;----------- EQU -----------------
2E60 CD 1B 43    ..C   CALL  431B       
2E63 EB          .     EX    DE,HL      
2E64 CD 13 43    ..C   CALL  4313       
2E67 1A          .     LD    A,(DE)     
2E68 BE          .     CP    (HL)       
2E69 20 19        .    JR    NZ,2E84    
2E6B 1C          .     INC   E          
2E6C 2C          ,     INC   L          
2E6D 1A          .     LD    A,(DE)     
2E6E BE          .     CP    (HL)       
2E6F 20 13        .    JR    NZ,2E84    
2E71 0A          .     LD    A,(BC)     ; TRUE liefern
2E72 6F          o     LD    L,A        
2E73 0C          .     INC   C          
2E74 0A          .     LD    A,(BC)     
2E75 CB 77       .w    BIT   6,A        
2E77 20 4C        L    JR    NZ,2EC5    
2E79 C3 8E 2E    ...   JP    2E8E       ; zum Branch
2E7C CD 7E 2A    .~*   CALL  2A7E       
2E7F 18 F0       ..    JR    2E71       
2E81 CD 7E 2A    .~*   CALL  2A7E       
2E84 0A          .     LD    A,(BC)     ; FALSE liefern
2E85 6F          o     LD    L,A        
2E86 0C          .     INC   C          
2E87 0A          .     LD    A,(BC)     
2E88 CB 77       .w    BIT   6,A        
2E8A 28 39       (9    JR    Z,2EC5     ; Opcode veraendern
2E8C E6 87       ..    AND   87         ; folgt immer Branch
2E8E B7          .     OR    A          ;------------- BR -----------------
2E8F 20 14        .    JR    NZ,2EA5    
2E91 78          x     LD    A,B        
2E92 0F          .     RRCA             
2E93 4D          M     LD    C,L        
2E94 CB 21       .!    SLA   C          
2E96 8F          .     ADC   A          
2E97 90          .     SUB   B          
2E98 CA A7 2A    ..*   JP    Z,2AA7     
2E9B 80          .     ADD   B          
2E9C 47          G     LD    B,A        
2E9D DD 75 09    .u.   LD    (IX+09),L  
2EA0 C3 A7 2A    ..*   JP    2AA7       ;------------ LONGBR --------------
2EA3 C6 04       ..    ADD   A,04       
2EA5 07          .     RLCA             
2EA6 DD 86 0A    ...   ADD   (IX+0A)    
2EA9 DD BE 0F    ...   CP    (IX+0F)    
2EAC FA B1 2E    ...   JP    M,2EB1     
2EAF D6 10       ..    SUB   A,10       
2EB1 DD 77 0A    .w.   LD    (IX+0A),A  
2EB4 7D          }     LD    A,L        
2EB5 DD 77 09    .w.   LD    (IX+09),A  
2EB8 4F          O     LD    C,A        
2EB9 87          .     ADD   A          
2EBA 08          .     EX    AF,AF'     
2EBB CD AB 42    ..B   CALL  42AB       
2EBE CB 21       .!    SLA   C          
2EC0 17          .     RLA              
2EC1 47          G     LD    B,A        
2EC2 C3 A7 2A    ..*   JP    2AA7       
2EC5 0C          .     INC   C          
2EC6 CC A8 42    ..B   CALL  Z,42A8     
2EC9 C3 A7 2A    ..*   JP    2AA7       ;------------ CASE ----------------
2ECC CD A8 2C    ..,   CALL  2CA8       
2ECF CD 43 44    .CD   CALL  4443       
2ED2 CB 7C       .|    BIT   7,H        
2ED4 20 AE        .    JR    NZ,2E84    
2ED6 7D          }     LD    A,L        
2ED7 93          .     SUB   E          
2ED8 7C          |     LD    A,H        
2ED9 9A          .     SBC   D          
2EDA 30 A8       0.    JR    NC,2E84    
2EDC CB 38       .8    SLR   B          
2EDE CB 19       ..    RR    C          
2EE0 DD 46 0A    .F.   LD    B,(IX+0A)  
2EE3 09          .     ADD   HL,BC      
2EE4 23          #     INC   HL         
2EE5 7C          |     LD    A,H        
2EE6 18 C9       ..    JR    2EB1       ;-------------- PPROC -------------
2EE8 CD 43 44    .CD   CALL  4443       
2EEB EB          .     EX    DE,HL      
2EEC 11 02 00    ...   LD    DE,0002    ; D=0
2EEF 7C          |     LD    A,H        
2EF0 FE 05       ..    CP    05         ; Modnr < 1280 : Segment 2
2EF2 38 01       8.    JR    C,2EF5     
2EF4 1C          .     INC   E          
2EF5 D5          .     PUSH  DE         ; Segment in E auf Stack
2EF6 24          $     INC   H          ; +0200 = Moduletable
2EF7 24          $     INC   H          
2EF8 97          .     SUB   A          
2EF9 CD 4D 44    .MD   CALL  444D       
2EFC 5E          ^     LD    E,(HL)     ; Addresse 
2EFD 2C          ,     INC   L          
2EFE 56          V     LD    D,(HL)     
2EFF D5          .     PUSH  DE         ; REF-Addr auf Stack 
2F00 18 0A       ..    JR    2F0C       ;--------------- PPV -------------
2F02 CD A8 2C    ..,   CALL  2CA8       
2F05 18 03       ..    JR    2F0A       ;--------------- PP -------------
2F07 CD C0 43    ..C   CALL  43C0       
2F0A D5          .     PUSH  DE         
2F0B E5          .     PUSH  HL         
2F0C 2A C6 41    *.A   LD    HL,(41C6)  ; REF-Addr auf Stack---------------
2F0F 23          #     INC   HL         
2F10 23          #     INC   HL         
2F11 CB 7C       .|    BIT   7,H        
2F13 C2 D1 3C    ..<   JP    NZ,3CD1    
2F16 5C          \     LD    E,H        
2F17 16 1A       ..    LD    D,1A       
2F19 1A          .     LD    A,(DE)     
2F1A 67          g     LD    H,A        
2F1B 29          )     ADD   HL,HL      
2F1C D4 F9 42    ..B   CALL  NC,42F9    
2F1F D1          .     POP   DE         
2F20 73          s     LD    (HL),E     ; Low Word
2F21 2C          ,     INC   L          
2F22 72          r     LD    (HL),D     
2F23 2C          ,     INC   L          
2F24 D1          .     POP   DE         ; High Word
2F25 73          s     LD    (HL),E     
2F26 2C          ,     INC   L          
2F27 72          r     LD    (HL),D     
2F28 2A C6 41    *.A   LD    HL,(41C6)  ; Stackpointer
2F2B 23          #     INC   HL         
2F2C 23          #     INC   HL         
2F2D 22 C6 41    ".A   LD    (41C6),HL  
2F30 C3 A7 2A    ..*   JP    2AA7       ;------------- PCALL --------------
2F33 CD B8 43    ..C   CALL  43B8       ; REF-Addr vom Stack
2F36 7B          {     LD    A,E        ; Segment
2F37 EB          .     EX    DE,HL      
2F38 18 27       .'    JR    2F61       ;------------- EXEC ---------------
2F3A CD A8 2C    ..,   CALL  2CA8       
2F3D 7C          |     LD    A,H        
2F3E 18 08       ..    JR    2F48       ;-------------- CALL -------------
2F40 CB 7F       ..    BIT   7,A        
2F42 CB BF       ..    RES   7,A        
2F44 28 02       (.    JR    Z,2F48     
2F46 CB D7       ..    SET   2,A        
2F48 F5          .     PUSH  AF         
2F49 C6 02       ..    ADD   A,02       ; Addresse aus Module Addr Tabelle
2F4B 67          g     LD    H,A        
2F4C 5F          _     LD    E,A        
2F4D 16 19       ..    LD    D,19       
2F4F 1A          .     LD    A,(DE)     
2F50 67          g     LD    H,A        
2F51 29          )     ADD   HL,HL      
2F52 B7          .     OR    A          
2F53 CC E1 42    ..B   CALL  Z,42E1     
2F56 5E          ^     LD    E,(HL)     
2F57 2C          ,     INC   L          
2F58 56          V     LD    D,(HL)     
2F59 F1          .     POP   AF         
2F5A FE 05       ..    CP    05         
2F5C 3E 02       >.    LD    A,02       
2F5E 38 01       8.    JR    C,2F61     
2F60 3C          <     INC   A          ; Call PROC
2F61 47          G     LD    B,A        ;---- Segment in A, Addr in HL
2F62 D5          .     PUSH  DE         ; call...
 - Fortsetzung in Datei "eumel0.prt.2" -