
                 
                       - 
                   "-06":     , 
                        
                     : . 
                  . -, 126, "" 
                     "".  - 
                        - 
                  : ., 610006,  /  1248, 
                       . 
                 


       ,    "-06", 
  ,     , - 
  .    .   :   . ,  610006, 
/ 1248,  "".                                           


        PUTUP
        

    "Putup". , ,    15 ,
  ,        .
 !      ,  -
...
   "Putup"        18, 
 11  " "  16 - " ",  176   -
   ,   ,     
 .

          ()  :

   1  - 18       6  - 1FFE     11  - 236
   2  - 1D3E       7  - 20A     12  - 241
   3  - 1DEE       8  - 215     13  - 24
   4  - 1DE       9  - 220     14  - 257
   5  - 1F4E      10  - 22     15  - 262

    :

  01 -           06 -        0 - 
  02 -           07 -         0 - 
  03 -   08 -        0D - 
  04 - ""       0D -      0 - 
  05 -          0A -      0F - ""()
  11 - "" (     ) .

    ,   ,       
  .
      ,     .
    116   . 
   8      :

 1  -   
 2  -   
 3  -   
 4  -     
 5  -     
 6  -   
 7  -     
 8  -     

  :

  01  02 - "" ( )
  03  04 - "" (      )
  05  08 - ""

   -   - ,      
    09  0A. ,   
 09,    -    -
,    .

         ()  :

   1  - 116       6  - 13     11  - 166
   2  - 11       7  - 146     12  - 16
   3  - 126       8  - 14     13  - 176
   4  - 12       9  - 156     14  - 17
   5  - 136      10  - 15     15  - 186

  :      , 
  00.     02.  -
,     ( ): 00, 02, 04,
06, 08, 0A, 0, 0, 10, 12, 14, 16, 18, 1A, 1, 1     
( ): 00, 02, 04, 06, 08, 0A, 0, 0, 10, 12, 14.  
   ,     
" ",      16*11   -
 .
     !
    ,     .-
    0976,      , 
   .  "PUTUP",  ,
   0A06.  : 9 - ,20 - -
 .

                    SimBroth company, ., 1991

       ,    
      

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

       -
 ,   ..
                                    3
  SUMM: ADD M    ;           RAC: LXI H,CIFR ;
                 ; ,  -
                 ;  
                 ;. 

    DAA  ;.       	PUSH H
    MOV M,A  ;       PUSH PSW
    PUSH PSW ;      	ANI 15     ;-
                               			   ; .
                               			   ;
    PUSH H   ;           	CALL RAC1  ;
                               			   ; 
                               			   ;
    CALL RAC                		POP PSW
    POP H                   		POP H
    POP PSW                 		RRC  ; .
    RNC  ;,     	RRC  ;. 
         ;         	RRC
  SUMM1:DCX H   ;   RRC
    MOV A,M  ;            	ANI 15
    ADI 1    ;      	JMP RAC1 ;
                             			 ; 
                             			 ;
    DAA  ;.      	   RAC1:JZ RAC2  ;-
                             			 ; .
                             			 ;.
    MOV M,A  ;      RLC  	;
    PUSH PSW ;       	RLC  ; 8
    PUSH H                              RLC                 
    CALL RAC                            MOV C,A  ; 
    POP H                               MVI B,0  ;  
    POP PSW                             DAD B    ;- 
                                                 ; -
                                                 ;  
                                                 ;  
    JC SUMM1 ;    RAC2:PUSH D   ;
         ;   ,    	CALL VC1F; 
                             			 ;
         ;  SUMM1        	POP D
    RET                 		DCR D;-
                             		     ; 
  VC1F: MVI C,8  ;/             RET  ; 
  VC1F1:MOV A,M  ; .           ;.
    STAX D   ; 
    INX H
    INX D
    DCR C
    JNZ VC1F1
    RET

    /        -
: A -  , L -  ,  
 A, DE -    .   CIFR    
  ,    .     
 8 ,   0, 1  .. ...  9.
 ,   SCORE     , -
