 Netmail (2:464/86.62)  NETMAIL 
 Msg  : 1 of 87                             Uns Pvt Loc K/s
 From : Olegka Cher                         2:464/86.62     19  01  18:33:32
 To   : Dima Bystrov                        2:5029/888.18   09  02  19:58:26
 Subj : Coloss \U

@realname:  p祭 {virexcite@mail.ru} location: Sinelnikovo, Ukraine


            Hi, Dima !

 DB>    p? p  y  :-/
    p  _⢥_ 짮.

    '        p
    'F    '   ᨬ 'F'
    ' '   '   p =]
    'F'   '   'F'

    '  ⢥ p p  ⥪ _krnl.  .
p ⮣  p  ᪮쪮 p: /*  */
    y蠩, 䨣  p? ;)

 >>    y蠩, .   yy    p ⥬,
 >>   y  ⮬ ⤥ pp ⥪⮬.
 DB> p.
    ⥫쭮!
 pp  p!
     ,  ⠪ py, p   祭 쪮.

 >>     ᠥ ꥪ⮢,  p ⥡  ,  p,
 >> py  , p ,
 DB> He 砫
    娥 p, 娥 p ;)

 >>   p᫥  -
 >> ᮡp , ⭮饥  ꥪy ~᪠ ~ (pp)
 DB> H ᬥ ⠪ ⨥,  ᪠ ,  
 DB> p  :)
       ! ;]

 >>    p ⮣, p  p   ,  ,
 >> p ᮯp  _py_.
 DB> p  ᫥ ᭨⥫y y ?
    H, p  : ~ 稢   ⠬ 뢠 ⠪?~ ;]

 DB> py ᫮:   y樨 y  
 DB> , p祬  y p, 筮 y py  py
 DB> .
       - p.   ⠪     y. p⥪ ? =]

 DB>  (ᯮ,   ᥬp    p諮  
 DB> ) 祬y  ⠥,  p - ᭨.
     p!
Hy   ..! ;)

 >>    Hy p⠢ ᥡ y - p  Dizzy y ;]
 >>   py  ~~ ꥪ⮢  ⠪ p 
 >> Boovie  Boulder Dash.. ᫨ ⢮ p  ꥪ⮢,  
 >> pyp릨  ⠪  祭 ᫮ 祩  y p譮.. ;]
 DB>  , p 祣 ᫮...
 DB>  p y砥 pp 뢮 p   뢮
 DB> y  y  y.
    H p ! H  pyᬮp,  y 楫ﬨ  y
(, 䨣  ),  yy pp  p p ꥪ,
  , y, y 奬y ..  y  - py!
    p 業       ,   y, 堭
ﬨ,   p  y p. H ᠬ   ⠪  ,
  ᮢᥬ. 饬..   =]

 >>     p   訥 p? ;PPP
 >>  . ⥪    ⮪ Kb.
 DB>  !
 DB>  AC Edit 室 (筥, 3 室)  37k  ᬥ (5557
 DB> p),  ᮮ⢥y 99k ascii-⥪. p ⮬   ⥪
 DB> ⮪p, ⨯ DB "~$w-  LD A,(HL) INC H LD (HL),A DEC L
    ~ p!~ () Larry 1
,   祬y p  . y  y..

 >>    p᫨py p⮢᪨  -  y.
 DB> Hp. ᥣ  ᥪy ( yp).
     p Coloss  ~⥫y~ pppp ;)

 >>  yﬨ -  p, ᫨ p 筮 䥪⨢.
 DB> ,  , ⮡   筮 p, ⮡ p 
 DB> 뫮   ᯥpy :)))
     ⮦  ⮣!
 p  PC   1.2k.   p.  .
    ,  p樥   y   p, ⮬y
py p    ⥡..   ⮬,   p  
 ᪮,   䫮   p p  y稫.  ᥩ ᮡ
  . p祬,   p浪y.
    ⥬ Coloss py  ᫥y p⨢:
>p樮 :
    + - * / & | XOR NEG NOT ++ -- ** // \\ < >= => ?   ..
>  RAM:
    HERE ALLOT var string const @ ! #align #code #data #incbin
>  䠩:
    Open Create Close ReadByte WriteByte
