1 1.1 christos # mach: all 2 1.1 christos # output: 3 1.1 christos # sim: --environment operating 4 1.1 christos 5 1.1 christos .include "t-macros.i" 6 1.1 christos 7 1.1 christos start 8 1.1 christos 9 1.1 christos PSW_BITS = PSW_FX|PSW_ST|PSW_SM 10 1.1 christos loadpsw2 PSW_BITS 11 1.1 christos 12 1.1 christos ;; Test normal sadd 13 1.1 christos 14 1.1 christos loadacc2 a0 0x00 0x7fff 0xffff 15 1.1 christos loadacc2 a1 0xff 0x8000 0x0000 16 1.1 christos sadd a1, a0 17 1.1 christos checkacc2 1 a0 0x00 0x7fff 0xffff 18 1.1 christos checkacc2 2 a1 0xff 0x8000 0x7fff 19 1.1 christos 20 1.1 christos ;; Test overflow 21 1.1 christos 22 1.1 christos loadacc2 a0 0x00 0x0000 0x0000 23 1.1 christos loadacc2 a1 0x01 0x8000 0x0000 24 1.1 christos sadd a1, a0 25 1.1 christos checkacc2 3 a0 0x00 0x0000 0x0000 26 1.1 christos checkacc2 4 a1 0x00 0x7fff 0xffff 27 1.1 christos 28 1.1 christos loadacc2 a0 0x00 0xffff 0xffff 29 1.1 christos loadacc2 a1 0x00 0xffff 0xffff 30 1.1 christos sadd a1, a0 31 1.1 christos checkacc2 5 a1 0x00 0x7fff 0xffff 32 1.1 christos checkacc2 6 a0 0x00 0xffff 0xffff 33 1.1 christos 34 1.1 christos ;; Test underflow 35 1.1 christos 36 1.1 christos loadacc2 a0 0x00 0x0000 0x0000 37 1.1 christos loadacc2 a1 0x80 0x8000 0x0000 38 1.1 christos sadd a1, a0 39 1.1 christos checkacc2 7 a0 0x00 0x0000 0x0000 40 1.1 christos checkacc2 8 a1 0xff 0x8000 0x0000 41 1.1 christos 42 1.1 christos exit0 43