1,024 additional Registers on the CL

[Ángel Martin]

(08-08-2016 02:18 PM)Ángel Martin Wrote:  Mission accomplished... all working as intended.

the only limitation is Stack arguments for the Indirect case (since obviously the direct case is the same as for the native functions) - and perhaps a XVIEW _ _ _, but there's no more room available for more code.

That limitation really bothered me, very relevant for ISG loops using the stack - so I've gone the extra mile and implemented the IND ST combination as well. The mask is 2,048, to be added to the actual register number, i.e. IND_X = 2051; IND_Y = 2052, etc. The range is from IND_T up to IND_e - yes, including {M,N,O,P,Q,K,a,b,c,d,e}.

Also fixed some weird issues due to flag incompatibilities in a running program that uses AVIEW, VIEW or AON instructions - those pesky system flags again...

Here's a quick test routine for the beta testers:

put in X the control word of extended registers you want to visualize, bbb.eee
run the routine below to visualize those values sequentially:

LBL "XVIEW"
LBL 00
"XR" (alpha text)
ARCLI (from the OSX3 module)
XRCL
2051 (IND X)
"|-: " (append, colon, blank)
ARCLX
AVIEW
PSE
RDN
ISG X
GTO 00
END