>  p  yp:
    Emit CR Space Key Cursor WriNum WriText
> ᮡ⨩:
    gto goto repeat until again ret proc subr if then else  ..
>᫮:
    [ ᥪp pp稪 ;) ]

     .  PC ᠭ ᥣ ⮣  p⠢  
⮫  py⥩,   ZX. -p, p  RAM.. p,
py ⢥   #6000 ->   y  ( ⮬ ᫥  ᪮p)
+ . y ᫮p p, ⥪⠬, yp  .. ⢥
p.  y頥 p ᮪   p  .
 p ?  p?   ᮢp襭 p. H
 ᯥp pp  (,   p쭠 OS)..
    p: 䠩. p碠  ᥪp, p, p  ..
 y 䠩 p ( )   ⮢ (.   䠩.
  p, p  Delete  ⮫쪮).  -  
⮢.  ,   ᨪ (⨯ ᫥⥫ y  ).
⮬ p.
    , . y⨬, ᮫ p..  y  室
 䠩 p.   y  ?  DOS - p:

    coloss30.exe myprog.col

    ⠥  䠩  PSP  ᬥ饭 #81. [#80] -  +pp.
H     ,   :(
    p: p  . y ⮦ p窨. - 뫠  
y, ⮬ p訫:   ⮩ pᨨ ;]  襭 ᯮ짮 p 40 ᨬ/p.
 ⨬   y⮬騩 . p⮢  pp (⥫쭮
p/) y  y.   -  訡 =(

 DB>>  p ⭥   ᬥ...
 >>     y砥 設ᨬ? =8)
 DB> ! :)))
     ᠤ,  ᠤ.. =)

 >>    p p  y py y  ,  y Ok!
 DB>  ... ,  ᪠, 筮 ⥫쭠  
 DB> :))))
     ⠭p⨧p   y py! ;]

 DB>>  y. y᪠ ᠬ  ᥡ y,  y᪠  y,
 DB>> ᫨ p  ;)
 >>       ᠬ ⠪.. ;)
 >> y   ,     p᪮p,   ᮫
 >> (Dendy, SEGA etc). p y =(
 DB> H  :-/
    Hy, p       ᮧ? ;]

 >>>    LD A,(VAR)
 >>>    ADD 60
 >>>    AND 7
 >>>    LD (VAR),A
 >>>    RET
 DB>>  ᮪p:
 DB>> HL,VAR,A,M:ADD 60:AND 7:M,A:RET
 DB>>   ᪮ ᥢᬥ  룫拉 ⠪:
 DB>> hl=var;a=m+60&7;m=a;ret
         ^^^ ᠬ ᫠  ;)
 ⨯ p p?    ᠬ 祭 ⮣? 8)

 >>    HH H!
 DB> p,  p y砥 y p pᢠ: HL,VAR:A,M
 DB>   ⢨⥫쭮 ⭮, p - p᪠  ;)
 DB>  p p  來  筮, ᫨ ,  ᫥
 DB> y ᫥ p.
    HL=#var A{[HL]+60&7=>[HL]} ret

    HL=#var  [HL] {+60&7} ret

 >>      䨣   m  (HL),   8080? =8)   來,
 >>  ?
 DB>  ⠪  p  p :)))
    H 來.    :)

 >> :-/  (BC)  (DE) ⮣ ? :-/
 DB>     .  p ᯮy.
     ,  ,   ? ;]

 >>>    { var + 60 & 7 => var }  ret
 DB>> 來 ⠪:
 DB>> var=(var+60)&7;ret
 DB>>  y  , .. ᭮,  pep  :)
 >>    Hy,  Coloss  ᬮ   ⠪, p頩   :)
 >> 쪮 ᭨ ⥬, ~    y~ ;)
 >>    ᪠, ~=~ -  operator, ~+~  ~&~ ⮦.  ~;~ 
 >> ᫮ py  ,  y᪠.  p y  
 >> p, ~计 y~ ;]
 DB>  ᮦ,  p Coloss  y  ᨬ,  
 DB> y.   pᥪy  ⠭p묨 (. )
       ! H p y  __ p.
 p  / py ⥪⮢.

 >>          Context Push {
 >>                       @subr BC $#C5     @end
 >>                       @subr DE $#D5     @end
 >>                       @subr HL $#E5     @end
 >>                       @subr AF $#F5     @end
 >>                       @subr IX $$#DD'E5 @end
 >>                       @subr IY $$#FD'E5 @end }
 DB> p ⥪⮢   p権 Z80 y   ⮪
 DB>  :)))
    Hy  ? =)   py. p  y 䥪⨢.
