1 ;;; 10進数の整数を表す文字列を数値に変換
3 ;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス
6 ;;; 文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1
17 AND GR2,GR2 ; GR2 = 0の場合、OVへジャンプ
19 CPL GR2,=5 ; GR2 > 5の場合、OVへジャンプ
21 XOR GR4,GR4 ; GR4: インデックスの初期化
22 LD GR5,GR1 ; GR5 <- GR1
23 LD GR6,GR2 ; GR6 <- GR2
25 STOL LD GR1,GR5 ; GR1に、入力文字列中の次の桁を格納
28 LD GR7,ZERO ; GR1 < '0'の場合、FINへジャンプ
31 LD GR7,NINE ; GR1 > '9'の場合、FINへジャンプ
34 SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換
37 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
38 CPL GR4,GR6 ; GR4 = GR6の場合、ループ脱出
40 MUL10 LAD GR2,10 ; GR2:10進数の 10
41 LD GR1,GR3 ; GR1 <- GR3
42 CALL MULL ; MULLを呼び出し、GR3 <- GR1 * GR2
44 OV LAD GR7,1 ; オーバーフロー発生
56 ;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
59 ;;; 積が65535より大きい場合は、オーバーフロー
62 AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ
64 AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ
68 LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト
69 JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ
71 ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1
72 JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ
73 NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ
75 SLL GR1,1 ; GR1を1つ左シフト
76 JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