(c) ., .㧭.

    ।  ࠧ ""  楤. ࢠ 楤 -  뢮 
⨭  ࠭:

;       (C) Lubimov Eugene from
;       RUSSIAN BEAR GROUP
;       SPECIAL FOR INFORCOM!
;
SCREEN  EQU     40000           ;  ⨭ - ࠩ
        ORG     25000
        LD      HL,SCREEN       ; ன
        LD      DE,16384        ; ६
        LD      IX,SCREEN+6112  ; ணࠬ
        LD      BC,22496        ; 
        LD      (ADR),HL        ; ࠧ
        LD      (ADR1),DE       ; ᯮ짮
        LD      (ADR2),IX       ;
        LD      (ADR3),BC       ;
        LD      B,96
PR1     PUSH    BC
        LD      HL,(ADR)
        LD      DE,(ADR1)
        CALL    PRINT
        LD      (ADR),HL
        LD      (ADR1),DE
        LD      HL,LINE1
        LD      (LIN+1),HL
        LD      (LIN0+1),HL
        LD      HL,(ADR2)
        LD      DE,(ADR3)
        CALL    PRINT
        LD      (ADR3),DE
        LD      DE,128
        SBC     HL,DE
        LD      (ADR2),HL
        LD      HL,LINE
        LD      (LIN+1),HL
        LD      (LIN0+1),HL
        POP     BC
        HALT
        DJNZ    PR1
        LD      HL,SCREEN+6144
        LD      DE,22528
        LD      BC,768
        LDIR
        RET
PRINT   PUSH    DE
        LD      B,32
L2      PUSH    BC
        LDI
        POP     BC
        DJNZ    L2
        LD      DE,32
        ADD     HL,DE
        POP     DE
LIN     CALL    LINE
LIN0    CALL    LINE
        RET
LINE    PUSH    AF
        INC     D
        LD      A,D
        AND     7
        JR      NZ,LIN1
        LD      A,E
        ADD     A,32
        LD      E,A
        JR      C,LIN1
        LD      A,D
        SUB     8
        LD      D,A
LIN1    POP     AF
        RET
LINE1   PUSH    AF
        DEC     D
        LD      A,D
        AND     7
        CP      7
        JR      NZ,LIN10
        LD      A,E
        SUB     32
        LD      E,A
        JR      C,LIN10
        LD      A,D
        ADD     A,8
        LD      D,A
LIN10   POP     AF
        RET
FORMAT  LD      HL,16384
        LD      DE,SCREEN
        LD      B,182
LOOP    PUSH    BC
        PUSH    HL
        LD      BC,32
        LDIR
        POP     HL
        POP     BC
        EX      DE,HL
        CALL    LINE
        EX      DE,HL
        DJNZ    LOOP
        LD      BC,768
        LDIR
        RET
ADR     DEFW    SCREEN
ADR1    DEFW    16384
ADR2    DEFW    SCREEN+6112
ADR3    DEFW    22496

   楤 뢮 ⨭   ࠩ, ⮬ 室 ᭠砫
। ⨭  ࠩ. ⨬  楤 FORMAT, 
稭   ᥬ஢  165 . । 맮 楤
FORMAT, ॡ㥬 ⨭    ࠭.
     ਬ ᯮ짮:
10 BORDER 0 : PAPER 0 : INK 7 : CLS
20 RANDOMIZE USR 15619 : REM : LOAD "SCREEN$" CODE 16384
30 RANDOMIZE USR 25165 : CLS : PAUSE 0
40 RANDOMIZE USR 25000

    楤 -     몠쭮
ᮯ.
        ORG     25000
        LD      HL,16418
        LD      A,8
        CALL    L1
        LD      HL,16419
        LD      A,9
        CALL    L1
        LD      HL,16420
        LD      A,10
        CALL    L1
        RET
L1      LD      BC,65533
        OUT     (C),A
        IN      A,(C)
        AND     15
        LD      E,A
        LD      C,16
L4      LD      A,E
        CP      C
        LD      A,0
        JR      C,L2
        LD      A,#7F
L2      LD      (HL),A
        CALL    L3
        DEC     C
        JR      NZ,L4
        RET
L3      PUSH    AF
        INC     H
        LD      A,H
        AND     7
        JR      NZ,L5
        LD      A,L
        ADD     A,32
        LD      L,A
        JR      C,L5
        LD      A,H
        SUB     8
        LD      H,A
L5      POP     AF
        RET
           ************************************************
(c) .⭮, .஢.

   । ணࠬ 㦨 ,  ⮨  
⥩: DEMO, SCAN, RED.
DEMO - 樮 /.
SCAN -  .
RED - ணࠬ஢ .
ணࠬ SCAN   室  "A" - ﭨ  :
00 - LEFT
01 - RIGHT
02 - UP
03 - DOWN
04 - FIRE

        ORG      #9000
DEMO    LD       BC,#6464
GO      PUSH     BC
        CALL     8933
        CALL     SCAN
        HALT
        POP     BC
        RRCA
        CALL    C,LEFT
        RRCA
        CALL    C,RIGHT
        RRCA
        CALL    C,UP
        RRCA
        CALL    C,DOWN
        RRCA
        RET     C
        JR      GO
LEFT    DEC     C
        RET
RIGHT   INC     C
        RET
DOWN    INC     B
        RET
UP      DEC     B
        RET
SCAN    LD      DE,#0001
        LD      BC,#0500
        LD      HL,TAB