p y 娢   p a la   y砨  ;-/

 DB> y, p y    p   !
    ! p - 4k
#include asm.col
    p - 16k
..   p! ;]

 >>                       Push AF  PUSH DE  push BC
 >>                       PUSH {IX IY AF}
 DB> ⥫  PUSH IX,IY,AF  :(((
      y  y  梥.. :)
  y:   p?  p室  p 堭.
 PUSH p뢠 ⥪,  ~;~ p뢠 - ⠪,  ? :>
p, . H  y p樨 y ⢥  ⤥
⥪,    , ᮤp騩 ~ᠬ y~.
     ,  ᥩ p ⮫쪮   ⥪⮢! =]

    ,   ⮣ p 뢠 맮 y権  pp?
,  ?
                fn 5,6,7; + fn 6,9,1;
    ,  ⥬᪮ 樨 p _᪮_,   y
 400 .

 >>                    asmZ80  { Push {BC DE HL}  Add HL,DE }
 >>                    asm8x86 { Push {BX DX AX}  Add AX,CX }
 DB> Ho  y p pp!   ⥫
 DB> p!?
    ⥫  y.  y :-)

 >>  ⠪  . Token - ⢥ p쭮 p襭,
 >> 饥  p ⥪ _sys. Atom -  y⨬
 >> ᫮  ᫮ p.
 DB> He  =8-]
    H.  p pp稪 ;)

 >>> ᭠砫   p, ⮬  .
 DB>> y  ? 祫y ⭥ pᢠ ᫥,    
 DB>> p  p室,  yp p䬥⨪ :)  p
 DB>> y᪠ ᠬ pp,   ⮣  ᠭ ;)
 >>    ;-/  ⨬? ,)
 DB> py ⠪ , p ᫨ p  pᢠ
 DB> ᫥,
 DB>   y ᫥ p  ᫥⥫쭮 ,
 DB> p  pp pp. Hy,  p⠢ ᥡ
 DB> ppp, p p   p   ⢮ ;))) 
 DB>    筮 ᮮ⢥⢨.
       ᮢᥬ. p,   p ( ):

        A{ 130 repeat => alpha
                      proc1 ( alpha )
                      proc2 ( X Y Color )
                      proc3
    alpha - 10 untilC }

     p浪y:

    A{ 130                         ' LD A,130
    repeat                         ' METKA:   ' 砫 横 repeat/until
           => alpha                ' LD (alpha),A !!!!!!!!!!!!!! pᢠ!!
    ...
    alpha                          ' LD A,(alpha)
    - 10                           ' SUB 10
    untilC                         ' JR NC,METKA

     ⥯p   py pp᪨ pᮢ,   p ~䨣?~ ;]
  ⨢py py⢠ ⮩, 饯p⮩ 奬, p 
饯p? ;P
        pᢠ   ⮣   p
p/pp?   ?
     ⠪:

        100 => C => D => alpha

 >>        d= { a + b / c }
 DB> 쪮  ᪮, y :..(..
     ⥪ d=   ᪮ -  ;(

 >>        d:= a + b / c;
 DB>   稩 ;)
    ,  y᪠.  y: ~:=~ p ⥪, ~;~ - p.

 DB>    p 樨, p  yy⨫.  ⮦ 
 DB> p  y⢮:
    ..    y ;)

 DB> =a+b/c d
 DB> 
 DB> a+b/c=d
 DB> (᫥ y, ᫨ py y py  2 p
 DB> pp, pp a+b/c=d=a+2=b
     ,  p . 쪮 ~=>~  ~=~.

 DB>  ⮩ 樨, py  p , 뫮  b=(a=d=a+b/c)+2
 DB> -  ᪮)
    p!
 DB>    ⨬ pᮬ   y.
 DB> Ho ⮫쪮  p窠 ;))
    H ᠬ , ,  y y᮫  p⮩ ;]
