  3bit#1,
,  , 04.01.2005

 
 
        .
 
   (c)  
   (c) Cooper/RSM/P7S
  ------------------------------------------
         
   .     Cooper  ,  ,  
    88 (-
      .    - 
   ;)   . ,
  ,       ,
   ,   .
     (   OPEN_W  )  -
    DE      
  ,    B   - ,
    C   -     (  ). 
  COLOR     .
 
           LD IX,VEKT
           CALL OKHO
           RET
 
   OKHO    LD D,(IX+0)
           LD E,(IX+1)
           LD B,(IX+2)
           LD C,(IX+3)
           LD A,(IX+4)
           LD (COLOR),A
   OPEN_W  LD A,"?"        ;   .
           LD L,"?"        ;   .
           CALL OPEN_W2
   OPEN_W1 LD A,"?"        ;  .
           LD H," "        ;   .
           LD L,A
           CALL OPEN_W3
           DJNZ OPEN_W1
           LD A,"?"        ;   .
           LD L,"?"        ;   .
   OPEN_W2 LD H,"?"        ;  .
   OPEN_W3 PUSH DE
           CALL PRSYM
           INC D
           LD A,H
           LD H,C
   OPEN_W4 CALL PRSYM
           INC D
           DEC H
           JP NZ,OPEN_W4
           LD A,L
           CALL PRSYM
           POP DE
           INC E
           RET
 
   ;  88  
   ;in: DE - , A -  
   PRSYM   PUSH BC
           PUSH AF
           PUSH DE
           PUSH HL
           LD L,A
           LD H,0
           LD BC,42048    ;  
           ADD HL,BC
           LD A,D
           AND 7
           RRCA
           RRCA
           RRCA
           OR E
           LD E,A
           LD A,D
           AND 24
           OR 64
           LD D,A
           DUP 7
           LD A,(HL)
           LD (DE),A
           INC H
           INC D
           EDUP
           LD A,(HL)
           LD (DE),A
           LD A,D
           RRCA
           RRCA
           RRCA
           AND 3
           OR #58
           LD D,A
           LD A,%00001111
   COLOR   EQU $-1
           LD (DE),A
           POP HL
           POP DE
           POP AF
           POP BC
           RET
   ;--- -----
   ;+00 - Y 
   ;+01 - X 
   ;+02 - X-
   ;+03 - Y-
   ;+04 -  
     ;-------------------
 
     ;  
   VEKT    DB 1,1,10,10,15