Common COMPWCB

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compwcb +++|          CTEXT  COMPWCB - WRITE CODED BUFFER.
00002  M01S00002.compwcb +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compwcb +++|          QUAL   COMPWCB
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compwcb +++| WCB      SPACE  4
00006  M01S00005.compwcb +++|***       WCB - WRITE CODED BUFFER.
00007  M01S00006.compwcb +++|*         G. R. MANSFIELD.  09/27/69.
00008  M01S00007.compwcb +++| WCB      SPACE  4
00009  M01S00008.compwcb +++|***              WCB WRITES A CODED LINE FROM A PP BUFFER TO A
00010  M01S00009.compwcb +++|*         CIRCULAR BUFFER.  THERE MUST BE ROOM IN THE CIRCULAR
00011  M01S00010.compwcb +++|*         BUFFER FOR THE CODED LIN.  DATA WILL BE TRANSFERRED TO
00012  M01S00011.compwcb +++|*         THE CIRCULAR BUFFER THROUGH A 0000 BYTE.  THIS BYTE WILL
00013  M01S00012.compwcb +++|*         TERMINATE THE CODED LINE, AND THE CURRENT CM WORD WILL BE
00014  M01S00013.compwcb +++|*         ZERO FILLED.
00015  M01S00014.compwcb +++|*         ENTRY  (A) = ADDRESS OF PP BUFFER.
00016  M01S00015.compwcb +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00017  M01S00016.compwcb +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
00018  M01S00017.compwcb +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00019  M01S00018.compwcb +++|*         EXIT   (IN - IN+1) UPDATED.
00020  M01S00019.compwcb +++|*         USES   T1, T2, CM - CM+4.
00021  M01S00020.compwcb +++|
00022  M01S00021.compwcb +++|
00023  M01S00022.compwcb +++| WCB      SUBR               ENTRY/EXIT
00024  M01S00023.compwcb +++|          STD    T1          SET PP BUFFER ADDRESS
00025  M01S00024.compwcb +++| WCB1     LDN    CM          SET BYTE ADDRESS
00026  M01S00025.compwcb +++|          STD    T2
00027  M01S00026.compwcb +++| WCB2     LDI    T1          MOVE BYTE
00028  M01S00027.compwcb +++|          STI    T2
00029  M01S00028.compwcb +++|          AOD    T1          ADVANCE WORD ADDRESS
00030  M01S00029.compwcb +++|          AOD    T2          ADVANCE BYTE ADDRESS
00031  M01S00030.compwcb +++|          LMN    CM+5
00032  M01S00031.compwcb +++|          NJN    WCB2        LOOP TO END OF WORD
00033  M01S00032.compwcb +++|          LDD    IN          STORE WORD
00034  M01S00033.compwcb +++|          SHN    6
00035  M01S00034.compwcb +++|          ADD    RA
00036  M01S00035.compwcb +++|          SHN    6
00037  M01S00036.compwcb +++|          ADD    IN+1
00038  M01S00037.compwcb +++|          CWD    CM
00039  M01S00038.compwcb +++|          AOD    IN+1        IN = IN+1
00040  M01S00039.compwcb +++|          SHN    -14
00041  M01S00040.compwcb +++|          RAD    IN
00042  M01S00041.compwcb +++|          LMD    LM
00043  M01S00042.compwcb +++|          NJN    WCB4
00044  M01S00043.compwcb +++|          LDD    IN+1
00045  M01S00044.compwcb +++|          LMD    LM+1
00046  M01S00045.compwcb +++|          NJN    WCB4        IF LIMIT NOT REACHED
00047  M01S00046.compwcb +++|          LDD    FT          IN = FIRST
00048  M01S00047.compwcb +++|          STD    IN
00049  M01S00048.compwcb +++|          LDD    FT+1
00050  M01S00049.compwcb +++|          STD    IN+1
00051  M01S00050.compwcb +++| WCB4     LDD    CM+4
00052  M01S00051.compwcb +++|          NJN    WCB1        LOOP TO END OF LINE
00053  M01S00052.compwcb +++|          LJM    WCBX        RETURN
00054  M01S00053.compwcb +++|          SPACE  4
00055  M01S00054.compwcb +++| QUAL$    IF     -DEF,QUAL$
00056  M01S00055.compwcb +++|          QUAL   *
00057  M01S00056.compwcb +++| WCB      EQU    /COMPWCB/WCB
00058  M01S00057.compwcb +++| QUAL$    ENDIF
00059  M01S00058.compwcb +++|          ENDX
00060  M01S00014.compwcb +++|COMPWEI