L1      LD      A,(HL)
        INC     HL
        IN      A,(#FE)
        CPL
        AND     (HL)
        INC     HL
        JR      Z,NO
        LD      A,E
        OR      C
        LD      C,A
NO      RL      E
        DJNZ    L1
        LD      A,C
        RET
        ENT
RED     LD      A,#02
        CALL    #1601
        CALL    WAIT
        CALL    SET_VAR
        LD      B,5
LOOP3   PUSH    BC
        LD      HL,(ADR)
        CALL    PRINT
        INC     HL
        LD      (ADR),HL
LOOP4   LD      A,(NP)
        INC     A
        LD      (NP),A
        CP      8
        JR      NZ,OK
        XOR     A
        LD      (NP),A
OK      LD      A,(N)
        RRCA
        LD      (N),A
        IN      A,(#FE)
        CPL
        AND     #1F
        JR      Z,LOOP4
        CALL    SVTB
        CALL    KEYF
        CALL    CHECK
        CALL    PRINT
        CALL    WAIT
        POP     BC
        DJNZ    LOOP3
        JP      DEMO
SVTB    LD      HL,(TAB2)
        LD      E,A
        LD      A,(N)
        LD      (HL),A
        INC     HL
        LD      (HL),E
        INC     HL
        LD      (TAB2),HL
        LD      B,#FF
LOOP5   RR      E
        INC     B
        RET     C
        JR      LOOP5
KEYF    LD      A,(NP)
        LD      H,0
        LD      L,A
        PUSH    HL
        POP     DE
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,KEY
        ADD     HL,DE
        LD      E,B
        LD      D,0
        ADD     HL,DE
        LD      A,(HL)
        LD      HL,PR
        LD      (HL),A
        RET
CHECK   CP      4
        RET     NC
        LD      HL,ADRT
        ADD     A,A
        LD      D,0
        LD      E,A
        ADD     HL,DE
        LD      A,(HL)
        INC     HL
        LD      H,(HL)
        LD      L,A
        RET
PRINT   LD      A,(HL)
        OR      A
        RET     Z
        INC     HL
        RST     #10
        JR      PRINT
WAIT    XOR     A
        LD      B,8
LOP     PUSH    BC
        PUSH    AF
        LD      A,(N)
        RRCA
        LD      (N),A
        IN      A,(#FE)
        AND     #1F
        CP      #1F
        JR      Z,NO1
        POP     AF
        INC     A
        JR      CONT
NO1     POP     AF
CONT    POP     BC
        DJNZ    LOP
        OR      A
        JR      NZ,WAIT
        LD      B,20
LOOP    HALT
        DJNZ    LOOP
        RET
SET_VAR LD      HL,TAB
        LD      (TABL),HL
        LD      HL,TEXT
        LD      (ADR),HL
        LD      A,#F7
        LD      (N),A
        XOR     A
        LD      (NP),A
        XOR     A
        LD      (NP),A
        RET
KEY     DEFM    "12345QWERT"
        DEFM    "ASDFG"
        DEFB    0
        DEFM    "ZXCV"
        DEFB    2,1
        DEFM    "MNB"
        DEFB    3
        DEFM    "LKJHPOIUY"
        DEFM    "09876"
ADRT    DEFW    CS,SS,SPF,EN
CS      DEFM    "CAPS SHIFT"
        DEFB    0
SS      DEFM    "SIMVOL SHIFT"
        DEFB    0
SPF     DEFM    "SPACE"
        DEFB    0
EN      DEFN    "ENTER"
        DEFB    0
N       DEFB    0
NP      DEFB    0
PR      DEFB    0,0
TABL    DEFW    TAB
TAB     DEFS    10
ADR     DEFW    TEXT
TEXT    DEFB    22,10,10
        DEFM    "LEFT: "
        DEFB    0,22,11,10
        DEFM    "RIGHT: "
        DEFB    0,22,12,10
        DEFM    "DOWN: "
        DEFB    0,22,13,10
        DEFM    "UP:   "
        DEFB    0,22,14,10
        DEFM    "FIRE: "
        DEFB    0
END     NOP

    ணࠬ ॢ ⥪  ଠ ZEUS  ଠ ⥪
IS-DOS.  ⮣ 믮 ᫥騥 ⢨:

1.    ᫥ ᨪ-ணࠬ:
10 LET A=127
15 FOR I=ADR TO ADR+1600 STEP 16
20 RESTORE
30 FOR J=0 TO 15
40 READ S : POKE (1+J),S
50 NEXT J : LET A=A+1
60 POKE (I+6),A
70 NEXT I
80 POKE I,255 : POKE (I+1),255
90 DATA 0,0,10,6,151,34,0,34,0,0,0,10,6,150,48,0

   ADR - 砫 ⥪⮢ 䠩.  筮 ZEUS' - 32768 (#8000).

2.  ZEUS' ७㬨஢ 䠩 (R)   來 ப ⠪,  
뫠   .
3.  ᫥ ணࠬ:
        ORG     #9000
        ENT
ZEUS    EQU     #8000
TEXT    EQU     #A000
        LD      HL,ZEUS
        LD      DE,TEXT
        PUSH    DE
CONT2   LD      A,(HL)
        INC     A
        JR      Z,EXIT
        INC     HL
CONT1   INC     HL
        LD      A,(HL)
        CP      #0A
        JR      Z,TAB
CONT    CP      #7F
        JR      NC,TOKEN
        OR      A
        JR      Z,END
        LD      (DE),A
        INC     DE
        JR      CONT1
TAB     INC     HL
        LD      B,(HL)
        LD      A,32
LB      LD      (DE),A
        INC     DE
        DJNZ    LB
        JR      CONT1
EXIT    EX      DE,HL
        POP     DE
        OR      A
        SBC     HL,DE
        PUSH    HL
        POP     BC
        RET
TOKEN   SUB     127
        LD      B,A
        PUSH    HL
        LD      HL,TOK-1
L1      DEC     B
        JR      Z,PR
L2      INC     HL
        LD      A,(HL)
        OR      A
        JR      Z,L1
        JR      L2
PR      INC     HL
LD      LD      A,(HL)
        OR      A
        JR      Z,STOP
        LD      (DE),A
        INC     HL
        INC     DE
        JR      LP
STOP    POP     HL
        JR      CONT1
END     INC     HL
        LD      A,13
        LD      (DE),A
        INC     DE
        JR      CONT2
TOK     DEFM    "A"
        DEFB     0
        ...
        ...
        DEFM    "2"
        DEFB    0

  ଠ ZEUS 室   ZEUS.
 砥   TEXT.
稭  TOK, 室 १ࢨ஢ ᫮ ZEUS'.
************************************************
(c) Wallks, 1996.

    ࠧ "" ᥣ  ࠧ  ணࠬ  設 ,
       BASIC'. ஡   ஡.  
ணࠬ:

10 BORDER 0: BORDER 0: BORDER 0: BORDER 7: BORDER 1: BORDER 2:
BORDER 0: BORDER 0: LET A=0+5+0: IF INKEY$="" THEN GOTO 10

   ஡   ப     BORDER,    
 . ,  㤥    ࠡ⠥.
************************************************************
(c) .㪮 (MITCHELL & ROSSIA SOFT), .ਫ, 1996

   ᥬ ⥬,      ࣠ 뢮 饩 ப  
ᮯ஢ AY-ᮯ୮ 모, 頥. 몠  ਬ 
⪮஢   49152.
    ப    ࠧ ""  ZX .

 10    ORG  45000
 20    CALL 38986     ; 砥  ப.
 30    CALL 49152     ; 樠㥬 몠 ᮯ.
 40 N1 LD   A,(23560) ;  
 50    CP   32        ; "஡".
 60    JR   Z,KN      ; ᫨ ,  室   KN.
 70    HALT           ;  PAUSE = 1.
 80    CALL 49157     ; 砥 .
 90    JR   N1        ;    N1.
100 KN CALL 39015     ; 몫祭 饩 ப.
110    CALL 49152     ; 몫祭 모.
120    RET            ;   ணࠬ.

    ࠭  ᥬ "ZEUZ". 맮 ணࠬ ந १ 
RANDOMIZE USR 45000.  ⨨  SPACE ந室 室  ணࠬ.
********************************************** 
(c) .ᮢ . ७.

    । ணࠬ  뢮 ⨭  ࠭, 饭 
  :

LD     B, 05
PUSH   BC
LD     C,00
LD     B,#FF
LD     HL,#4000
LD     A,#51
INC    C
DEC    A
JR     NZ,-2
PUSH   BC
PUSH   HL
LD     B,00
ADD    HL,BC
PUSH   HL
LD     DE,#3530
ADD    HL,DE
POP    DE
LD     A,(HL)
LD     (DE),A
POP    HL
LD     A,R
ADD    A,C
LD     A,A
INC    H
LD     A,H
CP       #58
JR     NZ,#-10
POP    BC
DJNZ   #-1D
LD     HL,#7530
LD     DE,#4000
LD     BC,#1B00
LDIR
RET

     뢠 ⠪:
      ⨭  - 16384.
      砫 ᯮ ⨭  - 7530 h.
   ******************************************************************
() .ࣨ.

     । 楤  㤢 ᨬ  ਧ⠫.
   䫠 "C"  ⥪, ⮬,  ⮩  , ࠡ⠥
॥.  室  "DE" -  砫 蠡,  "HL" -  
࠭ .
   ᪮  ७   ᠬ  ,  
ࠧ  13 ⠪⮢  ࠧ.

           LD     BC,0802
D_8        PUSH   BC
           LD     A,(DE)
D_2        LD     B,4
D_1        RLCA
           RLCA
           RL     (HL)
           RLA
           RL     (HL)
           DJNZ   D_1
           INC    L
           DEC    C
           JR     NZ,D_2
           DEC    L
           DEC    L
           INC    H
           INC    DE
           POP    BC
           DJNZ   D_8
           RET

      楤,   ᯥ ᮤন
"A"  "00"  "90" DEC.  騫   誨 "I BALL".  ਬ   
 ⢠ ⮪  砫 .

           LD     A,10    ;  ᫮
           LD     B,9
LOOP1      CP     #0A
           JP     C,M_1
           SUB    #0A
           DJNZ   LOOP1
M_1        LD     C,A
           LD     A,9
           SUB    B
           PUSH   BC
           CALL   PRINT
           LD     A,(LINES)
           ADD    10      ; ﭨ  ࠬ
           LD     (LINES),A
           POP    BC
           LD     A,C
           CALL   PRINT
           RET
PRINT      ...
LINES      ...

    ਬ   ᢮ "PRINT".  ⢥७.  LINES -   
࠭  樨 . ᫨ 짮 RST 16,  । 맮  
ᤥ ADD A,#30.
*****************************************************************************
(c) .᪨, .த.

   । ᢮ 楤 쭮 䥪⨢ 뢮 祭
⮣  254 ,  १ ண 砥 ਬ⨢
஢ 樫 :

           ORG    30000
           DI
           LD     BC,(XY)
BEG1       PUSH   BC
           LD     B,24
           CALL   #0E44
           POP BC
BEG2       IN     A,(254)
           BIT    6,A
           JR     Z,BEG4
BEG3       DEC    B
           LD     A,0     ; ⢮ 㤠塞 ப
           CP     B
           JR     Z,BEG4
           JR     BEG5
BEG4       INC    B
           LD     A,175   ; ࠭  Y
           CP     B       ; ࠭  X
           JR     Z,BEG3
BEG5       PUSH   BC
           CALL   8933
           POP    BC
           DEC    C
           LD     A,0
           CP     C
           JR     NZ,BEG2
           LD     A,#7F
           IN     A,(254)
           BIT    0,A
           JR     NZ,BEG1
           EI
           RET
XY         DEFB   255,87
**********************************************************
() ⠯ ਩ (D.V.P. Computing), 1996

        ਩ । ᫥  ப. ஫ ந室
।⢮ 権 ਡ⮢.  ⥪  ⮩ 楤 
 ࠢ騥 .  ,  ਩    
 ࠢ , .. 楤 ⠫  ,  ⠪, 
⠢   㣨   ᯮ짮  CP NN. 
 ᫥騬 ࠧ:
        #00 -  饩 ப
        #01 -  梥 INK.   ᫥騬 ࠧ:
                128 * FLASH + 64 * BRIGHT + 8 * PAPER + INK
        #02 -  梥 PAPER.   ⠪ .
        #04 -  ਭ ᨬ.    ਭ ᨬ.

        ⠪, ⨭ ணࠬ:

 10         ORG     40000
 20 INSTALL LD      A,128
 30         LD      (PBA),A
 40         LD      HL,TEXT
 50         LD      (TXTA),HL
 60         LD      (TXTAI),HL
 70         RET
 80 SCROLL  CALL    SCR_ATT
 90 A_M4    LD      HL,(TXTA)
100         LD      L,(HL)
110         LD      A,L
120         CP      #20
130         JR      C,CONCA
140         LD      H,0
150         ADD     HL,HL
160         ADD     HL,HL
170         ADD     HL,HL
180         LD      DE,(23606)
190         ADD     HL,DE
200         LD      BC,(PBA)
210         LD      B,8
220         LD      IX,23071
230 A_M3    LD      A,(HL)
240         INC     HL
250         AND     C
260         JR      Z,A_M1
270 COL1    LD      (IX+0),255
280         JR      A_M2
290 A_M1    LD      (IX+0),0
300 A_M2    LD      DE,32
310         ADD     IX,DE
320         DJNZ    A_M3
330         LD      A,(WDA)
340         DEC     A
350         LD      (WDA),A
360         RET     NZ
370         LD      A,(WDAI)
380         LD      (WDA),A
390         LD      A,(PBA)
400         RRCA
410         LD      (PBA),A
420         RET     NC
430 A_M5    LD      HL,(TXTA)
440         INC     HL
450         LD      (TXTA),HL
460         RET
470 SCR_ATT LD      HL,23040
480         LD      C,8
490 S_A2    PUSH    HL
500         LD      B,32
510 S_A1    INC     HL
520         LD      A,(HL)
530         DEC     HL
540         LD      (HL),A
550         INC     HL
560         DJNZ    S_A1
570         POP     HL
580         LD      DE,32
590         ADD     HL,DE
600         DEC     C
610         JR      NZ,S_A2
620         RET
630 CC4     LD      HL,(TXTAI)
640         LD      (TXTA),HL
650 A_M6    JR      A_M4
660 CONCA   AND     #07
670         JR      Z,CC4
680         RRA
690         JR      C,CC1
700         RRA
710         JR      C,CC2
720         RRA
730         JR      C,CC3
740         RET
750 CC1     CALL    TAKN
760         LD      (COL1+3),A
770         JR      A_M6
780 CC2     CALL    TAKN
790         LD      (A_M1+3),A
800         JR      A_M6
810 CC3     CALL    TAKN
820         LD      (WDA),A
830         LD      (WDAI),A
840         JR      A_M6
850 TAKN    CALL    A_M5
860         LD      A,(HL)
870         JR      A_M5
880 TXTA    DEFW    0
890 TXTAI   DEFW    0
900 PBA     DEFB    128
910 WDA     DEFB    1
920 WDAI    DEFB    1
930 TEXT    DEFB    " HELLO ALL USER !!! "
940         DEFB    0

     楤   窨 室:
     INSTALL - 樠 ६;
     SCROLL  - ஫   .

         ப  뢠  BASIC'  ""  뢠 - 
 㤥 㤮.  ࢮ 砥  뢠 ᫥騬 ࠧ:

10 RANDOMIZE USR 40000
20 RANDOMIZE USR 40015: PAUSE 1: GO TO 20

          ப  ⠢  ⪨ INSTALL,    -  
 ⪨ SCROLL.
         뢠   ᫥騬 ࠧ:

        ORG     30000           ;楤 祭 뢠
IMON    DI
        CALL    INSTALL
        LD      A,9
        LD      I,A
        LD      HL,IMWRK
        LD      (65525),HL
        LD      A,195
        LD      (65524),A
        LD      A,24
        LD      (65535),A
        IM      2
        EI
        RET

        ORG     31000           ;楤 ࠡ⪨ 뢠
IMWRK   PUSH    HL
        PUSH    DE
        PUSH    BC
        PUSH    AF
        PUSH    IX
        DI
        CALL    SCROLL
        EI
        POP     IX
        POP     AF
        POP     BC
        POP     DE
        POP     HL
        JP      56

IMOFF   DI                      ;楤 ⪫祭 뢠
        LD      A,63
        LD      I,A
        IM      1
        EI
        RET

            ਬ, ⮬   ᢮  
㣨.
        ᫨ 室   饩 ப  ࠭,
  ᫠  ப 220  470. ᫮  ப 220 뢠 
㫥 22528+Y*32+31,   ப 470  㫥 22528+Y*32,  Y - 
ப,  ன 㤥 稭 뢮 饩 ப. , ,  
ணࠬ:

9C40: 3E 80 32 F6 9C 21 F9 9C :14
9C48: 22 F2 9C 22 F4 9C C9 CD :DC
9C50: A3 9C 2A F2 9C 6E 7D FE :CC
9C58: 20 38 68 26 00 29 29 29 :55
9C60: ED 5B 36 5C 19 ED 4B F6 :1D
9C68: 9C 06 08 DD 21 1F 5A 7E :A3
9C70: 23 A1 28 06 DD 36 00 FF :10
9C78: 18 04 DD 36 00 00 11 20 :74
9C80: 00 DD 19 10 EA 3A F7 9C :D9
9C88: 3D 32 F7 9C C0 3A F8 9C :B4
9C90: 32 F7 9C 3A F6 9C 0F 32 :FE
9C98: F6 9C D0 2A F2 9C 23 22 :93
9CA0: F2 9C C9 21 00 5A 0E 08 :24
9CA8: E5 06 20 23 7E 2B 77 23 :B5
9CB0: 10 F9 E1 11 20 00 19 0D :8D
9CB8: 20 EE C9 2A F4 9C 22 F2 :F9
9CC0: 9C 18 8F E6 07 28 F4 1F :C7
9CC8: 38 07 1F 38 0C 1F 38 11 :6E
9CD0: C9 CD EC 9C 32 77 9C 18 :E7
9CD8: E8 CD EC 9C 32 7D 9C 18 :14
9CE0: E0 CD EC 9C 32 F7 9C 32 :A8
9CE8: F8 9C 18 D5 CD 9B 9C 7E :87
9CF0: 18 A9 02 9D F9 9C 02 01 :84
9CF8: 01 20 48 45 4C 4C 4F 20 :49
9D00: 41 4C 4C 20 55 53 45 52 :D5
9D08: 20 21 21 21 20 00 ED A0 :D5
**********************************************************
(c) .ப, 1996.

     । ணࠬ,  ந "믠" ࠭,  
ᤥ   "TANK WARS"  IBM-設. .., ᫨ ⠢  ࠭
窨  ந쭮 浪,   㯠 ,    ⢨ ᨫ
殮.  ⮩ 楤 ᯮ ᫥騩 :
         孥 ப 室  ॣ஢  DE
         ப,  室   -  ॣ஢  HL

        ন 祥  믠:
          (DE)   1101 0010
          (HL)   1011 1001

        ন 祥 ᫥ 믠:
          (DE)   1001 0000
          (HL)   1111 1011

        ন 孥 祩  , ᫨ ᫮   
AND.  , ᫨ ᫮  孥  OR.  ᭮  ணࠬ.
          ணࠬ:
        XPOS - न X 窨     믠 ;
        YPOS - न Y ⮩- 窨;
        Y0   -    室 ணࠬ,  ⫨稥  YPOS;
        VIS  -    ᥫ.

          ࠬ஢  믠, 室  ६,
ᠭ ,  ⠪, ᫮  ப 180, ஥ 㪠뢠  ਭ
믠   .   ਠ ६ ⠭ 
믠 ᥣ ࠭ - 175 ப  32 .

 10         ORG     40000
 20         LD      A,(VIS)
 30         LD      B,A
 40 L1      PUSH    BC
 50 L11     PUSH    BC
 60         LD      A,(XPOS)
 70         LD      C,A
 80         LD      A,(YPOS)
 90         INC     A
100         LD      B,A
110         PUSH    BC
120         CALL    #22AA
130         LD      D,H
140         LD      E,L
150         POP     BC
160         DEC     B
170         CALL    #22AA
180         LD      B,32
190 LOOP    LD      A,(DE)
200         PUSH    AF
210         AND     (HL)
220         LD      (DE),A
230         POP     AF
240         OR      (HL)
250         LD      (HL),A
260         INC     HL
270         INC     DE
280         DJNZ    LOOP
290         LD      A,(YPOS)
300         INC     A
310         LD      (YPOS),A
320         POP     BC
330         DJNZ    L11
340         LD      A,(VIS)
350         DEC     A
360         LD      (VIS),A
370         LD      A,(Y0)
380         LD      (YPOS),A
390         POP     BC
400         DJNZ    L1
410         RET
420 XPOS    DEFB    0
430 YPOS    DEFB    0
440 VIS     DEFB    175
450 Y0      DEFB    0

         ਢ    ,     ணࠬ 
ᥬ:

9C40: 3A 84 9C 47 C5 C5 3A 82 :C3
9C48: 9C 4F 3A 83 9C 3C 47 C5 :70
9C50: CD AA 22 54 5D C1 05 CD :C9
9C58: AA 22 06 20 1A F5 A6 12 :AD
9C60: F1 B6 77 23 13 10 F5 3A :8F
9C68: 83 9C 3C 32 83 9C C1 10 :81
9C70: D4 3A 84 9C 3D 32 84 9C :C9
9C78: 3A 85 9C 32 83 9C C1 10 :91
9C80: C3 C9 00 00 AF 00 00 00 :57
  *********************************************************************
(c) .类, 1996.

         ணࠬ ⠫ ⮩ , ⮫쪮   ᯮ 楤 
 ⠫ ५㥬. ,   ॢ室  ᪮ ࠡ - 
஢  ࠬ 175 ப  32 :
        । ணࠬ ந 믠  15 ᥪ㭤
          ந   13 ᥪ㭤

        ,  ணࠬ "믠" ࠭  ᫥ ࠬ - 192
ப  32 a.
          ࠬ஢   ᫮  ப 20, ஥
㪠뢠  ⢮ ப  믠 ࠭,   ப 40,
뢠騩  ப,  ன ந室 "믠".  ப 90 
 ᫮   .
         ப 170  180    INC   DEC,  
⮬  ந ४   ப 40 ⠪, ⮡  㪠뢠 
 ࠢ 㣮 .   ६  㪠뢠   
㣮 .

 10         ORG     40000
 20         LD      C,175
 30 GO      PUSH    BC
 40         LD      DE,22432
 50         PUSH    DE
 60         JR      START
 70 Y       PUSH    HL
 80         PUSH    HL
 90         LD      B,32
100 STEP    LD      A,(DE)
110         PUSH    AF
120         OR      (HL)
130         LD      (DE),A
140         POP     AF
150         AND     (HL)
160         LD      (HL),A
170         INC     L
180         INC     E
190         DJNZ    STEP
200         POP     DE
210 START   POP     HL
220         DEC     H
230         LD      A,H
240         AND     7
250         CP      7
260         JR      NZ,OFF
270         LD      A,L
280         SUB     32
290         LD      L,A
300         JR      C,OFF
310         LD      A,H
320         ADD     A,8
330         LD      H,A
340 OFF     DEC     C
350         JR      NZ,Y
360         POP     BC
370         DEC     C
380         JR      NZ,GO
390         RET

           .   ᯮ짮 祭 ६, 
 ந室 ࠢ  ।饩 ணࠬ. ⮬ ⥬, 
᭮,  ᠬ ࠢ ࠡ  ணࠬ.

9C40: 0E AF C5 11 A0 57 D5 18 :53
9C48: 10 E5 E5 06 20 1A F5 B6 :A9
9C50: 12 F1 A6 77 2C 1C 10 F5 :59
9C58: D1 E1 25 7C E6 07 FE 07 :39
9C60: 20 0A 7D D6 20 6F 38 04 :44
9C68: 7C C6 08 67 0D 20 DA C1 :7D
9C70: 0D 20 CF C9 00 00 00 00 :D1
*****************************************************************
(c) .ᠭ஢, ..

    ணࠬ ந ᫥ 䠪ਠ. ᮡ   ⮬,  
। ᫥ ࠭祭,  ந  ⥪饣 ⥫.

10 INPUT A : CLS
20 LET E=0 : LET B=1
30 FOR C=1 TO A : LET B=B*C
40 IF B<10 THEN GOTO 80
50 LET B=B/10 : LET E=E+1
60 IF B>10 THEN GOTO 50
70 PRINT AT 0,0;C
80 NEXT C
90 PRINT AT 0,0;A;"!=";B;"E+";E : GOTO 10
********************************************************** 
(c) .稭楢, ஢᪠ .

      ⠫  ZX  95/2 ணࠬ ⮭ ७ " OPTION SELECTOR". 
  । ⥫ ᢮  "OPTION SELECTOR'".   150 
.
    ⮭  뤥 樨 ᯮ ਡ,   ᯮ 楤 
 ᨬ, 뢠   ࠦ  "OVER".  ⮭   
"OPTN" 㦠  ࠭ 㭪,    ணࠬ  室 
 㦭 . 祬, ᫨   㦭,   㧭  ࠭ 
㭪  ⪥ "NUM".

          ORG 40000
OPR       CALL PRINT
          CALL PAUSE
OPR1      LD A,#FD
          IN A,(#FE)
          BIT 0,A
          JR Z,DOWN
          LD A,#FB
          IN A,(#FE)
          BIT 0,A
          JR Z,UP
          LD A,#7F
          IN A,(#FE)
          BIT 0,A
          JR Z,FIRE
          JR OPR1
PAUSE     LD B,5
MM        HALT
          DJNZ MM
          RET
DOWN      CALL PRINT
          LD A,(YC)
;       1->
          CP 5
          JR Z,OPR
          INC A
          LD (YC),A
          LD A,(NUM)
          INC A
          LD (NUM),A
          CALL PAUSE
          JR OPR
UP        CALL PRINT
          LD A,(YC)
;       2->
          CP 0
          JR Z,OPR
          DEC A
          LD (YC),A
          LD A,(NUM)
          DEC A
          LD (NUM),A
          CALL PAUSE
          JR OPR
FIRE      LD A,(NUM)
          LD DE,VETKA
          LD L,A
          LD H,0
          ADD HL,HL
          ADD HL,DE
          LD E,(HL)
          INC HL
          LD D,(HL)
          EX DE,HL
          JP (HL)
PRINT     LD (IY+87),3
          LD HL,CUP
          LD A,(SH)
          LD B,A
L1        LD A,22
          RST 16
          LD A,(YC)
          RST 16
          LD A,(XC)
          RST 16
          INC A
          LD (XC),A
          LD A,(HL)
          RST 16
          DJNZ L1
          LD A,(XPC)
          LD (XC),A
          LD (IY+87),0
          RET
YC        DEFB 0
XC        DEFB 0
XPC       DEFB 0
NUM       DEFB 0
CUP       DEFB 143
SH        DEFB 10
          DEFW;    ADR1
          DEFW;                  ADR2
          DEFW;                   .
          DEFW;
           .
           .
           .
      ணࠬ:
    ⪠ YC -  樨;
          XC -   X;
          XPC-   ࠢ  ࢮ  ⪨ XC, ⮡   
               룠  ࠭;
          NUM-  樨;
          CUP-  ᨬ;
          SH - ਭ 樨;
          VETKA -  室.
     祭 "CP" ( 1->, 2->),   㢥  㬥 
⢮ 롥ࠥ 㭪⮢.
     ࠢ  ⮩ ணࠬ: Q, A, SP.
   ***********************************************************************
    ࣥ ᥥ  . ᪮ ᫠ ᪮쪮 ணࠬ.
      ணࠬ "" ஥ :
ணࠬ 1:
          ORG 40000
          ENT $
FONT      EQU 41000
          LD HL,15616
          LD DE,FONT
          PUSH DE
          LD BC,768
          LDIR
          POP HL
          PUSH HL
          LD BC,768
LOOP      PUSH HL
          LD A,(HL)
          PUSH AF
          LD HL,BUF
          RLD
          POP AF
          RLCA
          POP HL
          OR (HL)
          PUSH HL
          LD HL,BUF
          RRD
          POP HL
          LD (HL),A
          INC HL
          DEC BC
          LD A,B
          OR C
          JR NZ,LOOP
          POP HL
          DEC H
          LD (23606),HL
          RET
BUF       DEFB 0

 ணࠬ 2:
          ORG 40000
          ENT $
FONT      EQU 41000
          LD HL,15616
          LD DE,FONT
          PUSH DE
          LD BC,768
          LDIR
          POP HL
          PUSH HL
          LD B,96
LOOP      INC HL
          CALL LABEL
          INC HL
          INC HL
          INC HL
          INC HL
          INC HL
          CALL LABEL
          INC HL
          INC HL
          DJNZ LOOP
          POP HL
          DEC H
          LD (23606),HL
          RET
LABEL     LD A,(HL)
          SRA A
          OR (HL)
          LD (HL),A
          SLA A
          OR (HL)
          LD (HL),A
          RET

    :     "⠣ 128"  AY,     ன  ⥬ 
,  ᤥ ।  ஢:

          ORG 40000
          LD HL,23290
          LD A,8
          LD E,3       ;梥 ᪨ 
          CALL KANAL
          LD HL,23291
          LD A,9
          LD E,5
          CALL KANAL
          LD HL,23292
          LD A,10
          LD E,7
          CALL KANAL
          RET
KANAL     LD BC,#FFFD
          OUT (C),A
          LD A,#3D
          LD (MODE),A
          IN A,(C)
          AND 15
          LD B,16
LOOP      CP 0
          CALL Z,STIR
LAB1      LD (HL),E
          PUSH DE
          LD DE,32
          SBC HL,DE
          POP DE
MODE      DEC A
          DJNZ LOOP
          RET
STIR      XOR A
          LD (MODE),A
          LD E,0       ;梥 ࠭
          RET

     樨 ⮩ ணࠬ  ᯮ짮 ᫥騩 BASIC-:

  10 INK 7: PAPER 0: BORDER 0: C
LEAR 39999: RANDOMIZE USR 15619:
REM : LOAD "ind_ay"CODE
  15 INPUT "FILENAME "; LINE A$
  16 INPUT "ADRES "; LINE D$: IF
D$="" THEN LET ADR=49152: GO TO 20
  17 LET ADR=VAL D$
  20 RANDOMIZE USR 15619: REM :
LOAD A$CODE ADR
  30 INPUT "INIT "; LINE I$: IF
I$="" THEN LET INIT=49163: GO TO 32
  31 LET INIT=VAL I$
  32 INPUT "NEXT "; LINE N$: IF
N$="" THEN LET NEXT=49166: GO TO 40
  33 LET NEXT=VAL N$
  40 RESTORE 90: FOR N=0 TO 7: R
EAD A: POKE USR "A"+N,A: NEXT N
  50 FOR Y=8 TO 21: PRINT AT Y,2
6;"AAA": PRINT #0;AT 0,26;"AAA";
AT 1,26;"AAA"
  60 RANDOMIZE USR INIT
  70 RANDOMIZE USR NEXT: PAUSE 1
: RANDOMIZE USR 40000: IF INKEY$
="" THEN GO TO 70
  80 RANDOMIZE USR INIT
  90 DATA 238,238,2388,0,238,238
,238,0
******************************************************************************
    : ᠭ   .ப쥢᪠ ᫠ ᮪饭  5   
᪮७ ਠ "饩 ப", 㡫  ZX  N6/95 (MUGY).

          LD HL,#401F;  孥 ࠢ 㣫  ப
          LD C,8
LOOP1     LD B,32    ; ਭ ப  
          LD E,L
          OR A
LOOP2     RL (HL)
          DEC L
          DJNZ LOOP2
          LD L,E
          INC H
          DEC C
          JR NZ,LOOP1
          RET

     ⠪ । ᢮ ਠ  稪 ࠭:

;  (C)    BY KABANOV ALEXANDR
          DI
          XOR A
          SUB 1
          EX AF,AF'
          LD C,COLOUR
          LD IX,#4000
          LD DE,#0020
          CALL #56A
          LD B,191
LOOP      PUSH BC
          LD H,C
          LD BC,224
          ADD IX,BC
          LD A,7
          DEFB #DD
          AND H
          JR NZ,PROD
          DEFB #DD
          LD A,L
          ADD A,32
          DEFB #DD
          LD L,A
          JR C,PROD
          LD BC,63488
          ADD IX,BC
PROD      LD C,H
          LD E,32
          CALL #5A9
          POP BC
          DJNZ LOOP
          LD D,3
          CALL #5A9
          EI
          RET

      稪  ५㥬,   61 .   -   
 , 騩 ࠩ⮬,   - ਡ.
  Ŀ
  COLOR                      
  Ĵ
   0,7    ୮-  ୮-멳
   1,6    ᨭ-   ᭮-㡮 
   2,5  ᭮-㡮   ᨭ-   
   3,4 ୮-멳  ୮-   
  
     맮 楤 #5A9   ॣ L  C.  ॣ 
C (訥  ) ᮤন 梥  .   ,  
訥  ⮢ ⮣ ॣ  ⠢ ﭭ묨.
******************************************************************************
(c) .쪮, .. 1996.
   ᫨  ஥ ࢮ  ZX FORUM,  㢨 ⠬ ணࠬ 
 ..,   ࣠ 㤮 ५ 䥩.  
祭 㤮 ணࠬ, ,   ,   ५  
 㤮⢮. ᫨  ᬮਬ  ணࠬ ,   ᫥ 
ணࠬ,  㢨,  ५,     , "" .   
ॠ  㭪?  ਢ ⥫ ࠡ⪨ 㪠 
ணࠬ,   ॠ  䥪.  㯮  
㣠 મ ,      ⬠.
    室 ⥪ ணࠬ   楤 START,  
⠫ ணࠬ  .
   ⠪,  ਢ ᭠砫 ணࠬ,  ⥬ ᪠,  㦭  
ᯥ譮 ࠡ ணࠬ.

START   LD HL,(CRDS)  ; ६ न 뢮 ५.
        LD A,255      ; ᨬ ᫮ 255   樨,    ⮬,
        LD (OPC1),A   ;  ५    .
        PUSH IX       ;   ⠪,   ணࠬ.
QO      CALL SCRBF
        CALL FORM
        HALT
        IN A,(31)
        PUSH AF
        CALL BFSCR
        POP AF
        LD C,A
        LD E,STEP
        LD D,254
        LD HL,CRDS+1
        BIT 0,C
        CALL NZ,PL
        BIT 1,C
        CALL NZ,MIN
        LD D,190
        DEC HL
        BIT 2,C
        CALL NZ,PL
        BIT 3,C
        CALL NZ,MIN
        BIT 4,C
        JR NZ,EXIT
        CALL COND     ; 뢠 楤 ஢ન  ५.
        CALL BAR      ; 뢠 楤 訢/࠭ 樨.
        JR QO
COND    LD IX,(TABLE) ;  IX ᨬ  .
        LD A,1        ; ᨬ  ࢮ 樨  ᯮ⥫
        LD (OPC),A    ; ६.
        LD HL,(CRDS)  ;  HL ⥪騥 न ५.
        SRL H         ;   न ५  ᥫ,  ணࠬ
        SRL H         ; ࠡ⠥  ⠬   न  8.
        SRL H
        SRL L
        SRL L
        SRL L
COND1   LD A,(IX+0)   ;  A न X .
        CP 255        ; ᫨ 255,   稫  ५   樨.
        RET Z         ; 室.
        LD D,A        ; ஢塞   X.
        LD A,H
        CP D
        JR C,PROPOPC  ; ᫨  樨, ய᪠ .
        LD A,D
        LD B,(IX+2)   ;  ॣ B  樨  .
        DEC B
        ADD A,B
        CP H
        JR C,PROPOPC  ; ᫨ ࠢ 樨, ய᪠ .
        LD A,(IX+1)   ;  A न Y.
        CP L
        JR NZ,PROPOPC ; ᫨  ᮢ  ⥪饩 न⮩ Y, ய᪠.
        LD A,(OPC)    ; ᫨  ஢ન 諨,   諨  樨
        RET           ; 㦠   A  室.
PROPOPC LD DE,3       ; 室   ᫥饩 樨.
        ADD IX,DE
        LD A,(OPC)    ;  ⥪饩 樨 㢥稢  1.
        INC A
        LD (OPC),A
        JR COND1      ;  ஢塞.
BAR     LD L,A        ; ᫥ 室  楤 COND  ॣ A 
                      ; 樨  255, ᫨ ५  .
        LD A,(OPC1)   ; ⨫  A  ।饩 樨, ࠢ 
        CP L          ;    ᫨  ࠢ,  訢  .
        RET Z         ; 室.
        CP 255        ; ᫨ ५ 諠  樨,     ,
        JR Z,BAR5     ;    ,    BAR5.
        PUSH AF
        LD A,L        ; ᨬ     ண.
        LD (OPC1),A
        POP AF
        CALL BAR1     ; ࠥ  .
BAR6    LD A,(OPC1)   ;  A   樨.
        CP 255        ; ᫨   ,    .
        RET Z         ; 室.
BAR1    DEC A         ; ⮢  ᪥  樨.
        LD H,0
        LD L,A
        PUSH HL
        POP DE
        ADD HL,HL
        ADD HL,DE
        EX DE,HL
        LD IX,(TABLE)
        ADD IX,DE
BAR3    LD H,(IX+0)
        LD L,(IX+1)
        CALL FILL     ; 楤 FILL 訢,  ࠥ .
        RET
BAR5    LD A,L
        LD (OPC1),A
        JR BAR6
FILL    LD A,L        ; 騥 ப 뢠  樨  ਡ.
        AND 7
        RRCA
        RRCA
        RRCA
        ADD A,H
        AND #18
        RRCA
        RRCA
        RRCA
        OR #58
        LD H,A
        LD A,(HL)     ; ६  ਡ.
        PUSH AF       ; 騥 ப  ,  ⠬
        AND 7         ; INK  PAPER. BRIGHT  뢠.
        SLA A
        SLA A
        SLA A
        LD D,A
        POP AF
        AND 56
        SRA A
        SRA A
        SRA A
        OR D
        LD B,(IX+2)   ;  ॣ B  樨  .
FILL1   LD (HL),A     ; ᫨  ⠭  梥⭮ 䮭,   横
        INC HL        ; ᫥  ப, 稭  "६ 
        DJNZ FILL1    ; ਡ".
        RET
START1  LD (TABLE),HL ;  ⤥쭠 楤,   न
        LD A,(HL)     ; ५ ⠪, ⮡     .
        ADD A,A
        ADD A,A
        ADD A,A
        LD D,A
        INC HL
        LD A,(HL)
        ADD A,A
        ADD A,A
        ADD A,A
        LD E,A
        INC HL
        LD A,(HL)
        ADD A,A
        ADD A,A
        ADD A,A
        SUB 4
        LD D,A
        LD (CRDS),DE
        RET
TABLE   DEFW 0        ;  㤥  ⠡.
OPC     NOP           ;   樨.
OPC1    NOP           ;  ன 樨.
TABLE1 X,Y,L,X1,Y1,L1, ... ,255      ;  .

    ᯥ譮 ࠡ ॡ:
   ⠢ ⠡ ᠭ 権   ⠪ 浪 - ᭠砫  न
X, ⥬ Y, ⥬  樨  . X  Y   .
    ࠪ᪨ ᯮ짮 楤:

PROGRAM LD HL,TEXT    ; ⠥ ⥪ .
        CALL PRINT
        LD HL,TABLE1  ;  HL  ⠡  .
        CALL START1   ; ᨬ   ६ TABLE  業㥬 ५.
L1      CALL START    ; 맮 楤 ५.
        LD A,(OPC1)   ;  A 頥  樨,  ன  
                      ; ५ 﫠 ५.
        CP 255        ; ᫨  A 255,  ५       
        JR Z,L1       ; 㥬 ५ ( ॠ஢  㣮).
        CP 1          ;  ஢塞   樨 﫠 ५ 
        CALL Z,PROG1  ;  室  㦭 ணࠬ.
        CP 2          ;     ⮣  ⠭ 樨 
        JR Z,PROG     ; ࠭,    ⠢ ⠡.
         ..

   ᫥  ५  ⠥ ,     ᥣ  ਥ.
 ਭ㤨⥫쭮 襭 樨, ᫥  CALL START    -
 CALL BAR6.
    । ⠪ ,      ,  室
,   ५ 㤠, 㤠  .  ⮣:

PROGRAM LD HL,TABLE1  ;  HL  ⠡,  ⮨ ⮫쪮   255
        CALL START1
        CALL START    ; 뢠 ணࠬ ५.
        LD HL,TABLE2  ;  HL  饩 ⠡ ᠭ.
        LD (TABLE),HL ; ᨬ   ६.
        CALL COND     ; 饬  樨. ᫥ 室  㤥  A,  
        CP 255        ;  ६ OPC1!!!
        JR Z,PROGRAM  ;  ࠡ뢠   㣮.
        CP 1
        CALL Z,PROG
         ..
TABLE1  DEFB 255      ;  ⠡.
TABLE2  X,Y,L,255     ;  ⠡.

    ⮬   ᢮ ⢮. , ᫨ -  
ଠ .
*******************************************************************************