#!/usr/bin/env tclsh

source tclasm_old.tcl

### store 2 values to memory, load them back, divide one by another and store
### the result (both quotient and remainder); this is analogous to addition
### and substraction tests

set_sp h7FFFC
const 777681520
store@ h1EEE0
const 3721
store@ h1EEE4

load@ h1EEE0
stack down
load@ h1EEE4
# dividing 777681520 by 3721 should yield 208997 r 3683
div
store@ h1EEE8
stack up
store@ h1EEEC
halt