- (data (i32.const 696) "\14\00\00\00") ;; WB0
- (data (i32.const 700) "\05\00\00\00") ;; KEY <-- KEYLOOP
- (data (i32.const 704) "\06\00\00\00") ;; DUP
- (data (i32.const 708) "\18\00\00\00") ;; J-1: 18
- (data (i32.const 712) "\0c\03\00\00") ;; addr of WORDEND
- (data (i32.const 716) "\11\00\00\00") ;; WS?
- (data (i32.const 720) "\0e\00\00\00") ;; JZ:
- (data (i32.const 724) "\00\03\00\00") ;; addr of DOCHAR
- (data (i32.const 728) "\10\00\00\00") ;; DROP
- (data (i32.const 732) "\12\00\00\00") ;; JMP:
- (data (i32.const 736) "\bc\02\00\00") ;; addr of KEYLOOP
- (data (i32.const 740) "\05\00\00\00") ;; KEY <-- WORDLOOP
- (data (i32.const 744) "\11\00\00\00") ;; WS?
- (data (i32.const 748) "\0f\00\00\00") ;; JNZ:
- (data (i32.const 752) "\0c\03\00\00") ;; addr of WORDEND
- (data (i32.const 756) "\06\00\00\00") ;; DUP
- (data (i32.const 760) "\18\00\00\00") ;; J-1:
- (data (i32.const 764) "\0c\03\00\00") ;; addr of WORDEND
- (data (i32.const 768) "\13\00\00\00") ;; WPUTC <-- DOCHAR
- (data (i32.const 772) "\12\00\00\00") ;; JMP:
- (data (i32.const 776) "\e4\02\00\00") ;; addr of WORDLOOP
- (data (i32.const 780) "\10\00\00\00") ;; DROP <-- WORDEND
- (data (i32.const 784) "\02\00\00\00") ;; LIT (push addr of wbuf, 256)
- (data (i32.const 788) "\00\01\00\00") ;; wbuf addr (utf16 string)
- (data (i32.const 792) "\17\00\00\00") ;; WB!LEN
- (data (i32.const 796) "\01\00\00\00") ;; RET
+ (data (i32.const 16500) "\14\00\00\00") ;; WORDSTART
+ (data (i32.const 16504) "\05\00\00\00") ;; KEY <-- KEYLOOP
+ (data (i32.const 16508) "\06\00\00\00") ;; DUP
+ (data (i32.const 16512) "\18\00\00\00") ;; J-1: 18
+ (data (i32.const 16516) "\f0\40\00\00") ;; addr of WORDEND
+ (data (i32.const 16520) "\11\00\00\00") ;; WS?
+ (data (i32.const 16524) "\0f\00\00\00") ;; JNZ:
+ (data (i32.const 16528) "\bc\40\00\00") ;; addr of KEYDROP
+ (data (i32.const 16532) "\02\00\00\00") ;; LIT
+ (data (i32.const 16536) "\5c\00\00\00") ;; 92 (\ character)
+ (data (i32.const 16540) "\25\00\00\00") ;; =?
+ (data (i32.const 16544) "\0e\00\00\00") ;; JZ:
+ (data (i32.const 16548) "\e4\40\00\00") ;; addr of DOCHAR
+ (data (i32.const 16552) "\10\00\00\00") ;; DROP
+ (data (i32.const 16556) "\c8\40\00\00") ;; WORDLOOP (continue using this wbuf we started)
+ (data (i32.const 16560) "\28\41\00\00") ;; EXECUTE-MODE
+ (data (i32.const 16564) "\12\00\00\00") ;; JMP:
+ (data (i32.const 16568) "\74\40\00\00") ;; addr of KEYLOOP-1 (get a new wbuf, call to wbuf+1 ate ours)
+ (data (i32.const 16572) "\10\00\00\00") ;; DROP <-- KEYDROP
+ (data (i32.const 16576) "\12\00\00\00") ;; JMP:
+ (data (i32.const 16580) "\78\40\00\00") ;; addr of KEYLOOP
+ (data (i32.const 16584) "\05\00\00\00") ;; KEY <-- WORDLOOP
+ (data (i32.const 16588) "\11\00\00\00") ;; WS?
+ (data (i32.const 16592) "\0f\00\00\00") ;; JNZ:
+ (data (i32.const 16596) "\f0\40\00\00") ;; addr of WORDEND
+ (data (i32.const 16600) "\06\00\00\00") ;; DUP
+ (data (i32.const 16604) "\18\00\00\00") ;; J-1:
+ (data (i32.const 16608) "\f0\40\00\00") ;; addr of WORDEND
+ (data (i32.const 16612) "\13\00\00\00") ;; WORDPUTC <-- DOCHAR
+ (data (i32.const 16616) "\12\00\00\00") ;; JMP:
+ (data (i32.const 16620) "\c8\40\00\00") ;; addr of WORDLOOP
+ (data (i32.const 16624) "\10\00\00\00") ;; DROP <-- WORDEND
+ (data (i32.const 16628) "\17\00\00\00") ;; WORDFINISH
+ (data (i32.const 16632) "\01\00\00\00") ;; RET