- ST GR4,NLEN ; GR4 <- LEN - NLEN - 1
- LD GR4,LEN ; ↓
- SUBA GR4,NLEN ; ↓
-MUL10 CPA GR4,=1 ; ループ先頭。GR1 <- 10 ** GR4
- JZE NEXT ; (GR4 = 1)の場合、ループ脱出
- JMI NEXT ; ↓
- CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2
- JOV FIN ; ↓ オーバーフロー時は、プログラム終端へジャンプ
- LD GR1,GR0 ; GR1 <- GR0
- LAD GR4,-1,GR4 ; GR4 <- GR4 -1
- JUMP MUL10 ; ループ終端へジャンプ
-NEXT LD GR4,NLEN ; GR4 <- NLEN。復元
- ADDL GR3,GR1 ; GR3 <- GR3 + GR1
- JOV FIN ; ↓