Ames protocol to 3.

This commit is contained in:
C. Guy Yarvin 2014-08-04 18:19:15 -07:00
parent a4a3c67664
commit 1d49dc93cc
3 changed files with 6 additions and 6 deletions

View File

@ -439,7 +439,7 @@
vix=(bex +((cut 0 [25 2] mag))) :: width of sender
tay=(cut 0 [27 5] mag) :: message type
==
?> =(2 vez)
?> =(3 vez)
?> =(chk (end 0 20 (mug bod)))
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
(kins tay)
@ -459,7 +459,7 @@
=+ tay=(ksin q.kec)
%+ mix
%+ can 0
:~ [3 2]
:~ [3 3]
[20 (mug bod)]
[2 yax]
[2 qax]
@ -1047,7 +1047,7 @@
++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort]
?. =(2 (end 0 3 pac)) [~ fox]
?. =(3 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac)
?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec)

View File

@ -1,8 +1,8 @@
::::::
:: :: %ford, new execution control
:: :: %ford, new execution control
!? 164
::::
|= pit=vase
|= pit=vase
=> =~
:: structures
|%

View File

@ -1,5 +1,5 @@
::
:: zuse (3), standard library (tang)
:: zuse (3), standard library (tang)
::
|%
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::