0000: 5c 20 6e 65 74 32 6f 20 63 6f 6e 6e 65 63 74 65 \ net2o connecte
0010: 64 20 63 6f 6d 6d 61 6e 64 73 0a 0a 5c 20 43 6f d commands..\ Co
0020: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 31 pyright (C) 2011
0030: 2d 32 30 31 34 20 20 20 42 65 72 6e 64 20 50 61 -2014 Bernd Pa
0040: 79 73 61 6e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ysan..\ This pro
0050: 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 gram is free sof
0060: 74 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 tware: you can r
0070: 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 edistribute it a
0080: 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 5c 20 69 nd/or modify.\ i
0090: 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d t under the term
00a0: 73 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 s of the GNU Aff
00b0: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
00c0: 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 ic License as pu
00d0: 62 6c 69 73 68 65 64 20 62 79 0a 5c 20 74 68 65 blished by.\ the
00e0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 Free Software F
00f0: 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 oundation, eithe
0100: 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 r version 3 of t
0110: 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 5c he License, or.\
0120: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e (at your option
0130: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 ) any later vers
0140: 69 6f 6e 2e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ion...\ This pro
0150: 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 gram is distribu
0160: 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 ted in the hope
0170: 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 that it will be
0180: 75 73 65 66 75 6c 2c 0a 5c 20 62 75 74 20 57 49 useful,.\ but WI
0190: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e THOUT ANY WARRAN
01a0: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e TY; without even
01b0: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 the implied war
01c0: 72 61 6e 74 79 20 6f 66 0a 5c 20 4d 45 52 43 48 ranty of.\ MERCH
01d0: 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 ANTABILITY or FI
01e0: 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 TNESS FOR A PART
01f0: 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 ICULAR PURPOSE.
0200: 20 53 65 65 20 74 68 65 0a 5c 20 47 4e 55 20 41 See the.\ GNU A
0210: 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 ffero General Pu
0220: 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 blic License for
0230: 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a more details...
0240: 5c 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 \ You should hav
0250: 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 e received a cop
0260: 79 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 y of the GNU Aff
0270: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
0280: 69 63 20 4c 69 63 65 6e 73 65 0a 5c 20 61 6c 6f ic License.\ alo
0290: 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f ng with this pro
02a0: 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 gram. If not, s
02b0: 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 ee <http://www.g
02c0: 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f nu.org/licenses/
02d0: 3e 2e 0a 0a 5c 20 65 76 65 72 79 74 68 69 6e 67 >...\ everything
02e0: 20 74 68 61 74 20 66 6f 6c 6c 6f 77 73 20 68 65 that follows he
02f0: 72 65 20 63 61 6e 20 61 73 73 75 6d 65 20 74 6f re can assume to
0300: 20 68 61 76 65 20 61 20 63 6f 6e 6e 65 63 74 69 have a connecti
0310: 6f 6e 20 63 6f 6e 74 65 78 74 0a 0a 73 63 6f 70 on context..scop
0320: 65 7b 20 6e 65 74 32 6f 2d 62 61 73 65 0a 0a 63 e{ net2o-base..c
0330: 6f 6e 6e 65 63 74 2d 74 61 62 6c 65 20 24 40 20 onnect-table $@
0340: 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 63 6f inherit-table co
0350: 6e 74 65 78 74 2d 74 61 62 6c 65 0a 0a 5c 20 67 ntext-table..\ g
0360: 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 eneric functions
0370: 0a 5c 67 20 0a 5c 67 20 23 23 23 20 63 6f 6e 6e .\g .\g ### conn
0380: 65 63 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 ection commands
0390: 23 23 23 0a 5c 67 20 0a 2b 6e 65 74 32 6f 3a 20 ###.\g .+net2o:
03a0: 64 69 73 63 6f 6e 6e 65 63 74 20 28 20 2d 2d 20 disconnect ( --
03b0: 29 20 5c 67 20 63 6c 6f 73 65 20 63 6f 6e 6e 65 ) \g close conne
03c0: 63 74 69 6f 6e 0a 20 20 20 20 6f 20 49 46 20 20 ction. o IF
03d0: 6f 20 65 6c 69 74 2c 20 3a 3e 64 69 73 70 6f 73 o elit, :>dispos
03e0: 65 2d 63 6f 6e 74 65 78 74 20 20 74 72 75 65 20 e-context true
03f0: 74 6f 20 63 6c 6f 73 69 6e 67 3f 20 20 54 48 45 to closing? THE
0400: 4e 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d N ;.+net2o: set-
0410: 69 70 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ip ( $:string --
0420: 20 29 20 5c 67 20 73 65 74 20 61 64 64 72 65 73 ) \g set addres
0430: 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 20 s information.
0440: 20 20 24 3e 20 73 65 74 69 70 2d 78 74 20 3b 0a $> setip-xt ;.
0450: 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 69 70 20 28 +net2o: get-ip (
0460: 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 65 73 74 -- ) \g request
0470: 20 61 64 64 72 65 73 73 20 69 6e 66 6f 72 6d 61 address informa
0480: 74 69 6f 6e 0a 20 20 20 20 3e 73 6f 63 6b 61 64 tion. >sockad
0490: 64 72 20 24 2c 20 73 65 74 2d 69 70 20 5b 3a 20 dr $, set-ip [:
04a0: 24 2c 20 73 65 74 2d 69 70 20 3b 5d 20 6e 32 6f $, set-ip ;] n2o
04b0: 61 64 64 72 73 20 3b 0a 0a 2b 6e 65 74 32 6f 3a addrs ;..+net2o:
04c0: 20 73 65 74 2d 62 6c 6f 63 6b 73 69 7a 65 20 28 set-blocksize (
04d0: 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 62 n -- ) \g set b
04e0: 6c 6f 63 6b 73 69 7a 65 20 74 6f 20 32 5e 6e 0a locksize to 2^n.
04f0: 20 20 20 20 36 34 3e 6e 20 31 20 73 77 61 70 20 64>n 1 swap
0500: 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 max-block# umin
0510: 6c 73 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f lshift net2o:blo
0520: 63 6b 73 69 7a 65 73 21 20 3b 0a 2b 6e 65 74 32 cksizes! ;.+net2
0530: 6f 3a 20 73 65 74 2d 62 6c 6f 63 6b 61 6c 69 67 o: set-blockalig
0540: 6e 20 28 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 n ( n -- ) \g se
0550: 74 20 62 6c 6f 63 6b 20 61 6c 69 67 6e 6d 65 6e t block alignmen
0560: 74 20 74 6f 20 32 5e 6e 0a 20 20 20 20 36 34 3e t to 2^n. 64>
0570: 6e 20 31 20 73 77 61 70 20 6d 61 78 2d 62 6c 6f n 1 swap max-blo
0580: 63 6b 23 20 75 6d 69 6e 20 6c 73 68 69 66 74 20 ck# umin lshift
0590: 62 6c 6f 63 6b 61 6c 69 67 6e 20 21 20 3b 0a 2b blockalign ! ;.+
05a0: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 61 6c 6c net2o: close-all
05b0: 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 65 ( -- ) \g close
05c0: 20 61 6c 6c 20 66 69 6c 65 73 0a 20 20 20 20 6e all files. n
05d0: 65 74 32 6f 3a 63 6c 6f 73 65 2d 61 6c 6c 20 3b et2o:close-all ;
05e0: 0a 5c 20 62 65 74 74 65 72 20 73 6c 75 72 70 69 .\ better slurpi
05f0: 6e 67 0a 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d ng..+net2o: set-
0600: 74 6f 70 20 28 20 75 74 6f 70 20 66 6c 61 67 20 top ( utop flag
0610: 2d 2d 20 29 20 5c 67 20 73 65 74 20 74 6f 70 2c -- ) \g set top,
0620: 20 66 6c 61 67 20 69 73 20 74 72 75 65 20 77 68 flag is true wh
0630: 65 6e 20 61 6c 6c 20 64 61 74 61 20 69 73 20 73 en all data is s
0640: 65 6e 74 0a 20 20 20 20 3e 72 20 36 34 3e 6e 20 ent. >r 64>n
0650: 72 3e 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 r> data-rmap wit
0660: 68 20 6d 61 70 63 0a 09 6f 76 65 72 20 64 65 73 h mapc..over des
0670: 74 2d 74 6f 70 20 3c 3e 20 61 6e 64 20 66 61 6c t-top <> and fal
0680: 73 65 20 64 65 73 74 2d 65 6e 64 20 3f 21 40 20 se dest-end ?!@
0690: 64 72 6f 70 20 5c 20 61 74 6f 6d 69 63 2c 20 72 drop \ atomic, r
06a0: 65 70 6c 61 63 65 73 20 6f 72 21 0a 09 64 65 73 eplaces or!..des
06b0: 74 2d 74 6f 70 21 0a 20 20 20 20 65 6e 64 77 69 t-top!. endwi
06c0: 74 68 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 6c 75 th ;.+net2o: slu
06d0: 72 70 20 28 20 2d 2d 20 29 20 5c 67 20 73 6c 75 rp ( -- ) \g slu
06e0: 72 70 20 69 6e 20 74 72 61 63 6b 65 64 20 66 69 rp in tracked fi
06f0: 6c 65 73 0a 20 20 20 20 5c 20 21 21 46 49 58 4d les. \ !!FIXM
0700: 45 21 21 20 74 68 69 73 20 73 68 6f 75 6c 64 20 E!! this should
0710: 70 72 6f 62 61 62 6c 79 20 62 65 20 61 73 79 6e probably be asyn
0720: 63 68 72 6f 6e 6f 75 73 0a 20 20 20 20 6e 65 74 chronous. net
0730: 32 6f 3a 73 6c 75 72 70 20 73 77 61 70 20 75 6c 2o:slurp swap ul
0740: 69 74 2c 20 66 6c 61 67 2c 20 73 65 74 2d 74 6f it, flag, set-to
0750: 70 0a 20 20 20 20 5b 27 5d 20 64 6f 2d 74 72 61 p. ['] do-tra
0760: 63 6b 2d 73 65 65 6b 20 6e 65 74 32 6f 3a 74 72 ck-seek net2o:tr
0770: 61 63 6b 2d 61 6c 6c 2d 73 65 65 6b 73 20 6e 65 ack-all-seeks ne
0780: 74 32 6f 3a 73 65 6e 64 2d 63 68 75 6e 6b 73 20 t2o:send-chunks
0790: 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 72 65 ;.+net2o: ack-re
07a0: 73 65 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 set ( -- ) \g re
07b0: 73 65 74 20 61 63 6b 20 73 74 61 74 65 0a 20 20 set ack state.
07c0: 20 20 30 20 61 63 6b 2d 73 74 61 74 65 20 63 21 0 ack-state c!
07d0: 20 3b 0a 0a 5c 20 6f 62 6a 65 63 74 20 68 61 6e ;..\ object han
07e0: 64 6c 65 73 0a 5c 67 20 0a 5c 67 20 23 23 23 20 dles.\g .\g ###
07f0: 66 69 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 file commands ##
0800: 23 0a 5c 67 20 0a 0a 24 33 30 20 6e 65 74 32 6f #.\g ..$30 net2o
0810: 3a 20 66 69 6c 65 2d 69 64 20 28 20 75 69 64 20 : file-id ( uid
0820: 2d 2d 20 6f 3a 66 69 6c 65 20 29 20 5c 67 20 63 -- o:file ) \g c
0830: 68 6f 6f 73 65 20 61 20 66 69 6c 65 20 6f 62 6a hoose a file obj
0840: 65 63 74 0a 20 20 20 20 36 34 3e 6e 20 73 74 61 ect. 64>n sta
0850: 74 65 2d 61 64 64 72 20 6e 3a 3e 6f 20 3b 0a 66 te-addr n:>o ;.f
0860: 73 2d 74 61 62 6c 65 20 3e 74 61 62 6c 65 0a 0a s-table >table..
0870: 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 40 20 69 reply-table $@ i
0880: 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 66 73 2d nherit-table fs-
0890: 74 61 62 6c 65 0a 0a 3a 20 66 69 6c 65 2d 73 74 table..: file-st
08a0: 61 72 74 2d 72 65 71 20 66 73 2d 69 64 20 40 20 art-req fs-id @
08b0: 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 20 3b 0a ulit, file-id ;.
08c0: 27 20 66 69 6c 65 2d 73 74 61 72 74 2d 72 65 71 ' file-start-req
08d0: 0a 66 69 6c 65 2d 63 6c 61 73 73 65 73 20 66 69 .file-classes fi
08e0: 6c 65 2d 63 6c 61 73 73 65 73 23 20 63 65 6c 6c le-classes# cell
08f0: 73 20 62 6f 75 6e 64 73 0a 5b 44 4f 5d 20 64 75 s bounds.[DO] du
0900: 70 20 5b 49 5d 20 40 20 74 6f 20 73 74 61 72 74 p [I] @ to start
0910: 2d 72 65 71 20 63 65 6c 6c 20 5b 2b 4c 4f 4f 50 -req cell [+LOOP
0920: 5d 0a 64 72 6f 70 0a 0a 24 32 30 20 6e 65 74 32 ].drop..$20 net2
0930: 6f 3a 20 6f 70 65 6e 2d 66 69 6c 65 20 28 20 24 o: open-file ( $
0940: 3a 73 74 72 69 6e 67 20 6d 6f 64 65 20 2d 2d 20 :string mode --
0950: 29 20 5c 67 20 6f 70 65 6e 20 66 69 6c 65 20 77 ) \g open file w
0960: 69 74 68 20 6d 6f 64 65 0a 20 20 20 20 70 61 72 ith mode. par
0970: 65 6e 74 20 2e 70 65 72 6d 2d 6d 61 73 6b 20 40 ent .perm-mask @
0980: 20 3e 72 20 72 40 20 66 73 2d 70 65 72 6d 3f 0a >r r@ fs-perm?.
0990: 20 20 20 20 36 34 3e 6e 20 2d 32 20 61 6e 64 20 64>n -2 and
09a0: 34 20 75 6d 69 6e 20 64 75 70 20 72 3e 20 3f 72 4 umin dup r> ?r
09b0: 77 2d 70 65 72 6d 20 20 3e 72 20 24 3e 20 72 3e w-perm >r $> r>
09c0: 20 66 73 2d 6f 70 65 6e 20 3b 0a 2b 6e 65 74 32 fs-open ;.+net2
09d0: 6f 3a 20 66 69 6c 65 2d 74 79 70 65 20 28 20 6e o: file-type ( n
09e0: 20 2d 2d 20 29 20 5c 67 20 63 68 6f 6f 73 65 20 -- ) \g choose
09f0: 66 69 6c 65 20 74 79 70 65 0a 20 20 20 20 36 34 file type. 64
0a00: 3e 6e 20 66 73 2d 63 6c 61 73 73 21 20 3b 0a 2b >n fs-class! ;.+
0a10: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 66 69 6c net2o: close-fil
0a20: 65 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 e ( -- ) \g clos
0a30: 65 20 66 69 6c 65 0a 20 20 20 20 66 73 2d 63 6c e file. fs-cl
0a40: 6f 73 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 ose ;.+net2o: se
0a50: 74 2d 73 69 7a 65 20 28 20 73 69 7a 65 20 2d 2d t-size ( size --
0a60: 20 29 20 5c 67 20 73 65 74 20 73 69 7a 65 20 61 ) \g set size a
0a70: 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 72 72 ttribute of curr
0a80: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 72 61 ent file. tra
0a90: 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 20 66 ck( ." file <" f
0aa0: 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 20 3e s-id @ 0 .r ." >
0ab0: 20 73 69 7a 65 3a 20 22 20 36 34 64 75 70 20 75 size: " 64dup u
0ac0: 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 20 73 64. forth:cr ) s
0ad0: 69 7a 65 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 ize! ;.+net2o: s
0ae0: 65 74 2d 73 65 65 6b 20 28 20 75 73 65 65 6b 20 et-seek ( useek
0af0: 2d 2d 20 29 20 5c 67 20 73 65 74 20 73 65 65 6b -- ) \g set seek
0b00: 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 attribute of cu
0b10: 72 72 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 rrent file. t
0b20: 72 61 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 rack( ." file <"
0b30: 20 66 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 fs-id @ 0 .r ."
0b40: 20 3e 20 73 65 65 6b 3a 20 22 20 36 34 64 75 70 > seek: " 64dup
0b50: 20 75 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 u64. forth:cr )
0b60: 20 73 65 65 6b 74 6f 21 20 3b 0a 2b 6e 65 74 32 seekto! ;.+net2
0b70: 6f 3a 20 73 65 74 2d 6c 69 6d 69 74 20 28 20 75 o: set-limit ( u
0b80: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 73 65 limit -- ) \g se
0b90: 74 20 6c 69 6d 69 74 20 61 74 74 72 69 62 75 74 t limit attribut
0ba0: 65 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c e of current fil
0bb0: 65 0a 20 20 20 20 74 72 61 63 6b 28 20 2e 22 20 e. track( ."
0bc0: 66 69 6c 65 20 3c 22 20 66 73 2d 69 64 20 40 20 file <" fs-id @
0bd0: 30 20 2e 72 20 2e 22 20 3e 20 73 65 65 6b 20 74 0 .r ." > seek t
0be0: 6f 3a 20 22 20 36 34 64 75 70 20 75 36 34 2e 20 o: " 64dup u64.
0bf0: 66 6f 72 74 68 3a 63 72 20 29 20 6c 69 6d 69 74 forth:cr ) limit
0c00: 2d 6d 69 6e 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -min! ;.+net2o:
0c10: 73 65 74 2d 73 74 61 74 20 28 20 75 6d 74 69 6d set-stat ( umtim
0c20: 65 20 75 6d 6f 64 20 2d 2d 20 29 20 5c 67 20 73 e umod -- ) \g s
0c30: 65 74 20 74 69 6d 65 20 61 6e 64 20 6d 6f 64 65 et time and mode
0c40: 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c 65 of current file
0c50: 0a 20 20 20 20 36 34 3e 6e 20 66 73 2d 73 65 74 . 64>n fs-set
0c60: 2d 73 74 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -stat ;.+net2o:
0c70: 67 65 74 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 get-size ( -- )
0c80: 5c 67 20 72 65 71 75 65 73 74 20 66 69 6c 65 20 \g request file
0c90: 73 69 7a 65 0a 20 20 20 20 66 73 2d 73 69 7a 65 size. fs-size
0ca0: 20 6c 69 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b lit, set-size ;
0cb0: 0a 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 73 74 61 .+net2o: get-sta
0cc0: 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 t ( -- ) \g requ
0cd0: 65 73 74 20 73 74 61 74 20 6f 66 20 63 75 72 72 est stat of curr
0ce0: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 66 73 2d ent file. fs-
0cf0: 67 65 74 2d 73 74 61 74 20 3e 72 20 6c 69 74 2c get-stat >r lit,
0d00: 20 72 3e 20 75 6c 69 74 2c 20 73 65 74 2d 73 74 r> ulit, set-st
0d10: 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 at ;.+net2o: set
0d20: 2d 66 6f 72 6d 20 28 20 77 20 68 20 2d 2d 20 29 -form ( w h -- )
0d30: 20 5c 67 20 69 66 20 66 69 6c 65 20 69 73 20 61 \g if file is a
0d40: 20 74 65 72 6d 69 6e 61 6c 2c 20 73 65 74 20 73 terminal, set s
0d50: 69 7a 65 0a 20 20 20 20 74 65 72 6d 2d 68 20 21 ize. term-h !
0d60: 20 74 65 72 6d 2d 77 20 21 20 3b 0a 2b 6e 65 74 term-w ! ;.+net
0d70: 32 6f 3a 20 67 65 74 2d 66 6f 72 6d 20 28 20 2d 2o: get-form ( -
0d80: 2d 20 29 20 5c 67 20 69 66 20 66 69 6c 65 20 69 - ) \g if file i
0d90: 73 20 61 20 74 65 72 6d 69 6e 61 6c 2c 20 72 65 s a terminal, re
0da0: 71 75 65 73 74 20 73 69 7a 65 0a 20 20 20 20 74 quest size. t
0db0: 65 72 6d 2d 77 20 40 20 75 6c 69 74 2c 20 74 65 erm-w @ ulit, te
0dc0: 72 6d 2d 68 20 40 20 75 6c 69 74 2c 20 73 65 74 rm-h @ ulit, set
0dd0: 2d 66 6f 72 6d 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -form ;.+net2o:
0de0: 70 6f 6c 6c 2d 72 65 71 75 65 73 74 20 28 20 75 poll-request ( u
0df0: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 70 6f limit -- ) \g po
0e00: 6c 6c 20 61 20 66 69 6c 65 20 74 6f 20 63 68 65 ll a file to che
0e10: 63 6b 20 66 6f 72 20 73 69 7a 65 20 63 68 61 6e ck for size chan
0e20: 67 65 73 0a 20 20 20 20 70 6f 6c 6c 21 20 6c 69 ges. poll! li
0e30: 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b 0a 0a 66 t, set-size ;..f
0e40: 73 2d 74 61 62 6c 65 20 24 73 61 76 65 0a 0a 27 s-table $save..'
0e50: 20 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 context-table i
0e60: 73 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a 6e 6f s gen-table..:no
0e70: 6e 61 6d 65 20 28 20 75 69 64 20 75 73 65 65 6b name ( uid useek
0e80: 20 2d 2d 20 29 20 36 34 3e 72 20 75 6c 69 74 2c -- ) 64>r ulit,
0e90: 20 66 69 6c 65 2d 69 64 0a 20 20 20 20 36 34 72 file-id. 64r
0ea0: 3e 20 6c 69 74 2c 20 73 65 74 2d 73 65 65 6b 20 > lit, set-seek
0eb0: 65 6e 64 2d 77 69 74 68 20 3b 20 69 73 20 64 6f end-with ; is do
0ec0: 2d 74 72 61 63 6b 2d 73 65 65 6b 0a 0a 5c 20 66 -track-seek..\ f
0ed0: 6c 6f 77 20 63 6f 6e 74 72 6f 6c 20 66 75 6e 63 low control func
0ee0: 74 69 6f 6e 73 0a 5c 67 20 0a 5c 67 20 23 23 23 tions.\g .\g ###
0ef0: 20 61 63 6b 20 63 6f 6d 6d 61 6e 64 73 20 23 23 ack commands ##
0f00: 23 0a 5c 67 20 0a 0a 24 33 31 20 6e 65 74 32 6f #.\g ..$31 net2o
0f10: 3a 20 61 63 6b 20 28 20 2d 2d 20 6f 3a 61 63 6b : ack ( -- o:ack
0f20: 6f 20 29 20 5c 67 20 61 63 6b 20 6f 62 6a 65 63 o ) \g ack objec
0f30: 74 0a 20 20 20 20 61 63 6b 40 20 6e 3a 3e 6f 20 t. ack@ n:>o
0f40: 3b 0a 61 63 6b 2d 74 61 62 6c 65 20 3e 74 61 62 ;.ack-table >tab
0f50: 6c 65 0a 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 le.reply-table $
0f60: 40 20 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 @ inherit-table
0f70: 61 63 6b 2d 74 61 62 6c 65 0a 0a 3a 6e 6f 6e 61 ack-table..:nona
0f80: 6d 65 20 61 63 6b 20 3b 20 61 63 6b 2d 63 6c 61 me ack ; ack-cla
0f90: 73 73 20 74 6f 20 73 74 61 72 74 2d 72 65 71 0a ss to start-req.
0fa0: 24 32 30 20 6e 65 74 32 6f 3a 20 61 63 6b 2d 61 $20 net2o: ack-a
0fb0: 64 64 72 74 69 6d 65 20 28 20 75 74 69 6d 65 20 ddrtime ( utime
0fc0: 61 64 64 72 20 2d 2d 20 29 20 5c 67 20 70 61 63 addr -- ) \g pac
0fd0: 6b 65 74 20 61 74 20 61 64 64 72 20 72 65 63 65 ket at addr rece
0fe0: 69 76 65 64 20 61 74 20 74 69 6d 65 0a 20 20 20 ived at time.
0ff0: 20 6e 65 74 32 6f 3a 61 63 6b 2d 61 64 64 72 74 net2o:ack-addrt
1000: 69 6d 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 ime ;.+net2o: ac
1010: 6b 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 20 k-resend ( flag
1020: 2d 2d 20 29 20 5c 67 20 73 65 74 20 72 65 73 65 -- ) \g set rese
1030: 6e 64 20 74 6f 67 67 6c 65 20 66 6c 61 67 0a 20 nd toggle flag.
1040: 20 20 20 36 34 3e 6e 20 20 70 61 72 65 6e 74 20 64>n parent
1050: 2e 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 6e .net2o:ack-resen
1060: 64 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d d ;.+net2o: set-
1070: 72 61 74 65 20 28 20 75 72 61 74 65 20 75 64 65 rate ( urate ude
1080: 6c 74 61 2d 74 20 2d 2d 20 29 20 5c 67 20 73 65 lta-t -- ) \g se
1090: 74 20 72 61 74 65 20 0a 20 20 20 20 70 61 72 65 t rate . pare
10a0: 6e 74 20 3e 6f 20 63 6f 6f 6b 69 65 3f 20 49 46 nt >o cookie? IF
10b0: 20 20 61 63 6b 40 20 2e 6e 65 74 32 6f 3a 73 65 ack@ .net2o:se
10c0: 74 2d 72 61 74 65 0a 20 20 20 20 45 4c 53 45 20 t-rate. ELSE
10d0: 20 36 34 64 72 6f 70 20 36 34 64 72 6f 70 20 61 64drop 64drop a
10e0: 63 6b 2d 6f 72 64 65 72 3f 0a 09 49 46 20 20 61 ck-order?..IF a
10f0: 63 6b 40 20 2e 6e 73 2f 62 75 72 73 74 20 64 75 ck@ .ns/burst du
1100: 70 20 3e 72 20 36 34 40 20 36 34 2d 32 2a 20 36 p >r 64@ 64-2* 6
1110: 34 2d 32 2a 20 72 3e 20 36 34 21 0a 09 54 48 45 4-2* r> 64!..THE
1120: 4e 0a 20 20 20 20 54 48 45 4e 20 6f 3e 20 3b 0a N. THEN o> ;.
1130: 2b 6e 65 74 32 6f 3a 20 72 65 73 65 6e 64 2d 6d +net2o: resend-m
1140: 61 73 6b 20 28 20 61 64 64 72 20 75 6d 61 73 6b ask ( addr umask
1150: 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 20 -- ) \g resend
1160: 6d 61 73 6b 20 62 6c 6f 63 6b 73 20 73 74 61 72 mask blocks star
1170: 74 69 6e 67 20 61 74 20 61 64 64 72 0a 20 20 20 ting at addr.
1180: 20 32 2a 36 34 3e 6e 20 70 61 72 65 6e 74 20 3e 2*64>n parent >
1190: 6f 20 6e 65 74 32 6f 3a 72 65 73 65 6e 64 2d 6d o net2o:resend-m
11a0: 61 73 6b 20 6e 65 74 32 6f 3a 73 65 6e 64 2d 63 ask net2o:send-c
11b0: 68 75 6e 6b 73 20 6f 3e 20 3b 0a 2b 6e 65 74 32 hunks o> ;.+net2
11c0: 6f 3a 20 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 o: track-timing
11d0: 28 20 2d 2d 20 29 20 5c 67 20 74 72 61 63 6b 20 ( -- ) \g track
11e0: 74 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f timing. net2o
11f0: 3a 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 3b 0a :track-timing ;.
1200: 2b 6e 65 74 32 6f 3a 20 72 65 63 2d 74 69 6d 69 +net2o: rec-timi
1210: 6e 67 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ng ( $:string --
1220: 20 29 20 5c 67 20 72 65 63 6f 72 64 65 64 20 74 ) \g recorded t
1230: 69 6d 69 6e 67 0a 20 20 20 20 24 3e 20 6e 65 74 iming. $> net
1240: 32 6f 3a 72 65 63 2d 74 69 6d 69 6e 67 20 3b 0a 2o:rec-timing ;.
1250: 2b 6e 65 74 32 6f 3a 20 73 65 6e 64 2d 74 69 6d +net2o: send-tim
1260: 69 6e 67 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 ing ( -- ) \g re
1270: 71 75 65 73 74 20 72 65 63 6f 72 64 65 64 20 74 quest recorded t
1280: 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f 3a iming. net2o:
1290: 74 69 6d 69 6e 67 24 20 6d 61 78 74 69 6d 69 6e timing$ maxtimin
12a0: 67 20 75 6d 69 6e 20 74 75 63 6b 20 24 2c 20 6e g umin tuck $, n
12b0: 65 74 32 6f 3a 2f 74 69 6d 69 6e 67 20 72 65 63 et2o:/timing rec
12c0: 2d 74 69 6d 69 6e 67 20 3b 0a 2b 6e 65 74 32 6f -timing ;.+net2o
12d0: 3a 20 61 63 6b 2d 62 32 62 74 69 6d 65 20 28 20 : ack-b2btime (
12e0: 75 74 69 6d 65 20 61 64 64 72 20 2d 2d 20 29 20 utime addr -- )
12f0: 5c 67 20 62 75 72 73 74 2d 74 6f 2d 62 75 72 73 \g burst-to-burs
1300: 74 20 74 69 6d 65 20 61 74 20 70 61 63 6b 65 74 t time at packet
1310: 20 61 64 64 72 0a 20 20 20 20 6e 65 74 32 6f 3a addr. net2o:
1320: 61 63 6b 2d 62 32 62 74 69 6d 65 20 3b 0a 2b 6e ack-b2btime ;.+n
1330: 65 74 32 6f 3a 20 61 63 6b 2d 72 65 73 65 6e 64 et2o: ack-resend
1340: 23 20 28 20 61 64 64 72 20 24 3a 73 74 72 69 6e # ( addr $:strin
1350: 67 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 g -- ) \g resend
1360: 20 6e 75 6d 62 65 72 73 0a 20 20 20 20 36 34 3e numbers. 64>
1370: 6e 20 24 3e 0a 20 20 20 20 61 63 6b 2d 6f 72 64 n $>. ack-ord
1380: 65 72 3f 20 49 46 0a 09 70 61 72 65 6e 74 20 2e er? IF..parent .
1390: 64 61 74 61 2d 6d 61 70 20 2e 6d 61 70 63 3a 72 data-map .mapc:r
13a0: 65 73 65 6e 64 23 3f 20 64 75 70 20 30 3d 20 49 esend#? dup 0= I
13b0: 46 0a 09 20 20 20 20 64 72 6f 70 20 74 69 6d 65 F.. drop time
13c0: 6f 75 74 28 20 2e 22 20 72 65 73 65 6e 64 23 20 out( ." resend#
13d0: 64 6f 6e 27 74 20 6d 61 74 63 68 21 22 20 66 6f don't match!" fo
13e0: 72 74 68 3a 63 72 0a 09 20 20 20 20 70 61 72 65 rth:cr.. pare
13f0: 6e 74 20 2e 6e 65 74 32 6f 3a 73 65 65 2d 6d 65 nt .net2o:see-me
1400: 20 29 0a 09 20 20 20 20 5b 20 63 6f 6f 6b 69 65 ).. [ cookie
1410: 2d 76 61 6c 20 31 20 76 61 6c 69 64 61 74 65 64 -val 1 validated
1420: 23 20 6c 73 68 69 66 74 20 31 2d 20 78 6f 72 20 # lshift 1- xor
1430: 5d 4c 20 76 61 6c 69 64 61 74 65 64 20 61 6e 64 ]L validated and
1440: 21 0a 09 45 4c 53 45 0a 09 20 20 20 20 76 61 6c !..ELSE.. val
1450: 69 64 61 74 65 64 23 20 6c 73 68 69 66 74 20 76 idated# lshift v
1460: 61 6c 69 64 61 74 65 64 20 2b 21 20 63 6f 6f 6b alidated +! cook
1470: 69 65 2d 76 61 6c 20 76 61 6c 69 64 61 74 65 64 ie-val validated
1480: 20 6f 72 21 0a 09 54 48 45 4e 0a 20 20 20 20 45 or!..THEN. E
1490: 4c 53 45 20 20 74 69 6d 65 6f 75 74 28 20 2e 22 LSE timeout( ."
14a0: 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 61 72 out of order ar
14b0: 72 69 76 61 6c 20 6f 66 20 61 63 6b 22 20 66 6f rival of ack" fo
14c0: 72 74 68 3a 63 72 20 29 0a 09 32 64 72 6f 70 20 rth:cr )..2drop
14d0: 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 20 3b 0a drop. THEN ;.
14e0: 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 66 6c 75 73 +net2o: ack-flus
14f0: 68 20 28 20 61 64 64 72 20 2d 2d 20 29 20 5c 67 h ( addr -- ) \g
1500: 20 66 6c 75 73 68 65 64 20 74 6f 20 61 64 64 72 flushed to addr
1510: 0a 20 20 20 20 36 34 3e 6e 20 70 61 72 65 6e 74 . 64>n parent
1520: 20 2e 6e 65 74 32 6f 3a 72 65 77 69 6e 64 2d 73 .net2o:rewind-s
1530: 65 6e 64 65 72 2d 70 61 72 74 69 61 6c 20 3b 0a ender-partial ;.
1540: 24 32 43 20 6e 65 74 32 6f 3a 20 73 65 74 2d 72 $2C net2o: set-r
1550: 74 64 65 6c 61 79 20 28 20 74 69 63 6b 73 20 2d tdelay ( ticks -
1560: 2d 20 29 20 5c 67 20 73 65 74 20 72 6f 75 6e 64 - ) \g set round
1570: 20 74 72 69 70 20 64 65 6c 61 79 20 6f 6e 6c 79 trip delay only
1580: 0a 20 20 20 20 72 74 64 65 6c 61 79 21 20 3b 0a . rtdelay! ;.
1590: 2b 6e 65 74 32 6f 3a 20 73 65 71 23 20 28 20 6e +net2o: seq# ( n
15a0: 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 74 68 65 -- ) \g set the
15b0: 20 61 63 6b 20 6e 75 6d 62 65 72 20 61 6e 64 20 ack number and
15c0: 63 68 65 63 6b 20 66 6f 72 20 73 6d 61 6c 6c 65 check for smalle
15d0: 72 0a 20 20 20 20 36 34 3e 6e 20 70 61 72 65 6e r. 64>n paren
15e0: 74 20 2e 64 61 74 61 2d 6d 61 70 20 77 69 74 68 t .data-map with
15f0: 20 6d 61 70 63 0a 20 20 20 20 64 75 70 20 73 65 mapc. dup se
1600: 6e 64 2d 61 63 6b 23 20 75 3e 20 49 46 20 20 74 nd-ack# u> IF t
1610: 6f 20 73 65 6e 64 2d 61 63 6b 23 20 20 61 63 6b o send-ack# ack
1620: 2d 6f 72 64 65 72 2d 76 61 6c 20 76 61 6c 69 64 -order-val valid
1630: 61 74 65 64 20 6f 72 21 20 20 45 4c 53 45 0a 09 ated or! ELSE..
1640: 64 72 6f 70 20 5b 20 61 63 6b 2d 6f 72 64 65 72 drop [ ack-order
1650: 2d 76 61 6c 20 69 6e 76 65 72 74 20 5d 4c 20 76 -val invert ]L v
1660: 61 6c 69 64 61 74 65 64 20 61 6e 64 21 0a 20 20 alidated and!.
1670: 20 20 54 48 45 4e 0a 20 20 20 20 65 6e 64 77 69 THEN. endwi
1680: 74 68 20 3b 0a 0a 61 63 6b 2d 74 61 62 6c 65 20 th ;..ack-table
1690: 24 73 61 76 65 0a 0a 5c 20 70 72 6f 66 69 6c 69 $save..\ profili
16a0: 6e 67 2c 20 6e 61 74 20 74 72 61 76 65 72 73 61 ng, nat traversa
16b0: 6c 0a 0a 27 20 63 6f 6e 74 65 78 74 2d 74 61 62 l..' context-tab
16c0: 6c 65 20 69 73 20 67 65 6e 2d 74 61 62 6c 65 0a le is gen-table.
16d0: 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 67 65 6e 2d .in net2o : gen-
16e0: 72 65 73 65 6e 64 20 28 20 2d 2d 20 29 0a 20 20 resend ( -- ).
16f0: 20 20 61 63 6b 2d 72 65 63 65 69 76 65 20 69 6e ack-receive in
1700: 76 65 72 74 20 72 65 73 65 6e 64 2d 74 6f 67 67 vert resend-togg
1710: 6c 65 23 20 61 6e 64 20 75 6c 69 74 2c 20 61 63 le# and ulit, ac
1720: 6b 2d 72 65 73 65 6e 64 20 3b 0a 69 6e 20 6e 65 k-resend ;.in ne
1730: 74 32 6f 20 3a 20 67 65 6e 2d 72 65 73 65 74 20 t2o : gen-reset
1740: 28 20 2d 2d 20 29 0a 20 20 20 20 61 63 6b 2d 72 ( -- ). ack-r
1750: 65 73 65 74 20 30 20 74 6f 20 61 63 6b 2d 72 65 eset 0 to ack-re
1760: 63 65 69 76 65 20 3b 0a 0a 3a 20 72 65 77 69 6e ceive ;..: rewin
1770: 64 20 28 20 2d 2d 20 29 0a 20 20 20 20 64 61 74 d ( -- ). dat
1780: 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 a-rmap .mapc:des
1790: 74 2d 62 61 63 6b 20 75 6c 69 74 2c 20 61 63 6b t-back ulit, ack
17a0: 2d 66 6c 75 73 68 20 3b 0a 0a 5c 20 73 61 66 65 -flush ;..\ safe
17b0: 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a initialization.
17c0: 0a 3a 20 6c 69 74 3c 20 20 20 6c 69 74 2c 20 70 .: lit< lit, p
17d0: 75 73 68 2d 6c 69 74 20 3b 0a 3a 6e 6f 6e 61 6d ush-lit ;.:nonam
17e0: 65 20 28 20 74 68 72 6f 77 63 6f 64 65 20 2d 2d e ( throwcode --
17f0: 20 29 0a 20 20 20 20 72 65 6d 6f 74 65 3f 20 40 ). remote? @
1800: 20 49 46 0a 09 3f 64 75 70 2d 49 46 20 20 69 6e IF..?dup-IF in
1810: 69 74 2d 72 65 70 6c 79 0a 09 20 20 20 20 24 65 it-reply.. $e
1820: 72 72 6f 72 2d 69 64 20 24 40 20 64 75 70 20 49 rror-id $@ dup I
1830: 46 20 20 24 2c 20 65 72 72 6f 72 2d 69 64 20 20 F $, error-id
1840: 45 4c 53 45 20 20 32 64 72 6f 70 20 20 54 48 45 ELSE 2drop THE
1850: 4e 0a 09 20 20 20 20 6e 6c 69 74 2c 20 6b 6f 20 N.. nlit, ko
1860: 20 54 48 45 4e 0a 20 20 20 20 45 4c 53 45 0a 09 THEN. ELSE..
1870: 65 72 72 6f 72 2d 69 64 3e 6f 20 3f 64 75 70 2d error-id>o ?dup-
1880: 49 46 0a 09 20 20 20 20 3e 6f 20 3c 65 76 65 6e IF.. >o <even
1890: 74 20 65 6c 69 74 2c 20 3a 3e 74 68 72 6f 77 20 t elit, :>throw
18a0: 77 61 69 74 2d 74 61 73 6b 20 40 20 65 76 65 6e wait-task @ even
18b0: 74 3e 20 6f 3e 0a 09 45 4c 53 45 20 20 74 68 72 t> o>..ELSE thr
18c0: 6f 77 20 20 54 48 45 4e 0a 20 20 20 20 54 48 45 ow THEN. THE
18d0: 4e 20 3b 20 49 53 20 3e 74 68 72 6f 77 0a 0a 61 N ; IS >throw..a
18e0: 6c 73 6f 20 7d 73 63 6f 70 65 0a 0a 3a 20 62 6c lso }scope..: bl
18f0: 6f 63 6b 73 69 7a 65 21 20 28 20 6e 20 2d 2d 20 ocksize! ( n --
1900: 29 20 20 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d ) max-block# um
1910: 69 6e 20 64 75 70 20 75 6c 69 74 2c 20 73 65 74 in dup ulit, set
1920: 2d 62 6c 6f 63 6b 73 69 7a 65 0a 20 20 20 20 31 -blocksize. 1
1930: 20 73 77 61 70 20 6c 73 68 69 66 74 20 6e 65 74 swap lshift net
1940: 32 6f 3a 62 6c 6f 63 6b 73 69 7a 65 73 21 20 3b 2o:blocksizes! ;
1950: 0a 3a 20 62 6c 6f 63 6b 61 6c 69 67 6e 21 20 28 .: blockalign! (
1960: 20 6e 20 2d 2d 20 29 20 6d 61 78 2d 62 6c 6f 63 n -- ) max-bloc
1970: 6b 23 20 75 6d 69 6e 20 64 75 70 20 75 6c 69 74 k# umin dup ulit
1980: 2c 20 73 65 74 2d 62 6c 6f 63 6b 61 6c 69 67 6e , set-blockalign
1990: 0a 20 20 20 20 31 20 73 77 61 70 20 6c 73 68 69 . 1 swap lshi
19a0: 66 74 20 62 6c 6f 63 6b 61 6c 69 67 6e 20 21 20 ft blockalign !
19b0: 3b 0a 0a 3a 20 6f 70 65 6e 2d 73 69 7a 65 64 2d ;..: open-sized-
19c0: 66 69 6c 65 20 28 20 61 64 64 72 20 75 20 6d 6f file ( addr u mo
19d0: 64 65 20 2d 2d 29 0a 20 20 20 20 6f 70 65 6e 2d de --). open-
19e0: 66 69 6c 65 20 67 65 74 2d 73 69 7a 65 20 3b 0a file get-size ;.
19f0: 3a 20 6f 70 65 6e 2d 74 72 61 63 6b 65 64 2d 66 : open-tracked-f
1a00: 69 6c 65 20 28 20 61 64 64 72 20 75 20 6d 6f 64 ile ( addr u mod
1a10: 65 20 2d 2d 29 0a 20 20 20 20 6f 70 65 6e 2d 73 e --). open-s
1a20: 69 7a 65 64 2d 66 69 6c 65 20 67 65 74 2d 73 74 ized-file get-st
1a30: 61 74 20 3b 0a 0a 3a 20 6e 32 6f 3e 66 69 6c 65 at ;..: n2o>file
1a40: 20 28 20 78 74 20 2d 2d 20 29 0a 20 20 20 20 66 ( xt -- ). f
1a50: 69 6c 65 2d 72 65 67 23 20 40 20 75 6c 69 74 2c ile-reg# @ ulit,
1a60: 20 66 69 6c 65 2d 69 64 20 20 63 61 74 63 68 20 file-id catch
1a70: 20 65 6e 64 2d 77 69 74 68 0a 20 20 20 20 74 68 end-with. th
1a80: 72 6f 77 20 20 31 20 66 69 6c 65 2d 72 65 67 23 row 1 file-reg#
1a90: 20 2b 21 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 +! ;..in net2o
1aa0: 3a 20 63 6f 70 79 20 28 20 61 64 64 72 73 72 63 : copy ( addrsrc
1ab0: 20 75 73 20 61 64 64 72 64 65 73 74 20 75 64 20 us addrdest ud
1ac0: 2d 2d 20 29 0a 20 20 20 20 5b 3a 20 66 69 6c 65 -- ). [: file
1ad0: 28 20 2e 22 20 63 6f 70 79 20 27 22 20 32 6f 76 ( ." copy '" 2ov
1ae0: 65 72 20 66 6f 72 74 68 3a 74 79 70 65 20 2e 22 er forth:type ."
1af0: 20 27 20 2d 3e 20 27 22 20 32 64 75 70 20 66 6f ' -> '" 2dup fo
1b00: 72 74 68 3a 74 79 70 65 0a 20 20 20 20 20 20 2e rth:type. .
1b10: 22 20 27 22 20 66 6f 72 74 68 3a 63 72 20 29 0a " '" forth:cr ).
1b20: 20 20 20 20 20 20 32 73 77 61 70 20 24 2c 20 72 2swap $, r
1b30: 2f 6f 20 75 6c 69 74 2c 20 6f 70 65 6e 2d 74 72 /o ulit, open-tr
1b40: 61 63 6b 65 64 2d 66 69 6c 65 0a 20 20 20 20 20 acked-file.
1b50: 20 66 69 6c 65 2d 72 65 67 23 20 40 20 73 61 76 file-reg# @ sav
1b60: 65 2d 74 6f 20 3b 5d 20 6e 32 6f 3e 66 69 6c 65 e-to ;] n2o>file
1b70: 0a 20 20 20 20 31 20 66 69 6c 65 2d 63 6f 75 6e . 1 file-coun
1b80: 74 20 2b 21 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f t +! ;..in net2o
1b90: 20 3a 20 63 6f 70 79 23 20 28 20 61 64 64 72 68 : copy# ( addrh
1ba0: 61 73 68 20 75 20 2d 2d 20 29 0a 20 20 20 20 5b ash u -- ). [
1bb0: 3a 20 66 69 6c 65 28 20 2e 22 20 63 6f 70 79 23 : file( ." copy#
1bc0: 20 22 20 32 64 75 70 20 38 35 74 79 70 65 20 66 " 2dup 85type f
1bd0: 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 20 20 orth:cr ).
1be0: 31 20 75 6c 69 74 2c 20 66 69 6c 65 2d 74 79 70 1 ulit, file-typ
1bf0: 65 20 32 64 75 70 20 24 2c 20 72 2f 6f 20 75 6c e 2dup $, r/o ul
1c00: 69 74 2c 20 6f 70 65 6e 2d 74 72 61 63 6b 65 64 it, open-tracked
1c10: 2d 66 69 6c 65 0a 20 20 20 20 20 20 66 69 6c 65 -file. file
1c20: 2d 72 65 67 23 20 40 20 73 61 76 65 2d 74 6f 23 -reg# @ save-to#
1c30: 20 3b 5d 20 6e 32 6f 3e 66 69 6c 65 0a 20 20 20 ;] n2o>file.
1c40: 20 31 20 66 69 6c 65 2d 63 6f 75 6e 74 20 2b 21 1 file-count +!
1c50: 20 3b 0a 0a 3a 20 73 65 65 6b 21 20 28 20 70 6f ;..: seek! ( po
1c60: 73 20 69 64 20 2d 2d 20 29 20 3e 72 20 64 3e 36 s id -- ) >r d>6
1c70: 34 0a 20 20 20 20 36 34 64 75 70 20 72 40 20 73 4. 64dup r@ s
1c80: 74 61 74 65 2d 61 64 64 72 20 3e 6f 20 74 6f 20 tate-addr >o to
1c90: 66 73 2d 73 65 65 6b 20 6f 3e 0a 20 20 20 20 72 fs-seek o>. r
1ca0: 3e 20 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 20 > ulit, file-id
1cb0: 6c 69 74 2c 20 73 65 74 2d 73 65 65 6b 20 65 6e lit, set-seek en
1cc0: 64 2d 77 69 74 68 20 3b 0a 0a 3a 20 6c 69 6d 69 d-with ;..: limi
1cd0: 74 21 20 28 20 70 6f 73 20 69 64 20 2d 2d 20 29 t! ( pos id -- )
1ce0: 20 3e 72 20 64 3e 36 34 0a 20 20 20 20 72 40 20 >r d>64. r@
1cf0: 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 20 36 34 ulit, file-id 64
1d00: 64 75 70 20 6c 69 74 2c 20 73 65 74 2d 6c 69 6d dup lit, set-lim
1d10: 69 74 20 65 6e 64 2d 77 69 74 68 0a 20 20 20 20 it end-with.
1d20: 72 3e 20 69 6e 69 74 2d 6c 69 6d 69 74 21 20 3b r> init-limit! ;
1d30: 0a 0a 70 72 65 76 69 6f 75 73 0a 0a 5c 20 63 6c ..previous..\ cl
1d40: 69 65 6e 74 20 73 69 64 65 20 74 69 6d 69 6e 67 ient side timing
1d50: 0a 0a 3a 20 61 63 6b 2d 73 69 7a 65 20 28 20 2d ..: ack-size ( -
1d60: 2d 20 29 20 20 31 20 61 63 6b 73 20 2b 21 0a 20 - ) 1 acks +!.
1d70: 20 20 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 ack@ .recv-ti
1d80: 63 6b 20 36 34 40 20 36 34 64 75 70 20 6c 61 73 ck 64@ 64dup las
1d90: 74 62 2d 74 69 63 6b 73 20 36 34 21 40 20 36 34 tb-ticks 64!@ 64
1da0: 2d 20 6d 61 78 2d 64 74 69 63 6b 73 20 36 34 6d - max-dticks 64m
1db0: 61 78 21 20 3b 0a 3a 20 61 63 6b 2d 66 69 72 73 ax! ;.: ack-firs
1dc0: 74 20 28 20 2d 2d 20 29 0a 20 20 20 20 6c 61 73 t ( -- ). las
1dd0: 74 62 2d 74 69 63 6b 73 20 36 34 40 20 66 69 72 tb-ticks 64@ fir
1de0: 73 74 62 2d 74 69 63 6b 73 20 36 34 40 20 36 34 stb-ticks 64@ 64
1df0: 2d 20 64 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 - delta-ticks 64
1e00: 2b 21 0a 20 20 20 20 61 63 6b 40 20 2e 72 65 63 +!. ack@ .rec
1e10: 76 2d 74 69 63 6b 20 36 34 40 20 36 34 64 75 70 v-tick 64@ 64dup
1e20: 20 66 69 72 73 74 62 2d 74 69 63 6b 73 20 36 34 firstb-ticks 64
1e30: 21 20 20 36 34 64 75 70 20 6c 61 73 74 62 2d 74 ! 64dup lastb-t
1e40: 69 63 6b 73 20 36 34 21 0a 20 20 20 20 6c 61 73 icks 64!. las
1e50: 74 2d 72 74 69 63 6b 20 36 34 21 20 20 72 65 63 t-rtick 64! rec
1e60: 76 2d 61 64 64 72 20 36 34 40 20 6c 61 73 74 2d v-addr 64@ last-
1e70: 72 61 64 64 72 20 36 34 21 20 3b 0a 0a 3a 20 61 raddr 64! ;..: a
1e80: 63 6b 2d 74 69 6d 69 6e 67 20 28 20 6e 20 2d 2d ck-timing ( n --
1e90: 20 29 0a 20 20 20 20 62 32 62 2d 74 6f 67 67 6c ). b2b-toggl
1ea0: 65 23 20 61 6e 64 20 20 49 46 20 20 61 63 6b 2d e# and IF ack-
1eb0: 66 69 72 73 74 20 20 45 4c 53 45 20 20 61 63 6b first ELSE ack
1ec0: 2d 73 69 7a 65 20 20 54 48 45 4e 20 3b 0a 0a 61 -size THEN ;..a
1ed0: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 0a lso net2o-base..
1ee0: 3a 20 73 65 74 72 61 74 65 2d 6c 69 6d 69 74 20 : setrate-limit
1ef0: 28 20 72 61 74 65 20 2d 2d 20 72 61 74 65 27 20 ( rate -- rate'
1f00: 29 0a 20 20 20 20 5c 20 64 6f 20 6e 6f 74 20 63 ). \ do not c
1f10: 68 61 6e 67 65 20 72 65 71 75 65 73 74 65 64 20 hange requested
1f20: 72 61 74 65 20 62 79 20 6d 6f 72 65 20 74 68 61 rate by more tha
1f30: 6e 20 61 20 66 61 63 74 6f 72 20 32 0a 20 20 20 n a factor 2.
1f40: 20 6c 61 73 74 2d 72 61 74 65 20 36 34 40 0a 20 last-rate 64@.
1f50: 20 20 20 36 34 64 75 70 20 36 34 2d 30 3c 3e 20 64dup 64-0<>
1f60: 49 46 20 20 36 34 74 75 63 6b 20 36 34 2d 32 2a IF 64tuck 64-2*
1f70: 20 36 34 6d 69 6e 20 36 34 73 77 61 70 20 36 34 64min 64swap 64
1f80: 2d 32 2f 20 36 34 6d 61 78 20 20 45 4c 53 45 20 -2/ 64max ELSE
1f90: 20 36 34 64 72 6f 70 20 20 54 48 45 4e 0a 20 20 64drop THEN.
1fa0: 20 20 36 34 64 75 70 20 6c 61 73 74 2d 72 61 74 64dup last-rat
1fb0: 65 20 36 34 21 20 3b 0a 0a 3a 20 3e 72 61 74 65 e 64! ;..: >rate
1fc0: 20 28 20 2d 2d 20 29 20 20 64 65 6c 74 61 2d 74 ( -- ) delta-t
1fd0: 69 63 6b 73 20 36 34 40 20 36 34 2d 30 3d 20 61 icks 64@ 64-0= a
1fe0: 63 6b 73 20 40 20 30 3d 20 6f 72 20 3f 45 58 49 cks @ 0= or ?EXI
1ff0: 54 0a 20 20 20 20 61 63 6b 40 20 2e 72 65 63 76 T. ack@ .recv
2000: 2d 74 69 63 6b 20 36 34 40 20 36 34 64 75 70 20 -tick 64@ 64dup
2010: 62 75 72 73 74 2d 74 69 63 6b 73 20 36 34 21 40 burst-ticks 64!@
2020: 20 36 34 64 75 70 20 36 34 2d 30 3c 3e 20 49 46 64dup 64-0<> IF
2030: 0a 09 36 34 2d 20 6d 61 78 2d 64 74 69 63 6b 73 ..64- max-dticks
2040: 20 36 34 40 20 74 69 63 6b 2d 69 6e 69 74 20 31 64@ tick-init 1
2050: 2b 20 6e 3e 36 34 20 36 34 2a 20 36 34 6d 61 78 + n>64 64* 64max
2060: 20 36 34 3e 72 0a 09 64 65 6c 74 61 2d 74 69 63 64>r..delta-tic
2070: 6b 73 20 36 34 40 20 74 69 63 6b 2d 69 6e 69 74 ks 64@ tick-init
2080: 20 31 2b 20 61 63 6b 73 20 40 20 36 34 2a 2f 20 1+ acks @ 64*/
2090: 73 65 74 72 61 74 65 2d 6c 69 6d 69 74 0a 09 6c setrate-limit..l
20a0: 69 74 2c 20 36 34 72 3e 20 6c 69 74 2c 20 73 65 it, 64r> lit, se
20b0: 74 2d 72 61 74 65 0a 20 20 20 20 45 4c 53 45 0a t-rate. ELSE.
20c0: 09 36 34 64 72 6f 70 20 36 34 64 72 6f 70 0a 20 .64drop 64drop.
20d0: 20 20 20 54 48 45 4e 0a 20 20 20 20 64 65 6c 74 THEN. delt
20e0: 61 2d 74 69 63 6b 73 20 36 34 6f 66 66 20 20 6d a-ticks 64off m
20f0: 61 78 2d 64 74 69 63 6b 73 20 36 34 6f 66 66 20 ax-dticks 64off
2100: 20 61 63 6b 73 20 6f 66 66 20 3b 0a 0a 69 6e 20 acks off ;..in
2110: 6e 65 74 32 6f 20 3a 20 61 63 6b 74 69 6d 65 20 net2o : acktime
2120: 28 20 2d 2d 20 29 0a 20 20 20 20 72 65 63 76 2d ( -- ). recv-
2130: 61 64 64 72 20 36 34 40 20 61 63 6b 40 20 2e 72 addr 64@ ack@ .r
2140: 65 63 76 2d 74 69 63 6b 20 36 34 40 20 61 63 6b ecv-tick 64@ ack
2150: 40 20 2e 74 69 6d 65 2d 6f 66 66 73 65 74 20 36 @ .time-offset 6
2160: 34 40 20 36 34 2d 0a 20 20 20 20 74 69 6d 69 6e 4@ 64-. timin
2170: 67 28 20 36 34 3e 72 20 36 34 64 75 70 20 78 36 g( 64>r 64dup x6
2180: 34 2e 20 36 34 72 3e 20 36 34 64 75 70 20 75 36 4. 64r> 64dup u6
2190: 34 2e 20 2e 22 20 61 63 6b 74 69 6d 65 22 20 66 4. ." acktime" f
21a0: 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 6c 69 orth:cr ). li
21b0: 74 2c 20 6c 69 74 2c 20 61 63 6b 2d 61 64 64 72 t, lit, ack-addr
21c0: 74 69 6d 65 20 3b 0a 69 6e 20 6e 65 74 32 6f 20 time ;.in net2o
21d0: 3a 20 62 32 62 74 69 6d 65 20 28 20 2d 2d 20 29 : b2btime ( -- )
21e0: 0a 20 20 20 20 6c 61 73 74 2d 72 61 64 64 72 20 . last-raddr
21f0: 36 34 40 20 6c 61 73 74 2d 72 74 69 63 6b 20 36 64@ last-rtick 6
2200: 34 40 20 36 34 64 75 70 20 36 34 2d 30 3d 0a 20 4@ 64dup 64-0=.
2210: 20 20 20 49 46 20 20 36 34 64 72 6f 70 20 36 34 IF 64drop 64
2220: 64 72 6f 70 0a 20 20 20 20 45 4c 53 45 20 20 61 drop. ELSE a
2230: 63 6b 40 20 2e 74 69 6d 65 2d 6f 66 66 73 65 74 ck@ .time-offset
2240: 20 36 34 40 20 36 34 2d 20 6c 69 74 2c 20 6c 69 64@ 64- lit, li
2250: 74 2c 20 61 63 6b 2d 62 32 62 74 69 6d 65 20 20 t, ack-b2btime
2260: 54 48 45 4e 20 3b 0a 0a 5c 20 61 63 6b 20 62 69 THEN ;..\ ack bi
2270: 74 73 2c 20 6e 65 77 20 63 6f 64 65 0a 0a 69 6e ts, new code..in
2280: 20 6e 65 74 32 6f 20 3a 20 61 63 6b 2d 72 65 73 net2o : ack-res
2290: 65 6e 64 23 20 28 20 2d 2d 20 29 20 20 64 61 74 end# ( -- ) dat
22a0: 61 2d 72 6d 61 70 20 7b 20 6d 61 70 20 7d 0a 20 a-rmap { map }.
22b0: 20 20 20 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 map .mapc:dat
22c0: 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 40 a-resend#-buf $@
22d0: 0a 20 20 20 20 62 6f 75 6e 64 73 20 3f 44 4f 0a . bounds ?DO.
22e0: 09 49 20 24 40 20 6f 76 65 72 20 40 20 3e 72 20 .I $@ over @ >r
22f0: 63 65 6c 6c 20 2f 73 74 72 69 6e 67 20 24 46 46 cell /string $FF
2300: 20 2d 73 6b 69 70 0a 09 64 75 70 20 3e 72 20 24 -skip..dup >r $
2310: 46 46 20 73 6b 69 70 20 64 75 70 20 49 46 0a 09 FF skip dup IF..
2320: 20 20 20 20 72 3e 20 6f 76 65 72 20 2d 20 72 3e r> over - r>
2330: 20 2b 20 75 6c 69 74 2c 20 24 2c 20 61 63 6b 2d + ulit, $, ack-
2340: 72 65 73 65 6e 64 23 0a 09 45 4c 53 45 20 20 32 resend#..ELSE 2
2350: 64 72 6f 70 20 72 64 72 6f 70 20 72 64 72 6f 70 drop rdrop rdrop
2360: 20 20 54 48 45 4e 0a 20 20 20 20 63 65 6c 6c 20 THEN. cell
2370: 2b 4c 4f 4f 50 0a 20 20 20 20 6d 61 70 20 2e 6d +LOOP. map .m
2380: 61 70 63 3a 64 61 74 61 2d 72 65 73 65 6e 64 23 apc:data-resend#
2390: 2d 62 75 66 20 24 5b 5d 6f 66 66 20 3b 0a 0a 5c -buf $[]off ;..\
23a0: 20 63 6c 69 65 6e 74 20 73 69 64 65 20 61 63 6b client side ack
23b0: 6e 6f 77 6c 65 64 67 65 0a 0a 69 6e 20 6e 65 74 nowledge..in net
23c0: 32 6f 20 3a 20 67 65 6e 61 63 6b 20 28 20 2d 2d 2o : genack ( --
23d0: 20 29 0a 20 20 20 20 6e 65 74 32 6f 3a 61 63 6b ). net2o:ack
23e0: 2d 72 65 73 65 6e 64 23 20 20 6e 65 74 32 6f 3a -resend# net2o:
23f0: 62 32 62 74 69 6d 65 20 20 6e 65 74 32 6f 3a 61 b2btime net2o:a
2400: 63 6b 74 69 6d 65 20 20 3e 72 61 74 65 20 3b 0a cktime >rate ;.
2410: 0a 3a 20 21 72 64 61 74 61 2d 74 61 69 6c 20 28 .: !rdata-tail (
2420: 20 2d 2d 20 29 0a 20 20 20 20 64 61 74 61 2d 72 -- ). data-r
2430: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 20 20 map with mapc.
2440: 20 20 64 61 74 61 2d 61 63 6b 23 20 40 20 62 79 data-ack# @ by
2450: 74 65 73 3e 61 64 64 72 0a 20 20 20 20 64 65 73 tes>addr. des
2460: 74 2d 68 65 61 64 20 75 6d 69 6e 20 64 65 73 74 t-head umin dest
2470: 2d 74 6f 70 20 75 6d 69 6e 0a 20 20 20 20 64 65 -top umin. de
2480: 73 74 2d 74 61 69 6c 20 75 6d 61 78 20 64 75 70 st-tail umax dup
2490: 20 61 64 64 72 20 64 65 73 74 2d 74 61 69 6c 20 addr dest-tail
24a0: 21 40 20 65 6e 64 77 69 74 68 0a 20 20 20 20 61 !@ endwith. a
24b0: 63 6b 28 20 2e 22 20 74 61 69 6c 3a 20 22 20 6f ck( ." tail: " o
24c0: 76 65 72 20 68 65 78 2e 20 64 75 70 20 68 65 78 ver hex. dup hex
24d0: 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 . forth:cr ).
24e0: 20 75 3e 20 49 46 20 20 6e 65 74 32 6f 3a 73 61 u> IF net2o:sa
24f0: 76 65 26 20 36 34 23 30 20 62 75 72 73 74 2d 74 ve& 64#0 burst-t
2500: 69 63 6b 73 20 36 34 21 20 20 54 48 45 4e 20 3b icks 64! THEN ;
2510: 0a 0a 24 32 30 20 56 61 6c 75 65 20 6d 61 78 2d ..$20 Value max-
2520: 72 65 73 65 6e 64 23 0a 0a 3a 20 70 72 65 70 61 resend#..: prepa
2530: 72 65 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 re-resend ( flag
2540: 20 2d 2d 20 65 6e 64 20 73 74 61 72 74 20 61 63 -- end start ac
2550: 6b 73 20 61 63 6b 6d 20 74 61 69 62 69 74 73 20 ks ackm taibits
2560: 62 61 63 6b 62 69 74 73 20 68 65 61 64 62 69 74 backbits headbit
2570: 73 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 s ). data-rma
2580: 70 20 77 69 74 68 20 6d 61 70 63 0a 09 61 63 6b p with mapc..ack
2590: 28 20 2e 22 20 68 65 61 64 2f 74 61 69 6c 3a 20 ( ." head/tail:
25a0: 22 20 64 75 70 20 66 6f 72 74 68 3a 2e 20 64 65 " dup forth:. de
25b0: 73 74 2d 68 65 61 64 20 68 65 78 2e 20 64 65 73 st-head hex. des
25c0: 74 2d 74 61 69 6c 20 68 65 78 2e 20 66 6f 72 74 t-tail hex. fort
25d0: 68 3a 63 72 20 29 0a 09 49 46 20 20 20 20 64 65 h:cr )..IF de
25e0: 73 74 2d 68 65 61 64 20 61 64 64 72 3e 62 79 74 st-head addr>byt
25f0: 65 73 20 2d 34 20 61 6e 64 0a 09 45 4c 53 45 20 es -4 and..ELSE
2600: 20 64 65 73 74 2d 68 65 61 64 20 31 2d 20 61 64 dest-head 1- ad
2610: 64 72 3e 62 79 74 65 73 20 31 2b 20 20 54 48 45 dr>bytes 1+ THE
2620: 4e 20 30 20 6d 61 78 0a 09 64 65 73 74 2d 74 61 N 0 max..dest-ta
2630: 69 6c 20 61 64 64 72 3e 62 79 74 65 73 20 2d 34 il addr>bytes -4
2640: 20 61 6e 64 20 5c 20 64 75 70 20 64 61 74 61 2d and \ dup data-
2650: 61 63 6b 23 20 75 6d 69 6e 21 0a 09 64 61 74 61 ack# umin!..data
2660: 2d 61 63 6b 62 69 74 73 20 40 20 64 65 73 74 2d -ackbits @ dest-
2670: 73 69 7a 65 20 61 64 64 72 3e 62 79 74 65 73 20 size addr>bytes
2680: 31 2d 0a 09 64 65 73 74 2d 74 61 69 6c 20 61 64 1-..dest-tail ad
2690: 64 72 3e 62 69 74 73 0a 09 64 65 73 74 2d 62 61 dr>bits..dest-ba
26a0: 63 6b 20 64 65 73 74 2d 73 69 7a 65 20 2b 20 61 ck dest-size + a
26b0: 64 64 72 3e 62 69 74 73 0a 09 64 65 73 74 2d 68 ddr>bits..dest-h
26c0: 65 61 64 20 61 64 64 72 3e 62 69 74 73 0a 20 20 ead addr>bits.
26d0: 20 20 65 6e 64 77 69 74 68 20 3b 0a 0a 69 6e 20 endwith ;..in
26e0: 6e 65 74 32 6f 20 3a 20 64 6f 2d 72 65 73 65 6e net2o : do-resen
26f0: 64 20 28 20 66 6c 61 67 20 2d 2d 20 29 0a 20 20 d ( flag -- ).
2700: 20 20 6f 20 30 3d 20 49 46 20 20 64 72 6f 70 20 o 0= IF drop
2710: 45 58 49 54 20 20 54 48 45 4e 20 20 64 61 74 61 EXIT THEN data
2720: 2d 72 6d 61 70 20 30 3d 20 49 46 20 20 64 72 6f -rmap 0= IF dro
2730: 70 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 p EXIT THEN.
2740: 20 30 20 73 77 61 70 20 20 70 72 65 70 61 72 65 0 swap prepare
2750: 2d 72 65 73 65 6e 64 20 7b 20 61 63 6b 73 20 61 -resend { acks a
2760: 63 6b 6d 20 74 61 69 6c 62 69 74 73 20 62 61 63 ckm tailbits bac
2770: 6b 62 69 74 73 20 68 65 61 64 62 69 74 73 20 7d kbits headbits }
2780: 0a 20 20 20 20 61 63 6b 28 20 2e 22 20 61 63 6b . ack( ." ack
2790: 20 6c 6f 6f 70 3a 20 22 20 6f 76 65 72 20 68 65 loop: " over he
27a0: 78 2e 20 64 75 70 20 68 65 78 2e 20 66 6f 72 74 x. dup hex. fort
27b0: 68 3a 63 72 20 29 0a 20 20 20 20 2b 44 4f 0a 09 h:cr ). +DO..
27c0: 61 63 6b 73 20 49 20 61 63 6b 6d 20 61 6e 64 20 acks I ackm and
27d0: 2b 20 6c 40 0a 09 61 63 6b 73 28 20 2e 22 20 61 + l@..acks( ." a
27e0: 63 6b 73 5b 22 20 49 20 62 79 74 65 73 3e 62 69 cks[" I bytes>bi
27f0: 74 73 20 68 65 78 2e 0a 09 49 20 64 61 74 61 2d ts hex...I data-
2800: 72 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 2d rmap .mapc:data-
2810: 61 63 6b 23 20 40 20 3d 20 49 46 20 27 2a 27 20 ack# @ = IF '*'
2820: 65 6d 69 74 20 54 48 45 4e 0a 09 2e 22 20 5d 3d emit THEN..." ]=
2830: 22 20 64 75 70 20 68 65 78 2e 20 62 61 63 6b 62 " dup hex. backb
2840: 69 74 73 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 its hex. forth:c
2850: 72 20 29 0a 09 49 20 62 79 74 65 73 3e 62 69 74 r )..I bytes>bit
2860: 73 20 74 61 69 6c 62 69 74 73 20 75 3c 20 49 46 s tailbits u< IF
2870: 0a 09 20 20 20 20 2d 31 20 74 61 69 6c 62 69 74 .. -1 tailbit
2880: 73 20 49 20 62 79 74 65 73 3e 62 69 74 73 20 2d s I bytes>bits -
2890: 20 6c 73 68 69 66 74 20 69 6e 76 65 72 74 20 24 lshift invert $
28a0: 46 46 46 46 46 46 46 46 20 61 6e 64 20 6f 72 0a FFFFFFFF and or.
28b0: 09 54 48 45 4e 20 20 24 46 46 46 46 46 46 46 46 .THEN $FFFFFFFF
28c0: 20 78 6f 72 0a 09 49 20 62 79 74 65 73 3e 62 69 xor..I bytes>bi
28d0: 74 73 20 24 32 30 20 2b 20 68 65 61 64 62 69 74 ts $20 + headbit
28e0: 73 20 75 3e 20 49 46 0a 09 20 20 20 20 24 46 46 s u> IF.. $FF
28f0: 46 46 46 46 46 46 20 49 20 62 79 74 65 73 3e 62 FFFFFF I bytes>b
2900: 69 74 73 20 24 32 30 20 2b 20 68 65 61 64 62 69 its $20 + headbi
2910: 74 73 20 2d 20 72 73 68 69 66 74 20 61 6e 64 0a ts - rshift and.
2920: 09 54 48 45 4e 0a 09 64 75 70 20 49 46 0a 09 20 .THEN..dup IF..
2930: 20 20 20 72 65 73 65 6e 64 28 20 2e 22 20 72 65 resend( ." re
2940: 73 65 6e 64 3a 20 22 20 64 75 70 20 68 65 78 2e send: " dup hex.
2950: 20 6f 76 65 72 20 68 65 78 2e 20 66 6f 72 74 68 over hex. forth
2960: 3a 63 72 20 29 0a 09 20 20 20 20 49 20 61 63 6b :cr ).. I ack
2970: 6d 20 61 6e 64 20 62 79 74 65 73 3e 61 64 64 72 m and bytes>addr
2980: 20 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 data-rmap .mapc
2990: 3a 3e 6c 69 6e 65 61 72 0a 09 20 20 20 20 75 6c :>linear.. ul
29a0: 69 74 2c 20 75 6c 69 74 2c 20 72 65 73 65 6e 64 it, ulit, resend
29b0: 2d 6d 61 73 6b 20 20 31 2b 0a 09 45 4c 53 45 0a -mask 1+..ELSE.
29c0: 09 20 20 20 20 64 72 6f 70 20 64 75 70 20 30 3d . drop dup 0=
29d0: 20 49 46 20 5c 20 69 66 20 77 65 20 64 69 64 6e IF \ if we didn
29e0: 27 74 20 68 61 76 65 20 61 20 72 65 73 65 6e 64 't have a resend
29f0: 20 79 65 74 2c 20 69 6e 63 72 65 61 73 65 20 64 yet, increase d
2a00: 61 74 61 2d 61 63 6b 23 0a 09 09 49 20 34 20 2b ata-ack#...I 4 +
2a10: 20 62 79 74 65 73 3e 62 69 74 73 20 62 61 63 6b bytes>bits back
2a20: 62 69 74 73 20 75 3c 3d 20 49 46 20 5c 20 6e 6f bits u<= IF \ no
2a30: 20 62 61 63 6b 62 69 74 73 2c 20 70 6c 65 61 73 backbits, pleas
2a40: 65 0a 09 09 20 20 20 20 49 20 34 20 2b 20 64 61 e... I 4 + da
2a50: 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 61 ta-rmap .mapc:da
2a60: 74 61 2d 61 63 6b 23 20 75 6d 61 78 21 0a 09 09 ta-ack# umax!...
2a70: 54 48 45 4e 0a 09 20 20 20 20 54 48 45 4e 0a 09 THEN.. THEN..
2a80: 54 48 45 4e 0a 09 64 75 70 20 6d 61 78 2d 72 65 THEN..dup max-re
2a90: 73 65 6e 64 23 20 3e 3d 20 3f 4c 45 41 56 45 20 send# >= ?LEAVE
2aa0: 5c 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 78 \ no more than x
2ab0: 20 72 65 73 65 6e 64 73 0a 20 20 20 20 34 20 2b resends. 4 +
2ac0: 4c 4f 4f 50 20 20 64 72 6f 70 20 21 72 64 61 74 LOOP drop !rdat
2ad0: 61 2d 74 61 69 6c 20 3b 0a 0a 3a 20 64 6f 2d 65 a-tail ;..: do-e
2ae0: 78 70 65 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d xpect-reply ( --
2af0: 20 29 0a 20 20 20 20 63 6d 64 62 75 66 23 20 40 ). cmdbuf# @
2b00: 20 30 3e 20 49 46 20 5c 20 74 68 65 72 65 27 73 0> IF \ there's
2b10: 20 61 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 actuall somethi
2b20: 6e 67 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 ng in the buffer
2b30: 0a 09 72 65 70 6c 79 2d 69 6e 64 65 78 20 75 6c ..reply-index ul
2b40: 69 74 2c 20 6f 6b 3f 20 20 65 6e 64 2d 63 6d 64 it, ok? end-cmd
2b50: 0a 09 6e 65 74 32 6f 3a 65 78 70 65 63 74 2d 72 ..net2o:expect-r
2b60: 65 70 6c 79 20 20 6d 61 78 64 61 74 61 20 63 6f eply maxdata co
2b70: 64 65 2b 20 5c 20 64 6f 6e 27 74 20 72 65 75 73 de+ \ don't reus
2b80: 65 20 74 68 69 73 20 62 75 66 66 65 72 0a 20 20 e this buffer.
2b90: 20 20 54 48 45 4e 20 20 5b 27 5d 20 65 6e 64 2d THEN ['] end-
2ba0: 63 6d 64 20 49 53 20 65 78 70 65 63 74 2d 72 65 cmd IS expect-re
2bb0: 70 6c 79 3f 20 3b 0a 0a 3a 20 64 6f 2d 65 78 70 ply? ;..: do-exp
2bc0: 65 63 74 2b 73 6c 75 72 70 20 28 20 2d 2d 20 29 ect+slurp ( -- )
2bd0: 0a 20 20 20 20 63 6d 64 62 75 66 23 20 40 20 30 . cmdbuf# @ 0
2be0: 3e 20 49 46 20 5c 20 74 68 65 72 65 27 73 20 61 > IF \ there's a
2bf0: 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e 67 ctuall something
2c00: 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 09 in the buffer..
2c10: 73 6c 75 72 70 20 6e 65 78 74 2d 72 65 71 75 65 slurp next-reque
2c20: 73 74 20 66 69 6c 65 72 65 71 23 20 21 20 20 74 st filereq# ! t
2c30: 72 75 65 20 64 61 74 61 2d 72 6d 61 70 20 3e 6f rue data-rmap >o
2c40: 20 74 6f 20 6d 61 70 63 3a 64 65 73 74 2d 72 65 to mapc:dest-re
2c50: 71 20 6f 3e 0a 09 72 65 70 6c 79 2d 69 6e 64 65 q o>..reply-inde
2c60: 78 20 75 6c 69 74 2c 20 6f 6b 3f 20 20 65 6e 64 x ulit, ok? end
2c70: 2d 63 6d 64 0a 09 6e 65 74 32 6f 3a 65 78 70 65 -cmd..net2o:expe
2c80: 63 74 2d 72 65 70 6c 79 20 20 6d 61 78 64 61 74 ct-reply maxdat
2c90: 61 20 63 6f 64 65 2b 20 5c 20 64 6f 6e 27 74 20 a code+ \ don't
2ca0: 72 65 75 73 65 20 74 68 69 73 20 62 75 66 66 65 reuse this buffe
2cb0: 72 0a 20 20 20 20 54 48 45 4e 20 20 5b 27 5d 20 r. THEN [']
2cc0: 65 6e 64 2d 63 6d 64 20 49 53 20 65 78 70 65 63 end-cmd IS expec
2cd0: 74 2d 72 65 70 6c 79 3f 20 3b 0a 0a 3a 20 65 78 t-reply? ;..: ex
2ce0: 70 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 28 20 pect-reply-xt (
2cf0: 78 74 20 2d 2d 20 29 20 5c 20 63 6d 64 28 20 2e xt -- ) \ cmd( .
2d00: 22 20 65 78 70 65 63 74 20 72 65 70 6c 79 3a 22 " expect reply:"
2d10: 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 forth:cr ).
2d20: 5b 27 5d 20 64 6f 2d 65 78 70 65 63 74 2d 72 65 ['] do-expect-re
2d30: 70 6c 79 20 49 53 20 65 78 70 65 63 74 2d 72 65 ply IS expect-re
2d40: 70 6c 79 3f 0a 20 20 20 20 63 6d 64 2d 72 65 70 ply?. cmd-rep
2d50: 6c 79 2d 78 74 20 21 20 3b 0a 0a 3a 20 65 78 70 ly-xt ! ;..: exp
2d60: 65 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 29 ect-reply ( -- )
2d70: 0a 20 20 20 20 5b 27 5d 20 64 72 6f 70 20 65 78 . ['] drop ex
2d80: 70 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 3b 0a pect-reply-xt ;.
2d90: 0a 3a 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d .: expect+slurp-
2da0: 78 74 20 28 20 78 74 20 2d 2d 20 29 20 5c 20 63 xt ( xt -- ) \ c
2db0: 6d 64 28 20 2e 22 20 65 78 70 65 63 74 20 72 65 md( ." expect re
2dc0: 70 6c 79 3a 22 20 66 6f 72 74 68 3a 63 72 20 29 ply:" forth:cr )
2dd0: 0a 20 20 20 20 5b 27 5d 20 64 6f 2d 65 78 70 65 . ['] do-expe
2de0: 63 74 2b 73 6c 75 72 70 20 49 53 20 65 78 70 65 ct+slurp IS expe
2df0: 63 74 2d 72 65 70 6c 79 3f 0a 20 20 20 20 63 6d ct-reply?. cm
2e00: 64 2d 72 65 70 6c 79 2d 78 74 20 21 20 3b 0a 0a d-reply-xt ! ;..
2e10: 3a 20 65 78 70 65 63 74 2b 73 6c 75 72 70 20 28 : expect+slurp (
2e20: 20 2d 2d 20 29 0a 20 20 20 20 5b 27 5d 20 64 72 -- ). ['] dr
2e30: 6f 70 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d op expect+slurp-
2e40: 78 74 20 3b 0a 0a 55 56 61 6c 75 65 20 72 65 63 xt ;..UValue rec
2e50: 2d 61 63 6b 2d 70 6f 73 23 0a 0a 3a 20 73 65 71 -ack-pos#..: seq
2e60: 23 2c 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 6d #, ( -- ). cm
2e70: 64 62 75 66 23 20 40 20 31 20 3d 20 49 46 0a 09 dbuf# @ 1 = IF..
2e80: 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a data-rmap .mapc:
2e90: 72 65 63 2d 61 63 6b 23 20 75 6c 69 74 2c 20 73 rec-ack# ulit, s
2ea0: 65 71 23 0a 09 63 6d 64 62 75 66 23 20 40 20 74 eq#..cmdbuf# @ t
2eb0: 6f 20 72 65 63 2d 61 63 6b 2d 70 6f 73 23 0a 20 o rec-ack-pos#.
2ec0: 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 73 THEN ;..: res
2ed0: 65 6e 64 2d 61 6c 6c 20 28 20 2d 2d 20 29 0a 20 end-all ( -- ).
2ee0: 20 20 20 73 65 71 23 2c 0a 20 20 20 20 66 61 6c seq#,. fal
2ef0: 73 65 20 6e 65 74 32 6f 3a 64 6f 2d 72 65 73 65 se net2o:do-rese
2f00: 6e 64 0a 20 20 20 20 61 63 6b 40 20 2e 2b 74 69 nd. ack@ .+ti
2f10: 6d 65 6f 75 74 73 20 72 65 73 65 6e 64 2d 61 6c meouts resend-al
2f20: 6c 2d 74 6f 20 36 34 21 20 3b 0a 0a 30 20 56 61 l-to 64! ;..0 Va
2f30: 6c 75 65 20 72 65 71 75 65 73 74 2d 73 74 61 74 lue request-stat
2f40: 73 3f 0a 0a 3a 20 75 70 64 61 74 65 2d 72 74 64 s?..: update-rtd
2f50: 65 6c 61 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 elay ( -- ).
2f60: 74 69 63 6b 73 20 6c 69 74 2c 20 70 75 73 68 2d ticks lit, push-
2f70: 6c 69 74 20 70 75 73 68 27 20 73 65 74 2d 72 74 lit push' set-rt
2f80: 64 65 6c 61 79 20 3b 0a 0a 3a 20 64 61 74 61 2d delay ;..: data-
2f90: 65 6e 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 end? ( -- flag )
2fa0: 0a 20 20 20 20 30 20 64 61 74 61 2d 72 6d 61 70 . 0 data-rmap
2fb0: 20 2e 6d 61 70 63 3a 64 65 73 74 2d 65 6e 64 20 .mapc:dest-end
2fc0: 21 40 20 3b 0a 0a 3a 20 65 78 70 65 63 74 65 64 !@ ;..: expected
2fd0: 40 20 28 20 2d 2d 20 68 65 61 64 20 74 6f 70 20 @ ( -- head top
2fe0: 29 0a 20 20 20 20 6f 20 49 46 20 20 64 61 74 61 ). o IF data
2ff0: 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a -rmap with mapc.
3000: 09 6f 20 49 46 20 20 64 65 73 74 2d 74 61 69 6c .o IF dest-tail
3010: 20 64 65 73 74 2d 74 6f 70 0a 09 20 20 20 20 6d dest-top.. m
3020: 73 67 28 20 2e 22 20 65 78 70 65 63 74 65 64 3a sg( ." expected:
3030: 20 22 20 6f 76 65 72 20 68 65 78 2e 20 64 75 70 " over hex. dup
3040: 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 hex. forth:cr )
3050: 0a 09 45 4c 53 45 20 20 23 30 2e 20 6d 73 67 28 ..ELSE #0. msg(
3060: 20 2e 22 20 65 78 70 65 63 74 65 64 3a 20 6e 6f ." expected: no
3070: 20 64 61 74 61 2d 72 6d 61 70 22 20 66 6f 72 74 data-rmap" fort
3080: 68 3a 63 72 20 29 20 20 54 48 45 4e 20 65 6e 64 h:cr ) THEN end
3090: 77 69 74 68 0a 20 20 20 20 45 4c 53 45 20 20 23 with. ELSE #
30a0: 30 2e 20 6d 73 67 28 20 2e 22 20 65 78 70 65 63 0. msg( ." expec
30b0: 74 65 64 3a 20 6e 6f 20 6f 62 6a 65 63 74 22 20 ted: no object"
30c0: 66 6f 72 74 68 3a 63 72 20 29 20 20 54 48 45 4e forth:cr ) THEN
30d0: 20 20 3b 0a 0a 3a 20 72 65 77 69 6e 64 2d 74 72 ;..: rewind-tr
30e0: 61 6e 73 66 65 72 20 28 20 2d 2d 20 66 6c 61 67 ansfer ( -- flag
30f0: 20 29 0a 20 20 20 20 64 61 74 61 2d 65 6e 64 3f ). data-end?
3100: 20 49 46 20 20 66 69 6c 65 72 65 71 23 20 40 20 IF filereq# @
3110: 6e 65 74 32 6f 3a 72 65 71 75 65 73 74 2d 64 6f net2o:request-do
3120: 6e 65 20 20 66 61 6c 73 65 0a 09 64 61 74 61 2d ne false..data-
3130: 72 6d 61 70 20 3e 6f 20 64 75 70 20 74 6f 20 6d rmap >o dup to m
3140: 61 70 63 3a 64 65 73 74 2d 72 65 71 20 6f 3e 0a apc:dest-req o>.
3150: 20 20 20 20 45 4c 53 45 20 20 64 61 74 61 2d 72 ELSE data-r
3160: 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 72 map .mapc:dest-r
3170: 65 71 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 eq THEN ;..: re
3180: 71 75 65 73 74 2d 73 74 61 74 73 20 20 20 66 6f quest-stats fo
3190: 72 74 68 3a 74 72 75 65 20 74 6f 20 72 65 71 75 rth:true to requ
31a0: 65 73 74 2d 73 74 61 74 73 3f 20 20 61 63 6b 20 est-stats? ack
31b0: 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 65 6e 64 track-timing end
31c0: 2d 77 69 74 68 20 3b 0a 0a 3a 20 65 78 70 65 63 -with ;..: expec
31d0: 74 65 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 ted? ( -- flag )
31e0: 0a 20 20 20 20 65 78 70 65 63 74 65 64 40 20 75 . expected@ u
31f0: 3e 3d 20 49 46 0a 09 65 78 70 65 63 74 2d 72 65 >= IF..expect-re
3200: 70 6c 79 0a 09 6d 73 67 28 20 2e 22 20 63 68 65 ply..msg( ." che
3210: 63 6b 3a 20 22 20 64 61 74 61 2d 72 6d 61 70 20 ck: " data-rmap
3220: 77 69 74 68 20 6d 61 70 63 0a 09 64 65 73 74 2d with mapc..dest-
3230: 62 61 63 6b 20 68 65 78 2e 20 64 65 73 74 2d 74 back hex. dest-t
3240: 61 69 6c 20 68 65 78 2e 20 64 65 73 74 2d 68 65 ail hex. dest-he
3250: 61 64 20 68 65 78 2e 0a 09 64 61 74 61 2d 61 63 ad hex...data-ac
3260: 6b 62 69 74 73 20 40 20 64 61 74 61 2d 61 63 6b kbits @ data-ack
3270: 23 20 40 20 64 75 70 20 68 65 78 2e 20 2b 20 6c # @ dup hex. + l
3280: 40 20 68 65 78 2e 0a 09 65 6e 64 77 69 74 68 0a @ hex...endwith.
3290: 09 66 6f 72 74 68 3a 63 72 20 2e 22 20 42 6c 6f .forth:cr ." Blo
32a0: 63 6b 20 74 72 61 6e 73 66 65 72 20 64 6f 6e 65 ck transfer done
32b0: 3a 20 22 20 65 78 70 65 63 74 65 64 40 20 68 65 : " expected@ he
32c0: 78 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 x. hex. forth:cr
32d0: 20 29 0a 09 73 65 71 23 2c 0a 09 6e 65 74 32 6f )..seq#,..net2o
32e0: 3a 73 61 76 65 26 64 6f 6e 65 20 20 6e 65 74 32 :save&done net2
32f0: 6f 3a 61 63 6b 2d 72 65 73 65 6e 64 23 20 20 72 o:ack-resend# r
3300: 65 77 69 6e 64 20 20 72 65 77 69 6e 64 2d 74 72 ewind rewind-tr
3310: 61 6e 73 66 65 72 0a 09 36 34 23 30 20 62 75 72 ansfer..64#0 bur
3320: 73 74 2d 74 69 63 6b 73 20 36 34 21 0a 20 20 20 st-ticks 64!.
3330: 20 45 4c 53 45 20 20 66 61 6c 73 65 20 20 54 48 ELSE false TH
3340: 45 4e 20 3b 0a 0a 63 65 6c 6c 20 38 20 3d 20 5b EN ;..cell 8 = [
3350: 49 46 5d 20 36 20 5b 45 4c 53 45 5d 20 35 20 5b IF] 6 [ELSE] 5 [
3360: 54 48 45 4e 5d 20 43 6f 6e 73 74 61 6e 74 20 63 THEN] Constant c
3370: 65 6c 6c 3e 3e 0a 0a 43 72 65 61 74 65 20 6e 6f ell>>..Create no
3380: 2d 72 65 73 65 6e 64 23 20 62 75 72 73 74 73 23 -resend# bursts#
3390: 20 34 20 2a 20 30 20 5b 44 4f 5d 20 2d 31 20 63 4 * 0 [DO] -1 c
33a0: 2c 20 5b 4c 4f 4f 50 5d 0a 0a 73 63 6f 70 65 7b , [LOOP]..scope{
33b0: 20 6d 61 70 63 0a 0a 3a 20 2b 72 65 73 65 6e 64 mapc..: +resend
33c0: 23 20 28 20 62 69 74 20 2d 2d 20 29 20 3e 72 0a # ( bit -- ) >r.
33d0: 20 20 20 20 64 65 73 74 2d 61 64 64 72 20 36 34 dest-addr 64
33e0: 40 20 36 34 3e 6e 20 5b 20 6d 69 6e 2d 73 69 7a @ 64>n [ min-siz
33f0: 65 20 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 e 1- ]L and.
3400: 72 40 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a r@ [ bursts# 4 *
3410: 20 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 72 1- ]L and. r
3420: 3e 20 5b 20 62 75 72 73 74 73 23 20 2d 34 20 2a > [ bursts# -4 *
3430: 20 5d 4c 20 61 6e 64 20 5c 20 6f 6e 65 20 62 6c ]L and \ one bl
3440: 6f 63 6b 20 70 65 72 20 62 75 72 73 74 0a 20 20 ock per burst.
3450: 20 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 data-resend#-b
3460: 75 66 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09 64 uf $[]# 0 ?DO..d
3470: 75 70 20 49 20 64 61 74 61 2d 72 65 73 65 6e 64 up I data-resend
3480: 23 2d 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 #-buf $[]@ drop
3490: 40 20 3d 20 49 46 0a 09 20 20 20 20 64 72 6f 70 @ = IF.. drop
34a0: 20 49 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d I data-resend#-
34b0: 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 buf $[]@ drop ce
34c0: 6c 6c 2b 20 2b 20 63 21 0a 09 20 20 20 20 55 4e ll+ + c!.. UN
34d0: 4c 4f 4f 50 20 20 45 58 49 54 20 20 54 48 45 4e LOOP EXIT THEN
34e0: 0a 20 20 20 20 4c 4f 4f 50 0a 20 20 20 20 64 61 . LOOP. da
34f0: 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 ta-resend#-buf $
3500: 5b 5d 23 20 7b 20 77 5e 20 62 75 72 73 74 62 6c []# { w^ burstbl
3510: 6f 63 6b 20 6e 20 7d 0a 20 20 20 20 62 75 72 73 ock n }. burs
3520: 74 62 6c 6f 63 6b 20 63 65 6c 6c 20 64 61 74 61 tblock cell data
3530: 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 2b 5b -resend#-buf $+[
3540: 5d 21 0a 20 20 20 20 6e 6f 2d 72 65 73 65 6e 64 ]!. no-resend
3550: 23 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a 20 # [ bursts# 4 *
3560: 5d 4c 20 6e 20 64 61 74 61 2d 72 65 73 65 6e 64 ]L n data-resend
3570: 23 2d 62 75 66 20 24 5b 5d 2b 21 0a 20 20 20 20 #-buf $[]+!.
3580: 6e 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 n data-resend#-b
3590: 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 6c uf $[]@ drop cel
35a0: 6c 2b 20 2b 20 63 21 20 3b 0a 0a 7d 73 63 6f 70 l+ + c! ;..}scop
35b0: 65 0a 0a 3a 20 2b 63 6f 6f 6b 69 65 20 28 20 2d e..: +cookie ( -
35c0: 2d 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 - ). data-rma
35d0: 70 20 77 69 74 68 20 6d 61 70 63 20 20 61 63 6b p with mapc ack
35e0: 2d 62 69 74 23 20 40 20 3e 72 20 20 72 40 20 2b -bit# @ >r r@ +
35f0: 72 65 73 65 6e 64 23 0a 20 20 20 20 64 61 74 61 resend#. data
3600: 2d 61 63 6b 62 69 74 73 20 40 20 72 3e 20 2b 62 -ackbits @ r> +b
3610: 69 74 40 0a 20 20 20 20 65 6e 64 77 69 74 68 20 it@. endwith
3620: 6e 65 67 61 74 65 20 70 61 63 6b 65 74 72 32 20 negate packetr2
3630: 2b 21 20 3b 0a 0a 3a 20 72 65 73 65 6e 64 2d 61 +! ;..: resend-a
3640: 6c 6c 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a ll? ( -- flag ).
3650: 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 data-rmap wi
3660: 74 68 20 6d 61 70 63 0a 20 20 20 20 61 63 6b 2d th mapc. ack-
3670: 61 64 76 61 6e 63 65 3f 20 20 64 65 73 74 2d 68 advance? dest-h
3680: 65 61 64 20 64 65 73 74 2d 74 6f 70 20 75 3e 3d ead dest-top u>=
3690: 20 20 61 6e 64 20 65 6e 64 77 69 74 68 0a 20 20 and endwith.
36a0: 20 20 74 69 63 6b 65 72 20 36 34 40 20 72 65 73 ticker 64@ res
36b0: 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 34 40 20 36 end-all-to 64@ 6
36c0: 34 75 3e 3d 20 61 6e 64 0a 20 20 20 20 74 69 6d 4u>= and. tim
36d0: 65 6f 75 74 28 20 64 75 70 20 49 46 20 20 2e 22 eout( dup IF ."
36e0: 20 72 65 73 65 6e 64 20 61 6c 6c 22 20 66 6f 72 resend all" for
36f0: 74 68 3a 63 72 20 20 54 48 45 4e 20 29 20 3b 0a th:cr THEN ) ;.
3700: 0a 3a 20 2b 65 78 70 65 63 74 65 64 20 28 20 2d .: +expected ( -
3710: 2d 20 66 6c 61 67 20 29 0a 20 20 20 20 72 65 73 - flag ). res
3720: 65 6e 64 2d 61 6c 6c 3f 20 20 49 46 20 20 72 65 end-all? IF re
3730: 73 65 6e 64 2d 61 6c 6c 20 20 54 48 45 4e 20 20 send-all THEN
3740: 65 78 70 65 63 74 65 64 3f 20 3b 0a 0a 5c 20 68 expected? ;..\ h
3750: 69 67 68 65 72 20 6c 65 76 65 6c 20 66 75 6e 63 igher level func
3760: 74 69 6f 6e 73 0a 0a 3a 20 6d 61 70 2d 72 65 71 tions..: map-req
3770: 75 65 73 74 2c 20 28 20 75 63 6f 64 65 20 75 64 uest, ( ucode ud
3780: 61 74 61 20 2d 2d 20 29 0a 20 20 20 20 6e 65 74 ata -- ). net
3790: 32 6f 3a 6e 65 77 2d 6d 61 70 20 6c 69 74 2c 20 2o:new-map lit,
37a0: 73 77 61 70 20 75 6c 69 74 2c 20 75 6c 69 74 2c swap ulit, ulit,
37b0: 20 6d 61 70 2d 72 65 71 75 65 73 74 20 3b 0a 0a map-request ;..
37c0: 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a also net2o-base.
37d0: 3a 20 6e 61 74 2d 70 75 6e 63 68 20 28 20 6f 3a : nat-punch ( o:
37e0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 2d 2d 20 29 0a connection -- ).
37f0: 20 20 20 20 70 69 6e 67 73 20 6e 65 77 2d 72 65 pings new-re
3800: 71 75 65 73 74 20 66 61 6c 73 65 20 67 65 6e 2d quest false gen-
3810: 70 75 6e 63 68 6c 6f 61 64 20 67 65 6e 2d 70 75 punchload gen-pu
3820: 6e 63 68 20 3b 0a 70 72 65 76 69 6f 75 73 0a 0a nch ;.previous..
3830: 3a 20 70 75 6e 63 68 2d 72 65 70 6c 79 20 28 20 : punch-reply (
3840: 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 addr u -- ).
3850: 6f 75 74 66 6c 61 67 20 40 20 3e 72 20 20 63 6d outflag @ >r cm
3860: 64 62 75 66 2d 6f 20 40 20 3e 72 0a 20 20 20 20 dbuf-o @ >r.
3870: 5b 3a 20 63 6d 64 30 21 20 63 6d 64 72 65 73 65 [: cmd0! cmdrese
3880: 74 20 69 6e 69 74 2d 72 65 70 6c 79 20 61 6c 73 t init-reply als
3890: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 20 20 20 o net2o-base.
38a0: 20 20 20 5b 20 61 6c 73 6f 20 6e 65 74 32 6f 2d [ also net2o-
38b0: 62 61 73 65 20 5d 0a 20 20 20 20 20 20 24 2c 20 base ]. $,
38c0: 6e 65 73 74 20 65 6e 64 2d 63 6f 64 65 20 3b 5d nest end-code ;]
38d0: 20 63 61 74 63 68 0a 20 20 20 20 72 3e 20 63 6d catch. r> cm
38e0: 64 62 75 66 2d 6f 20 21 20 20 72 3e 20 6f 75 74 dbuf-o ! r> out
38f0: 66 6c 61 67 20 21 20 20 74 68 72 6f 77 20 3b 0a flag ! throw ;.
3900: 0a 3a 20 30 2d 72 65 73 65 6e 64 3f 20 28 20 2d .: 0-resend? ( -
3910: 2d 20 6e 20 29 0a 20 20 20 20 72 65 73 65 6e 64 - n ). resend
3920: 30 20 40 20 49 46 0a 09 5c 20 2e 22 20 52 65 73 0 @ IF..\ ." Res
3930: 65 6e 64 20 74 6f 20 30 22 20 63 72 0a 09 63 6d end to 0" cr..cm
3940: 64 30 21 0a 09 5b 3a 0a 09 20 20 72 65 73 65 6e d0!..[:.. resen
3950: 64 28 20 2e 22 20 72 65 73 65 6e 64 30 3a 20 22 d( ." resend0: "
3960: 20 72 65 73 65 6e 64 30 20 24 40 20 6e 65 74 32 resend0 $@ net2
3970: 6f 3a 73 65 65 20 66 6f 72 74 68 3a 63 72 20 29 o:see forth:cr )
3980: 0a 09 20 20 6d 73 67 28 20 2e 22 20 72 65 73 65 .. msg( ." rese
3990: 6e 64 30 3a 20 22 20 72 65 73 65 6e 64 30 20 24 nd0: " resend0 $
39a0: 40 20 73 77 61 70 20 68 65 78 2e 20 68 65 78 2e @ swap hex. hex.
39b0: 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 20 63 forth:cr ).. c
39c0: 6d 64 72 65 73 65 74 20 69 6e 69 74 2d 72 65 70 mdreset init-rep
39d0: 6c 79 20 72 65 73 65 6e 64 30 20 24 40 20 2b 63 ly resend0 $@ +c
39e0: 6d 64 62 75 66 0a 09 20 20 72 30 2d 61 64 64 72 mdbuf.. r0-addr
39f0: 65 73 73 20 72 65 74 75 72 6e 2d 61 64 64 72 20 ess return-addr
3a00: 24 31 30 20 6d 6f 76 65 0a 09 20 20 63 6d 64 62 $10 move.. cmdb
3a10: 75 66 24 20 72 6e 67 36 34 20 73 65 6e 64 2d 63 uf$ rng64 send-c
3a20: 6d 64 20 64 72 6f 70 0a 09 20 20 31 20 70 61 63 md drop.. 1 pac
3a30: 6b 65 74 73 32 20 2b 21 20 3b 5d 0a 09 63 6d 64 kets2 +! ;]..cmd
3a40: 6c 6f 63 6b 20 63 2d 73 65 63 74 69 6f 6e 20 20 lock c-section
3a50: 31 0a 20 20 20 20 45 4c 53 45 20 20 30 20 20 54 1. ELSE 0 T
3a60: 48 45 4e 20 3b 0a 0a 3a 20 6d 61 70 2d 72 65 73 HEN ;..: map-res
3a70: 65 6e 64 3f 20 28 20 2d 2d 20 6e 20 29 0a 20 20 end? ( -- n ).
3a80: 20 20 63 6f 64 65 2d 6d 61 70 20 3f 64 75 70 2d code-map ?dup-
3a90: 49 46 20 20 77 69 74 68 20 6d 61 70 63 20 30 20 IF with mapc 0
3aa0: 20 6f 75 74 66 6c 61 67 20 6f 66 66 0a 09 64 65 outflag off..de
3ab0: 73 74 2d 72 65 70 6c 69 65 73 0a 09 64 65 73 74 st-replies..dest
3ac0: 2d 73 69 7a 65 20 61 64 64 72 3e 72 65 70 6c 69 -size addr>repli
3ad0: 65 73 20 62 6f 75 6e 64 73 20 65 6e 64 77 69 74 es bounds endwit
3ae0: 68 20 55 2b 44 4f 0a 09 20 20 20 20 49 20 61 63 h U+DO.. I ac
3af0: 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 tion-of reply-xt
3b00: 20 49 46 0a 09 09 74 69 6d 65 6f 75 74 28 20 2e IF...timeout( .
3b10: 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 61 63 " resend: " I ac
3b20: 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 tion-of reply-xt
3b30: 20 2e 6e 61 6d 65 20 49 20 32 40 20 6e 65 74 32 .name I 2@ net2
3b40: 6f 3a 73 65 65 20 66 6f 72 74 68 3a 63 72 20 29 o:see forth:cr )
3b50: 0a 09 09 72 65 73 65 6e 64 28 20 2e 22 20 72 65 ...resend( ." re
3b60: 73 65 6e 64 3a 20 22 20 49 20 72 65 70 6c 79 2d send: " I reply-
3b70: 64 65 73 74 20 36 34 40 20 78 36 34 2e 20 49 20 dest 64@ x64. I
3b80: 32 40 20 6e 65 74 32 6f 3a 73 65 65 20 66 6f 72 2@ net2o:see for
3b90: 74 68 3a 63 72 20 29 0a 09 09 6d 73 67 28 20 2e th:cr )...msg( .
3ba0: 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 72 65 " resend: " I re
3bb0: 70 6c 79 2d 64 65 73 74 20 36 34 40 20 78 36 34 ply-dest 64@ x64
3bc0: 2e 20 49 20 32 40 20 73 77 61 70 20 68 65 78 2e . I 2@ swap hex.
3bd0: 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 hex. forth:cr )
3be0: 0a 09 09 74 69 63 6b 73 20 49 20 72 65 70 6c 79 ...ticks I reply
3bf0: 2d 74 69 6d 65 20 36 34 21 0a 09 09 49 20 32 40 -time 64!...I 2@
3c00: 20 49 20 72 65 70 6c 79 2d 64 65 73 74 20 36 34 I reply-dest 64
3c10: 40 0a 09 09 61 76 61 6c 61 6e 63 68 65 28 20 2e @...avalanche( .
3c20: 22 20 72 65 73 65 6e 64 20 63 6d 64 3a 20 22 20 " resend cmd: "
3c30: 66 74 69 6d 65 20 31 30 30 30 65 20 66 6d 6f 64 ftime 1000e fmod
3c40: 20 28 2e 74 69 6d 65 29 20 36 34 64 75 70 20 78 (.time) 64dup x
3c50: 36 34 2e 20 36 34 3e 72 20 64 75 70 20 68 65 78 64. 64>r dup hex
3c60: 2e 20 36 34 72 3e 20 66 6f 72 74 68 3a 63 72 20 . 64r> forth:cr
3c70: 29 0a 09 09 73 65 6e 64 2d 63 6d 64 20 64 72 6f )...send-cmd dro
3c80: 70 0a 09 09 31 20 70 61 63 6b 65 74 73 32 20 2b p...1 packets2 +
3c90: 21 20 31 2b 0a 09 20 20 20 20 54 48 45 4e 0a 09 ! 1+.. THEN..
3ca0: 72 65 70 6c 79 20 2b 4c 4f 4f 50 0a 20 20 20 20 reply +LOOP.
3cb0: 45 4c 53 45 20 20 30 20 20 54 48 45 4e 20 3b 0a ELSE 0 THEN ;.
3cc0: 0a 3a 20 2d 6d 61 70 2d 72 65 73 65 6e 64 20 28 .: -map-resend (
3cd0: 20 2d 2d 20 29 20 5c 47 20 63 6c 65 61 72 20 61 -- ) \G clear a
3ce0: 6c 6c 20 72 65 73 65 6e 64 20 72 65 71 75 65 73 ll resend reques
3cf0: 74 73 0a 20 20 20 20 63 6f 64 65 2d 6d 61 70 20 ts. code-map
3d00: 3f 64 75 70 2d 49 46 20 20 77 69 74 68 20 6d 61 ?dup-IF with ma
3d10: 70 63 0a 09 64 65 73 74 2d 72 65 70 6c 69 65 73 pc..dest-replies
3d20: 20 64 65 73 74 2d 73 69 7a 65 20 61 64 64 72 3e dest-size addr>
3d30: 72 65 70 6c 69 65 73 20 72 65 70 6c 69 65 73 2d replies replies-
3d40: 65 72 61 73 65 20 20 65 6e 64 77 69 74 68 0a 20 erase endwith.
3d50: 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 63 6d 64 THEN ;..: cmd
3d60: 2d 72 65 73 65 6e 64 3f 20 28 20 2d 2d 20 6e 20 -resend? ( -- n
3d70: 29 0a 20 20 20 20 30 2d 72 65 73 65 6e 64 3f 20 ). 0-resend?
3d80: 6d 61 70 2d 72 65 73 65 6e 64 3f 0a 20 20 20 20 map-resend?.
3d90: 74 69 6d 65 6f 75 74 28 20 32 64 75 70 20 64 30 timeout( 2dup d0
3da0: 3c 3e 20 49 46 20 2e 22 20 72 65 73 65 6e 64 20 <> IF ." resend
3db0: 22 20 6f 76 65 72 20 2e 20 64 75 70 20 2e 20 2e " over . dup . .
3dc0: 22 20 63 6f 6d 6d 61 6e 64 73 20 30 2f 6d 61 70 " commands 0/map
3dd0: 22 20 63 72 20 54 48 45 4e 20 29 20 2b 20 3b 0a " cr THEN ) + ;.
3de0: 0a 3a 20 2e 65 78 70 65 63 74 65 64 20 28 20 2d .: .expected ( -
3df0: 2d 20 29 0a 20 20 20 20 66 6f 72 74 68 3a 2e 74 - ). forth:.t
3e00: 69 6d 65 20 2e 22 20 65 78 70 65 63 74 65 64 2f ime ." expected/
3e10: 72 65 63 65 69 76 65 64 3a 20 22 20 72 65 63 76 received: " recv
3e20: 2d 61 64 64 72 20 40 20 68 65 78 2e 0a 20 20 20 -addr @ hex..
3e30: 20 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 data-rmap .mapc
3e40: 3a 64 61 74 61 2d 61 63 6b 23 20 40 20 68 65 78 :data-ack# @ hex
3e50: 2e 0a 20 20 20 20 65 78 70 65 63 74 65 64 40 20 .. expected@
3e60: 68 65 78 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a hex. hex. forth:
3e70: 63 72 20 3b 0a 0a 5c 20 61 63 6b 6e 6f 77 6c 65 cr ;..\ acknowle
3e80: 64 67 65 20 74 6f 70 6c 65 76 65 6c 0a 0a 69 6e dge toplevel..in
3e90: 20 6e 65 74 32 6f 20 3a 20 61 63 6b 2d 63 6f 64 net2o : ack-cod
3ea0: 65 20 28 20 61 63 6b 66 6c 61 67 20 2d 2d 20 61 e ( ackflag -- a
3eb0: 63 6b 66 6c 61 67 20 29 20 20 3e 72 0a 20 20 20 ckflag ) >r.
3ec0: 20 66 61 6c 73 65 20 64 75 70 20 7b 20 73 6c 75 false dup { slu
3ed0: 72 70 3f 20 73 74 61 74 73 3f 20 7d 0a 20 20 20 rp? stats? }.
3ee0: 20 6e 65 74 32 6f 2d 63 6f 64 65 0a 20 20 20 20 net2o-code.
3ef0: 65 78 70 65 63 74 2d 72 65 70 6c 79 20 61 63 6b expect-reply ack
3f00: 20 31 20 74 6f 20 72 65 63 2d 61 63 6b 2d 70 6f 1 to rec-ack-po
3f10: 73 23 0a 20 20 20 20 61 63 6b 28 20 2e 22 20 61 s#. ack( ." a
3f20: 63 6b 3a 20 22 20 72 40 20 68 65 78 2e 20 66 6f ck: " r@ hex. fo
3f30: 72 74 68 3a 63 72 20 29 0a 20 20 20 20 72 40 20 rth:cr ). r@
3f40: 61 63 6b 2d 74 6f 67 67 6c 65 23 20 61 6e 64 20 ack-toggle# and
3f50: 49 46 0a 09 73 65 71 23 2c 0a 09 6e 65 74 32 6f IF..seq#,..net2o
3f60: 3a 67 65 6e 2d 72 65 73 65 6e 64 20 20 6e 65 74 :gen-resend net
3f70: 32 6f 3a 67 65 6e 61 63 6b 0a 09 72 40 20 72 65 2o:genack..r@ re
3f80: 73 65 6e 64 2d 74 6f 67 67 6c 65 23 20 61 6e 64 send-toggle# and
3f90: 20 49 46 0a 09 20 20 20 20 61 63 6b 28 20 2e 22 IF.. ack( ."
3fa0: 20 61 63 6b 3a 20 64 6f 2d 72 65 73 65 6e 64 22 ack: do-resend"
3fb0: 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 20 20 forth:cr )..
3fc0: 20 74 72 75 65 20 6e 65 74 32 6f 3a 64 6f 2d 72 true net2o:do-r
3fd0: 65 73 65 6e 64 0a 09 54 48 45 4e 0a 09 30 20 64 esend..THEN..0 d
3fe0: 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 ata-rmap .mapc:d
3ff0: 6f 2d 73 6c 75 72 70 20 21 40 0a 09 3f 64 75 70 o-slurp !@..?dup
4000: 2d 49 46 20 20 75 6c 69 74 2c 20 61 63 6b 2d 66 -IF ulit, ack-f
4010: 6c 75 73 68 0a 09 20 20 20 20 72 65 71 75 65 73 lush.. reques
4020: 74 2d 73 74 61 74 73 3f 20 74 6f 20 73 74 61 74 t-stats? to stat
4030: 73 3f 20 20 74 72 75 65 20 74 6f 20 73 6c 75 72 s? true to slur
4040: 70 3f 20 20 54 48 45 4e 0a 20 20 20 20 54 48 45 p? THEN. THE
4050: 4e 20 20 2b 65 78 70 65 63 74 65 64 0a 20 20 20 N +expected.
4060: 20 73 6c 75 72 70 3f 20 6f 72 20 74 6f 20 73 6c slurp? or to sl
4070: 75 72 70 3f 0a 20 20 20 20 73 74 61 74 73 3f 20 urp?. stats?
4080: 49 46 20 20 73 65 6e 64 2d 74 69 6d 69 6e 67 20 IF send-timing
4090: 20 54 48 45 4e 0a 20 20 20 20 65 6e 64 2d 77 69 THEN. end-wi
40a0: 74 68 20 20 63 6d 64 62 75 66 23 20 40 20 72 65 th cmdbuf# @ re
40b0: 63 2d 61 63 6b 2d 70 6f 73 23 20 31 2b 20 73 74 c-ack-pos# 1+ st
40c0: 61 74 73 3f 20 2d 20 3d 20 49 46 20 20 63 6d 64 ats? - = IF cmd
40d0: 62 75 66 23 20 6f 66 66 0a 20 20 20 20 45 4c 53 buf# off. ELS
40e0: 45 20 20 31 20 64 61 74 61 2d 72 6d 61 70 20 77 E 1 data-rmap w
40f0: 69 74 68 20 6d 61 70 63 20 2b 74 6f 20 72 65 63 ith mapc +to rec
4100: 2d 61 63 6b 23 20 65 6e 64 77 69 74 68 20 20 54 -ack# endwith T
4110: 48 45 4e 0a 20 20 20 20 73 6c 75 72 70 3f 20 49 HEN. slurp? I
4120: 46 20 20 73 6c 75 72 70 20 20 54 48 45 4e 0a 20 F slurp THEN.
4130: 20 20 20 65 6e 64 2d 63 6f 64 65 20 72 3e 20 28 end-code r> (
4140: 20 64 75 70 20 61 63 6b 2d 74 6f 67 67 6c 65 23 dup ack-toggle#
4150: 20 61 6e 64 20 49 46 20 20 6d 61 70 2d 72 65 73 and IF map-res
4160: 65 6e 64 3f 20 20 54 48 45 4e 20 29 20 3b 0a 0a end? THEN ) ;..
4170: 69 6e 20 6e 65 74 32 6f 20 3a 20 64 6f 2d 61 63 in net2o : do-ac
4180: 6b 2d 72 65 73 74 20 28 20 61 63 6b 66 6c 61 67 k-rest ( ackflag
4190: 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20 72 65 -- ). dup re
41a0: 73 65 6e 64 2d 74 6f 67 67 6c 65 23 20 61 6e 64 send-toggle# and
41b0: 20 49 46 0a 09 63 6d 64 2d 72 65 73 65 6e 64 3f IF..cmd-resend?
41c0: 20 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 0a 20 drop. THEN.
41d0: 20 20 20 61 63 6b 73 23 20 61 6e 64 20 64 61 74 acks# and dat
41e0: 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 61 63 6b a-rmap .mapc:ack
41f0: 2d 61 64 76 61 6e 63 65 3f 0a 20 20 20 20 49 46 -advance?. IF
4200: 20 20 6e 65 74 32 6f 3a 61 63 6b 2d 63 6f 64 65 net2o:ack-code
4210: 20 20 54 48 45 4e 20 20 61 63 6b 2d 74 69 6d 69 THEN ack-timi
4220: 6e 67 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a ng ;..in net2o :
4230: 20 64 6f 2d 61 63 6b 20 28 20 2d 2d 20 29 0a 20 do-ack ( -- ).
4240: 20 20 20 64 65 73 74 2d 61 64 64 72 20 36 34 40 dest-addr 64@
4250: 20 72 65 63 76 2d 61 64 64 72 20 36 34 21 20 20 recv-addr 64!
4260: 2b 63 6f 6f 6b 69 65 20 5c 20 6c 61 73 74 20 72 +cookie \ last r
4270: 65 63 65 69 76 65 64 20 70 61 63 6b 65 74 0a 20 eceived packet.
4280: 20 20 20 69 6e 62 75 66 20 31 2b 20 63 40 20 61 inbuf 1+ c@ a
4290: 63 6b 2d 72 65 63 65 69 76 65 20 6f 76 65 72 20 ck-receive over
42a0: 74 6f 20 61 63 6b 2d 72 65 63 65 69 76 65 20 78 to ack-receive x
42b0: 6f 72 0a 20 20 20 20 2b 74 69 6d 65 6f 75 74 30 or. +timeout0
42c0: 20 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 resend-all-to 6
42d0: 34 21 0a 20 20 20 20 6e 65 74 32 6f 3a 64 6f 2d 4!. net2o:do-
42e0: 61 63 6b 2d 72 65 73 74 20 3b 0a 0a 3a 20 2b 66 ack-rest ;..: +f
42f0: 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 20 5b 27 5d 20 low-control [']
4300: 6e 65 74 32 6f 3a 64 6f 2d 61 63 6b 20 69 73 20 net2o:do-ack is
4310: 61 63 6b 2d 78 74 20 3b 0a 0a 5c 20 6b 65 65 70 ack-xt ;..\ keep
4320: 61 6c 69 76 65 0a 0a 61 6c 73 6f 20 6e 65 74 32 alive..also net2
4330: 6f 2d 62 61 73 65 0a 3a 20 2e 6b 65 65 70 61 6c o-base.: .keepal
4340: 69 76 65 20 28 20 2d 2d 20 29 20 20 2e 22 20 74 ive ( -- ) ." t
4350: 72 61 6e 73 66 65 72 20 6b 65 65 70 61 6c 69 76 ransfer keepaliv
4360: 65 20 65 2f 65 20 68 20 74 20 62 20 22 20 65 78 e e/e h t b " ex
4370: 70 65 63 74 65 64 40 20 68 65 78 2e 20 68 65 78 pected@ hex. hex
4380: 2e 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 .. data-rmap
4390: 77 69 74 68 20 6d 61 70 63 20 20 64 65 73 74 2d with mapc dest-
43a0: 68 65 61 64 20 68 65 78 2e 20 64 65 73 74 2d 74 head hex. dest-t
43b0: 61 69 6c 20 68 65 78 2e 20 64 65 73 74 2d 62 61 ail hex. dest-ba
43c0: 63 6b 20 68 65 78 2e 0a 20 20 20 20 64 61 74 61 ck hex.. data
43d0: 2d 61 63 6b 62 69 74 73 20 40 20 64 65 73 74 2d -ackbits @ dest-
43e0: 73 69 7a 65 20 61 64 64 72 3e 62 79 74 65 73 20 size addr>bytes
43f0: 64 75 6d 70 0a 20 20 20 20 65 6e 64 77 69 74 68 dump. endwith
4400: 0a 20 20 20 20 66 6f 72 74 68 3a 63 72 20 3b 0a . forth:cr ;.
4410: 3a 20 74 72 61 6e 73 66 65 72 2d 6b 65 65 70 61 : transfer-keepa
4420: 6c 69 76 65 3f 20 28 20 2d 2d 20 66 6c 61 67 20 live? ( -- flag
4430: 29 0a 20 20 20 20 6f 20 74 6f 20 63 6f 6e 6e 65 ). o to conne
4440: 63 74 69 6f 6e 0a 20 20 20 20 74 69 6d 65 6f 75 ction. timeou
4450: 74 28 20 2e 6b 65 65 70 61 6c 69 76 65 20 29 0a t( .keepalive ).
4460: 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 data-rmap wi
4470: 74 68 20 6d 61 70 63 20 64 65 73 74 2d 72 65 71 th mapc dest-req
4480: 20 64 75 70 20 61 63 6b 2d 61 64 76 61 6e 63 65 dup ack-advance
4490: 3f 20 6f 72 20 74 6f 20 61 63 6b 2d 61 64 76 61 ? or to ack-adva
44a0: 6e 63 65 3f 20 65 6e 64 77 69 74 68 0a 20 20 20 nce? endwith.
44b0: 20 64 75 70 20 49 46 0a 09 21 74 69 63 6b 73 20 dup IF..!ticks
44c0: 74 69 63 6b 65 72 20 36 34 40 20 72 65 73 65 6e ticker 64@ resen
44d0: 64 2d 61 6c 6c 2d 74 6f 20 36 34 21 0a 09 5b 20 d-all-to 64!..[
44e0: 61 63 6b 2d 74 6f 67 67 6c 65 23 20 72 65 73 65 ack-toggle# rese
44f0: 6e 64 2d 74 6f 67 67 6c 65 23 20 6f 72 20 5d 4c nd-toggle# or ]L
4500: 20 6e 65 74 32 6f 3a 64 6f 2d 61 63 6b 2d 72 65 net2o:do-ack-re
4510: 73 74 20 20 54 48 45 4e 20 3b 0a 70 72 65 76 69 st THEN ;.previ
4520: 6f 75 73 0a 0a 3a 20 63 6d 64 2d 74 69 6d 65 6f ous..: cmd-timeo
4530: 75 74 20 28 20 2d 2d 20 29 20 20 63 6d 64 2d 72 ut ( -- ) cmd-r
4540: 65 73 65 6e 64 3f 0a 20 20 20 20 49 46 20 20 3e esend?. IF >
4550: 6e 65 78 74 2d 74 69 6d 65 6f 75 74 20 70 75 73 next-timeout pus
4560: 68 2d 74 69 6d 65 6f 75 74 20 20 45 4c 53 45 20 h-timeout ELSE
4570: 20 61 63 6b 40 20 2e 74 69 6d 65 6f 75 74 73 20 ack@ .timeouts
4580: 6f 66 66 20 20 54 48 45 4e 20 3b 0a 3a 20 63 6f off THEN ;.: co
4590: 6e 6e 65 63 74 65 64 2d 74 69 6d 65 6f 75 74 20 nnected-timeout
45a0: 28 20 2d 2d 20 29 20 74 69 6d 65 6f 75 74 28 20 ( -- ) timeout(
45b0: 2e 22 20 63 6f 6e 6e 65 63 74 65 64 20 74 69 6d ." connected tim
45c0: 65 6f 75 74 20 22 20 61 63 6b 40 20 3e 6f 20 72 eout " ack@ >o r
45d0: 74 64 65 6c 61 79 20 36 34 40 20 75 36 34 2e 20 tdelay 64@ u64.
45e0: 74 69 6d 65 6f 75 74 73 20 3f 20 6f 3e 20 66 6f timeouts ? o> fo
45f0: 72 74 68 3a 63 72 20 29 0a 20 20 20 20 63 6d 64 rth:cr ). cmd
4600: 2d 72 65 73 65 6e 64 3f 0a 20 20 20 20 49 46 0a -resend?. IF.
4610: 09 3e 6e 65 78 74 2d 74 69 6d 65 6f 75 74 20 70 .>next-timeout p
4620: 75 73 68 2d 74 69 6d 65 6f 75 74 0a 20 20 20 20 ush-timeout.
4630: 45 4c 53 45 0a 09 74 72 61 6e 73 66 65 72 2d 6b ELSE..transfer-k
4640: 65 65 70 61 6c 69 76 65 3f 20 30 3d 0a 09 49 46 eepalive? 0=..IF
4650: 20 20 61 63 6b 40 20 2e 74 69 6d 65 6f 75 74 73 ack@ .timeouts
4660: 20 6f 66 66 20 20 45 4c 53 45 20 20 3e 6e 65 78 off ELSE >nex
4670: 74 2d 74 69 6d 65 6f 75 74 20 70 75 73 68 2d 74 t-timeout push-t
4680: 69 6d 65 6f 75 74 20 20 54 48 45 4e 0a 20 20 20 imeout THEN.
4690: 20 54 48 45 4e 20 3b 0a 0a 5c 20 3a 20 2b 63 6f THEN ;..\ : +co
46a0: 6e 6e 65 63 74 69 6e 67 20 20 20 5b 27 5d 20 63 nnecting ['] c
46b0: 6f 6e 6e 65 63 74 69 6e 67 2d 74 69 6d 65 6f 75 onnecting-timeou
46c0: 74 20 69 73 20 74 69 6d 65 6f 75 74 2d 78 74 20 t is timeout-xt
46d0: 3b 0a 3a 20 2b 72 65 73 65 6e 64 20 28 20 2d 2d ;.: +resend ( --
46e0: 20 29 20 72 65 73 65 6e 64 28 20 2e 22 20 2b 72 ) resend( ." +r
46f0: 65 73 65 6e 64 22 20 63 72 20 29 0a 20 20 20 20 esend" cr ).
4700: 5b 27 5d 20 63 6f 6e 6e 65 63 74 65 64 2d 74 69 ['] connected-ti
4710: 6d 65 6f 75 74 20 20 69 73 20 74 69 6d 65 6f 75 meout is timeou
4720: 74 2d 78 74 20 6f 2b 74 69 6d 65 6f 75 74 0a 20 t-xt o+timeout.
4730: 20 20 20 36 34 23 30 20 72 65 73 65 6e 64 2d 61 64#0 resend-a
4740: 6c 6c 2d 74 6f 20 36 34 21 20 3b 0a 3a 20 2b 72 ll-to 64! ;.: +r
4750: 65 73 65 6e 64 2d 63 6d 64 20 28 20 2d 2d 20 29 esend-cmd ( -- )
4760: 20 72 65 73 65 6e 64 28 20 2e 22 20 2b 72 65 73 resend( ." +res
4770: 65 6e 64 2d 63 6d 64 22 20 63 72 20 29 0a 20 20 end-cmd" cr ).
4780: 20 20 5b 27 5d 20 63 6d 64 2d 74 69 6d 65 6f 75 ['] cmd-timeou
4790: 74 20 20 20 20 20 20 20 20 69 73 20 74 69 6d 65 t is time
47a0: 6f 75 74 2d 78 74 20 6f 2b 74 69 6d 65 6f 75 74 out-xt o+timeout
47b0: 20 3b 0a 0a 3a 20 2b 67 65 74 2d 74 69 6d 65 20 ;..: +get-time
47c0: 20 20 20 20 5b 27 5d 20 67 65 74 2d 74 69 63 6b ['] get-tick
47d0: 20 69 73 20 6f 74 68 65 72 20 3b 0a 0a 3a 20 72 is other ;..: r
47e0: 65 71 73 69 7a 65 21 20 28 20 75 63 6f 64 65 20 eqsize! ( ucode
47f0: 75 64 61 74 61 20 2d 2d 20 29 20 20 74 6f 20 72 udata -- ) to r
4800: 65 71 2d 64 61 74 61 73 69 7a 65 20 20 74 6f 20 eq-datasize to
4810: 72 65 71 2d 63 6f 64 65 73 69 7a 65 20 3b 0a 3a req-codesize ;.:
4820: 20 63 6f 6e 6e 65 63 74 2d 72 65 73 74 20 28 20 connect-rest (
4830: 6e 20 2d 2d 20 29 0a 20 20 20 20 63 6c 65 61 6e n -- ). clean
4840: 2d 72 65 71 75 65 73 74 20 2d 74 69 6d 65 6f 75 -request -timeou
4850: 74 20 74 73 6b 63 20 4b 45 59 42 59 54 45 53 20 t tskc KEYBYTES
4860: 65 72 61 73 65 20 63 6f 6e 74 65 78 74 21 20 3b erase context! ;
4870: 0a 0a 3a 20 65 6e 64 2d 63 6f 64 65 7c 20 28 20 ..: end-code| (
4880: 2d 2d 20 29 20 20 5d 5d 20 65 6e 64 2d 63 6f 64 -- ) ]] end-cod
4890: 65 20 63 6c 69 65 6e 74 2d 6c 6f 6f 70 20 5b 5b e client-loop [[
48a0: 20 3b 20 69 6d 6d 65 64 69 61 74 65 20 63 6f 6d ; immediate com
48b0: 70 69 6c 65 2d 6f 6e 6c 79 0a 0a 3a 20 67 65 6e pile-only..: gen
48c0: 2d 72 65 71 75 65 73 74 20 28 20 2d 2d 20 29 0a -request ( -- ).
48d0: 20 20 20 20 73 65 74 75 70 21 20 20 2b 72 65 73 setup! +res
48e0: 65 6e 64 2d 63 6d 64 20 20 67 65 6e 2d 74 6d 70 end-cmd gen-tmp
48f0: 6b 65 79 73 20 20 5b 27 5d 20 63 6f 6e 6e 65 63 keys ['] connec
4900: 74 2d 72 65 73 74 20 72 71 64 3f 0a 20 20 20 20 t-rest rqd?.
4910: 63 6d 64 28 20 69 6e 64 2d 61 64 64 72 20 40 20 cmd( ind-addr @
4920: 49 46 20 20 2e 22 20 69 6e 22 20 54 48 45 4e 20 IF ." in" THEN
4930: 2e 22 20 64 69 72 65 63 74 20 63 6f 6e 6e 65 63 ." direct connec
4940: 74 22 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 t" forth:cr ).
4950: 20 20 69 76 73 28 20 2e 22 20 67 65 6e 20 72 65 ivs( ." gen re
4960: 71 75 65 73 74 22 20 66 6f 72 74 68 3a 63 72 20 quest" forth:cr
4970: 29 0a 20 20 20 20 6e 65 74 32 6f 2d 63 6f 64 65 ). net2o-code
4980: 30 0a 20 20 20 20 6e 65 74 32 6f 2d 76 65 72 73 0. net2o-vers
4990: 69 6f 6e 20 24 2c 20 76 65 72 73 69 6f 6e 3f 20 ion $, version?
49a0: 20 30 6b 65 79 2c 0a 20 20 20 20 74 70 6b 63 20 0key,. tpkc
49b0: 6b 65 79 73 69 7a 65 20 24 2c 20 72 65 63 65 69 keysize $, recei
49c0: 76 65 2d 74 6d 70 6b 65 79 0a 20 20 20 20 6e 65 ve-tmpkey. ne
49d0: 73 74 5b 20 63 6f 6f 6b 69 65 2c 20 67 65 6e 2d st[ cookie, gen-
49e0: 72 65 70 6c 79 20 72 65 71 75 65 73 74 2c 20 5d reply request, ]
49f0: 6e 65 73 74 20 20 6f 74 68 65 72 0a 20 20 20 20 nest other.
4a00: 74 6d 70 6b 65 79 2d 72 65 71 75 65 73 74 0a 20 tmpkey-request.
4a10: 20 20 20 69 6e 64 2d 61 64 64 72 20 40 20 20 49 ind-addr @ I
4a20: 46 20 20 70 75 6e 63 68 3f 20 20 54 48 45 4e 0a F punch? THEN.
4a30: 20 20 20 20 72 65 71 2d 63 6f 64 65 73 69 7a 65 req-codesize
4a40: 20 20 72 65 71 2d 64 61 74 61 73 69 7a 65 20 20 req-datasize
4a50: 6d 61 70 2d 72 65 71 75 65 73 74 2c 20 20 63 6c map-request, cl
4a60: 6f 73 65 2d 74 6d 70 6e 65 73 74 0a 20 20 20 20 ose-tmpnest.
4a70: 5b 27 5d 20 70 75 73 68 2d 63 6d 64 20 49 53 20 ['] push-cmd IS
4a80: 65 78 70 65 63 74 2d 72 65 70 6c 79 3f 0a 20 20 expect-reply?.
4a90: 20 20 65 6e 64 2d 63 6f 64 65 7c 20 3b 0a 0a 69 end-code| ;..i
4aa0: 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 6e 6e 65 63 n net2o : connec
4ab0: 74 20 28 20 75 63 6f 64 65 20 75 64 61 74 61 20 t ( ucode udata
4ac0: 2d 2d 20 29 20 20 72 65 71 73 69 7a 65 21 20 67 -- ) reqsize! g
4ad0: 65 6e 2d 72 65 71 75 65 73 74 20 3b 0a 0a 70 72 en-request ;..pr
4ae0: 65 76 69 6f 75 73 0a 0a 30 20 5b 49 46 5d 0a 4c evious..0 [IF].L
4af0: 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a ocal Variables:.
4b00: 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d 77 6f 72 64 forth-local-word
4b10: 73 3a 0a 20 20 20 20 28 0a 20 20 20 20 20 28 28 s:. (. ((
4b20: 22 6e 65 74 32 6f 3a 22 20 22 2b 6e 65 74 32 6f "net2o:" "+net2o
4b30: 3a 22 29 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 :") definition-s
4b40: 74 61 72 74 65 72 20 28 66 6f 6e 74 2d 6c 6f 63 tarter (font-loc
4b50: 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 20 2e k-keyword-face .
4b60: 20 31 29 0a 20 20 20 20 20 20 22 5b 20 5c 74 5c 1). "[ \t\
4b70: 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 6f 6e 74 n]" t name (font
4b80: 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e -lock-function-n
4b90: 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 29 0a 20 ame-face . 3)).
4ba0: 20 20 20 20 28 22 5b 61 2d 7a 5c 2d 30 2d 39 5d ("[a-z\-0-9]
4bb0: 2b 28 22 20 69 6d 6d 65 64 69 61 74 65 20 28 66 +(" immediate (f
4bc0: 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 ont-lock-comment
4bd0: 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 20 -face . 1).
4be0: 20 22 29 22 20 6e 69 6c 20 63 6f 6d 6d 65 6e 74 ")" nil comment
4bf0: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d (font-lock-comm
4c00: 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 29 0a 20 ent-face . 1)).
4c10: 20 20 20 29 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c ).forth-local
4c20: 2d 69 6e 64 65 6e 74 2d 77 6f 72 64 73 3a 0a 20 -indent-words:.
4c30: 20 20 20 28 0a 20 20 20 20 20 28 28 22 6e 65 74 (. (("net
4c40: 32 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 2o:" "+net2o:")
4c50: 28 30 20 2e 20 32 29 20 28 30 20 2e 20 32 29 20 (0 . 2) (0 . 2)
4c60: 6e 6f 6e 2d 69 6d 6d 65 64 69 61 74 65 29 0a 20 non-immediate).
4c70: 20 20 20 20 28 28 22 5b 3a 22 29 20 28 30 20 2e (("[:") (0 .
4c80: 20 31 29 20 28 30 20 2e 20 31 29 20 69 6d 6d 65 1) (0 . 1) imme
4c90: 64 69 61 74 65 29 0a 20 20 20 20 20 28 28 22 3b diate). ((";
4ca0: 5d 22 29 20 28 2d 31 20 2e 20 30 29 20 28 30 20 ]") (-1 . 0) (0
4cb0: 2e 20 2d 31 29 20 69 6d 6d 65 64 69 61 74 65 29 . -1) immediate)
4cc0: 0a 20 20 20 20 29 0a 45 6e 64 3a 0a 5b 54 48 45 . ).End:.[THE
4cd0: 4e 5d 0a N].