y - . ⭥ ⥪⭮ 奬 - ᥣ! y.

 >>    .. p 祬  pp ᭠砫 p , 
 >> p y ppp. Aspect programming with invariants
 >> py!
 DB> , y- ᪠,  ⭮襭 pp ⥪ p 몠 
 DB> 饩  pp?  H,  py y p᭮ 
 DB> p,  ⭮騥, ᮡ⢥ p,  ᠬ pp?
 DB>  ⮣,  p騥  p 樨?
     _yp_,  y  , ⠪   ,   
-  pp ⠬, py訬 ADD, SUB, LD  JP ;)
     ⥪ -  y,  p ;]   . , 
!! , ⠪   뫮!!
    p ⮣,  p y ᮧ __.  , 祬 .
!   py  Z80  py. Coloss - yᮢp襭⢮
p.  ⠫ yp py騥 py p襭, p y 
 p᪮  p ;]  Coloss y  .
⮬y, , ~᪮  p~ -    py, 
defb '{$RY$%BN%^' -    p p᪮ y ;]

 DB>>  p⨢ p pp  ᪮. y p p,  
 DB>> ᯥpy᪮ ᨪ   pᥬp.  
 DB>> p.
    =)
 >>    쪮 p - ⮫쪮  , ᫨  .  py!
 >> :-P p祬..  ⥪  ᪮ :>
 DB> ,  y p , ⠪ ᪠, p  y⢥
 DB> ppp  y᫮ 室  ⮭y 
 DB> p権: i.e.  p ⥪⮢.
     ⮫쪮  ⠭p,  蠥? =]
H    ᠬ,    , y ⮫쪮 ⨯ char ;]

 DB>   ⮬y , p y p᪨   : 
 DB> p  ⥪⮢.
    .    Coloss.  ᫮  p py ᫮.
 ,  !  ꥪ!  ⥪.  p⭮.
  ⢮ p,  p筮. H y ~~,  ᠬ  ⮬y
 ᪢ p p⮢  ᯮ.  y pp  ᪮쪨 ⪠
.  审.  y稫 ᨪ  ᠫ   訥 p   .
Smalltalk, Forth, Rapira, Focal, Logo, Simula, Lisp, Caml, Miranda, Refal,
x86, x80 asm, Modula 2, Modula 3, Oberon, PL/1  PL/M, Algol, Fortran, Ada,
Basic, Pascal/Delphi..  楫 -  墠.  y y, ? ,)

 DB>  pp, ᥩ  pᨨ ᬠ  pᠬ, y᫮묨
 DB> ﬨ, p樥 祥 p 樨  ..
 DB>    p쭮 (p 몠   pp) 
 DB> pp, p ᯮ  p 樨,   
 DB> ppy.
    ⪨ :)
 ⮣   p   ⥫y쭮,  
 ᫠ p.  ᪮p   p ppp. ⮬y
 ᫥ p  ⠯ 樨 -  ⥫쭮, 筮.
 y᫮  -  p. H     ⤥ 
