Common COMPDV5

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compdv5 +++|          CTEXT  COMPDV5 - DIVIDE BY FIVE.
00002  M01S00002.compdv5 +++|          BASE   M
00003  M01S00003.compdv5 +++| DV5      SPACE  4
00004  M01S00004.compdv5 +++|          IF     -DEF,QUAL$,1
00005  M01S00005.compdv5 +++|          QUAL   COMPDV5

Line S00006 Modification History
`M01` (Added by)	`compdv5`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compdv5 +++| DV5      SPACE  4
00009  M01S00008.compdv5 +++|***       DV5 - DIVIDE BY FIVE.
00010  M01S00009.compdv5 +++|*         P. D. HAAS.        76/09/08.
00011  M01S00010.compdv5 +++| DV5      SPACE  4
00012  M01S00011.compdv5 +++|***              DV5 DIVIDES A 12 BIT QUANTITY BY FRACTIONAL
00013  M01S00012.compdv5 +++|*         APPROXIMATION OF ONE FIFTH.  THE ALGORITHM IS ADAPTED FROM
00014  M01S00013.compdv5 +++|*         SUBROUTINE *RTB* IN *STL*.  IF RND$ IS DEFINED, ROUNDING
00015  M01S00014.compdv5 +++|*         WILL BE PERFORMED.
00016  M01S00015.compdv5 +++|*
00017  M01S00016.compdv5 +++|*         ENTRY  (A) = QUANTITY TO BE DIVIDED.
00018  M01S00017.compdv5 +++|*
00019  M01S00018.compdv5 +++|*         EXIT   (A) = QUANTITY / 5.
00020  M01S00019.compdv5 +++|*
00021  M01S00020.compdv5 +++|*         USES   T0, T2.
00022  M01S00021.compdv5 +++|
00023  M01S00022.compdv5 +++|
00024  M01S00023.compdv5 +++| DV5      SUBR               ENTRY/EXIT
00025  M01S00024.compdv5 +++|          IF     DEF,RND$,1
00026  M01S00025.compdv5 +++|          ADN    4           ROUND
00027  M01S00026.compdv5 +++|          STD    T2          SET BYTE COUNT
00028  M01S00027.compdv5 +++|          SHN    1           2*BYTES
00029  M01S00028.compdv5 +++|          ADD    T2          3*BYTES
00030  M01S00029.compdv5 +++|          SHN    2           12*BYTES
00031  M01S00030.compdv5 +++|          ADD    T2          13*BYTES
00032  M01S00031.compdv5 +++|          SHN    14   (-6)   13*BYTES/64
00033  M01S00032.compdv5 +++|          STD    T0
00034  M01S00033.compdv5 +++|          SHN    6+2         4*13*BYTES = 52*BYTES
00035  M01S00034.compdv5 +++|          SBD    T2          51*BYTES
00036  M01S00035.compdv5 +++|          ADD    T0          51*BYTES + 13*BYTES/64
00037  M01S00036.compdv5 +++|          SHN    -8D         (51*BYTES + 13*BYTES/64) / 256
00038  M01S00037.compdv5 +++|          UJN    DV5X        RETURN
00039  M01S00038.compdv5 +++| DV5      SPACE  4
00040  M01S00039.compdv5 +++|          BASE   *
00041  M01S00040.compdv5 +++|          IF     -DEF,QUAL$
00042  M01S00041.compdv5 +++|          QUAL   *
00043  M01S00042.compdv5 +++| DV5      EQU    /COMPDV5/DV5
00044  M01S00043.compdv5 +++|          ENDIF
00045  M01S00044.compdv5 +++|          ENDX