blob: 8a5f5dff4420a2c1a86972fb2baa7a4b862d1195 (
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_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
|