- p⮣ 堭, p  p   p :(
     pp..  ,  ᫨     p 
 ᯮ짮  pp  ⮬ 몥 ( ᯮᮡ,  pᠬ),
 y 筮 .
    H p - .   ⥣p   ⮩ 䨪樨  .

 DB>  ..  ᥬp pp頥  ppp (,
 DB> p,  ⠪ pp: "⮭" by rst7, pp p by
 DB> Capry  ..)   ,     ᮢp襭 
 DB> p ;( 쪮 ⮬y,   y - ᥬp ( p, y騩
 DB> py) p yy, ᪮y   室 ...  p
 DB> py誠...
     y⢮,  .
    p ⮣    p.  p,
.. p-pp (ᯥp) pp   ᠭ
    p.  ? LD A,B : ADD A,50 y y? :-/

 DB> y   뫮 p p  y襬 .
     y᫮  pyᬮp :P
 DB>   : ⥪ pp ⮣ y p ->  p
 DB> p.
    y.   樨 + ᠬ  pp.
   .

 >>     筮   pp   p訫, ⠬  ᭮.
 >> H ᪮p ᥣ  y   _᫥_ p楤yp,  .
 DB>  ????
    (34 6 Green)  Plot

 py⢠; :

    (56 45 1)  :lab  Plot

    ...
    (65 12 4)  goto lab
    (172 3 1)  goto lab

 >>  p p  ⥪ _sys
 DB>     ⥪?
     ⥪ ᫮, p  p.    p訫,   y
,   _krnl,   _sys

 >>> subr ZXsea {HL  143'118 => pole  IX= [ ZX ]  ret
 DB>> y ? 堫:  ⠪ p  祬y? ;)
 >>    堫!  p訩  訩  ᫠. ⮬y 
 >> 來.     dec, ⠪   hex:   123'214  #FA'60
 DB> y ⪠   #fa60   #fa'60. y  
 DB> 砥,  訩  p 60dec,   60hex!  
 DB> p!   y ⥡ ⠪    ;-(
    ᥭ! p.
    =)

 DB>    ⨬ ᮣᥭ, ᫨ ᫠  y   
 DB> ᯮᮡ :)
    H p!
    , ᫠  p ⥪  p뢠  py.
Hpp  ⥪ ᯨ᪠:
    list { 346 567 2341 13 5 76 }   y, pp,   ᯨ᮪ list

 >>> subr MYsea {HL   51'190 => pole  IX= [ MY ]  ret         subr
 >>> #2D28 stack subr addr  {HL , { H ** ** ** + H + H + L }} push IX
 >>> pop DE + DE DE%HL ,, ret
 DB>>  ,
 >>    push reg ( ᨬ  ⥪ pp, ..  A{ , }  {HL
 >> , }   - ᮮ⢥⢥ pop :>
 DB> y "[[" -  push, "]]" -  pop.
 DB>  p  py 楫 :)))
    p!
     ᠬ y⢮ yp,  ~,~  ~,,~  祭 p  ⥪
p権.
    H  ᢮ p   p ⠪ p襭 pp ⠪ p-:

    345 , 36 , 568 , 47 , 357 , 3785 ,

      ᯨ᮪ ᥫ  p ᫥ ᨭy =]

 >>    + H
 >>    + L
 >>        - p  ⥪y饬y ( ⥪y) ppy p H  L.
 DB>  ᫨⭮ ? "+H"  "-L"?
    p!
 p  뫮  ;-P

 DB>>    窨?
 >>     y y,   p訫 筮.  - ᫮ ⥪y騩
 >> pp  ᮡ, .. y  . p,  䠪 :-/
 DB>  p! 쬠 筮. ᥭ.
 DB> p⨢ p: << (*2)  >> (/2)
 DB> (  뫮  ᯮ짮  p  //)
    p⨢ -  ᠤ.  ᪠: ⠪  ⠪.
  ⠪  直 롮p -  p  :)

 DB>    ᨬ <  >, ..  p室   
 DB> p.
     ᪮ ⠪ ;)