, ,   : SCORE:DB 00H,00H,50H.   -
     25.    -
  : MVI A,25H LXI H,SCORE+2 LXI D,0CDD0H 4
CALL SUMM...
     ,    , 
    ..       
   ,     .


       BASIC
       

   2D65    .

  2D55H, 2D64H        -   (16 )
  320, 321, 322 - ,     
  323           -  
  2F1           - .  
  324           -   
  2572           -    , PLOT.  ()-
             Y, () -  , (A) - -
             (0 -  , 1 -  -
            , 2 -  . )
  26BDH           - /  ,  (A) -   Y,
             () - 
  25BFH           - /  ,  (A) - -
             Y,  () - 
  25           - /    , 
            (A) - Y,  () - 
  240           - / COLOR,  (A) - . . -
               
            : PUSH PSW  ANI F0  STA 3DB0  POP PSW
            ANI 0F  STA 2EF2  MOV E,A  CALL 24E0.
  19A8H           - / PGET,    (A) - . -
             

       ,
    .   -
  ,     .


       ,    
      

       / /    
       ---------------------------------------
              -1200
             ---------------

  ,        -
 / /    -86.
     : 256  , E6, . -
 , .   , .  , .
 ,  , E6, . , . .

     /    
1200.       :    
CANGE: MVI A,0F8  CANGE2: MVI A,0E6  CALL OBYTE. ..  
    06.


 ;/ LOAD-86  LEN2: INR D       POP B               5
 LOAD: DI         IN 01        	   RET
  LXI H,0         ANI 10H         SR: MOV A,H
  MVI D,40H       CMP E            SUB D
 LOAD1: CALL LEN      JZ LEN2      RNZ
  PUSH D         LEN3: INR D       MOV A,L
  MVI D,0         IN 01        	   SUB E
  MOV E,A         ANI 10H          RET
  DAD D           CMP E       VSP: LHLD KON
  POP D           JNZ LEN3         XCHG
  DCR D           MOV A,D          LHLD NACH
  JNZ LOAD1       POP D        	   LXI B,0
  DAD H           RET          	   RET
  DAD H          BYTE: MVI A,8    PKS: PUSH H
  MOV A,H        BYTE1: PUSH B     ADD C
  RRC             PUSH D           MOV C,A
  ANI 7FH         MVI C,0          PUSH PSW
  ADD H           MOV D,A          CALL SR
  STA CONR        IN 01        	   JZ PKS1
  MVI A,0F8H      ANI 10H          POP PSW
  CALL BYTE1      MOV E,A          MOV A,B
  STA NACH+1     BYTE2: IN 01      ADC M
  CALL BYTE       ANI 10H          MOV B,A
  STA NACH        CMP E       PKS2: MOV H,B
  CALL BYTE       JZ BYTE2         MOV L,C
  STA KON+1       RLC          	   SHLD KS
  CALL BYTE       RLC              POP H
  STA KON         RLC          	   CALL SR
  CALL VSP        RLC          	   INX H
 LOAD3: CALL BYTE MOV A,C          RET
  MOV M,A         RAL         PKS1: POP PSW
  CALL PKS        MOV C,A          JMP PKS2
  JNZ LOAD3       PUSH PSW
 CHANGE: MVI A,0F8H   LDA CONR        ;/ SAVEPK-86
  CALL BYTE1      MOV B,A          DI
  MOV D,A         POP PSW          CALL SAVE12
  CALL BYTE      BYTE3: DCR B      LHLD NACH
  MOV E,A         JNZ BYTE3        PUSH H
  LHLD KS         IN 01        	   CALL SAVE2
  CALL SR         ANI 10H          LHLD KON
  RZ              MOV E,A          CALL SAVE2
  MVI A,1         MOV A,D          XCHG
  STA ERROR       ORA A        	   POP H
  RET             JP BYTE5         LXI B,0
 KS: DW 0         MOV A,C         SAVE3: MOV A,M
 NACH: DW 0       CPI 0E6H         CALL OBYTE
 KON: DW 0        JNZ BYTE4        CALL SAVE14
 ERROR: DB 0      XRA A            JNZ SAVE3
 PRINV: DB 0      STA PRINV       CHANGE2: MVI A,0E6H
 CONR: DB 4BH     JMP BYTE6        CALL OBYTE
 LEN: PUSH D     BYTE4: CPI 19H    MOV H,B
  MVI D,0         JNZ BYTE2        MOV L,C
  IN 01           MVI A,255        CALL SAVE2
  ANI 10H         STA PRINV        EI
  MOV E,A        BYTE6: MVI D,9    RET
 LEN1: IN 01     BYTE5: DCR D     SAVE12: XRA A
  ANI 10H         JNZ BYTE2        MOV B,A
  CMP E           LDA PRINV       SAVE13: CALL OBYTE
  JZ LEN1         XRA C            DCR B
  MOV E,A         POP D            JNZ SAVE13
  MVI A,0E6H      CALL VSP         PUSH D          CALL OBYTE2  6
  JMP OBYTE       INX H            PUSH PSW        DCR C
 SAVE14: PUSH H   RET              MOV D,A         JNZ OBYTE1
  ADD C        SAVE15: POP PSW     MVI C,8         POP PSW
  MOV C,A         JMP SAVE16      OBYTE1: MOV A,D  POP D
  PUSH PSW        SAVE2: MOV A,H   RLC       	   POP B
  CALL SR         CALL OBYTE       MOV D,A         RET
  JZ SAVE15       MOV A,L          MVI A,1      OBYTE2: PUSH PSW
  POP PSW         JMP OBYTE        XRA D           LDA CONZAP
  MOV A,B      SR: MOV A,H         ANI 1           MOV B,A
  ADC M           SUB D            OUT 0           POP PSW
  MOV B,A         RNZ              CALL OBYTE2  OBYTE3: DCR B
 SAVE16: MOV H,B  MOV A,L          MVI A,0         JNZ OBYTE3
  MOV L,C         SUB E            XRA D           RET
  SHLD KS        RET               ANI 1        CONZAP: DB 46H
  POP H        OBYTE: PUSH B       OUT 0

        
    
       
     

   : 4   (25     25  
55).
    .    -
