movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/losp/los0.lisp
by Frode Vatvedt Fjeld 23 Apr '04

23 Apr '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv1547 Modified Files: los0.lisp Log Message: Changed read-time-stamp-counter to return two 29-bit fixnums, which seems more useful for most cases, even if the upper 6 bits are lost. Date: Fri Apr 23 09:00:10 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.11 movitz/losp/los0.lisp:1.12 --- movitz/losp/los0.lisp:1.11 Tue Apr 6 20:35:51 2004 +++ movitz/losp/los0.lisp Fri Apr 23 09:00:08 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.11 2004/04/07 00:35:51 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.12 2004/04/23 13:00:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -94,11 +94,12 @@ ;;; (format t "test-loop: ~S~%" ;;; (loop for i from 0 to 10 collect x))) ;;; -;;;(defun delay (time) -;;; (dotimes (i time) -;;; (with-inline-assembly (:returns :nothing) -;;; (:nop) -;;; (:nop)))) +#+ignore +(defun delay (time) + (dotimes (i time) + (with-inline-assembly (:returns :nothing) + (:nop) + (:nop)))) ;;; ;;;(defun test-consp (x) ;;; (with-inline-assembly (:returns :boolean-cf=1) @@ -106,6 +107,9 @@ ;;; (:leal (:edi -4) :eax) ;;; (:rorb :cl :al))) +(defun foo (x) + (foo x x)) + #+ignore (defun test-block (x) @@ -335,11 +339,16 @@ (error "Huh?")) #+ignore -(defun test-catch () +(defun test-catch (x) (catch 'test-tag - (test-throw 'test-tag) + (test-throw x 'test-tag) (format t "Hello world"))) +(defun test-throw (x tag) + (when x + (warn "Throwing ~S.." tag) + (throw tag (values-list x)))) + #+ignore (defun test-up-catch () (catch 'test-tag @@ -574,13 +583,12 @@ for s0 = (rtc-register :second) while (= x s0) finally (return s0)))) - (multiple-value-bind (c0-lo c0-mid c0-hi) + (multiple-value-bind (c0-lo c0-hi) (read-time-stamp-counter) (loop while (= s0 (rtc-register :second))) - (multiple-value-bind (c1-lo c1-mid c1-hi) + (multiple-value-bind (c1-lo c1-hi) (read-time-stamp-counter) - (+ (ash (- c1-hi c0-hi) 38) - (ash (- c1-mid c0-mid) 14) + (+ (ash (- c1-hi c0-hi) 20) (ash (+ 512 (- c1-lo c0-lo)) -10)))))) (defun report-cpu-frequency () @@ -589,6 +597,26 @@ (format t "~&CPU frequency: ~D.~2,'0D MHz.~%" mhz (round khz 10))) (values)) +(defvar *cpu-frequency-mhz*) + +(defun init-nano-sleep () + (setf *cpu-frequency-mhz* + (truncate (assess-cpu-frequency) 100))) + +(defun nano-sleep (nano-seconds) + (let* ((t0 (read-time-stamp-counter)) + (t1 (+ t0 (truncate (* nano-seconds (%symbol-global-value '*cpu-frequency-mhz*)) + 10000)))) + (when (< t1 t0) + (loop until (< (read-time-stamp-counter) t0))) ; wait for wrap-around + (loop until (>= (read-time-stamp-counter) t1)))) + +(defun test-nano-sleep (x) + (time (nano-sleep x))) + +(defun test () + (time 123)) + (defun mvtest () (multiple-value-call #'list (round 5 2)) (list (memref-int #x1000000 0 0 :unsigned-byte8) @@ -607,34 +635,36 @@ for s0 = (rtc-register :second) while (= x s0) finally (return s0)))) - (multiple-value-bind (c0-lo c0-mid c0-hi) + (multiple-value-bind (c0-lo c0-hi) (read-time-stamp-counter) (loop while (= s0 (rtc-register :second))) - (multiple-value-bind (c1-lo c1-mid c1-hi) + (multiple-value-bind (c1-lo c1-hi) (read-time-stamp-counter) - (let ((lo-res (+ (ash (- c1-hi c0-hi) 24) - (- c1-mid c0-mid)))) + (let ((res (+ (ash (- c1-hi c0-hi) 12) + (ash (- c1-lo c0-lo) -17)))) (cond - ((> lo-res 100) + ((> res 100) (setf (symbol-function 'get-internal-run-time) (lambda () - (multiple-value-bind (lo mid hi) + (multiple-value-bind (lo hi) (read-time-stamp-counter) - (declare (ignore lo)) - (dpb hi (byte 5 24) mid)))) - (setf internal-time-units-per-second lo-res)) + (+ (ash lo -17) + (ash (ldb (byte 10 0) hi) 12))))) + (setf internal-time-units-per-second res)) (t ;; This is for really slow machines, like bochs.. - (setf (symbol-function 'get-internal-run-time) - (lambda () - (multiple-value-bind (lo mid hi) - (read-time-stamp-counter) - (declare (ignore hi)) - (dpb mid - (byte 19 10) - (ldb (byte 10 14) lo))))) - (setf internal-time-units-per-second - (+ (ash (ldb (byte 19 0) (- c1-mid c0-mid)) 10) - (ldb (byte 10 14) (- c1-lo c0-lo)))))))))))) + (let ((res (+ (ash (- c1-hi c0-hi) 15) + (ash (- c1-lo c0-lo) -14)))) + (setf (symbol-function 'get-internal-run-time) + (lambda () + (multiple-value-bind (lo hi) + (read-time-stamp-counter) + (+ (ash lo -14) + (ash (ldb (byte 10 0) hi) 15))))) + (setf internal-time-units-per-second res))))))) + (warn "Internal-time will wrap in ~D days." + (truncate most-positive-fixnum + (* internal-time-units-per-second 60 60 24)))))) + ;;;(defun get-internal-run-time () ;;; (multiple-value-bind (lo mid hi) @@ -873,6 +903,11 @@ (error "What's up? [~S]" 'hey)) +(defun read (&optional input-stream eof-error-p eof-value recursive-p) + (declare (ignore input-stream recursive-p)) + (let ((string (muerte.readline:contextual-readline *repl-readline-context*))) + (simple-read-from-string string eof-error-p eof-value))) + (defun handle-warning (condition) (format t "Handle-warning: ~S" condition) (throw :debugger nil)) @@ -886,7 +921,7 @@ #+ignore (defun progntest () (unwind-protect - (progn (print 'x) 'foo 'bar) + (progn (print 'x) 'foo (error "bar")) (print 'y))) #+ignore @@ -944,6 +979,5 @@ (case (muerte.x86-pc.keyboard:poll-char) (#\esc (break "Under the bridge.")) (#\e (error "this is an error!")))))))) - (genesis)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/vga.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv14981 Modified Files: vga.lisp Log Message: Added some more VGA interfacing. Try e.g. (set-textmode +vga-state-80x50+). Date: Wed Apr 21 12:24:16 2004 Author: ffjeld Index: movitz/losp/x86-pc/vga.lisp diff -u movitz/losp/x86-pc/vga.lisp:1.4 movitz/losp/x86-pc/vga.lisp:1.5 --- movitz/losp/x86-pc/vga.lisp:1.4 Fri Apr 16 15:17:55 2004 +++ movitz/losp/x86-pc/vga.lisp Wed Apr 21 12:24:16 2004 @@ -6,11 +6,11 @@ ;;;; For distribution policy, see the accompanying file COPYING. ;;;; ;;;; Filename: vga.lisp -;;;; Description: +;;;; Description: Low-level VGA interfacing. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.4 2004/04/16 19:17:55 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.5 2004/04/21 16:24:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,6 +19,11 @@ (in-package muerte.x86-pc) +(defconstant +vga-base+ #x3c0) + +(defmacro vga-port (register) + `(io-register8 +vga-base+ ,register)) + (defun vga-crt-controller-register (register) (let* ((address-register (if (logbitp 0 (io-port #x3cc :unsigned-byte8)) #x3d4 #x3b4)) (data-register (1+ address-register))) @@ -39,6 +44,24 @@ (setf (io-port #x3ce :unsigned-byte8) register (io-port #x3cf :unsigned-byte8) value)) +(defun vga-sequencer-register (register) + (setf (vga-port 4) register) + (vga-port 5)) + +(defun (setf vga-sequencer-register) (value register) + (setf (vga-port 4) register + (vga-port 5) value)) + +(defun vga-attribute-register (register) + (vga-port #x1a) + (setf (vga-port 0) register) + (vga-port 1)) + +(defun (setf vga-attribute-register) (value register) + (vga-port #x1a) + (setf (vga-port 0) register + (vga-port 0) value)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun (setf vga-cursor-location) (value) @@ -74,3 +97,793 @@ (defun vga-character-height () (1+ (ldb (byte 5 0) (vga-crt-controller-register 9)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;; VGA stuff ported from http://my.execpc.com/CE/AC/geezer/osd/graphics/modes.c + +(defconstant +vga-state-80x25+ + '((:misc . #x67) + (:sequencer + #x03 #x00 #x03 #x00 #x02) + (:crtc + #x5F #x4F #x50 #x82 #x55 #x81 #xBF #x1F + #x00 #x4F #x0D #x0E #x00 #x00 #x00 #x50 + #x9C #x0E #x8F #x28 #x1F #x96 #xB9 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + +(defconstant +vga-state-80x50+ + '((:misc . #x67) + (:sequencer + #x03 #x00 #x03 #x00 #x02) + (:crtc + #x5F #x4F #x50 #x82 #x55 #x81 #xBF #x1F + #x00 #x47 #x06 #x07 #x00 #x00 #x01 #x40 + #x9C #x8E #x8F #x28 #x1F #x96 #xB9 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + +(defconstant +vga-state-40x25+ + '((:misc . #x67) + (:sequencer + #x03 #x08 #x03 #x00 #x02) + (:crtc + #x2D #x27 #x28 #x90 #x2B #xA0 #xBF #x1F + #x00 #x4F #x0D #x0E #x00 #x00 #x00 #xA0 + #x9C #x8E #x8F #x14 #x1F #x96 #xB9 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + +(defconstant +vga-state-40x50+ + '((:misc . #x67) + (:sequencer + #x03 #x08 #x03 #x00 #x02) + (:crtc + #x2D #x27 #x28 #x90 #x2B #xA0 #xBF #x1F + #x00 #x47 #x06 #x07 #x00 #x00 #x04 #x60 + #x9C #x8E #x8F #x14 #x1F #x96 #xB9 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + +(defconstant +vga-state-90x30+ + '((:misc . #xE7) + (:sequencer + #x03 #x01 #x03 #x00 #x02) + (:crtc + #x6B #x59 #x5A #x82 #x60 #x8D #x0B #x3E + #x00 #x4F #x0D #x0E #x00 #x00 #x00 #x00 + #xEA #x0C #xDF #x2D #x10 #xE8 #x05 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + +(defconstant +vga-state-90x60+ + '((:misc . #xE7) + (:sequencer + #x03 #x01 #x03 #x00 #x02) + (:crtc + #x6B #x59 #x5A #x82 #x60 #x8D #x0B #x3E + #x00 #x47 #x06 #x07 #x00 #x00 #x00 #x00 + #xEA #x0C #xDF #x2D #x08 #xE8 #x05 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x10 #x0E #x00 + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x0C #x00 #x0F #x08 #x00))) + + +(defconstant +vga-misc-read+ #x0c) +(defconstant +vga-misc-write+ #x02) + +(defconstant VGA-MISC-WRITE #x3C2) +(defconstant VGA-AC-INDEX #x3C0) +(defconstant VGA-AC-WRITE #x3C0) +(defconstant VGA-AC-READ #x3C1) +(defconstant VGA-SEQ-INDEX #x3C4) +(defconstant VGA-SEQ-DATA #x3C5) +(defconstant VGA-DAC-READ-INDEX #x3C7) +(defconstant VGA-DAC-WRITE-INDEX #x3C8) +(defconstant VGA-DAC-DATA #x3C9) +(defconstant VGA-MISC-READ #x3CC) +(defconstant VGA-GC-INDEX #x3CE) +(defconstant VGA-GC-DATA #x3CF) +(defconstant VGA-CRTC-INDEX #x3D4) +(defconstant VGA-CRTC-DATA #x3D5) +(defconstant VGA-INSTAT-READ #x3DA) + +(defun vga-state () + "Dump the state of the VGA register set." + (prog1 + (list + (cons :misc + (vga-port +vga-misc-read+)) + (cons :sequencer + (loop for i from 0 below 5 + collect (vga-sequencer-register i))) + (cons :crtc + (loop for i from 0 below 25 + collect (vga-crt-controller-register i))) + (cons :graphics + (loop for i from 0 below 9 + collect (vga-graphics-register i))) + (cons :attribute + (loop for i from 0 below 21 + collect (vga-attribute-register i)))) + ;; lock 16-color palette and unblank display + (io-port VGA-INSTAT-READ :unsigned-byte8) + (setf (io-port VGA-AC-INDEX :unsigned-byte8) #x20))) + +(defun (setf vga-state) (state &optional unsafe-p) + "Initialize the state of the VGA register set." + (let ((old-state (if unsafe-p nil (vga-state)))) + (flet ((vga-reset (&optional c) + (declare (ignore c)) + (when old-state + (warn "Something bad happened, resetting VGA state..") + (setf (vga-state t) old-state + old-state nil))) + (assert-register-set (state register-set) + (let ((set (assoc register-set state))) + (assert set () "VGA state is missing ~A." register-set) + (cdr set)))) + (unwind-protect + (handler-bind ((serious-condition #'vga-reset)) + ;; write MISCELLANEOUS reg + (setf (vga-port +vga-misc-write+) + (assert-register-set state :misc)) + ;; write SEQUENCER regs + (loop for x in (assert-register-set state :sequencer) + as i upfrom 0 + do (setf (vga-sequencer-register i) x)) + (loop + ;; unlock CRTC registers + initially (setf (vga-crt-controller-register 3) + (logior #x80 (vga-crt-controller-register 3))) + (setf (vga-crt-controller-register #x11) + (logand #x7f (vga-crt-controller-register #x11))) + for x in (assert-register-set state :crtc) + as i upfrom 0 + do (setf (vga-crt-controller-register i) + (case i + ;; make sure they remain unlocked + (#x03 (logior #x80 x)) + (#x11 (logand #x7f x)) + (t x)))) + ;; write GRAPHICS CONTROLLER regs + (loop for x in (assert-register-set state :graphics) + as i upfrom 0 + do (setf (vga-graphics-register i) x)) + ;; write ATTRIBUTE CONTROLLER regs + (loop for x in (assert-register-set state :attribute) + as i upfrom 0 + do (setf (vga-attribute-register i) x)) + ;; lock 16-color palette and unblank display + (io-port VGA-INSTAT-READ :unsigned-byte8) + (setf (io-port VGA-AC-INDEX :unsigned-byte8) #x20) + (setf old-state nil)) + (vga-reset)))) + state) + +(defun set-plane (p) + (check-type p (integer 0 3)) + (let* ((p (logand p 3)) + (pmask (ash 1 p))) + ;; set read plane + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 4) + (setf (io-port VGA-GC-DATA :unsigned-byte8) p) + ;; set write plane + (setf (io-port VGA-SEQ-INDEX :unsigned-byte8) 2) + (setf (io-port VGA-SEQ-DATA :unsigned-byte8) pmask)) + (values)) + +(defun vmemwr (dst-off src start end) + (loop for i from start below end as dst upfrom dst-off + do (setf (memref-int (vga-memory-map) 0 dst :unsigned-byte8 t) + (aref src i))) + (values)) + +(defun write-font (buf font-height) + (let* ((seq2 + (progn + ;; set_plane() modifies GC 4 and SEQ 2, so save them as well + (setf (io-port VGA-SEQ-INDEX :unsigned-byte8) 2) + (io-port VGA-SEQ-DATA :unsigned-byte8))) + (seq4 + (progn + (setf (io-port VGA-SEQ-INDEX :unsigned-byte8) 4) + (io-port VGA-SEQ-DATA :unsigned-byte8))) + (gc4 + (progn + ;; turn off even-odd addressing (set flat addressing) + ;; assume: chain-4 addressing already off + (setf (io-port VGA-SEQ-DATA :unsigned-byte8) + (logior #x04 seq4)) + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 4) + (io-port VGA-GC-DATA :unsigned-byte8))) + (gc5 + (progn + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 5) + (io-port VGA-GC-DATA :unsigned-byte8))) + (gc6 + (progn + ;; turn off even-odd addressing + (setf (io-port VGA-GC-DATA :unsigned-byte8) + (logand gc5 (logxor #x10 #xff))) + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 6) + (io-port VGA-GC-DATA :unsigned-byte8)))) + ;; turn off even-odd addressing + (setf (io-port VGA-GC-DATA :unsigned-byte8) + (logand gc6 (logxor #xff #x02))) + ;; write font to plane P4 + (set-plane 2) ; set_plane(2) + ;; write font 0 + (dotimes (i 256) + (vmemwr (* i 32) buf (* i font-height) (* (1+ i) font-height))) + + ;; restore registers + (setf (io-port VGA-SEQ-INDEX :unsigned-byte8) 2) + (setf (io-port VGA-SEQ-DATA :unsigned-byte8) seq2) + (setf (io-port VGA-SEQ-INDEX :unsigned-byte8) 4) + (setf (io-port VGA-SEQ-DATA :unsigned-byte8) seq4) + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 4) + (setf (io-port VGA-GC-DATA :unsigned-byte8) gc4) + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 5) + (setf (io-port VGA-GC-DATA :unsigned-byte8) gc5) + (setf (io-port VGA-GC-INDEX :unsigned-byte8) 6) + (setf (io-port VGA-GC-DATA :unsigned-byte8) gc6)) + (values)) + + +(defconstant +vga-font-8x8+ + #{#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x7E #x81 #xA5 #x81 #xBD #x99 #x81 #x7E + #x7E #xFF #xDB #xFF #xC3 #xE7 #xFF #x7E + #x6C #xFE #xFE #xFE #x7C #x38 #x10 #x00 + #x10 #x38 #x7C #xFE #x7C #x38 #x10 #x00 + #x38 #x7C #x38 #xFE #xFE #x92 #x10 #x7C + #x00 #x10 #x38 #x7C #xFE #x7C #x38 #x7C + #x00 #x00 #x18 #x3C #x3C #x18 #x00 #x00 + #xFF #xFF #xE7 #xC3 #xC3 #xE7 #xFF #xFF + #x00 #x3C #x66 #x42 #x42 #x66 #x3C #x00 + #xFF #xC3 #x99 #xBD #xBD #x99 #xC3 #xFF + #x0F #x07 #x0F #x7D #xCC #xCC #xCC #x78 + #x3C #x66 #x66 #x66 #x3C #x18 #x7E #x18 + #x3F #x33 #x3F #x30 #x30 #x70 #xF0 #xE0 + #x7F #x63 #x7F #x63 #x63 #x67 #xE6 #xC0 + #x99 #x5A #x3C #xE7 #xE7 #x3C #x5A #x99 + #x80 #xE0 #xF8 #xFE #xF8 #xE0 #x80 #x00 + #x02 #x0E #x3E #xFE #x3E #x0E #x02 #x00 + #x18 #x3C #x7E #x18 #x18 #x7E #x3C #x18 + #x66 #x66 #x66 #x66 #x66 #x00 #x66 #x00 + #x7F #xDB #xDB #x7B #x1B #x1B #x1B #x00 + #x3E #x63 #x38 #x6C #x6C #x38 #x86 #xFC + #x00 #x00 #x00 #x00 #x7E #x7E #x7E #x00 + #x18 #x3C #x7E #x18 #x7E #x3C #x18 #xFF + #x18 #x3C #x7E #x18 #x18 #x18 #x18 #x00 + #x18 #x18 #x18 #x18 #x7E #x3C #x18 #x00 + #x00 #x18 #x0C #xFE #x0C #x18 #x00 #x00 + #x00 #x30 #x60 #xFE #x60 #x30 #x00 #x00 + #x00 #x00 #xC0 #xC0 #xC0 #xFE #x00 #x00 + #x00 #x24 #x66 #xFF #x66 #x24 #x00 #x00 + #x00 #x18 #x3C #x7E #xFF #xFF #x00 #x00 + #x00 #xFF #xFF #x7E #x3C #x18 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x18 #x3C #x3C #x18 #x18 #x00 #x18 #x00 + #x6C #x6C #x6C #x00 #x00 #x00 #x00 #x00 + #x6C #x6C #xFE #x6C #xFE #x6C #x6C #x00 + #x18 #x7E #xC0 #x7C #x06 #xFC #x18 #x00 + #x00 #xC6 #xCC #x18 #x30 #x66 #xC6 #x00 + #x38 #x6C #x38 #x76 #xDC #xCC #x76 #x00 + #x30 #x30 #x60 #x00 #x00 #x00 #x00 #x00 + #x18 #x30 #x60 #x60 #x60 #x30 #x18 #x00 + #x60 #x30 #x18 #x18 #x18 #x30 #x60 #x00 + #x00 #x66 #x3C #xFF #x3C #x66 #x00 #x00 + #x00 #x18 #x18 #x7E #x18 #x18 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x30 + #x00 #x00 #x00 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x00 + #x06 #x0C #x18 #x30 #x60 #xC0 #x80 #x00 + #x7C #xCE #xDE #xF6 #xE6 #xC6 #x7C #x00 + #x30 #x70 #x30 #x30 #x30 #x30 #xFC #x00 + #x78 #xCC #x0C #x38 #x60 #xCC #xFC #x00 + #x78 #xCC #x0C #x38 #x0C #xCC #x78 #x00 + #x1C #x3C #x6C #xCC #xFE #x0C #x1E #x00 + #xFC #xC0 #xF8 #x0C #x0C #xCC #x78 #x00 + #x38 #x60 #xC0 #xF8 #xCC #xCC #x78 #x00 + #xFC #xCC #x0C #x18 #x30 #x30 #x30 #x00 + #x78 #xCC #xCC #x78 #xCC #xCC #x78 #x00 + #x78 #xCC #xCC #x7C #x0C #x18 #x70 #x00 + #x00 #x18 #x18 #x00 #x00 #x18 #x18 #x00 + #x00 #x18 #x18 #x00 #x00 #x18 #x18 #x30 + #x18 #x30 #x60 #xC0 #x60 #x30 #x18 #x00 + #x00 #x00 #x7E #x00 #x7E #x00 #x00 #x00 + #x60 #x30 #x18 #x0C #x18 #x30 #x60 #x00 + #x3C #x66 #x0C #x18 #x18 #x00 #x18 #x00 + #x7C #xC6 #xDE #xDE #xDC #xC0 #x7C #x00 + #x30 #x78 #xCC #xCC #xFC #xCC #xCC #x00 + #xFC #x66 #x66 #x7C #x66 #x66 #xFC #x00 + #x3C #x66 #xC0 #xC0 #xC0 #x66 #x3C #x00 + #xF8 #x6C #x66 #x66 #x66 #x6C #xF8 #x00 + #xFE #x62 #x68 #x78 #x68 #x62 #xFE #x00 + #xFE #x62 #x68 #x78 #x68 #x60 #xF0 #x00 + #x3C #x66 #xC0 #xC0 #xCE #x66 #x3A #x00 + #xCC #xCC #xCC #xFC #xCC #xCC #xCC #x00 + #x78 #x30 #x30 #x30 #x30 #x30 #x78 #x00 + #x1E #x0C #x0C #x0C #xCC #xCC #x78 #x00 + #xE6 #x66 #x6C #x78 #x6C #x66 #xE6 #x00 + #xF0 #x60 #x60 #x60 #x62 #x66 #xFE #x00 + #xC6 #xEE #xFE #xFE #xD6 #xC6 #xC6 #x00 + #xC6 #xE6 #xF6 #xDE #xCE #xC6 #xC6 #x00 + #x38 #x6C #xC6 #xC6 #xC6 #x6C #x38 #x00 + #xFC #x66 #x66 #x7C #x60 #x60 #xF0 #x00 + #x7C #xC6 #xC6 #xC6 #xD6 #x7C #x0E #x00 + #xFC #x66 #x66 #x7C #x6C #x66 #xE6 #x00 + #x7C #xC6 #xE0 #x78 #x0E #xC6 #x7C #x00 + #xFC #xB4 #x30 #x30 #x30 #x30 #x78 #x00 + #xCC #xCC #xCC #xCC #xCC #xCC #xFC #x00 + #xCC #xCC #xCC #xCC #xCC #x78 #x30 #x00 + #xC6 #xC6 #xC6 #xC6 #xD6 #xFE #x6C #x00 + #xC6 #xC6 #x6C #x38 #x6C #xC6 #xC6 #x00 + #xCC #xCC #xCC #x78 #x30 #x30 #x78 #x00 + #xFE #xC6 #x8C #x18 #x32 #x66 #xFE #x00 + #x78 #x60 #x60 #x60 #x60 #x60 #x78 #x00 + #xC0 #x60 #x30 #x18 #x0C #x06 #x02 #x00 + #x78 #x18 #x18 #x18 #x18 #x18 #x78 #x00 + #x10 #x38 #x6C #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF + #x30 #x30 #x18 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x78 #x0C #x7C #xCC #x76 #x00 + #xE0 #x60 #x60 #x7C #x66 #x66 #xDC #x00 + #x00 #x00 #x78 #xCC #xC0 #xCC #x78 #x00 + #x1C #x0C #x0C #x7C #xCC #xCC #x76 #x00 + #x00 #x00 #x78 #xCC #xFC #xC0 #x78 #x00 + #x38 #x6C #x64 #xF0 #x60 #x60 #xF0 #x00 + #x00 #x00 #x76 #xCC #xCC #x7C #x0C #xF8 + #xE0 #x60 #x6C #x76 #x66 #x66 #xE6 #x00 + #x30 #x00 #x70 #x30 #x30 #x30 #x78 #x00 + #x0C #x00 #x1C #x0C #x0C #xCC #xCC #x78 + #xE0 #x60 #x66 #x6C #x78 #x6C #xE6 #x00 + #x70 #x30 #x30 #x30 #x30 #x30 #x78 #x00 + #x00 #x00 #xCC #xFE #xFE #xD6 #xD6 #x00 + #x00 #x00 #xB8 #xCC #xCC #xCC #xCC #x00 + #x00 #x00 #x78 #xCC #xCC #xCC #x78 #x00 + #x00 #x00 #xDC #x66 #x66 #x7C #x60 #xF0 + #x00 #x00 #x76 #xCC #xCC #x7C #x0C #x1E + #x00 #x00 #xDC #x76 #x62 #x60 #xF0 #x00 + #x00 #x00 #x7C #xC0 #x70 #x1C #xF8 #x00 + #x10 #x30 #xFC #x30 #x30 #x34 #x18 #x00 + #x00 #x00 #xCC #xCC #xCC #xCC #x76 #x00 + #x00 #x00 #xCC #xCC #xCC #x78 #x30 #x00 + #x00 #x00 #xC6 #xC6 #xD6 #xFE #x6C #x00 + #x00 #x00 #xC6 #x6C #x38 #x6C #xC6 #x00 + #x00 #x00 #xCC #xCC #xCC #x7C #x0C #xF8 + #x00 #x00 #xFC #x98 #x30 #x64 #xFC #x00 + #x1C #x30 #x30 #xE0 #x30 #x30 #x1C #x00 + #x18 #x18 #x18 #x00 #x18 #x18 #x18 #x00 + #xE0 #x30 #x30 #x1C #x30 #x30 #xE0 #x00 + #x76 #xDC #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x10 #x38 #x6C #xC6 #xC6 #xFE #x00 + #x7C #xC6 #xC0 #xC6 #x7C #x0C #x06 #x7C + #x00 #xCC #x00 #xCC #xCC #xCC #x76 #x00 + #x1C #x00 #x78 #xCC #xFC #xC0 #x78 #x00 + #x7E #x81 #x3C #x06 #x3E #x66 #x3B #x00 + #xCC #x00 #x78 #x0C #x7C #xCC #x76 #x00 + #xE0 #x00 #x78 #x0C #x7C #xCC #x76 #x00 + #x30 #x30 #x78 #x0C #x7C #xCC #x76 #x00 + #x00 #x00 #x7C #xC6 #xC0 #x78 #x0C #x38 + #x7E #x81 #x3C #x66 #x7E #x60 #x3C #x00 + #xCC #x00 #x78 #xCC #xFC #xC0 #x78 #x00 + #xE0 #x00 #x78 #xCC #xFC #xC0 #x78 #x00 + #xCC #x00 #x70 #x30 #x30 #x30 #x78 #x00 + #x7C #x82 #x38 #x18 #x18 #x18 #x3C #x00 + #xE0 #x00 #x70 #x30 #x30 #x30 #x78 #x00 + #xC6 #x10 #x7C #xC6 #xFE #xC6 #xC6 #x00 + #x30 #x30 #x00 #x78 #xCC #xFC #xCC #x00 + #x1C #x00 #xFC #x60 #x78 #x60 #xFC #x00 + #x00 #x00 #x7F #x0C #x7F #xCC #x7F #x00 + #x3E #x6C #xCC #xFE #xCC #xCC #xCE #x00 + #x78 #x84 #x00 #x78 #xCC #xCC #x78 #x00 + #x00 #xCC #x00 #x78 #xCC #xCC #x78 #x00 + #x00 #xE0 #x00 #x78 #xCC #xCC #x78 #x00 + #x78 #x84 #x00 #xCC #xCC #xCC #x76 #x00 + #x00 #xE0 #x00 #xCC #xCC #xCC #x76 #x00 + #x00 #xCC #x00 #xCC #xCC #x7C #x0C #xF8 + #xC3 #x18 #x3C #x66 #x66 #x3C #x18 #x00 + #xCC #x00 #xCC #xCC #xCC #xCC #x78 #x00 + #x18 #x18 #x7E #xC0 #xC0 #x7E #x18 #x18 + #x38 #x6C #x64 #xF0 #x60 #xE6 #xFC #x00 + #xCC #xCC #x78 #x30 #xFC #x30 #xFC #x30 + #xF8 #xCC #xCC #xFA #xC6 #xCF #xC6 #xC3 + #x0E #x1B #x18 #x3C #x18 #x18 #xD8 #x70 + #x1C #x00 #x78 #x0C #x7C #xCC #x76 #x00 + #x38 #x00 #x70 #x30 #x30 #x30 #x78 #x00 + #x00 #x1C #x00 #x78 #xCC #xCC #x78 #x00 + #x00 #x1C #x00 #xCC #xCC #xCC #x76 #x00 + #x00 #xF8 #x00 #xB8 #xCC #xCC #xCC #x00 + #xFC #x00 #xCC #xEC #xFC #xDC #xCC #x00 + #x3C #x6C #x6C #x3E #x00 #x7E #x00 #x00 + #x38 #x6C #x6C #x38 #x00 #x7C #x00 #x00 + #x18 #x00 #x18 #x18 #x30 #x66 #x3C #x00 + #x00 #x00 #x00 #xFC #xC0 #xC0 #x00 #x00 + #x00 #x00 #x00 #xFC #x0C #x0C #x00 #x00 + #xC6 #xCC #xD8 #x36 #x6B #xC2 #x84 #x0F + #xC3 #xC6 #xCC #xDB #x37 #x6D #xCF #x03 + #x18 #x00 #x18 #x18 #x3C #x3C #x18 #x00 + #x00 #x33 #x66 #xCC #x66 #x33 #x00 #x00 + #x00 #xCC #x66 #x33 #x66 #xCC #x00 #x00 + #x22 #x88 #x22 #x88 #x22 #x88 #x22 #x88 + #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA + #xDB #xF6 #xDB #x6F #xDB #x7E #xD7 #xED + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #xF8 #x18 #x18 #x18 + #x18 #x18 #xF8 #x18 #xF8 #x18 #x18 #x18 + #x36 #x36 #x36 #x36 #xF6 #x36 #x36 #x36 + #x00 #x00 #x00 #x00 #xFE #x36 #x36 #x36 + #x00 #x00 #xF8 #x18 #xF8 #x18 #x18 #x18 + #x36 #x36 #xF6 #x06 #xF6 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x00 #x00 #xFE #x06 #xF6 #x36 #x36 #x36 + #x36 #x36 #xF6 #x06 #xFE #x00 #x00 #x00 + #x36 #x36 #x36 #x36 #xFE #x00 #x00 #x00 + #x18 #x18 #xF8 #x18 #xF8 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #xF8 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x1F #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #xFF #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #xFF #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x1F #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #xFF #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #xFF #x18 #x18 #x18 + #x18 #x18 #x1F #x18 #x1F #x18 #x18 #x18 + #x36 #x36 #x36 #x36 #x37 #x36 #x36 #x36 + #x36 #x36 #x37 #x30 #x3F #x00 #x00 #x00 + #x00 #x00 #x3F #x30 #x37 #x36 #x36 #x36 + #x36 #x36 #xF7 #x00 #xFF #x00 #x00 #x00 + #x00 #x00 #xFF #x00 #xF7 #x36 #x36 #x36 + #x36 #x36 #x37 #x30 #x37 #x36 #x36 #x36 + #x00 #x00 #xFF #x00 #xFF #x00 #x00 #x00 + #x36 #x36 #xF7 #x00 #xF7 #x36 #x36 #x36 + #x18 #x18 #xFF #x00 #xFF #x00 #x00 #x00 + #x36 #x36 #x36 #x36 #xFF #x00 #x00 #x00 + #x00 #x00 #xFF #x00 #xFF #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #xFF #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x3F #x00 #x00 #x00 + #x18 #x18 #x1F #x18 #x1F #x00 #x00 #x00 + #x00 #x00 #x1F #x18 #x1F #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #x3F #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #xFF #x36 #x36 #x36 + #x18 #x18 #xFF #x18 #xFF #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #xF8 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x1F #x18 #x18 #x18 + #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF + #x00 #x00 #x00 #x00 #xFF #xFF #xFF #xFF + #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 + #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F + #xFF #xFF #xFF #xFF #x00 #x00 #x00 #x00 + #x00 #x00 #x76 #xDC #xC8 #xDC #x76 #x00 + #x00 #x78 #xCC #xF8 #xCC #xF8 #xC0 #xC0 + #x00 #xFC #xCC #xC0 #xC0 #xC0 #xC0 #x00 + #x00 #x00 #xFE #x6C #x6C #x6C #x6C #x00 + #xFC #xCC #x60 #x30 #x60 #xCC #xFC #x00 + #x00 #x00 #x7E #xD8 #xD8 #xD8 #x70 #x00 + #x00 #x66 #x66 #x66 #x66 #x7C #x60 #xC0 + #x00 #x76 #xDC #x18 #x18 #x18 #x18 #x00 + #xFC #x30 #x78 #xCC #xCC #x78 #x30 #xFC + #x38 #x6C #xC6 #xFE #xC6 #x6C #x38 #x00 + #x38 #x6C #xC6 #xC6 #x6C #x6C #xEE #x00 + #x1C #x30 #x18 #x7C #xCC #xCC #x78 #x00 + #x00 #x00 #x7E #xDB #xDB #x7E #x00 #x00 + #x06 #x0C #x7E #xDB #xDB #x7E #x60 #xC0 + #x38 #x60 #xC0 #xF8 #xC0 #x60 #x38 #x00 + #x78 #xCC #xCC #xCC #xCC #xCC #xCC #x00 + #x00 #x7E #x00 #x7E #x00 #x7E #x00 #x00 + #x18 #x18 #x7E #x18 #x18 #x00 #x7E #x00 + #x60 #x30 #x18 #x30 #x60 #x00 #xFC #x00 + #x18 #x30 #x60 #x30 #x18 #x00 #xFC #x00 + #x0E #x1B #x1B #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #xD8 #xD8 #x70 + #x18 #x18 #x00 #x7E #x00 #x18 #x18 #x00 + #x00 #x76 #xDC #x00 #x76 #xDC #x00 #x00 + #x38 #x6C #x6C #x38 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x18 #x00 #x00 #x00 + #x0F #x0C #x0C #x0C #xEC #x6C #x3C #x1C + #x58 #x6C #x6C #x6C #x6C #x00 #x00 #x00 + #x70 #x98 #x30 #x60 #xF8 #x00 #x00 #x00 + #x00 #x00 #x3C #x3C #x3C #x3C #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 }) + +(defconstant +vga-font-8x16+ + #{#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x7E #x81 #xA5 #x81 #x81 #xBD #x99 #x81 #x81 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x7E #xFF #xDB #xFF #xFF #xC3 #xE7 #xFF #xFF #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x6C #xFE #xFE #xFE #xFE #x7C #x38 #x10 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x10 #x38 #x7C #xFE #x7C #x38 #x10 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x18 #x3C #x3C #xE7 #xE7 #xE7 #x99 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x18 #x3C #x7E #xFF #xFF #x7E #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x18 #x3C #x3C #x18 #x00 #x00 #x00 #x00 #x00 #x00 + #xFF #xFF #xFF #xFF #xFF #xFF #xE7 #xC3 #xC3 #xE7 #xFF #xFF #xFF #xFF #xFF #xFF + #x00 #x00 #x00 #x00 #x00 #x3C #x66 #x42 #x42 #x66 #x3C #x00 #x00 #x00 #x00 #x00 + #xFF #xFF #xFF #xFF #xFF #xC3 #x99 #xBD #xBD #x99 #xC3 #xFF #xFF #xFF #xFF #xFF + #x00 #x00 #x1E #x0E #x1A #x32 #x78 #xCC #xCC #xCC #xCC #x78 #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x66 #x66 #x66 #x66 #x3C #x18 #x7E #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x3F #x33 #x3F #x30 #x30 #x30 #x30 #x70 #xF0 #xE0 #x00 #x00 #x00 #x00 + #x00 #x00 #x7F #x63 #x7F #x63 #x63 #x63 #x63 #x67 #xE7 #xE6 #xC0 #x00 #x00 #x00 + #x00 #x00 #x00 #x18 #x18 #xDB #x3C #xE7 #x3C #xDB #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x80 #xC0 #xE0 #xF0 #xF8 #xFE #xF8 #xF0 #xE0 #xC0 #x80 #x00 #x00 #x00 #x00 + #x00 #x02 #x06 #x0E #x1E #x3E #xFE #x3E #x1E #x0E #x06 #x02 #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x3C #x7E #x18 #x18 #x18 #x18 #x7E #x3C #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x66 #x66 #x66 #x66 #x66 #x66 #x66 #x00 #x66 #x66 #x00 #x00 #x00 #x00 + #x00 #x00 #x7F #xDB #xDB #xDB #x7B #x1B #x1B #x1B #x1B #x1B #x00 #x00 #x00 #x00 + #x00 #x7C #xC6 #x60 #x38 #x6C #xC6 #xC6 #x6C #x38 #x0C #xC6 #x7C #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFE #xFE #xFE #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x3C #x7E #x18 #x18 #x18 #x18 #x7E #x3C #x18 #x7E #x00 #x00 #x00 + #x00 #x00 #x18 #x3C #x7E #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x7E #x3C #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x18 #x0C #xFE #x0C #x18 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x30 #x60 #xFE #x60 #x30 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xC0 #xC0 #xC0 #xC0 #xFE #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x28 #x6C #xFE #x6C #x28 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x10 #x38 #x38 #x7C #x7C #xFE #xFE #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #xFE #xFE #x7C #x7C #x38 #x38 #x10 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x3C #x3C #x3C #x18 #x18 #x18 #x00 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x66 #x66 #x66 #x24 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x6C #x6C #xFE #x6C #x6C #x6C #xFE #x6C #x6C #x00 #x00 #x00 #x00 + #x18 #x18 #x7C #xC6 #xC2 #xC0 #x7C #x06 #x86 #xC6 #x7C #x18 #x18 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #xC2 #xC6 #x0C #x18 #x30 #x60 #xC6 #x86 #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x6C #x6C #x38 #x76 #xDC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x30 #x30 #x30 #x60 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x0C #x18 #x30 #x30 #x30 #x30 #x30 #x30 #x18 #x0C #x00 #x00 #x00 #x00 + #x00 #x00 #x30 #x18 #x0C #x0C #x0C #x0C #x0C #x0C #x18 #x30 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x66 #x3C #xFF #x3C #x66 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x7E #x18 #x18 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x18 #x30 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFE #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x02 #x06 #x0C #x18 #x30 #x60 #xC0 #x80 #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #xCE #xD6 #xD6 #xE6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x38 #x78 #x18 #x18 #x18 #x18 #x18 #x18 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #x06 #x0C #x18 #x30 #x60 #xC0 #xC6 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #x06 #x06 #x3C #x06 #x06 #x06 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x0C #x1C #x3C #x6C #xCC #xFE #x0C #x0C #x0C #x1E #x00 #x00 #x00 #x00 + #x00 #x00 #xFE #xC0 #xC0 #xC0 #xFC #x0E #x06 #x06 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x60 #xC0 #xC0 #xFC #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #xFE #xC6 #x06 #x06 #x0C #x18 #x30 #x30 #x30 #x30 #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #xC6 #x7C #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #xC6 #x7E #x06 #x06 #x06 #x0C #x78 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 #x18 #x18 #x30 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x06 #x0C #x18 #x30 #x60 #x30 #x18 #x0C #x06 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #xFE #x00 #x00 #xFE #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x60 #x30 #x18 #x0C #x06 #x0C #x18 #x30 #x60 #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #x0C #x18 #x18 #x18 #x00 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x7C #xC6 #xC6 #xDE #xDE #xDE #xDC #xC0 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x10 #x38 #x6C #xC6 #xC6 #xFE #xC6 #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #xFC #x66 #x66 #x66 #x7C #x66 #x66 #x66 #x66 #xFC #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x66 #xC2 #xC0 #xC0 #xC0 #xC0 #xC2 #x66 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #xF8 #x6C #x66 #x66 #x66 #x66 #x66 #x66 #x6C #xF8 #x00 #x00 #x00 #x00 + #x00 #x00 #xFE #x66 #x62 #x68 #x78 #x68 #x60 #x62 #x66 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #xFE #x66 #x62 #x68 #x78 #x68 #x60 #x60 #x60 #xF0 #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x66 #xC2 #xC0 #xC0 #xDE #xC6 #xC6 #x66 #x3A #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #xC6 #xC6 #xFE #xC6 #xC6 #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x1E #x0C #x0C #x0C #x0C #x0C #xCC #xCC #xCC #x78 #x00 #x00 #x00 #x00 + #x00 #x00 #xE6 #x66 #x6C #x6C #x78 #x78 #x6C #x66 #x66 #xE6 #x00 #x00 #x00 #x00 + #x00 #x00 #xF0 #x60 #x60 #x60 #x60 #x60 #x60 #x62 #x66 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xEE #xFE #xFE #xD6 #xC6 #xC6 #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xE6 #xF6 #xFE #xDE #xCE #xC6 #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x6C #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x6C #x38 #x00 #x00 #x00 #x00 + #x00 #x00 #xFC #x66 #x66 #x66 #x7C #x60 #x60 #x60 #x60 #xF0 #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xD6 #xDE #x7C #x0C #x0E #x00 #x00 + #x00 #x00 #xFC #x66 #x66 #x66 #x7C #x6C #x66 #x66 #x66 #xE6 #x00 #x00 #x00 #x00 + #x00 #x00 #x7C #xC6 #xC6 #x60 #x38 #x0C #x06 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x7E #x7E #x5A #x18 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x6C #x38 #x10 #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xD6 #xD6 #xFE #x6C #x6C #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #x6C #x6C #x38 #x38 #x6C #x6C #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x66 #x66 #x66 #x66 #x3C #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #xFE #xC6 #x86 #x0C #x18 #x30 #x60 #xC2 #xC6 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x30 #x30 #x30 #x30 #x30 #x30 #x30 #x30 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x80 #xC0 #xE0 #x70 #x38 #x1C #x0E #x06 #x02 #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x0C #x0C #x0C #x0C #x0C #x0C #x0C #x0C #x3C #x00 #x00 #x00 #x00 + #x10 #x38 #x6C #xC6 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF #x00 #x00 + #x30 #x30 #x18 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #xE0 #x60 #x60 #x78 #x6C #x66 #x66 #x66 #x66 #xDC #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7C #xC6 #xC0 #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x1C #x0C #x0C #x3C #x6C #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7C #xC6 #xFE #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x6C #x64 #x60 #xF0 #x60 #x60 #x60 #x60 #xF0 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x76 #xCC #xCC #xCC #xCC #xCC #x7C #x0C #xCC #x78 #x00 + #x00 #x00 #xE0 #x60 #x60 #x6C #x76 #x66 #x66 #x66 #x66 #xE6 #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x18 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x06 #x06 #x00 #x0E #x06 #x06 #x06 #x06 #x06 #x06 #x66 #x66 #x3C #x00 + #x00 #x00 #xE0 #x60 #x60 #x66 #x6C #x78 #x78 #x6C #x66 #xE6 #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xEC #xFE #xD6 #xD6 #xD6 #xD6 #xD6 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xDC #x66 #x66 #x66 #x66 #x66 #x66 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xDC #x66 #x66 #x66 #x66 #x66 #x7C #x60 #x60 #xF0 #x00 + #x00 #x00 #x00 #x00 #x00 #x76 #xCC #xCC #xCC #xCC #xCC #x7C #x0C #x0C #x1E #x00 + #x00 #x00 #x00 #x00 #x00 #xDC #x76 #x62 #x60 #x60 #x60 #xF0 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7C #xC6 #x60 #x38 #x0C #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x10 #x30 #x30 #xFC #x30 #x30 #x30 #x30 #x36 #x1C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xCC #xCC #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x66 #x66 #x66 #x66 #x66 #x3C #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xC6 #xC6 #xC6 #xD6 #xD6 #xFE #x6C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xC6 #x6C #x38 #x38 #x38 #x6C #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x7E #x06 #x0C #xF8 #x00 + #x00 #x00 #x00 #x00 #x00 #xFE #xCC #x18 #x30 #x60 #xC6 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x0E #x18 #x18 #x18 #x70 #x18 #x18 #x18 #x18 #x0E #x00 #x00 #x00 #x00 + #x00 #x00 #x18 #x18 #x18 #x18 #x00 #x18 #x18 #x18 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x70 #x18 #x18 #x18 #x0E #x18 #x18 #x18 #x18 #x70 #x00 #x00 #x00 #x00 + #x00 #x00 #x76 #xDC #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x10 #x38 #x6C #xC6 #xC6 #xC6 #xFE #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x3C #x66 #xC2 #xC0 #xC0 #xC0 #xC2 #x66 #x3C #x0C #x06 #x7C #x00 #x00 + #x00 #x00 #xCC #xCC #x00 #xCC #xCC #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x0C #x18 #x30 #x00 #x7C #xC6 #xFE #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x10 #x38 #x6C #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #xCC #xCC #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x60 #x30 #x18 #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x38 #x6C #x38 #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x3C #x66 #x60 #x60 #x66 #x3C #x0C #x06 #x3C #x00 #x00 #x00 + #x00 #x10 #x38 #x6C #x00 #x7C #xC6 #xFE #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #x00 #x7C #xC6 #xFE #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x60 #x30 #x18 #x00 #x7C #xC6 #xFE #xC0 #xC0 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x66 #x66 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x18 #x3C #x66 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x60 #x30 #x18 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #xC6 #xC6 #x10 #x38 #x6C #xC6 #xC6 #xFE #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x38 #x6C #x38 #x00 #x38 #x6C #xC6 #xC6 #xFE #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x18 #x30 #x60 #x00 #xFE #x66 #x60 #x7C #x60 #x60 #x66 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xCC #x76 #x36 #x7E #xD8 #xD8 #x6E #x00 #x00 #x00 #x00 + #x00 #x00 #x3E #x6C #xCC #xCC #xFE #xCC #xCC #xCC #xCC #xCE #x00 #x00 #x00 #x00 + #x00 #x10 #x38 #x6C #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x60 #x30 #x18 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x30 #x78 #xCC #x00 #xCC #xCC #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x60 #x30 #x18 #x00 #xCC #xCC #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #xC6 #xC6 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x7E #x06 #x0C #x78 #x00 + #x00 #xC6 #xC6 #x00 #x38 #x6C #xC6 #xC6 #xC6 #xC6 #x6C #x38 #x00 #x00 #x00 #x00 + #x00 #xC6 #xC6 #x00 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x18 #x18 #x3C #x66 #x60 #x60 #x60 #x66 #x3C #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x38 #x6C #x64 #x60 #xF0 #x60 #x60 #x60 #x60 #xE6 #xFC #x00 #x00 #x00 #x00 + #x00 #x00 #x66 #x66 #x3C #x18 #x7E #x18 #x7E #x18 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #xF8 #xCC #xCC #xF8 #xC4 #xCC #xDE #xCC #xCC #xCC #xC6 #x00 #x00 #x00 #x00 + #x00 #x0E #x1B #x18 #x18 #x18 #x7E #x18 #x18 #x18 #x18 #x18 #xD8 #x70 #x00 #x00 + #x00 #x18 #x30 #x60 #x00 #x78 #x0C #x7C #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x0C #x18 #x30 #x00 #x38 #x18 #x18 #x18 #x18 #x18 #x3C #x00 #x00 #x00 #x00 + #x00 #x18 #x30 #x60 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x18 #x30 #x60 #x00 #xCC #xCC #xCC #xCC #xCC #xCC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #x76 #xDC #x00 #xDC #x66 #x66 #x66 #x66 #x66 #x66 #x00 #x00 #x00 #x00 + #x76 #xDC #x00 #xC6 #xE6 #xF6 #xFE #xDE #xCE #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x3C #x6C #x6C #x3E #x00 #x7E #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x38 #x6C #x6C #x38 #x00 #x7C #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x30 #x30 #x00 #x30 #x30 #x60 #xC0 #xC6 #xC6 #x7C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #xFE #xC0 #xC0 #xC0 #xC0 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #xFE #x06 #x06 #x06 #x06 #x00 #x00 #x00 #x00 #x00 + #x00 #xC0 #xC0 #xC2 #xC6 #xCC #x18 #x30 #x60 #xCE #x93 #x06 #x0C #x1F #x00 #x00 + #x00 #xC0 #xC0 #xC2 #xC6 #xCC #x18 #x30 #x66 #xCE #x9A #x3F #x06 #x0F #x00 #x00 + #x00 #x00 #x18 #x18 #x00 #x18 #x18 #x18 #x3C #x3C #x3C #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x33 #x66 #xCC #x66 #x33 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xCC #x66 #x33 #x66 #xCC #x00 #x00 #x00 #x00 #x00 #x00 + #x11 #x44 #x11 #x44 #x11 #x44 #x11 #x44 #x11 #x44 #x11 #x44 #x11 #x44 #x11 #x44 + #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA #x55 #xAA + #xDD #x77 #xDD #x77 #xDD #x77 #xDD #x77 #xDD #x77 #xDD #x77 #xDD #x77 #xDD #x77 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #xF8 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #xF8 #x18 #xF8 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #xF6 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFE #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x00 #x00 #x00 #x00 #x00 #xF8 #x18 #xF8 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x36 #x36 #x36 #x36 #x36 #xF6 #x06 #xF6 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x00 #x00 #x00 #x00 #x00 #xFE #x06 #xF6 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #xF6 #x06 #xFE #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #xFE #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #x18 #xF8 #x18 #xF8 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xF8 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x1F #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x1F #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #xFF #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x1F #x18 #x1F #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x37 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x37 #x30 #x3F #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x3F #x30 #x37 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #xF7 #x00 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xFF #x00 #xF7 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x37 #x30 #x37 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x00 #x00 #x00 #x00 #x00 #xFF #x00 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x36 #x36 #x36 #x36 #x36 #xF7 #x00 #xF7 #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x18 #x18 #x18 #x18 #x18 #xFF #x00 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xFF #x00 #xFF #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x3F #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x18 #x18 #x18 #x18 #x18 #x1F #x18 #x1F #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x1F #x18 #x1F #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x3F #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x36 #x36 #x36 #x36 #x36 #x36 #x36 #xFF #x36 #x36 #x36 #x36 #x36 #x36 #x36 #x36 + #x18 #x18 #x18 #x18 #x18 #xFF #x18 #xFF #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #xF8 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x1F #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF + #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 #xF0 + #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F #x0F + #xFF #xFF #xFF #xFF #xFF #xFF #xFF #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x76 #xDC #xD8 #xD8 #xD8 #xDC #x76 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #xFC #xC6 #xFC #xC6 #xC6 #xFC #xC0 #xC0 #xC0 #x00 #x00 + #x00 #x00 #xFE #xC6 #xC6 #xC0 #xC0 #xC0 #xC0 #xC0 #xC0 #xC0 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x80 #xFE #x6C #x6C #x6C #x6C #x6C #x6C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #xFE #xC6 #x60 #x30 #x18 #x30 #x60 #xC6 #xFE #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7E #xD8 #xD8 #xD8 #xD8 #xD8 #x70 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x66 #x66 #x66 #x66 #x66 #x7C #x60 #x60 #xC0 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x76 #xDC #x18 #x18 #x18 #x18 #x18 #x18 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x7E #x18 #x3C #x66 #x66 #x66 #x3C #x18 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x38 #x6C #xC6 #xC6 #xFE #xC6 #xC6 #x6C #x38 #x00 #x00 #x00 #x00 + #x00 #x00 #x38 #x6C #xC6 #xC6 #xC6 #x6C #x6C #x6C #x6C #xEE #x00 #x00 #x00 #x00 + #x00 #x00 #x1E #x30 #x18 #x0C #x3E #x66 #x66 #x66 #x66 #x3C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x7E #xDB #xDB #xDB #x7E #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x03 #x06 #x7E #xCF #xDB #xF3 #x7E #x60 #xC0 #x00 #x00 #x00 #x00 + #x00 #x00 #x1C #x30 #x60 #x60 #x7C #x60 #x60 #x60 #x30 #x1C #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x7C #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #xC6 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #xFE #x00 #x00 #xFE #x00 #x00 #xFE #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x18 #x18 #x7E #x18 #x18 #x00 #x00 #xFF #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x30 #x18 #x0C #x06 #x0C #x18 #x30 #x00 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x0C #x18 #x30 #x60 #x30 #x18 #x0C #x00 #x7E #x00 #x00 #x00 #x00 + #x00 #x00 #x0E #x1B #x1B #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 + #x18 #x18 #x18 #x18 #x18 #x18 #x18 #x18 #xD8 #xD8 #xD8 #x70 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x18 #x18 #x00 #x7E #x00 #x18 #x18 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x76 #xDC #x00 #x76 #xDC #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x38 #x6C #x6C #x38 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x18 #x18 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x18 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x0F #x0C #x0C #x0C #x0C #x0C #xEC #x6C #x6C #x3C #x1C #x00 #x00 #x00 #x00 + #x00 #xD8 #x6C #x6C #x6C #x6C #x6C #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x70 #x98 #x30 #x60 #xC8 #xF8 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x7C #x7C #x7C #x7C #x7C #x7C #x7C #x00 #x00 #x00 #x00 #x00 + #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 }) + +

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/textmode.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv14722 Modified Files: textmode.lisp Log Message: Added some more VGA interfacing. Try e.g. (set-textmode +vga-state-80x50+). Date: Wed Apr 21 12:24:10 2004 Author: ffjeld Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.5 movitz/losp/x86-pc/textmode.lisp:1.6 --- movitz/losp/x86-pc/textmode.lisp:1.5 Fri Apr 16 15:17:22 2004 +++ movitz/losp/x86-pc/textmode.lisp Wed Apr 21 12:24:10 2004 @@ -4,12 +4,12 @@ ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: textmode.lisp -;;;; Description: A primitive 80x25 text-mode console driver. +;;;; Description: A primitive VGA text-mode console driver. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.5 2004/04/16 19:17:22 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.6 2004/04/21 16:24:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -26,22 +26,22 @@ (define-global-variable *screen* (vga-memory-map)) +(define-global-variable *screen-width* + (vga-horizontal-display-end)) + +(define-global-variable *screen-stride* + (vga-horizontal-display-end)) + (define-global-variable *cursor-x* - (rem (vga-cursor-location) 80)) + (rem (vga-cursor-location) *screen-stride*)) (define-global-variable *cursor-y* - (truncate (vga-cursor-location) 80)) - -(define-global-variable *screen-width* - (vga-horizontal-display-end)) + (truncate (vga-cursor-location) *screen-stride*)) (define-global-variable *screen-height* (truncate (vga-vertical-display-end) (vga-character-height))) -(define-global-variable *screen-stride* - (vga-horizontal-display-end)) - (defun move-vga-cursor (x y) (let ((dest (+ x (* y *screen-stride*)))) (setf (vga-cursor-location) dest))) @@ -102,26 +102,26 @@ nil) (defun textmode-copy-line (destination source count) - (check-type count (integer 0 511)) + (check-type count (and (integer 0 511) (satisfies evenp))) (check-type source (unsigned-byte 20)) (check-type destination (unsigned-byte 20)) (with-inline-assembly (:returns :nothing) (:compile-form (:result-mode :eax) source) - (:compile-form (:result-mode :ebx) destination) - (:compile-form (:result-mode :edx) count) - (:andl #x-16 :eax) - (:andl #x-16 :ebx) - (:andl #x-8 :edx) + (:compile-form (:result-mode :edx) destination) + (:compile-form (:result-mode :ebx) count) + (:std) ; Only EBX is now (potential) GC root + (:andl #x-8 :ebx) ; ..so make sure EBX is a fixnum (:shrl 2 :eax) - (:shrl 2 :ebx) - (:shrl 1 :edx) + (:shrl 2 :edx) + (:shrl 1 :ebx) (:jz 'end-copy-loop) copy-loop - ((:gs-override) :movl (:eax :edx -4) :ecx) - ((:gs-override) :movl :ecx (:ebx :edx -4)) - (:subl 4 :edx) + ((:gs-override) :movl (:eax :ebx -4) :ecx) + ((:gs-override) :movl :ecx (:edx :ebx -4)) + (:subl 4 :ebx) (:ja 'copy-loop) - end-copy-loop)) + end-copy-loop + (:cld))) (defun textmode-scroll-down () (declare (special muerte.lib::*scroll-offset*)) @@ -133,12 +133,12 @@ do (textmode-copy-line dst src *screen-width*))) (defun textmode-clear-line (from-column line) - (let ((dest (+ *screen* (* line 80 2) (* from-column 2)))) - (dotimes (i (- 80 from-column)) + (let ((dest (+ *screen* (* line *screen-width* 2) (* from-column 2)))) + (dotimes (i (- *screen-width* from-column)) (setf (memref-int dest 0 i :unsigned-byte16 t) #x0720)))) (defun write-word (word) - (let ((dest (+ *screen* (* *cursor-x* 2) (* *cursor-y* 160)))) + (let ((dest (+ *screen* (* *cursor-x* 2) (* *cursor-y* *screen-width* 2)))) (setf (memref-int dest 0 0 :unsigned-byte16 t) #x0723 (memref-int dest 0 1 :unsigned-byte16 t) #x0778) (write-word-lowlevel word (+ dest 4)) @@ -238,3 +238,22 @@ (cursor-x (setf (cursor-column) (car args))) (cursor-y (setf (cursor-row) (car args))))) (t (error "Unknown op: ~S" op)))))) + + +(defun set-textmode (mode-state) + (setf (vga-state) mode-state) + (ecase (vga-character-height) + (8 (write-font +vga-font-8x8+ 8)) + (16 (write-font +vga-font-8x16+ 16))) + (setf *screen-width* + (vga-horizontal-display-end)) + (setf *screen-height* + (truncate (vga-vertical-display-end) + (vga-character-height))) + (setf *screen-stride* + (vga-horizontal-display-end)) + (setf *cursor-x* + (min (1- *screen-width*) *cursor-x*)) + (setf *cursor-y* + (min (1- *screen-height*) *cursor-y*)) + (values))

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/package.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv14432 Modified Files: package.lisp Log Message: Added some more VGA interfacing. Try e.g. (set-textmode +vga-state-80x50+). Date: Wed Apr 21 12:24:05 2004 Author: ffjeld Index: movitz/losp/x86-pc/package.lisp diff -u movitz/losp/x86-pc/package.lisp:1.3 movitz/losp/x86-pc/package.lisp:1.4 --- movitz/losp/x86-pc/package.lisp:1.3 Mon Jan 19 06:23:52 2004 +++ movitz/losp/x86-pc/package.lisp Wed Apr 21 12:24:05 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 20:30:28 2001 ;;;; -;;;; $Id: package.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.4 2004/04/21 16:24:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -51,7 +51,14 @@ #:+pit8253-nanosecond-period+ #:textmode-console - #:vga-text-console + #:vga-text-console + #:set-textmode + #:+vga-state-80x25+ + #:+vga-state-80x50+ + #:+vga-state-40x25+ + #:+vga-state-40x50+ + #:+vga-state-90x30+ + #:+vga-state-90x60+ #:pic8259-irq-mask #:pic8259-end-of-interrupt

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv1444 Modified Files: storage-types.lisp Log Message: Re-worked a bit how hash-tables are translated to movitz. Increased their size quite a bit, so as to reduce the number of collisions. Date: Wed Apr 21 12:22:56 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.15 movitz/storage-types.lisp:1.16 --- movitz/storage-types.lisp:1.15 Mon Mar 29 09:35:17 2004 +++ movitz/storage-types.lisp Wed Apr 21 12:22:56 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.15 2004/03/29 14:35:17 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.16 2004/04/21 16:22:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1126,7 +1126,7 @@ (defun make-movitz-hash-table (lisp-hash) (let* ((undef (movitz-read +undefined-hash-key+)) - (hash-size (* 4 (max 8 (hash-table-count lisp-hash)))) + (hash-size (* 2 (truncate (+ 25 (hash-table-count lisp-hash)) 1/3))) (bucket-data (make-array hash-size :initial-element undef))) (multiple-value-bind (hash-test hash-sxhash) (ecase (hash-table-test lisp-hash) @@ -1139,8 +1139,8 @@ do (loop for pos = (rem (* 2 (movitz-sxhash movitz-key)) hash-size) then (rem (+ 2 pos) hash-size) until (eq undef (svref bucket-data pos)) -;;; do (warn "Hash collision at ~D of ~D: ~S ~S!" -;;; pos hash-size movitz-key (elt bucket-list pos)) +;;; do (warn "Hash collision at ~D of ~D: ~S ~S!" +;;; pos hash-size movitz-key (elt bucket-data pos)) ;;; finally (warn "Hash: pos ~D: ~S ~S" pos movitz-key movitz-value) ;;; finally (when (equal "NIL" key) ;;; (warn "key: ~S, value: ~S pos: ~S" movitz-key movitz-value pos)) @@ -1149,7 +1149,7 @@ (let* ((bucket (make-movitz-vector hash-size :initial-contents bucket-data)) (lh (make-instance 'movitz-struct :name (movitz-read 'muerte::hash-table) - :length 2 + :length 3 :slot-values (list hash-test ; test-function bucket hash-sxhash)))) @@ -1160,7 +1160,7 @@ (assert (= 3 (length (movitz-struct-slot-values movitz-hash)))) (let* ((undef (movitz-read +undefined-hash-key+)) (old-bucket (second (movitz-struct-slot-values movitz-hash))) - (hash-size (* 2 (truncate (hash-table-count lisp-hash) 2/3))) + (hash-size (* 2 (truncate (+ 25 (hash-table-count lisp-hash)) 1/3))) (bucket-data (or (and old-bucket (= (length (movitz-vector-symbolic-data old-bucket)) hash-size) @@ -1178,12 +1178,14 @@ then (rem (+ 2 pos) hash-size) until (eq undef (svref bucket-data pos)) ;;; do (warn "Hash collision at ~D of ~D: ~S ~S!" -;;; pos hash-size movitz-key (elt bucket-list pos)) +;;; pos hash-size movitz-key (elt bucket-data pos)) ;;; finally (warn "Hash: pos ~D: ~S ~S" pos movitz-key movitz-value) ;;; finally (when (equal "NIL" key) ;;; (warn "key: ~S, value: ~S pos: ~S" movitz-key movitz-value pos)) - finally (setf (svref bucket-data pos) movitz-key - (svref bucket-data (1+ pos)) movitz-value))) + finally + (setf (svref bucket-data pos) movitz-key + (svref bucket-data (1+ pos)) movitz-value))) + (setf *foo* bucket-data) (setf (first (movitz-struct-slot-values movitz-hash)) hash-test (second (movitz-struct-slot-values movitz-hash)) (movitz-read bucket-data) (third (movitz-struct-slot-values movitz-hash)) hash-sxhash)

1 0

[movitz-cvs] CVS update: movitz/packages.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv14991 Modified Files: packages.lisp Log Message: More symbols. Date: Wed Apr 21 12:00:25 2004 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.20 movitz/packages.lisp:1.21 --- movitz/packages.lisp:1.20 Mon Apr 19 11:04:32 2004 +++ movitz/packages.lisp Wed Apr 21 12:00:25 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Nov 15 21:39:55 2003 ;;;; -;;;; $Id: packages.lisp,v 1.20 2004/04/19 15:04:32 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.21 2004/04/21 16:00:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1191,6 +1191,7 @@ #:vector-u32 #:pointer #:basic-restart + #:illegal-object #:run-time-context make-funobj

1 0

[movitz-cvs] CVS update: movitz/movitz.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv24597 Modified Files: movitz.lisp Log Message: Added syntax #{...} for arrays specialized to (unsigned-byte 8). Date: Wed Apr 21 11:09:25 2004 Author: ffjeld Index: movitz/movitz.lisp diff -u movitz/movitz.lisp:1.6 movitz/movitz.lisp:1.7 --- movitz/movitz.lisp:1.6 Wed Apr 14 08:37:23 2004 +++ movitz/movitz.lisp Wed Apr 21 11:09:25 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.6 2004/04/14 12:37:23 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.7 2004/04/21 15:09:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -61,6 +61,13 @@ (declare (ignore subchar arg)) (list 'muerte.common-lisp::function (read stream t nil t)))) + (set-dispatch-macro-character #\# #\{ + (lambda (stream subchar arg) + (declare (ignore subchar arg)) + (let ((data (read-delimited-list #\} stream))) + (make-movitz-vector (length data) + :element-type 'movitz-unboxed-integer-u8 + :initial-contents data)))) (set-macro-character #\` (lambda (stream char) (declare (ignore char)) (let ((*bq-level* (1+ *bq-level*)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16271 Modified Files: primitive-functions.lisp Log Message: Various minor fixes. Date: Wed Apr 21 11:08:36 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.15 movitz/losp/muerte/primitive-functions.lisp:1.16 --- movitz/losp/muerte/primitive-functions.lisp:1.15 Mon Apr 19 15:49:11 2004 +++ movitz/losp/muerte/primitive-functions.lisp Wed Apr 21 11:08:36 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.15 2004/04/19 19:49:11 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.16 2004/04/21 15:08:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -30,33 +30,29 @@ "Call a function with 1 argument" (with-inline-assembly (:returns :nothing) (:movb 1 :cl) - (:jmp (:esi -6)))) + (:jmp (:esi #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector))))) (define-primitive-function trampoline-funcall%2op () "Call a function with 2 arguments" (with-inline-assembly (:returns :nothing) (:movb 2 :cl) - (:jmp (:esi -6)))) + (:jmp (:esi #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector))))) (define-primitive-function trampoline-funcall%3op () "Call a function with 3 arguments" (with-inline-assembly (:returns :nothing) -;;; (:xorl :ecx :ecx) -;;; (:movb 2 :cl) (:movb 3 :cl) - (:jmp (:esi -6)))) + (:jmp (:esi #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector))))) (define-primitive-function trampoline-cl-dispatch-1or2 () "Jump to the entry-point designated by :cl, which must be 1 or 2." (with-inline-assembly (:returns :nothing) - (:cmpb 1 :cl) - (:jne 'not-one) - (:jmp (:esi #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector%1op))) - not-one - (:cmpb 2 :cl) - (:jne 'not-two) - (:jmp (:esi #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector%2op))) - not-two + (:subb 1 :cl) ; 1 or 2 => 0 or 1 + (:testb #xfe :cl) + (:jnz 'mismatch) + (:jmp (:esi (:ecx 4) #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:code-vector%1op))) + mismatch + (:addb 1 :cl) (:int 100))) (define-primitive-function no-code-vector () @@ -246,10 +242,7 @@ (:jecxz 'no-stack-binding) (:cmpl :eax (:ecx)) (:je 'success) -;;; (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) search-loop -;;; (:cmpl :edx (:ecx 12)) -;;; (:jnc '(:sub-program () (:int 97))) (:movl (:ecx 12) :ecx) ; parent (:jecxz 'no-stack-binding) (:cmpl :eax (:ecx)) ; compare name @@ -277,10 +270,7 @@ (:jecxz 'no-binding) (:cmpl :eax (:ecx)) (:je 'success) -;;; (:locally (:movl (:edi (:edi-offset stack-top)) :edx)) search-loop -;;; (:cmpl :edx (:ecx 12)) -;;; (:jnc '(:sub-program () (:int 97))) (:movl (:ecx 12) :ecx) ; parent (:jecxz 'no-binding) (:cmpl :eax (:ecx)) ; compare name @@ -555,7 +545,8 @@ (define-primitive-function fast-class-of-tag3 () "Return the class of a tag3 object." (with-inline-assembly (:returns :multiple-values) - (:int 64) + (:globally (:movl (:edi (:edi-offset classes)) :eax)) + (:movl (:eax #.(movitz::class-object-offset 'illegal-object)) :eax) (:ret))) (define-primitive-function fast-class-of-character () @@ -572,10 +563,14 @@ (define-primitive-function fast-class-of-null () "Return the class of a nil object." (with-inline-assembly (:returns :multiple-values) + (:globally (:movl (:edi (:edi-offset classes)) :ebx)) (:cmpl :edi :eax) - (:jne '(:sub-program () (:int 64))) - (:globally (:movl (:edi (:edi-offset classes)) :eax)) - (:movl (:eax #.(movitz::class-object-offset 'null)) :eax) + (:je 'null) + (:movl (:ebx #.(movitz::class-object-offset 'illegal-object)) :eax) + (:jmp 'not-null) + null + (:movl (:ebx #.(movitz::class-object-offset 'null)) :eax) + not-null (:ret))) (define-primitive-function fast-class-of-other () @@ -626,13 +621,7 @@ (find-class 'fixnum)) (basic-restart (find-class 'basic-restart)) - (tag6 - (error "Don't know the class of ~Z with other-type #x~X." - object (with-inline-assembly (:returns :untagged-fixnum-ecx) - (:compile-form (:result-mode :eax) object) - (:movzxb (:eax -2) :ecx)))) - (t (error "Don't know the class of the word ~Z!" object) - (find-class t)))) + (t (find-class 'illegal-object)))) (define-primitive-function push-current-values () "Push all current return-values on the stack. And, return number

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv13349 Modified Files: print.lisp Log Message: Minor edits. Date: Wed Apr 21 11:07:48 2004 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.7 movitz/losp/muerte/print.lisp:1.8 --- movitz/losp/muerte/print.lisp:1.7 Tue Apr 13 11:15:55 2004 +++ movitz/losp/muerte/print.lisp Wed Apr 21 11:07:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.7 2004/04/13 15:15:55 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.8 2004/04/21 15:07:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -202,8 +202,7 @@ (null (write-string (symbol-name nil) stream)) ((or cons tag5) - (let ((level *print-level*) - (length *print-length*)) + (let ((level *print-level*)) (cond ((and level (minusp level)) (write-char #\# stream)) @@ -227,7 +226,7 @@ (write (cdr c)) (write-char #\) stream))))))) (write-char #\( stream) - (write-cons object stream length)))))) + (write-cons object stream *print-length*)))))) (integer (write-integer object stream *print-base* *print-radix*)) (string

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette.lisp
by Frode Vatvedt Fjeld 21 Apr '04

21 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12850 Modified Files: los-closette.lisp Log Message: Added class illegal-object. Date: Wed Apr 21 11:07:27 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.9 movitz/losp/muerte/los-closette.lisp:1.10 --- movitz/losp/muerte/los-closette.lisp:1.9 Mon Apr 19 18:38:27 2004 +++ movitz/losp/muerte/los-closette.lisp Wed Apr 21 11:07:27 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.9 2004/04/19 22:38:27 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.10 2004/04/21 15:07:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -227,44 +227,12 @@ (defun class-of (object) (class-of object)) ; compiler-macro -#+ignore -(defun class-of (object) - (typecase object - (std-instance - (movitz-accessor object movitz-std-instance class)) - (standard-gf-instance - (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) - (null - (find-class 'null)) - (cons - (find-class 'cons)) - (symbol - (find-class 'symbol)) - (fixnum - (find-class 'fixnum)) - (vector - (find-class 'vector)) - (compiled-function - (find-class 'function)) - (hash-table - (find-class 'hash-table)) - (package - (find-class 'package)) - (structure-object - (find-class 'structure-object)) - (t (warn "Don't know the class of ~Z!" object) - (find-class t)))) - (defun subclassp (c1 c2) (not (null (find c2 (class-precedence-list c1))))) ;;; -;;; -;;; -;;; -;;; -;;; ;;; Generic function stuff +;;; ;;; Several tedious functions for analyzing lambda lists @@ -1025,6 +993,8 @@ (defclass float (real) () (:metaclass built-in-class)) (defclass complex (number) () (:metaclass built-in-class)) +(defclass illegal-object (t) () (:metaclass built-in-class)) + (defclass run-time-context (t) () (:metaclass built-in-class) @@ -1144,7 +1114,7 @@ (declare (dynamic-extent init-args)) (let ((class (if (symbolp class) (find-class class nil) class))) (check-type class structure-class) - (let* ((slots (structure-slots class)) + (let* ((slots (class-slots class)) (num-slots (length slots)) (struct (malloc-words num-slots))) (setf (memref struct #.(bt:slot-offset 'movitz::movitz-struct 'movitz::name) @@ -1717,6 +1687,10 @@ (defmethod print-object ((x run-time-context) stream) (print-unreadable-object (x stream :type t :identity t) (format stream " ~S" (%run-time-context-slot 'name x))) + x) + +(defmethod print-object ((x illegal-object) stream) + (print-unreadable-object (x stream :type t :identity t)) x) ;;;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs