2007年8月26日

Indirect registers

I001 LBL I
I002 SF 10
I003 INPUT A
I004 INPUT B
I005 800
I006 x<y?
I007 GTO I033
I008 x<>y
I009 RCL A
I010 x<0?
I011 GTO I031
I012 x>y?
I013 GTO I035
I014 x<>y
I015 1000
I016 ÷
I017 +
I018 STO I
I019 M=0→IN,1→OUT
I020 INPUT M
I021 RCL M
I022 x≠0?
I023 GTO I027
I024 INPUT X
I025 STO(I)
I026 GTO I028
I027 VIEW(I)
I028 ISG I
I029 GTO I021
I030 GTO I036
I031 TOO SMALL A
I032 GTO I036
I033 TOO LARGE B
I034 GTO I036
I035 INVALID RANGE
I036 CF 10
I037 RTN

さすがに手で一々インデックス指定していては手間なので、間接レジスタの入出力ルーチンを作成。
ISGの練習ともいう。

コメントする