aboutsummaryrefslogtreecommitdiff
path: root/tests/stack_machine_div/instructions.s.tcl
blob: e2d55dc11c29a4eabe5ee48a37a50272ca2a6d18 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/env tclsh

source tclasm.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