nedoPC.org

  XOR A ; +4=4
  SUB L ; +4=8
  LD L,A ; +4=12
  SBC H ; +4=16
  SUB L ; +4=20
  LD H,A ; +4=24

  LD DE,0 ; +10=10
  EX DE,HL ; +4=14
  OR A ; +4=18
  SBC HL,DE ; +15=33

  LD A,H ; +4=4
  CPL ; +4=8
  LD H,A ; +4=12
  LD A,L ; +4=16
  CPL ; +4=20
  LD L,A ; +4=24
  INC HL ; +6=30

// 0x80 // &&  A,B -> A&&B
*EXPR 0x80
#genlab %l1
        POP_D
        MOV_A,D
        ORA_E
        JZ      %l1
        MOV_A,H
        ORA_L
        JZ      %l1
        MVI_A,  #FF
%l1
        MOV_H,A
        MOV_L,A
*

// 0x81 // ||  A,B -> A||B
*EXPR 0x81
#genlab %l1
#genlab %l2
        POP_D
        MOV_A,D
        ORA_E
        JNZ     %l1
        MOV_A,H
        ORA_L
        JZ      %l2
%l1
        MVI_A,  #FF
%l2
        MOV_H,A
        MOV_L,A
*

// 0x90 // ==  A,B -> A==B
*EXPR 0x90
#genlab %l1
#genlab %l2
        POP_D
        MOV_A,H
        CMP_D
        JNZ     %l1
        MOV_A,L
        CMP_E
        JNZ     %l1
        LXI_H,  #FFFF
        JMP     %l2
%l1
        LXI_H,  0
%l2
*

// 0x91 // !=  A,B -> A!=B
*EXPR 0x91
#genlab %l1
#genlab %l2
        POP_D
        MOV_A,H
        CMP_D
        JNZ     %l1
        MOV_A,L
        SUB_E
        JZ      %l2
%l1
        MVI_A,  #FF
%l2
        MOV_H,A
        MOV_L,A
*

// 0x92 // >   A,B -> A>B
*EXPR 0x92
#genlab %l1
#genlab %l2
        POP_D
        MOV_A,E
        SUB_L
        MOV_L,A
        MOV_A,D
        SBB_H
        MOV_H,A
        ORA_L
        JZ      %l2
        MOV_A,H
        ANA_A
        JM      %l1
        LXI_H,  #FFFF
        JMP     %l2
%l1
        LXI_H,  0
%l2
*

// 0x93 // <   A,B -> A<B
*EXPR 0x93
#genlab %l1
#genlab %l2
        POP_D
        MOV_A,L
        SUB_E
        MOV_L,A
        MOV_A,H
        SBB_D
        MOV_H,A
        ORA_L
        JZ      %l2
        MOV_A,H
        ANA_A
        JM      %l1
        LXI_H,  #FFFF
        JMP     %l2
%l1
        LXI_H,  0
%l2
*

// 0x94 // >=  A,B -> A>=B
*EXPR 0x94
#genlab %l1
#genlab %l2
#genlab %l3
        POP_D
        MOV_A,L
        SUB_E
        MOV_L,A
        MOV_A,H
        SBB_D
        MOV_H,A
        ORA_L
        JZ      %l1
        MOV_A,H
        ANA_A
        JP      %l2
%l1
        LXI_H,  #FFFF
        JMP     %l3
%l2
        LXI_H,  0
%l3
*

// 0x95 // <=  A,B -> A<=B
*EXPR 0x95
#genlab %l1
#genlab %l2
#genlab %l3
        POP_D
        MOV_A,E
        SUB_L
        MOV_L,A
        MOV_A,D
        SBB_H
        MOV_H,A
        ORA_L
        JZ      %l1
        MOV_A,H
        ANA_A
        JP      %l2
%l1
        LXI_H,  #FFFF
        JMP     %l3
%l2
        LXI_H,  0
%l3
*