: 16 , 4  - 55, 1  - 06, 4  - 0, 30  -
  (  "NODISC00",    -
 - 11 ,  - 6 ,    -
,  ,    ), 1  - -
 .
      8 ,  ,
  ,       :  4   - 0,
1  - 06,1  -  (     -
 80...87,   - 88...8F), 1  -    -
 .  32     1 
 .

  ;/    ROM   		EI        		DCR D
   ORG 8000H             	ZAP6: 	JMP ZAP6 		JNZ NBYTE
   MVI A,88H             	BLOK: 	PUSH B   		RET
   OUT 0              			PUSH H  	BYTE: 	PUSH B
   MVI A,0C9H             		PUSH D        		PUSH D
   STA 38H            			MVI D,10H     		PUSH PSW
   DI                 			XRA A     		MOV D,A
  ZAP: LXI H,SHAPKA       		CALL NBYTE    		MVI A,0
   LXI SP,9300H           		MVI D,4       		ANI 0EH
   PUSH B             			MVI A,55H     		MOV E,A
   PUSH D             			CALL NBYTE    		MVI C,8
   PUSH H             			MVI A,0E6H  	BYTE1:	MOV A,D
   MVI E,0            			CALL BYTE     		RLC
   MVI B,1BH              		XRA A     		MOV D,A
  ZAP1: MOV A,M           		MVI D,4       		MVI A,1
   ADD E              			CALL NBYTE    		XRA D
   MOV E,A            			MVI D,1DH     		ANI 01
   INX H             		BLOK1: 	MOV A,M 		ORA E
   DCR B              			CALL BYTE     		OUT 1
   JNZ ZAP1           			INX H     		CALL ZAD
   MOV B,M            			DCR D     		MVI A,0
   INX H              			JNZ BLOK1     		XRA D
   ADD M              			MOV A,C       		ANI 1
   MOV E,A            			CALL BYTE     		ORA E          7
   MOV C,M            			LDA M1        		OUT 1
   INX H              			ADD C     		CALL ZAD
   MOV D,M            			CALL BYTE     		DCR C
   MOV A,B            			STA M2        		JNZ BYTE1
   ADD D              			POP D     		POP PSW
   DCX H              			MVI H,8       		POP D
   DCX H             		BLOK3: 	MVI L,20H   		POP B
   MOV M,A            			PUSH D        		RET
   ADD E              			XRA A        	ZAD:	PUSH PSW
   STA M1                     		MVI D,4           	LDA CONZAP
   MVI H,4            			CALL NBYTE    		MOV B,A
  ZAP4: MVI L,19H         		POP D     		POP PSW
  ZAP2: XRA A             		MVI A,0E6H     	ZAD1:	DCR B
   CALL BYTE              		CALL BYTE     		JNZ ZAD1
   DCR L              			LDA M2        		RET
   JNZ ZAP2           			ADD B        	SHAPKA:	DB 'NODISC000
   MVI L,19H              		MOV C,A            	    30591COPY
  ZAP3: MVI A,55H         		MOV A,B                     V4 COM',0
   CALL BYTE              		CALL BYTE        	DB 0,40H,1BH,0,0
   DCR L              			LDA M2             		   
   JNZ ZAP3           			CALL BYTE          		    
   DCR H             		BLOK2: 	LDAX D       			      
   JNZ ZAP4           			INR E          			
   POP H              			CALL BYTE          		 .
   PUSH B             			ADD C
   MOV D,B            			MOV C,A
   MVI E,0            			DCR L        	M1:	DB 0
  ZAP5: MVI B,80H         		JNZ BLOK2      	M2:	DB 0
   CALL BLOK              		MOV A,C		CONZAP:	DB 20H
   MVI E,0            			CALL BYTE
   MVI B,88H              		INR B
   CALL BLOK              		DCR H
   INR D              			JNZ BLOK3
   DCR C              			POP H
   JNZ ZAP5           			POP B
   POP B              			RET
                 		NBYTE:	CALL BYTE



           ==
         

      "-06"     
