20400: 651 JMP .-127; 020251
20401: 6160 p JSR @160; 010242
20402: 40751A STA 0,.-27; 020353
20403: 22056$. LDA 0,@56; 0124145
20404: 111000 MOV 0,2
20405: 20746! LDA 0,.-32; 020353
20406: 64451i) JSRII .+51; 021133
20407: 666 JMP .-112; 020275
20410: 4755 JSR .-23; 020365
20411: 105004 MOV 0,1,SZR
20412: 64446i& JSRII .+46; 020645
20413: 660 JMP .-120; 020273
20414: 64445i% JSRII .+45; 021600
20415: 6144 d JSR @144; 05453
20416: 655 JMP .-123; 020273
20417: 4741 JSR .-37; 020360
20420: 100513 K NEGLN 0,0,SNC
20421: 652 JMP .-126; 020273
20422: 64427i JSRII .+27; 020747
20423: 42731E STA 0,@.-47; 0400
20424: 10730 ISZ .-50; 020354
20425: 14726 DSZ .-52; 020353
20426: 774 JMP .-4; 020422
20427: 644 JMP .-134; 020273
20430: 4730 JSR .-50; 020360
20431: 100513 K NEGLN 0,0,SNC
20432: 641 JMP .-137; 020273
20433: 22721% LDA 0,@.-57; 0400
20434: 64416i JSRII .+16; 021064
20435: 10717 ISZ .-61; 020354
20436: 14715 DSZ .-63; 020353
20437: 774 JMP .-4; 020433
20440: 633 JMP .-145; 020273
20441: 20300 LDA 0,300; 0300
20442: 7234 JSR @-144,2
20443: 7233 JSR @-145,2
20444: 7237 JSR @-141,2
20445: 7226 JSR @-152,2
20446: 7227 JSR @-151,2
20447: 7236 JSR @-142,2
20450: 7235 JSR @-143,2
20451: 7217 JSR @-161,2
20452: 7221 JSR @-157,2
20453: 7232 JSR @-146,2
20454: 7223 JSR @-155,2
20455: 7230 JSR @-150,2
20456: 7220 JSR @-160,2
20457: 7222 JSR @-156,2
20460: 7215 JSR @-163,2
20461: 7224 JSR @-154,2
20462: 7213 JSR @-165,2
20463: 7214 JSR @-164,2
20464: 7214 JSR @-164,2
20465: 452 * JMP .+52; 020537
INOUT:
20466: 6201 JSR @201; 024141
20467: 21 JMP 21; 021
20470: 105000 MOV 0,1
20471: 6201 JSR @201; 024141
20472: 11 JMP 11; 011
20473: 64771i JSRII .-7; 027523 =OUTLD
20474: 101000 MOV 0,0
20475: 126460 0 SUBC 1,1
20476: 46767M STA 1,@.-11; 0452
20477: 61001b EIR
20500: 101015 MOVN 0,0,SNR
20501: 2170 x JMP @170; 01443 =RFALSE
20502: 2156 n JMP @156; 07667 =EVAL
20503: 1 JMP 1; 01
20504: 404 JMP .+4; 020510
20505: 1 JMP 1; 01
20506: 0 JMP 0; 00
20507: 20250 LDA 0,250; 0250
20510: 0 JMP 0; 00
20511: 0 JMP 0; 00
20512: 0 JMP 0; 00
20513: 0 JMP 0; 00
20514: 0 JMP 0; 00
20515: 0 JMP 0; 00
20516: 0 JMP 0; 00
20517: 0 JMP 0; 00
20520: 0 JMP 0; 00
20521: 0 JMP 0; 00
20522: 0 JMP 0; 00
20523: 0 JMP 0; 00
20524: 0 JMP 0; 00
20525: 0 JMP 0; 00
20526: 0 JMP 0; 00
20527: 0 JMP 0; 00
20530: 0 JMP 0; 00
20531: 0 JMP 0; 00
20532: 0 JMP 0; 00
20533: 0 JMP 0; 00
20534: 177777 ANDCSN 3,3,SBN
20535: 6731 JSR @.-47; 06201
20536: 374 JMP 374; 0374
20537: 54521YQ STA 3,.+121; 020660
20540: 22775% LDA 0,@.-3; 06731
20541: 24775) LDA 1,.-3; 020536
20542: 123000 ADD 1,0
20543: 4401 JSR .+1; 020544
20544: 162400 SUB 3,0
20545: 40403A STA 0,.+3; 020550
20546: 4422 JSR .+22; 020570
20547: 377 JMP 377; 0377
20550: 0 JMP 0; 00
20551: 177400 AND 3,3
20552: 22763% LDA 0,@.-15; 06731
20553: 2505 E JMP @.+105; 022732
20554: 54504YD STA 3,.+104; 020660
20555: 22760% LDA 0,@.-20; 06731
20556: 24760) LDA 1,.-20; 020536
20557: 123000 ADD 1,0
20560: 4401 JSR .+1; 020561
20561: 162400 SUB 3,0
20562: 40403A STA 0,.+3; 020565
20563: 4441 ! JSR .+41; 020624
20564: 377 JMP 377; 0377
20565: 165472 : INCCN 3,1,SZC
20566: 177400 AND 3,3
20567: 2471 9 JMP @.+71; 022732
20570: 54451Y) STA 3,.+51; 020641
20571: 4417 JSR .+17; 020610
20572: 6065 5 JSR @65; 023623 =LOAD
20573: 42445E% STA 0,@.+45; 022625
20574: 434 JMP .+34; 020630
20575: 54444Y$ STA 3,.+44; 020641
20576: 4412 JSR .+12; 020610
20577: 6065 5 JSR @65; 023623 =LOAD
20600: 6163 s JSR @163; 05522
20601: 42437E STA 0,@.+37; 022625
20602: 426 JMP .+26; 020630
20603: 54436Y STA 3,.+36; 020641
20604: 4404 JSR .+4; 020610
20605: 22433% LDA 0,@.+33; 022625
20606: 4457 / JSR .+57; 020665
20607: 421 JMP .+21; 020630
20610: 50451Q) STA 2,.+51; 020661
20611: 54431Y STA 3,.+31; 020642
20612: 344279 LDA 3,.+27; 020641
20613: 25400+ LDA 1,0,3
20614: 147000 ADD 2,1
20615: 44427I STA 1,.+27; 020644
20616: 21401# LDA 0,1,3
20617: 163000 ADD 3,0
20620: 40420A STA 0,.+20; 020640
20621: 21402# LDA 0,2,3
20622: 40421A STA 0,.+21; 020643
20623: 2417 JMP @.+17; 020605
20624: 54415Y STA 3,.+15; 020641
20625: 4763 JSR .-15; 020610
20626: 22412% LDA 0,@.+12; 022625
20627: 6067 7 JSR @67; 023630
20630: 14410 DSZ .+10; 020640
20631: 14413 DSZ .+13; 020644
20632: 24412) LDA 1,.+12; 020644
20633: 10410 ISZ .+10; 020643
20634: 2406 JMP @.+6; 020605
20635: 304241 LDA 2,.+24; 020661
20636: 344039 LDA 3,.+3; 020641
20637: 1403 JMP 3,3
20640: 22625% LDA 0,@.-153; 0452
20641: 23023& LDA 0,@23,2
20642: 20605! LDA 0,.-173; 020447
20643: 0 JMP 0; 00
20644: 40177@ STA 0,177; 0177
20645: 54413Y STA 3,.+13; 020660
20646: 40774A STA 0,.-4; 020642
20647: 44774I STA 1,.-4; 020643
20650: 6203 JSR @203; 024072
20651: 7 JMP 7; 07
20652: 24771) LDA 1,.-7; 020643
20653: 123000 ADD 1,0
20654: 6176 ~ JSR @176; 024111
20655: 7 JMP 7; 07
20656: 20764! LDA 0,.-14; 020642
20657: 2401 JMP @.+1; 022732
20660: 22732% LDA 0,@.-46; 034427
20661: 40172@z STA 0,172; 0172
20662: 20607! LDA 0,.-171; 020471
20663: 11674 ISZ -104,3
20664: 5026 JSR 26,2
20665: 44776I STA 1,.-2; 020663
20666: 54774Y STA 3,.-4; 020662
20667: 6171 y JSR @171; 05565
20670: 40774A STA 0,.-4; 020664
20671: 24772) LDA 1,.-6; 020663
20672: 6065 5 JSR @65; 023623 =LOAD
20673: 40770A STA 0,.-10; 020663
20674: 20770! LDA 0,.-10; 020664
20675: 6067 7 JSR @67; 023630
20676: 20765! LDA 0,.-13; 020663
20677: 6165 u JSR @165; 011352
20700: 307611 LDA 2,.-17; 020661
20701: 2761 JMP @.-17; 020607
20702: 54756Y STA 3,.-22; 020660
20703: 40737A STA 0,.-41; 020642
20704: 6203 JSR @203; 024072
20705: 7 JMP 7; 07
20706: 101213 MOVRN 0,0,SNC
20707: 747 JMP .-31; 020656
20710: 101400 INC 0,0
20711: 743 JMP .-35; 020654
20712: 54546Yf STA 3,.+146; 021060
20713: 24131(Y LDA 1,131; 0131
20714: 147000 ADD 2,1
20715: 6065 5 JSR @65; 023623 =LOAD
20716: 40427A STA 0,.+27; 020745
20717: 6203 JSR @203; 024072
20720: 7 JMP 7; 07
20721: 101112 J MOVLN 0,0,SZC
20722: 412 JMP .+12; 020734
20723: 40421A STA 0,.+21; 020744
20724: 101001 MOV 0,0,SKP
20725: 54533Y[ STA 3,.+133; 021060
20726: 6203 JSR @203; 024072
20727: 15 JMP 15; 015
20730: 24414) LDA 1,.+14; 020744
20731: 122133 [ ADCZLN 1,0,SNC
20732: 406 JMP .+6; 020740
20733: 121000 MOV 1,0
20734: 126000 ADC 1,1
20735: 64445i% JSRII .+45; 022463
20736: 2522 R JMP @.+122; 020755
20737: 44405I STA 1,.+5; 020744
20740: 121400 INC 1,0
20741: 6176 ~ JSR @176; 024111
20742: 7 JMP 7; 07
20743: 6204 JSR @204; 04622
20744: 660 JMP .-120; 020624
20745: 37570?x LDA 3,@170,3
20746: 2512 J JMP @.+112; 020755
20747: 54512YJ STA 3,.+112; 021061
20750: 4732 JSR .-46; 020702
20751: 4741 JSR .-37; 020712
20752: 101300 MOVS 0,0
20753: 40510AH STA 0,.+110; 021063
20754: 4751 JSR .-27; 020725
20755: 24506)F LDA 1,.+106; 021063
20756: 123000 ADD 1,0
20757: 2502 B JMP @.+102; 022120
20760: 54501YA STA 3,.+101; 021061
20761: 40415A STA 0,.+15; 020776
20762: 105400 INC 0,1
20763: 6065 5 JSR @65; 023623 =LOAD
20764: 100513 K NEGLN 0,0,SNC
20765: 2474 < JMP @.+74; 022120
20766: 40475A= STA 0,.+75; 021063
20767: 102460 0 SUBC 0,0
20770: 40405A STA 0,.+5; 020775
20771: 4721 JSR .-57; 020712
20772: 101001 MOV 0,0,SKP
20773: 4732 JSR .-46; 020725
20774: 6205 JSR @205; 04643
20775: 6242 JSR @242; 00
20776: 41220B STA 0,-160,2
20777: 14464 4 DSZ .+64; 021063