(loader '((title |x11.lo|)))
(defvar #:sys-package:bitmap '#:display:x11)
(defvar #:sys-package:colon #:sys-package:bitmap)
(if (not (boundp 'errnomorecolors)) (progn (defvar errnomorecolors "plus de couleurs disponibles")))
(if (not (boundp '#:display:x11:file-descriptor-mask)) (progn (defvar #:display:x11:file-descriptor-mask 0)))
(if (not (boundp '#:display:x11:events-list)) (progn (defvar #:display:x11:events-list)))
(if (not (boundp '#:display:x11:override-redirect)) (progn (defvar #:display:x11:override-redirect)))
(putprop '#:display:x11 '((0 () () () () () () () () () ()) file-descriptor events-in-socket reread drawing-flag events-list function-keys line-style-vector pattern-vector cursor-vector font-vector mode-vector) 'defstruct)
(loader'((fentry #:display:x11:make subr0)
(entry #:display:x11:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '0)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '33 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:display:x11)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:name '#:display:x11:name 'setf-inverse) '#:display:x11:name)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:package '#:display:x11:package 'setf-inverse) '#:display:x11:package)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:package (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:device '#:display:x11:device 'setf-inverse) '#:display:x11:device)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:device (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:xmax '#:display:x11:xmax 'setf-inverse) '#:display:x11:xmax)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:xmax (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:ymax '#:display:x11:ymax 'setf-inverse) '#:display:x11:ymax)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:ymax (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:eventmode '#:display:x11:eventmode 'setf-inverse) '#:display:x11:eventmode)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:eventmode (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:prologuep '#:display:x11:prologuep 'setf-inverse) '#:display:x11:prologuep)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:prologuep (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:keyboard-focus-window '#:display:x11:keyboard-focus-window 'setf-inverse) '#:display:x11:keyboard-focus-window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:keyboard-focus-window (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:window '#:display:x11:window 'setf-inverse) '#:display:x11:window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:window (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:graph-env '#:display:x11:graph-env 'setf-inverse) '#:display:x11:graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:graph-env (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:root-window '#:display:x11:root-window 'setf-inverse) '#:display:x11:root-window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:root-window (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:main-graph-env '#:display:x11:main-graph-env 'setf-inverse) '#:display:x11:main-graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:main-graph-env (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:background '#:display:x11:background 'setf-inverse) '#:display:x11:background)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:background (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:foreground '#:display:x11:foreground 'setf-inverse) '#:display:x11:foreground)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:foreground (struct . valeur) (ifn valeur (list 'vref struct 13) (list 'vset struct 13 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:windows '#:display:x11:windows 'setf-inverse) '#:display:x11:windows)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:windows (struct . valeur) (ifn valeur (list 'vref struct 14) (list 'vset struct 14 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:bitmaps '#:display:x11:bitmaps 'setf-inverse) '#:display:x11:bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:bitmaps (struct . valeur) (ifn valeur (list 'vref struct 15) (list 'vset struct 15 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:menus '#:display:x11:menus 'setf-inverse) '#:display:x11:menus)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:menus (struct . valeur) (ifn valeur (list 'vref struct 16) (list 'vset struct 16 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:colors '#:display:x11:colors 'setf-inverse) '#:display:x11:colors)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:colors (struct . valeur) (ifn valeur (list 'vref struct 17) (list 'vset struct 17 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:font-names '#:display:x11:font-names 'setf-inverse) '#:display:x11:font-names)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:font-names (struct . valeur) (ifn valeur (list 'vref struct 18) (list 'vset struct 18 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:pattern-bitmaps '#:display:x11:pattern-bitmaps 'setf-inverse) '#:display:x11:pattern-bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:pattern-bitmaps (struct . valeur) (ifn valeur (list 'vref struct 19) (list 'vset struct 19 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:cursor-bitmaps '#:display:x11:cursor-bitmaps 'setf-inverse) '#:display:x11:cursor-bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:cursor-bitmaps (struct . valeur) (ifn valeur (list 'vref struct 20) (list 'vset struct 20 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:extend '#:display:x11:extend 'setf-inverse) '#:display:x11:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:extend (struct . valeur) (ifn valeur (list 'vref struct 21) (list 'vset struct 21 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:file-descriptor '#:display:x11:file-descriptor 'setf-inverse) '#:display:x11:file-descriptor)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:file-descriptor (struct . valeur) (ifn valeur (list 'vref struct 22) (list 'vset struct 22 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:events-in-socket '#:display:x11:events-in-socket 'setf-inverse) '#:display:x11:events-in-socket)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:events-in-socket (struct . valeur) (ifn valeur (list 'vref struct 23) (list 'vset struct 23 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:reread '#:display:x11:reread 'setf-inverse) '#:display:x11:reread)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:reread (struct . valeur) (ifn valeur (list 'vref struct 24) (list 'vset struct 24 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:drawing-flag '#:display:x11:drawing-flag 'setf-inverse) '#:display:x11:drawing-flag)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:drawing-flag (struct . valeur) (ifn valeur (list 'vref struct 25) (list 'vset struct 25 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:events-list '#:display:x11:events-list 'setf-inverse) '#:display:x11:events-list)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:events-list (struct . valeur) (ifn valeur (list 'vref struct 26) (list 'vset struct 26 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:function-keys '#:display:x11:function-keys 'setf-inverse) '#:display:x11:function-keys)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:function-keys (struct . valeur) (ifn valeur (list 'vref struct 27) (list 'vset struct 27 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:line-style-vector '#:display:x11:line-style-vector 'setf-inverse) '#:display:x11:line-style-vector)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:line-style-vector (struct . valeur) (ifn valeur (list 'vref struct 28) (list 'vset struct 28 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:pattern-vector '#:display:x11:pattern-vector 'setf-inverse) '#:display:x11:pattern-vector)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:pattern-vector (struct . valeur) (ifn valeur (list 'vref struct 29) (list 'vset struct 29 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:cursor-vector '#:display:x11:cursor-vector 'setf-inverse) '#:display:x11:cursor-vector)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:cursor-vector (struct . valeur) (ifn valeur (list 'vref struct 30) (list 'vset struct 30 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:font-vector '#:display:x11:font-vector 'setf-inverse) '#:display:x11:font-vector)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:font-vector (struct . valeur) (ifn valeur (list 'vref struct 31) (list 'vset struct 31 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:display:x11:mode-vector '#:display:x11:mode-vector 'setf-inverse) '#:display:x11:mode-vector)))
(if (featurep 'compiler) (progn (defmacro-open #:display:x11:mode-vector (struct . valeur) (ifn valeur (list 'vref struct 32) (list 'vset struct 32 (car valeur))))))
(putprop '#:x11:extend '((() () () () () ()) view-rect offset-x offset-y visible xwindow xgraph-env) 'defstruct)
(loader'((fentry #:x11:extend:make subr0)
(entry #:x11:extend:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '6 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:x11:extend)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:view-rect '#:x11:extend:view-rect 'setf-inverse) '#:x11:extend:view-rect)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:view-rect (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:offset-x '#:x11:extend:offset-x 'setf-inverse) '#:x11:extend:offset-x)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:offset-x (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:offset-y '#:x11:extend:offset-y 'setf-inverse) '#:x11:extend:offset-y)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:offset-y (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:visible '#:x11:extend:visible 'setf-inverse) '#:x11:extend:visible)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:visible (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:xwindow '#:x11:extend:xwindow 'setf-inverse) '#:x11:extend:xwindow)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:xwindow (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:extend:xgraph-env '#:x11:extend:xgraph-env 'setf-inverse) '#:x11:extend:xgraph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:extend:xgraph-env (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(putprop '#:x11:bitmap '((() ()) window xbitmap) 'defstruct)
(loader'((fentry #:x11:bitmap:make subr0)
(entry #:x11:bitmap:make subr0)
(push (@ 101))
(push nil)
(push nil)
(mov '2 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:x11:bitmap)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:x11:bitmap:window '#:x11:bitmap:window 'setf-inverse) '#:x11:bitmap:window)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:bitmap:window (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:bitmap:xbitmap '#:x11:bitmap:xbitmap 'setf-inverse) '#:x11:bitmap:xbitmap)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:bitmap:xbitmap (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(putprop '#:x11:menu '((() () ()) invertedx invertedy window) 'defstruct)
(loader'((fentry #:x11:menu:make subr0)
(entry #:x11:menu:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(mov '3 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:x11:menu)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:x11:menu:invertedx '#:x11:menu:invertedx 'setf-inverse) '#:x11:menu:invertedx)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:menu:invertedx (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:menu:invertedy '#:x11:menu:invertedy 'setf-inverse) '#:x11:menu:invertedy)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:menu:invertedy (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:x11:menu:window '#:x11:menu:window 'setf-inverse) '#:x11:menu:window)))
(if (featurep 'compiler) (progn (defmacro-open #:x11:menu:window (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((entry ←initialise subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←initialise))))
(push '1)
(push a1)
(push '0)
(push a2)
(push '0)
(push a3)
(push '0)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←bitprologue nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitprologue))))
(push '0)
(push (& 8))
(push '3)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '0)
(push (& 12))
(push '0)
(push (& 13))
(push '0)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(jmp loc)
))
(loader'((entry ←init←pixels nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←init←pixels))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←bitepilogue subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitepilogue))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←bitmap←flush subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitmap←flush))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←bitmap←sync subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitmap←sync))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←bitmap←refresh subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitmap←refresh))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←root←window subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←root←window))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry ←current←window nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←window))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←pop←window subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←pop←window))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←move←behind←window subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←move←behind←window))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←kill←window subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←kill←window))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←find←window subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←find←window))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←map←window nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←map←window))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '0)
(push (& 13))
(push '0)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←eventp subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←eventp))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←flush←event subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←flush←event))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←grab←event subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←grab←event))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←ungrab←event subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←ungrab←event))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←read←event subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←read←event))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '4)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←peek←event subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←peek←event))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '4)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←read←mouse subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←read←mouse))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '4)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←current←clip nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←clip))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←current←font subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←font))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←load←font subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←load←font))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '3)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(jmp loc)
))
(loader'((entry ←draw←cn nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←cn))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←draw←string nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←string))))
(push '1)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '3)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((entry ←width←string nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←width←string))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '3)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←height←string nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←height←string))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '3)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←x←base←string nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←x←base←string))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '3)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←y←base←string nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←y←base←string))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '3)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←clear←graph←env nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←clear←graph←env))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←current←line←style subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←line←style))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←current←mode subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←mode))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←current←pattern subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←pattern))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←draw←point subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←point))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←draw←polymarker nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←polymarker))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(push (& 8))
(push '4)
(push (& 9))
(push '4)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←draw←line nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←line))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←draw←rectangle nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←rectangle))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←draw←ellipse nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←ellipse))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←draw←polyline nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←draw←polyline))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(push (& 8))
(push '4)
(push (& 9))
(push '4)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←fill←rectangle nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←fill←rectangle))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←fill←ellipse nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←fill←ellipse))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←fill←area nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←fill←area))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '4)
(push (& 10))
(push '4)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←create←bitmap subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←create←bitmap))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(jmp loc)
))
(loader'((entry ←kill←bitmap subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←kill←bitmap))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←get←bit←line nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←get←bit←line))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '3)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←set←bit←line nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←set←bit←line))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '3)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←bmref nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bmref))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←bmset nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bmset))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←default←gc subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←default←gc))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry ←pixmap←to←bitmap nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←pixmap←to←bitmap))))
(push '0)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(jmp loc)
))
(loader'((entry ←current←cursor subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←cursor))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←create←cursor subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←create←cursor))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(jmp loc)
))
(loader'((entry ←move←cursor subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←move←cursor))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←make←color nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←make←color))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '4)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry ←make←mutable←color nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←make←mutable←color))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry ←make←named←color subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←make←named←color))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '3)
(push (& 8))
(push '4)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←kill←color subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←kill←color))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←current←foreground subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←foreground))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←current←background subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←current←background))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←color←component nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←color←component))))
(push '0)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry ←get←default subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←get←default))))
(push '3)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '3)
(push (& 8))
(push '3)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry ←activate←window subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←activate←window))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry ←bitblit nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←bitblit))))
(push '1)
(mov (& 12) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 13) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 14) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(push (& 18))
(push '1)
(push (& 19))
(push '1)
(push (& 20))
(push '1)
(mov (& 21) a1)
(jcall vag)
(push a1)
(push '0)
(mov '22 a4)
(jmp callextern)
101
(eval ())
(adjstk '10)
(return)
))
(loader'((entry ←create←graph←env nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←create←graph←env))))
(push '0)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 10) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 11) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov (& 14) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 15))
(push '1)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(jmp loc)
))
(loader'((entry ←create←window nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←create←window))))
(push '0)
(mov (& 12) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 13))
(push '0)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(push (& 18))
(push '3)
(push (& 19))
(push '1)
(push (& 20))
(push '1)
(mov (& 21) a1)
(jcall vag)
(push a1)
(push '0)
(mov '22 a4)
(jmp callextern)
101
(eval ())
(adjstk '10)
(jmp loc)
))
(loader'((entry ←create←subwindow nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←create←subwindow))))
(push '0)
(mov (& 10) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 11))
(push '0)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(mov (& 17) a1)
(jcall vag)
(push a1)
(push '0)
(mov '18 a4)
(jmp callextern)
101
(eval ())
(adjstk '8)
(jmp loc)
))
(loader'((entry ←modify←window nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←modify←window))))
(push '1)
(mov (& 17) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 18) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 19))
(push '1)
(push (& 20))
(push '1)
(push (& 21))
(push '1)
(push (& 22))
(push '1)
(push (& 23))
(push '1)
(push (& 24))
(push '1)
(push (& 25))
(push '1)
(push (& 26))
(push '1)
(push (& 27))
(push '3)
(push (& 28))
(push '1)
(push (& 29))
(push '1)
(push (& 30))
(push '1)
(push (& 31))
(push '1)
(mov '32 a4)
(jmp callextern)
101
(eval ())
(adjstk '15)
(return)
))
(loader'((entry ←make←cursor nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←make←cursor))))
(push '0)
(mov (& 13) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 14) a1)
(jcall vag)
(push a1)
(push '0)
(mov (& 15) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(push (& 18))
(push '1)
(push (& 19))
(push '1)
(push (& 20))
(push '1)
(push (& 21))
(push '1)
(push (& 22))
(push '1)
(push (& 23))
(push '1)
(mov '24 a4)
(jmp callextern)
101
(eval ())
(adjstk '11)
(jmp loc)
))
(if (not (boundp '#:display:x11:xmax)) (progn (defvar #:display:x11:xmax)))
(if (not (boundp '#:display:x11:ymax)) (progn (defvar #:display:x11:ymax)))
(if (not (boundp '#:display:x11:fd)) (progn (defvar #:display:x11:fd)))
(loader'((fentry #:display:x11:bitprologue subr1)
(entry #:display:x11:bitprologue subr1)
(push a1)
(push '0)
(push '0)
(push '0)
(push (cvalq #:display:x11:fd))
(mov (& 1) (cvalq #:display:x11:fd))
(push (cvalq #:display:x11:ymax))
(mov (& 3) (cvalq #:display:x11:ymax))
(push (cvalq #:display:x11:xmax))
(mov (& 5) (cvalq #:display:x11:xmax))
(push '3)
(push '(#:display:x11:fd #:display:x11:ymax #:display:x11:xmax))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(hpxmov a1 '6 a4)
(bfnil a4 101)
(hpxmov a1 '2 a4)
(bfnil a4 104)
(push a1)
(mov '"DISPLAY" a1)
(jcall getenv)
(pop a4)
(hpmovx a1 a4 '2)
(hpxmov (& 12) '2 a4)
(bfnil a4 104)
(mov '"DISPLAY" a3)
(mov '"unbound shell variable" a2)
(mov '#:display:x11:bitprologue a1)
(jcall error)
104
(mov (& 12) a1)
(call #:display:x11:initialise)
(push (@ 107))
(push (@ 108))
(hpxmov (& 14) '2 a4)
(push a4)
(mov '1 a4)
(jmp catenate)
108
(eval ())
(push a1)
(mov (& 14) a1)
(call #:display:x11:event-mask)
(push a1)
(btnil (cvalq #:display:x11:override-redirect) 109)
(mov '1 a4)
(bra 110)
109
(mov '0 a4)
110
(push a4)
(push '#:display:x11:xmax)
(push '#:display:x11:ymax)
(push '#:display:x11:fd)
(mov '6 a4)
(bra ←bitprologue)
107
(eval ())
(hpmovx a1 (& 12) '21)
(hpmovx (cvalq #:display:x11:xmax) (& 12) '3)
(hpmovx (cvalq #:display:x11:ymax) (& 12) '4)
(mov (& 12) a1)
(call #:display:x11:init-color)
(mov (& 12) a1)
(call #:display:x11:init-cursor)
(mov (& 12) a1)
(call #:display:x11:init-font)
(mov (& 12) a1)
(call #:display:x11:init-line-style)
(mov (& 12) a1)
(call #:display:x11:init-pattern)
(mov (& 12) a1)
(call #:display:x11:init-window)
(mov (cvalq #:display:x11:fd) a2)
(mov (& 12) a1)
(call #:display:x11:init-file-descriptor)
(hpmovx nil (& 12) '24)
(mov (& 12) a1)
(bra 102)
101
(mov nil a1)
102
(mov (& 1) dlink)
(mov (& 6) (cvalq #:display:x11:xmax))
(mov (& 7) (cvalq #:display:x11:ymax))
(mov (& 8) (cvalq #:display:x11:fd))
(adjstk '13)
(return)
))
(loader'((fentry #:display:x11:bitepilogue subr1)
(entry #:display:x11:bitepilogue subr1)
(push a1)
(hpxmov a1 '6 a4)
(btnil a4 101)
(hpmovx nil a1 '31)
(hpmovx nil a1 '28)
(hpmovx nil a1 '29)
(hpmovx nil a1 '32)
(hpmovx nil a1 '30)
(hpmovx nil a1 '24)
(hpmovx nil a1 '25)
(hpmovx nil a1 '27)
(hpmovx nil a1 '24)
(hpxmov a1 '22 a1)
(jcall 2**)
(mov (cvalq #:display:x11:file-descriptor-mask) a4)
(lxor a1 a4)
(mov a4 (cvalq #:display:x11:file-descriptor-mask))
(hpmovx '0 (& 0) '22)
(hpmovx nil (& 0) '23)
(hpxmov (& 0) '21 a1)
(adjstk '1)
(bra ←bitepilogue)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:bitmap-save subr1)
(entry #:display:x11:bitmap-save subr1)
(jmp #:display:x11:bitepilogue)
))
(loader'((fentry #:display:x11:bitmap-restore subr1)
(entry #:display:x11:bitmap-restore subr1)
(jmp #:display:x11:bitprologue)
))
(loader'((fentry #:display:x11:bitmap-refresh subr1)
(entry #:display:x11:bitmap-refresh subr1)
(push a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '30 a2)
(hpxmov (& 0) '8 a4)
(hpxmov a4 '11 a4)
(hpxmov a2 a4 a2)
(adjstk '1)
(bra ←bitmap←refresh)
))
(loader'((fentry #:display:x11:bitmap-flush subr1)
(entry #:display:x11:bitmap-flush subr1)
(hpxmov a1 '21 a1)
(bra ←bitmap←flush)
))
(loader'((fentry #:display:x11:bitmap-sync subr1)
(entry #:display:x11:bitmap-sync subr1)
(hpxmov a1 '21 a1)
(bra ←bitmap←sync)
))
(loader'((fentry #:display:x11:standard-roman-font subr1)
(entry #:display:x11:standard-roman-font subr1)
(mov '0 a1)
(return)
))
(loader'((fentry #:display:x11:standard-bold-font subr1)
(entry #:display:x11:standard-bold-font subr1)
(mov '1 a1)
(return)
))
(loader'((fentry #:display:x11:large-roman-font subr1)
(entry #:display:x11:large-roman-font subr1)
(mov '2 a1)
(return)
))
(loader'((fentry #:display:x11:small-roman-font subr1)
(entry #:display:x11:small-roman-font subr1)
(mov '3 a1)
(return)
))
(loader'((fentry #:display:x11:standard-background-pattern subr1)
(entry #:display:x11:standard-background-pattern subr1)
(mov '0 a1)
(return)
))
(loader'((fentry #:display:x11:standard-foreground-pattern subr1)
(entry #:display:x11:standard-foreground-pattern subr1)
(mov '1 a1)
(return)
))
(loader'((fentry #:display:x11:standard-medium-gray-pattern subr1)
(entry #:display:x11:standard-medium-gray-pattern subr1)
(mov '2 a1)
(return)
))
(loader'((fentry #:display:x11:standard-light-gray-pattern subr1)
(entry #:display:x11:standard-light-gray-pattern subr1)
(mov '3 a1)
(return)
))
(loader'((fentry #:display:x11:standard-dark-gray-pattern subr1)
(entry #:display:x11:standard-dark-gray-pattern subr1)
(mov '4 a1)
(return)
))
(loader'((fentry #:display:x11:standard-lelisp-cursor subr1)
(entry #:display:x11:standard-lelisp-cursor subr1)
(mov '0 a1)
(return)
))
(loader'((fentry #:display:x11:standard-gc-cursor subr1)
(entry #:display:x11:standard-gc-cursor subr1)
(mov '1 a1)
(return)
))
(loader'((fentry #:display:x11:standard-busy-cursor subr1)
(entry #:display:x11:standard-busy-cursor subr1)
(mov '2 a1)
(return)
))
(loader'((entry #:display:x11:initialise subr1)
(hpmovx '((-248 . backspace) (-247 . tab) (-246 . linefeed) (-245 . clear) (-243 . return) (-237 . pause) (-229 . escape) (-1 . delete) (-224 . multi-key) (-223 . kanji) (-176 . home) (-175 . left) (-174 . up) (-173 . right) (-172 . down) (-171 . prior) (-170 . next) (-169 . end) (-168 . begin) (-160 . select) (-159 . print) (-158 . execute) (-157 . insert) (-155 . undo) (-154 . redo) (-153 . menu) (-152 . find) (-151 . cancel) (-150 . help) (-149 . break) (-130 . mode-switch) (-130 . script-switch) (-129 . num-lock) (-128 . kp-space) (-119 . kp-tab) (-115 . kp-enter) (-111 . kp-f1) (-110 . kp-f2) (-109 . kp-f3) (-108 . kp-f4) (-67 . kp-equal) (-86 . kp-multiply) (-85 . kp-add) (-84 . kp-separator) (-83 . kp-subtract) (-82 . kp-decimal) (-81 . kp-divide) (-80 . kp-0) (-79 . kp-1) (-78 . kp-2) (-77 . kp-3) (-76 . kp-4) (-75 . kp-5) (-74 . kp-6) (-73 . kp-7) (-72 . kp-8) (-71 . kp-9) (-66 . f1) (-65 . f2) (-64 . f3) (-63 . f4) (-62 . f5) (-61 . f6) (-60 . f7) (-59 . f8) (-58 . f9) (-57 . f10) (-56 . f11) (-56 . l1) (-55 . f12) (-55 . l2) (-54 . f13) (-54 . l3) (-53 . f14) (-53 . l4) (-52 . f15) (-52 . l5) (-51 . f16) (-51 . l6) (-50 . f17) (-50 . l7) (-49 . f18) (-49 . l8) (-48 . f19) (-48 . l9) (-47 . f20) (-47 . l10) (-46 . f21) (-46 . r1) (-45 . f22) (-45 . r2) (-44 . f23) (-44 . r3) (-43 . f24) (-43 . r4) (-42 . f25) (-42 . r5) (-41 . f26) (-41 . r6) (-40 . f27) (-40 . r7) (-39 . f28) (-39 . r8) (-38 . f29) (-38 . r9) (-37 . f30) (-37 . r10) (-36 . f31) (-36 . r11) (-35 . f32) (-35 . r12) (-34 . r13) (-34 . f33) (-33 . f34) (-33 . r14) (-32 . f35) (-32 . r15) (-31 . shift-l) (-30 . shift-r) (-29 . control-l) (-28 . control-r) (-27 . caps-lock) (-26 . shift-lock) (-25 . meta-l) (-24 . meta-r) (-23 . alt-l) (-22 . alt-r) (-21 . super-l) (-20 . super-r) (-19 . hyper-l) (-18 . hyper-r)) a1 '27)
(mov 'error a3)
(mov 'errx a2)
(mov nil a1)
(bra ←initialise)
))
(loader'((entry #:display:x11:event-mask subr1)
(push a1)
(push (cvalq #:display:x11:events-list))
(bfnil (& 0) 101)
(push (@ 103))
(push 'ascii-event)
(push 'functionkey-event)
(push 'down-event)
(push 'up-event)
(push 'move-event)
(push 'drag-event)
(push 'enterwindow-event)
(push 'leavewindow-event)
(mov '8 a4)
(jmp list)
103
(eval ())
(mov a1 (& 0))
(bra 102)
101
(mov (& 0) a2)
(mov 'move-event a1)
(jcall memq)
(btnil a1 102)
(mov (& 0) a2)
(mov 'drag-event a1)
(jcall memq)
(bfnil a1 102)
(push 'drag-event)
(push (@ 106))
(push (& 2))
(mov (& 2) a1)
(jcall ncons)
(push a1)
(mov '2 a4)
(jmp nconc)
106
(eval ())
(adjstk '1)
(mov a1 (& 0))
(mov a1 (& 0))
102
(hpmovx (& 0) (& 1) '26)
(push '0)
107
(btnil (& 1) 108)
(mov (& 1) a1)
(mov (cdr a1) (& 1))
(mov (car a1) a1)
(cabne a1 'ascii-event 110)
(mov (& 0) a4)
(lor '1 a4)
(mov a4 (& 0))
(bra 107)
110
(cabne a1 'functionkey-event 111)
(mov (& 0) a4)
(lor '1 a4)
(mov a4 (& 0))
(bra 107)
111
(cabne a1 'down-event 112)
(mov (& 0) a4)
(lor '4 a4)
(mov a4 (& 0))
(bra 107)
112
(cabne a1 'up-event 113)
(mov (& 0) a4)
(lor '8 a4)
(mov a4 (& 0))
(bra 107)
113
(cabne a1 'enterwindow-event 114)
(mov (& 0) a4)
(lor '16 a4)
(mov a4 (& 0))
(bra 107)
114
(cabne a1 'leavewindow-event 115)
(mov (& 0) a4)
(lor '32 a4)
(mov a4 (& 0))
(bra 107)
115
(cabne a1 'drag-event 116)
(mov (& 0) a4)
(lor '8192 a4)
(mov a4 (& 0))
(bra 107)
116
(cabne a1 'move-event 107)
(mov (& 0) a4)
(lor '64 a4)
(mov a4 (& 0))
(bra 107)
108
(mov (& 0) a1)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:init-font subr1)
(push a1)
(hpmovx '#[] a1 '31)
(mov '"vtsingle" a3)
(mov '"font" a2)
(call #:display:x11:add-a-font)
(mov '"vtbold" a3)
(mov '"attributefont" a2)
(mov (& 0) a1)
(call #:display:x11:add-a-font)
(mov '"6x10" a3)
(mov '"smallfont" a2)
(mov (& 0) a1)
(call #:display:x11:add-a-font)
(mov '"swd-s30" a3)
(mov '"largefont" a2)
(mov (& 0) a1)
(adjstk '1)
(bra #:display:x11:add-a-font)
))
(loader'((entry #:display:x11:add-a-font subr3)
(push a3)
(push a1)
(hpxmov a1 '21 a1)
(mov a2 a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(hgsize a1 a4)
(cabne '0 a4 102)
(mov (& 2) (& 0))
102
(hpxmov (& 1) '9 a2)
(mov (& 0) a3)
(mov (& 1) a1)
(jcall #:display:x11:load-font)
(hpxmov (& 1) '18 a3)
(mov a1 a2)
(mov (& 0) a1)
(jcall acons)
(hpmovx a1 (& 1) '18)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:init-line-style subr1)
(hpmovx '#[#[0 0] #[1 0] #[1 1] #[1 2] #[2 0] #[2 1] #[2 2]] a1 '28)
(mov '#[#[0 0] #[1 0] #[1 1] #[1 2] #[2 0] #[2 1] #[2 2]] a1)
(return)
))
(loader'((entry #:display:x11:init-pattern subr1)
(push a1)
(hpmovx '#[] a1 '29)
(push (@ 101))
(push a1)
(push '16)
(push '16)
(push '#[#*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000 #*0000])
(mov '4 a4)
(bra #:display:x11:add-a-pattern)
101
(eval ())
(push (@ 102))
(push (& 1))
(push '16)
(push '16)
(push '#[#*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF #*FFFF])
(mov '4 a4)
(bra #:display:x11:add-a-pattern)
102
(eval ())
(push (@ 103))
(push (& 1))
(push '16)
(push '16)
(push '#[#*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555 #*AAAA #*5555])
(mov '4 a4)
(bra #:display:x11:add-a-pattern)
103
(eval ())
(push (@ 104))
(push (& 1))
(push '16)
(push '16)
(push '#[#*8888 #*2222 #*8888 #*2222 #*8888 #*2222 #*8888 #*2222 #*8888 #*2222 #*8888 #*2222 #*8888 #*2222 #*8888 #*2222])
(mov '4 a4)
(bra #:display:x11:add-a-pattern)
104
(eval ())
(push (@ 105))
(push (& 1))
(push '16)
(push '16)
(push '#[#*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD #*7777 #*DDDD])
(mov '4 a4)
(bra #:display:x11:add-a-pattern)
105
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:display:x11:add-a-pattern nsubr)
(jcall #:bitmap:make)
(push a1)
(hpmovx (& 3) a1 '0)
(hpmovx (& 2) a1 '1)
(hpmovx (& 4) a1 '3)
(mov a1 a2)
(mov (& 4) a1)
(jcall #:display:x11:create-bitmap)
(push (@ 101))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp #:bitmap:bits)
101
(eval ())
(hpxmov (& 4) '9 a2)
(mov (& 0) a3)
(mov (& 4) a1)
(adjstk '5)
(jmp #:display:x11:make-pattern)
))
(loader'((entry #:display:x11:init-cursor subr1)
(push a1)
(hpmovx '#[0 0 0] a1 '30)
(hpxmov a1 '21 a1)
(mov '"cursor" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(hpxmov (& 1) '21 a1)
(mov '"gccursor" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(hpxmov (& 2) '21 a1)
(mov '"busycursor" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(mov '"" a2)
(mov (& 2) a1)
(jcall eqstring)
(btnil a1 101)
(mov '68 (& 2))
(bra 102)
101
(mov (& 2) a1)
(jcall explode)
(jcall implode)
(mov a1 (& 2))
102
(mov '"" a2)
(mov (& 1) a1)
(jcall eqstring)
(btnil a1 103)
(mov '88 (& 1))
(bra 104)
103
(mov (& 1) a1)
(jcall explode)
(jcall implode)
(mov a1 (& 1))
104
(mov '"" a2)
(mov (& 0) a1)
(jcall eqstring)
(btnil a1 105)
(mov '82 (& 0))
(bra 106)
105
(mov (& 0) a1)
(jcall explode)
(jcall implode)
(mov a1 (& 0))
106
(hpxmov (& 3) '30 a4)
(push a4)
(hpxmov (& 4) '21 a1)
(mov (& 3) a2)
(call ←create←cursor)
(pop a4)
(hpmovx a1 a4 '0)
(hpxmov (& 3) '30 a4)
(push a4)
(hpxmov (& 4) '21 a1)
(mov (& 2) a2)
(call ←create←cursor)
(pop a4)
(hpmovx a1 a4 '1)
(hpxmov (& 3) '30 a4)
(push a4)
(hpxmov (& 4) '21 a1)
(mov (& 1) a2)
(call ←create←cursor)
(pop a4)
(hpmovx a1 a4 '2)
(adjstk '3)
(hpmovx nil (& 0) '20)
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry #:display:x11:init-color subr1)
(push a1)
(hpxmov a1 '21 a1)
(mov '"foreground" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(hpxmov (& 1) '21 a1)
(mov '"background" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(hpxmov (& 2) '21 a1)
(mov '"reversevideo" a3)
(mov '"lelisp" a2)
(call ←get←default)
(push a1)
(jcall #:color:make)
(push a1)
(jcall #:color:make)
(push nil)
(push a1)
(mov '"" a2)
(mov (& 5) a1)
(jcall eqstring)
(btnil a1 102)
(mov '"black" (& 5))
102
(mov '"" a2)
(mov (& 4) a1)
(jcall eqstring)
(btnil a1 104)
(mov '"white" (& 4))
104
(mov '"on" a2)
(mov (& 3) a1)
(jcall eqstring)
(btnil a1 106)
(mov '"white" (& 5))
(mov '"black" (& 4))
106
(hpmovx (& 5) (& 2) '0)
(hpmovx (& 6) (& 2) '5)
(mov (& 5) a3)
(mov (& 2) a2)
(mov (& 6) a1)
(jcall #:display:x11:make-named-color)
(hpmovx (& 4) (& 0) '0)
(hpmovx (& 6) (& 0) '5)
(mov (& 4) a3)
(mov (& 0) a2)
(mov (& 6) a1)
(jcall #:display:x11:make-named-color)
(hpmovx (& 2) (& 6) '13)
(hpmovx (& 0) (& 6) '12)
(push (@ 107))
(push (& 3))
(push (& 2))
(mov '2 a4)
(jmp list)
107
(eval ())
(hpmovx a1 (& 6) '17)
(hpxmov (& 2) '6 a4)
(hpxmov (& 0) '6 a3)
(cabne a4 a3 108)
(mov '1 a4)
(bra 109)
108
(hpxmov (& 2) '6 a1)
(hpxmov (& 0) '6 a2)
(mov '1 a3)
(call #:display:x11:compute-mask)
(mov a1 a4)
109
(mov a4 (& 1))
(push (@ 110))
(hpxmov (& 7) '21 a3)
(push a3)
(hpxmov (& 4) '6 a3)
(push a3)
(hpxmov (& 3) '6 a3)
(push a3)
(push a4)
(mov '4 a4)
(bra ←init←pixels)
110
(eval ())
(hpxmov (& 2) '6 a4)
(land (& 1) a4)
(cabeq '0 a4 111)
(hpmovx '#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15] (& 6) '32)
(mov '#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15] a1)
(adjstk '7)
(return)
111
(hpmovx '#[15 7 11 3 13 5 9 1 14 6 10 2 12 4 8 0] (& 6) '32)
(mov '#[15 7 11 3 13 5 9 1 14 6 10 2 12 4 8 0] a1)
(adjstk '7)
(return)
))
(loader'((entry #:display:x11:compute-mask subr3)
(push a2)
(push a1)
(land a3 a1)
(land a3 a2)
(cabeq a1 a2 101)
(mov a3 a1)
(adjstk '2)
(return)
101
(lshift '1 a3)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '2)
(bra #:display:x11:compute-mask)
))
(loader'((entry #:display:x11:init-window subr1)
(push a1)
(jcall #:image:rectangle:window:make)
(push a1)
(jcall #:x11:extend:make)
(push nil)
(hpmovx '0 (& 1) '0)
(hpmovx '0 (& 1) '1)
(hpxmov (& 2) '3 a4)
(hpmovx a4 (& 1) '2)
(hpxmov (& 2) '4 a4)
(hpmovx a4 (& 1) '3)
(hpmovx '"root-window" (& 1) '4)
(hpmovx '0 (& 1) '5)
(hpmovx '1 (& 1) '6)
(hpmovx (& 2) (& 1) '12)
(hpmovx a1 (& 1) '8)
(hpxmov (& 1) '8 a4)
(push a4)
(hpxmov (& 3) '21 a1)
(call ←root←window)
(pop a4)
(hpmovx a1 a4 '4)
(mov (& 1) a2)
(mov (& 2) a1)
(call #:display:x11:create-graph-env)
(hpxmov (& 1) '7 a4)
(mov a4 (& 0))
(hpmovx (& 1) (& 2) '10)
(hpmovx a4 (& 2) '11)
(hpxmov (& 2) '13 a3)
(hpmovx a3 a4 '4)
(hpxmov (& 2) '12 a3)
(hpmovx a3 a4 '5)
(hpmovx nil (& 2) '8)
(push (@ 101))
(push (& 2))
(mov '1 a4)
(jmp list)
101
(eval ())
(hpmovx a1 (& 2) '14)
(hpxmov (& 2) '11 a4)
(hpmovx a4 (& 2) '9)
(mov a4 a1)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:init-file-descriptor subr2)
(hpmovx a2 a1 '22)
(mov a2 a1)
(jcall 2**)
(mov (cvalq #:display:x11:file-descriptor-mask) a4)
(lor a1 a4)
(mov a4 (cvalq #:display:x11:file-descriptor-mask))
(mov a4 a1)
(return)
))
(loader'((fentry #:display:x11:create-window subr2)
(entry #:display:x11:create-window subr2)
(push a2)
(push a1)
(hpxmov a2 '0 a4)
(push a4)
(hpxmov a2 '1 a3)
(push a3)
(hpxmov a2 '2 a4)
(push a4)
(hpxmov a2 '3 a4)
(push a4)
(hpxmov a2 '4 a4)
(push a4)
(hpxmov a2 '5 a4)
(push a4)
(hpxmov a2 '6 a4)
(push a4)
(hpxmov a1 '30 a4)
(hpxmov a2 '11 a3)
(hpxmov a4 a3 a4)
(push a4)
(push a2)
(jcall #:x11:extend:make)
(pop a4)
(hpmovx a1 a4 '8)
(hpxmov (& 9) '8 a4)
(push a4)
(push (@ 101))
(hpxmov (& 10) '21 a3)
(push a3)
(push (& 12))
(push (& 11))
(push (& 11))
(push (& 11))
(push (& 11))
(mov (& 11) a1)
(jcall string)
(push a1)
(mov '1 a2)
(mov (& 11) a1)
(jcall eq)
(mov a1 a3)
(bfnil a3 102)
(mov '0 a3)
102
(push a3)
(push (& 11))
(push (& 11))
(mov '10 a4)
(bra ←create←window)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '4)
(push (@ 103))
(push 'set-window-hints)
(push (& 11))
(mov '2 a4)
(jmp send)
103
(eval ())
(cabne (& 1) '1 105)
(hpxmov (& 8) '21 a1)
(hpxmov (& 9) '8 a2)
(hpxmov a2 '4 a2)
(call ←activate←window)
105
(mov (& 9) a2)
(mov (& 8) a1)
(call #:display:x11:create-graph-env)
(mov (& 9) a1)
(adjstk '10)
(return)
))
(loader'((fentry #:display:x11:create-subwindow subr2)
(entry #:display:x11:create-subwindow subr2)
(push a2)
(push a1)
(hpxmov a2 '0 a4)
(push a4)
(hpxmov a2 '1 a3)
(hpxmov a2 '2 a4)
(push a4)
(hpxmov a2 '3 a4)
(push a4)
(hpxmov a2 '6 a4)
(push a4)
(hpxmov a2 '9 a4)
(push a4)
(push a3)
(push a2)
(jcall #:x11:extend:make)
(pop a4)
(hpmovx a1 a4 '8)
(hpxmov (& 7) '8 a4)
(push a4)
(push (@ 101))
(hpxmov (& 8) '21 a3)
(push a3)
(push (& 10))
(push (& 9))
(push (& 5))
(push (& 10))
(push (& 10))
(push (& 10))
(hpxmov (& 10) '8 a3)
(hpxmov a3 '4 a3)
(push a3)
(mov '8 a4)
(bra ←create←subwindow)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '4)
(mov (& 7) a2)
(mov (& 6) a1)
(call #:display:x11:create-graph-env)
(mov (& 7) a1)
(adjstk '8)
(return)
))
(loader'((fentry #:display:x11:current-window subr2)
(entry #:display:x11:current-window subr2)
(push a2)
(hpxmov a2 '8 a4)
(hpxmov a4 '3 a4)
(hpmovx a4 a1 '25)
(push (@ 101))
(hpxmov a1 '21 a4)
(push a4)
(mov a2 a1)
(call #:display:x11:top-window)
(hpxmov a1 '8 a4)
(hpxmov a4 '4 a4)
(push a4)
(hpxmov (& 3) '8 a4)
(hpxmov a4 '5 a4)
(push a4)
(hpxmov (& 4) '8 a4)
(hpxmov a4 '1 a4)
(push a4)
(hpxmov (& 5) '8 a4)
(hpxmov a4 '2 a4)
(push a4)
(mov '5 a4)
(bra ←current←window)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:uncurrent-window subr2)
(entry #:display:x11:uncurrent-window subr2)
(hpmovx nil a1 '25)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:modify-window nsubr)
(entry #:display:x11:modify-window nsubr)
(cnbeq a4 '9 0)
(mov '#:display:x11:modify-window a1)
(mov '9 a2)
(jmp #:llcp:errwna)
0
(btnil (& 6) 102)
(hpmovx (& 6) (& 7) '0)
102
(btnil (& 5) 104)
(hpmovx (& 5) (& 7) '1)
104
(btnil (& 4) 106)
(hpmovx (& 4) (& 7) '2)
106
(btnil (& 3) 108)
(hpmovx (& 3) (& 7) '3)
108
(btnil (& 2) 110)
(hpmovx (& 2) (& 7) '4)
110
(btnil (& 1) 112)
(hpmovx (& 1) (& 7) '5)
112
(btnil (& 0) 114)
(hpmovx (& 0) (& 7) '6)
114
(push (@ 115))
(hpxmov (& 9) '21 a4)
(push a4)
(hpxmov (& 9) '8 a4)
(hpxmov a4 '4 a4)
(push a4)
(bfnil (& 9) 118)
(btnil (& 8) 116)
118
(mov '1 a4)
(bra 117)
116
(mov '0 a4)
117
(push a4)
(hpxmov (& 11) '0 a4)
(push a4)
(hpxmov (& 12) '1 a4)
(push a4)
(bfnil (& 10) 121)
(btnil (& 9) 119)
121
(mov '1 a4)
(bra 120)
119
(mov '0 a4)
120
(push a4)
(hpxmov (& 14) '2 a4)
(push a4)
(hpxmov (& 15) '3 a4)
(push a4)
(hpxmov (& 16) '9 a4)
(btnil a4 122)
(mov '0 a4)
(bra 123)
122
(mov '1 a4)
123
(push a4)
(btnil (& 12) 124)
(mov '1 a4)
(bra 125)
124
(mov '0 a4)
125
(push a4)
(hpxmov (& 18) '4 a4)
(push a4)
(btnil (& 13) 126)
(mov '1 a4)
(bra 127)
126
(mov '0 a4)
127
(push a4)
(hpxmov (& 20) '5 a4)
(push a4)
(btnil (& 14) 128)
(mov '1 a4)
(bra 129)
128
(mov '0 a4)
129
(push a4)
(hpxmov (& 22) '6 a4)
(push a4)
(mov '15 a4)
(bra ←modify←window)
115
(eval ())
(mov (& 7) a2)
(mov (& 8) a1)
(call #:display:x11:set-clip-for-subwindows)
(hpxmov (& 8) '8 a4)
(cabne (& 7) a4 131)
(mov (& 7) a2)
(mov (& 8) a1)
(jcall #:display:x11:current-window)
131
(push (@ 132))
(push 'modify-window-hints)
(push (& 9))
(mov '2 a4)
(jmp send)
132
(eval ())
(adjstk '9)
(return)
))
(loader'((fentry #:display:x11:update-window nsubr)
(entry #:display:x11:update-window nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:update-window a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(btnil (& 3) 102)
(hpmovx (& 3) (& 4) '0)
102
(btnil (& 2) 104)
(hpmovx (& 2) (& 4) '1)
104
(btnil (& 1) 106)
(hpmovx (& 1) (& 4) '2)
106
(btnil (& 0) 108)
(hpmovx (& 0) (& 4) '3)
108
(mov (& 4) a2)
(mov (& 5) a1)
(call #:display:x11:set-clip-for-subwindows)
(hpxmov (& 5) '8 a4)
(cabne (& 4) a4 110)
(mov (& 4) a2)
(mov (& 5) a1)
(jcall #:display:x11:current-window)
110
(push (@ 111))
(push 'modify-window-hints)
(push (& 6))
(mov '2 a4)
(jmp send)
111
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:kill-window subr2)
(entry #:display:x11:kill-window subr2)
(push a2)
(hpxmov a1 '21 a1)
(hpxmov a2 '8 a2)
(hpxmov a2 '4 a2)
(hpxmov (& 0) '8 a3)
(hpxmov a3 '5 a3)
(call ←kill←window)
(hpxmov (& 0) '8 a4)
(hpmovx nil a4 '4)
(hpxmov (& 0) '8 a4)
(hpmovx nil a4 '5)
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:pop-window subr2)
(entry #:display:x11:pop-window subr2)
(hpxmov a1 '21 a1)
(hpxmov a2 '8 a2)
(hpxmov a2 '4 a2)
(bra ←pop←window)
))
(loader'((fentry #:display:x11:move-behind-window subr3)
(entry #:display:x11:move-behind-window subr3)
(hpxmov a1 '21 a1)
(hpxmov a2 '8 a2)
(hpxmov a2 '4 a2)
(bra ←move←behind←window)
))
(loader'((fentry #:display:x11:current-keyboard-focus-window subr2)
(entry #:display:x11:current-keyboard-focus-window subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:uncurrent-keyboard-focus-window subr2)
(entry #:display:x11:uncurrent-keyboard-focus-window subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:find-window subr3)
(entry #:display:x11:find-window subr3)
(hpxmov a1 '21 a1)
(bra ←find←window)
))
(loader'((fentry #:display:x11:map-window nsubr)
(entry #:display:x11:map-window nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:map-window a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '21 a4)
(push a4)
(hpxmov (& 6) '8 a4)
(hpxmov a4 '4 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(bra ←map←window)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:image:rectangle:window:set-window-hints subr1)
(entry #:image:rectangle:window:set-window-hints subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:image:rectangle:window:modify-window-hints subr1)
(entry #:image:rectangle:window:modify-window-hints subr1)
(mov nil a1)
(return)
))
(loader'((entry #:display:x11:create-graph-env subr2)
(push a2)
(push a1)
(jcall #:graph-env:make)
(push a1)
(hpmovx a1 (& 2) '7)
(hpmovx '1 a1 '2)
(hpmovx '0 a1 '6)
(hpmovx '0 a1 '7)
(hpxmov (& 2) '2 a4)
(hpmovx a4 a1 '8)
(hpxmov (& 2) '3 a4)
(hpmovx a4 a1 '9)
(hpxmov (& 1) '11 a4)
(btnil a4 102)
(hpxmov (& 1) '11 a4)
(hpxmov a4 '4 a4)
(hpmovx a4 a1 '4)
(hpxmov (& 1) '11 a4)
(hpxmov a4 '5 a4)
(hpmovx a4 a1 '5)
102
(hpmovx (& 1) a1 '11)
(hpxmov (& 2) '8 a4)
(hpmovx a4 a1 '12)
(hpxmov (& 1) '31 a4)
(hpxmov a1 '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(hpxmov (& 2) '28 a3)
(hpxmov a1 '1 a2)
(hpxmov a3 a2 a3)
(push a3)
(hpxmov (& 3) '29 a2)
(hpxmov a1 '2 a4)
(hpxmov a2 a4 a2)
(hpxmov (& 3) '32 a4)
(hpxmov a1 '3 a3)
(hpxmov a4 a3 a4)
(push a4)
(push a2)
(hpxmov (& 6) '8 a3)
(push a3)
(push (@ 103))
(hpxmov (& 7) '21 a4)
(push a4)
(mov (& 9) a1)
(call #:display:x11:top-window)
(hpxmov a1 '8 a4)
(hpxmov a4 '4 a4)
(push a4)
(push (& 7))
(hpxmov (& 7) '0 a4)
(push a4)
(hpxmov (& 8) '1 a4)
(push a4)
(push (& 7))
(push (& 9))
(mov '7 a4)
(bra ←create←graph←env)
103
(eval ())
(pop a4)
(hpmovx a1 a4 '5)
(adjstk '4)
(hpxmov (& 0) '12 a4)
(push a4)
(jcall #:image:rectangle:make)
(pop a4)
(hpmovx a1 a4 '0)
(mov (& 2) a2)
(mov (& 1) a1)
(call #:display:x11:set-clip-for-window)
(mov (& 0) a1)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:set-offsets subr1)
(hpxmov a1 '9 a4)
(push a4)
(hpxmov a1 '8 a3)
(btnil a4 101)
(hpxmov a1 '0 a2)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(plus a4 a2)
(bra 102)
101
(mov '0 a2)
102
(hpmovx a2 a3 '1)
(hpxmov a1 '8 a4)
(btnil (& 0) 103)
(hpxmov a1 '1 a3)
(hpxmov (& 0) '8 a2)
(hpxmov a2 '2 a2)
(plus a2 a3)
(bra 104)
103
(mov '0 a3)
104
(hpmovx a3 a4 '2)
(mov a3 a1)
(adjstk '1)
(return)
))
(loader'((entry #:display:x11:set-view-rectangle subr1)
(push a1)
(hpxmov a1 '7 a4)
(push a4)
(hpxmov a1 '9 a3)
(push a3)
(hpxmov a4 '12 a2)
(hpxmov a2 '0 a2)
(push a2)
(hpmovx '0 a2 '0)
(hpmovx '0 a2 '1)
(hpxmov a1 '2 a4)
(hpmovx a4 a2 '2)
(hpxmov a1 '3 a4)
(hpmovx a4 a2 '3)
(hpxmov (& 2) '12 a4)
(push a4)
(push (@ 101))
(push a2)
(hpxmov (& 5) '6 a4)
(push a4)
(hpxmov (& 6) '7 a4)
(push a4)
(hpxmov (& 7) '8 a4)
(push a4)
(hpxmov (& 8) '9 a4)
(push a4)
(mov '5 a4)
(bra #:display:x11:intersect)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '0)
(btnil (& 1) 102)
(hpxmov (& 2) '12 a4)
(push a4)
(push (@ 104))
(push (& 2))
(hpxmov (& 4) '7 a3)
(hpxmov a3 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '0 a3)
(hpxmov (& 6) '0 a2)
(diff a2 a3)
(push a3)
(hpxmov (& 5) '7 a3)
(hpxmov a3 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '1 a3)
(hpxmov (& 7) '1 a2)
(diff a2 a3)
(push a3)
(hpxmov (& 6) '7 a3)
(hpxmov a3 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '2 a3)
(push a3)
(hpxmov (& 7) '7 a3)
(hpxmov a3 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '3 a3)
(push a3)
(mov '5 a4)
(bra #:display:x11:intersect)
104
(eval ())
(pop a4)
(hpmovx a1 a4 '0)
(adjstk '4)
(return)
102
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((entry #:display:x11:set-visibility subr1)
(hpxmov a1 '9 a4)
(hpxmov a1 '7 a3)
(hpxmov a3 '12 a3)
(hpxmov a3 '0 a3)
(push a3)
(hpxmov a1 '8 a2)
(push a2)
(btnil a4 101)
(hpxmov a4 '8 a4)
(hpxmov a4 '3 a4)
(btnil a4 102)
(hpxmov a1 '6 a2)
(mov '1 a1)
(jcall eq)
(mov a1 a4)
(btnil a4 102)
(hpxmov (& 1) '2 a1)
(mov '0 a2)
(jcall gt)
(mov a1 a4)
(btnil a4 102)
(hpxmov (& 1) '3 a1)
(mov '0 a2)
(jcall gt)
(mov a1 a4)
(bra 102)
101
(hpxmov a1 '6 a2)
(mov '1 a1)
(jcall eq)
(mov a1 a4)
102
(pop a3)
(hpmovx a4 a3 '3)
(mov a4 a1)
(adjstk '1)
(return)
))
(loader'((entry #:display:x11:set-clip-for-subwindows subr2)
(push a2)
(push a1)
(call #:display:x11:set-clip-for-window)
(hpxmov (& 1) '13 a4)
(push a4)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a2)
(mov (& 2) a1)
(call #:display:x11:set-clip-for-subwindows)
(adjstk '1)
(bra 101)
102
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:set-clip-for-window subr2)
(push a2)
(push a1)
(mov a2 a1)
(call #:display:x11:set-offsets)
(mov (& 1) a1)
(call #:display:x11:set-view-rectangle)
(mov (& 1) a1)
(call #:display:x11:set-visibility)
(hpxmov (& 1) '7 a4)
(push (@ 101))
(hpxmov (& 1) '21 a3)
(push a3)
(hpxmov (& 3) '8 a3)
(hpxmov a3 '5 a3)
(push a3)
(hpxmov a4 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '0 a3)
(hpxmov (& 4) '8 a2)
(hpxmov a2 '1 a2)
(plus a2 a3)
(push a3)
(hpxmov a4 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '1 a3)
(hpxmov (& 5) '8 a2)
(hpxmov a2 '2 a2)
(plus a2 a3)
(push a3)
(hpxmov a4 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '2 a3)
(push a3)
(hpxmov a4 '12 a3)
(hpxmov a3 '0 a3)
(hpxmov a3 '3 a3)
(push a3)
(mov '6 a4)
(bra ←current←clip)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry #:display:x11:intersect nsubr)
(hpxmov (& 4) '0 a4)
(push a4)
(hpxmov (& 5) '1 a3)
(hpxmov (& 5) '2 a2)
(hpxmov (& 5) '3 a1)
(mov (& 4) a4)
(plus (& 2) a4)
(push a4)
(mov (& 4) a4)
(plus (& 2) a4)
(push a4)
(push a1)
(push a2)
(push a3)
(mov (& 9) a2)
(mov (& 5) a1)
(jcall gt)
(mov a1 a4)
(bfnil a4 101)
(mov (& 9) a4)
101
(hpmovx a4 (& 10) '0)
(mov (& 8) a2)
(mov (& 0) a1)
(jcall gt)
(mov a1 a4)
(bfnil a4 102)
(mov (& 8) a4)
102
(hpmovx a4 (& 10) '1)
(mov (& 5) a4)
(plus (& 1) a4)
(mov (& 4) a2)
(mov a4 a1)
(jcall lt)
(mov a1 a4)
(bfnil a4 103)
(mov (& 4) a4)
103
(hpxmov (& 10) '0 a3)
(diff a3 a4)
(hpmovx a4 (& 10) '2)
(mov (& 0) a4)
(plus (& 2) a4)
(mov (& 3) a2)
(mov a4 a1)
(jcall lt)
(mov a1 a4)
(bfnil a4 104)
(mov (& 3) a4)
104
(hpxmov (& 10) '1 a3)
(diff a3 a4)
(hpmovx a4 (& 10) '3)
(mov (& 10) a1)
(adjstk '11)
(return)
))
(loader'((entry #:display:x11:top-window subr1)
(hpxmov a1 '9 a4)
(btnil a4 29999)
(hpxmov a1 '9 a1)
(bra #:display:x11:top-window)
29999
(return)
))
(loader'((fentry #:display:x11:event-mode subr2)
(entry #:display:x11:event-mode subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:flush-event subr1)
(entry #:display:x11:flush-event subr1)
(push a1)
(hpmovx nil a1 '24)
(hpxmov a1 '21 a1)
(call ←flush←event)
(hpmovx nil (& 0) '23)
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:eventp subr1)
(entry #:display:x11:eventp subr1)
(push a1)
(hpxmov a1 '24 a1)
(bfnil a1 101)
(hpxmov (& 0) '21 a1)
(call ←eventp)
(bfnil a1 101)
(hpxmov (& 0) '23 a1)
101
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:read-event subr2)
(entry #:display:x11:read-event subr2)
(push a2)
(push a1)
(hpxmov a1 '24 a4)
(btnil a4 101)
(hpxmov a1 '24 a4)
(push (car a4))
(hpxmov a1 '24 a4)
(hpmovx (cdr a4) a1 '24)
(push (@ 103))
(push a2)
(push '0)
(push (& 3))
(push '0)
(mov '4 a4)
(jmp bltvector)
103
(eval ())
(adjstk '3)
(return)
101
(push (@ 104))
(push a2)
(push '0)
(push nil)
(push '9)
(mov '4 a4)
(jmp fillvector)
104
(eval ())
(hpxmov (& 0) '21 a1)
(mov (& 1) a2)
(call ←read←event)
(hpmovx a1 (& 0) '23)
(cabne '2 a1 105)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '2)
(jmp #:display:x11:read-event)
105
(mov 't a3)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '2)
(bra #:display:x11:parse-event)
))
(loader'((fentry #:display:x11:peek-event subr2)
(entry #:display:x11:peek-event subr2)
(push a2)
(push a1)
(hpxmov a1 '24 a4)
(btnil a4 101)
(push (@ 103))
(push a2)
(push '0)
(hpxmov a1 '24 a4)
(push (car a4))
(push '0)
(mov '4 a4)
(jmp bltvector)
103
(eval ())
(adjstk '2)
(return)
101
(push (@ 104))
(push a2)
(push '0)
(push nil)
(push '9)
(mov '4 a4)
(jmp fillvector)
104
(eval ())
(hpxmov (& 0) '21 a1)
(mov (& 1) a2)
(call ←peek←event)
(hpmovx a1 (& 0) '23)
(mov nil a3)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '2)
(bra #:display:x11:parse-event)
))
(loader'((fentry #:display:x11:read-mouse subr2)
(entry #:display:x11:read-mouse subr2)
(push a2)
(push a1)
(push (@ 101))
(push a2)
(push '0)
(push nil)
(push '9)
(mov '4 a4)
(jmp fillvector)
101
(eval ())
(hpxmov (& 0) '21 a1)
(mov (& 1) a2)
(adjstk '2)
(bra ←read←mouse)
))
(loader'((fentry #:display:x11:add-event subr2)
(entry #:display:x11:add-event subr2)
(push a2)
(push a1)
(hgsize a2 a1)
(mov nil a2)
(jcall makevector)
(push a1)
(push (@ 101))
(push a1)
(push '0)
(push (& 5))
(push '0)
(mov '4 a4)
(jmp bltvector)
101
(eval ())
(hpxmov (& 1) '24 a1)
(mov (& 0) a2)
(jcall nconc1)
(hpmovx a1 (& 1) '24)
(adjstk '3)
(return)
))
(loader'((fentry #:display:x11:grab-event subr2)
(entry #:display:x11:grab-event subr2)
(hpxmov a1 '21 a1)
(hpxmov a2 '8 a2)
(hpxmov a2 '4 a2)
(bra ←grab←event)
))
(loader'((fentry #:display:x11:ungrab-event subr1)
(entry #:display:x11:ungrab-event subr1)
(hpxmov a1 '21 a1)
(bra ←ungrab←event)
))
(loader'((fentry #:display:x11:itsoft-event subr1)
(entry #:display:x11:itsoft-event subr1)
(mov nil a1)
(return)
))
(loader'((entry #:display:x11:parse-event subr3)
(push a2)
(push a1)
(hpxmov a2 '0 a1)
(cabne a1 '2 102)
(hpxmov (& 0) '7 a4)
(btnil a4 104)
(hpxmov (& 0) '7 a4)
(hpmovx a4 a2 '1)
104
(push a2)
(hpxmov (& 1) '26 a2)
(mov 'ascii-event a1)
(jcall memq)
(btnil a1 105)
(mov 'ascii-event a4)
(bra 106)
105
(mov 'no-event a4)
106
(pop a3)
(hpmovx a4 a3 '0)
(mov a4 a1)
(adjstk '2)
(return)
102
(cabne a1 '36 107)
(hpxmov (& 0) '7 a4)
(btnil a4 109)
(hpxmov (& 0) '7 a4)
(hpmovx a4 a2 '1)
109
(push a2)
(hpxmov a2 '2 a1)
(hpxmov (& 1) '27 a2)
(jcall cassq)
(pop a4)
(hpmovx a1 a4 '2)
(hpxmov (& 0) '26 a2)
(mov 'functionkey-event a1)
(jcall memq)
(btnil a1 110)
(mov 'functionkey-event a4)
(bra 111)
110
(mov 'no-event a4)
111
(hpmovx a4 (& 1) '0)
(mov a4 a1)
(adjstk '2)
(return)
107
(cabne a1 '4 112)
(hpmovx 'down-event a2 '0)
(mov 'down-event a1)
(adjstk '2)
(return)
112
(cabne a1 '5 113)
(hpmovx 'up-event a2 '0)
(mov 'up-event a1)
(adjstk '2)
(return)
113
(cabne a1 '6 114)
(push a2)
(hpxmov a2 '2 a4)
(btnil a4 115)
(hpxmov (& 1) '26 a2)
(mov 'drag-event a1)
(jcall memq)
(btnil a1 117)
(mov 'drag-event a4)
(bra 116)
117
(mov 'no-event a4)
(bra 116)
115
(hpxmov (& 1) '26 a2)
(mov 'move-event a1)
(jcall memq)
(btnil a1 119)
(mov 'move-event a4)
(bra 116)
119
(mov 'no-event a4)
116
(pop a3)
(hpmovx a4 a3 '0)
(mov a4 a1)
(adjstk '2)
(return)
114
(cabne a1 '7 121)
(hpmovx 'enterwindow-event a2 '0)
(mov 'enterwindow-event a1)
(adjstk '2)
(return)
121
(cabne a1 '8 122)
(hpmovx 'leavewindow-event a2 '0)
(mov 'leavewindow-event a1)
(adjstk '2)
(return)
122
(cabeq a1 '9 124)
(cabne a1 '10 123)
124
(hpxmov a2 '0 a4)
(cabne '9 a4 125)
(mov 't a4)
(bra 126)
125
(mov nil a4)
126
(hpmovx a4 a2 '2)
(hpmovx 'keyboard-focus-event a2 '0)
(mov 'keyboard-focus-event a1)
(adjstk '2)
(return)
123
(cabne a1 '12 127)
(hpmovx 'repaint-window-event a2 '0)
(mov 'repaint-window-event a1)
(adjstk '2)
(return)
127
(cabne a1 '17 128)
(hpxmov a2 '1 a1)
(jcall windowp)
(btnil a1 129)
(hpmovx 'kill-window-event (& 1) '0)
(mov 'kill-window-event a1)
(adjstk '2)
(return)
129
(hpmovx 'no-event (& 1) '0)
(mov 'no-event a1)
(adjstk '2)
(return)
128
(cabne a1 '18 131)
(hpmovx 'no-event a2 '0)
(mov 'no-event a1)
(adjstk '2)
(return)
131
(cabne a1 '22 132)
(hpxmov a2 '1 a4)
(push a4)
(btnil a4 135)
(hpxmov a4 '0 a1)
(hpxmov a2 '5 a4)
(cabne a1 a4 133)
(hpxmov (& 0) '1 a4)
(hpxmov a2 '6 a1)
(cabne a4 a1 133)
(hpxmov (& 0) '2 a4)
(hpxmov a2 '7 a1)
(cabne a4 a1 133)
(hpxmov (& 0) '3 a4)
(hpxmov a2 '8 a1)
(cabne a4 a1 133)
135
(mov 'no-event a1)
(bra 134)
133
(mov 'modify-window-event a1)
134
(hpmovx a1 a2 '0)
(adjstk '3)
(return)
132
(hpmovx 'no-event a2 '0)
(mov 'no-event a1)
(adjstk '2)
(return)
))
(loader'((fentry #:display:x11:clear-graph-env subr2)
(entry #:display:x11:clear-graph-env subr2)
(hpxmov a1 '25 a4)
(btnil a4 101)
(hpxmov a2 '12 a4)
(hpxmov a4 '0 a4)
(push (@ 103))
(hpxmov a1 '21 a3)
(push a3)
(hpxmov a4 '0 a3)
(push a3)
(hpxmov a4 '1 a3)
(push a3)
(hpxmov a4 '2 a3)
(push a3)
(hpxmov a4 '3 a3)
(push a3)
(mov '5 a4)
(bra ←clear←graph←env)
103
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:current-clip nsubr)
(entry #:display:x11:current-clip nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:current-clip a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '8 a4)
(btnil a4 101)
(hpxmov (& 5) '8 a2)
(mov (& 5) a1)
(adjstk '6)
(bra #:display:x11:set-clip-for-subwindows)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:font-max subr2)
(entry #:display:x11:font-max subr2)
(hpxmov a1 '31 a1)
(hgsize a1 a1)
(diff '1 a1)
(return)
))
(loader'((fentry #:display:x11:load-font subr3)
(entry #:display:x11:load-font subr3)
(push a3)
(push a1)
(hpxmov a1 '21 a1)
(mov a3 a2)
(call ←load←font)
(hpxmov (& 0) '31 a4)
(hgsize a4 a4)
(push a4)
(push a1)
(cabne a1 '0 101)
(mov (& 3) a3)
(mov (cvalq erroob) a2)
(mov 'load-font a1)
(adjstk '4)
(jmp error)
101
(push (@ 103))
(plus '1 a4)
(mov '0 a2)
(mov a4 a1)
(jcall makevector)
(push a1)
(push '0)
(hpxmov (& 5) '31 a3)
(push a3)
(push '0)
(push (& 6))
(mov '5 a4)
(jmp bltvector)
103
(eval ())
(hpmovx a1 (& 2) '31)
(hpxmov (& 2) '31 a4)
(hpmovx (& 0) a4 (& 1))
(mov (& 1) a1)
(adjstk '4)
(return)
))
(loader'((fentry #:display:x11:current-font subr3)
(entry #:display:x11:current-font subr3)
(push a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '31 a2)
(hpxmov a2 a3 a2)
(adjstk '1)
(bra ←current←font)
))
(loader'((fentry #:display:x11:width-substring nsubr)
(entry #:display:x11:width-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:width-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnble (& 2) (& 0) 101)
(mov '0 a1)
(adjstk '6)
(return)
101
(cnble (& 1) a4 104)
(mov a4 (& 1))
104
(push (@ 105))
(hpxmov (& 6) '31 a4)
(hpxmov (& 5) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(bra ←width←string)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:height-substring nsubr)
(entry #:display:x11:height-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:height-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnblt (& 2) (& 0) 101)
(mov '" " (& 3))
(mov '0 (& 2))
(mov '1 (& 1))
(bra 102)
101
(cnble (& 1) a4 102)
(mov a4 (& 1))
102
(push (@ 105))
(hpxmov (& 6) '31 a4)
(hpxmov (& 5) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(bra ←height←string)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:x-base-substring nsubr)
(entry #:display:x11:x-base-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:x-base-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnblt (& 2) (& 0) 101)
(mov '" " (& 3))
(mov '0 (& 2))
(mov '1 (& 1))
(bra 102)
101
(cnble (& 1) a4 102)
(mov a4 (& 1))
102
(push (@ 105))
(hpxmov (& 6) '31 a4)
(hpxmov (& 5) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(bra ←x←base←string)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:y-base-substring nsubr)
(entry #:display:x11:y-base-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:y-base-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnblt (& 2) (& 0) 101)
(mov '" " (& 3))
(mov '0 (& 2))
(mov '1 (& 1))
(bra 102)
101
(cnble (& 1) a4 102)
(mov a4 (& 1))
102
(push (@ 105))
(hpxmov (& 6) '31 a4)
(hpxmov (& 5) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(bra ←y←base←string)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:x-inc-substring nsubr)
(entry #:display:x11:x-inc-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:x-inc-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(jmp #:display:x11:width-substring)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:y-inc-substring nsubr)
(entry #:display:x11:y-inc-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:y-inc-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:line-style-max subr2)
(entry #:display:x11:line-style-max subr2)
(hpxmov a1 '28 a1)
(hgsize a1 a1)
(diff '1 a1)
(return)
))
(loader'((fentry #:display:x11:current-line-style subr3)
(entry #:display:x11:current-line-style subr3)
(hpxmov a1 '28 a4)
(hpxmov a4 a3 a4)
(hpxmov a1 '21 a1)
(hpxmov a4 '0 a2)
(hpxmov a4 '1 a3)
(bra ←current←line←style)
))
(loader'((fentry #:display:x11:pattern-max subr2)
(entry #:display:x11:pattern-max subr2)
(hpxmov a1 '29 a1)
(hgsize a1 a1)
(diff '1 a1)
(return)
))
(loader'((fentry #:display:x11:make-pattern subr3)
(entry #:display:x11:make-pattern subr3)
(push a3)
(push a1)
(hpxmov a1 '29 a4)
(hgsize a4 a4)
(push a4)
(push a1)
(push (@ 101))
(plus '1 a4)
(mov '0 a2)
(mov a4 a1)
(jcall makevector)
(push a1)
(push '0)
(hpxmov (& 5) '29 a4)
(push a4)
(push '0)
(push (& 6))
(mov '5 a4)
(jmp bltvector)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '29)
(hpxmov (& 1) '29 a4)
(hpxmov (& 2) '2 a3)
(hpxmov a3 '1 a3)
(hpmovx a3 a4 (& 0))
(mov (& 0) a1)
(adjstk '3)
(return)
))
(loader'((fentry #:display:x11:current-pattern subr3)
(entry #:display:x11:current-pattern subr3)
(push a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '29 a2)
(hpxmov a2 a3 a2)
(adjstk '1)
(bra ←current←pattern)
))
(loader'((fentry #:display:x11:current-mode subr3)
(entry #:display:x11:current-mode subr3)
(push a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '32 a2)
(hpxmov a2 a3 a2)
(adjstk '1)
(bra ←current←mode)
))
(loader'((fentry #:display:x11:draw-cn nsubr)
(entry #:display:x11:draw-cn nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:draw-cn a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(push (@ 104))
(mov '0 a4)
(jmp current-mode)
104
(eval ())
(push a1)
(mov '5 a4)
(bra ←draw←cn)
103
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:draw-substring nsubr)
(entry #:display:x11:draw-substring nsubr)
(cnbeq a4 '7 0)
(mov '#:display:x11:draw-substring a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 6) '25 a4)
(btnil a4 101)
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnbgt (& 2) (& 0) 103)
(cnble (& 1) a4 106)
(mov a4 (& 1))
106
(push (@ 107))
(hpxmov (& 8) '21 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (@ 108))
(mov '0 a4)
(jmp current-mode)
108
(eval ())
(push a1)
(mov '7 a4)
(bra ←draw←string)
107
(eval ())
(adjstk '8)
(return)
103
(mov nil a1)
(adjstk '8)
(return)
101
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((fentry #:display:x11:draw-point nsubr)
(entry #:display:x11:draw-point nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:draw-point a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '25 a4)
(btnil a4 101)
(hpxmov (& 3) '21 a1)
(mov (& 0) a3)
(mov (& 1) a2)
(adjstk '4)
(bra ←draw←point)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:display:x11:draw-polymarker nsubr)
(entry #:display:x11:draw-polymarker nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:draw-polymarker a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra ←draw←polymarker)
103
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:draw-line nsubr)
(entry #:display:x11:draw-line nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:draw-line a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 6) '21 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra ←draw←line)
103
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:draw-rectangle nsubr)
(entry #:display:x11:draw-rectangle nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:draw-rectangle a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 6) '21 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra ←draw←rectangle)
103
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:draw-polyline nsubr)
(entry #:display:x11:draw-polyline nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:draw-polyline a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra ←draw←polyline)
103
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:draw-ellipse nsubr)
(entry #:display:x11:draw-ellipse nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:draw-ellipse a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 6) '21 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra ←draw←ellipse)
103
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:draw-circle nsubr)
(entry #:display:x11:draw-circle nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:draw-circle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(push (& 5))
(mov '5 a4)
(bra ←draw←ellipse)
103
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:fill-rectangle nsubr)
(entry #:display:x11:fill-rectangle nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:fill-rectangle a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '25 a4)
(btnil a4 101)
(push (@ 103))
(mov '0 a4)
(jmp current-pattern)
103
(eval ())
(push a1)
(push (@ 104))
(mov '0 a4)
(jmp current-foreground)
104
(eval ())
(push a1)
(cabne '0 (& 1) 106)
(push (@ 107))
(push (@ 108))
(mov '0 a4)
(jmp current-background)
108
(eval ())
(push a1)
(mov '1 a4)
(jmp current-foreground)
107
(eval ())
106
(push (@ 109))
(hpxmov (& 8) '21 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(bra ←fill←rectangle)
109
(eval ())
(cabne '0 (& 1) 110)
(push (@ 112))
(push (& 1))
(mov '1 a4)
(jmp current-foreground)
112
(eval ())
(adjstk '8)
(return)
110
(mov nil a1)
(adjstk '8)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:fill-area nsubr)
(entry #:display:x11:fill-area nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:fill-area a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(push (@ 103))
(mov '0 a4)
(jmp current-pattern)
103
(eval ())
(push a1)
(push (@ 104))
(mov '0 a4)
(jmp current-foreground)
104
(eval ())
(push a1)
(cabne '0 (& 1) 106)
(push (@ 107))
(push (@ 108))
(mov '0 a4)
(jmp current-background)
108
(eval ())
(push a1)
(mov '1 a4)
(jmp current-foreground)
107
(eval ())
106
(push (@ 109))
(hpxmov (& 7) '21 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(bra ←fill←area)
109
(eval ())
(cabne '0 (& 1) 110)
(push (@ 112))
(push (& 1))
(mov '1 a4)
(jmp current-foreground)
112
(eval ())
(adjstk '7)
(return)
110
(mov nil a1)
(adjstk '7)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:fill-ellipse nsubr)
(entry #:display:x11:fill-ellipse nsubr)
(cnbeq a4 '6 0)
(mov '#:display:x11:fill-ellipse a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '25 a4)
(btnil a4 101)
(push (@ 103))
(mov '0 a4)
(jmp current-pattern)
103
(eval ())
(push a1)
(push (@ 104))
(mov '0 a4)
(jmp current-foreground)
104
(eval ())
(push a1)
(cabne '0 (& 1) 106)
(push (@ 107))
(push (@ 108))
(mov '0 a4)
(jmp current-background)
108
(eval ())
(push a1)
(mov '1 a4)
(jmp current-foreground)
107
(eval ())
106
(push (@ 109))
(hpxmov (& 8) '21 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(bra ←fill←ellipse)
109
(eval ())
(cabne '0 (& 1) 110)
(push (@ 112))
(push (& 1))
(mov '1 a4)
(jmp current-foreground)
112
(eval ())
(adjstk '8)
(return)
110
(mov nil a1)
(adjstk '8)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:fill-circle nsubr)
(entry #:display:x11:fill-circle nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:fill-circle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 6))
(mov '6 a4)
(jmp #:display:x11:fill-ellipse)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:cursor-max subr1)
(entry #:display:x11:cursor-max subr1)
(hpxmov a1 '30 a1)
(hgsize a1 a1)
(diff '1 a1)
(return)
))
(loader'((fentry #:display:x11:make-cursor nsubr)
(entry #:display:x11:make-cursor nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:make-cursor a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '30 a4)
(hgsize a4 a4)
(push a4)
(push (@ 101))
(hpxmov (& 6) '21 a3)
(push a3)
(hpxmov (& 6) '2 a3)
(hpxmov a3 '1 a3)
(push a3)
(hpxmov (& 7) '0 a3)
(push a3)
(hpxmov (& 8) '1 a3)
(push a3)
(mov '4 a4)
(bra ←pixmap←to←bitmap)
101
(eval ())
(push a1)
(push (@ 102))
(hpxmov (& 7) '21 a4)
(push a4)
(hpxmov (& 6) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(hpxmov (& 7) '0 a4)
(push a4)
(hpxmov (& 8) '1 a4)
(push a4)
(mov '4 a4)
(bra ←pixmap←to←bitmap)
102
(eval ())
(hpxmov (& 6) '9 a4)
(hpxmov a4 '4 a4)
(hpxmov (& 6) '9 a3)
(hpxmov a3 '5 a3)
(push (@ 103))
(hpxmov (& 7) '21 a2)
(push a2)
(push (& 2))
(push a1)
(hpxmov a4 '1 a2)
(push a2)
(hpxmov a4 '2 a2)
(push a2)
(hpxmov a4 '3 a2)
(push a2)
(hpxmov a3 '1 a2)
(push a2)
(hpxmov a3 '2 a2)
(push a2)
(hpxmov a3 '3 a2)
(push a2)
(push (& 13))
(push (& 13))
(mov '11 a4)
(bra ←make←cursor)
103
(eval ())
(push a1)
(push (@ 104))
(mov (& 3) a4)
(plus '1 a4)
(mov '0 a2)
(mov a4 a1)
(jcall makevector)
(push a1)
(push '0)
(hpxmov (& 10) '30 a4)
(push a4)
(push '0)
(push (& 7))
(mov '5 a4)
(jmp bltvector)
104
(eval ())
(hpmovx a1 (& 7) '30)
(hpxmov (& 7) '30 a4)
(hpmovx (& 0) a4 (& 2))
(mov (& 2) a1)
(adjstk '8)
(return)
))
(loader'((fentry #:display:x11:current-cursor subr2)
(entry #:display:x11:current-cursor subr2)
(push a2)
(push a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '30 a2)
(hpxmov a2 (& 1) a2)
(adjstk '2)
(bra ←current←cursor)
))
(loader'((fentry #:display:x11:move-cursor subr3)
(entry #:display:x11:move-cursor subr3)
(hpxmov a1 '21 a1)
(bra ←move←cursor)
))
(loader'((fentry #:display:x11:draw-cursor nsubr)
(entry #:display:x11:draw-cursor nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:draw-cursor a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '25 a4)
(btnil a4 101)
(btnil (& 0) 103)
(hpxmov (& 3) '4 a4)
(bra 104)
103
(hpxmov (& 3) '5 a4)
104
(push a4)
(push (@ 105))
(hpxmov (& 6) '31 a3)
(hpxmov (& 5) '0 a2)
(hpxmov a3 a2 a3)
(push a3)
(push '" ")
(push '0)
(push '1)
(mov '4 a4)
(bra ←x←base←string)
105
(eval ())
(push a1)
(push (@ 106))
(hpxmov (& 7) '31 a4)
(hpxmov (& 6) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push '" ")
(push '0)
(push '1)
(mov '4 a4)
(bra ←y←base←string)
106
(eval ())
(push a1)
(push (@ 107))
(hpxmov (& 8) '31 a4)
(hpxmov (& 7) '0 a3)
(hpxmov a4 a3 a4)
(push a4)
(push '" ")
(push '0)
(push '1)
(mov '4 a4)
(bra ←height←string)
107
(eval ())
(push a1)
(mov (& 6) a4)
(diff (& 2) a4)
(mov a4 (& 6))
(mov (& 5) a4)
(diff (& 1) a4)
(mov a4 (& 5))
(hpxmov (& 8) '21 a1)
(hpxmov (& 3) '6 a2)
(call ←current←foreground)
(push (@ 108))
(hpxmov (& 9) '21 a4)
(push a4)
(push (& 8))
(push (& 8))
(push (& 10))
(mov (& 10) a4)
(plus (& 5) a4)
(diff '1 a4)
(push a4)
(mov '5 a4)
(bra ←draw←line)
108
(eval ())
(hpxmov (& 8) '21 a1)
(hpxmov (& 7) '4 a2)
(hpxmov a2 '6 a2)
(adjstk '9)
(bra ←current←foreground)
101
(mov nil a1)
(adjstk '5)
(return)
))
(if (not (boundp '#:display:x11:rgb)) (progn (defvar #:display:x11:rgb #[() () ()])))
(loader'((fentry #:display:x11:make-color nsubr)
(entry #:display:x11:make-color nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:make-color a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(push (cvalq #:display:x11:rgb))
(mov '5 a4)
(bra ←make←color)
101
(eval ())
(push a1)
(cabne a1 '-1 103)
(push (@ 104))
(push (& 4))
(push (& 4))
(push (& 4))
(mov '3 a4)
(jmp list)
104
(eval ())
(mov a1 a3)
(mov (cvalq errnomorecolors) a2)
(mov 'make-color a1)
(jcall error)
103
(push (@ 105))
(push (& 6))
(push (& 6))
(push (& 3))
(push (cvalq #:display:x11:rgb))
(mov '4 a4)
(bra #:display:x11:do-color)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:make-mutable-color nsubr)
(entry #:display:x11:make-mutable-color nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:make-mutable-color a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '21 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra ←make←mutable←color)
101
(eval ())
(push a1)
(cabne a1 '-1 103)
(push (@ 104))
(push (& 4))
(push (& 4))
(push (& 4))
(mov '3 a4)
(jmp list)
104
(eval ())
(mov a1 a3)
(mov (cvalq errnomorecolors) a2)
(mov 'make-mutable-color a1)
(jcall error)
103
(push (@ 105))
(push (& 6))
(push (& 6))
(push (& 3))
(push (cvalq #:display:x11:rgb))
(mov '4 a4)
(bra #:display:x11:do-color)
105
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x11:make-named-color subr3)
(entry #:display:x11:make-named-color subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '21 a1)
(push a3)
(mov (cvalq #:display:x11:rgb) a3)
(pop a2)
(call ←make←named←color)
(push a1)
(cabne a1 '-1 102)
(mov (& 3) a3)
(mov (cvalq errnomorecolors) a2)
(mov 'make-named-color a1)
(jcall error)
102
(push (@ 103))
(push (& 2))
(push (& 4))
(push (& 3))
(push (cvalq #:display:x11:rgb))
(mov '4 a4)
(bra #:display:x11:do-color)
103
(eval ())
(adjstk '4)
(return)
))
(loader'((entry #:display:x11:do-color nsubr)
(hpxmov (& 3) '17 a4)
(push a4)
(push nil)
102
(bfcons (& 1) 103)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(hpxmov (& 0) '6 a4)
(cabne a4 (& 4) 104)
(mov (& 0) a4)
(bra 105)
104
(mov nil a4)
105
(adjstk '1)
(mov a4 (& 0))
(bfnil a4 103)
(bra 102)
103
(mov (& 0) a1)
(adjstk '2)
(bfnil a1 101)
(hpxmov (& 0) '0 a4)
(hpmovx a4 (& 2) '1)
(hpxmov (& 0) '1 a4)
(hpmovx a4 (& 2) '2)
(hpxmov (& 0) '2 a4)
(hpmovx a4 (& 2) '3)
(hpmovx (& 1) (& 2) '6)
(mov (& 2) a1)
101
(adjstk '4)
(return)
))
(loader'((fentry #:display:x11:kill-color subr2)
(entry #:display:x11:kill-color subr2)
(hpxmov a1 '21 a1)
(hpxmov a2 '6 a2)
(bra ←kill←color)
))
(loader'((fentry #:display:x11:current-foreground subr3)
(entry #:display:x11:current-foreground subr3)
(hpxmov a1 '21 a1)
(hpxmov a3 '6 a2)
(bra ←current←foreground)
))
(loader'((fentry #:display:x11:current-background subr3)
(entry #:display:x11:current-background subr3)
(hpxmov a1 '21 a1)
(hpxmov a3 '6 a2)
(bra ←current←background)
))
(loader'((fentry #:display:x11:red-component subr3)
(entry #:display:x11:red-component subr3)
(push (@ 101))
(hpxmov a1 '21 a4)
(push a4)
(hpxmov a2 '6 a4)
(push a4)
(push a3)
(hpxmov a2 '2 a4)
(push a4)
(hpxmov a2 '3 a4)
(push a4)
(push '0)
(mov '6 a4)
(bra ←color←component)
101
(eval ())
(return)
))
(loader'((fentry #:display:x11:green-component subr3)
(entry #:display:x11:green-component subr3)
(push (@ 101))
(hpxmov a1 '21 a4)
(push a4)
(hpxmov a2 '6 a4)
(push a4)
(hpxmov a2 '1 a4)
(push a4)
(push a3)
(hpxmov a2 '3 a4)
(push a4)
(push '1)
(mov '6 a4)
(bra ←color←component)
101
(eval ())
(return)
))
(loader'((fentry #:display:x11:blue-component subr3)
(entry #:display:x11:blue-component subr3)
(push (@ 101))
(hpxmov a1 '21 a4)
(push a4)
(hpxmov a2 '6 a4)
(push a4)
(hpxmov a2 '1 a4)
(push a4)
(hpxmov a2 '2 a4)
(push a4)
(push a3)
(push '2)
(mov '6 a4)
(bra ←color←component)
101
(eval ())
(return)
))
(loader'((fentry #:display:x11:create-bitmap subr2)
(entry #:display:x11:create-bitmap subr2)
(push a2)
(push a1)
(push a2)
(jcall #:x11:bitmap:make)
(pop a4)
(hpmovx a1 a4 '2)
(hpxmov (& 1) '2 a4)
(push a4)
(hpxmov (& 1) '21 a1)
(hpxmov (& 2) '0 a2)
(hpxmov (& 2) '1 a3)
(call ←create←bitmap)
(pop a4)
(hpmovx a1 a4 '1)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:display:x11:create-window-bitmap subr3)
(entry #:display:x11:create-window-bitmap subr3)
(push a3)
(push a2)
(push a3)
(jcall #:x11:bitmap:make)
(pop a4)
(hpmovx a1 a4 '2)
(hpxmov (& 1) '2 a4)
(hpmovx (& 0) a4 '0)
(hpxmov (& 1) '2 a4)
(push a4)
(mov (& 1) a1)
(call #:display:x11:top-window)
(hpxmov a1 '8 a3)
(hpxmov a3 '4 a3)
(pop a4)
(hpmovx a3 a4 '1)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:display:x11:kill-bitmap subr2)
(entry #:display:x11:kill-bitmap subr2)
(push a2)
(hpxmov a2 '2 a4)
(hpxmov a4 '0 a4)
(bfnil a4 102)
(hpxmov a2 '2 a4)
(hpxmov a4 '1 a4)
(btnil a4 102)
(hpxmov a1 '21 a1)
(hpxmov a2 '2 a2)
(hpxmov a2 '1 a2)
(call ←kill←bitmap)
102
(hpxmov (& 0) '2 a4)
(hpmovx nil a4 '0)
(hpxmov (& 0) '2 a4)
(hpmovx nil a4 '1)
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:get-bit-line nsubr)
(entry #:display:x11:get-bit-line nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:get-bit-line a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push '0)
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 102)
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 0) a3)
(plus a4 a3)
(mov a3 (& 0))
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 2) a2)
(plus a4 a2)
(mov a2 (& 2))
102
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(hpxmov (& 5) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(push (& 3))
(push (& 6))
(push (& 6))
(hpxmov (& 9) '0 a4)
(push a4)
(mov '6 a4)
(bra ←get←bit←line)
103
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:set-bit-line nsubr)
(entry #:display:x11:set-bit-line nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:set-bit-line a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push '0)
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 102)
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 0) a3)
(plus a4 a3)
(mov a3 (& 0))
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 2) a2)
(plus a4 a2)
(mov a2 (& 2))
102
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(hpxmov (& 5) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(push (& 3))
(push (& 6))
(push (& 6))
(hpxmov (& 9) '0 a4)
(push a4)
(mov '6 a4)
(bra ←set←bit←line)
103
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:bmref nsubr)
(entry #:display:x11:bmref nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:bmref a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 2) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 102)
(hpxmov (& 2) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 1) a3)
(plus a4 a3)
(mov a3 (& 1))
(hpxmov (& 2) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 0) a2)
(plus a4 a2)
(mov a2 (& 0))
102
(push (@ 103))
(hpxmov (& 4) '21 a4)
(push a4)
(hpxmov (& 4) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra ←bmref)
103
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:display:x11:bmset nsubr)
(entry #:display:x11:bmset nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:bmset a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 102)
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 2) a3)
(plus a4 a3)
(mov a3 (& 2))
(hpxmov (& 3) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 1) a2)
(plus a4 a2)
(mov a2 (& 1))
102
(push (@ 103))
(hpxmov (& 5) '21 a4)
(push a4)
(hpxmov (& 5) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra ←bmset)
103
(eval ())
(mov (& 0) a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:bitblit nsubr)
(entry #:display:x11:bitblit nsubr)
(cnbeq a4 '9 0)
(mov '#:display:x11:bitblit a1)
(mov '9 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 7) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 102)
(hpxmov (& 7) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 5) a3)
(plus a4 a3)
(mov a3 (& 5))
(hpxmov (& 7) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 4) a2)
(plus a4 a2)
(mov a2 (& 4))
102
(hpxmov (& 6) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 103)
(hpxmov (& 6) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '1 a4)
(mov (& 3) a3)
(plus a4 a3)
(mov a3 (& 3))
(hpxmov (& 6) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '2 a4)
(mov (& 2) a2)
(plus a4 a2)
(mov a2 (& 2))
(bra 104)
103
(cnbgt (& 3) '0 106)
(mov (& 5) a4)
(diff (& 3) a4)
(mov a4 (& 5))
(mov (& 1) a3)
(plus (& 3) a3)
(mov a3 (& 1))
(mov '0 (& 3))
106
(cnbgt (& 2) '0 108)
(mov (& 4) a4)
(diff (& 2) a4)
(mov a4 (& 4))
(mov (& 0) a3)
(plus (& 2) a3)
(mov a3 (& 0))
(mov '0 (& 2))
108
(mov (& 3) a4)
(plus (& 1) a4)
(hpxmov (& 6) '0 a3)
(cnble a4 a3 110)
(hpxmov (& 6) '0 a4)
(diff (& 3) a4)
(mov a4 (& 1))
110
(mov (& 2) a4)
(plus (& 0) a4)
(hpxmov (& 6) '1 a3)
(cnble a4 a3 104)
(hpxmov (& 6) '1 a4)
(diff (& 2) a4)
(mov a4 (& 0))
104
(push (@ 113))
(hpxmov (& 9) '21 a4)
(push a4)
(hpxmov (& 9) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(hpxmov (& 9) '2 a4)
(hpxmov a4 '1 a4)
(push a4)
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(hpxmov (& 17) '2 a4)
(hpxmov a4 '0 a4)
(btnil a4 114)
(hpxmov (& 17) '2 a4)
(hpxmov a4 '0 a4)
(hpxmov a4 '8 a4)
(hpxmov a4 '5 a4)
(bra 115)
114
(hpxmov (& 18) '21 a1)
(call ←default←gc)
(mov a1 a4)
115
(push a4)
(mov '10 a4)
(bra ←bitblit)
113
(eval ())
(adjstk '9)
(return)
))
(putprop '#:image:rectangle:window:menu-window '(()) 'defstruct)
(loader'((entry #:image:rectangle:window:menu-window:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '0)
(push nil)
(push nil)
(mov '14 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:image:rectangle:window:menu-window)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:x '#:image:rectangle:window:menu-window:x 'setf-inverse) '#:image:rectangle:window:menu-window:x)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:x (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:y '#:image:rectangle:window:menu-window:y 'setf-inverse) '#:image:rectangle:window:menu-window:y)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:y (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:w '#:image:rectangle:window:menu-window:w 'setf-inverse) '#:image:rectangle:window:menu-window:w)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:w (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:h '#:image:rectangle:window:menu-window:h 'setf-inverse) '#:image:rectangle:window:menu-window:h)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:h (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:title '#:image:rectangle:window:menu-window:title 'setf-inverse) '#:image:rectangle:window:menu-window:title)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:title (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:hilited '#:image:rectangle:window:menu-window:hilited 'setf-inverse) '#:image:rectangle:window:menu-window:hilited)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:hilited (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:visible '#:image:rectangle:window:menu-window:visible 'setf-inverse) '#:image:rectangle:window:menu-window:visible)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:visible (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:graph-env '#:image:rectangle:window:menu-window:graph-env 'setf-inverse) '#:image:rectangle:window:menu-window:graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:graph-env (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:extend '#:image:rectangle:window:menu-window:extend 'setf-inverse) '#:image:rectangle:window:menu-window:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:extend (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:father '#:image:rectangle:window:menu-window:father 'setf-inverse) '#:image:rectangle:window:menu-window:father)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:father (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:properties '#:image:rectangle:window:menu-window:properties 'setf-inverse) '#:image:rectangle:window:menu-window:properties)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:properties (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:cursor '#:image:rectangle:window:menu-window:cursor 'setf-inverse) '#:image:rectangle:window:menu-window:cursor)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:cursor (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:display '#:image:rectangle:window:menu-window:display 'setf-inverse) '#:image:rectangle:window:menu-window:display)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:display (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:menu-window:subwindows '#:image:rectangle:window:menu-window:subwindows 'setf-inverse) '#:image:rectangle:window:menu-window:subwindows)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:menu-window:subwindows (struct . valeur) (ifn valeur (list 'vref struct 13) (list 'vset struct 13 (car valeur))))))
(loader'((entry menuwindow nsubr)
(call #:image:rectangle:window:menu-window:make)
(hpmovx (& 4) a1 '0)
(hpmovx (& 3) a1 '1)
(hpmovx (& 2) a1 '2)
(hpmovx (& 1) a1 '3)
(hpmovx (& 0) a1 '4)
(hpmovx '1 a1 '5)
(hpmovx '1 a1 '6)
(adjstk '5)
(return)
))
(loader'((entry ←set←menu←attributes subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←set←menu←attributes))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:image:rectangle:window:menu-window:set-window-hints subr1)
(entry #:image:rectangle:window:menu-window:set-window-hints subr1)
(push a1)
(hpxmov a1 '12 a1)
(hpxmov a1 '21 a1)
(hpxmov (& 0) '8 a2)
(hpxmov a2 '4 a2)
(adjstk '1)
(bra ←set←menu←attributes)
))
(loader'((fentry #:display:x11:create-menu subr2)
(entry #:display:x11:create-menu subr2)
(push a2)
(push a2)
(jcall #:x11:menu:make)
(pop a4)
(hpmovx a1 a4 '3)
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:x11:kill-menu subr2)
(entry #:display:x11:kill-menu subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:activate-menu nsubr)
(entry #:display:x11:activate-menu nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:activate-menu a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(mov '0 a4)
(jmp current-display)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(push (& 8))
(mov '1 a4)
(jmp current-display)
104
(eval ())
(mov (& 4) a3)
(mov (& 5) a2)
(mov (& 6) a1)
(call #:display:x11:draw-menu)
(mov (& 6) a1)
(call #:display:x11:follow-mouse)
(push nil)
(push nil)
(push nil)
(push nil)
(hpxmov (& 10) '3 a4)
(hpxmov a4 '0 a4)
(mov a4 (& 3))
(btnil a4 105)
(hpxmov (& 10) '3 a3)
(hpxmov a3 '1 a3)
(mov a3 (& 2))
(btnil a3 105)
(cnblt a4 '0 105)
(cnblt a3 '0 105)
(hpxmov (& 10) '1 a2)
(mov a4 a1)
(jcall nth)
(mov a1 (& 1))
(btnil a1 105)
(btnil a1 105)
(hpxmov a1 '6 a2)
(mov (& 2) a1)
(jcall nth)
(mov a1 (& 0))
(btnil a1 105)
(btnil a1 105)
(hpxmov a1 '5 a4)
(cabeq '0 a4 105)
(hpxmov (& 0) '6 a1)
(bra 106)
105
(mov nil a1)
106
(adjstk '4)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 107))
(push (& 4))
(mov '1 a4)
(jmp current-display)
107
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:menu-insert-item nsubr)
(entry #:display:x11:menu-insert-item nsubr)
(cnbeq a4 '7 0)
(mov '#:display:x11:menu-insert-item a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((fentry #:display:x11:menu-insert-item-list nsubr)
(entry #:display:x11:menu-insert-item-list nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:menu-insert-item-list a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:menu-delete-item-list subr3)
(entry #:display:x11:menu-delete-item-list subr3)
(mov nil a1)
(return)
))
(loader'((fentry #:display:x11:menu-delete-item nsubr)
(entry #:display:x11:menu-delete-item nsubr)
(cnbeq a4 '4 0)
(mov '#:display:x11:menu-delete-item a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:display:x11:menu-modify-item-list nsubr)
(entry #:display:x11:menu-modify-item-list nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x11:menu-modify-item-list a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:display:x11:menu-modify-item nsubr)
(entry #:display:x11:menu-modify-item nsubr)
(cnbeq a4 '7 0)
(mov '#:display:x11:menu-modify-item a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((entry #:display:x11:itemlist:width subr1)
(hpxmov a1 '6 a4)
(push '0)
(push '0)
(push a4)
101
(bfcons (& 0) 102)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(hpxmov (car a1) '4 a1)
(call width-string)
(mov a1 (& 1))
(cnble a1 (& 2) 101)
(mov a1 (& 2))
(bra 101)
102
(mov (& 2) a1)
(adjstk '3)
(return)
))
(loader'((entry #:display:x11:height subr1)
(push a1)
(jcall height-space)
(push a1)
(hpxmov (& 1) '1 a4)
(push '0)
(push a4)
101
(bfcons (& 0) 102)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(hpxmov (car a1) '6 a1)
(jcall length)
(mov a1 a2)
(mov (& 1) a1)
(jcall imax)
(mov a1 (& 1))
(bra 101)
102
(mov (& 1) a4)
(adjstk '2)
(pop a3)
(times a4 a3)
(mov a3 a1)
(adjstk '1)
(return)
))
(loader'((entry #:display:x11:width subr1)
(hpxmov a1 '1 a4)
(push '0)
(push a4)
101
(bfcons (& 0) 102)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:display:x11:itemlist:width)
(mov (& 1) a4)
(plus a1 a4)
(mov a4 (& 1))
(bra 101)
102
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((entry width-string subr1)
(hgsize a1 a3)
(mov '0 a2)
(jmp width-substring)
))
(loader'((entry #:display:x11:draw-menu subr3)
(push a3)
(push a2)
(push a1)
(push (@ 101))
(call #:display:x11:width)
(quo '2 a1)
(plus '1 a1)
(push a1)
(push (@ 102))
(push (& 4))
(push (@ 103))
(mov '0 a4)
(jmp bitxmax)
103
(eval ())
(diff '3 a1)
(push a1)
(mov (& 5) a1)
(call #:display:x11:width)
(quo '2 a1)
(pop a4)
(diff a1 a4)
(push a4)
(mov '2 a4)
(jmp min)
102
(eval ())
(push a1)
(mov '2 a4)
(jmp max)
101
(eval ())
(mov a1 (& 1))
(push (@ 104))
(push '1)
(push (@ 105))
(push (& 5))
(push (@ 106))
(mov '0 a4)
(jmp bitymax)
106
(eval ())
(diff '3 a1)
(push a1)
(mov (& 5) a1)
(call #:display:x11:height)
(pop a4)
(diff a1 a4)
(push a4)
(mov '2 a4)
(jmp min)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp max)
104
(eval ())
(mov a1 (& 2))
(hpxmov (& 0) '3 a4)
(hpmovx nil a4 '0)
(hpxmov (& 0) '3 a4)
(hpmovx nil a4 '1)
(hpxmov (& 0) '3 a4)
(push a4)
(push (@ 107))
(mov (& 2) a1)
(call #:display:x11:width)
(quo '2 a1)
(mov (& 3) a4)
(diff a1 a4)
(push a4)
(push (& 5))
(mov (& 4) a1)
(call #:display:x11:width)
(push a1)
(mov (& 5) a1)
(call #:display:x11:height)
(push a1)
(hpxmov (& 6) '0 a3)
(push a3)
(mov '5 a4)
(bra menuwindow)
107
(eval ())
(pop a4)
(hpmovx a1 a4 '2)
(hpxmov (& 0) '3 a1)
(hpxmov a1 '2 a1)
(adjstk '3)
(jmp make-window)
))
(loader'((entry #:display:x11:redraw-menu subr2)
(push a2)
(push a1)
(jcall x-base-space)
(push a1)
(jcall y-base-space)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp current-window)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(hpxmov (& 7) '3 a4)
(hpxmov a4 '2 a4)
(push a4)
(mov '1 a4)
(jmp current-window)
104
(eval ())
(btnil (& 7) 106)
(push (@ 107))
(hpxmov (& 8) '5 a4)
(push a4)
(hpxmov (& 9) '6 a4)
(push a4)
(hpxmov (& 10) '7 a4)
(push a4)
(hpxmov (& 11) '8 a4)
(push a4)
(mov '4 a4)
(jmp current-clip)
107
(eval ())
106
(jcall clear-graph-env)
(hpxmov (& 6) '1 a4)
(push a4)
108
(bfcons (& 0) 109)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '6 a4)
(push a4)
110
(bfcons (& 0) 111)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '4 a4)
(push (@ 112))
(push (& 10))
(push (& 10))
(push a4)
(push '0)
(hgsize a4 a3)
(push a3)
(mov '5 a4)
(jmp draw-substring)
112
(eval ())
(jcall height-space)
(mov (& 8) a4)
(plus a1 a4)
(mov a4 (& 8))
(adjstk '1)
(bra 110)
111
(adjstk '1)
(jcall y-base-space)
(mov a1 (& 6))
(mov (& 0) a1)
(call #:display:x11:itemlist:width)
(mov (& 7) a4)
(plus a1 a4)
(mov a4 (& 7))
(adjstk '1)
(bra 108)
109
(adjstk '1)
(hpxmov (& 6) '3 a4)
(hpxmov a4 '0 a4)
(bffix a4 114)
(hpxmov (& 6) '3 a4)
(hpxmov a4 '1 a4)
(bffix a4 114)
(hpxmov (& 6) '3 a2)
(hpxmov a2 '0 a2)
(hpxmov (& 6) '3 a3)
(hpxmov a3 '1 a3)
(mov (& 6) a1)
(call #:display:x11:invert-item)
114
(btnil (& 7) 115)
(push (@ 117))
(push '0)
(push '0)
(push (@ 118))
(mov '0 a4)
(jmp current-window)
118
(eval ())
(hpxmov a1 '2 a4)
(push a4)
(push (@ 119))
(mov '0 a4)
(jmp current-window)
119
(eval ())
(hpxmov a1 '3 a4)
(push a4)
(mov '4 a4)
(jmp current-clip)
117
(eval ())
(bra 116)
115
(mov nil a1)
116
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 120))
(push (& 4))
(mov '1 a4)
(jmp current-window)
120
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '5)
(return)
))
(loader'((entry #:display:x11:find-list subr2)
(hpxmov a1 '1 a1)
(mov '0 a3)
(bra #:display:x11:find-list1)
))
(loader'((entry #:display:x11:find-list1 subr3)
(push a3)
(push a2)
(push a1)
(cnbge a2 '0 101)
(mov nil a1)
(adjstk '3)
(return)
101
(bfnil a1 103)
(mov nil a1)
(adjstk '3)
(return)
103
(push a2)
(mov (car a1) a1)
(call #:display:x11:itemlist:width)
(pop a4)
(cnbge a4 a1 105)
(mov (& 2) a1)
(adjstk '3)
(return)
105
(mov (& 0) a1)
(push (cdr a1))
(mov (car a1) a1)
(call #:display:x11:itemlist:width)
(mov (& 2) a4)
(diff a1 a4)
(mov (& 3) a3)
(plus '1 a3)
(mov a4 a2)
(pop a1)
(adjstk '3)
(bra #:display:x11:find-list1)
))
(loader'((entry #:display:x11:itemlist-x subr2)
(push a2)
(hpxmov a1 '1 a2)
(pop a1)
(bra #:display:x11:itemlist-x1)
))
(loader'((entry #:display:x11:itemlist-x1 subr2)
(push a2)
(push a1)
(cabne a1 '0 101)
(mov '0 a1)
(adjstk '2)
(return)
101
(mov (car a2) a1)
(call #:display:x11:itemlist:width)
(push a1)
(mov (& 1) a4)
(diff '1 a4)
(mov (& 2) a2)
(mov (cdr a2) a2)
(mov a4 a1)
(call #:display:x11:itemlist-x1)
(pop a4)
(plus a1 a4)
(mov a4 a1)
(adjstk '2)
(return)
))
(loader'((entry #:display:x11:invert-item subr3)
(push a3)
(push a2)
(push a1)
(push nil)
(push nil)
(btnil a2 101)
(btnil a3 101)
(push a2)
(hpxmov a1 '1 a2)
(pop a1)
(jcall nth)
(mov a1 (& 1))
(btnil a1 101)
(hpxmov a1 '5 a4)
(cabeq '0 a4 101)
(hpxmov a1 '6 a2)
(mov (& 4) a1)
(jcall nth)
(mov a1 (& 0))
(btnil a1 101)
(hpxmov a1 '5 a4)
(cabeq '0 a4 101)
(mov (& 3) a2)
(mov (& 2) a1)
(call #:display:x11:itemlist-x)
(push a1)
(jcall height-space)
(mov (& 5) a4)
(times a1 a4)
(push a4)
(mov (& 3) a1)
(call #:display:x11:itemlist:width)
(push a1)
(jcall height-space)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-mode)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(push '6)
(mov '1 a4)
(jmp current-mode)
106
(eval ())
(push (@ 107))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '4 a4)
(jmp fill-rectangle)
107
(eval ())
(hpxmov (& 10) '3 a4)
(hpmovx (& 11) a4 '0)
(hpxmov (& 10) '3 a4)
(hpmovx (& 12) a4 '1)
(mov (& 12) a4)
(mov (& 1) dlink)
(adjstk '3)
(push a4)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 108))
(push (& 4))
(mov '1 a4)
(jmp current-mode)
108
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '10)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((entry #:display:x11:next-position subr2)
(push a2)
(push a1)
(push (@ 101))
(push 'moved)
(push dlink)
(push tag)
(stack dlink)
102
(push (@ 104))
(push (& 6))
(mov '1 a4)
(jmp read-event)
104
(eval ())
(hpxmov (& 5) '0 a1)
(cabne a1 'repaint-window-event 106)
(hpxmov (& 4) '3 a4)
(hpxmov a4 '2 a4)
(hpxmov (& 5) '1 a3)
(cabne a4 a3 102)
(mov (& 5) a2)
(mov (& 4) a1)
(call #:display:x11:redraw-menu)
(bra 102)
106
(cabne a1 'up-event 109)
(mov 't a1)
(mov 'moved a2)
(jmp #:llcp:exit)
109
(cabne a1 'drag-event 102)
(mov nil a1)
(mov 'moved a2)
(jmp #:llcp:exit)
103
(mov nil a1)
(mov (& 1) dlink)
(adjstk '4)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry #:display:x11:follow-mouse subr1)
(push a1)
(hpxmov a1 '3 a1)
(hpxmov a1 '2 a1)
(jcall grab-event)
(push (@ 101))
(mov '0 a4)
(jmp bitmap-sync)
101
(eval ())
(push (@ 102))
(mov '0 a4)
(jmp current-window)
102
(eval ())
(push a1)
(push (@ 103))
(push dlink)
(push prot)
(stack dlink)
(push (@ 105))
(hpxmov (& 5) '3 a4)
(hpxmov a4 '2 a4)
(push a4)
(mov '1 a4)
(jmp current-window)
105
(eval ())
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '#:event:#[() () () () () () () () ()])
106
(mov (& 0) a2)
(mov (& 11) a1)
(call #:display:x11:next-position)
(bfnil a1 107)
(hpxmov (& 0) '6 a4)
(cnbge a4 '0 108)
(mov '-1 a4)
(bra 109)
108
(hpxmov (& 0) '6 a4)
(push a4)
(jcall height-space)
(pop a4)
(quo a1 a4)
109
(mov a4 (& 3))
(hpxmov (& 0) '5 a2)
(mov (& 11) a1)
(call #:display:x11:find-list)
(mov a1 (& 4))
(cabne a1 (& 6) 112)
(cabeq (& 3) (& 5) 106)
112
(mov (& 5) a3)
(mov (& 6) a2)
(mov (& 11) a1)
(call #:display:x11:invert-item)
(mov (& 4) (& 6))
(mov (& 3) (& 5))
(mov (& 5) a3)
(mov (& 6) a2)
(mov (& 11) a1)
(call #:display:x11:invert-item)
(bra 106)
107
(hpxmov (& 11) '3 a4)
(hpmovx (& 6) a4 '0)
(hpxmov (& 11) '3 a4)
(hpmovx (& 5) a4 '1)
(mov (& 5) a1)
(adjstk '7)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 104) a3)
103
(push a3)
(push a2)
(push (@ 113))
(push (& 4))
(mov '1 a4)
(jmp current-window)
113
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
104
(eval ())
(adjstk '1)
(jcall ungrab-event)
(hpxmov (& 0) '3 a1)
(hpxmov a1 '2 a1)
(jcall kill-window)
(push (@ 114))
(mov '0 a4)
(jmp bitmap-sync)
114
(eval ())
(hpxmov (& 0) '3 a4)
(hpmovx nil a4 '2)
(mov nil a1)
(adjstk '1)
(return)
))
(loader '((end)))