: GETREGS.BAS by Jack Thompson, Copyright 1986 (modified for Tandy 600): From Heath Users Group SIG courtesy Jack ThompsonS This program uses the QREGS function to get and display the contents of the machine registers :  "utility.lib" set up a string containing the register namesA$"AXBXCXDXSIDIBPESDSFLCSSSSP" %? & initialize the returned register string to all blanks.f ( I% :RREGS$RREGS$" ": I%l / 0 call the QREGS function 2 QREGS(RREGS$) 9 : unpack and display the register values. < X%   F (A$,X%,);"=";( P ("0000"(((RREGS$,X%,))),)1 Z X%7 d