home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / calc / katcalc / k0000007.pgm < prev    next >
Encoding:
Text File  |  1990-05-12  |  219 b   |  13 lines
  1. * An example of looping register compares
  2. :INIT
  3.    mov r1, 8
  4.    mov r2, 1
  5.    mov r3, 0 
  6. :LOOP_for_printing!?
  7.    mov r5, r1
  8.    wd Reg 1 =
  9.    wd r1
  10.    sub r1, r2
  11.    jg r1, r3, loop_for_printing!?
  12. :DONE
  13.    halt