/prg3main       
          EXTRN   inv
          EXTRN   xor
          EXTRN   hd
ans1      RES      1
ans2      RES      1
ans3      RES      1
ans4      RES      1
ans5      RES      1
ans6      RES      1
ans7      RES      1
x1        0x6A34   
begin     loco    4020 
          swap         
          loco    x2
          push
          call    inv
          stod    x2
          loco    x1
          push         
          call    inv
          stod    x1
          call    xor
          stod    ans1
          call    hd
          stod    ans2
          loco    x3
          stol    1
          call    xor
          stod    ans3
          call    hd
          stod    ans4
          loco    x2
          stol    0
          call    xor
          stod    ans5
          call    hd
          stod    ans6
          loco    x2
          stol    1
          call    xor
          stod    ans7
          insp    2
          halt         
x2        0x3CD1
x3        0x7E0B       
          END     begin