;structured programming definitions

UNIVERSAL

       Z=4
       N=10

DEFINE  SOJ     reg,addr
       DEC     reg
       JNE     addr
       ENDM

DEFINE  BIS     src,dst = OR src,dst
DEFINE  BISW    src,dst = ORW src,dst

DEFINE  BIC     src,dst
       MOV     src,D7
       COM     D7
       AND     D7,dst
       ENDM

DEFINE  BICW    src,dst
       MOVW    src,D7
       COMW    D7
       ANDW    D7,dst
       ENDM

DEFINE  BIT     src,dst
       MOV     dst,D7
       AND     src,D7
       ENDM

DEFINE  BITW    src,dst
       MOVW    dst,D7
       ANDW    src,D7
       ENDM

DEFINE  TJMP    index
       LEA     A6,1$$
       ADDW    index,A6
       ADDW    @A6,A6
       JMP     @A6
1$$:
       ENDM

DEFINE  CEQ     addr
       BNE     1$$
       CALL    addr
1$$:
       ENDM

DEFINE  CNE     addr
       BEQ     1$$
       CALL    addr
1$$:
       ENDM

DEFINE  REQ
       BNE     1$$
       RTN
1$$:
       ENDM

DEFINE  RNE
       BEQ     1$$
       RTN
1$$:
       ENDM

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.