Speed of HP-49G Routine for Tektronix Vector Graphics Terminal

[Werner]

Here's my ASM version

Code:

::
  CK2&Dispatch
  REALREAL
  ::
    COERCE2
    "ZZZZZ"
    TOTEMPOB
    UNROT
    CODE                A: Y                                                    C: X
      GOSBVL =POP2#     xxxx xxxx xxxx xxxx xxxx 0000 0000 CBA9 8765 4321       xxxx xxxx xxxx xxxx xxxx 0000 0000 CBA9 8765 4321
  C=0.M C+C.A CSL.A                                                             0000 0000 0000 0000 0000 000C BA98 7654 3210 0000
  A=C.M C=0.M C+C.A     0000 0000 0000 0000 0000 000C BA98                      0000 0000 0000 0000 0000 0000 0007 6543 2100 0000
  CSL.A CSL.M CSL.M                                                             0000 0000 0000 0007 6543 0000 0000 2100 0000 0000
  CSR.A CSR.A C+A.M                                                             0000 0000 0000 0007 6543 000C BA98 0000 0000 2100
  CSL.M CSL.M                                                                   0000 0007 6543 000C BA98 0000 0000 0000 0000 2100
  A=0.M ASL.A A+C.A     0000 0000 0000 0000 0000 0000 CBA9 8765 4321 xy00
  A+A.A C=A.A A=0.M     0000 0000 0000 0000 0000 0000 0000 7654 321x y000                                000C BA98 7654 321x y000
  CSR.A CSR.A CSR.A     0000 0000 0000 0000 0000 0000 0000 7654 321x y000                                0000 0000 0000 000C BA98
  A+A.A ASL.A           0000 0000 0000 0000 0000 0007 6543 21xy 0000 0000                                0000 0000 0000 000C BA98
  A+C.W ASL.M
      LC 4020606020
      P=9
      A!C.WP
      C=DAT1.A
      CD1EX
      D1+10
      DAT1=A.WP
      D1=C
      P=0
      GOVLNG =Loop
    ENDCODE
  ;
;
@

Cheers, Werner