* SEQUENTIAL I/O                                        HEADER  C:IOUT  0001.000
*                                                                       0002.000
*                                                                       0003.000
         M.PGM     C:IOUT,MPX-32,3.6.1,00                               0004.000
         DEF       C:LDST                                               0005.000
         DEF       C:BFSW                                               0006.000
*                                                                       0007.000
STATFLD  EQU       -8                                                   0008.000
*                                                                       0009.000
* SET COBOL STATUS WORD                                                 0010.000
*   ENTER W/ FIT ADDRESS IN R1, DESIRED STATUS CHARACTERS               0011.000
*   IN RIGHT HALFWORD OF R7 - IF STATUS FIELD EXISTS, R3                0012.000
*   POINTS TO IT AND R7 IS SHIFTED RIGHT 7 BITS; IF NOT,                0013.000
*   R3 <- 0.                                                            0014.000
*                                                                       0015.000
*                                                                       0016.000
C:LDST   EQU       $                                                    0017.000
         LW        3,STATFLD,1    TEST STATUS FIELD EXISTENCE           0018.000
         BZ        LDS990                                               0019.000
* STATUS FIELD EXISTS - SET STATUS                                      0020.000
         LW        3,1W,3                                               0021.000
         STB       7,1,3                                                0022.000
         SRL       7,8                                                  0023.000
         STB       7,0,3                                                0024.000
LDS990   EQU       $                                                    0025.000
         TRSW      0                                                    0026.000
*                                                                       0027.000
* SWITCH BUFFER POINTERS                                                0028.000
*   R1 -> FIT                                                           0029.000
         BOUND     4                                                    0030.000
PBUFADDR EQU       44                                                   0031.000
ABUFADDR EQU       48                                                   0032.000
BUFFPTR  EQU       52                                                   0033.000
*                                                                       0034.000
C:BFSW   EQU       $                                                    0035.000
         LW        6,PBUFADDR,1   SWAP BUFFER POINTERS                  0036.000
         LW        7,ABUFADDR,1                                         0037.000
         STW       6,ABUFADDR,1                                         0038.000
         STW       7,PBUFADDR,1                                         0039.000
         STW       7,BUFFPTR,1    RESET BUFFER RECORD POINTER           0040.000
         TRSW      0                                                    0041.000
         END                                                            0042.000
