;; GR1 <=#7FFF,  Decimal output. cf. cc11  casl-9 
MM START
   LAD GR1,#7FFF
   LD  GR3,GR1
   LAD GR6,SSS
   ADDL GR6,=5
AA LD  GR1,GR3
   LD  GR2,=#000A ;; divide by 10
   CALL DIV
   SUBL GR6,=1
   ADDL GR4,=#0030 ;; *GR6<- ascii code of the remainder
   ST   GR4,0,GR6
   CPA  GR3,=0
   JPL  AA ;; Jump on PLus
   OUT  SSS,LEN
   RET
SSS DC  '     '
LEN DC  5
;; Division by subtractions. 
;; It does not accept negative number
;; GR1/GR2  q=GR3, r=GR4
DIV PUSH 0,GR1
    PUSH 0,GR2
    LAD GR3,0
    LAD GR4,0
LL  CPA GR1,GR2
    JMI FF ;;Jump on MInus
    SUBA GR1,GR2
    ADDA GR3,=1
    JUMP LL
FF  LD  GR4,GR1
    POP GR2
    POP GR1
    RET
    END