.PL 66
.HE                  101.2341987.00102-01 33 03
.FO                            #
.PN 20

        4.  

            :
         -    ;
         -  ;
         -  .

        4.1.    

              - 
  ,      - 
    (    
    ;      
).
              5
:
        -   ;
        -    ;
        -    ;
        -   ;
        -  .

        4.1.1.    

            8080   
  .     
  ,       
   ,      -
.  ,    .Z80   
   Z80,    .8080 -  
   8080.
          ,    -
  Z80,    .Z80   -
  .
         ,    , -
     ,   
 .

         .Z80

         .Z80   .   
     -
  Z80.

         .8080

         .8080   .   
      
 8080.     .
          ,     -
  ,     
,     .
           ,    
  ,      

  "U".

        4.1.2.     

               -
      . 
   SET,   
    Z80.

         

        DB      <EXP>[,<EXP>...]
        DEFB    <EXP>[,<EXP>...]
        DEFM    <EXP>[,<EXP>...]

        :  DB   , 
     .
         <EXP>    DB  
,   .    
     .
         DB   ,  
  (  )    -
,        .
           .    -
  0  255,    .  
    "".
                -
   (     
 ).
              
 8080   Z80     -
,     ,     0. 

        :

        DB      'AB'
        DB      'AB' AND 0FN
        DB      'ABC', 3
                                                                               
 :

        0000'  41  42           DB      'AB'
        0002'  02               DB      'AB' AND 0FH
        0003'  41  42  43  03   DB      'ABC', 3

         

        DC    <>[, <> ...]

         DC   ,  
,   ,    ,  
  ,     0. ,
       
 1.
           DC   ,

  .

        :

        MARKE:   DC     "ABC", 'DEF'

 :

        0000'  41 42 3 64   MARKE:   DC    "ABC", 'DEF'
        0004   65 6

          

        DS      <EXP1>[,<EXP2> ...]
        DEFS    <EXP1>[,<EXP2> ...]

            -
    .   <EXP1> -
   .

             
 <EXP2>,     .
          <EXP2> ,   - 
  .    - 
   ( )  00. 
      00 
    /    
(. . 5.4.2.).
         ,    ,   
  (      
    ). 
                
  "V";   "U"     
;    , , - ,   
       
   .

        : DS      100H

          100  ,   - 
, ..    ,     
   .
              
00,         /.
      
 02,   :

        DS      100H,2

          100 ,    
  02.
.PA

         

        DW      <EXP>   [,<EXP>  ...]
        DEFW    <EXP>   [,<EXP>  ...]

             - 
       ,   - 
     .   
  ().
             ,    
 (    DB).

        :

        MARKE:  DW      1234H

 :

        0000'1234       MARKE:  DW      1234

        :        
,    ,    - 
  .

        

        <>   EQU     <EXP>

         EQU      
  <EXP>.  <>     
         
 .
          <>    .
          <EXP>  ,   
.
          <>   -  - 
