forget zl $ : ZL { ( w - lb hb ) DUP ff AND SWAP 8 >> RET : PBADR { ( addr -pbnr adr ) DUP 3f AND SWAP 6 >> RET : devsel { ( x - flag ) istart isend iack ret : address { ( addr -flag) a0 devsel 0= if 45 emit drop 0 exit endif pbadr isend iack 0= if 45 emit drop 0 exit endif 1 ms wait isend iack ret : curead { ( -- b ) a1 devsel 0= if 45 emit exit endif irecv istop ret : raread { ( addr -- b ) address 0= if 45 emit exit endif curead ret : write { ( b addr -- flag) address 0= if 45 emit drop 0 exit endif isend iack dup 0= if 46 emit endif istop ret : WEEPROM { ( b addr -- ) überflüssig repeat swap dup rot dup rot swap write 3 ms wait not until drop drop ret : WWORD { ( w addr -- ) swap zl rot dup rot swap 1 + write drop 3 ms wait write drop 3 ms wait ret : RAWORD { ( addr -- w ) raread curead 8 ror + ret : wword2 { ( w addr -- ) address 0= if 45 emit drop 0 exit endif zl swap isend iack 0= if 46 emit endif isend iack 0= if 47 emit endif istop 3 ms wait ret 1234