Line S184527 Modification History
`M01` (Yanked) (Updated by)	`@058641`
`M02` (Yanked) (Updated by)	`@062252`
`M03` (Yanked) (Updated by)	`@005376`
`M04` (Yanked) (Updated by)	`@054488`
`M05` (Yanked) (Added by)	`@013572`
`M06` (Yanked) (Added by)	`@015176`
`M07` (Yanked) (Updated by)	`@057582`
`M08` (Yanked) (Updated by)	`@056155`
`M09` (Yanked) (Updated by)	`@018286`

Seq #  *Modification Id* Act 
----------------------------+
00061  M09S184527.@018286 ---|7
00062  M01S37637.@061439 ---|6

Line S49965 Modification History
`M01` (Yanked) (Updated by)	`@008556`
`M02` (Yanked) (Updated by)	`@005330`
`M03` (Yanked) (Updated by)	`@053387`
`M04` (Yanked) (Updated by)	`@020780`
`M05` (Yanked) (Added by)	`@017388`
`M06` (Yanked) (Added by)	`@012652`
`M07` (Yanked) (Updated by)	`@021448`

Seq #  *Modification Id* Act 
----------------------------+
00063  M07S49965.@021448 ---|-
00064  M01S00013.compwcb +++|*         CONTROL BYTES -
00065  M01S00014.compwcb +++|*         CON    0,0
00066  M01S00015.compwcb +++|*
00067  M01S00016.compwcb +++|*         INFORMATION WRITTEN -
00068  M01S00017.compwcb +++|*T        60/

Figure

00069  M01S00018.compwcb +++|*T        12/,12/ FT,12/ ET,12/ ES,12/

Figure

00070  M01S00019.compwcb +++|*T        60/ PACKED DATE AND TIME

Figure

