QB041             0                    1                     2                     3                     4                     5                     6                     7                     8                     9

                                                                     This routine recomplements the dest field.                                              S5=1 = End of dest field
                                                                     It also changes the sign and S7 which is
A                                                                    used as the sign indicator.

 

B

                                                                          10 ---  77A    
                                                                      |             |    
                                                                      A I+0+1>I     |    
C                                                                 ----S WRITE       |*---
                                                                  |   |             |   |
                                                                  |   C          007V   |
                                                                  |   R 1,0       76R   |
                                                                  |   C3--    10 --CC   |
                                                                  |  Oops - wrong addr  |
D                                           ----------------------+----------------------
                                            |                     |
                                            |       10 ---  776   |                             00 ---  778           11 ---  7E7           10 ---  7EE    
                                            ----|             |   |                         K          DECA       K 0001        |       |             |    
                                                A L>Z         |   |                         A 0+-RH+1>DC  |       A RL^KL>R     |       A DH+RL>R     |    
E   QB031.JFE----------------------------------*S IJ>MN    MS S*--O-------------------------S WRITE       |*------|             |*------S IJ>MN    MS S*---
    (10)                                        C LZ>S5       |                             |             |       |             |       |             |   |
    Recomp              IJ = Lo stg addr        C          007V                             C          007V       C          007V       C          007V   |
                        of dest field           R AC,0      78R                             R 1,1       E7R       R 1,0       EER       R 0,S5      7CR   |
                        S4=0 = Oflo             E2--    *0 --EB                             E4--    11 --ED       E5--    10 --EE       E6--    0* --EF   |
                                               Test for end                                Recomp lo digit       Change sign           Combine sign and   |
F                                              of field                                    Store in D                                  digit. Branch on   |
                                                                                                                                       end of field       |
                                                                                                                                                          |
                                                                                                                                                          |
                                                                                                                                                          |
G                                                                                                                                                         |
                                                                                                                                                          |
                                                                                                                                                          |
                                                                                                                                                          |
                                                                                                                                                          |
                                                                                                                                                          |
H                                                                                       ---------------------------------------------                     |
                                                                                        |                                           |                     |
                                                                                        |       11 --- 081B           01 --- 0815   |                     |       01 ---  77D
                                                                                        |   |             |       |             |   |                     |   K 0001        |
                                                                                        |   |             |       A I-0>I       |   |                     |   A S^KL>S      |
J                                                                                       ----S IJ>MN    MS S   ----S WRITE       |*---                     O---S STORE       |*---------------------------------------------------------QB031------JGE
                                                                                            |             |   |   |             |                         |   |             |                                                          (00,01,10,11)
                                                                                            C          007V*- |   C          007V                         |   C          007V                                                          End routines
                                                                                            R 1,1       17R | |   R 1,1       1BR                         |   R S4,1      7DR                                                          from recomp
                                                                                            J4--    11 --JD | |   J5--    11 --JE                         |   J7--    ** --JG
                                                                                                            | |  Oops - wrong addr                        |  Invert S7 and branch to
K                                                                                                           | |                                           |  set cond reg. S6=0 = Oflo
                                                                                                            | |                                           |
                                                                                                10 --- 081A | |                             11 --- 0817   |       00 ---  77C    
                                                                                            |             | --+-------------------------K 0111,0   DECA   |   K 1000,0      |    
                                                                                            A L-0>L       |   |                         A 0+-R+C>RC   |   |   A J-0>J       |    
L                                                                                       ----S IJ>MN    MS S*--O-------------------------S             |*--O---S STORE   K>W R*---
                                                                                        |   C LZ>S5       |                             |             |       |             |   |
                                                                                        |   C          007V                             C          007V       C          007V   |
                                                                                        |   R AC,1      15R                             R 0,S5      7CR       R 1,0       1AR   |
                                                                                        |   L4--    *1 --LD                             L6--    0* --LF       L7--    10 --LG   |
                                                                                        |  Test for end                                Recomp digits         Not end, recomp    |
M                                                                                       |  of field                                    Branch on end         next digits        |
                                                                                        |                                              of field                                 |
                                                                                        |                                                                                       |
                                                                                        -----------------------------------------------------------------------------------------
 
N

 

P

 
 
Q

 

R

S

 Q
 B
 0
 4                                                                                                                                                | 128015        09/27/65 | Mach          2030       | Date  11/17/65          Sheet    1  QB041 |
 1                                                                                                                                                | 128045        11/17/65 | Name                     | Log    3568             Version    007    |
                                                                                                                                                  |                        | Mode          Manual     |                                           |
                                                                                                                                                  |                        | P.N.          837078     |    Decimal multiply/divide                |
                                                                                                                                                  |                        | IBM Corp.                |    Invalid op                             |