(loader '((title |x.lo|)))
(defvar #:sys-package:bitmap '#:bitmap:x)
(defvar #:sys-package:colon #:sys-package:bitmap)
(if (not (boundp '#:bitmap:planes)) (progn (defvar #:bitmap:planes)))
(if (not (boundp '#:bitmap:x:ymax)) (progn (defvar #:bitmap:x:xmax 1100) (defvar #:bitmap:x:ymax 800)))
(loader'((entry |←XFlush| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XFlush|))))
(push '1)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←bitprologue| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←bitprologue|))))
(push '1)
(push (& 8))
(push '0)
(push (& 9))
(push '0)
(push (& 10))
(push '0)
(push (& 11))
(push '0)
(push (& 12))
(push '0)
(push (& 13))
(push '0)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry |←bitepilogue| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←bitepilogue|))))
(push '1)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←create←window| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←create←window|))))
(push '1)
(push (& 10))
(push '0)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '3)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(mov '18 a4)
(jmp callextern)
101
(eval ())
(adjstk '8)
(return)
))
(loader'((entry |←modify←window| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←modify←window|))))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(push (& 18))
(push '1)
(push (& 19))
(push '3)
(push (& 20))
(push '1)
(push (& 21))
(push '1)
(mov '22 a4)
(jmp callextern)
101
(eval ())
(adjstk '10)
(return)
))
(loader'((entry |←find←window| subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←find←window|))))
(push '0)
(push a1)
(push '1)
(push a2)
(push '1)
(push a3)
(push '0)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←map←window| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←map←window|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '0)
(push (& 11))
(push '0)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←grab←keyboard| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←grab←keyboard|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←grab←mouse| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←grab←mouse|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←create←subwindow| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←create←subwindow|))))
(push '1)
(push (& 9))
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((entry |←pop←window| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←pop←window|))))
(push '1)
(push a1)
(push '1)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←kill←window| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←kill←window|))))
(push '1)
(push a1)
(push '1)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←move←behind←window| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←move←behind←window|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←draw←cn| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←cn|))))
(push '1)
(push (& 6))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←draw←substr| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←substr|))))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '3)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry |←width←substr| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←width←substr|))))
(push '1)
(push (& 6))
(push '3)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←height←cn| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←height←cn|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←xinc←substr| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←xinc←substr|))))
(push '1)
(push (& 6))
(push '3)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←tycleol| subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←tycleol|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(push a3)
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←load←font| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←load←font|))))
(push '0)
(push a1)
(push '3)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←current←font| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←current←font|))))
(push '1)
(push a1)
(push '1)
(mov a2 a1)
(jcall vag)
(push a1)
(push '0)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←default←font1| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←default←font1|))))
(push '0)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←default←font2| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←default←font2|))))
(push '0)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←draw←cursor| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←cursor|))))
(push '1)
(push (& 6))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←clear←ge| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←clear←ge|))))
(push '1)
(push a1)
(push '1)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←i←peek←mouse| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←i←peek←mouse|))))
(push '1)
(push a1)
(push '4)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←i←read←mouse| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←i←read←mouse|))))
(push '1)
(push a1)
(push '4)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←flush←event| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←flush←event|))))
(push '1)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←set←event←mode| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←event←mode|))))
(push '1)
(push a1)
(push '1)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←eventp| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←eventp|))))
(push '0)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←read←mouse| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←read←mouse|))))
(push '1)
(push a1)
(push '4)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←set←cur←mode| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←cur←mode|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←set←line←style| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←line←style|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←set←clip| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←clip|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←draw←polymarker| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←polymarker|))))
(push '1)
(push (& 6))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '4)
(push (& 9))
(push '4)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←draw←point| subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←point|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(push a3)
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←draw←polyline| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←polyline|))))
(push '1)
(push (& 6))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '4)
(push (& 9))
(push '4)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←draw←line| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←line|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←draw←rectangle| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←rectangle|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←set←cur←pattern| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←cur←pattern|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←fill←area| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←fill←area|))))
(push '1)
(push (& 6))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '4)
(push (& 9))
(push '4)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←fill←rectangle| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←fill←rectangle|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←llreversevideo| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←llreversevideo|))))
(push '1)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(return)
))
(if (not (boundp '#:bitmap:x:fuck-window)) (progn (defvar #:bitmap:bit-reverse-vector) (defvar #:bitmap:x:fuck-window)))
(loader'((fentry #:bitmap:x:bitprologue subr0)
(entry #:bitmap:x:bitprologue subr0)
(mov '"DISPLAY" a1)
(jcall getenv)
(bfnil a1 102)
(mov '"DISPLAY" a3)
(mov '"unbound shell variable" a2)
(mov '#:bitmap:x:bitprologue a1)
(jcall error)
102
(push (@ 103))
(push '#:bitmap:x:xmax)
(push '#:bitmap:x:ymax)
(push '#:bitmap:planes)
(push nil)
(push 'errx)
(push 'error)
(mov '6 a4)
(bra |←bitprologue|)
103
(eval ())
(call #:graph-env:x:make)
(mov a1 (cvalq #:graph-env:main-graph-env))
(mov a1 (cvalq #:graph-env:current-graph-env))
(call |←llreversevideo|)
(cabeq a1 '0 104)
(mov '#[0 8 4 12 2 10 6 14 1 9 5 13 3 11 7 15] a4)
(bra 105)
104
(mov '#[15 7 11 3 13 5 9 1 14 6 10 2 12 4 8 0] a4)
105
(mov a4 (cvalq #:bitmap:bit-reverse-vector))
(jcall #:graph-env:x:init-fonts)
(push (@ 106))
(push (@ 107))
(push 'window)
(push '0)
(push '0)
(push '0)
(push '0)
(push '"")
(push '0)
(push '0)
(mov '8 a4)
(jmp create-window)
107
(eval ())
(mov a1 (cvalq #:bitmap:x:fuck-window))
(push a1)
(mov '1 a4)
(jmp current-window)
106
(eval ())
(return)
))
(loader'((fentry #:bitmap:x:bitepilogue subr0)
(entry #:bitmap:x:bitepilogue subr0)
(push (@ 101))
(push nil)
(mov '1 a4)
(jmp current-window)
101
(eval ())
(mov (cvalq #:bitmap:x:fuck-window) a1)
(jcall kill-window)
(bra |←bitepilogue|)
))
(loader'((fentry #:bitmap:x:bitmap-refresh subr0)
(entry #:bitmap:x:bitmap-refresh subr0)
(mov '"xrefresh" a1)
(jmp comline)
))
(loader'((fentry #:bitmap:x:bitmap-flush subr0)
(entry #:bitmap:x:bitmap-flush subr0)
(bra |←XFlush|)
))
(loader'((fentry #:tty:window:tycleol subr0)
(entry #:tty:window:tycleol subr0)
(push (@ 104))
(mov '0 a4)
(jmp current-window)
104
(eval ())
(bfvect a1 103)
(push (@ 105))
(mov '0 a4)
(jmp current-window)
105
(eval ())
(hpxmov a1 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 106))
(mov '0 a4)
(jmp current-window)
106
(eval ())
(hpxmov a1 '8 a1)
(push a1)
(push (@ 107))
(mov '0 a4)
(jmp current-window)
107
(eval ())
(hpxmov a1 '14 a2)
(push a2)
(push (@ 108))
(mov '0 a4)
(jmp current-window)
108
(eval ())
(hpxmov a1 '15 a3)
(pop a2)
(pop a1)
(bra |←tycleol|)
))
(loader'((fentry #:tty:window:tyback subr1)
(entry #:tty:window:tyback subr1)
(push a1)
(jcall #:tty:window:tybs)
(push (@ 101))
(mov '0 a4)
(jmp current-mode)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(push '0)
(mov '1 a4)
(jmp current-mode)
104
(eval ())
(push (@ 105))
(mov '0 a4)
(jmp current-window)
105
(eval ())
(hpxmov a1 '14 a1)
(push a1)
(push (@ 106))
(mov '0 a4)
(jmp current-window)
106
(eval ())
(hpxmov a1 '15 a2)
(mov (& 5) a3)
(pop a1)
(jcall draw-cn)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 107))
(push (& 4))
(mov '1 a4)
(jmp current-mode)
107
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:bitmap:x:create-window subr1)
(entry #:bitmap:x:create-window subr1)
(push a1)
(hpxmov a1 '0 a4)
(push a4)
(hpxmov a1 '1 a3)
(push a3)
(hpxmov a1 '2 a2)
(push a2)
(hpxmov a1 '3 a4)
(push a4)
(hpxmov a1 '4 a4)
(push a4)
(hpxmov a1 '5 a4)
(push a4)
(hpxmov a1 '6 a4)
(push a4)
(call #:graph-env:x:make)
(hpmovx a1 (& 7) '7)
(hpmovx (& 4) a1 '8)
(hpmovx (& 3) a1 '9)
(push (@ 101))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov (& 8) a1)
(jcall string)
(push a1)
(push (& 8))
(push (& 8))
(mov '8 a4)
(bra |←create←window|)
101
(eval ())
(hpmovx a1 (& 7) '8)
(adjstk '8)
(return)
))
(loader'((fentry #:bitmap:x:create-subwindow subr1)
(entry #:bitmap:x:create-subwindow subr1)
(push a1)
(hpxmov a1 '9 a4)
(bfvect a4 103)
(hpxmov a1 '9 a4)
(hpxmov a4 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(call #:graph-env:x:make)
(hpxmov (& 0) '2 a4)
(hpxmov (& 0) '3 a3)
(hpmovx a1 (& 0) '7)
(hpmovx a4 a1 '8)
(hpmovx a3 a1 '9)
(push (@ 104))
(push (& 1))
(hpxmov (& 2) '9 a2)
(hpxmov a2 '8 a2)
(push a2)
(hpxmov (& 3) '0 a2)
(push a2)
(hpxmov (& 4) '1 a2)
(push a2)
(push a4)
(push a3)
(hpxmov (& 7) '6 a2)
(push a2)
(mov '7 a4)
(bra |←create←subwindow|)
104
(eval ())
(hpmovx a1 (& 0) '8)
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:image:rectangle:window:current-window subr1)
(entry #:image:rectangle:window:current-window subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:image:rectangle:window:uncurrent-window subr1)
(entry #:image:rectangle:window:uncurrent-window subr1)
(mov nil a1)
(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
(btnil (& 6) 102)
(hpmovx (& 6) (& 7) '0)
102
(btnil (& 5) 104)
(hpmovx (& 5) (& 7) '1)
104
(btnil (& 4) 106)
(hpmovx (& 4) (& 7) '2)
106
(btnil (& 3) 108)
(hpmovx (& 3) (& 7) '3)
108
(btnil (& 2) 110)
(hpmovx (& 2) (& 7) '4)
110
(btnil (& 1) 112)
(hpmovx (& 1) (& 7) '5)
112
(btnil (& 0) 114)
(hpmovx (& 0) (& 7) '6)
114
(bfvect (& 7) 117)
(hpxmov (& 7) '8 a4)
(bfnil a4 116)
117
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
116
(push (@ 118))
(hpxmov (& 8) '8 a4)
(push a4)
(bfnil (& 8) 121)
(btnil (& 7) 119)
121
(mov '1 a4)
(bra 120)
119
(mov '0 a4)
120
(push a4)
(hpxmov (& 10) '0 a4)
(push a4)
(hpxmov (& 11) '1 a4)
(push a4)
(bfnil (& 9) 124)
(btnil (& 8) 122)
124
(mov '1 a4)
(bra 123)
122
(mov '0 a4)
123
(push a4)
(hpxmov (& 13) '2 a4)
(push a4)
(hpxmov (& 14) '3 a4)
(push a4)
(hpxmov (& 15) '4 a4)
(push a4)
(hpxmov (& 16) '5 a4)
(push a4)
(hpxmov (& 17) '6 a4)
(push a4)
(mov '10 a4)
(bra |←modify←window|)
118
(eval ())
(hpxmov (& 7) '7 a4)
(hpxmov a4 '10 a4)
(btnil a4 126)
(hpxmov (& 7) '2 a3)
(hpmovx a3 a4 '0)
(hpxmov (& 7) '3 a3)
(hpmovx a3 a4 '1)
126
(mov (& 7) a1)
(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
(btnil (& 3) 102)
(hpmovx (& 3) (& 4) '0)
102
(btnil (& 2) 104)
(hpmovx (& 2) (& 4) '1)
104
(btnil (& 1) 106)
(hpmovx (& 1) (& 4) '2)
106
(btnil (& 0) 108)
(hpmovx (& 0) (& 4) '3)
108
(mov (& 4) a1)
(adjstk '5)
(return)
))
(loader'((fentry #:image:rectangle:window:kill-window subr1)
(entry #:image:rectangle:window:kill-window subr1)
(push a1)
(cabne a1 (cvalq #:bitmap:x:grabber) 102)
(mov nil (cvalq #:bitmap:x:grabber))
102
(push (cvalq #:window:all-windows))
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '9 a4)
(cabne (& 2) a4 106)
(mov (& 0) a1)
(jcall kill-window)
106
(adjstk '1)
(bra 103)
104
(adjstk '1)
(bfvect (& 0) 109)
(hpxmov (& 0) '8 a4)
(bfnil a4 108)
109
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
108
(hpxmov (& 0) '8 a4)
(push a4)
(mov a4 a1)
(call |←kill←window|)
(cabne a1 '0 110)
(push (cvalq #:window:all-windows))
112
(bfcons (& 0) 113)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(bfvect (& 0) 116)
(hpxmov (& 0) '8 a4)
(bfnil a4 115)
116
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
115
(hpxmov (& 0) '8 a4)
(cnble a4 (& 2) 118)
(hpxmov (& 0) '8 a4)
(diff '1 a4)
(hpmovx a4 (& 0) '8)
(hpxmov (& 0) '7 a4)
(hpxmov a4 '10 a4)
(btnil a4 118)
(hpxmov (& 0) '7 a4)
(hpxmov a4 '10 a4)
(hpxmov (& 0) '8 a3)
(hpmovx a3 a4 '2)
118
(adjstk '1)
(bra 112)
113
(adjstk '1)
(mov (cvalq #:window:all-windows) a2)
(mov (& 1) a1)
(jcall delq)
(mov a1 (cvalq #:window:all-windows))
(hpmovx nil (& 1) '8)
(mov nil a1)
(adjstk '2)
(return)
110
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((fentry #:image:rectangle:window:pop-window subr1)
(entry #:image:rectangle:window:pop-window subr1)
(bfvect a1 103)
(hpxmov a1 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hpxmov a1 '8 a1)
(bra |←pop←window|)
))
(loader'((fentry #:image:rectangle:window:move-behind-window subr2)
(entry #:image:rectangle:window:move-behind-window subr2)
(bfvect a1 103)
(hpxmov a1 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(bfvect a2 106)
(hpxmov a2 '8 a4)
(bfnil a4 105)
106
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
105
(hpxmov a1 '8 a1)
(hpxmov a2 '8 a2)
(bra |←move←behind←window|)
))
(loader'((fentry #:bitmap:x:find-window subr2)
(entry #:bitmap:x:find-window subr2)
(mov nil a3)
(bra |←find←window|)
))
(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 (cvalq #:bitmap:x:y))
(mov (& 3) (cvalq #:bitmap:x:y))
(push (cvalq #:bitmap:x:x))
(mov (& 5) (cvalq #:bitmap:x:x))
(push '2)
(push '(#:bitmap:x:y #:bitmap:x:x))
(push (@ #:image:rectangle:window:map-window))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(bfvect (& 12) 103)
(hpxmov (& 12) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (& 13) '8 a4)
(push a4)
(push (cvalq #:bitmap:x:x))
(push (cvalq #:bitmap:x:y))
(push (& 13))
(push (& 13))
(mov '5 a4)
(bra |←map←window|)
104
(eval ())
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq #:bitmap:x:x))
(mov (& 7) (cvalq #:bitmap:x:y))
(adjstk '13)
(return)
))
(loader'((fentry #:image:rectangle:window:current-keyboard-focus-window subr1)
(entry #:image:rectangle:window:current-keyboard-focus-window subr1)
(bfvect a1 103)
(hpxmov a1 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hpxmov a1 '8 a1)
(mov '1 a2)
(bra |←grab←keyboard|)
))
(loader'((fentry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(entry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(mov '0 a2)
(mov '0 a1)
(bra |←grab←keyboard|)
))
(if (not (boundp '#:bitmap:x:grabber)) (progn (defvar #:bitmap:x:reread ()) (defvar #:bitmap:x:x 0) (defvar #:bitmap:x:y 0) (defvar #:bitmap:x:grabber ())))
(loader'((fentry #:bitmap:x:parse-event subr1)
(entry #:bitmap:x:parse-event subr1)
(push a1)
(hpxmov a1 '0 a1)
(cabne a1 '259 102)
(hpxmov (& 0) '1 a4)
(mov a4 (cvalq #:bitmap:x:grabber))
(bra 101)
102
(cabne a1 '264 101)
(hpxmov (& 0) '1 a4)
(hpxmov a4 '0 a4)
(hpmovx a4 (& 0) '5)
(hpxmov (& 0) '1 a4)
(hpxmov a4 '1 a4)
(hpmovx a4 (& 0) '6)
101
(hpxmov (& 0) '0 a1)
(mov '((256 . ascii-event) (257 . move-event) (258 . drag-event) (259 . down-event) (260 . up-event) (264 . modify-window-event) (266 . repaint-window-event) (268 . enterwindow-event) (269 . leavewindow-event)) a2)
(jcall cassq)
(mov a1 a4)
(bfnil a4 104)
(hpxmov (& 0) '0 a4)
104
(hpmovx a4 (& 0) '0)
(mov a4 a1)
(adjstk '1)
(return)
))
(loader'((fentry #:bitmap:x:event-mode subr1)
(entry #:bitmap:x:event-mode subr1)
(bra |←set←event←mode|)
))
(loader'((fentry #:bitmap:x:eventp subr0)
(entry #:bitmap:x:eventp subr0)
(mov (cvalq #:bitmap:x:reread) a1)
(bfnil a1 29999)
(mov nil a1)
(bra |←eventp|)
29999
(return)
))
(loader'((fentry #:bitmap:x:read-event subr1)
(entry #:bitmap:x:read-event subr1)
(push a1)
(bfnil (cvalq #:bitmap:x:reread) 101)
(call |←i←read←mouse|)
(bra 102)
101
(push (@ 103))
(push a1)
(push '0)
(mov (cvalq #:bitmap:x:reread) a4)
(mov (cdr a4) (cvalq #:bitmap:x:reread))
(push (car a4))
(push '0)
(mov '4 a4)
(jmp bltvector)
103
(eval ())
102
(mov (& 0) a1)
(adjstk '1)
(jmp #:bitmap:x:parse-event)
))
(loader'((fentry #:bitmap:x:peek-event subr1)
(entry #:bitmap:x:peek-event subr1)
(push a1)
(bfnil (cvalq #:bitmap:x:reread) 101)
(call |←i←peek←mouse|)
(bra 102)
101
(push (@ 103))
(push a1)
(push '0)
(mov (cvalq #:bitmap:x:reread) a4)
(push (car a4))
(push '0)
(mov '4 a4)
(jmp bltvector)
103
(eval ())
102
(mov (& 0) a1)
(adjstk '1)
(jmp #:bitmap:x:parse-event)
))
(loader'((fentry #:bitmap:x:flush-event subr0)
(entry #:bitmap:x:flush-event subr0)
(mov nil (cvalq #:bitmap:x:reread))
(bra |←flush←event|)
))
(loader'((entry copyvector1 subr1)
(push a1)
(hgsize a1 a1)
(mov nil a2)
(jcall makevector)
(push a1)
(push (@ 101))
(push a1)
(push '0)
(push (& 4))
(push '0)
(mov '4 a4)
(jmp bltvector)
101
(eval ())
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:bitmap:x:add-event subr1)
(entry #:bitmap:x:add-event subr1)
(call copyvector1)
(push (@ 101))
(push (cvalq #:bitmap:x:reread))
(jcall ncons)
(push a1)
(mov '2 a4)
(jmp nconc)
101
(eval ())
(mov a1 (cvalq #:bitmap:x:reread))
(return)
))
(loader'((fentry #:bitmap:x:grab-event subr1)
(entry #:bitmap:x:grab-event subr1)
(push a1)
(bfvect a1 103)
(hpxmov a1 '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hpxmov a1 '8 a1)
(mov '1 a2)
(call |←grab←mouse|)
(mov (& 0) (cvalq #:bitmap:x:grabber))
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:bitmap:x:ungrab-event subr0)
(entry #:bitmap:x:ungrab-event subr0)
(mov '0 a2)
(mov '0 a1)
(call |←grab←mouse|)
(mov nil (cvalq #:bitmap:x:grabber))
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:x:itsoft-event subr1)
(entry #:bitmap:x:itsoft-event subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:x:read-mouse subr1)
(entry #:bitmap:x:read-mouse subr1)
(bra |←read←mouse|)
))
(putprop '#:graph-env:x '(()) 'defstruct)
(loader'((entry #:graph-env:x: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:x)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:font '#:graph-env:x:font 'setf-inverse) '#:graph-env:x:font)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:font (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:line-style '#:graph-env:x:line-style 'setf-inverse) '#:graph-env:x:line-style)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:line-style (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:pattern '#:graph-env:x:pattern 'setf-inverse) '#:graph-env:x:pattern)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:pattern (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:mode '#:graph-env:x:mode 'setf-inverse) '#:graph-env:x:mode)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:mode (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:foreground '#:graph-env:x:foreground 'setf-inverse) '#:graph-env:x:foreground)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:foreground (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:background '#:graph-env:x:background 'setf-inverse) '#:graph-env:x:background)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:background (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:clip-x '#:graph-env:x:clip-x 'setf-inverse) '#:graph-env:x:clip-x)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:clip-x (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:clip-y '#:graph-env:x:clip-y 'setf-inverse) '#:graph-env:x:clip-y)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:clip-y (struct . valeur) (ifn valeur (list 'vref struct 7) (list 'vset struct 7 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:clip-w '#:graph-env:x:clip-w 'setf-inverse) '#:graph-env:x:clip-w)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:clip-w (struct . valeur) (ifn valeur (list 'vref struct 8) (list 'vset struct 8 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:clip-h '#:graph-env:x:clip-h 'setf-inverse) '#:graph-env:x:clip-h)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:clip-h (struct . valeur) (ifn valeur (list 'vref struct 9) (list 'vset struct 9 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:bitmap '#:graph-env:x:bitmap 'setf-inverse) '#:graph-env:x:bitmap)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:bitmap (struct . valeur) (ifn valeur (list 'vref struct 10) (list 'vset struct 10 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:display '#:graph-env:x:display 'setf-inverse) '#:graph-env:x:display)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:display (struct . valeur) (ifn valeur (list 'vref struct 11) (list 'vset struct 11 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:graph-env:x:extend '#:graph-env:x:extend 'setf-inverse) '#:graph-env:x:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:graph-env:x:extend (struct . valeur) (ifn valeur (list 'vref struct 12) (list 'vset struct 12 (car valeur))))))
(defvar #:sys-package:colon '#:graph-env:x)
(if (not (boundp '#:graph-env:x:font-name-list)) (progn (defvar #:graph-env:x:font-vector #[0 0]) (defvar #:graph-env:x:font-name-list ())))
(loader'((fentry #:graph-env:x:font-max subr1)
(entry #:graph-env:x:font-max subr1)
(hgsize (cvalq #:graph-env:x:font-vector) a1)
(diff '1 a1)
(return)
))
(loader'((fentry #:graph-env:x:init-fonts subr0)
(entry #:graph-env:x:init-fonts subr0)
(mov '#[0 0] (cvalq #:graph-env:x:font-vector))
(mov nil (cvalq #:graph-env:x:font-name-list))
(call |←default←font1|)
(hpmovx a1 (cvalq #:graph-env:x:font-vector) '0)
(call |←default←font2|)
(hpmovx a1 (cvalq #:graph-env:x:font-vector) '1)
(return)
))
(loader'((fentry #:graph-env:x:current-font subr2)
(entry #:graph-env:x:current-font subr2)
(push a2)
(push a1)
(bffix a2 103)
(push a2)
(jcall #:graph-env:x:font-max)
(pop a4)
(cnble a4 a1 101)
103
(mov (& 1) a3)
(mov 'erroob a2)
(mov 'curent-font a1)
(adjstk '2)
(jmp error)
101
(bfvect (cvalq #:window:current-window) 106)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 105)
106
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
105
(hpxmov (cvalq #:window:current-window) '8 a1)
(hpxmov (cvalq #:graph-env:x:font-vector) (& 1) a2)
(call |←current←font|)
(hpmovx (& 1) (& 0) '0)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:graph-env:x:load-font subr2)
(entry #:graph-env:x:load-font subr2)
(push a2)
(mov a2 a1)
(call |←load←font|)
(hgsize (cvalq #:graph-env:x:font-vector) a4)
(push a4)
(push a1)
(cabne a1 '0 101)
(mov (& 2) a3)
(mov (cvalq erroob) a2)
(mov 'load-font a1)
(jcall error)
(bra 102)
101
(push (@ 103))
(plus '1 a4)
(hpxmov (cvalq #:graph-env:x:font-vector) '0 a2)
(mov a4 a1)
(jcall makevector)
(push a1)
(push '0)
(push (cvalq #:graph-env:x:font-vector))
(push '0)
(push (& 6))
(mov '5 a4)
(jmp bltvector)
103
(eval ())
(mov a1 (cvalq #:graph-env:x:font-vector))
(hpmovx (& 0) a1 (& 1))
102
(push (& 2))
(push (@ 104))
(push (cvalq #:graph-env:x:font-name-list))
(mov (& 2) a1)
(jcall ncons)
(push a1)
(mov '2 a4)
(jmp nconc)
104
(eval ())
(adjstk '1)
(mov a1 (cvalq #:graph-env:x:font-name-list))
(mov (& 1) a1)
(adjstk '3)
(return)
))
(if (not (getdef '#:system:restore-core)) (progn (synonymq #:system:restore-core restore-core)))
(if (not (getdef '#:system:save-core)) (progn (synonymq #:system:save-core save-core)))
(loader'((fentry save-core subr1)
(entry save-core subr1)
(push a1)
(bfnil (cvalq #:window:prologuep) 101)
(adjstk '1)
(jmp #:system:save-core)
101
(push (@ 103))
(mov '0 a4)
(jmp current-font)
103
(eval ())
(push a1)
(push (@ 104))
(mov '0 a4)
(jmp current-pattern)
104
(eval ())
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp current-line-style)
105
(eval ())
(push a1)
(push (@ 106))
(mov '0 a4)
(jmp current-window)
106
(eval ())
(push a1)
(push (@ 107))
(mov '0 a4)
(jmp current-keyboard-focus-window)
107
(eval ())
(push (cvalq #:graph-env:x:font-name-list))
(push (cvalq #:window:all-windows))
(push a1)
(push (& 1))
108
(bfcons (& 0) 109)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall check-window-position)
(bra 108)
109
(adjstk '1)
(push (& 1))
110
(bfcons (& 0) 111)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '7 a4)
(hpmovx nil a4 '10)
(adjstk '1)
(bra 110)
111
(adjstk '1)
(push (cvalq #:bitmap:x:all-pixmaps))
112
(bfcons (& 0) 113)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 114))
(push (& 1))
(mov '1 a4)
(jmp #:bitmap:bits)
114
(eval ())
(hpmovx a1 (& 0) '2)
(adjstk '1)
(bra 112)
113
(adjstk '1)
(push (@ 115))
(mov '0 a4)
(jmp bitepilogue)
115
(eval ())
(mov (& 7) a1)
(jcall #:system:save-core)
(push (@ 116))
(mov '0 a4)
(jmp bitprologue)
116
(eval ())
(push (& 2))
117
(bfcons (& 0) 118)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(jcall load-font)
(bra 117)
118
(adjstk '1)
(mov (& 1) a1)
(call recreate-windows)
(push (@ 119))
(push (& 4))
(mov '1 a4)
(jmp current-window)
119
(eval ())
(push (@ 120))
(push (& 7))
(mov '1 a4)
(jmp current-font)
120
(eval ())
(push (@ 121))
(push (& 6))
(mov '1 a4)
(jmp current-pattern)
121
(eval ())
(push (@ 122))
(push (& 5))
(mov '1 a4)
(jmp current-line-style)
122
(eval ())
(push (@ 123))
(push (& 1))
(mov '1 a4)
(jmp current-keyboard-focus-window)
123
(eval ())
(push (cvalq #:bitmap:x:all-pixmaps))
124
(bfcons (& 0) 125)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(hpxmov (& 0) '2 a4)
(push a4)
(push (@ 126))
(call |←rootwindow|)
(push a1)
(push '0)
(push '0)
(hpxmov (& 5) '0 a3)
(push a3)
(hpxmov (& 6) '1 a3)
(push a3)
(mov '5 a4)
(bra |←XPixmapSave|)
126
(eval ())
(hpmovx a1 (& 1) '2)
(push (@ 127))
(push (& 2))
(push (& 2))
(mov '2 a4)
(jmp #:bitmap:bits)
127
(eval ())
(adjstk '2)
(bra 124)
125
(adjstk '1)
(push (cvalq #:menu:x:all-menus))
128
(bfcons (& 0) 129)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:menu:x:rebuild-menu)
(bra 128)
129
(adjstk '1)
(push (@ 130))
(mov '0 a4)
(jmp bitmap-flush)
130
(eval ())
(adjstk '8)
(return)
))
(loader'((fentry restore-core subr1)
(entry restore-core subr1)
(push a1)
(bfnil (cvalq #:window:prologuep) 101)
(adjstk '1)
(jmp #:system:restore-core)
101
(push (@ 103))
(mov '0 a4)
(jmp bitepilogue)
103
(eval ())
(mov (& 0) a1)
(adjstk '1)
(jmp #:system:restore-core)
))
(loader'((entry recreate-windows subr1)
(push a1)
(btnil a1 101)
(hpxmov (car a1) '9 a4)
(push a4)
(btnil a4 105)
(mov a4 a1)
(jcall windowp)
(btnil a1 103)
105
(mov (& 1) a1)
(mov (car a1) a1)
(jcall make-window)
(bfnil (& 0) 107)
(mov (& 1) a1)
(mov (car a1) a1)
(call add-repaint-event)
107
(mov (& 1) a1)
(mov (cdr a1) a1)
(adjstk '2)
(bra recreate-windows)
103
(mov (& 1) a1)
(mov (car a1) a2)
(mov (cdr a1) a1)
(jcall nconc1)
(adjstk '2)
(bra recreate-windows)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry add-repaint-event subr1)
(push a1)
(mov 'event a1)
(jcall new)
(hpmovx (& 0) a1 '1)
(hpmovx 'repaint-window-event a1 '0)
(hpmovx '0 a1 '5)
(hpmovx '0 a1 '6)
(hpxmov (& 0) '2 a4)
(hpmovx a4 a1 '7)
(hpxmov (& 0) '3 a4)
(hpmovx a4 a1 '8)
(push (@ 101))
(push a1)
(mov '1 a4)
(jmp add-event)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:graph-env:x:draw-substring nsubr)
(entry #:graph-env:x:draw-substring nsubr)
(cnbeq a4 '6 0)
(mov '#:graph-env:x:draw-substring a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hgsize (& 2) a4)
(push a4)
(diff (& 2) a4)
(cnbge (& 2) (& 0) 104)
(cnble (& 1) a4 107)
(mov a4 (& 1))
107
(push (@ 108))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(push (& 7))
(mov '6 a4)
(bra |←draw←substr|)
108
(eval ())
(adjstk '7)
(return)
104
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((fentry #:graph-env:x:draw-cn nsubr)
(entry #:graph-env:x:draw-cn nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:draw-cn a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra |←draw←cn|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:clear-graph-env subr1)
(entry #:graph-env:x:clear-graph-env subr1)
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hpxmov (cvalq #:window:current-window) '8 a1)
(bra |←clear←ge|)
))
(loader'((fentry #:graph-env:x:width-substring nsubr)
(entry #:graph-env:x:width-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:width-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(push (& 3))
(push (& 3))
(push (& 3))
(btnil (cvalq #:window:current-window) 105)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bra 106)
105
(mov '-1 a4)
106
(push a4)
(mov '4 a4)
(bra |←width←substr|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:height-substring nsubr)
(entry #:graph-env:x:height-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:height-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(btnil (cvalq #:window:current-window) 104)
(hpxmov (cvalq #:window:current-window) '8 a2)
(bra 105)
104
(mov '-1 a2)
105
(mov '0 a1)
(adjstk '4)
(bra |←height←cn|)
))
(loader'((fentry #:graph-env:x:x-base-substring nsubr)
(entry #:graph-env:x:x-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:x-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:y-base-substring nsubr)
(entry #:graph-env:x:y-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:y-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:x-inc-substring nsubr)
(entry #:graph-env:x:x-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:x-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(push (& 3))
(push (& 3))
(push (& 3))
(btnil (cvalq #:window:current-window) 105)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bra 106)
105
(mov '-1 a4)
106
(push a4)
(mov '4 a4)
(bra |←xinc←substr|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:y-inc-substring nsubr)
(entry #:graph-env:x:y-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:y-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:draw-cursor nsubr)
(entry #:graph-env:x:draw-cursor nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:draw-cursor a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 4))
(push (& 4))
(btnil (& 4) 105)
(mov '1 a4)
(bra 106)
105
(mov '0 a4)
106
(push a4)
(mov '4 a4)
(bra |←draw←cursor|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:current-clip nsubr)
(entry #:graph-env:x:current-clip nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:current-clip a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra |←set←clip|)
104
(eval ())
(hpmovx (& 3) (& 4) '6)
(hpmovx (& 2) (& 4) '7)
(hpmovx (& 1) (& 4) '8)
(hpmovx (& 0) (& 4) '9)
(mov (& 0) a1)
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:x:current-line-style subr2)
(entry #:graph-env:x:current-line-style subr2)
(push a2)
(push a1)
(bffix a2 103)
(push a2)
(jcall #:graph-env:x:line-style-max)
(pop a4)
(cnble a4 a1 101)
103
(mov (& 1) a3)
(mov 'erroob a2)
(mov 'current-line-style a1)
(adjstk '2)
(jmp error)
101
(bfvect (cvalq #:window:current-window) 106)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 105)
106
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
105
(hpxmov (cvalq #:window:current-window) '8 a1)
(mov (& 1) a2)
(call |←set←line←style|)
(hpmovx (& 1) (& 0) '1)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:graph-env:x:line-style-max subr1)
(entry #:graph-env:x:line-style-max subr1)
(mov '3 a1)
(return)
))
(loader'((fentry #:graph-env:x:current-pattern subr2)
(entry #:graph-env:x:current-pattern subr2)
(push a2)
(push a1)
(bffix a2 103)
(push a2)
(jcall #:graph-env:x:pattern-max)
(pop a4)
(cnble a4 a1 101)
103
(mov (& 1) a3)
(mov 'erroob a2)
(mov 'current-pattern a1)
(adjstk '2)
(jmp error)
101
(bfvect (cvalq #:window:current-window) 106)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 105)
106
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
105
(hpxmov (cvalq #:window:current-window) '8 a1)
(mov (& 1) a2)
(call |←set←cur←pattern|)
(hpmovx (& 1) (& 0) '2)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:graph-env:x:pattern-max subr1)
(entry #:graph-env:x:pattern-max subr1)
(mov '4 a1)
(return)
))
(loader'((fentry #:graph-env:x:current-mode subr2)
(entry #:graph-env:x:current-mode subr2)
(push a2)
(push a1)
(bffix a2 103)
(cnbgt a2 '15 103)
(cnbge a2 '0 101)
103
(mov a2 a3)
(mov 'erroob a2)
(mov 'current-mode a1)
(adjstk '2)
(jmp error)
101
(bfvect (cvalq #:window:current-window) 106)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 105)
106
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
105
(hpxmov (cvalq #:window:current-window) '8 a1)
(call |←set←cur←mode|)
(hpmovx (& 1) (& 0) '3)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:graph-env:x:draw-polyline nsubr)
(entry #:graph-env:x:draw-polyline nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:draw-polyline a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra |←draw←polyline|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:draw-line nsubr)
(entry #:graph-env:x:draw-line nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:draw-line a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra |←draw←line|)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:x:draw-point subr3)
(entry #:graph-env:x:draw-point subr3)
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(hpxmov (cvalq #:window:current-window) '8 a1)
(bra |←draw←point|)
))
(loader'((fentry #:graph-env:x:draw-rectangle nsubr)
(entry #:graph-env:x:draw-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:draw-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra |←draw←rectangle|)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:x:draw-polymarker nsubr)
(entry #:graph-env:x:draw-polymarker nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:draw-polymarker a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra |←draw←polymarker|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:fill-area nsubr)
(entry #:graph-env:x:fill-area nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:fill-area a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(bra |←fill←area|)
104
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:fill-rectangle nsubr)
(entry #:graph-env:x:fill-rectangle nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:fill-rectangle a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(bfvect (cvalq #:window:current-window) 103)
(hpxmov (cvalq #:window:current-window) '8 a4)
(bfnil a4 102)
103
(mov (cvalq #:bitmap:x:fuck-window) (cvalq #:window:current-window))
102
(push (@ 104))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra |←fill←rectangle|)
104
(eval ())
(adjstk '5)
(return)
))
(defvar #:graph-env:x:vx)
(defvar #:graph-env:x:vy)
(loader'((entry #:graph-env:x:defvectors subr0)
(bfnil (cvalq #:graph-env:x:vx) 101)
(mov '0 a2)
(mov '1000 a1)
(jcall makevector)
(mov a1 (cvalq #:graph-env:x:vx))
(mov '0 a2)
(mov '1000 a1)
(jcall makevector)
(mov a1 (cvalq #:graph-env:x:vy))
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry #:graph-env:x:draw-ellipse nsubr)
(entry #:graph-env:x:draw-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:draw-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(call #:graph-env:x:defvectors)
(push (@ 101))
(push '999)
(push (@ 102))
(push '10)
(mov (& 5) a4)
(plus (& 4) a4)
(push a4)
(mov '2 a4)
(jmp max)
102
(eval ())
(push a1)
(mov '2 a4)
(jmp min)
101
(eval ())
(push a1)
(push (@ 103))
(push '6.283)
(push a1)
(mov '2 a4)
(jmp /)
103
(eval ())
(push a1)
(push '0)
104
(push (@ 106))
(push (& 1))
(push (& 4))
(mov '2 a4)
(jmp <=)
106
(eval ())
(btnil a1 105)
(push (@ 107))
(push (& 5))
(push (@ 108))
(push (& 3))
(push (& 5))
(mov '2 a4)
(jmp *)
108
(eval ())
(jcall cos)
(push a1)
(mov '2 a4)
(jmp *)
107
(eval ())
(jcall fix)
(mov (& 6) a4)
(plus a1 a4)
(hpmovx a4 (cvalq #:graph-env:x:vx) (& 0))
(push (@ 109))
(push (& 4))
(push (@ 110))
(push (& 3))
(push (& 5))
(mov '2 a4)
(jmp *)
110
(eval ())
(jcall sin)
(push a1)
(mov '2 a4)
(jmp *)
109
(eval ())
(jcall fix)
(mov (& 5) a4)
(plus a1 a4)
(hpmovx a4 (cvalq #:graph-env:x:vy) (& 0))
(push (@ 111))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp +)
111
(eval ())
(mov a1 (& 0))
(bra 104)
105
(adjstk '1)
(mov (& 1) a4)
(plus '1 a4)
(mov (cvalq #:graph-env:x:vy) a3)
(mov (cvalq #:graph-env:x:vx) a2)
(mov a4 a1)
(jcall draw-polyline)
(push (@ 114))
(mov '0 a4)
(jmp current-mode)
114
(eval ())
(cabne '6 a1 112)
(mov (cvalq #:graph-env:x:vy) a3)
(mov (cvalq #:graph-env:x:vx) a2)
(mov (& 1) a1)
(adjstk '7)
(jmp draw-polymarker)
112
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((fentry #:graph-env:x:fill-ellipse nsubr)
(entry #:graph-env:x:fill-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:x:fill-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(call #:graph-env:x:defvectors)
(push (@ 101))
(push '999)
(push (@ 102))
(push '10)
(mov (& 5) a4)
(plus (& 4) a4)
(push a4)
(mov '2 a4)
(jmp max)
102
(eval ())
(push a1)
(mov '2 a4)
(jmp min)
101
(eval ())
(push a1)
(push (@ 103))
(push '6.283)
(push a1)
(mov '2 a4)
(jmp /)
103
(eval ())
(push a1)
(push '0)
104
(push (@ 106))
(push (& 1))
(push (& 4))
(mov '2 a4)
(jmp <=)
106
(eval ())
(btnil a1 105)
(push (@ 107))
(push (& 5))
(push (@ 108))
(push (& 3))
(push (& 5))
(mov '2 a4)
(jmp *)
108
(eval ())
(jcall cos)
(push a1)
(mov '2 a4)
(jmp *)
107
(eval ())
(jcall fix)
(mov (& 6) a4)
(plus a1 a4)
(hpmovx a4 (cvalq #:graph-env:x:vx) (& 0))
(push (@ 109))
(push (& 4))
(push (@ 110))
(push (& 3))
(push (& 5))
(mov '2 a4)
(jmp *)
110
(eval ())
(jcall sin)
(push a1)
(mov '2 a4)
(jmp *)
109
(eval ())
(jcall fix)
(mov (& 5) a4)
(plus a1 a4)
(hpmovx a4 (cvalq #:graph-env:x:vy) (& 0))
(push (@ 111))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp +)
111
(eval ())
(mov a1 (& 0))
(bra 104)
105
(adjstk '1)
(mov (& 1) a4)
(plus '1 a4)
(mov (cvalq #:graph-env:x:vy) a3)
(mov (cvalq #:graph-env:x:vx) a2)
(mov a4 a1)
(adjstk '7)
(jmp fill-area)
))
(if (not (boundp '#:graph-env:x:y-vector)) (progn (defvar #:graph-env:x:x-vector (makevector 1024 0)) (defvar #:graph-env:x:y-vector (makevector 1024 0))))
(loader'((fentry #:graph-env:x:fill-circle nsubr)
(entry #:graph-env:x:fill-circle nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:fill-circle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push (& 4))
(push (& 4))
(push (& 4))
(push (& 4))
(push (& 5))
(mov '5 a4)
(jmp #:graph-env:x:fill-ellipse)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x:draw-circle nsubr)
(entry #:graph-env:x:draw-circle nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x:draw-circle a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov (& 0) a4)
(plus (& 0) a4)
(push '0)
(push (& 1))
(push '0)
(push '0)
(push nil)
(push nil)
(push nil)
(push '0)
(push a4)
101
(cnblt (& 7) (& 8) 102)
(mov (& 11) a4)
(plus (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(plus (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 104)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
104
(mov (& 11) a4)
(plus (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(diff (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 106)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
106
(mov (& 11) a4)
(diff (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(plus (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 108)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
108
(mov (& 11) a4)
(diff (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(diff (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 110)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
110
(mov (& 11) a4)
(plus (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(plus (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 112)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
112
(mov (& 11) a4)
(plus (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(diff (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 114)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
114
(mov (& 11) a4)
(diff (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(plus (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 116)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
116
(mov (& 11) a4)
(diff (& 7) a4)
(hpmovx a4 (cvalq #:graph-env:x:x-vector) (& 1))
(mov (& 10) a4)
(diff (& 8) a4)
(hpmovx a4 (cvalq #:graph-env:x:y-vector) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(cabne a4 '1024 118)
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov a4 a1)
(jcall draw-polymarker)
(mov '0 (& 1))
118
(mov (& 5) a4)
(plus '1 a4)
(mov (& 6) a3)
(plus a4 a3)
(mov a3 (& 4))
(mov (& 5) a4)
(diff (& 0) a4)
(mov (& 6) a2)
(plus a4 a2)
(mov a2 (& 3))
(cnbge a2 '0 119)
(mov '0 a4)
(diff a2 a4)
(bra 120)
119
(mov a2 a4)
120
(mov a4 (& 2))
(cnbge a4 a3 121)
(mov a2 (& 6))
(mov (& 7) a1)
(diff '1 a1)
(mov a1 (& 7))
(mov (& 0) a1)
(diff '2 a1)
(mov a1 (& 0))
(bra 122)
121
(mov a3 (& 6))
122
(mov (& 8) a3)
(plus '1 a3)
(mov a3 (& 8))
(mov (& 5) a3)
(plus '2 a3)
(mov a3 (& 5))
(bra 101)
102
(mov (cvalq #:graph-env:x:y-vector) a3)
(mov (cvalq #:graph-env:x:x-vector) a2)
(mov (& 1) a1)
(adjstk '13)
(jmp draw-polymarker)
))
(setq #:sys-package:colon 'bitmap)
(loader'((entry |←putpixmap| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←putpixmap|))))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(mov (& 17) a1)
(jcall vag)
(push a1)
(push '0)
(mov '18 a4)
(jmp callextern)
101
(eval ())
(adjstk '8)
(return)
))
(loader'((entry |←copyarea| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←copyarea|))))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((entry |←draw←line| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←draw←line|))))
(push '1)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←set←cur←mode| subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←set←cur←mode|))))
(push '1)
(push a1)
(push '1)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←XFreePixmap| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XFreePixmap|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←XMakePixmap| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMakePixmap|))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(jmp loc)
))
(loader'((entry |←XPixmapSave| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XPixmapSave|))))
(push '0)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(jmp loc)
))
(loader'((entry |←XPixmapGetXY| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XPixmapGetXY|))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '1)
(mov (& 13) a1)
(jcall vag)
(push a1)
(push '0)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry |←XPixmapBitsPutXY| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XPixmapBitsPutXY|))))
(push '1)
(mov (& 11) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '3)
(push (& 17))
(push '1)
(push (& 18))
(push '1)
(push (& 19))
(push '1)
(mov '20 a4)
(jmp callextern)
101
(eval ())
(adjstk '9)
(return)
))
(loader'((entry |←XStoreBitmap| subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XStoreBitmap|))))
(push '0)
(push a1)
(push '1)
(push a2)
(push '1)
(mov a3 a1)
(jcall vag)
(push a1)
(push '0)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←XFreeBitmap| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XFreeBitmap|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←XPixmapPut| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XPixmapPut|))))
(push '1)
(mov (& 12) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '1)
(push (& 17))
(push '1)
(push (& 18))
(push '1)
(mov (& 19) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 20))
(push '1)
(push (& 21))
(push '1)
(mov '22 a4)
(jmp callextern)
101
(eval ())
(adjstk '10)
(return)
))
(loader'((entry |←XUnmapTransparent| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XUnmapTransparent|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry |←rootwindow| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←rootwindow|))))
(push '0)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←Xwindow| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←Xwindow|))))
(push '0)
(push a1)
(push '1)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(defvar #:ex:regret)
(loader'((entry |←big←malloc| subr1)
(push (@ 101))
(push (eval (kwote (getglobal '|←malloc|))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(jmp loc)
))
(loader'((entry |←mmalloc| subr2)
(push '0)
(push (cvalq #:ex:regret))
(mov (& 1) (cvalq #:ex:regret))
(push '1)
(push '(#:ex:regret))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov '0 a3)
(jcall ex*)
(mov a1 a2)
(mov (cvalq #:ex:regret) a1)
(jcall cons)
(call |←big←malloc|)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:ex:regret))
(adjstk '8)
(return)
))
(putprop '#:bitmap:x '((()) stringbits) 'defstruct)
(loader'((entry #:bitmap:x:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '5 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:bitmap:x)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:x:w '#:bitmap:x:w 'setf-inverse) '#:bitmap:x:w)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:x:w (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:x:h '#:bitmap:x:h 'setf-inverse) '#:bitmap:x:h)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:x:h (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:x:extend '#:bitmap:x:extend 'setf-inverse) '#:bitmap:x:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:x:extend (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:x:display '#:bitmap:x:display 'setf-inverse) '#:bitmap:x:display)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:x:display (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:bitmap:x:stringbits '#:bitmap:x:stringbits 'setf-inverse) '#:bitmap:x:stringbits)))
(if (featurep 'compiler) (progn (defmacro-open #:bitmap:x:stringbits (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (not (boundp '#:bitmap:x:all-pixmaps)) (progn (defvar #:bitmap:x:all-pixmaps ())))
(if (not (boundp '#:bitmap:planes)) (progn (defvar #:bitmap:planes 1)))
(if (not (boundp '#:bitmap:monoplane)) (progn (defvar #:bitmap:monoplane 0)))
(if (not (boundp '#:bitmap:bit-reverse-vector)) (progn (defvar #:bitmap:bit-reverse-vector)))
(loader'((fentry #:bitmap:create-bitmap subr1)
(entry #:bitmap:create-bitmap subr1)
(push a1)
(call #:bitmap:x:make)
(push a1)
(push (@ 101))
(push a1)
(push '0)
(push (& 4))
(push '0)
(hgsize (& 6) a4)
(push a4)
(mov '5 a4)
(jmp bltvector)
101
(eval ())
(hpxmov (& 0) '0 a4)
(cabne '0 a4 103)
(hpmovx '1 (& 0) '0)
103
(hpxmov (& 0) '1 a4)
(cabne '0 a4 105)
(hpmovx '1 (& 0) '1)
105
(push (@ 106))
(call |←rootwindow|)
(push a1)
(push '0)
(push '0)
(hpxmov (& 4) '0 a4)
(push a4)
(hpxmov (& 5) '1 a4)
(push a4)
(mov '5 a4)
(bra |←XPixmapSave|)
106
(eval ())
(hpmovx a1 (& 0) '2)
(mov (cvalq #:bitmap:x:all-pixmaps) a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:bitmap:x:all-pixmaps))
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((fentry #:bitmap:create-window-bitmap subr2)
(entry #:bitmap:create-window-bitmap subr2)
(push a2)
(push a1)
(call #:bitmap:x:make)
(push a1)
(push (@ 101))
(push a1)
(push '0)
(push (& 5))
(push '0)
(hgsize (& 7) a4)
(push a4)
(mov '5 a4)
(jmp bltvector)
101
(eval ())
(hpxmov (& 1) '8 a4)
(hpmovx a4 (& 0) '2)
(mov (& 0) a1)
(adjstk '3)
(return)
))
(loader'((fentry #:bitmap:kill-bitmap subr1)
(entry #:bitmap:kill-bitmap subr1)
(push a1)
(hpxmov a1 '2 a4)
(bffix a4 101)
(mov nil a1)
(adjstk '1)
(return)
101
(hpxmov a1 '2 a4)
(btnil a4 104)
(hpxmov a1 '2 a1)
(call |←XFreePixmap|)
104
(mov (cvalq #:bitmap:x:all-pixmaps) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:bitmap:x:all-pixmaps))
(hpmovx nil (& 0) '2)
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((fentry #:bitmap:bitblit nsubr)
(entry #:bitmap:bitblit nsubr)
(cnbeq a4 '8 0)
(mov '#:bitmap:bitblit a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 7) '2 a4)
(bffix a4 101)
(hpxmov (& 6) '2 a4)
(bffix a4 103)
(push (@ 105))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(bra #:bitmap:window-from-window)
105
(eval ())
(adjstk '8)
(return)
103
(push (@ 106))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(bra #:bitmap:window-from-pixmap)
106
(eval ())
(adjstk '8)
(return)
101
(hpxmov (& 6) '2 a4)
(bffix a4 107)
(push (@ 109))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(bra #:bitmap:pixmap-from-window)
109
(eval ())
(adjstk '8)
(return)
107
(push (@ 110))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(push (& 8))
(mov '8 a4)
(bra #:bitmap:pixmap-from-pixmap)
110
(eval ())
(adjstk '8)
(return)
))
(loader'((entry #:bitmap:pixmap-from-window nsubr)
(cabne '0 (& 5) 103)
(cabne '0 (& 4) 103)
(hpxmov (& 7) '0 a4)
(cabne a4 (& 1) 103)
(hpxmov (& 7) '1 a4)
(cabeq a4 (& 0) 101)
103
(push (@ 104))
(push (& 8))
(push (& 8))
(mov '2 a4)
(jmp list)
104
(eval ())
(mov a1 a3)
(mov '"cannot bitblt window to partial pixmap" a2)
(mov '#:bitmap:bitblit a1)
(adjstk '8)
(jmp error)
101
(hpxmov (& 7) '2 a4)
(btnil a4 106)
(hpxmov (& 7) '2 a1)
(call |←XFreePixmap|)
106
(push (@ 107))
(hpxmov (& 7) '2 a1)
(call |←Xwindow|)
(push a1)
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra |←XPixmapSave|)
107
(eval ())
(hpmovx a1 (& 7) '2)
(adjstk '8)
(return)
))
(loader'((entry #:bitmap:window-from-pixmap nsubr)
(hpxmov (& 6) '2 a4)
(bfnil a4 102)
(mov (& 6) a3)
(mov '"wrong pixmap" a2)
(mov 'window-from-pixmap a1)
(jcall error)
102
(push (@ 103))
(hpxmov (& 8) '2 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 9))
(push (& 9))
(push (& 7))
(push (& 7))
(hpxmov (& 14) '2 a4)
(push a4)
(mov '8 a4)
(bra |←putpixmap|)
103
(eval ())
(adjstk '8)
(return)
))
(loader'((entry #:bitmap:pixmap-from-pixmap nsubr)
(push (@ 101))
(push (& 8))
(push (& 8))
(mov '2 a4)
(jmp list)
101
(eval ())
(mov a1 a3)
(mov '"cannot bitblt across pixmaps" a2)
(mov '#:bitmap:bitblit a1)
(adjstk '8)
(jmp error)
))
(loader'((entry #:bitmap:window-from-window nsubr)
(cabeq (& 7) (& 6) 101)
(push (@ 103))
(push (& 8))
(push (& 8))
(mov '2 a4)
(jmp list)
103
(eval ())
(mov a1 a3)
(mov '"cannot bitblt across different windows" a2)
(mov '#:bitmap:bitblit a1)
(adjstk '8)
(jmp error)
101
(push (@ 104))
(hpxmov (& 8) '2 a4)
(push a4)
(push (& 5))
(push (& 5))
(push (& 9))
(push (& 9))
(push (& 7))
(push (& 7))
(mov '7 a4)
(bra |←copyarea|)
104
(eval ())
(adjstk '8)
(return)
))
(if (not (boundp '#:bitmap:16bitvector)) (progn (defvar #:bitmap:16bitvector (makestring 0 0))))
(if (not (boundp '#:bitmap:set16bitvector)) (progn (defvar #:bitmap:set16bitvector (makestring 0 0))))
(if (not (boundp '#:bitmap:getbitwindow)) (progn (defvar #:bitmap:getbitwindow)))
(if (not (boundp '#:bitmap:getbitspace)) (progn (defvar #:bitmap:getbitspace)))
(if (not (boundp '#:bitmap:getbitcur)) (progn (defvar #:bitmap:getbitcur)))
(loader'((fentry |←memcpy| subr3)
(entry |←memcpy| subr3)
(push a3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←memcpy|))))
(push '1)
(push a1)
(push '3)
(mov a2 a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry |←memcpy1| subr3)
(entry |←memcpy1| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (getglobal '|←memcpy|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '3)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(if (not (boundp '#:bitmap:setbitspace)) (progn (defvar #:bitmap:setbitspace)))
(if (not (boundp '#:bitmap:setbitcur)) (progn (defvar #:bitmap:setbitcur)))
(if (not (boundp '#:bitmap:getbitpixmap)) (progn (defvar #:bitmap:getbitpixmap)))
(loader'((fentry #:bitmap:get-bit-line subr3)
(entry #:bitmap:get-bit-line subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '2 a4)
(bffix a4 101)
(hpxmov a1 '0 a1)
(plus '15 a1)
(mov '16 a2)
(jcall quo)
(mov '2 a4)
(times a1 a4)
(push a4)
(cabne (& 2) '0 104)
(btnil (cvalq #:bitmap:getbitspace) 106)
(mov (cvalq #:bitmap:getbitspace) a1)
(jcall |←free|)
106
(mov (cvalq #:bitmap:planes) a4)
(times (& 0) a4)
(hpxmov (& 1) '1 a2)
(mov a4 a1)
(call |←mmalloc|)
(mov a1 (cvalq #:bitmap:getbitspace))
(push '0)
(push (cvalq #:ex:regret))
(mov (& 1) (cvalq #:ex:regret))
(push '1)
(push '(#:ex:regret))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push a1)
(mov (& 9) a4)
(times (cvalq #:bitmap:monoplane) a4)
(hpxmov (& 10) '1 a2)
(mov '0 a3)
(mov a4 a1)
(jcall ex*)
(mov (cvalq #:ex:regret) a2)
(jcall xcons)
(mov a1 a2)
(pop a1)
(jcall addadr)
(mov a1 (cvalq #:bitmap:getbitcur))
(mov (& 1) dlink)
(mov (& 6) (cvalq #:ex:regret))
(adjstk '8)
(cabne '0 (cvalq #:bitmap:getbitspace) 108)
(mov nil (cvalq #:bitmap:getbitspace))
(mov (& 1) a3)
(mov '"not enough space" a2)
(mov 'get-bit-line a1)
(jcall error)
108
(push (@ 109))
(hpxmov (& 2) '2 a1)
(call |←Xwindow|)
(push a1)
(push '0)
(push '0)
(hpxmov (& 5) '0 a4)
(push a4)
(hpxmov (& 6) '1 a4)
(push a4)
(push (cvalq #:bitmap:getbitspace))
(mov '6 a4)
(bra |←XPixmapGetXY|)
109
(eval ())
(mov '0 a2)
(mov (& 0) a1)
(jcall makestring)
(mov a1 (cvalq #:bitmap:16bitvector))
104
(mov (& 0) a3)
(mov (cvalq #:bitmap:getbitcur) a2)
(mov (cvalq #:bitmap:16bitvector) a1)
(jcall |←memcpy|)
(mov (& 0) a2)
(mov (cvalq #:bitmap:getbitcur) a1)
(jcall incradr)
(mov (cvalq #:bitmap:16bitvector) a1)
(call #:bitmap:reverse-bit-vector)
(push (@ 110))
(push (& 4))
(push '0)
(push (cvalq #:bitmap:16bitvector))
(push '0)
(mov '4 a4)
(jmp bltstring)
110
(eval ())
(hpxmov (& 1) '1 a4)
(diff '1 a4)
(cabne (& 2) a4 111)
(mov (cvalq #:bitmap:getbitspace) a1)
(jcall |←free|)
(mov nil (cvalq #:bitmap:getbitspace))
(mov nil (cvalq #:bitmap:16bitvector))
(mov nil a1)
(adjstk '4)
(return)
111
(mov nil a1)
(adjstk '4)
(return)
101
(hpxmov a1 '0 a4)
(push a4)
(hpxmov a1 '1 a4)
(push a4)
(bfnil (cvalq #:bitmap:getbitwindow) 114)
(push (@ 115))
(push 'window)
(push '0)
(push '0)
(push (& 5))
(push a4)
(push '"")
(push '0)
(push '0)
(mov '8 a4)
(jmp create-window)
115
(eval ())
(mov a1 (cvalq #:bitmap:getbitwindow))
114
(cabne (& 3) '0 117)
(push (@ 118))
(call |←rootwindow|)
(push a1)
(push '0)
(push '0)
(mov '2 a4)
(plus (& 5) a4)
(push a4)
(mov '2 a4)
(plus (& 5) a4)
(push a4)
(mov '5 a4)
(bra |←XPixmapSave|)
118
(eval ())
(mov a1 (cvalq #:bitmap:getbitpixmap))
(push (@ 119))
(push (cvalq #:bitmap:getbitwindow))
(push '0)
(push '0)
(push (& 5))
(push (& 5))
(push nil)
(push nil)
(push '1)
(mov '8 a4)
(jmp modify-window)
119
(eval ())
(push (@ 120))
(mov (cvalq #:bitmap:getbitwindow) a1)
(jcall window-bitmap)
(push a1)
(push (& 4))
(push '0)
(push '0)
(push '0)
(push '0)
(push (& 8))
(push (& 8))
(mov '8 a4)
(jmp bitblit)
120
(eval ())
117
(mov (cvalq #:bitmap:getbitwindow) a1)
(jcall window-bitmap)
(mov (& 4) a3)
(mov (& 3) a2)
(jcall #:bitmap:get-bit-line)
(mov (& 0) a4)
(diff '1 a4)
(cabne (& 3) a4 121)
(hpxmov (cvalq #:bitmap:getbitwindow) '8 a1)
(call |←Xwindow|)
(call |←XUnmapTransparent|)
(push (@ 123))
(call |←rootwindow|)
(push a1)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '2 a4)
(plus (& 7) a4)
(push a4)
(mov '2 a4)
(plus (& 7) a4)
(push a4)
(push (cvalq #:bitmap:getbitpixmap))
(push '3)
(push '1)
(mov '10 a4)
(bra |←XPixmapPut|)
123
(eval ())
(mov (cvalq #:bitmap:getbitpixmap) a1)
(call |←XFreePixmap|)
(mov nil (cvalq #:bitmap:getbitpixmap))
(push (@ 124))
(push (cvalq #:bitmap:getbitwindow))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '0)
(mov '8 a4)
(jmp modify-window)
124
(eval ())
(push (@ 125))
(mov '0 a4)
(jmp bitmap-flush)
125
(eval ())
(adjstk '5)
(return)
121
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:set-bit-line subr3)
(entry #:bitmap:set-bit-line subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '0 a4)
(push a4)
(hpxmov a1 '1 a4)
(push a4)
(mov (& 1) a1)
(plus '15 a1)
(mov '16 a2)
(jcall quo)
(mov '2 a4)
(times a1 a4)
(push a4)
(cabne (& 4) '0 102)
(mov '0 a2)
(mov a4 a1)
(jcall makestring)
(mov a1 (cvalq #:bitmap:set16bitvector))
102
(push (@ 103))
(push (cvalq #:bitmap:set16bitvector))
(push '0)
(push (& 8))
(push '0)
(mov '4 a4)
(jmp bltstring)
103
(eval ())
(hpxmov (& 3) '2 a4)
(bffix a4 104)
(push (@ 106))
(hpxmov (& 4) '2 a1)
(call |←Xwindow|)
(push a1)
(push '0)
(push (& 7))
(push (& 6))
(push '1)
(push (cvalq #:bitmap:set16bitvector))
(push '0)
(push '12)
(push '1)
(mov '9 a4)
(bra |←XPixmapBitsPutXY|)
106
(eval ())
(bra 105)
104
(mov (cvalq #:bitmap:set16bitvector) a1)
(call #:bitmap:reverse-bit-vector)
(cabne (& 4) '0 108)
(btnil (cvalq #:bitmap:setbitspace) 110)
(mov (cvalq #:bitmap:setbitspace) a1)
(jcall |←free|)
110
(mov (& 1) a2)
(mov (& 0) a1)
(call |←mmalloc|)
(mov a1 (cvalq #:bitmap:setbitspace))
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(mov a1 (cvalq #:bitmap:setbitcur))
(cabne '0 (cvalq #:bitmap:setbitspace) 108)
(mov nil (cvalq #:bitmap:setbitspace))
(mov (& 3) a3)
(mov '"not enough space" a2)
(mov 'set-bit-line a1)
(jcall error)
108
(mov (& 0) a3)
(mov (cvalq #:bitmap:set16bitvector) a2)
(mov (cvalq #:bitmap:setbitcur) a1)
(jcall |←memcpy1|)
(mov (& 0) a2)
(mov (cvalq #:bitmap:setbitcur) a1)
(jcall incradr)
(mov (& 1) a4)
(diff '1 a4)
(cabne (& 4) a4 105)
(mov (cvalq #:bitmap:setbitspace) a3)
(mov (& 1) a2)
(mov (& 2) a1)
(call |←XStoreBitmap|)
(push a1)
(hpxmov (& 4) '2 a4)
(btnil a4 116)
(hpxmov (& 4) '2 a1)
(call |←XFreePixmap|)
(hpmovx nil (& 4) '2)
116
(mov '0 a3)
(mov '1 a2)
(mov (& 0) a1)
(call |←XMakePixmap|)
(hpmovx a1 (& 4) '2)
(mov (& 0) a1)
(call |←XFreeBitmap|)
(mov (cvalq #:bitmap:setbitspace) a1)
(jcall |←free|)
(mov nil (cvalq #:bitmap:setbitspace))
(adjstk '1)
105
(mov (& 1) a4)
(diff '1 a4)
(cabne (& 4) a4 117)
(mov nil (cvalq #:bitmap:set16bitvector))
(mov nil a1)
(adjstk '6)
(return)
117
(mov nil a1)
(adjstk '6)
(return)
))
(if (not (boundp '#:bitmap:bmrefspace)) (progn (defvar #:bitmap:bmrefspace)))
(loader'((entry |←llreversevideo| subr0)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←llreversevideo|))))
(push '1)
(mov '2 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((fentry #:bitmap:bmref subr3)
(entry #:bitmap:bmref subr3)
(push a3)
(push a2)
(push a1)
(bfnil (cvalq #:bitmap:bmrefspace) 102)
(mov (cvalq #:bitmap:planes) a4)
(times '8 a4)
(mov a4 a1)
(jcall |←malloc|)
(mov a1 (cvalq #:bitmap:bmrefspace))
102
(hpxmov (& 0) '2 a4)
(bffix a4 103)
(push (@ 105))
(hpxmov (& 1) '2 a1)
(call |←Xwindow|)
(push a1)
(push (@ 106))
(hpxmov (& 3) '0 a4)
(diff '2 a4)
(push a4)
(push (& 5))
(mov '2 a4)
(jmp min)
106
(eval ())
(push a1)
(push (@ 107))
(hpxmov (& 4) '1 a4)
(diff '2 a4)
(push a4)
(push (& 7))
(mov '2 a4)
(jmp min)
107
(eval ())
(push a1)
(push '2)
(push '2)
(push (cvalq #:bitmap:bmrefspace))
(mov '6 a4)
(bra |←XPixmapGetXY|)
105
(eval ())
(hpxmov (& 0) '0 a4)
(diff '1 a4)
(cnbne (& 1) a4 108)
(mov '-1 a4)
(bra 109)
108
(mov '0 a4)
109
(hpxmov (& 0) '1 a3)
(diff '1 a3)
(cnbne (& 2) a3 110)
(mov '2 a3)
(bra 111)
110
(mov '0 a3)
111
(push a3)
(push a4)
(call |←llreversevideo|)
(cabne a1 '0 112)
(mov (& 1) a2)
(mov (cvalq #:bitmap:bmrefspace) a1)
(jcall |←shortref|)
(lxor '-1 a1)
(mov a1 a2)
(bra 113)
112
(mov (& 1) a2)
(mov (cvalq #:bitmap:bmrefspace) a1)
(jcall |←shortref|)
(mov a1 a2)
113
(lshift (& 0) a2)
(mov '1 a4)
(land a2 a4)
(mov a4 a1)
(adjstk '5)
(return)
103
(mov (& 0) a3)
(mov '"cannot bmref pixmap" a2)
(mov 'bmref a1)
(adjstk '3)
(jmp error)
))
(loader'((fentry #:bitmap:bmset nsubr)
(entry #:bitmap:bmset nsubr)
(cnbeq a4 '4 0)
(mov '#:bitmap:bmset a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(hpxmov (& 3) '2 a4)
(bffix a4 101)
(hpxmov (& 3) '2 a1)
(cnbne (& 0) '0 103)
(mov '12 a2)
(bra 104)
103
(mov '3 a2)
104
(call |←set←cur←mode|)
(push (@ 105))
(hpxmov (& 4) '2 a4)
(push a4)
(push (& 4))
(push (& 4))
(push (& 6))
(push (& 6))
(mov '5 a4)
(bra |←draw←line|)
105
(eval ())
(hpxmov (& 3) '2 a1)
(mov '3 a2)
(adjstk '4)
(bra |←set←cur←mode|)
101
(mov (& 3) a3)
(mov '"cannot bmset pixmap" a2)
(mov 'bmset a1)
(adjstk '4)
(jmp error)
))
(loader'((entry #:bitmap:reverse-bit-vector subr1)
(push a1)
(push nil)
(push nil)
(hgsize a1 a4)
(diff '2 a4)
(push '0)
(push a4)
101
(push (@ 103))
(push (& 2))
(push (& 2))
(mov '2 a4)
(jmp <=)
103
(eval ())
(btnil a1 102)
(hbxmov (& 4) (& 1) a1)
(jcall #:bitmap:bit-reverse)
(mov a1 (& 3))
(mov (& 1) a4)
(plus '1 a4)
(hbxmov (& 4) a4 a1)
(jcall #:bitmap:bit-reverse)
(mov a1 (& 2))
(jcall system)
(mov a1 a4)
(cabeq a4 'vaxunix 106)
(cabne a4 'vaxvms 104)
106
(hbmovx (& 3) (& 4) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(hbmovx (& 2) (& 4) a4)
(bra 105)
104
(hbmovx (& 2) (& 4) (& 1))
(mov (& 1) a4)
(plus '1 a4)
(hbmovx (& 3) (& 4) a4)
105
(push (@ 107))
(push (& 2))
(push '2)
(mov '2 a4)
(jmp +)
107
(eval ())
(mov a1 (& 1))
(bra 101)
102
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:bit-reverse subr1)
(entry #:bitmap:bit-reverse subr1)
(push a1)
(land '15 a1)
(hpxmov (cvalq #:bitmap:bit-reverse-vector) a1 a1)
(lshift '4 a1)
(mov (& 0) a4)
(lshift '-4 a4)
(hpxmov (cvalq #:bitmap:bit-reverse-vector) a4 a4)
(lor a4 a1)
(adjstk '1)
(return)
))
(loader'((entry |←XMenuCreate| subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuCreate|))))
(push '0)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '3)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(jmp loc)
))
(loader'((entry |←XMenuAddPane| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuAddPane|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov (& 5) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry |←XMenuAddSelection| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuAddSelection|))))
(push '1)
(mov (& 7) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 8))
(push '1)
(push (& 9))
(push '0)
(mov (& 10) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 11))
(push '1)
(mov '12 a4)
(jmp callextern)
101
(eval ())
(adjstk '5)
(return)
))
(loader'((entry |←XMenuInsertPane| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuInsertPane|))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←XMenuInsertSelection| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuInsertSelection|))))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 9))
(push '1)
(push (& 10))
(push '1)
(push (& 11))
(push '0)
(mov (& 12) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 13))
(push '1)
(mov '14 a4)
(jmp callextern)
101
(eval ())
(adjstk '6)
(return)
))
(loader'((entry |←XMenuChangePane| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuChangePane|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov (& 8) a1)
(jcall vag)
(push a1)
(push '0)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry |←XMenuChangeSelection| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuChangeSelection|))))
(push '1)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '1)
(push (& 11))
(push '1)
(push (& 12))
(push '0)
(push (& 13))
(push '1)
(mov (& 14) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 15))
(push '1)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((entry |←XMenuSetPane| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuSetPane|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry |←XMenuSetSelection| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuSetSelection|))))
(push '1)
(mov (& 6) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 7))
(push '1)
(push (& 8))
(push '1)
(push (& 9))
(push '1)
(mov '10 a4)
(jmp callextern)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((entry |←XMenuDeletePane| subr2)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuDeletePane|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry |←XMenuDeleteSelection| subr3)
(push a3)
(push a2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuDeleteSelection|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(push (& 5))
(push '1)
(push (& 8))
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry |←XMenuLocate| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuLocate|))))
(push '1)
(mov (& 11) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '1)
(push (& 16))
(push '0)
(push (& 17))
(push '0)
(push (& 18))
(push '0)
(push (& 19))
(push '0)
(mov '20 a4)
(jmp callextern)
101
(eval ())
(adjstk '9)
(return)
))
(loader'((entry |←XMenuActivate| nsubr)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuActivate|))))
(push '1)
(mov (& 9) a1)
(jcall vag)
(push a1)
(push '0)
(push (& 10))
(push '0)
(push (& 11))
(push '0)
(push (& 12))
(push '1)
(push (& 13))
(push '1)
(push (& 14))
(push '1)
(push (& 15))
(push '0)
(mov '16 a4)
(jmp callextern)
101
(eval ())
(adjstk '7)
(return)
))
(loader'((entry |←XMenuDestroy| subr1)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '|←XMenuDestroy|))))
(push '1)
(jcall vag)
(push a1)
(push '0)
(mov '4 a4)
(jmp callextern)
101
(eval ())
(return)
))
(setq #:sys-package:colon 'menu)
(putprop '#:menu:x '((() 0 0) def selection pane) 'defstruct)
(loader'((entry #:menu:x:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '0)
(push '0)
(mov '7 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push '#:menu:x)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:name '#:menu:x:name 'setf-inverse) '#:menu:x:name)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:name (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:itemlists '#:menu:x:itemlists 'setf-inverse) '#:menu:x:itemlists)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:itemlists (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:display '#:menu:x:display 'setf-inverse) '#:menu:x:display)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:display (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:extend '#:menu:x:extend 'setf-inverse) '#:menu:x:extend)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:extend (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:def '#:menu:x:def 'setf-inverse) '#:menu:x:def)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:def (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:selection '#:menu:x:selection 'setf-inverse) '#:menu:x:selection)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:selection (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:menu:x:pane '#:menu:x:pane 'setf-inverse) '#:menu:x:pane)))
(if (featurep 'compiler) (progn (defmacro-open #:menu:x:pane (struct . valeur) (ifn valeur (list 'vref struct 6) (list 'vset struct 6 (car valeur))))))
(if (not (boundp '#:menu:x:all-menus)) (progn (defvar #:menu:x:all-menus ())))
(loader'((fentry #:bitmap:x:create-menu subr1)
(entry #:bitmap:x:create-menu subr1)
(call #:menu:x:make)
(push a1)
(call |←rootwindow|)
(mov '"lelisp" a2)
(call |←XMenuCreate|)
(hpmovx a1 (& 0) '3)
(mov (cvalq #:menu:x:all-menus) a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:menu:x:all-menus))
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader'((fentry #:menu:x:kill-menu subr1)
(entry #:menu:x:kill-menu subr1)
(push a1)
(hpxmov a1 '4 a4)
(push a4)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(jcall |←free|)
(mov (& 0) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(push (cdr a4))
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(jcall |←free|)
(adjstk '1)
(bra 103)
104
(adjstk '2)
(bra 101)
102
(adjstk '1)
(mov (cvalq #:menu:x:all-menus) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:menu:x:all-menus))
(hpxmov (& 0) '3 a1)
(adjstk '1)
(bra |←XMenuDestroy|)
))
(defvar #:menu:x:pane 0)
(defvar #:menu:x:selection 0)
(defvar #:menu:x:result 0)
(defvar #:menu:x:x-menu)
(defvar #:menu:x:y-menu)
(defvar #:menu:x:w-menu)
(defvar #:menu:x:h-menu)
(loader'((fentry #:menu:x:activate-menu subr3)
(entry #:menu:x:activate-menu subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '5 a4)
(mov a4 (cvalq #:menu:x:selection))
(hpxmov a1 '6 a4)
(mov a4 (cvalq #:menu:x:pane))
(push (@ 101))
(hpxmov a1 '3 a4)
(push a4)
(push (cvalq #:menu:x:pane))
(push (cvalq #:menu:x:selection))
(push a2)
(push a3)
(push '#:menu:x:x-menu)
(push '#:menu:x:y-menu)
(push '#:menu:x:w-menu)
(push '#:menu:x:h-menu)
(mov '9 a4)
(bra |←XMenuLocate|)
101
(eval ())
(mov (cvalq #:menu:x:x-menu) a1)
(jcall fixp)
(mov a1 a4)
(bfnil a4 102)
(mov (cvalq #:menu:x:x-menu) a1)
(jcall loc)
(mov (cdr a1) a4)
102
(mov a4 (cvalq #:menu:x:x-menu))
(mov (cvalq #:menu:x:y-menu) a1)
(jcall fixp)
(mov a1 a3)
(bfnil a3 103)
(mov (cvalq #:menu:x:y-menu) a1)
(jcall loc)
(mov (cdr a1) a3)
103
(mov a3 (cvalq #:menu:x:y-menu))
(push (@ 104))
(mov (& 2) a4)
(diff (cvalq #:menu:x:x-menu) a4)
(plus '1 a4)
(push a4)
(push (@ 105))
(push (& 4))
(push (@ 106))
(mov '0 a4)
(jmp bitxmax)
106
(eval ())
(diff (cvalq #:menu:x:w-menu) a1)
(mov (& 5) a4)
(diff (cvalq #:menu:x:x-menu) a4)
(plus a4 a1)
(push a1)
(mov '2 a4)
(jmp min)
105
(eval ())
(push a1)
(mov '2 a4)
(jmp max)
104
(eval ())
(mov a1 (& 1))
(push (@ 107))
(mov (& 3) a4)
(diff (cvalq #:menu:x:y-menu) a4)
(plus '1 a4)
(push a4)
(push (@ 108))
(push (& 5))
(push (@ 109))
(mov '0 a4)
(jmp bitymax)
109
(eval ())
(diff (cvalq #:menu:x:h-menu) a1)
(mov (& 6) a4)
(diff (cvalq #:menu:x:y-menu) a4)
(plus a4 a1)
(push a1)
(mov '2 a4)
(jmp min)
108
(eval ())
(push a1)
(mov '2 a4)
(jmp max)
107
(eval ())
(mov a1 (& 2))
(push (@ 112))
(hpxmov (& 1) '3 a4)
(push a4)
(push '#:menu:x:pane)
(push '#:menu:x:selection)
(push (& 5))
(push a1)
(push '-1)
(push '#:menu:x:result)
(mov '7 a4)
(bra |←XMenuActivate|)
112
(eval ())
(cnbne a1 '1 110)
(hpmovx '-1 (& 0) '5)
(hpmovx (cvalq #:menu:x:pane) (& 0) '6)
(mov (cvalq #:menu:x:result) a1)
(adjstk '3)
(return)
110
(hpmovx '-1 (& 0) '5)
(hpmovx '0 (& 0) '6)
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry #:menu:x:menu-insert-item-list nsubr)
(entry #:menu:x:menu-insert-item-list nsubr)
(cnbeq a4 '4 0)
(mov '#:menu:x:menu-insert-item-list a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov (& 1) a1)
(jcall string)
(mov a1 (& 1))
(hgsize a1 a2)
(jcall |←cstring|)
(push a1)
(mov (& 3) a2)
(mov '0 a1)
(jcall eqn)
(mov a1 a4)
(btnil a4 102)
(push (@ 103))
(hpxmov (& 5) '3 a4)
(push a4)
(push (& 5))
(push (& 3))
(push (& 5))
(mov '4 a4)
(bra |←XMenuInsertPane|)
103
(eval ())
(mov a1 a2)
(mov '-1 a1)
(jcall neqn)
(mov a1 a4)
102
(bfnil a4 101)
(hpxmov (& 4) '3 a1)
(mov (& 1) a3)
(mov (& 0) a2)
(call |←XMenuAddPane|)
101
(push (@ 104))
(hpxmov (& 5) '4 a2)
(mov (& 4) a1)
(jcall firstn)
(push a1)
(push (@ 105))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '3 a4)
(jmp list)
105
(eval ())
(jcall ncons)
(push a1)
(hpxmov (& 7) '4 a2)
(mov (& 6) a1)
(jcall nthcdr)
(push a1)
(mov '3 a4)
(jmp nconc)
104
(eval ())
(hpmovx a1 (& 4) '4)
(adjstk '5)
(return)
))
(loader'((fentry #:menu:x:menu-insert-item nsubr)
(entry #:menu:x:menu-insert-item nsubr)
(cnbeq a4 '6 0)
(mov '#:menu:x:menu-insert-item a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(mov (& 2) a1)
(jcall string)
(mov a1 (& 2))
(hgsize a1 a2)
(jcall |←cstring|)
(push a1)
(mov (& 4) a2)
(mov '0 a1)
(jcall eqn)
(mov a1 a4)
(btnil a4 102)
(push (@ 103))
(hpxmov (& 7) '3 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 5))
(push (& 5))
(push (& 8))
(mov '6 a4)
(bra |←XMenuInsertSelection|)
103
(eval ())
(mov a1 a2)
(mov '-1 a1)
(jcall neqn)
(mov a1 a4)
102
(bfnil a4 101)
(push (@ 104))
(hpxmov (& 7) '3 a4)
(push a4)
(push (& 7))
(push (& 4))
(push (& 4))
(push (& 7))
(mov '5 a4)
(bra |←XMenuAddSelection|)
104
(eval ())
101
(hpxmov (& 6) '4 a2)
(mov (& 5) a1)
(jcall nth)
(push a1)
(mov (cdr a1) a4)
(push (cdr a4))
(push (@ 105))
(mov (cdr a1) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (& 7) a1)
(jcall firstn)
(push a1)
(push (@ 106))
(push (& 8))
(push (& 8))
(push (& 7))
(push (& 9))
(mov '4 a4)
(jmp list)
106
(eval ())
(jcall ncons)
(push a1)
(mov (& 4) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (& 9) a1)
(jcall nthcdr)
(push a1)
(mov '3 a4)
(jmp nconc)
105
(eval ())
(pop a4)
(mov a1 (cdr a4))
(mov a4 a1)
(adjstk '8)
(return)
))
(loader'((fentry #:menu:x:menu-delete-item-list subr2)
(entry #:menu:x:menu-delete-item-list subr2)
(push a2)
(push a1)
(hpxmov a1 '3 a1)
(call |←XMenuDeletePane|)
(push (@ 101))
(hpxmov (& 1) '4 a2)
(mov (& 2) a1)
(jcall firstn)
(push a1)
(mov (& 3) a4)
(plus '1 a4)
(hpxmov (& 2) '4 a2)
(mov a4 a1)
(jcall nthcdr)
(push a1)
(mov '2 a4)
(jmp nconc)
101
(eval ())
(hpmovx a1 (& 0) '4)
(adjstk '2)
(return)
))
(loader'((fentry #:menu:x:menu-delete-item subr3)
(entry #:menu:x:menu-delete-item subr3)
(push a3)
(push a2)
(push a1)
(hpxmov a1 '3 a1)
(call |←XMenuDeleteSelection|)
(hpxmov (& 0) '4 a2)
(mov (& 1) a1)
(jcall nth)
(push a1)
(mov (cdr a1) a4)
(push (cdr a4))
(push (@ 101))
(mov (cdr a1) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (& 5) a1)
(jcall firstn)
(push a1)
(mov (& 6) a4)
(plus '1 a4)
(mov (& 3) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov a4 a1)
(jcall nthcdr)
(push a1)
(mov '2 a4)
(jmp nconc)
101
(eval ())
(pop a4)
(mov a1 (cdr a4))
(mov a4 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:menu:x:menu-modify-item-list nsubr)
(entry #:menu:x:menu-modify-item-list nsubr)
(cnbeq a4 '4 0)
(mov '#:menu:x:menu-modify-item-list a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(btnil (& 1) 102)
(mov (& 1) a1)
(jcall string)
(mov a1 (& 1))
(hgsize a1 a2)
(jcall |←cstring|)
(push a1)
(hpxmov (& 4) '3 a1)
(mov (& 0) a3)
(mov (& 3) a2)
(call |←XMenuChangePane|)
(hpxmov (& 4) '4 a2)
(mov (& 3) a1)
(jcall nth)
(mov (& 2) (car a1))
(hpxmov (& 4) '4 a2)
(mov (& 3) a1)
(jcall nth)
(mov (cdr a1) a4)
(mov (cdr a4) a3)
(mov (& 0) (car a3))
(adjstk '1)
102
(btnil (& 0) 103)
(hpxmov (& 3) '3 a1)
(mov (& 0) a3)
(mov (& 2) a2)
(call |←XMenuSetPane|)
(hpxmov (& 3) '4 a2)
(mov (& 2) a1)
(jcall nth)
(mov (cdr a1) a4)
(mov (& 0) (car a4))
(mov a4 a1)
(adjstk '4)
(return)
103
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:menu:x:menu-modify-item nsubr)
(entry #:menu:x:menu-modify-item nsubr)
(cnbeq a4 '6 0)
(mov '#:menu:x:menu-modify-item a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(push nil)
(btnil (& 3) 102)
(mov (& 3) a1)
(jcall string)
(mov a1 (& 3))
(hgsize a1 a2)
(jcall |←cstring|)
(mov a1 (& 0))
(push (@ 103))
(hpxmov (& 7) '3 a4)
(push a4)
(push (& 7))
(push (& 7))
(push (& 5))
(btnil (& 6) 104)
(mov '1 a4)
(bra 105)
104
(mov '0 a4)
105
(push a4)
(push a1)
(btnil (& 10) 106)
(mov '1 a4)
(bra 107)
106
(mov '0 a4)
107
(push a4)
(mov '7 a4)
(bra |←XMenuChangeSelection|)
103
(eval ())
102
(bfnil (& 3) 110)
(btnil (& 1) 109)
110
(hpxmov (& 6) '4 a2)
(mov (& 5) a1)
(jcall nth)
(mov (cdr a1) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (& 4) a1)
(jcall nth)
(btnil (& 3) 112)
(mov (& 3) (car a1))
112
(btnil (& 3) 114)
(mov (cdr a1) a4)
(mov (cdr a4) a3)
(mov (& 0) (car a3))
114
(btnil (& 1) 109)
(mov (cdr a1) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a3)
(mov (& 1) (car a3))
109
(btnil (& 2) 117)
(hpxmov (& 6) '4 a2)
(mov (& 5) a1)
(jcall nth)
(mov (cdr a1) a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (& 4) a1)
(jcall nth)
(mov (cdr a1) a4)
(mov (& 2) (car a4))
(push (@ 119))
(hpxmov (& 7) '3 a3)
(push a3)
(push (& 7))
(push (& 7))
(push (& 6))
(mov '4 a4)
(bra |←XMenuSetSelection|)
119
(eval ())
(adjstk '7)
(return)
117
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((entry #:menu:x:rebuild-menu subr1)
(push a1)
(hpxmov a1 '4 a4)
(push a4)
(hpmovx nil a1 '4)
(push a1)
(call |←rootwindow|)
(mov '"lelisp" a2)
(call |←XMenuCreate|)
(pop a4)
(hpmovx a1 a4 '3)
(mov (& 0) a1)
(jcall reverse)
(push a1)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 103))
(push (& 4))
(push '0)
(mov (& 3) a4)
(push (car a4))
(mov (cdr a4) a4)
(push (car a4))
(mov '4 a4)
(jmp menu-insert-item-list)
103
(eval ())
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(jcall reverse)
(push a1)
104
(bfcons (& 0) 105)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 106))
(push (& 6))
(push '0)
(push '0)
(mov (& 4) a4)
(push (car a4))
(mov (cdr a4) a4)
(push (car a4))
(mov (& 6) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov '6 a4)
(jmp menu-insert-item)
106
(eval ())
(adjstk '1)
(bra 104)
105
(adjstk '2)
(bra 101)
102
(mov nil a1)
(adjstk '3)
(return)
))
(loader '((end)))