ACTINIT

    ACTION <\NOP\>
    ACBODY
      NOP

    ACTION <\BR .+2\>
    ACBODY
      BR .+2

    .IF NDF SP$ZER

      ACTION <\R1+R0 classic\>
      ACBODY
        LET R1 := R1 + R0

    .ENDC

    ACTION <\R1(23456.)+R0(12345.)\>
      LET R0 := #12345.
      LET R1 := #23456.
    ACBODY
      LET R1 := R1 + R0

    .IF NDF SP$ZER

      ACTION <\R1+@R0 classic\>
      ACBODY
        LET R1 := R1 + @R0

      ACTION <\R1(23456.)+@R0(M-12345.)\>
        LET R1 := #12345.
        LET R0 := #ADDM
      ACBODY
        LET R1 := R1 + @R0

      ACTION <\R0*R0 classic\>
      ACBODY
        LET R0 := R0 * R0

      ACTION <\11.*12.\>
        LET R1 := #11.
        LET R3 := #12.
      ACBODY
        LET R1 := R1 * R3

      ACTION <\R2/R0 classic\>
      ACBODY
        LET R2 := R2 / R0

      ACTION <\R2-R3(34567.)/R1(321.)\>
        LET R2 := #0
        LET R3 := #34567.
        LET R1 := #321.
      ACBODY
        LET R2 := R2 / R1

      ACTION <\34567./321. (FPU)\>
        LDCLD @#DNUM05, AC0
        LDCLD @#DNUM06, AC1
      ACBODY
        DIVD  AC1, AC0

      ACTION <\34567.89022+32109.754321\>
        LDD  @#DNUM01, AC0
        LDD  @#DNUM02, AC1
      ACBODY
        ADDD AC0, AC1

      ACTION <\34567.89022*32109.754321\>
        LDD  @#DNUM01, AC0
        LDD  @#DNUM02, AC1
      ACBODY
        MULD AC0, AC1

      ACTION <\34567.89022/32109.754321\>
        LDD  @#DNUM03, AC0
        LDD  @#DNUM04, AC1
      ACBODY
        DIVD AC1, AC0

      ACTION <\CIS MULPI 1\>	; multiply packed
      ACBODY
        MULPI
          BUF01, BUF02, BUFR01			      	; CVTNPI N01DSC, BUF01 | CVTNPI N02DSC, BUF02

      ACTION <\CIS MULP  1\>	; multiply packed
        LET R0 := #DMULP1
        L3D0
      ACBODY
        MULP	      				     	; CVTNPI N01DSC, BUF01 | CVTNPI N02DSC, BUF02

      ACTION <\CIS MULPI 2\>	; multiply packed
      ACBODY
        MULPI
          BUF03, BUF04, BUFR02				; CVTNPI N03DSC, BUF03 | CVTNPI N04DSC, BUF04

      ACTION <\CIS MULP  2\>	; multiply packed
        LET R0 := #DMULP2
        L3D0
      ACBODY
        MULP					     	; CVTNPI N03DSC, BUF03 | CVTNPI N04DSC, BUF04

      ACTION <\CIS ADDNI 1\>	; add numeric
      ACBODY
        ADDNI
          N05DSC, N06DSC, BUFR03

      ACTION <\CIS ADDN  1\>	; add numeric
        LET R0 := #DADDN1
        L3D0
      ACBODY
        ADDN

      ACTION <\CIS ADDNI 2\>	; add numeric
      ACBODY
        ADDNI
          N07DSC, N08DSC, BUFR04

      ACTION <\CIS ADDN  2\>	; add numeric
        LET R0 := #DADDN2
        L3D0
      ACBODY
        ADDN

      ACTION <\MOV 8 words 1\>
        LET R0 := #ABUF01
        LET R1 := #ABUF02
        LET R2 := #<ABF01E-ABUF01>/2
      ACBODY
        THRU R2
          LET (R1)+ := (R0)+
        END
  
      ACTION <\MOV 8 words 2\>
        LET R0 := #ABUF01
        LET R1 := #ABUF02
        LET R2 := #<ABF01E-ABUF01>/4
      ACBODY
        THRU R2
          LET (R1)+ := (R0)+
          LET (R1)+ := (R0)+
        END
  
      ACTION <\CIS MOVCI 8 words\>
      ACBODY
        MOVCI
          MBUF01, MBUF02, SPACE

      ACTION <\CIS MOVC  8 words 2\>
        LET R0 := #DMOVC
        L2D0
        LET R4 := #SPACE
      ACBODY
        MOVC

      ACTION <\R1 := M(word)\>
      ACBODY
        LET R1 := @#ADDM

      ACTION <\R1 := M(even byte)\>
      ACBODY
        LET R1 :B= @#ADDM

      ACTION <\R1 := M(odd byte)\>
      ACBODY
        LET R1 :B= @#ADDM+1

      ACTION <\#4+R0(2000)\>
        LET R0 := #2000
      ACBODY
        LET R0 := R0 + #4

      ACTION <\CMP (R0)+,(R0)+\>
        LET R0 := #2000
      ACBODY
        CMP (R0)+, (R0)+

      ACTION <\#2+R0(2000)\>
        LET R0 := #2000
      ACBODY
        LET R0 := R0 + #2

      ACTION <\INC R0 INC R0\>
        LET R0 := #2000
      ACBODY
        INC R0
        INC R0

      ACTION <\TST (R0)+\>
        LET R0 := #2000
      ACBODY
        TST (R0)+

      ACTION <\CLR R0 - SOB R0, .\>
        LET R0 := #0
      ACBODY
	.WORD 077001				; SOB R0, .

      ACTION <\ABS1-\>
        LET R0 := #-1
      ACBODY
        LET R1 := R0
        ASH #-15.,R1
        ADD R1,R0
        XOR R1,R0

      ACTION <\ABS1+\>
        LET R0 := #1
      ACBODY
        LET R1 := R0
        ASH #-15.,R1
        ADD R1,R0
        XOR R1,R0

      ACTION <\ABS2-\>
        LET R0 := #-1
      ACBODY
        TST R0
        BPL 10$
        NEG R0
      10$:

      ACTION <\ABS2+\>
        LET R0 := #1
      ACBODY
        TST R0
        BPL 10$
        NEG R0
      10$:

      ACTION <\ABS3-\>
        LET R0 := #-1
      ACBODY
        MOV R0, R1
        SXT R1
        ADD R1, R0
        XOR R1, R0

      ACTION <\ABS3+\>
        LET R0 := #1
      ACBODY
        MOV R0, R1
        SXT R1
        ADD R1, R0
        XOR R1, R0

    .ENDC

  ACTEND