1 ;;; 0から65535の範囲にある整数の入力を受け付ける
5 ;;; 入力が数字以外の場合は、SFフラグを設定
6 ;;; 65535を超える数値の場合は、OFフラグを設定
9 IN IBUF,ILEN ; 入力文字列を格納
22 ;;; 10進数の整数を表す文字列を数値に変換
24 ;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス
27 ;;; 文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1
38 AND GR2,GR2 ; GR2 = 0の場合、OVへジャンプ
40 CPL GR2,=5 ; GR2 > 5の場合、OVへジャンプ
42 XOR GR4,GR4 ; GR4: インデックスの初期化
43 LD GR5,GR1 ; GR5 <- GR1
44 LD GR6,GR2 ; GR6 <- GR2
46 STOL LD GR1,GR5 ; GR1に、入力文字列中の次の桁を格納
49 LD GR7,ZERO ; GR1 < '0'の場合、FINへジャンプ
52 LD GR7,NINE ; GR1 > '9'の場合、FINへジャンプ
55 SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換
58 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
59 CPL GR4,GR6 ; GR4 = GR6の場合、ループ脱出
61 MUL10 LAD GR2,10 ; GR2:10進数の 10
62 LD GR1,GR3 ; GR1 <- GR3
63 CALL MULL ; MULLを呼び出し、GR3 <- GR1 * GR2
65 OV LAD GR7,1 ; オーバーフロー発生
77 ;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
80 ;;; 積が65535より大きい場合は、オーバーフロー
83 AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ
85 AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ
89 LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト
90 JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ
92 ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1
93 JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ
94 NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ
96 SLL GR1,1 ; GR1を1つ左シフト
97 JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