Deck MAC1 Part 002

4 Modifications

Listing Sections

Deck MAC1 Start
Deck MAC1 Part 1 (Line 1902)
Deck MAC1 Part 2 (Line 3773)

Source

Seq #  *Modification Id* Act 
----------------------------+
03773  M00S03604.mac1    +++|          SA3    A3+B1       =10H
03774  M00S03605.mac1    +++|          BX6    X7
03775  M00S03606.mac1    +++|          LX7    -5          GENERATE SPACE MASK
03776  M00S03607.mac1    +++|          IX7    X6-X7
03777  M00S03608.mac1    +++|          BX7    X6+X7
03778  M00S03609.mac1    +++|          BX3    -X7*X3      SELECT SPACE CODES
03779  M00S03610.mac1    +++|          IX6    X1+X3       MERGE SPACES
03780  M00S03611.mac1    +++|          EQ     SFWX        EXIT
03781  M00S03612.mac1    +++|
03782  M00S03613.mac1    +++| SFWA     CON    37373737373737373737B  MASK
03783  M00S03614.mac1    +++|          CON    10H
03784  M00S03615.mac1    +++| SFW      SPACE  4,10
03785  M00S03616.mac1    +++|          BASE   *
03786  M00S03617.mac1    +++| QUAL$    IF     -DEF,QUAL$
03787  M00S03618.mac1    +++|          QUAL   *
03788  M00S03619.mac1    +++| SFW      EQU    /COMCSFW/SFW
03789  M00S03620.mac1    +++| QUAL$    ENDIF
03790  M00S03621.mac1    +++|          ENDX
03791  M00S03622.mac1    +++|
03792  M00S03623.mac1    +++|          END
03793  M00S03624.mac1    +++|          IDENT  XWOD
03794  M00S03625.mac1    +++|          ENTRY  XWOD
03795  M00S03626.mac1    +++|          SYSCOM B1
03796  M00S03627.mac1    +++|          TITLE  XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
03797  M00S03628.mac1    +++|*COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.

Line S03629 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03798  M01S03629.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Line S00084 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03799  M01S00084.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03800  M00S03630.mac1    +++| XWOD     SPACE  4,8
03801  M00S03631.mac1    +++|***       XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
03802  M00S03632.mac1    +++|*
03803  M00S03633.mac1    +++|*         *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
03804  M00S03634.mac1    +++|*         TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
03805  M00S03635.mac1    +++|*         OF THE INPUT WORD.
03806  M00S03636.mac1    +++|*
03807  M00S03637.mac1    +++|*         XWOD(W,A);                   (*SYMPL* CALL)
03808  M00S03638.mac1    +++|*
03809  M00S03639.mac1    +++|*         ENTRY  W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED.
03810  M00S03640.mac1    +++|*                A, A 20 CHARACTER BUFFER FWA.
03811  M00S03641.mac1    +++|*                    (AN ARRAY OR ITEM 20 CHARACTERS LONG)
03812  M00S03642.mac1    +++|*
03813  M00S03643.mac1    +++|*         EXIT   A AND A+1, CONTAIN CONVERTED WORD.
03814  M00S03644.mac1    +++|*
03815  M00S03645.mac1    +++|*         USES   X - 1, 2, 6, 7.
03816  M00S03646.mac1    +++|*                A - 1, 2, 6, 7.
03817  M00S03647.mac1    +++|*                B - 1, 7.
03818  M00S03648.mac1    +++|*
03819  M00S03649.mac1    +++|*         CALLS  WOD.
03820  M00S03650.mac1    +++|
03821  M00S03651.mac1    +++|
03822  M00S03652.mac1    +++| XWOD     SUBR               ENTRY/EXIT
03823  M00S03653.mac1    +++|          SB1    1           (B1) = 1
03824  M00S03654.mac1    +++|          SB7    A1          SAVE (A1)
03825  M00S03655.mac1    +++|          SA1    X1          FETCH W
03826  M00S03656.mac1    +++|          RJ     WOD
03827  M00S03657.mac1    +++|          SA2    B7+B1       FETCH LOCATION (A)
03828  M00S03658.mac1    +++|          SA6    X2          STORE UPPER 10 CHARACTERS
03829  M00S03659.mac1    +++|          SA7    X2+B1       STORE LOWER 10 CHARACTERS
03830  M00S03660.mac1    +++|          EQ     XWODX       RETURN
03831  M00S03661.mac1    +++|
03832  M00S03662.mac1    +++|*CALL     COMCWOD            CONVERT WORD TO OCTAL DISPLAY CODE.
03833  M00S03663.mac1    +++|
03834  M00S03664.mac1    +++|          END
03835  M00S03665.mac1    +++|          IDENT  XZAP
03836  M00S03666.mac1    +++|          ENTRY  XZAP
03837  M00S03667.mac1    +++|          SYSCOM B1
03838  M00S03668.mac1    +++|          TITLE  XZAP - *Z* ARGUMENT PROCESSOR.
03839  M00S03669.mac1    +++|*COMMENT  *Z* ARGUMENT PROCESSOR.

Line S03670 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03840  M01S03670.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1980.

Line S00085 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03841  M01S00085.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03842  M00S03671.mac1    +++|
03843  M00S03672.mac1    +++|*CALL     COMCMAC
03844  M00S03673.mac1    +++| XZAP     SPACE  4,15

Line S03674 Modification History
`M01` (Removed by)	`ns2676`

Seq #  *Modification Id* Act 
----------------------------+
03845  M01S03674.ns2676  ---|**        XZAP - *Z* ARGUMENT PROCESSOR.

Line S00010 Modification History
`M01` (Added by)	`ns2676`

Seq #  *Modification Id* Act 
----------------------------+
03846  M01S00010.ns2676  +++|***       XZAP - *Z* ARGUMENT PROCESSOR.
03847  M00S03675.mac1    +++|*
03848  M00S03676.mac1    +++|*         XZAP(FADDR);   (*SYMPL* CALL)
03849  M00S03677.mac1    +++|*
03850  M00S03678.mac1    +++|*         ENTRY  FADDR = FWA OF FET.
03851  M00S03679.mac1    +++|*
03852  M00S03680.mac1    +++|*         EXIT   DIRECTIVES ENTERED INTO THE BUFFER
03853  M00S03681.mac1    +++|*                SPECIFIED IN THE FET.
03854  M00S03682.mac1    +++|*
03855  M00S03683.mac1    +++|*         USES   B - 1.
03856  M00S03684.mac1    +++|*                X - 2.
03857  M00S03685.mac1    +++|*
03858  M00S03686.mac1    +++|*         CALLS  ZAP.
03859  M00S03687.mac1    +++|
03860  M00S03688.mac1    +++|
03861  M00S03689.mac1    +++| XZAP     SUBR               ENTRY/EXIT
03862  M00S03690.mac1    +++|          SB1    1
03863  M00S03691.mac1    +++|          BX2    X1          SET ADDRESS OF FET
03864  M00S03692.mac1    +++|          RJ     ZAP         PROCESS *Z* ARGUMENT
03865  M00S03693.mac1    +++|          EQ     XZAPX      RETURN
03866  M00S03694.mac1    +++|
03867  M00S03695.mac1    +++|*CALL     COMCUSB
03868  M00S03696.mac1    +++|*CALL     COMCZAP
03869  M00S03697.mac1    +++|
03870  M00S03698.mac1    +++|          END