PROC qcm$display_fault_buffer, disfb (
xcb: integer = $required
status)

chad am=rma
crev work k=string
crev base k=integer v=$value(xcb)

base = base + 221(16)
size = 59
putl '-'
putl '                    XCB fault buffers - 1.4.1/1.4.2 '
putl ''
putl '   Buffers.Present  = '//$strrep($mem(base,1),16)
base = base + 1
putl '   Buffers.Reserved = '//$strrep($mem(base,1),16)
base = base + 1
FOR i = 1 to 4 DO
   putl ''
   putl ' Buffer '//$strrep(i)//'.Identifier = '//$strrep($mem(base,1),16)
    base = base + 1
    FOR j = 1 to 32 DO
     work = '           Contents.'//$strrep(j)
     work = work//$substr('',1,25-$strlen(work))//'=  '//$strrep($mem(base,1),16)
     putl  work
     base = base + 1
    FOREND
   putl ''
   putl '              P Reg = '//$strrep($mem(base,8),16)
   base = base + 8
   putl '                 A0 = '//$strrep($mem(base,6),16)
   base = base + 6
   putl '                 A1 = '//$strrep($mem(base,6),16)
   base = base + 6
   putl '                 A2 = '//$strrep($mem(base,6),16)
   base = base + 6
FOREND

chad am=pva

PROCEND qcm$display_fault_buffer
