[DEMOCOS
$20
SAM 0
SCR 1
ADAi
100
STC 1B
SAM 1
ROL 1
STC 1C
SETi1
0000
SETi3
-1000
#1A LDA
1
ADD 1K
AZE
APOi
JMP p+2
JMP 1Q
ADD 1K
AZE
APOi
JMP p+2
JMP 2Q
ADD 1K
AZE
APOi
JMP p+2
JMP 3Q
ADD 1K
JMP 4Q
#1K -400
#1L 400
#1Q JMP 1R
LDAi
#1C 0000
MUL 2
DISi3
LDAi
#1B 0000
ADD 1
BCLi
6000
STC 1
XSK 3
JMP 1A
JMP 20
#2Q JMP 2R
ADD 1C
COM
JMP 1C+1
#3Q JMP 1R
JMP 2Q+1
#4Q JMP 2R
JMP 1Q+1
#1R ADD 1L
ADAi
1D+4000
STC 2
JMP 0
#2R ADD 1L
COM
ADAi
1D+377+4000
STC 2
JMP 0
[END
[COSINE
#1D 3777
3777
3777
3777
3777
3776
3776
3775
3775
3774
3774
3773
3772
3771
3770
3767
3766
3765
3764
3762
3761
3756
3755
3753
3752
3750
3746
3744
3742
3737
3735
3732
3731
3726
3724
3721
3716
3713
3711
3705
3703
3677
3674
3671
3666
3662
3657
3653
3650
3644
3640
3634
3631
3624
3621
3614
3610
3604
3600
3573
3567
3562
3556
3551
3544
3537
3532
3525
3520
3513
3506
3500
3473
3465
3460
3452
3445
3437
3432
3424
3416
3410
3402
3374
3366
3357
3351
3342
3335
3326
3320
3311
3302
3273
3265
3255
3247
3237
3231
3221
3212
3203
3174
3164
3155
3145
3136
3126
3117
3106
3077
3066
3057
3046
3037
3026
3017
3006
2776
2765
2755
2744
2734
2723
2713
2702
2672
2661
2650
2637
2626
2615
2604
2573
2562
2550
2537
2525
2515
2503
2472
2460
2447
2434
2423
2411
2400
2366
2354
2342
2330
2316
2304
2272
2260
2245
2233
2220
2207
2174
2162
2147
2135
2122
2110
2075
2062
2047
2035
2021
2007
1773
1761
1746
1734
1720
1705
1671
1657
1643
1631
1615
1602
1567
1554
1540
1525
1511
1476
1462
1447
1433
1420
1404
1370
1354
1341
1325
1312
1276
1262
1246
1232
1216
1202
1166
1153
1136
1122
1106
1072
1056
1042
1026
1012
0776
0762
0745
0731
0714
0701
0664
0650
0634
0620
0603
0567
0552
0536
0521
0505
0470
0454
0440
0424
0407
0373
0356
0342
0325
0311
0274
0260
0243
0227
0212
0176
0161
0144
0127
0113
0076
0062
0045
0031
0014
[END COSINE
[END DEMOCOS