⯠:  /.

 DB> Hy  p樨 横᪮ ᤢ, p䬥᪮ p 
 DB>   ᪮  y⮬ p. ,  뢠 adc
 DB> 
 DB> sbc?
    ADC  SBC

 DB>  p:
 DB> /// rra:rra:rra (᫨   ⠭,  y p -
 DB> .)
 DB> *** rla:rla:rla (筮)
 DB> <<< rlca:rlca:rlca
     p ⮣  y. p  .
  ⥪.

 >>>> rrca:rrca:rrca
 DB> *4 add a,a:add a,a (᫨  "* 4", y "rla:ld a,4".
    ~*4~  -  ~** **~
   ⠪ =]
 DB>  쪮 祬?;))
 DB>  /4 srl a:srl a (筮) /-4 sra a:sra a
 DB> (py, ᫨ ⠪    ⮯) +=b adc a,b -=b
 DB> sbc a,b 筮  16-pp來 pp.
    Hy,  ,  .    p  y =]

 DB> [[ push
 DB> ]] pop
    !
 DB> (⮬y  p p ᪮ - p p樨,
 DB>  py 뢠 p,   䨣yp - py pp)
 DB> /* p p */
     ᤥ.
 DB> ## p p ( ᮦ, 祣 y   py
 DB> ;*))
    p.
 DB>  p   p⨫p.
    y,   .. ⨫p ;]

 DB>  ⥪ hl 易⥫쭮 y p뢠   ⥪  inc
 DB> h?
    H.

    HL{ var  H++  => var }

 >>  ᠬ  p,   y p, 
 >> ⥬ ᫮ BC%DE..  ⠪:                       push BC  ld
 >> c,e  ld b,d  pop DE
 DB> p. y  pyᬮp y^^^^p  ᠬ
 DB> p.
     p - ! ;)   쪮 =]

 >> H ᪮y pᢠ   postpone,  ~=>~
 DB> .   p :)
      =]
    ~p⨢ py py ⮨~ ;)

 >>      ,   ᪮쪮 ⨯ pᢠ
 >>  p ⥪.
 DB> Hy HE    HT!!! ;(
    H y..? :)~
    H ! 8)
      ⥡  ⠢,   殢,   p񡠭 ⥪..! ;(

    ,   ᭮- y   ᢮ p ! y!    ⮬!
   ⠪,  ,    pyᬮp p y  :[

 >>    ~++~  ~--~   , py  ~**~ (*2), ~//~ (/2)
 >>  ~\\~ (=0),
 DB>    y  p "0". ᫨    y ld reg,0  xor
 DB> a.
    0  ⥪ A - ⮯y xor a.
~\\~ (~=0~) -  p p.  y, . . or a
     REG++ REG--

 >>  ᪮p ᥣ  ⨬, ⮡ ~+1~ -> ~++~  ..
 DB> . Ho ++  --   ⠢.
 DB>   뢠 p CP?
     类y =]

            ? N  -   CP.
            = N  -  p.
            < N  -  .
            >= N -   p.

 DB> "cp b" = "?b"
 DB> ⠪?
    p襭 p :)

 DB>   뢠 ⢨ p⨢?

 DB> nc{
 DB>  ...
 DB> }
 DB> else{
 DB>  ...
 DB> }

 DB> ⠪?
        ifNC    then .. ;
        ifZ     then ..
        if A<B  then .. else .. ;
        if A>=B then .. ;

    ~;~ - y  endif.    ~endif~ :)

 DB> E   x86 䫠   ⭮/p,
    .
 DB>   ⠪ ᮮ⢥y騥  y᫮ p, 맮  p室?
    , p y᫮ p⮢, 맮   p室. p室 ⠪:

    jz 1
    ret  ;  ⨯ RET NZ

 DB> ...  뢠 LDI  LDD?
    ᮫  . - MOVSB.  ᫮ - MOVSW.

 DB>   蠫,  x86 ⮦  - 宦?  LDIR/LDDR?
    REP MOVSB  /  REP MOVSW

     pp  pp pp -  
ᯥ䫠.  x86  䫠 y饭 16 .

 DB>   뢠 bit 4,a (,  x86 
 DB> ᮮ⢥y  tst al,16)
    ,  ⠪.

 DB>   뢠 set  res? ( ⫨  and  or ⥬,  
 DB> y  䫠)
     p  y.

 DB>   x86   EXX.  p?
     p .pp  .
 祬 p? =]
    py (pp  䠬p ;] ),  ᮢᥬ  y ᮧ
 Z80  ⮯,   ⯠ :)))

 DB>     x86  ex (sp),hl/ix/iy? (ᮮ. bx,si,di)?
     .     pp,   ..
 ⥡ PC - ? 8-)

 DB>   p p稪 pp뢠? (⮫쪮  p, 
 DB>   ᥣ   ;))
     ,  ⮣  ᪠y :-)
 , 筮, ᫥y y..


             y,   Oleg N. Cher  (aka  Vir ExCite)

... mailto:virexcite@newmail.ru  2:464/86.62 [aka /156.62], 500:562/1.16@ZXNet
--- GEd/2  [Beatlez][guitar][OS/2][ZX][Myth Corp.][nonmatter] . &..Good Karma!
 * Origin: ./ [80x86][C--][Pascal][Forth][Lisp][Esperanto] \. (2:464/86.62)

