;procedure .MAIN. 000000 012706 mov #0,sp 000000 000004 010605 mov sp,r5 000006 012700 mov #0,r0 000000 000012 004767 jsr pc,000014 000000 000016 162706 sub #4560,sp 010720 000022 012746 mov #-4272,-(sp) 167520 0000 26 012746 mov #1,-(sp) 000001 000032 012746 mov #256,-(sp) 000400 000036 004767 jsr pc,000040 000000 000042 012746 mov #-4560,-(sp) 167060 000046 012746 mov #1,-(sp) 000001 000052 012746 mov #256,-(sp) 000400 00005 6 004767 jsr pc,000060 000000 000062 012746 mov #-4272,-(sp) 167520 000066 012746 mov #0,-(sp) 000000 000072 005046 clr -(sp) 000074 004767 jsr pc,000076 000000 000100 012746 mov #10,-(sp) 000012 000104 011667 mov @sp,000116 000010 000110 012746 mov #10,-(sp) 000012 000114 005046 clr -(sp) 000116 004767 jsr pc,000120 000000 000122 016746 mov 000134,-(sp) 000010 000126 012746 mov #13,-(sp) 000015 000132 005046 clr -(sp) 0001 34 004767 jsr pc,000136 000000 000140 016746 mov 000152,-(sp) 000010 000144 012746 mov #35,-(sp) 000043 000150 005046 clr -(sp) 000152 004767 jsr pc,000154 000000 000156 012746 mov #10,-(sp) 000012 000162 004767 jsr pc,000164 000000 000166 005067 clr 000162 177772 000172 012746 mov #74,-(sp) 000112 000176 011667 mov @sp,000210 000010 000202 012746 mov #-7,-(sp) 177771 000206 004767 jsr pc,000210 000000 000212 126727 cmpb 00 0205,#127 177771 000177 000220 001411 beq 000244 000222 005267 inc 000216 177772 000226 016700 mov 000222,r0 177772 000232 005300 dec r0 000234 116760 movb 000227,-3984(r0) 177771 170160 000242 000447 br 000362 00 0244 005767 tst 000240 177772 000250 001444 beq 000362 000252 016700 mov 000246,r0 177772 000256 005300 dec r0 000260 116067 movb -3984(r0),000255 170160 177771 000266 005367 dec 000262 177772 000272 012746 mov #1 0,-(sp) 000012 000276 011667 mov @sp,000310 000010 000302 012746 mov #47,-(sp) 000057 000306 005046 clr -(sp) 000310 004767 jsr pc,000312 000000 000314 016746 mov 000326,-(sp) 000010 000320 005046 clr -(sp) 000322 1 16716 movb 000315,@sp 177771 000326 005046 clr -(sp) 000330 004767 jsr pc,000332 000000 000334 016746 mov 000346,-(sp) 000010 000340 012746 mov #47,-(sp) 000057 000344 005046 clr -(sp) 000346 004767 jsr pc,000350 000000 000352 012746 mov #10,-(sp) 000012 000356 004767 jsr pc,000360 000000 000362 126727 cmpb 000355,#10 177771 000012 000370 001404 beq 000402 000372 126727 cmpb 000365,#13 177771 000015 000400 001274 bne 000172 000402 026727 cmp 000376,#16 177772 000020 000410 003011 bgt 000434 000412 016700 mov 000406,r0 177772 000416 005300 dec r0 000420 112760 movb #32,-3984(r0) 000040 170160 000426 005267 inc 000422 177772 000432 00076 3 br 000402 000434 012746 mov #-4560,-(sp) 167060 000440 012746 mov #-3984,-(sp) 170160 000444 005046 clr -(sp) 000446 004767 jsr pc,000450 000000 000452 012746 mov #-4560,-(sp) 167060 000456 011667 mov @sp,000470 000010 000462 012746 mov #-7,-(sp) 177771 000466 004767 jsr pc,000470 000000 000472 105767 tstb 167556 167062 000476 001402 beq 000504 000500 000167 jmp 001632 001130 000504 005067 clr 000502 177774 000510 012746 mov #-4272,-(sp) 167520 000514 011667 mov @sp,000526 000010 000520 012746 mov #10,-(sp) 000012 000524 005046 clr -(sp) 000526 004767 jsr pc,000530 000000 000532 016746 mov 000544,-(sp) 000010 000536 012746 mov #1 0,-(sp) 000012 000542 005046 clr -(sp) 000544 004767 jsr pc,000546 000000 000550 016746 mov 000562,-(sp) 000010 000554 012746 mov #10,-(sp) 000012 000560 005046 clr -(sp) 000562 004767 jsr pc,000564 000000 000566 00 5067 clr 000562 177772 000572 012746 mov #-4560,-(sp) 167060 000576 011667 mov @sp,000610 000010 000602 012746 mov #-7,-(sp) 177771 000606 004767 jsr pc,000610 000000 000612 126727 cmpb 000605,#32 177771 000040 00 0620 103415 bcs 000654 000622 016701 mov 000620,r1 177774 000626 070127 mul #66,r1 000102 000632 016700 mov 000626,r0 177772 000636 060001 add r0,r1 000640 116761 movb 000633,-3968(r1) 177771 170200 000646 005267 inc 000642 177772 000652 000426 br 000730 000654 126727 cmpb 000647,#9 177771 000011 000662 001022 bne 000730 000664 016701 mov 000662,r1 177774 000670 070127 mul #66,r1 000102 000674 016700 mov 000670,r0 177772 0 00700 060001 add r0,r1 000702 112761 movb #32,-3968(r1) 000040 170200 000710 005267 inc 000704 177772 000714 016700 mov 000710,r0 177772 000720 042700 bic #-8,r0 177770 000724 005700 tst r0 000726 001356 bne 00066 4 000730 126727 cmpb 000723,#10 177771 000012 000736 001413 beq 000766 000740 126727 cmpb 000733,#12 177771 000014 000746 001407 beq 000766 000750 026727 cmp 000744,#64 177772 000100 000756 003003 bgt 000766 000760 105767 tstb 170044 167062 000764 001702 beq 000572 000766 126727 cmpb 000761,#10 177771 000012 000774 001012 bne 001022 000776 127727 cmpb @170060,#10 167060 000012 001004 001006 bne 001022 001006 012746 mov #-4560, -(sp) 167060 001012 012746 mov #1,-(sp) 000001 001016 004767 jsr pc,001020 000000 001022 026727 cmp 001016,#64 177772 000100 001030 003015 bgt 001064 001032 016701 mov 001030,r1 177774 001036 070127 mul #66,r1 00 0102 001042 016700 mov 001036,r0 177772 001046 060001 add r0,r1 001050 112761 movb #32,-3968(r1) 000040 170200 001056 005267 inc 001052 177772 001062 000757 br 001022 001064 005267 inc 001062 177774 001070 026727 cm p 001066,#59 177774 000073 001076 003011 bgt 001122 001100 126727 cmpb 001073,#12 177771 000014 001106 001405 beq 001122 001110 105767 tstb 170174 167062 001114 001002 bne 001122 001116 000167 jmp 000564 177444 001122 126727 cmpb 001115,#12 177771 000014 001130 001010 bne 001152 001132 012746 mov #-4560,-(sp) 167060 001136 011667 mov @sp,001150 000010 001142 012746 mov #-7,-(sp) 177771 001146 004767 jsr pc,001150 000000 00 1152 026727 cmp 001150,#59 177774 000073 001160 003026 bgt 001236 001162 005067 clr 001156 177772 001166 026727 cmp 001162,#64 177772 000100 001174 003015 bgt 001230 001176 016701 mov 001174,r1 177774 001202 070127 mul #66,r1 000102 001206 016700 mov 001202,r0 177772 001212 060001 add r0,r1 001214 112761 movb #32,-3968(r1) 000040 170200 001222 005267 inc 001216 177772 001226 000757 br 001166 001230 005267 inc 001226 1777 74 001234 000746 br 001152 001236 005367 dec 001234 177774 001242 005067 clr 001242 177776 001246 026767 cmp 001246,001246 177776 177774 001254 002154 bge 001606 001256 012746 mov #-4272,-(sp) 167520 001262 011667 mov @sp,001274 000010 001266 016701 mov 001266,r1 177776 001272 070127 mul #66,r1 000102 001276 062701 add #-3968,r1 170200 001302 010146 mov r1,-(sp) 001304 012746 mov #66,-(sp) 000102 001310 005046 clr -(sp) 0 01312 004767 jsr pc,001314 000000 001316 016746 mov 001330,-(sp) 000010 001322 012746 mov #11,-(sp) 000013 001326 012746 mov #4,-(sp) 000004 001332 005046 clr -(sp) 001334 004767 jsr pc,001336 000000 001340 126727 cm pb 001333,#12 177771 000014 001346 001502 beq 001554 001350 105767 tstb 170434 167062 001354 001077 bne 001554 001356 005067 clr 001352 177772 001362 012746 mov #-4560,-(sp) 167060 001366 011667 mov @sp,001400 00 0010 001372 012746 mov #-7,-(sp) 177771 001376 004767 jsr pc,001400 000000 001402 126727 cmpb 001375,#32 177771 000040 001410 103415 bcs 001444 001412 012746 mov #-4272,-(sp) 167520 001416 011667 mov @sp,001430 0000 10 001422 005046 clr -(sp) 001424 116716 movb 001417,@sp 177771 001430 005046 clr -(sp) 001432 004767 jsr pc,001434 000000 001436 005267 inc 001432 177772 001442 000425 br 001516 001444 126727 cmpb 001437,#9 177771 000011 001452 001021 bne 001516 001454 012746 mov #-4272,-(sp) 167520 001460 011667 mov @sp,001472 000010 001464 012746 mov #32,-(sp) 000040 001470 005046 clr -(sp) 001472 004767 jsr pc,001474 000000 001476 005267 inc 001472 177772 001502 016700 mov 001476,r0 177772 001506 042700 bic #-8,r0 177770 001512 005700 tst r0 001514 001357 bne 001454 001516 126727 cmpb 001511,#10 177771 000012 001524 001413 beq 001554 001526 02672 7 cmp 001522,#64 177772 000100 001534 003007 bgt 001554 001536 126727 cmpb 001531,#12 177771 000014 001544 001403 beq 001554 001546 105767 tstb 170632 167062 001552 001703 beq 001362 001554 012746 mov #-4272,-(sp) 167520 001560 011667 mov @sp,001572 000010 001564 012746 mov #10,-(sp) 000012 001570 005046 clr -(sp) 001572 004767 jsr pc,001574 000000 001576 005267 inc 001576 177776 001602 000167 jmp 001244 177440 001606 01274 6 mov #-4272,-(sp) 167520 001612 011667 mov @sp,001624 000010 001616 012746 mov #12,-(sp) 000014 001622 005046 clr -(sp) 001624 004767 jsr pc,001626 000000 001630 000167 jmp 000470 176636 001634 012746 mov #10,-( sp) 000012 001640 011667 mov @sp,001652 000010 001644 012746 mov #13,-(sp) 000015 001650 005046 clr -(sp) 001652 004767 jsr pc,001654 000000 001656 016746 mov 001670,-(sp) 000010 001662 012746 mov #10,-(sp) 000012 001666 005046 clr -(sp) 001670 004767 jsr pc,001672 000000 001674 016746 mov 001706,-(sp) 000010 001700 012746 mov #15,-(sp) 000017 001704 012746 mov #14,-(sp) 000016 001710 005046 clr -(sp) 001712 004767 jsr pc,0 01714 000000 001716 016746 mov 001730,-(sp) 000010 001722 012746 mov #-3984,-(sp) 170160 001726 012746 mov #16,-(sp) 000020 001732 005046 clr -(sp) 001734 004767 jsr pc,001736 000000 001740 016746 mov 001752,-(sp) 000010 001744 012746 mov #29,-(sp) 000035 001750 012746 mov #10,-(sp) 000012 001754 005046 clr -(sp) 001756 004767 jsr pc,001760 000000 001762 016746 mov 001774,-(sp) 000010 001766 012746 mov #10,-(sp) 000012 001772 005046 clr -(sp) 001774 004767 jsr pc,001776 000000 002000 016746 mov 002012,-(sp) 000010 002004 012746 mov #13,-(sp) 000015 002010 005046 clr -(sp) 002012 004767 jsr pc,002014 000000 002016 012746 mov #10,-(sp) 000012 002022 004767 jsr pc,002024 000000 002026 012746 mov #-4272,-(sp) 167520 002032 004767 jsr pc,002034 000000 002036 012746 mov #-4560,-(sp) 167060 002042 004767 jsr pc,002044 000000 002046 010506 mov r5,sp 00 2050 004767 jsr pc,002052 000000