GW
**        - 1 2 8   **





          

  


W 1




 #   #  ###  #   #  ###  ####  #   #
 #   #   #   ##  # #   # #   # ## ##
 # # #   #   # # # #     ####  # # #
 ## ##   #   #  ## #   # #     #   #
 #   #  ###  #   #  ###  #     #   #





0W












    -  






        - 1994
@G             H

    60-   70-      
    -
 .    -
     .
 ,    , 
 .
       ,
      
 ,      -
   -   
     .
         
,        -
 "-",   -
  .
         -
  ,     
 , -     
. ,    -
     ,   -
 ,        
-   .  ,   -
     -
    ,   -
        
  .      
   .
       
       
   .
       ""   -
       ,
   .    
    ORDOS.   -
,      -
,      -
CP/M-80.
    WINCPM    
    , -
   CP/M.
    WINCPM     
   :
   -   "Master Editor V5.1";
   -    MCODE.COM;
   -     
      ;
   -  TETRIS.COM, PENTIX.COM, COLUMNS.COM
(    "COLUMNS"  -
   ).

   -    WINCPM :- 

   -   CP/M-80,   
    (  ).  
      "-"    BIOS
V3.10 (.  210  );
   -     -
 "Microsoft" ( 254);
   -  CP/M    -  
 BIOS   BDOS ( 2030);
   -   ( - -
 "Master Editor V5.1");
   -         Z80
(      Z80);
   -     .
G    ,   
:H

   -   WINCPM.REL (  
 WIND31.REL, MENU.REL, JOYS.REL);
   -  MACRO.LIB, ZMACRO.LIB;
   -       -
 JOYS.ASM;
   -     ;
   -   "COLUMNS"     
.

G        WIND31.RELH

   WIND31 -   . 
       
-8 ( MSX)  8*10   -
 ,  .
       580,    Z80.
      0F000h
- 0F146h.       
  .
      ,  
    :

extrn out,inp,inkey,open,close,w_begin,w_end
extrn char?,ss,us,form,xy,home,dxy,clr
extrn addrsp,screen,font_beg,scr_up,scr_dwn

         
L80.COM,  :
    WIND31

    WINCPM/S
    ""     ,  
          
  (     -
  24K ,    ), -
   WIND31  
.        -
  ,     
 ,      10  
   .   -
        -
      .
  -   -
 ,  ,     
"" .   
     -   -
      .

G       WIND31:H

w_begin -  .
	  A   -
	 .  ,    -
	  0  3   -
	 CP/M .   
	    
	.     -
	      -
	 .

w_end -     WIND31.
	   -
	 0F000h - 0F146h,   
	 CP/M ()   .
	    -
	    .
out   -         C  
	   .
	    -
	   :
  04h -    ;
  05h -    ;
  06h -      
          ( -
           0-1fh);
  07h -   ;
  08h -   1  ;
  09h -    ,  8;
  0Ah -  .     
                
         ,     
         ,    .
            , -
              .
                 
         ,     1 -
         ;
  0Ch -     ;
  0Dh -     ;
  17h -     
             ;
  18h -   1  ;
  19h -   1  ;
  1Ah -   1  ;
  1Bh,59h,20h+y,20h+x -     
          (x,y);
  1Fh -    ;
  7Fh -       
         .

inp   -    .
	     A.
