Common COMPWBB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compwbb +++|          CTEXT  COMPWBB - WRITE BINARY BUFFER.
00002  M00S00002.compwbb +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compwbb +++|          QUAL   COMPWBB

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compwbb +++| WBB      SPACE  4
00006  M00S00005.compwbb +++|***       WBB - WRITE BINARY BUFFER.
00007  M00S00006.compwbb +++|*         G. R. MANSFIELD.  09/27/69.
00008  M00S00007.compwbb +++| WBB      SPACE  4
00009  M00S00008.compwbb +++|***              WBB WRITES THE CONTENTS OF A PP BUFFER TO A CIRCULAR
00010  M00S00009.compwbb +++|*         BUFFER.  THE CIRCULAR BUFFER MUST CONTAIN ROOM FOR ALL
00011  M00S00010.compwbb +++|*         THE DATA SPECIFIED.
00012  M00S00011.compwbb +++|*         ENTRY  (A) = ADDRESS OF PP BUFFER.
00013  M00S00012.compwbb +++|*                (T1) = WORD COUNT OF BUFFER.
00014  M00S00013.compwbb +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00015  M00S00014.compwbb +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
00016  M00S00015.compwbb +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00017  M00S00016.compwbb +++|*         EXIT   (IN - IN+1) UPDATED.
00018  M00S00017.compwbb +++|*         USES   T1.
00019  M00S00018.compwbb +++|
00020  M00S00019.compwbb +++|
00021  M00S00020.compwbb +++| WBB      SUBR               ENTRY/EXIT
00022  M00S00021.compwbb +++|          STM    WBBA        SET WRITE ADDRESS
00023  M00S00022.compwbb +++| WBB1     LDD    IN          STORE WORD
00024  M00S00023.compwbb +++|          SHN    6
00025  M00S00024.compwbb +++|          ADD    RA
00026  M00S00025.compwbb +++|          SHN    6
00027  M00S00026.compwbb +++|          ADD    IN+1
00028  M00S00027.compwbb +++|          CWM    *,ON
00029  M00S00028.compwbb +++| WBBA     EQU    *-1
00030  M00S00029.compwbb +++|          AOD    IN+1        IN = IN + 1
00031  M00S00030.compwbb +++|          SHN    -14
00032  M00S00031.compwbb +++|          RAD    IN
00033  M00S00032.compwbb +++|          LMD    LM
00034  M00S00033.compwbb +++|          NJN    WBB2
00035  M00S00034.compwbb +++|          LDD    IN+1
00036  M00S00035.compwbb +++|          LMD    LM+1
00037  M00S00036.compwbb +++|          NJN    WBB2        IF LIMIT NOT REACHED
00038  M00S00037.compwbb +++|          LDD    FT          IN = FIRST
00039  M00S00038.compwbb +++|          STD    IN
00040  M00S00039.compwbb +++|          LDD    FT+1
00041  M00S00040.compwbb +++|          STD    IN+1
00042  M00S00041.compwbb +++| WBB2     LDN    5           ADVANCE PP ADDRESS
00043  M00S00042.compwbb +++|          RAM    WBBA
00044  M00S00043.compwbb +++|          SOD    T1          DECREMENT WORD COUNT
00045  M00S00044.compwbb +++|          NJN    WBB1        LOOP
00046  M00S00045.compwbb +++|          UJN    WBBX        RETURN
00047  M00S00046.compwbb +++|          SPACE  4
00048  M00S00047.compwbb +++| QUAL$    IF     -DEF,QUAL$
00049  M00S00048.compwbb +++|          QUAL   *
00050  M00S00049.compwbb +++| WBB      EQU    /COMPWBB/WBB
00051  M00S00050.compwbb +++| QUAL$    ENDIF
00052  M00S00051.compwbb +++|          ENDX