M
               S I N C L A I R     R E S E A R C H      L T D .

             *****************************************************





                     ***********        *            *
                             *            *        *
                                            *    *
                          *                   *
                                            *    *
                      *                   *        *
                     ***********        *            *





   ******   ******   ******   *****   *******   *****   *     *  *       *
  *      *  *     *  *       *     *     *      *    *  *     *  * *   * *
    *       *     *  *       *           *      *    *  *     *  *  * *  *
      *     ******   ****    *           *      *****   *     *  *   *   *
  *      *  *        *       *     *     *      *        *   *   *       *
   ******   *        ******   *****      *      *         ***    *       *


       ****************************************************************

              *****    ******   *     *    ******           *******
             *         *        **    *   *      *         *       *
             *         *        * *   *     *                    *
             *  ****   ****     *  *  *       *      ***       **
             *     *   *        *   * *         *                *
             *     *   *        *    **   *      *         *       *
              *****    ******   *     *    ******           *******



                                      


                                        
                                
                ***********************************



        1.  ........................................1

        2.   GENS3

        2.1.   GENS3 ............................2
        2.2.    .................6
        2.3.  .........................................7
        2.4.   ............................8
        2.5.   ..............................8
        2.6.  .....................................9
        2.7.   .........................10
        2.8.    ................12
        2.9.   ...........................13

        3. 

        3.1.    ..........................15
        3.2.   ............................16
        3.2.1.   .............................16
        3.2.2.   .............................17
        3.2.3.   ......................18
        3.2.4.   ........................20
        3.2.5.      .......21
        3.2.6.   .............................21
        3.2.7.    .............23

               APPENDIX   A ...............................25

               APPENDIX   B ...............................26

               APPENDIX   C1 ..............................27

               APPENDIX   C2 ..............................29







                                  -  1  -

          1. 
        ***************

            ,  
          GENS3         ZX
        SPECTRUM       Z80 .   
               
             Z80 . 
              GENS3
               
        ZX SPECTRUM        .

                    
                 GENS3 .

            GENS3     8  ,   
               
             .

                 
        GENS3     .    GENS3
             .

          GENS3         LOAD :

                       LOAD  "GENS3" CODE  xxxxx

          (  - 室  㧪 , ਬ 24064 )

                      :

                        RANDOMIZE  USR  xxxxx

                 
         ,     ( ࠧ
        १ ।饩 ࠡ ) :

                     RANDOMIZE  USR  xxxxx + 56

           ( ࠭ ࠭ ᮧ 䠩 ) :

                     RANDOMIZE  USR  xxxxx + 61

          ,   GENS3    
            .  ,     
        GENS3     24064 ,     
          24120       24125 .

                 :

                         " BUFFER SIDE ? "


                                  -  1  -
                                 -  2  -


            0    9  ( 㬮筨 ਭ 4 .
        1  = 256  ) .    
          (" INCLUDE ")    ( . ࠧ 2.8 
        ⠫樨 ) .   0    
          64   .

                 " BUFFER SIDE ? "   
           " > "  ( .   2    3  ⮩  ) .

             !  GENS3    ,   ,
            ,      " EI ".
          , GENS3    " IR "   .


           2. 
         ****************

           2.1.    GENS3
           $$$$$$$$$$$$$$$$$$$$$$$$

            GENS3 -    , 
               Z80   , 
                  .

              (  ।
            "  "  - .   3 )    
             (" TABLE SIDE ? ") 
           .    
              .  
        GENS3    ,    .  
           .

             !    " INCLUDE " ,
              , .. 
             ,     .

                 
          -    (" OPTIONS ") ,
          ,     :

             1  *      2  *

             2  *    *

             4  *   *

             8  *   *

             32 *  ,   *
                     * .    *


                                  -  2  -
                               -  3  -



          16 ]   (᫨  ࠡ뢠)[
                  ]   .        [
                  ]( LOCATION COUNTER )   [
                  ]ORG   ,        [
                  ]       [
                  ]   .                             [

          :

           36     :   
               
           .

              !     16 ,  
               " END "      .
               ,     , 
                "  " -    
             (஥ ᫮ , 뢮  ࠭ ) -   
                   + 2 .

                 2  室 :

         1   :  訡  ⠢ ⠡ ᨬ .

         2   :      .
                     ( ᫨  ᯮ ० 2 ) .

               ( ਭ )  
          ,      .   
                 
           (. ਫ   ) .     "  " 
                 
             .

                    :

                       " PASS  1  ERRORS : NN " .

                  
            2     .    
             ,      , 
           :

              " * WARNING * LABEL  ABSENT "  ( ⪠  )

              .




                               -  3  -
                                 -  4  -


                (᫨ 
          뫮 饭 롮஬ ० 2 ) .  
             ,      
           4      * L - .

                      :

            000     210100     25    LABEL
                                       LD      HL .1
             1         6        15     21       26

                 ,  
                 
         ORG , EQU    ENT  (m. ࠧ  2.6 ) -    
                 .

                   , 
              ,  
            * D +  (m. ࠧ  2.8 ) .

           ( 樨  6 ,   8  ᨬ  ,
         ..   4   )      ,
            (.   GENS3 " * C ").

                -      1  
            32767   .

           21 - 26       6  
           ,     .

           2        
          -       40   ,
              
              .

                -   
             21 - 24 ,    -  ,
               .

                
          ,    ZX SPECTRUM . GENS3    
          ,         -
              ROM  ZX SPECTRUM .

           *       
              -  
            9       , 
                
          (. ࠧ  2.8 ) .



                                 -  4  -
                                 -  5  -


              
          .        3 - 
           GENS3 .      .

               , 
            ,    
            -  ,    .
               
           .

            " START OF GENS3 + 51 ( #33 ) "  
            ( 5  㬮砭 )   
               .  
            " 0 " ,    (  稨
         ਭ  ਭ )      ( < 256 )
            .

             " START OF GENS3 + 52 ( #34 ) "  
          (稭  1 ) ,     
           -  .

             " START OF GENS3 + 53 ( # 35 ) "  ,
                
              1    .

          :   ,     
             20   (..  砫
          ⮪ )      
             1      .  ,
             GENS3  C  #5E00 ( 24064 筮 ) .
              :

            POKE  24115 , 20 : POKE  24116 , 1 : POKE  24117 , 34

         (    ஡  砫  ᫥饩
         ࠭ ப ) .

            ,   
           *  ( ਬ ⠢ ப ᥬ
         ᯮ  ⨭ ,  室 ) .

                
            CAPS SHIFT    SPACE , 
           "  "        
             .

                

           * ERROR  10 * (. ਫ   )   " BAD ORG "



                                 -  5  -
                                   -  6  -


                      :

                       " PASS 2  ERRORS : NN "

              
         ( .  ) .    :

                 " TABLE USED : xxxxx FROM  "

              
             .
          ,    ENT    
           :

                    " EXECUTES : NNNNN "

               . 
            ,     " R " .
           ,    ,   
               :

                    " EXECUTES : NNNNN "

           ,      , 
                 .
           ,     , 
             :

           POKE " START OF GENS3 + 50 "  ( 室 祭 )

                   2 .
              .


            2.2.   

            ,   GENS3 , 
            ,     :

         LABEL      MNEMONIC    OPERAND   COMMENT
         __________________________________________________

         START         LD       HL,LABEL   "PICK UP" LABEL

             ( ⠢塞 ।஬ ) 
          .    : 
                 :





                                   -  6  -
                                 -  7  -


         " ; "   -       ,
                    ..  .

         " * "   -     ,   
                      ( . ࠧ  2.8 ) . 
                        
                     .

        "   "    -   A  ,   .

        "   "    -  ( ஡  ⠡ ) .     -
                       ,   GENS3  
                     ,     
                    ( 祭 ) ,     
                       Z80 .

            -    ,   GENS3
            ( . ࠧ  2.2. ) . 
           ,      
         ,       , 
             "   "   
          Z80 ( c. ਫ  )   
             " / "  
        "   " .      
           ,    
          .      
         ,       .
                
         ,     ,   .


            2.3.  

         -   ,    16    .
               
            ,    ( ।⢮
        ४⨢  EQU . ( Cm. ࠧ  2.7. ) .

          ,    ,   -
          8    ,    
         ,      :

                  LABEL       EQU     #1234
                              LD      A , LABEL

                :

                        * ERRORS   10 *




                                 -  7  -
                                 -  8  -


              
        ( .  ) ,      
          6   .       -
          (. ਫ  ) ,  -
                 .
            ,     :

           0....9 , $     ().........z ()

         !    ........z     
            " [ " , " \ " , " ] " , " _ " ," ^ " .
             :

           LOOP , A _ LONG _  LABEL , L [ 1 ] , L [ 2 ] , B ,
           LDIR ( LDIR   १ࢨ஢ ) , TWO ^ 5


           2.4.  LOCATION COUNTER   ( 稪 ࠧ饭 )

             ,  
                 
           .   ( ᨬ ) 
            ORG  (. ࠧ  2.6. ) .
          " $ "        
          ,  : LD HL , $ + 5  
         ,      HL   , 
        5   ,     .

           2.5.   

              ,    
             ,   
          ,     ( ᫥ ᨣ -
        ᪮ 㯮冷祢)      .
           (⠪   ⠡), -
           (⪠ ⨫   ⮪) 
           EQU .
          ,      
         ,        
             ,    
          .
               8    13
         ,      .
               , 
             ,   ,  
         ,       :

                        * ERRORS  4 *




                                 -  8  -
                                 -  9  -


               , 
              :

                  " * WARNING * SIMBOL ABSENT "

              .
            !    6     
            .       .
             ,  ,
              
         .     ,    ,
               :

                             " TABLE : "  (. ࠧ  2.8. )


            2.6.  

         -    ,    
           ,   .

              =  筠 ⠭ , ਬ  1988 ;

                  =  ⭠筠 ⠭ , ਬ  # 496 ;

                  =  筠 ⠭ , ਬ  %101010 ;

                  =  ᨬ쭠 ⠭ , ਬ  "  " ;

                  =  ⪠ , ਬ  L1234 ;

                  =  ᨬ  $  -  祭 ⥪饣 祭
                     稪 ࠧ饭 .

          -  " + + , " - " , " & " (᪮ AND ) , " @ "
                     (᪮ OR ) , " ! " (᪮ XOR ) , " * "
                     (楫 㬭) ," / " (楫 ) , " ? "
                     (㭪  MOD , A ? B = A - ( A / B ) * B ) .

         : ᨬ  " # "  ᯮ  祭
                     ⭠筮 ᫠ , " % "  - 筮 ᫠
                     "  "  -  ᨬ ⠭ .

            GENS3       
           ( ..    65536 ) .  ,
         , 70016    4480 ,   # 524    # 24 .

         !     , ..
               .



                                 -  9  -
                                 -  10  -


             ,   ,  
           ,     .
         : LD  HL , ( LOC + 5 )    
        HL     ,   
            LOC + 5    LOC + 6 .
           Z80  (ਬ , JR    DJNZ ) 
              
         . GENS3     
        (祭 LOCATION COUNTER ᫥饩 樨  祭
        ࠦ   ࠭ ⥪饩 樨 ) .  
                - 127  + 127
                  
         .       
         : $ + < ᬥ饭 > ,    
           - 126  + 129 .

                    :
               **********************************

           #5000 - LABEL

           %1001101 !%1011     ------->  %1000110

           #3456    ?#1000     ------->  #456

           4 + 5 * 3 - 8       ------->  19

           $ - LABEL + 8       ------->

           2347 / 7 - 1          ------->  334

           " A " + 128

           " Y " - " ; " + 7

           ( 5 * LABEL - %1000 & %1111 )

           17@ %1000


            !       
            ,     .

              
        32767 ,     " * ERRORS * 14 " .
              
           2 ,    , .. 60000 = - 5536
        ( 60000 - 65536 ) .




                                 -  10  -
                                 -  11  -


               2.7.   

        GENS3     , 
          .     
          Z80      
        ..       ,  
              
          .

            ORG < ࠦ >

             ( LOCATION
        COUNTER ) .      2   /   16 ,   -
            ORG     
          ,     
        " BAD ORG "     (. ࠧ 2.0. 
        ⠫樨 ⢨ ० 2    16  ᯮ짮 ORG ) .

            EQU < ࠦ >

            .  
            .    
         ,     .

            DEFB < ࠦ > , < ࠦ > ........

             8   .  
             . LJCATION
        COUNTER   1.    .

            DEFW < ࠦ > , < ࠦ > ........

         ( 2  )     
         . LOCATION COUNTER    2 .  
            ,    .
            .

            DEFS < ࠦ >

          LOCATION COUNTER     -  -
             ,  
         .

            DEFV < ப >

          N     ASCII -   . N  
           1    255 ,     
          .




                                 -  11  -
                                 -  12  -


               
              ASCII -   ,
           .   "   "
        ( END - OF - LINE )    .

            ENT < ࠦ >
          *********************

            
           .    
        " R " (.  3 ) .
           ENT      .


            2.8.    
          ***************************************


             
            ,     
         .       :

                   " IF " , " ELSE " , " END "

             IF < ࠦ >
           ********************

             ,  
           ,      ELSE    END .

             ELSE
           ********

          "  "    "  "  ,
           "  "  O .

             END
           *******

            , .. "  "  -
         ,    "  "   IF  ELSE .

              :
           ****************

               
          ,   
               .




                                 -  12  -
                                 -  13  -


              2.9.     


          ,     ,   
                .
             .

         *             ,
                      .

         *   < ப >

                  ,    ,  
                     " *  "    
                    .   " *  " 
                   " *  " .

          * S          ( 
                   ਭ ) .    
                    .

        * L -       ,     .

        * L +       ,     .

        * D +        LOCATION COUNTER   
                     . 
                      .

        * D -       LOCATION COUNTER   -
                    .

        *  -           ,
                       9   .
                     
                    32 -      .

        *  +         , 
                    2.0. .

        * F <  䠩 >

                     ,  
                  ,     . 
                     ( 1   1 ࠧ )  
                    ,   
                   , ..     
                    .




                                 -  13  -
				 -  14  -



                   ( 10 ᨬ ) ,   -
                  ,      F . 
                  ,     
                   .
                     ,    , 
                        
                 *  (   *  ) , ..    
                     , 
                        -
                      .
                     ,    (  ⠪
                  । *  ) ,    -
                     GENS3      :

                    "  BUFFER SIDE ?  "   ( .   1 )

                        256 ,  
                    (祭  㬮砭 ࠢ 4256  ).
                          -
                   : /    -
                     .  ,    
                    * F     ,
                  ,  ,    
                      , 
                 GENS3      .

       !   ,    
                 * F ,       
                    .

            * F ,    :

                      "  START THE TAPE  "

                , ..  
             .  
                
         .       ,   -
         :  "  FOUND  <  䠩 >  "     .
           :  " USING  <  䠩 > "   
             .
                .

         ,   * F ,    
         .
             ""     ,
         ,       , 
         .




                                 -  14  -
                                 -  15  -



                  3 .          
                *************************

           3.1.   

            ,      GENS3 ,  ,
               
        Z80 ,       -
          .
                ,   -
                
          :
                ,   
               ,    
             (  ENTER ) ,    
                 (  ⮬ ᫥  ⢥ -
            )    "  " .    
                 
            .
             ,    -
           "  " 9 ( I - .  )  
            ,    
           .

         :       .
                          
                       ,     .

                   
              :

            ENTER  :  " ENTER "  .
                 : "CAPS SHIFT"    " 1 "  ६  
                      ᯮ  ४饭  .
                 :  " DELETE " .
            CI     : "CAPS SHIFT"    " 8 " . த  ᫥饩
                     樨 ⠡樨 .
                 : "CAPS SHIFT"    " 5 " . ࠭  ப .

                 GENS3   
           :

              " COPYRIGTH  HISOFT  1983 .  ALL  RIGHTS  RESERVED . "

              ,  
         :

                    N1 , N2 , S1 , S2   ENTER



                                 -  15  -
                                 -  16  -



                C  :   ( .   3.2. )
                N1 :     1 - 32767
                N2 :     1 - 32767
                S1 :     20  
                S2 :     20  

               (  
    , .   S ) ,   ,   
     .        , 
      (  , DELETE )      N1
     N2 .         ,
           .

           N1 , N2 = 10 , A  S1 , S2 -   .  
      ,  :

              F1 - , 100 , HELLO

         : " PARDON ? " .   
      : ( F1 , 10 , HELLO ) .    
      ,    S1    20   .    S2
      .       
     .       
    ( CI , CX    .. ) .

        E     .  ,
       ,   . " ( " , " ) " .


              3.2.    
           ******************************

         3.2.1.    
       ---------------------------

                  ,
        ,      I .
            ENTER ( ..   ) , 
            ,    .

               :
    (     ) , CI (      -
    )    (     ) ,   DELETE (  ) 
       (      ) .

             GENS3   ,    , 
        -            
          .



                                 -  16  -
                                 -  17  -


                     ,
         ,       RAM ,
         :

                      " BAD MEMORY "

           ,        
         (    )      .


               :
           *********************

       I N ,  :        
                        .
                 ( N -  ࢮ  ப ,  - 蠣 㬥樨 ) .

                 ,    
         .     
        , ENTER     .
                     .
               ,   
            ENTER .
                  32767 ,
          .
                  (  ᫮ ,
          64 ᨬ - ࠧ  ) ,  
                 -
            .


            3.2.2.   

                    " L " .

       L  N , M -         
                      N       .  
                  N = 1 , M = 32767 ( .. 祭  㬮砭  
                   ।饩  ).

            " L "   .
                 .

         ,     .

                   "  " -
             .  
      ( ᫨  ப      ⨣ ) .   
             ,    
        .


                                 -  17  -
                                 -  18  -


           K  N  -       
                      (  ᠭ  ) ,   N  ( N
                       256 )    .  ,
                      "   5 " ,   ,   -
                      " L "   5     .


                    3.2.3   


                ,   ,  -
               .   GENS3   
              ,    .

          D ( N , M )   ப  N      㤠  ⥪⮢ 䠩 .
        **************  ᫨  N > M ,  㪠   㬥⮢ ,
                          믮 ,  ।頥 砩
                        訡 .  ப  㤠 , 㪠 N > M ,
                        ⮣    ,    ப  
                        ENTER .

          M   N , M     뢠  ⥪ ப  ஬  M  ⥪⮬
        *************    ப  N . ப  ஬  N  ⠭  -
                        ⢮ . ᫨  N   ,  ⢨
                         ।ਭ . ᯮ짮   M   -
                         ७㬥 ⥪⮢ 䠩 , 稭 
                        ப  N ( 99999  ⢮  䠩 ) 
                        蠣   . ᫨   ७㬥樨  ப
                        ॢ 祭 32767 , 㬥 ⠭ 
                         .

   F  N , M , F , S        ப  ࠬ N < X < M ஢ -
 ********************     稥 ࠧ  F . ᫨  㤥  ,
                        뢮  ப ⥪⮢ 䠩  ।
                        ३  ०  EDIT  ( .  ) .  ,
                        ᯮ   ० ,  த
                         ᫥饣 宦  㪠 
                        ஢ ப 宦  ந  ப
                        F   ப  S   த  ( .  
                        ஡ ) . ࠬ  F   
                        ࠭ 㣮  ,  ⠪ 砥 筮
                          F  樠樨 ᪠ ( . ਬ
                         ࠧ 3.3. ) .

         E   N           ப  ஬  N . ᫨ ⠪ ப
      ***********         ,  ⢨  ।ਭ .
                         ⨢ 砥 ப      -
                        ࠦ  ࠭   ᢮ ஬ . 
                        㡫  ⮡ࠦ ப  ந室
                        室  ०  EDIT .


                                 -  18  -
                                 -  19  -


                    , 
           .      
             .    
            ,      
              :


        "   " (  ) -   㪠⥫ ⥪  ᫥騩 ᨬ .
      *******************    । ப ᨬ ᤢ  .

          ( DELETE )   -   㪠⥫ ⥪  ।騩 ᨬ .
      *******************    । ப ᨬ ᤢ  .

           ENTER         -   ।஢ ப .
      *******************

        CI (.㭪) -  饭 㪠⥫ ⥪ ।  ᫥襩
      *******************   樨 ⠡樨 .

          Q   ( QUIT )   -  ⬥ ।஢ ப ,..  -
      *******************       ⠢   ०  .

        R   ( RELOAD )   -  ॣ㧨  ०  EDIT  ⥪ ,..
     ********************   ⬥   , ᤥ  ப 
                            ⠭   ।஢  室
                             .

        L   ( LIST )     -  뢥 ⮪ ।㥬 ப  ।
     ********************   㪠⥫ . ࠭ ० ।஢ .
                            ⥫ ᯮ  砫 ப .

           ( KILL )     -   ᨬ  ⥪饩 樨 㪠⥫ .
     ********************

             Z           -  ࠥ ⮪ ப , 稭  樨
     ********************   㪠⥫ .

        F    ( FIN )     -   ࠭  ࠧ   ப
     ********************   ணࠬ ( .  । " F " ) .
                            E᫨  ⥪饩 ப   宦
                            ࠧ ,  ⮬᪨ 뢠 
                            ⥪⮢ 䠩 . ᫨   ப ᪠
                             " F " 室 宦 㪠
                            ࠧ ,  ப , ᮤঠ ࠧ ,
                            ⠭ ⥪饩  ०  EDIT . ⥫
                            ⥪ ᥣ ᯮ  砫 
                            ࠧ .





                                 -  19  -
                                 -  20  -


       S  ( SUBSTITUTE )  -    ࠧ  ன 㬥
     *********************    " F "   ᫥饥 宦
                             ࠧ - 믮  " F " ( .
                             ਬ ࠧ 3.3. ) .

       I  ( INSERT )      -  ⠢ ᨬ  ⥪  㪠⥫ .
     *********************    ⠥  ० ⠢ ,  
                             㤥  ENTER , ᫥ 祣 ந
                               ० EDIT  㪠⥫ , ᯮ -
                               ᫥ ⠢ ᨬ .
                             ᯮ CH ( DELETE )  ⮬ ० , 
                             㤠   ᨬ ᫥  㪠⥫ , 
                             CI (ࠢ 㭪) த 㪠⥫ 
                             ᫥  ⠡樨 , ⠢  
                             ஡ .

                         -   㪠⥫   ப   -
     *********************    室  ०  " I " .

             C            -   ० ,   ᨬ 
     *********************   ⥪饩 樨 㪠⥫  ⥬ ᤢ 
                             ᫥騩 ᨬ . 室  ⮣ ० -
                             ⨥  ENTER ,  頥   EDIT  c
                             㪠⥫ , ᯮ  ᫥  -
                              ᨬ .    ⮬ ० 
                             ᤢ 㪠⥫     . CI 
                               䥪 .


               3.2.4.     

                      
              "  " , " G "  "  " .

       P    N , M ,S   -   뢠 ப  ࠬ   -
     *****************    N < X < M   , 㪠 ࠬ஬ S .
                          ,   㬥   ⠭
                         ।饩  . । 믮 
                         㡥, 䮭 祭  ० "" .
                          ਬ   , ᫨  ᫥
                         ⠯  㤥 ""  䠩 - ᯮ
                           * F  ᥬ .  ⮣ ।祭
                           "  " .

         G   ,, S     -    ந  䠩    S .
    ******************    䠩  , ଠ   뢠
                           ⥪饣 ⥪ . ⮬  䠩 , 
                          㦠  ⨢訩 䠩 .
                         ᫥    G   ᮮ饭 :



                                 -  20  -
                                 -  21  -


                                " START  TAPE  ....... "

                        䮭 "" .
                      ᫨ 䠩  ,  " USING  <  䠩 > ",
                        㤥 த .  㧪   , 䠩
                      뢠   饣 ⥪⮢ 䠩
                      ( ᫨   )  믮 ७㬥 ᥣ
                        ப ࠢ  1 ,  蠣  1 .

     T  N , M , S  -    뢠 ப  ࠬ  
   ****************   N < X < M    , 㪠 ࠬ஬  S  
                      ଠ , ਣ  "祭"  ᫥饩 ⠤
                       ᯮ짮  ᥬ  * F ( . ࠧ
                      2.8. ) .    믮 ࠧ ᫥ 
                      ENTER , ⮬ ।⥫쭮  㡥 , 
                      䮭 ⮢   .


          3.2.5.      
       **************************************************

          :    믮 ᥬ஢ , 稭  ࢮ ப
               ⥪⮢ 䠩 ( .   2 ) .

       R   :   ᫨ ணࠬ 뫠 ᥬ஢  訡   㪠
               ᯮ⥫  (   ४⨢  ENT ) , ⮣
                   ᯮ짮  ᪠ ணࠬ
                믮 . ணࠬ  ᯮ짮   GENS3
               RET ( C9 )    । ᫥ 믮 
               ᫮ ,  ⥪ 室  ⮬  ﭨ ,   
               ᪠ ணࠬ .

      !     ४⨢  ENT   뢠 ﭨ  ०
                    ᥬ஢  16 .


          3.2.6.    
       *****************************

          :    頥 ࠢ 樮 ⥬ . 
               १᪠ ᥬ ᯮ  " 宫 " , 
               " ⥯ "  ( .   1 ) .

          :     ८ࠧ ⥪⮢ 䠩 , ᮧ
               GENS1   ଠ  GENS3 .  ⮣  䠩  
                 " G "   ८ࠧ      "  " ,
                ⥬ ᭮    .

      !       ॡ 㬥⮢   
                    ⢥ ६  ८ࠧ .


                                 -  21  -
                                 -  22  -


       S  ,, D  :      ,  
                        .
                        
                    .

        !       ( 
                      " S " )     ,    
                    .

        !                .

          V     :       N1 , N2 ,   S1 , S2 ,
                        .  
                          
                         .

      W  N , M  :           N
                      .   N          ,  
                     .    
                       "  "    . 
                        .

               :         
                       .     
                        BASIC    
                      ,   
                    . GENS3    ,    
                      ,    "  "   
                    ,     " TEXTEND " , 
                       " START OF GENS3 + 54 " .  ,
                      ,    (  ,
                       MONS3 ) ,   
                        ,    "  " ,
                        " TEXTEND "  
                      .  ,  ,   
                           ( 
                        )   #902 .
                      ,  GENS3     24064 ,
                         BASIC :

                            POKE  24064 + 54 , 2 ( #02 )
                            POKE  24064 + 55 , 154 ( #9A )

                          GENS3   :

                            RANDOMIZE   USR  24125

                          
                    .



                                 -  22  -
                                 -  23  -



             3.2.7.    
          ********************************************


           ( ᯮ : " I  10 , 10 " ) :

      10   ; DII  RANDOM NUMBERS
      20
      30   ; INPUT : HL CONTAIN PREVIOS RANDOM NUMBERS OF SEED
      40   ; OUTPUT : HL CONTAIN NEW RANDON NUMBER
      50
      60   RANDOMS   PUSH  AF         ; SAVE REGISTERS
      70   PUSH  BC
      80             PUSH  HL
      90             ADD   HL , HL    ;  * 2
     100             ADD   HL , HL    ;  * 4
     110             ADD   HL , HL    ;  * 8
     120             ADD   HL , HL    ;  * 16
     130             ADD   HL , HL    ;  * 32
     140             ADD   HL , HL    ;  * 64
     150             HIH   BC         ; OLD RANDOM NUMBER
     160             ADD   HL , DE
     170             LD    DE , 41
     180             ADD   HL , DE
     190             POP   BC         ; RESTORE REGISTERS
     200             POP   AF
     210             REV


               :

      40   : " RANDON " ,   " RANDOM " ;

      70   : " PUSH  BC " 稭   ⮪ ;

     150   :  " PIP "    " POP " ;

     160   : 㦤  ਨ (   訡 ,  ⨫ ) ;

     210   :  " REV "   " RET " .


                  :

     145             ADD    HL , HL

                 160 - 180     " DE "
                 "  " .



                                 -  23  -
                                 -  24  -



      ,     ,    :

      F40 , 40 , RANDON , RANDOM " ENTER "

       " S "   E70 " ENTER "

      I  ( ० ⠢ ) ( 7 ஡ ) " ENTER " , " ENTER "

      I   142 , 2 " ENTER "

          142     ADD     HL , HL         ;  * 128

          144     ADD     HL , HL         ;  * 256

      F150 , 150 , PIP , POP " ENTER " ,

       " S "   E160 " ENTER "

       "  " ; * 256 + 41 " ENTER " , " ENTER ";

      F160 , 180 , DE , DC " ENTER "

        3   " S "  E210 " ENTER "

      " CI " , " CI " " C " (  ० )

      T  " ENTER " , " ENTER "

      N 10 , 10   ७㬥 ⥪



      ******************************************************************
      *                                                                *
      *    !       *
      *                                                                *
      *                .    *
      *                                                                *
      ******************************************************************


      *****************************************************************
      *                                                               *
      *                                  ,  *
      *                                                               *
      *                                         *
      *                                                               *
      *****************************************************************



                                 -  24  -
                                 -  25  -


                    A P P E N D I X     A
                 ***************************


                                   
       ------------------------------------------------------

   * ERORRS * 1   :      

   * ERRORS * 2   :    

   * ERRORS * 3   :   

   * ERRORS * 4   :    

   * ERRORS * 5   :        

   * ERRORS * 6   :         

   * ERRORS * 7   :       

   * ERRORS * 8   :    

   * ERRORS * 9   :       

   * ERRORS * 10  :      

   * ERRORS * 11  :     JP ( IX + D )    JP ( IY + D )

   * ERRORS * 12  :     

   * ERRORS * 13  :     ,..    EQU
                       

   * ERRORS * 14  :     

   * ERRORS * 15  :     

   BAD MEMORI !   :         ,
                             

   BAD ORG !      :        ORG  
                         GENS3 ,    
                      .    .

   OUT OF TABLE SPACE  :        
                           ,     .
                              .




                                 -  25  -
                                 -  26  -


                     A P P E N D I X    B
                  **************************


        ,  ,     GENS3
  ------------------------------------------------------------------------

 ******************************************************************************
 *                                                                            *
 *  !         *
 *              ,  ,    :                  *
 *                                                                            *
 *                                  !!!!!!!!!!!!!!                 *
 *                                                                            *
 ******************************************************************************


              1 .  
          ************************************

                 D    E    H    L    J    R    S    AF    AF'    BC

    DE   HL   IX   IY   SP   NC    Z   NZ    M    PE   PO


              B2 .     Z80
          **************************************************

     ADC    ADD    AND    BIT    CALL    CCF    CP     CPD     CPDR
     CPI    CPIR   CPL    DAA    DEC     DI     DJNZ   EI      EX
     EXX    HALT   IM     IN     INC     IND    INDR   INI     INIR
     JP     IR     LD     LDD    LDDR    LDI    LDIR   NEG     NOP
     OTDR   OTIR   OUT    OUTD   OOT      I     POP    PUSH    REG
     RET    RETI   REIN   RL     RLA     RLC    RLCA   RLD     RR
     RRA    RRC    RRCA   RRD    RST     SBC    SCF    SET     SLA
     SPA    SRL    SUB    XOR


              B3 .  
           *******************************

          DEFB     DEFM     DEFS    DEFW    ELSE    END     ENT
          EQU       IF      ORG


              B4 .  
           *****************************

         * D     * E      * H     * L      * S      * C      *F



                                 -  26  -
                                 -  27  -


                     A P P E N D I X    C
                ******************************


                      
                   ------------------

                , 
        .  ,   " ENTER "
          ENTER    .


                        :
                   -------------------

    1 .         , 
           "  "   ,     
          .

    2 .    ,     .

    3 .     ,  
        "  " ,         .

             ------------------------------------
             *     ?     !  *
             ------------------------------------

           GENS3 :  LOAD " " CODE  24064  ;    :
    BUFFER  SIDE ?  ;  :  1 " ENTER " ,    
      256   .   " > "   ,    
             .


                 . 1 .      
             **********************************************

                " I " ,
       " CI " (   )   
      .


    ************************************************************************
    *                                                                      *
    *    !   ,     ,        *
    *                    ,    *
    *                  .                                   *
    *                                                                      *
    ************************************************************************



                                 -  27  -
                                 -  28  -



           I   10 , 10  " ENTER "


        10 ; A  FAST INTEGER MULTIPLY             " ENTER "
        20 ; ROUTINE . MULTIPLIES  HL             " ENTER "
        30 ; BY  DE . RETURN THE RESULT           " ENTER "
        40 ; IN  HL . C  FLAG SET ON AN           " ENTER "
        50 ; OVERFLOW .                           " ENTER "
        60                                        " ENTER "
        70 ; ORG  #7F00                           " ENTER "
        80                                        " ENTER "
        90 ; MULT  OR     A                       " ENTER "
       100         SBC    HL , DE  ; HL > DE ?    " ENTER "
       110         ADD    HL , DE                 " ENTER "
       120         JR     NC , MUL ; YES          " ENTER "
       130         EX     DE , HL                 " ENTER "
       140 ; MUL   OR     D                       " ENTER "
       150         SCF             ; OVERFLOW IF  " ENTER "
       160         RET    NZ       ; DE > 255     " ENTER "
       170         OR     E        ; TIMES 0      " ENTER "
       180         LD     E , D                   " ENTER "
       190         JR     NZ , MU5 ; NO           " ENTER "
       200         EX     DE , HL  ; 0            " ENTER "
       210         RET                            " ENTER "
       220                                        " ENTER "
       230 ;  MAIN ROUTINE .                      " ENTER "
       240                                        " ENTER "
       250   MU2   EX     DE , HL                 " ENTER "
       260         ADD    HK , DE                 " ENTER "
       270         EX     DE , HL                 " ENTER "
       280   MU3   ADD    HL , HL                 " ENTER "
       290         RET    C        ; OVERFLOF     " ENTER "
       300   MU4   RRA                            " ENTER "
       310         JR     NC , MU3                " ENTER "
       320         OR     A                       " ENTER "
       330         JR     NZ , MU2                " ENTER "
       340         ADD    HL , DE                 " ENTER "
       350         RET                            " ENTER "
       360   CC
       > P   10 , 350                             " ENTER "
       >


                 .

              "  "  
        "  " .




                                 -  28  -
                                 -  29  -


               C 2 .                     
          ***************************************************

            ,       , 
         6  (    
        ) .

    >              " ENTER "
    TABLE SIDE :    " ENTER "  (    -   )
    OPTIONS : 6

                    * HISOFT  GENS3  ASSEMBLER *
                      COPYRIGHT  HISOFT  1983
                       ALL  RIGHTS RESERVED
                       PASS 1  ERRORS : 00
                       PASS 2  ERRORS : 00

                    * WARNING *  MU5  ABSENT
                    TABLE  USED  74  FROM  161
                    >

           190    :   MU4    MU5 ,
           :

     > F 190 , 190 , MU5 , MU4
         190      JR     NZ     (     " S " )
     >

          ,     .

             
          .

     > N 300 , 10     (  )                  " ENTER "
     > I 10 , 10                                         " ENTER "

     10 ; THE  MULT  ROUTINE                             " ENTER "
     20 ; TEST  CODES                                    " ENTER "
     30                                                  " ENTER "
     40           LD     HL , 50                         " ENTER "
     50           LD     DE , 20                         " ENTER "
     60           CALL   MULT        ; MULTIPLY          " ENTER "
     70           LD     A , N       ; O / P  RESULT     " ENTER "
     80           CALL   AOUT                            " ENTER "
     90           LD     A , L                           " ENTER "
    100           CALL   AOUT                            " ENTER "
    110           RET                ; RETURN TO EDITOR  " ENTER "
    120                                                  " ENTER "
    130 ; ROUTINE  TO  O / P  A  IN  HEX                 " ENTER "
    140                                                  " ENTER "


                                 -  29  -
                                 -  30  -


     150    AOUT    PUSH    AF                              " ENTER "
     160            RRCA                                    " ENTER "
     170            RRCA                                    " ENTER "
     180            RRCA                                    " ENTER "
     190            RECA                                    " ENTER "
     200            CALL    NIBLE                           " ENTER "
     210            POP     AF                              " ENTER "
     220    NIBLE   AND     %1111                           " ENTER "
     230            ADD     A , #90                         " ENTER "
     240            DAA                                     " ENTER "
     250            ADC     A , #40                         " ENTER "
     260            DAA                                     " ENTER "
     270            LD      IY , #5C3A      ; FOR ROM       " ENTER "
     280            RST     #10             ; ROM CALL      " ENTER "
     290            RET                                     " ENTER "
     300    CC
     >

               
            :

              >                  " ENTER "
              TABLE SIDE :        " ENTER "
              OPTIONS : 6         " ENTER "

             *******************************
             *                             *
             *        C E N S 3    *
             *                             *
             *******************************

             7EAC   190    RECA
             * ERROR * 02  (      )
             PASS 1  ERRORS : 01
             TABLE USED : 88  FROM  210
             >

              -   190   RRCA  
          RECA .     :

             >  E 190            " ENTER "
             190  RECA
             190  C    (    )  " ENTER " , " ENTER "
             >

             ,    4 (   ) .
         .  ,    , 
         ,     
          .   
        ENT :


                                 -  30  -
                                 -  31  -


               > ENT  <  >            " ENTER "

               :

               TABLE  USIDE   88  FROM  211
               EXECUIES :     32416
               >

              ,      ,
         " R " .    
     (   20   50 )    1000    03   -
        .

               > R
               0032 >

       !  ?    380 - 500 ( L 380 , 500 ) .
          430   " OR  D " ,   
     " RET  NZ " .     OR   
        D        
     "  " .    -  ,  DE < 256 ,  
         .    , 
     D = 0 ,   " OR "       ,   "  "
        0 .      ,
         .   ,
      ,     380  " OR  A "     " XOR  A " ,
         " SBC   HL , DE "     .

              > E  380                             " ENTER "
              380  MULT    OR    A
              380       T  (   )      " ENTER " , " ENTER "

       (  4 ) .   ,  " R " .
        : #38 .
                ,  
     20  40           .
                   ,
       "  "      .

              > T  300 , 999 , MULT      " ENTER "

  *************************************************************************
  *                                                                       *
  *   !      "  "     *
  *               " ENTER " .                                      *
  *                                                                       *
  *************************************************************************





                                 -  31  -
