Common COMPWBB

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compwbb +++|          CTEXT  COMPWBB - WRITE BINARY BUFFER.
00002  M01S00002.compwbb +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compwbb +++|          QUAL   COMPWBB
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compwbb +++| WBB      SPACE  4
00006  M01S00005.compwbb +++|***       WBB - WRITE BINARY BUFFER.
00007  M01S00006.compwbb +++|*         G. R. MANSFIELD.  09/27/69.
00008  M01S00007.compwbb +++| WBB      SPACE  4
00009  M01S00008.compwbb +++|***              WBB WRITES THE CONTENTS OF A PP BUFFER TO A CIRCULAR
00010  M01S00009.compwbb +++|*         BUFFER.  THE CIRCULAR BUFFER MUST CONTAIN ROOM FOR ALL
00011  M01S00010.compwbb +++|*         THE DATA SPECIFIED.
00012  M01S00011.compwbb +++|*         ENTRY  (A) = ADDRESS OF PP BUFFER.
00013  M01S00012.compwbb +++|*                (T1) = WORD COUNT OF BUFFER.
00014  M01S00013.compwbb +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00015  M01S00014.compwbb +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
00016  M01S00015.compwbb +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00017  M01S00016.compwbb +++|*         EXIT   (IN - IN+1) UPDATED.
00018  M01S00017.compwbb +++|*         USES   T1.
00019  M01S00018.compwbb +++|
00020  M01S00019.compwbb +++|
00021  M01S00020.compwbb +++| WBB      SUBR               ENTRY/EXIT
00022  M01S00021.compwbb +++|          STM    WBBA        SET WRITE ADDRESS
00023  M01S00022.compwbb +++| WBB1     LDD    IN          STORE WORD
00024  M01S00023.compwbb +++|          SHN    6
00025  M01S00024.compwbb +++|          ADD    RA
00026  M01S00025.compwbb +++|          SHN    6
00027  M01S00026.compwbb +++|          ADD    IN+1
00028  M01S00027.compwbb +++|          CWM    *,ON
00029  M01S00028.compwbb +++| WBBA     EQU    *-1
00030  M01S00029.compwbb +++|          AOD    IN+1        IN = IN + 1
00031  M01S00030.compwbb +++|          SHN    -14
00032  M01S00031.compwbb +++|          RAD    IN
00033  M01S00032.compwbb +++|          LMD    LM
00034  M01S00033.compwbb +++|          NJN    WBB2
00035  M01S00034.compwbb +++|          LDD    IN+1
00036  M01S00035.compwbb +++|          LMD    LM+1
00037  M01S00036.compwbb +++|          NJN    WBB2        IF LIMIT NOT REACHED
00038  M01S00037.compwbb +++|          LDD    FT          IN = FIRST
00039  M01S00038.compwbb +++|          STD    IN
00040  M01S00039.compwbb +++|          LDD    FT+1
00041  M01S00040.compwbb +++|          STD    IN+1
00042  M01S00041.compwbb +++| WBB2     LDN    5           ADVANCE PP ADDRESS
00043  M01S00042.compwbb +++|          RAM    WBBA
00044  M01S00043.compwbb +++|          SOD    T1          DECREMENT WORD COUNT
00045  M01S00044.compwbb +++|          NJN    WBB1        LOOP
00046  M01S00045.compwbb +++|          UJN    WBBX        RETURN
00047  M01S00046.compwbb +++|          SPACE  4
00048  M01S00047.compwbb +++| QUAL$    IF     -DEF,QUAL$
00049  M01S00048.compwbb +++|          QUAL   *
00050  M01S00049.compwbb +++| WBB      EQU    /COMPWBB/WBB
00051  M01S00050.compwbb +++| QUAL$    ENDIF
00052  M01S00051.compwbb +++|          ENDX