                                                          -   1   - 
 
 
 
 
 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 *                                                                                                                           * 
 
 *                                     #  "!"  ( 1 8 0 1  1 - 0 1 9 )                                     * 
 
 *                                                                                                                           * 
 
 *       870AA5<1;8@>20=>  8  ?@>:><<5=B8@>20=>    D a l e   c o r p o r a t i o n       * 
 
 *                                                                                                                           * 
 
 *       2B>@  2K@0605B  >A>1CN  1;03>40@=>ABL    A ^ 3   c o r p . ,   ;N157=>      * 
 
 *           ?@54>AB0282H5<C  ?@8=B5@,   0    B0:65  A V K   c o r p .   70  845N          * 
 
 *             ?@>3@0<<K  S U P Z ,   ?@8  ?><>I8  :>B>@>9  1K;  @0A?5G0B0=            * 
 
 *                                         B5:AB  A>45@68<>3>  #.                                       * 
 
 *                                                                                                                           * 
 
 *   @O=A:89  ;C1  ?>;L7>20B5;59  - 0 0 1 0                 B K 0 0 1 0 @ i n a m e . c o m   * 
 
 *                                                                                                                           * 
 
 *                                             0 3 . 0 2 . 9 3   -   1 0 . 0 3 . 9 8                                         * 
 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   ;>:  8=8F80;870F88  A8AB5<K  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; -B><C  <>4C;N  ?5@5405BAO    C?@02;5=85  :><0=4>9  "  ?CA:>2>3>  <>=8- 
 
 ; B>@0  8  :><0=4>9  P   T   $>:0;0. 
 
 
 
 ; S T A R T T = = 1 6 0 0 0 0 
 
 S T A R T T :   C L R       @ # 2 6 2                   ; #AB0=>28<  :>4  < >   @02=K<  1 2 
 
                 M O V       S P , @ # 7 6 0             ; !>E@0=8<  AB0@K9  C:070B5;L  AB5:0
 
                                                         ; ?   1   ? 
 
                 M O V       # 1 0 0 0 , S P             ; #AB0=>28<  C:070B5;L  AB5:0
 
                                                         ;       ( 40;55  >=  1C45B  >?CA:0BLAO. . . ) 
 
                 M O V       # I N V C M D , @ # 1 0     ; #AB0=>28<  25:B>@0  ?@5@K20=8O: 
 
                 C L R       @ # 1 2                     ;       -   ?>  =5ACI5AB2CNI59  :><0=45
 
                 M O V       # E R R P W R , @ # 2 4     ;       -   ?>  020@88  ?8B0=8O
 
                 C L R       @ # 2 6 
 
                 M O V       # H L T T R P , @ # 4       ;       -   ?>  !",   H A L T   8  7028A0=8N
 
                 C L R       @ # 6 
 
 
 
 ; 0G8=05BAO  " @071>@:0"   AB5:0.       40;L=59H5<  G8A;>  2  :><<5=B0@88
 
 ; -   04@5A,   :  :>B>@><C    @50;L=>    ?@>8AE>48B    >1@0I5=85.   ( 4@5A)   8
 
 ; ( ;8=0)   -   A>>B25BAB2CNI85  ?5@5<5==K5  A8AB5<K. 
 
 
 
                 C L R       - ( S P )                   ; 7 7 6 
 
                 M O V       # 1 0 0 0 4 , - ( S P )     ; 7 7 4   #AB0=>28<  D;038:   + ", )
 
                 C L R       - ( S P )                   ; 7 7 2   ( 4@5A)   ?>  C<>;G0=8N
 
                 C L R       - ( S P )                   ; 7 7 0 
 
                 M O V       # 1 0 0 0 0 0 , - ( S P )   ; 7 6 6   ( ;8=0)   ?>  C<>;G0=8N
 
                 M O V       S P , R 1 
 
                 A D D       # 6 , R 1                   ; "5?5@L  2  R 1   -   04@5A  D;03>2
 
                 B R         C O N T 1                   ; @>?CAB8<  :><0=4C  70?CA:0
 
 ; E N T E R T = = 1 6 0 1 0 0 
 
 E N T E R T :   B R         S T A R T T                 ; !N40  ?5@5405BAO  C?@02;5=85  ?>
 
                                                         ; P   T   87  $>:0;0  8  ?>  "  87  <>=8B>@0
 
 ; C O N T 1 = = 1 6 0 1 0 2 
 
 C O N T 1 :     M O V       R 1 , - ( S P )             ; 7 6 4   !>E@0=8<  04@5A  D;03>2
 
                                                         ; ?   1   ? 
 
                 S U B       # 3 6 , R 1                 ; "5?5@L  2  R 1   04@5A  1C4CI59  25@H8=K
 
                                                         ; AB5:0
 
 
 
 
 
 
 
                                                           -   2   - 
 
 
 
 
 
                 M O V       R 1 , - ( S P )             ; 7 6 2   !>E@0=8<  MB>B  04@5A
 
                                                         ; ?   1   ? 
 
                 T S T       - ( S P )                   ; 7 6 0   @>?CAB8<  AB0@K9  #!  ( A<. 2KH5) 
 
                 C L R       - ( S P )                   ; 7 5 6 
 
                 M O V       # 2 0 0 0 0 , - ( S P )     ; 7 5 4   ?   1   ? 
 
                 M O V       # 5 3 , - ( S P )           ; 7 5 2   #AB0=>28<  ?@83;0H5=85  " + " 
 
                 C L R       - ( S P )                   ; 7 5 0   03>B>28<  <5AB>,   345  ?>B><
 
                 C L R       - ( S P )                   ; 7 4 6         1C45<  A>E@0=OBL  @538AB@K. . . 
 
                 C L R       - ( S P )                   ; 7 4 4 
 
                 C L R       - ( S P )                   ; 7 4 2 
 
                 C L R       - ( S P )                   ; 7 4 0 
 
                 C L R       - ( S P )                   ; 7 3 6 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   0G0;>  @01>BK  2  8=B5@0:B82=><  @568<5  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; >;LH8=AB2>  :><0=4  2>72@0I05B  C?@02;5=85  AN40. 
 
 
 
 ; S T W O R K = = 1 6 0 1 4 2 
 
 S T W O R K :   M O V       # 7 3 6 , S P               ; #AB0=>28<  #!  =0  <5AB>
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52>4  AB@>:8
 
                 M O V       1 4 ( S P ) , R 0           ; 7 5 2   >;CG8<  :>4  ?@83;0H5=8O
 
                 E M T       1 6                         ;           8  2K2545<  B0:>2>5
 
                 B I T       # 4 , 3 6 ( S P )           ; 7 7 4   0:  B0<  D;03  @568<0  + "? 
 
                 B E Q       M O N T S                   ; !1@>H5=  -   ?5@5945<  2  <>=8B>@  "!/ "
 
                 B R         M O N T K                   ; =0G5  -   2  <>=8B>@  + "
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   5@5E>4  2  @568<  $ "!  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S E T _ T S = = 1 6 0 1 7 4 
 
 S E T _ T S :   B I C       # 6 , 3 6 ( S P )           ; 7 7 4   !1@>A8<  D;038  @568<>2  + ", # "
 
                 M O V       # 4 4 , 1 4 ( S P )         ; 7 5 2   @83;0H5=85<  1C45B  " $ " 
 
                 B R         S T W O R K                 ; >6=>  =0G8=0BL  @01>BC. . . 
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   5@5E>4  2  @568<  # "  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S E T _ T D = = 1 6 0 2 1 2 
 
 S E T _ T D :   M O V       # 1 7 7 6 7 0 , R 1         ; >7L<5<  04@5A  @538AB@>2  AB5=40
 
                 C L R       ( R 1 ) +                   ;       8  >G8AB8<  H8=C  04@5A0/ 40==KE
 
                 M O V       # 4 0 0 0 0 , ( R 1 )       ; AB0=>28<  ?@>25@O5<K9  
 
                 B I C       # 6 , 3 6 ( S P )           ; 7 7 4   !1@>A8<  D;038  @568<>2  + ", # "
 
                 B I S       # 2 , 3 6 ( S P )           ; 7 7 4         8  CAB0=>28<  D;03  @568<0  # "
 
                 M O V       # 4 3 , 1 4 ( S P )         ; 7 5 2   @83;0H5=85<  1C45B  " # " 
 
                 B R         S T W O R K                 ; 5@5945<  :  ?@83;0H5=8N
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   3   - 
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   5@5E>4  2  @568<  + "  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S E T _ T K = = 1 6 0 2 5 0 
 
 S E T _ T K :   M O V       # 1 0 0 0 0 0 , 3 0 ( S P ) ; 7 6 6   ( ;8=0)   4;O  B5AB0  1 
 
                 C L R       3 4 ( S P )                 ; 7 7 2   ( 4@5A)   4;O  B5AB0  1 
 
                 B I C       # 6 , 3 6 ( S P )           ; 7 7 4   !1@>A8<  D;038  @568<>2  + ", # "
 
                 B I S       # 4 , 3 6 ( S P )           ; 7 7 4         8  CAB0=>28<  D;03  @568<0  + "
 
                 M O V       # 5 3 , 1 4 ( S P )         ; 7 5 2   @83;0H5=85<  1C45B  " + " 
 
                 B R         S T W O R K                 ; @8ABC?8<  :  480;>3C. . . 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   >=8B>@  @568<0  + "  * 
 
                                           * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; 5AL    MB>B    D@03<5=B    =0?8A0=  :@09=5  =5@0F8>=0;L=>.   5;>38G=K5
 
 ; :>=AB@C:F88  2K45;5=K  72574>G:>9. 
 
 
 
 ; M O N T K = = 1 6 0 3 0 6 
 
 M O N T K :     E M T       6                           ; 2545<  A8<2>;
 
                 M O V B     R 0 , R 3                   ; *   "CB  65  A>E@0=8<  53>. . . 
 
                 M O V B     R 0 , R 1                   ; *       . . . 8  5I5  @07. . . 
 
                 M O V       R 0 , R 2                   ; *         . . .   8  5I5. . .   ( ?   1   ? ) 
 
                 E M T       1 6                         ; K2545<  ME>
 
                 B I C       # 2 4 0 , R 3               ; @82545<  A8<2>;  :  284C  ", 
 
                 C M P B     # 1 1 3 , R 3               ; " " ? 
 
                 B N E       C O N T 2 
 
                 J M P       K _ E X I T                 ; 0  -   ?5@540G0  C?@02;5=8O  
 
 
 
 ; -B>B  :CA>:  ;>38G=55  1K;>  1K  ?>AB028BL  4>  ?@>25@:8  =0  " " 
 
 
 
 ; C O N T 2 = = 1 6 0 3 3 6 
 
 C O N T 2 :     C M P B     # 3 6 4 , R 0               ; " "" (  #!)   ? 
 
                 B E Q       S Y M B 2                   ; 0  -   B>340  =C65=  5I5  >48=  A8<2>;
 
                 B I C       # 2 4 0 , R 0               ; *   ?OBL  =>@<0;87>20BL! . . 
 
                 C M P B     # 1 2 7 , R 0               ; " W " ? 
 
                 B N E       C O N T 3 
 
                 J M P       W _ E X I T                 ; 0  -   2KE>4  2    157  >1I53>  A1@>A0
 
 ; C O N T 3 = = 1 6 0 3 6 2 
 
 C O N T 3 :     B I C       # 7 , R 1                   ; !1@>A8<  <;04H85  18BK
 
                 C M P       # 6 0 , R 1                 ;       8  ?>A<>B@8<,   F8D@0  ;8  MB>? 
 
                 B N E       S T W O R K                 ; 5B  -   A=>20  1C45<  640BL  =060B8O. . . 
 
                 B I C       # 1 7 7 7 7 0 , R 0         ; 0  -   >B1@>A8<  =57=0G0I85  18BK
 
 
 
 ; 07=0G5=85  MB>3>  D@03<5=B0  A>AB>8B    2    >B1@0AK20=88  F8D@  6 , 7   8
 
 ; 0 .   !>25@H5==>  =5?>=OB=>,   :0:85    <>B82K    ?>4283;8  @07@01>BG8:>2
 
 ; =0  87>1@5B5=85  B0:>9  :>=AB@C:F88,   :>340    <>6=>    1K;>    >1>9B8AL
 
 ; 42C<O  A@02=5=8O<8. 
 
 
 
                 M O V       # 5 , R 1                   ; *   >?CAB8<K  F8D@K  1 . . . 5 
 
 ; N X T D I G = = 1 6 0 4 0 4 
 
 N X T D I G :   C M P       R 1 , R 0                   ; *   !>2?0405B  A  B5:CI59? 
 
                 B E Q       C O N T 4                   ; *   0  -   2K?>;=O5<  =C6=K9  B5AB
 
                 S O B       R 1 , N X T D I G           ; *   5B  -   A;54CNI89  20@80=B
 
                 B R         S T W O R K                 ; *   "0:  8  =5  A>2?0;0  -   =5  AC4L10. . . 
 
 
 
 
 
 
 
                                                           -   4   - 
 
 
 
 
 
 ; C O N T 4 = = 1 6 0 4 1 4 
 
 C O N T 4 :     A S L       R 1                         ; >;CG8<  A<5I5=85
 
                 A D D       # T A B P P 1 , R 1         ;     8  04@5A  2  B01;8F5, 
 
                 M O V       ( R 1 ) , R 1               ;     2>7L<5<  87  =55  04@5A  ?/ ?
 
                 J M P       ( R 1 )                     ;     8  ?5@5945<  :  55  2K?>;=5=8N
 
 ; S Y M B 2 = = 1 6 0 4 2 6 
 
 S Y M B 2 :     E M T       6                           ; 2545<  A8<2>;
 
                 E M T       1 6                         ;       ( A  ME><) 
 
                 C M P B     # 3 6 3 , R 0               ; " !" ? 
 
                 B E Q       S E T _ T S                 ; 0  -   ?5@5E>48<  2  $ "!
 
                 C M P B     # 3 4 4 , R 0               ; " " ? 
 
                 B E Q       S E T _ T D                 ; 0  -   7=0G8B,   2  # "
 
                 B R         S T W O R K                 ; @C38E  @568<>2  =5  1K205B. . . 
 
 
 
 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
                                       *   >=8B>@  @568<0  $ "!  * 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; M O N T S = = 1 6 0 4 5 0 
 
 M O N T S :     M O V       3 4 ( S P ) , R 1           ; 7 7 2   ( 4@5A)   -   2  R 1 
 
                 B I C       # 2 1 3 0 , 3 6 ( S P )     ; 7 7 4   B:;NG8<  =5=C6=K5  @568<K
 
 ; A L T T A B = = 1 6 0 4 6 2 
 
 A L T T A B :   C L R       4 0 ( S P )                 ; 7 7 6   !G5BG8:  F8D@  -   2  0 
 
                 C L R       R 5                         ; 1=C;8<  R 5   ( 22>48<>5  7=0G5=85) 
 
 ; N X T K E Y = = 1 6 0 4 7 0 
 
 N X T K E Y :   E M T       6                           ; 2545<  A8<2>;, 
 
                 M O V B     R 0 , R 2                   ;     A>E@0=8<  53>
 
                 E M T       1 6                         ;     8  2K2545<  ME>
 
                 B I C       # 1 7 7 4 0 7 , R 2         ; 8H=85  18BK  C1@0BL! 
 
                 C M P       # 6 0 , R 2                 ; -B>  1K;0  F8D@0? 
 
                 B N E       N O D I G                   ; 5B  -   ?>A<>B@8<  40;LH5. . . 
 
                 I N C       4 0 ( S P )                 ; 7 7 6   #25;8G8<  AG5BG8:  F8D@
 
                 B I S       # 1 0 , 3 6 ( S P )         ; 7 7 4   #AB0=>28<  D;03  " G8A;>  5ABL" 
 
                 A S L       R 5                         ; A2>1>48<  <5AB>  4;O  =>2>9  F8D@K
 
                 A S L       R 5 
 
                 A S L       R 5 
 
                 B I C       # 1 7 7 7 7 0 , R 0         ; !B0@H85  18BK  C15@5<, 
 
                 A D D       R 0 , R 5                   ;       0  3   <;04H8E  ?@8?8H5<  :  G8A;C
 
                 B R         N X T K E Y                 ;       8  1C45<  640BL  =>2>3>  =060B8O
 
 ; N O D I G = = 1 6 0 5 4 0 
 
 N O D I G :     M O V       # 1 7 7 7 7 7 , R 3         ; >A;5  I N C   2  R 3   >:065BAO  0 . . . 
 
                 B I T       # 2 0 , 3 6 ( S P )         ; 7 7 4   @5D8:A  " ."   1K;? 
 
                 B E Q       S T D T A B                 ; 5B  -   B01;8FK  1C4CB  AB0=40@B=K5. . . 
 
                 M O V       # 1 3 0 0 , R 4             ; ;LB5@=0B82=0O  B01;8F0  1C:2
 
                 M O V       # 1 4 0 0 , R 2             ; ;LB5@=0B82=0O  B01;8F0  04@5A>2
 
                 B R         T S T T A B                 ; 5@5945<  :  ?@>25@:5
 
 ; S T D T A B = = 1 6 0 5 6 6 
 
 S T D T A B :   C M P B     # 3 6 4 , R 0               ; " "" ? 
 
                 B E Q       S E T T A B                 ; 0  -   B01;8FK  B5AB>2
 
                 M O V       # T A B S Y M , R 4         ; !B0=40@B=0O  B01;8F0  1C:2
 
                 M O V       # T A B P P 2 , R 2         ; !B0=40@B=0O  B01;8F0  04@5A>2
 
 ; T S T T A B = = 1 6 0 6 0 4 
 
 T S T T A B :   I N C       R 3                         ; #25;8G8<  =><5@  ?@>25@O5<>9  :><0=4K
 
                 C M P B     R 0 , ( R 4 ) +             ; !@02=8<  A8<2>;  A  B01;8G=K<
 
                 B E Q       P O S C M P                 ; !>2?0;  -   2K?>;=8<  =C6=CN  ?/ ?
 
                 T S T B     ( R 4 )                     ; "01;8F0  :>=G8;0AL? 
 
                 B N E       T S T T A B                 ; 5B  -   ?@>4>;68<  ?@>25@:C
 
                 J M P       S T W O R K                 ; 0  -   =5B  B0:>9  :><0=4K,   A=>20  645<
 
                                                           -   5   - 
 
 
 
 
 
 ; P O S C M P = = 1 6 0 6 2 2 
 
 P O S C M P :   A S L       R 3                         ; >;CG8<  A<5I5=85, 
 
                 A D D       R 2 , R 3                   ;       0  ?>  =5<C  -   04@5A  2  B01;8F5, 
 
                 M O V       ( R 3 ) , R 3               ;       2>7L<5<  >BBC40  04@5A  ?/ ?
 
                 J M P       ( R 3 )                     ;       8  2K?>;=8<  55
 
 ; S E T T A B = = 1 6 0 6 3 2 
 
 S E T T A B :   E M T       6                           ; 2545<  2B>@>9  A8<2>;  ?>A;5  " "" 
 
                 E M T       1 6                         ;       ( =5  701KBL  ?@>  ME>! ) 
 
                 B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "? 
 
                 B E Q       T S 1                       ; 5B  -   7=0G8B,   $ "!
 
                 M O V       # S T A B T D , R 4         ; "01;8F0  1C:2  @568<0  # "
 
                 M O V       # A T A B T D , R 2         ; "01;8F0  04@5A>2  @568<0  # "
 
                 B R         T S T T A B                 ; >8I5<  :><0=4C  2  MB>9  B01;8F5
 
 ; T S 1 = = 1 6 0 6 6 0 
 
 T S 1 :         M O V       # S T A B T S , R 4         ; "01;8F0  1C:2  @568<0  $ "!
 
                 M O V       # A T A B T S , R 2         ; "01;8F0  04@5A>2  @568<0  $ "!
 
                 B R         T S T T A B                 ;       . . . 0  <>65B  1KBL,   2  MB>9. . . 
 
 
 
 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                   *   1@01>B:0  ?@5@K20=8O  ?>  @575@2=>9  :><0=45  * 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; I N V C M D = = 1 6 0 6 7 2 
 
 I N V C M D :   M O V       # N K _ T X T , R 4         ; 4@5A  B5:AB0  " " 
 
 ; R E T T R P = = 1 6 0 6 7 6 
 
 R E T T R P :   C A L L     P R I N T                   ; 0?5G0B05<  A>>1I5=85
 
                 M O V       # 1 6 , R 0                 ; !B@0==0O  :>=AB@C:F8O.     E M T   1 6 
 
                 E M T       1 6                         ;       :>4  1 6   ?@>AB>  83=>@8@C5BAO. . . 
 
                 J M P       S T W O R K                 ;  58=8F80;878@C5<  <>=8B>@
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   1@01>B:0  ?@5@K20=8O  ?>  020@88  ?8B0=8O  * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; E R R P W R = = 1 6 0 7 1 4 
 
 E R R P W R :   M O V       # P W R T X T , R 4         ; !>>1I5=85  " !  "/" : 
 
                 B R         R E T T R P                 ;     =0?5G0B05<  53>  -   8  :  =0G0;C
 
 
 
 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                     *   1@01>B:0  ?@5@K20=8O  ?>  !"  8  7028A0=8N  * 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; H L T T R P = = 1 6 0 7 2 2 
 
 H L T T R P :   M O V       # 7 7 4 , R 5               ; 4@5A  D;03>2  -   ?>1;865. . . 
 
                 B I C       # 4 0 2 0 0 , ( R 5 )       ; G8AB8<  2A5  D;038
 
                 B I S       # 1 0 0 0 0 , ( R 5 )       ;       8  CAB0=>28<  D;03  < )> 
 
                 C L R       R 0 
 
                 E M T       2 2                         ; 1=>28<  A;C651=CN  AB@>:C
 
                 M O V       # 1 6 , R 0                 ; -B8  :><0=4K  =5  45;0NB  @>2=K<
 
                 E M T       1 6                         ;       AG5B><  =8G53>. . . 
 
                 B I T       # 2 0 0 0 0 , ( R 5 )       ; @5@K20=85  :;0280BC@K  70?@5I0;>AL? 
 
                 B E Q       C O N T 5                   ; 5B  -   =C  8  >B;8G=>. . . 
 
                 B I C       # 2 0 0 0 0 , ( R 5 )       ; G8AB8<  D;03  70?@5B0, 
 
                 B I C       # 1 0 0 , @ # 1 7 7 6 6 0   ;       @07@5H8<  ?@5@K20=85, 
 
                 M F P S     R 1                         ;       0  ?@8>@8B5B  ?@>F5AA>@0
 
                 B I C       # 1 0 0 , R 1               ;       C<5=LH8<,   GB>1K  >=>  <>3;>
 
 
 
                                                           -   6   - 
 
 
 
 
 
                 M T P S     R 1                         ;       ?@>=8:=CBL  2  ?@>F5AA>@
 
 ; C O N T 5 = = 1 6 1 0 0 0 
 
 C O N T 5 :     B I T       # 2 , ( R 5 )               ;  01>B05<  2  @568<5  # "? 
 
                 B E Q       N O T D 1                   ; A;8  40, 
 
                 M O V       # 1 7 7 6 7 0 , R 0         ;       B>  =0  AB5=45
 
                 C L R       ( R 0 ) +                   ;       >G8AB8<  H8=C  40==KE
 
                 C L R       ( R 0 )                     ;       8  H8=C  C?@02;5=8O
 
 ; N O T D 1 = = 1 6 1 0 1 6 
 
 N O T D 1 :     B I T       # 4 , @ # 1 7 7 7 1 6       ; @5@K20=85  1K;>  87- 70  7028A0=8O? 
 
                 B N E       S T O P                     ; 5B  -   7=0G8B,   ?>  !"C
 
                 M O V       # H A N G , R 4             ; !>>1I5=85  " " 
 
                 C A L L     P R I N T                   ;       =0?5G0B05<
 
                 M O V       R 1 , R 4                   ; 4@5A  2  <>=8B>@5  >1KG=>  E@0=8BAO  2
 
                                                         ; R 1 .   <5==>    ?>MB><C    A>45@68<>5  R 1 
 
                                                         ; 2K2>48BAO  :0:  04@5A  7028A0=8O  ( E>- 
 
                 C A L L     O C T A L                   ; BO  MB>  =5  2A5340  25@=>) 
 
 ; S T O P = = 1 6 1 0 4 4 
 
 S T O P :       J M P       S T W O R K                 ; 5@5E>48<  :  =>@<0;L=>9  @01>B5
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   @>25@:0  >1@0I5=8O  2  A;C651=CN  >1;0ABL  A8AB5<K  * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S H D T S T = = 1 6 1 0 5 0 
 
 S H D T S T :   B I T       # 1 0 0 0 0 , 4 4 ( S P )   ; 7 7 4    568<  < )>   2:;NG5=? 
 
                 B E Q       S H D O F F                 ; 5B  -   70?8AK20BL  <>6=>,   2KE>48<
 
                 C M P       # 7 7 6 , R 1               ; 4@5A  2  A8AB5<=>9  >1;0AB8? 
 
                 B L O       S H D O F F                 ; 5B  -   ?>@O4>:,   2KE>48<
 
                 M O V       # S H D T X T , R 4         ; !>>1I5=85  " )" 
 
                 C A L L     P R I N T                   ;       =0?5G0B05<
 
                 J M P       S T W O R K                 ;       8  25@=5<AO  :  =0G0;C  @01>BK
 
 ; S H D O F F = = 1 6 1 1 0 2 
 
 S H D O F F :   R E T                                   ; 0?8AK20BL  <>6=>,   MB8<  8  709<5<AO
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   A=>2=0O  ?>4?@>3@0<<0  >1<5=0  A>  AB5=4><  !  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S T E N D = = 1 6 1 1 0 4 
 
 S T E N D :     M O V       R 2 , 1 0 ( S P )           ; 7 4 0   !>E@0=8<  R 2 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1                   ; A;8  5ABL  - 
 
                 C A L L     H E A D E R                 ;       =0?5G0B05<  H0?:C  B01;8FK
 
 
 
 ; 0    MBC    <5B:C  ?5@540NB  C?@02;5=85  =5:>B>@K5  B5AB>2K5  ?>4?@>3- 
 
 ; @0<<K,   A0<>AB>OB5;L=>    A1@0AK20NI85  D;03  B5AB8@>20=8O.   @8G8=K
 
 ; B0:>9  48A:@8<8=0F88  =5?>=OB=K. 
 
 
 
 ; N O P R 1 = = 1 6 1 1 2 0 
 
 N O P R 1 :     M O V       # 1 7 7 6 7 0 , R 2         ; 0  AB5=45: 
 
                 C L R       ( R 2 ) +                   ;       >G8AB8<  H8=C  40==KE
 
                 C L R       ( R 2 )                     ;       8  H8=C  C?@02;5=8O
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 2                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 
 
 
 
 
 
                                                           -   7   - 
 
 
 
 
 
 ; N O P R 2 = = 1 6 1 1 4 0 
 
 N O P R 2 :     T S T       - ( R 2 )                   ; 0  H8=C  40==KE
 
                 M O V       R 1 , ( R 2 ) +             ;       2KAB028<  04@5A
 
                 T S T       R 3                         ; 04>  70?8AK20BL? 
 
                 B P L       R D S T D 1                 ; 5B  -   GB5=85  ?@>8AE>48B  ?>- 4@C3><C
 
                 B I S       # 1 0 0 , ( R 2 )           ; #AB0=>28<  W T B T   ( ") 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 3                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 3 = = 1 6 1 1 6 4 
 
 N O P R 3 :     B I S       # 1 0 , ( R 2 )             ; #AB0=>28<  S Y N C   ( !) 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 4                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 4 = = 1 6 1 2 0 0 
 
 N O P R 4 :     B I T       # 1 , R 3                   ; ?5@0F8O  A  109B><? 
 
                 B N E       B Y T E                     ; 0  -   =8G53>  =5  <5=O5<
 
                 B I C       # 1 0 0 , ( R 2 )           ; 5B  -   A=8<5<  W T B T   ( ") 
 
 ; B Y T E = = 1 6 1 2 1 2 
 
 B Y T E :       S U B       # 2 , R 2                   ;  538AB@  H8=K  40==KE
 
                 M O V       R 0 , ( R 2 ) +             ; #AB0=>28<  40==K5  =0  H8=5
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 5                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 5 = = 1 6 1 2 3 0 
 
 N O P R 5 :     B I S       # 4 0 , ( R 2 )             ; #AB0=>28<  D O U T   ( +) 
 
 ; W A I T R P = = 1 6 1 2 3 4 
 
 W A I T R P :   T S T B     ( R 2 )                     ; R P L Y   ( !)   5ABL? 
 
                 B M I       A L L _ O K                 ; 0  -   40==K5  ?@8=OBK
 
                 N O P                                   ; 5B  -   7045@6:0
 
                 N O P 
 
                 T S T B     ( R 2 )                     ; R P L Y   ( !)   5ABL? 
 
                 B M I       A L L _ O K                 ; 0  -   40==K5  ?@8=OBK
 
                 B I T       # 4 0 0 0 0 , R 3           ; @>25@OBL  =0  7028A0=85  =04>? 
 
                 B N E       A L L _ O K                 ; 5B  -   ?@>83=>@8@C5<  7028A0=85
 
                 M O V       # 3 4 0 , - ( S P )         ; !45;05<  284,   GB>  ?@>87>H;>
 
                 M O V       P C , - ( S P )             ;       >1KG=>5  ?@5@K20=85  ?>  25:B>@C  4 
 
                 C L R       - ( R 2 )                   ; A5  H8=K  AB5=40
 
                 C L R       ( R 2 ) +                   ;       25@=5<  2  8AE>4=>5
 
                 C L R       ( R 2 ) +                   ;       A>AB>O=85
 
                 J M P       H L T T R P                 ; 5@5945<  :  >1@01>B:5  " 7028A0=8O" 
 
 ; A L L _ O K = = 1 6 1 2 7 6 
 
 A L L _ O K :   S U B       # 2 , R 2 
 
                 T S T       R 3                         ; K  70=8<0;8AL  70?8ALN  8;8  GB5=85<? 
 
                 B P L       R D S T D 2                 ; 'B5=85<  -   >1@01>B:0  2  4@C3><  <5AB5
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 6                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 6 = = 1 6 1 3 1 6 
 
 N O P R 6 :     A D D       # 2 , R 2 
 
                 B I C       # 1 4 0 , ( R 2 )           ; !=8<5<  W T B T   ( ")   8  D O U T   ( +) , 
 
                 C L R       - ( R 2 )                   ;       0  B0:65  40==K5  A  H8=K
 
                 A D D       # 2 , R 2 
 
 ; C L R B U S = = 1 6 1 3 3 4 
 
 C L R B U S :   T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 7                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 
 
 
 
 
 
                                                           -   8   - 
 
 
 
 
 
 ; N O P R 7 = = 1 6 1 3 4 4 
 
 N O P R 7 :     B I C       # 1 0 , ( R 2 )             ; !=8<5<  S Y N C   ( !) 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 8                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
                 M O V       R 0 , 4 6 ( S P )           ; 7 7 6   @5<5==>  A>E@0=8<  R 0 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 M O V       2 2 ( S P ) , R 0           ; 7 5 2   >7L<5<  8
 
                 E M T       1 6                         ;               =0?5G0B05<  ?@83;0H5=85
 
                 M O V       4 6 ( S P ) , R 0           ; 7 7 6   "CB  65  2>AAB0=>28<  R 0 
 
 ; N O P R 8 = = 1 6 1 4 0 4 
 
 N O P R 8 :     M O V       1 0 ( S P ) , R 2           ; 7 4 0         . . . 8  R 2 
 
                 R E T                                   ; &8:;  >1<5=0  A>  AB5=4><  7025@H5=! 
 
 ; R D S T D 1 = = 1 6 1 4 1 2 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 9                   ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 9 = = 1 6 1 4 2 2 
 
 N O P R 9 :     B I S       # 1 0 , ( R 2 )             ; #AB0=>28<  S Y N C   ( !) 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 0                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 0 = = 1 6 1 4 3 6 
 
 N O P R 1 0 :   S U B       # 2 , R 2 
 
                 C L R       ( R 2 ) +                   ; !=8<5<  04@5A
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 1                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 1 = = 1 6 1 4 5 4 
 
 N O P R 1 1 :   B I S       # 2 0 , ( R 2 )             ; #AB0=>28<  D I N   ( ) 
 
                 B R         W A I T R P                 ;       8  ?>945<  640BL  R P L Y   ( !) 
 
 ; R D S T D 2 = = 1 6 1 4 6 2 
 
 R D S T D 2 :   M O V       ( R 2 ) + , R 0             ; >;CG8<  40==K5  A  H8=K
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 2                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 2 = = 1 6 1 4 7 4 
 
 N O P R 1 2 :   B I C       # 2 0 , ( R 2 )             ; !=8<5<  D I N   ( ) 
 
                 B R         C L R B U S                 ;       8  7025@H8<  F8:;
 
 
 
 ; @5645  2A53>,   ?@>25@:C  =0  :>=B@>;L  A>AB>O=8O  AB5=40    =04>  1K;>
 
 ; ?@>872>48BL  2=CB@8  ?>4?@>3@0<<K  P R I B U S .   "0:65  C482;O5B    =574>- 
 
 ; @>20O    87>1@5B0B5;L=>ABL    ?@8    8A?>;L7>20=85<  R 2   4;O  04@5A0F88
 
 ; @538AB@>2  AB5=40.     254L  4>AB0B>G=>  1K;>  ?><5AB8BL  2  R 2   7=0G5- 
 
 ; =85  1 7 7 6 7 0     8  >1@0I0BLAO  :  @538AB@C  H8=K  40==KE:   C L R   ( R 2 ) ,   0  :
 
 ; @538AB@C  H8=K  C?@02;5=8O:   C L R   2 ( R 2 )   -   1KAB@55  8  :>@>G5. . . 
 
 
 
 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
           *   " "   -   2K?>;=5=85  F8:;0  " ?@5@K20=85"   =0  AB5=45  !  * 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W _ R U S = = 1 6 1 5 0 2 
 
 W _ R U S :     B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B N E       N O T D 2                   ; A;8  =5B  - 
 
                 J M P       S T W O R K                 ;       83=>@8@C5<  :><0=4C
 
 
 
 
 
                                                           -   9   - 
 
 
 
 
 
 ; N O T D 2 = = 1 6 1 5 1 6 
 
 N O T D 2 :     M O V       3 6 ( S P ) , R 5           ; 7 7 4   !>E@0=8<  D;038
 
                 B I C       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   B:;NG8<  :>=B@>;L  AB5=40
 
                 B I S       # 2 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   #AB0=>28<  D;03  ?@5@K20=8O
 
                 M O V       # 1 7 7 6 6 0 , R 1         ;    !  :;0280BC@K  ?@>25@O5<>3>  
 
                 C L R       R 0                         ;       70?8H5<  0 
 
                 C A L L     W R T _ R 0                 ;       ( @07@5H5=85  ?@5@K20=8O) 
 
                 M O V       # 1 7 7 6 6 2 , R 1         ;      :;0280BC@K
 
                 C A L L     R D _ R 0                   ;       ?@>G8B05<
 
 
 
 ; A;8  =0  ?@>25@O5<><    :;028H8    C65    =068<0;8AL,   B>  2K?>;=5=85
 
 ; MB>9    F5?>G:8    :><0=4  <>65B  ?@825AB8    :    =565;0B5;L=><C  2K7>2C
 
 ; ?@5@K20=8O  A@07C  ?>A;5  >G8AB:8   !.   !1@>A  D;030  2   !  8  GB5=85
 
 ; 87     A;54>20;>  1K  ?><5=OBL  <5AB0<8. 
 
 
 
                 B I T       # 2 0 0 , R 5               ; >=B@>;L  AB5=40  @0=55  1K;  2:;NG5=? 
 
                 B E Q       N O P R 1 3                 ; A;8  40  - 
 
                 B I S       # 2 0 0 , 3 6 ( S P )       ; 7 7 4     2:;NG8<  53>  >?OBL
 
 ; N O P R 1 3 = = 1 6 1 5 7 4 
 
 N O P R 1 3 :   M O V       # 1 7 7 6 7 0 , R 2 
 
                 M O V       3 6 ( S P ) , R 3           ; 7 7 4   $;038  ?>;>68<  ?>1;865. . . 
 
                 S U B       # 6 , S P                   ; 0@575@28@C5<  AB5:  4;O  ?/ ?  P R I B U S 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 4                 ; A;8  5ABL  - 
 
                 C A L L     H E A D E R                 ;       =0?5G0B05<  H0?:C  B01;8FK
 
 ; N O P R 1 4 = = 1 6 1 6 2 0 
 
 N O P R 1 4 :   C L R       ( R 2 ) +                   ; G8AB8<  H8=C  40==KE
 
                 C L R       ( R 2 )                     ;       8  H8=C  C?@02;5=8O
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 5                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 5 = = 1 6 1 6 3 4 
 
 N O P R 1 5 :   B I T       # 2 , ( R 2 )               ; V I R Q   ( " )   CAB0=>2;5=? 
 
                 B E Q       N O P R 1 5                 ; 5B  -   645<,   ?>:0  CAB0=>28BAO
 
                 M O V       # 2 0 , ( R 2 )             ; #AB0=>28<  D I N   ( ) 
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 6                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 6 = = 1 6 1 6 5 6 
 
 N O P R 1 6 :   M O V       # 2 1 , ( R 2 )             ; #AB0=>28<  I A K O   (  1 ) 
 
 ; W A I T V I = = 1 6 1 6 6 2 
 
 W A I T V I :   B I T       # 2 , ( R 2 )               ; V I R Q   ( " )   2A5  5I5  CAB0=>2;5=? 
 
                 B N E       W A I T V I                 ; 0  -   >68405<  A=OB8O
 
 ; W A I T R 2 = = 1 6 1 6 7 0 
 
 W A I T R 2 :   B I T       # 2 0 0 , ( R 2 )           ; R P L Y   ( !)   CAB0=>2;5=? 
 
                 B E Q       W A I T R 2                 ; 5B  -   645<,   ?>:0  CAB0=>28BAO
 
                 S U B       # 2 , R 2                   ; !  H8=K  40==KE
 
                 M O V       ( R 2 ) + , R 0             ;       ?@>G8B05<  25:B>@  ?@5@K20=8O
 
                 M O V       R 0 , R 4                   ;       8  A>E@0=8<  53>  4;O  @0A?5G0B:8
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 7                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 7 = = 1 6 1 7 1 6 
 
 N O P R 1 7 :   M O V       # 1 , ( R 2 )               ; !=8<5<  D I N   ( ) 
 
 ; R P O F F = = 1 6 1 7 2 2 
 
 R P O F F :     T S T B     ( R 2 )                     ; R P L Y   ( !)   2A5  5I5  CAB0=>2;5=? 
 
                 B M I       R P O F F                   ; 0  -   >68405<  A=OB8O
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
 
 
 
 
                                                           -   1 0   - 
 
 
 
 
 
                 B P L       N O P R 1 8                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 8 = = 1 6 1 7 3 6 
 
 N O P R 1 8 :   C L R       ( R 2 )                     ; G8AB8<  H8=C  C?@02;5=8O
 
                 T S T B     R 3                         ; >=B@>;L  A>AB>O=8O  AB5=40  5ABL? 
 
                 B P L       N O P R 1 9                 ; A;8  5ABL  - 
 
                 C A L L     P R I B U S                 ;       @0A?5G0B05<  A>AB>O=85  H8=K
 
 ; N O P R 1 9 = = 1 6 1 7 5 0 
 
 N O P R 1 9 :   A D D       # 6 , S P                   ; 5@=5<  AB5:  =0  <5AB>
 
                 M O V       3 6 ( S P ) , R 5           ; 7 7 4   !>E@0=8<  D;038
 
                 B I C       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   B:;NG8<  :>=B@>;L  AB5=40
 
                 C A L L     O C T A L                   ; 0?5G0B05<  25:B>@  ?@5@K20=8O
 
                 M O V       # 7 2 , R 0                 ;       8  " : " 
 
                 E M T       1 6 
 
                 M O V       # 1 7 7 6 6 2 , R 1         ; 7     :;0280BC@K  ?@>25@O5<>3>  
 
                 C A L L     P R V A L                   ;       ?@>G8B05<  8  =0?5G0B05<  :>4
 
                 B I T       # 2 0 0 , R 5               ; >=B@>;L  AB5=40  @0=55  1K;  2:;NG5=? 
 
                 B E Q       N O P R 2 0                 ; A;8  40  - 
 
                 B I S       # 2 0 0 , 3 6 ( S P )       ; 7 7 4       2:;NG8<  53>  >?OBL
 
 ; N O P R 2 0 = = 1 6 2 0 2 4 
 
 N O P R 2 0 :   B I C       # 2 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   G8AB8<  D;03  ?@5@K20=8O
 
                 J M P       M O N T S                   ; 5@5E>48<  :  ?@83;0H5=8N
 
 
 
 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 *   K2>4  A>AB>O=8O  AB5=40  !  * 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; @>25@:C  =0  =0;8G85  :>=B@>;O    @0F8>=0;L=55  1K;>  1K  @0A?>;>68BL
 
 ; 745AL,   M:>=><O  ?>  2   A;>20  =0  :064><  2K7>25. 
 
 
 
 ; P R I B U S = = 1 6 2 0 3 6 
 
 P R I B U S :   M O V       R 4 , 1 6 ( S P )           ; 7 4 4   !>E@0=8<  @538AB@K
 
                 M O V       R 0 , 5 0 ( S P )           ; 7 7 6 
 
                 M O V       R 1 , 1 0 ( S P )           ; 7 3 6 
 
                 C A L L     C O L S                     ; K2545<  :>;>=:8  B01;8FK
 
                 M O V       2 0 ( S P ) , R 0           ; 7 4 6   A?><=8<  =><5@  AB@>:8  B01;8FK
 
                 E M T       1 6                         ;               8  =0?5G0B05<  53>
 
                 M O V       # 2 , R 4 
 
 ; S O B 1 = = 1 6 2 0 7 0 
 
 S O B 1 :       M O V       # 4 0 , R 0                 ; 0?5G0B05<  ?@>15;K
 
                 E M T       1 6                         ;       2  :>;8G5AB25  42CE  HBC:
 
                 S O B       R 4 , S O B 1 
 
 
 
 ; ;O  2K2>40  2 . . . 3   >48=0:>2KE  A8<2>;>2  ;CGH5  1K;>    1K    8A?>;L7>- 
 
 ; 20BL  :>=AB@C:F8N: 
 
 ; 
 
 ;               M O V       # 4 0 , R 0 
 
 ;               E M T       1 6 
 
 ;               E M T       1 6 
 
 ; 
 
 ; A  =5>1E>48<K<  :>;8G5AB2><  E M T   1 6 . 
 
 
 
                 M O V       @ # 1 7 7 6 7 0 , R 4       ; >;CG8<  7=0G5=85  A  H8=K  40==KE
 
                 M O V       # 6 , R 5                   ;   2>AL<5@8G=><  G8A;5  6   F8D@
 
 ; B I T 3 = = 1 6 2 1 1 0 
 
 B I T 3 :       C L R       R 0                         ; G8AB8<  R 0 
 
                 R O L       R 4                         ; BI8?=5<  ;52K9  18B  >B  R 4 
 
                 R O L       R 0                         ;       8  ?@8;5?8<  A?@020  :  R 0 
 
 
 
                                                           -   1 1   - 
 
 
 
 
 
                 A D D       # 6 0 , R 0                 ; !>>B25BAB2CNICN  F8D@C
 
                 E M T       1 6                         ;       =0?5G0B05<
 
                 M O V       # 2 3 7 , R 0               ; 5@5:;NG8<  @568<  ?>4G5@:820=8O
 
                 E M T       1 6                         ;       ( ?>4G5@:8205<  3@C??K  ?>  3   18B0) 
 
                 D E C       R 5                         ; 4=>9  F8D@>9  AB0;>  <5=LH5. . . 
 
                 B E Q       E N D 1                     ; A;8  F8D@K  :>=G8;8AL,   2KE>48<
 
                 M O V       # 2 , R 1 
 
 ; B I T 2 = = 1 6 2 1 4 2 
 
 B I T 2 :       C L R       R 0                         ; G8AB8<  R 0 
 
                 R O L       R 4                         ; BI8?=5<  ;52K9  18B  >B  R 4 
 
                 R O L       R 0                         ;       8  ?@8;5?8<  A?@020  :  R 0 
 
                 A D D       # 6 0 , R 0                 ; !>>B25BAB2CNICN  F8D@C
 
                 E M T       1 6                         ;       =0?5G0B05<
 
 
 
 ; >@>G5  1C45B: 
 
 ; 
 
 ;               M O V       # 3 0 , R 0 
 
 ;               R O L       R 4 
 
 ;               R O L       R 0 
 
 ;               E M T       1 6 
 
 
 
                 S O B       R 1 , B I T 2               ; >2B>@8<  B>  65  A0<>5  5I5. . . 
 
                 B R         B I T 3                     ;       . . . 8  5I5  @07
 
 ; E N D 1 = = 1 6 2 1 6 2 
 
 E N D 1 :       M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 M O V       @ # 1 7 7 6 7 2 , R 4       ; >;CG8<  7=0G5=85  A  H8=K  :><0=4
 
                 M O V       # 1 0 , R 1                 ; C45<  C40;OBL
 
 ; S O B 2 = = 1 6 2 2 0 0 
 
 S O B 2 :       R O L       R 4                         ;       :@09=85  A;520  18BK  87  R 4   - 
 
                 S O B       R 1 , S O B 2               ;       1 0   ( 8 4)   HBC:
 
                                                         ;       ( ?>G5<C  =5  S W A B   R 4 ? ) 
 
                 B I T       # 2 0 0 0 0 , R 3           ; 1@010BK205BAO  @568<  ?@5@K20=8O? 
 
                 B N E       I N T F L G                 ; 0  -   1C45<  2K2>48BL  4@C385  A83=0;K
 
                 M O V       # 5 , R 1                   ; K2>48BL  1C45<  5   A83=0;>2: 
 
                                                         ;       R P L Y   ( !) ,   W T B T   ( ") , 
 
                                                         ;       D O U T   ( +) ,   D I N   ( ) , 
 
                                                         ;       S Y N C   ( !) 
 
 ; N X B I T 1 = = 1 6 2 2 1 6 
 
 N X B I T 1 :   M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 C L R       R 0                         ; "5?5@L
 
                 R O L       R 4                         ;       =0?5G0B05<
 
                 R O L       R 0                         ;               >G5@54=>9
 
                 A D D       # 6 0 , R 0                 ;                         :@09=89  ;52K9
 
                 E M T       1 6                         ;                                               18B  87  R 4 
 
                 S O B       R 1 , N X B I T 1           ; >2B>@8<  4;O  A;54CNI53>  18B0
 
 ; E N D P R I = = 1 6 2 2 4 2 
 
 E N D P R I :   C A L L     C O L S                     ;  073@0D8<  B01;8FC
 
                 E M T       6                           ; 45<  =060B8O  :;028H8. . . 
 
                 I N C       2 0 ( S P )                 ; 7 4 6   ><5@  AB@>:8  -   C25;8G8<
 
                 M O V       1 6 ( S P ) , R 4           ; 7 4 4   >AAB0=>28<  @538AB@K
 
                 M O V       5 0 ( S P ) , R 0           ; 7 7 6 
 
                 M O V       1 0 ( S P ) , R 1           ; 7 3 6 
 
                 R E T                                   ; 5G0BL  >:>=G5=0,   2KE>48<
 
 
 
 
 
 
 
 
 
 
 
                                                           -   1 2   - 
 
 
 
 
 
 ; I N T F L G = = 1 6 2 2 7 2 
 
                 M O V       # 2 , R 1                   ; !=0G0;0  2K2545<  2   A83=0;0: 
 
                                                         ; R P L Y   ( !) ,   D I N   ( ) 
 
 ; N X B I T 2 = = 1 6 2 2 7 6 
 
 N X B I T 2 :   M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 C L R       R 0                         ; G8AB8<  R 0 
 
                 R O L       R 4                         ; BI8?=5<  ;52K9  18B  >B  R 4 
 
                 R O L       R 0                         ;       8  ?@8;5?8<  A?@020  :  R 0 
 
                 A D D       # 6 0 , R 0                 ; !>>B25BAB2CNICN  F8D@C
 
                 E M T       1 6                         ;       =0?5G0B05<
 
                 R O L       R 4                         ; @>?CAB8<  =5=C6=K9  18B. . . 
 
                 R O L       R 4                         ;       . . . 8  5I5  >48=
 
                 S O B       R 1 , N X B I T 2           ; >2B>@8<  2A5  MB>  5I5  @07. . . 
 
                 M O V       # 2 , R 1                   ; "5?5@L  2K2545<  5I5  2   A83=0;0: 
 
                                                         ; V I R Q   ( " ) ,   I A K O   (  1 ) 
 
 ; N X B I T 3 = = 1 6 2 3 3 2 
 
 N X B I T 3 :   M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 C L R       R 0                         ; G5@54=>9
 
                 R O L       R 4                         ;       :@09=89  A;520
 
                 R O L       R 0                         ;                             18B
 
                 A D D       # 6 0 , R 0                 ;                               87  R 4 
 
                 E M T       1 6                         ;                                   B>65  =0?5G0B05<
 
                 S O B       R 1 , N X B I T 3           ; >2B>@8<  5I5  >48=  @07. . . 
 
                 B R         E N D P R I                 ; 5@5945<  :  AB0=40@B=><C  7025@H5=8N
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *    07<5B:0  :>;>=>:  :>=B@>;L=>9  B01;8FK  * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; <5AB>  ?5@A>=0;L=>9  >1@01>B:8  :064>3>  :>40  AB>8;>    70?8A0BL  8E
 
 ; :0:  B5:AB>2CN    AB@>:C  8  2K2>48BL  ?@8  ?><>I8  E M T   2 0 .   -:>=><8O  - 
 
 ; 1 7 4  A;>2. 
 
 
 
 ; C O L S = = 1 6 2 3 6 0 
 
 C O L S :       M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; C@A>@  -   2  =0G0;>  A;54CNI59  AB@>:8
 
                 M O V       # 3 2 , R 0 
 
                 E M T       1 6                         ; 5@=5<  :C@A>@  =0  AB@>:C  225@E
 
                 M O V       # 2 , R 4 
 
 ; S O B 3 = = 1 6 2 4 0 0 
 
 S O B 3 :       M O V       # 3 1 , R 0 
 
                 E M T       1 6                         ; C@A>@  -   420  H030  2?@02>! 
 
                 S O B       R 4 , S O B 3 
 
                 M O V       # 5 6 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  B>G:C
 
                 M O V       # 2 2 , R 4 
 
 ; S O B 4 = = 1 6 2 4 2 2 
 
 S O B 4 :       M O V       # 3 1 , R 0 
 
                 E M T       1 6                         ; "5?5@L  -   2 2   ( 1 8 4)   H030  2?@02>! 
 
                 S O B       R 4 , S O B 4 
 
                 M O V       # 5 6 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  5I5  >4=C  B>G:C
 
                 M O V       # 3 1 , R 0 
 
                 E M T       1 6                         ; I5  H03  2?@02>  ( 70G5<? ! ) 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  4CE  ( 2  A<KA;5  AB@>:C) . . . 
 
 
 
 
 
                                                           -   1 3   - 
 
 
 
 
 
                 M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 R E T                                   ; -B>  2A5
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   K2>4  703>;>2:>2  B01;8F  A>AB>O=8O  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; H E A D E R = = 1 6 2 4 6 4 
 
 H E A D E R :   M O V       R 4 , 1 6 ( S P )           ; 7 4 4   !>E@0=8<  @538AB@K
 
                 M O V       R 0 , 5 0 ( S P )           ; 7 7 6 
 
                 M O V       R 1 , 1 0 ( S P )           ; 7 3 6   ?   1   ? 
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 3 7 , R 4 
 
 ; S O B 5 = = 1 6 2 5 1 2 
 
 S O B 5 :       M O V       # 5 6 , R 0                 ; !25@EC  B01;8FC
 
                 E M T       1 6                         ;       >3@0=8G8<  3 7   ( 3 1 4)   B>G:0<8
 
                 S O B       R 4 , S O B 5 
 
                 M O V       # 1 2 , R 0                 ;       8  ?5@52545<  AB@>:C
 
                 E M T       1 6 
 
                 B I T       # 2 0 0 0 0 , R 3           ; 1@010BK205<  F8:;  ?@5@K20=8O? 
 
                 B E Q       N O I N T 
 
                 M O V       # V E C T O R , R 4         ; 0  -   703>;>2>:  " " " 
 
                 B R         P R H E A D 
 
 ; N O I N T = = 1 6 2 5 4 4 
 
 N O I N T :     M O V       # A D R D A T , R 4         ; =0G5  -   703>;>2>:  "  !- +" 
 
 ; P R H E A D = = 1 6 2 5 5 0 
 
 P R H E A D :   C A L L     P R I N T                   ; 0?5G0B05<  2K1@0==K9  703>;>2>:
 
                 M O V       # 4 0 , R 4 
 
 ; S O B 6 = = 1 6 2 5 6 0 
 
 S O B 6 :       M O V       # 5 6 , R 0                 ; 03>;>2>:
 
                 E M T       1 6                         ;       ?>4G5@:=5<  4 0   ( 3 2 4)   B>G:0<8
 
                 S O B       R 4 , S O B 6 
 
                 M O V       # 6 0 , 2 0 ( S P )         ; 7 4 6   ><5@  AB@>:8  B01;8FK    -   2  " 0 " 
 
                 M O V       1 6 ( S P ) , R 4           ; 7 4 4   >AAB0=>28<  @538AB@K
 
                 M O V       5 0 ( S P ) , R 0           ; 7 7 6 
 
                 M O V       1 0 ( S P ) , R 1           ; 7 3 6 
 
                 R E T 
 
 
 
 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                     *   #=8D8F8@>20==K9  >1<5=  A>  AB5=4></ ?0<OBLN  * 
 
                     *   A?>;L7C5BAO    ?>4?@>3@0<<0<8    8A?>;=5=8O  * 
 
                     *   :><0=4  ?>;L7>20B5;O;   ?@>25@O5B  @568<  " )"   * 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; E X S T 1 = = 1 6 2 6 1 4 
 
 E X S T 1 :     M O V       R 3 , 1 0 ( S P )           ; 7 4 2   !>E@0=8<  R 3 
 
                 M O V       4 2 ( S P ) , R 3           ; 7 7 4   $;038  2>7L<5<  :  A515
 
                 B I T       # 2 , R 3                   ;  568<  # "? 
 
                 B E Q       N O T D 3                   ; 5B  -   @01>B05<  A  <5AB=>9  ?0<OBLN
 
                 B I T       # 1 , R 3                   ; ?5@0F8O  A  109B><? 
 
                 B E Q       L B Y T E 
 
                 S W A B     R 0 
 
 
 
 
 
 
 
 
 
                                                           -   1 4   - 
 
 
 
 
 
 ; "@5<  ?>A;54=8<  :><0=40<  =52>7<>6=>  ?>4>1@0BL  @07C<=>5  >1JOA=5- 
 
 ; =85.   5@>OB=>,   MB>  =5C40G=0O  ?>?KB:0  :>@@5:B=>  >1@01>B0BL  A;C- 
 
 ; G09  70?8A8    2    AB5=4  B>;L:>  AB0@H53>  109B0.   "0:  8;8  8=0G5,   ?@8
 
 ; ?>?KB:5  70?8A8    2    AB5=4  B>;L:>  <;04H53>  109B0  2<5AB>  B0:>2>3>
 
 ; 1C45B  70?8A0=  <CA>@. 
 
 
 
 ; L B Y T E = = 1 6 2 6 4 2 
 
 L B Y T E :     C A L L     S T E N D                   ; @>872545<  >1<5=  A>  AB5=4><
 
                 B R         E N D 2                     ;       8  7025@H8<  ?>4?@>3@0<<C
 
 ; N O T D 3 = = 1 6 2 6 5 0 
 
                 B I T       # 1 0 0 0 0 , 4 2 ( S P )   ; 7 7 4   0I8B0  ( " )" )   2:;NG5=0? 
 
                 B E Q       N O S H D                   ; 5B  -   1;03>?>;CG=>  ?@>4>;605<. . . 
 
                 B I T       # 4 0 0 0 , 4 2 ( S P )     ; 7 7 4   0?@>A  2=CB@5==89? 
 
                 B E Q       N O S H D                   ; 0  -   ?;520BL  =0  70I8BC. . . 
 
                 C A L L     S H D T S T                 ; @>25@8<,   <>6=>  ;8  BC40  70?8AK20BL
 
 ; N O S H D = = 1 6 2 6 7 4 
 
 N O S H D :     T S T       R 3                         ;   <K  2>>1I5  70?8AK20BL  ?@8H;8? 
 
                 B P L       R E A D 1                   ; 5B  -   ?>945<  G8B0BL
 
                 B I T       # 1 , R 3                   ; ?5@0F8O  A  109B><? 
 
                 B N E       S E L B T E                 ; 0  -   ?>945<  70?8AK20BL  109B
 
                 M O V       R 0 , ( R 1 )               ; 5B  -   70?8H5<  A;>2>
 
                 B R         E N D 2                     ;       8  70:>=G8<  =0  MB><
 
 ; S E L B T E = = 1 6 2 7 1 2 
 
 S E L B T E :   M O V B     R 0 , ( R 1 )               ; 0?8AK205<  109B. . . 
 
 ; E N D 2 = = 1 6 2 7 1 4 
 
 E N D 2 :       M O V       1 0 ( S P ) , R 3           ; 7 4 2   >AAB0=>28<  R 3 
 
                 R E T                                   ;       8  2K945<  87  ?/ ?
 
 ; R E C W R D = = 1 6 2 7 2 2 
 
 R E A D 2 :     M O V       ( R 1 ) , R 0               ; @>G8B05<  7=0G5=85
 
                 B R         E N D 2                     ; >25@H8<  45;>. . . 
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   0?8AL  109B0  87  R 5   ?>  ( 4@5AC)   * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W R B T R 5 = = 1 6 2 7 2 6 
 
 W R B T R 5 :   B I S       # 1 0 4 0 0 1 , 4 0 ( S P )   ; 7 7 4   #AB0=>28<  D;038
 
                 M O V       3 6 ( S P ) , R 1           ; 7 7 2   >43>B>28<  ( 4@5A) 
 
                 B R         C O N T 6                   ; 0?8H5<. . . 
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   'B5=85  109B0  A  ( R 1 )   2  R 0   * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R D B _ R 0 = = 1 6 2 7 4 2 
 
 R D B _ R 0 :   B I S       # 1 , 4 0 ( S P )           ; 7 7 4   #AB0=>28<  D;03  109B0
 
                 B R         R D _ R 0                   ; @8ABC?8<  :  GB5=8N
 
 
 
 ; !B>8;>  A:><?>=>20BL  MBC  ?/ ?  A  R D _ R 0 ,   M:>=><O  B R . 
 
 
 
 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                     *   0?8AL  A;>20  R 5   2  ( R 1 )   * 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W R T _ R 5 = = 1 6 2 7 5 2 
 
 W R T _ R 5 :   B I S       # 1 0 4 0 0 0 , 4 0 ( S P )   ; 7 7 4   #AB0=>28<  D;038
 
 
 
                                                           -   1 5   - 
 
 
 
 
 
 ; C O N T 6 = = 1 6 2 7 6 0 
 
 C O N T 6 :     M O V       R 5 , R 0                   ; =0G5=85  -   :  70?8A8  B>2AL! 
 
                 C A L L     E X S T 1                   ; 0?8H5<  53>  BC40,   :C40  ?@>A8;8
 
                 R E T                                   ; >72@0B8<AO  87  ?/ ?
 
 
 
 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                     *   5G0BL  7=0G5=8O  A  ( R 1 )   * 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P R V A L = = 1 6 2 7 7 0 
 
 P R V A L :     B I C       # 1 0 4 0 0 0 , 4 0 ( S P )   ; 7 7 4   #AB0=>28<  D;038
 
                 C A L L     E X S T 1                   ; @>G8B05<  7=0G5=85, 
 
                 M O V       R 0 , R 4                   ;       ?5@5=5A5<  2  R 4 
 
                 C A L L     O C T A L                   ;       8  >BBC40  @0A?5G0B05<
 
                 R E T 
 
 
 
 ; !B>8;>  @07<5AB8BL  MBC  ?/ ?  =5?>A@54AB25==>    ?5@54  <5B:>9  O C T A L , 
 
 ; B5<  A0<K<  87102;OOAL  >B  42CE  ?>A;54=8E  :><0=4. 
 
 
 
 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                     *   0?8AL  A;>20  R 0   2  ( R 1 )   * 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W R T _ R 0 = = 1 6 3 0 1 2 
 
 W R T _ R 0 :   B I S       # 1 0 4 0 0 0 , 4 0 ( S P )   ; 7 7 4   #AB0=>28<  D;038
 
                 C A L L     E X S T 1                   ; 0?8H5<  7=0G5=85
 
                 R E T                                   ; ">  65  A0<>5. . .   ( ?5@54  E X S T 1 ) 
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   'B5=85  A;>20  A  ( R 1 )   2  R 0   * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R D _ R 0 = = 1 6 3 0 2 6 
 
 R D _ R 0 :     B I C       # 1 0 4 0 0 0 , 4 0 ( S P )   ; 7 7 4   #AB0=>28BL  =5>1E>48<K5  @568<K
 
                 C A L L     E X S T 1                   ; @>G8B05<  7=0G5=85
 
                 R E T                                   ; CGH5  1K  B R   E X S T 1 . . . 
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   #=8D8F8@>20==K9  >1<5=  A>  AB5=4></ ?0<OBLN  -   2   * 
 
                 *   A?>;L7C5BAO  ?>4?@>3@0<<0<8  B5AB>2;   ?@>25@:0  * 
 
                 *   =0  " )"   =5  ?@>872>48BAO                                              * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; E X S T 2 = = 1 6 3 0 4 2 
 
 E X S T 2 :     M O V       R 3 , 1 2 ( S P )           ; 7 4 2   !>E@0=8<  R 3 
 
                 M O V       4 4 ( S P ) , R 3           ; $;038  A:>?8@C5<  2  @538AB@
 
                 B I T       # 2 , R 3                   ;  568<  # "  2:;NG5=? 
 
                 B E Q       N O T D 4                   ; 0  - 
 
                 C A L L     T S T E N D                 ;       ?5@5;>68<  @01>BC  =0  AB5=4
 
                 B R         E N D 3                     ;       8  =0  MB><  70:>=G8<
 
 ; N O T D 4 = = 1 6 3 0 6 6 
 
 N O T D 4 :     T S T       R 3                         ; 04>  70?8A0BL? 
 
                 B P L       R E A D                     ; 5B  -   ?@>G8B05<
 
 
 
 
 
 
 
                                                           -   1 6   - 
 
 
 
 
 
                 B I T       # 1 , R 3                   ; ?5@0F8O  A  109B><? 
 
                 B N E       B Y T E 1                   ; 5B  - 
 
                 M O V       R 0 , ( R 1 )               ;       70?8H5<  A;>2>
 
                 B R         E N D 3                     ;       8  2K945<
 
 ; B Y T E 1 = = 1 6 3 1 0 4 
 
 B Y T E 1 :     M O V B     R 0 , ( R 1 )               ;   ?@>B82=><  A;CG05  70?8H5<  109B
 
 ; E N D 3 = = 1 6 3 1 0 6 
 
 E N D 3 :       M O V       1 2 ( S P ) , R 3           ; 7 4 2   >AAB0=>28<  R 3 
 
                 R E T                                   ;               8  7025@H8<  ?/ ?
 
 ; R E A D 2 = = 1 6 3 1 1 4 
 
 R E A D 2 :     M O V       ( R 1 ) , R 0               ; @>G8B05<  7=0G5=85
 
                 B R         E N D 3                     ;       8  2K945<
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   1<5=  A>  AB5=4><  157  ?5G0B8  703>;>2:0  * 
 
                       *   ( 8A?>;L7C5BAO    ?>4?@>3@0<<0<8  B5AB>2)   * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T S T E N D = = 1 6 3 1 2 0 
 
 T S T E N D :   M O V       R 2 , 1 2 ( S P )           ; 7 4 0   !>E@0=8<  R 2 
 
                 C A L L     N O P R 1                   ; K?>;=8<  @01>BK  A>  AB5=4><. . . 
 
                 M O V       1 2 ( S P ) , R 2           ; 7 4 0   >AAB0=>28<  R 2 
 
                 R E T                                   ;               8  25@=5<AO
 
 
 
 ; W R T _ T = = 1 6 3 1 3 6 
 
 W R T _ T :     B I S       # 1 0 0 0 0 0 , 4 2 ( S P )   ; 7 7 4   #AB0=>28<  D;03  70?8A8
 
 ; C O N T 7 = = 1 6 3 1 4 4 
 
 C O N T 7 :     C A L L     E X S T 2                   ; @>872545<  >1<5=  A>  AB5=4><
 
                 R E T 
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *                 #=8D8F8@>20==>5  GB5=85                * 
 
                       *   ( 8A?>;L7C5BAO  ?>4?@>3@0<<0<8  B5AB>2)   * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R E A D _ T = = 1 6 3 1 5 2 
 
 R E A D _ T :   B I C       # 1 0 0 0 0 0 , 4 2 ( S P )   ; 7 7 4   !1@>A8<  D;03  70?8A8
 
                 B R         C O N T 7                     ; >945<  @01>B0BL  A>  AB5=4><
 
 
 
 ; ?   2   ? 
 
                 B I S       # 2 , 3 6 ( S P )           ; 7 7 4   #AB0=>28<  D;03  @568<0  # "
 
                 M O V       # 4 3 , 1 4 ( S P )         ; 7 5 2   @83;0H5=85<  1C45B  " # " 
 
 ; C O N T 8 = = 1 6 3 1 7 6 
 
 C O N T 8 :     J M P       S T W O R K                 ; 5@5945<  :  ?@83;0H5=8N
 
 
 
 ; ?   2   ? 
 
                 B I C       # 2 , 3 6 ( S P )           ; 7 7 4   #AB0=>28<  D;03  @568<0  $ "!
 
                 M O V       # 4 4 , 1 4 ( S P )         ; 7 5 2   @83;0H5=85<  1C45B  " $ " 
 
                 B R         C O N T 8                   ; 5@5945<  :  ?@83;0H5=8N
 
 
 
 ; -B8<8  ?>4?@>3@0<<0<8  <>6=>  1K;>  A?>:>9=>    ?>65@B2>20BL,   2K?>;- 
 
 ; =OO  >1<5=  87  ?>4?@>3@0<<  B5AB>2  " =0  >1I8E  >A=>20=8OE" . 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   1 7   - 
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   K2>4  2>AL<5@8G=>3>  G8A;0  A  ?@>15;><  87  R 4   * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; 1A>;NB=>  1@54>20O  ?>4?@>3@0<<0.     254L  <>3;0  1K  1KBL    =5<=>3>
 
 ; :>@>G5  8  2  ?>;B>@0  @070  1KAB@55. . . 
 
 
 
 ; O C T A L = = 1 6 3 2 2 0 
 
 O C T A L :     M O V       # 6 , R 5                   ;   2A>L<5@8G=><  G8A;5  -   6   F8D@
 
                 C L R       R 0                         ; G8AB8<  ?>;5  45OB5;L=>AB8. . . 
 
 ; N X 1 B I T = = 1 6 3 2 2 6 
 
 N X 1 B I T :   R O L       R 4                         ; 48=  18B  87  R 4   -   G5@57  @07@O4  C   - 
 
                 R O L       R 0                         ;       -   2  R 0 
 
                 A D D       # 6 0 , R 0                 ; >;CG8<  :>4  A8<2>;0
 
                 E M T       1 6                         ;       8  =0?5G0B05<  MB>B  A8<2>;
 
                 D E C       R 5                         ; &8D@K  :>=G8;8AL? 
 
                 B E Q       E N D 4                     ; 0  -   ?5@5E>48<  =0  7025@H5=85
 
                 C L R       R 0 
 
                 R O L       R 4                         ; 20  18B0  87  R 4 
 
                 R O L       R 0                         ;                 ?5@5=>A8<
 
                 R O L       R 4                         ;                         G5@57  @07@O4  C 
 
                 R O L       R 0                         ;                                                       2  R 0 
 
                 B R         N X 1 B I T                 ; >B><  5I5  >48=  -   8  ?5G0BL
 
 ; E N D 4 = = 1 6 3 2 6 0 
 
 E N D 4 :       M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  7025@H0NI89  ?@>15;
 
                 R E T                                   ;       8  2K945<
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   K2>4  AB@>:8,   >:0=G820NI59AO  0 ,   A  ( R 4 )   * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; >G5<C  1K  =5  2>A?>;L7>20BLAO  AB0=40@B=K<  E M T   2 0 ? 
 
 
 
 ; P R I N T = = 1 6 3 2 7 0 
 
 P R I N T :     T S T B     ( R 4 )                     ; >=5F  AB@>:8? 
 
                 B E Q       E N D 5                     ; 0  -   2KE>48<. . . 
 
                 M O V B     ( R 4 ) + , R 0             ; 5B  -   2>7L<5<  >G5@54=>9  A8<2>;, 
 
                 E M T       1 6                         ;       =0?5G0B05<  53>
 
                 B R         P R I N T                   ;       8  B0:  4>  :>=F0
 
 ; E N D 5 = = 1 6 3 3 0 2 
 
 E N D 5 :       R E T 
 
 
 
 ; C  =5C65;8  1>;LH5  =8345  ?>1;87>AB8  R E T - 0  =5  =0H;>AL? ! 
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   K2>4  A>>1I5=8O  " "!"  < R 1 > .   . . ( R 2 ) . . "   * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T S T H E A = = 1 6 3 3 0 4 
 
 T S T H E A :   M O V B     # 1 2 , R 0                 ; !=0G0;0  ?5@52545<  AB@>:C
 
                 E M T       1 6                         ; ( >G5<C  >B45;L=>9  :><0=4>9, 
 
                                                         ;       0  =5  2  A>AB025  AB@>:8  T E S T ? ) 
 
                 M O V       # T E S T , R 4 
 
                 C A L L     P R I N T                   ; 0?5G0B5<  A>>1I5=85  " "!"  " 
 
                 M O V       R 1 , R 0 
 
                 E M T       1 6                         ;       8  A8<2>;  -   =><5@  B5AB0
 
 
 
                                                           -   1 8   - 
 
 
 
 
 
                 M O V       # 5 6 , R 0 
 
                 E M T       1 6                         ; 0  A5<  ?>AB028<  B>G:C
 
                 M O V       R 2 , R 4                   ; !B@>:C  -   =0720=85  B5AB0  - 
 
                 C A L L     P R I N T                   ;       =0?5G0B05<  B>65
 
                 R E T                                   ; >G5<C  =5  B R   P R I N T ? ? ? 
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   K2>4  A>>1I5=8O  " "!"  < R 1 >    (. "   * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E X I T = = 1 6 3 3 4 4 
 
 T E X I T :     M O V B     # 1 2 , R 0                 ; !=0G0;0  ?5@52545<  AB@>:C
 
                 E M T       1 6                         ;       ( C  ?>G5<C  >B45;L=>? ! ) 
 
                 M O V       # T E S T , R 4 
 
                 C A L L     P R I N T                   ; 0?5G0B5<  A>>1I5=85  " "!"  " , 
 
                 M O V       R 1 , R 0 
 
                 E M T       1 6                         ;       A8<2>;  -   =><5@  B5AB0
 
                 M O V       # E X I T S , R 4 
 
                 C A L L     P R I N T                   ;       8  A>>1I5=85  "  (. " 
 
                 B R         C O N T 9                   ; 5@5945<  :  ?@83;0H5=8N
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   K2>4  A>>1I5=8O  " (  . . ( R 2 ) . . "   * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; E R R M S G = = 1 6 3 4 0 0 
 
 E R R M S G :   M O V       # E R R O R , R 4 
 
                 C A L L     P R I N T                   ; 0?5G0B05<  A>>1I5=85  " (" , 
 
                 M O V       R 2 , R 4                   ;       0  B0:65  4>?>;=8B5;L=>5
 
                 C A L L     P R I N T                   ;       A>>1I5=85,   ?5@540==>5  87  B5AB0
 
 ; C O N T 9 = = 1 6 3 4 1 6 
 
 C O N T 9 :     J M P       S T W O R K                 ; 5@=5<AO  :  ?@83;0H5=8N
 
 
 
 ; >6=>  1K;>    1K    871028BLAO  >B  C A L L   P R I N T   2  ?>4?@>3@0<<5  T E X I T , 
 
 ; ?5@5=5AO  <5B:C  C O N T 9   =0  AB@>:C  2KH5. 
 
 
 
 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
           *                                                                                                       * 
 
           *     >4?@>3@0<<K  2K?>;=5=8O  :><0=4  @568<>2  $ "!,   # "    * 
 
           *                                                                                                       * 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
   
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " . "   -   70?8AL  109B0  ?>  ( 4@5AC)   A  02B>8=:@5<5=B><  * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T C H K = = 1 6 3 4 2 2 
 
 T C H K :       B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 1                 ; A;8  40  - 
 
                 C A L L     W R B T R 5                 ;       70?8H5<  109B  87  R 5   ?>  ( 4@5AC) 
 
 ; N O V A L 1 = = 1 6 3 4 3 6 
 
 N O V A L 1 :   A D D       # 1 , 3 4 ( S P )           ; 7 7 2   #25;8G8<  ( 4@5A) 
 
                                                         ; ( >G5<C  A D D ,   0  =5  I N C ? ! ) 
 
 ; C O N T 1 1 = = 1 6 3 4 4 4 
 
 C O N T 1 1 :   M O V       3 4 ( S P ) , R 1           ; 7 7 2   >  =>2><C  ( 4@5AC) 
 
                 B R         C O N T 1 0                 ;       ?@>G8B05<  109B  8  =0?5G0B05<  53>
 
 
 
                                                           -   1 9   - 
 
 
 
 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " : "   -   70?8AL  109B0  ?>  ( 4@5AC)   A  02B>45:@5<5=B><  * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; D W T C H = = 1 6 3 4 5 2 
 
 D W T C H :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 2                 ; A;8  40  - 
 
                 C A L L     W R B T R 5                 ;       70?8H5<  109B  87  R 5   ?>  ( 4@5AC) 
 
 ; N O V A L 2 = = 1 6 3 4 6 6 
 
 N O V A L 2 :   S U B       # 1 , 3 4 ( S P )           ; 7 7 2   #<5=LH8<  ( 4@5A) 
 
                                                         ; ( >G5<C  S U B ,   0  =5  D E C ? ! ) 
 
                 B R         C O N T 1 1                 ; @>4>;68<  >1@01>B:C
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   " "   -   70?8AL/ GB5=85  109B0  ?>  ( 4@5AC)   * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; B _ R U S = = 1 6 3 4 7 6 
 
 B _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       C O N T 1 0                 ; A;8  40  - 
 
                 C A L L     W R B T R 5                 ;       70?8H5<  109B  87  R 5   ?>  ( 4@5AC) 
 
 ; C O N T 1 2 = = 1 6 3 5 1 2 
 
 C O N T 1 2 :   B I C       # 1 , 3 6 ( S P )           ; 7 7 4   !1@>A8<  D;03  109B>2>9  >?5@0F88
 
                 J M P       M O N T S                   ; 5@5945<  :  ?@83;0H5=8N
 
 ; C O N T 1 0 = = 1 6 3 5 2 4 
 
 C O N T 1 0 :   C A L L     R D B _ R 0                 ; @>G8B05<  109B  ?>  ( 4@5AC) 
 
                 B I T       # 1 , R 1                   ; 09B  ?>  G5B=><C  04@5AC? 
 
                 B E Q       H B Y T E                   ; 0  -   2A5  =>@<0;L=>
 
 
 
 ; CGH5: 
 
 ; 
 
 ;               A S R       R 1 
 
 ;               B C C       H B Y T E 
 
 
 
                 M O V       # 1 0 , R 2                 ; =0G5  -   A428=5<  ?>;CG5==K9
 
 ; S O B 7 = = 1 6 3 5 4 2 
 
 S O B 7 :       A S R       R 0                         ;       ( AB0@H89)   109B  2  <;04H89
 
                 S O B       R 2 , S O B 7               ; ( >6=>  1K;>  ?@>AB>  S W A B   R 0 ) 
 
 ; H B Y T E = = 1 6 3 5 4 6 
 
 H B Y T E :     B I C       # 1 7 7 4 0 0 , R 0         ; 8H=85  18BK  >G8AB8<
 
                 M O V       R 0 , R 4 
 
                 C A L L     O C T A L                   ;  57C;LB0B  =0?5G0B05<. . . 
 
                 B R         C O N T 1 2                 ; 1@01>B:0  7025@H5=0! 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   " '"   -   @58=8F80;870F8O  A8AB5<K  B5AB>2  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; C H _ R U S = = 1 6 3 5 6 2 
 
 C H _ R U S :   J M P       S T W O R K                 ; 5@5E>48<  :  =0G0;C  @01>BK
 
 
 
 ;   =0  S T W O R K   A@07C  ?5@59B8  =5;L7O  1K;>? 
 
 
 
                 
 
                 
 
                 
 
 
 
 
 
                                                           -   2 0   - 
 
 
 
 
 
                                       * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                       *   " G "   -   70?CA:  ?@>3@0<<K  * 
 
                                       * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; G _ L A T = = 1 6 3 5 6 6 
 
 G _ L A T :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       C H _ R U S                 ; 5B  -   25@=5<AO  :  ?>4A:07:5
 
                 B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "? 
 
                 B N E       C H _ R U S                 ; 0  -   2  MB><  @568<5  70?CA:
 
                                                         ;       =52>7<>65=
 
                 M O V       # 1 7 , R 0                 ; @54.   >4  1 7   2  <>=8B>@5
 
                 E M T       1 6                         ;       83=>@8@C5BAO. . . 
 
                 M O V       # 3 4 0 , @ # 2 2           ; @>F5AA>@C  -   2KAH89  ?@8>@8B5B! 
 
 
 
 ;   @57C;LB0B5  ?@8  70?CA:5  =5:>B>@KE    ?@>3@0<<  87  $ "!  :;0280BC@0
 
 ; >:07K205BAO  1;>:8@>20==>9  -   MB8  ?@>3@0<<K  =5  <5=ONB    ?@8>@8B5B
 
 ; ?@>F5AA>@0,   8  ?@5@K20=85  >B  :;0280BC@K  >AB05BAO  70<0A:8@>20=>. 
 
 
 
                 M O V       R 5 , @ # 2 0               ; 2545==>5  G8A;>  -   2  25:B>@  ?>  I O T 
 
                 I O T                                   ; @8ABC?8BL  :  2K?>;=5=8N. . . 
 
 
 
 ; 5AL<0  >@838=0;L=K9  A?>A>1  70?CA:0.   !8;L=>  =0?><8=05B  C40;5=85
 
 ; 3;0=4  G5@57  704=89  ?@>E>4. . . 
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   " &"   -   F8:;8G5A:>5  GB5=85/ 70?8AL  ?>  ( 4@5AC)   * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; C _ R U S = = 1 6 3 6 3 0 
 
 C _ R U S :     J M P       C _ S U B                   ; 5@59B8  :  >1@01>B:5
 
 
 
 ; 40. . .   " ">;L:>  1;54=>;8FK9  <>65B  42064K  =0ABC?8BL  =0  >4=8  8  B5
 
 ; 65  3@01;8" . . . 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   " "   -   70?8AL/ GB5=85  A;>20  ?>  ( 4@5AC)   * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; I _ R U S = = 1 6 3 6 3 4 
 
 I _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 3                 ; A;8  40  - 
 
                 C A L L     W R T _ R 5                 ;       70?8H5<  A;>2>  87  R 5   ?>  ( 4@5AC) 
 
 ; C O N T 1 3 = = 1 6 3 6 5 0 
 
 C O N T 1 3 :   J M P       M O N T S                   ; 5@5945<  :  ?@83;0H5=8N
 
 ; N O V A L 3 = = 1 6 3 6 5 4 
 
 N O V A L 3 :   C A L L     P R V A L                   ; 0?5G0B05<  A;>2>  A  ( 4@5A0) 
 
                 B R         C O N T 1 3                 ; 1@01>B:0  7025@H5=0,   2KE>48<. . . 
 
 
 
 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " , "   -   70?8AL  A;>20  ?>  ( 4@5AC)   A  02B>8=:@5<5=B><  * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; Z P T = = 1 6 3 6 6 2 
 
 Z P T :         B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 4                 ; A;8  40  - 
 
                 C A L L     W R T _ R 5                 ;       70?8H5<  A;>2>  87  R 5   ?>  ( 4@5AC) 
 
 
 
                                                           -   2 1   - 
 
 
 
 
 
 ; N O V A L 4 = = 1 6 3 6 7 6 
 
 N O V A L 4 :   A D D       # 2 , 3 4 ( S P )           ; 7 7 2   #25;8G8<  ( 4@5A) 
 
 ; C O N T 1 4 = = 1 6 3 7 0 4 
 
 C O N T 1 4 :   M O V       3 4 ( S P ) , R 1           ; 7 7 2   0?5G0B05<  A;>2>
 
                 B R         N O V A L 3                 ;               A  =>2>3>  04@5A0
 
 
 
 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " - "   -   70?8AL  A;>20  ?>  ( 4@5AC)   A  02B>45:@5<5=B><  * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; M I N U S = = 1 6 3 7 1 2 
 
 M I N U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 5                 ; A;8  40  - 
 
                 C A L L     W R T _ R 5                 ;       70?8H5<  A;>2>  87  R 5   ?>  ( 4@5AC) 
 
 ; N O V A L 5 = = 1 6 3 7 2 6 
 
 N O V A L 5 :   S U B       # 2 , 3 4 ( S P )           ; 7 7 2   #<5=LH8<  ( 4@5A) 
 
                 B R         C O N T 1 4                 ; @8ABC?8<  :  2K2>4C  A;>20
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   " ! %<% %"   -   701>9  ?@54K4CI59  F8D@K  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; Z A B O Y = = 1 6 3 7 3 6 
 
 Z A B O Y :     T S T       4 0 ( S P )                 ; 7 7 6   !:>;L:>  F8D@  1K;>  22545=>? 
 
                 B N E       N O V A L 6                 ; 8  >4=>9  -   701820BL  =5G53>, 
 
                 J M P       S T W O R K                 ;       25@=5<AO  :  ?@83;0H5=8N! 
 
 ; N O V A L 6 = = 1 6 3 7 5 0 
 
 N O V A L 6 :   R O R       R 5                         ; 4=C  2>AL<5@8G=CN  F8D@C
 
                 R O R       R 5                         ;       ( B@8  42>8G=KE  @07@O40) 
 
                 R O R       R 5                         ;                                         -   4>;>9! 
 
                 B I C       # 1 6 0 0 0 0 , R 5         ; G8AB8<  3   AB0@H8E  18B0  >B  <CA>@0
 
                 D E C       4 0 ( S P )                 ; 7 7 6   4=>9  22545==>9  F8D@>9  <5=LH5
 
                 J M P       N X T K E Y                 ; C45<  640BL  >G5@54=CN  :;028HC
 
 
 
 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                   *   " )"   -   >B:;NG5=85  70I8BK  A8AB5<=>9  >1;0AB8  * 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S C H _ R U = = 1 6 3 7 7 2 
 
 S C H _ R U :   B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B N E       N O T D 5                   ; 0  -   2  # "  70I8B0  83=>@8@C5BAO
 
                 B I C       # 1 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   B:;NG8<  @568<  < )> 
 
 ; N O T D 5 = = 1 6 4 0 1 0 
 
 N O T D 5 :     J M P       S T W O R K                 ; 5@=5<O  :  ?@83;0H5=8N
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   " "   -   D8:A0F8O/ :>=B@>;L  ( 4@5A0)   * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A _ R U S = = 1 6 4 0 1 4 
 
 A _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 7                 ; A;8  40  - 
 
                 M O V       R 5 , 3 4 ( S P )           ; 7 7 2     A45;05<  53>  =>2K<  ( 4@5A><) 
 
 ; C O N T 1 5 = = 1 6 4 0 3 0 
 
 C O N T 1 5 :   J M P       M O N T S                   ; 5@=5<AO  :  ?@83;0H5=8N
 
 
 
                                                           -   2 2   - 
 
 
 
 
 
 ; N O V A L 7 = = 1 6 4 0 3 4 
 
 N O V A L 7 :   M O V       # 7 5 , R 0                 ; * 
 
                 E M T       1 6                         ; *   0?5G0B5<  " = " 
 
                 M O V       3 4 ( S P ) , R 4           ; 7 7 2   >7L<5<  7=0G5=85  ( 4@5A0) 
 
                 C A L L     O C T A L                   ; * *           8  =0?5G0B05<  53>
 
                 J M P       S T W O R K                 ; * *     ?@83;0H5=8N. . . 
 
 
 
 ; 2574>G:0<8    ?><5G5=K    :>=AB@C:F88,   ?>2B>@ONI85AO    2    ?@545;0E
 
 ; " ?@O<>9  2848<>AB8"   B R . 
 
 
 
 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                   *   " %"   -   2KG8A;5=85  :>=B@>;L=>9  AC<<K  <0AA820  * 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; H _ R U S = = 1 6 4 0 5 6 
 
 H _ R U S :     M O V       # 7 5 , R 0                 ; * 
 
                 E M T       1 6                         ; *   0?5G0B05<  " = " 
 
                 M O V       3 4 ( S P ) , R 1           ; 7 7 2   >AB0=5<  ( 4@5A) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6         8  ( ;8=C) 
 
                 A S R       R 2                         ; ( ;8=C)   ?5@52545<  2  A;>20
 
                 T S T       R 2                         ; ( ;8=0)   =C;520O? 
 
                 B E Q       N O V A L 9                 ; 0  -   45;0BL  =5G53>,   2KE>48<. . . 
 
                 C L R       R 4                         ; 1=C;8<  !
 
 ; S O B 8 = = 1 6 4 1 0 4 
 
 S O B 8 :       C A L L     R D _ R 0                   ; @>G8B05<  2  R 0   A;>2>  ( R 1 ) 
 
                 A D D       R 0 , R 4                   ;       8  ?@81028<  53>  :  !, 
 
                 A D C       R 4                         ;       =5  701K20O  ?@>  ?5@5=>A
 
                 A D D       # 2 , R 1                   ; !;54CNI89  04@5A. . . 
 
                 S O B       R 2 , S O B 8               ;       . . . 8  B0:  4>  :>=F0  <0AA820
 
                 C A L L     O C T A L                   ; * *   K2545<  !
 
                 J M P       S T W O R K                 ; * *         8  ?5@5945<  :  ?@83;0H5=8N
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   " "   -   D8:A0F8O/ :>=B@>;L  ( ;8=K)   * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; D _ R U S = = 1 6 4 1 3 2 
 
 D _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 8                 ; A;8  40  - 
 
                 M O V       R 5 , 3 0 ( S P )           ; 7 7 2     70?><=8<  53>  :0:  ( ;8=C) 
 
                 B R         C O N T 1 5                 ;   ?@83;0H5=8N
 
 ; N O V A L 8 = = 1 6 4 1 5 0 
 
 N O V A L 8 :   M O V       # 7 5 , R 0                 ; * 
 
                 E M T       1 6                         ; *   0?5G0B05<  " = " 
 
                 M O V       3 0 ( S P ) , R 4           ; 7 7 2   7OBL  7=0G5=85  ( ;8=K) 
 
                 C A L L     O C T A L                   ; * *           8  =0?5G0B05<  53>
 
                 J M P       S T W O R K                 ; * *   5@5945<  :  ?@83;0H5=8N
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   "  "   -   70?>;=5=85  A;>2><  >B  ( 4@5A0)   =0  ( ;8=5)   * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R _ R U S = = 1 6 4 1 7 2 
 
 R _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 9                 ; A;8  40  - 
 
 
 
 
 
                                                           -   2 3   - 
 
 
 
 
 
                 M O V       3 4 ( S P ) , R 1           ; 7 7 2   2>7L<5<  ( 4@5A) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6   8  ( ;8=C) , 
 
                 A S R       R 2                         ;         :>B>@CN  ?5@52545<  2  A;>20
 
                 T S T       R 2                         ; ;8=0  =C;520O? 
 
                 B E Q       N O V A L 9                 ; 0  -   45;0BL  =5G53>,   2KE>48<
 
                 M O V       R 5 , R 4                   ; !>E@0=8<  22545==>5  G8A;>
 
 ; S O B 9 = = 1 6 4 2 2 2 
 
 S O B 9 :       M O V       R 4 , R 0                   ; >B><  MB>  G8A;>
 
                 C A L L     W R T _ R 0                 ;       70?8H5<  ?>  04@5AC  ( R 1 ) 
 
                 A D D       # 2 , R 1                   ; 5@5945<  :  A;54CNI5<C  04@5AC, 
 
                 S O B       R 2 , S O B 9               ;       8  B0:  :>=F0  >1;0AB8
 
 ; N O V A L 9 = = 1 6 4 2 3 6 
 
 N O V A L 9 :   J M P       S T W O R K                 ; * *     ?@83;0H5=8N
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   " !"   -   A@02=5=85  <0AA820  A  ( 4@5A0)   =0  ( ;8=5)   * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S _ R U S = = 1 6 4 2 4 2 
 
 S _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N O V A L 9                 ; 5B  -   25@=5<AO  :  ?@83;0H5=8N
 
                 M O V       R 5 , R 1                   ; 0G0;L=K9  04@5A  " MB0;>=0" 
 
                 M O V       3 4 ( S P ) , R 3           ; 7 7 2   >7L<5<  ( 4@5A) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6         8  ( ;8=C)   2  109B0E, 
 
                 A S R       R 2                         ;       :>B>@CN  ?5@52545<  2  A;>20
 
                 T S T       R 2                         ; ;8=0  =C;520O? 
 
                 B E Q       N O V A L 9                 ; 0  -   45;0BL  =5G53>,   2KE>48<
 
 ; S O B 1 0 = = 1 6 4 2 7 2 
 
 S O B 1 0 :     C A L L     R D _ R 0                   ; @>G8B05<  A;>2>  ( R 1 )   2  R 0 
 
                 A D D       # 2 , R 1                   ; 5@5945<  :  A;54CNI5<C  04@5AC
 
                                                         ; ( 7@O  ?>B>@>?8;8AL  -   A<.   40;LH5. . . ) 
 
                 C M P       R 0 , ( R 3 ) +             ; !@02=8<  ?@>G8B0==>5  A  " :>?859" 
 
 
 
 ; 5  A>2A5<  ?>=OB5=  A<KA;  B0:>3>  A@02=5=8O  ?@8  @01>B5    A>    AB5=- 
 
 ; 4><.   B>@>5  A;>2>  B>65  A;54>20;>    1K    AG8BK20BL  G5@57  ?>4?@>3- 
 
 ; @0<<C  R D _ R 0 . 
 
 
 
                 B N E       D I F F E R                 ; !;>20  >B;8G0NBAO? 
 
 ; N X T T S T = = 1 6 4 3 0 2 
 
 N X T T S T :   S O B       R 2 , S O B 1 0             ; 5B  -   ?@>4>;68<  A@02=5=85
 
                 M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; 5G0B05<  ?@>15;. . . 
 
                 J M P       S T W O R K                 ; * *   A5,   845<  :  ?@83;0H5=8N
 
 ; D I F F E R = = 1 6 4 3 2 2 
 
 D I F F E R :   M O V       R 2 , 6 ( S P )             ; 7 4 4   !>E@0=8<
 
                 M O V       R 0 , 2 ( S P )             ; 7 4 0         @538AB@K
 
                 M O V       R 3 , 4 ( S P )             ; 7 4 2         ( >@838=0;L=>- A! ) 
 
                 S U B       # 2 , R 1                   ; 4@5A  =5A>2?045=8O  -   ?@54K4CI89, 
 
                 S U B       # 2 , R 3                   ;       B0:  GB>  2KG8A;8<  53>
 
                 M O V       R 3 , R 5                   ; -B>B  04@5A  8
 
                 C A L L     P R I N A D                 ;       40==K5  A  =53>  =0?5G0B05<  87  ?/ ?
 
                 M O V       R 1 , R 4                   ; B>@>9  04@5A
 
                 C A L L     O C T A L                   ;       =0?5G0B05<  B>65,   =>  C65  A0<8. . . 
 
                 M O V       # 7 2 , R 0 
 
                 E M T       1 6                         ; 2>5B>G85  -   @0745;8B5;L
 
                 M O V       2 ( S P ) , R 4             ; 7 4 0   !0<>5  2@5<O  2A?><=8BL
 
                 C A L L     O C T A L                   ;       8  2K25AB8  2B>@>5  7=0G5=85
 
                 A D D       # 2 , R 1                   ; 4@5A  =04>  2>AAB0=>28BL
 
 
 
                                                           -   2 4   - 
 
 
 
 
 
                 M O V       6 ( S P ) , R 2             ; 7 4 4   5@=5<  A>E@0=5==K5  7=0G5=8O
 
                 M O V       4 ( S P ) , R 3             ; 7 4 2         >1@0B=>  2  @538AB@K
 
                 B R         N X T T S T                 ; "5?5@L  <>6=>  A@02=820BL  40;LH5
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   " ("   -   2:;NG5=85  :>=B@>;O  >?5@0F89  A>  AB5=4><  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S H _ R U S = = 1 6 4 4 1 6 
 
 S H _ R U S :   B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "? 
 
                 B E Q       N O T D 4                   ; 5B  # "  -   =5B  8  AB5=40. . .   
 
                 B I S       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   #AB0=>28<  D;03  :>=B@>;O
 
 ; N O T D 4 = = 1 6 4 4 3 4                 
 
 N O T D 4 :     J M P       S T W O R K                 ; * *   >72@0I05<AO  :  ?@83;0H5=8N
 
 
 
 
 
 ; ?   3   ? 
 
 ; P R I N A D = = 1 6 4 4 4 0 
 
 P R I N A D :   M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52>48<  AB@>:C
 
                 M O V       R 5 , R 4                   ; >43>B>28<  04@5A  :  ?5G0B8
 
                 M O V       R 5 , R 3                   ;       8  70>4=>  A>E@0=8<  53>
 
                 C A L L     O C T A L                   ; 0?5G0B05<  04@5A
 
                 M O V       # 7 2 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  @0745;8B5;L  -   " : " 
 
                 M O V       ( R 3 ) , R 4               ; >7L<5<  A;>2>  A  MB>3>  04@5A0
 
                 C A L L     O C T A L                   ;       8  =0?5G0B05<  B>65
 
                 M O V       # 4 0 , R 0 
 
                 E M T       1 6 
 
                 M O V       # 4 0 , R 0                 ; 5G0B05<  420  ?@>15;0
 
                 E M T       1 6                         ;       4;O  @0745;5=8O  :>;>=>:
 
                 R E T                                   ; 5@=5<AO  8  4>25@H8<  2K2>4
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   " "   -   2K2>4  40<?0  ?0<OB8  A  ( 4@5A0)   * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; L _ R U S = = 1 6 4 5 1 0 
 
 L _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B E Q       N V A L 1 0                 ; 5B  -   ?5G0B0BL  =5G53>,   =0  2KE>4. . . 
 
                 M O V       3 4 ( S P ) , R 1           ; 7 7 2   >7L<5<  ( 4@5A) 
 
                 M O V       R 5 , R 3                   ; 2545==>5  G8A;>  ( 4;8=C  40<?0) 
 
                 A S R       R 3                         ;       ?5@52545<  2  A;>20
 
                 T S T       R 3                         ; ;8=0  =C;520O? 
 
                 B E Q       N O V A L 9                 ; 0  -   B>65  =5G53>  ?5G0B0BL. . . 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
 ; C O N T 1 6 = = 1 6 4 5 4 2 
 
 C O N T 1 6 :   M O V       # 1 0 , R 2                 ; 5AA<KA;5==0O  :><0=40  -   A<.   40;55
 
 ; S O B 1 1 = = 1 6 4 5 4 6 
 
 S O B 1 1 :     C A L L     P R V A L                   ;  0A?5G0B05<  7=0G5=85  A  ( R 1 ) 
 
                 D E C       R 3                         ; #<5=LH8<  >AB02HCNAO  4;8=C, 
 
                 B E Q       E N D 6                     ;       5A;8  4>C<5=LH0;8AL  4>  0   -   2KE>4
 
                 A D D       # 2 , R 1                   ; #25;8G8<  04@5A
 
                 M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ; '8A;0  @0745;ONBAO  ?@>15;0<8. . . 
 
 
 
                                                           -   2 5   - 
 
 
 
 
 
                 S O B       R 2 , S O B 1 1             ; 57028A8<>  >B  7=0G5=8O  R 2 ,   <K    2A5
 
                 B R         C O N T 1 6                 ; @02=>  >:065<AO  =0  <5B:5  S O B 1 1 
 
                                                         ; ( =5  AG8B0O  =5=C6=>9  :><0=4K  M O V ) 
 
 ; E N D 6 = = 1 6 4 5 7 4 
 
 E N D 6 :       A D D       # 2 , R 1                   ; 4@5A  ?5@2>9  OG59:8  70  <0AA82><  - 
 
                 M O V       R 1 , 3 4 ( S P )           ; 7 7 2       MB>  1C45B  =>2K9  ( 4@5A) 
 
 ; N V A L 1 0 = = 1 6 4 6 0 4 
 
 N V A L 1 0 :   J M P       S T W O R K                 ; * *   >72@0I05<AO  :  ?@83;0H5=8N
 
 
 
 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " "   -   :>?8@>20=85  <0AA820  A  ( 4@5A0)   =0  ( ;8=5)   * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P _ R U S = = 1 6 4 6 1 0 
 
 P _ R U S :     B I T       # 1 0 , 3 6 ( S P )         ; 7 7 4   K;>  22545=>  G8A;>? 
 
                 B N E       C O N T 1 7                 ; A;8  =5B  - 
 
                 J M P       S T W O R K                 ; * *       25@=5<AO  :  ?@83;0H5=8N
 
 ; C O N T 1 7 = = 1 6 4 6 2 4 
 
 C O N T 1 7 :   M O V       R 5 , R 1                   ; 0G0;L=K9  04@5A  :>?88  -   2  R 1 
 
                 M O V       3 4 ( S P ) , R 3           ; 7 7 2   >7L<5<  ( 4@5A) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6         8  ( ;8=C) 
 
                 A S R       R 2                         ; K@078<  4;8=C  2  A;>20E
 
                 T S T       R 2                         ; ;8=0  =C;520O? 
 
                 B E Q       E N D 7                     ; 0  -   ?5@5AK;0BL  =5G53>,   2KE>48<
 
 ; C O N T 1 8 = = 1 6 4 6 4 4 
 
 C O N T 1 8 :   M O V       ( R 3 ) + , R 0             ; >7L<5<  87  #  >G5@54=>5  A;>2>
 
                 C A L L     W R T _ R 0                 ;       8  70?8H5<  53>  ?>  04@5AC  ( R 1 ) 
 
 
 
 ; @8  @01>B5  A>  AB5=4><  ?@>8AE>48B  :>?8@>20=85  <0AA820  87  >A=>2- 
 
 ; =>3>  #  2  #  :>=B@>;8@C5<>3>  . 
 
 
 
                 A D D       # 2 , R 1                   ; !;54CNI89  04@5A  3>B>2  :  ?@85<C! 
 
                 S O B       R 2 , C O N T 1 8           ; >2B>@O5<  4>  >:>=G0=8O  <0AA820
 
 ; E N D 7 = = 1 6 4 6 6 0 
 
 E N D 7 :       J M P       S T W O R K                 ; * *   >B>2>  -   =0704,   :  ?@83;0H5=8N!   
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   " "   -   7025@H5=85  @01>BK  A  !"  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; K _ E X I T = = 1 6 4 6 6 4 
 
 K _ E X I T :   R E S E T                               ; A5  65;57>  -   2  8AE>4=>5  A>AB>O=85! 
 
                 J M P       @ # 1 0 0 0 0 0             ; #E>48<  =0  ?5@570?CA:
 
 
 
 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
             *   " ."   -   2:;NG5=85  ?>;L7>20B5;LA:>9  B01;8FK  :><0=4  * 
 
             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; Y U _ R U S = = 1 6 4 6 7 2 
 
 Y U _ R U S :   B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B N E       T D 1                       ; 0  -   :><0=4K  <5=OBL  =5;L7O. . . 
 
                 B I S       # 2 0 , 3 6 ( S P )         ; #AB0=>28<  A>>B25BAB2CNI89  D;03
 
                 J M P       A L T T A B                 ;       8  ?>945<  640BL  =060B8O  :;028H8
 
 ; T D 1 = = 1 6 4 7 1 4 
 
 T D 1 :         J M P       S T W O R K                 ; * *   5@=5<AO  :  ?@83;0H5=8N
 
 
 
 
 
                                                           -   2 6   - 
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   " "   -   2:;NG5=85/ >B:;NG5=85  :>=B@>;O  R P L Y   ( !)   * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; O _ R U S = = 1 6 4 7 2 0 
 
 O _ R U S :     B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B E Q       T D 1                       ; 5B  -   AB5=40  =5B,   2K:;NG0BL  =5G53>
 
                 M O V       # 4 0 0 0 0 , R 3           ; >7L<5<  <0A:C  D;030  :>=B@>;O  !
 
                 X O R       R 3 , 3 6 ( S P )           ; 7 7 4       8  ?@>8=25@B8@C5<  MB>B  D;03
 
                 B I T       R 3 , 3 6 ( S P )           ; 7 7 4   'B>  2  @57C;LB0B5  ?>;CG8;>AL? 
 
                 B E Q       S I P _ O N                 ; A;8  0   -   :>=B@>;L  5ABL
 
                 M O V       # S I P T X T , R 2         ; A;8  1   -   :>=B@>;O  =5B,   >  G5<
 
                 C A L L     T X T O U T                 ;       8  A>>1I8<  2  A;C651=>9  AB@>:5
 
 ; C O N T 1 9 = = 1 6 4 7 5 6 
 
 C O N T 1 9 :   J M P       S T W O R K                 ; * *   5@=5<AO  :  ?@83;0H5=8N
 
 ; S I P _ O N = = 1 6 4 7 6 2 
 
 S I P _ O N :   C L R       R 0 
 
                 E M T       2 2                         ; G8AB8<  A;C651=CN  AB@>:C
 
                 B R         C O N T 1 9 
 
 
 
 ; ?   3   ? 
 
 ; T X T O U T = = 1 6 4 7 7 0 
 
 T X T O U T :   M O V       # 7 , R 1                   ; ;8=0  A>>1I5=8O  -   7   ( + 1 )   A8<2>;>2
 
 ; S O B 1 2 = = 1 6 4 7 7 4 
 
                 M O V B     ( R 2 ) + , R 0             ; >7L<5<  >G5@54=>9  A8<2>;  8
 
                 E M T       2 2                         ;       2K2545<  53>  2  A;C651=>9  AB@>:5, 
 
                 S O B       R 1 , S O B 1 2             ;       ?@8G5<  704><  =0?5@54. . . 
 
                 M O V B     ( R 2 ) , R 0               ; >A;54=89  ( B. 5.   ?5@2K9)   A8<2>;
 
                 E M T       2 2                         ;       2K2545<  >B45;L=>
 
                 R E T                                   ; >725@=5<AO  BC40,   >B:C40  720;8. . . 
 
 
 
 ; "0:  8  E>G5BAO  A:070BL:   " !   AL5  -   B>=:89  872@0I5=5F! . . " 
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   " "   -   8=8F80;870F8O  AB5=40  !  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; Z _ R U S = = 1 6 5 0 1 0 
 
 Z _ R U S :     M O V       # 1 7 7 6 7 0 , R 4         ; 0  AB5=45: 
 
                 C L R       ( R 4 ) +                   ;       >G8AB8<  H8=C  40==KE
 
                 C L R       ( R 4 )                     ;       8  H8=C  C?@02;5=8O
 
                 B R         T D 1                       ; -B>3>  2@>45  1K  4>AB0B>G=>
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   " "   -   >?5@0F88  A  <03=8B>D>=><  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; M _ R U S = = 1 6 5 0 2 2 
 
 M _ R U S :     B I T       # 2 , 3 6 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B E Q       N O T D 7                   ; A;8  40  - 
 
                 J M P       S T W O R K                 ; * *       B>  =8:0:8E  <03=8B>D>=>2! ! ! 
 
 ; N O T D 7 = = 1 6 5 0 3 6 
 
 N O T D 7 :     E M T       6                           ; >;CG8<  2B>@>9  A8<2>;  :><0=4K
 
                 E M T       1 6                         ;       8  ME><  >B@078<  53>  =0  M:@0=5
 
                 M O V       # S T A B M , R 3           ; >8I5<  53>  2  MB>9  B01;8F5  - 
 
                 C L R       R 4                         ;       =0G=5<  A  55  =C;52>3>  A8<2>;0
 
 
 
 
 
                                                           -   2 7   - 
 
 
 
 
 
 ; N X K E Y 1 = = 1 6 5 0 5 0 
 
 N X K E Y 1 :   C M P B     R 0 , ( R 3 ) +             ; !8<2>;  A>2?0;  A  B01;8G=K<? 
 
                 B E Q       M A T C H                   ; 0  -   2K?>;=8<  B@51C5<CN  :><0=4C
 
                 T S B       ( R 3 )                     ; "01;8F0  :>=G8;0AL? 
 
                 B E Q       T D 1                       ; 0  -   :><0=40  =58725AB=0,   2KE>48<
 
                 I N C       R 4                         ;  0AA<>B@8<  A;54CNI89  A8<2>;
 
                 B R         N X K E Y 1                 ; K?>;=8<  ?@>25@:8  4;O  =53>. . . 
 
 ; M A T C H = = 1 6 5 0 6 4 
 
 M A T C H :     A S L       R 4                         ; @52@0B8<  =><5@  A8<2>;0  2  A<5I5=85
 
                 M O V       # A T A B M , R 3           ;       >B  =0G0;0  B01;8FK  04@5A>2, 
 
                 A D D       R 3 , R 4                   ;       0  ?>B><  8  2  01A>;NB=K9  04@5A
 
                 M O V       ( R 4 ) , R 4               ; 72;5:05<  04@5A  =C6=>3>  1;>:0
 
                 J M P       ( R 4 )                     ;       8  2K?>;=O5<  53>
 
 
 
 ; >A;54=85  G5BK@5  :><0=4K  <>6=>  70<5=8BL  >4=>9:   J M P   @ A T A B M ( R 4 )   
 
 
 
 ; M S = = 1 6 5 1 0 0 
 
 M S :           C A L L     T R _ O F F                 ; " !" :   2K:;NG05<  42830B5;L  
 
 ; C O N T 2 0 = = 1 6 5 1 0 4 
 
 C O N T 2 0 :   J M P       S T W O R K                 ; >72@0I05<AO  :  ?@83;0H5=8N
 
 
 
 ; M P = = 1 6 5 1 1 0 
 
 M P :           C A L L     T R _ O N                   ; " " :   =0?@>B82,   2:;NG8<  42830B5;L  
 
                 B R         C O N T 2 0                 ; 0  MB><  2A5. . . 
 
 
 
 ; M F = = 1 6 5 1 1 6 
 
 M F :           C A L L     T R _ O F F                 ; " $" :   A=0G0;0  >B:;NG8<  42830B5;L
 
                 M O V       # P R E S S P , R 4         ; >?@>A8<  ?>;L7>20B5;O
 
                 C A L L     P R I N T                   ;       =060BL  :;028HC  " #!" 
 
                 M O V       # 4 , ( R 2 ) +             ; ><0=40:   D8:B82=>5  GB5=85, 
 
                 C L R       ( R 2 ) +                   ;       04@5A
 
                 C L R       ( R 2 ) +                   ;       8  4;8=C  83=>@8@C5<
 
                 C A L L     E N T N A M                 ; CABL  ?>;L7>20B5;L  22545B  8<O. . . 
 
                 M O V       # 6 5 4 3 , 6 ( S P )       ; 7 4 4   $;03:   D09;>2  ?>:0  =5  =0E>48;8
 
                 J M P       W O R K T R                 ; 0G=5<  @01>BC  A  <03=8B>D>=><
 
 
 
 ; E N T N A M = = 1 6 5 1 6 0 
 
 E N T N A M :   M O V       # N A M E , R 4             ; 0?5G0B5<  AB@>G:C
 
                 C A L L     P R I N T                   ;       " /= " 
 
                 M O V       # 2 0 , R 3                 ;   8<5=8  -   2 0   ( 1 6 4)   A8<2>;>2
 
 ; N X S Y M 1 = = 1 6 5 1 7 4 
 
 N X S Y M 1 :   E M T       6                           ; 2545<  A8<2>;
 
                 E M T       1 6                         ; 0?5G0B05<  ME>
 
                 C M P B     # 1 2 , R 0                 ; 060B  ? 
 
                 B E Q       E N T E R 1                 ; 0  -   7025@H8<  22>4  8<5=8
 
                 C M P B     # 3 0 , R 0                 ; >65B  1KBL,   701>9? 
 
                 B N E       N O B S 1                   ; 5B  -   8  =5  =04>. . . 
 
                 C M P       # 2 0 , R 3                 ; 018;8  2A5,   GB>  <>6=>? 
 
                 B E Q       E N T N A M                 ; 0  -   ?@>83=>@8@C5<  ?>?KB:C  701>O
 
                 A D D       # 1 , R 3                   ; #25;8G8<  G8A;>  >AB02H8EAO  A8<2>;>2
 
                 S U B       # 1 , R 2                   ; (03=5<  =0  A8<2>;  =0704
 
                                                         ; ( >G5<C  =5  I N C   8  D E C ? ? ? ) 
 
                 B R         N X S Y M 1                 ; 45<  >G5@54=>3>  A8<2>;0. . . 
 
 ; N O B S 1 = = 1 6 5 2 3 4 
 
 N O B S 1 :     M O V B     R 0 , ( R 2 ) +             ; >1028<  A8<2>;  :  8<5=8
 
                 S O B       R 3 , N X S Y M 1           ; 4=8<  A8<2>;><  <5=LH5  -   2A5  225;8? 
 
                 R E T                                   ; 0  -   8<O  22545=>,   2KE>48<. . . 
 
 
 
 
 
 
 
                                                           -   2 8   - 
 
 
 
 
 
 ; E N T E R 1 = = 1 6 5 2 4 2 
 
 E N T E R 1 :   C M P       # 2 0 , R 3                 ; AB0;>AL  2 0   ( 1 6 4)   A8<2>;>2? 
 
                 B E Q       E N T N A M                 ; 0  -   =8G53>  =5  225;8,   B0:  =5;L7O! 
 
                 M O V B     # 4 0 , ( R 2 ) +           ; 0?>;=8<  ?@>15;0<8
 
                 S O B       R 3 , E N T E R 1           ;       >AB02HCNAO  G0ABL  8<5=8
 
                                                         ; ( ?>G5<C  S O B   =0  <5B:C  E N T E R 1 ? ) 
 
                 R E T                                   ; <O  CA?5H=>  22545=>,   2>72@0I05<AO
 
 
 
 ; E N T A D R = = 1 6 5 2 6 0 
 
 E N T A D R :   M O V       # A D D R , R 4             ; !>>1I5=85  -   "  != " 
 
                 C L R       R 1                         ; @87=0::   22>48<  04@5A
 
                 B R         E N T O C T                 ; @>872545<  22>4. . . 
 
 
 
 ; E N T L E N = = 1 6 5 2 7 0 
 
 E N T L E N :   M O V       # L E N G T H , R 4         ; !>>1I5=85  -   " = " 
 
                 M O V       # 1 2 5 2 5 , R 1           ; @87=0::   22>48<  4;8=C
 
 ; E N T O C T = = 1 6 5 3 0 0 
 
 E N T O C T :   C A L L     P R I N T                   ; 0?5G0B05<  A>>1I5=85
 
                 C L R       R 4                         ; >:0  =5  22545=>  =8  >4=>9  F8D@K
 
                 C L R       R 5                         ; 7=0G0;L=>  G8A;>  @02=>  =C;N
 
 ; N X D I G 1 = = 1 6 5 3 1 0 
 
 N X D I G 1 :   E M T       6                           ; 2545<  >G5@54=>9  A8<2>;
 
                 M O V       R 0 , R 3                   ; !>E@0=8<  53>  -   02>AL  ?@83>48BAO
 
                 E M T       1 6                         ; K2545<  ME>
 
                 C M P       # 3 0 , R 0                 ; 01>9? 
 
                 B N E       N O B S 2                   ; 5B  -   ?>A<>B@8<,   GB>  MB>
 
                 T S T       R 4                         ; ABL  GB>  701820BL? 
 
                 B N E       D O B S                     ; 0  -   701L5<
 
                 C M P       # 1 2 5 2 5 , R 1           ; *   5G53>  -   0  <K  GB>  22>48;8? 
 
                 B N E       E N T A D R                 ; *   4@5A  -   =0G=5<  A  =0G0;0. . . 
 
                 B R         E N T L E N                 ; *   ;8=C  -   A  =0G0;0,   =>  A  4@C3>3>
 
 ; D O B S = = 1 6 5 3 4 0 
 
 D O B S :       D E C       R 4                         ; 01L5<  F8D@C  -   C<5=LH8<  AG5BG8:
 
                 A S R       R 5                         ; 4=C  2>AL<5@8G=CN  F8D@C
 
                 A S R       R 5                         ;       ( B@8  42>8G=KE  @07@O40) 
 
                 A S R       R 5                         ;       1;03>?>;CG=>  C15@5<
 
                 B I C       # 1 6 0 0 0 0 , R 5         ; G8AB8<  AB0@H85  @07@O4K  >B  <CA>@0
 
                 B R         N X D I G 1                 ; 45<  70  >G5@54=>9  F8D@>9
 
 ; N O B S 2 = = 1 6 5 3 5 6 
 
 N O B S 2 :     C M P B     # 1 2 , R 0                 ; K;  =060B  ? 
 
                 B E Q       E N T E R 2                 ; 0  -   @0715@5<AO  A  =8<  >B45;L=>
 
                 B I C       # 1 7 7 4 0 7 , R 3         ; 2545==K9  A8<2>;  - 
 
                 C M P       # 6 0 , R 3                 ;       2>AL<5@8G=0O  F8D@0? 
 
                 B E Q       D I G I T                   ; 0  -   4>1028<  55  :  G8A;C
 
                 C M P       # 1 2 5 2 5 , R 1           ; *   5B  -   2A?><=8<,   GB>  <K  22>48<
 
                 B N E       E N T A D R                 ; *   4@5A  -   =0G=5<  A  =0G0;0. . . 
 
                 B R         E N T L E N                 ; *   ;8=C  -   A  4@C3>3>  =0G0;0. . . 
 
 ; D I G I T = = 1 6 5 4 0 6 
 
 D I G I T :     I N C       R 4                         ; I5  >4=0  F8D@0  -   C25;8G8<  AG5BG8:
 
                 A S L       R 5                         ; >43>B>28<  <5AB>  4;O
 
                 A S L       R 5                         ;       =>2>9  2>AL<5@8G=>9  F8D@K
 
                 A S L       R 5                         ;       ( B@8  42>8G=KE  @07@O40) 
 
                 B I C       # 1 7 7 7 7 0 , R 0         ; G8AB8<  F8D@C  >B  H5;CE8
 
                 A D D       R 0 , R 5                   ;       8  ?@8?8H5<  55  :  G8A;C  A?@020
 
                 B R         N X D I G 1                 ; >945<  640BL  A;54CNI53>  =060B8O
 
 ; E N T E R 2 = = 1 6 5 4 2 6 
 
 E N T E R 2 :   T S T       R 4                         ; %>BL  >4=0  F8D@0  22545=0? 
 
                 B N E       E N T O K                   ; 0  -   22>4  G8A;0  7025@H5=! 
 
 
 
                                                           -   2 9   - 
 
 
 
 
 
                 C M P       # 1 2 5 2 5 , R 1           ; *   5B  -   2A?><=8<,   GB>  <K  22>48<
 
                 B N E       E N T A D R                 ; *   4@5A  -   =0G=5<  A  =0G0;0. . . 
 
                 B R         E N T L E N                 ; *   ;8=C  -   A  4@C3>3>  =0G0;0. . . 
 
 ; E N T O K = = 1 6 5 4 4 2 
 
 E N T O K :     M O V       R 5 , ( R 2 ) +             ; >;>68<  7=0G5=85  :C40  A;54C5B
 
                 R E T                                   ; 2>4  G8A;0  7025@H5=,   2KE>48<
 
 
 
 ; !B>8;>  >1J548=8BL    ?><5G5==K5    72574>G:0<8  ?>2B>@ONI85AO  D@03- 
 
 ; <5=BK.   "0:65  =5?>=OB5=  A<KA;  8A?>;L7>20=8O    2    :0G5AB25    D;030
 
 ; 8<5==>    G8A;0  1 2 5 2 5 .   >AB0B>G=>  1K;>  1K  @07;8G0BL  ;8HL  A>AB>O- 
 
 ; =8O  " 0 " / " =5  0 " ,   M:>=><O  A;>2>  =0  :064>9  ?@>25@:5. 
 
 
 
 
 
 ; T R _ O N = = 1 6 5 4 4 6 
 
 T R _ O N :     M O V       # 3 2 0 , R 2               ; 0?><=8<  04@5A  1;>:0  ?0@0<5B@>2
 
                 M O V       R 2 , R 1                   ; ?   1   ? 
 
                 C L R       ( R 2 )                     ; ><0=40:   AB>?  <0H8=K! 
 
                 E M T       3 6                         ; K?>;=OBL  :><0=4C! 
 
                 R E T                                   ; ><0=40  8A?>;=5=0,   2KE>48<
 
 
 
 ; T R _ O F F = = 1 6 5 4 6 2 
 
 T R _ O F F :   M O V       # 3 2 0 , R 2               ; 0?><=8<  04@5A  1;>:0  ?0@0<5B@>2
 
                 M O V       R 2 , R 1                   ; ?   1   ? 
 
                 M O V       # 1 , ( R 2 )               ; ><0=40:   " ! 
 
                 E M T       3 6                         ; K?>;=OBL  :><0=4C! 
 
                 R E T                                   ; ><0=40  8A?>;=5=0,   2KE>48<
 
 
 
 ; -B8  1;>:8  B>65  <>6=>  1K;>  1K  >1J548=8BL. . . 
 
 
 
 ; M Z = = 1 6 5 5 0 0 
 
 M Z :           C A L L     T R _ O N                   ; :;NG05<  42830B5;L  <03=8B>D>=0
 
                 M O V       # P R E S S R , R 4         ; >?@>A8<  =060BL
 
                 C A L L     P R I N T                   ;       :;028H8  " #!"   8  " !," 
 
                 M O V       # 2 , ( R 2 ) +             ; ><0=40:   70?8AL
 
                 C A L L     E N T A D R                 ; @>A8<  ?>;L7>20B5;O  225AB8  04@5A, 
 
                 C A L L     E N T L E N                 ;       4;8=C
 
                 C A L L     E N T N A M                 ;       8  8<O
 
                 B R         W O R K T R                 ; 5@5945<  :  A>1AB25==>  @01>B5
 
 
 
 ; M C H = = 1 6 5 5 3 6 
 
 M C H :         C A L L     T R _ O N                   ; :;NG8<  42830B5;L. . . 
 
                 M O V       # P R E S S P , R 4         ; >?@>A8<  =060BL
 
                 C A L L     P R I N T                   ;       :;028HC  " #!" 
 
                 M O V       # 3 , ( R 2 ) +             ; ><0=40:   GB5=85
 
                 C A L L     E N T A D R                 ; >?@>A8<  225AB8  04@5A, 
 
                 C L R       ( R 2 ) +                   ;       4;8=0  =5  206=0
 
                 C A L L     E N T N A M                 ;   B5?5@L  =C6=>  225AB8  8<O. . . 
 
                 M O V       # 6 5 4 3 , 6 ( S P )       ; 7 4 4   $;03:   D09;>2  ?>:0  =5  =0E>48;8
 
 ; W O R K T R = = 1 6 5 5 7 6 
 
 W O R K T R :   M O V       # 3 2 0 , R 1               ; >7L<5<  04@5A  1;>:0  ?0@<5B@>2
 
                 E M T       3 6                         ; K?>;=8<  =C6=CN  :><0=4C
 
                 M O V       ( R 1 ) , R 2               ; >7L<5<  A;>2>  A  109B><  >B25B0
 
                 S W A B     R 2                         ; 5@5AB028<  MB>B  109B  ?>C4>1=55
 
                 C M P B     # 1 , R 2                   ; "0:  GB>  A;CG8;>AL  -   =5  B>  8<O? 
 
                 B E Q       B A D N A M                 ; 0  -   =0?5G0B05<  =0945==>5. . . 
 
                 T S T B     R 2                         ; 5B  -   0  1K;0  ;8  >H81:0? 
 
                 B E Q       N O E R R 1                 ; 5  1K;>  -   A>>1I8<  >1  MB><
 
                 M O V       # E R R O R , R 4           ;   5A;8  1K;0  -   B0:  8  =0?5G0B05<: 
 
                 C A L L     P R I N T                   ;       " (. . . " 
 
 
 
                                                           -   3 0   - 
 
 
 
 
 
                 M O V       # T A P R E C , R 4 
 
                 C A L L     P R I N T                   ;       " . . . "$" 
 
                 B R         C O N T 2 1                 ; A5,   ?>H;8  :  ?@83;0H5=8N
 
 ; N O E R R 1 = = 1 6 5 6 4 4 
 
 N O E R R 1 :   M O V       # 3 2 0 , R 2               ; >A<>B@8<,   G5<  <K  70=8<0;8AL
 
                 C M P B     # 3 , ( R 2 )               ; 'B5=85<? 
 
                 B E Q       T R E A D                   ; 0  -   A>>1I8<  >1  CA?5H=>9  703@C7:5
 
                 C M P B     # 4 , ( R 2 )               ;   <>65B,   D8:B82=K<  GB5=85<? 
 
                 B E Q       F I C T                     ; 0  -   A<5;>  70O28<  8  >1  MB><
 
 ; C O N T 2 1 = = 1 6 5 6 6 4 
 
 C O N T 2 1 :   J M P       S T W O R K                 ; 5B  -   3>@4>  ?@><>;G8<
 
 ; T R E A D = = 1 6 5 6 7 0 
 
 T R E A D :     M O V       # L O A D E D , R 4         ; !>>1I5=85:   "  #  $" 
 
                 B R         C O N T 2 2                 ; >945<  53>  ?5G0B0BL
 
 ; F I C T = = 1 6 5 6 7 6 
 
 F I C T :       M O V       # S T A F T , R 4           ; !>>1I5=85:   " !"  !  $" 
 
 ; C O N T 2 2 = = 1 6 5 7 0 2 
 
 C O N T 2 2 :   C A L L     P R I N T                   ; 0?5G0B05<  =C6=>5  A>>1I5=85
 
                 A D D       # 6 , R 2                   ; >;CG8<  04@5A  8A:><>3>  8<5=8
 
                 C A L L     P R N A M E                 ;       8  =0?5G0B05<  B0:>2>5
 
                 B R         C O N T 2 1                 ; 0  MB><  =0H0  <8AA8O  7025@H5=0
 
 
 
 ; P R F I N D = = 1 6 5 7 2 0 
 
 P R F I N D :   C M P       # 6 5 4 3 , 1 0 ( S P )     ; 7 4 4   "0:  <K  C65  =0E>48;8  D09;K? 
 
                 B N E       J U S T P R                 ; 0  -   2>B  8  ;04CH:8. . . 
 
                 M O V       # F O U N D , R 4           ; 5B  -   A>>>1I8<: 
 
                 C A L L     P R I N T                   ;       " +  $+: " 
 
                 C L R       1 0 ( S P )                 ; 7 4 4   0?><=8<  D0:B  =0E>4:8
 
 ; J U S T P R = = 1 6 5 7 4 4 
 
 J U S T P R :   M O V       # 3 5 2 , R 2               ; >  MB><C  04@5AC  -   =0945==>5  8<O
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; @5420@8B5;L=>  ?5@52545<  AB@>:C
 
 ; P R N A M E = = 1 6 5 7 5 6 
 
 P R N A M E :   M O V       # 2 0 , R 3                 ;   8<5=8  D09;0  -   2 0   ( 1 6 4)   A8<2>;>2
 
 ; S O B 1 3 = = 1 6 5 7 6 2 
 
 S O B 1 3 :     M O V B     ( R 2 ) + , R 0             ; G5@54=>9  A8<2>;  8<5=8
 
                 E M T       1 6                         ;       1C45<  ?5G0B0BL  4>  B5E  ?>@, 
 
                 S O B       R 3 , S O B 1 3             ;       ?>:0  >=>  =5  :>=G8BAO
 
                 R E T                                   ; >340  :>=G8BAO  -   25@=5<AO
 
 
 
 ; B A D N A M = = 1 6 5 7 7 2 
 
 B A D N A M :   C A L L     P R F I N D                 ; 0?5G0B05<  =0945==>5  8<O
 
                 B R         W O R K T R                 ;       8  ?@>4>;68<  GB5=85. . . 
 
 
 
 ;   MB>  1K;>  2A5,   @048  G53>  =0A  B0:  40;5:>  ?>AK;0;8? ! 
 
 
 
 
 
 ; >4?@>3@0<<0  4;O  :><0=4K  " &" .   0:  55  AN40  70=5A;>? . . 
 
 
 
 ; C _ S U B = = 1 6 6 0 0 0 
 
 C _ S U B :     M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C  -   4;O  :@0A>BK
 
 ; S O B 1 4 = = 1 6 6 0 0 6 
 
 S O B 1 4 :     M O V       3 4 ( S P ) , R 1           ; 7 7 4   >7L<5<  ( 4@5A) 
 
                 B I T       # 1 0 , 3 6 ( S P )         ; 7 7 6   K;>  22545=>  G8A;>? 
 
                 B E Q       N V A L 1 1                 ; A;8  40  - 
 
                 C A L L     W R T _ R 5                 ;       70?8H5<  53>  ?>  ( R 1 ) 
 
                 B R         S O B 1 4                   ;   1C45<  70?8AK20BL  2AN  687=L. . . 
 
 
 
 
 
                                                           -   3 1   - 
 
 
 
 
 
 ; N V A L 1 1 = = 1 6 6 0 3 0 
 
 N V A L 1 1 :   M O V       # 4 0 , R 0                 ;   ?@>B82=><  A;CG05
 
                 E M T       1 6                         ;       =0?5G0B05<  ?@>15;- @0745;8B5;L
 
                 C A L L     P R V A L                   ; C45<  ?5G0B0BL  A;>2>  A  ( 4@5A0) 
 
                 B R         S O B 1 4                   ;       '!   ( >  =060B8O  !"- 0. . . ) 
 
 
 
 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 *   "!"  0 .    538AB@K  AB5=40  !  * 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 0 = = 1 6 6 0 4 4 
 
 T E S T 0 :     M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 6 0 , R 1                 ; -B>  B5AB  =><5@  0 , 
 
                 M O V       # C H A N N , R 2           ;       =0720=85  -   "   !/" 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  MB>B  703>;>2>:
 
                 M O V       # 1 7 7 6 7 0 , R 5         ; 0  AB5=45
 
                 C L R       ( R 5 ) +                   ;       >G8AB8<  H8=C  40==KE
 
                 C L R       ( R 5 )                     ;       8  H8=C  C?@02;5=8O
 
                 M O V       # R 1 , R 4                 ; 0?5G0B05<  A>>1I5=85
 
                 C A L L     P R I N T                   ;                                   "  1 = 1 7 7 6 7 0 " 
 
                 M O V       # 1 7 7 6 7 0 , 4 0 ( S P )   ; 7 7 6    538AB@  H8=K  40==KE
 
                 C A L L     R U N T S T                 ;                 ?@>25@8<  153CI8<8  18B0<8
 
                 M O V       # R 2 , R 4                 ; 0?5G0B05<  A>>1I5=85
 
                 C A L L     P R I N T                   ;                                   "  2 = 1 7 7 6 7 2 " 
 
                 M O V       # 1 7 7 6 7 2 , 4 0 ( S P )   ; 7 7 6    538AB@  H8=K  C?@02;5=8O
 
                 C A L L     R U N T S T                 ;           B>65  ?@>25@8<  153CI8<8  18B0<8
 
                 B I T       # 2 0 0 0 , 3 6 ( S P )     ; 7 7 4   H81:8  1K;8? 
 
                 B E Q       N O E R R 2                 ; 5B  -   2A5  G8AB>,   2KE>48<
 
                 M O V       # L O O P , R 4             ; 0  -   A>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "!"  &" 
 
 
 
 ; 'B>1K  =58A?@02=>ABL  <>6=>  1K;>  2KO28BL  ?>  >AF8;;>3@0<<0<,   ?CA- 
 
 ; B8<  ?>  >1>8<  @538AB@0<  " 153CICN  548=8FC" . 
 
 
 
 ; L O O P 1 = = 1 6 6 1 6 2 
 
 L O O P 1 :     M O V       # 2 0 , R 3                 ;   A;>25  -   2 0   ( 1 6 4)   18B>2
 
                 M O V       # 1 , R 0                   ; 0G=5<  A  548=8FK  2  <;04H5<  18B5
 
 ; S O B 1 5 = = 1 6 6 1 7 2 
 
 S O B 1 5 :     M O V       # 1 7 7 6 7 0 , R 1         ; "5AB>2>5  7=0G5=85  -   2  @538AB@  (! 
 
                 M O V       R 0 , ( R 1 )               ; ( M O V   R 0 , @ # 1 7 7 6 7 0   1K;>  1K  ;CGH5) 
 
                 A D D       # 2 , R 1                   ;   B5?5@L  2  @538AB@  (#
 
                 M O V       R 0 , ( R 1 )               ;       70?8H5<  B>  65  A0<>5  7=0G5=85
 
                 A S L       R 0                         ; 48=8F0  " 1568B"   2;52>
 
                 S O B       R 3 , S O B 1 5             ;       2?;>BL  4>  3@0=8FK  A;>20, 
 
                 B R         L O O P 1                   ;       ?>A;5  G53>  2A5  ?>2B>@O5BAO
 
 ; N O E R R 2 = = 1 6 6 2 1 4 
 
 N O E R R 2 :   C L R       @ # 1 7 7 6 7 0             ; G8AB8<  @538AB@  H8=C  40==KE
 
                 C L R       @ # 1 7 7 6 7 2             ;       8  H8=K  C?@02;5=8O
 
                 M O V       # 6 0 , R 1                 ; 025@H05<  B5AB  0 , 
 
                 J M P       T E X I T                   ;       >  G5<  8  ?>945<  >BG8BK20BLAO
 
 
 
 
 
 ; @>25@:0  OG59:8  ( 2  4 2 ( S P )   -   55  04@5A)   153CI8<8  0 / 1 
 
 
 
 ; R U N T S T = = 1 6 6 2 3 4 
 
 R U N T S T :   C L R       R 5                         ; 58A?@02=KE  @07@O4>2  ?>:0  =5B
 
 
 
 
 
                                                           -   3 2   - 
 
 
 
 
 
                 M O V       # R U N 1 , R 4             ; 0?5G0B05<  A>>1I5=85
 
                 C A L L     P R I N T                   ;       " #)/  1 " 
 
                 M O V       # 1 , R 3                   ; 0G8=05<  A  548=8FK  2  <;04H5<  18B5
 
                 M O V       # 1 , 2 6 ( S P )           ; 7 6 2   $;03:   " 1568B"   548=8F0
 
                                                         ; ( >6=>  1K;>:   M O V   R 3 , 2 6 ( S P ) . . . ) 
 
                 C M P       # 1 7 7 6 7 0 , 4 2 ( S P )   ; 7 7 6   @>25@O5<  @538AB@  (? 
 
                 B N E       N O R D 1                   ; A;8  40  - 
 
                 M O V       # R U N 1 S T , R 4         ;       ?>  " >1@07F0<"   >1KG=>9  153CI59  1 
 
                 B R         C O N T 2 3                 ;       ?@>872545<  ?@>25@:C
 
 ; N O R D 1 = = 1 6 6 2 7 6 
 
 N O R D 1 :     B I T       # 2 , 4 0 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B E Q       N O T D 8                   ; A;8  40  - 
 
                 M O V       # R U N 1 T D , R 4         ;       ?@>25@OBL  1C45<  ?>  " >1@07F0<" 
 
                 B R         C O N T 2 3                 ;       153CI59  1   4;O  @568<0  # "
 
 ; N O T D 8 = = 1 6 6 3 1 4 
 
 N O T D 8 :     M O V       # R U N 1 T S               ; =0G5  -   ?>  " >1@07F0<"   4;O  $ "!
 
 ; C O N T 2 3 = = 1 6 6 3 2 0 
 
 C O N T 2 3 :   C A L L     T S T B I T                 ; @>872545<  A>1AB25==>  ?@>25@:C
 
                 C L R       R 5                         ; 01C45<  >  =58A?@02=KE  @07@O40E
 
                 M O V       # R U N 0 , R 4             ; "5?5@L  A>>1I8<
 
                 C A L L     P R I N T                   ;       " #)  0 " 
 
                 M O V       # 1 7 7 7 7 6 , R 3         ; 0G8=05<  A  =C;O  2  <;04H5<  18B5
 
                 C L R       2 6 ( S P )                 ; 7 6 2   $;03:   " 1568B"   =>;L
 
                 C M P       # 1 7 7 6 7 0 , 4 2 ( S P )   ; 7 7 6   @>25@O5<  @538AB@  (? 
 
                 B N E       N O R D 2                   ; A;8  40  - 
 
                 M O V       # R U N 0 S T , R 4         ;       ?@>25@O5<  ?>  " >1@07F0<" 
 
                 B R         C O N T 2 4                 ;       >1KG=>3>  153CI53>  0 
 
 ; N O R D 2 = = 1 6 6 3 6 4 
 
 N O R D 2 :     B I T       # 2 , 4 0 ( S P )           ; 7 7 4    568<  # "  2:;NG5=? 
 
                 B E Q       N O T D 9                   ; A;8  40  -   
 
                 M O V       # R U N 0 T D , R 4         ;       ?@>25@O5<  ?>  " >1@07F0<" 
 
                 B R         C O N T 2 4                 ;       153CI53>  0   4;O  @568<0  # "
 
 ; N O T D 9 = = 1 6 4 4 0 2 
 
 N O T D 9 :     M O V       # R U N 0 T S , R 4         ; =0G5  -   ?>  " >1@07F0<"   4;O  $ "!
 
 ; C O N T 2 4 = = 1 6 4 4 0 6 
 
 C O N T 2 4 :   C A L L     T S T B I T                 ; @>25@8<  @538AB@. . . 
 
                 R E T                                   ; >72@0B8<AO  2  B5AB
 
                                                         ; ( MB8  425  :><0=4K  <>6=>  8A:;NG8BL) 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   @>25@:0  OG59:8  ?0<OB8  153CI8<  18B><  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T S T B I T = = 1 6 4 4 1 4 
 
 T S T B I T :   M O V       # 2 0 , R 2                 ;   A;>25  -   2 0   ( 1 6 4)   @07@O4>2
 
 ; N X B I T 4 = = 1 6 4 4 2 0 
 
 N X B I T 4 :   M O V       4 4 ( S P ) , R 1           ; 7 7 6   >7L<5<  ?@>25@O5<K9  04@5A
 
                 M O V       R 3 , ( R 1 )               ; 0?8H5<  BC40  B5AB>2>5  7=0G5=85
 
                 M O V       ( R 1 ) , R 0               ;       8  BCB  65  ?@>G8B05<  53>  >BBC40
 
                 M O V       ( R 4 ) + , R 1             ;   GB>  4>;6=>  1K;>  ?>;CG8BLAO? 
 
                 X O R       R 1 , R 0                   ; !>2?02H85  A  >1@07F><  18BK  >G8AB8<
 
                 B I S       R 0 , R 5                   ; 5A>2?02H85  -   4>1028<  :  >H81:0<
 
                 A S L       R 3                         ; 8B  " ?>1560;"   =0  @07@O4  2;52>
 
                 T S T       3 0 ( S P )                 ; 7 6 2   B>  1568B  -   =>;8:? 
 
                 B N E       C O N T 2 5                 ; A;8  40  - 
 
                 I N C       R 3                         ;       A?@020  >AB05BAO  548=8F0
 
 ; C O N T 2 5 = = 1 6 4 4 5 0 
 
 C O N T 2 5 :   S O B       R 2 , N X B I T 4           ;   B0:  ?>:0  4>1568<  4>  C?>@0. . . 
 
 
 
                                                           -   3 3   - 
 
 
 
 
 
                 T S T       R 5                         ; K;  E>BL  >48=  >H81>G=K9  18B? 
 
                 B N E       E R R S 1                   ; 0  -   A>>1I8<  >1  >H81:5
 
 ; C O N T 2 6 = = 1 6 6 4 5 6 
 
 C O N T 2 6 :   R E T                                   ; 5B  -   7025@H8<  B5AB
 
 ; E R R S 1 = = 1 6 6 4 6 0 
 
 E R R S 1 :     C A L L     P R E R R 1                 ;  0A?5G0B05<  A?8A>:  A1>9=KE  18B>2
 
                 B R         C O N T 2 6                 ; 025@H8<  B5AB
 
 
 
 ; @028;L=55: 
 
 ; 
 
 ;                 T S T       R 5 
 
 ;                 B E Q       C O N T 2 6 
 
 ;                 C A L L     P R E R R 1 
 
 ; C O N T 2 6 :   R E T               
 
 
 
 
 
                                       * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                       *   "!"  4 .   =0:>35=5@0B>@  * 
 
                                       * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 4 = = 1 6 6 4 6 6 
 
 T E S T 4 :     M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 6 4 , R 1                 ; -B>  B5AB  =><5@  4 , 
 
                 M O V       # E N D L S S , R 2         ;       "   ++" 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  MB>B  703>;>2>:
 
                 M O V       # 7 , R 1                   ; "CB  <K  4>;6=K  >15A?5G8BL  7045@6:C
 
 ; S O B 1 7 = = 1 6 6 5 1 4 
 
 S O B 1 7 :     M O V       # 7 7 , R 2 
 
 ; S O B 1 6 = = 1 6 6 5 2 0 
 
 S O B 1 6 :     A S L       R 5                         ; ;C?>  3>@>48BL  B0:>9  >3>@>4,   :>340
 
                 S O B       R 2 , S O B 1 6             ; <>6=>  >1>9B8AL  2A53>  >4=8<    S O B     A
 
                 S O B       R 1 , S O B 1 7             ; 4>AB0B>G=>  1>;LH8<  ?0@0<5B@><. . . 
 
 ; L O O P 2 = = 1 6 6 5 2 6 
 
 L O O P 2 :     M O V       # 1 0 , R 1                 ;   >4=><  B5AB>2><  1;>:5  1C45B
 
 ; N X S E R 2 = = 1 6 6 5 3 2 
 
 N X S E R 2 :   M O V       # 2 0 , R 2                 ;       1 0 * 2 0 = 2 0 0   ( 1 2 8 4)   F5?>G5:
 
 ; N X S E R 1 = = 1 6 6 5 3 6 
 
 N X S E R 1 :   M O V       # 5 7 , R 3                 ;       ?>  5 7   ( 4 7 4)   A8<2>;>2  2  :064>9
 
                 M O V       # 4 0 , R 0                 ; 0G8=0O  A  ?@>15;0, 
 
 ; N X S Y M 1 = = 1 6 6 5 4 6 
 
 N X S Y M 1 :   E M T       1 6                         ;       1C45<  ?5G0B0BL  A8<2>;K
 
                 I N C B     R 0                         ;       2  ?>@O4:5  2>7@0AB0=8O  :>4>2
 
                 S O B       R 3 , N X S Y M 1           ;   B0:  4>  :>=F0  F5?>G:8
 
                 S O B       R 2 , N X S E R 1           ; 0G=5<  =>2CN  F5?>G:C
 
                 S O B       R 1 , N X S E R 2           ; -B8  420  S O B   <>6=>  A25AB8  2  >48=. . . 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 M O V       # 1 2 , R 0                 ;   MB>  70G5<?   54L  R 0   =5  ?>@B8BAO! 
 
                 E M T       1 6                         ; !=>20  ?5@52545<  AB@>:C
 
                 M O V       # 7 , R 1                   ; 0<  =C6=>  2K25AB8  7   ?@>15;>2: 
 
 ; S O B 1 8 = = 1 6 6 6 0 0 
 
 S O B 1 8 :     M O V       # 4 0 , R 0 
 
                 E M T       1 6                         ;       A=0G0;0  >48=, 
 
                 S O B       R 1 , S O B 1 8             ;       ?>B><  5I5  8  5I5. . . 
 
                 M O V       # T E S T , R 4             ; 5G0B05<  A>>1I5=85: 
 
                 C A L L     P R I N T                   ;       " "!"" . . . 
 
                 M O V       # E N D L S S , R 4 
 
                 C A L L     P R I N T                   ;       . . . "   ++" 
 
 
 
                                                           -   3 4   - 
 
 
 
 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; ?OBL  42064K  ?5@52545<  AB@>:C, 
 
                 M O V       # 1 2 , R 0                 ;       ?>2B>@OO  BC  65  >H81:C
 
                 E M T       1 6 
 
                 M O V       # 7 7 7 7 , R 1             ; 45AL  7045@6:0  1C45B  ?>1>;LH5
 
 ; S O B 2 0 = = 1 6 6 6 5 0 
 
 S O B 2 0 :     M O V       # 7 7 , R 2 
 
 ; S O B 1 9 = = 1 6 6 6 5 4 
 
 S O B 1 9 :     A S L       R 5                         ; >- ?5@2KE,   <>6=>  1K;>  >1>9B8AL  >4- 
 
                 S O B       R 2 , S O B 1 9             ; =8<  S O B ;   2>- 2B>@KE,   B0:>9  D@03<5=B
 
                 S O B       R 1 , S O B 2 0             ; C65  1K;,   70G5<  53>  ?8A0BL  5I5  @07? 
 
                 B R         L O O P 2                   ; 0F8:;8205<  B5AB
 
 
 
 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
                                       *   "!"  2 .   ;0280BC@0  * 
 
                                       *   ">G:0  2E>40  87  $ "!  * 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 2 = 1 6 6 6 6 4 
 
 T E S T 2 :     B I C       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   B:;NG05<  :>=B@>;L  AB5=40
 
                 M O V       # 1 2 3 4 5 6 , R 3         ; 0?><=8<,   GB>  2>H;8  87  $ "!
 
                 B R         T E S T 2 K                 ; K?>;=8<  B5AB
 
 
 
 ; ?   2   ? 
 
                 M O V       # 1 7 7 6 6 2 , R 1         ; @>872545<  E>;>AB>5  GB5=85
 
                 C A L L     R D _ R 0                   ;       @538AB@0  40==KE  :;0280BC@K
 
 
 
 ; N O T K = = = 1 6 6 7 1 0 
 
 N O T K :       M O V       # P R E S S K , R 4         ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "  (" 
 
 ; L O O P 3 = = 1 6 6 7 2 0 
 
 L O O P 3 :     M O V       # 4 0 , R 0                 ; B45;8<  =>2K9  :>4
 
                 E M T       1 6                         ;       >B  ?@54K4CI53>  ?@>15;><
 
                 C A L L     R E A D K B                 ; @>G8B05<  :>4  =060B>9  :;028H8
 
                 M O V       R 0 , R 4                   ;       8  =0?5G0B05<  53>
 
                 C A L L     O C T A L                   ;       2  2845  2>AL<5@8G=>3>  G8A;0
 
                 B R         L O O P 3                   ; C45<  ?>2B>@OBL  4>  =060B8O  !"
 
 
 
 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
                                       *   "!"  2 .   ;0280BC@0  * 
 
                                       *   ">G:0  2E>40  87  + "  * 
 
                                       * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 2 K = = 1 6 6 7 4 2 
 
 T E S T 2 K :   B I S       # 2 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   $;03:   ?@5@K20=85  70?@5I5=>
 
                 M O V       # 1 7 7 6 6 0 , R 1         ; @>G8B05<  7=0G5=85  87
 
                 C A L L     R D _ R 0                   ;       @538AB@0  A>AB>O=8O  :;0280BC@K
 
                 B I S       # 1 0 0 , R 0               ; 0<0A:8@C5<  ?@5@K20=85
 
                 C A L L     W R T _ R 0                 ;       8  70?8H5<  87<5=5==>5  7=0G5=85
 
 
 
 ; ;O  G53>  MB8<  <C4@AB2>20=8O  A  ?>4?@>3@0<<0<8?   A5  @02=>  "5AB  2 
 
 ; 87  @568<0  # "  =5  2K7K205BAO  8  A>  AB5=4><  =5  @01>B05B. 
 
 
 
                 M O V B     # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
 
 
                                                           -   3 5   - 
 
 
 
 
 
                 M O V       # 6 2 , R 1                 ; -B>  B5AB  =><5@  2 , 
 
                 M O V       # K E Y B D , R 2           ;       " "# " 
 
                 C A L L     T S T H E A                 ; K2545<  703>;>2>:
 
                 C M P       # 1 2 3 4 5 6 , R 3         ;   B5AB  <K  2>H;8  87  $ "!? 
 
                 B E Q       N O T K                     ; 0  -   B5AB  A  ?5G0BLN  :>4K  :;028H
 
 
 
 ; @>25@O5<  C?@02;ONI85  :;028H8. 
 
 
 
                 M O V       # P R E S S , R 4           ; 5B  -   =0?5G0B05<: 
 
                 C A L L     P R I N T                   ;       " "" 
 
                 M O V       # K E Y , R 4               ;       " (#,   "'#.  # ! " 
 
                 C A L L     P R I N T 
 
                 M O V       # 1 2 , R 0                 ; I5  @07  ?5@52545<  AB@>:C
 
                 E M T       1 6                         ; ( ;CGH5  1K  2:;NG8BL  :>4  2  B5:AB. . . ) 
 
                 M O V       # C O D E S , R 1           ; >7L<5<  04@5A0  B01;8FK  :>4>2, 
 
                 M O V       # L E N S , R 3             ;       B01;8FK  4;8=  =0720=89  :;028H
 
                 M O V       # K E Y S , R 4             ;       8  B01;8FK  A0<8E  =0720=89
 
 ; N X K E Y 2 = = 1 6 7 0 7 0 
 
 N X K E Y 2 :   C M P B     # 3 7 7 , ( R 1 )           ; A5  ?@>25@8;8? 
 
                 B E Q       P A R T 2                   ; 0  -   ?5@5945<  :  0;D028B=>- F8D@>2K<
 
                 C A L L     P R I N T                   ; 5B  -   ?5G0B05<  >G5@54=>5  =0720=85, 
 
                 I N C       R 4                         ;       ?>?CB=>  ?5@5E>4O  :  A;54CNI5<C
 
                 C A L L     R E A D K B                 ; >;CG8<  :>4  =060B>9  :;028H8
 
                 C M P B     ( R 1 ) + , R 0             ; =  A>2?0;  A  ?@028;L=K<? 
 
                 B E Q       E Q U 1                     ; 0  -   C15@5<  =0720=85  A  M:@0=0
 
                 M O V       # 1 2 , R 0                 ; 5B  -   >AB028<  =0720=85  :;028H8
 
                 E M T       1 6                         ;       =0  M:@0=5,   ?5@5254O  AB@>:C
 
 ; C O N T 2 7 = = 1 6 7 1 2 2 
 
 C O N T 2 7 :   I N C       R 3                         ; !;54CNI0O  4;8=0  2  B01;8F5. . . 
 
                 B R         N X K E Y 2                 ; @>25@8<  A;54CNICN  :;028HC
 
 ; E Q U 1 = = 1 6 7 1 2 6 
 
 E Q U 1 :       M O V B     ( R 3 ) , R 2               ; >7L<5<  4;8=C  =0720=8O  :;028H8
 
 ; S O B 2 1 = = 1 6 7 1 3 0 
 
 S O B 2 1 :     M O V       # 3 0 , R 0 
 
                 E M T       1 6                         ; 01L5<
 
                 S O B       R 2 , S O B 2 1             ;       A>>B25BAB2CNI55  G8A;>  A8<2>;>2
 
                 B R         C O N T 2 7                 ; 5@5945<  :  ?@>25@:5  4@C3>9  :;028H8
 
 
 
 ; R E A D K B = = 1 6 7 1 4 2 
 
 R E A D K B :   M O V       R 1 , 1 2 ( S P )           ; 7 4 6   !>E@0=8<  @538AB@K
 
                 M O V       R 2 , 1 0 ( S P )           ; 7 4 4 
 
                 M O V       R 3 , 3 0 ( S P )           ; 7 6 4 
 
                 M O V       R 5 , 2 ( S P )             ; 7 3 6 
 
                 M O V       # 1 7 7 6 6 0 , R 2         ; 0?><=8<  04@5A0   !
 
                 M O V       # 1 7 7 6 6 2 , R 5         ;                                 8     :;0280BC@K
 
                 M O V       R 2 , R 1                   ; 0=0G8<  04@5A   !. . . 
 
 ; W A I T R D = = 1 6 7 1 7 4 
 
 W A I T R D :   C A L L     R E A D _ T                 ; @>G8B05<   !  ( R 1   =5  ?>@B8BAO) 
 
                 B I T       # 2 0 0 , R 0               ; C  :0:  B0<,   :>4  :;028H8  3>B>2? 
 
                 B E Q       W A I T R D                 ; 5B  -   645<- A. . . 
 
 ; W A I T N R = = 1 6 7 2 0 6 
 
 W A I T N R :   M O V       R 5 , R 1                   ; 015@5<  A2565=L:89  :>4
 
                 C A L L     R E A D _ T                 ;                                       A  :;0280BC@K
 
                 M O V       R 2 , R 1                   ; @>G8B05<   !
 
                 C A L L     R E A D _ T                 ;                     5I5  @07
 
                 B I T       # 2 0 0 , R 0               ; 0:,   :>4  A=>20  3>B>2? ! 
 
                 B N E       W A I T N R                 ; 0  -   7015@5<  8  53>! 
 
 
 
 
 
 
 
                                                           -   3 6   - 
 
 
 
 
 
                 M O V       # 7 7 7 7 , R 3             ; 045@6:0  =0  A;CG09  4@515730
 
 ; S O B 2 2 = = 1 6 7 2 3 4 
 
 S O B 2 2 :     N O P                                   ;   MB>  -   ;8H=OO  :><0=40. . . 
 
                 S O B       R 3 , S O B 2 2             ; 
 
                 M O V       R 5 , R 1                   ; " B4@5157602H89"   A2>5  :>4
 
                 C A L L     R E A D _ T                 ;                         =0:>=5F- B0:8  ?@>G8B05<
 
                 M O V       1 2 ( S P ) , R 1           ; 7 4 6   >AAB0=>28<  @538AB@K
 
                 M O V       1 0 ( S P ) , R 2           ; 7 4 4 
 
                 M O V       3 0 ( S P ) , R 3           ; 7 6 4 
 
                 M O V       2 ( S P ) , R 5             ; 7 3 6 
 
                 R E T                                   ; 5@=5<AO  A  ?>154>9  ( :>4><)   2  R 0 
 
 
 
 ; @>25@O5<  0;D028B=>- F8D@>2K5  :;028H8. 
 
 
 
 ; P A R T 2 = = 1 6 7 2 7 0 
 
 P A R T 2 :     B I C       # 2 0 0 0 0 , 3 6 ( S P )   ; !=8<5<  ?@87=0:  70?@5B0  ?@5@K20=8O
 
                 B I C       # 1 0 0 , @ # 1 7 7 6 6 0   ;  07@5H8<  ?@5@K20=85  >B  :;0280BC@K
 
                                                         ; ( 04>  1K;>  2  >1@0B=><  ?>@O4:5! ) 
 
                 M F P S     R 1                         ; >7L<5<  A;>2>  A>AB>O=8O  ?@>F5AA>@0
 
                 B I C       # 1 0 0 , R 1               ;       8  ?>=878<  ?@8>@8B5B  ?>A;54=53>, 
 
                 M T P S     R 1                         ;       ?>A;5  G53>  25@=5<  !!  =0  <5AB>
 
                 E M T       6                           ; >645<AO  @50:F88  ?>;L7>20B5;O
 
                 M O V       # L A T Z G L , R 3         ; !>>1I5=85  " "  ",   " ,   
 
                 M O V       # C H A R S 1 , R 5         ;       0  B0:65  " :;0280BC@C" 
 
                 C A L L     P R T A B                   ;       =0?5G0B05<  87  A?5F80;L=>9  ?/ ?
 
                 M O V       # C H A R S 1 , R 4         ; "5?5@L  2A5  :;028H8
 
                 C A L L     T S T K Y S                 ;       ?@>25@8<  2  4@C3>9  ?>4?@>3@0<<5
 
                 E M T       6                           ; CABL  ?>;L7>20B5;L  =0A<>B@8BAO. . . 
 
                 M O V       # S T R , R 3               ; >?@>A8<:   "  (#  " !" " 
 
                 M O V       # C H A R S 2 , R 5         ; "5?5@L  A8<2>;K  AB@>G=K5, 
 
                 C A L L     P R T A B                   ;       2K2545<  =>2CN  B5AB>2CN  B01;8FC
 
                 M O V       # C H A R S 2 , R 4         ; @>25@8<,   :0:85  :>4K  2K40NB
 
                 C A L L     T S T K Y S                 ;       :;028H8  ?>A;5  =060B8O  !" 
 
                 E M T       6                           ; >;L7>20B5;L  A<>B@8B  =0  @57C;LB0B
 
                 M O V       # R U S , R 3               ; "5?5@L  ?@>A8<:   "  "  #!" 
 
                 M O V       # C H A R S 3 , R 5         ; "  CAA:85"   :>4K  B5E  65  :;028H. . . 
 
                 C A L L     P R T A B                   ; K2545<  B01;8FC
 
                 M O V       # C H A R S 3 , R 4         ; @>25@8<,   B5  ;8  :>4K
 
                 C A L L     T S T K Y S                 ;       ?>;CG8;8AL  2  @57C;LB0B5? 
 
                 E M T       6                           ; G5@54=0O  ?0C70  4;O  ?@>A<>B@0. . . 
 
                 M O V       # S U , R 3                 ; "5?5@L  "  " !#" 
 
                 M O V       # C H A R S 3 , R 5         ; 0?5G0B05<  ;0B8=A:85  A8<2>;K
 
                 C A L L     P R T A B                   ;       2  B>9  65  B01;8F5, 
 
                 M O V       # C H A R S 4 , R 4         ;             0  A@02=820BL  1C45<
 
                 C A L L     T S T K Y S                 ;                   C65  A  C?@02;ONI8<8  :>40<8
 
                 E M T       6                           ; ?OBL  645<  @50:F88  ?>;L7>20B5;O
 
                 M O V       # A R 2 , R 3               ; G5@54=0O  ?@>AL10:   "  "  2 " 
 
                 M O V       # C H A R S 5 , R 5         ; -B>  C65  87  @07@O40  ?A524>3@0D8:8
 
                 C A L L     P R T A B                   ; K2>48<  >G5@54=CN  B01;8FC
 
                 M O V       # C H A R S 5 , R 4         ; @>25@8<  :>4K,   ?>;CG5==K5
 
                 C A L L     T S T K Y S                 ;       ?@8  =060B>9  :;028H5   2 
 
                 E M T       6                           ; 5;05<  ?0C7C. . . 
 
                 M O V       # S H I F T , R 3           ; @>A8<:   "  "  " 
 
                 M O V       # C H A R S 6 , R 5         ; 5G0B05<
 
                 C A L L     P R T A B                   ;       A>>B25BAB2CNICN  B01;8FC
 
                 M O V       # C H A R S 6 , R 5         ; @>25@8<,   ?@028;L=>
 
                 C A L L     T S T K Y S                 ;       ;8  2>A?@8=OB>  =060B85
 
                 E M T       6                           ; !=>20  45;05<  ?0C7C
 
 
 
                                                           -   3 7   - 
 
 
 
 
 
 ; 0;55  <K  2848<  4>2>;L=>  4;8==K5    ?>A;54>20B5;L=>AB8  :>4>2,   2K- 
 
 ; 2>48<K5    ?@8    ?><>I8  E M T   1 6 .   E  =04>  1K;>  1K  70?8AK20BL  2  2845
 
 ; AB@>:,   2K2>48<KE  ?>  E M T   2 0   8;8  G5@57  ?>4?@>3@0<<C  P R I N T . 
 
 
 
 ; @>25@O5<  :;028H8  C?@02;5=8O  :C@A>@><. 
 
 
 
                 M O V B     # 1 4 , R 0 
 
                 E M T       1 6                         ; G8I05<  M:@0=
 
                 M O V B     # 2 2 , R 0                 ; C@A>@  -   2  ;52K9  25@E=89  C3>;
 
                 E M T       1 6                         ; ( ;C?>:   ?>A;5  >G8AB:8  >=  C65  B0<! ) 
 
                 M O V B     # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 M O V B     # 6 2 , R 1                 ; K  2A5  5I5  2  B5AB5  =><5@  2 , 
 
                 M O V       # K E Y B D , R 2           ;       " "# " 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  703>;>2>:  B5AB0, 
 
                 M O V       # P R E S S , R 4           ;       0  B0:65  A>>1I5=8O
 
                 C A L L     P R I N T                   ;       " "" . . . 
 
                 M O V       # K E Y , R 4               ;       . . . " (#, 
 
                 C A L L     P R I N T                   ;                         "'#.  # ! " 
 
                 M O V       # C H A R S 7 , R 4         ; "5?5@L  =04>  =0?5G0B0BL  AB@5;:8. . . 
 
                 M O V       # 2 2 , R 0                 ; 
 
                 E M T       1 6                         ; 5@=5<  :C@A>@  2  ;52K9  25@E=89  C3>;
 
                 M O V       # 1 0 , R 1                 ;       8  1 0   ( 8 4)   @07
 
 ; S O B 2 3 = = 1 6 7 6 1 6 
 
 S O B 2 3 :     M O V       # 1 2 , R 0                 ;       ?5@52545<  AB@>:C
 
                 E M T       1 6                         ; ( !B@0==>,   ?>G5<C  =0A  ?>=5A;>  2  =0- 
 
                 S O B       R 1 , S O B 2 3             ; G0;>  M:@0=0  -   8  BCB  65  >1@0B=>? ! ) 
 
 ; N X T S T R = = 1 6 7 6 2 6 
 
 N X T S T R :   M O V       # 2 0 2 , R 0               ; :;NG05<  @568<K: 
 
                 E M T       1 6                         ; <   !#> 
 
                 M O V       # 2 0 4 , R 0               ; <  > 
 
                 E M T       1 6 
 
 ; N X S Y M 3 = = 1 6 7 6 4 2 
 
 N X S Y M 3 :   M O V B     # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<
 
                 M O V B     # 4 0 , R 0                 ;       420  ?@>15;0
 
                 E M T       1 6 
 
                 M O V B     ( R 4 ) + , R 0             ; >7L<5<  >G5@54=>9  :>4
 
                 C M P       # 1 2 , R 0                 ; 5@52>4  AB@>:8? 
 
                 B N E       N O C R 1                   ; A;8  40  - 
 
                 M O V       R 0 , R 2                   ;       2@5<5==>  >B;>68<  53>
 
                 M O V       # 2 0 2 , R 0               ; B:;NG8<  @568<K  
 
                 E M T       1 6                         ;       <   !#> 
 
                 M O V       # 2 0 4 , R 0               ;       8  <  > 
 
                 E M T       1 6 
 
                 M O V       R 2 , R 0                   ; 5@=5<  :>4  >1@0B=>
 
                                                         ; ( ?@>G5<,   A<KA;0    A>E@0=OBL  53>  =5
 
                                                         ; 1K;>:   2  MB>9  25B28    >=    >4=>7=0G=>
 
                                                         ; @025=  1 2 ) 
 
                 E M T       1 6                         ; "5?5@L  <>6=>  ?5@525AB8  AB@>:C
 
                 B R         N X T S T R                 ;       8  =0G0BL  =>2CN
 
 ; N O C R 1 = = 1 6 7 7 1 2 
 
 N O C R 1 :     T S T       R 0                         ; A;8  :>4  -   =5  1 2 ,   B>,   <>65B,   0 ? 
 
                 B E Q       E N D 8                     ; 0  -   B01;8F0  =0?5G0B0=0! 
 
                 E M T       1 6                         ; =0G5  2K2545<  MB>B  A8<2>;
 
                 B R         N X S Y M 3                 ;       8  ?5@5945<  :  A;54CNI5<C
 
 
 
 
 
 
 
 
 
                                                           -   3 8   - 
 
 
 
 
 
 ; E N D 8 = = 1 6 7 7 2 2 
 
 E N D 8 :       M O V       # 2 0 2 , R 0               ; 025@H0O  B01;8FC,   >B:;NG8<
 
                 E M T       1 6                         ;       @568<K  <   !#> 
 
                 E M T       1 6 
 
                 M O V       # 2 0 4 , R 0               ;       8  <  > 
 
                 M O V       # 2 2 , R 0 
 
                 "      1 6                         ; 5@=5<  :C@A>@  2  ;52K9  25@E=89  C3>;
 
                 M O V       # 1 0 , R 1                 ;       8  1 0   ( 8 4)   @07
 
 ; S O B 2 4 = = 1 6 6 7 5 0 
 
 S O B 2 4 :     M O V       # 1 2 , R 0                 ;       ?5@52545<  AB@>:C
 
                 E M T       1 6                         ; ( =B5@5A=>,   0  4;O    :>3>    ?@84C<0=>
 
                 S O B       R 1 , S O B 2 4             ; E M T   2 4 ? ) 
 
                 M O V       # C H A R S 7 , R 4         ; @>25@8<  DC=:F8>=8@>20=85
 
                 C A L L     T S T K Y S                 ;       :;028H  C?@02;5=8O  :C@A>@><
 
                 E M T       6                           ; >A;54=89  @07  ?>4>645<  =060B8O. . . 
 
                 M O V       # 6 2 , R 1                 ; 0  MB><  B5AB  2 
 
                 J M P       T E X I T                   ;                       7025@H5=
 
 
 
 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
           *   K2>4  703>;>2:0  B5AB0  8  A?8A:0  B5AB8@C5<KE  :;028H  * 
 
           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P R T A B = = 1 7 0 0 0 2 
 
 P R T A B :     M O V B     # 1 4 , R 0                 ; G8AB8<  M:@0=
 
                 E M T       1 6 
 
                 M O V       # 2 2 , R 0                 ; C@A>@  -   2  ;52K9  25@E=89  C3>;
 
                 E M T       1 6                         ;       ( >=  8  B0:  B0<! ) 
 
                 M O V       # 1 2 , R 0                 ; 5@52>48<  AB@>:C
 
                 E M T       1 6 
 
                 M O V B     # 6 2 , R 1                 ; -B>  2A5  5I5  B5AB  2 , 
 
                 M O V       # K E Y B D , R 2           ;       " "# " 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  703>;>2>:  B5AB0
 
                 M O V       # P R E S S , R 4           ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "" . . . 
 
                 M O V       R 3 , R 4                   ; K2545<  70@0=55  ?>43>B>2;5==>5
 
                 C A L L     P R I N T                   ;       A>>1I5=85  >  ?@5D8:A=KE  :;028H0E
 
                 M O V       # K E Y , R 4               ;       . . . " (#, 
 
                 C A L L     P R I N T                   ;                         "'#.  # ! " 
 
                 M O V       R 5 , R 4                   ;  0A?5G0B05<  B5AB8@C5<K5  :;028H8
 
                 C A L L     P R C H A R                 ; -B8  425  :><0=4K    <>6=>  25AL<0  1;0- 
 
                 R E T                                   ; 3>?>;CG=>  8A:;NG8BL
 
 
 
 ; P R C H A R = = 1 7 0 0 7 6 
 
 P R C H A R :   M O V       # 2 2 , R 0 
 
                 E M T       1 6                         ; C@A>@  -   2  ;52K9  25@E=89  C3>;, 
 
                 M O V       # 1 0 , R 1                 ;       ?>A;5  G53>  1 0   ( 8 4)   @07
 
 ; S O B 2 5 = = 1 7 0 1 1 0 
 
 S O B 2 5 :     M O V       # 1 2 , R 0                 ;       ?5@52>48<  AB@>:C
 
                 E M T       1 6 
 
                 S O B       R 1 , S O B 2 5 
 
 
 
 ; "0:>9    65    1;>:,   ?@8G5<    >:0=G820NI89AO  R E T ,   5ABL  GCBL  40;LH5. 
 
 ; >MB><C  ?@54K4CI85  6   :><0=4  <>6=>  70<5=8BL  >4=>9  -   C A L L   E N D 9 . 
 
 
 
 ; N X S Y M 4 = = 1 7 0 1 2 0 
 
 N X S Y M :     M O V B     # 4 0 , R 0                 ; !8<2>;K  >B45;O5<  4@C3  >B  4@C30
 
                 E M T       1 6                         ;       42C<O  ?@>15;0<8
 
 
 
 
 
                                                           -   3 9   - 
 
 
 
 
 
                 M O V B     # 4 0 , R 0 
 
                 E M T       1 6 
 
                 M O V B     ( R 4 ) + , R 0             ; >7L<5<  >G5@54=>9  A8<2>;
 
                 E M T       1 6                         ;       8  =0?5G0B05<  53>
 
                 M O V       R 0 , R 1                   ; ?   1   ? 
 
                 T S T       R 0                         ; "01;8F0  :>=G8;0AL? 
 
                 B E Q       E N D 9                     ; 0  -   1>;LH5  45;0BL  =5G53>,   2KE>48<
 
                 B R         N X S Y M 4                 ; =0G5  -   2K2>48<  >G5@54=>9  A8<2>;
 
 
 
 ; ;C?>AB8  :0:85- B>.   C6=>  1K;>  B0:: 
 
 ; 
 
 ;               T S T       R 0 
 
 ;               B N E       N X S Y M 4 
 
 
 
 ; E N D 9 = = 1 7 0 1 5 0 
 
 E N D 9 :       M O V B     # 2 2 , R 0                 ; >2B>@OO  C65  8725AB=CN  ?@>F54C@C, 
 
                 E M T       1 6                         ;       25@=5<  :C@A>@  :  =0G0;C  B01;8FK
 
                 M O V       # 1 0 , R 1 
 
 ; S O B 2 6 = = 1 7 0 1 6 2                 
 
 S O B 2 6 :     M O V       # 1 2 , R 0 
 
                 E M T       1 6 
 
                 S O B       R 1 , S O B 2 6 
 
                 R E T                                   ; 025@H05<  ?>4?@>3@0<<C
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   @>25@:0  :;0280BC@K  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T S T K Y S = = 1 7 0 1 7 4 
 
 T S T K Y S :   M O V       # 2 , R 1                   ; 2064K
 
 ; S O B 2 7 = = 1 7 0 2 0 0 
 
 S O B 2 7 :     M O V       # 3 1 , R 0                 ;       A428=5<  :C@A>@  2?@02>
 
                 E M T       1 6                         ; ( ;CGH5    8A?>;L7>20BL    425    :><0=4K
 
                 S O B       R 1 , S O B 2 7             ; E M T   1 6   ?>4@O4,   M:>=><O  2   A;>20) 
 
                 E M T       6                           ; 45<  22>40  A  :;0280BC@K
 
                 C M P B     ( R 4 ) + , R 0             ; 060B0  ?@028;L=0O  :;028H0? 
 
                 B E Q       E N D 2                     ; 0  -   C15@5<  55  A8<2>;  A  M:@0=0
 
                 M O V       # 3 1 , R 0                 ; =0G5  -   >AB028<  ?@>?CAB8<  53>, 
 
                 E M T       1 6                         ;       =5  AB8@0O
 
                 B R         C O N T 2 8                 ; 5@5945<  :  ?@>25@:5  =0  7025@H5=85
 
 ; E Q U 2 = = 1 7 0 2 2 6 
 
 E Q U 2 :       M O V       # 4 0 , R 0                 ; 01L5<  ?@>15;><
 
                 E M T       1 6                         ;                         A8<2>;  :;028H8
 
 ; C O N T 2 8 = = 1 7 0 2 3 4 
 
 C O N T 2 8 :   C M P B     # 1 2 , ( R 4 )             ; C6=>  ?5@525AB8  AB@>:C? 
 
                 B N E       N O C R 2                   ; 5B  -   8  =5  =04>
 
                 M O V B     # 1 2 , R 0                 ; 8H=OO  :><0=40:   2  R 0   8  B0:  C65  1 2 
 
                 E M T       1 6                         ; C6=>  -   ?5@52545<  AB@>:C
 
                 T S T B     ( R 4 ) +                   ; @>?CAB8<  A8<2>;  ?5@52>40  AB@>:8
 
                 B R         T S T K Y S                 ; @>4>;68<  ?@>25@:0
 
 ; N O C R 2 = = 1 7 0 2 5 4 
 
 N O C R 2 :     T S T B     ( R 4 )                     ; "01;8F0  :>=G8;0AL? 
 
                 B N E       T S T K Y S                 ; 5B  -   2>7>1=>28<  ?@>25@:C
 
                 R E T                                   ; 0  -   25@=5<AO  2  B5AB
 
 
 
 
 
 
 
 
 
 
 
                                                           -   4 0   - 
 
 
 
 
 
                                             * * * * * * * * * * * * * * * * * * * * 
 
                                             *   "!"  1 .   #,   #  * 
 
                                             * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 1 = = 1 7 0 2 6 2 
 
 T E S T 1 :     B I C       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   B:;NG8<  :>=B@>;L  AB5=40
 
                 M O V       # 6 1 , R 1                 ; -B>  B5AB  =><5@  1 
 
                 B I T       # 4 , 3 6 ( S P )           ; 7 7 4    568<  + "  2:;NG5=? 
 
                 B N E       T K 1                       ; 0  -   B5AB8@C5<  #  8  #
 
                 M O V       # R A M , R 4               ; =0G5  -   B>;L:>  #
 
                 B R         C O N T 2 9 
 
 ; T K 1 = = 1 7 0 3 1 2 
 
 T K 1 :         M O V       # R A M R O M , R 4         ; !>>1I5=85:   " #,   #" 
 
 ; C O N T 2 9 = = 1 7 0 3 1 6 
 
 C O N T 2 9 :   C A L L     P R I N T                   ; 0?5G0B05<  A>>1I5=85
 
                 C M P       # 7 7 7 7 6 , 3 4 ( S P )   ; 7 7 2   ( 4@5A)   =0E>48BAO  2  #? 
 
                 B L O       C O N T 3 0                 ; 0  -   =8G53>  =5  ?@54?@8=8<05<  ( ! ? ) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6   KG8A;8<  :>=5G=K9  04@5A
 
                 A D D       3 4 ( S P ) , R 2           ; 7 7 2         ?@>25@O5<>9  >1;0AB8
 
                 C M P       R 2 , # 7 6 7 7 6           ; =  ?>;CG8;AO  1>;LH5  7 7 0 0 0 ? 
 
                 B L O       C O N T 3 0                 ; 5B  -   2>B  8  >B;8G=>
 
                 M O V       # 7 6 7 7 6 , R 2           ; =0G5  ?>43>=8<  53>  ?>4  7 7 0 0 0 , 
 
                 S U B       3 4 ( S P ) , R 2           ; 7 7 2       ?5@5AG8B02  4;8=C
 
                 B R         C O N T 3 1                 ; >945<  A>E@0=OBL  =>2CN  4;8=C
 
 ; C O N T 3 0 = = 1 7 0 3 6 2 
 
 C O N T 3 0 :   M O V       3 0 ( S P ) , R 2           ; 7 6 6   A;8  2A5  O K   -   4;8=0  AB0@0O
 
 ; C O N T 3 1 = = 1 7 0 3 6 6 
 
 C O N T 3 1 :   M O V       R 2 , 3 0 ( S P )           ; 7 6 6   !>E@0=8<  4;8=C
 
                 M O V       3 4 ( S P ) , 2 0 ( S P )   ; 7 7 2 , 7 5 6   @>25@O5<0O    >1;0ABL    =0G- 
 
                                                         ;                 =5BAO  A  ( 4@5A0) 
 
                 C M P       3 4 ( S P ) , # 1 0 0 0     ; 7 7 2   !B5:  2  =55  ?>?0405B? 
 
                 B L O       I N S T K                   ; 0  -   ?@845BAO  53>  A>E@0=OBL
 
                                                         ; ( >G5<C  =5  A@07C  =0  S A V S T K ? ) 
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6   >7L<5<  ( ;8=C) 
 
                 A S R       R 2                         ;               8  ?5@52545<  55  2  A;>20
 
                 M O V       R 2 , 1 6 ( S P )           ; 7 5 4   -B>  1C45B  @07<5@  CG0AB:0, 
 
                 C A L L     R A M T S T                 ;               :>B>@K9  <K  ?>945<  ?@>25@OBL
 
                 B R         C O N T 3 2                 ; 0  MB><  ?@>25@:0  #  >:>=G5=0
 
 ; I N S T K = = 1 7 0 4 3 0 
 
 I N S T K :     J M P       S A V S T K                 ; >945<  A>E@0=OBL  AB5:
 
 ; S T K T S T = = 1 7 0 4 3 4 
 
 S T K T S T :   M O V       3 4 ( S P ) , 2 0 ( S P )   ; 7 7 2 , 7 5 6   0?><=8<  =0G0;L=K9  04@5A
 
                 M O V       # 1 0 0 0 , R 2             ;         KG8A;8<  4;8=C  CG0AB:0, 
 
                 S U B       3 4 ( S P ) , R 2           ; 7 7 2         ?5@5:@K20NI53>  AB5:
 
                 A S R       R 2                         ;         -BC  4;8=C  ?5@52545<  2  A;>20
 
                 M O V       R 2 , 1 6 ( S P )           ; 7 5 4   #G0AB>:  MB>3>  @07<5@0
 
                 C A L L     R A M T S T                 ;               <K  8  ?@>25@8<
 
                 C A L L     R S T S T K                 ;         @>25@82,   25@=5<  AB5:  =0  <5AB>
 
                 M O V       # 1 0 0 0 , 2 0 ( S P )     ; 7 5 6   0?><=8<  =>2K9  =0G0;L=K9  04@5A
 
                 M O V       3 0 ( S P ) , R 2           ; 7 6 6   >7L<5<  ( ;8=C) 
 
                                                         ;         ( M9,   55  65  =04>  C<5=LH8BL! ! ! ) 
 
                 A S R       R 2                         ; @5>1@07C5<  55  2  A;>20
 
                 M O V       R 2 , 1 6 ( S P )           ; 7 5 4   @>25@8<  CG0AB>:
 
                 C A L L     R A M T S T                 ;               A>>B25BAB2CNI53>  @07<5@0
 
 ; C O N T 3 2 = = 1 7 0 5 1 4 
 
 C O N T 3 2 :   B I T       # 4 , 3 6 ( S P )           ; 7 7 4    568<  + "  2:;NG5=? 
 
                 B N E       T K 2                       ; 0  -   =04>  5I5  #  ?@>25@8BL. . . 
 
                 B R         E N D 1 0                   ; 5B  -   =0  MB><  @01>B0  7025@H5=0
 
 
 
                                                           -   4 1   - 
 
 
 
 
 
 ; >@>G5:   
 
 ; 
 
 ;               B I T       # 4 , 3 6 ( S P ) 
 
 ;               B E Q       E N D 1 0 
 
 
 
 ; T K 2 = = 1 7 0 5 2 6 
 
 T K 2 :         J M P       R O M T S T                 ; >945<  ?@>25@OBL  #
 
 ; E N D 1 0 = = 1 7 0 5 3 2 
 
 E N D 1 0 :     C L R       R 0 
 
                 E M T       2 2                         ; G8AB8<  A;C651=CN  AB@>:C, 
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ;       0  B0:65  M:@0=
 
                 M O V       # 6 1 , R 1                 ; "5AB  1   =0  A5<
 
                 J M P       T E X I T                   ;                     7025@H5=
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   5@5=>A  AB5:0  2  :>=5F  M:@0==>3>  #  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S A V S T K = = 1 7 0 5 5 4 
 
 S A V S T K :   M O V       # 7 6 7 7 6 , 2 0 ( S P )   ; 7 5 6   !=0G0;0  >1;0ABL,   2  :>B>@>9
 
                 M O V       # 4 0 0 , 1 6 ( S P )       ; 7 5 4         2@5<5==>  1C45B  68BL  AB5:, 
 
                 C A L L     R A M T S T                 ;               ?@>25@8<  =0  >H81:8
 
                 M O V       2 0 ( S P ) , R 1           ; 7 5 6   >7L<5<  55  =0G0;L=K9  04@5A
 
                 M O V       1 6 ( S P ) , R 2           ; 7 5 4         8  4;8=C  2  A;>20E, 
 
                 C L R       R 3                         ;         8,   =0G8=0O  A  =C;52>3>  04@5A0, 
 
 ; S O B 2 8 = = 1 7 0 6 0 6 
 
 S O B 2 8 :     M O V       ( R 3 ) + , ( R 1 ) +       ;       A;>2>  70  A;>2><  ?5@5=5A5<  AB5:
 
                 S O B       R 2 , S O B 2 8             ;       =0  =>2>5  <5AB>  68B5;LAB20
 
                 M O V       S P , R 1                   ; >7L<5<  04@5A  25@H8=K  AB5:0
 
                 B I C       # 1 7 7 6 0 0 , R 1         ;       8  2KG8A;8<  A>>B25BAB2CNI89  5<C
 
                 A D D       # 7 6 7 7 6 , R 1           ;       04@5A  2  =>2>9  >1;0AB8
 
                 M O V       R 1 , S P                   ; =  8  1C45B  =>2>9  25@H8=>9  AB5:0
 
                 J M P       S T K T S T                 ; @8ABC?8<  :  ?@>25@:5  AB5:0
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   5@5=>A  AB5:0  =0  53>  70:>==>5  <5AB>  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R S T S T K = = 1 7 0 6 3 2 
 
 R S T S T K :   M O V       # 4 0 0 , R 2               ; >7L<5<  4;8=C  >1;0AB8  2  A;>20E
 
                 C L R       R 1                         ; 0  AB0@K9  04@5A
 
                 M O V       # 7 6 7 7 6 , R 3           ;       A  =>2>3>
 
 ; S O B 2 9 = = 1 7 0 6 4 4 
 
 S O B 2 9 :     M O V       ( R 3 ) + , ( R 1 ) +       ;       ?>A;>>2=>  ?5@5=5A5<
 
                 S O B       R 2 , S O B 2 9             ;       2AN  A>E@0=5==CN  >1;0ABL
 
                 M O V       S P , R 1                   ; >7L<5<  04@5A  25@H8=K  AB5:0
 
                 B I C       # 1 7 7 6 0 0 , R 1         ;       8  ?5@5AG8B05<  53>  >B=>A8B5;L=>
 
                 S U B       # 7 7 6 , R 1               ;       >1KG=>3>  53>  <5AB>?>;>65=8O
 
                 M O V       R 1 , S P                   ; "5?5@L  AB5:  25@=C;AO  =0  <5AB>, 
 
                 R E T                                   ;       <>6=>  CE>48BL
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   4 2   - 
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   "!"  6 .   (8=K  04@5A0  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 6 = = 1 7 0 6 6 6 
 
 T E S T 6 :     B I C       # 2 0 0 , 3 6 ( S P )       ; B:;NG05<  :>=B@>;L  AB5=40
 
                 M O V       # 6 6 , R 1                 ; -B>  B5AB  =><5@  6 , 
 
                 M O V       # A D R B U S , R 2         ;       " (+   !" 
 
                 C A L L     T S T H E A                 ; K2545<  MB>B  703>;>2>:
 
                 C A L L     A B U S T S                 ; @>872545<  A>1AB25==>  ?@>25@:C
 
                 B I T       # 2 0 0 0 , 3 6 ( S P )     ; 7 7 4   H81:8  1K;8? 
 
                 B E Q       E N D 1 1                   ; 5B  -   2>B  8  >B;8G=>
 
                 M O V       # E R R O R , R 4           ; 0  -   =0?5G0B05<: 
 
                 C A L L     P R I N T                   ;       " (" . . . 
 
                 M O V       # R A M , R 4               ;       . . . " #" 
 
                 C A L L     P R I N T 
 
 ; E N D 1 1 = = 1 7 0 7 4 4 
 
 E N D 1 1 :     M O V       # 6 6 , R 1                 ; "5AB  6   =0  MB><  70:>=G5=, 
 
                 J M P       T E X I T                   ;       >  G5<  8  4>;>68<  ?>;L7>20B5;N
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   "!"  7 .   (8=K  40==KE  * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 7 = = 1 7 0 7 5 4 
 
 T E S T 7 :     B I C       # 2 0 0 , 3 6 ( S P )       ; B:;NG05<  :>=B@>;L  AB5=40
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 6 7 , R 1                 ; -B>  B5AB  =><5@  7 , 
 
                 M O V       # D A T B U S , R 2         ;       " (+  +%" 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  703>;>2>:
 
                 M O V       3 4 ( S P ) , 4 0 ( S P )   ; 7 7 2 , 7 7 6   0?><=8<  ( 4@5A) . . . 
 
                 C L R       R 5                         ; H81>:  ?>:0  =5  1K;>
 
                 M O V       # R U N 1 , R 4             ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " #)/  1 " 
 
                 M O V       # 1 , R 3                   ; 0G=5<  A  548=8FK  2  <;04H5<  @07@O45
 
                 M O V       # 1 , 2 4 ( S P )           ; 7 6 2   @87=0::   " 1568B"   548=8F0
 
                                                         ; ( >G5<C  =5  M O V   R 3 , 2 4 ( S P ) ? ) 
 
                 M O V       # R U N 1 S T , R 4         ; >  B01;8F5  " MB0;>==KE"   7=0G5=89
 
                 C A L L     R U N T S T                 ;       ?@>872545<  ?@>25@:C
 
                 C L R       R 5                         ; !1>9=KE  18B>2  ?>:0  =5B
 
                 M O V       # R U N 0 , R 4             ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " #)  0 " 
 
                 M O V       # 1 7 7 7 7 6 , R 3         ; !=0G0;0  0   2  <;04H5<  @07@O45
 
                 M O V       3 4 ( S P ) , R 1           ; 7 7 2   ?   1   ? 
 
                 C L R       2 4 ( S P )                 ; 7 6 2   @87=0::   " 1568B"   =>;L
 
                 M O V       # R U N 0 S T , R 4         ; >  B01;8F5  " MB0;>==KE"   7=0G5=89
 
                 C A L L     R U N T S T                 ;       ?@>872545<  ?@>25@:C
 
                 B I T       # 2 0 0 0 , 3 6 ( S P )     ; 7 7 4   H81:8  1K;8? 
 
                 B E Q       E N D 1 2                   ; 5B  -   2>B  8  >B;8G=>,   2KE>48<
 
                 M O V       # L O O P , R 4             ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "!"  &" 
 
                 M O V       3 4 ( S P ) , R 1           ; 7 7 2   >7L<5<  ( 4@5A) 
 
 ; L O O P 4 = = 1 7 1 1 3 0 
 
 L O O P 4 :     M O V       # 2 0 , R 3                 ;   A;>25  -   2 0   ( 1 6 4)   18B
 
                 M O V       # 1 , R 2                   ; 0G8=05<  A  548=8FK  2  <;04H5<  18B5
 
 
 
 
 
 
 
                                                           -   4 3   - 
 
 
 
 
 
 ; S O B 3 0 = = 1 7 1 1 4 0 
 
 S O B 3 0 :     M O V       R 2 , R 0                   ; >7L<5<  A;>2>, 
 
                 C A L L     W R T _ R 0                 ;       70?8H5<  53>  ?>  ( 4@5AC) 
 
                 C A L L     R D _ R 0                   ;       8  BCB  65  ?@>G8B05<
 
                 A S L       R 2                         ; 8B  " ?>1560;"   2;52>, 
 
                 S O B       R 3 , S O B 3 0             ;       ?>:0  =5  2KH5;  70  ?@545;K  A;>20
 
                 B R         L O O P 4                   ; -B>  ?>2B>@O5BAO  2=>2L  8  2=>2L
 
 ; E N D 1 2 = = 1 7 1 1 6 0 
 
 E N D 1 2 :     M O V       # 6 7 , R 1                 ; "5AB  7   =0  MB><
 
                 J M P       T E X I T                   ;                       7025@H5=
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   "!"  3 .   >@B  22>40- 2K2>40  * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 4 = = 1 7 1 1 7 0 
 
 T E S T 4 :     B I C       # 2 0 0 , 3 6 ( S P )       ; 7 7 4   !=8<05<  :>=B@>;L  AB5=40
 
                 B I S       # 4 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   :;NG8<  :>=B@>;L  !
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 6 3 , R 1                 ; -B>  B5AB  =><5@  3 , 
 
                 M O V       # I F A C E , R 2           ;       " " $!" 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  703>;>2>:
 
                 M O V       # 1 7 7 7 1 4 , 4 0 ( S P )   ; 7 7 6   @>25@OBL  1C45<  ?>@B  ( #) 
 
                 C L R       R 5                         ; H81>G=KE  18B>2  5I5  =5B
 
                 M O V       # R U N 1 , R 4             ; 0?5G0B05<: 
 
                 C A L L     P R I N T                   ;       " #)/  1 " 
 
                 M O V       # 1 , R 3                   ; 0G8=05<  A  1   2  <;04H5<  @07@O45
 
                 M O V       # 1 , 2 4 ( S P )           ; 7 6 2   @87=0::   " 1568B"   548=8F0
 
                 M O V       # R U N 1 S T , R 4         ; K?>;=8<  B5AB
 
                 C A L L     R U N T S T                 ;       ?>  B01;8F0<  " 153CI59"   548=8FK
 
                 C L R       R 5                         ; B>@CN  ?@>25@:C  =0G=5<  157  >H81>:
 
                 M O V       # R U N 0 , R 4             ; K2545<  A>>1I5=85: 
 
                 C A L L     P R I N T                   ;       " #)  0 " 
 
                 M O V       # 1 7 7 7 7 6 , R 3         ; 0G8=05<  A  0   2  <;04H5<  @07@O45
 
                 C L R       2 4 ( S P )                 ; 7 6 2   @87=0::   " 1568B"   =>;L
 
                 M O V       # 1 7 7 7 1 4 , R 1         ; ?   1   ? 
 
                 M O V       # R U N 0 S T , R 4         ; @>B5AB8@C5<  ?>
 
                 C A L L     R U N T S T                 ;       B01;8F0<  " 153CI53>"   =C;O
 
                 B I T       # 4 , 3 6 ( S P )           ; 7 7 4    568<  + "  2:;NG5=? 
 
                 B N E       E N D 1 3                   ; 0  -   2KE>48<
 
                 B I T       # 2 0 0 0 , 3 6 ( S P )     ; 7 7 4   H81:8  1K;8? 
 
                 B E Q       E N D 1 3                   ; 5B  -   B>65  <>6=>  2K9B8
 
                 M O V       # L O O P , R 4             ; >;>68<: 
 
                 C A L L     P R I N T                   ;       " "!"  &" 
 
                 M O V       # 1 7 7 7 1 4 , R 1         ; >;18BL  1C45<  2  ?>@B. . . 
 
 ; L O O P 5 = = 1 7 1 3 6 2 
 
 L O O P 5 :     M O V       # 2 0 , R 3                 ;   A;>25  2 0   ( 1 6 4)   18B
 
                 M O V       # 1 , R 2                   ; 0G8=05<  A  548=8FK  2  <;04H5<  18B5
 
 ; S O B 3 1 = = 1 7 1 3 7 2 
 
 S O B 3 1 :     M O V       R 2 , R 0                   ; >7L<5<  7=0G5=85
 
                 C A L L     W R T _ R 0                 ;       8  70?8H5<  53>  2  ?>@B
 
                 A S L       R 2                         ; 8B  " ?>1560;"   2;52>
 
                 S O B       R 3 , S O B 3 1             ;                                 8  B0:  4>  C?>@0. . . 
 
                 J M P       L O O P 5                   ; 0F8:;8205<AO  ( ?>G5<C  =5  B R ? ) 
 
 ; E N D 1 3 = = 1 7 1 4 1 0 
 
 E N D 1 3 :     B I C       # 4 0 0 0 0 , 3 6 ( S P )   ; 7 7 4   !=8<5<  :>=B@>;L  !
 
 
 
 
 
                                                           -   4 4   - 
 
 
 
 
 
                 M O V       # 6 3 , R 1                 ; "5AB  3   7025@H5=, 
 
                 J M P       T E X I T                   ;       A>>1I8<  >1  MB><  ?>;L7>20B5;N
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   @>25@:0  OG59:8  153CI8<  18B><  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R U N T S T = = 1 7 1 4 2 6 
 
 R U N T S T :   M O V       # 2 0 , R 2                 ;   A;>25  -   2 0   ( 1 6 4)   18B
 
 ; S O B 3 2 = = 1 7 1 4 3 2 
 
 S O B 3 2 :     M O V       4 2 ( S P ) , R 1           ; 7 7 6   >  04@5AC  ?@>25@O5<>9  OG59:8
 
                 M O V       R 3 , R 0                   ;         70?8H5<  B5AB>2>5  7=0G5=85
 
                 C A L L     W R T _ T                   ;         G5@57  ?/ ?  >1<5=0  A>  AB5=4><, 
 
                 C A L L     R E A D _ T                 ;         8  BCB  65  ?@>G8B05<
 
                 M O V       ( R 4 ) + , R 1             ; >7L<5<  " MB0;>==>5"   7=0G5=85, 
 
                 X O R       R 1 , R 0                   ;       2K45;8<  =5A>2?02H85  18BK
 
                 B I S       R 0 , R 5                   ;       8  4>1028<  8E  2  >1ICN  :CGC
 
                 A S L       R 3                         ; 8B  " ?>1560;"   2;52>. . . 
 
                 T S T       2 6 ( S P )                 ; 7 6 2   " 568B"   =>;L? 
 
                 B N E       C O N T 3 2                 ; A;8  40  - 
 
                 I N C       R 3                         ;       4>1028<  548=8FC  2  <;04H89  18B
 
 ; C O N T 3 2 = = 1 7 1 4 7 0 
 
 C O N T 3 2 :   S O B       R 2 , S O B 3 2             ; @>4>;68<  ?@>25@:C
 
                 T S T       R 5                         ; !1>9=K5  18BK  1K;8? 
 
                 B N E       E R R S 2                   ; 0  -   @0A?5G0B05<  8E  A?8A>:
 
 ; E N D 1 4 = = 1 7 1 4 7 6 
 
 E N D 1 4 :     R E T                                   ; 5B  -   2KE>48<  87  ?>4?@>3@0<<K
 
 ; E R R S 2 = = 1 7 1 5 0 0 
 
 E R R S 2 :     C A L L     P R E R R S                 ;  0A?5G0B05<  A?8A>:  >H81>:
 
                 B R         E N D 1 4                   ; KE>48<. . . 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   @>25@:0  H8=K  04@5A0  * 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; ?   3   ? 
 
 ; A B U S T S = = 1 7 1 5 0 6 
 
 A B U S T S :   M O V       # A D R S S , R 4           ; -B0;>==0O  B01;8F0  04@5A>2/ 40==KE
 
                 M O V       # 5 0 , 3 0 ( S P )         ; 7 7 0   ?   1   ? 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 C L R       R 1                         ; 1;0ABL  ?0<OB8  A  04@5A0  0 
 
                 M O V       # 4 0 0 0 0 , R 2           ;       4;8=>9  4 0 0 0 0   A;>2
 
 ; S O B 3 3 = = 1 7 1 5 3 4 
 
 S O B 3 3 :     C L R       R 0                         ;       >G8AB8<,   70=>AO  0 
 
                 C A L L     W R T _ T                   ;       2  :064CN
 
                 A D D       # 2 , R 1                   ;       A;54CNICN  OG59:C, 
 
                 S O B       R 2 , S O B 3 3             ;       ?>:0  =5  4>945<  4>  :>=F0
 
 ; N X T A D 1 = = 1 7 1 5 5 0 
 
 N X T A D 1 :   M O V       ( R 4 ) , R 1               ; >7L<5<  >G5@54=>9  04@5A, 
 
                 M O V       ( R 4 ) + , R 0             ;       0  40==K5  1C4CB  B0:8<8  65
 
                 C M P       R 1 , # 1 0 0 0 0 0         ; "01;8F0  :>=G8;0AL? 
 
                 B E Q       C O N T 3 3                 ; 0  -   2A5  70?8A0;8,   B5?5@L  ?@>25@8<
 
                 C A L L     W R T _ T                   ; 0?>;=8<  MBC  OG59:C
 
                 B R         N X T A D 1                 ;       8  ?5@5945<  :  A;54CNI59
 
 
 
 
 
                                                           -   4 5   - 
 
 
 
 
 
 ; C O N T 3 3 = = 1 7 1 5 7 0 
 
 C O N T 3 3 :   M O V       # A D R S S , R 3           ; "5?5@L  =0G=5<  ?@>25@:C  ?>  B01;8F5  
 
 ; N X T A D 2 = = 1 7 1 5 7 4 
 
 N X T A D 2 :   M O V       ( R 3 ) , R 1               ; >7L<5<  >G5@54=>9  04@5A
 
                 C M P       R 1 , # 1 0 0 0 0 0         ; "01;8F0  :>=G8;0AL? 
 
                 B E Q       E N D 1 5                   ; 0  -   ?@>25@:0  7025@H5=0
 
                 C A L L     R E A D _ T                 ; @>G8B05<  40==K5  A  ( R 1 ) 
 
                 C M P       ( R 3 ) + , R 0             ; @>G8B0==>5  A>2?0;>  A  MB0;>=><? 
 
                 B E Q       N X T A D 2                 ; 0  -   ?@>25@O5<  A;54CNI89  04@5A
 
                 B R         A D R E R R                 ; 5B  -   7=0G8B,   >H81:0
 
 ; E N D 1 5 = = 1 7 1 6 1 6 
 
 E N D 1 5 :     R E T                                   ; >72@0I05<AO  87  ?>4?@>3@0<<K
 
 ; A D R E R R = = 1 7 1 6 2 0 
 
 A D R E R R :   M O V       R 0 , 4 2 ( S P )           ; 7 7 6   !>E@0=8<  R 0 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 B I T       # 2 0 0 0 , 4 0 ( S P )     ; 7 7 4   H81:0  1K;0? 
 
                 B N E       C O N T 3 4                 ; A;8  =5B  - 
 
                 C A L L     B I T H D R                 ;       =0?5G0B05<  703>;>2>:
 
 ; C O N T 3 4 = = 1 7 1 6 4 6 
 
 C O N T 3 4 :   B I S       # 2 0 0 0 , 4 2 ( S P )     ; 7 7 4   #AB0=>28<  ?@87=0:  >H81:8
 
 
 
 ; 5B:C  C O N T 3 4   A;54>20;>  1K  ?5@5=5AB8  =0  A;54CNICN  :><0=4C,   B. :. 
 
 ; C?@02;5=85  =0  =55  ?5@5405BAO  B>;L:>  5A;8  MB>B  18B  C65  CAB0=>2- 
 
 ; ;5=. 
 
 
 
                 M O V       R 1 , R 4                   ; K2545<
 
                 C A L L     O C T A L                   ;       04@5A  >H81:8
 
                 M O V       # 7 2 , R 0 
 
                 E M T       1 6                         ; 2>5B>G85  8
 
                 M O V       # 4 0 , R 0                 ;       ?@>15;  - 
 
                 E M T       1 6                         ;       @0745;8B5;8
 
                 M O V       4 2 ( S P ) , R 4           ; 7 7 6   >AAB0=>28<  R 4 
 
                 C A L L     P R B I T S                 ;  0A?5G0B05<  >H81>G=K5  18BK
 
                 B R         N X T A D 2                 ; 5@5945<  :  >G5@54=>9  ?@>25@:5
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   K2>4  " H0?:8"   A  =><5@0<8  18B>2  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; B I T H D R = = 1 7 1 7 1 0 
 
 B I T H D R :   M O V       # 1 1 , R 2                 ; 0?5G0B05<  1 1   ( 9 4)   ?@>15;>2
 
 ; S O B 3 4 = = 1 7 1 7 1 4 
 
 S O B 3 4 :     M O V       # 4 0 , R 0                 ; >6=>  1K;>  AM:>=><8BL  3   109B0,   70- 
 
                 E M T       1 6                         ; ?8A02  MB8  ?@>15;K  2  " O2=><  2845"   2
 
                 S O B       R 2 , S O B 3 4             ; AB@>:C  B I T S . 
 
                 M O V       # B I T S , R 2             ;  0A?5G0B05<  AB@>:C: 
 
 ; N X B I T 5 = 1 7 1 7 3 0 
 
 N X B I T 5 :   M O V B     ( R 2 ) + , R 0             ;       " 5   4 3 2   1 0 9   8 7 6   4 5 3   2 1 0 " 
 
                 E M T       1 6                         ; ( 2>B  B>;L:>  ?>G5<C  =5  G5@57  E M T   2 0 
 
                 T S T B     ( R 2 )                     ; 8;8  ?>4?@>3@0<<C  P R I N T ? ) 
 
                 B N E       N X B I T 5 
 
                 R E T                                   ; 5@=5<AO  :  =0H8<  10@0=0<
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   4 6   - 
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *    0A?5G0B:0  R 4   2  2845  3@C??  18B>2  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P R B I T S = = 1 7 1 7 4 2 
 
 P R B I T S :   M O V       # 6 , R 5                   ; @C??  1C45B  6 
 
 ; N X B I T 6 = = 1 7 1 7 4 6 
 
 N X B I T 6 :   C L R       R 0                         ; 
 
                 R O L       R 4                         ; !B0@H89  18B  R 4   ?5@5=5A5<
 
                 R O L       R 0                         ;       2  <;04H89  18B  R 0 
 
                 A D D       # 6 0 , R 0                 ;       8  ?>;CG8<  :>4  =C6=>9  F8D@K
 
                 E M T       1 6                         ; 0?5G0B05<  MBC  F8D@C
 
                 D E C       R 5                         ; A5  3@C??K  =0?5G0B0=K? 
 
                 B E Q       E N D 1 6                   ; 0  -   =0  MB><  2A5
 
                 M O V       # 4 0 , R 0                 ; 5B  - 
 
                 E M T       1 6                         ;       >B45;8<  3@C??K  ?@>15;><
 
                 C L R       R 0                         ; =0;>38G=K<  >1@07><
 
                 R O L       R 4                         ;       2K2545<  2   18B0  3@C??K. . . 
 
                 R O L       R 0 
 
                 A D D       # 6 0 , R 0 
 
                 E M T       1 6 
 
                 C L R       R 0 
 
                 R O L       R 4 
 
                 R O L       R 0 
 
                 A D D       # 6 0 , R 0 
 
                 E M T       1 6 
 
                 B R         N X B I T 6                 ;       . . . 8  ?@8ABC?8<  :  B@5BL5<C
 
 ; E N D 1 6 = = 1 7 2 0 2 6 
 
 E N D 1 6 :     R E T                                   ; " 5;>  A45;0=>"   -   A:070;  A;5?>9
 
 
 
 ; >@>G5,   BCB  <>6=>  1K;>  25AL<0  8  25AL<0  A>?B8<878@>20BL. . . 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   @>25@:0  CG0AB:0  #  * 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R A M T S T = = 1 7 2 0 3 0 
 
 R A M T S T :   B I S       # 1 0 0 0 , 4 0 ( S P )     ; 7 7 4   ?   1   ? 
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6   >7L<5<  =0G0;L=K9  04@5A  
 
                 M O V       # 1 2 5 2 5 2 , R 0         ;         0?><=8<  B5AB>2>5  7=0G5=85
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4   >AB0=5<  4;8=C  CG0AB:0
 
                 T S T       R 2                         ;         ;8=0  =C;520O? 
 
                 B N E       S O B 3 5                   ; 5B  -   =0G=5<  @01>BC
 
                 J M P       E N D 1 7                   ; 0  -   =0?@>B82,   70:>=G8<
 
                                                         ; ( >G5<C  =5  ?@>AB>  B E Q   E N D 1 7 ? ) 
 
 ; S O B 3 5 = = 1 7 2 0 6 2 
 
 S O B 3 5 :     C A L L     W R T _ T                   ; 0?8H5<  B5AB>2>5  7=0G5=85
 
                 A D D       # 2 , R 1                   ; 5@5945<  :  A;54CNI5<C  04@5AC, 
 
                 S O B       R 2 , S O B 3 5             ;         ?>:0  =5  70?>;=8<  25AL  CG0AB>:
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4   =>2L  2>7<5<  4;8=C  CG0AB:0
 
                 M O V       R 0 , R 3                   ;         !>E@0=8<  70?8AK205<>5  7=0G5=85
 
 ; S O B 3 6 = = 1 7 2 1 0 2 
 
 S O B 3 6 :     S U B       # 2 , R 1                   ; 5@5945<  :  ?@54K4CI5<C  04@5AC
 
                 C A L L     R E A D _ T                 ;       8  ?@>G8B05<  A  =53>  7=0G5=85
 
                 C M P       R 3 , R 0                   ; =>  A>2?0;>  A  B5<,   GB>  70?8AK20;8? 
 
                 B N E       R A M E R R                 ; 5B  -   7=0G8B,   >H81:0
 
                 S O B       R 2 , S O B 3 6             ; 0  -   :  A;54CNI59  OG59:0. . . 
 
 
 
 
 
                                                           -   4 7   - 
 
 
 
 
 
 ; @>872545<  B>G=>  B0:CN  65  ?@>25@:C,   =0  MB>B  @07  70?8AK20O  G8A- 
 
 ; ;>  5 2 5 2 5 : 
 
 
 
                 M O V       # 5 2 5 2 5 , R 0 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6 
 
                 T S T       R 2 
 
                 B E Q       E N D 1 7 
 
 ; S O B 3 7 = = 1 7 2 1 4 0 
 
 S O B 3 7 :     C A L L     W R T _ T 
 
                 A D D       # 2 , R 1 
 
                 S O B       R 2 , S O B 3 7 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       R 0 , R 3 
 
 ; S O B 3 8 = = 1 7 2 1 6 0 
 
 S O B 3 8 :     S U B       # 2 , R 1 
 
                 C A L L     R E A D _ T 
 
                 C M P       R 3 , R 0 
 
                 B N E       R A M E R R 
 
                 S O B       R 2 , S O B 3 8 
 
 
 
 ; I5  @07,   70?8AK20O  0 . . . 
 
 
 
                 C L R       R 0 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6 
 
 ; S O B 3 9 = = 1 7 2 2 1 0 
 
 S O B 3 9 :     C A L L     W R T _ T 
 
                 A D D       # 2 , R 1 
 
                 S O B       R 2 , S O B 3 9 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       R 0 , R 3 
 
 ; S O B 4 0 = = 1 7 2 2 3 0 
 
 S O B 4 0 :     S U B       # 2 , R 1 
 
                 C A L L     R E A D _ T 
 
                 C M P       R 0 , R 3 
 
                 B N E       R A M E R R 
 
                 S O B       R 2 , S O B 4 0 
 
 
 
 ; ,   =0:>=5F,   1 7 7 7 7 7 : 
 
 
 
                 M O V       # 1 7 7 7 7 7 , R 0 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6 
 
 ; S O B 4 1 = = 1 7 2 2 6 2 
 
 S O B 4 1 :     C A L L     W R T _ T 
 
                 A D D       # 2 , R 1 
 
                 S O B       R 2 , S O B 4 1 
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4 
 
                 M O V       R 0 , R 3 
 
 ; S O B 4 2 = = 1 7 2 3 0 2 
 
 S O B 4 2 :     S U B       # 2 , R 1 
 
                 C A L L     R E A D _ T 
 
                 C M P       R 0 , R 3 
 
                 B N E       R A M E R R 
 
                 S O B       R 2 , S O B 4 2 
 
 
 
 ; A5  65  '"+   >48=0:>2KE  1;>:0  -   MB>  65  A;8H:><. . . 
 
 
 
 
 
                                                           -   4 8   - 
 
 
 
 
 
 ; "5?5@L  2  :064CN  OG59:C  1C45<  70?8AK20BL  55  04@5A  -   MBC  ?@>25@- 
 
 ; :C  ?>2B>@8<  42064K. . . 
 
 
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6   >7L<5<  =0G0;L=K9  04@5A
 
                 C L R       R 4                         ;         @>25@O5<  ?5@2K9  @07
 
                 M O V       2 0 ( S P ) , R 2           ; 7 5 4   ;8=0  ( 2  A;>20E)   B>65  =C6=0
 
 ; S O B 4 3 = = 1 7 2 3 3 2 
 
 S O B 4 3 :     M O V       R 1 , R 0                   ; >  B5:CI5<C  04@5AC
 
                 C A L L     W R T _ T                   ;                               70?8H5<  53>  65
 
                 A D D       # 2 , R 1                   ; 4@5A  C25;8G8<, 
 
                 S O B       R 2 , S O B 4 3             ;       ?>:0  CG0AB>:  =5  70:>=G8BAO
 
 ; N X T E S T = = 1 7 2 3 4 6 
 
 N X T E S T :   M O V       2 0 ( S P ) , R 2           ; 7 5 4   !=>20  2>7L<5<  04@5A
 
                 M O V       2 2 ( S P ) , R 1           ; 7 5 6         8  4;8=C
 
 ; S O B 4 4 = = 1 7 2 3 5 6 
 
 S O B 4 4 :     M O V       R 1 , R 3                   ; 0G5<  MB>?   R 1   =5  8A?>@B8BAO. . . 
 
                 C A L L     R E A D _ T                 ; @>G8B05<  7=0G5=85, 
 
                 A D D       # 2 , R 1                   ;       8  A@07C  65  C25;8G8<  04@5A
 
                 C M P       R 0 , R 3                   ; =0G5=85  A>2?0;>  A  04@5A><? 
 
                 B N E       R A M E R R                 ; 5B  -   >1=0@C65=0  >H81:0. . . 
 
                 S O B       R 2 , S O B 4 4             ; 0  -   ?@>4>;605<  ?@>25@:C
 
                 T S T       R 4                         ; -B>  ?5@2K9  ?@>E>4? 
 
                 B E Q       C O N T 3 5                 ; 0  -   ?@>4>;68<  ( ;CGH5  B N E   =0  R E T ) 
 
 ; E N D 1 7 = = 1 7 2 4 0 2 
 
 E N D 1 7 :     R E T                                   ; 5B  -   ?@>25@:0  70:>=G5=0,   2KE>48<
 
 ; C O N T 3 5 = = 1 7 2 4 0 4 
 
 C O N T 3 5 :   I N C       R 4                         ; #25;8G8<  =><5@  ?@>E>40
 
                 M O V       # 1 7 7 7 7 7 , R 2         ; @30=87C5<  7045@6:C
 
 ; S O B 4 5 = = 1 7 2 4 1 2 
 
 S O B 4 5 :     A S L       R 5                         ; 45AL  <K  =5<=>6:>
 
                 S O B       R 2 , S O B 4 5             ;       " ?>B>@<>78<" . . . 
 
                 B R         N X T E S T                 ; @8ABC?8<  :>  A;54CNI5<C  ?@>E>4C
 
 
 
 ; R A M E R R = = 1 7 2 4 2 0 
 
 R A M E R R :   C M P       R 1 , # 1 0 0 0             ; !B5:  70B@>=CB  ?@>25@:>9? 
 
                 B G E       C L S                       ; 5B  -   701C45<  ?@>  MB>
 
                 M O V       # 4 0 0 , R 2               ; 5@=5<  AB5:  =0  <5AB>  ( 0  ?>G5<C    =5
 
                 M O V       # 7 6 7 7 6 , R 5           ; G5@57  ?>4?@>3@0<<C  R S T S T K ? ) 
 
                 M O V       # 7 3 4 , S P               ; #AB0=>28<  C:070B5;L  AB5:0
 
                                                         ; ( H81:0:   A>1AB25==>  AB5:0  =0    MB><
 
                                                         ; <5AB5  5I5  =5B. . . 
 
                 C L R       R 4                         ;   B>;L:>  B5?5@L
 
 ; S O B 4 6 = = 1 7 2 4 4 4 
 
                 M O V       ( R 5 ) + , ( R 4 ) +       ;       ?5@5=5A5<  AB5:
 
                 S O B       R 2 , S O B 4 6             ;       =0  53>  70:>==K5  04@5A0
 
 ; C L S = = 1 7 2 4 5 0 
 
 C L S :         C L R       R 0 
 
                 E M T       2 2                         ; G8AB8<  A;C651=CN  AB@>:C
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; -:@0=  B>65  >G8AB8<. . . 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  AB@>:C
 
                 M O V       R 1 , R 4                   ; 4@5A  >H81:8
 
                 C A L L     O C T A L                   ;       2K2545<  =0  M:@0=
 
                 M O V       # R A M , R 4               ; >43>B>28<  A>>1I5=85  " (  #" 
 
                 J M P       E R R M S G                 ;       8  2K2545<  53>
 
                 N O P                                   ; -B>  GB>  5I5  B0:>5? ? ? 
 
 
 
 
 
                                                           -   4 9   - 
 
 
 
 
 
                                               * * * * * * * * * * * * * * * * 
 
                                               *   @>25@:0  #  * 
 
                                               * * * * * * * * * * * * * * * * 
 
 
 
 ; R O M T S T = = 1 7 2 5 1 0 
 
 R O M T S T :   C L R       R 0 
 
                 E M T       2 2                         ; G8AB8<  A;C651=CN  AB@>:C
 
                 M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6 
 
                 M O V       # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@52545<  ?0@C  AB@>:
 
                 M O V       # K O N T R , R 4           ; 0?5G0B05<  A>>1I5=8O: 
 
                 C A L L     P R I N T                   ;       " " ," 
 
                 M O V       # R O M , R 4               ;       " #" 
 
                 C A L L     P R I N T 
 
                 M O V       # 4 , R 1                   ; >;6=>  1KBL  4   <>4C;O  #
 
                 M O V       # 6 1 , R 2                 ; C<5@0F8O  =0G8=05BAO  A  1 
 
 ; S O B 4 8 = = 1 7 2 5 6 6 
 
 S O B 4 8 :     M O V       # M O D U L E , R 4         ; 0?5G0B05<: 
 
                 C A L L     P R I N T                   ;       " #," 
 
                 M O V B     R 2 , R 0                   ;       8  F8D@C  - 
 
                 E M T       1 6                         ;                   =><5@  <>4C;O
 
                 M O V       # 1 , R 3 
 
 ; S O B 4 7 = = 1 7 2 6 0 6 
 
 S O B 4 7 :     M O V B     # 4 0 , R 0 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 S O B       R 3 , S O B 4 7             ; 5  45;09B5  <=5  A<5H=>! 
 
                 I N C       R 2                         ; #25;8G8<  =><5@  <>4C;O, 
 
                 S O B       R 1 , S O B 4 8             ;       8  B0:  4   @070. . . 
 
                 M O V B     # 1 2 , R 0 
 
                 E M T       1 6                         ; 5@5945<  =0  =>2CN  AB@>:C
 
                 M O V       # N O R O M , @ # 4         ; A;8  #  >BACBAB2C5B,   ?>  7028A0=8N
 
                 C L R       @ # 6                       ;       1C45<  ?5@5E>48BL  =0  <5B:C  N O R O M 
 
                 M O V       # 1 0 0 0 0 0 , R 1         ; ;O  #  =0  04@5A0E  1 0 0 0 0 0 - 1 1 7 7 7 7 
 
                 C A L L     R O M C R C                 ;       ?>4AG8B05<  :>=B@>;L=CN  AC<<C
 
                 M O V       # 1 2 0 0 0 0 , R 1         ; ">  65  4;O  1 2 0 0 0 0 - 1 3 7 7 7 7 , 
 
                 C A L L     R O M C R C 
 
                 M O V       # 1 4 0 0 0 0 , R 1         ;       1 4 0 0 0 0 - 1 5 7 7 7 7 , 
 
                 C A L L     R O M C R C 
 
                 M O V       # 1 6 0 0 0 0 , R 1         ;       8  1 6 0 0 0 0 - 1 7 7 5 7 7 
 
                 C A L L     R O M C R C 
 
                 M O V       # H L T T R P , @ # 4       ; 5@=5<  =0  <5AB>  AB0@K9  >1@01>BG8:
 
                 C L R       @ # 6 
 
                 M O V       # 6 1 , R 1                 ; 0  MB><  <K  7025@H05<  B5AB  1 , 
 
                 J M P       T E X I T                   ;       >  G5<  A>>1I8<  ?>;L7>20B5;N
 
 
 
 ; ?   2   ? 
 
                 J M P       E N D 1 0                   ; >E>65,   MB0  :><0=40  701;C48;0AL. . . 
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   >4AG5B  :>=B@>;L=>9  AC<<K  #  * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R O M C R C = = 1 7 2 7 3 0 
 
 R O M C R C :   C M P       # 1 6 0 0 0 0 , R 1         ; @>25@O5<  ?>A;54=89  <>4C;L  #? 
 
                 B N E       N O T L S T                 ; 5B  -   4;8=0  >1KG=0O
 
 
 
                                                           -   5 0   - 
 
 
 
 
 
                 M O V       # 7 7 0 0 , R 2             ; =0G5  -   C@565<  4;8=C, 
 
                 B R         C O N T 3 6                 ;       GB>1K  =5  70;57BL  2  @538AB@K
 
 ; N O T L S T = = 1 7 2 7 4 4 
 
 N O T L S T :   M O V       # 1 0 0 0 0 , R 2           ; -B>  -   =>@<0;L=0  4;8=0
 
 ; C O N T 3 6 = = 1 7 2 7 5 0 
 
 C O N T 3 6 :   C L R       R 4                         ; 7=0G0;L=>  :>=B@>;L=0O  AC<<0  -   0 
 
 ; S O B 4 9 = = 1 7 2 7 5 2 
 
 S O B 4 9 :     B I C       # 1 0 4 0 0 0 , 4 0 ( S P )   ; !=8<5<  D;038  70?8A8  8  @568<0  " )" 
 
                 C A L L     E X S T 1                   ; @>872545<  >1<5=  A>  AB5=4><, 
 
                 A D D       # 2 , R 1                   ;       ?>?CB=>  C25;8G820O  04@5A
 
                 A D D       R 0 , R 4                   ; >1028<  ?@>G8B0==>5  7=0G5=85  :  !, 
 
                 A D C       R 4                         ;       =5  701K20O  ?@>  ?5@5=>A, 
 
                 S O B       R 2 , S O B 4 9             ;       8  B0:  4>  :>=F0  <>4C;O  #
 
                 C A L L     O C T A L                   ; K2545<  ?>4AG8B0==CN  !, 
 
                 M O V       # 4 0 , R 0                 ;       >B45;82  55  ?@>15;><
 
                 E M T       1 6                         ;       >B  A;54CNI59
 
                 R E T                                   ; >=B@>;L=0O  AC<<0  =0?5G0B0=0! 
 
 
 
 ; ?   2   ? 
 
                 C A L L     O C T A L                   ;  0A?5G0B05<  7=0G5=85  87  R 4 
 
                 M O V       # 1 , R 3                   ; 
 
 ; S O B 5 0 = = 1 7 3 0 2 2 
 
 S O B 5 0 :     M O V B     # 4 0 , R 0                 ; 
 
                 E M T       1 6                         ; 0?5G0B05<  ?@>15;
 
                 S O B       R 3 , S O B 5 0             ; !<5E  HCB8BL  872>;8B5? ! 
 
                 R E T 
 
 
 
 
 
         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
         *   1@01>B:0  7028A0=8O  ?@8  >1@0I5=88  2  >BACBAB2CNI55  #  * 
 
         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; N O R O M = = 1 7 3 0 3 4 
 
 N O R O M :     M O V B     # 4 0 , R 0                 ; 0?5G0B05<  ?0@C  ?@>15;>2, 
 
                 E M T       1 6                         ;       E>BO  ?>- E>@>H5<C  >=8  4>;6=K
 
                 M O V B     # 4 0 , R 0                 ;       1K;8  1KBL  2:;NG5=K  2  2K2>48<CN
 
                 E M T       1 6                         ;       GCBL  40;LH5  AB@>:C
 
                 M O V       # N A , R 4                 ; K2545<  A>>1I5=85: 
 
                 C A L L     P R I N T                   ;       " ""   ( 2  A<KA;5  #  =5B) 
 
                 M O V       # 3 , R 3                   ; 0?5G0B05<  5I5  3   ?@>15;0, 
 
 ; S O B 5 1 = = 1 7 3 0 6 4 
 
                 M O V B     # 4 0 , R 0                 ;       E>BO  8E  =0AB>OI55  <5AB>  - 
 
                 E M T       1 6                         ;       B>65  2  B>9  65  A0<>9  AB@>:5
 
                 S O B       R 3 , S O B 5 1 
 
                 C M P       ( S P ) + , ( S P ) +       ; !45;05<  284,   GB>  7028A0=8O  =5  1K;>
 
                 C M P       ( S P ) + , R 0             ;       8  E X S T 1   B>65  :0:  1K  =5  2K7K20;8
 
                                                         ; (   ?>G5<C  =5  T S T   ( S P ) +   ? ) 
 
                 R E T                                   ; 5@=5<AO  O:>1K  87  ?/ ?  R O M C R C 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *    0A?5G0B:0  A?8A:0  >H81>G=K8  18B>2  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P R E R R S = = 1 7 3 1 0 2 
 
 P R E R R S :   B I S       # 2 0 0 0 , 4 2 ( S P )     ; 7 7 4   #AB0=>28<  ?@87=0:  >H81:8
 
                 B R         C O N T 3 7                 ;         8  ?@>4>;68<  >1@01>B:C
 
 ; P R E R R 1 = = 1 7 3 1 1 2 
 
 P R E R R 1 :   B I S       # 2 0 0 0 , 4 4 ( S P )     ; 7 7 4   @C30O  B>G:0  2E>40. . . 
 
 
 
                                                           -   5 1   - 
 
 
 
 
 
 ; C O N T 3 7 = = 1 7 3 1 2 0 
 
 C O N T 3 7 :   M O V       # B Y T H D R , R 4         ; 0?5G0B05<  H0?:C: 
 
                 C A L L     P R I N T                   ;       " !". "    . "" 
 
                 M O V       # 2 , R 4                   ; #  =0A  2   109B0, 
 
 ; S O B 5 4 = = 1 7 3 1 3 4 
 
 S O B 5 4 :     M O V       # 1 0 , R 3                 ;       ?>  1 0   ( 8 4)   18B  2  :064><
 
                 C L R       R 2                         ; 0G=5<  A  :@09=53>  A;520  18B0
 
 ; S O B 5 2 = = 1 7 3 1 4 2 
 
 S O B 5 2 :     R O L       R 5                         ; !428=5<  A;>2>  2;52>
 
                 B C S       B I T N O                   ; G5@54=>9  18B  A1>9=K9?   >;>68<! 
 
                 M O V B     # 5 6 , R 0                 ; A5  2  ?>@O4:5  - 
 
                 E M T       1 6                         ;       =0?5G0B05<  B>G:C
 
 ; C O N T 3 8 = = 1 7 3 1 5 4 
 
 C O N T 3 8 :   M O V B     # 4 0 , R 0                 ; !>A54=85  18BK
 
                 E M T       1 6                         ;       @0745;8<  ?@>15;><
 
                 I N C       R 2                         ; @8ABC?8<  :  A;54CNI5<C  18BC
 
                 S O B       R 3 , S O B 5 2             ;   B0:  ?>:0  109B  =5  :>=G8BAO
 
                 M O V       # 1 , R 3 
 
 ; S O B 5 3 = = 1 7 3 1 7 2 
 
 S O B 5 3 :     M O V       # 4 0 , R 0                 ; "5?5@L  ?@>15;><
 
                 E M T       1 6                         ;       =C6=>  @0745;8BL  109BK
 
                 S O B       R 3 , S O B 5 3             ; -BC  E>E<C  <K  C65  2845;8! ! ! 
 
                 S O B       R 4 , S O B 5 4             ;  07;>68<  ?>  18B0<  8  2B>@>9  109B
 
                 R E T                                   ; A5,   3>B>2>! . . 
 
 
 
 ; B I T N O = = 1 7 3 2 0 6 
 
 B I T N O :     M O V       # B I T N U M , R 0         ; 7  AB@>:8  " 8 7 6 5 4 3 2 1 " 
 
                 A D D       R 2 , R 0                   ;       2K15@5<  A8<2>;  A  ?>@O4:>2K<
 
                 M O V B     ( R 0 ) , R 0               ;       =><5@><,   =0E>4OI8<AO  2  R 2 
 
                 E M T       1 6                         ; -B>B  A8<2>;  =0?5G0B05<
 
                 B R         C O N T 3 8                 ; @>4>;68<  ?5G0BL. . . 
 
 
 
 ; CGH5: 
 
 ; 
 
 ;               M O V       # 7 0 , R 0 
 
 ;               S U B       R 2 , R 0 
 
 ;               E M T       1 6 
 
 
 
 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                   *   " "   -   ?5@570?CA:    157  0??0@0B=>3>  A1@>A0  * 
 
                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W _ E X I T = = 1 7 3 2 2 2 
 
 W _ E X I T :   J M P       @ # 1 0 0 0 0 0             ; 5@5405<  C?@02;5=85  <>=8B>@C
 
                                                         ; ( 5@59B8  BC40  A@07C  =5;L7O  1K;>? ) 
 
 
 
 ; ?   2   ? 
 
                 J M P       S T W O R K                 ; I5  >4=0  701;C4H0O  :><0=40. . . 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   "!"  5 .   03=8B>D>=  * 
 
                                           * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T E S T 5 = = 1 7 3 2 3 2 
 
 T E S T 5 :     M O V       # 1 4 , R 0 
 
                 E M T       1 6                         ; G8AB8<  M:@0=
 
                 M O V       # 2 4 , R 1                 ; ;8=0  1;>:0  ?0@0<5B@>2  -   2 4   A;>20
 
 
 
                                                           -   5 2   - 
 
 
 
 
 
                 M O V       # W R T _ M G , R 2         ; ;>:  ?0@0<5B@>2  4;O  70?8A8
 
                 M O V       # 3 2 0 , R 3               ;       ?5@5H;5<  =0  <5AB>, 
 
 ; S O B 5 5 = = 1 7 3 2 5 4 
 
 S O B 5 5 :     M O V       ( R 2 ) + , ( R 3 ) +       ;       A;>2>  70  A;>2><, 
 
                 S O B       R 1 , S O B 5 5             ;       ?>:0  >=  =5  :>=G8BAO
 
                 M O V       @ # M G _ O N , @ # 4 3 0   ; ><0=40  ?CA:0  42830B5;O  
 
                 M O V       @ # M G _ O F F , @ # 4 0 0   ; ><0=40  >AB0=>2:8  42830B5;O  
 
                 M O V       # 6 5 , R 1                 ; -B>  B5AB  5 , 
 
                 M O V       # T A P R C D , R 2         ;       " "$" 
 
                 C A L L     T S T H E A                 ; 0?5G0B05<  703>;>2>:  B5AB0
 
                 M O V       # 4 3 0 , R 1               ; 0?CAB8<
 
                 E M T       3 6                         ;       42830B5;L  <03=8B>D>=0
 
                 M O V       # R E W I N D , R 4         ; 0?5G0B05<  A>>1I5=85: 
 
                 C A L L     P R I N T                   ;       "  ""  "#    '" 
 
                 C A L L     E N T M S G                 ; >4>645<  =060B8O  
 
                 M O V       # P R E S S R , R 4         ; >?@>A8<
 
                 C A L L     P R I N T                   ;       =060BL  :;028HC  " !," 
 
                 M O V       # 4 0 0 , R 1               ; AB0=>28<
 
                 E M T       3 6                         ;       42830B5;L  <03=8B>D>=0
 
                 C A L L     E N T M S G                 ;       8  4>645<AO  =060B8O  
 
                 M O V       # R E C O R D , R 4         ; !>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "  !," 
 
                 M O V       # 2 0 0 0 , R 1             ; "5AB>2K9  <0AA82  A  04@5A0  2 0 0 0 , 
 
                 M O V       # 1 0 0 0 , R 2             ;       ?5@2K5  1 0 0 0   A;>2
 
                 M O V       # 1 2 5 2 5 2 , R 3         ;       70?>;=8<  <0A:>9, 
 
 ; S O B 5 6 = = 1 7 3 4 0 0 
 
 S O B 5 6 :     M O V       R 3 , ( R 1 ) +             ;       A>AB>OI59  87  G5@54CNI8EAO  1 / 0 
 
                 S O B       R 2 , S O B 5 6 
 
                 M O V       # 1 0 0 0 , R 2             ;       A;54CNI85  1 0 0 0   A;>2  - 
 
                 M O V       # 1 7 7 7 7 7 , R 3         ;       4@C3>9  <0A:>9, 
 
 ; S O B 5 7 = = 1 7 3 4 1 4 
 
 S O B 5 7 :     M O V       R 3 , ( R 1 ) +             ;       A>AB>OI59  B>;L:>  87  548=8F
 
                 S O B       R 2 , S O B 5 7 
 
                 M O V       # 3 2 0 , R 1               ; >;CG82H89AO  <0AA82
 
                 E M T       3 6                         ;       70?8H5<  =0  <03=8B>D>=, 
 
                 M O V       # P R E S S O , R 4         ;       8  ?>  >:>=G0=88  70?8A8
 
                 C A L L     P R I N T                   ;       ?>?@>A8<  >AB0=>28BL  53>
 
                 C A L L     E N T M S G                 ; >645<AO  =060B8O  
 
                 M O V       # R E W I N D , R 4         ; !=>20  ?>?@>A8<
 
                 C A L L     P R I N T                   ;       ?5@5<>B0BL  ;5=BC  2  =0G0;>, 
 
                 M O W       # 4 3 0 , R 1               ;       8  4;O  MB>3>
 
                 E M T       3 6                         ;       2:;NG8<  42830B5;L
 
                 C A L L     E N T M S G                 ; >A;5  =060B8O  
 
                 M O V       # P R E S S P , R 4         ;       ?>?@>A8<  ?>;L7>200B5;O
 
                 C A L L     P R I N T                   ;       =060BL  :;028HC  " #!" 
 
                 M O V       # 4 0 0 , R 1               ; B:;NG8<
 
                 E M T       3 6                         ;       42830B5;L  <03=8B>D>=0
 
                 C A L L     E N T M S G                 ; >6402H8AL  =060B8O  , 
 
                 M O V       # R E A D N G , R 4         ;       A>>1I8<: 
 
                 C A L L     P R I N T                   ;       " "  '"" 
 
                 M O V       # 2 4 , R 1                 ; ;8=0  1;>:0  ?0@0<5B@>2  -   2 4   A;>20
 
                 M O V       # R D _ M G , R 2           ; 0  MB>B  @07  -   1;>:  4;O  GB5=8O
 
                 M O V       # 3 2 0 , R 3               ; 5@5=5A5<  =0  <5AB>
 
 ; S O B 5 8 = = 1 7 3 5 3 2 
 
 S O B 5 8 :     M O V       ( R 2 ) + , ( R 3 ) +       ;       >G5@54=>5  A;>2>, 
 
                 S O B       R 1 , S O B 5 8             ;       8  B0:  4>  :>=F0  1;>:0
 
                 M O W       # 3 2 0 , R 1               ; @>872545<
 
                 E M T       3 6                         ;       A>1AB25==>  GB5=85
 
 
 
                                                           -   5 3   - 
 
 
 
 
 
                 M O V       # P R E S S O , R 4         ; >?@>A8<
 
                 C A L L     P R I N T                   ;       =060BL  :;028HC  " !"" 
 
                 M O V       # 3 2 1 , R 1               ; 4@5A,   345  ;568B  :>4  @57C;LB0B0
 
                 M O V B     ( R 1 ) , R 0               ; >7L<5<  MB>B  :>4
 
                 T S T B     R 0                         ; =  =C;52>9? 
 
                                                         ; ( >G5<C  =5  T S T B   @ # 3 2 1 ? ) 
 
                 B N E       C O N T 3 9                 ; 5B  -   7=0G8B,   >H81:0
 
                 M O V       # 6 5 , R 1                 ; 0  -   =0  MB><  B5AB  5 
 
                 J M P       T E X I T                   ;       1;03>?>;CG=>  7025@H5=
 
 ; C O N T 3 9 = = 1 7 3 5 7 6 
 
 C O N T 3 9 :   M O V       # T A P R E C , R 2         ; 0?5G0B05<  A>>1I5=85
 
                 J M P       E R R M S G                 ;       " (  "$"   8  2K945<
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   6840=85  =060B8O  :;028H8  " "   A  ?>4A:07:>9  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; E N T M S G = = 1 7 3 6 0 6 
 
 E N T M S G :   E M T       6                           ; >4>645<  =060B8O  :;028H8
 
                 C M P       # 1 2 , R 0                 ; -B>  1K;0  :;028H0  " " ? 
 
                 B E Q       E N D                       ; 0  -   >B;8G=>,   2KE>48<
 
                 M O V       # P R S S E N , R 4         ; >?@>A8<  ?>;L7>20B5;O
 
                 C A L L     P R I N T                   ;       B0:8  =060BL  " " 
 
                 B R         E N T M S G                 ; @>4>;68<  >6840=85  =060B8O
 
 ; E N D = = 1 7 3 6 3 0 
 
 E N D :         R E T                                   ; 025@H05<  ?>4?@>3@0<<C
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   ><0=4K  A  ?@5D8:A><  " ""   @568<0  $ "!  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S T A B T S = = 1 7 3 6 3 2 
 
 S T A B T S :   . A S C I Z   / 0 1 2 3 4 5 / 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   ><0=4K  A  ?@5D8:A><  " ""   @568<0  # "  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S T A B T D = = 1 7 3 6 4 3 
 
 S T A B T D :   . A S C I Z   / 0 1 2 3 6 7 !/ 
 
 
 
 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                     *   ><0=4K  @568<>2  $ "!,   # "  * 
 
                                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T A B S Y M = = 1 7 3 6 5 4 
 
 T A B S Y M :   . A S C I I   / . : .G , - (/ 
 
                 . A S C I I   < 3 0 > 
 
                 . A S C I Z   /  !%)'&/ 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   5 4   - 
 
 
 
 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                     *   4@5A0  ?>4?@>3@0<<  B5AB>2  4;O  @568<0  + "  * 
 
                     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T A B P P 1 = = 1 7 3 7 0 6 
 
 T A B P P 1 :   . W O R D     S T W O R K , T E S T 1 , T E S T 2 K , T E S T 3         ; 0   1   2   3 
 
                 . W O R D     T E S T 4 , T E S T 5                                     ; 4   5 
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   4@5A0  ?>4?@>3@0<<  4;O  " "" - :><0=4  @568<0  $ "!  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A T A B T S = = 1 7 3 7 2 2 
 
 A T A B T S :   . W O R D     T E S T 0 , T E S T 1 , T E S T 2 , T E S T 3             ; "0   "1   "2   "3 
 
                 . W O R D     T E S T 4 , T E S T 5 , S E T _ T D , S E T _ T K         ; "4   "5   "  "
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   4@5A0  ?>4?@>3@0<<  4;O  " "" - :><0=4  @568<0  # "  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A T A B T D = = 1 7 3 7 4 2 
 
 A T A B T D :   . W O R D     T E S T 0 , T E S T 1 , T E S T 2 , T E S T 3             ; "0   "1   "2   "3 
 
                 . W O R D     T E S T 6 , T E S T 7 , S E T _ T S , S E T _ T K         ; "6   "7   "!  "
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   4@5A0  ?>4?@>3@0<<  4;O  :><0=4  @568<>2  $ "!,   # "  * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; T A B P P 2 = = 1 7 3 7 6 2 
 
 T A B P P 2 :   . W O R D     Z _ R U S , O _ R U S , T C H K , D W T C H               ;     .   : 
 
                 . W O R D     Y U _ R U S , G _ L A T , K _ E X I T , M _ R U S         ; .  G     
 
                 . W O R D     Z P T , M I N U S , S H _ R U S , Z A B O Y               ; /   -   (  !<%
 
                 . W O R D     B _ R U S , I _ R U S , A _ R U S , D _ R U S             ;       
 
                 . W O R D     R _ R U S , S _ R U S , H _ R U S , P _ R U S             ;    !  %  
 
                 . W O R D     L _ R U S , S C H _ R U , C H _ R U S , C _ R U S         ;   )  '  &
 
                 . W O R D     W _ R U S                                                 ; 
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   0A:8  " 153CI59  1 "   4;O  B5AB0  H8=K  * 
 
                             *   C?@02;5=8O  AB5=40    2    @568<5  $ "!  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ;   <0A:0E  ?@>?CI5=K  =570459AB2>20==K5  18BK  @538AB@0. 
 
 
 
 ; R U N 1 T S = = 1 7 4 0 4 4 
 
 R U N 1 T S :   . W O R D     0 0 0 0 0 1 , 0 0 0 0 0 2 , 0 0 0 0 0 0 , 0 0 0 0 1 4 
 
                 . W O R D     0 0 0 0 2 0 , 0 0 0 2 4 0 , 0 0 0 1 0 0 , 0 0 0 0 0 0 
 
                 . W O R D     0 0 0 0 0 0 , 0 0 0 0 0 0 , 0 0 0 0 0 0 , 0 0 0 0 0 0 
 
                 . W O R D     0 1 0 0 0 0 , 0 2 0 0 0 0 , 0 4 0 0 0 0 , 0 0 0 0 0 0 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   5 5   - 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   0A:8  " 153CI53>  0 "   4;O  B5AB0  H8=K  * 
 
                           *   C?@02;5=8O    AB5=40    2    @568<5  $ "!  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R U N 0 T S = = 1 7 4 1 0 4 
 
 R U N 0 T S :   . W O R D     0 7 0 3 7 6 , 0 7 0 3 7 5 , 0 7 0 3 7 7 , 0 7 0 3 6 3 
 
                 . W O R D     0 7 0 3 5 7 , 0 7 0 1 3 7 , 0 7 0 2 7 7 , 0 7 0 3 7 7 
 
                 . W O R D     0 7 0 3 7 7 , 0 7 0 3 7 7 , 0 7 0 3 7 7 , 0 7 0 3 7 7 
 
                 . W O R D     0 6 0 3 7 7 , 0 5 0 3 7 7 , 0 3 0 3 7 7 , 0 7 0 3 7 7 
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   0A:8  " 153CI59  1 "   4;O  B5AB0  H8=K  * 
 
                             *   C?@02;5=8O  AB5=40    2    @568<5  # "  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ;   <0A:0E  ?@>?CI5=K  =570459AB2>20==K5  18BK  @538AB@0  8  ?>AB>O==>
 
 ; CAB0=>2;5=K  18BK  I N I T   8  H A L T . 
 
 
 
 ; R U N 1 T D = = 1 7 4 1 4 4 
 
 R U N 1 T D :   . W O R D     0 4 0 0 0 5 , 0 4 0 0 0 6 , 0 4 0 0 0 4 , 0 4 0 0 1 4 
 
                 . W O R D     0 4 0 0 2 4 , 0 4 0 0 4 4 , 0 4 0 1 0 4 , 0 4 0 0 0 4 
 
                 . W O R D     0 4 0 0 0 4 , 0 4 0 0 0 4 , 0 4 0 0 0 4 , 0 4 0 0 0 4 
 
                 . W O R D     0 5 0 0 0 4 , 0 6 0 0 0 4 , 0 4 0 0 0 4 , 0 4 0 0 0 4 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   0A:8  " 153CI53>  0 "   4;O  B5AB0  H8=K  * 
 
                           *   C?@02;5=8O    AB5=40    2    @568<5  # "  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R U N 0 T D = = 1 7 4 2 0 4 
 
 R U N 0 T D :   . W O R D     0 7 0 3 7 6 , 0 7 0 3 7 5 , 0 7 0 3 7 7 , 0 7 0 3 6 7 
 
                 . W O R D     0 7 0 3 5 7 , 0 7 0 3 3 7 , 0 7 0 2 7 7 , 0 7 0 3 7 7 
 
                 . W O R D     0 7 0 3 7 7 , 0 7 0 3 7 7 , 0 7 0 3 7 7 , 0 7 0 3 7 7 
 
                 . W O R D     0 6 0 3 7 7 , 0 5 0 3 7 7 , 0 7 0 3 7 7 , 0 7 0 3 7 7 
 
 
 
 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 *   >@<0;L=K5  <0A:8  " 153CI59  1 "   * 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R U N 1 S T = = 1 7 4 2 4 4 
 
 R U N 1 S T :   . W O R D     0 0 0 0 0 1 , 0 0 0 0 0 2 , 0 0 0 0 0 4 , 0 0 0 0 1 0 
 
                 . W O R D     0 0 0 0 2 0 , 0 0 0 0 4 0 , 0 0 0 1 0 0 , 0 0 0 2 0 0 
 
                 . W O R D     0 0 0 4 0 0 , 0 0 1 0 0 0 , 0 0 2 0 0 0 , 0 0 4 0 0 0 
 
                 . W O R D     0 1 0 0 0 0 , 0 2 0 0 0 0 , 0 4 0 0 0 0 , 1 0 0 0 0 0 
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   >@<0;L=K5  <0A:8  " 153CI53>  0 "   * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R U N 0 S T = = 1 7 4 3 0 4 
 
 R U N 0 S T :   . W O R D     1 7 7 7 7 6 , 1 7 7 7 7 5 , 1 7 7 7 7 3 , 1 7 7 7 6 7 
 
                 . W O R D     1 7 7 7 5 7 , 1 7 7 7 3 7 , 1 7 7 6 7 7 , 1 7 7 5 7 7 
 
                 . W O R D     1 7 7 3 7 7 , 1 7 6 7 7 7 , 1 7 5 7 7 7 , 1 7 3 7 7 7 
 
                 . W O R D     1 6 7 7 7 7 , 1 5 7 7 7 7 , 1 3 7 7 7 7 , 0 7 7 7 7 7 
 
 
 
                                                           -   5 6   - 
 
 
 
 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 *    07;8G=K5  B5:AB>2K5  A>>1I5=8O  * 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S H D T X T = = 1 7 4 3 4 4 
 
 S H D T X T :   . A S C I Z     /     )/ 
 
 
 
 ; N K _ T X T = = 1 7 4 3 5 1 
 
 N K _ T X T :   . A S C I Z     < 1 2 > /     / 
 
 
 
 ; P W R T X T = = 1 7 4 3 5 7 
 
 P W R T X T :   . A S C I Z     < 1 2 > /     !  "// 
 
 
 
 ; H A N G = = 1 7 4 3 7 7 
 
 H A N G :       . A S C I Z     /     / 
 
 
 
 ; ?   2   ? 
 
                 . A S C I Z     /     o c / 
 
 
 
 ; ?   2   ? 
 
                 . A S C I Z     /              %        " #/ < 1 2 > 
 
 
 
 ; T E S T = = 1 7 4 4 4 5 
 
 T E S T :       . A S C I Z     /       "!"/ 
 
 
 
 ; K O N T R = = 1 7 4 4 5 5 
 
 K O N T R :     . A S C I Z     /     " ,/ 
 
 
 
 ; R A M R O M = = 1 7 4 4 7 0 
 
 R A M R O M :   . A S C I Z     /     #, #/ 
 
 
 
 ; R A M = = 1 7 4 5 0 2 
 
 R A M :         . A S C I Z     /     #/ 
 
 
 
 ; R O M = = 1 7 4 5 1 0 
 
 R O M :         . A S C I Z     /     #/ < 1 2 > 
 
 
 
 ; K E Y B D = = 1 7 4 5 1 7 
 
 K E Y B D :     . A S C I Z     /     "# / < 1 2 > 
 
 
 
 ; I F A C E = = 1 7 4 5 3 5 
 
 I F A C E :     . A S C I Z     /     " $!/ < 1 2 > 
 
 
 
 ; T A P R C D = = 1 7 4 5 5 2 
 
 T A P R C D :   . A S C I Z     /     "$/ < 1 2 > 
 
 
 
 ; T A P R E C = = 1 7 4 5 7 0 
 
 T A P R E C :   . A S C I Z     /     "$/ < 1 2 > 
 
 
 
 ; E N D L S S = = 1 7 4 6 0 7 
 
 E N D L S S :   . A S C I Z     /       ++/ < 1 2 > 
 
 
 
 ; E R R O R = = 1 7 4 6 2 6 
 
 E R R O R :     . A S C I Z     < 1 2 > / (/ 
 
 
 
 ; E X I T S = = 1 7 4 6 3 6 
 
 E X I T S :     . A S C I Z     /      (/ < 1 2 > 
 
 
 
 
 
                                                           -   5 7   - 
 
 
 
 
 
 ; M O D U L E = = 1 7 4 6 5 2 
 
 M O D U L E :   . A S C I Z     / #,/ 
 
 
 
 ; ?   2   ? 
 
                 . A S C I I     / (/ 
 
 
 
 ; N A = = 1 7 4 6 6 7 
 
 N A :           . A S C I Z     / "/ 
 
 
 
 ; ?   2   ? 
 
                 . A S C I Z     /       /    / 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   !>>1I5=8O  "5AB0  5   * 
 
                                           * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R E C O R D = = 1 7 4 7 0 7 
 
 R E C O R D :   . A S C I Z     < 1 2 > / "    !,/ < 1 2 > 
 
 
 
 ; P R E S S R = = 1 7 4 7 2 6 
 
 P R E S S R :   . A S C I I     < 1 2 > / "  (  "$/ 
 
                 . A S C I Z     < 1 2 > / " #!"     " !," / < 1 2 > 
 
 
 
 ; P R E S S O = 1 7 5 0 0 6 
 
 P R E S S O :   . A S C I I     < 1 2 > / "  (#  "$/ 
 
                 . A S C I Z     < 1 2 > / " !"" / < 1 2 > 
 
 
 
 ; R E W I N D = = 1 7 5 0 5 6 
 
 R E W I N D :   . A S C I Z     < 1 2 > /  ""  "#    '/ < 1 2 > 
 
 
 
 ; P R E S S P = = 1 7 5 1 1 3 
 
 P R E S S P :   . A S C I I     < 1 2 > / "  (#  "$/ 
 
                 . A S C I Z     < 1 2 > / " #!" / < 1 2 > 
 
 
 
 ; P R S S E N = = 1 7 5 1 6 0 
 
 P R S S E N :   . A S C I Z     < 1 2 > / "  " " / < 1 2 > 
 
 
 
 ; R E A D N G = = 1 7 5 2 0 1 
 
 R E A D N G :   . A S C I Z     < 1 2 > / "  '"< 1 2 > 
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   "01;8FK  :;028H  4;O  "5AB0  2   * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; C H A R S 1 = = 1 7 5 2 1 7 
 
 C H A R S 1 :   . A S C I I     / ; 1 2 3 4 5 6 7 8 9 0 - / < 1 2 >                     ; ;D028B=>- 
 
                 . A S C I I     / J C U K E N G [ ] Z H : / < 1 2 >                     ;       F8D@>2K5
 
                 . A S C I I     / F Y W A P R O L D V \ . / < 1 2 >                     ;             :;028H8
 
                 . A S C I I     / Q ^ S M I T X B @ , / 
 
                 . B Y T E       5 7 
 
                 . A S C I Z     / _ / 
 
 
 
 ; C H A R S 6 = = 1 7 5 3 0 3 
 
 C H A R S 6 :   . A S C I Z     / + ! " /                                               ;    +   :;028H0
 
 
 
 ; C H A R S 2 = = 1 7 5 3 0 7 
 
 C H A R S 2 :   . A S C I Z     / j c u /                                               ; !"   +   :;028H0
 
 
 
                                                           -   5 8   - 
 
 
 
 
 
 ; C H A R S 3 = = 1 7 5 3 1 3 
 
 C H A R S 3 :   . A S C I Z     / 9FC/                                               ;  #!  +   :;028H0
 
 
 
 ; C H A R S 4 = = 1 7 5 3 1 7 
 
 C H A R S 4 :   . B Y T E       1 2 , 0 3 , 2 5 , 0                                     ; !#  +   :;028H0
 
 
 
 ; C H A R S 5 = = 1 7 5 3 2 3 
 
 C H A R S 5 :   . A S C I Z     / %% %/                                               ;    +   :;028H0
 
 
 
 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                             *   !>>1I5=8O  B5AB>2  153CI8<  18B><  * 
 
                             * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; B Y T H D R = = 1 7 5 3 2 7 
 
 B Y T H D R :   . A S C I Z     < 1 2 > /       !". "                  . "/ < 1 2 > 
 
 
 
 ; R U N 1 = = 1 7 5 3 6 4 
 
 R U N 1 :       . A S C I Z     < 1 2 > / #)/  1 / < 1 2 > 
 
 
 
 ; R U N 0 = = 1 7 5 4 0 0 
 
 R U N 0 :       . A S C I Z     < 1 2 > / #)  0 / < 1 2 > 
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   !>>1I5=8O  "5AB0  2   * 
 
                                           * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; P R E S S = = 1 7 5 4 1 4 
 
 P R E S S :     . A S C I Z     < 1 2 > /   "  / 
 
 
 
 ; K E Y = = 1 7 5 4 2 7 
 
 K E Y :         . A S C I Z     < 1 2 > /   (#, "'#.    # ! / 
 
 
 
 ; L A T Z G L = = 1 7 5 4 6 6 
 
 L A T Z G L :   . A S C I Z     /     " ""     " "     / 
 
 
 
 ; S T R = = 1 7 5 5 1 1 
 
 S T R :         . A S C I Z     /     " !" "     / 
 
 
 
 ; S H I F T = = 1 7 5 5 2 4 
 
 S H I F T :     . A S C I Z     /     "  "     / 
 
 
 
 ; R U S = = 1 7 5 5 3 6 
 
 R U S :         . A S C I Z     /     "  #!"     / 
 
 
 
 ; C H A R S 7 = = 1 7 5 5 5 1 
 
                                                                                         ; !B@5;:8: 
 
 C H A R S 7 :   . B Y T E       3 4 , 3 2 , 3 5 , 1 2                                   ; -       - 
 
                 . B Y T E       1 0 , 2 2 , 3 1 , 1 2                                   ;     -    
 
                 . B Y T E       3 7 , 3 3 , 3 6 , 1 2                                   ; -       - 
 
                 . B Y T E       2 6 , 3 0 , 2 7 , 0                                     ; !       
 
 
 
 ; S U = = 1 7 5 5 7 1 
 
 S U :           . A S C I Z     /     " !#"     / 
 
 
 
 ; A R 2 = = 1 7 5 6 0 3 
 
 A R 2 :         . A S C I Z     /     "  "     / 
 
 
 
 
 
                                                           -   5 9   - 
 
 
 
 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 *    07;8G=K5  B5:AB>2K5  A>>1I5=8O  * 
 
                                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A D R B U S = = 1 7 5 6 1 5 
 
                 . A S C I Z     /     (+   !/ 
 
 
 
 ; D A T B U S = = 1 7 5 6 3 3 
 
                 . A S C I Z     /     (+  +%/ 
 
 
 
 ; L O O P = = 1 7 5 6 5 1 
 
 L O O P :       . A S C I Z     < 1 2 > /     "!"    &/ 
 
 
 
 ; C H A N N = = 1 7 5 6 7 3 
 
 C H A N N :     . A S C I Z     /       !// < 1 2 > 
 
 
 
 ; P R E S S K = = 1 7 5 7 1 2 
 
 P R E S S K :   . A S C I Z     < 1 2 > /   "  (/ < 1 2 > 
 
 
 
 ; R 1 = = 1 7 5 7 3 7 
 
 R 1 :           . A S C I Z     < 1 2 > < 2 3 7 > / P 1 = 1 7 7 6 7 0 / < 2 3 7 > < 1 2 > 
 
 
 
 ; R 2 = = 1 7 5 7 5 5 
 
 R 2 :           . A S C I Z     < 1 2 > < 2 3 7 > / P 2 = 1 7 7 6 7 2 / < 2 3 7 > < 1 2 > 
 
 
 
 ; ?   2   ? 
 
                 . A S C I I     < 1 2 > /    "  "#     / 
 
                 . A S C I Z     < 1 2 > /   "   #!  " / < 1 2 > 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   ;8=K  =0720=89  :;028H  ( 4;O  "5AB0  2 )   * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; L E N S = = 1 7 6 0 4 7 
 
 L E N S :       . B Y T E       6 , 3 , 5 , 5 , 4 , 3 , 4 , 5 , 6 , 2 , 3 , 2 , 4 , 4 , 4 , 3 , 0 
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   !>>1I5=8O  4;O  :><0=4  ',   $  * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; F O U N D = = 1 7 6 0 7 0 
 
 F O U N D :     . A S C I Z     < 1 2 > / +  $+: / 
 
 
 
 ; L O A D E D = = 1 7 6 1 1 0 
 
 L O A D E D :   . A S C I Z     < 1 2 > /  #  $  / 
 
 
 
 ; S T A F T = = 1 7 6 1 3 0 
 
 S T A F T :     . A S C I Z     < 1 2 > / !"  !  $  / 
 
 
 
 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
               *   0720=8O  8  :>4K  C?@02;ONI8E  :;028H  4;O  "5AB0  2   * 
 
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; K E Y S = = 1 7 6 1 5 6 
 
 K E Y S :       . A S C I Z     /  / 
 
                 . A S C I Z     / (/ 
 
 
 
                                                           -   6 0   - 
 
 
 
 
 
                 . A S C I Z     / !#/ 
 
                 . A S C I Z     /  / 
 
                 . A S C I Z     /  $/ 
 
                 . A S C I Z     / / 
 
                 . A S C I Z     / !" / 
 
                 . A S C I Z     / #!"/ 
 
                 . A S C I Z     / ! "/ 
 
                 . A S C I Z     / !/ 
 
                 . A S C I Z     / ! / 
 
                 . A S C I Z     / "/ 
 
                 . A S C I Z     / ! / < 2 7 6 > 
 
                 . A S C I Z     / "/ 
 
                 . A S C I Z     / / 
 
                 . A S C I Z     / "/ 
 
 
 
 ; C O D E S = = 1 7 6 2 7 5 
 
 C O D E S :     . B Y T E       4 0 , 0 , 2 , 4 , 5 , 6 , 7 , 1 5 , 2 0 , 2 3 , 1 4 , 2 4 , 1 3 , 1 , 1 2 , 1 1 , 3 7 7 
 
 
 
 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                         *   !>>1I5=85  " !  !/""   * 
 
                                         * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S I P T X T = = 1 7 6 3 1 6 
 
 S I P T X T :   . A S C I I     / "/!  !/ 
 
 
 
 
 
       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
       *   03>;>2>:  B01;8FK  A>AB>O=8O  H8=K  4;O  F8:;>2  / +  * 
 
       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A D R D A T = = 1 7 6 3 2 6 
 
 A D R D A T :   . A S C I I     /     .                                     .         / < 1 2 > 
 
                 . A S C I I     /     .                                     .       +      / < 1 2 > 
 
                 . A S C I I     /   (.        !- +      . !        !/ < 1 2 > 
 
                 . A S C I I     /   .                                     .         / < 1 2 > 
 
                 . A S C I I     /   .   5 / < 2 3 7 > / 4 3 2 / < 2 3 7 > / 1 0 9 / < 2 3 7 > / 8 7 6 / < 2 3 7 > 
 
                 . A S C I Z     / 5 4 3 / < 2 3 7 > / 2 1 0 / < 2 3 7 > /   .   "      / < 1 2 > 
 
 
 
 
 
         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
         *   03>;>2>:  B01;8FK  A>AB>O=8O  H8=K  4;O  F8:;0    +  * 
 
         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; V E C T O R = = 1 7 6 5 7 1 
 
 V E C T O R :   . A S C I I     /     .                                     .           / < 1 2 > 
 
                 . A S C I I     /   (.             "             . !    "  / < 1 2 > 
 
                 . A S C I I     /   .                                     .        / < 1 2 > 
 
                 . A S C I I     /   .   5 / < 2 3 7 > / 4 3 2 / < 2 3 7 > / 1 0 9 / < 2 3 7 > / 8 7 6 / < 2 3 7 > 
 
                 . A S C I Z     / 5 4 3 / < 2 3 7 > / 2 1 0 / < 2 3 7 > /   .        1 / < 1 2 > 
 
 
 
 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                               *   " -B0;>==K5"   04@5A0  4;O  "5AB0  6   * 
 
                               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A D R S S = = 1 7 6 7 7 0 
 
 A D R S S :     . W O R D       0 0 0 0 0 2 , 0 0 0 0 0 4 , 0 0 0 0 1 0 , 0 0 0 0 2 0 
 
                 . W O R D       0 0 0 0 4 0 , 0 0 0 1 0 0 , 0 0 0 2 0 0 , 0 0 0 4 0 0 
 
 
 
                                                           -   6 1   - 
 
 
 
 
 
                 . W O R D       0 0 1 0 0 0 , 0 0 2 0 0 0 , 0 0 4 0 0 0 , 0 1 0 0 0 0 
 
                 . W O R D       0 2 0 0 0 0 , 0 4 0 0 0 0 , 1 0 0 0 0 0 
 
 
 
 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                   *   (0?:0  B01;8FK  A1>9=KE  18B>2  * 
 
                                   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; B I T S = = 1 7 7 0 2 6 
 
 B I T S :       . A S C I Z     / 5   4 3 2   1 0 9   8 7 6   5 4 3   2 1 0 / < 1 2 > 
 
 
 
 ; B I T N U M = = 1 7 7 0 5 5 
 
 B I T N U M :   . A S C I I     / 8 7 6 5 4 3 2 1 /                                     ; ><5@0  18B>2, 
 
                                                                                         ;     AG8B0O  A;520
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   ><0=4K  A  ?@5D8:A><  " "   @568<0  $ "!  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; S T A B M = = 1 7 7 0 6 5 
 
 S T A B M :     . A S C I Z     / !'$/ 
 
                 . B Y T E       0 
 
 
 
 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                 *   4@5A0  ?>4?@>3@0<<  4;O  " " - :><0=4  @568<0  $ "!  * 
 
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A T A B M = = 1 7 7 0 7 4 
 
 A T A B M :     . W O R D       M S , M P , M Z , M C H , M F 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   >4A:07:8  4;O  " " - :><0=4  @568<0  $ "!  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; A D D R = = 1 7 7 1 0 6 
 
 A D D R :       . A S C I Z     < 1 2 > /    != / 
 
 
 
 ; L E N G T H = = 1 7 7 1 1 7 
 
 L E N G T H :   . A S C I Z     < 1 2 > /   = / 
 
 
 
 ; N A M E = = 1 7 7 1 3 0 
 
 N A M E :       . A S C I Z     < 1 2 > /   /= / 
 
                 . B Y T E       0 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   ;>:  ?0@0<5B@>2  =0  70?8AL  4;O  "5AB0  5   * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; W R T _ M G = = 1 7 7 1 4 0 
 
 W R T _ M G :   . W O R D       2 , 2 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
 
 
 
 
                                                           -   6 2   - 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *   ;>:  ?0@0<5B@>2  =0  GB5=85  4;O  "5AB0  5   * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; R D _ M G = = 1 7 7 2 1 0 
 
 R D _ M G :     . W O R D       3 , 2 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
                 . W O R D       4 0 0 0 , 4 0 0 0 , 4 0 0 0 , 4 0 0 0 
 
 
 
                 . W O R D       4 0 0 0 
 
 
 
 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                           *   ><0=4K  ?CA:0/ >AB0=>20  <03=8B>D>=0  * 
 
                           * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; M G _ O F F = = 1 7 7 7 6 2 
 
 M G _ O F F :   . W O R D       0 
 
 
 
 ; M G _ O N = = 1 7 7 7 6 4 
 
 M G _ O N :     . W O R D       1 
 
 
 
                 . W O R D       1 3 3 7 7 0 
 
                 . W O R D       0 , 0 , 0 , 0 
 
 
 
 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                       *   1<5=  A>>1I5=8O<8  ?>  B5;53@0D=>9  ;8=88  * 
 
                       * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
 ; >- 2848<><C,   >A=>2=K<  =07=0G5=85<  MB>3>  1;>:0    O2;O5BAO  70?>;- 
 
 ; =5=85  >AB02H53>AO  A2>1>4=K<    CG0AB:0  #.   =  A>25@H5==>  =5  8A- 
 
 ; ?>;L7C5BAO  B5AB0<8,   40  8  2>>1I5  2@O4  ;8  :B>  4>304K205BAO  >  53>
 
 ; ACI5AB2>20=88. 
 
 ;   A;CG05,   5A;8  420    A>548=5=K    B5;53@0D=>9    ;8=859  ( :>=B0:BK
 
 ; B 2 ,   B 3   @07J5<0  #) ,   8  =0  >1>8E  70?CI5=0  MB0  ?>4?@>3@0<<0,   ?@>- 
 
 ; 8AE>48B  >1<5=  8=D>@<0F859:   A8<2>;K,   22>48<K5  =0  >4=><  ,   >B>- 
 
 ; 1@060NBAO  =0  M:@0=5  4@C3>3>. 
 
 ; ">G:0  2E>40  -   1 7 7 3 0 0 
 
 
 
                 M O V       P C , R 0                   ; KG8A;8<  04@5A  A2>59  ?>4?@>3@0<<K
 
                 A D D       # 7 6 , R 0                 ;       >1@01>B:8  =060B8O  :;028H8
 
                 M O V       R 0 , @ # 2 6 0             ;       8  ?>4:;NG8<  =0HC  ?/ ?  :  E M T   6 
 
                 M O V       R 0 , @ # 2 6 2             ; #AB0=>28<  :>4    @02=K<  1 5 
 
                 C L R B     @ # 2 5 2                   ; @8  ?@85<5  @538AB@  ;0B8=A:89, 
 
                 C L R B     @ # 2 5 3                   ;       ?@8  ?5@540G5  -   B>65
 
 ; W T _ S Y M = = 1 7 7 3 2 6 
 
 W T _ S Y M :   E M T       4 4                         ; >;CG8<  A8<2>;  A  ;8=88
 
                 C M P B     R 0 , # 7 7                 ; -B>  A;C651=K9  A8<2>;? 
 
                 B L O S     C O N T 4 1                 ; 0  -   >1@01>B05<  53>
 
                 B I S B     @ # 2 5 2 , R 0             ; 5B  -   CAB0=>28<  =C6=K9  @538AB@
 
                 B R         N O L A T                   ;       8  ?@>4>;68<  @01>BC
 
 ; C O N T 4 1 = = 1 7 7 3 4 4 
 
 C O N T 4 1 :   C M P B     R 0 , # 1 6                 ; 5@5:;NG5=85  =0  @CAA:89  @538AB@? 
 
                 B N E       N O R U S 1                 ; 5B  -   ?@>25@8<  4@C3>9  :>4. . . 
 
                 M O V B     # 2 0 0 , @ # 2 5 2         ; "5?5@L  ?@8  ?@85<5  @538AB@  @CAA:89
 
                 B R         N O L A T                   ; @>4>;68<  @01>BC
 
 
 
                                                           -   6 3   - 
 
 
 
 
 
 ; N O R U S 1 = = 1 7 7 3 6 2 
 
 N O R U S 1 :   C M P B     R 0 , # 1 7                 ; 5@5:;NG5=85  =0  ;0B8=A:89  @538AB@? 
 
                 B N E       N O L A T                   ; 5B  -   2K2545<  ?@8H54H89  A8<2>;
 
                 C L R B     @ # 2 5 2                   ; @8  ?@85<5  1C45B  ;0B8=A:89  @538AB@
 
 ; N O L A T = = 1 7 7 3 7 4 
 
 N O L A T :     E M T       1 6                         ; K2545<  ?@8=OBK9  A8<2>;
 
                 B R         W T _ S Y M                 ;       8  ?>945<  640BL  A;54CNI53>
 
 
 
 ; >4?@>3@0<<0  ?5@540G8  A8<2>;0  ?@8  =060B88  :;028H8
 
 
 
                 M O V       # 2 2 0 , @ # 1 7 7 7 1 6   ; 8=8N  -   2  8AE>4=>5  A>AB>O=85! 
 
                 M O V       R 0 , - ( S P )             ; !>E@0=8<  R 0 
 
                 E M T       6                           ;       8  2K2545<  ME>  =0  M:@0=
 
                 C M P B     R 0 , # 2 7 7               ; !8<2>;  -   @CAA:89? 
 
                 B L O S     N O R U S 2                 ; 5B  -   ?>A<>B@8<,   :0:>9  65
 
                 B I C       # 2 0 0 , R 0               ; !1@>A8<  AB0@H89  18B
 
                 C M P B     # 1 6 , @ # 2 5 3           ; @8  ?5@540G5  @538AB@  @CAA:89? 
 
                 B E Q       S E N D 1                   ; 0  -   2>B  8  E>@>H>. . . . 
 
                 M O V B     # 1 6 , @ # 2 5 3           ; 5B  -   CAB0=>28<  @CAA:89
 
                 B R         S E N D 2                   ;       8  A>>1I8<  >1  MB><  4@C3><C  
 
 ; N O R U S 2 = = 1 7 7 4 4 4 
 
 N O R U S 2 :   C M P B     R 0 , # 1 7 7               ; -B>  =5  1C:20  ( :>4K  2 0 0 . . . 2 7 7 ) ? 
 
                 B H I       E N D 1 8                   ; 0  -   ?@>83=>@8@C5<  MB>B  :>4
 
                 C M P B     R 0 , # 7 7                 ; !;C651=K9  A8<2>;? 
 
                 B L O S     S E N D 1                   ; 0  -   ?5@54048<  53>  " :0:  5ABL" 
 
                 C M P B     # 1 7 , @ # 2 5 3           ; @8  ?5@540G5  @538AB@  ;0B8=A:89? 
 
                 B E Q       S E N D 1                   ; 0  -   ?@8ABC?8<  :  ?5@540G5
 
                 M O V B     # 1 7 , @ # 2 5 3           ; 5B  -   CAB0=>28<  ;0B8=A:89
 
 ; S E N D 2 = = 1 7 7 4 7 6 
 
 S E N D 2 :     M O V       R 0 , - ( S P )             ; !>E@0=8<  B5:CI89  :>4
 
                 M O V B     @ # 2 5 3 , R 0             ; 5@54048<  4@C3><C    :><0=4C
 
                 E M T       4 2                         ;       CAB0=>28BL  =C6=K9  @538AB@
 
                 M O V       ( S P ) + , R 0             ; 0:>9  B0<  1K;  A8<2>;? . . 
 
 ; S E N D 1 = = 1 7 7 5 1 0 
 
 S E N D 1 :     E M T       4 2                         ; 5@54048<  A8<2>;  2  ;8=8N
 
 ; E N D 1 8 = = 1 7 7 5 1 2 
 
 E N D 1 8 :     M O V       ( S P ) + , R 0             ; >AAB0=>28<  @538AB@
 
                 R E T                                   ; >?>;=8B5;L=0O  >1@01>B:0  7025@H5=0
 
 
 
 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * 
 
                                           *   @>AB>  ?CAB>5  <5AB>  * 
 
                                           * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
                 . W O R D     0 
 
                 . W O R D     0 , 0 , 0 , 0 
 
                 . W O R D     0 , 0 , 0 , 0 
 
                 . W O R D     0 , 0 , 0 , 0 
 
                 . W O R D     0 , 0 , 0 , 0 
 
                 . W O R D     0 , 0 , 0 , 0 
 
                 . W O R D     0 , 0 , 0 , 1 3 1 6 0     ; >=B@>;L=0O  AC<<0
 
   
 
 
 
                                                     * * * * * * * * * * * * * 
 
                                                     *   &  #  * 
 
                                                     * * * * * * * * * * * * * 
 
 
 
 
 
 
 
 
 
                                                           -   6 4   - 
 
 
 
 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                         *      1 .   ;D028B=K9  A?8A>:  <5B>:  * 
 
                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
   A _ R U S     1 6 4 0 1 4       C O N T 1 6   1 6 4 5 4 2       E N T E R 1   1 6 5 2 4 2       M G _ O N     1 7 7 2 6 4 
 
   A B U S T S   1 7 1 5 0 6       C O N T 1 7   1 6 4 6 2 4       E N T E R 2   1 6 5 4 2 6       M I N U S     1 6 3 7 1 2 
 
   A D D R       1 7 7 1 0 6       C O N T 1 8   1 6 4 6 4 4       E N T E R T   1 6 0 1 0 0       M O D U L E   1 7 4 6 5 2 
 
   A D R B U S   1 7 5 6 1 5       C O N T 1 9   1 6 4 7 5 6       E N T L E N   1 6 5 2 7 0       M O N T K     1 6 0 3 0 6   
 
   A D R D A T   1 7 6 3 2 6       C O N T 2 0   1 6 5 1 0 4       E N T M S G   1 7 3 6 0 6       M O N T S     1 6 0 4 5 0 
 
   A D R E R R   1 7 1 6 2 0       C O N T 2 1   1 6 5 6 6 4       E N T N A M   1 6 5 1 6 0       M P           1 6 5 1 1 0 
 
   A D R S S     1 7 6 7 7 0       C O N T 2 2   1 6 5 7 0 2       E N T O C T   1 6 5 3 0 0       M S           1 6 5 1 0 0 
 
   A L L _ O K   1 6 1 2 7 6       C O N T 2 3   1 6 6 3 2 0       E N T O K     1 6 5 4 4 2       M Z           1 6 5 5 0 0   
 
   A L T T A B   1 6 0 4 6 2       C O N T 2 4   1 6 6 4 0 6       E Q U 1       1 6 7 1 2 6       N A           1 7 4 6 6 7 
 
   A R 2         1 7 5 6 0 3       C O N T 2 5   1 6 6 4 5 0       E Q U 2       1 7 0 2 2 6       N A M E       1 7 7 1 3 0 
 
   A T A B M     1 7 7 0 7 4       C O N T 2 6   1 6 6 4 5 6       E R R M S G   1 6 3 4 0 0       N K _ T X T   1 7 4 3 5 1 
 
   A T A B T D   1 7 3 7 4 2       C O N T 2 7   1 6 7 1 2 2       E R R O R     1 7 4 6 2 6       N O B S 1     1 6 5 2 3 4 
 
   A T A B T S   1 7 3 7 2 2       C O N T 2 8   1 7 0 2 3 4       E R R P W R   1 6 0 7 1 4       N O B S 2     1 6 5 3 5 6 
 
   B _ R U S     1 6 3 4 7 6       C O N T 2 9   1 7 0 3 1 6       E R R S 1     1 6 6 4 6 0       N O C R 1     1 6 7 7 1 2 
 
   B A D N A M   1 6 5 7 7 2       C O N T 3 0   1 7 0 3 6 2       E R R S 2     1 7 1 5 0 0       N O C R 2     1 7 0 2 5 4 
 
   B I T 2       1 6 2 1 4 2       C O N T 3 1   1 7 0 3 6 6       E X I T S     1 7 4 6 3 6       N O D I G     1 6 0 5 4 0 
 
   B I T 3       1 6 2 1 1 0       C O N T 3 2   1 7 0 5 1 4       E X S T 1     1 6 2 6 1 4       N O E R R 1   1 6 5 6 4 4 
 
   B I T H D R   1 7 1 7 1 0       C O N T 3 3   1 7 1 4 7 0       E X S T 2     1 6 3 0 4 2       N O E R R 2   1 6 6 2 1 4 
 
   B I T N O     1 7 3 2 0 6       C O N T 3 4   1 7 1 5 7 0       F I C T       1 6 5 6 7 6       N O I N T     1 6 2 5 4 4 
 
   B I T N U M   1 7 7 0 5 5       C O N T 3 5   1 7 1 6 4 6       F O U N D     1 7 6 0 7 0       N O L A T     1 7 7 3 7 4 
 
   B I T S       1 7 7 0 2 6       C O N T 3 6   1 7 2 4 0 4       G _ L A T     1 6 3 5 6 6       N O P R 1     1 6 1 1 2 0 
 
   B Y T E       1 6 1 2 1 2       C O N T 3 7   1 7 2 7 5 0       H _ R U S     1 6 4 0 5 6       N O P R 2     1 6 1 1 4 0 
 
   B Y T E 1     1 6 3 1 0 4       C O N T 3 8   1 7 3 1 2 0       H A N G       1 7 4 3 7 7       N O P R 3     1 6 1 1 6 4 
 
   B Y T H D R   1 7 5 3 2 7       C O N T 3 9   1 7 3 1 5 4       H B Y T E     1 6 3 5 4 6       N O P R 4     1 6 1 2 0 0 
 
   C _ R U S     1 6 3 6 3 0       C O N T 4 0   1 7 3 5 7 6       H E A D E R   1 6 2 4 6 4       N O P R 5     1 6 1 2 3 0 
 
   C _ S U B     1 6 6 0 0 0       C O N T 4 1   1 7 7 3 4 4       H L T T R P   1 6 0 7 2 2       N O P R 6     1 6 1 3 1 6 
 
   C H _ R U S   1 6 3 5 6 2       D _ R U S     1 6 4 1 3 2       I _ R U S     1 6 3 6 3 4       N O P R 7     1 6 1 3 4 4 
 
   C H A N N     1 7 5 6 7 3       D A T B U S   1 7 5 6 3 3       I F A C E     1 7 4 5 3 5       N O P R 8     1 6 1 4 0 4 
 
   C H A R S 1   1 7 5 2 1 7       D I F F E R   1 6 4 3 2 2       I N S T K     1 7 0 4 3 0       N O P R 9     1 6 1 4 2 2 
 
   C H A R S 2   1 7 5 3 0 7       D I G I T     1 6 5 4 0 6       I N T F L G   1 6 2 2 7 2       N O P R 1 0   1 6 1 4 3 6 
 
   C H A R S 3   1 7 5 3 1 3       D O B S       1 6 5 3 4 0       I N V C M D   1 6 0 6 7 2       N O P R 1 1   1 6 1 4 5 4 
 
   C H A R S 4   1 7 5 3 1 7       D W T C H     1 6 3 4 5 2       J U S T P R   1 6 5 7 4 4       N O P R 1 2   1 6 1 4 7 4 
 
   C H A R S 5   1 7 5 3 2 3       E N D         1 7 3 6 3 0       K _ E X I T   1 6 4 6 6 4       N O P R 1 3   1 6 1 5 7 4 
 
   C H A R S 6   1 7 5 3 0 3       E N D 1       1 6 2 1 6 2       K E Y         1 7 5 4 2 7       N O P R 1 4   1 6 1 6 2 0 
 
   C H A R S 7   1 7 5 5 5 1       E N D 2       1 6 2 7 1 4       K E Y B D     1 7 4 5 1 7       N O P R 1 5   1 6 1 6 3 4 
 
   C L R B U S   1 6 1 3 3 4       E N D 3       1 6 3 1 0 6       K E Y S       1 7 6 1 5 6       N O P R 1 6   1 6 1 6 5 6 
 
   C L S         1 7 2 4 5 0       E N D 4       1 6 3 2 6 0       K O N T R     1 7 4 4 5 5       N O P R 1 7   1 6 1 7 1 6 
 
   C O D E S     1 7 6 2 7 5       E N D 5       1 6 3 3 0 2       L _ R U S     1 6 4 5 1 0       N O P R 1 8   1 6 1 7 3 6 
 
   C O L S       1 6 2 3 6 0       E N D 6       1 6 4 5 7 4       L A T Z G L   1 7 5 4 6 6       N O P R 1 9   1 6 1 7 5 0 
 
   C O N T 1     1 6 0 1 0 2       E N D 7       1 6 4 6 6 0       L B Y T E     1 6 2 6 4 2       N O P R 2 0   1 6 2 0 2 4 
 
   C O N T 2     1 6 0 3 3 6       E N D 8       1 6 7 7 2 2       L E N G T H   1 7 7 1 1 7       N O R D 1     1 6 6 2 7 6 
 
   C O N T 3     1 6 0 3 6 2       E N D 9       1 7 0 1 5 0       L E N S       1 7 6 0 4 7       N O R D 2     1 6 6 3 6 4 
 
   C O N T 4     1 6 0 4 1 4       E N D 1 0     1 7 0 5 3 2       L O A D E D   1 7 6 1 1 0       N O R O M     1 7 3 0 3 4 
 
   C O N T 5     1 6 1 0 0 0       E N D 1 1     1 7 0 7 4 4       L O O P       1 7 5 6 5 1       N O R U S 1   1 7 7 3 6 2 
 
   C O N T 6     1 6 2 7 6 0       E N D 1 2     1 7 1 1 6 0       L O O P 1     1 6 6 1 6 2       N O R U S 2   1 7 7 4 4 4 
 
   C O N T 7     1 6 3 1 4 4       E N D 1 3     1 7 1 4 1 0       L O O P 2     1 6 6 5 2 6       N O S H D     1 6 2 6 7 4 
 
   C O N T 8     1 6 3 1 7 6       E N D 1 4     1 7 1 4 7 6       L O O P 3     1 6 6 7 2 0       N O T D 1     1 6 1 0 1 6 
 
   C O N T 9     1 6 3 4 1 6       E N D 1 5     1 7 1 6 1 6       L O O P 4     1 7 1 1 3 0       N O T D 2     1 6 1 5 1 6 
 
   C O N T 1 0   1 6 3 5 2 4       E N D 1 6     1 7 2 0 2 6       L O O P 5     1 7 1 3 6 2       N O T D 3     1 6 2 6 5 0 
 
   C O N T 1 1   1 6 3 4 4 4       E N D 1 7     1 7 2 4 0 2       M _ R U S     1 6 5 0 2 2       N O T D 4     1 6 3 0 6 6 
 
   C O N T 1 2   1 6 3 5 1 2       E N D 1 8     1 7 7 5 1 2       M A T C H     1 6 5 0 6 4       N O T D 5     1 6 4 0 1 0 
 
   C O N T 1 3   1 6 3 6 5 0       E N D L S S   1 7 4 6 0 7       M C H         1 6 5 5 3 6       N O T D 6     1 6 4 4 3 4 
 
   C O N T 1 4   1 6 3 7 0 4       E N D P R I   1 6 2 2 4 2       M F           1 6 5 1 1 6       N O T D 7     1 6 5 0 3 6 
 
   C O N T 1 5   1 6 4 0 3 0       E N T A D R   1 6 5 2 6 0       M G _ O F F   1 7 7 2 6 2       N O T D 8     1 6 6 3 1 4   
 
 
 
 