- JOV MFIN ; オーバーフローした場合、ループ脱出
- JUMP MLOOP ; ループ終端
-MMIN AND GR4,GR4 ; マイナスフラグがオフの場合、MFINへジャンプ
- JZE MFIN ; ↓
- LD GR1,GR0 ; GR1にGR0をロード
- CALL MABS ; GR1の正負を反転
- JOV MFIN ; オーバーフロー(GR1 = -32768)の場合、MFINへジャンプ
- LD GR0,GR1 ; GR0にGR1をロード
-MFIN RPOP
- RET
- END
-;;; GR1が0未満の場合は、絶対値に変換し、GR0に1を設定
-CHKVAL START
- LAD GR0,0
- AND GR1,GR1 ; (GR1 >= 0)の場合は、CFINへジャンプ
- JPL CFIN ; ↓
- JZE CFIN ; ↓
- LAD GR0,1 ; GR0に1をロード
- CALL MABS ; GR1を絶対値に変換
-CFIN RET
- END
-;;; GR1の値の正負を反転させる。
-;;; 例: -10 -> 10、10 -> -10
-MABS START
- XOR GR1,=#FFFF ; GR1のビット値を反転
- ADDA GR1,=1 ; GR1 <- GR1 + 1
+ JOV FIN ; オーバーフローした場合、終了
+ JUMP LOOP ; ループ終端
+MIN AND GR4,GR4 ; マイナスフラグがオフの場合、終了
+ JZE FIN ; ↓
+ XOR GR0,ALLON ; GR1の正負を反転
+ ADDA GR0,ONE ; ↓
+FIN RPOP