as/casl2lib/inl.casl

   1 ;;; 0から65535の範囲にある整数の入力を受け付ける
   2 ;;; 入力 （SVC）
   3 ;;; 出力 GR1: 入力された数値
   4 ;;;      GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF
   5 ;;;      65536以上の正数が入力された場合はエラー
   6 INL     START
   7         IN      IBUF,ILEN       ; 入力文字列を格納
   8         LAD     GR1,IBUF
   9         LD      GR2,ILEN
  10         CPA     GR2,LENMAX
  11         JPL     LENOV
  12         CALL    STR2L
  13         JOV     FIN
  14         LD      GR0,GR2
  15         JUMP    FIN
  16 LENOV   LAD     GR0,#FFFF
  17         SRA     GR0,1
  18 FIN     RET
  19 ILEN    DS      1
  20 LENMAX  DC      5
  21 IBUF    DS      5
  22         END
  23 ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う
  24 ;;; 入力 GR1:被乗数 GR2:乗数
  25 ;;; 出力 GR0:積の下位WORD GR3:積の上位WORD
  26 ;;; 積が65535より大きい場合は、オーバーフロー
  27 MULL    START
  28         PUSH    0,GR4
  29         PUSH    0,GR5
  30         XOR     GR0,GR0         ; 積
  31         XOR     GR3,GR3         ; 上位word
  32         XOR     GR5,GR5         ; 上位wordの一時値
  33         AND     GR1,GR1         ; (GR1 = 0)の場合、終了
  34         JZE     CHKOV           ; ↓
  35         AND     GR2,GR2         ; (GR2 = 0)の場合、終了
  36         JZE     CHKOV           ; ↓
  37         LAD     GR4,1           ; 対象ビット
  38 LOOP    PUSH    0,GR4           ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ
  39         AND     GR4,GR2         ; ↓
  40         POP     GR4             ; ↓
  41         JZE     NEXT1           ; ↓
  42         ADDL    GR3,GR5         ; GR3 <- GR3 + GR5
  43         ADDL    GR0,GR1         ; GR0 <- GR0 + GR1
  44         JOV     AHB1            ; GR0がオーバーフローした場合、AHB1へジャンプ
  45         JUMP    NEXT1           ; ↓
  46 AHB1    LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
  47 NEXT1   SLL     GR4,1           ; GR4を1回左シフト
  48         JOV     CHKOV           ; ↓
  49         SLL     GR5,1           ; GR5を1回左シフト
  50         CPL     GR4,GR2         ; (GR4 > GR2)の場合、CHKOVへジャンプ
  51         JPL     CHKOV           ; ↓
  52         SLL     GR1,1           ; GR1を1回左シフト
  53         JOV     AHB2            ; GR1がオーバーフローした場合、AHBへジャンプ
  54         JUMP    NEXT2           ; ↓
  55 AHB2    LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
  56 NEXT2   JUMP    LOOP            ; ループ終端
  57 CHKOV   AND     GR3,GR3         ; GR3 = 0の場合、終了
  58         JZE     FIN             ; ↓
  59         LAD     GR4,#FFFF       ; GR3 <> 0の場合、オーバーフロー
  60         SLL     GR4,1           ; ↓
  61 FIN     POP     GR5
  62         POP     GR4
  63         RET
  64         END
  65 ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う
  66 ;;; 入力 GR1:被乗数 GR2:乗数
  67 ;;; 出力 GR0:積の下位WORD GR3:積の上位WORD
  68 ;;; 積が65535より大きい場合は、オーバーフロー
  69 MULL    START
  70         PUSH    0,GR4
  71         PUSH    0,GR5
  72         XOR     GR0,GR0         ; 積
  73         XOR     GR3,GR3         ; 上位word
  74         XOR     GR5,GR5         ; 上位wordの一時値
  75         AND     GR1,GR1         ; (GR1 = 0)の場合、終了
  76         JZE     CHKOV           ; ↓
  77         AND     GR2,GR2         ; (GR2 = 0)の場合、終了
  78         JZE     CHKOV           ; ↓
  79         LAD     GR4,1           ; 対象ビット
  80 LOOP    PUSH    0,GR4           ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ
  81         AND     GR4,GR2         ; ↓
  82         POP     GR4             ; ↓
  83         JZE     NEXT1           ; ↓
  84         ADDL    GR3,GR5         ; GR3 <- GR3 + GR5
  85         ADDL    GR0,GR1         ; GR0 <- GR0 + GR1
  86         JOV     AHB1            ; GR0がオーバーフローした場合、AHB1へジャンプ
  87         JUMP    NEXT1           ; ↓
  88 AHB1    LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
  89 NEXT1   SLL     GR4,1           ; GR4を1回左シフト
  90         JOV     CHKOV           ; ↓
  91         SLL     GR5,1           ; GR5を1回左シフト
  92         CPL     GR4,GR2         ; (GR4 > GR2)の場合、CHKOVへジャンプ
  93         JPL     CHKOV           ; ↓
  94         SLL     GR1,1           ; GR1を1回左シフト
  95         JOV     AHB2            ; GR1がオーバーフローした場合、AHBへジャンプ
  96         JUMP    NEXT2           ; ↓
  97 AHB2    LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
  98 NEXT2   JUMP    LOOP            ; ループ終端
  99 CHKOV   AND     GR3,GR3         ; GR3 = 0の場合、終了
 100         JZE     FIN             ; ↓
 101         LAD     GR4,#FFFF       ; GR3 <> 0の場合、オーバーフロー
 102         SLL     GR4,1           ; ↓
 103 FIN     POP     GR5
 104         POP     GR4
 105         RET
 106         END