,     "".
                 
  ,    EQU   
   SET  ASET.

        : BUF     EQU     0F3H

          

        EXT             <>[,<>...]
        EXTRN           <>[,<>...]
        EXTERNAL        <>[,<>...]
        BYTE EXT        <>
        BYTE EXTRN      <>
        BYTE EXTERNAL   <>

          ',   ()  - 
   ()  (), ..  
  -  .

                  
 ,     "".
               
  "" ( , NAME##),     
'  EXTERNAL ().
                 
.         
  .
          .

        : EXTRN   MARKE

               
    .8                                    
                                               
         MARKEX       
CALL,       CALL,   
MARKEX   0.
           ,    
,       PUBLIC MARKEX  -
   CALL MARKEX  ,     
MARKEX.

           (PUBLIC)

        ENTRY           <>[,<>...]
        GLOBAL          <>[,<>...]
        PUBLIC          <>[,<>...]

         PUBLIC       
'         
,    .
           EXTERNAL     ,  
   "".
               
   ( , NAME::),    '- 
   (PUBLIC).
               
.
          .

        :

                PUBLIC  MARKEX
        MARKEX: LD      HL, BER1

            LD  ,  
  PUBLIC MARKEX     .
              
EXTRN MARKEX,   ,   ,    
   PUBLIC MARKEX.    
     MARKEX: LD HL,BER1 
   CALL MARKEX   () 
 ().


         SET

        <>  SET   <EXP>              (     .Z80)
        <>  DEFL  <EXP>
        <>  ASET  <EXP>

         SET  <>  - 
  <EXP>.  <>     
        .
          <>    .  
 <EXP>  ((EXTERNAL),   .
         SET    .Z80    
,  SET      
   .Z80.
         ASET  DEFL     
  .
          <>      
,    EQU    
    SET.
            <>   
    SET   ,  
      
 (   SET    .Z80   
 ).     EQU.

        :         MARKE   ASET    BER+1000H

          MARKE     (- 
),    BER+1000H    
     MARKE.  ,   
MARKE   -  ,   
  MARKE ASET    .

        MARKE   ASET    BER+1000H
        MARKE   ASET    3000TH
        MARKE   DEFL    6CDEH

        4.1.3.      
                  

              - 
  ,
                
 ,     . 
         E       
.

         4 :
        - ;
        -  ;
        -  ;
        -   .

             ,   
  .

             ,  
       - 
       - 
 ,    .

             
      .

          

        ASEG

         ASEG    .   
   .
         ASEG    - 
        - 
.    0.
          ASEG  ORG  -
   10  .

           

        CSEG

         CSEG    .
              (
 (')  )       
 (ROM)      (PROM).
         CSEG    
     .
          ,     
CSEG ( 0),      ORG, 
   .
        ,     ,   ORG 
 CSEG    .
         ORG   CSEG    -
         CSEG
 ,    ORG.
        ,  ,   ORG 50,   
   50      
     CSEG.
            CSEG ( DSEG) - 
 ORG ,      
.
         ORG      
 CSEG,   ,  CSEG    
.
            CSEG   , 
     /.
         CSEG     .
        -
       0   
 .      
      ,    -
  ASEG, DSEG  COMMON.

         CSEG    ,  
      ,  
        
    .

           

        DSEG

         DSEG    .
         DSEG   U - 
  (  (")  ),   
         
(RAM).
         DSEG    - 
      .
          ,      
DSEG ( 0),      ORG, 
   .
        ,     ,   ORG  
 DSEG    .
         ORG   DSEG    -
       DSEG  , -
   ORG.
        ,  ,   ORG 50,   
 50        
  ,         
 .
            DSEG ( CSEG) - 
 ORG ,      
.
         ORG      
 DSEG,   ,  DSEG    
.
           DSEG    , 
     /D.

           

        COMMON          /[< >]/

          COMMON    - 
.  COMMON      
   COMMON,   .
         < >      - 
,      .
         COMMON     
 .
         COMMON     
(   (!)  ) , 
  .      
       .
        ,     COMMON, - 
       .
              , - 


 ,        - 
 ,   .  COMMON , 
  -    - 
   .
                  
.

          ,       
    , ..    
      .
           .
      COMMON     
     .

        :

                        COMMON  /DATBIN/
                BER2    EQU     100H
                        DB      0FFH
                        DW      1234H
                        DC      'WERK'
                        CSEG    

          

        ORG             <EXP>

                
      ORG.
  ASEG      
,    <EXP>,     
   ,    .
          CSEG, DSEG  COMMON    - 
      ,  
 <EXP>,      
,        
  <EXP>.
         ,    <EXP>,   
        V   - 
,      ,     
.

        :         DSEG
                        ORG     50

                
   50,     
     .     
.  ORG <EXP>     CSEG  
DSEG  ,   ,    
   ,      
   .
           - ,   
:


        ASEG
        ORG             800H

         
  800.    ,   ORG  
   .
         ,    ASEG  ORG <EXP> 
     (    
),    <EXP>.
           ,    -
     ORG,     - 
 ,        /P:<>.

        

        .PHASE <EXP>
        .DEPHASE

         .PHASE      -
 ,        -
  <EXP> .
         <EXP>    . -
 .DEPHASE   ,    
  .
              -
.        
 .PHASE.
               
 ,   <EXP>.

        

                .PHASE          100H
        MARKE:  CALL            UPI
                JP              MARKEI
        UPI:    RET             
                .DERHASE
        MARKE:  JP              5

 :

                                .PHASE          100H
0100    CD 0106 MARKE:          CALL            UPI
0103    C3 0007                 JP              MARKEI
0106    C9      UPI:            RET             
                                .DERHASE
0007'   C3 0005 MARKEI:         JP              5

             .PHASE ... DEPHASE
      
  .




        4.1.4.  

            :
        -   ;
        -   ; 
        -   ;
        -      .

         

        .COMMENT   <> <> <>

          ,    
.COMMENT   ,   .   -
   ,    -
   <>.    
.
         .COMMENT     -
.        -
   .
             .COMMENT 
  .

        

        .COMMENT        (     
                          )

        ; (   )


         

        END [<EXP>]

         END      -
  <>.   END ,     
  :

        "%NO END STATEMENT"             (  END)

         <>     ,  
   ,    -
     .
          <>  ,    
  100    ,   <>.
          <>   ,     
      ,  
     .

         INCLUDE ()

        INCLUDE         < >
        $INCLUDE        < >
        MACLIB          < >


             .

            INCLUDE  -
    -     -
 .
           INCLUDE -
      -
    .
         < >     
 E  ,   
  .
          (INCLUDE)     
     INCLUDE.  -
  ,      , 
   INCLUDE.
          INCLUDE  .  , 
  ,     '
  "0".
        ,      INCLUDE, 
.       "V" 
 INCLUDE .
             
      "" (. . 5.3.).

         

        NAME    ('< >')

         < >   .  -
  ,     , . 
       .
                -
 TITLE.
              NAME  TITLE,  
     .

         .RADIX (  )

        .RADIX <EXP>

         <>   .RADIX   -
  ,     . -
 .RADIX       
  2  16.
         .RADIX      ,  
        
    . (   -
     ,   
 "").
             
.
.PA

        :

        DEC:    DB      20
                .RADIX  2
        BIN     DB      00011110
                .RADIX  16
        HEX     DB      0CF
                .RADIX  8
        OCT:    DB      73
                .RADIX  10
        DESI:   DB      16
        HEXA:   DB      0CH

 :

        0000'   14      DEC:    DB        20
        0002                    .RADIX    2
        0001'   1E      BIN:    DB        00011110
        0010                    .RADIX    16
        0002'   CF      HEX:    DB        0CF
        0008                    .RADIX    8
        0003'   3B      OCT:    DB        73
        000A                    .RADIX    10
        0004'   10      DECI:   DB        16
        0005'   0C      HEXA:   DB        0CH

        

        .REQUEST        < >[,< >...]
         .REQUEST      
         
   ( ,    
        
PUBLIC).
              
,         
    .
               
          -
.
            .REL   
.

        :

                .
                .
        .REQUEST SUBR1
                .
                .

           SUBR1    
 ,        
  PUBLIC     .



        4.1.5.    

             
 :
        -  ;
        -   .
            
     .
              
       -
 .

          

               
       
 .

         

        *EJECT  [<EXP>]
        PAGE    [<EXP>]
        OEJECT  [<EXP>]

            
   .
                -
   .
          <>,   ,  -
   (     ), -
      10  255.   
    50.
         *EJECT      .

        : *EJECT   72

               
      72  . 
(       12  
(1  = 2,54 )   6   ).

        

        TITLE   <>

         TITLE   ,  
    .
             TITLE,  
  "Q".
             NAME,   
      .
            NAME,   TITLE,   -
     .


        : TITLE PROG1
            PROG1.     
   PROG1       
 .

        

        SUBTTL  <>

         SUBTTL  ,  -
         -
.
          <> ,  
  60 .
                -
.
            SUBTTL,    
  .
            SUBTTL   
   ,    SUBTTL  -
    .

        :

        SUBTTL  /
          .
          .
        SUBTTL
          .
          .

           SUBTTL   
" /    .  
 SUBTTL   .

            

        .LIST         
        .XLIST     

            .LIST.
                , 
   .
              .XLIST,  
      ,  ' .
          .XLIST    -
 .LIST.
         .XLIST     -
    (  .LIST).

        :
           .
           .
        .XLIST          ;    
           .

           .
        .LIST           ;    
           .
           .

            

        .PRINTX           

            .PRINTX,   -
, -       .
        ,      , -
    ,    
  .
         .PRINTX     -
        
 .
         .PRINTX     .
                 
   ,     
  IF1  F2 (. . 4.3.).

        : .       PRINTX    *UEBERSETZUNG ZUR HAELFTE FERTIG
                                  (  )

                
      1  2.

        IF1
        .PRINTX *PASS  1  BEENDET*  ; MELDUNG NUR IM PASS 1
        ENDIF                             (  
        IF2                                         1)
        .PRINTX *PASS  2  BEENDET*  ; MELDUNG NUR IM RASS 2
        ENDIF                             (  
                                                    2)

                -
 .

          

              
     ,   
  .
              REL '   -
.       FCOND. 
     ON,      
 ,  (  OFF)   -
  .
            FCOND   
  :

        .SFCOND
        .LFCOND
        .TFCOND

