M A I N   S T A R T 
 
     L A D   G R 1 , 1 
 
     L A D   G R 4 , 2 
 
 ; L A B E L 3 
 
     S T   G R 4 , A L L 
 
     S T   G R 4 , P N 
 
 	 N O P 	   ; B0D0F0a a 	 ; a a a 
 
     L A D   G R 0 , + 3 
 
     S T   G R 0 , P N , G R 1   ; p p p p p p p p p p p p p 
 
     L A D   G R 2 , 5 
 
     L D   G R 5 , G R 2 
 
     X O R   G R 3 , G R 3 
 
     J U M P   D I V 2   
 
 D I V   C P L   G R 4 , G R 7 
 
     J P L   N Z 8 
 
 D I V 2   X O R   G R 6 , G R 6 
 
     X O R   G R 7 , G R 7 
 
 C L 2   L D   G R 0 , G R 4 
 
     A D D L   G R 6 , G R 1 
 
 	     A N D   G R 0 , M S K 
 
     J N Z   C L 4   ;   c o m m e n t 
 
     S L L   G R 4 , 1 
 
     J U M P   C L 2 
 
 C L 4   C P L   G R 2 , G R 4 
 
     J P L   P L S 
 
     J M I   M I S 
 
     J Z E   Z E R 
 
 P L S   O R   G R 7 , G R 1 
 
     S U B L   G R 2 , G R 4 
 
     S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M 
 
     S L L   G R 7 , 1 
 
     J P L   C L 4 
 
 M I S   S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M   
 
     S L L   G R 7 , 1 
 
     J U M P   C L 4 
 
 Z E R   O R   G R 7 , G R 1 
 
     S L L   G R 7 , - 1 , G R 6 
 
     J U M P   N L 
 
 ;   X O R   G R 2 , G R 2 
 
 ;   J U M P   P M 
 
 P M   L D   G R 2 , G R 2 
 
     J N Z   N Z 8 
 
 N L   L D   G R 2 , G R 5 
 
     J U M P   N P N 
 
 N Z 8   L D   G R 2 , G R 5 
 
     A D D L   G R 3 , G R 1 
 
     C P L   G R 3 , A L L 
 
     J N Z   P N X 
 
     L D   G R 7 , G R 2 
 
     S T   G R 2 , P N , G R 3 
 
     A D D L   G R 3 , G R 1 
 
     S T   G R 3 , A L L 
 
     C P L   G R 3 , L I M 
 
     J Z E   F I N 
 
 N P N   A D D L   G R 2 , G R 1 
 
     A D D L   G R 2 , G R 1 
 
     L D   G R 5 , G R 2 
 
     L D   G R 3 , G R 1 
 
 	 
 
 P N X   L D   G R 4 , P N , G R 3 
 
     J U M P   D I V 
 
 F I N   C A L L   M A I N 2 
 
 	 R E T   ; c o m m e n t 
 
 M S K   D C   # 4 0 0 0 
 
 A L L   D S   1 
 
 L I M   D C               1 0 0 0 
 
 P N   D S                 1 0 0 0 
 
       E N D 
 
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 M A I N 2             S T A R T 
 
     L A D   G R 1 , 1 
 
     L A D   G R 4 , 2 
 
     S T   G R 4 , A L L 
 
     S T   G R 4 , P N 
 
     L A D   G R 0 , + 3 
 
     S T   G R 0 , P N , G R 1   ; p p p p p p p p p p p p p 
 
     L A D   G R 2 , 5 
 
     L D   G R 5 , G R 2 
 
     X O R   G R 3 , G R 3 
 
     J U M P   D I V 2   
 
 D I V   C P L   G R 4 , G R 7 
 
     J P L   N Z 8 
 
 D I V 2   X O R   G R 6 , G R 6 
 
     X O R   G R 7 , G R 7 
 
 C L 2   L D   G R 0 , G R 4 
 
     A D D L   G R 6 , G R 1 
 
     A N D   G R 0 , M S K 
 
     J N Z   C L 4 
 
     S L L   G R 4 , 1 
 
     J U M P   C L 2 
 
 	 ; D C   9 9 9 9 9 
 
 C L 4   C P L   G R 2 , G R 4 
 
     J P L   P L S 
 
     J M I   M I S 
 
     J Z E   Z E R 
 
 P L S   O R   G R 7 , G R 1 
 
     S U B L   G R 2 , G R 4 
 
     S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M 
 
     S L L   G R 7 , 1 
 
     J P L   C L 4 
 
 M I S   S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M   
 
     S L L   G R 7 , 1 
 
     J U M P   C L 4 
 
 Z E R   O R   G R 7 , G R 1 
 
     S L L   G R 7 , - 1 , G R 6 
 
     J U M P   N L 
 
 ;   X O R   G R 2 , G R 2 
 
 ;   J U M P   P M 
 
 P M   L D   G R 2 , G R 2 
 
     J N Z   N Z 8 
 
 N L   L D   G R 2 , G R 5 
 
     J U M P   N P N 
 
 N Z 8   L D   G R 2 , G R 5 
 
     A D D L   G R 3 , G R 1 
 
     C P L   G R 3 , A L L 
 
     J N Z   P N X 
 
     L D   G R 7 , G R 2 
 
     S T   G R 2 , P N , G R 3 
 
     A D D L   G R 3 , G R 1 
 
     S T   G R 3 , A L L 
 
     C P L   G R 3 , L I M 
 
     J Z E   F I N 
 
 N P N   A D D L   G R 2 , G R 1 
 
     A D D L   G R 2 , G R 1 
 
     L D   G R 5 , G R 2 
 
     L D   G R 3 , G R 1 
 
 P N X   L D   G R 4 , P N , G R 3 
 
     J U M P   D I V 
 
 F I N   C A L L   M A I N 3 
 
 	 R E T 
 
 M S K   D C   # 4 0 0 0 
 
 A L L   D S   1 
 
 L I M   D C               1 0 0 0 
 
 P N   D S                 1 0 0 0 
 
       E N D 
 
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 M A I N 3             S T A R T 
 
     L A D   G R 1 , 1 
 
     L A D   G R 4 , 2 
 
     S T   G R 4 , A L L 
 
     S T   G R 4 , P N 
 
     L A D   G R 0 , + 3 
 
     S T   G R 0 , P N , G R 1   ; p p p p p p p p p p p p p 
 
     L A D   G R 2 , 5 
 
     L D   G R 5 , G R 2 
 
     X O R   G R 3 , G R 3 
 
     J U M P   D I V 2   
 
 D I V   C P L   G R 4 , G R 7 
 
     J P L   N Z 8 
 
 D I V 2   X O R   G R 6 , G R 6 
 
     X O R   G R 7 , G R 7 
 
 C L 2   L D   G R 0 , G R 4 
 
     A D D L   G R 6 , G R 1 
 
     A N D   G R 0 , M S K 
 
     J N Z   C L 4 
 
     S L L   G R 4 , 1 
 
     J U M P   C L 2 
 
 C L 4   C P L   G R 2 , G R 4 
 
     J P L   P L S 
 
     J M I   M I S 
 
     J Z E   Z E R 
 
 P L S   O R   G R 7 , G R 1 
 
     S U B L   G R 2 , G R 4 
 
     S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M 
 
     S L L   G R 7 , 1 
 
     J P L   C L 4 
 
 M I S   S R L   G R 4 , 1 
 
     S U B L   G R 6 , G R 1 
 
     J Z E   P M   
 
     S L L   G R 7 , 1 
 
     J U M P   C L 4 
 
 Z E R   O R   G R 7 , G R 1 
 
     S L L   G R 7 , - 1 , G R 6 
 
     J U M P   N L 
 
 ;   X O R   G R 2 , G R 2 
 
 ;   J U M P   P M 
 
 P M   L D   G R 2 , G R 2 
 
     J N Z   N Z 8 
 
 N L   L D   G R 2 , G R 5 
 
     J U M P   N P N 
 
 N Z 8   L D   G R 2 , G R 5 
 
     A D D L   G R 3 , G R 1 
 
     C P L   G R 3 , A L L 
 
     J N Z   P N X 
 
     L D   G R 7 , G R 2 
 
     S T   G R 2 , P N , G R 3 
 
     A D D L   G R 3 , G R 1 
 
     S T   G R 3 , A L L 
 
     C P L   G R 3 , L I M 
 
     J Z E   F I N 
 
 N P N   A D D L   G R 2 , G R 1 
 
     A D D L   G R 2 , G R 1 
 
     L D   G R 5 , G R 2 
 
     L D   G R 3 , G R 1 
 
 P N X   L D   G R 4 , P N , G R 3 
 
     J U M P   D I V 
 
 F I N   R E T 
 
 M S K   D C   # 4 0 0 0 
 
 A L L   D S   1 
 
 L I M   D C               1 0 0 0 
 
 P N   D S                 1 0 0 0 
 
       E N D 