git @ Cat's Eye Technologies Bhuna / master eg / clobject.bhu
master

Tree @master (Download .tar.gz)

clobject.bhu @masterraw · history · blame

Stack = ^ Size {
  S = [1,2,3,4,5,6,7]
  SP = 1
  
  Push = ^ E {
    //S[SP] = E
    Store S, SP, E
    SP = SP + 1
  }

  Pop = ^ {
    SP = SP - 1
    return S[SP]
  }

  return [Push, Pop]
}

Q = Stack(256)
Q_Push = Q[1]
Q_Pop = Q[2]

T = Stack(256)
T_Push = T[1]
T_Pop = T[2]

// T_Push 23

// Q_Push 15
// Print Q_Pop(), EoL

// T_Push 71
// Print T_Pop(), " ", T_Pop(), EoL