(49G) Function of a Matrix

[Gerald H]

I shall use the programme below in future as I only require numerical answers. The programme also has the advantage of returning LASTARG if required.

FPTR 7 134 is internal DIAGMAP
FPTR 7 1DC is internal PUSH
FPTR 7 1DD is internal POP

All three addresses are the same in OS 1.19-6 & 2.10-8.

Size: 54.

CkSum: # D173h

Code:

::
  CK2&Dispatch
  # 48
  ::
    2DUP
    FPTR 7 1DC
    FPTR2 ^CLREXACT
    BINT103
    SetSysFlag
    FPTR 7 134
    FPTR 7 1DD
    3UNROLL
    xDROP2
  ;
;