> cd C:\Documents and Settings\Owner\Desktop\drawer\Minimalist Programming\c4-800x600-p2bd-03\rawimages\rawwritewin-0.7\mtcftests
> cf2html.exe mv050314.img
C:\Documents and Settings\Owner\Desktop\drawer\Minimalist Programming\c4-800x600-p2bd-03\rawimages\rawwritewin-0.7\mtcftests>cf2html.exe mv050314.img
mtrr7d o.ers ws abs in1131 ii ad ads abs ii125306311 aiat*dk or oent8ndtbdvs-89 p np,?s-1928557312 id-622323477 mi??@ ihh t?dml whml344653824 ???cd ;irer@ ramnto if rarhmscorl rar-1996297535 bc258900bs332032w w6?s ie??,-37670920vs if tframt if-5438778361480960 if wsaejsiagl.361301877 if f tft;bs71485065-41931752 a ,ofmw mw d0 344fe3 kenses vs-1513 rh 9, ff00000575073792-1913 rh 9, ff00000575073792ra?80 il 0enses.sl tw,emn wl.lil tw,tmn??t! @n ?,-1012072448 il w arreok mi??@ c0158900mn bc158900b-1341816063 a l tw?smn??t! 8er?,,7weis s.?@ mlci,s231-4609 mlrtt, tr ? eets rami?; if iwsan tb3019807 etmol sf tftid-1392508921 l tw?smn??t! 8er?,,f/eis emi?; rqeeb7igs363520,ofml emn 0 ???cd a@n @ l wr;ms109706358 wlrtei ewosramn if nmn a mleeat ac4823 if rwos9ias tfwof*n ramigos if oc wge 80087500 oiakrs bnrst;503813tamosd if128980363vres-42993020 wscpiml 344fe3 ifreramisd if oy+ats 80337500 t-gw n mo@ins4064520wcmsmn-59339269 mtrnks fdb2e900 asi?; if fe918e1f idorq-54721289 ;i??8 ia??,-1916665510 o asel 8e0c1e2gwr9tl wlatei ?s?re in clezias57 649 en ad1397 nr nt io io io at io io io as463 r aat r aat me33449 4ffb t3;dup?dupdropthenbeginswap0if-ifaa!2*
4f9 e038 35 nd 104de4 826f r e81068576 r e9s r e- 104e7b 8275 r e;s r e:10688911068935 827c1069022 105006 r a r r a t r a o 10503f r a n r a i r a s r a s r a l r arr r arr r aro r ara 10519a r arf r ard r ar0 r ar8 r eni r ens r enc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a r e4 r e4 r e4s 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a r o! r o!s 2a1366 r rn8 2a r ri r rit r rit 80b9 80ba r ri;1366 2a 2a 2a 80d0 r rle 80d1 r rls r rll r rld1366 2a 2a 2a r ttn 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a r tft r tfn r tfn r t8 102e24 81db 2a
ot728 ee1126 oo rs tr to otc616 te ti 3151743 n0 ns ns ni nn it 39 ome eta ot otr oe13278 oft oer15165 ofe 3413 1ab e o13836 onr410 oea12868 onr ont otl 3347 3477 ooo ono otf406 ot0 ot0 ot8 ot; ot; oi8 owl r ar; r ar;1069576 r at r atr r att r att r att r ato r ato1069641 r ata r ata r atn r ati1069710 r ats 1052c3 1052e1 r at; r at; r ao r aor r aot1069913 r aoi r ao; r ael r aef1070289 r ae8 r ae8 r ae; r aa r aar1070364 ar ar ar ar ar ar ar r ra8 ar r oi8 ar 81bf r enf r enf r enf1066712 r en; r eir r eit1066890 r eic r ei;1067058 r ess r esl1067135 8245 r em8 r ec r ec r eyn ar ar r eys r els r ell r el8 r eg r ege r egn r egl r eg8 r eg8 104b26 r efn r efs 825a 825b r ewt r ewe r ewn3337433375 r ew8 r eds r evs r eps r eb r ebs 8266 r eq r e0 r e1 826a ar r o5 ar 81ee ar130333266 ar r ojs ar r oz 104dba r e5s33390 r e6s r e7s r e8s r e9 r ek
104efd r e:s106889233403 r e@ r e*s 10500a r a 8285 ar r e l r a 0 r are r ara 828b r ars r arl r arf 1051f5 r ar; r atr r att r ato r ate r ata r ati r atc1069739 r atf r atd r at8 r at;1069845 8299 r aoa r aon r aoi r ao01070081 r aet r aea r eec33317 r eef r ee0 r ee8 r ea33321 r eae r eaa r eaa1066448 r ea8 r enr 10367533204 r onl r ond r on8 r on; r on; r oin r oin r ois33213 ar r tts ar 103807 r oss r osd r om1063143 r om8 r ocs r oyt r oyt1063363 r olt r ole r oln r oln r ol8 81d31063562 r ogt r ogt r oge r oge r oy r oyt r oyn r oys r oyl106342733233 r oln33234 103a7533236 r oge r ogs r ogd r og8 r ofd r ofd106380933245 r ta0 r tn1058339 r tna r tnn10584891058640 r tii1058829 r tsl 8146 r tc r tct1059143 r tcd r tc8 r tc8 814d r tys r ty8 102a29 r tge1059561 r tf r tf r tft r tft r tfs1059690 102b7a1059853 r t0s r t633135 81711060438 r tjs r t-s 8174 r tz r t: r t+s 817c1060814 817e 10304a 103099 r o c1061046 r o 0 r o 8 r or r orr r orn33164 r orl 818e10614161061474 r oti r otc1061541 r otl r otf r otd r ot033175 r ot8 8197 r oo r oot1061730 r ooc r oo0 r oo8 r oo810619091062075 r oed1062193 r oal r oaf 1035d3 r onf r ond1062721 r oia3321233212 r oif r oi8 r omt r omn r oc r oct r oce1063244 r oc833228 r oyt r oye r oyl1063427 r oln10635533323633239 r oft10637721063837 81dd r owl 81de r owd1063964
r ovs r ops r ops r obs1064089 r ox r oxs 103cfa r o0 81e8 r o1 r o2 r o2s r o3s 81ec r o5s ar r on8 r o6 r o9s r o9s r ojs 81f3 r ois10627981062842 r oi0 r oi8 r os 103829 r osn r osl r osl r os8 r omt r ome r omn1063115 r omd r om8 r oct r ocn r ocl r oc8 r oyl1063409 81d0
oiyfcrtrsd ome ome ome ogt a oye ocn oct 1d5 38a4 ome oln2957568 oye ocn oct ogs 38a4465 og oyd 8tc ole ol og ole 373b oss oye ??d952 io bmn.03682304ofifoemt n om n?mg0 eoq?d trwrtramn om m eeyd ftlo todn!dfo.iorie ma rsnm e upo l 1c69869 s-ttitkns ;iajid nortn029792361masd omld edd knrcn0 ???, kienr0 ????-754596352 e00001297926170ees mo@ins18826776lo??@14496 gfrmls ??3ad , skis ab?, omeomtsri rinmlbsnmo861sab e00001-3817 mnrt:; 8224ff00raiede mo@ins-2252992 e ki?d ????904441088 .??? m wr; 500001bs3692544s wrd 3580001vs oomr w r abs om 1c2om woisnsosd 6100nlnf 1780001 omrsaidt7as lr1gfs /??8 d 0 is f e o t631373833 .s o ?a3a omrsaid ab-390057728 ffffffec-5449 mnrt:; 8224ff002wede ol i r a+-150834145 78b45e omr tfsv s b3eal3697664gf:3 omosaidrm1 gw??;om sriosno4ns oio abm 8 om448 oiaoo4k3e ???wdom sriosmo4ns oio abm 8 om ost928202125o4es om ??g-s ssrn , a00001-3353 y tw?8 ff480001 ???fs d8d0c8r;;iee319103264 8t s mo@ins-66825592 og8-474648 d83o8inmlrosn 0y8-1983705120213121213e.knti-655884288 ki??8-1376553655 iwospie ia??, iaeyale e8ffffff-386697911 ???rt .lrv0 m if @ 500001 1179d285inmwnwsw 0y835-15825 mio80eesoe+kms ok eiadets/oxtee 0eemo8oe+kms ok e?lg0 icci?8 knsmod???k-15849 mw .wd 344fe3-10566925438ersed8nmvs 136086387293145920319768 ndn s tv?se
8o? rs 38103 n n n n n n n n c000 s i; o c000 c000 c000 fe00c600 is dr, en n 8osn n n nn n n n8osn n s o@ o dr, en n n n8o*so n 8osn n n s o, o d , en n8 *s n n 8rsn n n n n r? rsdoidrs 3038303n n n nn n n nn n n nn n n n n0 812288122881228812288 ; dr, en n n n o8 os d d en n 8o s o@ odo6 rd5054131550541315505413155054131550529027 dr, en n n n n n n nn n n n s o@ on n n nn n n n8o o o8o ;rs n r- rsn n ndr*so s t 812288122881228812288122881228812288 s o; r dr, en n n ns ?8o o odr@ d n n 8osdr*so s t 8 o;1228812288 s o; r1228812288122881228812288n nnn n50541315505413155054131550541315 s oos dn nn nn n 8r*s sn n 8on n n nn n n nn n n n n r? rsn n n nn n n ndrsn ns oos d @ s n do, rsn n n in n n nn n n ndo*sos n s d n n n n n n n n n do, rsn n n in n n nn n n nn i n n s 7dos n n n n n n do, rsn n n in n n nn n n nn n n nn n n n8osn n
s oos d ; ; dru en n 8osn n n nn n n nn n n nn n n nn n n n s o@ o 8r*s sn n 8on n n nn n n n8r?so n n rn n n dr, e8o i osn nr8on ntn n1617453156505617958osn i s o@ o28672 r8 s122881228812288122881228812288 s o; r dr, en n 8osn n8 os is 8 os t6291568 8o?sos dr, en n 8osn nn n d i8n nn n8osn n s o@ o d o8-33528320d b-1070546920do n os 8o?sosd nd nd n 8o?sos n n n n do, rdn 8n nn n8osn n s o@ o dr, en n 8os n n do, rsn n 8osn n n nn n n n8osn n s o@ o 8o?sosd os os os n24576 rs3145752 n o dr, en n 8osn n n ndrsn n s o; rn n drsn n n n8osn n s o@ o dr, en n 8osn n n n8o o o n r? rsd os os os 8 n0122881228812288122881228812288126977 r0 8o?sos n n n n n n8o ;rs nis d id o ni i do drsn n 8o 8 8 8o?soss os n rs6291504 8o?sosn nd ns o o12288 d1572888 o o n n 8 8 812 8 8 8 e 8 8 8 8 e 8
81228812288 8o?sos1228812288 dr@n n drsn nin n n ncdn n ncdn n n+ odo ;rs o n d i8 d50540544 fc00ff03 ; 8ofs t13059 8 812 dr,n n 8rsn n nd r; ns122880 n12288 s ? i do? rd 8r?sos 8 i; e8 r;8 r;8 i; 8r?s s do?sos s ?dos i do, rdn n 8on n n n8o o o s ?dos no ns vs ddo n on n n n 8o?sos1228812288122881228812288122881228812288 dr, en n 8osn n n nn n n nn n n nn n n nn n n n8osn n s o@ o 8o?sos n n n n n n 8o?sos n n n n n n 8o?sos12288 ; s oo t drss tdrsdrs dr? ddrsdrsn n n nn n n n 303c303n nb o1617322086 n non n8o ;rsn n n nn n n nn n n nn n n n s o; r12288122881228812288122881228812288 s o; r dr, en n 8os n n i n d , dn 8n n8osn n s o@ o8osn n8oqsos n n? os n nnn n50529027n n n nn n n nn n n nn n n n dr, en n 8os n n n n n n n n n n8osn n s o@ on n n ndrsdrs s oo t ;1228812288122881228812288 n n n n n n n n n n n n n n n n 8o?sos dr, en n 8os n n n n n n8o ;rsn n n n8osn n s o@ o 8o?sos n n n n i8 o n i n n n n n n n nn n n nn n n nn n n nn n n nn nnn n505413155054131550541315 s oos d
do@ rdn n don n n nn n n nn n n nn n n nn n n ndo o o i, osn n n nn n n nn n n nn n n nn n n ndrsdrs s oo t ;12288 do, rdn n 8on n n n8o o o s ?dos n n n n n n n n do, rdn n 8on n n n8o o o do? rdn n 8on n n n8o o o s ?dosn n n nn n n nn n n nn n n n 8o?sosn n n nn n n nn n n nn n n nn n n ndrsdrs s oo t ;12288 ; s oo tdrsdrsn n n no n o no n o no n o no n o no n o no n o no n o ni i o n d ?srs dr, en n 8osn n n nn n n nn n n nn n n nn non n dom8o n r? rs dr, e8o i osn nr8on ntn n1617453156505617958osn i s o@ o28672 r8 s122881228812288122881228812288 s o; r dr, en n 8osn n8 os is 8 os t6291568 8o?sos dr, en n 8osn nn n d i8n nn n8osn n s o@ o d o8-33528320d b-1070546920do n os 8o?sosd nd nd n 8o?sos n n n n do, rdn 8n nn n8osn n s o@ o dr, en n 8os n n do, rsn n 8osn n n nn n n n8osn n s o@ o 8o?sosd os os os n24576 rs3145752 n o dr, en n 8osn n n ndr o o s o; rn n drsn n n n8osn n s o@ o dr, en n 8osn n n n8o o o n r? rsd os os os 8s os os os os os os o is id os 8o?sos8o o os bdo n8 o is 87340144 3e003 ni n do drsn n 8o
8 8 8o?sosd ns o o12288 d1572888 o o 8o?sosn nd ns o o12288 d1572888 o o n n 8 8 812 8 8 8 e 8 8 8 8 e 8 81228812288 8o?sos1228812288 dr@n n drsn nin n n ncdn n ncdn n n+ odo ;rs o n d i8 d50540544 fc00ff03 ; 8ofs t13059 8 812 ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ; ; rs ; is ;r@ di@ ?so , is ;r@ di@ ?s , ; ; , ?s di@ ;r@ , is ?so di@ ;r@ ; is ; rs ; s t 8 os 8 os ; is ; is 8 os 8 os s t ;i?, ;i?, ;i?, ;i?,8 osd iss o8 o; i8 , @ s ; rs 8 os d is s o8 o; i8 , @ ;;i?, ;i?, ;i?, ;i?,i;; s8 rsd oss r8 r; o8 id @ ; s 8 rs d os s r8 r; o8 id @ ; 8 d s
s n d os d os d os s n s n d os d os d os s n s n ; 8 s n d os d os d os s n s n d os d os d os s n 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs"> s n d os d os d os s n s n d os d os d os s n s n ; 8 s n d os d os d os s n s n d os d os d os s n 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os 8 os d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs ;i?, ;i?, ;i?, ;i?, d rs d rs d rs d rs d rs d rs d rs d rs d rs d rs ??d di?,8i?,8i?, ; d ; ; ;is ; ;idid ;idid ;rdi ;rdi ;rdi ;rhi 8i@id 8i@id sr? ; ; d8i?,8i?, di?, ??d s t s t s t d rs d rs d rs 8 os 8 os ;i?, ;i?, di?, ??d ,r@ @ @ @ @ ,r@ ,r@ i-; o-8 r-d i8 od s n d os d os d os s n s n ; 8 di?, @i?,tod rs234881136 ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? ???? 8 os s n1347440724210752
pentium macros: 1, 2, 3, , compile 1-4 bytes drop lodsd, flags unchanged, why sp is in esi over sp 4 + @ swap sp xchg 0 0 0 xor, macro 0 identical to number 0 a 2 0 mov, never used? a! 0 2 mov, unoptimized @ eax 4 *, unoptimized ! edx 4 * nop used to thwart look-back optimization - ones-complement 2* 2/ if jz, flags set, max 127 bytes, leave address -if jns, same then fix address - in kernel push eax push pop eax pop u+ add to 2nd number, literal or value ? test bits, set flags, literal only!
forn push count onto return stack, falls intobegin begin-a current code address - byte *nextaa-aa swapfor andif addresses nexta decrement count, jnz tofor, pop return stack when done -nexta same, jns - loop includes 0 i-n copy loop index to data stack enda jmp tobegin +!na add to memory, 2 literals optimized align next call to end on word boundary or!na inclusive-or to memory, unoptimized *mm-p 32-bit product */mnd-q 64-bit product, then quotient /modnd-rq remainder and quotient /nd-q quotient modnd-r remainder time-n pentium cycle countegas 15240000 to get actual clock rate
these macros may be white, others may not @etc arithmetic negaten-n when you just cant use- minnn-n minimum absn-u absolute value maxnn-n maximum v+vv-v add 2-vectors nc-a number of cylinders booted save write colorforth to bootable floppy oadf save as spelled by qwerty. for typing with blank screen
blockn-a block number to word address colors specified as rgb: 888 screen fills screen with current color atxy set current screen position boxxy lower-right of colored rectangle dump compiles memory display print compiles screen print icon compiles icon editor logo displays colorforth logo show background task executes following code repeatedly keyboard displays keypad and stack
does not say empty, compiles on top of application x-a current address onea-a line of display linesan dumpa background task continually displays memory u increment address d decrement ati address of agp graphic registers bytea byte address dump fixan-a test word
draw big-bits icon @wa-n fetch 16-bit word from byte address !wna store same *byten-n swap bytes ic-a current icon cu-a cursor sq draw small square xy-a current screen position, set byat loc-a location of current icons bit-map 0/1n-n color square depending on bit 15 rowa-a draw row of icon +atnn relative change to screen position ikon draw big-bits icon adjnn-nn magnify cursor position cursor draw red box for cursor ok background task to continually draw icon, icon number at top sr421075242107524210752
dos file blks256*; w/c18blks; buffer604block; size -abuffer01readsbuffer 98f+; set n!buffer01writes; cyls n-nn1swapw/c-1++w/c/; put andup2*2*sizesetcylswritesstop; get asize@3+2/2/cylsreadsstop; .com063blocksput;
blksn-n size in blocks to words w/c-n words per cylinder buffer-a 1 cylinder required for floppy dma size-a locate size of 2nd file. floppy has first filler then file allocated. filler is 2048 bytes, to fill out cylinder 0. names at most 8 letters, all caps. directory starts atbuffer 980+ setn size. file must be larger than your file. cylsn-nn starting cylinder 1 and number of cylinders putan write file from address geta read file to address
p@p-n fetch byte from port p!np store byte to port 1@a-n fetch byte from byte address 1!na store byte to byte address rn-p convert relative to absolute port address. base port on stack at compile time. compiled as literal at yellow-green transition 9600 115200 baud-rate divisors. these are names, not numbers b/s set baud rate. edit to change init initialize uart xmitn wait for ready and transmit byte ctsn wait for clear-to-send then xmit st-n fetch status byte xbitsn-n exchange status bits st!n store control byte ?rcv fetch byte if ready. set flag to be tested byif rcv-n wait for ready and fetch byte
draws 7 hexagons. colors differ along red, green and blue axes. col color of center hexagon del color difference linn draws 1 horizontal line of a hexagon hexn draws top, center and bottom. slope 7 x to 4 y is 1.750 compared to 1.732 +deln increment color -deln petaln draw colored hexagon rose draw 7 hexagons ok describe screen. center color at top
in increment color difference out decrement it r g b increment center color -r -g -b decrement it +del redefine with ; +col change center color nul ignore h describe keypad-7326896
increase speed from 2 cylinders/s to 3 p@ read byte from port in a p! write byte to port in a array-a return next word address com-a address of command string done wait till last sector formatted. till ready to read byten send byte to fdc when ready sectorsnn-n send 4 format bytes to each of 18 sectors. sector number from 1 to 18 headnn-n set head number. issue seek and format commands. starting sector number depends on cylinder, allowing 2 sector times to step heads. cylinder 1: 17 18 1 2 ... 16. 1801 + adjusts for 1s complement and for unsigned mod cylindersn format both heads of each cylinder, starting at 0 format standard number of cylinders. smaller is faster
2/sn shift right n bits state-a address of state vector for current computer reset set registers undefined, execute from rom un. display undefined register h.nnn display n hex digits of number undefn bit 20 set means undefined r. display register stack display stack, top at top return display return stack, top at bottom ok display registers, b a blue, pc ir white
name 26 registers in state vector ar-a a register. cannot be named a because pentium macro takes precedence s0-s3 execute instruction from slot 0-3 step execute next instruction stepsn execute n instructions
+rn push onto return stack -r-n pop from return stack +tn push onto data stack -t-n pop from data stack -x some instructions named with terminal x to avoid pentium conflict
prototype for target compilers h address of next available word in target memory ip address of current instruction word slot next available instruction slot 2*sn shift left n bits memory-a host address for target memory orgn set current target memory location ,n compile word into target memory s0-s3 assemble instruction into slot 0-3 i, assemble instruction into next slot 25x compile code for multicomputer
words being redefined for the target computer. these pentium words can no longer be executed. although pentium macros still take precedence during compilation, they will no longer be used. adrn-a assembles instruction, but not in slot 2, where address goes. instruction address left on stack call deferred to class. executed for target defined words thena puts address in low 9 bits of previous instruction word n executed for green short-numbers. all 18-bit target numbers are short. executes white short-number to put interpreted number on stack. then assembles literal instruction with number in next location
defer-a byte address of the compiled code that follows executea code at this address classa store address of code to be executed for each word subsequently defined f!an store address of code executed when a word with this function is interpreted f@n-a fetch address of function code empty redefine empty to restore altered functions functionsaa store functions x18 save compile and number functions. set green short-number to n, compile to execute. target words are executed to assemble instructions
movesdn move n bytes from source to destination. register 1 is used, 6 and 7 are saved array-a returns word-aligned address in dictionary usn delay n microseconds. edit cpu clock rate rn-a word address of register. edit base address fromnorth pci device configuration roma-n fetch 2 1rces of ethernet id 3romnnn 3 byte-pairs of id. 54, 32 and 10 reset controller tx-a transmit buffer. 1536 bytes. fragments must be assembled for transmission rx-b receive buffer. 8k+16 bytes n-a tx status/length. writing starts transmission sendan fragment into transmit buffer firstan fragment. wait till buffer empty lastan fragment. start transmission init ialize controller. set tx/rx address/on and perfect match
p@p-n fetch byte from port p!np store byte to port 1@a-n fetch byte from byte address rn-p convert relative to absolute port 115200-n baud-rate divisor. name, not number b/s set baud rate. edit to change init initialize uart. fifo off, receive interrupt on, dtr rqs on xmitn wait for ready and transmit byte 5!a load register 5. reserved as byte input pointer 5@-a fetch it 5!+n fetch port, store byte, increment pointer rcv receive interrupt. buffers byte in memory. must not use data stack receive start input enabling only serial interrupt. keyboard off requires screen, suspend and standby off also count-n bytes received sendan message
idt-a table of 2-word interrupts. edit convenient block number 1ldn load register 1 with literal lidt load interrupt table register from byte address on stack sti enable device interrupts cli disable them 2push save registers 0 and 2 2pop restore 2 and 0 forth save 1 and 6, load 6 as stack. interrupt may occur while its a source address /forth restore 6 and 1 clear store 20 to port 20 to clear irq 0-7 8clear also 20 to port a0 to clear irq 8-f i; return from interrupt - restore flags !idtb execute lidt interruptn construct interrupt tohere. avoid yellow-green literal with red comment fillan n entries in default interrupt table ignore clear the interrupt. doesnt clear the device 0div make divisor +infinity, quotient 0
movesdn move n bytes from source to destination. register 1 is used, 6 and 7 are saved usn delay n microseconds. edit cpu clock rate rn-a word address of register roma-n fetch 2 bytes of mac 3romnnn 3 byte-pairs of mac tx-a transmit buffer. 1536 bytes. fragments must be assembled for transmission rx-b receive buffer. 8k + 1532 byte overrun ds-a must cycle thru 4 tx descriptors fr-a must accumulate fragments in tx buffer n-a tx status/length. writing starts transmission sendan fragment into transmit buffer firstan fragment. wait till buffer empty lastan fragment. start transmission reset controller init ialize controller. set tx/rx address/on and mac/broadcast. enable irq10 rcvd-b received packet. register 38 is 10 bytes before start of next packet. register 3a is end of current packet
empty redefined to disable interrupts w 16-bit prefix w@b-n fetch 16-bits from byte address w!nb store 16-bits *byten-n swap bytes 0 and 1 n@b-n fetch 16-bit network-ordered number 2!nb store 16-bit number n!nb store 16-bit number in network order n,n compile 16-bit number in network order string-b returns byte address packet-b ethernet packet header dest-b destination field in packet src-b source field lengthn store length into packet 3!nnnb store 3-word mac ethernetn send header with type/length @ethernet-b return payload address of received packet
set ip addresses with edit. normal order, net bytes first .n compile byte. resembles url punctuation message-b 28-byte string me comment marking my mac/ip address to comment marking correspondent sender target dir-b fields in eithermessage or received message ipb-n fetch ip address arn send query 1, or reply 4 arp broadcast query -arpb-b return if not arp. otherwise process and skip out. me?b return if broadcast not for me. save sender only in packet query?b if a request, reply
set ip addresses with edit. normal order, net bytes first header-a 40-byte ipv6 header lengthn store 2-byte length in header dest-a 4-byte destination ip address src-a source ip ipn send ip header embedded in ethernet packet +ipb-b skip out if not ip. otherwise return payload address
b@b-n fetch byte header-a 8-byte udp header lengthn store length in header udpn send ip header for n-byte packet +udpb-b skip out if not udp. otherwise return payload address
blocks to/from server payload n-bnheader8+n!header10; udppaypayload-2+; standard minimal udp header length +put nn 4444udport1026udpoverpayloadsend+block2*2*1024last; it bdup2+swapn@32768+block2*2*1024move; -got b-bdup-4+n@28+ordropifitpop;then;ep8390162el208 snifdupdupep!2+n@el!;160load receive+ethernetsnif-arp+ip+udp-tftp-got +get bn@32768+put; ... interrupt-protect words that transmit get n65535mincli 4444udport2udppayloadlaststi; put ncli0+putsti; archive161foriput1000us-next; @elel@518min; cnt@elh.crcr; dmpcntwhite@el2/fordup@el2/inegate+2*+n@.hwspacenextdrop; okdshowbluescreentextep@dupredh.spacedmpkeyboard;
client can get or put blocks to server payloadn-bn 2 bytes were appended to udp header for block number +putnn send block number. append block as last fragment. packet length distinguishes two messages itb move 1024 bytes from packet to offset block -gotb-b if a 2-byte message, return. otherwise move block to archive - 300+ - and skip out receive check and decode received packet.+test returns if true,-test returns if false. otherwise theypop - skip-out - return fromreceive. resulting stack need not be empty, since/forth will restore pre-interrupt stack.pop must be in a word called byreceive, it cant be nested +getb send requested block from archive getn send block number to request. interrupt disabled lest reply interfer putn send block archive send blocks 0-161 - 9 cylinders
rca drd303ra satellite t01sp 10ffff1cmd3sp; ton 1154550 192800033cmd5fort0next; words 210900ffword3fordup@word1+nextdrop; 4rcaalignarray 49242124, 12421248, 30842, 9242124, 49084921, 32108, 21242124, 49084921, 30908, 21242124, 24212484, 32421, 24242124, 49084921, 30848, 24242124, 24212484, 32121, 84242124, 24212484, 30921, 84242124, 90849210, 32484, 24842124, 49084921, 30842, 24842124, 24212484, 32109, 84842124, 0tess rtettrom@ r n rt,trte rsc rt,cet rcrscno; r n rt,eces2194 rt,sces retr sfo; r n o,1716425 ntn e erat?:mf e?@ nnwo ea r* 1004f600 s y ne s c- nnwo e esp 21das i8 c362a e8393t o;26214432780489 e ems s ostd elas e@m sp edr eif s ostd elasi0oil es co 262ad tis8548t o;2621448393 ;