00071  M01S00020.compwcb +++|*
00072  M01S00021.compwcb +++|*         FT = FIRST TRACK
00073  M01S00022.compwcb +++|*         ET = CURRENT (EOI) TRACK
00074  M01S00023.compwcb +++|*         ES = CURRENT (EOI) SECTOR
00075  M01S00024.compwcb +++|*
00076  M01S00025.compwcb +++|*         ENTRY  (A) = BUFFER ADDRESS IF *WEI$* DEFINED.
00077  M01S00026.compwcb +++|*                (FA) = RELATIVE FNT ADDRESS IN NFL.
00078  M01S00027.compwcb +++|*                (RA) = REFERENCE ADDRESS IF (FA) .NE. 0.
00079  M01S00028.compwcb +++|*                (T6) = EOI TRACK.
00080  M01S00029.compwcb +++|*                (T7) = EOI SECTOR.
00081  M01S00030.compwcb +++|*                DRIVER PRESET.
00082  M01S00031.compwcb +++|*
00083  M01S00032.compwcb +++|*                IF (FA) = 0, FT IS ASSUMED TO BE
00084  M01S00033.compwcb +++|*                PRESTORED BY THE CALLER.
00085  M01S00034.compwcb +++|*
00086  M01S00035.compwcb +++|*         EXIT   (A) = STATUS FROM DRIVER.
00087  M01S00036.compwcb +++|*
00088  M01S00037.compwcb +++|*         USES   T3.
00089  M01S00038.compwcb +++|*
00090  M01S00039.compwcb +++|*         CALLS  WDS.
00091  M01S00040.compwcb +++|*
00092  M01S00041.compwcb +++|*         MACROS NFA.
00093  M01S00042.compwcb +++|
00094  M01S00043.compwcb +++|
00095  M01S00044.compwcb +++|          IF     DEF,WEI$,3
00096  M01S00045.compwcb +++| WEIA     EQU    0
00097  M01S00046.compwcb +++| TX       EQU    T3          BUFFER ADDRESS
00098  M01S00047.compwcb +++|          SKIP
00099  M01S00048.compwcb +++| TX       EQU    0
00100  M01S00049.compwcb +++|          IF     -DEF,WEIA
00101  M01S00050.compwcb +++| WEIA     EQU    BFMS        DEFINE EOI BUFFER
00102  M01S00051.compwcb +++|          ENDIF
00103  M01S00052.compwcb +++|
00104  M01S00053.compwcb +++|
00105  M01S00054.compwcb +++| WEI      SUBR               ENTRY/EXIT
00106  M01S00055.compwcb +++|          IF     DEF,WEI$
00107  M01S00056.compwcb +++|          STD    TX          SET BUFFER ADDRESS
00108  M01S00057.compwcb +++|          ADN    DTEI        ADDRESS FOR DATE/TIME
00109  M01S00058.compwcb +++|          STM    WEIC
00110  M01S00059.compwcb +++|          IF     DEF,FA
00111  M01S00060.compwcb +++|          SBN    DTEI-FNEI   ADDRESS FOR FNT/FST
00112  M01S00061.compwcb +++|          STM    WEIB
00113  M01S00062.compwcb +++|          ENDIF
00114  M01S00063.compwcb +++| FA       IF     DEF,FA
00115  M01S00064.compwcb +++|          LDD    FA
00116  M01S00065.compwcb +++|          ZJN    WEI1        IF FNT UNDEFINED
00117  M01S00066.compwcb +++|          NFA    FA,R
00118  M01S00067.compwcb +++|          CRM    WEIA+FNEI,TR  READ FNT/FST TO EOI BUFFER
00119  M01S00068.compwcb +++| WEIB     EQU    *-1
00120  M01S00069.compwcb +++| FA       ENDIF
00121  M01S00070.compwcb +++| WEI1     LDN    PDTL        READ DATE/TIME
00122  M01S00071.compwcb +++|          CRM    WEIA+DTEI,ON
00123  M01S00072.compwcb +++| WEIC     EQU    *-1
00124  M01S00073.compwcb +++|          LDD    T6          ENTER EOI TRACK
00125  M01S00074.compwcb +++|          STM    WEIA+ETEI,TX
00126  M01S00075.compwcb +++|          LDD    T7          ENTER EOI SECTOR
00127  M01S00076.compwcb +++|          STM    WEIA+ESEI,TX
00128  M01S00077.compwcb +++| WEI2     LDN    0           SET EOI LINKAGE BYTES
00129  M01S00078.compwcb +++|          STM    WEIA+1,TX
00130  M01S00079.compwcb +++| .ML      IF     DEF,WEI$
00131  M01S00080.compwcb +++|          STI    TX
00132  M01S00081.compwcb +++|          LDD    TX          WRITE EOI SECTOR
00133  M01S00082.compwcb +++|          IFNE   WLSF,0,1
00134  M01S00083.compwcb +++|          LMC    WLSF
00135  M01S00084.compwcb +++| .ML      ELSE
00136  M01S00085.compwcb +++|          STM    WEIA
00137  M01S00086.compwcb +++|          LDC    WEIA+WLSF   WRITE EOI SECTOR
00138  M01S00087.compwcb +++|          ENDIF
00139  M01S00088.compwcb +++|          RJM    WDS

Line S00089 Modification History
`M01` (Added by)	`compwcb`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00089.281l803 ---|          LJM    WEIX        RETURN
00141  M01S00001.281l803 +++|          UJP    WEIX        RETURN
00142  M01S00090.compwcb +++| WEI      SPACE  4
00143  M01S00091.compwcb +++| QUAL$    IF     -DEF,QUAL$
00144  M01S00092.compwcb +++|          QUAL   *
00145  M01S00093.compwcb +++| WEI      EQU    /COMPWEI/WEI
00146  M01S00094.compwcb +++|          IF     -DEF,WEIA,1
00147  M01S00095.compwcb +++| WEIA     EQU    /COMPWEI/WEIA
00148  M01S00096.compwcb +++| QUAL$    ENDIF
00149  M01S00097.compwcb +++|          ENDX