(loader '((title |bvtty.lo|)))
(defvar #:sys-package:bitmap '#:bitmap:bvtty)
(defvar #:sys-package:colon #:sys-package:bitmap)
(if (not (boundp '#:bitmap:bvtty:main-tty)) (progn (defvar #:bitmap:bvtty:xmax (sub1 (tyxmax))) (defvar #:bitmap:bvtty:ymax (tyymax)) (defvar #:bitmap:bvtty:main-tty 'tty)))
(loader'((fentry #:bitmap:bvtty:bitprologue subr0)
(entry #:bitmap:bvtty:bitprologue subr0)
(jcall #:bitmap:bitprologue)
(jcall tyflush)
(jcall typrologue)
(jcall tyxmax)
(plus '1 a1)
(push a1)
(jcall tyymax)
(plus '1 a1)
(pop a4)
(times a1 a4)
(mov '32 a2)
(mov a4 a1)
(jcall makestring)
(mov a1 (cvalq #:bitmap:bvtty:screen))
(jcall copy)
(mov a1 (cvalq #:bitmap:bvtty:oscreen))
(mov (cvalq #:bitmap:bvtty:screen) a1)
(jcall copy)
(mov a1 (cvalq #:bitmap:bvtty:blankscreen))
(mov (cvalq #:sys-package:tty) (cvalq #:bitmap:bvtty:main-tty))
(jcall #:graph-env:make)
(mov a1 (cvalq #:graph-env:main-graph-env))
(mov a1 (cvalq #:graph-env:current-graph-env))
(return)
))
(loader'((fentry #:bitmap:bvtty:bitepilogue subr0)
(entry #:bitmap:bvtty:bitepilogue subr0)
(jcall tyflush)
(jcall #:bitmap:bitepilogue)
(mov (cvalq #:bitmap:bvtty:main-tty) (cvalq #:sys-package:tty))
(jcall tyepilogue)
(jmp tyflush)
))
(loader'((fentry #:bitmap:bvtty:bitmap-refresh subr0)
(entry #:bitmap:bvtty:bitmap-refresh subr0)
(bra #:bitmap:bvtty:full-redisplay)
))
(loader'((fentry #:bitmap:bvtty:bitmap-flush subr0)
(entry #:bitmap:bvtty:bitmap-flush subr0)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:create-window subr1)
(entry #:bitmap:bvtty:create-window subr1)
(push a1)
(push a1)
(push (@ 101))
(hpxmov a1 '2 a4)
(push a4)
(hpxmov a1 '3 a4)
(push a4)
(hpxmov a1 '4 a4)
(push a4)
(hpxmov a1 '5 a4)
(push a4)
(mov '4 a4)
(bra #:bitmap:bvtty:make-framed-screen)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '8)
(jcall #:graph-env:make)
(hpmovx a1 (& 0) '7)
(push (@ 102))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
102
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:bitmap:bvtty:create-subwindow subr1)
(entry #:bitmap:bvtty:create-subwindow subr1)
(mov nil a3)
(mov '"not yet implemented" a2)
(mov '#:bitmap:bvtty:create-subwindow a1)
(jmp error)
))
(loader'((entry #:bitmap:bvtty:make-framed-screen nsubr)
(mov (& 3) a4)
(plus '2 a4)
(mov (& 2) a3)
(plus '2 a3)
(times a3 a4)
(mov '46 a2)
(mov a4 a1)
(jcall makestring)
(push a1)
(push (@ 101))
(push a1)
(push (cvalq #:bitmap:bvtty:blankscreen))
(mov (& 7) a4)
(plus '2 a4)
(push a4)
(mov (& 7) a4)
(plus '2 a4)
(push a4)
(push (@ 102))
(mov '0 a4)
(jmp bitxmax)
102
(eval ())
(plus '1 a1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp bitymax)
103
(eval ())
(plus '1 a1)
(push a1)
(push '1)
(push '1)
(push '0)
(push '0)
(push (& 15))
(push (& 15))
(mov '12 a4)
(jmp bltscreen)
101
(eval ())
(push (@ 106))
(push (& 2))
(push '0)
(mov '2 a4)
(jmp =)
106
(eval ())
(bfnil a1 105)
(push (@ 107))
(push (& 1))
(push '0)
(push '61)
(mov '2 a4)
(plus (& 8) a4)
(push a4)
(mov '4 a4)
(jmp fillstring)
107
(eval ())
105
(push (@ 108))
(push (& 1))
(push '1)
(push (& 5))
(push '0)
(push (@ 109))
(hgsize (& 8) a4)
(push a4)
(push (& 11))
(mov '2 a4)
(jmp min)
109
(eval ())
(push a1)
(mov '5 a4)
(jmp bltstring)
108
(eval ())
(mov (& 0) a1)
(adjstk '5)
(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 (cvalq #:graph-env:main-graph-env) (cvalq #:graph-env:current-graph-env))
(mov (cvalq #:graph-env:main-graph-env) 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
(bfnil (& 4) 107)
(btnil (& 3) 106)
107
(bfnil (& 4) 109)
(hpxmov (& 7) '2 a4)
(mov a4 (& 4))
109
(bfnil (& 3) 111)
(hpxmov (& 7) '3 a4)
(mov a4 (& 3))
111
(push (@ 112))
(push (& 5))
(push (& 5))
(hpxmov (& 10) '4 a4)
(push a4)
(hpxmov (& 11) '5 a4)
(push a4)
(mov '4 a4)
(bra #:bitmap:bvtty:make-framed-screen)
112
(eval ())
(push a1)
(push (@ 113))
(push a1)
(hpxmov (& 10) '8 a4)
(push a4)
(mov '2 a4)
(plus (& 8) a4)
(push a4)
(mov '2 a4)
(plus (& 8) a4)
(push a4)
(hpxmov (& 13) '2 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (& 14) '3 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(push '1)
(push '1)
(push '1)
(push '1)
(push (@ 114))
(push (& 17))
(hpxmov (& 21) '2 a4)
(push a4)
(mov '2 a4)
(jmp min)
114
(eval ())
(push a1)
(push (@ 115))
(push (& 17))
(hpxmov (& 22) '3 a4)
(push a4)
(mov '2 a4)
(jmp min)
115
(eval ())
(push a1)
(mov '12 a4)
(jmp bltscreen)
113
(eval ())
(hpmovx (& 0) (& 8) '8)
(hpmovx (& 5) (& 8) '2)
(hpmovx (& 4) (& 8) '3)
(adjstk '1)
106
(bfnil (& 2) 118)
(btnil (& 1) 117)
118
(btnil (& 2) 120)
(hpmovx (& 2) (& 7) '4)
120
(btnil (& 1) 122)
(hpmovx (& 1) (& 7) '5)
122
(push (@ 123))
(hpxmov (& 8) '8 a4)
(push a4)
(push '0)
(push (@ 126))
(hpxmov (& 11) '5 a4)
(push a4)
(push '0)
(mov '2 a4)
(jmp =)
126
(eval ())
(btnil a1 124)
(mov '46 a4)
(bra 125)
124
(mov '61 a4)
125
(push a4)
(hpxmov (& 11) '2 a3)
(mov '2 a4)
(plus a3 a4)
(push a4)
(mov '4 a4)
(jmp fillstring)
123
(eval ())
(push (@ 127))
(hpxmov (& 8) '8 a4)
(push a4)
(push '1)
(hpxmov (& 10) '4 a4)
(push a4)
(push '0)
(hpxmov (& 12) '2 a4)
(push a4)
(mov '5 a4)
(jmp bltstring)
127
(eval ())
117
(btnil (& 0) 129)
(hpmovx (& 0) (& 7) '6)
129
(push (@ 130))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
130
(eval ())
(mov (& 7) a1)
(adjstk '8)
(return)
))
(loader'((fentry #:image:rectangle:window:kill-window subr1)
(entry #:image:rectangle:window:kill-window subr1)
(push (@ 101))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:pop-window subr1)
(entry #:image:rectangle:window:pop-window subr1)
(push (@ 101))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:move-behind-window subr2)
(entry #:image:rectangle:window:move-behind-window subr2)
(push (@ 101))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
101
(eval ())
(return)
))
(loader'((fentry #:image:rectangle:window:current-keyboard-focus-window subr1)
(entry #:image:rectangle:window:current-keyboard-focus-window subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(entry #:image:rectangle:window:uncurrent-keyboard-focus-window subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:find-window subr2)
(entry #:bitmap:bvtty:find-window subr2)
(mov nil a3)
(mov '"not yet implemented" a2)
(mov '#:bitmap:bvtty:find-window a1)
(jmp error)
))
(if (not (boundp '#:bitmap:bvtty:lx)) (progn (defvar #:bitmap:bvtty:lx) (defvar #:bitmap:bvtty:ly)))
(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:bvtty:ly))
(mov (& 1) (cvalq #:bitmap:bvtty:ly))
(push (cvalq #:bitmap:bvtty:lx))
(mov (& 3) (cvalq #:bitmap:bvtty:lx))
(push '2)
(push '(#:bitmap:bvtty:ly #:bitmap:bvtty:lx))
(push (@ #:image:rectangle:window:map-window))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(hpxmov (& 12) '0 a4)
(mov (& 11) a3)
(diff a4 a3)
(mov (cvalq #:bitmap:bvtty:lx) a4)
(mov a3 (cval a4))
(hpxmov (& 12) '1 a3)
(mov (& 10) a2)
(diff a3 a2)
(mov (cvalq #:bitmap:bvtty:ly) a3)
(mov a2 (cval a3))
(mov a2 a1)
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq #:bitmap:bvtty:lx))
(mov (& 7) (cvalq #:bitmap:bvtty:ly))
(adjstk '13)
(return)
))
(if (not (boundp '#:bitmap:bvtty:reread)) (progn (defvar #:bitmap:bvtty:reread ())))
(loader'((fentry #:bitmap:bvtty:event-mode subr1)
(entry #:bitmap:bvtty:event-mode subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:eventp subr0)
(entry #:bitmap:bvtty:eventp subr0)
(mov (cvalq #:bitmap:bvtty:reread) a1)
(bfnil a1 29999)
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(jcall tys)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(jcall tyflush)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(btnil a1 104)
(jcall ncons)
(mov a1 (cvalq #:bitmap:bvtty:reread))
(return)
104
(mov nil a1)
(return)
29999
(return)
))
(loader'((fentry #:bitmap:bvtty:read-event subr1)
(entry #:bitmap:bvtty:read-event subr1)
(push a1)
(btnil (cvalq #:bitmap:bvtty:reread) 101)
(mov (cvalq #:bitmap:bvtty:reread) a2)
(mov (cdr a2) (cvalq #:bitmap:bvtty:reread))
(mov (car a2) a2)
(bra 102)
101
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 103))
(push dlink)
(push prot)
(stack dlink)
(jcall tyi)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 104) a3)
103
(push a3)
(push a2)
(jcall tyflush)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
104
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(mov a1 a2)
102
(pop a1)
(bra make-ascii-event)
))
(loader'((fentry #:bitmap:bvtty:peek-event subr1)
(entry #:bitmap:bvtty:peek-event subr1)
(push a1)
(btnil (cvalq #:bitmap:bvtty:reread) 101)
(mov (cvalq #:bitmap:bvtty:reread) a2)
(mov (car a2) a2)
(bra 102)
101
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 103))
(push dlink)
(push prot)
(stack dlink)
(jcall tyi)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 104) a3)
103
(push a3)
(push a2)
(jcall tyflush)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
104
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(jcall ncons)
(mov a1 (cvalq #:bitmap:bvtty:reread))
(mov (car a1) a2)
102
(pop a1)
(bra make-ascii-event)
))
(loader'((fentry #:bitmap:bvtty:flush-event subr0)
(entry #:bitmap:bvtty:flush-event subr0)
(mov nil (cvalq #:bitmap:bvtty:reread))
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:add-event subr1)
(entry #:bitmap:bvtty:add-event subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:grab-event subr1)
(entry #:bitmap:bvtty:grab-event subr1)
(mov a1 a3)
(mov '"not yet implemented" a2)
(mov '#:bitmap:bvtty:grab-event a1)
(jmp error)
))
(loader'((fentry #:bitmap:bvtty:ungrab-event subr0)
(entry #:bitmap:bvtty:ungrab-event subr0)
(mov nil a3)
(mov '"not yet implemented" a2)
(mov '#:bitmap:bvtty:ungrab-event a1)
(jmp error)
))
(loader'((fentry #:bitmap:bvtty:itsoft-event subr1)
(entry #:bitmap:bvtty:itsoft-event subr1)
(mov a1 a3)
(mov '"not yet implemented" a2)
(mov '#:bitmap:bvtty:itsoft-event a1)
(jmp error)
))
(loader'((fentry #:bitmap:bvtty:read-mouse subr1)
(entry #:bitmap:bvtty:read-mouse subr1)
(hpmovx '0 a1 '5)
(hpmovx '0 a1 '6)
(hpmovx '0 a1 '3)
(hpmovx '0 a1 '4)
(hpmovx nil a1 '1)
(hpmovx '0 a1 '2)
(mov '0 a1)
(return)
))
(loader'((entry make-ascii-event subr2)
(push a1)
(hpmovx a2 a1 '2)
(hpmovx 'ascii-event a1 '0)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp current-keyboard-focus-window)
101
(eval ())
(pop a4)
(hpmovx a1 a4 '1)
(hpmovx '0 (& 0) '5)
(hpmovx '0 (& 0) '6)
(hpmovx '0 (& 0) '3)
(hpmovx '0 (& 0) '4)
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (not (boundp '#:bitmap:bvtty:blankscreen)) (progn (defvar #:bitmap:bvtty:screen) (defvar #:bitmap:bvtty:oscreen) (defvar #:bitmap:bvtty:blankscreen) (defvar #:bitmap:bvtty:flag t) (defvar #:bitmap:bvtty:delayed ())))
(loader'((entry #:bitmap:bvtty:delayed-redisplay nsubr)
(jcall #:llcp:nlist)
(mov (cvalq #:bitmap:bvtty:delayed) a2)
(jcall cons)
(mov a1 (cvalq #:bitmap:bvtty:delayed))
(return)
))
(loader'((entry #:bitmap:bvtty:flush-delayed-redisplay nsubr)
(bfnil (cvalq #:bitmap:bvtty:delayed) 101)
(push (@ 103))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(jmp #:bitmap:bvtty:do-redisplay)
103
(eval ())
(adjstk '5)
(return)
101
(mov (cvalq #:bitmap:bvtty:delayed) a1)
(jcall nreverse)
(mov a1 (cvalq #:bitmap:bvtty:delayed))
104
(btnil (cvalq #:bitmap:bvtty:delayed) 105)
(push (@ 106))
(push '#:bitmap:bvtty:do-redisplay)
(mov (cvalq #:bitmap:bvtty:delayed) a4)
(mov (cdr a4) (cvalq #:bitmap:bvtty:delayed))
(push (car a4))
(mov '2 a4)
(jmp apply)
106
(eval ())
(bra 104)
105
(cabeq (& 4) 't 107)
(push (@ 109))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(jmp #:bitmap:bvtty:do-redisplay)
109
(eval ())
(adjstk '5)
(return)
107
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((entry #:bitmap:bvtty:redisplay nsubr)
(bfnil (cvalq #:bitmap:bvtty:flag) 101)
(push (@ 103))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra #:bitmap:bvtty:delayed-redisplay)
103
(eval ())
(adjstk '5)
(return)
101
(push (@ 104))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(push (& 5))
(mov '5 a4)
(bra #:bitmap:bvtty:flush-delayed-redisplay)
104
(eval ())
(adjstk '5)
(return)
))
(loader'((fentry #:bitmap:bvtty:do-redisplay nsubr)
(entry #:bitmap:bvtty:do-redisplay nsubr)
(cnbeq a4 '5 0)
(mov '#:bitmap:bvtty:do-redisplay a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push nil)
(push (cvalq #:bitmap:bvtty:flag))
(mov (& 1) (cvalq #:bitmap:bvtty:flag))
(push '1)
(push '(#:bitmap:bvtty:flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(jcall tyflush)
(push nil)
(push (@ 101))
(mov '0 a4)
(jmp outchan)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(push 't)
(mov '1 a4)
(jmp outchan)
104
(eval ())
(push (@ 105))
(mov '0 a4)
(jmp rmargin)
105
(eval ())
(mov a1 (& 4))
(push (@ 106))
(push (@ 107))
(mov '0 a4)
(jmp outbuf)
107
(eval ())
(hgsize a1 a4)
(plus '1 a4)
(push a4)
(mov '1 a4)
(jmp rmargin)
106
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 108))
(push (& 4))
(mov '1 a4)
(jmp outchan)
108
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '1)
(push (@ 109))
(push dlink)
(push prot)
(stack dlink)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(cabne (& 24) 't 111)
(push (@ 113))
(push (cvalq #:bitmap:bvtty:screen))
(push (cvalq #:bitmap:bvtty:blankscreen))
(push (@ 114))
(mov '0 a4)
(jmp bitxmax)
114
(eval ())
(plus '1 a1)
(push a1)
(push (@ 115))
(mov '0 a4)
(jmp bitymax)
115
(eval ())
(plus '1 a1)
(push a1)
(mov '4 a4)
(jmp bltscreen)
113
(eval ())
(push (cvalq #:window:all-windows))
116
(bfcons (& 0) 117)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:bitmap:bvtty:redisplay1)
(bra 116)
117
(adjstk '1)
(push (@ 118))
(push (cvalq #:bitmap:bvtty:screen))
(push (cvalq #:bitmap:bvtty:oscreen))
(push (@ 119))
(mov '0 a4)
(jmp bitxmax)
119
(eval ())
(plus '1 a1)
(push a1)
(push (@ 120))
(mov '0 a4)
(jmp bitymax)
120
(eval ())
(plus '1 a1)
(push a1)
(mov '4 a4)
(jmp redisplayscreen)
118
(eval ())
(bra 112)
111
(hpxmov (& 24) '6 a1)
(mov '0 a2)
(jcall <>)
(btnil a1 112)
(mov (cvalq #:window:all-windows) a2)
(mov (& 24) a1)
(jcall memq)
(push a1)
123
(bfcons (& 0) 124)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 125))
(push (& 1))
(push (& 27))
(push (& 27))
(push (& 27))
(push (& 27))
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay1-mini)
125
(eval ())
(adjstk '1)
(bra 123)
124
(adjstk '1)
(push (@ 126))
(push (& 24))
(push (@ 127))
(mov '0 a4)
(jmp bitxmax)
127
(eval ())
(plus '1 a1)
(push a1)
(mov '2 a4)
(jmp min)
126
(eval ())
(mov a1 (& 23))
(push (@ 128))
(push a1)
(push '0)
(mov '2 a4)
(jmp max)
128
(eval ())
(mov a1 (& 23))
(push (@ 129))
(push (& 22))
(push (@ 130))
(mov '0 a4)
(jmp bitxmax)
130
(eval ())
(plus '1 a1)
(push a1)
(mov '2 a4)
(jmp min)
129
(eval ())
(mov a1 (& 21))
(push (@ 131))
(push a1)
(push '0)
(mov '2 a4)
(jmp max)
131
(eval ())
(mov a1 (& 21))
(push (@ 132))
(push (& 23))
(push (@ 133))
(mov '0 a4)
(jmp bitymax)
133
(eval ())
(plus '1 a1)
(push a1)
(mov '2 a4)
(jmp min)
132
(eval ())
(mov a1 (& 22))
(push (@ 134))
(push a1)
(push '0)
(mov '2 a4)
(jmp max)
134
(eval ())
(mov a1 (& 22))
(push (@ 135))
(push (& 21))
(push (@ 136))
(mov '0 a4)
(jmp bitymax)
136
(eval ())
(plus '1 a1)
(push a1)
(mov '2 a4)
(jmp min)
135
(eval ())
(mov a1 (& 20))
(push (@ 137))
(push a1)
(push '0)
(mov '2 a4)
(jmp max)
137
(eval ())
(mov a1 (& 20))
(push (@ 138))
(push (cvalq #:bitmap:bvtty:screen))
(push (cvalq #:bitmap:bvtty:oscreen))
(push (@ 139))
(mov '0 a4)
(jmp bitxmax)
139
(eval ())
(plus '1 a1)
(push a1)
(push (@ 140))
(mov '0 a4)
(jmp bitymax)
140
(eval ())
(plus '1 a1)
(push a1)
(push (@ 141))
(mov '0 a4)
(jmp bitxmax)
141
(eval ())
(plus '1 a1)
(push a1)
(push (@ 142))
(mov '0 a4)
(jmp bitymax)
142
(eval ())
(plus '1 a1)
(push a1)
(push (& 30))
(push (& 30))
(push (& 32))
(push (& 32))
(push (& 32))
(push (& 32))
(mov '12 a4)
(jmp redisplayscreen)
138
(eval ())
112
(jcall tyflush)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 110) a3)
109
(push a3)
(push a2)
(push (@ 143))
(mov '0 a4)
(jmp outchan)
143
(eval ())
(push a1)
(push (@ 144))
(push dlink)
(push prot)
(stack dlink)
(push (@ 146))
(push 't)
(mov '1 a4)
(jmp outchan)
146
(eval ())
(push (@ 147))
(push (& 8))
(mov '1 a4)
(jmp rmargin)
147
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 145) a3)
144
(push a3)
(push a2)
(push (@ 148))
(push (& 4))
(mov '1 a4)
(jmp outchan)
148
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
145
(eval ())
(adjstk '1)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
110
(eval ())
(adjstk '1)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:bitmap:bvtty:flag))
(adjstk '13)
(return)
))
(loader'((entry #:bitmap:bvtty:redisplay1 subr1)
(push a1)
(push (@ 103))
(hpxmov a1 '6 a4)
(push a4)
(push '0)
(mov '2 a4)
(jmp =)
103
(eval ())
(bfnil a1 101)
(push (@ 104))
(push (cvalq #:bitmap:bvtty:screen))
(hpxmov (& 2) '8 a4)
(push a4)
(push (@ 105))
(mov '0 a4)
(jmp bitxmax)
105
(eval ())
(plus '1 a1)
(push a1)
(push (@ 106))
(mov '0 a4)
(jmp bitymax)
106
(eval ())
(plus '1 a1)
(push a1)
(hpxmov (& 5) '2 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (& 6) '3 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (& 7) '0 a4)
(diff '1 a4)
(push a4)
(hpxmov (& 8) '1 a4)
(diff '1 a4)
(push a4)
(push '0)
(push '0)
(hpxmov (& 11) '2 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (& 12) '3 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(mov '12 a4)
(jmp bltscreen)
104
(eval ())
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry #:bitmap:bvtty:redisplay1-mini nsubr)
(push (@ 103))
(hpxmov (& 5) '6 a4)
(push a4)
(push '0)
(mov '2 a4)
(jmp =)
103
(eval ())
(bfnil a1 101)
(push (@ 104))
(push (cvalq #:bitmap:bvtty:screen))
(hpxmov (& 6) '8 a4)
(push a4)
(push (@ 105))
(mov '0 a4)
(jmp bitxmax)
105
(eval ())
(plus '1 a1)
(push a1)
(push (@ 106))
(mov '0 a4)
(jmp bitymax)
106
(eval ())
(plus '1 a1)
(push a1)
(hpxmov (& 9) '2 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (& 10) '3 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(push (& 10))
(push (& 10))
(hpxmov (& 13) '0 a4)
(mov (& 12) a3)
(diff a4 a3)
(plus '1 a3)
(push a3)
(hpxmov (& 14) '1 a4)
(mov (& 12) a3)
(diff a4 a3)
(plus '1 a3)
(push a3)
(push (& 12))
(push (& 12))
(mov '12 a4)
(jmp bltscreen)
104
(eval ())
(adjstk '5)
(return)
101
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((entry #:bitmap:bvtty:full-redisplay subr0)
(push nil)
(push (cvalq #:bitmap:bvtty:flag))
(mov (& 1) (cvalq #:bitmap:bvtty:flag))
(push '1)
(push '(#:bitmap:bvtty:flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(jcall tyflush)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:bitmap:bvtty:flag))
(adjstk '8)
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 101))
(push dlink)
(push prot)
(stack dlink)
(jcall tycls)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 102) a3)
101
(push a3)
(push a2)
(jcall tyflush)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
102
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(push (@ 103))
(push (cvalq #:bitmap:bvtty:oscreen))
(push (cvalq #:bitmap:bvtty:blankscreen))
(push (@ 104))
(mov '0 a4)
(jmp bitxmax)
104
(eval ())
(push a1)
(push (@ 105))
(mov '0 a4)
(jmp bitymax)
105
(eval ())
(push a1)
(mov '4 a4)
(jmp bltscreen)
103
(eval ())
(push (@ 106))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
106
(eval ())
(return)
))
(loader'((fentry #:tty:window:redisplayscreen nsubr)
(entry #:tty:window:redisplayscreen nsubr)
(jcall #:llcp:nlist)
(push nil)
(push (cvalq #:bitmap:bvtty:flag))
(mov (& 1) (cvalq #:bitmap:bvtty:flag))
(push '1)
(push '(#:bitmap:bvtty:flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 101))
(push '#:tty:redisplayscreen)
(push a1)
(mov '2 a4)
(jmp apply)
101
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:bitmap:bvtty:flag))
(adjstk '8)
(push (@ 102))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
102
(eval ())
(return)
))
(loader'((fentry #:tty:window:tybeep subr0)
(entry #:tty:window:tybeep subr0)
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 101))
(push dlink)
(push prot)
(stack dlink)
(jcall tybeep)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 102) a3)
101
(push a3)
(push a2)
(jcall tyflush)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
102
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '8)
(return)
))
(loader'((fentry #:bitmap:bvtty:create-bitmap subr1)
(entry #:bitmap:bvtty:create-bitmap subr1)
(return)
))
(loader'((fentry #:bitmap:bvtty:create-window-bitmap subr2)
(entry #:bitmap:bvtty:create-window-bitmap subr2)
(mov a2 a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:get-bit-line subr3)
(entry #:bitmap:bvtty:get-bit-line subr3)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:set-bit-line subr3)
(entry #:bitmap:bvtty:set-bit-line subr3)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:kill-bitmap subr1)
(entry #:bitmap:bvtty:kill-bitmap subr1)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:bmset nsubr)
(entry #:bitmap:bvtty:bmset nsubr)
(cnbeq a4 '4 0)
(mov '#:bitmap:bvtty:bmset a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:bitmap:bvtty:bmref subr3)
(entry #:bitmap:bvtty:bmref subr3)
(mov nil a1)
(return)
))
(loader'((fentry #:bitmap:bvtty:bitblit nsubr)
(entry #:bitmap:bvtty:bitblit nsubr)
(cnbeq a4 '8 0)
(mov '#:bitmap:bvtty:bitblit a1)
(mov '8 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '8)
(return)
))
(defvar #:sys-package:colon 'graph-env)
(loader'((fentry #:graph-env:clear-graph-env subr1)
(entry #:graph-env:clear-graph-env subr1)
(push (@ 101))
(hpxmov (cvalq #:window:current-window) '8 a4)
(push a4)
(push (cvalq #:bitmap:bvtty:blankscreen))
(hpxmov (cvalq #:window:current-window) '2 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(hpxmov (cvalq #:window:current-window) '3 a4)
(mov '2 a3)
(plus a4 a3)
(push a3)
(push (@ 102))
(mov '0 a4)
(jmp bitxmax)
102
(eval ())
(plus '1 a1)
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp bitymax)
103
(eval ())
(plus '1 a1)
(push a1)
(push '1)
(push '1)
(push '0)
(push '0)
(hpxmov (cvalq #:window:current-window) '2 a4)
(push a4)
(hpxmov (cvalq #:window:current-window) '3 a4)
(push a4)
(mov '12 a4)
(jmp bltscreen)
101
(eval ())
(push (@ 104))
(push 't)
(push '0)
(push '0)
(push '0)
(push '0)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
104
(eval ())
(return)
))
(loader'((fentry #:graph-env:draw-cursor nsubr)
(entry #:graph-env:draw-cursor nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-cursor a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(btnil (cvalq #:bitmap:bvtty:flag) 101)
(hpxmov (cvalq #:window:current-window) '6 a4)
(cnbeq '0 a4 101)
(push (@ 103))
(mov '0 a4)
(jmp tyshowcursor)
103
(eval ())
(btnil a1 101)
(jcall tyflush)
(push (cvalq #:bitmap:bvtty:main-tty))
(push (cvalq #:sys-package:tty))
(mov (& 1) (cvalq #:sys-package:tty))
(push '1)
(push '(#:sys-package:tty))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 104))
(push (& 9))
(mov '1 a4)
(jmp tyshowcursor)
104
(eval ())
(btnil (& 8) 106)
(push (@ 107))
(mov '0 a4)
(jmp current-window)
107
(eval ())
(hpxmov a1 '0 a4)
(mov (& 10) a3)
(plus a4 a3)
(push a3)
(push (@ 108))
(mov '0 a4)
(jmp current-window)
108
(eval ())
(hpxmov a1 '1 a4)
(mov (& 10) a3)
(plus a4 a3)
(mov a3 a2)
(pop a1)
(jcall tycursor)
106
(jcall tyflush)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:tty))
(adjstk '12)
(return)
101
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-substring nsubr)
(entry #:graph-env:draw-substring nsubr)
(cnbeq a4 '6 0)
(mov '#:graph-env:draw-substring a1)
(mov '6 a2)
(jmp #:llcp:errwna)
0
(btnil (cvalq #:window:current-window) 101)
(push (@ 103))
(push (& 5))
(push '0)
(mov '2 a4)
(jmp max)
103
(eval ())
(mov a1 (& 4))
(push (@ 104))
(push (& 4))
(push '0)
(mov '2 a4)
(jmp max)
104
(eval ())
(mov a1 (& 3))
(push (@ 105))
(push (@ 106))
(mov '0 a4)
(jmp current-window)
106
(eval ())
(hpxmov a1 '2 a4)
(diff (& 5) a4)
(push a4)
(push (& 2))
(mov '2 a4)
(jmp min)
105
(eval ())
(mov a1 (& 0))
(mov (& 4) a4)
(plus '1 a4)
(hpxmov (cvalq #:window:current-window) '2 a3)
(mov '2 a2)
(plus a3 a2)
(mov (& 3) a3)
(plus '1 a3)
(times a3 a2)
(plus a2 a4)
(push a4)
(push (@ 107))
(hpxmov (cvalq #:window:current-window) '8 a3)
(push a3)
(push a4)
(push (& 6))
(push (& 6))
(push a1)
(mov '5 a4)
(jmp bltstring)
107
(eval ())
(hpxmov (& 6) '0 a4)
(cabne a4 '1 109)
(hpxmov (cvalq #:window:current-window) '8 a4)
(mov a4 (& 3))
(push (@ 110))
(push (& 2))
(hgsize a4 a3)
(push a3)
(mov '2 a4)
(jmp min)
110
(eval ())
(mov (& 0) a4)
(plus a1 a4)
(diff '1 a4)
(push (& 0))
(push a4)
111
(push (@ 113))
(push (& 2))
(push (& 2))
(mov '2 a4)
(jmp <=)
113
(eval ())
(btnil a1 112)
(hbxmov (& 5) (& 1) a4)
(lor '128 a4)
(hbmovx a4 (& 5) (& 1))
(push (@ 114))
(push (& 2))
(push '1)
(mov '2 a4)
(jmp +)
114
(eval ())
(mov a1 (& 1))
(bra 111)
112
(adjstk '2)
109
(adjstk '1)
(push (@ 115))
(push (cvalq #:window:current-window))
(hpxmov (cvalq #:window:current-window) '0 a4)
(mov (& 6) a3)
(plus a4 a3)
(push a3)
(hpxmov (cvalq #:window:current-window) '1 a4)
(mov (& 6) a3)
(plus a4 a3)
(push a3)
(push (& 4))
(push '1)
(mov '5 a4)
(bra #:bitmap:bvtty:redisplay)
115
(eval ())
(adjstk '6)
(return)
101
(mov nil a1)
(adjstk '6)
(return)
))
(loader'((fentry #:graph-env:height-substring nsubr)
(entry #:graph-env:height-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:height-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '1 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:width-substring nsubr)
(entry #:graph-env:width-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:width-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push '0)
(push (@ 102))
(push (& 3))
(hgsize (& 6) a4)
(diff (& 5) a4)
(push a4)
(mov '2 a4)
(jmp min)
102
(eval ())
(push a1)
(mov '2 a4)
(jmp max)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x-base-substring nsubr)
(entry #:graph-env:x-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:y-base-substring nsubr)
(entry #:graph-env:y-base-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:y-base-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:x-inc-substring nsubr)
(entry #:graph-env:x-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:x-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push (& 4))
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(jmp #:graph-env:width-substring)
101
(eval ())
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:y-inc-substring nsubr)
(entry #:graph-env:y-inc-substring nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:y-inc-substring a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov '0 a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:current-font subr2)
(entry #:graph-env:current-font subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:graph-env:font-max subr1)
(entry #:graph-env:font-max subr1)
(mov '1 a1)
(return)
))
(loader'((fentry #:graph-env:load-font subr2)
(entry #:graph-env:load-font subr2)
(mov a2 a3)
(mov 'erroob a2)
(mov '#:graph-env:load-font a1)
(jmp error)
))
(loader'((fentry #:graph-env:current-clip nsubr)
(entry #:graph-env:current-clip nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:current-clip a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(push (@ 101))
(push (& 4))
(push (& 4))
(push (& 4))
(push (& 4))
(mov '4 a4)
(jmp list)
101
(eval ())
(mov a1 a3)
(mov '"not yet implemented" a2)
(mov '#:graph-env:current-clip a1)
(adjstk '5)
(jmp error)
))
(loader'((fentry #:graph-env:current-line-style subr2)
(entry #:graph-env:current-line-style subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:graph-env:line-style-max subr1)
(entry #:graph-env:line-style-max subr1)
(mov '0 a1)
(return)
))
(loader'((fentry #:graph-env:current-pattern subr2)
(entry #:graph-env:current-pattern subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:graph-env:pattern-max subr1)
(entry #:graph-env:pattern-max subr1)
(mov '0 a1)
(return)
))
(loader'((fentry #:graph-env:current-mode subr2)
(entry #:graph-env:current-mode subr2)
(mov nil a1)
(return)
))
(loader'((fentry #:graph-env:draw-polyline nsubr)
(entry #:graph-env:draw-polyline nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-polyline a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-polymarker nsubr)
(entry #:graph-env:draw-polymarker nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:draw-polymarker a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:fill-area nsubr)
(entry #:graph-env:fill-area nsubr)
(cnbeq a4 '4 0)
(mov '#:graph-env:fill-area a1)
(mov '4 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry #:graph-env:draw-ellipse nsubr)
(entry #:graph-env:draw-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:draw-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '5)
(return)
))
(loader'((fentry #:graph-env:fill-ellipse nsubr)
(entry #:graph-env:fill-ellipse nsubr)
(cnbeq a4 '5 0)
(mov '#:graph-env:fill-ellipse a1)
(mov '5 a2)
(jmp #:llcp:errwna)
0
(mov nil a1)
(adjstk '5)
(return)
))
(loader '((end)))