(lp0
(ccopy_reg
_reconstructor
p1
(cpygments.token
_TokenType
p2
c__builtin__
tuple
p3
(S'Comment'
p4
S'Single'
p5
tp6
tp7
Rp8
(dp9
S'parent'
p10
g1
(g2
g3
(g4
tp11
tp12
Rp13
(dp14
S'Multi'
p15
g1
(g2
g3
(g4
g15
tp16
tp17
Rp18
(dp19
g10
g13
sS'subtypes'
p20
c__builtin__
set
p21
((lp22
tp23
Rp24
sbsg10
g1
(g2
g3
(ttp25
Rp26
(dp27
S'Number'
p28
g1
(g2
g3
(S'Literal'
p29
g28
tp30
tp31
Rp32
(dp33
S'Integer'
p34
g1
(g2
g3
(g29
g28
g34
tp35
tp36
Rp37
(dp38
g10
g32
sS'Long'
p39
g1
(g2
g3
(g29
g28
g34
g39
tp40
tp41
Rp42
(dp43
g10
g37
sg20
g21
((lp44
tp45
Rp46
sbsg20
g21
((lp47
g42
atp48
Rp49
sbsg10
g1
(g2
g3
(g29
tp50
tp51
Rp52
(dp53
S'Scalar'
p54
g1
(g2
g3
(g29
g54
tp55
tp56
Rp57
(dp58
g10
g52
sg20
g21
((lp59
g1
(g2
g3
(g29
g54
S'Plain'
p60
tp61
tp62
Rp63
(dp64
g10
g57
sg20
g21
((lp65
tp66
Rp67
sbatp68
Rp69
sg60
g63
sbsg28
g32
sg10
g26
sS'Other'
p70
g1
(g2
g3
(g29
g70
tp71
tp72
Rp73
(dp74
g10
g52
sg20
g21
((lp75
tp76
Rp77
sbsS'Char'
p78
g1
(g2
g3
(g29
g78
tp79
tp80
Rp81
(dp82
g10
g52
sg20
g21
((lp83
tp84
Rp85
sbsS'String'
p86
g1
(g2
g3
(g29
g86
tp87
tp88
Rp89
(dp90
g78
g1
(g2
g3
(g29
g86
g78
tp91
tp92
Rp93
(dp94
g10
g89
sg20
g21
((lp95
tp96
Rp97
sbsS'Backtick'
p98
g1
(g2
g3
(g29
g86
g98
tp99
tp100
Rp101
(dp102
g10
g89
sg20
g21
((lp103
tp104
Rp105
sbsS'Heredoc'
p106
g1
(g2
g3
(g29
g86
g106
tp107
tp108
Rp109
(dp110
g10
g89
sg20
g21
((lp111
tp112
Rp113
sbsS'Symbol'
p114
g1
(g2
g3
(g29
g86
g114
tp115
tp116
Rp117
(dp118
g10
g89
sg20
g21
((lp119
tp120
Rp121
sbsS'Interpol'
p122
g1
(g2
g3
(g29
g86
g122
tp123
tp124
Rp125
(dp126
g10
g89
sg20
g21
((lp127
tp128
Rp129
sbsS'Delimiter'
p130
g1
(g2
g3
(g29
g86
g130
tp131
tp132
Rp133
(dp134
g10
g89
sg20
g21
((lp135
tp136
Rp137
sbsS'Boolean'
p138
g1
(g2
g3
(g29
g86
g138
tp139
tp140
Rp141
(dp142
g10
g89
sg20
g21
((lp143
tp144
Rp145
sbsS'Character'
p146
g1
(g2
g3
(g29
g86
g146
tp147
tp148
Rp149
(dp150
g10
g89
sg20
g21
((lp151
tp152
Rp153
sbsS'Double'
p154
g1
(g2
g3
(g29
g86
g154
tp155
tp156
Rp157
(dp158
g10
g89
sg20
g21
((lp159
tp160
Rp161
sbsS'Delimeter'
p162
g1
(g2
g3
(g29
g86
g162
tp163
tp164
Rp165
(dp166
g10
g89
sg20
g21
((lp167
tp168
Rp169
sbsS'Atom'
p170
g1
(g2
g3
(g29
g86
g170
tp171
tp172
Rp173
(dp174
g10
g89
sg20
g21
((lp175
tp176
Rp177
sbsS'Affix'
p178
g1
(g2
g3
(g29
g86
g178
tp179
tp180
Rp181
(dp182
g10
g89
sg20
g21
((lp183
tp184
Rp185
sbsS'Name'
p186
g1
(g2
g3
(g29
g86
g186
tp187
tp188
Rp189
(dp190
g10
g89
sg20
g21
((lp191
tp192
Rp193
sbsS'Regex'
p194
g1
(g2
g3
(g29
g86
g194
tp195
tp196
Rp197
(dp198
g10
g89
sg20
g21
((lp199
tp200
Rp201
sbsS'Interp'
p202
g1
(g2
g3
(g29
g86
g202
tp203
tp204
Rp205
(dp206
g10
g89
sg20
g21
((lp207
tp208
Rp209
sbsS'Escape'
p210
g1
(g2
g3
(g29
g86
g210
tp211
tp212
Rp213
(dp214
g10
g89
sg20
g21
((lp215
tp216
Rp217
sbsg20
g21
((lp218
g133
ag117
ag197
ag1
(g2
g3
(g29
g86
S'Doc'
p219
tp220
tp221
Rp222
(dp223
g10
g89
sg20
g21
((lp224
tp225
Rp226
sbag149
ag141
ag157
ag125
ag173
ag165
ag189
ag213
ag1
(g2
g3
(g29
g86
g5
tp227
tp228
Rp229
(dp230
g10
g89
sg20
g21
((lp231
tp232
Rp233
sbag1
(g2
g3
(g29
g86
g70
tp234
tp235
Rp236
(dp237
g10
g89
sg20
g21
((lp238
tp239
Rp240
sbag205
ag101
ag181
ag1
(g2
g3
(g29
g86
S'Moment'
p241
tp242
tp243
Rp244
(dp245
g10
g89
sg20
g21
((lp246
tp247
Rp248
sbag93
ag109
atp249
Rp250
sg5
g229
sg241
g244
sg10
g52
sg70
g236
sg219
g222
sbsg20
g21
((lp251
g89
ag81
ag73
ag1
(g2
g3
(g29
S'Date'
p252
tp253
tp254
Rp255
(dp256
g10
g52
sg20
g21
((lp257
tp258
Rp259
sbag57
ag32
atp260
Rp261
sg252
g255
sbsS'Bin'
p262
g1
(g2
g3
(g29
g28
g262
tp263
tp264
Rp265
(dp266
g10
g32
sg20
g21
((lp267
tp268
Rp269
sbsS'Radix'
p270
g1
(g2
g3
(g29
g28
g270
tp271
tp272
Rp273
(dp274
g10
g32
sg20
g21
((lp275
tp276
Rp277
sbsS'Oct'
p278
g1
(g2
g3
(g29
g28
g278
tp279
tp280
Rp281
(dp282
g10
g32
sg20
g21
((lp283
tp284
Rp285
sbsS'Dec'
p286
g1
(g2
g3
(g29
g28
g286
tp287
tp288
Rp289
(dp290
g10
g32
sg20
g21
((lp291
tp292
Rp293
sbsS'Hex'
p294
g1
(g2
g3
(g29
g28
g294
tp295
tp296
Rp297
(dp298
g10
g32
sg20
g21
((lp299
tp300
Rp301
sbsg20
g21
((lp302
g37
ag273
ag289
ag1
(g2
g3
(g29
g28
S'Decimal'
p303
tp304
tp305
Rp306
(dp307
g10
g32
sg20
g21
((lp308
tp309
Rp310
sbag265
ag1
(g2
g3
(g29
g28
S'Float'
p311
tp312
tp313
Rp314
(dp315
g10
g32
sg20
g21
((lp316
tp317
Rp318
sbag281
ag297
atp319
Rp320
sg303
g306
sg311
g314
sbsS'Generic'
p321
g1
(g2
g3
(g321
tp322
tp323
Rp324
(dp325
g10
g26
sS'Deleted'
p326
g1
(g2
g3
(g321
g326
tp327
tp328
Rp329
(dp330
g10
g324
sg20
g21
((lp331
tp332
Rp333
sbsS'Subheading'
p334
g1
(g2
g3
(g321
g334
tp335
tp336
Rp337
(dp338
g10
g324
sg20
g21
((lp339
tp340
Rp341
sbsS'Heading'
p342
g1
(g2
g3
(g321
g342
tp343
tp344
Rp345
(dp346
g10
g324
sg20
g21
((lp347
tp348
Rp349
sbsS'Emph'
p350
g1
(g2
g3
(g321
g350
tp351
tp352
Rp353
(dp354
g10
g324
sg20
g21
((lp355
tp356
Rp357
sbsS'Prompt'
p358
g1
(g2
g3
(g321
g358
tp359
tp360
Rp361
(dp362
g10
g324
sg20
g21
((lp363
tp364
Rp365
sbsS'Inserted'
p366
g1
(g2
g3
(g321
g366
tp367
tp368
Rp369
(dp370
g10
g324
sg20
g21
((lp371
tp372
Rp373
sbsS'Strong'
p374
g1
(g2
g3
(g321
g374
tp375
tp376
Rp377
(dp378
g10
g324
sg20
g21
((lp379
tp380
Rp381
sbsS'Error'
p382
g1
(g2
g3
(g321
g382
tp383
tp384
Rp385
(dp386
g10
g324
sg20
g21
((lp387
tp388
Rp389
sbsS'Traceback'
p390
g1
(g2
g3
(g321
g390
tp391
tp392
Rp393
(dp394
g10
g324
sg20
g21
((lp395
tp396
Rp397
sbsg20
g21
((lp398
g345
ag337
ag1
(g2
g3
(g321
S'Output'
p399
tp400
tp401
Rp402
(dp403
g10
g324
sg20
g21
((lp404
tp405
Rp406
sbag377
ag353
ag385
ag393
ag369
ag361
ag329
atp407
Rp408
sg399
g402
sbsS'Operator'
p409
g1
(g2
g3
(g409
tp410
tp411
Rp412
(dp413
g10
g26
sS'DBS'
p414
g1
(g2
g3
(g409
g414
tp415
tp416
Rp417
(dp418
g10
g412
sg20
g21
((lp419
tp420
Rp421
sbsg20
g21
((lp422
g417
ag1
(g2
g3
(g409
S'Word'
p423
tp424
tp425
Rp426
(dp427
g10
g412
sg20
g21
((lp428
tp429
Rp430
sbatp431
Rp432
sg423
g426
sbsg86
g89
sg186
g1
(g2
g3
(g186
tp433
tp434
Rp435
(dp436
S'Variable'
p437
g1
(g2
g3
(g186
g437
tp438
tp439
Rp440
(dp441
g10
g435
sS'Class'
p442
g1
(g2
g3
(g186
g437
g442
tp443
tp444
Rp445
(dp446
g10
g440
sg20
g21
((lp447
tp448
Rp449
sbsS'Anonymous'
p450
g1
(g2
g3
(g186
g437
g450
tp451
tp452
Rp453
(dp454
g10
g440
sg20
g21
((lp455
tp456
Rp457
sbsS'Instance'
p458
g1
(g2
g3
(g186
g437
g458
tp459
tp460
Rp461
(dp462
g10
g440
sg20
g21
((lp463
tp464
Rp465
sbsS'Global'
p466
g1
(g2
g3
(g186
g437
g466
tp467
tp468
Rp469
(dp470
g10
g440
sg20
g21
((lp471
tp472
Rp473
sbsg20
g21
((lp474
g453
ag461
ag1
(g2
g3
(g186
g437
S'Magic'
p475
tp476
tp477
Rp478
(dp479
g10
g440
sg20
g21
((lp480
tp481
Rp482
sbag469
ag445
atp483
Rp484
sg475
g478
sbsg409
g1
(g2
g3
(g186
g409
tp485
tp486
Rp487
(dp488
g10
g435
sg20
g21
((lp489
tp490
Rp491
sbsS'Decorator'
p492
g1
(g2
g3
(g186
g492
tp493
tp494
Rp495
(dp496
g10
g435
sg20
g21
((lp497
tp498
Rp499
sbsS'Entity'
p500
g1
(g2
g3
(g186
g500
tp501
tp502
Rp503
(dp504
g10
g435
sg414
g1
(g2
g3
(g186
g500
g414
tp505
tp506
Rp507
(dp508
g10
g503
sg20
g21
((lp509
tp510
Rp511
sbsg20
g21
((lp512
g507
atp513
Rp514
sbsg114
g1
(g2
g3
(g186
g114
tp515
tp516
Rp517
(dp518
g10
g435
sg20
g21
((lp519
tp520
Rp521
sbsS'Property'
p522
g1
(g2
g3
(g186
g522
tp523
tp524
Rp525
(dp526
g10
g435
sg20
g21
((lp527
tp528
Rp529
sbsS'Pseudo'
p530
g1
(g2
g3
(g186
g530
tp531
tp532
Rp533
(dp534
g10
g435
sg20
g21
((lp535
tp536
Rp537
sbsS'Type'
p538
g1
(g2
g3
(g186
g538
tp539
tp540
Rp541
(dp542
g10
g435
sg20
g21
((lp543
tp544
Rp545
sbsS'Classes'
p546
g1
(g2
g3
(g186
g546
tp547
tp548
Rp549
(dp550
g10
g435
sg20
g21
((lp551
tp552
Rp553
sbsS'Tag'
p554
g1
(g2
g3
(g186
g554
tp555
tp556
Rp557
(dp558
g10
g435
sg20
g21
((lp559
tp560
Rp561
sbsS'Constant'
p562
g1
(g2
g3
(g186
g562
tp563
tp564
Rp565
(dp566
g10
g435
sg20
g21
((lp567
tp568
Rp569
sbsS'Function'
p570
g1
(g2
g3
(g186
g570
tp571
tp572
Rp573
(dp574
g10
g435
sg20
g21
((lp575
g1
(g2
g3
(g186
g570
g475
tp576
tp577
Rp578
(dp579
g10
g573
sg20
g21
((lp580
tp581
Rp582
sbatp583
Rp584
sg475
g578
sbsS'Blubb'
p585
g1
(g2
g3
(g186
g585
tp586
tp587
Rp588
(dp589
g10
g435
sg20
g21
((lp590
tp591
Rp592
sbsS'Label'
p593
g1
(g2
g3
(g186
g593
tp594
tp595
Rp596
(dp597
g10
g435
sg20
g21
((lp598
tp599
Rp600
sbsS'Field'
p601
g1
(g2
g3
(g186
g601
tp602
tp603
Rp604
(dp605
g10
g435
sg20
g21
((lp606
tp607
Rp608
sbsS'Exception'
p609
g1
(g2
g3
(g186
g609
tp610
tp611
Rp612
(dp613
g10
g435
sg20
g21
((lp614
tp615
Rp616
sbsS'Namespace'
p617
g1
(g2
g3
(g186
g617
tp618
tp619
Rp620
(dp621
g10
g435
sg20
g21
((lp622
tp623
Rp624
sbsg20
g21
((lp625
g495
ag588
ag533
ag503
ag440
ag612
ag525
ag557
ag573
ag549
ag1
(g2
g3
(g186
g442
tp626
tp627
Rp628
(dp629
g10
g435
sg414
g1
(g2
g3
(g186
g442
g414
tp630
tp631
Rp632
(dp633
g10
g628
sg20
g21
((lp634
tp635
Rp636
sbsg20
g21
((lp637
g1
(g2
g3
(g186
g442
S'Start'
p638
tp639
tp640
Rp641
(dp642
g10
g628
sg20
g21
((lp643
tp644
Rp645
sbag632
atp646
Rp647
sg638
g641
sbag1
(g2
g3
(g186
g70
tp648
tp649
Rp650
(dp651
g10
g435
sS'Member'
p652
g1
(g2
g3
(g186
g70
g652
tp653
tp654
Rp655
(dp656
g10
g650
sg20
g21
((lp657
tp658
Rp659
sbsg20
g21
((lp660
g655
atp661
Rp662
sbag596
ag487
ag620
ag1
(g2
g3
(g186
S'Attribute'
p663
tp664
tp665
Rp666
(dp667
g10
g435
sg437
g1
(g2
g3
(g186
g663
g437
tp668
tp669
Rp670
(dp671
g10
g666
sg20
g21
((lp672
tp673
Rp674
sbsg20
g21
((lp675
g670
atp676
Rp677
sbag565
ag1
(g2
g3
(g186
S'Builtin'
p678
tp679
tp680
Rp681
(dp682
g10
g435
sg538
g1
(g2
g3
(g186
g678
g538
tp683
tp684
Rp685
(dp686
g10
g681
sg20
g21
((lp687
tp688
Rp689
sbsg20
g21
((lp690
g1
(g2
g3
(g186
g678
g530
tp691
tp692
Rp693
(dp694
g10
g681
sg20
g21
((lp695
tp696
Rp697
sbag685
atp698
Rp699
sg530
g693
sbag604
ag541
ag517
atp700
Rp701
sg10
g26
sg442
g628
sg678
g681
sg663
g666
sg70
g650
sbsS'Punctuation'
p702
g1
(g2
g3
(g702
tp703
tp704
Rp705
(dp706
g10
g26
sg20
g21
((lp707
g1
(g2
g3
(g702
S'Indicator'
p708
tp709
tp710
Rp711
(dp712
g10
g705
sg20
g21
((lp713
tp714
Rp715
sbatp716
Rp717
sg708
g711
sbsg4
g13
sg29
g52
sg70
g1
(g2
g3
(g70
tp718
tp719
Rp720
(dp721
g10
g26
sg20
g21
((lp722
tp723
Rp724
sbsg382
g1
(g2
g3
(g382
tp725
tp726
Rp727
(dp728
g10
g26
sg20
g21
((lp729
tp730
Rp731
sbsS'Token'
p732
g26
sg210
g1
(g2
g3
(g210
tp733
tp734
Rp735
(dp736
g10
g26
sg20
g21
((lp737
tp738
Rp739
sbsg20
g21
((lp740
g435
ag720
ag1
(g2
g3
(S'Keyword'
p741
tp742
tp743
Rp744
(dp745
g10
g26
sg538
g1
(g2
g3
(g741
g538
tp746
tp747
Rp748
(dp749
g10
g744
sg20
g21
((lp750
tp751
Rp752
sbsS'Control'
p753
g1
(g2
g3
(g741
g753
tp754
tp755
Rp756
(dp757
g10
g744
sg20
g21
((lp758
tp759
Rp760
sbsg562
g1
(g2
g3
(g741
g562
tp761
tp762
Rp763
(dp764
g10
g744
sg20
g21
((lp765
tp766
Rp767
sbsg617
g1
(g2
g3
(g741
g617
tp768
tp769
Rp770
(dp771
g10
g744
sg20
g21
((lp772
tp773
Rp774
sbsS'PreProc'
p775
g1
(g2
g3
(g741
g775
tp776
tp777
Rp778
(dp779
g10
g744
sg20
g21
((lp780
tp781
Rp782
sbsg530
g1
(g2
g3
(g741
g530
tp783
tp784
Rp785
(dp786
g10
g744
sg20
g21
((lp787
tp788
Rp789
sbsS'Reserved'
p790
g1
(g2
g3
(g741
g790
tp791
tp792
Rp793
(dp794
g10
g744
sg20
g21
((lp795
tp796
Rp797
sbsg20
g21
((lp798
g770
ag1
(g2
g3
(g741
g423
tp799
tp800
Rp801
(dp802
g10
g744
sg20
g21
((lp803
tp804
Rp805
sbag756
ag1
(g2
g3
(g741
S'Declaration'
p806
tp807
tp808
Rp809
(dp810
g10
g744
sg20
g21
((lp811
tp812
Rp813
sbag1
(g2
g3
(g741
g741
tp814
tp815
Rp816
(dp817
g10
g744
sg20
g21
((lp818
tp819
Rp820
sbag785
ag763
ag748
ag793
ag778
atp821
Rp822
sg741
g816
sg806
g809
sg423
g801
sbag324
ag1
(g2
g3
(S'Text'
p823
tp824
tp825
Rp826
(dp827
S'Beer'
p828
g1
(g2
g3
(g823
g828
tp829
tp830
Rp831
(dp832
g10
g826
sg20
g21
((lp833
tp834
Rp835
sbsS'Whitespace'
p836
g1
(g2
g3
(g823
g836
tp837
tp838
Rp839
(dp840
g10
g826
sg20
g21
((lp841
tp842
Rp843
sbsg10
g26
sS'Root'
p844
g1
(g2
g3
(g823
g844
tp845
tp846
Rp847
(dp848
g10
g826
sg20
g21
((lp849
tp850
Rp851
sbsg114
g1
(g2
g3
(g823
g114
tp852
tp853
Rp854
(dp855
g10
g826
sg20
g21
((lp856
tp857
Rp858
sbsg702
g1
(g2
g3
(g823
g702
tp859
tp860
Rp861
(dp862
g10
g826
sg20
g21
((lp863
tp864
Rp865
sbsg20
g21
((lp866
g847
ag854
ag861
ag839
ag831
ag1
(g2
g3
(g823
S'Rag'
p867
tp868
tp869
Rp870
(dp871
g10
g826
sg20
g21
((lp872
tp873
Rp874
sbatp875
Rp876
sg867
g870
sbag412
ag735
ag705
ag13
ag727
ag52
atp877
Rp878
sg741
g744
sg823
g826
sbsS'Special'
p879
g1
(g2
g3
(g4
g879
tp880
tp881
Rp882
(dp883
g10
g13
sg20
g21
((lp884
tp885
Rp886
sbsS'Hashbang'
p887
g1
(g2
g3
(g4
g887
tp888
tp889
Rp890
(dp891
g10
g13
sg20
g21
((lp892
tp893
Rp894
sbsS'Preproc'
p895
g1
(g2
g3
(g4
g895
tp896
tp897
Rp898
(dp899
g10
g13
sg20
g21
((lp900
tp901
Rp902
sbsg5
g8
sS'Directive'
p903
g1
(g2
g3
(g4
g903
tp904
tp905
Rp906
(dp907
g10
g13
sg20
g21
((lp908
tp909
Rp910
sbsg219
g1
(g2
g3
(g4
g219
tp911
tp912
Rp913
(dp914
g10
g13
sg20
g21
((lp915
tp916
Rp917
sbsS'Singleline'
p918
g1
(g2
g3
(g4
g918
tp919
tp920
Rp921
(dp922
g10
g13
sg20
g21
((lp923
tp924
Rp925
sbsS'Multiline'
p926
g1
(g2
g3
(g4
g926
tp927
tp928
Rp929
(dp930
g10
g13
sg20
g21
((lp931
tp932
Rp933
sbsg20
g21
((lp934
g913
ag906
ag890
ag18
ag921
ag898
ag929
ag8
ag1
(g2
g3
(g4
S'PreprocFile'
p935
tp936
tp937
Rp938
(dp939
g10
g13
sg20
g21
((lp940
tp941
Rp942
sbag1
(g2
g3
(g4
S'SingleLine'
p943
tp944
tp945
Rp946
(dp947
g10
g13
sg20
g21
((lp948
tp949
Rp950
sbag882
atp951
Rp952
sg935
g938
sg943
g946
sbsg20
g21
((lp953
tp954
Rp955
sbV;--------------------------------------
p956
tp957
a(g826
V\u000a
p958
tp959
a(g8
V; Lychrel numbers.
p960
tp961
a(g826
V\u000a
p962
tp963
a(g8
V; 
p964
tp965
a(g826
V\u000a
p966
tp967
a(g8
V; :author: Marc 'BlackJack' Rintsch
p968
tp969
a(g826
V\u000a
p970
tp971
a(g8
V; :date: 2008-03-07
p972
tp973
a(g826
V\u000a
p974
tp975
a(g8
V; :version: 0.1
p976
tp977
a(g826
V\u000a
p978
tp979
a(g8
V; 
p980
tp981
a(g826
V\u000a
p982
tp983
a(g8
V; Prints all `Lychrel numbers`_ between 1 and 100000.
p984
tp985
a(g826
V\u000a
p986
tp987
a(g8
V; 
p988
tp989
a(g826
V\u000a
p990
tp991
a(g8
V; The numbers are stored as array of "digits" in little endian
p992
tp993
a(g826
V\u000a
p994
tp995
a(g8
V; order.  Each digit is a byte with a value between 0 and 9.
p996
tp997
a(g826
V\u000a
p998
tp999
a(g8
V; 
p1000
tp1001
a(g826
V\u000a
p1002
tp1003
a(g8
V; Runtime on C64: 00:21:01
p1004
tp1005
a(g826
V\u000a
p1006
tp1007
a(g8
V; 
p1008
tp1009
a(g826
V\u000a
p1010
tp1011
a(g8
V; .. _Lychrel numbers: http://en.wikipedia.org/wiki/Lychrel_number
p1012
tp1013
a(g826
V\u000a
p1014
tp1015
a(g8
V; 
p1016
tp1017
a(g826
V\u000a
p1018
tp1019
a(g8
V; .. cl65 -l -tnone -C simple.cfg lychrel.s -o lychrel.prg
p1020
tp1021
a(g826
V\u000a
p1022
tp1023
a(g8
V;--------------------------------------
p1024
tp1025
a(g826
V\u000a\u000a
p1026
tp1027
a(g8
V;--------------------------------------
p1028
tp1029
a(g826
V\u000a
p1030
tp1031
a(g8
V; External addresses.
p1032
tp1033
a(g826
V\u000a
p1034
tp1035
a(g8
V;--------------------------------------
p1036
tp1037
a(g826
V\u000a	
p1038
tp1039
a(g435
Vchrout
p1040
tp1041
a(g826
V	
p1042
tp1043
a(g412
V=
p1044
tp1045
a(g826
V 
p1046
tp1047
a(g297
V$ffd2
p1048
tp1049
a(g826
V\u000a\u000a
p1050
tp1051
a(g8
V;--------------------------------------
p1052
tp1053
a(g826
V\u000a
p1054
tp1055
a(g8
V; Constants.
p1056
tp1057
a(g826
V\u000a
p1058
tp1059
a(g8
V;--------------------------------------
p1060
tp1061
a(g826
V\u000a	
p1062
tp1063
a(g435
VTO
p1064
tp1065
a(g826
V		
p1066
tp1067
a(g412
g1044
tp1068
a(g826
g1046
tp1069
a(g37
V100000
p1070
tp1071
a(g826
V\u000a	
p1072
tp1073
a(g435
VTO_DIGITS
p1074
tp1075
a(g826
g1042
tp1076
a(g412
g1044
tp1077
a(g826
g1046
tp1078
a(g37
V10
p1079
tp1080
a(g826
V\u000a	
p1081
tp1082
a(g435
VITERATIONS
p1083
tp1084
a(g826
g1042
tp1085
a(g412
g1044
tp1086
a(g826
g1046
tp1087
a(g37
V100
p1088
tp1089
a(g826
V\u000a	
p1090
tp1091
a(g435
VMAX_DIGITS
p1092
tp1093
a(g826
g1042
tp1094
a(g412
g1044
tp1095
a(g826
g1046
tp1096
a(g435
VTO_DIGITS
p1097
tp1098
a(g826
g1046
tp1099
a(g412
V+
p1100
tp1101
a(g826
g1046
tp1102
a(g435
VITERATIONS
p1103
tp1104
a(g826
V\u000a\u000a
p1105
tp1106
a(g8
V;--------------------------------------
p1107
tp1108
a(g826
V\u000a
p1109
tp1110
a(g8
V; Global variables.
p1111
tp1112
a(g826
V\u000a
p1113
tp1114
a(g8
V;--------------------------------------
p1115
tp1116
a(g826
V\u000a
p1117
tp1118
a(g785
V.zeropage
p1119
tp1120
a(g826
V\u000a
p1121
tp1122
a(g8
V; 
p1123
tp1124
a(g826
V\u000a
p1125
tp1126
a(g8
V; Length of the currently tested `n` in digits.
p1127
tp1128
a(g826
V\u000a
p1129
tp1130
a(g8
V; 
p1131
tp1132
a(g826
V\u000a
p1133
tp1134
a(g596
Vn_length:
p1135
tp1136
a(g826
V\u000a	
p1137
tp1138
a(g785
V.res
p1139
tp1140
a(g826
g1046
tp1141
a(g37
V1
p1142
tp1143
a(g826
V\u000a
p1144
tp1145
a(g8
V; 
p1146
tp1147
a(g826
V\u000a
p1148
tp1149
a(g8
V; Length of the number(s) `xa` and `xb` while testing.
p1150
tp1151
a(g826
V\u000a
p1152
tp1153
a(g8
V; 
p1154
tp1155
a(g826
V\u000a
p1156
tp1157
a(g596
Vlength:
p1158
tp1159
a(g826
V\u000a	
p1160
tp1161
a(g785
V.res
p1162
tp1163
a(g826
g1046
tp1164
a(g37
g1142
tp1165
a(g826
V\u000a\u000a
p1166
tp1167
a(g785
V.bss
p1168
tp1169
a(g826
V\u000a
p1170
tp1171
a(g8
V; 
p1172
tp1173
a(g826
V\u000a
p1174
tp1175
a(g8
V; Number to be tested as digits i.e. bytes with values between
p1176
tp1177
a(g826
V\u000a
p1178
tp1179
a(g8
V; 0 and 9.  The length is stored in `n_length`.
p1180
tp1181
a(g826
V\u000a
p1182
tp1183
a(g8
V; 
p1184
tp1185
a(g826
V\u000a
p1186
tp1187
a(g596
Vn:
p1188
tp1189
a(g826
V\u000a	
p1190
tp1191
a(g785
V.res
p1192
tp1193
a(g826
g1046
tp1194
a(g435
VTO_DIGITS
p1195
tp1196
a(g826
V\u000a
p1197
tp1198
a(g8
V; 
p1199
tp1200
a(g826
V\u000a
p1201
tp1202
a(g8
V; Space for calculating the reversed and added values.
p1203
tp1204
a(g826
V\u000a
p1205
tp1206
a(g8
V; In the `main` code the current number is copied into `xa`
p1207
tp1208
a(g826
V\u000a
p1209
tp1210
a(g8
V; and then repeatedly `reverse_add`\u005ced to itself with the
p1211
tp1212
a(g826
V\u000a
p1213
tp1214
a(g8
V; result of that adding stored in `xb`.
p1215
tp1216
a(g826
V\u000a
p1217
tp1218
a(g8
V; 
p1219
tp1220
a(g826
V\u000a
p1221
tp1222
a(g596
Vxa:
p1223
tp1224
a(g826
V\u000a	
p1225
tp1226
a(g785
V.res
p1227
tp1228
a(g826
g1046
tp1229
a(g435
VMAX_DIGITS
p1230
tp1231
a(g826
V\u000a
p1232
tp1233
a(g596
Vxb:
p1234
tp1235
a(g826
V\u000a	
p1236
tp1237
a(g785
V.res
p1238
tp1239
a(g826
g1046
tp1240
a(g435
VMAX_DIGITS
p1241
tp1242
a(g826
V\u000a\u000a
p1243
tp1244
a(g8
V;--------------------------------------
p1245
tp1246
a(g826
V\u000a
p1247
tp1248
a(g8
V; BASIC header.
p1249
tp1250
a(g826
V\u000a
p1251
tp1252
a(g8
V;--------------------------------------
p1253
tp1254
a(g826
V\u000a
p1255
tp1256
a(g785
V.code
p1257
tp1258
a(g826
V\u000a	
p1259
tp1260
a(g785
V.word
p1261
tp1262
a(g826
g1046
tp1263
a(g297
V0800h
p1264
tp1265
a(g826
V		
p1266
tp1267
a(g8
V; Load address.
p1268
tp1269
a(g826
V\u000a	
p1270
tp1271
a(g785
V.byte
p1272
tp1273
a(g826
g1046
tp1274
a(g37
V0
p1275
tp1276
a(g826
V\u000a	
p1277
tp1278
a(g785
V.word
p1279
tp1280
a(g826
g1046
tp1281
a(g435
V@line_end
p1282
tp1283
a(g826
V\u000a	
p1284
tp1285
a(g785
V.word
p1286
tp1287
a(g826
g1046
tp1288
a(g37
V2008
p1289
tp1290
a(g826
V		
p1291
tp1292
a(g8
V; Line number.
p1293
tp1294
a(g826
V\u000a	
p1295
tp1296
a(g785
V.byte
p1297
tp1298
a(g826
g1046
tp1299
a(g297
V$9e
p1300
tp1301
a(g826
V		
p1302
tp1303
a(g8
V; SYS token.
p1304
tp1305
a(g826
V\u000a	
p1306
tp1307
a(g785
V.byte
p1308
tp1309
a(g826
g1046
tp1310
a(g89
V"2080 "
p1311
tp1312
a(g826
V		
p1313
tp1314
a(g8
V; SYS argument.
p1315
tp1316
a(g826
V\u000a	
p1317
tp1318
a(g785
V.byte
p1319
tp1320
a(g826
g1046
tp1321
a(g89
V"LYCHREL NUMBERS/BJ"
p1322
tp1323
a(g826
V\u000a
p1324
tp1325
a(g596
V@line_end:
p1326
tp1327
a(g826
V\u000a	
p1328
tp1329
a(g785
V.byte
p1330
tp1331
a(g826
g1046
tp1332
a(g37
g1275
tp1333
a(g705
V,
p1334
tp1335
a(g826
g1046
tp1336
a(g37
g1275
tp1337
a(g705
g1334
tp1338
a(g826
g1046
tp1339
a(g37
g1275
tp1340
a(g826
V		
p1341
tp1342
a(g8
V; Line and program end marker.
p1343
tp1344
a(g826
V\u000a\u000a
p1345
tp1346
a(g8
V;--------------------------------------
p1347
tp1348
a(g826
V\u000a
p1349
tp1350
a(g8
V; Main program.
p1351
tp1352
a(g826
V\u000a
p1353
tp1354
a(g8
V;--------------------------------------
p1355
tp1356
a(g826
V\u000a
p1357
tp1358
a(g785
V.proc
p1359
tp1360
a(g826
g1046
tp1361
a(g435
Vmain
p1362
tp1363
a(g826
V\u000a\u000a
p1364
tp1365
a(g785
V.zeropage
p1366
tp1367
a(g826
V\u000a
p1368
tp1369
a(g8
V; 
p1370
tp1371
a(g826
V\u000a
p1372
tp1373
a(g8
V; Three byte counter for `TO` iterations (100000 = $0186a0).
p1374
tp1375
a(g826
V\u000a
p1376
tp1377
a(g8
V; 
p1378
tp1379
a(g826
V\u000a
p1380
tp1381
a(g596
Vi:
p1382
tp1383
a(g826
V\u000a	
p1384
tp1385
a(g785
V.res
p1386
tp1387
a(g826
g1046
tp1388
a(g37
V3
p1389
tp1390
a(g826
V\u000a\u000a
p1391
tp1392
a(g785
V.code
p1393
tp1394
a(g826
V\u000a
p1395
tp1396
a(g8
V; 
p1397
tp1398
a(g826
V\u000a
p1399
tp1400
a(g8
V; Clear and set `n` and `i` to 1.
p1401
tp1402
a(g826
V\u000a
p1403
tp1404
a(g8
V; 
p1405
tp1406
a(g826
V\u000a	
p1407
tp1408
a(g744
Vlda
p1409
tp1410
a(g826
g1046
tp1411
a(g705
V#
p1412
tp1413
a(g37
g1275
tp1414
a(g826
V		
p1415
tp1416
a(g8
V; n := 0; n := 1; i := 1
p1417
tp1418
a(g826
V\u000a	
p1419
tp1420
a(g744
Vsta
p1421
tp1422
a(g826
g1046
tp1423
a(g435
Vi
p1424
tp1425
a(g412
g1100
tp1426
a(g37
g1142
tp1427
a(g826
V\u000a	
p1428
tp1429
a(g744
Vsta
p1430
tp1431
a(g826
g1046
tp1432
a(g435
g1424
tp1433
a(g412
g1100
tp1434
a(g37
V2
p1435
tp1436
a(g826
V\u000a	
p1437
tp1438
a(g744
Vldx
p1439
tp1440
a(g826
g1046
tp1441
a(g705
g1412
tp1442
a(g435
VTO_DIGITS
p1443
tp1444
a(g826
V\u000a
p1445
tp1446
a(g596
Vclear_n:
p1447
tp1448
a(g826
V\u000a	
p1449
tp1450
a(g744
Vsta
p1451
tp1452
a(g826
g1046
tp1453
a(g435
Vn
p1454
tp1455
a(g412
V-
p1456
tp1457
a(g37
g1142
tp1458
a(g705
g1334
tp1459
a(g435
Vx
p1460
tp1461
a(g826
V\u000a	
p1462
tp1463
a(g744
Vdex
p1464
tp1465
a(g826
V\u000a	
p1466
tp1467
a(g744
Vbne
p1468
tp1469
a(g826
g1046
tp1470
a(g435
Vclear_n
p1471
tp1472
a(g826
V\u000a	
p1473
tp1474
a(g744
Vinx
p1475
tp1476
a(g826
V\u000a	
p1477
tp1478
a(g744
Vstx
p1479
tp1480
a(g826
g1046
tp1481
a(g435
g1424
tp1482
a(g826
V\u000a	
p1483
tp1484
a(g744
Vstx
p1485
tp1486
a(g826
g1046
tp1487
a(g435
g1454
tp1488
a(g826
V\u000a	
p1489
tp1490
a(g744
Vstx
p1491
tp1492
a(g826
g1046
tp1493
a(g435
Vn_length
p1494
tp1495
a(g826
V\u000a	\u000a
p1496
tp1497
a(g596
Vmainloop:
p1498
tp1499
a(g826
V\u000a	
p1500
tp1501
a(g744
Vjsr
p1502
tp1503
a(g826
g1046
tp1504
a(g435
Vis_lychrel
p1505
tp1506
a(g826
V\u000a	
p1507
tp1508
a(g744
Vbcc
p1509
tp1510
a(g826
g1046
tp1511
a(g435
Vno_lychrel
p1512
tp1513
a(g826
V\u000a	
p1514
tp1515
a(g744
Vjsr
p1516
tp1517
a(g826
g1046
tp1518
a(g435
Vprint_n
p1519
tp1520
a(g826
V\u000a
p1521
tp1522
a(g596
Vno_lychrel:
p1523
tp1524
a(g826
V\u000a	
p1525
tp1526
a(g744
Vjsr
p1527
tp1528
a(g826
g1046
tp1529
a(g435
Vincrease_n
p1530
tp1531
a(g826
V\u000a	\u000a	
p1532
tp1533
a(g744
Vinc
p1534
tp1535
a(g826
g1046
tp1536
a(g435
g1424
tp1537
a(g826
V		
p1538
tp1539
a(g8
V; INC(i)
p1540
tp1541
a(g826
V\u000a	
p1542
tp1543
a(g744
Vbne
p1544
tp1545
a(g826
g1046
tp1546
a(g435
Vskip
p1547
tp1548
a(g826
V\u000a	
p1549
tp1550
a(g744
Vinc
p1551
tp1552
a(g826
g1046
tp1553
a(g435
g1424
tp1554
a(g412
g1100
tp1555
a(g37
g1142
tp1556
a(g826
V\u000a	
p1557
tp1558
a(g744
Vbne
p1559
tp1560
a(g826
g1046
tp1561
a(g435
Vskip
p1562
tp1563
a(g826
V\u000a	
p1564
tp1565
a(g744
Vinc
p1566
tp1567
a(g826
g1046
tp1568
a(g435
g1424
tp1569
a(g412
g1100
tp1570
a(g37
g1435
tp1571
a(g826
V\u000a
p1572
tp1573
a(g596
Vskip:
p1574
tp1575
a(g826
V\u000a	
p1576
tp1577
a(g744
Vlda
p1578
tp1579
a(g826
g1046
tp1580
a(g435
g1424
tp1581
a(g826
V\u000a	
p1582
tp1583
a(g744
Vcmp
p1584
tp1585
a(g826
g1046
tp1586
a(g705
g1412
tp1587
a(g412
V<
p1588
tp1589
a(g435
VTO
p1590
tp1591
a(g826
V\u000a	
p1592
tp1593
a(g744
Vbne
p1594
tp1595
a(g826
g1046
tp1596
a(g435
Vmainloop
p1597
tp1598
a(g826
V\u000a	
p1599
tp1600
a(g744
Vlda
p1601
tp1602
a(g826
g1046
tp1603
a(g435
g1424
tp1604
a(g412
g1100
tp1605
a(g37
g1142
tp1606
a(g826
V\u000a	
p1607
tp1608
a(g744
Vcmp
p1609
tp1610
a(g826
g1046
tp1611
a(g705
g1412
tp1612
a(g412
V>
p1613
tp1614
a(g435
VTO
p1615
tp1616
a(g826
V\u000a	
p1617
tp1618
a(g744
Vbne
p1619
tp1620
a(g826
g1046
tp1621
a(g435
Vmainloop
p1622
tp1623
a(g826
V\u000a	
p1624
tp1625
a(g744
Vlda
p1626
tp1627
a(g826
g1046
tp1628
a(g435
g1424
tp1629
a(g412
g1100
tp1630
a(g37
g1435
tp1631
a(g826
V\u000a	
p1632
tp1633
a(g744
Vcmp
p1634
tp1635
a(g826
g1046
tp1636
a(g705
g1412
tp1637
a(g412
V^
p1638
tp1639
a(g435
VTO
p1640
tp1641
a(g826
V\u000a	
p1642
tp1643
a(g744
Vbne
p1644
tp1645
a(g826
g1046
tp1646
a(g435
Vmainloop
p1647
tp1648
a(g826
V\u000a	\u000a	
p1649
tp1650
a(g744
Vrts
p1651
tp1652
a(g826
V\u000a
p1653
tp1654
a(g785
V.endproc
p1655
tp1656
a(g826
V\u000a\u000a
p1657
tp1658
a(g8
V;--------------------------------------
p1659
tp1660
a(g826
V\u000a
p1661
tp1662
a(g8
V; Print `n` and a trailing newline.
p1663
tp1664
a(g826
V\u000a
p1665
tp1666
a(g8
V;
p1667
tp1668
a(g826
V\u000a
p1669
tp1670
a(g8
V; :in: `n_length`, `n`
p1671
tp1672
a(g826
V\u000a
p1673
tp1674
a(g8
V;--------------------------------------
p1675
tp1676
a(g826
V\u000a
p1677
tp1678
a(g785
V.proc
p1679
tp1680
a(g826
g1046
tp1681
a(g435
Vprint_n
p1682
tp1683
a(g826
V\u000a	
p1684
tp1685
a(g744
Vldy
p1686
tp1687
a(g826
g1046
tp1688
a(g435
Vn_length
p1689
tp1690
a(g826
V\u000a
p1691
tp1692
a(g596
VL1:
p1693
tp1694
a(g826
V\u000a	
p1695
tp1696
a(g744
Vlda
p1697
tp1698
a(g826
g1046
tp1699
a(g435
g1454
tp1700
a(g412
g1456
tp1701
a(g37
g1142
tp1702
a(g705
g1334
tp1703
a(g435
Vy
p1704
tp1705
a(g826
V\u000a	
p1706
tp1707
a(g744
Vora
p1708
tp1709
a(g826
g1046
tp1710
a(g705
g1412
tp1711
a(g265
V%110000
p1712
tp1713
a(g826
V    
p1714
tp1715
a(g8
V; = '0'
p1716
tp1717
a(g826
V\u000a	
p1718
tp1719
a(g744
Vjsr
p1720
tp1721
a(g826
g1046
tp1722
a(g435
Vchrout
p1723
tp1724
a(g826
V\u000a	
p1725
tp1726
a(g744
Vdey
p1727
tp1728
a(g826
V\u000a	
p1729
tp1730
a(g744
Vbne
p1731
tp1732
a(g826
g1046
tp1733
a(g435
VL1
p1734
tp1735
a(g826
V\u000a	\u000a	
p1736
tp1737
a(g744
Vlda
p1738
tp1739
a(g826
g1046
tp1740
a(g705
g1412
tp1741
a(g37
V13
p1742
tp1743
a(g826
V\u000a	
p1744
tp1745
a(g744
Vjmp
p1746
tp1747
a(g826
g1046
tp1748
a(g435
Vchrout
p1749
tp1750
a(g826
V\u000a
p1751
tp1752
a(g785
V.endproc
p1753
tp1754
a(g826
V\u000a\u000a
p1755
tp1756
a(g8
V;--------------------------------------
p1757
tp1758
a(g826
V\u000a
p1759
tp1760
a(g8
V; Increase `n` by one.
p1761
tp1762
a(g826
V\u000a
p1763
tp1764
a(g8
V; 
p1765
tp1766
a(g826
V\u000a
p1767
tp1768
a(g8
V; This procedure expects n[n_length] == 0 in case the number gets
p1769
tp1770
a(g826
V\u000a
p1771
tp1772
a(g8
V; one digit longer.
p1773
tp1774
a(g826
V\u000a
p1775
tp1776
a(g8
V; 
p1777
tp1778
a(g826
V\u000a
p1779
tp1780
a(g8
V; :in: `n`, `n_length`
p1781
tp1782
a(g826
V\u000a
p1783
tp1784
a(g8
V; :out: `n`, `n_length`
p1785
tp1786
a(g826
V\u000a
p1787
tp1788
a(g8
V;--------------------------------------
p1789
tp1790
a(g826
V\u000a
p1791
tp1792
a(g785
V.proc
p1793
tp1794
a(g826
g1046
tp1795
a(g435
Vincrease_n
p1796
tp1797
a(g826
V\u000a	
p1798
tp1799
a(g744
Vldx
p1800
tp1801
a(g826
g1046
tp1802
a(g705
g1412
tp1803
a(g37
g1275
tp1804
a(g826
V\u000a
p1805
tp1806
a(g596
VL1:
p1807
tp1808
a(g826
V\u000a	
p1809
tp1810
a(g744
Vinc
p1811
tp1812
a(g826
g1046
tp1813
a(g435
g1454
tp1814
a(g705
g1334
tp1815
a(g435
g1460
tp1816
a(g826
V		
p1817
tp1818
a(g8
V; Increase digit.
p1819
tp1820
a(g826
V\u000a	
p1821
tp1822
a(g744
Vlda
p1823
tp1824
a(g826
g1046
tp1825
a(g435
g1454
tp1826
a(g705
g1334
tp1827
a(g435
g1460
tp1828
a(g826
V\u000a	
p1829
tp1830
a(g744
Vcmp
p1831
tp1832
a(g826
g1046
tp1833
a(g705
g1412
tp1834
a(g37
V10
p1835
tp1836
a(g826
V		
p1837
tp1838
a(g8
V; If "carry", store 0 and go to next digit.
p1839
tp1840
a(g826
V\u000a	
p1841
tp1842
a(g744
Vbne
p1843
tp1844
a(g826
g1046
tp1845
a(g435
Vreturn
p1846
tp1847
a(g826
V\u000a	
p1848
tp1849
a(g744
Vlda
p1850
tp1851
a(g826
g1046
tp1852
a(g705
g1412
tp1853
a(g37
g1275
tp1854
a(g826
V\u000a	
p1855
tp1856
a(g744
Vsta
p1857
tp1858
a(g826
g1046
tp1859
a(g435
g1454
tp1860
a(g705
g1334
tp1861
a(g435
g1460
tp1862
a(g826
V\u000a	
p1863
tp1864
a(g744
Vinx
p1865
tp1866
a(g826
V\u000a	
p1867
tp1868
a(g744
Vbne
p1869
tp1870
a(g826
g1046
tp1871
a(g435
VL1
p1872
tp1873
a(g826
V\u000a
p1874
tp1875
a(g596
Vreturn:
p1876
tp1877
a(g826
V\u000a	
p1878
tp1879
a(g744
Vcpx
p1880
tp1881
a(g826
g1046
tp1882
a(g435
Vn_length
p1883
tp1884
a(g826
g1042
tp1885
a(g8
V; If "carry" after last digit, increase length.
p1886
tp1887
a(g826
V\u000a	
p1888
tp1889
a(g744
Vbcc
p1890
tp1891
a(g826
g1046
tp1892
a(g435
Vskip
p1893
tp1894
a(g826
V\u000a	
p1895
tp1896
a(g744
Vinc
p1897
tp1898
a(g826
g1046
tp1899
a(g435
Vn_length
p1900
tp1901
a(g826
V\u000a
p1902
tp1903
a(g596
Vskip:
p1904
tp1905
a(g826
V\u000a	
p1906
tp1907
a(g744
Vrts
p1908
tp1909
a(g826
V\u000a
p1910
tp1911
a(g785
V.endproc
p1912
tp1913
a(g826
V\u000a\u000a
p1914
tp1915
a(g8
V;--------------------------------------
p1916
tp1917
a(g826
V\u000a
p1918
tp1919
a(g8
V; Tests if `n` is a Lychrel number.
p1920
tp1921
a(g826
V\u000a
p1922
tp1923
a(g8
V; 
p1924
tp1925
a(g826
V\u000a
p1926
tp1927
a(g8
V; :in: `n`, `n_length`
p1928
tp1929
a(g826
V\u000a
p1930
tp1931
a(g8
V; :out: C is set if yes, cleared otherwise.
p1932
tp1933
a(g826
V\u000a
p1934
tp1935
a(g8
V; :uses: `length`, `xa`, `xb`
p1936
tp1937
a(g826
V\u000a
p1938
tp1939
a(g8
V;--------------------------------------
p1940
tp1941
a(g826
V\u000a
p1942
tp1943
a(g785
V.proc
p1944
tp1945
a(g826
g1046
tp1946
a(g435
Vis_lychrel
p1947
tp1948
a(g826
V\u000a
p1949
tp1950
a(g785
V.zeropage
p1951
tp1952
a(g826
V\u000a
p1953
tp1954
a(g596
Vi:
p1955
tp1956
a(g826
V\u000a	
p1957
tp1958
a(g785
V.res
p1959
tp1960
a(g826
g1046
tp1961
a(g37
g1142
tp1962
a(g826
V\u000a\u000a
p1963
tp1964
a(g785
V.code
p1965
tp1966
a(g826
V\u000a	
p1967
tp1968
a(g744
Vldx
p1969
tp1970
a(g826
g1046
tp1971
a(g435
Vn_length
p1972
tp1973
a(g826
V		
p1974
tp1975
a(g8
V; xa := n; length := n_length
p1976
tp1977
a(g826
V\u000a	
p1978
tp1979
a(g744
Vstx
p1980
tp1981
a(g826
g1046
tp1982
a(g435
Vlength
p1983
tp1984
a(g826
V\u000a
p1985
tp1986
a(g596
VL1:
p1987
tp1988
a(g826
V\u000a	
p1989
tp1990
a(g744
Vlda
p1991
tp1992
a(g826
g1046
tp1993
a(g435
g1454
tp1994
a(g412
g1456
tp1995
a(g37
g1142
tp1996
a(g705
g1334
tp1997
a(g435
g1460
tp1998
a(g826
V\u000a	
p1999
tp2000
a(g744
Vsta
p2001
tp2002
a(g826
g1046
tp2003
a(g435
Vxa
p2004
tp2005
a(g412
g1456
tp2006
a(g37
g1142
tp2007
a(g705
g1334
tp2008
a(g435
g1460
tp2009
a(g826
V\u000a	
p2010
tp2011
a(g744
Vdex
p2012
tp2013
a(g826
V\u000a	
p2014
tp2015
a(g744
Vbne
p2016
tp2017
a(g826
g1046
tp2018
a(g435
VL1
p2019
tp2020
a(g826
V\u000a	\u000a	
p2021
tp2022
a(g744
Vlda
p2023
tp2024
a(g826
g1046
tp2025
a(g705
g1412
tp2026
a(g435
VITERATIONS
p2027
tp2028
a(g826
V		
p2029
tp2030
a(g8
V; i := ITERATIONS
p2031
tp2032
a(g826
V\u000a	
p2033
tp2034
a(g744
Vsta
p2035
tp2036
a(g826
g1046
tp2037
a(g435
g1424
tp2038
a(g826
V\u000a
p2039
tp2040
a(g596
VL2:
p2041
tp2042
a(g826
V\u000a	
p2043
tp2044
a(g744
Vjsr
p2045
tp2046
a(g826
g1046
tp2047
a(g435
Vreverse_add
p2048
tp2049
a(g826
V\u000a	
p2050
tp2051
a(g744
Vjsr
p2052
tp2053
a(g826
g1046
tp2054
a(g435
Vis_palindrome
p2055
tp2056
a(g826
V\u000a	
p2057
tp2058
a(g744
Vbne
p2059
tp2060
a(g826
g1046
tp2061
a(g435
Vno_palindrome
p2062
tp2063
a(g826
V\u000a	
p2064
tp2065
a(g744
Vclc
p2066
tp2067
a(g826
V\u000a	
p2068
tp2069
a(g744
Vrts
p2070
tp2071
a(g826
V\u000a
p2072
tp2073
a(g596
Vno_palindrome:
p2074
tp2075
a(g826
V\u000a	
p2076
tp2077
a(g744
Vldx
p2078
tp2079
a(g826
g1046
tp2080
a(g435
Vlength
p2081
tp2082
a(g826
V		
p2083
tp2084
a(g8
V; a := b
p2085
tp2086
a(g826
V\u000a
p2087
tp2088
a(g596
VL3:
p2089
tp2090
a(g826
V\u000a	
p2091
tp2092
a(g744
Vlda
p2093
tp2094
a(g826
g1046
tp2095
a(g435
Vxb
p2096
tp2097
a(g412
g1456
tp2098
a(g37
g1142
tp2099
a(g705
g1334
tp2100
a(g435
g1460
tp2101
a(g826
V\u000a	
p2102
tp2103
a(g744
Vsta
p2104
tp2105
a(g826
g1046
tp2106
a(g435
Vxa
p2107
tp2108
a(g412
g1456
tp2109
a(g37
g1142
tp2110
a(g705
g1334
tp2111
a(g435
g1460
tp2112
a(g826
V\u000a	
p2113
tp2114
a(g744
Vdex
p2115
tp2116
a(g826
V\u000a	
p2117
tp2118
a(g744
Vbne
p2119
tp2120
a(g826
g1046
tp2121
a(g435
VL3
p2122
tp2123
a(g826
V\u000a	\u000a	
p2124
tp2125
a(g744
Vdec
p2126
tp2127
a(g826
g1046
tp2128
a(g435
g1424
tp2129
a(g826
V			
p2130
tp2131
a(g8
V; Loop body end.
p2132
tp2133
a(g826
V\u000a	
p2134
tp2135
a(g744
Vbne
p2136
tp2137
a(g826
g1046
tp2138
a(g435
VL2
p2139
tp2140
a(g826
V\u000a	\u000a	
p2141
tp2142
a(g744
Vsec
p2143
tp2144
a(g826
V\u000a	
p2145
tp2146
a(g744
Vrts
p2147
tp2148
a(g826
V\u000a
p2149
tp2150
a(g785
V.endproc
p2151
tp2152
a(g826
V\u000a\u000a
p2153
tp2154
a(g8
V;--------------------------------------
p2155
tp2156
a(g826
V\u000a
p2157
tp2158
a(g8
V; Add the reverse to `xa` to itself and store the result in `xb`.
p2159
tp2160
a(g826
V\u000a
p2161
tp2162
a(g8
V; 
p2163
tp2164
a(g826
V\u000a
p2165
tp2166
a(g8
V; :in: `length`, `xa`
p2167
tp2168
a(g826
V\u000a
p2169
tp2170
a(g8
V; :out: `length`, `xb`
p2171
tp2172
a(g826
V\u000a
p2173
tp2174
a(g8
V;--------------------------------------
p2175
tp2176
a(g826
V\u000a
p2177
tp2178
a(g785
V.proc
p2179
tp2180
a(g826
g1046
tp2181
a(g435
Vreverse_add
p2182
tp2183
a(g826
V\u000a
p2184
tp2185
a(g785
V.code
p2186
tp2187
a(g826
V\u000a	
p2188
tp2189
a(g744
Vldx
p2190
tp2191
a(g826
g1046
tp2192
a(g705
g1412
tp2193
a(g37
g1275
tp2194
a(g826
V\u000a	
p2195
tp2196
a(g744
Vldy
p2197
tp2198
a(g826
g1046
tp2199
a(g435
Vlength
p2200
tp2201
a(g826
V\u000a	
p2202
tp2203
a(g744
Vclc
p2204
tp2205
a(g826
V\u000a
p2206
tp2207
a(g596
VL1:
p2208
tp2209
a(g826
V\u000a	
p2210
tp2211
a(g744
Vlda
p2212
tp2213
a(g826
g1046
tp2214
a(g435
Vxa
p2215
tp2216
a(g705
g1334
tp2217
a(g435
g1460
tp2218
a(g826
V\u000a	
p2219
tp2220
a(g744
Vadc
p2221
tp2222
a(g826
g1046
tp2223
a(g435
Vxa
p2224
tp2225
a(g412
g1456
tp2226
a(g37
g1142
tp2227
a(g705
g1334
tp2228
a(g435
g1704
tp2229
a(g826
V\u000a	\u000a	
p2230
tp2231
a(g744
Vcmp
p2232
tp2233
a(g826
g1046
tp2234
a(g705
g1412
tp2235
a(g37
V10
p2236
tp2237
a(g826
V\u000a	
p2238
tp2239
a(g744
Vbcc
p2240
tp2241
a(g826
g1046
tp2242
a(g435
Vno_adjust
p2243
tp2244
a(g826
V\u000a	
p2245
tp2246
a(g744
Vsbc
p2247
tp2248
a(g826
g1046
tp2249
a(g705
g1412
tp2250
a(g37
V10
p2251
tp2252
a(g826
V\u000a
p2253
tp2254
a(g596
Vno_adjust:
p2255
tp2256
a(g826
V\u000a	
p2257
tp2258
a(g744
Vsta
p2259
tp2260
a(g826
g1046
tp2261
a(g435
Vxb
p2262
tp2263
a(g705
g1334
tp2264
a(g435
g1460
tp2265
a(g826
V\u000a	\u000a	
p2266
tp2267
a(g744
Vdey
p2268
tp2269
a(g826
V\u000a	
p2270
tp2271
a(g744
Vinx
p2272
tp2273
a(g826
V\u000a	
p2274
tp2275
a(g744
Vtxa
p2276
tp2277
a(g826
V		
p2278
tp2279
a(g8
V; ``eor`` instead of ``cpx`` to keep the carry flag
p2280
tp2281
a(g826
V\u000a	
p2282
tp2283
a(g744
Veor
p2284
tp2285
a(g826
g1046
tp2286
a(g435
Vlength
p2287
tp2288
a(g826
g1042
tp2289
a(g8
V; of the addition above.
p2290
tp2291
a(g826
V\u000a	
p2292
tp2293
a(g744
Vbne
p2294
tp2295
a(g826
g1046
tp2296
a(g435
VL1
p2297
tp2298
a(g826
V\u000a	\u000a	
p2299
tp2300
a(g744
Vbcc
p2301
tp2302
a(g826
g1046
tp2303
a(g435
Vno_carry
p2304
tp2305
a(g826
V\u000a	
p2306
tp2307
a(g744
Vlda
p2308
tp2309
a(g826
g1046
tp2310
a(g705
g1412
tp2311
a(g37
g1142
tp2312
a(g826
V\u000a	
p2313
tp2314
a(g744
Vsta
p2315
tp2316
a(g826
g1046
tp2317
a(g435
Vxb
p2318
tp2319
a(g705
g1334
tp2320
a(g435
g1460
tp2321
a(g826
V\u000a	
p2322
tp2323
a(g744
Vinc
p2324
tp2325
a(g826
g1046
tp2326
a(g435
Vlength
p2327
tp2328
a(g826
V\u000a
p2329
tp2330
a(g596
Vno_carry:
p2331
tp2332
a(g826
V\u000a	
p2333
tp2334
a(g744
Vrts
p2335
tp2336
a(g826
V\u000a
p2337
tp2338
a(g785
V.endproc
p2339
tp2340
a(g826
V\u000a\u000a
p2341
tp2342
a(g8
V;--------------------------------------
p2343
tp2344
a(g826
V\u000a
p2345
tp2346
a(g8
V; Checks if `xb` is a palindrome.
p2347
tp2348
a(g826
V\u000a
p2349
tp2350
a(g8
V; 
p2351
tp2352
a(g826
V\u000a
p2353
tp2354
a(g8
V; :in: `length`, `xb`
p2355
tp2356
a(g826
V\u000a
p2357
tp2358
a(g8
V; :out: Z flag set if `xb` is a palindrome, cleared otherwise.
p2359
tp2360
a(g826
V\u000a
p2361
tp2362
a(g8
V;--------------------------------------
p2363
tp2364
a(g826
V\u000a
p2365
tp2366
a(g785
V.proc
p2367
tp2368
a(g826
g1046
tp2369
a(g435
Vis_palindrome
p2370
tp2371
a(g826
V\u000a
p2372
tp2373
a(g785
V.code
p2374
tp2375
a(g826
V\u000a	
p2376
tp2377
a(g744
Vldx
p2378
tp2379
a(g826
g1046
tp2380
a(g705
g1412
tp2381
a(g37
g1275
tp2382
a(g826
V\u000a	
p2383
tp2384
a(g744
Vlda
p2385
tp2386
a(g826
g1046
tp2387
a(g435
Vlength
p2388
tp2389
a(g826
V\u000a	
p2390
tp2391
a(g744
Vtay
p2392
tp2393
a(g826
V\u000a	
p2394
tp2395
a(g744
Vlsr
p2396
tp2397
a(g826
V\u000a	
p2398
tp2399
a(g744
Vsta
p2400
tp2401
a(g826
g1046
tp2402
a(g435
VL1
p2403
tp2404
a(g412
g1100
tp2405
a(g37
g1142
tp2406
a(g826
g1042
tp2407
a(g8
V; Self modifying code!
p2408
tp2409
a(g826
V\u000a
p2410
tp2411
a(g596
VL1:
p2412
tp2413
a(g826
V\u000a	
p2414
tp2415
a(g744
Vcpx
p2416
tp2417
a(g826
g1046
tp2418
a(g705
g1412
tp2419
a(g37
g1275
tp2420
a(g826
V		
p2421
tp2422
a(g8
V; <<< 0 replaced by (`length` / 2).
p2423
tp2424
a(g826
V\u000a	
p2425
tp2426
a(g744
Vbeq
p2427
tp2428
a(g826
g1046
tp2429
a(g435
Vreturn
p2430
tp2431
a(g826
V\u000a	
p2432
tp2433
a(g744
Vlda
p2434
tp2435
a(g826
g1046
tp2436
a(g435
Vxb
p2437
tp2438
a(g705
g1334
tp2439
a(g435
g1460
tp2440
a(g826
V\u000a	
p2441
tp2442
a(g744
Vcmp
p2443
tp2444
a(g826
g1046
tp2445
a(g435
Vxb
p2446
tp2447
a(g412
g1456
tp2448
a(g37
g1142
tp2449
a(g705
g1334
tp2450
a(g435
g1704
tp2451
a(g826
V\u000a	
p2452
tp2453
a(g744
Vbne
p2454
tp2455
a(g826
g1046
tp2456
a(g435
Vreturn
p2457
tp2458
a(g826
V\u000a	
p2459
tp2460
a(g744
Vdey
p2461
tp2462
a(g826
V\u000a	
p2463
tp2464
a(g744
Vinx
p2465
tp2466
a(g826
V\u000a	
p2467
tp2468
a(g744
Vbne
p2469
tp2470
a(g826
g1046
tp2471
a(g435
VL1
p2472
tp2473
a(g826
V\u000a
p2474
tp2475
a(g596
Vreturn:
p2476
tp2477
a(g826
V\u000a	
p2478
tp2479
a(g744
Vrts
p2480
tp2481
a(g826
V\u000a
p2482
tp2483
a(g785
V.endproc
p2484
tp2485
a(g826
V\u000a
p2486
tp2487
a.