(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)))