(loader '((title |virbitmap.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'virbitmap)))
(add-feature 'virbitmap)
(if (not (boundp 'errnotadisplay)) (progn (defvar errnotadisplay "n'est pas un dispositif d'affichage")))
(if (not (boundp 'errnotawindow)) (progn (defvar errnotawindow "l'argument n'est pas une fene↑tre")))
(if (not (boundp 'errnotawindowtype)) (progn (defvar errnotawindowtype "l'argument n'est pas un type de fene↑tre")))
(if (not (boundp 'errnotabitmap)) (progn (defvar errnotabitmap "l'argument n'est pas une ico↑ne")))
(if (not (boundp 'errnotamenu)) (progn (defvar errnotamenu "l'argument n'est pas un menu")))
(if (not (boundp 'errnotacolor)) (progn (defvar errnotacolor "l'argument n'est pas une couleur")))
(if (not (boundp 'errnotamutable)) (progn (defvar errnotamutable "l'argument n'est pas une couleur modifiable")))
(if (not (boundp 'errbitmapinuse)) (progn (defvar errbitmapinuse "pattern utilise' commme motif ou curseur")))
(if (not (boundp 'errnotasaveddisplay)) (progn (defvar errnotasaveddisplay "pas un display sauve par bitsave")))
(if (not (boundp '#:sys-package:bitmap)) (progn (defvar #:sys-package:bitmap)))
(if (not (boundp '#:bitmap:name)) (progn (defvar #:bitmap:name)))
(if (not (boundp '#:display:default-bitmap)) (progn (defvar #:display:default-bitmap 'bvtty)))
(if (not (boundp '#:display:all-bitmaps)) (progn (defvar #:display:all-bitmaps)))
(if (not (boundp '#:display:all-displays)) (progn (defvar #:display:all-displays)))
(if (not (boundp '#:display:current-display)) (progn (defvar #:display:current-display)))
(if (not (boundp '#:window:prologuep)) (progn (defvar #:window:prologuep)))
(if (not (boundp '#:window:all-windows)) (progn (defvar #:window:all-windows)))
(if (not (boundp '#:window:current-window)) (progn (defvar #:window:current-window)))
(if (not (boundp '#:window:current-keyboard-focus-window)) (progn (defvar #:window:current-keyboard-focus-window)))
(if (not (boundp '#:graph-env:current-graph-env)) (progn (defvar #:graph-env:current-graph-env)))
(if (not (boundp '#:graph-env:main-graph-env)) (progn (defvar #:graph-env:main-graph-env)))
(if (not (boundp '#:mode:set)) (progn (defvar #:mode:set 3)))
(if (not (boundp '#:mode:or)) (progn (defvar #:mode:or 7)))
(if (not (boundp '#:mode:xor)) (progn (defvar #:mode:xor 6)))
(if (not (boundp '#:mode:not)) (progn (defvar #:mode:not 12)))
(if (not (boundp '#:clip:x)) (progn (defvar #:clip:x 0)))
(if (not (boundp '#:clip:y)) (progn (defvar #:clip:y 0)))
(if (not (boundp '#:clip:w)) (progn (defvar #:clip:w 0)))
(if (not (boundp '#:clip:h)) (progn (defvar #:clip:h 0)))
(if (not (boundp '#:graph-env:vx)) (progn (defvar #:graph-env:vx #[0 0 0 0 0])))
(if (not (boundp '#:graph-env:vy)) (progn (defvar #:graph-env:vy #[0 0 0 0 0])))
(if (not (boundp '#:event:x)) (progn (defvar #:event:x)))
(if (not (boundp '#:event:y)) (progn (defvar #:event:y)))
(if (not (boundp '#:event:code)) (progn (defvar #:event:code)))
(if (not (boundp '#:event:move-event)) (progn (defvar #:event:move-event 256)))
(if (not (boundp '#:event:click-event)) (progn (defvar #:event:click-event 257)))
(if (not (boundp '#:mouse:event-mode)) (progn (defvar #:mouse:event-mode 0)))
(if (not (boundp '#:mouse:x)) (progn (defvar #:mouse:x)))
(if (not (boundp '#:mouse:y)) (progn (defvar #:mouse:y)))
(if (not (boundp '#:mouse:state)) (progn (defvar #:mouse:state)))
(if (not (boundp '#:check-window:x)) (progn (defvar #:check-window:x)))
(if (not (boundp '#:check-window:y)) (progn (defvar #:check-window:y)))
(loader'((fentry #:display:check-display subr2)
(entry #:display:check-display subr2)
(push a2)
(push a1)
(push a2)
(mov (cvalq #:display:all-displays) a2)
(pop a1)
(jcall memq)
(bfnil a1 101)
(mov (& 1) a3)
(mov (cvalq errnotadisplay) a2)
(mov (& 0) a1)
(adjstk '2)
(jmp error)
101
(mov 't a1)
(adjstk '2)
(return)
))
(loader'((fentry #:window:check-window subr3)
(entry #:window:check-window subr3)
(push a3)
(push a1)
(bfnil a2 101)
(mov a2 a3)
(mov (cvalq errnotadisplay) a2)
(adjstk '2)
(jmp error)
101
(hpxmov a2 '14 a2)
(mov a3 a1)
(jcall memq)
(bfnil a1 103)
(mov (& 1) a3)
(mov (cvalq errnotawindow) a2)
(mov (& 0) a1)
(adjstk '2)
(jmp error)
103
(mov 't a1)
(adjstk '2)
(return)
))
(loader'((fentry #:window:check-windows subr3)
(entry #:window:check-windows subr3)
(hpxmov a2 '12 a4)
(hpxmov a3 '12 a3)
(cabeq a4 a3 101)
(hpxmov a2 '12 a3)
(mov (cvalq errnotadisplay) a2)
(jmp error)
101
(mov 't a1)
(return)
))
(loader'((fentry #:bitmap:check-bitmap subr3)
(entry #:bitmap:check-bitmap subr3)
(bfnil a2 101)
(mov a2 a3)
(mov (cvalq errnotadisplay) a2)
(jmp error)
101
(mov 't a1)
(return)
))
(loader'((fentry #:bitmap:check-bitmaps subr3)
(entry #:bitmap:check-bitmaps subr3)
(hpxmov a2 '3 a4)
(hpxmov a3 '3 a3)
(cabeq a4 a3 101)
(hpxmov a2 '3 a3)
(mov (cvalq errnotadisplay) a2)
(jmp error)
101
(mov 't a1)
(return)
))
(loader'((fentry #:menu:check-menu subr3)
(entry #:menu:check-menu subr3)
(push a3)
(push a1)
(bfnil a2 101)
(mov a2 a3)
(mov (cvalq errnotadisplay) a2)
(adjstk '2)
(jmp error)
101
(hpxmov a2 '16 a2)
(mov a3 a1)
(jcall memq)
(bfnil a1 103)
(mov (& 1) a3)
(mov (cvalq errnotamenu) a2)
(mov (& 0) a1)
(adjstk '2)
(jmp error)
103
(mov 't a1)
(adjstk '2)
(return)
))
(loader'((fentry #:color:check-color subr3)
(entry #:color:check-color subr3)
(push a3)
(push a1)
(bfnil a2 101)
(mov a2 a3)
(mov (cvalq errnotadisplay) a2)
(adjstk '2)
(jmp error)
101
(hpxmov a2 '17 a2)
(mov a3 a1)
(jcall memq)
(bfnil a1 103)
(mov (& 1) a3)
(mov (cvalq errnotacolor) a2)
(mov (& 0) a1)
(adjstk '2)
(jmp error)
103
(mov 't a1)
(adjstk '2)
(return)
))
(loader'((fentry inibitmap nsubr)
(entry inibitmap nsubr)
(jcall #:llcp:nlist)
(bfcons a1 101)
(mov (car a1) a2)
(bra 102)
101
(mov '"BITMAP" a1)
(jcall getenv)
(mov a1 a2)
(bfnil a2 102)
(mov (cvalq #:display:default-bitmap) a2)
102
(mov nil a1)
(jcall symbol)
(push a1)
(mov a1 (cvalq #:bitmap:name))
(mov (cvalq #:display:all-bitmaps) a2)
(mov (& 0) a1)
(jcall cassq)
(bfnil a1 105)
(push (@ 106))
(push (cvalq #:system:virbitmap-directory))
(push (& 2))
(push (cvalq #:system:lelisp-extension))
(mov '3 a4)
(jmp catenate)
106
(eval ())
(push a1)
(jcall probefile)
(btnil a1 107)
(mov 't a2)
(mov (& 0) a1)
(jcall loadfile)
(bra 108)
107
(mov (& 0) a3)
(mov (cvalq errfile) a2)
(mov 'inibitmap a1)
(jcall error)
108
(adjstk '1)
(mov (cvalq #:display:all-bitmaps) a3)
(mov (cvalq #:sys-package:bitmap) a2)
(mov (& 0) a1)
(jcall acons)
(mov a1 (cvalq #:display:all-bitmaps))
105
(mov (& 0) a1)
(adjstk '1)
(return)
))
(putprop 'display '((() () () () () () () () () () () () () () () () () () () () () ()) name package device xmax ymax eventmode prologuep keyboard-focus-window window graph-env root-window main-graph-env background foreground windows bitmaps menus colors font-names pattern-bitmaps cursor-bitmaps extend) 'defstruct)
(loader'((fentry #:display:make subr0)
(entry #:display: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)
(mov '22 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'display)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:name nsubr)
(entry #:display:name nsubr)
(push a4)
(push (@ 101))
(push '#:display:name)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:name '#:display:name 'setf-inverse) '#:display:name)))
(if (featurep 'compiler) (progn (defmacro-open #:display:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:display:package nsubr)
(entry #:display:package nsubr)
(push a4)
(push (@ 101))
(push '#:display:package)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:package '#:display:package 'setf-inverse) '#:display:package)))
(if (featurep 'compiler) (progn (defmacro-open #:display:package (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:display:device nsubr)
(entry #:display:device nsubr)
(push a4)
(push (@ 101))
(push '#:display:device)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:device '#:display:device 'setf-inverse) '#:display:device)))
(if (featurep 'compiler) (progn (defmacro-open #:display:device (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:display:xmax nsubr)
(entry #:display:xmax nsubr)
(push a4)
(push (@ 101))
(push '#:display:xmax)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:xmax '#:display:xmax 'setf-inverse) '#:display:xmax)))
(if (featurep 'compiler) (progn (defmacro-open #:display:xmax (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:display:ymax nsubr)
(entry #:display:ymax nsubr)
(push a4)
(push (@ 101))
(push '#:display:ymax)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:ymax '#:display:ymax 'setf-inverse) '#:display:ymax)))
(if (featurep 'compiler) (progn (defmacro-open #:display:ymax (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:display:eventmode nsubr)
(entry #:display:eventmode nsubr)
(push a4)
(push (@ 101))
(push '#:display:eventmode)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:eventmode '#:display:eventmode 'setf-inverse) '#:display:eventmode)))
(if (featurep 'compiler) (progn (defmacro-open #:display:eventmode (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:display:prologuep nsubr)
(entry #:display:prologuep nsubr)
(push a4)
(push (@ 101))
(push '#:display:prologuep)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:prologuep '#:display:prologuep 'setf-inverse) '#:display:prologuep)))
(if (featurep 'compiler) (progn (defmacro-open #:display:prologuep (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((fentry #:display:keyboard-focus-window nsubr)
(entry #:display:keyboard-focus-window nsubr)
(push a4)
(push (@ 101))
(push '#:display:keyboard-focus-window)
(push '7)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:keyboard-focus-window '#:display:keyboard-focus-window 'setf-inverse) '#:display:keyboard-focus-window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:keyboard-focus-window (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(loader'((fentry #:display:window nsubr)
(entry #:display:window nsubr)
(push a4)
(push (@ 101))
(push '#:display:window)
(push '8)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:window '#:display:window 'setf-inverse) '#:display:window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:window (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(loader'((fentry #:display:graph-env nsubr)
(entry #:display:graph-env nsubr)
(push a4)
(push (@ 101))
(push '#:display:graph-env)
(push '9)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:graph-env '#:display:graph-env 'setf-inverse) '#:display:graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:display:graph-env (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(loader'((fentry #:display:root-window nsubr)
(entry #:display:root-window nsubr)
(push a4)
(push (@ 101))
(push '#:display:root-window)
(push '10)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:root-window '#:display:root-window 'setf-inverse) '#:display:root-window)))
(if (featurep 'compiler) (progn (defmacro-open #:display:root-window (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(loader'((fentry #:display:main-graph-env nsubr)
(entry #:display:main-graph-env nsubr)
(push a4)
(push (@ 101))
(push '#:display:main-graph-env)
(push '11)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:main-graph-env '#:display:main-graph-env 'setf-inverse) '#:display:main-graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:display:main-graph-env (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(loader'((fentry #:display:background nsubr)
(entry #:display:background nsubr)
(push a4)
(push (@ 101))
(push '#:display:background)
(push '12)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:background '#:display:background 'setf-inverse) '#:display:background)))
(if (featurep 'compiler) (progn (defmacro-open #:display:background (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(loader'((fentry #:display:foreground nsubr)
(entry #:display:foreground nsubr)
(push a4)
(push (@ 101))
(push '#:display:foreground)
(push '13)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:foreground '#:display:foreground 'setf-inverse) '#:display:foreground)))
(if (featurep 'compiler) (progn (defmacro-open #:display:foreground (struct . valeur) (ifn valeur (list 'vref struct 13) (list 'vset struct 13 (car valeur))))))
(loader'((fentry #:display:windows nsubr)
(entry #:display:windows nsubr)
(push a4)
(push (@ 101))
(push '#:display:windows)
(push '14)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:windows '#:display:windows 'setf-inverse) '#:display:windows)))
(if (featurep 'compiler) (progn (defmacro-open #:display:windows (struct . valeur) (ifn valeur (list 'vref struct 14) (list 'vset struct 14 (car valeur))))))
(loader'((fentry #:display:bitmaps nsubr)
(entry #:display:bitmaps nsubr)
(push a4)
(push (@ 101))
(push '#:display:bitmaps)
(push '15)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:bitmaps '#:display:bitmaps 'setf-inverse) '#:display:bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:bitmaps (struct . valeur) (ifn valeur (list 'vref struct 15) (list 'vset struct 15 (car valeur))))))
(loader'((fentry #:display:menus nsubr)
(entry #:display:menus nsubr)
(push a4)
(push (@ 101))
(push '#:display:menus)
(push '16)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:menus '#:display:menus 'setf-inverse) '#:display:menus)))
(if (featurep 'compiler) (progn (defmacro-open #:display:menus (struct . valeur) (ifn valeur (list 'vref struct 16) (list 'vset struct 16 (car valeur))))))
(loader'((fentry #:display:colors nsubr)
(entry #:display:colors nsubr)
(push a4)
(push (@ 101))
(push '#:display:colors)
(push '17)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:colors '#:display:colors 'setf-inverse) '#:display:colors)))
(if (featurep 'compiler) (progn (defmacro-open #:display:colors (struct . valeur) (ifn valeur (list 'vref struct 17) (list 'vset struct 17 (car valeur))))))
(loader'((fentry #:display:font-names nsubr)
(entry #:display:font-names nsubr)
(push a4)
(push (@ 101))
(push '#:display:font-names)
(push '18)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:font-names '#:display:font-names 'setf-inverse) '#:display:font-names)))
(if (featurep 'compiler) (progn (defmacro-open #:display:font-names (struct . valeur) (ifn valeur (list 'vref struct 18) (list 'vset struct 18 (car valeur))))))
(loader'((fentry #:display:pattern-bitmaps nsubr)
(entry #:display:pattern-bitmaps nsubr)
(push a4)
(push (@ 101))
(push '#:display:pattern-bitmaps)
(push '19)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:pattern-bitmaps '#:display:pattern-bitmaps 'setf-inverse) '#:display:pattern-bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:pattern-bitmaps (struct . valeur) (ifn valeur (list 'vref struct 19) (list 'vset struct 19 (car valeur))))))
(loader'((fentry #:display:cursor-bitmaps nsubr)
(entry #:display:cursor-bitmaps nsubr)
(push a4)
(push (@ 101))
(push '#:display:cursor-bitmaps)
(push '20)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:cursor-bitmaps '#:display:cursor-bitmaps 'setf-inverse) '#:display:cursor-bitmaps)))
(if (featurep 'compiler) (progn (defmacro-open #:display:cursor-bitmaps (struct . valeur) (ifn valeur (list 'vref struct 20) (list 'vset struct 20 (car valeur))))))
(loader'((fentry #:display:extend nsubr)
(entry #:display:extend nsubr)
(push a4)
(push (@ 101))
(push '#:display:extend)
(push '21)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:display:extend '#:display:extend 'setf-inverse) '#:display:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:display:extend (struct . valeur) (ifn valeur (list 'vref struct 21) (list 'vset struct 21 (car valeur))))))
(loader'((fentry bitprologue nsubr)
(entry bitprologue nsubr)
(jcall #:llcp:nlist)
(push a1)
(btnil a1 101)
(mov (cdr a1) (& 0))
(mov (car a1) a4)
(bra 102)
101
(mov nil a4)
102
(btnil (& 0) 103)
(mov (& 0) a3)
(mov (cdr a3) (& 0))
(mov (car a3) a3)
(bra 104)
103
(mov nil a3)
104
(push a3)
(push a4)
(btnil (cvalq #:display:all-bitmaps) 105)
(bfnil a4 108)
(mov (cvalq #:display:all-bitmaps) a2)
(mov (car a2) a2)
(mov (car a2) (& 0))
108
(mov (cvalq #:display:all-bitmaps) a2)
(mov (& 0) a1)
(jcall cassq)
(push a1)
(btnil a1 109)
(mov 'make a2)
(jcall getfn1)
(btnil a1 109)
(mov 'display a2)
(mov (& 0) a1)
(jcall subtypep)
(btnil a1 109)
(mov (& 0) a1)
(jcall new)
(mov a1 a4)
(bra 110)
109
(mov 'display a1)
(jcall new)
(mov a1 a4)
110
(push a4)
(hpmovx (& 2) a4 '0)
(hpmovx (& 1) a4 '1)
(hpmovx (& 3) a4 '2)
(push (@ 111))
(push 'bitprologue)
(push a4)
(mov '2 a4)
(jmp send)
111
(eval ())
(mov (cvalq #:display:all-displays) a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:display:all-displays))
(hpmovx 't (& 0) '6)
(push (@ 114))
(mov '0 a4)
(jmp current-display)
114
(eval ())
(bfnil a1 113)
(push (@ 115))
(push (& 1))
(mov '1 a4)
(jmp current-display)
115
(eval ())
113
(mov (& 0) a1)
(adjstk '5)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry bitmap-save nsubr)
(entry bitmap-save nsubr)
(push a4)
(cabne (& 0) '0 101)
(push (@ 103))
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(push a1)
(mov '1 a4)
(jmp list)
103
(eval ())
(mov a1 a4)
(bra 102)
101
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(cabne a4 't 105)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(bfnil a1 107)
(mov (cvalq #:display:all-displays) a4)
(bra 102)
107
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(push a1)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(mov (cvalq #:display:all-displays) a2)
(jcall delq)
(mov a1 a2)
(pop a1)
(jcall cons)
(mov a1 a4)
(bra 102)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
102
(push a4)
(push a4)
112
(bfcons (& 0) 113)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:user:save-a-display)
(bra 112)
113
(adjstk '1)
(mov (& 0) a1)
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((entry #:user:save-a-display subr1)
(push a1)
(push (@ 101))
(hpxmov a1 '14 a4)
(push a4)
(push nil)
(mov '2 a4)
(jmp append)
101
(eval ())
(push a1)
(hpxmov (& 1) '15 a4)
(push a4)
(push nil)
102
(bfcons (& 1) 103)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(push (@ 104))
(push (& 1))
(hpxmov (& 2) '0 a4)
(push a4)
(hpxmov (& 3) '1 a4)
(push a4)
(push (@ 105))
(push (& 5))
(mov '1 a4)
(jmp #:bitmap:bits)
105
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
104
(eval ())
(adjstk '1)
(mov (& 0) a2)
(jcall cons)
(mov a1 (& 0))
(bra 102)
103
(mov (& 0) a1)
(jcall nreverse)
(adjstk '2)
(push a1)
(push (@ 106))
(hpxmov (& 3) '16 a4)
(push a4)
(push nil)
(mov '2 a4)
(jmp append)
106
(eval ())
(push a1)
(push (@ 107))
(hpxmov (& 4) '17 a4)
(push a4)
(push nil)
(mov '2 a4)
(jmp append)
107
(eval ())
(push a1)
(hpxmov (& 4) '18 a4)
(push a4)
(push nil)
108
(bfcons (& 1) 109)
(mov (& 1) a1)
(mov (cdr a1) (& 1))
(mov (car a1) a1)
(mov (& 0) a2)
(mov (car a1) a1)
(jcall cons)
(mov a1 (& 0))
(bra 108)
109
(mov (& 0) a1)
(jcall nreverse)
(adjstk '2)
(push a1)
(push (@ 110))
(hpxmov (& 6) '19 a4)
(push a4)
(push nil)
(mov '2 a4)
(jmp append)
110
(eval ())
(push a1)
(push (@ 111))
(hpxmov (& 7) '20 a4)
(push a4)
(push nil)
(mov '2 a4)
(jmp append)
111
(eval ())
(push a1)
(hpxmov (& 7) '8 a4)
(push a4)
(hpxmov (& 8) '7 a3)
(push a3)
(hpxmov (& 9) '5 a2)
(push a2)
(push (@ 112))
(push 'saved-display)
(hpxmov (& 12) '10 a4)
(push a4)
(hpxmov (& 13) '13 a4)
(push a4)
(hpxmov (& 14) '12 a4)
(push a4)
(mov '4 a4)
(jmp list)
112
(eval ())
(push a1)
(hpxmov (& 11) '10 a1)
(mov (& 10) a2)
(jcall delq)
(mov a1 (& 10))
(push a1)
113
(bfcons (& 0) 114)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '9 a4)
(bfnil a4 116)
(mov (& 0) a1)
(jcall check-window-position)
116
(adjstk '1)
(bra 113)
114
(adjstk '1)
(hpxmov (& 11) '13 a1)
(mov (& 7) a2)
(jcall delq)
(mov a1 (& 7))
(hpxmov (& 11) '12 a1)
(mov (& 7) a2)
(jcall delq)
(mov a1 (& 7))
(push (@ 117))
(push (& 12))
(mov '1 a4)
(jmp standard-roman-font)
117
(eval ())
(jcall font-name)
(mov (& 6) a2)
(jcall delq)
(mov a1 (& 6))
(push (@ 118))
(push (& 12))
(mov '1 a4)
(jmp standard-bold-font)
118
(eval ())
(jcall font-name)
(mov (& 6) a2)
(jcall delq)
(mov a1 (& 6))
(push (@ 119))
(push (& 12))
(mov '1 a4)
(jmp large-roman-font)
119
(eval ())
(jcall font-name)
(mov (& 6) a2)
(jcall delq)
(mov a1 (& 6))
(push (@ 120))
(push (& 12))
(mov '1 a4)
(jmp small-roman-font)
120
(eval ())
(jcall font-name)
(mov (& 6) a2)
(jcall delq)
(mov a1 (& 6))
(push (@ 121))
(mov '0 a4)
(jmp current-display)
121
(eval ())
(push a1)
(push (@ 122))
(push dlink)
(push prot)
(stack dlink)
(push (@ 124))
(push (& 16))
(mov '1 a4)
(jmp current-display)
124
(eval ())
(jcall flush-event)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 123) a3)
122
(push a3)
(push a2)
(push (@ 125))
(push (& 4))
(mov '1 a4)
(jmp current-display)
125
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
123
(eval ())
(adjstk '1)
(mov (& 11) a2)
(mov 'bitsave a1)
(jcall #:display:check-display)
(btnil a1 127)
(hpxmov (& 11) '6 a4)
(btnil a4 127)
(push (@ 128))
(push 'bitmap-save)
(push (& 13))
(mov '2 a4)
(jmp send)
128
(eval ())
(mov (& 11) a1)
(call #:user:do-close)
127
(hpmovx (& 1) (& 11) '5)
(hpmovx (& 3) (& 11) '8)
(hpmovx (& 2) (& 11) '7)
(hpmovx (& 10) (& 11) '14)
(hpmovx (& 8) (& 11) '16)
(hpmovx (& 9) (& 11) '15)
(hpmovx (& 8) (& 11) '16)
(hpmovx (& 7) (& 11) '17)
(hpmovx (& 6) (& 11) '18)
(hpmovx (& 5) (& 11) '19)
(hpmovx (& 4) (& 11) '20)
(hpmovx (& 0) (& 11) '21)
(mov (& 11) a1)
(adjstk '12)
(return)
))
(loader'((fentry bitmap-restore subr1)
(entry bitmap-restore subr1)
(push a1)
(push a1)
101
(bfcons (& 0) 102)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:user:restore-a-display)
(bra 101)
102
(adjstk '1)
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((entry #:user:restore-a-display subr1)
(push a1)
(hpxmov a1 '21 a4)
(bfcons a4 103)
(hpxmov a1 '21 a4)
(cabeq 'saved-display (car a4) 102)
103
(mov a1 a3)
(mov (cvalq errnotasaveddisplay) a2)
(mov 'bitrestore a1)
(jcall error)
102
(hpxmov (& 0) '14 a4)
(push a4)
(hpxmov (& 1) '15 a3)
(hpxmov (& 1) '16 a2)
(hpxmov (& 1) '17 a1)
(hpxmov (& 1) '18 a4)
(push a4)
(hpxmov (& 2) '19 a4)
(push a4)
(hpxmov (& 3) '20 a4)
(push a4)
(hpxmov (& 4) '10 a4)
(push a4)
(hpxmov (& 5) '8 a4)
(push a4)
(hpxmov (& 6) '7 a4)
(push a4)
(hpmovx (& 7) (& 7) '5)
(hpxmov (& 7) '21 a4)
(push (& 7))
(push a4)
(push a1)
(push a2)
(push a3)
(hpmovx nil (& 12) '14)
(hpmovx nil (& 12) '15)
(hpmovx nil (& 12) '16)
(hpmovx nil (& 12) '17)
(hpmovx nil (& 12) '18)
(hpmovx nil (& 12) '19)
(hpmovx nil (& 12) '20)
(hpmovx nil (& 12) '21)
(push (@ 104))
(push 'bitmap-restore)
(push (& 14))
(mov '2 a4)
(jmp send)
104
(eval ())
(mov (cvalq #:display:all-displays) a2)
(mov (& 12) a1)
(jcall cons)
(mov a1 (cvalq #:display:all-displays))
(hpmovx 't (& 12) '6)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(bfnil a1 106)
(push (@ 108))
(push (& 13))
(mov '1 a4)
(jmp current-display)
108
(eval ())
106
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(push a1)
(push (@ 110))
(push dlink)
(push prot)
(stack dlink)
(push (@ 112))
(push (& 17))
(mov '1 a4)
(jmp current-display)
112
(eval ())
(mov (& 7) a4)
(mov (cdr a4) (& 7))
(push (@ 113))
(mov '0 a4)
(jmp root-window)
113
(eval ())
(mov (& 7) a4)
(mov (cdr a4) (& 7))
(push (car a4))
(hpxmov (& 17) '14 a3)
(mov (& 0) a2)
(call #:user:exchange-and-subst)
(hpmovx (& 0) (& 17) '10)
(adjstk '1)
(jcall standard-foreground)
(mov (& 7) a4)
(mov (cdr a4) (& 7))
(push (car a4))
(hpxmov (& 17) '17 a3)
(mov (& 0) a2)
(call #:user:exchange-and-subst)
(hpmovx (& 0) (& 17) '13)
(hpxmov (& 17) '11 a4)
(hpmovx (& 0) a4 '4)
(adjstk '1)
(jcall standard-background)
(mov (& 7) a4)
(mov (cdr a4) (& 7))
(push (car a4))
(hpxmov (& 17) '17 a3)
(mov (& 0) a2)
(call #:user:exchange-and-subst)
(hpmovx (& 0) (& 17) '12)
(hpxmov (& 17) '11 a4)
(hpmovx (& 0) a4 '5)
(mov (& 0) a1)
(adjstk '1)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 111) a3)
110
(push a3)
(push a2)
(push (@ 114))
(push (& 4))
(mov '1 a4)
(jmp current-display)
114
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
111
(eval ())
(adjstk '1)
(push (& 0))
115
(bfcons (& 0) 116)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a4)
(mov (car a4) (& 0))
(mov (cdr a4) a4)
(mov (cdr a4) a3)
(mov (car a4) a4)
(mov (cdr a3) a2)
(mov (car a3) a3)
(mov (car a2) a2)
(push (@ 117))
(push a4)
(push a3)
(push a2)
(mov '3 a4)
(jmp create-bitmap)
117
(eval ())
(hpxmov (& 14) '15 a3)
(mov (& 0) a2)
(call #:user:exchange-and-subst)
(adjstk '1)
(bra 115)
116
(adjstk '1)
(push (& 2))
118
(bfcons (& 0) 119)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '0 a4)
(btnil a4 120)
(hpxmov (& 0) '0 a1)
(jcall make-named-color)
(bra 121)
120
(hpxmov (& 0) '4 a4)
(btnil a4 122)
(hpxmov (& 0) '1 a1)
(hpxmov (& 0) '2 a2)
(hpxmov (& 0) '3 a3)
(jcall make-mutable-color)
(bra 121)
122
(hpxmov (& 0) '1 a1)
(hpxmov (& 0) '2 a2)
(hpxmov (& 0) '3 a3)
(jcall make-color)
121
(hpxmov (& 14) '17 a3)
(mov (& 0) a2)
(call #:user:exchange-and-subst)
(adjstk '1)
(bra 118)
119
(adjstk '1)
(push (& 10))
124
(bfcons (& 0) 125)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall load-font)
(bra 124)
125
(adjstk '1)
(push (& 9))
126
(bfcons (& 0) 127)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall make-pattern)
(bra 126)
127
(adjstk '1)
(push (& 8))
128
(bfcons (& 0) 129)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a4)
(mov (car a4) (& 0))
(mov (cdr a4) a4)
(mov (cdr a4) a3)
(mov (car a4) a4)
(mov (cdr a3) a2)
(mov (car a3) a3)
(mov (car a2) a2)
(push (@ 130))
(push (& 1))
(push a4)
(push a3)
(push a2)
(mov '4 a4)
(jmp make-cursor)
130
(eval ())
(adjstk '1)
(bra 128)
129
(adjstk '1)
(mov (& 11) a2)
(mov (& 12) a1)
(call #:user:recreate-windows)
(mov (& 1) a2)
(mov (& 12) a1)
(call #:user:recreate-menus)
(push (@ 131))
(push (& 7))
(mov '1 a4)
(jmp current-window)
131
(eval ())
(push (@ 132))
(push (& 6))
(mov '1 a4)
(jmp current-keyboard-focus-window)
132
(eval ())
(push (@ 133))
(push (& 5))
(mov '1 a4)
(jmp event-mode)
133
(eval ())
(mov (& 12) a1)
(adjstk '13)
(return)
))
(loader'((entry #:user:recreate-windows subr2)
(push a2)
(push a1)
(btnil a2 101)
(hpxmov (car a2) '9 a4)
(btnil a4 103)
(hpxmov (car a2) '9 a1)
(jcall windowp)
(bfnil a1 103)
(mov (& 1) a1)
(mov (car a1) a2)
(mov (cdr a1) a1)
(jcall append1)
(mov a1 a2)
(mov (& 0) a1)
(adjstk '2)
(bra #:user:recreate-windows)
103
(mov (& 1) a4)
(hpxmov (car a4) '7 a4)
(push a4)
(hpxmov a4 '10 a3)
(push a3)
(hpxmov a4 '0 a2)
(push a2)
(hpxmov a4 '1 a1)
(push a1)
(hpxmov a4 '2 a4)
(push a4)
(hpxmov (& 4) '3 a4)
(push a4)
(hpxmov (& 5) '4 a4)
(push a4)
(hpxmov (& 6) '5 a4)
(push a4)
(hpxmov (& 7) '6 a4)
(push a4)
(hpxmov (& 8) '7 a4)
(push a4)
(hpxmov (& 9) '8 a4)
(push a4)
(hpxmov (& 10) '9 a4)
(push a4)
(mov (& 13) a4)
(hpxmov (car a4) '11 a4)
(push a4)
(mov (& 14) a1)
(mov (car a1) a1)
(jcall make-window)
(push (@ 105))
(mov '0 a4)
(jmp current-window)
105
(eval ())
(push a1)
(push (@ 106))
(push dlink)
(push prot)
(stack dlink)
(push (@ 108))
(mov (& 19) a4)
(push (car a4))
(mov '1 a4)
(jmp current-window)
108
(eval ())
(push (@ 109))
(push (& 15))
(mov '1 a4)
(jmp current-font)
109
(eval ())
(push (@ 110))
(push (& 14))
(mov '1 a4)
(jmp current-line-style)
110
(eval ())
(push (@ 111))
(push (& 13))
(mov '1 a4)
(jmp current-pattern)
111
(eval ())
(push (@ 112))
(push (& 12))
(mov '1 a4)
(jmp current-mode)
112
(eval ())
(push (@ 113))
(push (& 11))
(mov '1 a4)
(jmp current-foreground)
113
(eval ())
(push (@ 114))
(push (& 10))
(mov '1 a4)
(jmp current-background)
114
(eval ())
(push (@ 115))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(mov '4 a4)
(jmp current-clip)
115
(eval ())
(push (@ 116))
(push (& 5))
(mov '1 a4)
(jmp current-cursor)
116
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 107) a3)
106
(push a3)
(push a2)
(push (@ 117))
(push (& 4))
(mov '1 a4)
(jmp current-window)
117
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
107
(eval ())
(adjstk '1)
(btnil (& 11) 119)
(mov (& 14) a1)
(mov (car a1) a1)
(jcall window-bitmap)
(mov (& 11) a2)
(jcall exchvector)
(mov (& 14) a4)
(hpxmov (car a4) '7 a4)
(hpmovx (& 11) a4 '10)
119
(adjstk '13)
(mov (& 1) a2)
(mov (cdr a2) a2)
(mov (& 0) a1)
(adjstk '2)
(bra #:user:recreate-windows)
101
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((entry #:user:recreate-menus subr2)
(push a1)
(push a2)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 103))
(hpxmov (& 1) '0 a4)
(push a4)
(mov '1 a4)
(jmp create-menu)
103
(eval ())
(push a1)
(hpxmov (& 1) '1 a1)
(jcall reverse)
(push a1)
104
(bfcons (& 0) 105)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 106))
(push (& 3))
(push '0)
(hpxmov (& 3) '4 a4)
(push a4)
(hpxmov (& 4) '5 a4)
(push a4)
(mov '4 a4)
(jmp menu-insert-item-list)
106
(eval ())
(hpxmov (& 0) '6 a1)
(jcall reverse)
(push a1)
107
(bfcons (& 0) 108)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 109))
(push (& 5))
(push '0)
(push '0)
(hpxmov (& 4) '4 a4)
(push a4)
(hpxmov (& 5) '5 a4)
(push a4)
(hpxmov (& 6) '6 a4)
(push a4)
(mov '6 a4)
(jmp menu-insert-item)
109
(eval ())
(adjstk '1)
(bra 107)
108
(adjstk '2)
(bra 104)
105
(adjstk '1)
(hpxmov (& 3) '16 a3)
(mov (& 1) a2)
(mov (& 0) a1)
(call #:user:exchange-and-subst)
(adjstk '2)
(bra 101)
102
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((entry #:user:exchange-and-subst subr3)
(push a3)
(push a2)
(push a1)
(jcall exchvector)
(mov (& 2) a2)
(mov (& 0) a1)
(jcall memq)
(mov (& 1) (car a1))
(adjstk '3)
(return)
))
(loader'((fentry bitepilogue nsubr)
(entry bitepilogue nsubr)
(jcall #:llcp:nlist)
(push a1)
(cabne a1 nil 101)
(push (@ 103))
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(push a1)
(mov '1 a4)
(jmp list)
103
(eval ())
(mov a1 (& 0))
(bra 102)
101
(cabne (car a1) 't 102)
(mov (cvalq #:display:all-displays) (& 0))
102
(push (& 0))
107
(bfcons (& 0) 108)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a2)
(mov 'bitepilogue a1)
(jcall #:display:check-display)
(btnil a1 110)
(hpxmov (& 0) '6 a4)
(btnil a4 110)
(push (@ 111))
(push 'bitepilogue)
(push (& 2))
(mov '2 a4)
(jmp send)
111
(eval ())
(mov (& 0) a1)
(call #:user:do-close)
110
(adjstk '1)
(bra 107)
108
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((entry #:user:do-close subr1)
(push a1)
(hpmovx nil a1 '2)
(hpmovx nil a1 '6)
(hpmovx nil a1 '5)
(hpmovx nil a1 '3)
(hpmovx nil a1 '4)
(hpmovx nil a1 '7)
(hpmovx nil a1 '8)
(hpmovx nil a1 '9)
(hpmovx nil a1 '10)
(hpmovx nil a1 '11)
(hpmovx nil a1 '14)
(hpmovx nil a1 '15)
(hpmovx nil a1 '16)
(hpmovx nil a1 '17)
(hpmovx nil a1 '18)
(hpmovx nil a1 '19)
(hpmovx nil a1 '20)
(hpmovx nil a1 '21)
(mov (cvalq #:display:all-displays) a2)
(jcall delq)
(mov a1 (cvalq #:display:all-displays))
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(cabne (& 0) a1 101)
(btnil (cvalq #:display:all-displays) 104)
(push (@ 106))
(mov (cvalq #:display:all-displays) a4)
(push (car a4))
(mov '1 a4)
(jmp current-display)
106
(eval ())
(adjstk '1)
(return)
104
(mov nil (cvalq #:display:current-display))
(mov nil a1)
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry current-display nsubr)
(entry current-display nsubr)
(push a4)
(cabeq '0 (& 0) 103)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(cabne (cvalq #:display:current-display) a4 101)
103
(mov (cvalq #:display:current-display) a1)
(bra 102)
101
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a2)
(mov 'current-display a1)
(jcall #:display:check-display)
(btnil a1 104)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(mov a4 (cvalq #:display:current-display))
(push (@ 106))
(push 'current-display)
(push a4)
(mov '2 a4)
(jmp send)
106
(eval ())
(mov (cvalq #:display:current-display) a1)
(bra 102)
104
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry bitxmax nsubr)
(entry bitxmax nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'bitxmax a1)
(jcall #:display:check-display)
(btnil a1 108)
(hpxmov (& 0) '3 a1)
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry bitymax nsubr)
(entry bitymax nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'bitymax a1)
(jcall #:display:check-display)
(btnil a1 108)
(hpxmov (& 0) '4 a1)
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry root-window nsubr)
(entry root-window nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'root-window a1)
(jcall #:display:check-display)
(btnil a1 108)
(hpxmov (& 0) '10 a1)
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry bitmap-refresh nsubr)
(entry bitmap-refresh nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'bitmap-refresh a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'bitmap-refresh)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry bitmap-flush nsubr)
(entry bitmap-flush nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'bitmap-flush a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'bitmap-flush)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry bitmap-sync nsubr)
(entry bitmap-sync nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'bitmap-sync a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'bitmap-sync)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-roman-font nsubr)
(entry standard-roman-font nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-roman-font a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-roman-font)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-bold-font nsubr)
(entry standard-bold-font nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-bold-font a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-bold-font)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry large-roman-font nsubr)
(entry large-roman-font nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'large-roman-font a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'large-roman-font)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry small-roman-font nsubr)
(entry small-roman-font nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'small-roman-font a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'small-roman-font)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-foreground-pattern nsubr)
(entry standard-foreground-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-foreground-pattern a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-foreground-pattern)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-background-pattern nsubr)
(entry standard-background-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-background-pattern a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-background-pattern)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-medium-gray-pattern nsubr)
(entry standard-medium-gray-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-medium-pattern a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-medium-gray-pattern)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-light-gray-pattern nsubr)
(entry standard-light-gray-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-light-gray-pattern a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-light-gray-pattern)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-dark-gray-pattern nsubr)
(entry standard-dark-gray-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-dark-gray-pattern a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-dark-gray-pattern)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-lelisp-cursor nsubr)
(entry standard-lelisp-cursor nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-lelisp-cursor a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-lelisp-cursor)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-gc-cursor nsubr)
(entry standard-gc-cursor nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-gc-cursor a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-gc-cursor)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry standard-busy-cursor nsubr)
(entry standard-busy-cursor nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'standard-busy-cursor a1)
(jcall #:display:check-display)
(btnil a1 108)
(push (@ 110))
(push 'standard-busy-cursor)
(push (& 2))
(mov '2 a4)
(jmp send)
110
(eval ())
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(putprop '#:image:rectangle '((() () () ()) x y w h) 'defstruct)
(loader'((fentry #:image:rectangle:make subr0)
(entry #:image:rectangle:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(mov '4 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:image:rectangle)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:image:rectangle:x nsubr)
(entry #:image:rectangle:x nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:x)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:x '#:image:rectangle:x 'setf-inverse) '#:image:rectangle:x)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:x (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:image:rectangle:y nsubr)
(entry #:image:rectangle:y nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:y)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:y '#:image:rectangle:y 'setf-inverse) '#:image:rectangle:y)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:y (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:image:rectangle:w nsubr)
(entry #:image:rectangle:w nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:w)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:w '#:image:rectangle:w 'setf-inverse) '#:image:rectangle:w)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:w (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:image:rectangle:h nsubr)
(entry #:image:rectangle:h nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:h)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:h '#:image:rectangle:h 'setf-inverse) '#:image:rectangle:h)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:h (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(putprop '#:image:rectangle:window '((() () () () () () () 0 () ()) title hilited visible graph-env extend father properties cursor display subwindows) 'defstruct)
(loader'((fentry #:image:rectangle:window:make subr0)
(entry #:image:rectangle: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)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:x '#:image:rectangle:window:x 'setf-inverse) '#:image:rectangle:window:x)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle: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:y '#:image:rectangle:window:y 'setf-inverse) '#:image:rectangle:window:y)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle: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:w '#:image:rectangle:window:w 'setf-inverse) '#:image:rectangle:window:w)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle: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:h '#:image:rectangle:window:h 'setf-inverse) '#:image:rectangle:window:h)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:h (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:image:rectangle:window:title nsubr)
(entry #:image:rectangle:window:title nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:title)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:title '#:image:rectangle:window:title 'setf-inverse) '#:image:rectangle:window:title)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:title (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:image:rectangle:window:hilited nsubr)
(entry #:image:rectangle:window:hilited nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:hilited)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:hilited '#:image:rectangle:window:hilited 'setf-inverse) '#:image:rectangle:window:hilited)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:hilited (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:image:rectangle:window:visible nsubr)
(entry #:image:rectangle:window:visible nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:visible)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:visible '#:image:rectangle:window:visible 'setf-inverse) '#:image:rectangle:window:visible)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:visible (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((fentry #:image:rectangle:window:graph-env nsubr)
(entry #:image:rectangle:window:graph-env nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:graph-env)
(push '7)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:graph-env '#:image:rectangle:window:graph-env 'setf-inverse) '#:image:rectangle:window:graph-env)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:graph-env (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(loader'((fentry #:image:rectangle:window:extend nsubr)
(entry #:image:rectangle:window:extend nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:extend)
(push '8)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:extend '#:image:rectangle:window:extend 'setf-inverse) '#:image:rectangle:window:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:extend (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(loader'((fentry #:image:rectangle:window:father nsubr)
(entry #:image:rectangle:window:father nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:father)
(push '9)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:father '#:image:rectangle:window:father 'setf-inverse) '#:image:rectangle:window:father)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:father (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(loader'((fentry #:image:rectangle:window:properties nsubr)
(entry #:image:rectangle:window:properties nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:properties)
(push '10)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:properties '#:image:rectangle:window:properties 'setf-inverse) '#:image:rectangle:window:properties)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:properties (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(loader'((fentry #:image:rectangle:window:cursor nsubr)
(entry #:image:rectangle:window:cursor nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:cursor)
(push '11)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:cursor '#:image:rectangle:window:cursor 'setf-inverse) '#:image:rectangle:window:cursor)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:cursor (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(loader'((fentry #:image:rectangle:window:display nsubr)
(entry #:image:rectangle:window:display nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:display)
(push '12)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:display '#:image:rectangle:window:display 'setf-inverse) '#:image:rectangle:window:display)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:display (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(loader'((fentry #:image:rectangle:window:subwindows nsubr)
(entry #:image:rectangle:window:subwindows nsubr)
(push a4)
(push (@ 101))
(push '#:image:rectangle:window:subwindows)
(push '13)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:image:rectangle:window:subwindows '#:image:rectangle:window:subwindows 'setf-inverse) '#:image:rectangle:window:subwindows)))
(if (featurep 'compiler) (progn (defmacro-open #:image:rectangle:window:subwindows (struct . valeur) (ifn valeur (list 'vref struct 13) (list 'vset struct 13 (car valeur))))))
(setq #:sys-package:colon 'window)
(loader'((fentry create-window nsubr)
(entry create-window nsubr)
(cnbeq a4 '8 0)
(mov 'create-window a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(mov (& 7) a1)
(call compat-type)
(mov a1 (& 7))
(mov 'create a2)
(jcall getfn1)
(push a1)
(bfnil a1 102)
(mov (& 8) a3)
(mov (cvalq errnotawindowtype) a2)
(mov 'create-window a1)
(jcall error)
102
(push (@ 103))
(push (& 1))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(push (& 9))
(mov '8 a4)
(jmp funcall)
103
(eval ())
(adjstk '9)
(return)
))
(loader'((fentry create-subwindow nsubr)
(entry create-subwindow nsubr)
(cnbeq a4 '9 0)
(mov 'create-subwindow a1)
(mov '9 a2)
(jmp #:llcp:errwna)
0
(btnil (& 0) 103)
(btnil (& 0) 104)
(hpxmov (& 0) '12 a2)
(bra 105)
104
(push (@ 106))
(mov '0 a4)
(jmp current-display)
106
(eval ())
(mov a1 a2)
105
(mov (& 0) a3)
(mov 'create-subwindow a1)
(jcall #:window:check-window)
(btnil a1 101)
103
(mov (& 8) a1)
(call compat-type)
(mov a1 (& 8))
(mov 'create a2)
(jcall getfn1)
(push a1)
(bfnil a1 108)
(mov (& 9) a3)
(mov (cvalq errnotawindowtype) a2)
(mov 'create-window a1)
(jcall error)
108
(push (@ 109))
(push (& 1))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '9 a4)
(jmp funcall)
109
(eval ())
(adjstk '10)
(return)
101
(mov nil a1)
(adjstk '9)
(return)
))
(loader'((fentry make-window subr1)
(entry make-window subr1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(hpxmov (& 0) '9 a4)
(btnil a4 106)
(hpxmov a4 '11 a3)
(hpmovx a3 (& 0) '11)
(hpxmov a4 '12 a3)
(hpmovx a3 (& 0) '12)
(push a4)
(hpxmov a4 '13 a2)
(mov (& 1) a1)
(jcall cons)
(pop a4)
(hpmovx a1 a4 '13)
106
(hpxmov (& 0) '12 a4)
(bfnil a4 108)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpmovx a1 (& 0) '12)
108
(hpxmov (& 0) '11 a4)
(bfnil a4 111)
(hpmovx '0 (& 0) '11)
111
(hpmovx nil (& 0) '13)
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(push a1)
(push (@ 113))
(push dlink)
(push prot)
(stack dlink)
(push (@ 115))
(hpxmov (& 5) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
115
(eval ())
(hpxmov (& 4) '12 a4)
(push a4)
(hpxmov (& 5) '12 a1)
(hpxmov a1 '14 a1)
(mov (& 5) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '14)
(mov a1 (cvalq #:window:all-windows))
(push (@ 116))
(push 'make-window)
(push (& 6))
(mov '2 a4)
(jmp send)
116
(eval ())
(hpxmov (& 4) '7 a4)
(btnil a4 118)
(hpxmov (& 4) '7 a4)
(hpxmov a4 '11 a4)
(bfnil a4 118)
(hpxmov (& 4) '7 a4)
(hpxmov (& 4) '12 a3)
(hpmovx a3 a4 '11)
118
(mov (& 4) a4)
(mov (& 1) dlink)
(adjstk '3)
(push a4)
(mov (@ 114) a3)
113
(push a3)
(push a2)
(push (@ 121))
(push (& 4))
(mov '1 a4)
(jmp current-display)
121
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
114
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry current-window nsubr)
(entry current-window nsubr)
(push a4)
(cabne '0 (& 0) 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(hpxmov a1 '8 a1)
(bra 102)
101
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(btnil a4 104)
(hpxmov a4 '12 a3)
(bra 105)
104
(push (@ 106))
(mov '0 a4)
(jmp current-display)
106
(eval ())
(mov a1 a3)
105
(push a3)
(btnil a3 107)
(btnil (& 1) 109)
(push a3)
(mov (& 2) a3)
(pop a2)
(mov 'current-window a1)
(jcall #:window:check-window)
(btnil a1 107)
109
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(push a1)
(push (@ 111))
(push dlink)
(push prot)
(stack dlink)
(push (@ 113))
(push (& 5))
(mov '1 a4)
(jmp current-display)
113
(eval ())
(hpxmov (& 4) '8 a4)
(btnil a4 115)
(push (@ 116))
(push 'uncurrent-window)
(hpxmov (& 6) '8 a4)
(push a4)
(mov '2 a4)
(jmp send)
116
(eval ())
115
(hpmovx (& 5) (& 4) '8)
(mov (& 5) (cvalq #:window:current-window))
(btnil (& 5) 117)
(hpxmov (& 5) '7 a4)
(bra 118)
117
(hpxmov (& 4) '11 a4)
118
(hpmovx a4 (& 4) '9)
(mov a4 (cvalq #:graph-env:current-graph-env))
(hpxmov (& 4) '8 a3)
(btnil a3 120)
(push (@ 121))
(push 'current-window)
(hpxmov (& 6) '8 a3)
(push a3)
(mov '2 a4)
(jmp send)
121
(eval ())
120
(mov (& 5) a4)
(mov (& 1) dlink)
(adjstk '3)
(push a4)
(mov (@ 112) a3)
111
(push a3)
(push a2)
(push (@ 122))
(push (& 4))
(mov '1 a4)
(jmp current-display)
122
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
112
(eval ())
(adjstk '1)
(bra 108)
107
(mov nil a1)
108
(adjstk '2)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry modify-window nsubr)
(entry modify-window nsubr)
(cnbeq a4 '8 0)
(mov 'modify-window a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 7) '12 a2)
(mov (& 7) a3)
(mov 'modify-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq a1 (& 7) 101)
(bfnil (& 6) 104)
(bfnil (& 5) 104)
(bfnil (& 4) 104)
(bfnil (& 3) 104)
(bfnil (& 2) 104)
(bfnil (& 1) 104)
(btnil (& 0) 101)
104
(bfnil (& 4) 107)
(btnil (& 3) 106)
107
(hpxmov (& 7) '7 a4)
(hpxmov a4 '10 a3)
(hpmovx '0 a4 '6)
(hpmovx '0 a4 '7)
(mov (& 4) a2)
(bfnil a2 108)
(hpxmov (& 7) '2 a2)
108
(hpmovx a2 a4 '8)
(mov (& 3) a2)
(bfnil a2 109)
(hpxmov (& 7) '3 a2)
109
(hpmovx a2 a4 '9)
(btnil a3 106)
(hpxmov a4 '8 a2)
(hpmovx a2 a3 '0)
(hpxmov a4 '9 a2)
(hpmovx a2 a3 '1)
106
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(push a1)
(push (@ 113))
(push dlink)
(push prot)
(stack dlink)
(push (@ 115))
(hpxmov (& 12) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
115
(eval ())
(push (@ 116))
(push 'modify-window)
(push (& 13))
(push (& 13))
(push (& 13))
(push (& 13))
(push (& 13))
(push (& 13))
(push (& 13))
(push (& 13))
(mov '9 a4)
(jmp send)
116
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 114) a3)
113
(push a3)
(push a2)
(push (@ 117))
(push (& 4))
(mov '1 a4)
(jmp current-display)
117
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
114
(eval ())
(adjstk '1)
(mov (& 7) a1)
(adjstk '8)
(return)
101
(mov nil a1)
(adjstk '8)
(return)
))
(loader'((fentry update-window nsubr)
(entry update-window nsubr)
(cnbeq a4 '5 0)
(mov 'update-window a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '12 a2)
(mov (& 4) a3)
(mov 'update-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq a1 (& 4) 101)
(bfnil (& 3) 104)
(bfnil (& 2) 104)
(bfnil (& 1) 104)
(btnil (& 0) 101)
104
(bfnil (& 1) 107)
(btnil (& 0) 106)
107
(hpxmov (& 4) '7 a4)
(hpxmov a4 '10 a3)
(hpmovx '0 a4 '6)
(hpmovx '0 a4 '7)
(mov (& 1) a2)
(bfnil a2 108)
(hpxmov (& 4) '2 a2)
108
(hpmovx a2 a4 '8)
(mov (& 0) a2)
(bfnil a2 109)
(hpxmov (& 4) '3 a2)
109
(hpmovx a2 a4 '9)
(btnil a3 106)
(hpxmov a4 '8 a2)
(hpmovx a2 a3 '0)
(hpxmov a4 '9 a2)
(hpmovx a2 a3 '1)
106
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(push a1)
(push (@ 113))
(push dlink)
(push prot)
(stack dlink)
(push (@ 115))
(hpxmov (& 9) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
115
(eval ())
(push (@ 116))
(push 'update-window)
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '6 a4)
(jmp send)
116
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 114) a3)
113
(push a3)
(push a2)
(push (@ 117))
(push (& 4))
(mov '1 a4)
(jmp current-display)
117
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
114
(eval ())
(adjstk '1)
(mov (& 4) a1)
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry kill-window subr1)
(entry kill-window subr1)
(push a1)
(hpxmov a1 '12 a2)
(mov a1 a3)
(mov 'kill-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq a1 (& 0) 101)
(hpxmov (& 0) '13 a4)
(push a4)
104
(bfcons (& 0) 105)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall kill-window)
(bra 104)
105
(adjstk '1)
(hpxmov (& 0) '9 a4)
(btnil a4 107)
(hpxmov (& 0) '9 a4)
(push a4)
(hpxmov (& 1) '9 a2)
(hpxmov a2 '13 a2)
(mov (& 1) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '13)
107
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(push a1)
(push (@ 109))
(push dlink)
(push prot)
(stack dlink)
(push (@ 111))
(hpxmov (& 5) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
111
(eval ())
(hpxmov (& 4) '12 a4)
(hpxmov a4 '8 a4)
(cabne (& 4) a4 113)
(push (@ 114))
(push nil)
(mov '1 a4)
(jmp current-window)
114
(eval ())
113
(hpxmov (& 4) '12 a4)
(hpxmov a4 '7 a4)
(cabne (& 4) a4 116)
(push (@ 117))
(push nil)
(mov '1 a4)
(jmp current-keyboard-focus-window)
117
(eval ())
116
(hpxmov (& 4) '12 a4)
(push a4)
(hpxmov (& 5) '12 a2)
(hpxmov a2 '14 a2)
(mov (& 5) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '14)
(mov a1 (cvalq #:window:all-windows))
(push (@ 118))
(push 'kill-window)
(push (& 6))
(mov '2 a4)
(jmp send)
118
(eval ())
(hpmovx nil (& 4) '12)
(hpmovx nil (& 4) '8)
(hpxmov (& 4) '7 a4)
(btnil a4 119)
(hpxmov (& 4) '7 a4)
(hpmovx nil a4 '11)
(hpxmov (& 4) '7 a4)
(hpmovx nil a4 '12)
(hpxmov (& 4) '7 a4)
(hpmovx nil a4 '10)
(mov nil a1)
(bra 120)
119
(mov nil a1)
120
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 110) a3)
109
(push a3)
(push a2)
(push (@ 121))
(push (& 4))
(mov '1 a4)
(jmp current-display)
121
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
110
(eval ())
(adjstk '2)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry pop-window subr1)
(entry pop-window subr1)
(push a1)
(hpxmov a1 '12 a2)
(mov a1 a3)
(mov 'pop-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq a1 (& 0) 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(push a1)
(push (@ 105))
(push dlink)
(push prot)
(stack dlink)
(push (@ 107))
(hpxmov (& 5) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
107
(eval ())
(hpxmov (& 4) '12 a4)
(push a4)
(hpxmov (& 5) '12 a2)
(hpxmov a2 '14 a2)
(mov (& 5) a1)
(jcall delq)
(mov (& 5) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '14)
(mov a1 (cvalq #:window:all-windows))
(push (@ 108))
(push 'pop-window)
(push (& 6))
(mov '2 a4)
(jmp send)
108
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 106) a3)
105
(push a3)
(push a2)
(push (@ 109))
(push (& 4))
(mov '1 a4)
(jmp current-display)
109
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
106
(eval ())
(adjstk '2)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry move-behind-window subr2)
(entry move-behind-window subr2)
(push a2)
(push a1)
(cabeq a1 a2 101)
(mov a2 a3)
(mov a1 a2)
(mov 'move-behind-window a1)
(jcall #:window:check-windows)
(btnil a1 101)
(hpxmov (& 0) '12 a2)
(mov (& 0) a3)
(mov 'move-behind-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(hpxmov (& 1) '12 a2)
(mov (& 1) a3)
(mov 'move-behind-window a1)
(jcall #:window:check-window)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq (& 0) a1 101)
(push (@ 104))
(mov '0 a4)
(jmp root-window)
104
(eval ())
(cabeq (& 1) a1 101)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(push a1)
(push (@ 106))
(push dlink)
(push prot)
(stack dlink)
(push (@ 108))
(hpxmov (& 5) '12 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
108
(eval ())
(hpxmov (& 4) '12 a4)
(push a4)
(hpxmov (& 5) '12 a1)
(hpxmov a1 '14 a1)
(jcall nreverse)
(mov a1 a2)
(mov (& 5) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '14)
(hpxmov (& 5) '12 a2)
(hpxmov a2 '14 a2)
(mov (& 5) a1)
(jcall memq)
(push a1)
(mov (cdr a1) a2)
(mov (& 5) a1)
(jcall cons)
(pop a4)
(mov a1 (cdr a4))
(hpxmov (& 5) '12 a4)
(push a4)
(hpxmov (& 6) '12 a1)
(hpxmov a1 '14 a1)
(jcall nreverse)
(pop a4)
(hpmovx a1 a4 '14)
(mov a1 (cvalq #:window:all-windows))
(push (@ 109))
(push 'move-behind-window)
(push (& 6))
(push (& 8))
(mov '3 a4)
(jmp send)
109
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 107) a3)
106
(push a3)
(push a2)
(push (@ 110))
(push (& 4))
(mov '1 a4)
(jmp current-display)
110
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
107
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((fentry current-keyboard-focus-window nsubr)
(entry current-keyboard-focus-window nsubr)
(push a4)
(cabne '0 (& 0) 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(hpxmov a1 '7 a1)
(bra 102)
101
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(btnil a4 104)
(hpxmov a4 '12 a3)
(bra 105)
104
(push (@ 106))
(mov '0 a4)
(jmp current-display)
106
(eval ())
(mov a1 a3)
105
(push a3)
(btnil a3 107)
(btnil (& 1) 109)
(push a3)
(mov (& 2) a3)
(pop a2)
(mov 'current-keyboard-focus-window a1)
(jcall #:window:check-window)
(btnil a1 107)
109
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(push a1)
(push (@ 111))
(push dlink)
(push prot)
(stack dlink)
(push (@ 113))
(push (& 5))
(mov '1 a4)
(jmp current-display)
113
(eval ())
(hpxmov (& 4) '7 a4)
(btnil a4 115)
(push (@ 116))
(push 'uncurrent-keyboard-focus-window)
(hpxmov (& 6) '7 a4)
(push a4)
(mov '2 a4)
(jmp send)
116
(eval ())
115
(hpmovx (& 5) (& 4) '7)
(mov (& 5) (cvalq #:window:current-keyboard-focus-window))
(btnil (& 5) 118)
(push (@ 119))
(push 'current-keyboard-focus-window)
(push (& 7))
(mov '2 a4)
(jmp send)
119
(eval ())
118
(mov (& 5) a4)
(mov (& 1) dlink)
(adjstk '3)
(push a4)
(mov (@ 112) a3)
111
(push a3)
(push a2)
(push (@ 120))
(push (& 4))
(mov '1 a4)
(jmp current-display)
120
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
112
(eval ())
(adjstk '1)
(bra 108)
107
(mov nil a1)
108
(adjstk '2)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry find-window subr2)
(entry find-window subr2)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'find-window)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(push a1)
(push (& 3))
(push (& 5))
(mov '4 a4)
(jmp send)
108
(eval ())
(adjstk '2)
(return)
105
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((fentry map-window nsubr)
(entry map-window nsubr)
(cnbeq a4 '5 0)
(mov 'map-window a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 4) '12 a2)
(mov (& 4) a3)
(mov 'map-window a1)
(jcall #:window:check-window)
(btnil a1 102)
(push (@ 103))
(mov '0 a4)
(jmp root-window)
103
(eval ())
(cabeq a1 (& 4) 102)
(push (@ 104))
(push 'map-window)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
102
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry windowp subr1)
(entry windowp subr1)
(push a1)
(mov '#:image:rectangle:window a2)
(jcall typep)
(btnil a1 101)
(hpxmov (& 0) '8 a1)
(btnil a1 101)
(hpxmov (& 0) '12 a1)
(btnil a1 101)
(mov (& 0) a1)
101
(adjstk '1)
(return)
))
(loader'((fentry subwindowp subr2)
(entry subwindowp subr2)
(push a2)
(push a1)
(jcall windowp)
(btnil a1 101)
(mov (& 1) a1)
(jcall windowp)
(btnil a1 101)
(mov (& 1) a3)
(mov (& 0) a2)
(mov 'subwindowp a1)
(jcall #:window:check-windows)
(btnil a1 101)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '2)
(bra subwindowp1)
101
(adjstk '2)
(return)
))
(loader'((entry subwindowp1 subr2)
(bfnil a1 101)
(mov nil a1)
(return)
101
(cabne a1 a2 103)
(return)
103
(hpxmov a1 '9 a1)
(bra subwindowp1)
))
(loader'((fentry which-window subr0)
(entry which-window subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 105))
(mov '0 a4)
(jmp read-mouse)
105
(eval ())
(mov (cvalq #:mouse:y) a2)
(mov (cvalq #:mouse:x) a1)
(jmp find-window)
))
(loader'((fentry check-window-position subr1)
(entry check-window-position subr1)
(push a1)
(push (@ 101))
(push a1)
(push '0)
(push '0)
(push '#:check-window:x)
(push '#:check-window:y)
(mov '5 a4)
(jmp map-window)
101
(eval ())
(mov '0 a4)
(diff (cvalq #:check-window:x) a4)
(mov a4 (cvalq #:check-window:x))
(mov '0 a3)
(diff (cvalq #:check-window:y) a3)
(mov a3 (cvalq #:check-window:y))
(hpxmov (& 0) '0 a2)
(cabne a2 a4 104)
(hpxmov (& 0) '1 a2)
(cabeq a2 a3 102)
104
(push (@ 105))
(push (& 1))
(push a4)
(push a3)
(push nil)
(push nil)
(mov '5 a4)
(jmp update-window)
105
(eval ())
(adjstk '1)
(return)
102
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry define-window-property-accessor dmsubr)
(entry define-window-property-accessor dmsubr)
(mov (car a1) a1)
(push a1)
(push (@ 101))
(push 'de)
(mov a1 a2)
(mov '#:image:rectangle:window a1)
(jcall symbol)
(push a1)
(push '&nobind)
(push (@ 102))
(push 'if)
(push '(eq (arg) 1))
(push (@ 103))
(push 'cassq)
(push (@ 104))
(push 'quote)
(push (& 11))
(mov '2 a4)
(jmp list)
104
(eval ())
(push a1)
(push '((#:image:rectangle:window:properties (arg 0))))
(mov '3 a4)
(jmp mcons)
103
(eval ())
(push a1)
(push (@ 105))
(push '#:image:rectangle:window:set-property)
(push '(arg 0))
(push (@ 106))
(push 'quote)
(push (& 13))
(mov '2 a4)
(jmp list)
106
(eval ())
(push a1)
(push '((arg 1)))
(mov '4 a4)
(jmp mcons)
105
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
102
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:image:rectangle:window:set-property subr3)
(entry #:image:rectangle:window:set-property subr3)
(push a3)
(push a2)
(push a1)
(push a2)
(hpxmov a1 '10 a2)
(pop a1)
(jcall assq)
(btnil a1 101)
(mov (& 2) (cdr a1))
(adjstk '3)
(return)
101
(hpxmov (& 0) '10 a3)
(mov (& 2) a2)
(mov (& 1) a1)
(jcall acons)
(hpmovx a1 (& 0) '10)
(adjstk '3)
(return)
))
(loader'((entry compat-type subr1)
(cabne a1 'window 102)
(mov '#:image:rectangle:window a1)
(return)
102
(cabne a1 '#:window:tty 29999)
(mov '#:image:rectangle:window:tty a1)
(return)
29999
(return)
))
(loader'((fentry #:image:rectangle:window:create nsubr)
(entry #:image:rectangle:window:create nsubr)
(cnbge a4 '7 0)
(mov '#:image:rectangle:window:create a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(diff '7 a4)
(jcall #:llcp:nlist)
(push a1)
(jcall #:image:rectangle:window:make)
(hpmovx (& 7) a1 '0)
(hpmovx (& 6) a1 '1)
(hpmovx (& 5) a1 '2)
(hpmovx (& 4) a1 '3)
(hpmovx (& 3) a1 '4)
(hpmovx (& 2) a1 '5)
(hpmovx (& 1) a1 '6)
(btnil (& 0) 101)
(mov (& 0) a4)
(mov (car a4) a4)
(bra 102)
101
(mov nil a4)
102
(hpmovx a4 a1 '9)
(adjstk '8)
(jmp make-window)
))
(loader'((fentry #:image:rectangle:window:prin subr1)
(entry #:image:rectangle:window:prin subr1)
(push a1)
(push (@ 101))
(push '35)
(mov '1 a4)
(jmp princn)
101
(eval ())
(push (@ 102))
(push '60)
(mov '1 a4)
(jmp princn)
102
(eval ())
(push (@ 103))
(mov (& 1) a1)
(jcall type-of)
(push a1)
(mov '1 a4)
(jmp prin)
103
(eval ())
(push (@ 104))
(push '32)
(mov '1 a4)
(jmp princn)
104
(eval ())
(push (@ 105))
(hpxmov (& 1) '4 a4)
(push a4)
(mov '1 a4)
(jmp prin)
105
(eval ())
(push (@ 106))
(push '62)
(mov '1 a4)
(jmp princn)
106
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:window:make dmsubr)
(entry #:window:make dmsubr)
(mov '(#:image:rectangle:window:make) a1)
(return)
))
(loader'((fentry #:window:left dmsubr)
(entry #:window:left dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '0)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(0))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:top dmsubr)
(entry #:window:top dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '1)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(1))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:width dmsubr)
(entry #:window:width dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '2)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(2))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:height dmsubr)
(entry #:window:height dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '3)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(3))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:title dmsubr)
(entry #:window:title dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '4)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(4))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:hilited dmsubr)
(entry #:window:hilited dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '5)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(5))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:visible dmsubr)
(entry #:window:visible dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '6)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(6))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:graph-env dmsubr)
(entry #:window:graph-env dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '7)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(7))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:extend dmsubr)
(entry #:window:extend dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '8)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(8))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:father dmsubr)
(entry #:window:father dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '9)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(9))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:properties dmsubr)
(entry #:window:properties dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '10)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(10))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:cursor dmsubr)
(entry #:window:cursor dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '11)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(11))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:display dmsubr)
(entry #:window:display dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '12)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(12))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:subwindows dmsubr)
(entry #:window:subwindows dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(btnil a4 101)
(push (@ 103))
(push 'vset)
(push a1)
(push '13)
(push (car a4))
(mov '4 a4)
(jmp list)
103
(eval ())
(return)
101
(push (@ 104))
(push 'vref)
(push a1)
(push '(13))
(mov '3 a4)
(jmp mcons)
104
(eval ())
(return)
))
(loader'((fentry #:window:create nsubr)
(entry #:window:create nsubr)
(jcall #:llcp:nlist)
(push (@ 101))
(push '#:image:rectangle:window:create)
(push a1)
(mov '2 a4)
(jmp apply)
101
(eval ())
(return)
))
(loader'((fentry #:window:prin subr1)
(entry #:window:prin subr1)
(jmp #:image:rectangle:window:prin)
))
(loader'((fentry #:image:rectangle:window:make-window subr1)
(entry #:image:rectangle:window:make-window subr1)
(push a1)
(hpxmov a1 '9 a4)
(btnil a4 101)
(push (@ 103))
(push 'create-subwindow)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
103
(eval ())
(bra 102)
101
(push (@ 104))
(push 'create-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
104
(eval ())
102
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:image:rectangle:window:current-window subr1)
(entry #:image:rectangle:window:current-window subr1)
(push (@ 101))
(push 'current-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:uncurrent-window subr1)
(entry #:image:rectangle:window:uncurrent-window subr1)
(push (@ 101))
(push 'uncurrent-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:modify-window nsubr)
(entry #:image:rectangle:window:modify-window nsubr)
(cnbeq a4 '8 0)
(mov '#:image:rectangle:window:modify-window a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'modify-window)
(hpxmov (& 9) '12 a4)
(push a4)
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '10 a4)
(jmp send)
101
(eval ())
(adjstk '8)
(return)
))
(loader'((fentry #:image:rectangle:window:update-window nsubr)
(entry #:image:rectangle:window:update-window nsubr)
(cnbeq a4 '5 0)
(mov '#:image:rectangle:window:update-window a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'update-window)
(hpxmov (& 6) '12 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:image:rectangle:window:kill-window subr1)
(entry #:image:rectangle:window:kill-window subr1)
(push (@ 101))
(push 'kill-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:pop-window subr1)
(entry #:image:rectangle:window:pop-window subr1)
(push (@ 101))
(push 'pop-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:move-behind-window subr2)
(entry #:image:rectangle:window:move-behind-window subr2)
(push (@ 101))
(push 'move-behind-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:current-keyboard-focus-window subr1)
(entry #:image:rectangle:window:current-keyboard-focus-window subr1)
(push (@ 101))
(push 'current-keyboard-focus-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(entry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(push (@ 101))
(push 'uncurrent-keyboard-focus-window)
(hpxmov a1 '12 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:map-window nsubr)
(entry #:image:rectangle:window:map-window nsubr)
(cnbeq a4 '5 0)
(mov '#:image:rectangle:window:map-window a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'map-window)
(hpxmov (& 6) '12 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(setq #:sys-package:colon 'color)
(putprop 'color '((() () () () () () ()) name red green blue mutable display extend) 'defstruct)
(loader'((fentry #:color:make subr0)
(entry #:color:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '7 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'color)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:color:name nsubr)
(entry #:color:name nsubr)
(push a4)
(push (@ 101))
(push '#:color:name)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:name '#:color:name 'setf-inverse) '#:color:name)))
(if (featurep 'compiler) (progn (defmacro-open #:color:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:color:red nsubr)
(entry #:color:red nsubr)
(push a4)
(push (@ 101))
(push '#:color:red)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:red '#:color:red 'setf-inverse) '#:color:red)))
(if (featurep 'compiler) (progn (defmacro-open #:color:red (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:color:green nsubr)
(entry #:color:green nsubr)
(push a4)
(push (@ 101))
(push '#:color:green)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:green '#:color:green 'setf-inverse) '#:color:green)))
(if (featurep 'compiler) (progn (defmacro-open #:color:green (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:color:blue nsubr)
(entry #:color:blue nsubr)
(push a4)
(push (@ 101))
(push '#:color:blue)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:blue '#:color:blue 'setf-inverse) '#:color:blue)))
(if (featurep 'compiler) (progn (defmacro-open #:color:blue (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:color:mutable nsubr)
(entry #:color:mutable nsubr)
(push a4)
(push (@ 101))
(push '#:color:mutable)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:mutable '#:color:mutable 'setf-inverse) '#:color:mutable)))
(if (featurep 'compiler) (progn (defmacro-open #:color:mutable (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:color:display nsubr)
(entry #:color:display nsubr)
(push a4)
(push (@ 101))
(push '#:color:display)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:display '#:color:display 'setf-inverse) '#:color:display)))
(if (featurep 'compiler) (progn (defmacro-open #:color:display (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:color:extend nsubr)
(entry #:color:extend nsubr)
(push a4)
(push (@ 101))
(push '#:color:extend)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:color:extend '#:color:extend 'setf-inverse) '#:color:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:color:extend (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((fentry #:color:prin subr1)
(entry #:color:prin subr1)
(push a1)
(push (@ 101))
(push '35)
(mov '1 a4)
(jmp princn)
101
(eval ())
(push (@ 102))
(push '60)
(mov '1 a4)
(jmp princn)
102
(eval ())
(push (@ 103))
(mov (& 1) a1)
(jcall type-of)
(push a1)
(mov '1 a4)
(jmp prin)
103
(eval ())
(push (@ 104))
(push '32)
(mov '1 a4)
(jmp princn)
104
(eval ())
(push (@ 105))
(hpxmov (& 1) '0 a4)
(push a4)
(mov '1 a4)
(jmp prin)
105
(eval ())
(push (@ 106))
(push '32)
(mov '1 a4)
(jmp princn)
106
(eval ())
(push (@ 107))
(hpxmov (& 1) '1 a4)
(push a4)
(mov '1 a4)
(jmp prin)
107
(eval ())
(push (@ 108))
(push '32)
(mov '1 a4)
(jmp princn)
108
(eval ())
(push (@ 109))
(hpxmov (& 1) '2 a4)
(push a4)
(mov '1 a4)
(jmp prin)
109
(eval ())
(push (@ 110))
(push '32)
(mov '1 a4)
(jmp princn)
110
(eval ())
(push (@ 111))
(hpxmov (& 1) '3 a4)
(push a4)
(mov '1 a4)
(jmp prin)
111
(eval ())
(push (@ 112))
(push '32)
(mov '1 a4)
(jmp princn)
112
(eval ())
(push (@ 113))
(hpxmov (& 1) '6 a4)
(push a4)
(mov '1 a4)
(jmp prin)
113
(eval ())
(push (@ 114))
(push '62)
(mov '1 a4)
(jmp princn)
114
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry standard-foreground subr0)
(entry standard-foreground subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '13 a1)
(return)
))
(loader'((fentry standard-background subr0)
(entry standard-background subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '12 a1)
(return)
))
(loader'((fentry make-color subr3)
(entry make-color subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(jcall #:color:make)
(push a1)
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(pop a4)
(hpmovx a1 a4 '5)
(hpmovx (& 1) (& 0) '1)
(hpmovx (& 2) (& 0) '2)
(hpmovx (& 3) (& 0) '3)
(push (@ 106))
(push 'make-color)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(push (& 5))
(push (& 7))
(push (& 9))
(mov '6 a4)
(jmp send)
106
(eval ())
(mov a1 (& 0))
(push a1)
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(hpxmov a1 '17 a2)
(pop a1)
(jcall memq)
(bfnil a1 109)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(push a1)
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(hpxmov a1 '17 a1)
(mov (& 1) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '17)
109
(mov (& 0) a1)
(adjstk '4)
(return)
))
(loader'((fentry make-mutable-color subr3)
(entry make-mutable-color subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(jcall #:color:make)
(push a1)
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(pop a4)
(hpmovx a1 a4 '5)
(hpmovx (& 1) (& 0) '1)
(hpmovx (& 2) (& 0) '2)
(hpmovx (& 3) (& 0) '3)
(hpmovx 't (& 0) '4)
(push (@ 106))
(push 'make-mutable-color)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(push (& 5))
(push (& 7))
(push (& 9))
(mov '6 a4)
(jmp send)
106
(eval ())
(mov a1 (& 0))
(push a1)
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(hpxmov a1 '17 a2)
(pop a1)
(jcall memq)
(bfnil a1 109)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(push a1)
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(hpxmov a1 '17 a1)
(mov (& 1) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '17)
109
(mov (& 0) a1)
(adjstk '4)
(return)
))
(loader'((fentry make-named-color subr1)
(entry make-named-color subr1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(jcall #:color:make)
(push a1)
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(pop a4)
(hpmovx a1 a4 '5)
(hpmovx (& 1) (& 0) '0)
(push (@ 106))
(push 'make-named-color)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(push (& 5))
(mov '4 a4)
(jmp send)
106
(eval ())
(mov a1 (& 0))
(push a1)
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(hpxmov a1 '17 a2)
(pop a1)
(jcall memq)
(bfnil a1 109)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(push a1)
(push (@ 112))
(mov '0 a4)
(jmp current-display)
112
(eval ())
(hpxmov a1 '17 a1)
(mov (& 1) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '17)
109
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((fentry kill-color subr1)
(entry kill-color subr1)
(push a1)
(hpxmov a1 '5 a2)
(mov a1 a3)
(mov 'kill-color a1)
(jcall #:color:check-color)
(btnil a1 101)
(push (@ 103))
(push 'kill-color)
(hpxmov (& 2) '5 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
103
(eval ())
(hpxmov (& 0) '5 a4)
(push a4)
(hpxmov (& 1) '5 a2)
(hpxmov a2 '17 a2)
(mov (& 1) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '17)
(hpmovx nil (& 0) '6)
(hpmovx nil (& 0) '5)
(mov nil a1)
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry red-component nsubr)
(entry red-component nsubr)
(push a4)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(mov (& 1) a4)
(plus '0 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(hpxmov (& 2) '5 a2)
(mov (& 2) a3)
(mov 'red-component a1)
(jcall #:color:check-color)
(btnil a1 101)
(cabne '1 (& 1) 103)
(hpxmov (& 2) '1 a1)
(bra 102)
103
(hpxmov (& 2) '4 a4)
(bfnil a4 106)
(mov (& 2) a3)
(mov (cvalq errnotamutable) a2)
(mov 'red-component a1)
(jcall error)
106
(push (@ 107))
(push 'red-component)
(hpxmov (& 4) '5 a4)
(push a4)
(push (& 5))
(push (& 4))
(mov '4 a4)
(jmp send)
107
(eval ())
(hpmovx (& 0) (& 2) '1)
(mov (& 0) a1)
(bra 102)
101
(mov nil a1)
102
(adjstk '3)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry blue-component nsubr)
(entry blue-component nsubr)
(push a4)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(mov (& 1) a4)
(plus '0 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(hpxmov (& 2) '5 a2)
(mov (& 2) a3)
(mov 'blue-component a1)
(jcall #:color:check-color)
(btnil a1 101)
(cabne '1 (& 1) 103)
(hpxmov (& 2) '3 a1)
(bra 102)
103
(hpxmov (& 2) '4 a4)
(bfnil a4 106)
(mov (& 2) a3)
(mov (cvalq errnotamutable) a2)
(mov 'blue-component a1)
(jcall error)
106
(push (@ 107))
(push 'blue-component)
(hpxmov (& 4) '5 a4)
(push a4)
(push (& 5))
(push (& 4))
(mov '4 a4)
(jmp send)
107
(eval ())
(hpmovx (& 0) (& 2) '3)
(mov (& 0) a1)
(bra 102)
101
(mov nil a1)
102
(adjstk '3)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry green-component nsubr)
(entry green-component nsubr)
(push a4)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(mov (& 1) a4)
(plus '0 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(hpxmov (& 2) '5 a2)
(mov (& 2) a3)
(mov 'green-component a1)
(jcall #:color:check-color)
(btnil a1 101)
(cabne '1 (& 1) 103)
(hpxmov (& 2) '2 a1)
(bra 102)
103
(hpxmov (& 2) '4 a4)
(bfnil a4 106)
(mov (& 2) a3)
(mov (cvalq errnotamutable) a2)
(mov 'green-component a1)
(jcall error)
106
(push (@ 107))
(push 'green-component)
(hpxmov (& 4) '5 a4)
(push a4)
(push (& 5))
(push (& 4))
(mov '4 a4)
(jmp send)
107
(eval ())
(hpmovx (& 0) (& 2) '2)
(mov (& 0) a1)
(bra 102)
101
(mov nil a1)
102
(adjstk '3)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry all-colors nsubr)
(entry all-colors nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(cabne (& 0) '0 105)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(mov a1 a4)
(bra 106)
105
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
106
(push a4)
(mov a4 a2)
(mov 'all-colors a1)
(jcall #:display:check-display)
(btnil a1 108)
(hpxmov (& 0) '17 a1)
(bra 109)
108
(mov nil a1)
109
(adjstk '1)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry current-foreground nsubr)
(entry current-foreground nsubr)
(push a4)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push (& 0))
(push a4)
(cabne '0 (& 1) 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(hpxmov a1 '9 a1)
(hpxmov a1 '4 a1)
(bra 102)
101
(hpxmov a4 '5 a2)
(mov a4 a3)
(mov 'current-foreground a1)
(jcall #:color:check-color)
(btnil a1 104)
(push (@ 106))
(push 'current-foreground)
(hpxmov (& 2) '5 a4)
(hpxmov a4 '9 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(hpxmov (& 0) '5 a4)
(hpxmov a4 '9 a4)
(hpmovx (& 0) a4 '4)
(mov (& 0) a1)
(bra 102)
104
(mov nil a1)
102
(adjstk '2)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry current-background nsubr)
(entry current-background nsubr)
(push a4)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push (& 0))
(push a4)
(cabne '0 (& 1) 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(hpxmov a1 '9 a1)
(hpxmov a1 '5 a1)
(bra 102)
101
(hpxmov a4 '5 a2)
(mov a4 a3)
(mov 'current-background a1)
(jcall #:color:check-color)
(btnil a1 104)
(push (@ 106))
(push 'current-background)
(hpxmov (& 2) '5 a4)
(hpxmov a4 '9 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(hpxmov (& 0) '5 a4)
(hpxmov a4 '9 a4)
(hpmovx (& 0) a4 '5)
(mov (& 0) a1)
(bra 102)
104
(mov nil a1)
102
(adjstk '2)
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry #:graph-env:current-foreground subr2)
(entry #:graph-env:current-foreground subr2)
(push (@ 101))
(push 'current-foreground)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:current-background subr2)
(entry #:graph-env:current-background subr2)
(push (@ 101))
(push 'current-background)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(putprop 'graph-env '((0 0 1 3 () () 0 0 0 0 () () ()) font line-style pattern mode foreground background clip-x clip-y clip-w clip-h bitmap display extend) 'defstruct)
(loader'((fentry #:graph-env:make subr0)
(entry #:graph-env:make subr0)
(push (@ 101))
(push '0)
(push '0)
(push '1)
(push '3)
(push nil)
(push nil)
(push '0)
(push '0)
(push '0)
(push '0)
(push nil)
(push nil)
(push nil)
(mov '13 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'graph-env)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:graph-env:font nsubr)
(entry #:graph-env:font nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:font)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:font '#:graph-env:font 'setf-inverse) '#:graph-env:font)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:font (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:graph-env:line-style nsubr)
(entry #:graph-env:line-style nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:line-style)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:line-style '#:graph-env:line-style 'setf-inverse) '#:graph-env:line-style)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:line-style (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:graph-env:pattern nsubr)
(entry #:graph-env:pattern nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:pattern)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:pattern '#:graph-env:pattern 'setf-inverse) '#:graph-env:pattern)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:pattern (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:graph-env:mode nsubr)
(entry #:graph-env:mode nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:mode)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:mode '#:graph-env:mode 'setf-inverse) '#:graph-env:mode)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:mode (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:graph-env:foreground nsubr)
(entry #:graph-env:foreground nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:foreground)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:foreground '#:graph-env:foreground 'setf-inverse) '#:graph-env:foreground)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:foreground (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:graph-env:background nsubr)
(entry #:graph-env:background nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:background)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:background '#:graph-env:background 'setf-inverse) '#:graph-env:background)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:background (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:graph-env:clip-x nsubr)
(entry #:graph-env:clip-x nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:clip-x)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:clip-x '#:graph-env:clip-x 'setf-inverse) '#:graph-env:clip-x)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:clip-x (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((fentry #:graph-env:clip-y nsubr)
(entry #:graph-env:clip-y nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:clip-y)
(push '7)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:clip-y '#:graph-env:clip-y 'setf-inverse) '#:graph-env:clip-y)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:clip-y (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(loader'((fentry #:graph-env:clip-w nsubr)
(entry #:graph-env:clip-w nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:clip-w)
(push '8)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:clip-w '#:graph-env:clip-w 'setf-inverse) '#:graph-env:clip-w)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:clip-w (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(loader'((fentry #:graph-env:clip-h nsubr)
(entry #:graph-env:clip-h nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:clip-h)
(push '9)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:clip-h '#:graph-env:clip-h 'setf-inverse) '#:graph-env:clip-h)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:clip-h (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(loader'((fentry #:graph-env:bitmap nsubr)
(entry #:graph-env:bitmap nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:bitmap)
(push '10)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:bitmap '#:graph-env:bitmap 'setf-inverse) '#:graph-env:bitmap)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:bitmap (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(loader'((fentry #:graph-env:display nsubr)
(entry #:graph-env:display nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:display)
(push '11)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:display '#:graph-env:display 'setf-inverse) '#:graph-env:display)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:display (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(loader'((fentry #:graph-env:extend nsubr)
(entry #:graph-env:extend nsubr)
(push a4)
(push (@ 101))
(push '#:graph-env:extend)
(push '12)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:extend '#:graph-env:extend 'setf-inverse) '#:graph-env:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:extend (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(setq #:sys-package:colon 'graph-env)
(loader'((fentry clear-graph-env subr0)
(entry clear-graph-env subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'clear-graph-env)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov '2 a4)
(jmp send)
104
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry current-clip nsubr)
(entry current-clip nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(mov (& 1) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(mov (& 2) a4)
(plus '0 a4)
(xspmov a4 a2)
(mov (& 2) a4)
(plus '-1 a4)
(xspmov a4 a4)
(push (& 2))
(cabne (& 0) '0 105)
(hpxmov (& 2) '6 a1)
(mov a1 (cvalq #:clip:x))
(hpxmov (& 2) '7 a4)
(mov a4 (cvalq #:clip:y))
(hpxmov (& 2) '8 a4)
(mov a4 (cvalq #:clip:w))
(hpxmov (& 2) '9 a4)
(mov a4 (cvalq #:clip:h))
(mov a4 a1)
(bra 106)
105
(hpmovx a3 (& 2) '6)
(hpmovx (& 1) (& 2) '7)
(hpmovx a2 (& 2) '8)
(hpmovx a4 (& 2) '9)
(push (@ 107))
(push 'current-clip)
(push (& 4))
(push a3)
(push (& 5))
(push a2)
(push a4)
(mov '6 a4)
(jmp send)
107
(eval ())
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry draw-cursor subr3)
(entry draw-cursor subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-cursor)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry current-font nsubr)
(entry current-font nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(cabne (& 1) '0 105)
(hpxmov (& 2) '0 a1)
(bra 106)
105
(bffix a3 109)
(cnblt a3 '0 109)
(push a3)
(jcall font-max)
(pop a4)
(cnble a4 a1 107)
109
(mov (& 0) a3)
(mov 'erroob a2)
(mov 'current-font a1)
(jcall error)
(bra 106)
107
(push (@ 110))
(push 'current-font)
(push (& 4))
(push (& 3))
(mov '3 a4)
(jmp send)
110
(eval ())
(hpmovx (& 0) (& 2) '0)
(mov (& 0) a1)
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry font-max subr0)
(entry font-max subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'font-max)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov '2 a4)
(jmp send)
108
(eval ())
(return)
105
(mov nil a1)
(return)
))
(loader'((fentry load-font subr1)
(entry load-font subr1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 106))
(mov '0 a4)
(jmp current-display)
106
(eval ())
(hpxmov a1 '18 a2)
(mov (& 0) a1)
(jcall cassoc)
(bfnil a1 105)
(push (@ 107))
(push 'load-font)
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
107
(eval ())
(push a1)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(push a1)
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(hpxmov a1 '18 a1)
(push a1)
(mov (& 2) a2)
(mov (& 3) a1)
(jcall cons)
(mov a1 a2)
(pop a1)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '18)
(mov (& 0) a1)
(adjstk '1)
105
(adjstk '1)
(return)
))
(loader'((fentry font-name subr1)
(entry font-name subr1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '18 a2)
(mov (& 0) a1)
(jcall rassoc)
(bfnil a1 106)
(mov (& 0) a3)
(mov 'erroob a2)
(mov 'font-name a1)
(adjstk '1)
(jmp error)
106
(mov (car a1) a1)
(adjstk '1)
(return)
))
(loader'((fentry draw-substring nsubr)
(entry draw-substring nsubr)
(cnbeq a4 '5 0)
(mov 'draw-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-substring)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
104
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry draw-cn subr3)
(entry draw-cn subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-cn)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry width-substring subr3)
(entry width-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'width-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry height-substring subr3)
(entry height-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'height-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry x-base-substring subr3)
(entry x-base-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'x-base-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry y-base-substring subr3)
(entry y-base-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'y-base-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry x-inc-substring subr3)
(entry x-inc-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'x-inc-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry y-inc-substring subr3)
(entry y-inc-substring subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'y-inc-substring)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
108
(eval ())
(adjstk '3)
(return)
105
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry current-line-style nsubr)
(entry current-line-style nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(cabne '0 (& 1) 105)
(hpxmov (& 2) '1 a1)
(bra 106)
105
(bffix a3 109)
(cnblt a3 '0 109)
(push a3)
(jcall line-style-max)
(pop a4)
(cnble a4 a1 107)
109
(mov (& 0) a3)
(mov 'erroob a2)
(mov 'current-line-style a1)
(jcall error)
(bra 106)
107
(push (@ 110))
(push 'current-line-style)
(push (& 4))
(push (& 3))
(mov '3 a4)
(jmp send)
110
(eval ())
(hpmovx (& 0) (& 2) '1)
(mov (& 0) a1)
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry line-style-max subr0)
(entry line-style-max subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'line-style-max)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov '2 a4)
(jmp send)
108
(eval ())
(return)
105
(mov nil a1)
(return)
))
(loader'((fentry current-pattern nsubr)
(entry current-pattern nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(cabne '0 (& 1) 105)
(hpxmov (& 2) '2 a1)
(bra 106)
105
(bffix a3 109)
(cnblt a3 '0 109)
(push a3)
(jcall pattern-max)
(pop a4)
(cnble a4 a1 107)
109
(mov (& 0) a3)
(mov 'erroob a2)
(mov 'current-pattern a1)
(jcall error)
(bra 106)
107
(push (@ 110))
(push 'current-pattern)
(push (& 4))
(push (& 3))
(mov '3 a4)
(jmp send)
110
(eval ())
(hpmovx (& 0) (& 2) '2)
(mov (& 0) a1)
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry pattern-max subr0)
(entry pattern-max subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'pattern-max)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov '2 a4)
(jmp send)
108
(eval ())
(return)
105
(mov nil a1)
(return)
))
(loader'((fentry make-pattern subr1)
(entry make-pattern subr1)
(push a1)
(hpxmov a1 '3 a2)
(mov a1 a3)
(mov 'make-pattern a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(hpxmov (& 0) '3 a4)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(push (& 5))
(mov '1 a4)
(jmp current-display)
106
(eval ())
(push (@ 107))
(push 'make-pattern)
(hpxmov (& 6) '9 a4)
(push a4)
(push (& 8))
(mov '3 a4)
(jmp send)
107
(eval ())
(push a1)
(hpxmov (& 5) '19 a1)
(mov (& 6) a2)
(jcall nconc1)
(hpmovx a1 (& 5) '19)
(mov (& 0) a1)
(adjstk '1)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 108))
(push (& 4))
(mov '1 a4)
(jmp current-display)
108
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry current-mode nsubr)
(entry current-mode nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(cabne '0 (& 1) 105)
(hpxmov (& 2) '3 a1)
(bra 106)
105
(bffix a3 109)
(cnblt a3 '0 109)
(cnble a3 '16 107)
109
(mov 'erroob a2)
(mov 'current-mode a1)
(jcall error)
(bra 106)
107
(push (@ 110))
(push 'current-mode)
(push (& 4))
(push a3)
(mov '3 a4)
(jmp send)
110
(eval ())
(hpmovx (& 0) (& 2) '3)
(mov (& 0) a1)
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry draw-point subr2)
(entry draw-point subr2)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-point)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(mov '4 a4)
(jmp send)
104
(eval ())
(adjstk '2)
(return)
101
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((fentry draw-polymarker subr3)
(entry draw-polymarker subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-polymarker)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry draw-line nsubr)
(entry draw-line nsubr)
(cnbeq a4 '4 0)
(mov 'draw-line a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-line)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry draw-polyline subr3)
(entry draw-polyline subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-polyline)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry draw-rectangle nsubr)
(entry draw-rectangle nsubr)
(cnbeq a4 '4 0)
(mov 'draw-rectangle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-rectangle)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry fill-rectangle nsubr)
(entry fill-rectangle nsubr)
(cnbeq a4 '4 0)
(mov 'fill-rectangle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'fill-rectangle)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry fill-area subr3)
(entry fill-area subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'fill-area)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry draw-ellipse nsubr)
(entry draw-ellipse nsubr)
(cnbeq a4 '4 0)
(mov 'draw-ellipse a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-ellipse)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry fill-ellipse nsubr)
(entry fill-ellipse nsubr)
(cnbeq a4 '4 0)
(mov 'fill-ellipse a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'fill-ellipse)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
104
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry draw-circle subr3)
(entry draw-circle subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'draw-circle)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry fill-circle subr3)
(entry fill-circle subr3)
(push a3)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'fill-circle)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(hpxmov a1 '9 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
104
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry #:graph-env:clear-graph-env subr1)
(entry #:graph-env:clear-graph-env subr1)
(push (@ 101))
(push 'clear-graph-env)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:current-clip nsubr)
(entry #:graph-env:current-clip nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:current-clip a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'current-clip)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:draw-cursor nsubr)
(entry #:graph-env:draw-cursor nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-cursor a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-cursor)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:current-font subr2)
(entry #:graph-env:current-font subr2)
(push (@ 101))
(push 'current-font)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:font-max subr1)
(entry #:graph-env:font-max subr1)
(push (@ 101))
(push 'font-max)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:load-font subr2)
(entry #:graph-env:load-font subr2)
(push (@ 101))
(push 'load-font)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:font-name subr2)
(entry #:graph-env:font-name subr2)
(push (@ 101))
(push 'font-name)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:draw-cn nsubr)
(entry #:graph-env:draw-cn nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-cn a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-cn)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-substring nsubr)
(entry #:graph-env:draw-substring nsubr)
(cnbeq a4 '6 0)
(mov '#:graph-env:draw-substring a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-substring)
(hpxmov (& 7) '11 a4)
(push a4)
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(jmp send)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:graph-env:width-substring nsubr)
(entry #:graph-env:width-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:width-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'width-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:height-substring nsubr)
(entry #:graph-env:height-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:height-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'height-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x-base-substring nsubr)
(entry #:graph-env:x-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'x-base-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:y-base-substring nsubr)
(entry #:graph-env:y-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:y-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'y-base-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x-inc-substring nsubr)
(entry #:graph-env:x-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'x-inc-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:y-inc-substring nsubr)
(entry #:graph-env:y-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:y-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'y-inc-substring)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:line-style-max subr1)
(entry #:graph-env:line-style-max subr1)
(push (@ 101))
(push 'line-style-max)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:current-line-style subr2)
(entry #:graph-env:current-line-style subr2)
(push (@ 101))
(push 'current-line-style)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:pattern-max subr1)
(entry #:graph-env:pattern-max subr1)
(push (@ 101))
(push 'pattern-max)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:current-pattern subr2)
(entry #:graph-env:current-pattern subr2)
(push (@ 101))
(push 'current-pattern)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:make-pattern subr2)
(entry #:graph-env:make-pattern subr2)
(push (@ 101))
(push 'make-pattern)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:current-mode subr2)
(entry #:graph-env:current-mode subr2)
(push (@ 101))
(push 'current-mode)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(mov '4 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:draw-point subr3)
(entry #:graph-env:draw-point subr3)
(push (@ 101))
(push 'draw-point)
(hpxmov a1 '11 a4)
(push a4)
(push a1)
(push a2)
(push a3)
(mov '5 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:graph-env:draw-polymarker nsubr)
(entry #:graph-env:draw-polymarker nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-polymarker a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-polymarker)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-line nsubr)
(entry #:graph-env:draw-line nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:draw-line a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-line)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:draw-polyline nsubr)
(entry #:graph-env:draw-polyline nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-polyline a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-polyline)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-rectangle nsubr)
(entry #:graph-env:draw-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:draw-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-rectangle)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:fill-area nsubr)
(entry #:graph-env:fill-area nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:fill-area a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'fill-area)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:fill-rectangle nsubr)
(entry #:graph-env:fill-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:fill-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'fill-rectangle)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:draw-ellipse nsubr)
(entry #:graph-env:draw-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:draw-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-ellipse)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:fill-ellipse nsubr)
(entry #:graph-env:fill-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:fill-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'fill-ellipse)
(hpxmov (& 6) '11 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:fill-circle nsubr)
(entry #:graph-env:fill-circle nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:fill-circle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'fill-circle)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-circle nsubr)
(entry #:graph-env:draw-circle nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-circle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-circle)
(hpxmov (& 5) '11 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry draw-string dmsubr)
(entry draw-string dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a1)
(mov (cdr a4) a3)
(mov (car a4) a4)
(push a4)
(mov (car a3) a3)
(push (@ 101))
(push 'let)
(push (@ 102))
(push (@ 103))
(push '#:graph-env:arg0)
(push a3)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(mov '1 a4)
(jmp list)
102
(eval ())
(push a1)
(push (@ 104))
(push 'draw-substring)
(push (& 6))
(push (& 6))
(push '(#:graph-env:arg0 0 (slen #:graph-env:arg0)))
(mov '4 a4)
(jmp mcons)
104
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry width-space subr0)
(entry width-space subr0)
(mov '1 a3)
(mov '0 a2)
(mov '" " a1)
(jmp width-substring)
))
(loader'((fentry height-space subr0)
(entry height-space subr0)
(mov '1 a3)
(mov '0 a2)
(mov '" " a1)
(jmp height-substring)
))
(loader'((fentry x-base-space subr0)
(entry x-base-space subr0)
(mov '1 a3)
(mov '0 a2)
(mov '" " a1)
(jmp x-base-substring)
))
(loader'((fentry y-base-space subr0)
(entry y-base-space subr0)
(mov '1 a3)
(mov '0 a2)
(mov '" " a1)
(jmp y-base-substring)
))
(loader'((fentry cursor-max subr0)
(entry cursor-max subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'cursor-max)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
108
(eval ())
(return)
105
(mov nil a1)
(return)
))
(loader'((fentry make-cursor nsubr)
(entry make-cursor nsubr)
(cnbeq a4 '4 0)
(mov 'make-cursor a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov (& 2) a3)
(mov (& 3) a2)
(mov 'make-cursor a1)
(jcall #:bitmap:check-bitmaps)
(btnil a1 101)
(hpxmov (& 3) '3 a2)
(mov (& 3) a3)
(mov 'make-cursor a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(hpxmov (& 2) '3 a2)
(mov (& 2) a3)
(mov 'make-cursor a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(hpxmov (& 8) '3 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
106
(eval ())
(push (@ 107))
(push 'make-cursor)
(hpxmov (& 9) '3 a4)
(push a4)
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '6 a4)
(jmp send)
107
(eval ())
(push a1)
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(push a1)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '20 a1)
(push a1)
(push (@ 110))
(push (& 11))
(push (& 11))
(push (& 11))
(push (& 11))
(mov '4 a4)
(jmp list)
110
(eval ())
(mov a1 a2)
(pop a1)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '20)
(mov (& 0) a1)
(adjstk '1)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 111))
(push (& 4))
(mov '1 a4)
(jmp current-display)
111
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry current-cursor nsubr)
(entry current-cursor nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(mov '0 a4)
(jmp current-display)
104
(eval ())
(hpxmov a1 '8 a4)
(push a4)
(mov (& 1) a4)
(plus '1 a4)
(xspmov a4 a3)
(push (& 1))
(push a3)
(cabne '0 (& 1) 105)
(hpxmov (& 2) '11 a1)
(bra 106)
105
(bffix a3 109)
(cnblt a3 '0 109)
(push a3)
(jcall cursor-max)
(pop a4)
(cnble a4 a1 107)
109
(mov (& 0) a3)
(mov 'erroob a2)
(mov 'current-cursor a1)
(jcall error)
(bra 106)
107
(push (@ 110))
(push 'current-cursor)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp send)
110
(eval ())
(hpmovx (& 0) (& 2) '11)
(mov (& 0) a1)
106
(adjstk '3)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry move-cursor subr2)
(entry move-cursor subr2)
(push a2)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(btnil a1 105)
(push (@ 108))
(push 'move-cursor)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(push a1)
(push (& 3))
(push (& 5))
(mov '4 a4)
(jmp send)
108
(eval ())
(adjstk '2)
(return)
105
(mov nil a1)
(adjstk '2)
(return)
))
(setq #:sys-package:colon 'mouse)
(putprop 'event '((() () () () () () () () ()) code window detail gx gy x y w h) 'defstruct)
(loader'((fentry #:event:make subr0)
(entry #:event:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '9 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'event)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:event:code nsubr)
(entry #:event:code nsubr)
(push a4)
(push (@ 101))
(push '#:event:code)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:code '#:event:code 'setf-inverse) '#:event:code)))
(if (featurep 'compiler) (progn (defmacro-open #:event:code (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:event:window nsubr)
(entry #:event:window nsubr)
(push a4)
(push (@ 101))
(push '#:event:window)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:window '#:event:window 'setf-inverse) '#:event:window)))
(if (featurep 'compiler) (progn (defmacro-open #:event:window (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:event:detail nsubr)
(entry #:event:detail nsubr)
(push a4)
(push (@ 101))
(push '#:event:detail)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:detail '#:event:detail 'setf-inverse) '#:event:detail)))
(if (featurep 'compiler) (progn (defmacro-open #:event:detail (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:event:gx nsubr)
(entry #:event:gx nsubr)
(push a4)
(push (@ 101))
(push '#:event:gx)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:gx '#:event:gx 'setf-inverse) '#:event:gx)))
(if (featurep 'compiler) (progn (defmacro-open #:event:gx (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:event:gy nsubr)
(entry #:event:gy nsubr)
(push a4)
(push (@ 101))
(push '#:event:gy)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:gy '#:event:gy 'setf-inverse) '#:event:gy)))
(if (featurep 'compiler) (progn (defmacro-open #:event:gy (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:event:x nsubr)
(entry #:event:x nsubr)
(push a4)
(push (@ 101))
(push '#:event:x)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:x '#:event:x 'setf-inverse) '#:event:x)))
(if (featurep 'compiler) (progn (defmacro-open #:event:x (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:event:y nsubr)
(entry #:event:y nsubr)
(push a4)
(push (@ 101))
(push '#:event:y)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:y '#:event:y 'setf-inverse) '#:event:y)))
(if (featurep 'compiler) (progn (defmacro-open #:event:y (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((fentry #:event:w nsubr)
(entry #:event:w nsubr)
(push a4)
(push (@ 101))
(push '#:event:w)
(push '7)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:w '#:event:w 'setf-inverse) '#:event:w)))
(if (featurep 'compiler) (progn (defmacro-open #:event:w (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(loader'((fentry #:event:h nsubr)
(entry #:event:h nsubr)
(push a4)
(push (@ 101))
(push '#:event:h)
(push '8)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:event:h '#:event:h 'setf-inverse) '#:event:h)))
(if (featurep 'compiler) (progn (defmacro-open #:event:h (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(if (not (boundp '#:mouse:event)) (progn (defvar #:mouse:event (#:event:make))))
(loader'((fentry event-mode nsubr)
(entry event-mode nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(cabne (& 0) '0 104)
(push (@ 106))
(mov '0 a4)
(jmp current-display)
106
(eval ())
(hpxmov a1 '5 a1)
(bra 102)
104
(push (@ 107))
(push 'event-mode)
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(push a1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov '3 a4)
(jmp send)
107
(eval ())
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(hpmovx a4 a1 '5)
(mov a4 (cvalq #:mouse:event-mode))
(mov a4 a1)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry eventp subr0)
(entry eventp subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'eventp)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
104
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry read-event nsubr)
(entry read-event nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(cabne (& 0) '1 104)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(bra 105)
104
(mov (cvalq #:mouse:event) a4)
105
(push a4)
(push (@ 106))
(push 'read-event)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(mov (& 0) a1)
(call parse-event)
(mov (& 0) a1)
(adjstk '1)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry peek-event nsubr)
(entry peek-event nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(cabne (& 0) '1 104)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(bra 105)
104
(mov (cvalq #:mouse:event) a4)
105
(push a4)
(push (@ 106))
(push 'peek-event)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(mov (& 0) a1)
(call parse-event)
(mov (& 0) a1)
(adjstk '1)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry local-read-event subr0)
(entry local-read-event subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push (cvalq #:mouse:event))
(mov '1 a4)
(jmp read-event)
104
(eval ())
(push (@ 105))
(push (@ 106))
(mov '0 a4)
(jmp current-window)
106
(eval ())
(push a1)
(push (cvalq #:event:x))
(push (cvalq #:event:y))
(push '#:event:x)
(push '#:event:y)
(mov '5 a4)
(jmp map-window)
105
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry flush-event subr0)
(entry flush-event subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'flush-event)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
104
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry add-event nsubr)
(entry add-event nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(cabne (& 0) '1 104)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(push a4)
(push (@ 106))
(push 'add-event)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(adjstk '1)
(bra 102)
104
(cabne (& 0) '3 108)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(hpmovx a4 (cvalq #:mouse:event) '3)
(mov (& 0) a4)
(plus '-1 a4)
(xspmov a4 a4)
(hpmovx a4 (cvalq #:mouse:event) '4)
(mov (& 0) a4)
(plus '-2 a4)
(xspmov a4 a4)
(hpmovx a4 (cvalq #:mouse:event) '0)
(push (@ 110))
(push 'add-event)
(push (@ 111))
(mov '0 a4)
(jmp current-display)
111
(eval ())
(push a1)
(push (cvalq #:mouse:event))
(mov '3 a4)
(jmp send)
110
(eval ())
(bra 102)
108
(mov nil a1)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((fentry grab-event subr1)
(entry grab-event subr1)
(push a1)
(btnil a1 101)
(hpxmov a1 '12 a2)
(mov a1 a3)
(mov 'grab-event a1)
(jcall #:window:check-window)
(btnil a1 103)
(push (@ 105))
(push 'grab-event)
(hpxmov (& 2) '12 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
105
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
103
(mov nil a1)
(adjstk '1)
(return)
101
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(btnil a1 106)
(push (@ 109))
(push 'ungrab-event)
(push (@ 110))
(mov '0 a4)
(jmp current-display)
110
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
109
(eval ())
(mov nil a1)
(adjstk '1)
(return)
106
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry ungrab-event subr0)
(entry ungrab-event subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'ungrab-event)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
104
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry itsoft-event subr0)
(entry itsoft-event subr0)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(push (@ 104))
(push 'itsoft-event)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp send)
104
(eval ())
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry read-mouse nsubr)
(entry read-mouse nsubr)
(push a4)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(btnil a1 101)
(cabne (& 0) '1 104)
(mov (& 0) a4)
(plus '0 a4)
(xspmov a4 a4)
(bra 105)
104
(mov (cvalq #:mouse:event) a4)
105
(push a4)
(push (@ 106))
(push 'read-mouse)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(mov (& 0) a1)
(call parse-mouse)
(mov (& 0) a1)
(adjstk '1)
(bra 102)
101
(mov nil a1)
102
(pop a4)
(adjstk a4)
(return)
))
(loader'((entry parse-event subr1)
(push a1)
(hpxmov a1 '3 a4)
(mov a4 (cvalq #:event:x))
(hpxmov a1 '4 a3)
(mov a3 (cvalq #:event:y))
(hpxmov a1 '0 a1)
(cabne a1 'ascii-event 102)
(hpxmov (& 0) '2 a2)
(bra 101)
102
(cabeq a1 'move-event 104)
(cabne a1 'up-event 103)
104
(mov '257 a2)
(bra 101)
103
(cabeq a1 'down-event 106)
(cabne a1 'drag-event 105)
106
(mov '258 a2)
(bra 101)
105
(mov '256 a2)
101
(mov a2 (cvalq #:event:code))
(mov a2 a1)
(adjstk '1)
(return)
))
(loader'((entry parse-mouse subr1)
(hpxmov a1 '3 a4)
(mov a4 (cvalq #:mouse:x))
(hpxmov a1 '4 a3)
(mov a3 (cvalq #:mouse:y))
(hpxmov a1 '2 a2)
(mov a2 (cvalq #:mouse:state))
(mov a2 a1)
(return)
))
(putprop 'menu '((() () () ()) name itemlists display extend) 'defstruct)
(loader'((fentry #:menu:make subr0)
(entry #:menu:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(mov '4 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'menu)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:menu:name nsubr)
(entry #:menu:name nsubr)
(push a4)
(push (@ 101))
(push '#:menu:name)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:name '#:menu:name 'setf-inverse) '#:menu:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:menu:itemlists nsubr)
(entry #:menu:itemlists nsubr)
(push a4)
(push (@ 101))
(push '#:menu:itemlists)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlists '#:menu:itemlists 'setf-inverse) '#:menu:itemlists)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlists (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:menu:display nsubr)
(entry #:menu:display nsubr)
(push a4)
(push (@ 101))
(push '#:menu:display)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:display '#:menu:display 'setf-inverse) '#:menu:display)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:display (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:menu:extend nsubr)
(entry #:menu:extend nsubr)
(push a4)
(push (@ 101))
(push '#:menu:extend)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:extend '#:menu:extend 'setf-inverse) '#:menu:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:extend (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(setq #:sys-package:colon 'menu)
(putprop '#:menu:itemlist '((() () ()) name active items) 'defstruct)
(loader'((fentry #:menu:itemlist:make subr0)
(entry #:menu:itemlist:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '7 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:menu:itemlist)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:menu:itemlist:name nsubr)
(entry #:menu:itemlist:name nsubr)
(push a4)
(push (@ 101))
(push '#:menu:itemlist:name)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:name '#:menu:itemlist:name 'setf-inverse) '#:menu:itemlist:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:itemlists '#:menu:itemlist:itemlists 'setf-inverse) '#:menu:itemlist:itemlists)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:itemlists (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:display '#:menu:itemlist:display 'setf-inverse) '#:menu:itemlist:display)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:display (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:extend '#:menu:itemlist:extend 'setf-inverse) '#:menu:itemlist:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:extend (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:menu:itemlist:name nsubr)
(entry #:menu:itemlist:name nsubr)
(push a4)
(push (@ 101))
(push '#:menu:itemlist:name)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:name '#:menu:itemlist:name 'setf-inverse) '#:menu:itemlist:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:name (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:menu:itemlist:active nsubr)
(entry #:menu:itemlist:active nsubr)
(push a4)
(push (@ 101))
(push '#:menu:itemlist:active)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:active '#:menu:itemlist:active 'setf-inverse) '#:menu:itemlist:active)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:active (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:menu:itemlist:items nsubr)
(entry #:menu:itemlist:items nsubr)
(push a4)
(push (@ 101))
(push '#:menu:itemlist:items)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:itemlist:items '#:menu:itemlist:items 'setf-inverse) '#:menu:itemlist:items)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:itemlist:items (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((entry #:menu:itemlist subr3)
(push a3)
(push a2)
(push a1)
(jcall #:menu:itemlist:make)
(hpmovx (& 0) a1 '4)
(hpmovx (& 1) a1 '5)
(hpmovx (& 2) a1 '6)
(adjstk '3)
(return)
))
(putprop '#:menu:item '((() () ()) name active value) 'defstruct)
(loader'((fentry #:menu:item:make subr0)
(entry #:menu:item:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '7 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:menu:item)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:menu:item:name nsubr)
(entry #:menu:item:name nsubr)
(push a4)
(push (@ 101))
(push '#:menu:item:name)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:name '#:menu:item:name 'setf-inverse) '#:menu:item:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:itemlists '#:menu:item:itemlists 'setf-inverse) '#:menu:item:itemlists)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:itemlists (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:display '#:menu:item:display 'setf-inverse) '#:menu:item:display)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:display (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:extend '#:menu:item:extend 'setf-inverse) '#:menu:item:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:extend (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(loader'((fentry #:menu:item:name nsubr)
(entry #:menu:item:name nsubr)
(push a4)
(push (@ 101))
(push '#:menu:item:name)
(push '4)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:name '#:menu:item:name 'setf-inverse) '#:menu:item:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:name (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(loader'((fentry #:menu:item:active nsubr)
(entry #:menu:item:active nsubr)
(push a4)
(push (@ 101))
(push '#:menu:item:active)
(push '5)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:active '#:menu:item:active 'setf-inverse) '#:menu:item:active)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:active (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry #:menu:item:value nsubr)
(entry #:menu:item:value nsubr)
(push a4)
(push (@ 101))
(push '#:menu:item:value)
(push '6)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:item:value '#:menu:item:value 'setf-inverse) '#:menu:item:value)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:item:value (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(loader'((entry #:menu:item subr3)
(push a3)
(push a2)
(push a1)
(jcall #:menu:item:make)
(hpmovx (& 0) a1 '4)
(hpmovx (& 1) a1 '5)
(hpmovx (& 2) a1 '6)
(adjstk '3)
(return)
))
(loader'((fentry create-menu nsubr)
(entry create-menu nsubr)
(cnbge a4 '1 0)
(mov 'create-menu a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(jcall #:menu:make)
(push '-1)
(push a1)
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(pop a4)
(hpmovx a1 a4 '2)
(hpmovx (& 3) (& 0) '0)
(push (@ 106))
(push 'create-menu)
(hpxmov (& 2) '2 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(mov a1 (& 0))
(push a1)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(pop a4)
(hpmovx a1 a4 '2)
(hpmovx (& 3) (& 0) '0)
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(push a1)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '16 a1)
(mov (& 1) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '16)
(push (@ 110))
(push (& 1))
(push '0)
(push (& 6))
(push '1)
(mov '4 a4)
(jmp menu-insert-item-list)
110
(eval ())
111
(btnil (& 2) 112)
(push (@ 113))
(push (& 1))
(push '0)
(mov (& 4) a1)
(jcall 1+)
(mov a1 (& 4))
(push a1)
(mov (& 6) a4)
(mov (cdr a4) (& 6))
(push (car a4))
(push '1)
(mov (& 8) a4)
(mov (cdr a4) (& 8))
(push (car a4))
(mov '6 a4)
(jmp menu-insert-item)
113
(eval ())
(bra 111)
112
(mov (& 0) a1)
(adjstk '4)
(return)
))
(loader'((fentry kill-menu subr1)
(entry kill-menu subr1)
(push a1)
(hpxmov a1 '2 a2)
(mov a1 a3)
(mov 'kill-menu a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(push (@ 103))
(push 'kill-menu)
(hpxmov (& 2) '2 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
103
(eval ())
(hpxmov (& 0) '2 a4)
(push a4)
(hpxmov (& 1) '2 a2)
(hpxmov a2 '16 a2)
(mov (& 1) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '16)
(hpmovx nil (& 0) '3)
(hpmovx nil (& 0) '2)
(mov nil a1)
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry activate-menu subr3)
(entry activate-menu subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '2 a2)
(mov a1 a3)
(mov 'activate-menu a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(hpxmov (& 5) '2 a4)
(push a4)
(mov '1 a4)
(jmp current-display)
106
(eval ())
(push (@ 107))
(push 'activate-menu)
(hpxmov (& 6) '2 a4)
(push a4)
(push (& 7))
(push (& 9))
(push (& 11))
(mov '5 a4)
(jmp send)
107
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 108))
(push (& 4))
(mov '1 a4)
(jmp current-display)
108
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry menu-insert-item-list nsubr)
(entry menu-insert-item-list nsubr)
(cnbeq a4 '4 0)
(mov 'menu-insert-item-list a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '2 a2)
(mov (& 3) a3)
(mov 'menu-insert-item-list a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(hpxmov (& 3) '1 a2)
(push a2)
(mov nil a3)
(mov (& 1) a2)
(mov (& 2) a1)
(call #:menu:itemlist)
(mov a1 a3)
(pop a2)
(mov (& 2) a1)
(call insertnth)
(hpmovx a1 (& 3) '1)
(push (@ 103))
(push 'menu-insert-item-list)
(hpxmov (& 5) '2 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
103
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry menu-insert-item nsubr)
(entry menu-insert-item nsubr)
(cnbeq a4 '6 0)
(mov 'menu-insert-item a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '2 a2)
(mov (& 5) a3)
(mov 'menu-insert-item a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(hpxmov (& 5) '1 a2)
(mov (& 4) a1)
(jcall nth)
(btnil a1 104)
(push a1)
(hpxmov a1 '6 a2)
(push a2)
(mov (& 2) a3)
(mov (& 3) a2)
(mov (& 4) a1)
(call #:menu:item)
(mov a1 a3)
(pop a2)
(mov (& 4) a1)
(call insertnth)
(pop a4)
(hpmovx a1 a4 '6)
104
(push (@ 105))
(push 'menu-insert-item)
(hpxmov (& 7) '2 a4)
(push a4)
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(jmp send)
105
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry menu-delete-item-list subr2)
(entry menu-delete-item-list subr2)
(push a2)
(push a1)
(hpxmov a1 '2 a2)
(mov a1 a3)
(mov 'menu-delete-item-list a1)
(jcall #:menu:check-menu)
(btnil a1 102)
(hpxmov (& 0) '1 a2)
(mov (& 1) a1)
(call deletenth)
(hpmovx a1 (& 0) '1)
102
(push (@ 103))
(push 'menu-delete-item-list)
(hpxmov (& 2) '2 a4)
(push a4)
(push (& 3))
(push (& 5))
(mov '4 a4)
(jmp send)
103
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry menu-delete-item subr3)
(entry menu-delete-item subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '2 a2)
(mov a1 a3)
(mov 'menu-delete-item a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(hpxmov (& 0) '1 a2)
(mov (& 1) a1)
(jcall nth)
(btnil a1 104)
(push a1)
(hpxmov a1 '6 a2)
(mov (& 3) a1)
(call deletenth)
(pop a4)
(hpmovx a1 a4 '6)
104
(push (@ 105))
(push 'menu-delete-item)
(hpxmov (& 2) '2 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
105
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry menu-modify-item-list nsubr)
(entry menu-modify-item-list nsubr)
(cnbeq a4 '4 0)
(mov 'menu-modify-item-list a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '2 a2)
(mov (& 3) a3)
(mov 'menu-modify-item-list a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(hpxmov (& 3) '1 a2)
(mov (& 2) a1)
(jcall nth)
(push a1)
(btnil a1 104)
(btnil (& 2) 106)
(push a1)
(mov (& 3) a1)
(jcall string)
(pop a4)
(hpmovx a1 a4 '4)
106
(btnil (& 1) 104)
(hpmovx (& 1) (& 0) '4)
104
(adjstk '1)
(push (@ 109))
(push 'menu-modify-item-list)
(hpxmov (& 5) '2 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
109
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry menu-modify-item nsubr)
(entry menu-modify-item nsubr)
(cnbeq a4 '6 0)
(mov 'menu-modify-item a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 5) '2 a2)
(mov (& 5) a3)
(mov 'menu-modify-item a1)
(jcall #:menu:check-menu)
(btnil a1 101)
(hpxmov (& 5) '1 a2)
(mov (& 4) a1)
(jcall nth)
(btnil a1 104)
(mov a1 a2)
(mov (& 3) a1)
(jcall nth)
(push a1)
(btnil (& 3) 106)
(push a1)
(mov (& 4) a1)
(jcall string)
(pop a4)
(hpmovx a1 a4 '4)
106
(btnil (& 2) 108)
(hpmovx (& 2) (& 0) '4)
108
(btnil (& 1) 110)
(hpmovx (& 1) (& 0) '4)
110
(adjstk '1)
104
(push (@ 111))
(push 'menu-modify-item)
(hpxmov (& 7) '2 a4)
(push a4)
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(jmp send)
111
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((entry deletenth subr2)
(btcons a2 101)
(mov a2 a1)
(return)
101
(cabne a1 '0 103)
(mov (cdr a2) a1)
(return)
103
(push a2)
(diff '1 a1)
(mov (cdr a2) a2)
(call deletenth)
(pop a4)
(mov a1 (cdr a4))
(mov a4 a1)
(return)
))
(loader'((entry insertnth subr3)
(btcons a2 101)
(mov a3 a1)
(jmp cons)
101
(cabne a1 '0 103)
(mov a3 a1)
(jmp cons)
103
(push a2)
(diff '1 a1)
(mov (cdr a2) a2)
(call insertnth)
(pop a4)
(mov a1 (cdr a4))
(mov a4 a1)
(return)
))
(putprop 'bitmap '((() () () ()) w h extend display) 'defstruct)
(loader'((fentry #:bitmap:make subr0)
(entry #:bitmap:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(mov '4 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'bitmap)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:bitmap:w nsubr)
(entry #:bitmap:w nsubr)
(push a4)
(push (@ 101))
(push '#:bitmap:w)
(push '0)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:w '#:bitmap:w 'setf-inverse) '#:bitmap:w)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:w (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(loader'((fentry #:bitmap:h nsubr)
(entry #:bitmap:h nsubr)
(push a4)
(push (@ 101))
(push '#:bitmap:h)
(push '1)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:h '#:bitmap:h 'setf-inverse) '#:bitmap:h)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:h (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(loader'((fentry #:bitmap:extend nsubr)
(entry #:bitmap:extend nsubr)
(push a4)
(push (@ 101))
(push '#:bitmap:extend)
(push '2)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:extend '#:bitmap:extend 'setf-inverse) '#:bitmap:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:extend (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader'((fentry #:bitmap:display nsubr)
(entry #:bitmap:display nsubr)
(push a4)
(push (@ 101))
(push '#:bitmap:display)
(push '3)
(mov (& 3) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(mov (& 4) a4)
(plus '3 a4)
(xspmov a4 a4)
(push a4)
(push (& 5))
(mov '5 a4)
(jmp #:system:structaccess)
101
(eval ())
(pop a4)
(adjstk a4)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:display '#:bitmap:display 'setf-inverse) '#:bitmap:display)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:display (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(setq #:sys-package:colon 'bitmap)
(loader'((fentry create-bitmap nsubr)
(entry create-bitmap nsubr)
(cnbge a4 '2 0)
(mov 'create-bitmap a1)
(mov '2 a2)
(jmp #:llcp:errwna)
0
(diff '2 a4)
(jcall #:llcp:nlist)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp current-display)
103
(eval ())
(bfnil a1 102)
(push (@ 104))
(mov '0 a4)
(jmp bitprologue)
104
(eval ())
102
(jcall #:bitmap:make)
(push a1)
(hpmovx (& 3) a1 '0)
(hpmovx (& 2) a1 '1)
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-display)
105
(eval ())
(pop a4)
(hpmovx a1 a4 '3)
(push (@ 106))
(push 'create-bitmap)
(hpxmov (& 2) '3 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
106
(eval ())
(mov a1 (& 0))
(hpmovx (& 3) a1 '0)
(hpmovx (& 2) a1 '1)
(push a1)
(push (@ 107))
(mov '0 a4)
(jmp current-display)
107
(eval ())
(pop a4)
(hpmovx a1 a4 '3)
(push (@ 108))
(mov '0 a4)
(jmp current-display)
108
(eval ())
(push a1)
(push (@ 109))
(mov '0 a4)
(jmp current-display)
109
(eval ())
(hpxmov a1 '15 a1)
(mov (& 1) a2)
(jcall nconc1)
(pop a4)
(hpmovx a1 a4 '15)
(push (@ 110))
(push (& 1))
(btnil (& 3) 111)
(mov (& 3) a4)
(mov (car a4) a4)
(bra 112)
111
(mov (& 5) a4)
(plus '7 a4)
(lshift '-3 a4)
(mov '0 a2)
(mov a4 a1)
(jcall makestring)
(mov a1 a2)
(mov (& 4) a1)
(jcall makevector)
(mov a1 a4)
112
(push a4)
(mov '2 a4)
(jmp #:bitmap:bits)
110
(eval ())
(mov (& 0) a1)
(adjstk '4)
(return)
))
(loader'((fentry window-bitmap subr1)
(entry window-bitmap subr1)
(push a1)
(hpxmov a1 '12 a2)
(mov a1 a3)
(mov 'window-bitmap a1)
(jcall #:window:check-window)
(btnil a1 101)
(hpxmov (& 0) '7 a1)
(hpxmov a1 '10 a1)
(bfnil a1 103)
(jcall #:bitmap:make)
(push a1)
(hpxmov (& 1) '12 a4)
(hpmovx a4 a1 '3)
(hpxmov (& 1) '2 a4)
(hpmovx a4 a1 '0)
(hpxmov (& 1) '3 a4)
(hpmovx a4 a1 '1)
(push (@ 104))
(push 'create-window-bitmap)
(hpxmov (& 3) '12 a4)
(push a4)
(push (& 4))
(push a1)
(mov '4 a4)
(jmp send)
104
(eval ())
(mov a1 (& 0))
(hpxmov (& 1) '12 a4)
(hpmovx a4 a1 '3)
(hpxmov (& 1) '2 a4)
(hpmovx a4 a1 '0)
(hpxmov (& 1) '3 a4)
(hpmovx a4 a1 '1)
(hpxmov (& 1) '7 a4)
(hpmovx a1 a4 '10)
(adjstk '1)
103
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry kill-bitmap subr1)
(entry kill-bitmap subr1)
(push a1)
(hpxmov a1 '3 a2)
(mov a1 a3)
(mov 'kill-bitmap a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(push (@ 103))
(push 'kill-bitmap)
(hpxmov (& 2) '3 a4)
(push a4)
(push (& 3))
(mov '3 a4)
(jmp send)
103
(eval ())
(hpxmov (& 0) '3 a4)
(push a4)
(hpxmov (& 1) '3 a2)
(hpxmov a2 '15 a2)
(mov (& 1) a1)
(jcall delq)
(pop a4)
(hpmovx a1 a4 '15)
(hpmovx nil (& 0) '2)
(hpmovx nil (& 0) '3)
(mov nil a1)
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry bmref subr3)
(entry bmref subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '3 a2)
(mov a1 a3)
(mov 'bmref a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(push (@ 103))
(push 'bmref)
(hpxmov (& 2) '3 a4)
(push a4)
(push (& 3))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
103
(eval ())
(adjstk '3)
(return)
101
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry bmset nsubr)
(entry bmset nsubr)
(cnbeq a4 '4 0)
(mov 'bmset a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '3 a2)
(mov (& 3) a3)
(mov 'bmset a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(push (@ 103))
(push 'bmset)
(hpxmov (& 5) '3 a4)
(push a4)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
103
(eval ())
(adjstk '4)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry bitblit nsubr)
(entry bitblit nsubr)
(cnbeq a4 '8 0)
(mov 'bitblit a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(mov (& 6) a3)
(mov (& 7) a2)
(mov 'bitblit a1)
(jcall #:bitmap:check-bitmaps)
(btnil a1 101)
(hpxmov (& 7) '3 a2)
(mov (& 7) a3)
(mov 'bitblit a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(hpxmov (& 6) '3 a2)
(mov (& 6) a3)
(mov 'bitblit a1)
(jcall #:bitmap:check-bitmap)
(btnil a1 101)
(push (@ 103))
(push 'bitblit)
(hpxmov (& 9) '3 a4)
(push a4)
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '10 a4)
(jmp send)
103
(eval ())
(adjstk '8)
(return)
101
(mov nil a1)
(adjstk '8)
(return)
))
(loader'((fentry #:sharp:* nsubr)
(entry #:sharp:* nsubr)
(jcall #:llcp:nlist)
(mov nil a2)
(mov (car a1) a1)
(jcall #:bitvector:read)
(jmp ncons)
))
(loader'((fentry #:sharp:B subr0)
(entry #:sharp:B subr0)
(push (@ 101))
(push 'create-bitmap)
(jcall read)
(push a1)
(mov '2 a4)
(jmp apply)
101
(eval ())
(jmp ncons)
))
(loader'((fentry #:bitmap:bits nsubr)
(entry #:bitmap:bits nsubr)
(cnbge a4 '1 0)
(mov '#:bitmap:bits a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(bfnil a1 101)
(hpxmov (& 0) '1 a4)
(push a4)
(hpxmov (& 1) '0 a3)
(push a3)
(plus '7 a3)
(lshift '-3 a3)
(push a3)
(diff '1 a3)
(push a3)
(mov (& 2) a2)
(land '7 a2)
(push a2)
(mov nil a2)
(mov a4 a1)
(jcall makevector)
(push a1)
(push nil)
(push '0)
(mov (& 7) a4)
(bra 104)
103
(push a4)
(mov '0 a2)
(mov (& 6) a1)
(jcall makestring)
(mov a1 (& 2))
(hpmovx a1 (& 3) (& 1))
(push (@ 105))
(push a1)
(push 'bitvector)
(mov '2 a4)
(jmp typestring)
105
(eval ())
(push (@ 106))
(push 'get-bit-line)
(hpxmov (& 11) '3 a4)
(push a4)
(push (& 12))
(push (& 5))
(push (& 7))
(mov '5 a4)
(jmp send)
106
(eval ())
(cabeq (& 4) '0 108)
(hbxmov (& 2) (& 5) a1)
(mov '8 a4)
(diff (& 4) a4)
(mov '8 a3)
(mov a4 a2)
(jcall mask-field)
(hbmovx a1 (& 2) (& 5))
108
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(pop a4)
104
(sobgez a4 103)
(mov (& 2) a1)
(adjstk '9)
(return)
101
(push (car a1))
(push nil)
(push nil)
(push '0)
(push '0)
(hgsize (& 4) a4)
(bra 110)
109
(push a4)
(hpxmov (& 5) (& 2) a4)
(mov a4 (& 4))
(mov (& 2) a3)
(plus '1 a3)
(mov a3 (& 2))
(bffix a4 111)
(bra 114)
113
(push a4)
(push (@ 115))
(push 'set-bit-line)
(hpxmov (& 9) '3 a4)
(push a4)
(push (& 10))
(push (& 6))
(push (& 9))
(mov '5 a4)
(jmp send)
115
(eval ())
(mov (& 2) a4)
(plus '1 a4)
(mov a4 (& 2))
(pop a4)
114
(sobgez a4 113)
(mov 't a4)
(bra 112)
111
(push (@ 116))
(push 'set-bit-line)
(hpxmov (& 8) '3 a2)
(push a2)
(push (& 9))
(push (& 5))
(push a4)
(mov '5 a4)
(jmp send)
116
(eval ())
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(mov (& 4) (& 3))
(mov (& 4) a4)
112
(pop a4)
110
(sobgez a4 109)
(mov 't a1)
(adjstk '6)
(return)
))
(defvar #:bitmap:int->ext-encode-string "0123456789ABCDEFGHIJKLMNOPQRSTUVabcdefghijklmnopqrstuvwxyzWXYZ+*")
(defvar #:bitmap:ext->int-encode-string ((lambda (strg-buffer) ((lambda (strg-index #:system:for:arg2) (while (<= strg-index #:system:for:arg2) (sset strg-buffer (sref #:bitmap:int->ext-encode-string strg-index) strg-index) (incr strg-index 1))) 0 (1- (slength #:bitmap:int->ext-encode-string))) strg-buffer) (makestring 128 255)))
(defvar #:bitmap:predefined-bytes ((lambda (strg-buffer) (sset strg-buffer 0 0) (sset strg-buffer 1 255) (sset strg-buffer 2 1) (sset strg-buffer 3 2) (sset strg-buffer 4 4) (sset strg-buffer 5 8) (sset strg-buffer 6 16) (sset strg-buffer 7 32) (sset strg-buffer 8 64) (sset strg-buffer 9 128) (sset strg-buffer 10 68) (sset strg-buffer 11 85) (sset strg-buffer 12 170) (sset strg-buffer 13 17) (sset strg-buffer 14 192) (sset strg-buffer 15 3) strg-buffer) (makestring 16 0)))
(if (not (boundp '#:system:compressed-icon)) (progn (defvar #:system:compressed-icon)))
(loader'((entry #:bitmap:ext->int-encode subr1)
(push a1)
(land '127 a1)
(hbxmov (cvalq #:bitmap:ext->int-encode-string) a1 a4)
(cabeq a4 '255 101)
(mov a4 a1)
(adjstk '1)
(return)
101
(push (@ 103))
(push (& 1))
(mov '1 a4)
(jmp list)
103
(eval ())
(mov a1 a3)
(mov 'errsxt a2)
(mov '|#*| a1)
(adjstk '1)
(jmp error)
))
(loader'((fentry #:bitvector:read subr2)
(entry #:bitvector:read subr2)
(push a2)
(push a1)
(bffix a1 101)
(push '0)
(push nil)
(push '0)
(mov '0 a2)
(jcall makestring)
(mov a1 (& 4))
103
(cnbge (& 0) (& 3) 104)
(jcall readcn)
(call #:bitmap:ext->int-encode)
(mov a1 (& 1))
(cnbgt a1 '15 105)
(lshift '4 a1)
(push a1)
(jcall readcn)
(call #:bitmap:ext->int-encode)
(pop a4)
(lor a1 a4)
(mov a4 (& 2))
(hbmovx a4 (& 4) (& 0))
(mov (& 0) a3)
(plus '1 a3)
(mov a3 (& 0))
(bra 103)
105
(cnbgt a1 '31 107)
(land '15 a1)
(hbxmov (cvalq #:bitmap:predefined-bytes) a1 a4)
(mov a4 (& 2))
(hbmovx a4 (& 4) (& 0))
(mov (& 0) a3)
(plus '1 a3)
(mov a3 (& 0))
(bra 103)
107
(cnbgt a1 '63 109)
(cnbgt a1 '47 113)
(land '15 a1)
(mov a1 a4)
(bra 114)
113
(cnbge a1 '62 115)
(land '15 a1)
(lshift '6 a1)
(push a1)
(jcall readcn)
(call #:bitmap:ext->int-encode)
(pop a4)
(lor a1 a4)
(bra 114)
115
(cabne a1 '62 117)
(mov (& 3) (& 0))
(mov '-1 a4)
(bra 114)
117
(cabne a1 '63 119)
(jcall readcn)
(call #:bitmap:ext->int-encode)
(lshift '4 a1)
(push a1)
(jcall readcn)
(call #:bitmap:ext->int-encode)
(pop a4)
(lor a1 a4)
(bra 114)
119
(mov nil a4)
114
(plus '1 a4)
(bra 112)
111
(push a4)
(hbmovx (& 3) (& 5) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(pop a4)
112
(sobgez a4 111)
(bra 103)
109
(mov a1 a3)
(mov 'errsxt a2)
(mov '"#*" a1)
(jcall error)
(bra 103)
104
(adjstk '3)
(bra 102)
101
(push nil)
(push (@ 121))
(push 'complete)
(push dlink)
(push tag)
(stack dlink)
122
(jcall peekcn)
(call #:bitmap:conv-to-hex)
(lshift '4 a1)
(push a1)
(jcall readcn)
(jcall readcn)
(call #:bitmap:conv-to-hex)
(pop a4)
(lor a1 a4)
(mov (& 4) a2)
(mov a4 a1)
(jcall cons)
(mov a1 (& 4))
(bra 122)
123
(mov (& 1) dlink)
(adjstk '4)
121
(eval ())
(mov (& 0) a1)
(jcall nreverse)
(jcall string)
(mov a1 (& 2))
(adjstk '1)
102
(push (@ 124))
(push (& 2))
(push 'bitvector)
(mov '2 a4)
(jmp typestring)
124
(eval ())
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((entry #:bitmap:conv-to-hex subr1)
(cnblt a1 '48 101)
(cnbgt a1 '57 101)
(diff '48 a1)
(return)
101
(cnblt a1 '65 103)
(cnbgt a1 '70 103)
(diff '55 a1)
(return)
103
(cnblt a1 '97 105)
(cnbgt a1 '102 105)
(diff '87 a1)
(return)
105
(mov nil a1)
(mov 'complete a2)
(jmp #:llcp:exit)
))
(loader'((fentry #:bitvector:prin subr1)
(entry #:bitvector:prin subr1)
(push a1)
(hgsize a1 a4)
(push '0)
(push nil)
(push a4)
(push nil)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(btnil (cvalq #:system:compressed-icon) 101)
(push (@ 103))
(push '"#")
(push a4)
(push '"*")
(mov '3 a4)
(jmp prin)
103
(eval ())
(bra 102)
101
(push (@ 104))
(push '"#*")
(mov '1 a4)
(jmp prin)
104
(eval ())
102
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '8)
(btnil (cvalq #:system:compressed-icon) 105)
(push '-1)
(push '0)
107
(cabeq (& 4) (& 2) 108)
(hbxmov (& 5) (& 4) a4)
(mov a4 (& 3))
(cabne a4 (& 1) 109)
(mov (& 0) a3)
(plus '1 a3)
(mov a3 (& 0))
(bra 110)
109
(mov (& 0) a2)
(mov (& 1) a1)
(call #:bitmap:prin-aux)
(mov '0 (& 0))
(mov (& 3) (& 1))
110
(mov (& 4) a4)
(plus '1 a4)
(mov a4 (& 4))
(bra 107)
108
(cabne (& 1) '0 111)
(cabeq (& 0) '0 111)
(push (@ 113))
(hbxmov (cvalq #:bitmap:int->ext-encode-string) '62 a4)
(push a4)
(mov '1 a4)
(jmp princn)
113
(eval ())
(adjstk '6)
(return)
111
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '6)
(bra #:bitmap:prin-aux)
105
(mov (& 0) a4)
(bra 115)
114
(push a4)
(hbxmov (& 4) (& 3) a4)
(mov a4 (& 2))
(push (@ 116))
(lshift '-4 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a3)
(push a3)
(mov '1 a4)
(jmp princn)
116
(eval ())
(push (@ 117))
(mov (& 3) a4)
(land '15 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a4)
(push a4)
(mov '1 a4)
(jmp princn)
117
(eval ())
(mov (& 3) a4)
(plus '1 a4)
(mov a4 (& 3))
(pop a4)
115
(sobgez a4 114)
(mov 't a1)
(adjstk '4)
(return)
))
(loader'((entry #:bitmap:prin-aux subr2)
(push a2)
(push a1)
(cabeq a1 '-1 102)
(push (@ 103))
(push a1)
(push (cvalq #:bitmap:predefined-bytes))
(mov '2 a4)
(jmp chrpos)
103
(eval ())
(btnil a1 104)
(push (@ 106))
(mov '16 a4)
(plus a1 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a4)
(push a4)
(mov '1 a4)
(jmp princn)
106
(eval ())
(bra 102)
104
(push (@ 107))
(mov (& 1) a4)
(lshift '-4 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a4)
(push a4)
(mov '1 a4)
(jmp princn)
107
(eval ())
(push (@ 108))
(mov (& 1) a4)
(land '15 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a4)
(push a4)
(mov '1 a4)
(jmp princn)
108
(eval ())
102
(cabeq (& 1) '0 109)
(mov (& 1) a4)
(diff '1 a4)
(mov a4 (& 1))
(cnbge a4 '16 111)
(push (@ 113))
(plus '32 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a3)
(push a3)
(mov '1 a4)
(jmp princn)
113
(eval ())
(adjstk '2)
(return)
111
(push (@ 114))
(lshift '-6 a4)
(plus '48 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a3)
(push a3)
(mov '1 a4)
(jmp princn)
114
(eval ())
(push (@ 115))
(mov (& 2) a4)
(land '63 a4)
(hbxmov (cvalq #:bitmap:int->ext-encode-string) a4 a4)
(push a4)
(mov '1 a4)
(jmp princn)
115
(eval ())
(adjstk '2)
(return)
109
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((fentry #:bitmap:prin subr1)
(entry #:bitmap:prin subr1)
(push a1)
(hpxmov a1 '1 a4)
(hpxmov a1 '0 a3)
(push a3)
(push a4)
(push nil)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 101))
(push '"#B(")
(push a3)
(push '" ")
(push a4)
(push '" #[")
(mov '5 a4)
(jmp prin)
101
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '8)
(btnil (cvalq #:system:print-for-read) 103)
(push (@ 104))
(mov '0 a4)
(jmp rmargin)
104
(eval ())
(push a1)
(push (@ 105))
(push dlink)
(push prot)
(stack dlink)
(push (@ 107))
(push (@ 108))
(mov '0 a4)
(jmp outbuf)
108
(eval ())
(hgsize a1 a4)
(plus '1 a4)
(push a4)
(mov '1 a4)
(jmp rmargin)
107
(eval ())
(push (@ 109))
(mov '0 a4)
(jmp terpri)
109
(eval ())
(mov (& 5) a4)
(plus '7 a4)
(lshift '-3 a4)
(push a4)
(mov '0 a2)
(mov a4 a1)
(jcall makestring)
(push a1)
(mov '-1 a2)
(mov (& 1) a1)
(jcall makestring)
(push a1)
(mov (& 2) a4)
(diff '1 a4)
(push a4)
(mov (& 9) a3)
(land '7 a3)
(push a3)
(mov '8 a2)
(diff a3 a2)
(mov '255 a4)
(lshift a2 a4)
(push a4)
(push '0)
(push '0)
(push (@ 110))
(push (& 7))
(push 'bitvector)
(mov '2 a4)
(jmp typestring)
110
(eval ())
(push (@ 111))
(push (& 6))
(push 'bitvector)
(mov '2 a4)
(jmp typestring)
111
(eval ())
(mov (& 12) a4)
(bra 113)
112
(push a4)
(push (@ 114))
(push 'get-bit-line)
(hpxmov (& 17) '3 a4)
(push a4)
(push (& 18))
(push (& 6))
(push (& 12))
(mov '5 a4)
(jmp send)
114
(eval ())
(mov (& 2) a4)
(plus '1 a4)
(mov a4 (& 2))
(cabeq (& 4) '0 116)
(hbxmov (& 7) (& 5) a3)
(land (& 3) a3)
(hbmovx a3 (& 7) (& 5))
116
(btnil (cvalq #:system:compressed-icon) 117)
(mov (& 6) a2)
(mov (& 7) a1)
(jcall equal)
(btnil a1 117)
(cabeq (& 2) '0 117)
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(bra 118)
117
(cabeq (& 1) '0 120)
(push (@ 121))
(push (& 2))
(mov '1 a4)
(jmp print)
121
(eval ())
120
(push (@ 122))
(push (& 8))
(mov '1 a4)
(jmp print)
122
(eval ())
(push (& 7))
(mov (& 7) (& 8))
(pop a4)
(mov a4 (& 6))
(mov '0 (& 1))
(mov '0 a4)
118
(pop a4)
113
(sobgez a4 112)
(cabeq (& 0) '0 123)
(push (@ 125))
(push (& 1))
(mov '1 a4)
(jmp print)
125
(eval ())
(bra 124)
123
(mov nil a1)
124
(adjstk '8)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 106) a3)
105
(push a3)
(push a2)
(push (@ 126))
(push (& 4))
(mov '1 a4)
(jmp rmargin)
126
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
106
(eval ())
(adjstk '1)
103
(push (@ 127))
(push '93)
(mov '1 a4)
(jmp princn)
127
(eval ())
(push (@ 128))
(push '41)
(mov '1 a4)
(jmp princn)
128
(eval ())
(adjstk '3)
(return)
))
(if (not (boundp '#:window:all-windows)) (progn (defvar #:window:all-windows)))
(if (not (boundp '#:window:current-window)) (progn (defvar #:window:current-window)))
(if (not (boundp '#:window:current-keyboard-focus-window)) (progn (defvar #:window:current-keyboad-focus-window)))
(if (not (boundp '#:graph-env:current-graph-env)) (progn (defvar #:graph-env:current-graph-env)))
(if (not (boundp '#:graph-env:main-graph-env)) (progn (defvar #:graph-env:main-graph-env)))
(if (not (boundp '#:window:prologuep)) (progn (defvar #:window:prologuep)))
(if (not (boundp '#:bitmap:xmax)) (progn (defvar #:bitmap:xmax 1024)))
(if (not (boundp '#:bitmap:ymax)) (progn (defvar #:bitmap:ymax 1024)))
(if (not (boundp 'errnotimplemented)) (progn (defvar errnotimplemented "Fonction non implemente'")))
(loader'((fentry to-display dmsubr)
(entry to-display dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a1)
(mov (cdr a4) a3)
(mov (car a4) a4)
(push a3)
(push (@ 101))
(push 'let)
(push (@ 102))
(push (@ 103))
(push 'f)
(push (@ 104))
(push 'getfn)
(push '(#:display:package display))
(push a1)
(push '(()))
(mov '4 a4)
(jmp mcons)
104
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(mov '1 a4)
(jmp list)
102
(eval ())
(push a1)
(push (@ 105))
(push 'unless)
(push 'f)
(push (@ 106))
(push 'error)
(push ''to-display)
(push ''errudf)
(push (@ 107))
(push 'symbol)
(push '#:sys-package:bitmap)
(push (& 14))
(mov '3 a4)
(jmp list)
107
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
106
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
105
(eval ())
(push a1)
(push (@ 108))
(push 'funcall)
(push 'f)
(push (& 7))
(mov '3 a4)
(jmp mcons)
108
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry to-bitmap dmsubr)
(entry to-bitmap dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a1)
(push a4)
(push (@ 101))
(push 'let)
(push (@ 102))
(push (@ 103))
(push 'f)
(push (@ 104))
(push 'getfn)
(push '#:sys-package:bitmap)
(push a1)
(push '(()))
(mov '4 a4)
(jmp mcons)
104
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(mov '1 a4)
(jmp list)
102
(eval ())
(push a1)
(push (@ 105))
(push 'unless)
(push 'f)
(push (@ 106))
(push 'error)
(push ''to-bitmap)
(push ''errudf)
(push (@ 107))
(push 'symbol)
(push '#:sys-package:bitmap)
(push (& 14))
(mov '3 a4)
(jmp list)
107
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
106
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
105
(eval ())
(push a1)
(push (@ 108))
(push 'funcall)
(push 'f)
(push (& 7))
(mov '3 a4)
(jmp mcons)
108
(eval ())
(push a1)
(mov '4 a4)
(jmp list)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry get-bitmap dmsubr)
(entry get-bitmap dmsubr)
(mov (car a1) a1)
(push (@ 101))
(push 'symeval)
(push (@ 102))
(push 'getsymb)
(push '#:sys-package:bitmap)
(push a1)
(push '(()))
(mov '4 a4)
(jmp mcons)
102
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
101
(eval ())
(return)
))
(loader'((fentry #:display:bitprologue subr1)
(entry #:display:bitprologue subr1)
(push a1)
(push (cvalq #:display:current-display))
(mov a1 (cvalq #:display:current-display))
(push '1)
(push '(#:display:current-display))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 101))
(hpxmov (& 8) '1 a4)
(push a4)
(push 'bitprologue)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitprologue a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(push (@ 105))
(hpxmov (& 8) '1 a4)
(push a4)
(push 'xmax)
(mov '2 a4)
(jmp getsymb)
105
(eval ())
(hpmovx (cval a1) (& 7) '3)
(push (@ 106))
(hpxmov (& 8) '1 a4)
(push a4)
(push 'ymax)
(mov '2 a4)
(jmp getsymb)
106
(eval ())
(hpmovx (cval a1) (& 7) '4)
(hpmovx (cvalq #:window:prologuep) (& 7) '6)
(hpmovx (cvalq #:window:current-window) (& 7) '8)
(hpmovx (cvalq #:window:all-windows) (& 7) '14)
(hpmovx (cvalq #:graph-env:current-graph-env) (& 7) '9)
(hpmovx (cvalq #:graph-env:main-graph-env) (& 7) '11)
(hpmovx (cvalq #:window:current-keyboard-focus-window) (& 7) '7)
(mov (cvalq #:window:current-keyboard-focus-window) a1)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:display:current-display))
(adjstk '8)
(return)
))
(loader'((fentry #:display:bitepilogue subr1)
(entry #:display:bitepilogue subr1)
(push a1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'bitepilogue)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitepilogue a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(mov nil (cvalq #:window:all-windows))
(mov nil (cvalq #:window:current-window))
(mov nil (cvalq #:window:current-keyboard-focus-window))
(mov nil (cvalq #:graph-env:main-graph-env))
(mov nil (cvalq #:graph-env:current-graph-env))
(hpmovx (cvalq #:window:prologuep) (& 0) '6)
(mov (cvalq #:window:prologuep) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:bitmap-save subr1)
(entry #:display:bitmap-save subr1)
(push (@ 101))
(push 'bitepilogue)
(push a1)
(mov '2 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:display:bitmap-restore subr1)
(entry #:display:bitmap-restore subr1)
(push (@ 101))
(push 'bitprologue)
(push a1)
(mov '2 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:display:bitmap-refresh subr1)
(entry #:display:bitmap-refresh subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'bitmap-refresh)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitmap-refresh a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:bitmap-flush subr1)
(entry #:display:bitmap-flush subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'bitmap-flush)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitmap-flush a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:bitmap-sync subr1)
(entry #:display:bitmap-sync subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'bitmap-flush)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitmap-flush a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:current-display subr1)
(entry #:display:current-display subr1)
(push a1)
(hpxmov a1 '0 a4)
(mov a4 (cvalq #:bitmap:name))
(hpxmov a1 '1 a3)
(mov a3 (cvalq #:sys-package:bitmap))
(push (@ 101))
(push a3)
(push 'xmax)
(mov '2 a4)
(jmp getsymb)
101
(eval ())
(hpxmov (& 0) '3 a4)
(mov a4 (cval a1))
(push (@ 102))
(push (cvalq #:sys-package:bitmap))
(push 'ymax)
(mov '2 a4)
(jmp getsymb)
102
(eval ())
(hpxmov (& 0) '4 a4)
(mov a4 (cval a1))
(hpxmov (& 0) '6 a4)
(mov a4 (cvalq #:window:prologuep))
(hpxmov (& 0) '14 a3)
(mov a3 (cvalq #:window:all-windows))
(hpxmov (& 0) '8 a2)
(mov a2 (cvalq #:window:current-window))
(hpxmov (& 0) '11 a1)
(mov a1 (cvalq #:graph-env:main-graph-env))
(hpxmov (& 0) '9 a4)
(mov a4 (cvalq #:graph-env:current-graph-env))
(hpxmov (& 0) '7 a4)
(mov a4 (cvalq #:window:current-keyboard-focus-window))
(mov a4 a1)
(adjstk '1)
(return)
))
(loader'((fentry #:display:prin subr1)
(entry #:display:prin subr1)
(push a1)
(push (@ 101))
(push '35)
(mov '1 a4)
(jmp princn)
101
(eval ())
(push (@ 102))
(push '60)
(mov '1 a4)
(jmp princn)
102
(eval ())
(push (@ 103))
(hpxmov (& 1) '1 a4)
(push a4)
(mov '1 a4)
(jmp prin)
103
(eval ())
(push (@ 104))
(push '32)
(mov '1 a4)
(jmp princn)
104
(eval ())
(push (@ 105))
(hpxmov (& 1) '0 a4)
(push a4)
(mov '1 a4)
(jmp prin)
105
(eval ())
(push (@ 106))
(push '32)
(mov '1 a4)
(jmp princn)
106
(eval ())
(push (@ 107))
(hpxmov (& 1) '2 a4)
(push a4)
(mov '1 a4)
(jmp prin)
107
(eval ())
(push (@ 108))
(push '62)
(mov '1 a4)
(jmp princn)
108
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:standard-roman-font subr1)
(entry #:display:standard-roman-font subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-roman-font a1)
(jmp error)
))
(loader'((fentry #:display:standard-bold-font subr1)
(entry #:display:standard-bold-font subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-bold-font a1)
(jmp error)
))
(loader'((fentry #:display:large-roman-font subr1)
(entry #:display:large-roman-font subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'large-roman-font a1)
(jmp error)
))
(loader'((fentry #:display:small-roman-font subr1)
(entry #:display:small-roman-font subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'small-roman-font a1)
(jmp error)
))
(loader'((fentry #:display:standard-background-pattern subr1)
(entry #:display:standard-background-pattern subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-background-pattern a1)
(jmp error)
))
(loader'((fentry #:display:standard-foreground-pattern subr1)
(entry #:display:standard-foreground-pattern subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-foreground-pattern a1)
(jmp error)
))
(loader'((fentry #:display:standard-medium-gray-pattern subr1)
(entry #:display:standard-medium-gray-pattern subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-medium-gray-pattern a1)
(jmp error)
))
(loader'((fentry #:display:standard-light-gray-pattern subr1)
(entry #:display:standard-light-gray-pattern subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-light-gray-pattern a1)
(jmp error)
))
(loader'((fentry #:display:standard-dark-gray-pattern subr1)
(entry #:display:standard-dark-gray-pattern subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-dark-gray-pattern a1)
(jmp error)
))
(loader'((fentry #:display:standard-lelisp-cursor subr1)
(entry #:display:standard-lelisp-cursor subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-lelisp-cursor a1)
(jmp error)
))
(loader'((fentry #:display:standard-gc-cursor subr1)
(entry #:display:standard-gc-cursor subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-gc-cursor a1)
(jmp error)
))
(loader'((fentry #:display:standard-busy-cursor subr1)
(entry #:display:standard-busy-cursor subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'standard-busy-cursor a1)
(jmp error)
))
(loader'((fentry #:display:create-window subr2)
(entry #:display:create-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'create-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'create-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:create-subwindow subr2)
(entry #:display:create-subwindow subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'create-subwindow)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'create-subwindow a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:current-window subr2)
(entry #:display:current-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:uncurrent-window subr2)
(entry #:display:uncurrent-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'uncurrent-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'uncurrent-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:modify-window nsubr)
(entry #:display:modify-window nsubr)
(cnbeq a4 '9 0)
(mov '#:display:modify-window a1)
(mov '9 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 9) '1 a4)
(push a4)
(push 'modify-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'modify-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '9 a4)
(jmp funcall)
104
(eval ())
(adjstk '10)
(return)
))
(loader'((fentry #:display:update-window nsubr)
(entry #:display:update-window nsubr)
(cnbeq a4 '6 0)
(mov '#:display:update-window a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'update-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'update-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:kill-window subr2)
(entry #:display:kill-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'kill-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'kill-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:pop-window subr2)
(entry #:display:pop-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'pop-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'pop-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:move-behind-window subr3)
(entry #:display:move-behind-window subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'move-behind-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'move-behind-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:current-keyboard-focus-window subr2)
(entry #:display:current-keyboard-focus-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-keyboard-focus-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-keyboard-focus-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:uncurrent-keyboard-focus-window subr2)
(entry #:display:uncurrent-keyboard-focus-window subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'uncurrent-keyboard-focus-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'uncurrent-keyboard-focus-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:find-window subr3)
(entry #:display:find-window subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'find-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'find-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:map-window nsubr)
(entry #:display:map-window nsubr)
(cnbeq a4 '6 0)
(mov '#:display:map-window a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'map-window)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'map-window a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:event-mode subr2)
(entry #:display:event-mode subr2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'event-mode)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'event-mode a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (cvalq #:mouse:event-mode))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:flush-event subr1)
(entry #:display:flush-event subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'flush-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'flush-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:eventp subr1)
(entry #:display:eventp subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'eventp)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'eventp a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:read-event subr2)
(entry #:display:read-event subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'read-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'read-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:peek-event subr2)
(entry #:display:peek-event subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'peek-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'peek-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:read-mouse subr2)
(entry #:display:read-mouse subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'read-mouse)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'read-mouse a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:add-event subr2)
(entry #:display:add-event subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'add-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'add-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:grab-event subr2)
(entry #:display:grab-event subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'grab-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'grab-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:ungrab-event subr1)
(entry #:display:ungrab-event subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'ungrab-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'ungrab-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(mov '1 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:display:itsoft-event subr1)
(entry #:display:itsoft-event subr1)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'itsoft-event)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'itsoft-event a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (cvalq #:mouse:event))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '1)
(mov (cvalq #:mouse:event) a1)
(return)
))
(loader'((fentry #:display:clear-graph-env subr2)
(entry #:display:clear-graph-env subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'clear-graph-env)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'clear-graph-env a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:current-clip subr2)
(entry #:display:current-clip subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-clip)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-clip a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:font-max subr2)
(entry #:display:font-max subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'font-max)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'font-max a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:load-font subr3)
(entry #:display:load-font subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'load-font)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'load-font a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:current-font subr3)
(entry #:display:current-font subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-font)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-font a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:width-substring nsubr)
(entry #:display:width-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:width-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'width-substring)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'width-substring a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:height-substring nsubr)
(entry #:display:height-substring nsubr)
(cnbeq a4 '5 0)
(mov '#:display:height-substring a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'height-substring)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'height-substring a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x-base-string nsubr)
(entry #:display:x-base-string nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x-base-string a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'x-base-string)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'x-base-string a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:y-base-string nsubr)
(entry #:display:y-base-string nsubr)
(cnbeq a4 '5 0)
(mov '#:display:y-base-string a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'y-base-string)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'y-base-string a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:x-inc-string nsubr)
(entry #:display:x-inc-string nsubr)
(cnbeq a4 '5 0)
(mov '#:display:x-inc-string a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'x-inc-string)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'x-inc-string a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:y-inc-string nsubr)
(entry #:display:y-inc-string nsubr)
(cnbeq a4 '5 0)
(mov '#:display:y-inc-string a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'y-inc-string)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'y-inc-string a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:current-line-style subr3)
(entry #:display:current-line-style subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-line-style)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-line-style a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:line-style-max subr2)
(entry #:display:line-style-max subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'line-style-max)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'line-style-max a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:current-pattern subr3)
(entry #:display:current-pattern subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-pattern)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-pattern a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:pattern-max subr2)
(entry #:display:pattern-max subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'pattern-max)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'pattern-max a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:current-mode subr3)
(entry #:display:current-mode subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'current-mode)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'current-mode a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:draw-cn nsubr)
(entry #:display:draw-cn nsubr)
(cnbeq a4 '5 0)
(mov '#:display:draw-cn a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'draw-cn)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-cn a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:draw-substring nsubr)
(entry #:display:draw-substring nsubr)
(cnbeq a4 '7 0)
(mov '#:display:draw-substring a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 7) '1 a4)
(push a4)
(push 'draw-substring)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-substring a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '7 a4)
(jmp funcall)
104
(eval ())
(adjstk '8)
(return)
))
(loader'((fentry #:display:draw-point nsubr)
(entry #:display:draw-point nsubr)
(cnbeq a4 '4 0)
(mov '#:display:draw-point a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 4) '1 a4)
(push a4)
(push 'draw-point)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-point a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(jmp funcall)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:draw-polymarker nsubr)
(entry #:display:draw-polymarker nsubr)
(cnbeq a4 '5 0)
(mov '#:display:draw-polymarker a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'draw-polymarker)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-polymarker a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:draw-line nsubr)
(entry #:display:draw-line nsubr)
(cnbeq a4 '6 0)
(mov '#:display:draw-line a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'draw-line)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-line a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:draw-rectangle nsubr)
(entry #:display:draw-rectangle nsubr)
(cnbeq a4 '6 0)
(mov '#:display:draw-rectangle a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'draw-rectangle)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-rectangle a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:draw-polyline nsubr)
(entry #:display:draw-polyline nsubr)
(cnbeq a4 '5 0)
(mov '#:display:draw-polyline a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'draw-polyline)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-polyline a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:draw-ellipse nsubr)
(entry #:display:draw-ellipse nsubr)
(cnbeq a4 '6 0)
(mov '#:display:draw-ellipse a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'draw-ellipse)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-ellipse a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:draw-circle nsubr)
(entry #:display:draw-circle nsubr)
(cnbeq a4 '5 0)
(mov '#:display:draw-circle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'draw-circle)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '6 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:fill-rectangle nsubr)
(entry #:display:fill-rectangle nsubr)
(cnbeq a4 '6 0)
(mov '#:display:fill-rectangle a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'fill-rectangle)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'fill-rectangle a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:fill-area nsubr)
(entry #:display:fill-area nsubr)
(cnbeq a4 '5 0)
(mov '#:display:fill-area a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'fill-area)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'fill-area a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:fill-ellipse nsubr)
(entry #:display:fill-ellipse nsubr)
(cnbeq a4 '6 0)
(mov '#:display:fill-ellipse a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 6) '1 a4)
(push a4)
(push 'fill-ellipse)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'fill-ellipse a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(jmp funcall)
104
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:fill-circle nsubr)
(entry #:display:fill-circle nsubr)
(cnbeq a4 '5 0)
(mov '#:display:fill-circle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'fill-circle)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'fill-circle a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:cursor-max subr1)
(entry #:display:cursor-max subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'cursor-max a1)
(jmp error)
))
(loader'((fentry #:display:make-cursor nsubr)
(entry #:display:make-cursor nsubr)
(cnbeq a4 '5 0)
(mov '#:display:make-cursor a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'make-cursor a1)
(adjstk '5)
(jmp error)
))
(loader'((fentry #:display:current-cursor subr1)
(entry #:display:current-cursor subr1)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'current-cursor a1)
(jmp error)
))
(loader'((fentry #:display:move-cursor subr3)
(entry #:display:move-cursor subr3)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'move-cursor a1)
(jmp error)
))
(loader'((fentry #:display:draw-cursor nsubr)
(entry #:display:draw-cursor nsubr)
(cnbeq a4 '5 0)
(mov '#:display:draw-cursor a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'draw-cursor)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'draw-cursor a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:make-color nsubr)
(entry #:display:make-color nsubr)
(cnbeq a4 '5 0)
(mov '#:display:make-color a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'make-color a1)
(adjstk '5)
(jmp error)
))
(loader'((fentry #:display:make-mutable-color nsubr)
(entry #:display:make-mutable-color nsubr)
(cnbeq a4 '5 0)
(mov '#:display:make-mutable-color a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'make-mutable-color a1)
(adjstk '5)
(jmp error)
))
(loader'((fentry #:display:make-name-color subr3)
(entry #:display:make-name-color subr3)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'make-name-color a1)
(jmp error)
))
(loader'((fentry #:display:kill-color subr2)
(entry #:display:kill-color subr2)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'kill-color a1)
(jmp error)
))
(loader'((fentry #:display:make-color nsubr)
(entry #:display:make-color nsubr)
(cnbeq a4 '5 0)
(mov '#:display:make-color a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'make-color a1)
(adjstk '5)
(jmp error)
))
(loader'((fentry #:display:current-foreground subr2)
(entry #:display:current-foreground subr2)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'current-foreground a1)
(jmp error)
))
(loader'((fentry #:display:current-background subr2)
(entry #:display:current-background subr2)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'current-background a1)
(jmp error)
))
(loader'((fentry #:display:red-component subr3)
(entry #:display:red-component subr3)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'red-component a1)
(jmp error)
))
(loader'((fentry #:display:green-component subr3)
(entry #:display:green-component subr3)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'green-component a1)
(jmp error)
))
(loader'((fentry #:display:blue-component subr3)
(entry #:display:blue-component subr3)
(mov nil a3)
(mov (cvalq errnotimplemented) a2)
(mov 'blue-component a1)
(jmp error)
))
(loader'((fentry #:display:create-bitmap subr2)
(entry #:display:create-bitmap subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'create-bitmap)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'create-bitmap a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:create-window-bitmap subr3)
(entry #:display:create-window-bitmap subr3)
(push a3)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'create-window-bitmap)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'create-window-bitmap a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(push (& 5))
(mov '3 a4)
(jmp funcall)
104
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:display:kill-bitmap subr2)
(entry #:display:kill-bitmap subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'kill-bitmap)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'kill-bitmap a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:get-bit-line nsubr)
(entry #:display:get-bit-line nsubr)
(cnbeq a4 '4 0)
(mov '#:display:get-bit-line a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 4) '1 a4)
(push a4)
(push 'get-bit-line)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'get-bit-line a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(jmp funcall)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:set-bit-line nsubr)
(entry #:display:set-bit-line nsubr)
(cnbeq a4 '4 0)
(mov '#:display:set-bit-line a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 4) '1 a4)
(push a4)
(push 'set-bit-line)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'set-bit-line a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(jmp funcall)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:bmref nsubr)
(entry #:display:bmref nsubr)
(cnbeq a4 '4 0)
(mov '#:display:bmref a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 4) '1 a4)
(push a4)
(push 'bmref)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bmref a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '4 a4)
(jmp funcall)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:bmset nsubr)
(entry #:display:bmset nsubr)
(cnbeq a4 '5 0)
(mov '#:display:bmset a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 5) '1 a4)
(push a4)
(push 'bmset)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bmset a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 6))
(mov '5 a4)
(jmp funcall)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry #:display:bitblit nsubr)
(entry #:display:bitblit nsubr)
(cnbeq a4 '9 0)
(mov '#:display:bitblit a1)
(mov '9 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(hpxmov (& 9) '1 a4)
(push a4)
(push 'bitblit)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'bitblit a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(push (& 10))
(mov '9 a4)
(jmp funcall)
104
(eval ())
(adjstk '10)
(return)
))
(loader'((fentry #:display:create-menu subr2)
(entry #:display:create-menu subr2)
(push a2)
(push (@ 101))
(hpxmov a1 '1 a4)
(push a4)
(push 'create-menu)
(push nil)
(mov '3 a4)
(jmp getfn)
101
(eval ())
(push a1)
(bfnil a1 103)
(mov 'create-menu a2)
(mov (cvalq #:sys-package:bitmap) a1)
(jcall symbol)
(mov a1 a3)
(mov 'errudf a2)
(mov 'to-display a1)
(jcall error)
103
(push (@ 104))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp funcall)
104
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:display:kill-menu subr2)
(entry #:display:kill-menu subr2)
(push (@ 101))
(push 'kill-menu)
(push a2)
(mov '2 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:display:activate-menu nsubr)
(entry #:display:activate-menu nsubr)
(cnbeq a4 '4 0)
(mov '#:display:activate-menu a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'activate-menu)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:display:menu-insert-item-list nsubr)
(entry #:display:menu-insert-item-list nsubr)
(cnbeq a4 '5 0)
(mov '#:display:menu-insert-item-list a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'menu-insert-item-list)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:menu-insert-item nsubr)
(entry #:display:menu-insert-item nsubr)
(cnbeq a4 '7 0)
(mov '#:display:menu-insert-item a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'menu-insert-item)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:display:menu-delete-item-list subr3)
(entry #:display:menu-delete-item-list subr3)
(push (@ 101))
(push 'menu-delete-item-list)
(push a2)
(push a3)
(mov '3 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:display:menu-delete-item nsubr)
(entry #:display:menu-delete-item nsubr)
(cnbeq a4 '4 0)
(mov '#:display:menu-delete-item a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'menu-delete-item)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(jmp send)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:display:menu-modify-item-list nsubr)
(entry #:display:menu-modify-item-list nsubr)
(cnbeq a4 '5 0)
(mov '#:display:menu-modify-item-list a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'menu-modify-item-list)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:display:menu-modify-item nsubr)
(entry #:display:menu-modify-item nsubr)
(cnbeq a4 '7 0)
(mov '#:display:menu-modify-item a1)
(mov '7 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push 'menu-modify-item)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((fentry #:bitmap:bitprologue subr0)
(entry #:bitmap:bitprologue subr0)
(mov 't (cvalq #:window:prologuep))
(mov nil (cvalq #:window:all-windows))
(mov nil (cvalq #:window:current-window))
(mov nil (cvalq #:window:current-keyboard-focus-window))
(mov nil (cvalq #:graph-env:main-graph-env))
(mov nil (cvalq #:graph-env:current-graph-env))
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bitepilogue subr0)
(entry #:bitmap:bitepilogue subr0)
(push (cvalq #:window:all-windows))
101
(bfcons (& 0) 102)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall kill-window)
(bra 101)
102
(adjstk '1)
(mov nil (cvalq #:window:prologuep))
(mov nil (cvalq #:window:all-windows))
(mov nil (cvalq #:window:current-window))
(mov nil (cvalq #:window:current-keyboard-focus-window))
(mov nil (cvalq #:graph-env:main-graph-env))
(mov nil (cvalq #:graph-env:current-graph-env))
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bitmap-refresh subr0)
(entry #:bitmap:bitmap-refresh subr0)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bitmap-flush subr0)
(entry #:bitmap:bitmap-flush subr0)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:draw-cn nsubr)
(entry #:bitmap:draw-cn nsubr)
(cnbeq a4 '4 0)
(mov '#:bitmap:draw-cn a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push '"X")
(hbmovx (& 1) (& 0) '0)
(push (@ 101))
(push 'draw-substring)
(push (& 6))
(push (& 6))
(push (& 6))
(push (& 5))
(push '0)
(push '1)
(mov '7 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:draw-line nsubr)
(entry #:bitmap:draw-line nsubr)
(cnbeq a4 '5 0)
(mov '#:bitmap:draw-line a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpmovx (& 3) (cvalq #:graph-env:vx) '0)
(hpmovx (& 1) (cvalq #:graph-env:vx) '1)
(hpmovx (& 2) (cvalq #:graph-env:vy) '0)
(hpmovx (& 0) (cvalq #:graph-env:vy) '1)
(push (@ 101))
(push 'draw-polyline)
(push (& 6))
(push '2)
(push (cvalq #:graph-env:vx))
(push (cvalq #:graph-env:vy))
(mov '5 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:draw-point subr3)
(entry #:bitmap:draw-point subr3)
(hpmovx a2 (cvalq #:graph-env:vx) '0)
(hpmovx a3 (cvalq #:graph-env:vy) '0)
(push (@ 101))
(push 'draw-polymarker)
(push a1)
(push '1)
(push (cvalq #:graph-env:vx))
(push (cvalq #:graph-env:vy))
(mov '5 a4)
(jmp send)
101
(eval ())
(return)
))
(loader'((fentry #:bitmap:draw-rectangle nsubr)
(entry #:bitmap:draw-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:bitmap:draw-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpmovx (& 3) (cvalq #:graph-env:vx) '0)
(hpmovx (& 3) (cvalq #:graph-env:vx) '1)
(mov (& 3) a4)
(plus (& 1) a4)
(hpmovx a4 (cvalq #:graph-env:vx) '2)
(mov (& 3) a4)
(plus (& 1) a4)
(hpmovx a4 (cvalq #:graph-env:vx) '3)
(hpmovx (& 3) (cvalq #:graph-env:vx) '4)
(hpmovx (& 2) (cvalq #:graph-env:vy) '0)
(mov (& 2) a4)
(plus (& 0) a4)
(hpmovx a4 (cvalq #:graph-env:vy) '1)
(mov (& 2) a4)
(plus (& 0) a4)
(hpmovx a4 (cvalq #:graph-env:vy) '2)
(hpmovx (& 2) (cvalq #:graph-env:vy) '3)
(hpmovx (& 2) (cvalq #:graph-env:vy) '4)
(push (@ 101))
(push 'draw-polyline)
(push (& 6))
(push '5)
(push (cvalq #:graph-env:vx))
(push (cvalq #:graph-env:vy))
(mov '5 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:fill-rectangle nsubr)
(entry #:bitmap:fill-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:bitmap:fill-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(hpmovx (& 3) (cvalq #:graph-env:vx) '0)
(hpmovx (& 3) (cvalq #:graph-env:vx) '1)
(mov (& 3) a4)
(plus (& 1) a4)
(hpmovx a4 (cvalq #:graph-env:vx) '2)
(mov (& 3) a4)
(plus (& 1) a4)
(hpmovx a4 (cvalq #:graph-env:vx) '3)
(hpmovx (& 3) (cvalq #:graph-env:vx) '4)
(hpmovx (& 2) (cvalq #:graph-env:vy) '0)
(mov (& 2) a4)
(plus (& 0) a4)
(hpmovx a4 (cvalq #:graph-env:vy) '1)
(mov (& 2) a4)
(plus (& 0) a4)
(hpmovx a4 (cvalq #:graph-env:vy) '2)
(hpmovx (& 2) (cvalq #:graph-env:vy) '3)
(hpmovx (& 2) (cvalq #:graph-env:vy) '4)
(push (@ 101))
(push 'fill-area)
(push (& 6))
(push '5)
(push (cvalq #:graph-env:vx))
(push (cvalq #:graph-env:vy))
(mov '5 a4)
(jmp send)
101
(eval ())
(adjstk '5)
(return)
))
(loader '((end)))