× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



> Look in WCBT00 associated space for the *LIFO queue:
> 
> DCL SYSPTR ?QWCBT00    BASPCO POS(17);
> DCL MSPPTR ?M1;
> DCL SYSPTR ?QWCBT01    BAS(?M1) POS(1);
> DCL MSPPTR ?M2;
> DCL SYSPTR ?QWMJOBSQ   BAS(?M1) POS(1);
> 
> SETSPPFP   ?M1, ?QWCBT00;
> SETSPPFP   ?M2, ?QWCBT01;
> MATQMSG    ?RCVR, ?QWMJOBSQ, SELECT;
> 
> Queue entries are 16 bytes long.  They are system pointers
> to the inactive process control spaces.
> 
        [Leif Svalgaard]  What had me confused is your names. Your
        system pointer ?QWCBT00 points to object 19D0:QWCBT01
        and your pointer ?QWCBT01 points to object 19D0:QWCBT00
        (i.e. 00 <-> 01 and 01 <-> 00).
        With this cleared up, I do find the object 0AEF:QWMJOBSQ
        and all the PCS's queued up in there:

        Address D42AC5362C 000000 :                   
        000000  00010008 00808000  D42AC536 2C000000    ������طM�E�����  
        000010  C0010000 00000000  00000000 FF000000    {���������������  
        000020  00000AEF D8E6D4D1  D6C2E2D8 40404040    ����QWMJOBSQ      
        000030  40404040 40404040  40404040 40404040                      
        000040  40400000 00000000  00000008 FF1C0430      ��������������  
        000050  7FF2C297 69698000  00000000 00000000    "2Bp��ط��������  
        000060  00000000 00000000  00000000 00000000    ����������������  
        000070  D42AC536 2C000000  00020000 01000000    M�E�������������  
        000080  7FF2C297 69698000  00000000 00000000    "2Bp��ط��������  
        000090  00000000 00000000  00000000 00000000    ����������������  

        Address D42AC5362C 0002D0 : 
        0002D0  00008000 00000000  E0626A92 1F001A3F    ��ط����\¦k����
Proc Ctrl 
        0002E0  80000000 008B5050  00000000 00000000    ط����&&��������

        0002F0  D42AC536 2C000100  00000000 00000000    M�E�������������

        000300  D42AC536 2C000340  D42AC536 2C000280    M�E���� M�E�����

        000310  D42AC536 2C000320  00000000 00000000    M�E�������������

        000320  7FF2C54D C8398000  00000010 00000000    "2E(H�ط��������

           
        000330  00008000 00000000  CA24EE12 39001A3F    ��ط�����ӷ���� Proc
Ctrl 
        000340  80000000 008B5050  00000000 00000000    ط����&&��������

        000350  D42AC536 2C000100  00000000 00000000    M�E�������������

        000360  D42AC536 2C0003A0  D42AC536 2C0002E0    M�E�����M�E����\

        000370  D42AC536 2C000380  00000000 00000000    M�E����ط�������

        000380  7FF2C54D D6240000  00000010 00000000    "2E(O�����������


        000390  00008000 00000000  DB755664 9E001A3F    ��ط��������Ʒ��
Proc Ctrl   
        0003A0  80000000 008B5050  00000000 00000000    ط����&&��������

        0003B0  D42AC536 2C000100  00000000 00000000    M�E�������������

        0003C0  00000000 00000000  D42AC536 2C000340    ��������M�E����

        0003D0  D42AC536 2C0003E0  00000000 00000000    M�E����\��������

        0003E0  7FF3ED02 A3568000  00000010 00000000    "3ҷt�ط��������


        0003F0  00008000 00000000  D4D77A5B 31001A3F    ��ط����MP:$����
Proc Ctrl   
        000400  80000000 008B5050  00000000 00000000    ط����&&��������

        000410  D42AC536 2C000160  00000000 00000000    M�E����-��������

        000420  00000000 00000000  D42AC536 2C000460    ��������M�E����-

        000430  D42AC536 2C000440  00000000 00000000    M�E���� ��������

        000440  7FF4243A 22878000  00000010 00000000    "4���gط��������


        etc. Except, of course, at the level where I see them (in the space)
        the entries are 96 bytes long. Thanks for showing me the way.

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.