==.
        ( ,  
  ):  ,  
() ;  ;     -
  :   , .. 
    (   ).
 ,     :     -
 2  "FIRE" ().
    ,    -
.
        -
 (    "-3"):

               ==                    8
       
        -  -  -  -  -  -  -  -  -  -  
                          
        -  -  -  -  -  -  -  -  -  -  
        A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 
                      -  -  -  
       
                 
                       FIRE1 - 
           F  F
           I  I      FIRE2 - 
               R  R
           E  E
           1  2
                 
     

        
..  ,   ,  2  "FI-
RE".
       ( 
      "FIRE2").
     :
     07 [ IN 07, INP(07) ].
  :       2 -  "FIRE2" ()
         3 -  "FIRE1" ()
         4 -  ""
         5 -  ""
         6 -  ""
         7 -  ""

    1,   ,  0,  .

   /   , -
  .   CALL JOY. /   
,  :   (A) - .  17
 .

 JOY: PUSH B  ;  .              
      XRA A   ;                :
      OUT 07  ;   07               (A)-
      IN 07   ;     07
      MOV B,A ;            : 0-""
      IN 01   ;     01       1-""
      ANI 60H ;    ""  ""      2-"FIRE2"
      RAL     ;    3       3-"FIRE1"
      RAL                         4-""
      RAL                         5-""
      ORA B   ; ""        6-""
      POP B   ;  .            7-""
      RET     ;   /

 P.S.   ""    ,
  == (Joystick & Keyboard).      -
(J&K).

                           Soft;.-1991