inkey -    (  -
	  0F81Bh.

open  -        -
	 (     
	  ).
    - :- 
	h - x-   
	    ;
	l - y-   
	    ;
	d -   (  + );
	e -   (  + );
	b -   ;
	c - 000x0tttb
	       | \_/
	       |  +-   (0-7)
               +----   (1)   (0)

	-  :- 
0 -  ;
1 -    ;
2 -    ;
3 -  ;
4 -  ;
5 - \
6 -  >    (. TESTWIND.ASM)
7 - /
-:- 
	lxi	h,0508h
	lxi	d,0a0ah
	lxi	b,1f13h
	call	open

    -      -
  (5,8),  10*10 ( ),  -
,   3,  -    -
 .

     - !!!- 
       -
,   , ,  ,
     ,  -
   .

close -      -
	   ,       -
	 .    
	.

char? -	         
	(x,y)  .
	h -  x;
	l -  y;
       d   ,
       e - .

ss    -	,     <>.
	 ,   Z=1 (=0).
	 ,   Z=0 (<>0).

us    - ,     <>.
	(. ss).
     ss  us    -
     .      
      .  
          -
       inkey.

scr_up -   .    
	  .

scr_dwn -   .   
	  .


G       WIND31:H

form: -	 ,   
	( );
xy    -	  (2 ),  -
	  ;
home  -	 ,   -
	    ;
dxy   -   -   ;
clr   -	  -  ;
addrsp -         
	   
	(  = 7FFFh.     -
	,   ,    
	 );
screen -    ;
font_beg -      
	  w_begin;

       WIND31 
  TESTWIND.ASM.  -
         
    .
G        MENU.RELH

      ,     -
   WIND31  
      ,
   .   -
 -   .       
,      -
.    ,  -
,        
.       -
       
 .
         ,  
       
       ,
    ,  .
        :  -
   .  -
   -      -
.
          -
      -
 .    ,  -
         
.      -
 :
   -         
  [];
   -      (-
        -
  ).
        ,
    [2],     
       
.
      ,   
     -
.    ( )  -
       -
   .    -
    ()  -
 ,       -
    - -
  ( ).   -
        
.       ,
         
      -
   .      -
 :      -
       ,
  ,      
.   (  [],  [
]  "" ),  -
    () , -
  ,   -
 .      ""
 - ,   . 
    ,   -
   [2]     -
.
          
  [].      
(  )    
  .    -
    "ret".
         -
   MS-DOS Norton Commander,   -
    
Borland (Integrated  Development  Environment  -
  ,    .)   -
  Master Editor V5.1   
"-128".
       MENU.REL.

   MENU.REL -    
.     -
     WIND31.REL.
,   MENU.REL   -
   , -
 ,       
.
       580,    Z80.
      ,  
    :

extrn h_menu,v_menu,menu

         
L80.COM,  :
    WIND31,MENU

    WINCPM/S

        MENU, -
    
   w_begin.
G          MENU:H

h_menu -   -
	 .
      :
	ld	hl,text_menu
	call	h_menu

      text_menu -   .

          :
text_menu:
	db	Max_count,Count,Color
	db	'" "',0
	db	'1. ............ ',0
	db	'2. ............ ',0
	. . . . . . . . . . . . . . .
	db	'N. ............ ',0,0
     
        Max_count -   ;
	Count -    (-
		    0;
	Color - ,    -
		 ;
        ""  - ,  
		    -
		   ;
	       
	.     ""  ,
          "~": ,  -
	     .
        ,   
    .    -
        .
   A=0 ,      -
   , A=Max_count-1 ,      
     .    -
    [2],   C=1.
v_menu -   
	 .
      :
	ld	hl,text_menu
	call	v_menu
           , 
       .
              
  :    v_menu -
           -
    open   WIND31.  -
     ,    
    "".  ,   -
      ,   
    .

menu  -	    
	  .
      :
	ld	hl,sysmenu
	jp	menu
      sys_menu -    
   .
	 :
sysmenu:dw	progr,gmenu,menu1,menu2,....

     progr -     .
                  -
               [].  
                  
             ..       menu
                :
             		ret
     gmenu -    (-
              ).    
               ,    
                    
             (.   h_menu).

     menu1 -   .
      ...        ,   
     menuN       ,  
                  
                   
              ,  -
                 
               
             , :

men3:	db	7,0,menu_c
	db	'OKPUZSR',0
	db	' ~          ',0
	db	' ~        ',0
	db	' ~       ',0
	db	' ~           ',0
	db	' ~    ',0
	db	' ~     ',0
	db	' ~       ',0,0
	dw	mark,copy,move,delete,save
	dw	load,print

         -
   MENU.REL    -
    TESTMENU.
G         JOYS.RELH

        -
    (  -
     "" 4'93).
       , 
     -
 .
          
Z80 (    
   580-   Z80, -
   ,  -
  Z80, ..        
,    -
   ).
      ,  
    :

extrn in_joy,keyb,joy1,joy2,rk86,ms7007,cursj

         
L80.COM,  :
    JOYS

    WINCPM/S

      ,  
      
 ,    -
 ,         
 (.  TESTJOYS).  ,
    -
 ,      -
     .
          
 (  )   -
   :

      7      6      5      4             0
   +------+------+------+------+-    -+------+
   |  || | | .... | |
   +------+------+------+------+-    -+------+

      1,   .
      0,   .   -
   ,  -
      .
          
    0FFh.
         -
     
	bit	reg,N
   (  TESTJOYS.ASM).

G           JOYS.RELH

in_joy -  .
	       keyb 
	   (86  7007)  -
	  ,   -
	   ( F600h).
	     :  
	    ,  -
	     .
keyb   -   .
	       -
	      -
	 . :   -
	   .

joy1   -    1.

joy2   -    2.

rk86   -    86 -
	     .

ms7007 -      7007
	     -
	 .

cursj  -   -.
	          
	    86.  -
	     
	    []. (    
	 ,    -
	   ).
G        H

         -
       Mic-
rosoft (M80, L80, LIB80, CREF80).
       , ..  
 .     -
  ,      .
      -
  .   , -
     .   
     .
      -
 ZMACRO.LIB.       
     :
       include ZMACRO.LIB

    WINCPM    
LIB80   WIND31.REL, MENU.REL  JOYS.REL
  ,      -
 L80.

          -
  Z80   -
  COLUMNS.     -
   COLUMNS.ASM.    
     .

 