r412 - trunk/lisp/window

[rswindells at common-lisp.net]

Author: rswindells
Date: Wed May 22 15:54:41 2013
New Revision: 412

Log:
Remove Q-FLAG-BIT.

Modified:
   trunk/lisp/window/cold.lisp
   trunk/lisp/window/ehc.lisp

Modified: trunk/lisp/window/cold.lisp
==============================================================================
--- trunk/lisp/window/cold.lisp	Mon May 20 14:41:37 2013	(r411)
+++ trunk/lisp/window/cold.lisp	Wed May 22 15:54:41 2013	(r412)
@@ -397,10 +397,10 @@
   (%P-DPB (VIRTUAL-UNIBUS-ADDRESS 764112) %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-CSR-ADDRESS))
   (%P-DPB 40 %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-CSR-BITS))
   (%P-DPB (VIRTUAL-UNIBUS-ADDRESS 764100) %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-DATA-ADDRESS))
-  (%P-DPB 1 %%Q-FLAG-BIT (+ 500 %UNIBUS-CHANNEL-DATA-ADDRESS))
+;  (%P-DPB 1 %%Q-FLAG-BIT (+ 500 %UNIBUS-CHANNEL-DATA-ADDRESS))
   (%P-DPB 200 %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-BUFFER-START))
   (%P-DPB 400 %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-BUFFER-END))
-  (%P-DPB 1 %%Q-FLAG-BIT (+ 500 %UNIBUS-CHANNEL-BUFFER-END))	;Enable seq breaks.
+;  (%P-DPB 1 %%Q-FLAG-BIT (+ 500 %UNIBUS-CHANNEL-BUFFER-END))	;Enable seq breaks.
   (%P-DPB 200 %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-BUFFER-IN-PTR))
   (%P-DPB 200 %%Q-POINTER (+ 500 %UNIBUS-CHANNEL-BUFFER-OUT-PTR))
   (STORE (SYSTEM-COMMUNICATION-AREA %SYS-COM-UNIBUS-INTERRUPT-LIST) 500)

Modified: trunk/lisp/window/ehc.lisp
==============================================================================
--- trunk/lisp/window/ehc.lisp	Mon May 20 14:41:37 2013	(r411)
+++ trunk/lisp/window/ehc.lisp	Wed May 22 15:54:41 2013	(r412)
@@ -499,7 +499,7 @@
 (DEFUN SHOW-ADI (RP IDX)
   (FORMAT T "~2%Additional information supplied with call:")
   (DO ((TYPE (LDB SI:%%ADI-TYPE (AR-1 RP IDX)))
-       (MORE-P (%P-LDB %%Q-FLAG-BIT (AP-1 RP (1- IDX)))))
+       (MORE-P (%P-LDB %%ADI-PREVIOUS-ADI-FLAG (AP-1 RP (1- IDX)))))
       (())
     (SELECT TYPE
       (SI:ADI-RETURN-INFO