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
3949
3950
3951
3952
3953
3954
3955
3956
3957
|
#type ("17.klein")#
ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT
2F63 2A C8 41 *.A LD HL,(41C8)
2F66 5C \ LD E,H
2F67 16 1A .. LD D,1A
2F69 1A . LD A,(DE)
2F6A 67 g LD H,A
2F6B 29 ) ADD HL,HL
2F6C D4 F9 42 ..B CALL NC,42F9
2F6F ED 5B C4 41 .[.A LD DE,(41C4) ; Stacktop auf Stack
2F73 73 s LD (HL),E
2F74 2C , INC L
2F75 72 r LD (HL),D
2F76 2C , INC L
2F77 DD CB 09 26 ...& SLA (IX+09) ; icount Felder auf Stack
2F7B CB 19 .. RR C
2F7D 71 q LD (HL),C
2F7E 2C , INC L
2F7F DD 7E 0A .~. LD A,(IX+0A)
2F82 77 w LD (HL),A
2F83 2C , INC L
2F84 DD 7E 0B .~. LD A,(IX+0B)
2F87 77 w LD (HL),A
2F88 2C , INC L
2F89 E6 FC .. AND FC ; Fehlerzustand vererbt sich
2F8B B0 . OR B
2F8C 47 G LD B,A
2F8D D9 . EXX
2F8E 79 y LD A,C
2F8F D9 . EXX
2F90 77 w LD (HL),A
2F91 2C , INC L
2F92 DD 7E 0F .~. LD A,(IX+0F)
2F95 77 w LD (HL),A
2F96 D1 . POP DE
2F97 7A z LD A,D
2F98 C6 10 .. ADD A,10
2F9A DD 77 0F .w. LD (IX+0F),A
2F9D DD 36 06 18 .6.. LD (IX+06),18
2FA1 DD 73 09 .s. LD (IX+09),E ; icount neu setzen
2FA4 DD 72 0A .r. LD (IX+0A),D
2FA7 DD 70 0B .p. LD (IX+0B),B
2FAA 4B K LD C,E
2FAB 7B { LD A,E
2FAC 87 . ADD A
2FAD 08 . EX AF,AF'
2FAE CD AB 42 ..B CALL 42AB
2FB1 CB 21 .! SLA C
2FB3 17 . RLA
2FB4 47 G LD B,A
2FB5 0A . LD A,(BC)
2FB6 5F _ LD E,A
2FB7 0C . INC C
2FB8 0A . LD A,(BC)
2FB9 57 W LD D,A
2FBA 0C . INC C
2FBB CC 87 42 ..B CALL Z,4287
2FBE DD 36 06 00 .6.. LD (IX+06),00
2FC2 2A C8 41 *.A LD HL,(41C8)
2FC5 22 C4 41 ".A LD (41C4),HL ; Stacktop neu setzen
2FC8 B7 . OR A
2FC9 ED 5A .Z ADC HL,DE
2FCB EA D1 3C ..< JP PE,3CD1
2FCE 22 C8 41 ".A LD (41C8),HL
2FD1 23 # INC HL
2FD2 23 # INC HL
2FD3 22 C6 41 ".A LD (41C6),HL ; Stackpointer neu setzen
2FD6 CB 7C .| BIT 7,H
2FD8 CA A7 2A ..* JP Z,2AA7 ; Stackoverflow bei CALL
2FDB C3 D1 3C ..< JP 3CD1 ;------------ PENTER -------------
2FDE 7D } LD A,L
2FDF D9 . EXX
2FE0 4F O LD C,A ; C' = Packetbase
2FE1 D9 . EXX
2FE2 C3 A7 2A ..* JP 2AA7 ;------------- arith15 ------------
2FE5 DD CB 0B A6 .... RES 4,(IX+0B)
2FE9 C3 A7 2A ..* JP 2AA7 ;------------- arith16 ------------
2FEC DD CB 0B E6 .... SET 4,(IX+0B)
2FF0 C3 A7 2A ..* JP 2AA7 ;------------- RTN ----------------
2FF3 CD 35 30 .50 CALL 3035 ; LEAVE PROC
2FF6 C3 A7 2A ..* JP 2AA7 ;------------- RTN FALSE ----------
2FF9 CD 1B 30 ..0 CALL 301B
2FFC DD 36 06 10 .6.. LD (IX+06),10 ; Status LEAVE PROC FALSE
3000 CD 38 30 .80 CALL 3038
3003 DD 36 06 00 .6.. LD (IX+06),00 ; Status wieder busy, BR FALSEmodif.
3007 C3 71 2E .q. JP 2E71 ;-------------- RTN TRUE ----------
300A CD 1B 30 ..0 CALL 301B
300D DD 36 06 14 .6.. LD (IX+06),14 ; Status LEAVE PROC TRUE
3011 CD 38 30 .80 CALL 3038
3014 DD 36 06 00 .6.. LD (IX+06),00 ; Wieder Busy
3018 C3 84 2E ... JP 2E84 ; BR TRUE modif.
301B 2A C4 41 *.A LD HL,(41C4) ;-------- LEAVE PROC -------------
301E 44 D LD B,H
301F 4D M LD C,L ; ALten Stacktop wiederherstellen
3020 22 C8 41 ".A LD (41C8),HL
3023 23 # INC HL
3024 23 # INC HL
3025 22 C6 41 ".A LD (41C6),HL ; +2 = Neuer Stacktop
3028 2B + DEC HL
3029 2B + DEC HL
302A 5C \ LD E,H
302B 16 1A .. LD D,1A
302D 1A . LD A,(DE)
302E 67 g LD H,A
302F 29 ) ADD HL,HL
3030 B7 . OR A
3031 C0 . RET NZ
3032 C3 E1 42 ..B JP 42E1 ;--------------------------------
3035 CD 1B 30 ..0 CALL 301B ; LEAVE PROC
3038 5E ^ LD E,(HL)
3039 2C , INC L
303A 56 V LD D,(HL)
303B 7B { LD A,E
303C 91 . SUB C
303D 7A z LD A,D
303E 98 . SBC B
303F 30 37 07 JR NC,3078 ; Stack underflow, Harakiri
3041 2C , INC L
3042 ED 53 C4 41 .S.A LD (41C4),DE ; Stacktop
3046 4E N LD C,(HL)
3047 2C , INC L
3048 DD 71 09 .q. LD (IX+09),C ; icount wiederherstellen
304B 7E ~ LD A,(HL)
304C 2C , INC L
304D DD 77 0A .w. LD (IX+0A),A
3050 DD 7E 0B .~. LD A,(IX+0B)
3053 E6 80 .. AND 80
3055 5E ^ LD E,(HL)
3056 CB BB .. RES 7,E
3058 B3 . OR E
3059 DD 77 0B .w. LD (IX+0B),A ; iserror uebernehmen
305C 2C , INC L
305D E6 C0 .. AND C0
305F FE 80 .. CP 80
3061 CA 2E 3D ..= JP Z,3D2E ; errorstop
3064 7E ~ LD A,(HL)
3065 2C , INC L
3066 D9 . EXX
3067 4F O LD C,A
3068 D9 . EXX
3069 7E ~ LD A,(HL)
306A DD 77 0F .w. LD (IX+0F),A
306D 79 y LD A,C
306E 87 . ADD A
306F 08 . EX AF,AF'
3070 CD AB 42 ..B CALL 42AB
3073 CB 21 .! SLA C
3075 17 . RLA
3076 47 G LD B,A
3077 C9 . RET
3078 DD 36 06 FF .6.. LD (IX+06),FF ; dead setzen. "Harakiri"
307C C3 26 29 .&) JP 2926 ;-------------- GOSUB -------------
307F CD 43 44 .CD CALL 4443 ; Branchaddresse holen
3082 D5 . PUSH DE
3083 2A C8 41 *.A LD HL,(41C8)
3086 5C \ LD E,H
3087 16 1A .. LD D,1A
3089 1A . LD A,(DE)
308A 67 g LD H,A
308B 29 ) ADD HL,HL
308C D4 F9 42 ..B CALL NC,42F9
308F DD 7E 09 .~. LD A,(IX+09) ; icount auf Stack (Seg.bleibt)!
3092 87 . ADD A
3093 CB 19 .. RR C
3095 71 q LD (HL),C
3096 2C , INC L
3097 DD 7E 0A .~. LD A,(IX+0A)
309A 77 w LD (HL),A
309B 2A C8 41 *.A LD HL,(41C8) ; Stackpointer INCR 4
309E 23 # INC HL
309F 23 # INC HL
30A0 23 # INC HL
30A1 23 # INC HL
30A2 22 C8 41 ".A LD (41C8),HL
30A5 23 # INC HL
30A6 23 # INC HL
30A7 22 C6 41 ".A LD (41C6),HL ; stacktop
30AA E1 . POP HL
30AB 7C | LD A,H ; BRANCH
30AC C3 8E 2E ... JP 2E8E ;------------- GORET -------------
30AF 2A C8 41 *.A LD HL,(41C8) ; Stackpointer vom Stack
30B2 2B + DEC HL
30B3 2B + DEC HL
30B4 22 C6 41 ".A LD (41C6),HL
30B7 2B + DEC HL
30B8 2B + DEC HL
30B9 22 C8 41 ".A LD (41C8),HL
30BC 5C \ LD E,H
30BD 16 1A .. LD D,1A
30BF 1A . LD A,(DE)
30C0 67 g LD H,A
30C1 29 ) ADD HL,HL
30C2 B7 . OR A
30C3 CC E1 42 ..B CALL Z,42E1
30C6 2C , INC L
30C7 7E ~ LD A,(HL)
30C8 2D - DEC L
30C9 6E n LD L,(HL) ; BRANCH
30CA C3 B1 2E ... JP 2EB1 ;------------- TMOV --------------
30CD CD 92 46 ..F CALL 4692
30D0 FE 02 .. CP 02
30D2 30 0F 0. JR NC,30E3
30D4 B7 . OR A
30D5 28 01 (. JR Z,30D8
30D7 56 V LD D,(HL)
30D8 CD 64 43 .dC CALL 4364
30DB 2C , INC L
30DC 2C , INC L
30DD 73 s LD (HL),E
30DE 2C , INC L
30DF 72 r LD (HL),D
30E0 C3 A7 2A ..* JP 2AA7
30E3 DD CB 07 DE .... SET 3,(IX+07)
30E7 E5 . PUSH HL
30E8 D5 . PUSH DE
30E9 CD AA 47 ..G CALL 47AA
30EC D1 . POP DE
30ED CD 68 48 .hH CALL 4868
30F0 42 B LD B,D
30F1 4B K LD C,E
30F2 EB . EX DE,HL
30F3 E3 . EX (SP),HL
30F4 7B { LD A,E
30F5 95 . SUB L
30F6 7A z LD A,D
30F7 20 01 . JR NZ,30FA
30F9 94 . SUB H
30FA C4 B0 2C .., CALL NZ,2CB0
30FD CD E8 45 ..E CALL 45E8
3100 D1 . POP DE
3101 CD 92 48 ..H CALL 4892
3104 DD CB 07 9E .... RES 3,(IX+07)
3108 ED 4B D0 41 .K.A LD BC,(41D0)
310C C3 A7 2A ..* JP 2AA7 ;------------ TEQU ----------------
310F CD 92 46 ..F CALL 4692
3112 FE 02 .. CP 02
3114 30 09 0. JR NC,311F
3116 2D - DEC L
3117 E5 . PUSH HL
3118 CD 07 44 ..D CALL 4407
311B D1 . POP DE
311C C3 67 2E .g. JP 2E67
311F E5 . PUSH HL
3120 D5 . PUSH DE
3121 CD DD 46 ..F CALL 46DD
3124 E3 . EX (SP),HL
3125 B7 . OR A
3126 ED 52 .R SBC HL,DE
3128 20 15 . JR NZ,313F
312A ED 43 D0 41 .C.A LD (41D0),BC
312E 4B K LD C,E
312F 42 B LD B,D
3130 D1 . POP DE
3131 E1 . POP HL
3132 CD 7A 31 .z1 CALL 317A
3135 ED 4B D0 41 .K.A LD BC,(41D0)
3139 C2 84 2E ... JP NZ,2E84
313C C3 71 2E .q. JP 2E71
313F D1 . POP DE
3140 E1 . POP HL
3141 C3 84 2E ... JP 2E84 ;------------- TLSEQU ------------
3144 CD 8D 46 ..F CALL 468D
3147 E5 . PUSH HL
3148 D5 . PUSH DE
3149 CD DD 46 ..F CALL 46DD
314C E3 . EX (SP),HL
314D 7B { LD A,E
314E 95 . SUB L
314F 7A z LD A,D
3150 9C . SBC H
3151 32 D3 41 2.A LD (41D3),A
3154 30 01 0. JR NC,3157
3156 EB . EX DE,HL
3157 ED 43 D0 41 .C.A LD (41D0),BC
315B 44 D LD B,H
315C 4D M LD C,L
315D D1 . POP DE
315E E1 . POP HL
315F 78 x LD A,B
3160 B1 . OR C
3161 C4 7A 31 .z1 CALL NZ,317A
3164 ED 4B D0 41 .K.A LD BC,(41D0)
3168 28 06 (. JR Z,3170
316A D2 71 2E .q. JP NC,2E71
316D C3 84 2E ... JP 2E84
3170 3A D3 41 :.A LD A,(41D3)
3173 B7 . OR A
3174 F2 71 2E .q. JP P,2E71
3177 C3 84 2E ... JP 2E84
317A CD 78 45 .xE CALL 4578
317D 30 0B 0. JR NC,318A
317F CD 8A 31 ..1 CALL 318A
3182 C2 EC 45 ..E JP NZ,45EC
3185 CD C1 45 ..E CALL 45C1
3188 18 F0 .. JR 317A
318A C8 . RET Z
318B 1A . LD A,(DE)
318C BE . CP (HL)
318D C0 . RET NZ
318E 2C , INC L
318F 1C . INC E
3190 0D . DEC C
3191 C2 8B 31 ..1 JP NZ,318B
3194 97 . SUB A
3195 47 G LD B,A
3196 C9 . RET ;------------- LENGTH ------------
3197 CD 13 43 ..C CALL 4313
319A 23 # INC HL
319B 23 # INC HL
319C 5E ^ LD E,(HL)
319D 16 00 .. LD D,00
319F 7B { LD A,E
31A0 3C < INC A
31A1 C2 03 2D ..- JP NZ,2D03
31A4 2C , INC L
31A5 C3 00 2D ..- JP 2D00 ;--------------- CODE ------------
31A8 CD 8D 46 ..F CALL 468D
31AB 11 FF FF ... LD DE,FFFF ; Wenn Laenge <> 1 ==> -1
31AE FE 01 .. CP 01
31B0 C2 03 2D ..- JP NZ,2D03
31B3 5E ^ LD E,(HL) ; sonst erstes Zeichen
31B4 16 00 .. LD D,00
31B6 C3 03 2D ..- JP 2D03 ;-------------- ENCODE -----------
31B9 CD 13 43 ..C CALL 4313
31BC 1E 01 .. LD E,01 ; Laenge 1
31BE 56 V LD D,(HL)
31BF C3 D8 30 ..0 JP 30D8 ;-------------- TSUB -------------
31C2 CD 2C 47 .,G CALL 472C
31C5 C3 D4 30 ..0 JP 30D4 ;------------- subtext 1 ---------
31C8 CD 89 47 ..G CALL 4789
31CB C3 D0 30 ..0 JP 30D0 ;------------- subtext 2 ---------
31CE CD 95 47 ..G CALL 4795
31D1 C3 D0 30 ..0 JP 30D0 ;------------- CAT ---------------
31D4 CD B8 43 ..C CALL 43B8
31D7 ED 53 CE 41 .S.A LD (41CE),DE
31DB E5 . PUSH HL
31DC CD 8D 46 ..F CALL 468D
31DF 2D - DEC L
31E0 7E ~ LD A,(HL)
31E1 32 D2 41 2.A LD (41D2),A
31E4 E3 . EX (SP),HL
31E5 D5 . PUSH DE
31E6 ED 5B CE 41 .[.A LD DE,(41CE)
31EA CD AD 47 ..G CALL 47AD
31ED ED 53 40 4B .S@K LD (4B40),DE
31F1 E3 . EX (SP),HL
31F2 EB . EX DE,HL
31F3 B7 . OR A
31F4 ED 5A .Z ADC HL,DE
31F6 FA 26 32 .&2 JP M,3226
31F9 22 CC 41 ".A LD (41CC),HL
31FC EB . EX DE,HL
31FD E3 . EX (SP),HL
31FE CD AD 48 ..H CALL 48AD
3201 38 28 8( JR C,322B
3203 ED 5B 40 4B .[@K LD DE,(4B40)
3207 CD 0D 45 ..E CALL 450D
320A EB . EX DE,HL
320B C1 . POP BC
320C E1 . POP HL
320D 3A D2 41 :.A LD A,(41D2)
3210 BE . CP (HL)
3211 C2 26 29 .&) JP NZ,2926
3214 2C , INC L
3215 CD B0 2C .., CALL 2CB0
3218 ED 5B CC 41 .[.A LD DE,(41CC)
321C CD 92 48 ..H CALL 4892
321F ED 4B D0 41 .K.A LD BC,(41D0)
3223 C3 A7 2A ..* JP 2AA7
3226 3E 07 >. LD A,07
3228 CD 0D 3D ..= CALL 3D0D
322B C1 . POP BC
322C E1 . POP HL
322D 18 F0 .. JR 321F ;------------ replace text -------
322F CD AA 47 ..G CALL 47AA
3232 ED 4B D0 41 .K.A LD BC,(41D0)
3236 E5 . PUSH HL
3237 CD A8 2C .., CALL 2CA8
323A EB . EX DE,HL
323B 1B . DEC DE
323C B7 . OR A
323D ED 52 .R SBC HL,DE
323F 38 21 8! JR C,3262
3241 E3 . EX (SP),HL
3242 CD 0D 45 ..E CALL 450D
3245 E3 . EX (SP),HL
3246 E5 . PUSH HL
3247 CD 8D 46 ..F CALL 468D
324A ED 43 D0 41 .C.A LD (41D0),BC
324E C1 . POP BC
324F 79 y LD A,C
3250 93 . SUB E
3251 78 x LD A,B
3252 9A . SBC D
3253 38 02 8. JR C,3257
3255 4B K LD C,E
3256 42 B LD B,D
3257 D1 . POP DE
3258 CD B0 2C .., CALL 2CB0
325B ED 4B D0 41 .K.A LD BC,(41D0)
#25F C3 A7 2A ..* JP 2AA7
3262 E1 . POP HL
3263 18 FA .. JR 325F
3265 CD 8D 46 ..F CALL 468D
3268 E3 . EX (SP),HL
3269 D5 . PUSH DE
326A E5 . PUSH HL
326B CD DD 46 ..F CALL 46DD
326E 7E ~ LD A,(HL)
326F 32 D4 41 2.A LD (41D4),A
3272 22 D8 41 ".A LD (41D8),HL
3275 3A 8A 46 :.F LD A,(468A)
3278 32 DA 41 2.A LD (41DA),A
327B 1B . DEC DE
327C ED 53 D6 41 .S.A LD (41D6),DE
3280 C9 . RET ;------------ pos 1 --------------
3281 CD 65 32 .e2 CALL 3265
3284 11 01 00 ... LD DE,0001
3287 18 1E .. JR 32A7 ;----------- pos 2 ---------------
3289 CD 65 32 .e2 CALL 3265
328C CD A8 2C .., CALL 2CA8
328F EB . EX DE,HL
3290 18 15 .. JR 32A7 ;------------- pos 3 -------------
3292 CD 65 32 .e2 CALL 3265
3295 CD A8 2C .., CALL 2CA8
3298 EB . EX DE,HL
3299 CD A8 2C .., CALL 2CA8
329C EB . EX DE,HL
329D E3 . EX (SP),HL
329E 7B { LD A,E
329F 95 . SUB L
32A0 7A z LD A,D
32A1 9C . SBC H
32A2 30 01 0. JR NC,32A5
32A4 EB . EX DE,HL
32A5 E3 . EX (SP),HL
32A6 EB . EX DE,HL
32A7 CD 64 43 .dC CALL 4364
32AA 22 CC 41 ".A LD (41CC),HL
32AD ED 43 D0 41 .C.A LD (41D0),BC
32B1 C1 . POP BC
32B2 2A D6 41 *.A LD HL,(41D6)
32B5 24 $ INC H
32B6 25 % DEC H
32B7 20 3B ; JR NZ,32F4
32B9 79 y LD A,C
32BA 95 . SUB L
32BB 4F O LD C,A
32BC 78 x LD A,B
32BD 9C . SBC H
32BE 47 G LD B,A
32BF E1 . POP HL
32C0 38 33 83 JR C,32F5
32C2 CD 1D 46 ..F CALL 461D
32C5 38 2E 8. JR C,32F5
32C7 CD 44 45 .DE CALL 4544
32CA 28 29 () JR Z,32F5
32CC F5 . PUSH AF
32CD 3A D4 41 :.A LD A,(41D4)
32D0 ED B1 .. CPIR
32D2 CC FA 32 ..2 CALL Z,32FA
32D5 28 0C (. JR Z,32E3
32D7 78 x LD A,B
32D8 B1 . OR C
32D9 20 F2 . JR NZ,32CD
32DB F1 . POP AF
32DC 30 17 0. JR NC,32F5
32DE CD C1 45 ..E CALL 45C1
32E1 18 E4 .. JR 32C7
32E3 F1 . POP AF
32E4 CD 33 46 .3F CALL 4633
32E7 ED 4B D0 41 .K.A LD BC,(41D0)
32EB 2A CC 41 *.A LD HL,(41CC)
32EE 73 s LD (HL),E
32EF 2C , INC L
32F0 72 r LD (HL),D
32F1 C3 A7 2A ..* JP 2AA7
32F4 E1 . POP HL
32F5 11 00 00 ... LD DE,0000
32F8 18 ED .. JR 32E7
32FA 3A D6 41 :.A LD A,(41D6)
32FD B7 . OR A
32FE C8 . RET Z
32FF C5 . PUSH BC
3300 03 . INC BC
3301 CD F1 45 ..E CALL 45F1
3304 ED 5B 85 46 .[.F LD DE,(4685)
3308 D5 . PUSH DE
3309 E5 . PUSH HL
330A 3A D6 41 :.A LD A,(41D6)
330D 47 G LD B,A
330E 2B + DEC HL
330F ED 5B D8 41 .[.A LD DE,(41D8)
3313 3A DA 41 :.A LD A,(41DA)
3316 32 8A 46 2.F LD (468A),A
3319 2C , INC L
331A 20 07 . JR NZ,3323
331C FD 21 85 46 .!.F LD IY,4685
3320 CD 1B 45 ..E CALL 451B
3323 1C . INC E
3324 20 09 . JR NZ,332F
3326 FD 21 89 46 .!.F LD IY,4689
332A EB . EX DE,HL
332B CD 1B 45 ..E CALL 451B
332E EB . EX DE,HL
332F 1A . LD A,(DE)
3330 BE . CP (HL)
3331 20 02 . JR NZ,3335
3333 10 E4 .. DJNZ 3319
3335 F5 . PUSH AF
3336 CD 12 46 ..F CALL 4612
3339 F1 . POP AF
333A E1 . POP HL
333B D1 . POP DE
333C C1 . POP BC
333D ED 53 85 46 .S.F LD (4685),DE
3341 C9 . RET ;------------ pos high low -------
3342 CD 8D 46 ..F CALL 468D
3345 D5 . PUSH DE
3346 E5 . PUSH HL
3347 CD 13 43 ..C CALL 4313
334A 23 # INC HL
334B 23 # INC HL
334C 23 # INC HL
334D 5E ^ LD E,(HL)
334E CD 13 43 ..C CALL 4313
3351 23 # INC HL
3352 23 # INC HL
3353 23 # INC HL
3354 56 V LD D,(HL)
3355 ED 53 D4 41 .S.A LD (41D4),DE
3359 CD A8 2C .., CALL 2CA8
335C E5 . PUSH HL
335D CD 64 43 .dC CALL 4364
3360 22 CC 41 ".A LD (41CC),HL
3363 ED 43 D0 41 .C.A LD (41D0),BC
3367 D1 . POP DE
3368 E1 . POP HL
3369 C1 . POP BC
336A CD 1D 46 ..F CALL 461D
336D DA F5 32 ..2 JP C,32F5
3370 CD 44 45 .DE CALL 4544
3373 CA F5 32 ..2 JP Z,32F5
3376 F5 . PUSH AF
3377 ED 5B D4 41 .[.A LD DE,(41D4)
337B 0B . DEC BC
337C 7A z LD A,D
337D BE . CP (HL)
337E 38 05 8. JR C,3385
3380 7E ~ LD A,(HL)
3381 BB . CP E
3382 D2 E3 32 ..2 JP NC,32E3
3385 23 # INC HL
3386 78 x LD A,B
3387 B1 . OR C
3388 20 F1 . JR NZ,337B
338A F1 . POP AF
338B D2 F5 32 ..2 JP NC,32F5
338E CD C1 45 ..E CALL 45C1
3391 18 DD .. JR 3370 ;------------- stranalyze ---------
3393 CD B8 43 ..C CALL 43B8 ; REF-Addr vom Stack (HL,DE)
3396 FD 21 89 46 .!.F LD IY,4689
339A FD 72 03 .r. LD (IY+03),D ; Dataspace
339D 7B { LD A,E ; Segment
339E CD CA 44 ..D CALL 44CA ; Block holen HL = Speicheraddr
33A1 CB 3C .< SLR H ; --> Wordaddr konvertieren
33A3 CB 1D .. RR L
33A5 22 DB 41 ".A LD (41DB),HL ; Block 1 Wortaddr
33A8 29 ) ADD HL,HL ; --> Byteaddr konv.
33A9 11 FE 01 ... LD DE,01FE ; Ende des Blocks auch lesen
33AC CD 0D 45 ..E CALL 450D ; (schlimmstenfalls also 2 Bloecke)
33AF CB 3C .< SLR H ; 2. Block Wortaddr
33B1 CB 1D .. RR L
33B3 22 DD 41 ".A LD (41DD),HL ; Block 2 Wortaddr
33B6 CD 64 43 .dC CALL 4364 ; Addresse d.INT VAR summe holen
33B9 22 DF 41 ".A LD (41DF),HL
33BC CD A8 2C .., CALL 2CA8 ; INT CONST maxbreite holen
33BF 22 E1 41 ".A LD (41E1),HL
33C2 CD 8D 46 ..F CALL 468D ; TEXT CONST zeile holen
33C5 E5 . PUSH HL
33C6 CD 64 43 .dC CALL 4364 ; INT VAR pos holen
33C9 E5 . PUSH HL
33CA CD A8 2C .., CALL 2CA8 ; INT CONST to-pos holen
33CD 7B { LD A,E
33CE 95 . SUB L
33CF 7A z LD A,D ; falls to < from beide vertauschen
33D0 9C . SBC H
33D1 38 01 8. JR C,33D4
33D3 EB . EX DE,HL
33D4 CD 64 43 .dC CALL 4364 ; INT VAR exit addr holen
33D7 22 E3 41 ".A LD (41E3),HL ; exit addresse
33DA ED 43 D0 41 .C.A LD (41D0),BC ; BC retten
33DE 42 B LD B,D ; BC := to pos
33DF 4B K LD C,E
33E0 E1 . POP HL ; pos addresse
33E1 22 CC 41 ".A LD (41CC),HL
33E4 5E ^ LD E,(HL) ; poswert holen --> DE
33E5 2C , INC L
33E6 56 V LD D,(HL)
33E7 E1 . POP HL ; TEXT zeile
33E8 CD 1D 46 ..F CALL 461D ; TEXT Zugriff
33EB DA 56 34 .V4 JP C,3456 ; Fehlerausgang
33EE CD 44 45 .DE CALL 4544 ; Zeichenaddr (Text SUB pos)--> HL
33F1 CA 56 34 .V4 JP Z,3456 ; Fehlerausgang, wenn > TEXT-Laenge
33F4 F5 . PUSH AF ; Flag (C) merken
33F5 DD CB 07 5E ...^ BIT 3,(IX+07) ; Extension-Bit (Skip next char)
33F9 20 4D M JR NZ,3448 ; Res BIT 3 und bernaechstes zeichen
33FB 7E ~ LD A,(HL) ; A = ROW-Offset (Code)
33FC E5 . PUSH HL
33FD 2A DB 41 *.A LD HL,(41DB) ; Block 1 Wortaddr
3400 85 . ADD L
3401 30 03 0. JR NC,3406
3403 2A DD 41 *.A LD HL,(41DD) ; Block 2 Wortaddr
3406 6F o LD L,A
3407 29 ) ADD HL,HL
3408 5E ^ LD E,(HL) ; DE := tabelle(A)
3409 2C , INC L
340A 56 V LD D,(HL)
340B ED 53 CE 41 .S.A LD (41CE),DE ; fuer exit merken
340F CB 7A .z BIT 7,D
3411 28 06 (. JR Z,3419 ; < 0 : Extensionchar (Skip next)
3413 CB BA .. RES 7,D ; Fr Summierung positiv machen
3415 DD CB 07 DE .... SET 3,(IX+07) ; merken, dass DE negativ war
3419 2A DF 41 *.A LD HL,(41DF) ; Addresse von 'summe'
341C 7E ~ LD A,(HL) ; DE INCR summe
341D 83 . ADD E
3477 C3 06 2D ..- JP 2D06 ;---------- task heapsize ---------
347A 3A CB 41 :.A LD A,(41CB) ; heaptop DIV 4 +1
347D CB 3F .? SLR A
347F CB 3F .? SLR A
3481 3C < INC A
3482 5F _ LD E,A
3483 16 00 .. LD D,00
3485 C3 03 2D ..- JP 2D03 ;----------- collect heap garbage -
3488 79 y LD A,C ; pbase ?
3489 08 . EX AF,AF'
348A C3 33 4A .3J JP 4A33 ;----------- replace int ---------
348D 3E 01 >. LD A,01 ; 1 Wort
348F 18 02 .. JR 3493 ;----------- replace real -------
3491 3E 07 >. LD A,07 ; 7 Woerter
3493 32 D2 41 2.A LD (41D2),A
3496 CD AA 47 ..G CALL 47AA
3499 ED 4B D0 41 .K.A LD BC,(41D0)
349D 18 0C .. JR 34AB ;-------------- ISUB -------------
349F 3E 01 >. LD A,01
34A1 18 02 .. JR 34A5 ;------------- RSUB --------------
34A3 3E 07 >. LD A,07
34A5 32 D2 41 2.A LD (41D2),A
34A8 CD 8D 46 ..F CALL 468D
34AB E5 . PUSH HL
34AC CD A8 2C .., CALL 2CA8
34AF 2B + DEC HL
34B0 CB 7C .| BIT 7,H
34B2 C4 D9 3C ..< CALL NZ,3CD9
34B5 29 ) ADD HL,HL
34B6 3A D2 41 :.A LD A,(41D2)
34B9 FE 01 .. CP 01
34BB 28 02 (. JR Z,34BF
34BD 29 ) ADD HL,HL
34BE 29 ) ADD HL,HL
34BF B5 . OR L
34C0 93 . SUB E
34C1 7C | LD A,H
34C2 9A . SBC D
34C3 D4 D9 3C ..< CALL NC,3CD9
34C6 EB . EX DE,HL
34C7 E1 . POP HL
34C8 CD 0D 45 ..E CALL 450D
34CB EB . EX DE,HL
34CC FD CB 00 46 ...F BIT 0,(IY+00)
34D0 28 06 (. JR Z,34D8
34D2 CD 64 43 .dC CALL 4364
34D5 EB . EX DE,HL
34D6 18 03 .. JR 34DB
34D8 CD 13 43 ..C CALL 4313
34DB C5 . PUSH BC
34DC 3A D2 41 :.A LD A,(41D2)
34DF 47 G LD B,A
34E0 4F O LD C,A
34E1 D5 . PUSH DE
34E2 11 F3 41 ..A LD DE,41F3
34E5 7E ~ LD A,(HL)
34E6 12 . LD (DE),A
34E7 2C , INC L
34E8 CC 1B 45 ..E CALL Z,451B
34EB 13 . INC DE
34EC 10 F7 .. DJNZ 34E5
34EE 7E ~ LD A,(HL)
34EF 12 . LD (DE),A
34F0 E1 . POP HL
34F1 11 F3 41 ..A LD DE,41F3
34F4 41 A LD B,C
34F5 1A . LD A,(DE)
34F6 77 w LD (HL),A
34F7 2C , INC L
34F8 CC 1B 45 ..E CALL Z,451B
34FB 13 . INC DE
34FC 10 F7 .. DJNZ 34F5
34FE 1A . LD A,(DE)
34FF 77 w LD (HL),A
3500 C1 . POP BC
3501 C3 A7 2A ..* JP 2AA7 ;----------- FMOV MOV8 ------------
3504 CD 1B 43 ..C CALL 431B
3507 7D } LD A,L
3508 E6 F8 .. AND F8
350A 5F _ LD E,A
350B 54 T LD D,H
350C CD 64 43 .dC CALL 4364
350F 7D } LD A,L
3510 E6 F8 .. AND F8
3512 6F o LD L,A
3513 EB . EX DE,HL
3514 C5 . PUSH BC
3515 01 08 00 ... LD BC,0008
3518 F3 . DI
3519 ED B0 .. LDIR
351B FB . EI
351C C1 . POP BC
351D C3 A7 2A ..* JP 2AA7 ;-------------- FADD --------------
3520 FD 21 2C 4F .!,O LD IY,4F2C
3524 CD AF 44 ..D CALL 44AF
3527 EB . EX DE,HL
3528 CD A7 44 ..D CALL 44A7
352B CD 60 4E .`N CALL 4E60
352E 30 DC 0. JR NC,350C
3530 3E 06 >. LD A,06
3532 CD 0D 3D ..= CALL 3D0D
3535 CD 43 44 .CD CALL 4443
3538 C3 A7 2A ..* JP 2AA7 ;------------- FSUB ---------------
353B FD 21 20 4F .! O LD IY,4F20
353F 18 E3 .. JR 3524 ;------------- FMULT --------------
3541 FD 21 E1 4F .!.O LD IY,4FE1
3545 18 DD .. JR 3524 ;------------ FDIV ----------------
3547 FD 21 59 50 .!YP LD IY,5059
354B 18 D7 .. JR 3524 ;------------ FEQU --------------
354D CD A7 44 ..D CALL 44A7
3550 EB . EX DE,HL
3551 CD A7 44 ..D CALL 44A7
3554 CD 83 4E ..N CALL 4E83
3557 C2 84 2E ... JP NZ,2E84
355A C3 71 2E .q. JP 2E71 ;----------- FLSEQ ----------------
355D CD AF 44 ..D CALL 44AF
3560 EB . EX DE,HL
3561 CD A7 44 ..D CALL 44A7
3564 EB . EX DE,HL
3565 CD 83 4E ..N CALL 4E83
3568 DA 84 2E ... JP C,2E84
356B C3 71 2E .q. JP 2E71 ;------------ FCOMPL -------------
356E CD A7 44 ..D CALL 44A7
3571 EB . EX DE,HL
3572 CD B7 44 ..D CALL 44B7
3575 EB . EX DE,HL
3576 CD D2 4E ..N CALL 4ED2
3579 C3 A7 2A ..* JP 2AA7 ;--------------- SLD --------------
357C CD 13 43 ..C CALL 4313
357F 56 V LD D,(HL)
3580 CD B7 44 ..D CALL 44B7
3583 E5 . PUSH HL
3584 CD 64 43 .dC CALL 4364
3587 E3 . EX (SP),HL
3588 97 . SUB A
3589 ED 67 .g RRD
358B 5F _ LD E,A
358C 7A z LD A,D
358D CD 1B 52 ..R CALL 521B
3590 E1 . POP HL
3591 73 s LD (HL),E
3592 2C , INC L
3593 36 00 6. LD (HL),00
3595 C3 A7 2A ..* JP 2AA7 ;------------ decimalexponent ------
3598 CD A7 44 ..D CALL 44A7
359B CD E9 4E ..N CALL 4EE9
359E C3 03 2D ..- JP 2D03 ;------------ setexp --------------
35A1 CD 13 43 ..C CALL 4313
35A4 5E ^ LD E,(HL)
35A5 CD B7 44 ..D CALL 44B7
35A8 CD E0 4E ..N CALL 4EE0
35AB C3 A7 2A ..* JP 2AA7 ;------------- floor --------------
35AE CD A7 44 ..D CALL 44A7
35B1 EB . EX DE,HL
35B2 CD B7 44 ..D CALL 44B7
35B5 EB . EX DE,HL
35B6 CD F6 4E ..N CALL 4EF6
35B9 C3 A7 2A ..* JP 2AA7 ;------------ clock (nr) ----------
35BC CD 13 43 ..C CALL 4313
35BF 7E ~ LD A,(HL)
35C0 E6 07 .. AND 07
35C2 28 0F (. JR Z,35D3 ; clock(0) = Taskclock
35C4 3D = DEC A ; -1
35C5 87 . ADD A ; *8 (REAL)
35C6 87 . ADD A
35C7 87 . ADD A
35C8 6F o LD L,A
35C9 26 00 &. LD H,00
35CB 11 B9 4C ..L LD DE,4CB9 ; 4CB9 = clock (1)
35CE 19 . ADD HL,DE
35CF EB . EX DE,HL
35D0 C3 0C 35 ..5 JP 350C ; Move Real
35D3 ED 5B 1C 6E .[.n LD DE,(6E1C) ; Steht im Leitblock ab 38..3f
35D7 1E 38 .8 LD E,38 ; Move real
35D9 C3 0C 35 ..5 JP 350C ;------------ clock (task) --------
35DC CD C2 3D ..= CALL 3DC2 ; Fremden Leitblock laden
35DF FD E5 .. PUSH IY ; Leitblock addr in IY
35E1 D1 . POP DE
35E2 18 F3 .. JR 35D7 ;----------- setclock task -------
35E4 CD BA 3D ..= CALL 3DBA
35E7 CD 13 43 ..C CALL 4313
35EA FD E5 .. PUSH IY
35EC D1 . POP DE
35ED 1E 38 .8 LD E,38 ; Move Real
35EF C3 14 35 ..5 JP 3514 ;---------- setclock -------------
35F2 DD 7E 1D .~. LD A,(IX+1D) ; priv >= 1
35F5 FE 01 .. CP 01
35F7 DA E6 3C ..< JP C,3CE6 ; privilegierungsfehler
35FA CD A7 44 ..D CALL 44A7 ;
35FD 11 B9 4C ..L LD DE,4CB9
3600 C3 14 35 ..5 JP 3514 ;------------ ACCDS ---------------
3603 CD 1B 43 ..C CALL 431B
3606 CD 11 36 ..6 CALL 3611 ; Test ob DSID > 4
3609 1E 00 .. LD E,00 ; REF-Addr D=DSID, E=0
360B D5 . PUSH DE
360C 21 04 01 !.. LD HL,0104 ; Wortaddresse 4 in Seite 1 i. Start
360F 18 23 .# JR 3634 ;------------ DSID > 4 ? ----------
3611 56 V LD D,(HL)
3612 3E 04 >. LD A,04
3614 BA . CP D
3615 D2 82 38 ..8 JP NC,3882 ; falscher DATASPACE Zugriff
3618 2C , INC L
3619 7E ~ LD A,(HL)
361A DD BE 30 ..0 CP (IX+30)
361D C2 82 38 ..8 JP NZ,3882
3620 C9 . RET ;-------------- REF ---------------
3621 CD C0 43 ..C CALL 43C0 ; Wortaddr holen
3624 D5 . PUSH DE ; Zweiwortaddr auf Stack
3625 18 0D .. JR 3634 ;-------------- SEL ---------------
3627 CD C0 43 ..C CALL 43C0
362A D5 . PUSH DE
362B CD 43 44 .CD CALL 4443 ; Offset holen
362E 19 . ADD HL,DE ; REF:=Base+Offset
362F 30 03 0. JR NC,3634
3631 D1 . POP DE
3632 1C . INC E
3633 D5 . PUSH DE
3634 EB . EX DE,HL ;---------- REF-Adr auf Stack -----
3635 CD 64 43 .dC CALL 4364
3638 73 s LD (HL),E ; 4 Bytes auf Stack
3639 2C , INC L
363A 72 r LD (HL),D
363B 2C , INC L
363C D1 . POP DE
363D 73 s LD (HL),E
363E 2C , INC L
363F 72 r LD (HL),D
3640 C3 A7 2A ..* JP 2AA7 ;------------- SUBS ---------------
3643 67 g LD H,A
3644 E5 . PUSH HL
3645 CD 43 44 .CD CALL 4443
3648 CD 13 43 ..C CALL 4313
364B 7E ~ LD A,(HL)
364C 2C , INC L
364D 66 f LD H,(HL)
364E 6F o LD L,A
364F 2B + DEC HL
3650 7B { LD A,E
3651 95 . SUB L
3652 7A z LD A,D
3653 9C . SBC H
3654 DC D9 3C ..< CALL C,3CD9
3657 EB . EX DE,HL
3658 E1 . POP HL
3659 CD 6D 4D .mM CALL 4D6D
365C DC D9 3C ..< CALL C,3CD9
365F E5 . PUSH HL
3660 F5 . PUSH AF
3661 CD B8 43 ..C CALL 43B8
3664 F1 . POP AF
3665 83 . ADD E
3666 5F _ LD E,A
3667 EB . EX DE,HL
3668 E3 . EX (SP),HL
3669 19 . ADD HL,DE
366A 30 C8 0. JR NC,3634 ; REF-Adr auf Stack
366C 18 C3 .. JR 3631 ;------------ EQUIM --------------
366E EB . EX DE,HL
366F CD 13 43 ..C CALL 4313
3672 7E ~ LD A,(HL)
3673 BB . CP E
3674 C2 84 2E ... JP NZ,2E84 ; Lowbyte vergleichen
3677 2C , INC L
3678 7E ~ LD A,(HL) ; Highbyte muss 0 sein
3679 B7 . OR A
367A C2 84 2E ... JP NZ,2E84
367D C3 71 2E .q. JP 2E71 ;-------------- STIM -------------
3680 EB . EX DE,HL
3681 16 00 .. LD D,00 ; Lowbyte uebernehmen, Highbyte 0
3683 C3 03 2D ..- JP 2D03 ;-------------- MOVEXX -----------
3686 CD 43 44 .CD CALL 4443 ; langer move
3689 D5 . PUSH DE
368A 18 03 .. JR 368F ;-------------- MOVX -------------
368C 26 00 &. LD H,00 ; Highbyte 0
368E E5 . PUSH HL
368F CD B8 43 ..C CALL 43B8 ; laenge holen
3692 FD 21 85 46 .!.F LD IY,4685
3696 FD 36 00 01 .6.. LD (IY+00),01
369A FD 72 03 .r. LD (IY+03),D
369D 7B { LD A,E
369E CD CA 44 ..D CALL 44CA ; from addr holen
36A1 E5 . PUSH HL
36A2 CD B8 43 ..C CALL 43B8
36A5 FD 21 89 46 .!.F LD IY,4689
36A9 FD 36 00 00 .6.. LD (IY+00),00
36AD FD 72 03 .r. LD (IY+03),D
36B0 7B { LD A,E
36B1 CD CA 44 ..D CALL 44CA
36B4 EB . EX DE,HL
36B5 E1 . POP HL
36B6 ED 43 D0 41 .C.A LD (41D0),BC
36BA C1 . POP BC
36BB CB 21 .! SLA C ; Laenge * 2 in Bytes
36BD CB 10 .. RL B
36BF CD B0 2C .., CALL 2CB0
36C2 ED 4B D0 41 .K.A LD BC,(41D0)
36C6 C3 A7 2A ..* JP 2AA7 ;--------------- GW --------------
36C9 CD F9 36 ..6 CALL 36F9 ; segment und oofset
36CC CD 4D 44 .MD CALL 444D ; Wert auf Stack
36CF C3 00 2D ..- JP 2D00 ;-------------- PW ---------------
36D2 CD F9 36 ..6 CALL 36F9 ; segment und offset
36D5 CD 7D 44 .}D CALL 447D
36D8 EB . EX DE,HL
36D9 CD 13 43 ..C CALL 4313
36DC 7E ~ LD A,(HL)
36DD 12 . LD (DE),A ; segment veraendern
36DE 2C , INC L
36DF 1C . INC E
36E0 7E ~ LD A,(HL)
36E1 12 . LD (DE),A
36E2 C3 A7 2A ..* JP 2AA7 ;----------- getword -------------
36E5 CD 13 43 ..C CALL 4313 ; segment (Nur ein Byte)
36E8 5E ^ LD E,(HL)
36E9 CD A8 2C .., CALL 2CA8 ; wortaddr --> HL
36EC 7B { LD A,E ; Seg in A, addr in HL, Wert a.Stack
36ED 18 DD .. JR 36CC ;------------ putword ------------
36EF CD 13 43 ..C CALL 4313
36F2 5E ^ LD E,(HL) ; segment (nur ein byte)
36F3 CD A8 2C .., CALL 2CA8
36F6 7B { LD A,E ; Segment
36F7 18 DC .. JR 36D5 ;--------------------------------
36F9 5D ] LD E,L ; L ist Opcode Byte m. Seg und Offse
36FA CD 13 43 ..C CALL 4313
36FD 7B { LD A,E
36FE 5E ^ LD E,(HL) ; Wortaddr holen
36FF 2C , INC L
3700 56 V LD D,(HL)
3701 67 g LD H,A
3702 E6 0F .. AND 0F ; Low digit = Offset zu Wortaddr
3704 6F o LD L,A
3705 AC . XOR H ; Low DIgit in A = 0
3706 26 00 &. LD H,00
3708 19 . ADD HL,DE
3709 0F . RRCA ; A 0 Segment
370A 0F . RRCA
370B 0F . RRCA
370C 0F . RRCA
370D C9 . RET ;------------- KE ----------------
370E CD 2A 6F .*o CALL 6F2A ; Info " KE"
3711 C3 A7 2A ..* JP 2AA7 ;-------------- SYSGEN ------------
3714 CD 05 53 ..S CALL 5305 ; RET, Keine Aktion
3717 C3 A7 2A ..* JP 2AA7 ;--------------- cout ------------
371A CD 13 43 ..C CALL 4313 ; INT holen
371D 5E ^ LD E,(HL)
371E 2C , INC L
371F 56 V LD D,(HL)
3720 C5 . PUSH BC
3721 CB 7A .z BIT 7,D
3723 20 34 4 JR NZ,3759
3725 DD 7E 26 .~& LD A,(IX+26) ; Am Kanal ?
3728 B7 . OR A
3729 28 2E (. JR Z,3759 ; Nur fuer positive Zahlen
372B CD 59 1E .Y. CALL 1E59
372E FE 1E .. CP 1E ; Kanal genuegend frei
3730 38 27 8' JR C,3759
3732 21 20 20 ! LD HL,2020
3735 22 E9 41 ".A LD (41E9),HL
3738 22 EB 41 ".A LD (41EB),HL ; Puffer loeschen
373B 21 E8 41 !.A LD HL,41E8
373E CD 00 4E ..N CALL 4E00 ; Konvertieren
3741 21 E7 41 !.A LD HL,41E7
3744 01 0C 00 ... LD BC,000C ; Stringlaenge 12
3747 59 Y LD E,C
3748 DD 7E 26 .~& LD A,(IX+26) ; immer noch frei ?
374B B7 . OR A
374C 28 0B (. JR Z,3759
374E CD 88 21 ..! CALL 2188 ; OUTPUT
3751 38 06 8. JR C,3759
3753 09 . ADD HL,BC
3754 7B { LD A,E
3755 91 . SUB C
3756 4F O LD C,A
3757 18 EE .. JR 3747
3759 C1 . POP BC
375A C3 A7 2A ..* JP 2AA7 ;------------ outsubtext 1 --------
375D CD 89 47 ..G CALL 4789
3760 18 08 .. JR 376A ;------------ outsubtext 2 --------
3762 CD 95 47 ..G CALL 4795
3765 18 03 .. JR 376A ;--------------- out --------------
3767 CD 8D 46 ..F CALL 468D
376A C5 . PUSH BC
376B 42 B LD B,D
376C 4B K LD C,E
376D CD 44 45 .DE CALL 4544
3770 28 16 (. JR Z,3788
3772 F5 . PUSH AF
3773 50 P LD D,B
3774 59 Y LD E,C
3775 DD 7E 26 .~& LD A,(IX+26)
3778 B7 . OR A
3779 28 11 (. JR Z,378C
377B CD 88 21 ..! CALL 2188 ; OUTPUT
377E 30 0F 0. JR NC,378F
3780 F1 . POP AF
3781 30 05 0. JR NC,3788
3783 CD C1 45 ..E CALL 45C1
3786 18 E5 .. JR 376D
3788 C1 . POP BC
3789 C3 A7 2A ..* JP 2AA7
378C 01 00 00 ... LD BC,0000
378F F1 . POP AF
3790 7B { LD A,E
3791 91 . SUB C
3792 4F O LD C,A
3793 7A z LD A,D
3794 98 . SBC B
3795 47 G LD B,A
3796 CD F1 45 ..E CALL 45F1
3799 3E 44 >D LD A,44
379B C3 23 29 .#) JP 2923 ;-------------- inchar ------------
379E CD 64 43 .dC CALL 4364
37A1 2C , INC L
37A2 2C , INC L
37A3 DD 7E 26 .~& LD A,(IX+26) ; AM Kanal ?
37A6 B7 . OR A
37A7 28 05 (. JR Z,37AE
37A9 CD 06 1F ... CALL 1F06 ; incharety
37AC 30 05 0. JR NC,37B3
37AE 3E 48 >H LD A,48 ; Status: Auf Taste warten
37B0 C3 23 29 .#) JP 2923
37B3 36 01 6. LD (HL),01 ; Text der laenge 1
37B5 2C , INC L
37B6 77 w LD (HL),A
37B7 CD 29 4C .)L CALL 4C29
37BA C3 A7 2A ..* JP 2AA7 ;------------- incharety ---------
37BD CD 64 43 .dC CALL 4364
37C0 2C , INC L
37C1 2C , INC L
37C2 DD 7E 26 .~& LD A,(IX+26)
37C5 B7 . OR A
37C6 28 05 (. JR Z,37CD
37C8 CD 06 1F ... CALL 1F06
37CB 30 E6 0. JR NC,37B3 ; Text der laenge 1
37CD 97 . SUB A ; Niltext
37CE 77 w LD (HL),A
37CF 2C , INC L
37D0 77 w LD (HL),A
37D1 C3 A7 2A ..* JP 2AA7 ;-------------- pause ------------
37D4 CD A8 2C .., CALL 2CA8
37D7 DD 7E 26 .~& LD A,(IX+26)
37DA B7 . OR A
37DB 28 06 (. JR Z,37E3
37DD CD AD 1E ... CALL 1EAD ; Taste gedrueckt ?
37E0 D2 A7 2A ..* JP NC,2AA7
37E3 ED 5B F1 4C .[.L LD DE,(4CF1)
37E7 19 . ADD HL,DE
37E8 DD 75 0C .u. LD (IX+0C),L ; modi := time
37EB DD 74 0D .t. LD (IX+0D),H
37EE 79 y LD A,C
37EF 08 . EX AF,AF'
37F0 3E 4C >L LD A,4C ; Status: pause
37F2 C3 23 29 .#) JP 2923 ;------------ getcursor -----------
37F5 C5 . PUSH BC
37F6 DD 7E 26 .~& LD A,(IX+26)
37F9 B7 . OR A
37FA C4 85 1E ... CALL NZ,1E85 ; getcursor --> BC
37FD 59 Y LD E,C
37FE 50 P LD D,B
37FF C1 . POP BC ; icount
3800 DA 26 29 .&) JP C,2926
3803 1C . INC E ; x+1 , y+1
3804 14 . INC D
3805 CD 64 43 .dC CALL 4364 ; Zwei Werte (wie REF-Adr) auf Stack
3808 72 r LD (HL),D ; Beide Highbytes 0
3809 16 00 .. LD D,00
380B 2C , INC L
380C 72 r LD (HL),D
380D C3 03 2D ..- JP 2D03 ;------------ catinput ------------
3810 CD B8 43 ..C CALL 43B8
3813 E5 . PUSH HL
3814 D5 . PUSH DE
3815 CD 64 43 .dC CALL 4364
3818 2C , INC L
3819 2C , INC L
381A 22 CC 41 ".A LD (41CC),HL
381D 97 . SUB A
381E 77 w LD (HL),A
381F 2C , INC L
3820 77 w LD (HL),A
3821 DD 7E 26 .~& LD A,(IX+26)
3824 B7 . OR A
3825 28 44 (D JR Z,386B
3827 D1 . POP DE
3828 E1 . POP HL
3829 E5 . PUSH HL
382A D5 . PUSH DE
382B CD AD 47 ..G CALL 47AD
382E ED 53 40 4B .S@K LD (4B40),DE
3832 D5 . PUSH DE
3833 13 . INC DE
3834 CD AD 48 ..H CALL 48AD
3837 D1 . POP DE
3838 38 2A 8* JR C,3864
383A CD 1D 4A ..J CALL 4A1D
383D CD 0D 45 ..E CALL 450D
3840 DD 7E 26 .~& LD A,(IX+26)
3843 CD 06 1F ... CALL 1F06 ; incharety
3846 38 1C 8. JR C,3864
3848 FE 20 . CP 20
384A 38 11 8. JR C,385D ; < Blank ?
384C 77 w LD (HL),A
384D 13 . INC DE
384E 2C , INC L
384F 7D } LD A,L ; alle 8 Zeichen unterbrechen
3850 E6 07 .. AND 07
3852 20 EC . JR NZ,3840
3854 CD 92 48 ..H CALL 4892
3857 ED 4B D0 41 .K.A LD BC,(41D0)
385B 18 CA .. JR 3827 ; nochmal von vorne
385D 2A CC 41 *.A LD HL,(41CC)
3860 36 01 6. LD (HL),01 ; Text der Laenge 1 = escchar
3862 2C , INC L
3863 77 w LD (HL),A
3864 CD 92 48 ..H CALL 4892 ; Kein Zeichen mehr: CAT...
3867 ED 4B D0 41 .K.A LD BC,(41D0)
386B D1 . POP DE
386C E1 . POP HL
386D C3 A7 2A ..* JP 2AA7 ;------ korrekte DSID in HL ?-----
3870 DD 7E 30 .~0 LD A,(IX+30) ; eigener Taskindex
3873 BC . CP H
3874 20 0C . JR NZ,3882
3876 7D } LD A,L ; DSnr > 4
3877 FE 05 .. CP 05
3879 38 07 8. JR C,3882
387B C5 . PUSH BC
387C 4D M LD C,L ; exists (ds) ?
387D CD 77 69 .wi CALL 6977
3880 C1 . POP BC
3881 D0 . RET NC
3882 3E 0B >. LD A,0B ; alias error
3884 CD 0D 3D ..= CALL 3D0D
3887 21 05 00 !.. LD HL,0005 ; Errorspace mit eienem Index
388A 55 U LD D,L
388B 37 7 SCF
388C C9 . RET ;---------------------------------
388D 55 U LD D,L
388E 1E 00 .. LD E,00
3890 21 02 01 !.. LD HL,0102
3893 CD 5C 65 .\e CALL 655C
3896 0F . RRCA
3897 67 g LD H,A
3898 29 ) ADD HL,HL
3899 C9 . RET ;------------ ALIAS --------------
389A CD 43 44 .CD CALL 4443 ; DSID holen
389D 21 0B 01 !.. LD HL,010B
38A0 19 . ADD HL,DE
38A1 38 0A 8. JR C,38AD
38A3 7D } LD A,L
38A4 E6 F8 .. AND F8
38A6 6F o LD L,A
38A7 29 ) ADD HL,HL
38A8 30 01 0. JR NC,38AB
38AA 2C , INC L
38AB 18 03 .. JR 38B0
38AD 21 04 00 !.. LD HL,0004
38B0 22 CC 41 ".A LD (41CC),HL
38B3 CD A8 2C .., CALL 2CA8
38B6 CD 70 38 .p8 CALL 3870
38B9 E5 . PUSH HL
38BA CD 8D 38 ..8 CALL 388D
38BD 2D - DEC L
38BE 2D - DEC L
38BF 7E ~ LD A,(HL)
38C0 3C < INC A
38C1 20 1E . JR NZ,38E1
38C3 21 00 01 !.. LD HL,0100
38C6 CD 2C 66 .,f CALL 662C
38C9 0F . RRCA
38CA 67 g LD H,A
38CB 29 ) ADD HL,HL
38CC ED 5B CC 41 .[.A LD DE,(41CC) ; Liefert REF-Addr
38D0 73 s LD (HL),E
38D1 2C , INC L
38D2 72 r LD (HL),D
38D3 2C , INC L
38D4 73 s LD (HL),E
38D5 2C , INC L
38D6 72 r LD (HL),D
38D7 2C , INC L
38D8 CB 7E .~ BIT 7,(HL)
38DA 28 05 (. JR Z,38E1
38DC 36 00 6. LD (HL),00
38DE 2C , INC L
38DF 36 00 6. LD (HL),00
38E1 D1 . POP DE
38E2 C3 03 2D ..- JP 2D03 ;---------- nilspace -------------
38E5 11 00 00 ... LD DE,0000
38E8 C3 03 2D ..- JP 2D03 ;----------- dscopy := -----------
38EB CD 64 43 .dC CALL 4364 ; dest adr holen
38EE E5 . PUSH HL
38EF CD A8 2C .., CALL 2CA8
38F2 7C | LD A,H
38F3 B5 . OR L
38F4 C4 70 38 .p8 CALL NZ,3870 ; source <> nilspace
38F7 EB . EX DE,HL
38F8 38 0F 8. JR C,3909
38FA C5 . PUSH BC
38FB DD 46 30 .F0 LD B,(IX+30) ; eigener taskindex
38FE 4B K LD C,E
38FF 50 P LD D,B
3900 CD E8 68 ..h CALL 68E8 ;
3903 C1 . POP BC
3904 1C . INC E ; Anzahl Dataspaces
3905 1D . DEC E
3906 CC 10 39 ..9 CALL Z,3910 ; errorstop durhfuehren als SBRT.
3909 E1 . POP HL
390A 73 s LD (HL),E
390B 2C , INC L
390C 72 r LD (HL),D
390D C3 A7 2A ..* JP 2AA7
3910 3E 08 >. LD A,08 ; errorstop zuviele DS
3912 CD 0D 3D ..= CALL 3D0D
3915 11 05 00 ... LD DE,0005 ; result ist errorspace
3918 C9 . RET ;------------- forget ------------
3919 CD 64 43 .dC CALL 4364
391C C5 . PUSH BC
391D 5E ^ LD E,(HL)
391E 2C , INC L
391F 56 V LD D,(HL)
3920 EB . EX DE,HL
3921 3E 05 >. LD A,05 ; Nur ds > 4 loeschen
3923 BD . CP L
3924 30 17 0. JR NC,393D
3926 CB 7C .| BIT 7,H
3928 28 06 (. JR Z,3930
392A 7D } LD A,L
392B 84 . ADD H
392C 20 0F . JR NZ,393D
392E 18 06 .. JR 3936
3930 DD 7E 30 .~0 LD A,(IX+30)
3933 BC . CP H
3934 20 07 . JR NZ,393D
3936 4D M LD C,L
3937 CD 77 69 .wi CALL 6977
393A D4 97 69 ..i CALL NC,6997
393D EB . EX DE,HL
393E 36 00 6. LD (HL),00 ; ergebnis 01 DS
3940 2D - DEC L
3941 36 01 6. LD (HL),01
3943 C1 . POP BC
3944 C3 A7 2A ..* JP 2AA7 ;------------- settype -----------
3947 CD A8 2C .., CALL 2CA8
394A EB . EX DE,HL
394B CD A8 2C .., CALL 2CA8
394E EB . EX DE,HL
394F CD 70 38 .p8 CALL 3870
3952 38 11 8. JR C,3965
3954 D5 . PUSH DE
3955 55 U LD D,L
3956 1E 00 .. LD E,00
3958 21 02 01 !.. LD HL,0102
395B CD 2C 66 .,f CALL 662C
395E 0F . RRCA
395F 67 g LD H,A
3960 29 ) ADD HL,HL
3961 D1 . POP DE
3962 73 s LD (HL),E ; type im ds ersetzen
3963 2C , INC L
3964 72 r LD (HL),D
3965 C3 A7 2A ..* JP 2AA7 ;------------- gettype ------------
3968 CD A8 2C .., CALL 2CA8
396B CD 70 38 .p8 CALL 3870
396E 38 06 8. JR C,3976
3970 CD 8D 38 ..8 CALL 388D
3973 5E ^ LD E,(HL)
3974 2C , INC L
3975 56 V LD D,(HL)
3976 C3 03 2D ..- JP 2D03 ;------------ heapsize ------------
3979 CD A8 2C .., CALL 2CA8
397C CD 70 38 .p8 CALL 3870
397F 38 F5 8. JR C,3976
3981 CD 8D 38 ..8 CALL 388D
3984 2E 00 .. LD L,00
3986 7E ~ LD A,(HL)
3987 E6 0F .. AND 0F
3989 2C , INC L
398A 5E ^ LD E,(HL)
398B 0F . RRCA
398C CB 1B .. RR E
398E 0F . RRCA
398F CB 1B .. RR E
3991 E6 03 .. AND 03
3993 57 W LD D,A
3994 C3 03 2D ..- JP 2D03 ;------------ pages task ----------
3997 CD 13 43 ..C CALL 4313
399A 5E ^ LD E,(HL)
399B CD 13 43 ..C CALL 4313
399E 56 V LD D,(HL)
399F CD 7D 6A .}j CALL 6A7D
39A2 C3 03 2D ..- JP 2D03 ;---- Parameter fuer blockin/out---
39A5 CD 13 43 ..C CALL 4313 ; DSnr
39A8 CD 11 36 ..6 CALL 3611
39AB CD A8 2C .., CALL 2CA8 ; page --> HL
39AE 5C \ LD E,H
39AF 65 e LD H,L
39B0 2E 00 .. LD L,00
39B2 C9 . RET ;----------------- blockout -------
39B3 CD A5 39 ..9 CALL 39A5
39B6 CD 5C 65 .\e CALL 655C
39B9 67 g LD H,A
39BA EB . EX DE,HL
39BB CD A8 2C .., CALL 2CA8 ; code1 --> HL
39BE E5 . PUSH HL
39BF CD A8 2C .., CALL 2CA8 ; code2 --> HL
39C2 E5 . PUSH HL
39C3 CD 64 43 .dC CALL 4364 ; result addr
39C6 ED 43 D0 41 .C.A LD (41D0),BC
39CA C1 . POP BC
39CB E3 . EX (SP),HL
39CC DD 7E 26 .~& LD A,(IX+26)
39CF B7 . OR A
39D0 28 05 (. JR Z,39D7 ; Kanal > 0 sein
39D2 CD 2A 26 .*& CALL 262A
39D5 18 03 .. JR 39DA
39D7 01 FF FF ... LD BC,FFFF ; Nicht fuer HG
39DA E1 . POP HL ; result liefern
39DB 71 q LD (HL),C
39DC 2C , INC L
39DD 70 p LD (HL),B
39DE ED 4B D0 41 .K.A LD BC,(41D0)
39E2 C3 A7 2A ..* JP 2AA7 ;------------ blockin -------------
39E5 CD A5 39 ..9 CALL 39A5
39E8 CD 2C 66 .,f CALL 662C
39EB 67 g LD H,A
39EC EB . EX DE,HL
39ED CD A8 2C .., CALL 2CA8
39F0 E5 . PUSH HL
39F1 CD A8 2C .., CALL 2CA8
39F4 E5 . PUSH HL
39F5 CD 64 43 .dC CALL 4364
39F8 ED 43 D0 41 .C.A LD (41D0),BC
39FC C1 . POP BC
39FD E3 . EX (SP),HL
39FE DD 7E 26 .~& LD A,(IX+26)
3A01 B7 . OR A
3A02 28 D3 (. JR Z,39D7
3A04 CD 56 25 .V% CALL 2556
3A07 18 D1 .. JR 39DA ;------------ control -------------
3A09 CD A8 2C .., CALL 2CA8 ; funktion
3A0C EB . EX DE,HL
3A0D CD A8 2C .., CALL 2CA8 ; code1
3A10 E5 . PUSH HL
3A11 CD A8 2C .., CALL 2CA8 ; code2
3A14 E5 . PUSH HL
3A15 CD 64 43 .dC CALL 4364 ; result
3A18 ED 43 D0 41 .C.A LD (41D0),BC ; DE = Funktion
3A1C C1 . POP BC ; BC = Code 2
3A1D E3 . EX (SP),HL ; HL = Code 1
3A1E 7B { LD A,E ; funktion=10 (calendar)
3A1F D6 0A .. SUB A,0A
3A21 B2 . OR D
3A22 28 0B (. JR Z,3A2F
3A24 DD 7E 26 .~& LD A,(IX+26)
3A27 B7 . OR A
3A28 28 AD (. JR Z,39D7
3A2A CD 56 24 .V$ CALL 2456 ; IOCONTROL
3A2D 18 AB .. JR 39DA ; result in BC uebertragen
3A2F 3A 6B 28 :k( LD A,(286B) ; control (10,..)
3A32 FE 08 .. CP 08 ; shard >= 8?
3A34 30 F4 0. JR NC,3A2A ; nein:
3A36 01 FF FF ... LD BC,FFFF ; result -1
3A39 18 9F .. JR 39DA ;-------------- nextdspage --------
3A3B CD 13 43 ..C CALL 4313 ; dsnr holen
3A3E CD 11 36 ..6 CALL 3611 ; test, gueltigen ds
3A41 CD A8 2C .., CALL 2CA8 ; page holen
3A44 CD 5B 6A .[j CALL 6A5B ; nextdspage
3A47 EB . EX DE,HL
3A48 C3 03 2D ..- JP 2D03 ; nextpage auf stack
3A4B CB 7E .~ BIT 7,(HL)
3A4D 28 04 (. JR Z,3A53
3A4F CB BE .. RES 7,(HL)
3A51 B7 . OR A
3A52 C9 . RET
3A53 1C . INC E
3A54 2D - DEC L
3A55 34 4 INC (HL)
3A56 20 03 . JR NZ,3A5B
3A58 2C , INC L
3A59 34 4 INC (HL)
3A5A 2D - DEC L
3A5B 2C , INC L
3A5C CB FE .. SET 7,(HL)
3A5E 37 7 SCF
3A5F C9 . RET
3A60 CB BC .. RES 7,H
3A62 5C \ LD E,H
3A63 16 1D .. LD D,1D
3A65 1A . LD A,(DE)
3A66 67 g LD H,A
3A67 29 ) ADD HL,HL
3A68 D8 . RET C
3A69 C3 F9 42 ..B JP 42F9
3A6C CB BC .. RES 7,H
3A6E 5C \ LD E,H
3A6F 16 1D .. LD D,1D
3A71 1A . LD A,(DE)
3A72 67 g LD H,A
3A73 29 ) ADD HL,HL
3A74 B7 . OR A
3A75 C0 . RET NZ
3A76 C3 E1 42 ..B JP 42E1 ;---------------- ECWR ------------
3A79 CD 64 43 .dC CALL 4364
3A7C E5 . PUSH HL
3A7D CD 64 43 .dC CALL 4364
3A80 5E ^ LD E,(HL)
3A81 2C , INC L
3A82 56 V LD D,(HL)
3A83 E5 . PUSH HL
3A84 EB . EX DE,HL
3A85 CD 60 3A .`: CALL 3A60
3A88 EB . EX DE,HL
3A89 CD 13 43 ..C CALL 4313
3A8C 7E ~ LD A,(HL)
3A8D E1 . POP HL
3A8E CD 4B 3A .K: CALL 3A4B
3A91 12 . LD (DE),A
3A92 38 04 8. JR C,3A98
3A94 EB . EX DE,HL
3A95 2C , INC L
3A96 36 00 6. LD (HL),00
3A98 E1 . POP HL
3A99 5E ^ LD E,(HL)
3A9A 2C , INC L
3A9B 56 V LD D,(HL)
3A9C EB . EX DE,HL
3A9D 29 ) ADD HL,HL
3A9E CB 54 .T BIT 2,H
3AA0 CB 94 .. RES 2,H
3AA2 28 01 (. JR Z,3AA5
3AA4 2C , INC L
3AA5 85 . ADD L
3AA6 6F o LD L,A
3AA7 30 01 0. JR NC,3AAA
3AA9 24 $ INC H
3AAA CB 94 .. RES 2,H
3AAC EB . EX DE,HL
3AAD 72 r LD (HL),D
3AAE 2D - DEC L
3AAF 73 s LD (HL),E
3AB0 C3 A7 2A ..* JP 2AA7 ;--------------- CWR -------------
3AB3 CD 64 43 .dC CALL 4364
3AB6 E5 . PUSH HL
3AB7 CD 13 43 ..C CALL 4313
3ABA 5E ^ LD E,(HL)
3ABB D5 . PUSH DE
3ABC CD A8 2C .., CALL 2CA8
3ABF CD 60 3A .`: CALL 3A60
3AC2 D1 . POP DE
3AC3 73 s LD (HL),E
3AC4 E1 . POP HL
3AC5 2C , INC L
3AC6 CD 4B 3A .K: CALL 3A4B
3AC9 CB BE .. RES 7,(HL)
3ACB C3 A7 2A ..* JP 2AA7 ;----------- CRD ------------------
3ACE CD A8 2C .., CALL 2CA8
3AD1 CD 6C 3A .l: CALL 3A6C
3AD4 5E ^ LD E,(HL)
3AD5 16 00 .. LD D,00
3AD7 C3 03 2D ..- JP 2D03 ;------------- BCRD ---------------
3ADA CD 64 43 .dC CALL 4364
3ADD E5 . PUSH HL
3ADE CD 64 43 .dC CALL 4364
3AE1 5E ^ LD E,(HL)
3AE2 2C , INC L
3AE3 56 V LD D,(HL)
3AE4 E5 . PUSH HL
3AE5 EB . EX DE,HL
3AE6 CD 6C 3A .l: CALL 3A6C
3AE9 EB . EX DE,HL
3AEA E1 . POP HL
3AEB CD 4B 3A .K: CALL 3A4B
3AEE E1 . POP HL
3AEF 1A . LD A,(DE)
3AF0 77 w LD (HL),A
3AF1 2C , INC L
3AF2 36 00 6. LD (HL),00
3AF4 C3 A7 2A ..* JP 2AA7 ;-------------- cdbint -----------
3AF7 CD A8 2C .., CALL 2CA8 ; address holen
3AFA 3E 05 >. LD A,05 ; Segment 5
3AFC FD 21 85 46 .!.F LD IY,4685
3B00 FD 36 00 01 .6.. LD (IY+00),01 ; 1 Wort
3B04 FD 36 03 04 .6.. LD (IY+03),04 ; DS 4
3B08 CD CA 44 ..D CALL 44CA
3B0B C3 00 2D ..- JP 2D00 ;-------------- cdbtext -----------
3B0E CD A8 2C .., CALL 2CA8 ; Textaddress holen
3B11 2B + DEC HL
3B12 11 05 04 ... LD DE,0405 ; DS 4, Segment 5
3B15 CD 95 46 ..F CALL 4695
3B18 C3 D0 30 ..0 JP 30D0 ;--------------- CTT --------------
3B1B CD A8 2C .., CALL 2CA8 ; Textaddr holen
3B1E 2B + DEC HL
3B1F 11 04 00 ... LD DE,0004 ; REF-Adr : DS 4, HL
3B22 D5 . PUSH DE
3B23 C3 34 36 .46 JP 3634 ;-------------- GETC --------------
3B26 CD 8D 46 ..F CALL 468D
3B29 E5 . PUSH HL
3B2A CD 64 43 .dC CALL 4364
3B2D 7B { LD A,E
3B2E 5E ^ LD E,(HL)
3B2F 93 . SUB E
3B30 2C , INC L
3B31 7A z LD A,D
3B32 56 V LD D,(HL)
3B33 9A . SBC D
3B34 38 18 8. JR C,3B4E
3B36 E3 . EX (SP),HL
3B37 1B . DEC DE
3B38 CD 0D 45 ..E CALL 450D
3B3B 5E ^ LD E,(HL)
3B3C CD 64 43 .dC CALL 4364
3B3F 73 s LD (HL),E
3B40 2C , INC L
3B41 36 00 6. LD (HL),00
3B43 E1 . POP HL
3B44 2D - DEC L
3B45 34 4 INC (HL)
3B46 C2 71 2E .q. JP NZ,2E71
3B49 2C , INC L
3B4A 34 4 INC (HL)
3B4B C3 71 2E .q. JP 2E71
3B4E CD 43 44 .CD CALL 4443
3B51 C3 84 2E ... JP 2E84 ;------------ FNONBL --------------
3B54 CD 64 43 .dC CALL 4364
3B57 E5 . PUSH HL
3B58 CD 8D 46 ..F CALL 468D
3B5B E5 . PUSH HL
3B5C D5 . PUSH DE
3B5D CD 64 43 .dC CALL 4364
3B60 22 CC 41 ".A LD (41CC),HL
3B63 ED 43 D0 41 .C.A LD (41D0),BC
3B67 C1 . POP BC
3B68 5E ^ LD E,(HL)
3B69 2C , INC L
3B6A 56 V LD D,(HL)
3B6B E1 . POP HL
3B6C CD 1D 46 ..F CALL 461D
3B6F CD 44 45 .DE CALL 4544
3B72 28 2B (+ JR Z,3B9F
3B74 F5 . PUSH AF
3B75 3E 20 > LD A,20
3B77 ED A1 .. CPI
3B79 20 0B . JR NZ,3B86
3B7B EA 77 3B .w; JP PE,3B77
3B7E F1 . POP AF
3B7F 30 1E 0. JR NC,3B9F
3B81 CD C1 45 ..E CALL 45C1
3B84 18 E9 .. JR 3B6F
3B86 F1 . POP AF
3B87 2B + DEC HL
3B88 7E ~ LD A,(HL)
3B89 CD 33 46 .3F CALL 4633
3B8C 13 . INC DE
3B8D 2A CC 41 *.A LD HL,(41CC)
3B90 73 s LD (HL),E
3B91 2C , INC L
3B92 72 r LD (HL),D
3B93 E1 . POP HL
3B94 77 w LD (HL),A
3B95 2C , INC L
3B96 36 00 6. LD (HL),00
3B98 ED 4B D0 41 .K.A LD BC,(41D0)
3B9C C3 71 2E .q. JP 2E71
3B9F E1 . POP HL
3BA0 ED 4B D0 41 .K.A LD BC,(41D0)
3BA4 C3 84 2E ... JP 2E84 ;-------------- DREM256 -----------
3BA7 CD 64 43 .dC CALL 4364
3BAA EB . EX DE,HL
3BAB CD 64 43 .dC CALL 4364
3BAE 1A . LD A,(DE)
3BAF 77 w LD (HL),A
3BB0 97 . SUB A
3BB1 2C , INC L
3BB2 77 w LD (HL),A
3BB3 EB . EX DE,HL
3BB4 2C , INC L
3BB5 5E ^ LD E,(HL)
3BB6 77 w LD (HL),A
3BB7 2D - DEC L
3BB8 73 s LD (HL),E
3BB9 C3 A7 2A ..* JP 2AA7 ;------------- AMUL256 ------------
3BBC CD 64 43 .dC CALL 4364
3BBF EB . EX DE,HL
3BC0 CD 13 43 ..C CALL 4313
3BC3 7E ~ LD A,(HL)
3BC4 EB . EX DE,HL
3BC5 5E ^ LD E,(HL)
3BC6 77 w LD (HL),A
3BC7 2C , INC L
3BC8 73 s LD (HL),E
3BC9 C3 A7 2A ..* JP 2AA7 ;------------ ISLD ----------------
3BCC CD 13 43 ..C CALL 4313
3BCF 7E ~ LD A,(HL)
3BD0 FE 7B .{ CP 7B
3BD2 D2 84 2E ... JP NC,2E84
3BD5 FE 61 .a CP 61
3BD7 D2 71 2E .q. JP NC,2E71
3BDA 11 3A 30 .:0 LD DE,303A
3BDD 18 07 .. JR 3BE6 ;------------- ISDIG ---------------
3BDF 11 3A 30 .:0 LD DE,303A
3BE2 CD 13 43 ..C CALL 4313
3BE5 7E ~ LD A,(HL)
3BE6 BB . CP E
3BE7 D2 84 2E ... JP NC,2E84
3BEA BA . CP D
3BEB D2 71 2E .q. JP NC,2E71
3BEE C3 84 2E ... JP 2E84 ;-------------- ISLCAS ------------
3BF4 18 EC .. JR 3BE2 ;-------------- ISUCAS -----------
3BF6 11 5B 41 .[A LD DE,415B
3BF9 18 E7 .. JR 3BE2 ;--------------- GADDR ------------
3BFB CD A8 2C .., CALL 2CA8
3BFE EB . EX DE,HL
3BFF CD A8 2C .., CALL 2CA8
3C02 CB 7C .| BIT 7,H
3C04 28 0A (. JR Z,3C10
3C06 29 ) ADD HL,HL
3C07 CB 7C .| BIT 7,H
3C09 28 01 (. JR Z,3C0C
3C0B 2C , INC L
3C0C CB FC .. SET 7,H
3C0E 18 03 .. JR 3C13
3C10 B7 . OR A
3C11 ED 52 .R SBC HL,DE
3C13 EB . EX DE,HL
3C14 C3 03 2D ..- JP 2D03 ;------------- GCADDR -------------
3C17 CD A8 2C .., CALL 2CA8
3C1A EB . EX DE,HL
3C1B CD 13 43 ..C CALL 4313
3C1E 2C , INC L
3C1F 7A z LD A,D
3C20 96 . SUB (HL)
3C21 30 02 0. JR NC,3C25
3C23 C6 10 .. ADD A,10
3C25 0F . RRCA
3C26 57 W LD D,A
3C27 CD 64 43 .dC CALL 4364
3C2A 73 s LD (HL),E
3C2B 2C , INC L
3C2C 72 r LD (HL),D
3C2D 7A z LD A,D
3C2E E6 78 .x AND 78
3C30 CA 71 2E .q. JP Z,2E71
3C33 C3 84 2E ... JP 2E84 ;------------ ISSHA ---------------
3C36 CD A8 2C .., CALL 2CA8
3C39 7C | LD A,H
3C3A E6 7C .| AND 7C
3C3C CA 71 2E .q. JP Z,2E71
3C3F C3 84 2E ... JP 2E84 ;-------------- GETTAB ------------
3C42 11 00 04 ... LD DE,0400
3C45 21 00 05 !.. LD HL,0500 ; von Segment 5 nach segment 4
3C48 3E 80 >. LD A,80
3C4A C5 . PUSH BC
3C4B 47 G LD B,A
3C4C 0E 04 .. LD C,04
3C4E CD B6 69 ..i CALL 69B6
3C51 CD 16 42 ..B CALL 4216
3C54 C1 . POP BC
3C55 C3 A7 2A ..* JP 2AA7 ;-------------- PUTTAB ------------
3C58 11 00 05 ... LD DE,0500 ; von segment 4 nach segment 5
3C5B 21 00 04 !.. LD HL,0400
3C5E 3E 80 >. LD A,80
3C60 18 E8 .. JR 3C4A ;------------- ERATAB -------------
3C62 11 00 04 ... LD DE,0400 ; Segment 4 loeschen (6 ist leer)
3C65 21 00 06 !.. LD HL,0600
3C68 E5 . PUSH HL
3C69 C5 . PUSH BC
3C6A 06 FE .. LD B,FE
3C6C 0E 04 .. LD C,04
3C6E CD B6 69 ..i CALL 69B6
3C71 C1 . POP BC
3C72 E1 . POP HL
3C73 11 00 07 ... LD DE,0700 ; neuerdings auch Segment 7
3C76 3E FE >. LD A,FE ; loeschen
3C78 18 D0 .. JR 3C4A ;------------ storage ------------
3C7A C5 . PUSH BC
3C7B CD CC 56 ..V CALL 56CC ; storage berechnen
3C7E 59 Y LD E,C
3C7F 50 P LD D,B
3C80 C1 . POP BC
3C81 EB . EX DE,HL
3C82 E5 . PUSH HL
3C83 CD 64 43 .dC CALL 4364 ; size-addresse holen
3C86 73 s LD (HL),E
3C87 2C , INC L
3C88 72 r LD (HL),D
3C89 D1 . POP DE ; used-auf stack
3C8A C3 03 2D ..- JP 2D03 ;------------- sysop -------------
3C8D DD 7E 1D .~. LD A,(IX+1D) ; privilegierte operation
3C90 FE 01 .. CP 01
3C92 DA E6 3C ..< JP C,3CE6
3C95 CD A8 2C .., CALL 2CA8 ; nr holen
3C98 3E 0C >. LD A,0C
3C9A BD . CP L
3C9B 20 01 . JR NZ,3C9E ; savesystem ?
3C9D 2D - DEC L ; aus 12 wird 11
3C9E 3A 17 82 :.. LD A,(8217) ; Musta
3CA1 B7 . OR A
3CA2 C2 26 29 .&) JP NZ,2926 ; Warten, bis Musta frei
3CA5 DD CB 07 5E ...^ BIT 3,(IX+07) ; restart
3CA9 20 1B . JR NZ,3CC6
3CAB DD CB 07 DE .... SET 3,(IX+07)
3CAF 7D } LD A,L
3CB0 32 17 82 2.. LD (8217),A
3CB3 21 60 EA !`. LD HL,EA60 ; 6000.0 s = 100 Minuten
3CB6 22 B6 4C ".L LD (4CB6),HL
3CB9 FE 04 .. CP 04 ; < shutup ?
3CBB DA 26 29 .&) JP C,2926
3CBE CD 02 2A ..* CALL 2A02
3CC1 CD E2 6D ..m CALL 6DE2 ; Endlos warte
3CC4 18 FB .. JR 3CC1
3CC6 DD CB 07 9E .... RES 3,(IX+07)
3CCA C3 A7 2A ..* JP 2AA7 ;-------------- DIV by 0 ---------
3CCD 3E 05 >. LD A,05
3CCF 18 37 .7 JR 3D08 ;---------- Stackoverflow ---------
3CD1 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop
3CD5 3E 02 >. LD A,02 ; errorstop
3CD7 18 39 .9 JR 3D12 ;
3CD9 3E 09 >. LD A,09 ;---------- Subscript overflow ----
3CDB CB 7C .| BIT 7,H
3CDD 28 02 (. JR Z,3CE1
3CDF 3E 0A >. LD A,0A ;---------- Subscript underflow ----
3CE1 21 00 00 !.. LD HL,0000
3CE4 18 27 .' JR 3D0D ;----- error: privilegierte op --
3CE6 DD 7E 30 .~0 LD A,(IX+30) ; Taskindex = Supervisor ?
3CE9 FE 01 .. CP 01
3CEB 20 07 . JR NZ,3CF4
3CED DD 36 1D 02 .6.. LD (IX+1D),02 ; privileged 2, offener wartezustand
3CF1 C3 26 29 .&) JP 2926 ;--------- Codefehler --------------
3CF4 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop
3CF8 3E 11 >. LD A,11
3CFA 18 16 .. JR 3D12 ; errorstop ("Codefehler")
3CFC 30 03 0. JR NC,3D01 ; ------ INT overflow, wenn arith15
3CFE 21 FF FF !.. LD HL,FFFF
3D01 DD CB 0B 66 ...f BIT 4,(IX+0B)
3D05 C0 . RET NZ
3D06 3E 04 >. LD A,04
3D08 11 01 00 ... LD DE,0001
3D0B 62 b LD H,D
3D0C 6A j LD L,D
3D0D DD CB 0B 7E ...~ BIT 7,(IX+0B) ; nur wenn nicht schon iserror
3D11 C0 . RET NZ
3D12 DD 36 25 00 .6%. LD (IX+25),00 ;--------- errorstop
3D16 DD 77 24 .w$ LD (IX+24),A ; errorno
3D19 DD 7E 20 .~ LD A,(IX+20) ; errline := lineno
3D1C DD 77 22 .w" LD (IX+22),A
3D1F DD 7E 21 .~! LD A,(IX+21)
3D22 DD 77 23 .w# LD (IX+23),A
3D25 DD CB 0B FE .... SET 7,(IX+0B) ; iserror
3D29 DD CB 0B 76 ...v BIT 6,(IX+0B)
3D2D C0 . RET NZ
3D2E CD E8 45 ..E CALL 45E8 ; Return, wenn enablestop
3D31 DD CB 07 9E .... RES 3,(IX+07)
3D35 31 13 6D 1.m LD SP,6D13
3D38 DD CB 0B 76 ...v BIT 6,(IX+0B) ;-------------- TERM --------------
3D3C 20 09 . JR NZ,3D47 ; bis zum disablestop PROC zurueck
3D3E DD 36 06 1C .6.. LD (IX+06),1C ; Status LEAVE PROC
3D42 CD 35 30 .50 CALL 3035 ; EXEC LEAVE
3D45 18 F1 .. JR 3D38 ; Weiter LEAVEn
3D47 DD 36 06 00 .6.. LD (IX+06),00 ; Status Busy
3D4B C3 A7 2A ..* JP 2AA7 ;----------- enablestop ---------
3D4E DD CB 0B B6 .... RES 6,(IX+0B)
3D52 DD CB 0B 7E ...~ BIT 7,(IX+0B)
3D56 20 E0 . JR NZ,3D38 ; LEAVE PROC, if enablesto and iserr
3D58 C3 A7 2A ..* JP 2AA7 ;------------ disablestop --------
3D5B DD CB 0B F6 .... SET 6,(IX+0B)
3D5F C3 A7 2A ..* JP 2AA7 ;----------- seterrorstop ---------
3D62 CD A8 2C .., CALL 2CA8
3D65 DD CB 0B 7E ...~ BIT 7,(IX+0B)
3D69 C2 A7 2A ..* JP NZ,2AA7
3D6C DD 74 25 .t% LD (IX+25),H ; errorcode high
3D6F 7D } LD A,L
3D70 CD 16 3D ..= CALL 3D16 ; errorstop
3D73 C3 A7 2A ..* JP 2AA7 ;------------- iserror ------------
3D76 DD CB 0B 7E ...~ BIT 7,(IX+0B)
3D7A CA 84 2E ... JP Z,2E84
3D7D C3 71 2E .q. JP 2E71 ;------------ clearerror ----------
3D80 DD CB 0B 76 ...v BIT 6,(IX+0B)
3D84 CA A7 2A ..* JP Z,2AA7 ; war kein Fehler
3D87 C5 . PUSH BC
3D88 0E 05 .. LD C,05
3D8A CD 97 69 ..i CALL 6997
3D8D 3A 1A 6E :.n LD A,(6E1A) ; Aktueller Taskindex
3D90 47 G LD B,A
3D91 0E 00 .. LD C,00
3D93 57 W LD D,A
3D94 CD E8 68 ..h CALL 68E8
3D97 C1 . POP BC
3D98 DD CB 0B BE .... RES 7,(IX+0B)
3D9C C3 A7 2A ..* JP 2AA7 ;-------- readpcb myself ----------
3D9F CD A5 3D ..= CALL 3DA5 ;
3DA2 C3 00 2D ..- JP 2D00 ; Wert auf Stack
3DA5 CD 13 43 ..C CALL 4313 ; Zwei Addressen holen
3DA8 7E ~ LD A,(HL)
3DA9 2A 1C 6E *.n LD HL,(6E1C) ; Leitblock aktueller
3DAC 87 . ADD A
3DAD C6 1E .. ADD A,1E ; pcb--> pcf konvertieren
3DAF E6 3F .? AND 3F
3DB1 6F o LD L,A
3DB2 C9 . RET ;----- test ob, supervisorson ----
3DB3 DD 7E 1D .~. LD A,(IX+1D) ; priv Feld
3DB6 FE 01 .. CP 01 ; >= 1 : darf
3DB8 30 08 0. JR NC,3DC2
3DBA DD 7E 1D .~. LD A,(IX+1D) ;------ test, ob supervisor -------
3DBD FE 02 .. CP 02
3DBF DA E6 3C ..< JP C,3CE6 ; < 2 : darf nicht
3DC2 CD 07 44 ..D CALL 4407 ; leitblock einer task laden-------
3DC5 FD 2A 1C 6E .*.n LD IY,(6E1C)
3DC9 1A . LD A,(DE)
3DCA 3D = DEC A
3DCB FE 7F .. CP 7F ; Taskindex >= 128 ?
3DCD D0 . RET NC
3DCE 1C . INC E
3DCF 1A . LD A,(DE)
3DD0 1D . DEC E
3DD1 DD BE 31 ..1 CP (IX+31) ; Stationsnummer (myself)
3DD4 20 07 . JR NZ,3DDD
3DD6 1A . LD A,(DE)
3DD7 CD 4D 6D .Mm CALL 6D4D
3DDA 1A . LD A,(DE)
3DDB 37 7 SCF
3DDC C9 . RET
3DDD B7 . OR A
3DDE C9 . RET ;------------ pcb-feld lesen -----
3DDF CD C2 3D ..= CALL 3DC2 ;
3DE2 CD 13 43 ..C CALL 4313
3DE5 7E ~ LD A,(HL) ; pcb-nummer
3DE6 FD E5 .. PUSH IY
3DE8 E1 . POP HL
3DE9 18 C1 .. JR 3DAC ;------------- readpcb task -------
3DEB CD DF 3D ..= CALL 3DDF ; Readpcb und Wert auf Stack
3DEE C3 00 2D ..- JP 2D00 ;------------- writepcb task ------
3DF1 CD DF 3D ..= CALL 3DDF ; Readpcb
3DF4 FD 7E 30 .~0 LD A,(IY+30) ; Eigener Taskindex = pcb-Taskindex
3DF7 DD BE 30 ..0 CP (IX+30)
3DFA 20 05 . JR NZ,3E01 ; Nein, kann nur Supervisor
3DFC 7D } LD A,L ; linenumber field
3DFD FE 20 . CP 20 ; pcf=32 kann beschrieben werden
3DFF 28 12 (. JR Z,3E13 ; von jeder task
3E01 DD 7E 1D .~. LD A,(IX+1D)
3E04 FE 02 .. CP 02
3E06 30 0B 0. JR NC,3E13 ; priv >= 2 darf alle beschreiben
3E08 FE 01 .. CP 01
3E0A DA E6 3C ..< JP C,3CE6 ; priv < 1 darf nur linenumber
3E0D 7D } LD A,L
3E0E FE 2A .* CP 2A ; priv = 1 darf nur prio beschreiben
3E10 C2 E6 3C ..< JP NZ,3CE6
3E13 EB . EX DE,HL ; writepcb durchfuehren
3E14 CD A8 2C .., CALL 2CA8 ; value holen
3E17 EB . EX DE,HL
3E18 73 s LD (HL),E ; leitblock veraendern
3E19 2C , INC L
3E1A 72 r LD (HL),D
3E1B C3 A7 2A ..* JP 2AA7 ;-------------- status ------------
3E1E CD C2 3D ..= CALL 3DC2 ; leitblock von task holen
3E21 FD 7E 06 .~. LD A,(IY+06) ; status feld
3E24 07 . RLCA
3E25 07 . RLCA
3E26 E6 0F .. AND 0F
3E28 5F _ LD E,A
3E29 16 00 .. LD D,00
3E2B C3 03 2D ..- JP 2D03 ;--------------- unblock ----------
3E2E CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen
3E31 DC 68 6D .hm CALL C,6D68
3E34 FD CB 06 4E ...N BIT 1,(IY+06)
3E38 20 04 . JR NZ,3E3E
3E3A FD CB 06 86 .... RES 0,(IY+06)
3E3E C3 A7 2A ..* JP 2AA7 ;--------------- block ------------
3E41 CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen
3E44 30 F8 0. JR NC,3E3E
3E46 FD CB 06 C6 .... SET 0,(IY+06)
3E4A CD 74 6D .tm CALL 6D74
3E4D 18 EF .. JR 3E3E ;----------- nextactive ----------
3E4F CD 64 43 .dC CALL 4364 ; task holen
3E52 7E ~ LD A,(HL)
3E53 CD 7E 6D .~m CALL 6D7E
3E56 F5 . PUSH AF
3E57 CD 4D 6D .Mm CALL 6D4D
3E5A F1 . POP AF
3E5B 77 w LD (HL),A
3E5C 2C , INC L
3E5D FD 7E 31 .~1 LD A,(IY+31) ; taskindex holen
3E60 77 w LD (HL),A
3E61 18 DB .. JR 3E3E ;------------ halt process --------
3E63 CD BA 3D ..= CALL 3DBA ; nur vom supervisor
3E66 FD CB 05 C6 .... SET 0,(IY+05)
3E6A 18 D2 .. JR 3E3E ;------------- create process -----
3E6C DD 7E 30 .~0 LD A,(IX+30) ; myself index
3E6F 32 13 42 2.B LD (4213),A
3E72 2A CA 41 *.A LD HL,(41CA) ; heaptop
3E75 22 14 42 ".B LD (4214),HL
3E78 CD BA 3D ..= CALL 3DBA ; supervisor ?
3E7B D2 4C 3F .L? JP NC,3F4C ; nicht moeglich
3E7E E5 . PUSH HL ; unprivilegiertes createprocess
3E7F D5 . PUSH DE
3E80 FD 36 00 00 .6.. LD (IY+00),00 ; wstate
3E84 FD 36 1D FF .6.. LD (IY+1D),FF ; priv
3E88 CD B8 43 ..C CALL 43B8 ; procadresse holen
3E8B FD 75 09 .u. LD (IY+09),L ; icount uebertragen
3E8E FD 74 0A .t. LD (IY+0A),H
3E91 FD 73 0B .s. LD (IY+0B),E
3E94 7C | LD A,H
3E95 C6 10 .. ADD A,10
3E97 FD 77 0F .w. LD (IY+0F),A ; c8k, und allgemeiner create proc.
3E9A C3 D9 3E ..> JP 3ED9 ;------- create privileged process-
3E9D CD 13 43 ..C CALL 4313
3EA0 7E ~ LD A,(HL)
3EA1 E6 7F .. AND 7F
3EA3 32 13 42 2.B LD (4213),A
3EA6 CD 4D 6D .Mm CALL 6D4D
3EA9 FD 6E 16 .n. LD L,(IY+16) ; hptop
3EAC FD 66 17 .f. LD H,(IY+17)
3EAF 22 14 42 ".B LD (4214),HL
3EB2 CD BA 3D ..= CALL 3DBA ; supervisor ?
3EB5 D2 49 3F .I? JP NC,3F49 ; nicht moeglich
3EB8 E5 . PUSH HL
3EB9 D5 . PUSH DE
3EBA FD 36 01 00 .6.. LD (IY+01),00 ; wstate
3EBE CD A8 2C .., CALL 2CA8 ; priv parameter
3EC1 FD 75 1D .u. LD (IY+1D),L
3EC4 CD 07 44 ..D CALL 4407 ; PROCAddresse holen --> DE, HL
3EC7 1A . LD A,(DE)
3EC8 FD 77 09 .w. LD (IY+09),A ; icount
3ECB 1C . INC E
3ECC 1A . LD A,(DE)
3ECD FD 77 0A .w. LD (IY+0A),A
3ED0 C6 10 .. ADD A,10
3ED2 FD 77 0F .w. LD (IY+0F),A ; c8k
3ED5 7E ~ LD A,(HL) ; segment
3ED6 FD 77 0B .w. LD (IY+0B),A
3ED9 ED 43 D0 41 .C.A LD (41D0),BC ;-allgemeimer Teil von createproc.
3EDD FD E5 .. PUSH IY ; IY = Leitblockaddresse des
3EDF D1 . POP DE ; neuen Prozesses
3EE0 1E 30 .0 LD E,30 ;
3EE2 E1 . POP HL ; taskindex setzen
3EE3 ED A0 .. LDI
3EE5 ED A0 .. LDI
3EE7 E1 . POP HL ; version
3EE8 ED A0 .. LDI
3EEA ED A0 .. LDI
3EEC 1E 38 .8 LD E,38 ; clock
3EEE 06 08 .. LD B,08
3EF0 97 . SUB A ; auf 0.0 setzen
3EF1 12 . LD (DE),A
3EF2 1C . INC E
3EF3 10 FC .. DJNZ 3EF1
3EF5 FD 77 2A .w* LD (IY+2A),A ; prio auf 0
3EF8 FD 77 2B .w+ LD (IY+2B),A
3EFB 3A 13 42 :.B LD A,(4213)
3EFE 47 G LD B,A
3EFF 0E 04 .. LD C,04
3F01 FD 56 30 .V0 LD D,(IY+30) ; myself index
3F04 DD CB 07 5E ...^ BIT 3,(IX+07) ; war restart ?
3F08 CC E8 68 ..h CALL Z,68E8 ;
3F0B DD CB 07 DE .... SET 3,(IX+07) ; kein restart mehr
3F0F 0E 00 .. LD C,00
3F11 CD E8 68 ..h CALL 68E8
3F14 DD CB 07 9E .... RES 3,(IX+07) ; restart
3F18 2A 14 42 *.B LD HL,(4214) ; heaptop uebertragen
3F1B FD 75 16 .u. LD (IY+16),L
3F1E FD 74 17 .t. LD (IY+17),H
3F21 97 . SUB A
3F22 FD 77 26 .w& LD (IY+26),A ; channel 0 (break)
3F25 FD 77 27 .w' LD (IY+27),A
3F28 FD 77 04 .w. LD (IY+04),A ; millis, comflg
3F2B FD 77 05 .w. LD (IY+05),A
3F2E FD 77 07 .w. LD (IY+07),A ; restart war
3F31 FD 77 14 .w. LD (IY+14),A ls_top
3F34 FD 77 15 .w. LD (IY+15),A
3F37 FD 36 06 18 .6.. LD (IY+06),18
3F3B 7A z LD A,D
3F3C CD 68 6D .hm CALL 6D68
3F3F ED 4B D0 41 .K.A LD BC,(41D0)
3F43 CD 16 42 ..B CALL 4216
3F46 C3 A7 2A ..* JP 2AA7
3F49 CD 13 43 ..C CALL 4313 ;---------- kein createprocess ---
3F4C CD 13 43 ..C CALL 4313
3F4F C3 A7 2A ..* JP 2AA7 ;--------- erase process ----------
3F52 CD BA 3D ..= CALL 3DBA
3F55 DC 8B 68 ..h CALL C,688B
3F58 C3 A7 2A ..* JP 2AA7 ;------------ existstask ----------
3F5B CD C2 3D ..= CALL 3DC2 ; leitblock holen
3F5E D2 84 2E ... JP NC,2E84 ; NC = FALSE
3F61 FD E5 .. PUSH IY
3F63 D1 . POP DE
3F64 1E 32 .2 LD E,32 ; version vergleichen
3F66 C3 67 2E .g. JP 2E67 ;------------ send ----------------
3F69 11 0B 42 ..B LD DE,420B
3F6C DD E5 .. PUSH IX
3F6E E1 . POP HL
3F6F 2E 30 .0 LD L,30 ; myself index
3F71 CD 72 40 .r@ CALL 4072
3F74 97 . SUB A ; msgds := nilspace
3F75 DD 77 2E .w. LD (IX+2E),A
3F78 DD 77 2F .w/ LD (IX+2F),A
3F7B CD C2 3D ..= CALL 3DC2 ; Leitblock der anderen task holen
3F7E F5 . PUSH AF
3F7F C5 . PUSH BC
3F80 D5 . PUSH DE
3F81 E5 . PUSH HL
3F82 01 0F 42 ..B LD BC,420F
3F85 CD 7A 40 .z@ CALL 407A
3F88 E1 . POP HL
3F89 D1 . POP DE
3F8A C1 . POP BC
3F8B F1 . POP AF
3F8C 38 1E 8. JR C,3FAC
3F8E 1A . LD A,(DE)
3F8F FE 02 .. CP 02
3F91 DA 3D 40 .=@ JP C,403D
3F94 1C . INC E
3F95 1A . LD A,(DE)
3F96 DD BE 31 ..1 CP (IX+31) ; station
3F99 CA 3D 40 .=@ JP Z,403D ; gleiche
3F9C 3A 07 42 :.B LD A,(4207)
3F9F 3D = DEC A
3FA0 FE 7E .~ CP 7E
3FA2 D2 3D 40 .=@ JP NC,403D
3FA5 3C < INC A
3FA6 CD 4D 6D .Mm CALL 6D4D
3FA9 21 09 42 !.B LD HL,4209
3FAC FD E5 .. PUSH IY
3FAE D1 . POP DE
3FAF 1E 32 .2 LD E,32
3FB1 CD 6A 40 .j@ CALL 406A
3FB4 C2 3D 40 .=@ JP NZ,403D
3FB7 FD 7E 06 .~. LD A,(IY+06)
3FBA CB 87 .. RES 0,A
3FBC FE BC .. CP BC
3FBE C2 41 40 .A@ JP NZ,4041
3FC1 1E 34 .4 LD E,34 ; fromid
3FC3 1A . LD A,(DE)
3FC4 B7 . OR A
3FC5 28 09 (. JR Z,3FD0
3FC7 21 0B 42 !.B LD HL,420B
3FCA CD 66 40 .f@ CALL 4066
3FCD C2 41 40 .A@ JP NZ,4041
3FD0 CD A8 2C .., CALL 2CA8
3FD3 E5 . PUSH HL
3FD4 CD 64 43 .dC CALL 4364
3FD7 5E ^ LD E,(HL)
3FD8 2C , INC L
3FD9 56 V LD D,(HL)
3FDA EB . EX DE,HL
3FDB CD 70 38 .p8 CALL 3870
3FDE DA 61 40 .a@ JP C,4061
3FE1 E5 . PUSH HL
3FE2 CD 64 43 .dC CALL 4364
3FE5 97 . SUB A
3FE6 77 w LD (HL),A
3FE7 2C , INC L
3FE8 77 w LD (HL),A
3FE9 E1 . POP HL
3FEA EB . EX DE,HL
3FEB C5 . PUSH BC
3FEC DD 46 30 .F0 LD B,(IX+30)
3FEF 4B K LD C,E
3FF0 FD 56 30 .V0 LD D,(IY+30)
3FF3 CD E5 68 ..h CALL 68E5
3FF6 C1 . POP BC
3FF7 36 FF 6. LD (HL),FF
3FF9 FD 73 2E .s. LD (IY+2E),E
3FFC FD 7E 30 .~0 LD A,(IY+30)
3FFF FD 77 2F .w/ LD (IY+2F),A
4002 21 0F 42 !.B LD HL,420F
4005 DD E5 .. PUSH IX
4007 D1 . POP DE
4008 1E 34 .4 LD E,34
400A CD 72 40 .r@ CALL 4072
400D 21 0B 42 !.B LD HL,420B
4010 FD E5 .. PUSH IY
4012 D1 . POP DE
4013 1E 34 .4 LD E,34
4015 CD 72 40 .r@ CALL 4072
4018 FD CB 0B 7E ...~ BIT 7,(IY+0B)
401C 20 08 . JR NZ,4026
401E 21 0F 42 !.B LD HL,420F
4021 1E 22 ." LD E,22
4023 CD 72 40 .r@ CALL 4072
4026 EB . EX DE,HL
4027 D1 . POP DE
4028 2E 2C ., LD L,2C
402A 73 s LD (HL),E
402B 2C , INC L
402C 72 r LD (HL),D
402D 2E 06 .. LD L,06
402F 36 00 6. LD (HL),00
4031 2E 07 .. LD L,07
4033 CB DE .. SET 3,(HL) ; kein restart
4035 2E 30 .0 LD L,30
4037 7E ~ LD A,(HL)
4038 CD 68 6D .hm CALL 6D68
403B 97 . SUB A
403C C9 . RET
403D 1E FF .. LD E,FF
403F 18 11 .. JR 4052
4041 3A 10 42 :.B LD A,(4210)
4044 DD BE 31 ..1 CP (IX+31)
4047 28 07 (. JR Z,4050
4049 3A 07 42 :.B LD A,(4207)
404C B7 . OR A
404D C2 26 29 .&) JP NZ,2926
4050 1E FE .. LD E,FE
4052 CD 13 43 ..C CALL 4313
4055 CD 13 43 ..C CALL 4313
4058 CD 64 43 .dC CALL 4364
405B 7B { LD A,E
405C 77 w LD (HL),A
405D 2C , INC L
405E 36 FF 6. LD (HL),FF
4060 C9 . RET
4061 E1 . POP HL
4062 1E FD .. LD E,FD
4064 18 F2 .. JR 4058
4066 CD 6A 40 .j@ CALL 406A
4069 C0 . RET NZ
406A 1A . LD A,(DE)
406B BE . CP (HL)
406C C0 . RET NZ
406D 23 # INC HL
406E 13 . INC DE
406F 1A . LD A,(DE)
4070 BE . CP (HL)
4071 C9 . RET
4072 C5 . PUSH BC
4073 01 04 00 ... LD BC,0004
4076 ED B0 .. LDIR
4078 C1 . POP BC
4079 C9 . RET
407A 1A . LD A,(DE)
407B 02 . LD (BC),A
407C 1C . INC E
407D 03 . INC BC
407E 1A . LD A,(DE)
407F 02 . LD (BC),A
4080 03 . INC BC
4081 7E ~ LD A,(HL)
4082 02 . LD (BC),A
4083 2C , INC L
4084 03 . INC BC
4085 7E ~ LD A,(HL)
4086 02 . LD (BC),A
4087 C9 . RET
4088 CD 64 43 .dC CALL 4364
408B 3A 1D 6E :.n LD A,(6E1D)
408E 57 W LD D,A
408F 1A . LD A,(DE)
4090 77 w LD (HL),A
4091 2C , INC L
4092 1C . INC E
4093 1A . LD A,(DE)
4094 77 w LD (HL),A
4095 C9 . RET ;----------- sendfromto -----------
4096 DD 7E 1D .~. LD A,(IX+1D)
4099 FE 01 .. CP 01
409B DA E6 3C ..< JP C,3CE6 ; nur supervisorsoehne
409E CD 07 44 ..D CALL 4407
40A1 1C . INC E
40A2 1A . LD A,(DE)
40A3 1D . DEC E
40A4 DD BE 31 ..1 CP (IX+31)
40A7 28 0E (. JR Z,40B7
40A9 C5 . PUSH BC
40AA 01 0B 42 ..B LD BC,420B ; andere station
40AD CD 7A 40 .z@ CALL 407A
40B0 C1 . POP BC
40B1 CD 74 3F .t? CALL 3F74
40B4 C3 A7 2A ..* JP 2AA7 ;------------- send ---------------
40B7 CD 69 3F .i? CALL 3F69
40BA C3 A7 2A ..* JP 2AA7 ;------------ wait ----------------
40BD DD CB 07 5E ...^ BIT 3,(IX+07)
40C1 20 1E . JR NZ,40E1
40C3 CD 29 4C .)L CALL 4C29
40C6 97 . SUB A
40C7 DD 77 34 .w4 LD (IX+34),A
40CA DD 77 35 .w5 LD (IX+35),A
40CD DD 77 36 .w6 LD (IX+36),A
40D0 DD 77 37 .w7 LD (IX+37),A
40D3 DD 36 06 BC .6.. LD (IX+06),BC ; wait zustand
40D7 3A 1A 6E :.n LD A,(6E1A)
40DA 3D = DEC A
40DB CC 38 4C .8L CALL Z,4C38
40DE C3 26 29 .&) JP 2926
40E1 1E 2E .. LD E,2E
40E3 CD 88 40 ..@ CALL 4088
40E6 1E 2C ., LD E,2C ; 4 Bytes auf Stack
40E8 CD 88 40 ..@ CALL 4088
40EB 1E 34 .4 LD E,34 ; 4 Bytes auf stack
40ED D5 . PUSH DE
40EE CD 39 44 .9D CALL 4439
40F1 E3 . EX (SP),HL
40F2 C5 . PUSH BC
40F3 ED A0 .. LDI
40F5 ED A0 .. LDI
40F7 C1 . POP BC
40F8 D1 . POP DE
40F9 C5 . PUSH BC
40FA ED A0 .. LDI
40FC ED A0 .. LDI
40FE C1 . POP BC
40FF DD CB 07 9E .... RES 3,(IX+07) ; restart
4103 C3 A7 2A ..* JP 2AA7 ;--------------- call -------------
4106 DD CB 07 5E ...^ BIT 3,(IX+07)
410A 20 2E . JR NZ,413A
410C CD 69 3F .i? CALL 3F69
410F B7 . OR A
4110 28 14 (. JR Z,4126
4112 FE FE .. CP FE
4114 C2 A7 2A ..* JP NZ,2AA7
4117 FD E5 .. PUSH IY
4119 E1 . POP HL
411A DD E5 .. PUSH IX
411C D1 . POP DE
411D B7 . OR A
411E ED 52 .R SBC HL,DE
4120 CA A7 2A ..* JP Z,2AA7
4123 C3 26 29 .&) JP 2926
4126 3E BC >. LD A,BC ; wait
4128 C3 23 29 .#) JP 2923 ;-------------- pingpong ----------
412B DD CB 07 5E ...^ BIT 3,(IX+07)
412F 20 09 . JR NZ,413A
4131 CD 69 3F .i? CALL 3F69
4134 B7 . OR A
4135 28 EF (. JR Z,4126
4137 C3 A7 2A ..* JP 2AA7
413A CD 43 44 .CD CALL 4443
413D CD 43 44 .CD CALL 4443
4140 1E 2E .. LD E,2E
4142 CD 88 40 ..@ CALL 4088
4145 1E 2C ., LD E,2C
4147 CD 88 40 ..@ CALL 4088
414A DD CB 07 9E .... RES 3,(IX+07)
414E C3 A7 2A ..* JP 2AA7 ;--------- define collector -------
4151 DD 7E 1D .~. LD A,(IX+1D) ; nur von supervisorsoehnen
4154 FE 01 .. CP 01
4156 DA E6 3C ..< JP C,3CE6
4159 CD 07 44 ..D CALL 4407
415C C5 . PUSH BC
415D 01 07 42 ..B LD BC,4207
4160 CD 7A 40 .z@ CALL 407A
4163 C1 . POP BC
4164 C3 A7 2A ..* JP 2AA7 ;------------- session ------------
4167 ED 5B 17 6B .[.k LD DE,(6B17)
416B C3 03 2D ..- JP 2D03 ;----------------- id -------------
416E CD 13 43 ..C CALL 4313
4171 7E ~ LD A,(HL)
4172 E6 07 .. AND 07
4174 21 8F 82 !.. LD HL,828F
4177 5F _ LD E,A
4178 D6 04 .. SUB A,04
417A 38 04 8. JR C,4180
417C 21 6F 28 !o( LD HL,286F
417F 5F _ LD E,A
4180 16 00 .. LD D,00
4182 19 . ADD HL,DE
4183 19 . ADD HL,DE
4184 C3 00 2D ..- JP 2D00 ;- infopassword ("alt","neu",ok)
4187 11 F3 41 ..A LD DE,41F3
418A CD A9 41 ..A CALL 41A9 ; Wort --> 41F3 holen
418D 11 FD 41 ..A LD DE,41FD
4190 CD A9 41 ..A CALL 41A9 ; Wort --> 41FD holen
4193 CD 64 43 .dC CALL 4364 ; REF-addr holen
4196 C5 . PUSH BC
4197 E5 . PUSH HL
4198 21 F3 41 !.A LD HL,41F3
419B 11 FD 41 ..A LD DE,41FD
419E CD 10 6F ..o CALL 6F10 ; 10 bytes invertieren und kopieren
41A1 E1 . POP HL
41A2 71 q LD (HL),C ; enthaelt 0, wenn ok
41A3 2C , INC L
41A4 70 p LD (HL),B
41A5 C1 . POP BC
41A6 C3 A7 2A ..* JP 2AA7
41A9 D5 . PUSH DE
41AA CD 8D 46 ..F CALL 468D ; Word --> HL holen
41AD D1 . POP DE
41AE C5 . PUSH BC
41AF 06 0A .. LD B,0A ; 10 mal
41B1 7E ~ LD A,(HL)
41B2 12 . LD (DE),A
41B3 13 . INC DE
41B4 D5 . PUSH DE
41B5 11 01 00 ... LD DE,0001
41B8 CD 0D 45 ..E CALL 450D ; HL INCR 1
41BB D1 . POP DE
41BC 10 F3 .. DJNZ 41B1
41BE C1 . POP BC
41BF C9 . RET ;========= EXTERNALS ENDE ========
41C0 20 52 R JR NZ,4214 ; " REG"
41C2 45 E LD B,L
41C3 47 G LD B,A
41C4 00 . NOP
41C5 00 . NOP
41C6 00 . NOP
41C7 00 . NOP
41C8 00 . NOP
41C9 00 . NOP
41CA 00 . NOP
41CB 00 . NOP
41CC 00 . NOP
41CD 00 . NOP
41CE 00 . NOP
41CF 00 . NOP
41D0 00 . NOP
41D1 00 . NOP
41D2 00 . NOP
41D3 00 . NOP
41D4 00 . NOP
41D5 00 . NOP
41D6 00 . NOP
41D7 00 . NOP
41D8 00 . NOP
41D9 00 . NOP
41DA 00 . NOP
41DB 00 . NOP
41DC 00 . NOP
41DD 01 00 00 ... LD BC,0000
41E0 00 . NOP
41E1 00 . NOP
41E2 00 . NOP
41E3 00 . NOP
41E4 00 . NOP
41E5 00 . NOP
41E6 00 . NOP
41E7 02 . LD (BC),A
41E8 20 20 JR NZ,420A
41EA 20 20 JR NZ,420C
41EC 20 08 . JR NZ,41F6
41EE 08 . EX AF,AF'
41EF 08 . EX AF,AF'
41F0 08 . EX AF,AF'
41F1 08 . EX AF,AF'
41F2 08 . EX AF,AF'
41F3 00 . NOP
41F4 00 . NOP
41F5 00 . NOP
41F6 00 . NOP
41F7 00 . NOP
41F8 00 . NOP
41F9 00 . NOP
41FA 00 . NOP
41FB 00 . NOP
41FC 00 . NOP
41FD 00 . NOP
41FE 00 . NOP
41FF 00 . NOP
4200 00 . NOP
4201 00 . NOP
4202 00 . NOP
4203 00 . NOP
4204 00 . NOP
4205 00 . NOP
4206 00 . NOP
4207 00 . NOP
4208 00 . NOP
4209 00 . NOP
420A 00 . NOP
420B 00 . NOP
420C 00 . NOP
420D 00 . NOP
420E 00 . NOP
420F 00 . NOP
4210 00 . NOP
4211 00 . NOP
4212 00 . NOP
4213 00 . NOP
4214 00 . NOP
4215 00 . NOP
4216 97 . SUB A
4217 32 00 19 2.. LD (1900),A
421A 32 00 19 2.. LD (1900),A
421D 32 00 19 2.. LD (1900),A
4220 32 00 19 2.. LD (1900),A
4223 32 00 19 2.. LD (1900),A
4226 32 00 19 2.. LD (1900),A
4229 32 00 19 2.. LD (1900),A
422C 32 00 19 2.. LD (1900),A
422F 32 00 19 2.. LD (1900),A
4232 32 00 19 2.. LD (1900),A
4235 32 00 19 2.. LD (1900),A
4238 32 00 19 2.. LD (1900),A
423B 32 00 19 2.. LD (1900),A
423E 32 00 19 2.. LD (1900),A
4241 32 00 19 2.. LD (1900),A
4244 32 00 19 2.. LD (1900),A
4247 32 00 19 2.. LD (1900),A
424A 32 00 19 2.. LD (1900),A
424D 32 00 19 2.. LD (1900),A
4250 32 00 19 2.. LD (1900),A
4253 32 00 19 2.. LD (1900),A
4256 32 00 19 2.. LD (1900),A
4259 32 00 19 2.. LD (1900),A
425C 32 00 19 2.. LD (1900),A
425F 32 00 19 2.. LD (1900),A
4262 B7 . OR A
4263 21 00 00 !.. LD HL,0000
4266 22 75 46 "uF LD (4675),HL
4269 21 18 42 !.B LD HL,4218
426C 22 72 42 "rB LD (4272),HL
426F C9 . RET
4270 EB . EX DE,HL
4271 22 18 42 ".B LD (4218),HL
4274 2A 72 42 *rB LD HL,(4272)
4277 23 # INC HL
4278 23 # INC HL
4279 CB 7E .~ BIT 7,(HL)
427B 23 # INC HL
427C 22 72 42 "rB LD (4272),HL
427F EB . EX DE,HL
4280 C8 . RET Z
4281 CD 16 42 ..B CALL 4216
4284 C3 26 29 .&) JP 2926
4287 08 . EX AF,AF'
4288 F6 01 .. OR 01
428A 08 . EX AF,AF'
428B CB 40 .@ BIT 0,B
428D 20 06 . JR NZ,4295
428F 04 . INC B
4290 DD CB 09 FE .... SET 7,(IX+09)
4294 C9 . RET
4295 F5 . PUSH AF
4296 D5 . PUSH DE
4297 E5 . PUSH HL
4298 DD CB 09 BE .... RES 7,(IX+09)
429C DD 34 .4 INC (IX+0A)
429E 0A . LD A,(BC)
429F CD AB 42 ..B CALL 42AB
42A2 87 . ADD A
42A3 47 G LD B,A
42A4 E1 . POP HL
42A5 D1 . POP DE
42A6 F1 . POP AF
42A7 C9 . RET
42A8 97 . SUB A
42A9 18 DF .. JR 428A
42AB DD 66 0A .f. LD H,(IX+0A)
42AE DD 7E 0B .~. LD A,(IX+0B)
42B1 E6 03 .. AND 03
42B3 5F _ LD E,A
42B4 FE 02 .. CP 02
42B6 20 07 . JR NZ,42BF
42B8 CD 48 5F .H_ CALL 5F48 ; Segment 2 ist Ausnahme
42BB C0 . RET NZ
42BC DD 66 0A .f. LD H,(IX+0A)
42BF 7B { LD A,E
42C0 C6 19 .. ADD A,19
42C2 57 W LD D,A
42C3 5C \ LD E,H
42C4 1A . LD A,(DE)
42C5 B7 . OR A
42C6 C0 . RET NZ
42C7 D5 . PUSH DE
42C8 7A z LD A,D
42C9 CD 70 42 .pB CALL 4270
42CC D6 19 .. SUB A,19
42CE 5F _ LD E,A
42CF 16 04 .. LD D,04
42D1 FE 02 .. CP 02
42D3 20 05 . JR NZ,42DA
42D5 CD 55 65 .Ue CALL 6555
42D8 18 03 .. JR 42DD
42DA CD 5C 65 .\e CALL 655C
42DD 0F . RRCA
42DE E1 . POP HL
42DF 77 w LD (HL),A
42E0 C9 . RET
42E1 CB 1C .. RR H
42E3 CB 1D .. RR L
42E5 D5 . PUSH DE
42E6 63 c LD H,E
42E7 7A z LD A,D
42E8 CD 70 42 .pB CALL 4270
42EB D6 19 .. SUB A,19
42ED 5F _ LD E,A
42EE 16 04 .. LD D,04
42F0 CD 5C 65 .\e CALL 655C
42F3 D1 . POP DE
42F4 0F . RRCA
42F5 12 . LD (DE),A
42F6 67 g LD H,A
42F7 29 ) ADD HL,HL
42F8 C9 . RET
42F9 CB 1C .. RR H
42FB CB 1D .. RR L
42FD D5 . PUSH DE
42FE 63 c LD H,E
42FF 7A z LD A,D
4300 CD 70 42 .pB CALL 4270
4303 D6 19 .. SUB A,19
4305 5F _ LD E,A
4306 16 04 .. LD D,04
4308 CD 2C 66 .,f CALL 662C
430B D1 . POP DE
430C 0F . RRCA
430D 67 g LD H,A
430E F6 80 .. OR 80
4310 12 . LD (DE),A
4311 29 ) ADD HL,HL
4312 C9 . RET ;---------------------------------
4313 0A . LD A,(BC) ; Naechstes Codewort holen --> HL
4314 6F o LD L,A
4315 0C . INC C
4316 0A . LD A,(BC)
4317 0C . INC C
4318 CC 87 42 ..B CALL Z,4287
431B B7 . OR A
431C FA 32 43 .2C JP M,4332
431F D9 . EXX
4320 81 . ADD C
4321 5F _ LD E,A
4322 1A . LD A,(DE)
4323 D9 . EXX
4324 67 g LD H,A
4325 29 ) ADD HL,HL
4326 B7 . OR A
4327 C0 . RET NZ
4328 D5 . PUSH DE
4329 D9 . EXX
432A D5 . PUSH DE
432B D9 . EXX
432C D1 . POP DE
432D CD E1 42 ..B CALL 42E1
4330 D1 . POP DE
4331 C9 . RET
4332 D5 . PUSH DE
4333 ED 5B C4 41 .[.A LD DE,(41C4)
4337 E6 7F .. AND 7F
4339 1F . RRA
433A CB 1D .. RR L
433C 67 g LD H,A
433D 38 0C 8. JR C,434B
433F 19 . ADD HL,DE
4340 5C \ LD E,H
4341 16 1A .. LD D,1A
4343 1A . LD A,(DE)
4344 67 g LD H,A
4345 29 ) ADD HL,HL
4346 B7 . OR A
4347 28 E4 (. JR Z,432D
4349 D1 . POP DE
434A C9 . RET
434B CD DE 43 ..C CALL 43DE
434E 20 0C . JR NZ,435C
4350 C6 19 .. ADD A,19
4352 57 W LD D,A
4353 5C \ LD E,H
4354 1A . LD A,(DE)
4355 67 g LD H,A
4356 29 ) ADD HL,HL
4357 B7 . OR A
4358 28 D3 (. JR Z,432D
435A D1 . POP DE
435B C9 . RET
435C CD 5C 65 .\e CALL 655C
435F 0F . RRCA
4360 67 g LD H,A
4361 29 ) ADD HL,HL
4362 D1 . POP DE
4363 C9 . RET
4364 0A . LD A,(BC)
4365 6F o LD L,A
4366 0C . INC C
4367 0A . LD A,(BC)
4368 0C . INC C
4369 CC 87 42 ..B CALL Z,4287
436C B7 . OR A
436D FA 82 43 ..C JP M,4382
4370 D9 . EXX
4371 81 . ADD C
4372 5F _ LD E,A
4373 1A . LD A,(DE)
4374 D9 . EXX
4375 67 g LD H,A
4376 29 ) ADD HL,HL
4377 D8 . RET C
4378 D5 . PUSH DE
4379 D9 . EXX
437A D5 . PUSH DE
437B D9 . EXX
437C D1 . POP DE
437D CD F9 42 ..B CALL 42F9
4380 D1 . POP DE
4381 C9 . RET
4382 D5 . PUSH DE
4383 ED 5B C4 41 .[.A LD DE,(41C4)
4387 E6 7F .. AND 7F
4389 1F . RRA
438A CB 1D .. RR L
438C 67 g LD H,A
438D 38 10 8. JR C,439F
438F 19 . ADD HL,DE
4390 5C \ LD E,H
4391 16 1A .. LD D,1A
4393 1A . LD A,(DE)
4394 67 g LD H,A
4395 29 ) ADD HL,HL
4396 7B { LD A,E
4397 D1 . POP DE
4398 D8 . RET C
4399 D5 . PUSH DE
439A 5F _ LD E,A
439B 16 1A .. LD D,1A
439D 18 DE .. JR 437D
439F CD DE 43 ..C CALL 43DE
43A2 20 0C . JR NZ,43B0
43A4 C6 19 .. ADD A,19
43A6 57 W LD D,A
43A7 5C \ LD E,H
43A8 1A . LD A,(DE)
43A9 67 g LD H,A
43AA 29 ) ADD HL,HL
43AB D4 F9 42 ..B CALL NC,42F9
43AE D1 . POP DE
43AF C9 . RET
43B0 CD 2C 66 .,f CALL 662C
43B3 0F . RRCA
43B4 67 g LD H,A
43B5 29 ) ADD HL,HL
43B6 D1 . POP DE
43B7 C9 . RET ;------------ REF-Addr vom Stack
43B8 0A . LD A,(BC) ; --> HL, DE
43B9 6F o LD L,A
43BA 0C . INC C
43BB 0A . LD A,(BC)
43BC 0C . INC C
43BD CC 87 42 ..B CALL Z,4287
43C0 B7 . OR A
43C1 FA CC 43 ..C JP M,43CC
43C4 D9 . EXX
43C5 81 . ADD C
43C6 D9 . EXX
43C7 67 g LD H,A
43C8 97 . SUB A
43C9 5F _ LD E,A
43CA 57 W LD D,A
43CB C9 . RET ;----------------------------------
43CC ED 5B C4 41 .[.A LD DE,(41C4)
43D0 E6 7F .. AND 7F
43D2 1F . RRA
43D3 CB 1D .. RR L
43D5 67 g LD H,A
43D6 38 06 8. JR C,43DE
43D8 19 . ADD HL,DE
43D9 97 . SUB A
43DA 11 01 00 ... LD DE,0001
43DD C9 . RET
43DE 19 . ADD HL,DE
43DF 16 1A .. LD D,1A
43E1 5C \ LD E,H
43E2 1A . LD A,(DE)
43E3 67 g LD H,A
43E4 29 ) ADD HL,HL
43E5 B7 . OR A
43E6 CC E1 42 ..B CALL Z,42E1
43E9 5E ^ LD E,(HL)
43EA 2C , INC L
43EB 56 V LD D,(HL)
43EC 2C , INC L
43ED 7E ~ LD A,(HL)
43EE 2C , INC L
43EF 66 f LD H,(HL)
43F0 EB . EX DE,HL
43F1 14 . INC D
43F2 15 . DEC D
43F3 20 07 . JR NZ,43FC
43F5 FE 06 .. CP 06
43F7 30 03 0. JR NC,43FC
43F9 5F _ LD E,A
43FA BF . CP A
43FB C9 . RET
43FC E6 07 .. AND 07
43FE 5F _ LD E,A
43FF 7A z LD A,D
4400 FE 04 .. CP 04
4402 7B { LD A,E
4403 D0 . RET NC
4404 16 05 .. LD D,05
4406 C9 . RET ;----------------------------------
4407 0A . LD A,(BC)
4408 6F o LD L,A
4409 0C . INC C
440A 0A . LD A,(BC)
440B CD 1B 43 ..C CALL 431B
440E 54 T LD D,H
440F 5D ] LD E,L
4410 2C , INC L
4411 2C , INC L
4412 28 05 (. JR Z,4419
4414 0C . INC C
4415 C0 . RET NZ
4416 C3 87 42 ..B JP 4287
4419 0D . DEC C
441A FD 21 85 46 .!.F LD IY,4685
441E FD CB 00 C6 .... SET 0,(IY+00)
4422 CD B8 43 ..C CALL 43B8
4425 7D } LD A,L
4426 32 86 46 2.F LD (4686),A
4429 ED 53 87 46 .S.F LD (4687),DE
442D 7B { LD A,E
442E CD CA 44 ..D CALL 44CA
4431 54 T LD D,H
4432 5D ] LD E,L
4433 2C , INC L
4434 2C , INC L
4435 CC 1B 45 ..E CALL Z,451B
4438 C9 . RET
4439 FD 21 85 46 .!.F LD IY,4685
443D FD CB 00 86 .... RES 0,(IY+00)
4441 18 DF .. JR 4422 ;-------- Branchaddresse holen -----
4443 0A . LD A,(BC)
4444 5F _ LD E,A
4445 0C . INC C
4446 0A . LD A,(BC)
4447 57 W LD D,A
4448 0C . INC C
4449 C0 . RET NZ
444A C3 87 42 ..B JP 4287
444D FE 06 .. CP 06
444F 30 0C 0. JR NC,445D
4451 C6 19 .. ADD A,19
4453 57 W LD D,A
4454 5C \ LD E,H
4455 1A . LD A,(DE)
4456 67 g LD H,A
4457 29 ) ADD HL,HL
4458 B7 . OR A
4459 C0 . RET NZ
445A C3 E1 42 ..B JP 42E1
445D ED 5B 75 46 .[uF LD DE,(4675)
4461 7C | LD A,H
4462 BA . CP D
4463 20 07 . JR NZ,446C
4465 7B { LD A,E
4466 B7 . OR A
4467 28 03 (. JR Z,446C
4469 63 c LD H,E
446A 29 ) ADD HL,HL
446B C9 . RET
446C 16 04 .. LD D,04
446E 1E 07 .. LD E,07
4470 CD 5C 65 .\e CALL 655C
4473 0F . RRCA
4474 5F _ LD E,A
4475 54 T LD D,H
4476 ED 53 75 46 .SuF LD (4675),DE
447A 63 c LD H,E
447B 29 ) ADD HL,HL
447C C9 . RET
447D FE 06 .. CP 06
447F 30 0B 0. JR NC,448C
4481 C6 19 .. ADD A,19
4483 57 W LD D,A
4484 5C \ LD E,H
4485 1A . LD A,(DE)
4486 67 g LD H,A
4487 29 ) ADD HL,HL
4488 D8 . RET C
4489 C3 F9 42 ..B JP 42F9
448C ED 5B 75 46 .[uF LD DE,(4675)
4490 7C | LD A,H
4491 BA . CP D
4492 20 07 . JR NZ,449B
4494 7B { LD A,E
4495 87 . ADD A
4496 30 03 0. JR NC,449B
4498 63 c LD H,E
4499 29 ) ADD HL,HL
449A C9 . RET
449B 16 04 .. LD D,04
449D 1E 07 .. LD E,07
449F CD 2C 66 .,f CALL 662C
44A2 0F . RRCA
44A3 F6 80 .. OR 80
44A5 18 CD .. JR 4474
44A7 CD 13 43 ..C CALL 4313
44AA 7D } LD A,L
44AB E6 F8 .. AND F8
44AD 6F o LD L,A
44AE C9 . RET
44AF CD 1B 43 ..C CALL 431B
44B2 7D } LD A,L
44B3 E6 F8 .. AND F8
44B5 6F o LD L,A
44B6 C9 . RET
44B7 CD 64 43 .dC CALL 4364
44BA 7D } LD A,L
44BB E6 F8 .. AND F8
44BD 6F o LD L,A
44BE C9 . RET
44BF 5D ] LD E,L
44C0 7D } LD A,L
44C1 E6 F0 .. AND F0
44C3 6F o LD L,A
44C4 AB . XOR E
44C5 1F . RRA
44C6 CB 1C .. RR H
44C8 CB 1D .. RR L
44CA FD 74 01 .t. LD (IY+01),H
44CD FD 77 02 .w. LD (IY+02),A
44D0 5F _ LD E,A
44D1 FD 7E 03 .~. LD A,(IY+03)
44D4 B7 . OR A
44D5 20 15 . JR NZ,44EC ; Fremdatenraum
44D7 7B { LD A,E ; DS4 = 0
44D8 C6 19 .. ADD A,19
44DA 57 W LD D,A
44DB 5C \ LD E,H
44DC 1A . LD A,(DE) ; DE=1900+256*segment+AddrDIV256
44DD 67 g LD H,A
44DE 29 ) ADD HL,HL ; In Byteaddresse wandeln
44DF D8 . RET C
44E0 FD CB 00 46 ...F BIT 0,(IY+00)
44E4 CA F9 42 ..B JP Z,42F9
44E7 B7 . OR A
44E8 C0 . RET NZ
44E9 C3 E1 42 ..B JP 42E1
44EC 57 W LD D,A
44ED FD CB 00 46 ...F BIT 0,(IY+00)
44F1 20 05 . JR NZ,44F8
44F3 CD 2C 66 .,f CALL 662C
44F6 18 03 .. JR 44FB
44F8 CD 5C 65 .\e CALL 655C
44FB 0F . RRCA
44FC 67 g LD H,A
44FD 29 ) ADD HL,HL
44FE C9 . RET
44FF CB 3F .? SLR A
4501 CB 1C .. RR H
4503 CB 1D .. RR L
4505 F5 . PUSH AF
4506 CD CA 44 ..D CALL 44CA
4509 F1 . POP AF
450A D0 . RET NC
450B 2C , INC L
450C C9 . RET ;---------------------------------
450D 7D } LD A,L
450E 83 . ADD E
450F 3E 00 >. LD A,00
4511 8A . ADC D
4512 20 02 . JR NZ,4516
4514 19 . ADD HL,DE
4515 C9 . RET
4516 3D = DEC A
4517 20 0D . JR NZ,4526
4519 19 . ADD HL,DE
451A 25 % DEC H
451B 24 $ INC H
451C CB 44 .D BIT 0,H
451E C0 . RET NZ
451F 25 % DEC H
4520 D5 . PUSH DE
4521 11 00 01 ... LD DE,0100
4524 18 01 .. JR 4527
4526 D5 . PUSH DE
4527 97 . SUB A
4528 CB 1C .. RR H
452A FD 66 01 .f. LD H,(IY+01)
452D CB 14 .. RL H
452F 17 . RLA
4530 19 . ADD HL,DE
4531 CE 00 .. ADC A,00
4533 1F . RRA
4534 CB 1C .. RR H
4536 CB 1D .. RR L
4538 F5 . PUSH AF
4539 FD 86 02 ... ADD (IY+02)
453C CD CA 44 ..D CALL 44CA
453F F1 . POP AF
4540 D1 . POP DE
4541 D0 . RET NC
4542 2C , INC L
4543 C9 . RET
4544 D5 . PUSH DE
4545 11 00 00 ... LD DE,0000
4548 CD 78 45 .xE CALL 4578
454B D1 . POP DE
454C C9 . RET
454D 2A 79 46 *yF LD HL,(4679)
4550 DD 75 0C .u. LD (IX+0C),L
4553 DD 74 0D .t. LD (IX+0D),H
4556 DD CB 07 AE .... RES 5,(IX+07)
455A DD CB 07 F6 .... SET 6,(IX+07)
455E C9 . RET
455F 69 i LD L,C
4560 60 ` LD H,B
4561 DD 4E 0C .N. LD C,(IX+0C)
4564 DD 46 0D .F. LD B,(IX+0D)
4567 B7 . OR A
4568 ED 42 .B SBC HL,BC
456A 22 7B 46 "{F LD (467B),HL
456D ED 43 79 46 .CyF LD (4679),BC
4571 CD C1 45 ..E CALL 45C1
4574 DD CB 07 B6 .... RES 6,(IX+07)
4578 22 7D 46 "}F LD (467D),HL
457B ED 53 7F 46 .S.F LD (467F),DE
457F DD CB 07 76 ...v BIT 6,(IX+07)
4583 20 DA . JR NZ,455F
4585 7B { LD A,E
4586 BD . CP L
4587 30 01 0. JR NC,458A
4589 7D } LD A,L
458A ED 44 .D NEG
458C 28 0F (. JR Z,459D
458E 04 . INC B
458F 05 . DEC B
4590 20 12 . JR NZ,45A4
4592 B9 . CP C
4593 38 0F 8. JR C,45A4
4595 78 x LD A,B
4596 B1 . OR C
4597 C9 . RET
4598 2A 7D 46 *}F LD HL,(467D)
459B 18 F8 .. JR 4595
459D 04 . INC B
459E 05 . DEC B
459F 28 F4 (. JR Z,4595
45A1 37 7 SCF
45A2 18 01 .. JR 45A5
45A4 B7 . OR A
45A5 69 i LD L,C
45A6 60 ` LD H,B
45A7 4F O LD C,A
45A8 3E 00 >. LD A,00
45AA 8F . ADC A
45AB 47 G LD B,A
45AC B7 . OR A
45AD ED 42 .B SBC HL,BC
45AF 28 E7 (. JR Z,4598
45B1 DD CB 07 EE .... SET 5,(IX+07)
45B5 ED 43 7B 46 .C{F LD (467B),BC
45B9 22 79 46 "yF LD (4679),HL
45BC 2A 7D 46 *}F LD HL,(467D)
45BF 37 7 SCF
45C0 C9 . RET
45C1 2A 7F 46 *.F LD HL,(467F)
45C4 7C | LD A,H
45C5 B5 . OR L
45C6 28 0C (. JR Z,45D4
45C8 FD 21 89 46 .!.F LD IY,4689
45CC ED 5B 7B 46 .[{F LD DE,(467B)
45D0 CD 0D 45 ..E CALL 450D
45D3 EB . EX DE,HL
45D4 D5 . PUSH DE
45D5 2A 7D 46 *}F LD HL,(467D)
45D8 FD 21 85 46 .!.F LD IY,4685
45DC ED 5B 7B 46 .[{F LD DE,(467B)
45E0 CD 0D 45 ..E CALL 450D
45E3 D1 . POP DE
45E4 ED 4B 79 46 .KyF LD BC,(4679)
45E8 DD CB 07 B6 .... RES 6,(IX+07)
45EC DD CB 07 AE .... RES 5,(IX+07)
45F0 C9 . RET
45F1 DD CB 07 6E ...n BIT 5,(IX+07)
45F5 28 0D (. JR Z,4604
45F7 E5 . PUSH HL
45F8 2A 79 46 *yF LD HL,(4679)
45FB 22 77 46 "wF LD (4677),HL
45FE 09 . ADD HL,BC
45FF 22 79 46 "yF LD (4679),HL
4602 E1 . POP HL
4603 C9 . RET
4604 3E FF >. LD A,FF
4606 32 78 46 2xF LD (4678),A
4609 DD CB 07 EE .... SET 5,(IX+07)
460D ED 43 79 46 .CyF LD (4679),BC
4611 C9 . RET
4612 2A 77 46 *wF LD HL,(4677)
4615 CB 7C .| BIT 7,H
4617 20 D3 . JR NZ,45EC
4619 22 79 46 "yF LD (4679),HL
461C C9 . RET
461D ED 43 81 46 .C.F LD (4681),BC
4621 1B . DEC DE
4622 7B { LD A,E
4623 B2 . OR D
4624 C8 . RET Z
4625 FD 21 85 46 .!.F LD IY,4685
4629 CD 0D 45 ..E CALL 450D
462C 79 y LD A,C
462D 93 . SUB E ; BC DECR DE
462E 4F O LD C,A
462F 78 x LD A,B
4630 9A . SBC D
4631 47 G LD B,A
4632 C9 . RET ;-----------------------------------
4633 2A 81 46 *.F LD HL,(4681)
4636 B7 . OR A
4637 ED 42 .B SBC HL,BC
4639 DD CB 07 6E ...n BIT 5,(IX+07)
463D 28 07 (. JR Z,4646
463F ED 4B 79 46 .KyF LD BC,(4679)
4643 B7 . OR A
4644 ED 42 .B SBC HL,BC
4646 EB . EX DE,HL
4647 18 A3 .. JR 45EC ; REST Bit 5 (IX+7)
4649 F5 . PUSH AF
464A E5 . PUSH HL
464B 3E 01 >. LD A,01
464D CD 7D 44 .}D CALL 447D
4650 36 FF 6. LD (HL),FF
4652 54 T LD D,H
4653 5D ] LD E,L
4654 13 . INC DE
4655 97 . SUB A
4656 93 . SUB E
4657 4F O LD C,A
4658 06 00 .. LD B,00
465A CB 44 .D BIT 0,H
465C 20 01 . JR NZ,465F
465E 04 . INC B
465F 78 x LD A,B
4660 B1 . OR C
4661 28 02 (. JR Z,4665
4663 ED B0 .. LDIR
4665 D1 . POP DE
4666 F1 . POP AF
4667 92 . SUB D
4668 47 G LD B,A
4669 0E 04 .. LD C,04
466B 5A Z LD E,D
466C 16 01 .. LD D,01
466E 13 . INC DE
466F 21 00 06 !.. LD HL,0600
4672 C3 B6 69 ..i JP 69B6
4675 00 . NOP
4676 00 . NOP
4677 00 . NOP
4678 00 . NOP
4679 00 . NOP
467A 00 . NOP
467B 00 . NOP
467C 00 . NOP
467D 00 . NOP
467E 00 . NOP
467F 00 . NOP
4680 00 . NOP
4681 00 . NOP
4682 00 . NOP
4683 56 V LD D,(HL) ; "VR" - 8 Byte-Register
4684 52 R LD D,D
4685 00 . NOP
4686 00 . NOP
4687 00 . NOP
4688 00 . NOP
4689 00 . NOP
468A 00 . NOP
468B 00 . NOP
468C 00 . NOP
468D CD B8 43 ..C CALL 43B8
4690 18 03 .. JR 4695
4692 CD C0 43 ..C CALL 43C0
4695 FD 21 85 46 .!.F LD IY,4685
4699 22 85 46 ".F LD (4685),HL
469C ED 53 87 46 .S.F LD (4687),DE
46A0 FD CB 00 C6 .... SET 0,(IY+00)
46A4 20 4B K JR NZ,46F1
46A6 23 # INC HL
46A7 7B { LD A,E
46A8 5C \ LD E,H
46A9 C6 19 .. ADD A,19
46AB 57 W LD D,A
46AC 1A . LD A,(DE)
46AD 67 g LD H,A
46AE 29 ) ADD HL,HL
46AF B7 . OR A
46B0 CC E1 42 ..B CALL Z,42E1
46B3 7E ~ LD A,(HL)
46B4 FE FF .. CP FF
46B6 28 05 (. JR Z,46BD
46B8 2C , INC L
46B9 5F _ LD E,A
46BA 16 00 .. LD D,00
46BC C9 . RET
46BD 2C , INC L
46BE 5E ^ LD E,(HL)
46BF 2C , INC L
46C0 56 V LD D,(HL)
46C1 CB 7A .z BIT 7,D
46C3 C2 13 4A ..J JP NZ,4A13
46C6 CB 95 .. RES 2,L
46C8 7E ~ LD A,(HL)
46C9 2C , INC L
46CA 66 f LD H,(HL)
46CB 6F o LD L,A
46CC D5 . PUSH DE
46CD CD BF 44 ..D CALL 44BF
46D0 D1 . POP DE
46D1 7E ~ LD A,(HL)
46D2 3C < INC A
46D3 C2 13 4A ..J JP NZ,4A13
46D6 7D } LD A,L
46D7 C6 06 .. ADD A,06
46D9 6F o LD L,A
46DA 3E FF >. LD A,FF
46DC C9 . RET
46DD CD B8 43 ..C CALL 43B8
46E0 FD 21 89 46 .!.F LD IY,4689
46E4 22 89 46 ".F LD (4689),HL
46E7 ED 53 8B 46 .S.F LD (468B),DE
46EB FD CB 00 C6 .... SET 0,(IY+00)
46EF 28 B5 (. JR Z,46A6
46F1 23 # INC HL
46F2 CD ED 44 ..D CALL 44ED
46F5 7E ~ LD A,(HL)
46F6 FE FF .. CP FF
46F8 20 1A . JR NZ,4714
46FA 23 # INC HL
46FB 23 # INC HL
46FC BE . CP (HL)
46FD 2B + DEC HL
46FE 2B + DEC HL
46FF 28 13 (. JR Z,4714
4701 2C , INC L
4702 5E ^ LD E,(HL)
4703 2C , INC L
4704 56 V LD D,(HL)
4705 CB 95 .. RES 2,L
4707 7E ~ LD A,(HL)
4708 2C , INC L
4709 66 f LD H,(HL)
470A 6F o LD L,A
470B D5 . PUSH DE
470C CD BF 44 ..D CALL 44BF
470F D1 . POP DE
4710 2C , INC L
4711 2C , INC L
4712 18 C6 .. JR 46DA
4714 B7 . OR A
4715 F2 B8 46 ..F JP P,46B8
4718 2D - DEC L
4719 56 V LD D,(HL)
471A 2D - DEC L
471B 5E ^ LD E,(HL)
471C 7B { LD A,E
471D E6 07 .. AND 07
471F C2 13 4A ..J JP NZ,4A13
4722 EB . EX DE,HL
4723 97 . SUB A
4724 CD FF 44 ..D CALL 44FF
4727 CB D5 .. SET 2,L
4729 7E ~ LD A,(HL)
472A 18 8C .. JR 46B8
472C CD 8D 46 ..F CALL 468D
472F E5 . PUSH HL
4730 CD A8 2C .., CALL 2CA8
4733 C5 . PUSH BC
4734 4D M LD C,L
4735 44 D LD B,H
4736 18 20 . JR 4758
4738 DD CB 07 5E ...^ BIT 3,(IX+07)
473C 20 0E . JR NZ,474C
473E DD 75 18 .u. LD (IX+18),L ; hpv1
4741 DD 74 19 .t. LD (IX+19),H
4744 DD 71 1A .q. LD (IX+1A),C ; hpv2
4747 DD 70 1B .p. LD (IX+1B),B
474A 18 0C .. JR 4758
474C DD 6E 18 .n. LD L,(IX+18)
474F DD 66 19 .f. LD H,(IX+19)
4752 DD 4E 1A .N. LD C,(IX+1A)
4755 DD 46 1B .F. LD B,(IX+1B)
4758 2B + DEC HL
4759 CB 7C .| BIT 7,H
475B 28 03 (. JR Z,4760
475D 21 00 00 !.. LD HL,0000
4760 CB 78 .x BIT 7,B
4762 20 1F . JR NZ,4783
4764 7B { LD A,E
4765 91 . SUB C
4766 7A z LD A,D
4767 98 . SBC B
4768 30 02 0. JR NC,476C
476A 42 B LD B,D
476B 4B K LD C,E
476C EB . EX DE,HL
476D 69 i LD L,C
476E 60 ` LD H,B
476F B7 . OR A
4770 ED 52 .R SBC HL,DE
4772 28 0F (. JR Z,4783
4774 38 0D 8. JR C,4783
4776 C1 . POP BC
4777 E3 . EX (SP),HL
4778 CD 0D 45 ..E CALL 450D
477B D1 . POP DE
477C 7B { LD A,E
477D 14 . INC D
477E 15 . DEC D
477F C8 . RET Z
4780 3E FF >. LD A,FF
4782 C9 . RET
4783 C1 . POP BC
4784 E1 . POP HL
4785 97 . SUB A
4786 57 W LD D,A
4787 5F _ LD E,A
4788 C9 . RET
4789 CD 8D 46 ..F CALL 468D
478C E5 . PUSH HL
478D CD A8 2C .., CALL 2CA8
4790 C5 . PUSH BC
4791 42 B LD B,D
4792 4B K LD C,E
4793 18 A3 .. JR 4738
4795 CD 8D 46 ..F CALL 468D
4798 E5 . PUSH HL
4799 CD A8 2C .., CALL 2CA8
479C 22 4A 4B "JK LD (4B4A),HL
479F CD A8 2C .., CALL 2CA8
47A2 C5 . PUSH BC
47A3 44 D LD B,H
47A4 4D M LD C,L
47A5 2A 4A 4B *JK LD HL,(4B4A)
47A8 18 8E .. JR 4738
47AA CD B8 43 ..C CALL 43B8
47AD FD 21 89 46 .!.F LD IY,4689
47B1 22 89 46 ".F LD (4689),HL
47B4 ED 53 8B 46 .S.F LD (468B),DE
47B8 ED 43 D0 41 .C.A LD (41D0),BC
47BC 3E 02 >. LD A,02
47BE 32 89 46 2.F LD (4689),A
47C1 7B { LD A,E
47C2 32 3B 4B 2;K LD (4B3B),A
47C5 B5 . OR L
47C6 32 3C 4B 2<K LD (4B3C),A
47C9 7C | LD A,H
47CA 32 3D 4B 2=K LD (4B3D),A
47CD 32 3A 4B 2:K LD (4B3A),A
47D0 2C , INC L
47D1 7B { LD A,E
47D2 CD CA 44 ..D CALL 44CA
47D5 22 38 4B "8K LD (4B38),HL
47D8 5E ^ LD E,(HL)
47D9 1C . INC E
47DA 28 28 (( JR Z,4804
47DC 1D . DEC E
47DD 3E 0D >. LD A,0D
47DF BB . CP E
47E0 30 1C 0. JR NC,47FE
47E2 FD CB 00 8E .... RES 1,(IY+00)
47E6 2A 38 4B *8K LD HL,(4B38)
47E9 36 00 6. LD (HL),00
47EB 21 00 00 !.. LD HL,0000
47EE 22 3E 4B ">K LD (4B3E),HL
47F1 2A 3A 4B *:K LD HL,(4B3A)
47F4 22 8A 46 ".F LD (468A),HL
47F7 2A 38 4B *8K LD HL,(4B38)
47FA 1E 00 .. LD E,00
47FC 3E 0D >. LD A,0D
47FE 2C , INC L
47FF 16 00 .. LD D,00
4801 42 B LD B,D
4802 4F O LD C,A
4803 C9 . RET
4804 FD CB 00 8E .... RES 1,(IY+00)
4808 2D - DEC L
4809 56 V LD D,(HL)
480A 2D - DEC L
480B 5E ^ LD E,(HL)
480C ED 53 3E 4B .S>K LD (4B3E),DE
4810 3A 8C 46 :.F LD A,(468C)
4813 B7 . OR A
4814 20 35 5 JR NZ,484B
4816 7B { LD A,E
4817 E6 0F .. AND 0F
4819 FE 03 .. CP 03
481B 20 CE . JR NZ,47EB
481D EB . EX DE,HL
481E CD BF 44 ..D CALL 44BF
4821 7E ~ LD A,(HL)
4822 2C , INC L
4823 A6 . AND (HL)
4824 3C < INC A
4825 20 C4 . JR NZ,47EB
4827 2C , INC L
4828 3A 3C 4B :<K LD A,(4B3C)
482B BE . CP (HL)
482C 20 BD . JR NZ,47EB
482E 2C , INC L
482F 3A 3D 4B :=K LD A,(4B3D)
4832 BE . CP (HL)
4833 20 B6 . JR NZ,47EB
4835 2C , INC L
4836 22 42 4B "BK LD (4B42),HL
4839 4E N LD C,(HL)
483A 2C , INC L
483B 46 F LD B,(HL)
483C 2C , INC L
483D E5 . PUSH HL
483E 2A 38 4B *8K LD HL,(4B38)
4841 2C , INC L
4842 5E ^ LD E,(HL)
4843 2C , INC L
4844 56 V LD D,(HL)
4845 E1 . POP HL
4846 FD CB 00 D6 .... SET 2,(IY+00)
484A C9 . RET
484B 7B { LD A,E
484C A2 . AND D
484D 3C < INC A
484E CA EB 47 ..G JP Z,47EB
4851 EB . EX DE,HL
4852 CD BF 44 ..D CALL 44BF
4855 18 DF .. JR 4836
4857 D5 . PUSH DE
4858 2A 38 4B *8K LD HL,(4B38)
485B E5 . PUSH HL
485C CD 08 48 ..H CALL 4808
485F D1 . POP DE
4860 3E FF >. LD A,FF
4862 12 . LD (DE),A
4863 FD CB 00 8E .... RES 1,(IY+00)
4867 D1 . POP DE
4868 7B { LD A,E
4869 FE 0E .. CP 0E
486B 30 0F 0. JR NC,487C
486D 14 . INC D
486E 15 . DEC D
486F 20 0B . JR NZ,487C
4871 2A 3A 4B *:K LD HL,(4B3A)
4874 22 8A 46 ".F LD (468A),HL
4877 2A 38 4B *8K LD HL,(4B38)
487A 2C , INC L
487B C9 . RET
487C 79 y LD A,C
487D 93 . SUB E
487E 78 x LD A,B
487F 9A . SBC D
4880 D0 . RET NC
4881 FD CB 00 4E ...N BIT 1,(IY+00)
4885 20 D0 . JR NZ,4857
4887 CD 3F 49 .?I CALL 493F
488A FD CB 00 5E ...^ BIT 3,(IY+00)
488E C4 ED 49 ..I CALL NZ,49ED
4891 C9 . RET
4892 14 . INC D
4893 15 . DEC D
4894 20 0B . JR NZ,48A1
4896 3E 0D >. LD A,0D
4898 BB . CP E
4899 38 06 8. JR C,48A1
489B 2A 38 4B *8K LD HL,(4B38)
489E 73 s LD (HL),E
489F 2C , INC L
48A0 C9 . RET
48A1 E5 . PUSH HL
48A2 2A 38 4B *8K LD HL,(4B38)
48A5 36 FF 6. LD (HL),FF
48A7 2C , INC L
48A8 73 s LD (HL),E
48A9 2C , INC L
48AA 72 r LD (HL),D
48AB E1 . POP HL
48AC C9 . RET
48AD 3A 89 46 :.F LD A,(4689)
48B0 B7 . OR A
48B1 CA 13 4A ..J JP Z,4A13
48B4 79 y LD A,C
48B5 93 . SUB E
48B6 78 x LD A,B
48B7 9A . SBC D
48B8 D0 . RET NC
48B9 D5 . PUSH DE
48BA 2A 85 46 *.F LD HL,(4685)
48BD E5 . PUSH HL
48BE 2A 87 46 *.F LD HL,(4687)
48C1 E5 . PUSH HL
48C2 2A 89 46 *.F LD HL,(4689)
48C5 2E 01 .. LD L,01
48C7 22 85 46 ".F LD (4685),HL
48CA 2A 8B 46 *.F LD HL,(468B)
48CD 22 87 46 ".F LD (4687),HL
48D0 FD CB 00 4E ...N BIT 1,(IY+00)
48D4 20 3A : JR NZ,4910
48D6 CD 3F 49 .?I CALL 493F
48D9 22 4A 4B "JK LD (4B4A),HL
48DC FD CB 00 5E ...^ BIT 3,(IY+00)
48E0 28 20 ( JR Z,4902
48E2 ED 4B 40 4B .K@K LD BC,(4B40)
48E6 EB . EX DE,HL
48E7 2A 8A 46 *.F LD HL,(468A)
48EA E5 . PUSH HL
48EB 2A 42 4B *BK LD HL,(4B42)
48EE 2C , INC L
48EF 2C , INC L
48F0 CD B0 2C .., CALL 2CB0
48F3 E1 . POP HL
48F4 22 8A 46 ".F LD (468A),HL
48F7 FD 21 89 46 .!.F LD IY,4689
48FB FD CB 00 5E ...^ BIT 3,(IY+00)
48FF C4 ED 49 ..I CALL NZ,49ED
4902 E1 . POP HL
4903 22 87 46 ".F LD (4687),HL
4906 E1 . POP HL
4907 22 85 46 ".F LD (4685),HL
490A 2A 4A 4B *JK LD HL,(4B4A)
490D D1 . POP DE
490E B7 . OR A
490F C9 . RET
4910 D5 . PUSH DE
4911 2A 38 4B *8K LD HL,(4B38)
4914 CD 08 48 ..H CALL 4808
4917 D1 . POP DE
4918 79 y LD A,C
4919 93 . SUB E
491A 78 x LD A,B
491B 9A . SBC D
491C DC 3F 49 .?I CALL C,493F
491F 22 4A 4B "JK LD (4B4A),HL
4922 ED 4B 40 4B .K@K LD BC,(4B40)
4926 EB . EX DE,HL
4927 2A 8A 46 *.F LD HL,(468A)
492A E5 . PUSH HL
492B 2A 38 4B *8K LD HL,(4B38)
492E 2C , INC L
492F CD B0 2C .., CALL 2CB0
4932 2A 38 4B *8K LD HL,(4B38)
4935 7E ~ LD A,(HL)
4936 36 FF 6. LD (HL),FF
4938 2C , INC L
4939 77 w LD (HL),A
493A 2C , INC L
493B 36 00 6. LD (HL),00
493D 18 B4 .. JR 48F3
493F D5 . PUSH DE
4940 21 CA 41 !.A LD HL,41CA
4943 3A 8C 46 :.F LD A,(468C)
4946 B7 . OR A
4947 28 11 (. JR Z,495A
4949 D5 . PUSH DE
494A 57 W LD D,A
494B 21 00 01 !.. LD HL,0100
494E 5D ] LD E,L
494F CD 2C 66 .,f CALL 662C
4952 0F . RRCA
4953 67 g LD H,A
4954 29 ) ADD HL,HL
4955 D1 . POP DE
4956 3E 02 >. LD A,02
4958 18 02 .. JR 495C
495A 3E 06 >. LD A,06
495C E5 . PUSH HL
495D 32 48 4B 2HK LD (4B48),A
4960 C6 0F .. ADD A,0F
4962 83 . ADD E
4963 30 01 0. JR NC,4966
4965 14 . INC D
4966 E6 F0 .. AND F0
4968 5F _ LD E,A
4969 2A 3E 4B *>K LD HL,(4B3E)
496C 09 . ADD HL,BC
496D ED 4B 48 4B .KHK LD BC,(4B48)
4971 09 . ADD HL,BC
4972 C1 . POP BC
4973 0A . LD A,(BC)
4974 BD . CP L
4975 20 23 # JR NZ,499A
4977 03 . INC BC
4978 0A . LD A,(BC)
4979 0B . DEC BC
497A BC . CP H
497B 20 1D . JR NZ,499A
497D 2A 3E 4B *>K LD HL,(4B3E)
4980 19 . ADD HL,DE
4981 DC D8 49 ..I CALL C,49D8
4984 7D } LD A,L
4985 02 . LD (BC),A
4986 03 . INC BC
4987 7C | LD A,H
4988 02 . LD (BC),A
4989 2A 48 4B *HK LD HL,(4B48)
498C EB . EX DE,HL
498D B7 . OR A
498E ED 52 .R SBC HL,DE
4990 EB . EX DE,HL
4991 2A 42 4B *BK LD HL,(4B42)
4994 73 s LD (HL),E
4995 2C , INC L
4996 72 r LD (HL),D
4997 2C , INC L
4998 D1 . POP DE
4999 C9 . RET
499A ED 43 44 4B .CDK LD (4B44),BC
499E 0A . LD A,(BC)
499F 6F o LD L,A
49A0 03 . INC BC
49A1 0A . LD A,(BC)
49A2 67 g LD H,A
49A3 E5 . PUSH HL
49A4 19 . ADD HL,DE
49A5 DC D8 49 ..I CALL C,49D8
49A8 22 46 4B "FK LD (4B46),HL
49AB 2A 48 4B *HK LD HL,(4B48)
49AE EB . EX DE,HL
49AF B7 . OR A
49B0 ED 52 .R SBC HL,DE
49B2 E3 . EX (SP),HL
49B3 22 3E 4B ">K LD (4B3E),HL
49B6 CD BF 44 ..D CALL 44BF
49B9 D1 . POP DE
49BA 3A 8C 46 :.F LD A,(468C)
49BD B7 . OR A
49BE 20 0E . JR NZ,49CE
49C0 36 FF 6. LD (HL),FF
49C2 2C , INC L
49C3 36 FF 6. LD (HL),FF
49C5 2C , INC L
49C6 ED 4B 3C 4B .K<K LD BC,(4B3C)
49CA 71 q LD (HL),C
49CB 2C , INC L
49CC 70 p LD (HL),B
49CD 2C , INC L
49CE 73 s LD (HL),E
49CF 2C , INC L
49D0 72 r LD (HL),D
49D1 2C , INC L
49D2 D1 . POP DE
49D3 FD CB 00 DE .... SET 3,(IY+00)
49D7 C9 . RET
49D8 3A 8C 46 :.F LD A,(468C)
49DB B7 . OR A
49DC CA 39 4A .9J JP Z,4A39
49DF 2C , INC L
49E0 7D } LD A,L
49E1 E6 0F .. AND 0F
49E3 C0 . RET NZ
49E4 3E 03 >. LD A,03
49E6 DD CB 0B B6 .... RES 6,(IX+0B)
49EA C3 0D 3D ..= JP 3D0D
49ED E5 . PUSH HL
49EE D5 . PUSH DE
49EF 2A 44 4B *DK LD HL,(4B44)
49F2 ED 5B 46 4B .[FK LD DE,(4B46)
49F6 73 s LD (HL),E
49F7 23 # INC HL
49F8 72 r LD (HL),D
49F9 2A 38 4B *8K LD HL,(4B38)
49FC 2D - DEC L
49FD 2D - DEC L
49FE ED 5B 3E 4B .[>K LD DE,(4B3E)
4A02 73 s LD (HL),E
4A03 2C , INC L
4A04 72 r LD (HL),D
4A05 2C , INC L
4A06 36 FF 6. LD (HL),FF
4A08 2C , INC L
4A09 ED 5B 40 4B .[@K LD DE,(4B40)
4A0D 73 s LD (HL),E
4A0E 2C , INC L
4A0F 72 r LD (HL),D
4A10 D1 . POP DE
4A11 E1 . POP HL
4A12 C9 . RET
4A13 3E 0E >. LD A,0E
4A15 CD 0D 3D ..= CALL 3D0D
4A18 97 . SUB A
4A19 57 W LD D,A
4A1A 5F _ LD E,A
4A1B 37 7 SCF
4A1C C9 . RET
4A1D 7A z LD A,D
4A1E B7 . OR A
4A1F C0 . RET NZ
4A20 7B { LD A,E
4A21 FE 0D .. CP 0D
4A23 C0 . RET NZ
4A24 4E N LD C,(HL)
4A25 2C , INC L
4A26 46 F LD B,(HL)
4A27 2D - DEC L
4A28 E5 . PUSH HL
4A29 2A 38 4B *8K LD HL,(4B38)
4A2C 77 w LD (HL),A
4A2D 2C , INC L
4A2E 71 q LD (HL),C
4A2F 2C , INC L
4A30 70 p LD (HL),B
4A31 E1 . POP HL
4A32 C9 . RET
4A33 DD CB 07 C6 .... SET 0,(IX+07)
4A37 18 04 .. JR 4A3D
4A39 DD CB 07 86 .... RES 0,(IX+07)
4A3D DD 36 06 20 .6. LD (IX+06),20
4A41 2A C8 41 *.A LD HL,(41C8)
4A44 3E 7F >. LD A,7F
4A46 CD 49 46 .IF CALL 4649
4A49 21 03 00 !.. LD HL,0003
4A4C 22 CA 41 ".A LD (41CA),HL
4A4F DD 75 18 .u. LD (IX+18),L
4A52 DD 74 19 .t. LD (IX+19),H
4A55 DD 36 06 24 .6.$ LD (IX+06),24
4A59 DD CB 07 A6 .... RES 4,(IX+07)
4A5D DD 6E 18 .n. LD L,(IX+18)
4A60 DD 66 19 .f. LD H,(IX+19)
4A63 FD 21 85 46 .!.F LD IY,4685
4A67 FD CB 00 C6 .... SET 0,(IY+00)
4A6B FD 36 03 00 .6.. LD (IY+03),00
4A6F CD BF 44 ..D CALL 44BF
4A72 22 4A 4B "JK LD (4B4A),HL
4A75 DD CB 07 66 ...f BIT 4,(IX+07)
4A79 20 40 @ JR NZ,4ABB
4A7B 2C , INC L
4A7C 2C , INC L
4A7D 5E ^ LD E,(HL)
4A7E 2C , INC L
4A7F 56 V LD D,(HL)
4A80 7B { LD A,E
4A81 A2 . AND D
4A82 3C < INC A
4A83 CA 09 4B ..K JP Z,4B09
4A86 ED 53 C6 41 .S.A LD (41C6),DE
4A8A 2C , INC L
4A8B 7E ~ LD A,(HL)
4A8C DD 77 1A .w. LD (IX+1A),A
4A8F 2C , INC L
4A90 7E ~ LD A,(HL)
4A91 DD 77 1B .w. LD (IX+1B),A
4A94 7B { LD A,E
4A95 E6 01 .. AND 01
4A97 CB 83 .. RES 0,E
4A99 EB . EX DE,HL
4A9A CD 4D 44 .MD CALL 444D
4A9D DD 7E 18 .~. LD A,(IX+18)
4AA0 BE . CP (HL)
4AA1 20 47 G JR NZ,4AEA
4AA3 2C , INC L
4AA4 DD 7E 19 .~. LD A,(IX+19)
4AA7 BE . CP (HL)
4AA8 20 40 @ JR NZ,4AEA
4AAA 2C , INC L
4AAB 7E ~ LD A,(HL)
4AAC 3C < INC A
4AAD 20 3B ; JR NZ,4AEA
4AAF 2C , INC L
4AB0 DD 7E 1A .~. LD A,(IX+1A)
4AB3 96 . SUB (HL)
4AB4 23 # INC HL
4AB5 DD 7E 1B .~. LD A,(IX+1B)
4AB8 9E . SBC (HL)
4AB9 38 2F 8/ JR C,4AEA
4ABB DD CB 07 E6 .... SET 4,(IX+07)
4ABF 2A C6 41 *.A LD HL,(41C6)
4AC2 16 00 .. LD D,00
4AC4 7D } LD A,L
4AC5 E6 01 .. AND 01
4AC7 5F _ LD E,A
4AC8 CB 85 .. RES 0,L
4ACA CD AD 47 ..G CALL 47AD
4ACD ED 53 40 4B .S@K LD (4B40),DE
4AD1 CD 3F 49 .?I CALL 493F
4AD4 FD CB 00 5E ...^ BIT 3,(IY+00)
4AD8 C4 ED 49 ..I CALL NZ,49ED
4ADB 42 B LD B,D
4ADC 4B K LD C,E
4ADD EB . EX DE,HL
4ADE 2A 4A 4B *JK LD HL,(4B4A)
4AE1 7D } LD A,L
4AE2 C6 06 .. ADD A,06
4AE4 6F o LD L,A
4AE5 CD B0 2C .., CALL 2CB0
4AE8 18 04 .. JR 4AEE
4AEA DD CB 07 C6 .... SET 0,(IX+07)
4AEE DD CB 07 A6 .... RES 4,(IX+07)
4AF2 DD 7E 18 .~. LD A,(IX+18)
4AF5 C6 06 .. ADD A,06
4AF7 DD 86 1A ... ADD (IX+1A)
4AFA DD 77 18 .w. LD (IX+18),A
4AFD DD 7E 19 .~. LD A,(IX+19)
4B00 DD 8E 1B ... ADC (IX+1B)
4B03 DD 77 19 .w. LD (IX+19),A
4B06 D2 5D 4A .]J JP NC,4A5D
4B09 DD 36 06 28 .6.( LD (IX+06),28
4B0D 2A C8 41 *.A LD HL,(41C8)
4B10 23 # INC HL
4B11 23 # INC HL
4B12 22 C6 41 ".A LD (41C6),HL
4B15 2A CA 41 *.A LD HL,(41CA)
4B18 37 7 SCF
4B19 CB 1C .. RR H
4B1B CB 1D .. RR L
4B1D CB 85 .. RES 0,L
4B1F 3E FF >. LD A,FF
4B21 CD 49 46 .IF CALL 4649
4B24 DD 36 06 00 .6.. LD (IX+06),00
4B28 DD CB 07 9E .... RES 3,(IX+07)
4B2C DD CB 07 46 ...F BIT 0,(IX+07)
4B30 C2 26 29 .&) JP NZ,2926
4B33 C3 E4 49 ..I JP 49E4
4B36 54 T LD D,H ; "TR"
4B37 52 R LD D,D
4B38 00 . NOP
4B39 00 . NOP
4B3A 00 . NOP
4B3B 00 . NOP
4B3C 00 . NOP
4B3D 00 . NOP
4B3E 00 . NOP
4B3F 00 . NOP
4B40 00 . NOP
4B41 00 . NOP
4B42 00 . NOP
4B43 00 . NOP
4B44 00 . NOP
4B45 00 . NOP
4B46 00 . NOP
4B47 00 . NOP
4B48 00 . NOP
4B49 00 . NOP
4B4A 00 . NOP
4B4B 00 . NOP
4B4C F5 . PUSH AF
4B4D C5 . PUSH BC
4B4E D5 . PUSH DE
4B4F E5 . PUSH HL
4B50 FD E5 .. PUSH IY
4B52 2A B6 4C *.L LD HL,(4CB6)
4B55 2B + DEC HL
4B56 7C | LD A,H
4B57 B5 . OR L
4B58 20 1D . JR NZ,4B77
4B5A 21 17 82 !.. LD HL,8217
4B5D 3A B8 4C :.L LD A,(4CB8)
4B60 FE 02 .. CP 02
4B62 28 09 (. JR Z,4B6D
4B64 CB CE .. SET 1,(HL)
4B66 3E 02 >. LD A,02
4B68 21 B8 0B !.. LD HL,0BB8
4B6B 18 07 .. JR 4B74
4B6D CB C6 .. SET 0,(HL)
4B6F 3E 01 >. LD A,01
4B71 21 70 17 !p. LD HL,1770
4B74 32 B8 4C 2.L LD (4CB8),A
4B77 22 B6 4C ".L LD (4CB6),HL
4B7A 2A F1 4C *.L LD HL,(4CF1)
4B7D 23 # INC HL
4B7E 22 F1 4C ".L LD (4CF1),HL
4B81 21 B9 4C !.L LD HL,4CB9
4B84 CD 99 4E ..N CALL 4E99
4B87 3A B5 4C :.L LD A,(4CB5)
4B8A B7 . OR A
4B8B 28 08 (. JR Z,4B95
4B8D 2A B3 4C *.L LD HL,(4CB3)
4B90 65 e LD H,L
4B91 6F o LD L,A
4B92 22 B3 4C ".L LD (4CB3),HL
4B95 FD E1 .. POP IY
4B97 E1 . POP HL
4B98 D1 . POP DE
4B99 C1 . POP BC
4B9A F1 . POP AF
4B9B C9 . RET
4B9C F3 . DI
4B9D 2A B3 4C *.L LD HL,(4CB3)
4BA0 7D } LD A,L
4BA1 B7 . OR A
4BA2 28 35 (5 JR Z,4BD9
4BA4 6C l LD L,H
4BA5 26 00 &. LD H,00
4BA7 22 B3 4C ".L LD (4CB3),HL
4BAA FB . EI
4BAB FE 80 .. CP 80
4BAD 28 24 ($ JR Z,4BD3
4BAF CB 7F .. BIT 7,A
4BB1 C4 CA 4B ..K CALL NZ,4BCA
4BB4 21 D1 4C !.L LD HL,4CD1
4BB7 06 03 .. LD B,03
4BB9 0F . RRCA
4BBA F5 . PUSH AF
4BBB C5 . PUSH BC
4BBC E5 . PUSH HL
4BBD DC 99 4E ..N CALL C,4E99
4BC0 E1 . POP HL
4BC1 C1 . POP BC
4BC2 F1 . POP AF
4BC3 11 08 00 ... LD DE,0008
4BC6 19 . ADD HL,DE
4BC7 10 F0 .. DJNZ 4BB9
4BC9 C9 . RET
4BCA F5 . PUSH AF
4BCB 21 C9 4C !.L LD HL,4CC9
4BCE CD 99 4E ..N CALL 4E99
4BD1 F1 . POP AF
4BD2 C9 . RET
4BD3 21 C1 4C !.L LD HL,4CC1
4BD6 C3 99 4E ..N JP 4E99
4BD9 FB . EI
4BDA C9 . RET
4BDB 3A F4 6E :.n LD A,(6EF4)
4BDE DD 96 04 ... SUB (IX+04)
4BE1 ED 44 .D NEG
4BE3 DD 77 04 .w. LD (IX+04),A
4BE6 21 B5 4C !.L LD HL,4CB5
4BE9 DD 7E 2A .~* LD A,(IX+2A)
4BEC FE 05 .. CP 05
4BEE 30 03 0. JR NC,4BF3
4BF0 CB C6 .. SET 0,(HL)
4BF2 C9 . RET
4BF3 CB CE .. SET 1,(HL)
4BF5 C9 . RET
4BF6 3A F4 6E :.n LD A,(6EF4)
4BF9 DD 86 04 ... ADD (IX+04)
4BFC FE 64 .d CP 64
4BFE 38 1E 8. JR C,4C1E
4C00 D6 64 .d SUB A,64
4C02 F5 . PUSH AF
4C03 DD 35 .5 DEC (IX+1C)
4C05 1C . INC E
4C06 20 0B . JR NZ,4C13
4C08 DD 7E 2A .~* LD A,(IX+2A)
4C0B 3C < INC A
4C0C FE 03 .. CP 03
4C0E 30 03 0. JR NC,4C13
4C10 DD 77 2A .w* LD (IX+2A),A
4C13 2A 1C 6E *.n LD HL,(6E1C)
4C16 2E 38 .8 LD L,38
4C18 CD 99 4E ..N CALL 4E99
4C1B F1 . POP AF
4C1C 18 DE .. JR 4BFC
4C1E DD 77 04 .w. LD (IX+04),A
4C21 21 B5 4C !.L LD HL,4CB5
4C24 CB 86 .. RES 0,(HL)
4C26 CB 8E .. RES 1,(HL)
4C28 C9 . RET
4C29 DD 7E 2A .~* LD A,(IX+2A)
4C2C FE 03 .. CP 03
4C2E D0 . RET NC
4C2F DD 36 2A 00 .6*. LD (IX+2A),00
4C33 DD 36 1C 3C .6.< LD (IX+1C),3C
4C37 C9 . RET
4C38 3A F9 4C :.L LD A,(4CF9)
4C3B B7 . OR A
4C3C C8 . RET Z
4C3D 3E 01 >. LD A,01
4C3F 32 F9 4C 2.L LD (4CF9),A
4C42 2A FA 4C *.L LD HL,(4CFA)
4C45 06 11 .. LD B,11
4C47 23 # INC HL
4C48 7E ~ LD A,(HL)
4C49 FE 01 .. CP 01
4C4B 28 0D (. JR Z,4C5A
4C4D 38 03 8. JR C,4C52
4C4F 21 FB 4C !.L LD HL,4CFB
4C52 10 F3 .. DJNZ 4C47
4C54 21 F9 4C !.L LD HL,4CF9
4C57 CB 86 .. RES 0,(HL)
4C59 C9 . RET
4C5A DD 7E 26 .~& LD A,(IX+26)
4C5D B7 . OR A
4C5E 20 28 ( JR NZ,4C88
4C60 22 FA 4C ".L LD (4CFA),HL
4C63 11 FC 4C ..L LD DE,4CFC
4C66 B7 . OR A
4C67 ED 52 .R SBC HL,DE
4C69 DD 7E 06 .~. LD A,(IX+06)
4C6C FE BC .. CP BC
4C6E C0 . RET NZ
4C6F DD 7E 34 .~4 LD A,(IX+34)
4C72 B7 . OR A
4C73 C0 . RET NZ
4C74 DD 36 06 00 .6.. LD (IX+06),00
4C78 DD CB 07 DE .... SET 3,(IX+07)
4C7C DD 75 2C .u, LD (IX+2C),L
4C7F DD 74 2D .t- LD (IX+2D),H
4C82 2A FA 4C *.L LD HL,(4CFA)
4C85 36 00 6. LD (HL),00
4C87 C9 . RET
4C88 DD CB 05 C6 .... SET 0,(IX+05)
4C8C 97 . SUB A
4C8D 32 F9 4C 2.L LD (4CF9),A
4C90 C9 . RET
4C91 F1 . POP AF
4C92 C9 . RET ;---------- SV-Call zustellen -----
4C93 F5 . PUSH AF ; Kanalnummer
4C94 3A FC 6E :.n LD A,(6EFC)
4C97 B7 . OR A
4C98 20 F7 . JR NZ,4C91
4C9A F1 . POP AF
4C9B F5 . PUSH AF
4C9C E5 . PUSH HL
4C9D 21 F9 4C !.L LD HL,4CF9
4CA0 CB CE .. SET 1,(HL) ; irgendein Kanal hat SV-Call
4CA2 21 FC 4C !.L LD HL,4CFC ; 4CFC+Kanalnummer
4CA5 85 . ADD L
4CA6 6F o LD L,A
4CA7 30 01 0. JR NC,4CAA
4CA9 24 $ INC H
4CAA 3E 01 >. LD A,01
4CAC 77 w LD (HL),A ; 1: SV-Call angefordert
4CAD CD 68 6D .hm CALL 6D68 ; unblock (supervisor)
4CB0 E1 . POP HL
4CB1 F1 . POP AF
4CB2 C9 . RET ;--------------------------------
4CB3 00 . NOP
4CB4 00 . NOP
4CB5 00 . NOP
4CB6 70 p LD (HL),B
4CB7 17 . RLA
4CB8 01
4CB9 00 00 ; clock (1)
4CBB 00 . NOP
4CBC 00 . NOP
4CBD 00 . NOP
4CBE 00 . NOP
4CBF 00 . NOP
4CC0 00 . NOP
4CC1 00 . NOP ; clock (2)
4CC2 00 . NOP
4CC3 00 . NOP
4CC4 00 . NOP
4CC5 00 . NOP
4CC6 00 . NOP
4CC7 00 . NOP
4CC8 00 . NOP
4CC9 00 . NOP ; clock (3)
4CCA 00 . NOP
4CCB 00 . NOP
4CCC 00 . NOP
4CCD 00 . NOP
4CCE 00 . NOP
4CCF 00 . NOP
4CD0 00 . NOP
4CD1 00 . NOP ; clock (4)
4CD2 00 . NOP
4CD3 00 . NOP
4CD4 00 . NOP
4CD5 00 . NOP
4CD6 00 . NOP
4CD7 00 . NOP
4CD8 00 . NOP
4CD9 00 . NOP ; clock (5)
4CDA 00 . NOP
4CDB 00 . NOP
- Fortsetzung in Datei "eumel0.prt.3" -
|