// CREATED: 20-JUL-2024
ROBOT "TEST-0002"
AUTHOR "SHAOS"
+INC/ROBBY
main()
{
 text "<><><><><><><><><><> MAIN-BEGIN"

 def arr[10] = {-1, 0, 1, 0}

 EQ1 = arr[1] == arr[2]
 NE1 = arr[1] != arr[2]
 GT1 = arr[1] >  arr[2]
 GE1 = arr[1] >= arr[2]
 LT1 = arr[1] <  arr[2]
 LE1 = arr[1] <= arr[2]

 EQ2 = arr[1] == arr[0]
 NE2 = arr[1] != arr[0]
 GT2 = arr[1] >  arr[0]
 GE2 = arr[1] >= arr[0]
 LT2 = arr[1] <  arr[0]
 LE2 = arr[1] <= arr[0]

 EQ3 = arr[1] == arr[3]
 NE3 = arr[1] != arr[3]
 GT3 = arr[1] >  arr[3]
 GE3 = arr[1] >= arr[3]
 LT3 = arr[1] <  arr[3]
 LE3 = arr[1] <= arr[3]

 termsetsay(0,5,2)
 say "F?#&EQ1 T?#&NE1 F?#&GT1 F?#&GE1 T?#&LT1 T?#&LE1 "
 termsetsay(0,6,2)
 say "F?#&EQ2 T?#&NE2 T?#&GT2 T?#&GE2 F?#&LT2 F?#&LE2 "
 termsetsay(0,7,2)
 say "T?#&EQ3 F?#&NE3 F?#&GT3 T?#&GE3 F?#&LT3 T?#&LE3 "

 SUM = 0
 if(!EQ1&&NE1) SUM=SUM+1
 if(!GT1)      SUM=SUM+2
 if(!GE1)      SUM=SUM+4
 if(LT1)       SUM=SUM+8
 if(LE1)       SUM=SUM+16
 if(!EQ2&&NE2) SUM=SUM+32
 if(GT2)       SUM=SUM+64
 if(GE2)       SUM=SUM+128
 if(!LT2)      SUM=SUM+256
 if(!LE2)      SUM=SUM+512
 if(EQ3&&!NE3) SUM=SUM+1024
 if(!GT3)      SUM=SUM+2048
 if(GE3)       SUM=SUM+4096
 if(!LT3)      SUM=SUM+8192
 if(LE3)       SUM=SUM+16384

 termsetsay(0,10,2)
 if(SUM==#7FFF) say "GOOD #&SUM "
 else say "BAD #&SUM "

 text "<><><><><><><><><><> MAIN-END"
}
+LIB/P2TERM

// 0xA0 // +   A,B -> A+B
*EXPR 0xA0
        POP_D
        DAD_D
*

// 0xA1 // -   A,B -> A-B
*EXPR 0xA1
        POP_D
        MOV_A,E
        SUB_L
        MOV_L,A
        MOV_A,D
        SBB_H
        MOV_H,A
*
...

// 0xC0 // &   A,B -> A&B
*EXPR 0xC0
        POP_D
        MOV_A,D
        ANA_H
        MOV_H,A
        MOV_A,E
        ANA_L
        MOV_L,A
*

// 0xC1 // |   A,B -> A|B
*EXPR 0xC1
        POP_D
        MOV_A,D
        ORA_H
        MOV_H,A
        MOV_A,E
        ORA_L
        MOV_L,A
*

// 0xC2 // ^   A,B -> A^B
*EXPR 0xC2
        POP_D
        MOV_A,D
        XRA_H
        MOV_H,A
        MOV_A,E
        XRA_L
        MOV_L,A
*
...

// 0xE0 // -   A -> -A
*EXPR 0xE0
        MOV_A,H
        CMA
        MOV_H,A
        MOV_A,L
        CMA
        MOV_L,A
        INX_H
*

// 0xE1 // ~   A -> ~A
*EXPR 0xE1
        MOV_A,H
        CMA
        MOV_H,A
        MOV_A,L
        CMA
        MOV_L,A
*

// 0xE2 // !   A -> !A
*EXPR 0xE2
#genlab %l1
        MOV_A,H
        ORA_L
        JZ      %l1
        LXI_H,  1
%l1
        DCX_H
*

// 0xF0 // ?:         A,B,C -> A?B:C
*EXPR 0xF0
#genlab %l1
        POP_D
        POP_B
        MOV_A,B
        ORA_C
        JZ      %l1
        XCHG
%l1
*

xor a
sub l
ld l,a
sbc a,a
sub h
ld h,a

\ SHIFT DE LEFT BY L&31 AND RETURN IN HL
SHIFTL: XCHG
        MOV_A,E
        ANI     31
        RZ      \ RETURN IF SHIFT BY 0
        CPI     8
        JNZ     SHIFTL1
        \ SPECIAL CASE - SHIFT BY 8
        MOV_H,L
        MVI_L,  0
        RET
SHIFTL1:
        DAD_H
        DCR_A
        JNZ     SHIFTL1
        RET

\ SHIFT DE RIGHT (ARITHMETICALLY) BY L&31 AND RETURN IN HL
SHIFTR: XCHG
        MOV_A,E
        ANI     31
        RZ      \ RETURN IF SHIFT BY 0
        MOV_D,A
        CPI     8
        JZ      SHIFTR3
        MOV_A,H
        RAL
        JC      SHIFTR2
SHIFTR0:
        XRA_A
        MOV_A,H
        RAR
        MOV_H,A
        MOV_A,L
        RAR
        MOV_L,A
        DCR_D
        JNZ     SHIFTR0
        RET
SHIFTR1:
        STC
SHIFTR2:
        MOV_A,H
        RAR
        MOV_H,A
        MOV_A,L
        RAR
        MOV_L,A
        DCR_D
        JNZ     SHIFTR1
        RET
SHIFTR3:
        \ SPECIAL CASE - SHIFT BY 8
        MOV_L,H
        MOV_A,H
        RAL
        JC      SHIFTR4
        MVI_H,  0
        RET
SHIFTR4:
        MVI_H,  #FF
        RET