PROC qcm$display_swap_buffer, dissb (
status )

crev work k=string
crev codes k=string d=0 .. 3
     codes(0) = 'Job out'
     codes(1) = 'Mon out'
     codes(2) = 'Job in'
     codes(3) = 'Mon in'

crev msg k=string
base = $sa(jsv$sched_swapping_requests)
offset = $mem(base+7,1)
base = base + 16


     putl '-'
     putl '           Display Swap Trace Buffer - 1.4.1/1.4.2'
     putl '                  the swap offset is '//$strrep(offset,10)
     putl '-'


    FOR i = 1 TO offset DO
     j = $mem(base,1)
     msg = ' Swap Mode = '//codes(j)
     msg = msg//$substr('',1,20-$strlen(msg))//'   IJL = '//$strrep($mem(base+2,1),16)
     msg = msg//$substr('',1,35-$strlen(msg))//' Time Stamp = '//$strrep($mem(base+4,6),16)
     putl msg
     base = base + 16
    FOREND

   putl '-'

PROCEND qcm$display_swap_buffer
