/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   
x2        0x3CD1
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         
x3        0x7E0B       
          END     begin