- (; : definition ;)
- (data (i32.const 16800) "\74\40\00\00") ;; WORD
- (data (i32.const 16804) "\1c\00\00\00") ;; HERE
- (data (i32.const 16808) "\1d\00\00\00") ;; VOCAB_SET
- (data (i32.const 16812) "\01\00\00\00") ;; RET
+ (; Do Backslash ;)
+ (data (i32.const 16788) "\05\00\00\00") ;; KEY
+ (data (i32.const 16792) "\02\00\00\00") ;; LIT
+ (data (i32.const 16796) "\20\00\00\00") ;; 32 (space)
+ (data (i32.const 16800) "\25\00\00\00") ;; =?
+ (data (i32.const 16804) "\0f\00\00\00") ;; JNZ:
+ (data (i32.const 16808) "\bc\41\00\00") ;; addr of keypump
+ (data (i32.const 16812) "\cc\40\00\00") ;; WORDLOOP + 1
+ (data (i32.const 16816) "\28\41\00\00") ;; EXECUTE-MODE
+ (data (i32.const 16820) "\01\00\00\00") ;; RET
+ (data (i32.const 16828) "\18\00\00\00") ;; j-1: <-- keypump
+ (data (i32.const 16832) "\e0\41\00\00") ;; addr of end
+ (data (i32.const 16836) "\05\00\00\00") ;; KEY
+ (data (i32.const 16840) "\02\00\00\00") ;; LIT
+ (data (i32.const 16844) "\0a\00\00\00") ;; 10 (line feed)
+ (data (i32.const 16848) "\25\00\00\00") ;; =?
+ (data (i32.const 16852) "\0e\00\00\00") ;; JZ:
+ (data (i32.const 16856) "\bc\41\00\00") ;; addr of keypump
+ (data (i32.const 16860) "\10\00\00\00") ;; DROP
+ (data (i32.const 16864) "\01\00\00\00") ;; RET
+