# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1554985595 -32400
# Node ID dd1cc5e836ad8c2e8a8edc54d57f6013da462024
# Parent  d4e2f1179baf55bd3a43aef91138c52495fe688f
fix

diff -r d4e2f1179baf -r dd1cc5e836ad TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Thu Apr 11 21:23:29 2019 +0900
+++ b/TL1/TL1os9.asm	Thu Apr 11 21:26:35 2019 +0900
@@ -207,9 +207,9 @@
        BSR REGNAM
        CLR LSIZE
        BSR REG0
+       LBSR PROG 
        LDB  LSIZE
        STB  GSIZE
-       LBSR PROG 
        LBSR STPOUT
        LDX TEND
        STX GEND