BPX1AIO (asyncio) example

The following code will accept the next conversation. For the callable service, see asyncio (BPX1AIO, BPX4AIO) — Asynchronous I/O for sockets. AMODE 64 callers use BPX4AIO (asyncio) example.

         XC    AIO(AIO#LENGTH),AIO   Null AIO control block             
         MVC   AIOCMD,=A(AIO#ACCEPT) Command = Accept                   
         MVC   AIOFD,FILEDESC        File descriptor                    
         MVC   AIONOTIFYTYPE,=AL2(AIO#MVS)  Notify type = MVS           
         XC    ECB01,ECB01           ECB = 0                            
         LA    R15,ECB01             ECB Address                        
         ST    R15,AIOECBPTR         Null AIO control block             
         MVC   AIOSOCKADDRLEN,=A(SOCK#LEN)                              
         LA    R15,SOCKADDR          From recvform (see BPX1RFM)        
         ST    R15,AIOSOCKADDRPTR                                       
         SPACE ,                                                        
         CALL  BPX1AIO,              Asynchronous I/O for Sockets      +
               (=A(AIO#LENGTH),      Input: Time before SIGAIOM        +
               AIO,                  Input: Time before SIGAIOM        +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------