Subversion Repositories igor

(in-package #:mcasm)

(defun write-microprogram (&key (output-format :simulator))

  (with-assembly ("/tmp/microcode" :output-format output-format)

    (%set-type-imm $zero +type-int+)

    (%set-datum-imm $zero 0)

    (%set-type-imm $one +type-int+)

    (%set-datum-imm $one 1)

    (%set-type-imm $two +type-int+)

    (%set-datum-imm $two 2)

    (%set-type-imm $tmp1 +type-int+)

    (%set-type-imm $tmp2 +type-int+)

    ;; do something (here, an %add) #x42 times:

    (%set-datum-imm $tmp1 #x42)

    (%set-datum-imm $tmp2 0)

    :loop1

    (%add $tmp2 $one)

    (%decr $tmp1)

    (branchimm-false :loop1)

    ;; do something else (here, a %sub) #x4 times:

    (%set-datum-imm $tmp1 #x4)

    :loop2

    (%sub $tmp2 $one)

    (%decr $tmp1)

    (branchimm-false :loop2)

    (%halt)))