movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/losp/x86-pc/ne2k.lisp
by Frode Vatvedt Fjeld 01 Feb '04

01 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv11834 Modified Files: ne2k.lisp Log Message: Changed to using %io-port-read/write-succession. Date: Sun Feb 1 17:10:18 2004 Author: ffjeld Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.4 movitz/losp/x86-pc/ne2k.lisp:1.5 --- movitz/losp/x86-pc/ne2k.lisp:1.4 Mon Jan 19 06:23:52 2004 +++ movitz/losp/x86-pc/ne2k.lisp Sun Feb 1 17:10:17 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.4 2004/01/19 11:23:52 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.5 2004/02/01 22:10:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -66,7 +66,7 @@ (defun ne-x000-probe (&optional (io-base #x300)) "Probe for the presence of a NE2000 compatible card at IO-address io-base." (with-dp8390 (dp8390 io-base) - (let ((test-vector (copy-seq #(#xab #xba #x00 #xff #x55 #x99 #x01 #x23 #x45 #xde #xad #xbe #xef #x23)))) + (let ((test-vector #(#xabba #x00ff #x5599 #x0123 #x45de #xadbe #xef23))) (declare (dynamic-extent test-vector)) ;; NE1000 has RAM buffer located at 8192 ;; NE2000 has RAM buffer located at 16384 @@ -75,17 +75,15 @@ (dp8390 ($page0-write dcr)) ($data-config fifo-threshold-8-bytes loopback-off dma-16-bit)) - (with-dp8390-dma (dp8390 remote-write (length test-vector) 16384) - (io-port-write-sequence test-vector (+ io-base #x10) :unsigned-byte8 :16-bits)) + (with-dp8390-dma (dp8390 remote-write (* 2 (length test-vector)) 16384) + (loop with asic = (+ io-base #x10) + for x across test-vector + do (setf (io-port asic :unsigned-byte16) x))) (let ((mismatch nil)) - (with-dp8390-dma (dp8390 remote-read (length test-vector) 16384) - (dotimes (i (truncate (length test-vector) 2)) - (let ((nic-byte (io-port (+ io-base #x10) :unsigned-byte16))) - (unless (and (= (aref test-vector (* 2 i)) - (ldb (byte 8 0) nic-byte)) - (= (aref test-vector (1+ (* 2 i))) - (ldb (byte 8 8) nic-byte))) - (setf mismatch t))))) + (with-dp8390-dma (dp8390 remote-read (* 2 (length test-vector)) 16384) + (loop for x across test-vector + do (unless (= x (io-port (+ io-base #x10) :unsigned-byte16)) + (setf mismatch t)))) (unless mismatch 'ne2000))))) @@ -102,8 +100,10 @@ (let ((mac (make-array 6 :element-type 'muerte::u8))) (with-dp8390 (dp8390 io-base) (with-dp8390-dma (dp8390 remote-read 12 0) - (io-port-read-sequence mac (asic-io-base ne2000) - :unsigned-byte16 :16-bits))) + (dotimes (i 6) + (setf (aref mac i) + (ldb (byte 8 0) + (io-port (asic-io-base ne2000) :unsigned-byte16)))))) (setf (mac-address ne2000) mac)) ne2000)) @@ -117,6 +117,7 @@ (let ((asic-io (asic-io-base device)) (bnry (cached-bnry device)) (packet (or packet (make-array +max-ethernet-frame-size+ :element-type 'muerte::u8)))) + (check-type packet 'vector-u8) (with-dp8390 (dp8390 (io-base device)) (multiple-value-bind (packet-status next-bnry packet-length) (with-dp8390-dma (dp8390 remote-read 4 (* 256 bnry)) @@ -140,7 +141,7 @@ ((< (+ bnry (ash (1- packet-length) -8)) (ring-stop device)) (with-dp8390-dma (dp8390 remote-read packet-length (+ (* 256 bnry) 4)) - (io-port-read-sequence packet asic-io :unsigned-byte8 :16-bits :start start) + (%io-port-read-succession asic-io packet 2 start rx-end :16-bit) (when (oddp rx-end) (setf (aref packet (1- rx-end)) (ldb (byte 8 0) (io-port asic-io :unsigned-byte16))))) @@ -148,13 +149,11 @@ (cached-bnry device) next-bnry)) (t (let ((split-point (+ -4 (ash (- (ring-stop device) bnry) 8)))) (with-dp8390-dma (dp8390 remote-read split-point) - (io-port-read-sequence packet asic-io :unsigned-byte8 :16-bits - :start start :end (+ start split-point))) + (%io-port-read-succession asic-io packet 2 start (+ start split-point) :16-bit)) (with-dp8390-dma (dp8390 remote-read (- rx-end start split-point) (* 256 (ring-start device))) - (io-port-read-sequence packet asic-io :unsigned-byte8 :16-bits - :start (+ start split-point)) + (%io-port-read-succession asic-io packet 2 (+ start split-point) rx-end :16-bit) (when (oddp rx-end) (setf (aref packet (1- rx-end)) (ldb (byte 8 0)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/sequences.lisp
by Frode Vatvedt Fjeld 28 Jan '04

28 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25889 Modified Files: sequences.lisp Log Message: Fill might concievably work now. Date: Wed Jan 28 16:06:11 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.3 movitz/losp/muerte/sequences.lisp:1.4 --- movitz/losp/muerte/sequences.lisp:1.3 Wed Jan 28 15:25:58 2004 +++ movitz/losp/muerte/sequences.lisp Wed Jan 28 16:06:08 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.3 2004/01/28 20:25:58 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.4 2004/01/28 21:06:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -651,19 +651,20 @@ (apply 'map-for-list function first-sequence more-sequences)) (t (error "MAP not implemented.")))) -(defun fill (sequence item &key (start 0) (end (length sequence))) +(defun fill (sequence item &key (start 0) end) "=> sequence" (sequence-dispatch sequence (list - (do ((p (nthcdr start sequence)) + (do ((p (nthcdr start sequence) (cdr p)) (i start (1+ i))) - ((and end (>= i end))) + ((or (null p) (and end (>= i end)))) (setf (car p) item))) (vector - (with-subvector-accessor (sequence-ref sequence start end) - (do ((i start (1+ i))) - ((>= i end)) - (setf (sequence-ref i) item))))) + (let ((end (or end (length sequence)))) + (with-subvector-accessor (sequence-ref sequence start end) + (do ((i start (1+ i))) + ((>= i end)) + (setf (sequence-ref i) item)))))) sequence) (defun replace (sequence-1 sequence-2 &key (start1 0) end1 (start2 0) end2)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/sequences.lisp
by Frode Vatvedt Fjeld 28 Jan '04

28 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18237 Modified Files: sequences.lisp Log Message: Minor tweaks. Date: Wed Jan 28 15:26:00 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.2 movitz/losp/muerte/sequences.lisp:1.3 --- movitz/losp/muerte/sequences.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/sequences.lisp Wed Jan 28 15:25:58 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.3 2004/01/28 20:25:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -60,12 +60,12 @@ (list (do ((x sequence (cdr x)) (length 0 (1+ length))) - ((endp x) length))))) + ((null x) length))))) (defun length%list (sequence) - (do ((x sequence (cdr x)) - (length 0 (1+ length))) - ((endp x) length))) + (do ((length 0 (1+ length)) + (x sequence (cdr x))) + ((null x) length))) (defun elt (sequence index) (sequence-dispatch sequence @@ -181,7 +181,7 @@ (defun copy-seq (sequence) (subseq sequence 0)) -(defun position (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) +(defun position (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) (numargs-case (2 (item sequence) (sequence-dispatch sequence @@ -193,10 +193,9 @@ (when (eql (sequence-ref i) item) (return i))))) (list - (do ((p sequence (cdr p)) - (i 0 (1+ i))) - ((endp p) nil) - (when (eql (car p) item) + (do ((i 0 (1+ i))) + ((null sequence) nil) + (when (eql (pop sequence) item) (return i)))))) (t (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) (with-funcallable (key) @@ -219,21 +218,21 @@ (list (cond ((not end) - (do ((p (nthcdr start sequence) (cdr p)) + (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((endp p) nil) - (when (test (key (car p)) item) + ((null p) nil) + (when (test (key (pop p)) item) (return (if (not from-end) i - (let ((next-i (position item (cdr p) :key key :from-end t + (let ((next-i (position item p :key key :from-end t :test test :test-not test-not))) (if next-i (+ i 1 next-i ) i))))))) - (t (do ((p (nthcdr start sequence) (cdr p)) + (t (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((or (endp p) (>= i end)) nil) - (when (test (key (car p)) item) + ((or (null p) (>= i end)) nil) + (when (test (key (pop p)) item) (return (if (not from-end) i - (let ((next-i (position item (cdr p) :end (- end 1 i) :from-end t + (let ((next-i (position item p :end (- end 1 i) :from-end t :key key :test test :test-not test-not))) (if next-i (+ i 1 next-i ) i))))))))))))))) @@ -250,10 +249,10 @@ (when (predicate (sequence-ref i)) (return i))))) (list - (do ((p sequence (cdr p)) + (do ((p sequence) (i 0 (1+ i))) - ((endp p)) - (when (predicate (car p)) + ((null p)) + (when (predicate (pop p)) (return i))))))) (t (predicate sequence &key (start 0) end (key 'identity) from-end) (with-funcallable (predicate) @@ -275,19 +274,20 @@ (list (cond (end - (do ((p (nthcdr start sequence) (cdr p)) + (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((or (>= i end) (endp p))) - (when (predicate (key (car p))) + ((or (>= i end) (null p))) + (when (predicate (key (pop p))) (return (if (not from-end) i - (let ((next-i (position-if predicate (cdr p) :key key :from-end t :end (- end i 1)))) + (let ((next-i (position-if predicate p :key key + :from-end t :end (- end i 1)))) (if next-i (+ i 1 next-i) i))))))) - (t (do ((p (nthcdr start sequence) (cdr p)) + (t (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((endp p)) - (when (predicate (key (car p))) + ((null p)) + (when (predicate (key (pop p))) (return (if (not from-end) i - (let ((next-i (position-if predicate (cdr p) :key key :from-end t))) + (let ((next-i (position-if predicate p :key key :from-end t))) (if next-i (+ i 1 next-i) i))))))))))))))) @@ -312,10 +312,10 @@ (defun reverse (sequence) (sequence-dispatch sequence (list - (do ((p sequence (cdr p)) - (r nil)) - ((endp p) r) - (push (car p) r))) + (let ((result nil)) + (dolist (x sequence) + (push x result)) + result)) (vector (nreverse (copy-seq sequence)))))

1 0

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

21 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10402 Modified Files: loop.lisp Log Message: Patch to loop from new-b. Date: Wed Jan 21 17:02:10 2004 Author: ffjeld Index: movitz/losp/muerte/loop.lisp diff -u movitz/losp/muerte/loop.lisp:1.2 movitz/losp/muerte/loop.lisp:1.3 --- movitz/losp/muerte/loop.lisp:1.2 Thu Jan 15 11:41:45 2004 +++ movitz/losp/muerte/loop.lisp Wed Jan 21 17:02:09 2004 @@ -151,7 +151,7 @@ #+ignore (if *loop-gentemp* (gentemp (string pref)) - (gensym))) + (gensym (string pref)))) @@ -1184,7 +1184,7 @@ (setq *loop-names* (list name nil)))) (defun loop-do-return () - (loop-pseudo-body (loop-construct-return (loop-get-form)))) + (loop-emit-body (loop-construct-return (loop-get-form)))) ) @@ -1752,7 +1752,7 @@ ((eq prep :upfrom) (setq dir ':up))) (multiple-value-setq (form start-constantp start-value) (loop-constant-fold-if-possible form indexv-type)) - (loop-make-iteration-variable indexv form indexv-type)) + (setq indexv (loop-make-iteration-variable indexv form indexv-type))) ((:upto :to :downto :above :below) (cond ((loop-tequal prep :upto) (setq inclusive-iteration (setq dir ':up))) ((loop-tequal prep :to) (setq inclusive-iteration t))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25475 Modified Files: io-port.lisp Log Message: Added %io-port-write-succession. Completely untested. Date: Tue Jan 20 16:53:11 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.4 movitz/losp/muerte/io-port.lisp:1.5 --- movitz/losp/muerte/io-port.lisp:1.4 Tue Jan 20 16:39:10 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 16:53:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.4 2004/01/20 21:39:10 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.5 2004/01/20 21:53:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -203,7 +203,7 @@ (assert (= 4 movitz:+movitz-fixnum-factor+)) (if (<= 1 count 20) `(with-inline-assembly-case () - (do-case (t :eax :labels (io-read-loop end-io-read-loop not-fixnum)) + (do-case (t :eax) (:compile-two-forms (:edx :ebx) ,port ,object) (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) (:shrl ,movitz::+movitz-fixnum-shift+ :edx) @@ -316,6 +316,140 @@ (%io-port-read-succession port object 2 start end :16-bit)) (:32-bit (%io-port-read-succession port object 2 start end :32-bit)) + (t (error "Unknown byte-size ~S." byte-size)))) + +(define-compiler-macro %io-port-write-succession (&whole form port object offset start end byte-size + &environment env) + (if (not (movitz:movitz-constantp byte-size env)) + form + (let ((byte-size (movitz:movitz-eval byte-size env))) + (cond + ((and (movitz:movitz-constantp offset env) + (movitz:movitz-constantp start env) + (movitz:movitz-constantp end env)) + (let* ((offset (movitz:movitz-eval offset env)) + (start (movitz:movitz-eval start env)) + (end (movitz:movitz-eval end env)) + (count (- end start))) + (check-type count (integer 0 #x10000)) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + (if (<= 1 count 20) + `(with-inline-assembly-case () + (do-case (t :eax) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + ,@(loop for i from start below end + appending + `((:movl (:ebx ,(+ offset (* 4 i))) :eax) + (:outl :eax :dx))) + (:movl :ebx :eax))) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:pushl ,(cl:* movitz::+movitz-fixnum-factor+ end)) ; keep end in (:esp) + (:movl ,(cl:* movitz::+movitz-fixnum-factor+ start) :ecx) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 4 :ecx) + (:movl (:ebx ,(+ offset -4) :ecx) :eax) + (:outl :eax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop)))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + ((and (movitz:movitz-constantp offset env)) + (let ((offset (movitz:movitz-eval offset env))) + (case byte-size + (:8-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 1 :ecx) + (:movb (:ebx ,(+ offset -1) (:ecx 1)) :al) + (:outb :al :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:16-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 1 :ecx) + (:movw (:ebx ,(+ offset -2) (:ecx 2)) :ax) + (:outw :ax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 4 :ecx) + (:movl (:ebx ,(+ offset -4) :ecx) :eax) + (:outl :eax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + (t (error "Variable offset not implemented.")))))) + +(defun %io-port-write-succession (port object offset start end byte-size) + (unless (= 2 offset) + (error "Only offset 2 implemented.")) + (case byte-size + (:8-bit + (%io-port-write-succession port object 2 start end :8-bit)) + (:16-bit + (%io-port-write-succession port object 2 start end :16-bit)) + (:32-bit + (%io-port-write-succession port object 2 start end :32-bit)) (t (error "Unknown byte-size ~S." byte-size))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19661 Modified Files: io-port.lisp Log Message: Added :8-bit and :16-bit bit to %io-port-read-succession. Date: Tue Jan 20 16:39:12 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.3 movitz/losp/muerte/io-port.lisp:1.4 --- movitz/losp/muerte/io-port.lisp:1.3 Tue Jan 20 10:40:18 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 16:39:10 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.3 2004/01/20 15:40:18 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.4 2004/01/20 21:39:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -232,6 +232,56 @@ ((and (movitz:movitz-constantp offset env)) (let ((offset (movitz:movitz-eval offset env))) (case byte-size + (:8-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inb :dx :al) + (:addl 1 :ecx) + (:movb :al (:ebx ,(+ offset -1) (:ecx 1))) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:16-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inw :dx :ax) + (:addl 1 :ecx) + (:movw :ax (:ebx ,(+ offset -2) (:ecx 2))) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) (:32-bit (assert (= 4 movitz:+movitz-fixnum-factor+)) `(with-inline-assembly-case () @@ -254,14 +304,19 @@ (:popl :eax) ; increment :esp, and put a lispval in :eax. end-io-read-loop))) (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) - (t (error "Not implemented.")))))) + (t (error "Variable offset not implemented.")))))) (defun %io-port-read-succession (port object offset start end byte-size) (unless (= 2 offset) (error "Only offset 2 implemented.")) - (ecase byte-size + (case byte-size + (:8-bit + (%io-port-read-succession port object 2 start end :8-bit)) + (:16-bit + (%io-port-read-succession port object 2 start end :16-bit)) (:32-bit - (%io-port-read-succession port object 2 start end :32-bit)))) + (%io-port-read-succession port object 2 start end :32-bit)) + (t (error "Unknown byte-size ~S." byte-size)))) (defun io-port-read-sequence (sequence port type transfer-unit &key (start 0) end)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24840 Modified Files: io-port.lisp Log Message: Started new io-port operator %io-port-read-succession. Date: Tue Jan 20 10:40:18 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.2 movitz/losp/muerte/io-port.lisp:1.3 --- movitz/losp/muerte/io-port.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 10:40:18 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.3 2004/01/20 15:40:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -183,6 +183,86 @@ (defun io-delay (&optional (x 1000)) (dotimes (i x) (with-inline-assembly (:returns :nothing) (:nop)))) + +(define-compiler-macro %io-port-read-succession (&whole form port object offset start end byte-size + &environment env) + (if (not (movitz:movitz-constantp byte-size env)) + form + (let ((byte-size (movitz:movitz-eval byte-size env))) + (cond + ((and (movitz:movitz-constantp offset env) + (movitz:movitz-constantp start env) + (movitz:movitz-constantp end env)) + (let* ((offset (movitz:movitz-eval offset env)) + (start (movitz:movitz-eval start env)) + (end (movitz:movitz-eval end env)) + (count (- end start))) + (check-type count (integer 0 #x10000)) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + (if (<= 1 count 20) + `(with-inline-assembly-case () + (do-case (t :eax :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + ,@(loop for i from start below end + appending + `((:inl :dx :eax) + (:movl :eax (:ebx ,(+ offset (* 4 i)))))) + (:movl :ebx :eax))) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:pushl ,(cl:* movitz::+movitz-fixnum-factor+ end)) ; keep end in (:esp) + (:movl ,(cl:* movitz::+movitz-fixnum-factor+ start) :ecx) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inl :dx :eax) + (:addl 4 :ecx) + (:movl :eax (:ebx ,(+ offset -4) :ecx)) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop)))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + ((and (movitz:movitz-constantp offset env)) + (let ((offset (movitz:movitz-eval offset env))) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inl :dx :eax) + (:addl 4 :ecx) + (:movl :eax (:ebx ,(+ offset -4) :ecx)) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + (t (error "Not implemented.")))))) + +(defun %io-port-read-succession (port object offset start end byte-size) + (unless (= 2 offset) + (error "Only offset 2 implemented.")) + (ecase byte-size + (:32-bit + (%io-port-read-succession port object 2 start end :32-bit)))) + (defun io-port-read-sequence (sequence port type transfer-unit &key (start 0) end) (etypecase sequence

1 0

[movitz-cvs] CVS update: movitz/load.lisp
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv25504 Modified Files: load.lisp Log Message: A "fix" for SBCL's defconstant annoyance, according to nyef's patch. Date: Mon Jan 19 14:21:14 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.6 movitz/load.lisp:1.7 --- movitz/load.lisp:1.6 Mon Jan 19 06:23:41 2004 +++ movitz/load.lisp Mon Jan 19 14:21:14 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.6 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.7 2004/01/19 19:21:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -63,8 +63,10 @@ (do () (nil) (with-simple-restart (retry "Retry loading ~S" path) (return - (load (or (compile-file path :print nil) - (error "Compile-file of ~S failed?" path))))))) + (handler-bind + (#+sbcl (sb-ext:defconstant-uneql #'continue)) + (load (or (compile-file path :print nil) + (error "Compile-file of ~S failed?" path)))))))) '("packages" "movitz" "parse"

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv23969 Modified Files: compiler.lisp Log Message: A "fix" for SBCL's defconstant annoyance, according to nyef's patch. Date: Mon Jan 19 14:21:08 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.3 movitz/compiler.lisp:1.4 --- movitz/compiler.lisp:1.3 Fri Jan 16 14:06:40 2004 +++ movitz/compiler.lisp Mon Jan 19 14:21:08 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.3 2004/01/16 19:06:40 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.4 2004/01/19 19:21:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -867,7 +867,8 @@ load-priority (delete-file-p nil)) (handler-bind - (#+ignore ((or error warning) (lambda (c) + (#+sbcl (sb-ext:defconstant-uneql #'continue) + #+ignore ((or error warning) (lambda (c) (declare (ignore c)) (format *error-output* "~&;; In file ~S:" path)))) (unwind-protect

1 0

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv7968/losp/x86-pc Modified Files: all.lisp cmos.lisp debugger.lisp dp8390.lisp interrupt.lisp io-space.lisp keyboard.lisp memory.lisp ne2k.lisp package.lisp pic8259.lisp pit8253.lisp textmode-console.lisp textmode.lisp vga.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:52 2004 Author: ffjeld Index: movitz/losp/x86-pc/all.lisp diff -u movitz/losp/x86-pc/all.lisp:1.2 movitz/losp/x86-pc/all.lisp:1.3 --- movitz/losp/x86-pc/all.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/all.lisp Mon Jan 19 06:23:51 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 27 21:14:56 2001 ;;;; -;;;; $Id: all.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: all.lisp,v 1.3 2004/01/19 11:23:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/cmos.lisp diff -u movitz/losp/x86-pc/cmos.lisp:1.2 movitz/losp/x86-pc/cmos.lisp:1.3 --- movitz/losp/x86-pc/cmos.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/cmos.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 30 12:23:02 2002 ;;;; -;;;; $Id: cmos.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: cmos.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.1.1.1 movitz/losp/x86-pc/debugger.lisp:1.2 --- movitz/losp/x86-pc/debugger.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/debugger.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.2 movitz/losp/x86-pc/dp8390.lisp:1.3 --- movitz/losp/x86-pc/dp8390.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/dp8390.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 18 12:21:36 2002 ;;;; -;;;; $Id: dp8390.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.2 movitz/losp/x86-pc/interrupt.lisp:1.3 --- movitz/losp/x86-pc/interrupt.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/interrupt.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/io-space.lisp diff -u movitz/losp/x86-pc/io-space.lisp:1.1.1.1 movitz/losp/x86-pc/io-space.lisp:1.2 --- movitz/losp/x86-pc/io-space.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/io-space.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue May 6 10:50:36 2003 ;;;; -;;;; $Id: io-space.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: io-space.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/keyboard.lisp diff -u movitz/losp/x86-pc/keyboard.lisp:1.1.1.1 movitz/losp/x86-pc/keyboard.lisp:1.2 --- movitz/losp/x86-pc/keyboard.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/keyboard.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 24 16:04:12 2001 ;;;; -;;;; $Id: keyboard.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: keyboard.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/memory.lisp diff -u movitz/losp/x86-pc/memory.lisp:1.2 movitz/losp/x86-pc/memory.lisp:1.3 --- movitz/losp/x86-pc/memory.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/memory.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Oct 11 16:32:11 2001 ;;;; -;;;; $Id: memory.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: memory.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.3 movitz/losp/x86-pc/ne2k.lisp:1.4 --- movitz/losp/x86-pc/ne2k.lisp:1.3 Thu Jan 15 12:43:28 2004 +++ movitz/losp/x86-pc/ne2k.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.3 2004/01/15 17:43:28 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.4 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/package.lisp diff -u movitz/losp/x86-pc/package.lisp:1.2 movitz/losp/x86-pc/package.lisp:1.3 --- movitz/losp/x86-pc/package.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/package.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/pic8259.lisp diff -u movitz/losp/x86-pc/pic8259.lisp:1.2 movitz/losp/x86-pc/pic8259.lisp:1.3 --- movitz/losp/x86-pc/pic8259.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/pic8259.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue May 22 15:23:01 2001 ;;;; -;;;; $Id: pic8259.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: pic8259.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/pit8253.lisp diff -u movitz/losp/x86-pc/pit8253.lisp:1.2 movitz/losp/x86-pc/pit8253.lisp:1.3 --- movitz/losp/x86-pc/pit8253.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/pit8253.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jan 15 11:30:55 2002 ;;;; -;;;; $Id: pit8253.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: pit8253.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/textmode-console.lisp diff -u movitz/losp/x86-pc/textmode-console.lisp:1.2 movitz/losp/x86-pc/textmode-console.lisp:1.3 --- movitz/losp/x86-pc/textmode-console.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/textmode-console.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 8 15:13:24 2003 ;;;; -;;;; $Id: textmode-console.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: textmode-console.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.2 movitz/losp/x86-pc/textmode.lisp:1.3 --- movitz/losp/x86-pc/textmode.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/textmode.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001,2000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: textmode.lisp ;;;; Description: A primitive 80x25 text-mode console driver. @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/vga.lisp diff -u movitz/losp/x86-pc/vga.lisp:1.2 movitz/losp/x86-pc/vga.lisp:1.3 --- movitz/losp/x86-pc/vga.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/vga.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

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