                         .
(C) . ᨫ쥢 . .

           ᯮᮡ ᨨ  .   , 
 ᮢ襭⢮ RLE-.
          .  ᥬ  ⭮, 䠩 ᫥ RLE-ᦠ, 
⮨   ।   㣮 祥 (   "⮢", ⮬ 
   ᥣ ⠪).  ,  ࢮ   ࠭ ⢮ ७  
 祭,   ஬ - ।⢥ ᠬ 祭.  । 
 ⠪ ࠧ 砨,    祩  .  
᫨ ⠪ ,   ந ᮢᥬ  ,  ᠬ  . 
 ࠧ  砨,   ᪠, ࠧ,     ,    
ᥬ ࠧ⠬.      楤ઠ.  ࠧ?  
.
          -  ଠ樮  ࠢ (,  
 ࠢ)  䠩. ଠ   㤥     ⮬,  
  ⮬ (᫥ ࠢ).
      ᫨  襬 ᦠ⮬ RLE-䠩  ࢮ 祩 㤥  ,  
 "㡥६"   ࠢ筮 䠩, ⮡   ⮬, 稬  . 
⥬ ३  ᫥饩  祥. ᫨  ࢠ 祩 ⠪ 㤥 
ᮤঠ ,   㯨 ⠪ : "騬"   稬 ன ᫥ 
.  ᫨ ⠬  ࠧ⭠ ,  祣 ᪨  㤥,   
ࠢ筮 䠩 ⮣ 祣  㤥 .
       㤥 ᬠਢ 3  祥  ⨩ ᫥   ⠪  
  RLE-䠩.   殢 祣- ⠬  㬥.
      ਢ  楤 ᨨ  ᮤন  ᥡ RLE-ᨨ. 
 ࠧ  㤥 ࠡ  㦥 ᦠ RLE-⮤ 䠩.  
 - ୥ 䠩  ࢮ砫쭮  । RLE-ᦠ⨥.

 楤 ᨨ ( = 95 ):

;COMPRESSOR - 3
;special for "INFORCOM"
;(C) Vasilyev Alexey, 1996
         LD    HL,ADR1
         LD    DE,ADR2
         LD    BC,ADR3
BEGIN    LD    A,(HL)
         CP    1
         JR    Z,CONT
         XOR   A
         RLA
         LD    A,(INF)
         RLA
         LD    (INF),A
         CALL  P1
         LD    A,(HL)
         LD    (DE),A
         INC   HL
         INC   DE
         LD    A,(HL)
         LD    (DE),A
         INC   HL
         INC   DE
         JR    P2
CONT     LD    A,#80
         RLA
         LD    A,(INF)
         RLA
         LD    (INF),A
         CALL  P1
         INC   HL
         LD    A,(HL)
         LD    (DE),A
         INC   HL
         INC   DE
P2       PUSH  BC
         LD    BC,(LARGE)
         DEC   BC
         DEC   BC
         LD    (LARGE),BC
         LD    A,B
         OR    C
         JR    NZ,BEGIN
         LD    A,(INF)
         LD    (BC),A
         RET
P1       LD    A,(DINF)
         INC   A
         LD    (DINF),A
         CP    8
         RET   NZ
         XOR   A
         LD    (DINF),A
         LD    A,(INF)
         LD    (BC),A
         INC   BC
         RET
INF      DEFB  0
DINF     DEFB  0
LARGE    DEFW  NN

 
      ADR1 -  砫 ᦨ 䠩-
             ;
      ADR2 - 㤠  ᦠ 䠩;
      ADR3 - 㤠  -䠩,
     LARGE 㪠뢠  䠩.

         :   (89 )

         LD    HL,ADR1
         LD    DE,ADR2
         LD    BC,ADR3
START    LD    A,(BC)
         LD    (NUM),A
         INC   BC
BEGIN    LD    A,(NUM)
         RLA
         LD    (NUM),A
         LD    A,0
         RLA
         CP    1
         JR    Z,CONT
         PUSH  BC
         LD    B,(HL)
         INC   HL
         LD    A,(HL)
MET      LD    (DE),A
         INC   DE
         DJNZ  MET
         INC   HL
         POP   BC
         CALL  PP1
         CALL  PP1
         LD    A,B
         OR    C
         RET   Z
         JR    PP2
CONT     LD    A,(HL)
         LD    (DE),A
         INC   HL
         INC   DE
         CALL  PP1
         LD    A,B
         OR    C
         RET   Z
PP2      LD    A,(DNUM)
         INC   A
         LD    (DNUM),A
         CP    8
         JR    NZ,BEGIN
         XOR   A
         LD    (DNUM),A
         JR    START
PP1      PUSH  BC
         LD    BC,(LAR)
         DEC   BC
         LD    (LAR),BC
         POP   BC
         RET
NUM      DEFB  0
DNUM     DEFB  0
LAR      DEFW  NN


      ADR1 -  ᦠ⮣ 䠩;
      ADR2 -  ࠢ筮 䠩;
      ADR3 - 㤠  . 䠩,
       LAR ࠭  ᦠ⮣ 䠩.
***************************************************************************
              

   () ૮ ᠭ,1996. ஢ࠤ

      ஢ ZX- 뫠 ⠭  " 㯭ଠ 
ࠦ".  ।  ணࠬ.  ⫨稥  ⮬,   
ந室   ࠦ.       ࠭  
,   ⭮ .
   ।  ࠭ 䠩   २.   ᨬ 
 䠩   묨. ᫥  ᨬ - न ࠭ 
  X  Y. ணࠬ  ᨪ ⮬᪨ 㦠 室 
䠩.  ६    ᪮ ᥣ     
⠥묨 䠩.
   ணࠬ  設  ⠭  䥩 ਭ  ᭮  
55.  ZX LPRINT III   ப 900 - 930  1120 - 1230,   
।饩 . ணࠬ ᫥  ப  ய᪠ . ᫨ 
 ਭ  ন ०  ⭮ (27,*,x),   
 ᨪ-ணࠬ  150 - 180 ப  ணࠬ  設 .
   ⮬᪠ 㧪 䠩      ࠧ 
⢮ ࠭.

00010 ; BIGPRINT
00020 ; Kharlov A. 1996
00030          ENT
00040          ORG  26500
00050          DI
00060          LD   HL,(graph)
00070          LD   B,3            ; ⢮ ⥩ ࠭.
00080 loop1    LD   C,8            ; ⢮ ப  1 .
00090 loop2    PUSH BC
00100          PUSH HL
00110          LD   DE,(bufer)     ; 樠
00120          LD   (buf),DE       ; .
00130          LD   A,27           ; ⠭ ᪮ ०.
00140          CALL wbuf
00150          LD   A,42
00160          CALL wbuf
00170          LD   A,(dens)
00180          CALL wbuf
00190          XOR  A
00200          CALL wbuf
00210          LD   A,(kx)
00220          LD   E,A
00230          CALL wbuf
00240          XOR  A              ; 㫥 ஫쭮 .
00250          LD   (opt),A
00260 lp1      LD   D,32           ; ⢮   ப.
00270 lp2      LD   B,8            ; "ॢ뢠" 쬨 
00280 lp3      LD   A,1            ;  ࠭  ᥭ
00290 lp4      RLC  (HL)           ;  .
00300          INC  H
00310          RLA
00320          JR   NC,lp4
00330          CALL wbuf
00340          LD   A,H
00350          SUB  8
00360          LD   H,A
00370          DJNZ lp3
00380          INC  HL
00390          DEC  D
00400          JR   NZ,lp2
00410          LD   BC,6112        ; 室  ᫥騩 ࠭.
00420          ADD  HL,BC
00430          DEC  E
00440          JR   NZ,lp1
00450          LD   A,(opt)        ; ஢ઠ   ப.
00460          OR   A
00470          JR   NZ,op
00480          LD   HL,(bufer)     ; 樠 .
00490          LD   (buf),HL
00500 op       LD   A,13           ;  ⪨  ॢ ப.
00510          CALL wbuf
00520          LD   A,10
00530          CALL wbuf
00540          CALL prbuf          ;  .
00550          POP  HL
00560          LD   DE,32          ; 室  ᫥ ப ࠭.
00570          ADD  HL,DE
00580          POP  BC
00590          DEC  C
00600          JR   NZ,loop2
00610          LD   DE,1792        ; 室  ᫥  ࠭.
00620          ADD  HL,DE
00630          DEC  B
00640          JR   NZ,loop1
00650          EI
00660          RET
00670 wbuf     PUSH HL             ;   .
00680          LD   HL,(buf)
00690          LD   (HL),A
00700          LD   A,(opt)        ; 祭   ஢ન
00710          OR   (HL)           ;   ப.
00720          LD   (opt),A
00730          INC  HL
00740          LD   (buf),HL
00750          POP  HL
00760          RET
00770 prbuf    LD   DE,(buf)       ;  .
00780          LD   HL,(bufer)     ; 砫 .
00790 next     LD   A,(HL)
00800          CALL print          ; 뢮   ਭ.
00810          INC  HL
00820          LD   A,L            ; ࠢ HL  DE, ᫨  ࠢ,
00830          XOR  E              ;  த.
00840          JR   NZ,next
00850          LD   A,H
00860          XOR  D
00870          JR   NZ,next
00880          RET
00890 init     DI                  ; 樠 ਭ.
00900          LD   A,#98          ; ࠢ饥 ᫮  55.
00910          OUT  (#7F),A
00920          LD   A,1            ; STROBE = 1.
00930          OUT  (#5F),A
00940          LD   A,27           ; ⠭ ࢠ 24/216.
00950          CALL print
00960          LD   A,51
00970          CALL print
00980          LD   A,(inter)
00990          CALL print
01000          LD   A,13           ; ॢ ப.
01010          CALL print
01020          LD   A,10
01030          CALL print
01040          LD   A,27           ;     ப.
01050          CALL print
01060          LD   A,106
01070          CALL print
01080          LD   A,(inter)
01090          CALL print
01100          EI
01110          RET
01120 print    OUT  (#3F),A        ;  .
01130 wait     LD   A,127          ; ஢ઠ "஡".
01140          IN   A,(254)
01150          RRA
01160          RET  NC
01170          IN   A,(#5F)        ; ஫ BUSY.
01180          RLA
01190          JR   C,wait
01200          XOR  A
01210          OUT  (#5F),A        ; STROBE = 0.
01220          LD   A,1
01230          OUT  (#5F),A        ; STROBE = 1.
01240          RET
01250 graph    DEFW 27000          ;  .
01260 bufer    DEFW 63900          ;  .
01270 buf      DEFW 0              ; ⥪騩  .
01280 kx       DEFB 1              ; ⢮ ࠭  X.
01290 inter    DEFB 24             ; ࢠ  ப.
01300 dens     DEFB 0              ; ⭮.
01310 opt      DEFB 0

   設 楤 ࠡ⠥  ࠢ ᨪ ணࠬ.

10 BORDER 1: PAPER 1: INK 7: CLEAR 26499
20 RANDOMIZE USR 15619: REM: LOAD "bigprint" CODE
30 LET n$="screen": LET x=1: LET y=1: LET d=0
50 CLS: PRINT AT 5,5;"1. Cat"'"     2. File:";n$;"**"'"     3
. Density:";d;'"        0-60   1-120"'"        2-120' 3-240"'"
      4-80   5-72"'"        6-90"'"  4. Print"
60 LET k$=INKEY$: IF k$="" THEN GO TO 60
100 IF k$="2" THEN GO TO 200
110 IF k$="3" THEN GO TO 250
120 IF k$="4" THEN GO TO 300
130 IF k$<>"1" THEN GO TO 60
140 RANDOMIZE USR 15619: REM: CAT
150 PAUSE 0: GO TO 50
200 INPUT " Name:";n$: IF LEN n$>6 THEN GO TO 200
210 IF LEN n$<6 THEN LET n$=n$+" ": GO TO 210
220 GO TO 50
250 INPUT " Density:";d: IF d>6 OR d<0 THEN GO TO 250
260 GO TO 50
300 INPUT " Print (y/n)? ";k$: IF k$<>"y" AND k$<>"Y" THEN GO TO 50
310 POKE 26745,d: RANDOMIZE USR 26663
350 LET y=1
370 LET a=27000: LET x=1
380 LET f$=n$+CHR$ (y+48)+CHR$ (x+48): LET er=USR 15619: REM: LOAD
f$CODE a,6144
390 IF er<>0 AND x<>1 THEN GO TO 430
400 IF er<>0 AND x=1 THEN GO TO 50
410 LET a=a+6144: LET x=x+1
420 IF x<7 THEN GO TO 380
430 POKE 26743,(x-1): RANDOMIZE USR 26500
440 LET y=y+1: GO TO 370
9999 RANDOMIZE USR 15619: REM: SAVE "BIGPRINT" LINE 10
*******************************************************
।  ணࠬ   IS-DOS.O -           㦥 ᢥ⠭.
  뢮    ࠭  ࠩ-䠩         ⮬    ␮!!
ଠ  ᪮  ।  PICASSO               譥.
for IS-DOS  (७ .sp).   䠩
 ਡ⮢     ﭭ
梥 ணࠬ unicolor.com .
    뢮  ࠭  ⨨ 
3(VIEW) 㦭   ᫥ ப
 䠩 extview.txt ( ⠫ SHELL):

          sp :Q:SHELL\exesp /w

   ୠ⨢ ᯮᮡ 뢮  ࠭
⠪  䠩 -  ᯮ짮 -
 ப  ⥪⮢  䠩
⨯ ".bat".
      ப

    Q:SHELL\exesp T:\䠩 [/w]

ࠥ   ᮮ⢥⢥    
ப   ।.( । ᮧ-
 䠩 ⨯ ".bat").
   ⨢  ᪮쪮  ப 
  /w   䠩 ⨯ ".bat"
  ᬮ ࠩ⮢,-
뢭 ᬥ  㣠.
   ࠢ 뢮  ࠭ ᯮ-
 /w -  .


;*************************
;       Exesp v1.00
;    Copyright 18.07.96
;   by Andrei Chereshnev
;*************************

       ORG  24000
       LD   A,#18           ;࠭塞 ⥪
       LD   C,#36           ;।
       RST  16              ; 짮⥫᪮
       RET  C               ; #18
       JR   Start
;-------------------------
       DEFM "UnCo"          ; ன
       DEFB #01             ;ﭭ 梥
COLOR  DEFB <0*128>+<0*64>+<7*8>+0

ext:   DEFM "sp "
XY     EQU  #0000           ;न
;-------------------------  ; ࠩ
L0:    EXX
       EX   DE,HL
       LD   HL,L1
       LD   (addr^+1),HL
Start:
       LD   C,#43           ;뢠 ⠫
       RST  16              ;䠩 
       RET  C               ;᭨  (᫨ 
addr^  JP   NZ,Exit         ;)
       AND  A
       JR   Z,L0
       RES  5,A
       CP   "W"
       JR   NZ,Exit
       XOR  A
       LD   (mnem^),A
       JR   Start
;-------------------------
L1:    EX   DE,HL
       CALL Begin
       RET  C
       XOR  A
mnem^  RET
       LD   C,#07           ; 
       RST  16              ;
Exit:
       LD   A,#18           ;⠭
       LD   C,#37           ;।   #18
       RST  16
       XOR  A               ;⠭ 室
       LD   A,#F4           ; IS-DOS
       RET
;-------------------------
Begin:
       PUSH HL
       LD   DE,8            ;⠢塞 䠩
       ADD  HL,DE           ;७ .sp
       EX   DE,HL
       LD   HL,ext
       LD   BC,#0003
       LDIR
       POP  HL
       LD   C,#25           ;뢠 䠩
       RST  16
       RET  C
;-------------------------
       EXX
       LD   DE,14           ; HL- 32-⮢
       ADD  HL,DE           ;⥫ 䠩 (FNAME)
       LD   E,(HL)
       INC  HL
       LD   D,(HL)          ; DE- 䠩 (FLENG).
       CALL Memory          ;஢塞 稥 ᢮
       RET  C               ;
;-------------------------
       LD   IX,$SPACE
       XOR  A
       PUSH HL
       LD   HL,#0000
       LD   C,#29           ;⥭ 䠩,$SPACE -
       RST  16              ;  
       POP  HL
       RET  C
;-------------------------
       LD   BC,5            ; HL- FLENG+1.
       ADD  HL,BC           ; HL- WORD_20.
       LD   C,(HL)
       INC  HL
       LD   B,(HL)          ; BC- #hl ࠩ
       LD   A,B
       OR   C
       RET  Z
       PUSH BC
       CALL TestCol         ;஢塞 ਡ ࠩ
;-------------------------
       LD   DE,XY
       POP  BC
       EXX
       LD   HL,$SPACE
       EXX
       JR   Sp_out          ;ࠦ ࠩ

;-------------------------
Memory:
       PUSH DE
       LD   C,#10
       RST  16
       EXX
       LD   DE,5            ; HL- 
       ADD  HL,DE           ;䨣樨 
       LD   E,(HL)
       INC  HL
       LD   D,(HL)          ; DE- 砫
       LD   HL,$SPACE       ;஭ ᪠
       EX   DE,HL
       AND  A
       SBC  HL,DE
       POP  DE
       AND  A
       SBC  HL,DE
       EXX
       LD   A,130           ; 墠⠥ -
       RET                  ;訡 130

TestCol:
       LD   L,B             ;B*C=HL
       LD   B,8
       XOR  A
       RR   L
mul0   JR   NC,mul1
       ADD  A,C
mul1   RRA
       RR   L
       DJNZ mul0
       LD   H,A
;
       ADD  HL,HL
       ADD  HL,HL
       ADD  HL,HL
       AND  A
       SBC  HL,DE
       RET  C               ; ਡ
;Mono
       LD   HL,L0^      ;
       LD   (HL),#21    ;
       LD   HL,COLOR    ;
       LD   (L0^+1),HL  ;LD HL,COLOR
       LD   HL,L0^+3    ;
       LD   (HL),#D9    ;EXX
       LD   HL,L1^      ;
       LD   (HL),#00    ;NOP
       RET

Sp_out:
       PUSH DE
       PUSH BC
       LD   A,E
       AND  #18
       ADD  A,#40
       LD   H,A
       LD   A,E
       AND  7
       RRCA
       RRCA
       RRCA
       ADD  A,D
       LD   L,A

       PUSH HL
       LD   A,H
       RRCA
       RRCA
       RRCA
       AND  #03
       OR   #58
       LD   H,A
       EX   (SP),HL
                            ;뢮 ᥫ
L1_0:  LD   E,B
       LD   D,8
L2_0:  LD   B,C
L3_0:  EXX
       LD   A,(HL)
       INC  HL
       EXX
       LD   (HL),A
       INC   HL
       DJNZ  L3_0
       AND   A
       SBC   HL,BC
       INC   H
       DEC   D
       JR    NZ,L2_0
       LD    B,E
;
       LD    A,H
       AND   7
       JR    NZ,L0_0
       LD    A,L
       ADD   A,32
       LD    L,A
       JR    C,L0_0
       LD    A,H
       SUB   8
       LD    H,A
L0_0:  DJNZ  L1_0
;-------------------------
L0^    DEFB 00,00,00,00
       POP  HL
       POP  BC
       POP  DE
L0_1:  LD   E,B             ;뢮 ਡ (ਡ)
       LD   B,C
L1_1:  EXX
       LD   A,(HL)
L1^    INC  HL
       EXX
       LD   (HL),A
       INC  HL
       DJNZ L1_1
       AND  A
       SBC  HL,BC
       LD   B,E
       LD   DE,32
       ADD  HL,DE
       DJNZ L0_1
       AND  A               ;塞 䫠 C
       RET
       END

$SPACE EQU  $

  O       㧪
 ᪠ ணࠬ exesp.com (24000). 
ᯥ樠쭮 ࠭    ࠡ 
 mon.com . exesp.com  ⠢-
 300 ⮢.
   ⥫  ९뢠  ᥬ, 
ணࠬ  ⥬ IS-DOS. :
344111,.⮢--,.40- -
,75/4 .3,譥 .
   ********************************************************************
                         ।!
      ᢮   ࠫ    ஡, 
    ,   ८५ ᢮  Spectrum (48k). 
 ஭,  ᮧ ᮡ⢥ 楤 ன  ⢥ . 
  㣮 ஭,   ᮧ ண ७ ⠭⭮ 
Spectrum BASIC',   ᮢ६ ⠯ ᫠   ࠧࠡ⪨ 
 몠 ணࠬ஢.
     ᫨ ࢠ  뫠 ⭮  ॠ  
ࠧ ਠ,   ன   ஡.   , 
"௥    ",       - ࢮ 
  몠-⥣ .   ⮬,   ।⠢  ᥡ  
,  쭮 ஡ ᪠뢠  ᢮ .
      ,  ⥫ ᢥ ,   ࠧ    
࠭ 襣 ୠ.   , ணࠬ ᯥ祭  ஢ 
⨯ PROFI, ࠡ  CP/M.  ,   㣨 ணࠬ ঠ 
,   ࠭ ZX-   ( , )  
 CP/M.

                        .
                     
(c) ᥩ .

               1.  ய樮쭮 .
              
        ணࠬ஢    ZX Spectrum  ᥣ  ,  ⮫쪮 
ᮢᥬ  砫  ᭮ ணࠬ  ᥬ.   祭 ᥣ 
⮣ ६  ⥫쭮 ᫥  ᥬ 㡫ﬨ  ୠ ZX-,  
裡  祬    ௨     ᢮
ᮡ⢥ ࠧࠡ⪠ ( ࠡ⪠).
    ࢠ  ।⠢塞  ணࠬ ᠭ  ⨢   
"楤  ய樮쭮  ", 㡫  ZX  94/5  .10
-18.  ⮩  ஡ ᬠਢ  ਭ樯,     
ࠡ  楤. ᫥  ᫥  㯨  ᠭ  
ᮡ⢥ ணࠬ,   SWP (Spectrum Windows Print).
     ଠ쭮 ࠡ SWP,   ।, ॡ ନ஢  
ᮮ⢥騬 ࠧ  ᨬ. ᬮ  ,   䮭  
⠭⭮ ன (⮩,  뫠 ।  㯮⮩ ), 
஢   ᮢᥬ 易⥫쭮,    ⮣     
 ॢ ( ᫥⢨ ⢨ ७⮢) ⨫ SF (, 
筮 ,  Since Fiction, a Special Fonter).



        ORG     40000                               ⨭ 1.

;--------------------------  ; ਭ樯 ⢨ ⮩ ணࠬ
;----- Special  Fonter ----  ;   .
;--------------------------  ;  ⮣, ⮡   
                             ; ॡ㥬 १, 室
FONT    EQU     50000        ; 㧨  ࠭ 
SYM_COL EQU     235          ; ᮢ  
                             ; ART STUDIO 䮭.  㪢
;--------------------------  ;     ਦ 
                             ;   , 
        LD      HL,#4000     ;      
        LD      DE,FONT      ; . 祬?  ⮬, 
        LD      IX,#0000     ; SF ।  ᨬ 
        LD      B,SYM_COL    ;  ⨢ 
MADE    PUSH    BC           ;  孥 窥 .
        PUSH    DE           ;  ,  ⮣ ⮡
        LD      C,#00        ;  ணࠬ ,  
LOOP2   LD      B,#08        ;  ᨬ   
        INC     DE           ;    
        PUSH    HL           ; ,   ࠧ
LOOP1   RL      (HL)         ;  ᨬ   孥
        RLA                  ; ப . 
        INC     H            ; ४ ⠢ ᫥
        DJNZ    LOOP1        ;  ᨬ   
        DEC     H            ; ,    ᨬ
        INC     C            ;   ᫨.
        LD      (DE),A       ;
        POP     HL           ; ஬ ⮣,  ࠡ ⮩
        LD      A,(HL)       ; ணࠬ ॡ 
        BIT     7,A          ; 祭 ६ FONT 
        JR      Z,LOOP2      ; SYM_COL. ࢠ  
        POP     DE           ; । ,  ஬
        LD      A,C          ; 㤥 ᯮ 㥬
        LD      (DE),A       ; 䮭.   - ⢮
        PUSH    HL           ; ᨬ, ⮢ 
        LD      H,#00        ; ࠡ⪥ ⨫⮩ SF.
        LD      L,C          ;
        EX      DE,HL        ; ,   ,  室
        ADD     HL,DE        ;   ᯮ짮 ⮩
        ADD     IX,DE        ; ணࠬ   אַ
        EX      DE,HL        ; 祭,   樨
        POP     HL           ; ⮢   ணࠬ
        INC     HL           ; SWP.
        POP     BC           ;
        DJNZ    MADE         ;  :
        PUSH    IX           ;  室 ( ॣ஢ 
        POP     BC           ; BC ) 㤥 뤠  
        RET                  ; 䮭.



    ,     ࠡ稩 䮭,  㯨  ᠭ, 
।⢥, ணࠬ ய樮쭮 . Spectrum Windows Print  
  ਢ離  ⥬ Spectrum BASIC   ।祭  ࠡ  
ᥬ묨 ணࠬ.   SWP   ⠢ 㤠, ⮬    
  .
     樨  ணࠬ  Basic'    襫 ।७, ⠪   
   ᮣᥭ  ஬  "஡ ࠧ ZX Spectrum" (ZX  
96/1-2, .42-50). ⢨⥫쭮, ६ Basic  TR-DOS 諮!   
ᬥ MS DOS 諠 樮 ⥬ Windows, ⠪   Spectrum'    
 "樮", ⢥ ॡ .
    뫮  ᮢᥬ , ᫨    OS 뫠 宦  ᫮  Windows  
  ⮫  OS/2.    ࠬ⭮ ᠭ  㤮  
ᯮ짮,      ᯮ짮  ᢮ ࠡ 楤
ய樮쭮  ( 易⥫쭮 ).
        Spectrum'  ᢮ Windows (   Small Hinged 
Windows,  ᪨  "窠")!

     ⮩ ணࠬ  뫨 ॠ   ⭮⥫쭮 楤 
 ⥪⮢ ᮮ饭  楫.



        ORG     41000                               ⨭ 2.

;--------------------------
;- Spectrum Windows Print -
;--------------------------
                             ; 楤 PRINT   
PRINT   LD      A,(HL)       ; ,  ⠭⭠ 楤
        OR      A            ; ,  ᯮᮡ 
        RET     Z            ; ࠡ⪥ ஫ ,
        PUSH    HL           ;    祭 
        CALL    TYPE         ; ᮢ襭⢮.
        POP     HL           ; ⪮   
        INC     HL           ;  ࠢ .
        JR      PRINT

;--------------------------  ;  楤  饭
                             ;    楤 ,
AUTOPR  EX      (SP),HL      ;  ᠬ । 
        PUSH    AF           ; ⥪, ..  ᯮ
        CALL    PRINT        ; ࠧ   
        POP     AF           ; CALL AUTOPR. 室  AUTOPR
        EX      (SP),HL      ; ந室  ,
        RET                  ; ᫥騩  થ஬ 
                             ; ⥪.

;--------------------------
                             ; ६ ணࠬ:
FONT    DEFW    50000        ; -  䮭;
PLACE   DEFW    #4000        ; -  뢮  ࠭;
CHAR    DEFS    8            ; -   ᨬ;
SHIFT   DEFB    #00          ; - ᬥ饭  ;


;--------------------------  ; 楤 뢮 ᨬ
                             ; ⭮⥫쭮 ந쭮
                             ; ਭ ( 7- ᥫ).

TYPE    LD      HL,(FONT)    ;  HL -  䮭.
        SUB     #20          ;   
        JR      Z,SYMBOL     ; ᫥⥫쭮,
        LD      B,A          ; 뢠饩 ᨬ, 
        LD      D,#00        ; ண 室 
FIND    LD      E,(HL)       ; .
        INC     E
        ADD     HL,DE
        DJNZ    FIND
SYMBOL  LD      B,(HL)       ;  ନ㥬
        LD      C,B          ; ᨬ, .. ਢ 
        EX      DE,HL        ;  - ⠭⭮
ROW     INC     DE           ; .
        LD      A,(DE)       ; ᮡ ⮩ 楤
        PUSH    BC           ;  ,  
        LD      HL,CHAR      ; ᨬ 뢠
        LD      B,#08        ; ਦ  ࠢ ஭
COLUMN  RLA                  ; .
        RL      (HL)         ;    ࠢ.
        INC     HL
        DJNZ    COLUMN
        POP     BC
        DJNZ    ROW
        LD      A,(PLACE)    ;  ⨬  
        AND     #1F          ; न 뢮.
        XOR     #1F          ;  ⮪ ணࠬ
        JR      NZ,SHIFT0    ; ஢, 墠   ப
        LD      A,(SHIFT)    ;    ।
        ADD     A,C          ; ᨬ.
        CP      #08          ;  ᫨ ,  ᮢ蠥
        JR      C,SHIFT0     ; 室  ᫥ ப.
        CALL    NEXT
        XOR     A
        LD      (SHIFT),A
SHIFT0  LD      A,C          ; 騬 ⠯ 㤥
        LD      HL,SHIFT     ;  ⥫쭠
        ADD     A,(HL)       ; ࠡ⪠ ᣥ஢
        LD      B,#08        ; ᨬ. ᫥ ࠡ ⮣
        LD      E,A          ; ⪠ ணࠬ ᨬ
        LD      HL,CHAR      ;   CHAR ८
SHIFT1  PUSH    BC           ; ᨬ쭮 㤮 
        LD      B,E          ;  .
SHIFT2  RRC     (HL)
        DJNZ    SHIFT2
        INC     HL
        POP     BC
        DJNZ    SHIFT1
MASK    LD      B,C          ; ⠫ ।
        LD      A,C          ; ନ஢ ᪨,
        EX      AF,AF'       ; ।⢮ ன  㤥
        XOR     A            ; ந室 ⮡ࠦ
MASK1   SCF                  ; ᨬ  ࠭.
        RRA
        DJNZ    MASK1
        LD      C,A
        LD      A,(SHIFT)
        OR      A
        JR      Z,SCREEN
        LD      B,A
MASK2   SRL     C
        DJNZ    MASK2
SCREEN  LD      HL,(PLACE)   ;  ⮬ ⪥ ணࠬ
        LD      B,#08        ; ந室 砫쭠
        LD      A,C          ; ⮢ ࠭.
        CPL                  ; 頥  , 㤠
        LD      C,A          ; 㤥 ⠭ ।
SCREEN1 LD      A,(HL)       ; ᨬ.
        AND     C
        LD      (HL),A
        INC     H
        DJNZ    SCREEN1
        LD      A,C
        CPL
        LD      C,A
MOVE    LD      HL,(PLACE)   ; । 
        LD      DE,CHAR      ; 楤 ७
        LD      B,#08        ; ᨬ   CHAR
MOVE1   LD      A,(DE)       ;  ࠭,  ⮬
        AND     C            ; ᣥ஢ ᪨.
        OR      (HL)
        LD      (HL),A
        INC     DE
        INC     H
        DJNZ    MOVE1
        EX      AF,AF'       ;  ⮪ ணࠬ,
        LD      HL,SHIFT     ;  ᮬ, 祭 ,
        ADD     A,(HL)       ; ..   ந室
        LD      C,A          ; ஢ઠ: " 㬥⨫ 
        CP      #09          ;  ᨬ  ⥪饥
        JR      C,END        ; ?"
        LD      A,C          ; ᫨   ⠪, 
        SUB     #08          ; ணࠬ ⠥ , 
        LD      C,A          ; ⠫  ᨬ  㣮
        LD      (HL),#00     ; .
        CALL    NEXT
        JR      MASK
END     LD      A,C          ;  , 室
        PUSH    AF           ;  ணࠬ TYPE,
        PUSH    HL           ;  ⮬  न
        CP      #08          ; 뢮.
        CALL    Z,NEXT
        POP     HL
        POP     AF
        AND     #07
        LD      (HL),A
        RET

NEXT    LD      HL,PLACE     ; ணࠬ 
        INC     (HL)         ;  孥 窨
        RET     NZ           ; ᫥饣 .
        INC     HL           ;  ⨦  ࠭
        LD      A,#08        ; ணࠬ 
        ADD     A,(HL)       ;   砫 (#4000).
        LD      (HL),A
        CP      #58
        RET     NZ
        LD      (HL),#40
        RET



    !  ࠬﬨ!  ⠬   ()
 室 ᠬ 訥 ᫨!
    ਬ,  ᮧ 楤  AUTOPR ⨫    ࠬ  
(,  ᪠   ᫨⥫ ᠬ).  ⮩   
楤   ⢥ ⮨,      ᪠.
     楤 ।砫   뤠  室 ⢨ ணࠬ 
- ⥪⮢ ᮮ饭.    諮 㯨  砥  
ᯮ짮 筮 楤    (ਬ,  8252    )?    
⮣  諮    ⥪ ணࠬ ⠪ ,  ᠬ ⥪⮢  
ᮮ饭  蠫  ࠡ ணࠬ,    ᢮  .   
 楤 AUTOPR    ᤥ ࠧ  ⭮:
        ...
        CALL    AUTOPR
        DEFB    "HELLO, WORLD!"
        NOP
        ...

     ⠪  ⮪ ணࠬ ⠭   ᫥,    
⪠  .
    , ᮡ⢥,    ⥫ ᪠  ⮬ .

                  2. Spectrum'  誮.
                 

    讥 ⢮ ணࠬ  ⮣ ࠧ ZX  뫮 饭 
ᮢ ⥬᪨ 㧮஢   ஢ PLOT  DRAW. ஬ ⮣, 
   ஢  1994  뫠 㡫 ணࠬ  ஥   
䨪 ᪨   権.   ᢮ ६  ⠪  ⠫ 
 ணࠬ,  ᫥⢨  த⢨ ZX  Spectrum,   
ࠡ  ⮩ ணࠬ  㦭 뫮  ⨭ ᪨ ௥.
  ᠬ 䨪 ⠢﫠  襣.
    娥  १   ᪨ ணࠬ, ਬ,  
஬ TOBOS FP.   ⮬ 砥   ⮨⢮ 
樨:  ᪮  ࠡ뢠 㭪樨.  
 ᮦ,   㤠   ஡. ᫨ -  
ਥ 室  ⮩ 樨,   ,    ⮬ ᮮ  
࠭ ZX .
    , ᠬ   ਢ (  ) 襭 ⠪   
஡ 뫮  ᮧ  몠 ணࠬ஢ (⢨⥫쭮 ), 
 ⠫   ᥡ,  ࠢ ⥯,   ஢ 
 ஢.  ⫨⥫쭮 ⮩ ⠪ 몠 ( 
     ⥣஬) 﫮  ,   ணࠬ   
 ᪥ ஢  室 ࠡ,    ࠧ  ॢ 
  設  ꥪ .
     ணࠬ     த砫쭨楩 楫 ⢨ 
몮-⥣஢.  ᫨  ⠪     ZX Spectrum'e,  
 짮⥫ IBM' 㬥૨   .    뫮  祬 न.
    Spectrum forever !!!
    ᫥  讣  ᪮  㯫    ⥬, ୥  
Spectrum-䨪.
     ᪠  ⥬᪨ 㧮஢  ⪭   
..类 " ணࠬ஢ ",  쭮   㤥 
ᠭ ᪨ 楤  ⮬ 몥.   , 訥  
 묨,  訫 ஢  ᨪ.     ⮣ 
稫...


    ணࠬ SPI.                                  ⨭ 3.

 10 LET DS=<饭  >
 20 LET A=90: REM 砫 㣮 
 30 LET DA=<饭  㣫>
 40 LET S=<砫쭠 >
 50 PLOT 127,87
 60 LET DX=S*COS(A/180*PI)
 70 LET DY=S*SIN(A/180*PI)
 80 DRAW DX,DY
 90 LET S=S+DS
100 LET A=A+DA
110 IF A>360 THEN LET A=A-360
120 GOTO 60



    ணࠬ SPI -  ४ᨢ ணࠬ  ᮢ ࠧ ᯨࠫ.  
ਬ,  砫 ࠬ: S=4, DS=1, DA=88,   ⠪    ""
稢 ᯨࠫ,     ..类.
     ணࠬ BOXN ⠪    ࠭   
쭮  ᪨ ꥪ.  ᫨  ⪮஢, ,   
  ।饩 ணࠬ SPI,  ᬮ ⠢  饥 
"ࠩ᪮ ᫠".


    ணࠬ BOXN.                                 ⨭ 4.

 10 LET M=<⢮ 㥬 㣮쭨>: REM M=18
 20 LET N=<⢮ 㣫   㣮쭨>: REM N=9
 30 LET L=< ஭ 㣮쭨>: REM L=20
 40 LET A=90: LET DA1=360/N: LET DA2=360/M
 50 PLOT 127,87
 60 FOR I=1 TO M
 70 FOR J=1 TO N
 80 LET DX=L*COS(A/180*PI)
 90 LET DY=L*SIN(A/180*PI)
100 DRAW DX,DY
110 LET A=A+DA1
120 IF A>360 THEN LET A=A-360
130 NEXT N
140 LET A=A+DA2
150 IF A>360 THEN LET A=A-360
160 NEXT M



    ।⠢  ணࠬ 쭮-⠪      
᭥ ⠪ ⥬,  ୠ ⥬ न (᫨, 筮,  
誮,   ⥬ 砥).
     ࠧ    몠-⥣,  ,    
।  ணࠬ    ࣠ ࠧ  筮,  
 ࠡ⠫   த⨢.
    ⮬   ࠧ ਧ뢠  ணࠬ⮢ ࠡ  Spectrume.  
᫨ -   ᮧ ⠪ 몠,  -  
.

               3.  ணࠬ ᯥ祭.
              

             3.1. ᥬ,   롨ࠥ.

     饣 ६ ᠬ ࠭ (    ) 
 ஠ᥬ GENS4 (  DEVPAC).  㬠,  稭騥 
ணࠬ, 襤訥  ࠬ ᨪ, ⠫  ᥡ   ⮨⢠  
⪨.
     ६ GENS' 諮!  ਧ  ᥬ    
- TASM  MASM.   ணࠬ  묨 ࠧ栬 ୮ 
᫨.  ,     ⨫᪨ ଫ,   
室  .  ணࠬ ⠭  ⠭ 䥩
  ஢  몮  ᮪   ஢. ,  㣨 
ணࠬ ঠ  ⠭    ࠧ  ஢ IBM'᪨  
஥ ।஢ 몮 TurboPascal, TurboBasic  TurboC.
    ⢥ ⪮   ᥬ஢  ,    
ᮢ⨬  ⥪⮢ ஢  㣨 ᥬࠬ  ⥪⮢묨 
ࠬ. ਬ,  ⮩  室  ࠧ ᪠  
  ⥪⮢ ।  ASM  ⭮.
    ⢥ 稫   稥   樨 Import TASM 2.0.   
᪨     ᥬ ணࠬ  -  
㤮 ⥪⮢ ।,  ⥬ ஢  TASM'᪨ ଠ. 
  ।ᬮ५  ⭮ ஢. ⮬,    
, ।     Export.  ⢨ ⮩ 樨 砫 
  ४஢ ணࠬ ଠ TASM  MASM   㣮 ⥪⮢ 
ଠ (Alt  KOI.  ,  Alt,  ).
    ,  ॠ  । 㤥  ⠪   ᫮,  ᪮  
 ᥬ  ﬨ Import  Export. 祬, 祬  㤥 롮  
㥬 ଠ⮢, ⥬ .
    㣨 ⢥ ⪮   ᥬ஢  ⢨  
ᮮ⢥  ᥬ஢   ⠭ ⠭⮢    
㬥஢ .  ,   ᥬ, ᪮ 㯨 , 
   ஡  ᯥ譮 ࠧ襭.
       쪠 졠.     -  TASM (MASM)  
 STS  CP/M-०  PROFI.

                  3.2. CP/M  ,,...

    ᥣ    ⫨  ⥫  PROFI. 
 ⫨⥫쭮 ⮩ ⮣   প CP/M-०  
७ ࠭ (512x240).   ० /, 짮⥫ 砥 
  ⠪ ணࠬ ⠬,  SUPERCALC, DBASE, SUPERTEXT,  ⠪ 
몠 ணࠬ஢ ᮪ ஢,     ⠭⭮  
Spectrum'  ॠ.  Fortran, PL/M, PL/1, Fort, TurboPascal, TurboC, 
ADA, MuLisp  㣨.
      ᯮ짮 ⥫쭮   ⢥ 
஭ ᪠.  ࠭ - 1 Mb.
    ᯮ짮 CP/M-०  짮⥫ ࠡ  IBM'᪨   
⥪⮢묨 䠩 (⮫쪮 MS-DOS,   Windows), ᮢ襭    
ᮢ⨬. 
    ஬ ⮣,  PROFI 㦥 ࠡ⠥  ணࠬ,      
   設.   ணࠬ   ᥡ ⪨ IBM'᪨ 
⯥⮪.   ⠪ ணࠬ   ࠧ    ᪠.   
⮨⢠,    ⪠.
     䠩 窠 Copy K v.4.1  ⥪⮢ । Write System 
v. 3.01.  ࠫ   ணࠬ ᪫⥫쭮 ⮬,     
室   ࠡ.   室 ⮣     
砭.
     ᫮, Copy K - 祭 ⭠ 䠩 窠. ஥  ਭ樯  
Norton',  १砩   饭,    ⮬,     
ਥ஢  ࠡ  IBM'᪮  ன, ⮬ 짮⥫ 
keyboard'  Spectrum' ⮬᪨ 蠥  㤮.   
 襥   ⥬.
    筮   ࠧ 襩 ஡ ⠫ 㤮⢮⥫쭠 ࠡ  
Copy K  ᪥⠬  ଠ TR-DOS  MS-DOS.   ᮢᥬ ⭠ 稭 
 ᡮ, ⠪   ࠢ ⥬ IS-DOS  樨
ࠡ ࠬ⭮  訡筮,   ६   Copy K ﭭ   
   䠩 譨 ⮪ .  ࠧ,  ஢ 
⥪⮢ 䠩   ⥬  ,  ᥢ , 
   ண १砩 ࠧࠦ.
    ⮬   ᯮ ﭨ ࠡ ⨫ 
ck.ms  ck.tr,       ck.is (  ᮢ⨬  
Spectrum'᪨ ⥬).
      । Write.  ।,   , ᠭ  
ﭨ ⠪ ⭮  IBM ⥪-,  FOTON.  ᮦ, 
 ।   ⮦ ਥ஢  IBM-.  讥  
⢮ ᥢ 㤮  ࠢ ⮬ । 뢠 訬  
.   ॠ  ࠡ   ⠭ ஢  
஥ "ॢ稪"   ⥬  , ࠡ   
ᥢ䨪   樨, 㤮 ⥬ ଠ஢ ⥪ 
- 㣮.
     ⢥    ⥪⮢ ।஢ Spectrum', 
騩 ⨭  (  ஥ প ࠡ  ᥬ 
).   ⠪ ⥬ ࠧ 㤮 (   
ଠ ᥣ  㪮).
    ஬ ⮣, ।  ࠧ ⥬  権,  ன   
㣫拉 ᥣ  ⮪ -  뤥 ⨪ . Write  
⠭ ᪫⥫쭮    ,    室
ᯮ짮  ⨪ .
    Write,   猪  CP/M'᪠  ணࠬ, ন  ० 
⮡ࠦ ଠ樨  ࠭: 64  80 ᨬ  ப.
    ᨡ , ᯮ !
      Write  ⮢ ணࠬ  TurboPascal  TurboC, , 
   IBM- , ࠭ ᢮ 室 ணࠬ   
 ⥪⮢ 䠩.  ਭ樯,   ᯮ짮  ᠭ 
ணࠬ  TASM',   祭 㤮.
    筮  ᥣ  ⥪⮢ ஬ Write,   ⮣  .

                   3.3. ᯥ⨢ CP/M'.

       殮 ६ த ࠧ⨥ ணࠬ ᯥ祭,  
ࠡ饣  CP/M'. ,  ᮦ,    ᠬ ᫥ 
ࠧࠡ⮪,    ⭮, ਬ,  㦥  ࠡ⪨ 
१⭮ ⥪ 㭪権, ᯥ稢 㭨ᠫ  䥩 
짮⥫ (Windows by ﭨ ..).  ⠪ ࠡ騥  訬  
Windows ᪨ । Grand Crouix  몠 ADJ.
     ,     ᥭ CP/M...

                       4. 頭.
                      

     ᫥  ᪠,   ᫠᪮ 㤠⢥ ᪮     
  ..設᪮ 稭 ࠡ  ⥫ ZX Spectrum
( PROFI,  ⭮).
    ᫠᪨ 짮⥫  㧭   ࠡ ᫨  ᫥  
ﬨ   "㡥᪨ ".   ⥫ 㣨 த,  
   易, ।⠢ ᢮ :
                    150052   .᫠,
                . .ᮢ, .78, .36.
                        ..
                        .. 34-51-37.

******************************************************************************
                       AY-3-8912/8912

(c) .⤨, .ਭ.                     
                      
   1. .
     몠  ()  ந ப ᯥ 
㪮 䥪⮢.                         
          ந 㪮 ⨭ ⥬ 
஢ 筮   䬨᪮ 誠.
     ᨣ ࠢ   ஢묨  ࠡ뢠 
।⢥  ய,       
 奬孨.
     裡   ய஬  AY-3-8910   㭨ᠫ 
8-ࠧ來  /뢮,     40 뢮.  AY-3-8912 
    28 뢮.
  2.  .
          DA0/DA7-設 /  ६ ﭨﬨ. 뢮 30-37  
AY-3-8910, 뢮 21-28  AY-3-8912.
     8-ࠧ來 㭠ࠢ 設 ।祭  뫪 ᮢ
  ஬  ᠬ .  ० , DA0-DA7 ᮮ⢥ ࠧ鸞 
0-7 ॣ஢  .  ᭮ ० DA0-DA3  
롨ࠥ ॣ (0-15),  DA4-DA7,  ⠭  묨 室,
8  9 ନ   .
          8 (室)-뢮 25(17) AY-3-9810 (AY-3-8912).
        9 (室)-뢮 24 AY-3-8910,  AY-3-8912  ন.
       ⮨  16- 8-ࠧ來 ᫮, 室  ⠢ 饩 
1024-᫮ .  ࠧ     設  ந室 ७ 
樨    256  1024 ᫮.
        RESET (室)-뢮 23 AY-3-8910, 16  AY-3-8912.
    ᯮ  樠樨 ⥬  ⠭   室 
ﭨ ⥬   뢮 ᪮ .  ⮬  ॣ  
 뢠  .
                   
                                   AY-3-8910

                            Ŀ  
                     Ĵ1 *                40+5 
            ᯮĴ2                  39TEST
                    Ĵ3                  38Ī 
                    Ĵ4                  37DA0
            ᯮĴ5                  36DA1
                      IOB7Ĵ6                  35DA2
                      IOB6Ĵ7                  34DA3
                      IOB5Ĵ8                  33DA4
                      IOB4Ĵ9                  32DA5 
                      IOB3Ĵ10                 31DA6 
                      IOB2Ĵ11                 30DA7 
                      IOB1Ĵ12                 29BC1 
                      IOB0Ĵ13                 28BC2 
                      IOA7Ĵ14                 27BDIR 
                      IOA6Ĵ15                 26TEST 2 
                      IOA5Ĵ16                 25Ā8
                      IOA4Ĵ17                 24ĭ9
                      IOA3Ĵ18                 23ĭRESET
                      IOA2Ĵ19                 22CLOCK(⠪⮢ )                              
                      IOA1Ĵ20                 21IOA0
                            
          CLOCK(室)-뢮 22 AY-3-8910, 15  AY-3-8912.
    ᯮ   ⠪⮢ , 饩 ६ ࠬ 
஢ 㬠, ⮭  ஢ 饩. 室 -ᮢ⨬.
          BDIR, BC2, BC1 (室)-뢮 27, 28, 29 AY-3-8910, 18,19,20  
AY-3-8912.
    ࠢ騥 設-BUS DIRECTION 1,2. ᯮ  ࠢ ᥬ 
譨  ७ 設묨 ﬨ  .    設 
ࠡ뢠 ।⢥ ஬.
          IOA0-IOA7 (室/室) - 뢮 14-21 AY-3-8910, 7-14  AY-3-8912.
          IOB0-IOB7 (室/室) - 뢮 6-13 AY-3-8910,  AY-3-8912  
          ন
                                                                                    
                                  AY-3-8919
                            Ŀ
                    Ĵ1 *               28DA0
                    TEST 1Ĵ2                 27DA1
                  +5 Ĵ3                 26DA2
                    Ĵ4                 25DA3
                    Ĵ5                 24DA4
                     Ĵ6                 23DA5
                      IOA7Ĵ7                 22DA6
                      IOA6Ĵ8                 21DA7
                      IOA5Ĵ9                 20BC1
                      IOA4Ĵ10                19BC2
                      IOA3Ĵ11                18BDIR
                      IOA2Ĵ12                17A8
                      IOA1Ĵ13                16ĭRESET
                      IOA0Ĵ14                15CLOCK
                            

          TEST1-뢮 39 AY-3-8910, 2  AY-3-8912.
          TEST2-뢮 26 AY-3-8910,  AY-3-8912  ন.
    ।祭  ஢ .
  4. .
      ⭠ 쬨ࠧ來 ॣ஢(R0-R15). १  ॣ 
⢫ ࠢ ⮭ ஬, ஬ 㬠, ᬥ⥫  
/뢮, 㤮 室 ᨣ, ஬ 饩, ମ
 ਮ 饩.    
  4.1.   ().
       ᢮ ᮡ⢥ ,  ࠡ뢠  
ॡ㥬 . ࠢ ॣࠬ R0-R5.
  4.2.   ().
    ࠡ뢠  㬠   . ࠢ ॣ஬ R6.
  4.3. .
    १  ॣ ⢫ ࠢ 㪮묨   ॣࠬ 
/뢮. ࠢ ⢫ १ ॣ R7. ⥫ ꥤ 
 ஢ ⮭  㬠   3- . ࠢ । 
ଠ樨   /뢮 饣 祭 (IOA  IOB)  
ﭨ   ࠧ冷 ॣ R7.
  4.4. .
     ᨣ  ᮤন ॣ஢ R8-R10   ,,
ᮮ⢥⢥.
  4.5.   ().
      ॠ  ᨬ ᯮᮡ ᮧ ᫮  饩
室 ᨣ:
    -    ணࠬ஢ ॣ஢ R11  R12;
    -   饩  ᮤন ॣ R13.
  4.6.    /.
     R14  R15 ᯮ ᮮ⢥⢥  裡   
/뢮. ন  ॣ஢     뢠  
뢠 -  ନ஢ 㪠    ࠦ.
  3.  .
    㪮    ନ ᪮쪨 㪮묨 ࠬ.
 ⠪ ⭮:
    - ⮭ , ࠡ뢠騥    ᭮ ⮭
;
    -  㬠;
    - ᬥ⥫, ꥤ     室  㬮 ᨣ;
    - ॣ , ࠢ ;
    - , ନ     室 㪮 ᨣ;
    -  饩, ࠡ뢠 ࠧ 饩, ᯮ㥬  
㤭 樨 室 ᨣ.
  5.  . 
    ਬ  ᠬ ᭮ -  ணࠬ஢ .
    ணࠬ஢   ZX-Spectrum ⢫ १  ,  : 
49149(#BFFD)  65533(#FFFD).
     㯠  - ॣ ,   室   
65533,  祭 ॣ   49149.
     ⨬ ४᭮ ࠢ  OUT. ⮬   ணࠬ஢
  , ⠪   .  ᭠砫 ᬮਬ  ᪫ 
ॣ஢ R0-R13, (R14,R15     ନ஢ 㪠).
                                
     0              ⠭  ⮭   (0...255)
     1             㡠 ⠭  ⮭   (0...15)
     2              ⠭  ⮭   (0...255)
     3             㡠 ⠭  ⮭   (0...15)
     4              ⠭  ⮭   (0...255)
     5             㡠 ⠭  ⮭   (0...15)
     6              㬠   ,, ६ (0...31)
     7             ࠢ  :
              0-⮭                     3- 
              1-⮭                     4- 
              2-⮭                     5- 
        0   㪠뢠, 㭪 ࠧ襭
     8             㤠   (0...15)
     9             㤠   (0...15)
     10            㤠   (0...15)
         㤥, ࠢ 15 砥  饩
     11             ࠢ ਮ 饩 (0...255)
     12            㡮 ࠢ ਮ 饩 (0...255)
     13            롮 ⨯ 饩 (0...15)

    ਬ ணࠬ஢    룫廊 ⠪:
 
10 ;7-th ORACLE & Sagitdinov R.1995 Special for INFORCOM
20         ORG 40000
30         ENT
40         LD BC,65533   ;
50         LD A,3        ;  65533 㦠  3- ॣ
60         OUT (C),A     ;(㡠 ⠭ ⮭   )
70         LD BC,49149   ;  49149 દ 祭 ॣ
80         LD A,5        ;( ⮭ 5)
90         OUT (C),A     ;
100        LD BC,65533   ;ணࠬ஢ ॣ 7
110        LD A,7        ;
120        OUT (C),A     ;
130        LD BC,49149   ;祭 ॣ 7
140        LD A,%11111101;(砥  , 㬮 䥪⮢
150        OUT (C),A     ;
160        LD BC,65533   ;ணࢬ஢ ॣ 9
170        LD A,9        ;(㤠  )
180        OUT (C),A     ;
190        LD BC,49149   ;祭 ॣ 9
200        LD A,16       ;(.. 㤠 ࠢ 16, 砥 -
210        OUT (C),A     ; 饩
220        LD BC,65533   ;ணࠬ஢ ॣ 12
230        LD A,12       ;(㡮 ࠢ ਮ 饩)
240        OUT (C),A     ;
250        LD BC,49149   ;祭 ਮ 饩
260        LD A,255      ;
270        OUT (C),A     ;
280        LD BC,65533   ;ணࠬ஢ ⨯ 饩
290        LD A,13       ;
300        OUT (C),A     ;
310        LD BC,49149   ;
320        LD A,%11111110;
330        RET           ;

      ᮢ  ணࠬ ᯮ짮  ᠭ ॠ
ணࠬ, .. 㦥  ,     .
    짮 ⮢묨   ᯮ짮 몠 ।.
 ணࠬ ਢ  襣  ਠ.
    㦭  ᪠  ⨯ 饩:
        0 - 㤠  ਮ᪨  0  ;
        1 - 㤠 ⠥  0    ⥬ ⠥  ﭭ
    ஢;
        2 - 㤠    祭  堥,  १ ஥
    ६  ;
        3-㤠  ⠥    १ 뢠.
   ਮ 饩   ᮤন R11,R12.
    ணࠬ, 筠  ਢ,   :
10 REM 7-th ORACLE & Sagitdinov R.1995 Special for INFORCOM
20 OUT 65533,3:OUT 49149,5:REM ⠭  ⮭  
30 OUT 65533,7:OUT 49149,BIN 11111101:REM 砥  
40 OUT 65533,9:OUT 49149,16:REM ⠭   
50 OUT 65533,12:OUT 49149,255:REM ⠭ ਮ 饩
60 OUT 65533,13:OUT 49149,BIN 11111110:REM 롮 ⨯ 饩
    ணࠬ ணࠬ  B. ,     Spectrum ࠡ⠥ 
 ࠢ   ,  A  C  ࠢ  , ᮮ⢥⢥ ( 
 ८).
   ஡ ᨪ-ணࠬ  ப:
60 OUT 65533,9:REM ⮢     
70 FOR I=10 TO 2 STEP -1:REM ࣠ 横
80 OUT 49149,I:REM ।⢥ ⠭   
90 NEXT I
100 GO TO 70:REM 横
110 OUT 65533,7:OUT 49149,BIN 11111111:REM ⪫祭  
   㪮 䥪 宦  㪨  ᪠ 稪. ⠭ ணࠬ
 BREAK',   ⮬ 砥  㤥 ஢ - . 
⨬ ॠ  ⮨⢮  - ࠫ쭠  㪠  
믮 ᭮ ணࠬ. ࠫ   ⮫쪮  
 ᮤন ॣ஢,  GO TO 110  ⪫  .
    ⮬  稢. ,   㧭 - .
     ᫨  ,  . 㬠, ଠ     ࠭
 쥩, , , 㦨    ଠ樥  
࠭ ""  몠  "ᥬ    
⮢" Spectrum`,     㦨    ਪ.
      : 620072, .ਭ, . .檮 10-384, ⤨ .
                 ****************************************
()  ..
            . ஢, ⠩᪨ ࠩ, 1996

         稪 襣 ୠ,  ६ 
६    㪨  .      ୠ 
ࠧ ""  ⠫    "ATM-turbo (2,2+),  ⥫,
ᠢ訩 쬮 ⮢  ࠡᯮᮡ ணࠬ "FCommander
3.07","DCU 2.02","DCU 2.31"   .  ,   ⢥ 
   -  ஢ 襣 ୠ  ⮬ 
 ᢮ ᫥ﬨ  ⮬ .
      ணࠬ  ᯥ祭 筮 ᮢ,  ६ ࠡ
 ᪮, ᯮ ⥬ 뢠 ண த (IM2).  ࠡ
TR-DOS  뢠ﬨ ண த 㦥 㯮  ࠭ 襣
ୠ,  ⮬    ஡ ⠭  ⮬ . 
 ணࠬ  ॣ i  ᫮ #09; ⠪ ࠧ, 
뢠 㤥 㪠뢠   #09FF. ᫨ 뢠 ந 
 ,  㤠 㤥 ⠭ ᫮ #FE69.  ⮬   
ணࠬ 室 ,  室  ணࠬ ࠡ⪨
뢠 . ᫨ 뢠 ந室   TR-DOS,  㤥 ⠭
᫮ #FFFF. ।⥫쭮  ⮬  뢠 ᫮ #18,  
砥 JR #F3, .. 室   #FFF4,  室 ,
 室  ணࠬ ࠡ⪨ 뢠, ᫨  
 ࠡ  TR-DOS.  ᪠  㤥 ࠡ, ᫨  
⠭⭮  TR-DOS,    ATM-Turbo   TR-DOS  
#09FF 室 ᫮ #3200,   ணࠬ ᤥ 室  
#3200,    #FFFF.
    ਢ ਬ । ணࠬ FCommander 3.07  ࠡ 
ATM-turbo.      ᬮ ணࠬ ADM.
     #8B03 室 ணࠬ, ⠭ 뢠 IM2:

8B03    LD      A,#09
        LD      I,A
        LD      A,#C3
        LD      (#FE69),A
        LD      HL,#F498
        LD      (#FE6A),HL
        LD      (#FFF4),A
        LD      HL,#F28C
        LD      (#FFF5),HL
        IM2
        ...

      #09FF  ਬ , ᯮ㥬 #3AFF (  
⠬ 㤥 #FFFF,   TR-DOS ATM-turbo - #F100,  ⠭⭮ TR-DOS
  #F100).

 ணࠬ:

8B03    LD      A,#3A
        LD      I,A
        LD      A,#C3
        LD      (#FFF4),A
        LD      HL,#F498
        LD      (#FFF5),HL
        LD      (#F100),A
        LD      HL,#F28C
        LD      (#F101),HL
        IM2
        ...

   ᫥ ⮣  稬 ࠡ  ATM-turbo ணࠬ,  ⮬  
㣨   ⮦ 㤥 ࠡ ଠ쭮. ⪨: 
 #F100 室 ᨬ ,   ᯮ⨬  4    
 "48",     孥 㣫  ० 48K. 
⮣, ⮡  ࠭,  ᫥饥.  ⮩ ணࠬ  
  ᨬ쭮 , ⮬ ᫨    #8DC5 
LD BC,#F0DB  LD BC,#EE5C,     "48"  뢮
᪮쪮 ⮫饭,  ᯮ祭 ⮬.  : ।
 "48" ⮨ 稥,  稥   ⠭ .

࠭:
#8DA5   3E5A     LD  A,#5A
#9581   3E5B     LD  A,#5B
 ⨬ ᠬ 뫮:
#8DA5   3E0A     LD  A,#0A
#9581   3E0B     LD  A,#0B

    १  稬  ࠡᯮᮡ ணࠬ,  直
 .

    ணࠬ "DCU 2.02"  ࠣ ணࠬ:
LD      A,#09
LD      I,A
LD      A,#C3
LD      (#FE69),A
LD      HL,#EA89
LD      (#FE6A),HL
LD      (#FFF4),A
LD      HL,#E860
LD      (#FFF5),HL
IM2
...
 :
LD      A,#16
LD      I,A
LD      A,#C3
LD      (#C970),A
LD      HL,#EA89
LD      (#C971),HL
LD      (#FFF4),A
LD      HL,#E860
LD      (#FFF5),HL
IM2
...

    ⮬ ᪮쪮 ᯮ  "(c) 1991 Piter ltd., Leningrad".
ணࠬ 㤥 ࠡ ⮫쪮  "ATM-turbo".

    ணࠬ "DCU 2.31"  ᤥ ᫥騥  ( 㪠
ॠ ).   #EC7E :

EC7E    LD      A,#3A
        LD      I,A
        LD      A,#C3
        LD      (#FFF4),A
        LD      HL,(#EEDF)
        LD      (#FFF5),HL
        LD      (#F100),A
        LD      HL,#ECB2
        LD      (#F101),HL
        IM2
        ...

  #F0FD  JP #C50A
  #C509

C509    NOP
C50A    LD      DE,#0064 *
        CALL    #F110    *
        JP      #F103    *

    ਭ樯,  ⬥祭 窮     㣮
, ᮮ⢥⢥   ᫮ 室  
#F0FD.
   ᫥ ⮩ । ணࠬ 㤥 ᯥ譮 ࠡ   ATM-turbo,
⠪     ⠭⭮ TR-DOS.
