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