#s(hash-table size 5541 test equal rehash-size 1.5 rehash-threshold 0.8 data ("any" ("0d 0h" "" "03FEF") "ZERO" ("0d 0h" "" "03FEF") "BINT0" ("0d 0h" "" "03FEF") "MEMERR" ("1d 1h" "" "03FF9") "real" ("1d 1h" "" "03FF9") "ONE" ("1d 1h" "" "03FF9") "BINT1" ("1d 1h" "" "03FF9") "cmp" ("2d 2h" "" "04003") "TWO" ("2d 2h" "" "04003") "BINT2" ("2d 2h" "" "04003") "str" ("3d 3h" "" "0400D") "THREE" ("3d 3h" "" "0400D") "BINT3" ("3d 3h" "" "0400D") "arry" ("4d 4h" "" "04017") "FOUR" ("4d 4h" "" "04017") "BINT4" ("4d 4h" "" "04017") "list" ("5d 5h" "" "04021") "FIVE" ("5d 5h" "" "04021") "BINT5" ("5d 5h" "" "04021") "idnt" ("6d 6h" "" "0402B") "id" ("6d 6h" "" "0402B") "SIX" ("6d 6h" "" "0402B") "BINT6" ("6d 6h" "" "0402B") "lam" ("7d 7h" "" "04035") "SEVEN" ("7d 7h" "" "04035") "BINT7" ("7d 7h" "" "04035") "seco" ("8d 8h" "" "0403F") "EIGHT" ("8d 8h" "" "0403F") "BINT8" ("8d 8h" "" "0403F") "symb" ("9d 9h" "" "04049") "NINE" ("9d 9h" "" "04049") "BINT9" ("9d 9h" "" "04049") "sym" ("10d Ah" "" "04053") "TEN" ("10d Ah" "" "04053") "BINT10" ("10d Ah" "" "04053") "hxs" ("11d Bh" "" "0405D") "ELEVEN" ("11d Bh" "" "0405D") "BINT11" ("11d Bh" "" "0405D") "grob" ("12d Ch" "" "04067") "TWELVE" ("12d Ch" "" "04067") "BINT12" ("12d Ch" "" "04067") "THIRTEEN" ("13d Dh" "" "04071") "TAGGED" ("13d Dh" "" "04071") "BINT13" ("13d Dh" "" "04071") "unitob" ("14d Eh" "" "0407B") "FOURTEEN" ("14d Eh" "" "0407B") "EXT" ("14d Eh" "" "0407B") "BINT14" ("14d Eh" "" "0407B") "rompointer" ("15d Fh" "" "04085") "FIFTEEN" ("15d Fh" "" "04085") "BINT15" ("15d Fh" "" "04085") "SIXTEEN" ("16d 10h" "" "0408F") "REALOB" ("16d 10h" "" "0408F") "BINT16" ("16d 10h" "" "0408F") "REALREAL" ("17d 11h" "" "04099") "2REAL" ("17d 11h" "" "04099") "SEVENTEEN" ("17d 11h" "" "04099") "BINT17" ("17d 11h" "" "04099") "EIGHTEEN" ("18d 12h" "" "040A3") "BINT18" ("18d 12h" "" "040A3") "NINETEEN" ("19d 13h" "" "040AD") "BINT19" ("19d 13h" "" "040AD") "TWENTY" ("20d 14h" "" "040B7") "BINT20" ("20d 14h" "" "040B7") "TWENTYONE" ("21d 15h" "" "040C1") "BINT21" ("21d 15h" "" "040C1") "TWENTYTWO" ("22d 16h" "" "040CB") "BINT22" ("22d 16h" "" "040CB") "TWENTYTHREE" ("23d 17h" "" "040D5") "BINT23" ("23d 17h" "" "040D5") "TWENTYFOUR" ("24d 18h" "" "040DF") "BINT24" ("24d 18h" "" "040DF") "TWENTYFIVE" ("25d 19h" "" "040E9") "BINT25" ("25d 19h" "" "040E9") "TWENTYSIX" ("26d 1Ah" "" "040F3") "REALSYM" ("26d 1Ah" "" "040F3") "BINT26" ("26d 1Ah" "" "040F3") "TWENTYSEVEN" ("27d 1Bh" "" "040FD") "BINT27" ("27d 1Bh" "" "040FD") "TWENTYEIGHT" ("28d 1Ch" "" "04107") "BINT28" ("28d 1Ch" "" "04107") "TWENTYNINE" ("29d 1Dh" "" "04111") "BINT29" ("29d 1Dh" "" "04111") "THIRTY" ("30d 1Eh" "" "0411B") "REALEXT" ("30d 1Eh" "" "0411B") "BINT30" ("30d 1Eh" "" "0411B") "THIRTYONE" ("31d 1Fh" "" "04125") "BINT31" ("31d 1Fh" "" "04125") "THIRTYTWO" ("32d 20h" "" "0412F") "BINT32" ("32d 20h" "" "0412F") "THIRTYTHREE" ("33d 21h" "" "04139") "BINT33" ("33d 21h" "" "04139") "THIRTYFOUR" ("34d 22h" "" "04143") "BINT34" ("34d 22h" "" "04143") "THIRTYFIVE" ("35d 23h" "" "0414D") "BINT35" ("35d 23h" "" "0414D") "THIRTYSIX" ("36d 24h" "" "04157") "BINT36" ("36d 24h" "" "04157") "THIRTYSEVEN" ("37d 25h" "" "04161") "BINT37" ("37d 25h" "" "04161") "THIRTYEIGHT" ("38d 26h" "" "0416B") "BINT38" ("38d 26h" "" "0416B") "THIRTYNINE" ("39d 27h" "" "04175") "BINT39" ("39d 27h" "" "04175") "FOURTY" ("40d 28h" "" "0417F") "FORTY" ("40d 28h" "" "0417F") "BINT40" ("40d 28h" "" "0417F") "FORTYONE" ("41d 29h" "" "04189") "BINT41" ("41d 29h" "" "04189") "FORTYTWO" ("42d 2Ah" "" "04193") "BINT42" ("42d 2Ah" "" "04193") "FORTYTHREE" ("43d 2Bh" "" "0419D") "BINT43" ("43d 2Bh" "" "0419D") "(illnameerr)" ("44d 2Ch" "" "64B12") "FORTYFOUR" ("44d 2Ch" "" "64B12") "BINT44" ("44d 2Ch" "" "64B12") "FORTYFIVE" ("45d 2Dh" "" "64B1C") "BINT45" ("45d 2Dh" "" "64B1C") "FORTYSIX" ("46d 2Eh" "" "64B26") "BINT46" ("46d 2Eh" "" "64B26") "(rrp)" ("47d 2Fh" "" "64B30") "FORTYSEVEN" ("47d 2Fh" "" "64B30") "BINT47" ("47d 2Fh" "" "64B30") "FORTYEIGHT" ("48d 30h" "" "64B3A") "BINT48" ("48d 30h" "" "64B3A") "FORTYNINE" ("49d 31h" "" "64B44") "BINT49" ("49d 31h" "" "64B44") "FIFTY" ("50d 32h" "" "64B4E") "BINT50" ("50d 32h" "" "64B4E") "FIFTYONE" ("51d 33h" "" "64B58") "BINT51" ("51d 33h" "" "64B58") "(THREEFOUR)" ("52d 34h" "" "64B62") "FIFTYTWO" ("52d 34h" "" "64B62") "BINT52" ("52d 34h" "" "64B62") "THREEFIVE" ("53d 35h" "" "64B6C") "STRLIST" ("53d 35h" "" "64B6C") "FIFTYTHREE" ("53d 35h" "" "64B6C") "BINT53" ("53d 35h" "" "64B6C") "FIFTYFOUR" ("54d 36h" "" "64B76") "BINT54" ("54d 36h" "" "64B76") "FIFTYFIVE" ("55d 37h" "" "64B80") "(#THREESEVEN)" ("55d 37h" "" "64B80") "BINT55" ("55d 37h" "" "64B80") "FIFTYSIX" ("56d 38h" "" "64B8A") "BINT56" ("56d 38h" "" "64B8A") "FIFTYSEVEN" ("57d 39h" "" "64B94") "BINT57" ("57d 39h" "" "64B94") "FIFTYEIGHT" ("58d 3Ah" "" "64B9E") "BINT58" ("58d 3Ah" "" "64B9E") "FIFTYNINE" ("59d 3Bh" "" "64BA8") "BINT59" ("59d 3Bh" "" "64BA8") "SIXTY" ("60d 3Ch" "" "64BB2") "BINT60" ("60d 3Ch" "" "64BB2") "SIXTYONE" ("61d 3Dh" "" "64BBC") "BINT61" ("61d 3Dh" "" "64BBC") "SIXTYTWO" ("62d 3Eh" "" "64BC6") "BINT62" ("62d 3Eh" "" "64BC6") "SIXTYTHREE" ("63d 3Fh" "" "64BD0") "(BINT3Fh)" ("63d 3Fh" "" "64BD0") "BINT63" ("63d 3Fh" "" "64BD0") "YHI" ("64d 40h" "" "64BDA") "SIXTYFOUR" ("64d 40h" "" "64BDA") "(BINT_40h)" ("64d 40h" "" "64BDA") "BINT40h" ("64d 40h" "" "64BDA") "BINT64" ("64d 40h" "" "64BDA") "(BINT_65d)" ("65d 41h" "" "64BE4") "ARRYREAL" ("65d 41h" "" "64BE4") "BINT65" ("65d 41h" "" "64BE4") "(ARRYCMP)" ("66d 42h" "" "64BEE") "FOURTWO" ("66d 42h" "" "64BEE") "BINT66" ("66d 42h" "" "64BEE") "FOURTHREE" ("67d 43h" "" "64BF8") "BINT67" ("67d 43h" "" "64BF8") "SIXTYEIGHT" ("68d 44h" "" "64C02") "(2ARRY)" ("68d 44h" "" "64C02") "BINT68" ("68d 44h" "" "64C02") "FOURFIVE" ("69d 45h" "" "64C0C") "BINT69" ("69d 45h" "" "64C0C") "(ARRYID)" ("70d 46h" "" "64C16") "SEVENTY" ("70d 46h" "" "64C16") "BINT70" ("70d 46h" "" "64C16") "SEVENTYFOUR" ("74d 4Ah" "" "64C20") "BINT74" ("74d 4Ah" "" "64C20") "SEVENTYNINE" ("79d 4Fh" "" "64C2A") "BINT79" ("79d 4Fh" "" "64C2A") "(LISTOB)" ("80d 50h" "" "64C3A") "EIGHTY" ("80d 50h" "" "64C3A") "BINT80" ("80d 50h" "" "64C3A") "LISTREAL" ("81d 51h" "" "64C3E") "EIGHTYONE" ("81d 51h" "" "64C3E") "BINT81" ("81d 51h" "" "64C3E") "LISTCMP" ("82d 52h" "" "64C48") "BINT82" ("82d 52h" "" "64C48") "FIVETHREE" ("83d 53h" "" "64C52") "BINT83" ("83d 53h" "" "64C52") "FIVEFOUR" ("84d 54h" "" "64C5C") "BINT84" ("84d 54h" "" "64C5C") "2LIST" ("85d 55h" "" "64C66") "BINT85" ("85d 55h" "" "64C66") "(LISTID)" ("86d 56h" "" "64C70") "FIVESIX" ("86d 56h" "" "64C70") "BINT86" ("86d 56h" "" "64C70") "LISTLAM" ("87d 57h" "" "64C7A") "BINT87" ("87d 57h" "" "64C7A") "BINT_91d" ("91d 5Bh" "" "64C84") "BINT91" ("91d 5Bh" "" "64C84") "(idntany)" ("96d 60h" "" "64C8E") "BINT_96d" ("96d 60h" "" "64C8E") "BINT96" ("96d 60h" "" "64C8E") "IDREAL" ("97d 61h" "" "64C98") "BINT97" ("97d 61h" "" "64C98") "(NINETYEIGHT)" ("98d 62h" "" "64CA2" :UBS) "(IDCMP)" ("98d 62h" "" "64CA2" :UBS) "BINT98" ("98d 62h" "" "64CA2" :UBS) "(IDARRY)" ("100d 64h" "" "64CAC") "ONEHUNDRED" ("100d 64h" "" "64CAC") "BINT100" ("100d 64h" "" "64CAC") "(SIXFIVE)" ("101d 65h" "" "64CB6" :UBS) "(IDLIST)" ("101d 65h" "" "64CB6" :UBS) "BINT101" ("101d 65h" "" "64CB6" :UBS) "char" ("111d 6Fh" "" "64CC0") "BINT111" ("111d 6Fh" "" "64CC0") "(lamany)" ("112d 70h" "" "64CCA" :UBS) "BINT112" ("112d 70h" "" "64CCA" :UBS) "(LAMREAL)" ("113d 71h" "" "64CD4" :UBS) "BINT113" ("113d 71h" "" "64CD4" :UBS) "(BINT_114d)" ("114d 72h" "" "64CDE" :UBS) "BINT114" ("114d 72h" "" "64CDE" :UBS) "BINT_115d" ("115d 73h" "" "64CE8") "BINT115" ("115d 73h" "" "64CE8") "BINT_116d" ("116d 74h" "" "64CF2") "BINT116" ("116d 74h" "" "64CF2") "(LAMLIST)" ("117d 75h" "" "64CFC" :UBS) "(BINT_117d)" ("117d 75h" "" "64CFC" :UBS) "BINT117" ("117d 75h" "" "64CFC" :UBS) "BINT_122d" ("122d 7Ah" "" "64D06") "BINT122" ("122d 7Ah" "" "64D06") "BINT80h" ("128d 80h" "" "64D10") "BINT128" ("128d 80h" "" "64D10") "XHI-1" ("130d 82h" "" "64D1A") "BINT_130d" ("130d 82h" "" "64D1A") "BINT130d" ("130d 82h" "" "64D1A") "BINT130" ("130d 82h" "" "64D1A") "XHI" ("131d 83h" "" "64D24") "BINT131d" ("131d 83h" "" "64D24") "BINT_131d" ("131d 83h" "" "64D24") "BINT131" ("131d 83h" "" "64D24") "(library)" ("143d 8Fh" "" "64D2E" :UBS) "#8F" ("143d 8Fh" "" "64D2E" :UBS) "SYMBREAL" ("145d 91h" "" "64D38") "(SYMBCMP)" ("146d 92h" "" "64D42" :UBS) "SYMBCMP" ("146d 92h" "" "64D42" :UBS) "(SYMBSYM)" ("154d 9Ah" "" "64D4C" :UBS) "(SYMCMP)" ("154d 9Ah" "" "64D4C" :UBS) "SYMBSYM" ("154d 9Ah" "" "64D4C" :UBS) "SYMBUNIT" ("158d 9Eh" "" "64D56") "backup" ("159d 9Fh" "" "64D60" :UBS) "SYMOB" ("160d A0h" "" "64D6A") "SYMREAL" ("161d A1h" "" "64D74") "SYMLIST" ("165d A5h" "" "64D88" :UBS) "SYMID" ("166d A6h" "" "64D92") "SYMLAM" ("167d A7h" "" "64D9C") "SYMSYMB" ("169d A9h" "" "64DA6" :UBS) "SYMSYM" ("170d AAh" "" "64DB0") "SYMEXT" ("174d AEh" "" "64DBA") "BINT_AFh" ("175d AFh" "" "1CD69" :U) "HXSREAL" ("177d B1h" "" "64DC4" :U) "2HXS" ("187d BBh" "" "64DCE" :UBS) "BINTC0h" ("192d C0h" "" "64DD8") "2GROB" ("204d CCh" "" "64DE2") "TAGGEDANY" ("208d D0h" "" "64DEC") "EXTREAL" ("225d E1h" "" "64DF6") "(UNITSYM)" ("234d EAh" "" "64E00") "EXTSYM" ("234d EAh" "" "64E00") "2EXT" ("238d EEh" "" "64E0A") "ROMPANY" ("240d F0h" "" "64E14") "BINT253" ("253d FDh" "" "64E1E") "BINT255d" ("255d FFh" "" "64E28") "(FSTFLOATROM#)" ("256d 100h" "" "64E32") "REALOBOB" ("256d 100h" "" "64E32") "(Err#Chr00)" ("258d 102h" "" "64E3C") "(#_258_d)" ("258d 102h" "" "64E3C") "#_102" ("258d 102h" "" "64E3C") "#SyntaxErr" ("262d 106h" "" "64E46" :UBS) "BINT_263d" ("263d 107h" "" "64E50" :UBS) "REALREALOB" ("272d 110h" "" "64E5A" :UBS) "3REAL" ("273d 111h" "" "64E64") "BINT_117h" ("279d 117h" "" "15D6F" :U) "(#_291_d)" ("291d 123h" "" "64E6E" :UBS) "(#_123)" ("291d 123h" "" "64E6E" :UBS) "Err#Kill" ("291d 123h" "" "64E6E" :UBS) "(#_292_d)" ("292d 124h" "" "64E78" :UBS) "(#_124)" ("292d 124h" "" "64E78" :UBS) "Err#NoLstStk" ("292d 124h" "" "64E78" :UBS) "(BINT_305d)" ("305d 131h" "" "64E82" :UBS) "#NoRoomForSt" ("305d 131h" "" "64E82" :UBS) "#132" ("306d 132h" "" "64E8C" :UBS) "REALSTRSTR" ("307d 133h" "" "64E96" :UBS) "(VLMpurgemsg)" ("308d 134h" "" "64EA0" :UBS) "#134" ("308d 134h" "" "64EA0" :UBS) "(VLMmsg)" ("309d 135h" "" "64EAA" :UBS) "#135" ("309d 135h" "" "64EAA" :UBS) "(VLMstkmsg)" ("310d 136h" "" "64EB4" :UBS) "(REALSTRID)" ("310d 136h" "" "64EB4" :UBS) "#136" ("310d 136h" "" "64EB4" :UBS) "(VLMundomsg)" ("311d 137h" "" "64EBE" :UBS) "#137" ("311d 137h" "" "64EBE" :UBS) "(VLMhistmsg)" ("312d 138h" "" "64EC8" :UBS) "#138" ("312d 138h" "" "64EC8" :UBS) "(VLMUserKeys)" ("313d 139h" "" "64ED2" :UBS) "#139" ("313d 139h" "" "64ED2" :UBS) "(VLMAlarmMsg)" ("314d 13Ah" "" "64EDC" :UBS) "#13A" ("314d 13Ah" "" "64EDC" :UBS) "(VLMlastargs)" ("315d 13Bh" "" "64EE6" :UBS) "#13B" ("315d 13Bh" "" "64EE6" :UBS) "(VLMcmdlmsg)" ("317d 13Dh" "" "64EF0" :UBS) "#13D" ("317d 13Dh" "" "64EF0" :UBS) "Err#Cont" ("318d 13Eh" "" "64EFA" :UBS) "(REALLISTREAL)" ("337d 151h" "" "64F04") "INTEGER337" ("337d 151h" "" "64F04") "CMPOBOB" ("512d 200h" "" "64F0E" :UBS) "(#_517_d)" ("517d 205h" "" "64F18" :UBS) "(#_205)" ("517d 205h" "" "64F18" :UBS) "Err#NoLstArg" ("517d 205h" "" "64F18" :UBS) "STRREALREAL" ("785d 311h" "" "64F22") "ARRYREALREAL" ("1041d 411h" "" "64F2C" :UBS) "ARRYREALCMP" ("1042d 412h" "" "64F36" :UBS) "3ARRY" ("1092d 444h" "" "64F40" :UBS) "ARRYLISTREAL" ("1105d 451h" "" "64F4A" :UBS) "ARRYLISTCMP" ("1106d 452h" "" "64F54" :UBS) "LISTREALOB" ("1296d 510h" "" "64F5E" :UBS) "LISTREALREAL" ("1297d 511h" "" "64F68" :UBS) "LISTLISTOB" ("1360d 550h" "" "64F72" :UBS) "IDREALOB" ("1552d 610h" "" "64F7C" :U) "IDLISTOB" ("1616d 650h" "" "64F86" :U) "(LAMANYANY)" ("1792d 700h" "" "64F90" :UBS) "FSTMACROROM#" ("1792d 700h" "" "64F90" :UBS) "PROGIDREAL" ("2145d 861h" "" "64F9A" :UBS) "PROGIDCMP" ("2146d 862h" "" "64FA4" :UBS) "PROGIDLIST" ("2149d 865h" "" "64FAE" :UBS) "PROGIDEXT" ("2158d 86Eh" "" "64FB8" :UBS) "Attn#" ("2563d A03h" "" "34301") "ATTN#" ("2563d A03h" "" "34301") "ATTNERR" ("2563d A03h" "" "64FC2") "SYMREALREAL" ("2577d A11h" "" "64FCC" :UBS) "SYMREALCMP" ("2578d A12h" "" "64FD6" :UBS) "SYMREALSYM" ("2586d A1Ah" "" "64FE0" :UBS) "SYMCMPREAL" ("2593d A21h" "" "64FEA" :UBS) "SYMCMPCMP" ("2594d A22h" "" "64FF4" :UBS) "SYMCMPSYM" ("2602d A2Ah" "" "64FFE" :UBS) "SYMIDREAL" ("2657d A61h" "" "65008" :UBS) "SYMIDCMP" ("2658d A62h" "" "65012" :UBS) "SYMIDLIST" ("2661d A65h" "" "6501C" :UBS) "SYMIDEXT" ("2670d A6Eh" "" "65026" :UBS) "SYMSYMREAL" ("2721d AA1h" "" "65030" :UBS) "SYMSYMCMP" ("2722d AA2h" "" "6503A" :UBS) "3SYM" ("2730d AAAh" "" "65044" :UBS) "XFERFAIL" ("3078d C06h" "" "6504E" :UBS) "PROTERR" ("3079d C07h" "" "65058" :UBS) "InvalServCmd" ("3080d C08h" "" "65062" :UBS) "Connecting" ("3082d C0Ah" "" "6506C") "Retry" ("3083d C0Bh" "" "65076" :UBS) "#CAlarmErr" ("3583d DFFh" "" "65080" :UBS) "EXTOBOB" ("3584d E00h" "" "6508A") "TYPEREAL" ("10547d 2933h" "" "03F8B") "TYPEEREL" ("10581d 2955h" "" "03FDB" :U) "TYPEIDNT" ("10568d 2948h" "" "03FA9") "TYPECMP" ("10615d 2977h" "" "03F95" :U) "TYPELIST" ("10868d 2A74h" "" "03F9F" :U) "TYPERRP" ("10902d 2A96h" "" "03FC7" :U) "TYPESYMB" ("10936d 2AB8h" "" "03FBD" :U) "TYPEEXT" ("10970d 2ADAh" "" "03FE5" :U) "TYPECOL" ("11677d 2D9Dh" "" "03FB3" :U) "TYPELAM" ("11885d 2E6Dh" "" "03FD1" :U) "#EXITERR" ("458752d 70000h" "" "65094") "MINUSONE" ("1048575d FFFFFh" "" "6509E") "ZEROZERO" ("--> #0 #0" "" "641FC") "#ZERO#ONE" ("--> #0 #1" "" "64209") "#ZERO#SEVEN" ("--> #0 #7" "" "6427A") "ONEDUP" ("--> #1 #1" "" "63AC4") "ONEONE" ("--> #1 #1" "" "63AC4") "#ONE#27" ("--> #1 #27d" "" "6428A") "#TWO#ONE" ("--> #2 #1" "" "6429D") "#TWO#TWO" ("--> #2 #2" "" "642AF") "#TWO#FOUR" ("--> #2 #4" "" "642BF") "#THREE#FOUR" ("--> #3 #4" "" "642D1") "#FIVE#FOUR" ("--> #5 #4" "" "642E3") "ZEROZEROZERO" ("--> #0 #0 #0" "" "64309") "ZEROZEROONE" ("--> #0 #0 #1" "" "6431D") "ZEROZEROTWO" ("--> #0 #0 #2" "" "64331") "DROPZERO" ("ob --> #0" "" "62535") "3DROPZERO" ("ob ob ob --> #0" "" "64449" :U) "2DROP00" ("ob ob --> #0 #0" "" "6254E") "DROPONE" ("ob --> #1" "" "62946") "DUPZERO" ("ob --> ob ob #0" "" "63A88") "DUPONE" ("ob --> ob ob #1" "" "63A9C") "DUPTWO" ("ob --> ob ob #2" "" "63AD8") "SWAPONE" ("ob ob' --> ob' ob #1" "" "63AB0") "ZEROSWAP" ("ob --> #0 ob" "" "62E3A") "ZEROOVER" ("ob --> ob #0 ob" "" "63079") "ZEROFALSE" ("--> #0 F" "" "6351F") "ONESWAP" ("ob --> #1 ob" "" "62E67") "ONEFALSE" ("--> #1 F" "" "63533") "COERCE" ("% --> #" "" "18CEA") "COERCEDUP" ("% --> # #" "" "62CE1") "COERCESWAP" ("ob % --> # ob" "" "62E7B") "COERCE2" ("% %' --> # #'" "" "194F7") "%ABSCOERCE" ("% --> #" "" "18CD7") "COERCE{}2" ("{%} --> {#}" "" "193DA" :U) "C%>#" ("C% --> # #'" "" "4F408") "HXS>#" ("hxs --> #" "" "05A03") "2HXS>#" ("hxs hxs --> # #" "" "4F3D1" :U) "2HXSLIST?" ("{ hxs hxs' } --> # #'" "Converts list of two hxs to two bints. Generates \"Bad Argument Value\" for invalid input." "51532") "CHR>#" ("chr --> #" "" "05A51") "#+" ("# #' --> #+#'" "" "03DBC") "#+OVF" ("# #' --> #+#'" "0 \\<= result \\<= FFFFF" "25B0B" :U) "#1+" ("# --> #+1" "" "03DEF") "#2+" ("# --> #+2" "" "03E2D") "#3+" ("# --> #+3" "" "6256A") "#4+" ("# --> #+4" "" "6257A") "#5+" ("# --> #+5" "" "6258A") "#6+" ("# --> #+6" "" "6259A") "#7+" ("# --> #+7" "" "625AA") "#8+" ("# --> #+8" "" "625BA") "#9+" ("# --> #+9" "" "625CA") "#10+" ("# --> #+10" "" "625DA") "#12+" ("# --> #+12" "" "625EA") "#-" ("# #' --> #-#'" "" "03DE0") "#1-" ("# --> #-1" "" "03E0E") "#2-" ("# --> #-2" "" "03E4E") "#3-" ("# --> #-3" "" "625FA") "#4-" ("# --> #-4" "" "6260A") "#5-" ("# --> #-5" "" "6261A") "#6-" ("# --> #-6" "" "6262A") "#*" ("# #' --> #*#'" "" "03EC2") "#*OVF" ("# #' --> #*#'" "0 \\<= result \\<= FFFFF" "191B9") "#2*" ("# --> #*2" "" "03E6F") "#6*" ("# --> #*6" "" "62691") "#8*" ("# --> #*8" "" "62674") "#10*" ("# --> #*10" "" "6264E") "#/" ("# #' --> #r #q" "" "03EF7") "#2/" ("# --> #/2" "Rounded down." "03E8E") "#-+1" ("# #' --> #-#'+1" "" "637CC") "#1--" ("# #' --> #-#'+1" "" "637CC") "$1-+" ("# #' --> #+#'-1" "$1-+ is a typo in EXTABLE." "63808") "#+-1" ("# #' --> #+#'-1" "$1-+ is a typo in EXTABLE." "63808") "#1-+" ("# #' --> #+#'-1" "$1-+ is a typo in EXTABLE." "63808") "#-#2/" ("# #' --> (#-#')/2" "" "624FB") "#+DUP" ("# #' --> #+#' #+#'" "" "627D5") "#+SWAP" ("ob # #' --> #+#' ob" "" "62DFE") "#+OVER" ("ob # #' --> ob #+#' ob" "" "63051") "#-DUP" ("# #' --> #-#' #-#'" "" "627F8") "#-SWAP" ("ob # #' --> #-#' ob" "" "62E12") "#-OVER" ("ob # #' --> ob #-#' ob" "" "63065") "#1+DUP" ("# --> #+1 #+1" "" "62809") "#1+SWAP" ("ob # --> #+1 ob" "" "62E26") "#1+ROT" ("ob ob' # --> ob' #+1 ob" "" "1DABB") "#1-DUP" ("# --> #-1 #-1" "" "6281A") "pull" ("meta&ob --> meta ob" "" "5E4A9") "#1-SWAP" ("meta&ob --> meta ob" "" "5E4A9") "#1-ROT" ("ob ob' # --> ob' #-1 ob" "" "62FD9") "#1-UNROT" ("ob ob' # --> #-1 ob ob'" "" "28558") "#1-1SWAP" ("# --> 1 #-1" "Returns the bint ONE and the result." "62E4E") "DUP#1+" ("# --> # #+1" "" "628EB") "DUP#2+" ("# --> # #+2" "" "626F7") "DUP#1-" ("# --> # #-1" "" "6292F") "DUP3PICK#+" ("# #' --> # #' #+#'" "" "63704") "2DUP#+" ("# #' --> # #' #+#'" "" "63704") "DROP#1-" ("# ob --> #-1" "" "637F4") "SWAP#-" ("# #' --> #'-#" "" "62794") "SWP1+" ("meta ob --> meta&ob" "" "62904") "SWAP#1+" ("meta ob --> meta&ob" "" "62904") "SWAP#1+SWAP" ("# ob --> #+1 ob" "" "51843") "SWAP#1-" ("# ob --> ob #-1" "" "637E0") "SWAP#1-SWAP" ("# ob --> #-1 ob" "" "51857") "SWAPDROP#1-" ("ob # --> #-1" "" "5EAF4" :U) "SWAPOVER#-" ("# #' --> #' #-#'" "" "637A4") "OVER#+" ("# #' --> # #'+#" "" "6372C") "OVER#-" ("# #' --> # #'-#" "" "6377C") "ROT#+" ("# ob #' --> ob #'+#" "" "63718") "ROT#-" ("# ob #' --> ob #'-#" "" "63768") "ROT#1+" ("# ob ob' --> ob ob' #+1" "" "637B8") "ROT#1+UNROT" ("# ob ob' --> #+1 ob ob'" "" "5FB76") "ROT+SWAP" ("# ob #' --> #'+# ob" "" "62DCC") "ROT#+SWAP" ("# ob #' --> #'+# ob" "" "62DCC") "3PICK#+" ("# ob #' --> # ob #'+#" "" "63740") "4PICK#+" ("# ob1 ob2 #' --> # ob1 ob2 #'+#" "" "63754") "4PICK+SWAP" ("# ob1 ob2 #' --> # ob1 #'+# ob2" "" "62DE5") "4PICK#+SWAP" ("# ob1 ob2 #' --> # ob1 #'+# ob2" "" "62DE5") "#MIN" ("# #' --> #''" "" "624BA") "#MAX" ("# #' --> #''" "" "624C6") "#AND" ("# #' --> #''" "Bitwise QANDQ." "03EB1") "#=" ("# #' --> flag" "" "03D19") "#<>" ("# #' --> flag" "" "03D4E") "#<" ("# #' --> flag" "" "03CE4") "#>" ("# #' --> flag" "" "03D83") "#0<>" ("# --> flag" "" "03CC7") "#0=" ("# --> flag" "" "03CA6") "#1<>" ("# --> flag" "" "622B6") "#1=" ("# --> flag" "" "622A7") "#2<>" ("# --> flag" "" "636C8") "#2=" ("# --> flag" "" "6229A") "#3=" ("# --> flag" "" "62289") "#5=" ("# --> flag" "" "636B4") "#<3" ("# --> flag" "" "63673") "ONE#>" ("# --> flag" "" "636F0") "#>1" ("# --> flag" "" "636F0") "2DUP#<" ("# #' --> # #' flag" "" "6289B") "2DUP#>" ("# #' --> # #' flag" "" "628D1") "ONE_EQ" ("# --> flag" "Uses EQ test." "63385") "OVER#=" ("# #' --> # flag" "" "620EB") "2DUP#=" ("# #' --> # #' flag" "" "628B5") "OVER#0=" ("# #' --> # #' flag" "" "6364B") "DUP#0=" ("# --> # flag" "" "62266") "OVER#<" ("# #' --> # flag" "" "6365F") "DUP#1=" ("# --> # flag" "" "622C5") "OVER#>" ("# #' --> # flag" "" "636DC") "DUP#0<>" ("# --> # flag" "" "622D4") "DUP#<7" ("# --> # flag" "Returns TRUE if the argument is smaller than #7." "63687") "2#0=OR" ("# # --> flag" "Returns TRUE if either argument is zero." "6362D") "%-MAXREAL" ("-9.99E499" "" "2A487") "%-9" ("-9" "" "2A42E") "%-8" ("-8" "" "2A419") "%-7" ("-7" "" "2A404") "%-6" ("-6" "" "2A3EF") "%-5" ("-5" "" "2A3DA") "%-4" ("-4" "" "2A3C5") "%-3" ("-3" "" "2A3B0") "%-2" ("-2" "" "2A39B") "%-1" ("-1" "" "2A386") "%-MINREAL" ("-1E-499" "" "2A4B1") "%0" ("0" "" "2A2B4") "%MINREAL" ("1E-499" "" "2A49C") "%.1" (".1" "" "494B4") "%.15" (".15" "" "495AA" :U) "%.5" (".5" "" "650BD") "%-.5" ("-.5" "" "650D2" :UBS) "%1" ("1" "" "2A2C9") "%2" ("2" "" "2A2DE") "%e" ("e" "" "650A8") "%3" ("3" "" "2A2F3") "%PI" ("\\pi" "" "2A443") "%4" ("4" "" "2A308") "%5" ("5" "" "2A31D") "%6" ("6" "" "2A332") "%2PI" ("2\\pi" "" "514EB" :U) "%7" ("7" "" "2A347") "%8" ("8" "" "2A35C") "%9" ("9" "" "2A371") "%10" ("10" "" "650E7") "%11" ("11" "" "1CC03") "%12" ("12" "" "1CC1D") "%13" ("13" "" "1CC37") "%14" ("14" "" "1CC51") "%15" ("15" "" "1CC85") "%16" ("16" "" "1CD3A") "%17" ("17" "" "1CD54") "%18" ("18" "" "1CDF2") "%19" ("19" "" "1CE07") "%20" ("20" "" "1CC6B") "%21" ("21" "" "1CCA4") "%22" ("22" "" "1CCC3") "%23" ("23" "" "1CCE2") "%24" ("24" "" "1CD01") "%25" ("25" "" "1CD20") "%26" ("26" "" "1CD73") "%27" ("27" "" "1CD8D") "%80" ("80" "" "320B1") "%100" ("100" "" "415F1") "%180" ("180" "" "650FC") "%200" ("200" "" "65111" :UBS) "%400" ("400" "" "6513B" :UBS) "%360" ("360" "" "65126") "%1200" ("1200" "" "22352" :U) "%2400" ("2400" "" "22367" :U) "%4800" ("4800" "" "2237C" :U) "%TICKSsec" ("8192" "" "0EFEE" :U) "%9600" ("9600" "" "22391" :U) "%TICKSmin" ("491520" "" "0F003" :U) "%HrTicks" ("29491200" "" "0F018" :U) "%TICKSday" ("707788800" "" "0F02D" :U) "%TICKSweek" ("4954521600" "" "0F042" :U) "%MAXREAL" ("9.99E499" "" "2A472") "1REV" ("--> 6.28318530718 --> 360. --> 400." "Returns the angle of a full circle, corresponding to the current angular mode." "514DC") "%%0" ("0" "" "2A4C6") "%%.1" ("0.1" "" "2A562") "%%.4" ("0.4" "" "2B3DD") "%%.5" ("0.5" "" "2A57C") "cfF" ("0.555..." "%%5/9 for C\\<>F conversion." "10E68") "%%1" ("1" "" "2A4E0") "cfC" ("1" "For C\\<>K conversion." "10E82") "%%2" ("2" "" "2A4FA") "%%3" ("3" "" "2A514") "%%PI" ("\\pi" "" "2A458" :UBS) "PI/180" ("\\pi/180" "" "2A62C") "%%4" ("4" "" "2A52E") "%%5" ("5" "" "2A548") "%%2PI" ("2\\pi" "" "0F688") "%%7" ("7" "" "2B1FF") "%%10" ("10" "" "2A596") "%%12" ("12" "" "2B2DC") "%%60" ("60" "" "2B300") "%%KZERO" ("273.15" "" "10E9C" :U) "%%RZERO" ("459.67" "" "10EB6" :U) "DROP%0" ("ob --> %0" "" "5198F" :U) "DROP%1" ("ob --> %1" "" "1CA0D" :U) "DROP%0ABND" ("ob --> %0" "" "54B1E" :U) "DROP%1ABND" ("ob --> %1" "" "54A9C" :U) "2DROP%0" ("ob ob' --> %0" "" "1F047" :U) "4DROP%0" ("1...4 --> %0" "" "56AFB" :U) "UNROT2DROP%0" ("1 2 3 --> 3 %0" "" "50A3B" :U) "%>%%" ("% --> %%" "" "2A5C1") "%>%%SWAP" ("ob % --> %% ob" "" "62E8F") "%%>%" ("%% --> %" "" "2A5B0") "2%>%%" ("% % --> %% %%" "" "2B45C") "2%%>%" ("%% %%' --> % %'" "" "2B470") "UNCOERCE" ("# --> %" "" "18DBF") "UNCOERCE2" ("# # --> % %" "" "1950B") "UNCOERCE%%" ("# --> %%" "" "63B96") "UNCOERCE{}2" ("{#} --> {%} {# #} --> {% %}" "" "19529" :U) "HXS>%" ("hxs --> %" "" "5435D") "C%>%" ("C% --> %re %im" "" "05D2C") "%IP>#" ("% --> #IP(ABS(%))" "Does ABS too." "2EC11") "%+" ("% %' --> %+%'" "" "2A974") "%+SWAP" ("ob % %' --> %+%' ob" "" "51BE4") "%1+" ("% --> %+1" "" "50262") "%-" ("% %' --> %-%'" "" "2A981") "%1-" ("% --> %-1" "" "50276") "%>%%-" ("% %' --> %%-%%'" "" "2A95B") "%*" ("% %' --> %*%'" "" "2A9BC") "%10*" ("% --> %*10" "" "62BF1") "%/" ("% %' --> %/%'" "" "2A9FE") "%^" ("% %' --> %^%'" "" "2AA70") "%ABS" ("% --> %'" "" "2A900") "%CHS" ("% --> -%" "" "2A920") "%SGN" ("% --> -1/0/1" "" "2A8D7") "%1/" ("% --> 1/%" "" "2AAAF") "%>%%1/" ("% --> 1/%%" "" "2AA9E") "%SQRT" ("% --> \\v/%" "" "2AB09") "%>%%SQRT" ("% --> \\v/%%" "" "2AAF6") "CK%SQRT" ("% --> \\v/%%" "" "1B3F5" :U) "%SQ" ("% --> %'" "" "1B47B" :U) "%EXP" ("% --> e^%" "" "2AB2F") "%EXPM1" ("% --> e^%-1" "" "2AB42") "%LN" ("% --> LN%" "" "2AB6E") "CK%LN" ("% --> LN%" "" "1B995" :U) "%LNP1" ("% --> LN(%+1)" "" "2ABA7") "%LOG" ("% --> LOG%" "" "2AB81") "CK%LOG" ("% --> LOG%" "" "1BA0C" :U) "%ALOG" ("% --> 10^%" "" "2ABBA") "%SIN" ("% --> SIN%" "" "2ABEF") "%COS" ("% --> COS%" "" "2AC40") "%TAN" ("% --> TAN%" "" "2AC91") "%ASIN" ("% --> ASIN%" "" "2ACC1") "CK%ASIN" ("% --> ASIN%" "" "1B6EA" :U) "%ACOS" ("% --> ACOS%" "" "2ACF1") "CK%ACOS" ("% --> ACOS%" "" "1B775" :U) "%ATAN" ("% --> ATAN%" "" "2AD21") "%SINH" ("% --> SINH%" "" "2ADAE") "%COSH" ("% --> COSH%" "" "2ADDA") "%TANH" ("% --> TANH%" "" "2ADED") "%ASINH" ("% --> ASINH%" "" "2AE00") "%ACOSH" ("% --> ACOSH%" "" "2AE13") "CK%ACOSH" ("% --> ACOSH%" "" "1B86C" :U) "%ATANH" ("% --> ATANH%" "" "2AE26") "CK%ATANH" ("% --> ATANH%" "" "1B8DE" :U) "%MANTISSA" ("% --> %mant" "" "2A930") "%EXPONENT" ("% --> %expn" "" "2AE39") "%FP" ("% --> %frac" "" "2AF4D") "%IP" ("% --> %int" "" "2AF60") "%FLOOR" ("% --> %maxint <=%" "" "2AF86") "%CEIL" ("% --> %minint >=%" "" "2AF73") "%MOD" ("% %' --> %rem" "" "2ABDC") "%INT" ("% %' --> %rem" "" "2AFAC" :U) "%ARG" ("% %' --> %rem" "" "1B30D" :U) "%ANGLE" ("%x %y --> %ang" "" "2AD38") "%>%%ANGLE" ("%x %y --> %%ang" "" "2AD5B") "RNDXY" ("% %places --> %'" "" "2B529") "TRCXY" ("% %places --> %'" "" "2B53D") "%COMB" ("% %' --> COMB(%,%')" "" "2AE62") "%PERM" ("% %' --> PERM(%,%')" "" "2AE75") "%NFACT" ("% --> %!" "Calculates factorial of number." "2AE4C") "%FACT" ("% --> gamma(%+1)" "Calculates gamma(x+1)." "2B0C4") "%NROOT" ("% %n --> %'" "Calculates the %nth root of the real number. Equivalent to user function XROOT." "2AA81") "%MIN" ("% %' --> %lesser" "" "2A70E") "%MAX" ("% %' --> %greater" "" "2A6F5") "%MAXorder" ("% %' --> %max %min" "" "62D81") "%MAXIMIZE" ("% %' --> %max %min" "" "51AB7" :U) "%RAN" ("--> %random" "Returns next random number." "2AFC2") "%RANDOMIZE" ("%seed -->" "System level RDZ: seeds the random number generator. " "2B044") "DORANDOMIZE" ("% -->" "Stores given number as random number seed." "2B07B") "%OF" ("% %' --> %'/% * 100" "" "2A9C9") "%T" ("% %' --> %pctotal" "" "2AA0B") "%CH" ("% %' --> %pcchange" "" "2AA30") "%D>R" ("%deg --> %rad" "" "2A622") "%R>D" ("%rad --> %deg" "" "2A655") "%REC>%POL" ("%r %ang --> %x %y" "" "2B48E") "%POL>%REC" ("%x %y --> %r %ang" "" "2B4BB") "%SPH>%REC" ("%r %ang %ph --> %x %y %z" "" "2B4F2") "2%>%%SQR" ("%r %ang %ph --> %x %y %z" "Does 2%>%% and then %%SQR" "51A71" :U) "%%+" ("%% %%' --> %%+%%'" "" "2A943") "%%-" ("%% %%' --> %%-%%'" "" "2A94F") "%%*" ("%% %%' --> %%*%%'" "" "2A99A") "%%*ROT" ("ob ob' %% %%' --> ob' %%+%%' ob" "" "62FED") "%%*SWAP" ("ob %% %%' --> %%+%%' ob" "" "62EA3") "%%*UNROT" ("ob ob' %% %%' --> %%+%%' ob ob'" "" "63C18") "%%/" ("%% %%' --> %%/%%'" "" "2A9E8") "SWAP%%/" ("%% %%' --> %%''" "" "63BBE") "%%/>%" ("%% %%' --> %" "" "63B82") "%%^" ("%% %%' --> %%^%%'" "" "2AA5F") "%%SINRAD" ("%% --> %%'" "" "2AC27") "%%ANGLERAD" ("%% --> %%'" "" "2AD7C") "%%SQR" ("%% --> %%'" "" "51A94" :U) "2DUP%%R" ("" "" "520B2" :U) "%%ABS" ("%% --> %%abs" "" "2A8F0") "%%ACOSRAD" ("%% --> %%rad" "" "2AD08") "%%ANGLE" ("%%x %%y --> %%ang" "" "2AD4F") "%%ANGLEDEG" ("%%x %%y --> %%deg" "" "2AD6C") "%%ASINRAD" ("%% --> %%rad" "" "2ACD8") "%%CHS" ("%% --> -%%" "" "2A910") "%%1/" ("%% --> 1/%%" "" "2AA92") "%%COS" ("%% --> %%cos" "" "2AC57") "%%COSDEG" ("%%deg --> %%cos" "" "2AC68") "%%COSH" ("%% --> %%cosh" "" "2ADC7") "%%COSRAD" ("%%rad --> %%cos" "" "2AC78") "%%EXP" ("%% --> e^%%" "" "2AB1C") "%%LN" ("%% --> ln %%" "" "2AB5B") "%%INT" ("%% --> %%maxint" "" "2AF99") "%%FLOOR" ("%% --> %%maxint" "" "2AF99") "%%LNP1" ("%% --> %%ln(%%+1)" "" "2AB94") "%%MAX" ("%% %%' --> %%max" "" "2A6DC") "%%R>P" ("%%x %%y --> %%radius %%angle" "" "2B498") "%%P>R" ("%%r %%ang --> %%x %%y" "" "2B4C5") "%%SIN" ("%% --> %%sin" "" "2AC06") "%%SINDEG" ("%%deg --> %%sin" "" "2AC17") "%%SINH" ("%% --> %%sinh" "" "2AD95") "%%SQRT" ("%% --> \\v/%%" "" "2AAEA") "%%TANRAD" ("%%rad --> %%tan" "" "2ACA8") "%=" ("% %' --> flag" "" "2A8C1") "%<>" ("% %' --> flag" "" "2A8CC") "%<" ("% %' --> flag" "" "2A871") "%<=" ("% %' --> flag" "" "2A8B6") "%>" ("% %' --> flag" "" "2A88A") "%>=" ("% %' --> flag" "" "2A8A0") "%0=" ("% --> flag" "" "2A76B") "DUP%0=" ("% --> flag" "" "63BAA") "%0<>" ("% --> flag" "Can be used to change a user flag into a system flag. " "2A7CF") "%0<" ("% --> flag" "" "2A738") "%0>" ("% --> flag" "" "2A799") "%0>=" ("% --> flag" "" "2A7F7") "%%<" ("%% %%' --> flag" "" "2A81F") "%%<=" ("%% %%' --> falg" "" "2A8AB") "%%>" ("%% %%' --> flag" "" "2A87F") "%%>=" ("%% %%' --> flag" "" "2A895") "%%0=" ("%% --> flag" "" "2A75A") "%%0<>" ("%% --> flag" "" "2A7BB") "%%0<" ("%% --> flag" "" "2A727") "%%0<=" ("%% --> flag" "" "2A80B") "%%0>" ("%% --> flag" "" "2A788") "%%0>=" ("%% --> flag" "" "2A7E3") "C%0" ("(0,0)" "" "524AF") "C%1" ("(1,0)" "" "524F7") "C%-1" ("(-1,0)" "" "5196A") "C%%1" ("(Q%%1,%%0Q)" "" "5193B") "C%i" ("(0,1)" "" "5267F" :U) "C%-i" ("(0,-1)" "" "526AE" :U) "C%%>C%" ("C%% --> C%" "" "519F8") "%>C%" ("%re %im --> C%" "" "05C27") "SWAP%>C%" ("%im %re --> C%" "" "632A9") "Re>C%" ("%re --> C%" "" "51A37") "C>Re%" ("C% --> %re" "" "519A3") "C>Im%" ("C% --> %im" "" "519B7") "%%>C%" ("%%re %%im --> C%" "" "51A07") "C%>%%" ("C% --> %%re %%im" "" "519CB") "C%>%%SWAP" ("C% --> %%im %%re" "" "519DF") "SWAP2C%>%" ("C% C%' --> %re %im %re' %im'" "" "51C6B" :U) "C%%>%%" ("C%% --> %%re %%im" "" "05DBC") "C%*i" ("C% --> C%'" "" "51A4A" :U) "C/i" ("C% --> C%'" "" "51A5F" :U) "C%C+C" ("C% C%' --> C%''" "" "51C16" :U) "C%C-C" ("C% C%' --> C%''" "" "51CFC" :U) "C%C*C" ("C% --> C%^2" "" "1B48F" :U) "C%C/C" ("C% C%' --> C%''" "" "51EC8" :U) "C%C+R" ("C% % --> C%'" "" "51BD0" :U) "C%R+C" ("% C% --> C%'" "" "51BF8" :U) "C%C-R" ("C% % --> C%'" "" "51CE8" :U) "C%R-C" ("% C% --> C%'" "" "51CD4" :U) "C%C*R" ("C% % --> C%'" "" "51D4C" :U) "C%R*C" ("% C% --> C%'" "" "51D60" :U) "C%R/C" ("% C% --> C%'" "" "51E19" :U) "C%C/R" ("C% % --> C%'" "" "51E64" :U) "C%C^C" ("C% C%' --> C%''" "" "52374") "C%C^R" ("C% % --> C%'" "" "52360") "C%R^C" ("% C% --> C%'" "" "52342") "C%ABS" ("C% --> %" "" "52062") "C%CHS" ("C% --> -C%" "" "51B70") "C%1/" ("C% --> 1/C%" "" "51EFA") "C%SQRT" ("C% --> \\v/C%" "" "52107") "C%SGN" ("C% --> C%/C%ABS" "" "520CB") "C%CONJ" ("C% --> C%'" "" "51BB2") "C%ARG" ("C% --> %" "" "52099") "C%EXP" ("C% --> e^C%" "" "52193") "C%LN" ("C% --> ln C%" "" "521E3") "C%LOG" ("C% --> log C%" "" "522BF") "C%ALOG" ("C% --> 10^C%" "" "52305") "C%SIN" ("C% --> sin C%" "" "52530") "C%COS" ("C% --> cos C%" "" "52571") "C%TAN" ("C% --> tan C%" "" "525B7") "C%ASIN" ("C% --> asin C%" "" "52804") "C%ACOS" ("C% --> acos C%" "" "52863") "C%ATAN" ("C% --> atan C%" "" "52675") "C%SINH" ("C% --> sinh C%" "" "5262F") "C%COSH" ("C% --> cosh C%" "" "52648") "C%TANH" ("C% --> tanh C%" "" "5265C") "C%ASINH" ("C% --> asinh C%" "" "5281D") "C%ACOSH" ("C% --> acosh C%" "" "52836") "C%ATANH" ("C% --> atanh C%" "" "527EB") "%%>C%%" ("%%re %%im --> C%%" "" "05C72" :U) "SWAP2C%%>%%" ("C%% C%%' --> %%re %%im %%re' %%im'" "" "51C84" :U) "C%%C+C" ("C%% C%%' --> C%%''" "" "51C3E" :U) "C%%C-C" ("C%% C%%' --> C%%''" "" "51D10" :U) "C%%C*C" ("C%% C%%' --> C%%''" "" "51DE2" :U) "C%%C/C" ("C%% C%%' --> C%%''" "" "51F13" :U) "C%%C+R" ("C%% %% --> C%%'" "" "51C9D" :U) "C%%R+C" ("%% C%% --> C%%'" "" "51CB1" :U) "C%%R-C" ("%% C%% --> C%%'" "" "51D24" :U) "C%%C-R" ("C%% %% --> C%%'" "" "51D38" :U) "C%%C*R" ("C%% %% --> C%%'" "" "51DAB" :U) "C%%R*C" ("%% C%% --> C%%'" "" "51DBF" :U) "C%%R/C" ("%% C%% --> C%%'" "" "51F3B" :U) "C%%C/R" ("C%% %% --> C%%'" "" "51F7C" :U) "C%%ABS" ("C%% --> %%" "" "52080" :U) "C%%CHS" ("C%% --> -C%%" "" "51B91") "C%%CONJ" ("C%% --> C%%'" "" "51BC1") "C%0=" ("C% --> flag" "" "51B43") "C%%0=" ("C%% --> flag" "" "51B2A") "SWITCHFLOATS" ("B% --> ?" "Dispatches action based on type. The order is %, C%, %%, C%%. For example, to change the sign of any float: :: SWITCHFLOATS %CHS C%CHS %%CHS C%%CHS ;" "35B47" :U) "SWITCH2FLOATS" ("L% L% --> ?" "Works similarly to the above function. The order is %% %%, C%% %%, %% C%%, C%% C%%." "35B88" :U) "F%>L%" ("% --> %% C% --> C%%" "Converts float to long float." "37D19" :U) "L%+" ("L% L% --> L%" "Adds long real or complex numbers." "37BE9" :U) "L%-" ("L% L% --> L%" "Subtracts long real or complex numbers." "37C0C" :U) "L%*" ("L% L% --> L%" "Multiplies long real or complex numbers." "37C2F" :U) "L%/" ("L% L% --> L%" "Divides long real or complex numbers." "37C52" :U) "B%NEG" ("B% --> B%'" "Changes sign of any number." "37CD3" :U) "B%ABS" ("B% --> B%'" "Absolute value of any number." "37C75" :U) "B%0=" ("B% --> flag" "Compares any number to zero." "37DF6" :U) "CHR_00" ("'\\00', CHR 0d 00h" "The NULL character." "6541E") "CHR_Newline" ("'\\0a', CHR 10d 0Ah" "" "6566A") "CHR_..." ("'...', CHR 31d 1Fh" "" "65425") "CHR_Space" ("'\\ ', CHR 32d 20h" "The space character." "65686") "CHR_DblQuote" ("'\"', CHR 34d 22h" "" "6542C") "CHR_#" ("'#', CHR 35d 23h" "" "65433") "CHR_LeftPar" ("'(', CHR 40d 28h" "" "65663") "CHR_RightPar" ("')', CHR 41d 29h" "" "65678") "CHR_*" ("'*', CHR 42d 2Ah" "" "6543A") "CHR_+" ("'+', CHR 43d 2Bh" "" "65441") "CHR_," ("',', CHR 44d 2Ch" "" "65448") "CHR_-" ("'-', CHR 45d 2Dh" "" "6544F") "CHR_." ("'.', CHR 46d 2Eh" "" "65456") "CHR_/" ("'/', CHR 47d 2Fh" "" "6545D") "CHR_0" ("'0', CHR 48d 30h" "" "65464") "CHR_1" ("'1', CHR 49d 31h" "" "6546B") "CHR_2" ("'2', CHR 50d 32h" "" "65472") "CHR_3" ("'3', CHR 51d 33h" "" "65479") "CHR_4" ("'4', CHR 52d 34h" "" "65480") "CHR_5" ("'5', CHR 53d 35h" "" "65487") "CHR_6" ("'6', CHR 54d 36h" "" "6548E") "CHR_7" ("'7', CHR 55d 37h" "" "65495") "CHR_8" ("'8', CHR 56d 38h" "" "6549C") "CHR_9" ("'9', CHR 57d 39h" "" "654A3") "CHR_:" ("':', CHR 58d 3Ah" "" "654AA") "CHR_;" ("';', CHR 59d 3Bh" "" "654B1") "CHR_<" ("'<', CHR 60d 3Ch" "" "654B8") "CHR_=" ("'=', CHR 61d 3Dh" "" "654BF") "CHR_>" ("'>', CHR 62d 3Eh" "" "654C6") "CHR_A" ("'A', CHR 65d 41h" "" "654CD") "CHR_B" ("'B', CHR 66d 42h" "" "654D4") "CHR_C" ("'C', CHR 67d 43h" "" "654DB") "CHR_D" ("'D', CHR 68d 44h" "" "654E2") "CHR_E" ("'E', CHR 69d 45h" "" "654E9") "CHR_F" ("'F', CHR 70d 46h" "" "654F0") "CHR_G" ("'G', CHR 71d 47h" "" "654F7") "CHR_H" ("'H', CHR 72d 48h" "" "654FE") "CHR_I" ("'I', CHR 73d 49h" "" "65505") "CHR_J" ("'J', CHR 74d 4Ah" "" "6550C") "CHR_K" ("'K', CHR 75d 4Bh" "" "65513") "CHR_L" ("'L', CHR 76d 4Ch" "" "6551A") "CHR_M" ("'M', CHR 77d 4Dh" "" "65521") "CHR_N" ("'N', CHR 78d 4Eh" "" "65528") "CHR_O" ("'O', CHR 79d 4Fh" "" "6552F") "CHR_P" ("'P', CHR 80d 50h" "" "65536") "CHR_Q" ("'Q', CHR 81d 51h" "" "6553D") "CHR_R" ("'R', CHR 82d 52h" "" "65544") "CHR_S" ("'S', CHR 83d 53h" "" "6554B") "CHR_T" ("'T', CHR 84d 54h" "" "65552") "CHR_U" ("'U', CHR 85d 55h" "" "65559") "CHR_V" ("'V', CHR 86d 56h" "" "65560") "CHR_W" ("'W', CHR 87d 57h" "" "65567") "CHR_X" ("'X', CHR 88d 58h" "" "6556E") "CHR_Y" ("'Y', CHR 89d 59h" "" "65575") "CHR_Z" ("'Z', CHR 90d 5Ah" "" "6557C") "CHR_[" ("'[', CHR 91d 5Bh" "" "65694") "CHR_]" ("']', CHR 93d 5Dh" "" "6569B") "CHR_UndScore" ("'_', CHR 95d 5Fh" "" "6568D") "CHR_a" ("'a', CHR 97d 61h" "" "65583") "CHR_b" ("'b', CHR 98d 62h" "" "6558A") "CHR_c" ("'c', CHR 99d 63h" "" "65591") "CHR_d" ("'d', CHR 100d 64h" "" "65598") "CHR_e" ("'e', CHR 101d 65h" "" "6559F") "CHR_f" ("'f', CHR 102d 66h" "" "655A6") "CHR_g" ("'g', CHR 103d 67h" "" "655AD") "CHR_h" ("'h', CHR 104d 68h" "" "655B4") "CHR_i" ("'i', CHR 105d 69h" "" "655BB") "CHR_j" ("'j', CHR 106d 6Ah" "" "655C2") "CHR_k" ("'k', CHR 107d 6Bh" "" "655C9") "CHR_l" ("'l', CHR 108d 6Ch" "" "655D0") "CHR_m" ("'m', CHR 109d 5Dh" "" "655D7") "CHR_n" ("'n', CHR 110d 6Eh" "" "655DE") "CHR_o" ("'o', CHR 111d 6Fh" "" "655E5") "CHR_p" ("'p', CHR 112d 70h" "" "655EC") "CHR_q" ("'q', CHR 113d 71h" "" "655F3") "CHR_r" ("'r', CHR 114d 72h" "" "655FA") "CHR_s" ("'s', CHR 115d 73h" "" "65601") "CHR_t" ("'t', CHR 116d 74h" "" "65608") "CHR_u" ("'u', CHR 117d 75h" "" "6560F") "CHR_v" ("'v', CHR 118d 76h" "" "65616") "CHR_w" ("'w', CHR 119d 77h" "" "6561D") "CHR_x" ("'x', CHR 120d 78h" "" "65624") "CHR_y" ("'y', CHR 121d 79h" "" "6562B") "CHR_z" ("'z', CHR 122d 7Ah" "" "65632") "CHR_{" ("'{', CHR 123d 7Bh" "" "656A2") "CHR_}" ("'{', CHR 125d 7Dh" "" "656A9") "CHR_Angle" ("'\\<)', CHR 128d 80h" "" "6564E") "CHR_Integral" ("'\\.S', CHR 132d 84h" "" "6565C") "CHR_Deriv" ("'\\.d', CHR 136d 88h" "" "65655") "CHR_->" ("'-->', CHR 141d 8Dh" "" "65639") "CHR_<<" ("'\\<<', CHR 171d ABh" "" "65640") "CHR_>>" ("'\\>>', CHR 187d BBh" "" "65647") "CHR_Pi" ("'\\pi', CHR 135d 87h" "" "65671") "CHR_Sigma" ("'\\GS', CHR 133d 85h" "" "6567F") "CHR_<=" ("'\\<=', CHR 137d 89h" "" "656B0") "CHR_>=" ("'\\>=', CHR 138d 8Ah" "" "656B7") "CHR_<>" ("'\\=/', CHR 139d 8Bh" "" "656BE") "NULL$" ("\"\"" "Empty string." "055DF") "tok_" ("\"\\ \"" "" "65254") "SPACE$" ("\"\\ \"" "" "65254") "14SPACES$" ("\"\\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \"" "String of 14 spaces." "65212" :U) "(LF$)" ("\"\\0a\"" "Newline." "65238") "NEWLINE$" ("\"\\0a\"" "Newline." "65238") "CRLF$" ("\"\\0d\\0a\"" "Carriage return and line feed." "2E4F0") "toklparen" ("\"(\"" "" "652B4" :UBS) "tokrparen" ("\")\"" "" "652C0" :UBS) "tok[" ("\"[\"" "" "6516A" :UBS) "tok]" ("\"]\"" "" "65150" :UBS) "tok{" ("\"{\"" "" "65176") "tok}" ("\"}\"" "" "65182" :UBS) "tok<<" ("\"\\<<\"" "" "651D6") "tok>>" ("\"\\>>\"" "" "651CA" :UBS) "$_LRParens" ("\"()\"" "" "6573B") "$_[]" ("\"[]\"" "" "65711") "$_{}" ("\"{}\"" "" "65703") "$_<<>>" ("\"\\<<\\>>\"" "" "656F5") "$_''" ("\"''\"" "Two single quotes." "6571F") "$_::" ("\"::\"" "" "6572D") "$_2DQ" ("\"\"\"\"" "Two double quotes." "65749") "$_:" ("\":\"" "\":\\ \"" "414BD" :U) "tok," ("\",\"" "" "65290") "tok'" ("\"'\"" "One single quote." "65284") "tok-" ("\"-\"" "" "652FC") "tok." ("\".\"" "" "6529C") "tok=" ("\"=\"" "" "65308") "tok->" ("\"-->\"" "" "25446") "tok_g" ("\"g\"" "" "0FA69") "tok_m" ("\"m\"" "" "0FA8E") "tok_s" ("\"s\"" "" "0FACE") "tok0" ("\"0\"" "" "6534C") "tok1" ("\"1\"" "" "65358") "tok2" ("\"2\"" "" "65364" :UBS) "tok3" ("\"3\"" "" "65370" :UBS) "tok4" ("\"4\"" "" "6537C" :UBS) "tok5" ("\"5\"" "" "65388" :UBS) "tok6" ("\"6\"" "" "65394" :UBS) "tok7" ("\"7\"" "" "653A0" :UBS) "tok;" ("\";\"" "" "652A8" :UBS) "tok8" ("\"8\"" "" "653AC") "tok9" ("\"9\"" "" "653B8") "tokESC" ("\"\\1B\"" "Escape character." "651BE") "tokexponent" ("\"E\"" "" "651E2") "tokquote" ("\"\"\"" "One double quote." "65278") "toksharp" ("\"#\"" "" "6518E") "tok$" ("\"$\"" "" "651A6" :UBS) "tok&" ("\"&\"" "" "651B2" :UBS) "tok*" ("\"*\"" "" "652D8" :UBS) "tok+" ("\"+\"" "" "652F0" :UBS) "tok/" ("\"/\"" "" "652E4" :UBS) "tokanglesign" ("\"\\<)\"" "" "651EE" :UBS) "tokDER" ("\"\\.d\"" "" "65320" :UBS) "$DER" ("\"der\"" "" "65244" :UBS) "tokSIGMA" ("\"\\GS\"" "" "651FA" :UBS) "tokSQRT" ("\"\\v/\"" "" "65314" :UBS) "tokuscore" ("\"_\"" "" "6519A" :UBS) "tokWHERE" ("\"|\"" "" "65206" :UBS) "tok^" ("\"^\"" "" "652CC" :UBS) "$_RAD" ("\"RAD\"" "" "65797") "$_GRAD" ("\"GRAD\"" "" "657A7") "$_XYZ" ("\"XYZ\"" "" "656E5") "$_RZ\"" "656D5") "$_R<<" ("\"R\\<)\\<)\"" "\"R\"" "656C5") "$_EXIT" ("\"EXIT\"" "" "65769") "$_ECHO" ("\"ECHO\"" "" "65757") "$_Undefined" ("\"Undefined\"" "" "6577B") "tokCTGROB" ("\"GROB\"" "" "6532C" :UBS) "tokCTSTR" ("\"C$\"" "" "6533E" :UBS) "tokUNKNOWN" ("\"UNKNOWN\"" "" "65260" :UBS) "NULL$SWAP" ("ob --> $ ob" "NULL$, then SWAP." "62D59") "DROPNULL$" ("ob --> NULL$" "DROP then NULL$." "04D3E") "TWODROPNULL$" ("ob ob' --> NULL$" "2DROP then NULL$." "04D57" :U) "NULL$TEMP" ("--> $" "Creates null string in temporary memory (NULL$, then TOTEMPOB)." "1613F") "#>$" ("# --> $" "Creates string from the bint (decimal)." "167E4") "#:>$" ("# --> \"#:\\ \"" "Creates string from the bint and appends a colon and a space. Ex: \"1:\\ \"" "167D8") "a%>$," ("% --> $" "Converts real number into string using current display mode." "162B8") "a%>$" ("% --> $" "Converts real number into string using current display mode." "162B8") "ID>$" ("id/lam --> $" "Converts identifier into string." "05BE9") "DOCHR" ("% --> $" "Creates string of the character with the number specified." "140F1") "hxs>$" ("hxs --> $" "Uses current display mode and wordsize." "540BB") "HXS>$" ("hxs --> $" "Does hxs>$ and then appends base character." "54061") "#>CHR" ("# --> chr" "Returns character with the specified ASCII code." "05A75") "CHR>$" ("chr --> $* Strings" "Converts a character into a string." "6475C") "LEN$" ("$ --> #length" "Returns length in bytes." "05636") "LEN$>%" ("$ --> %" "LEN$ then UNCOERCE." "1CA26" :U) "DUPLEN$" ("$ --> $ #" "DUP then LEN$." "627BB") "OVERLEN$" ("$ ob --> $ ob #len" "OVER then LEN$." "05622") "NEWLINE&$" ("$ --> \"$\\0a\"" "Appends newline character to string." "63191") "NEWLINE$&$" ("$ --> \"$\\0a\"" "Appends newline character to string." "63191") "APNDCRLF" ("$ --> $'" "Appends carriage return and line feed to string." "2E4DC") "2LEN$#+" ("$ $' --> $ $' #" "Returns sum of length of two strings." "1782E" :U) "DROPDUPLEN$1+" ("$ ob --> $ #len+1" "Does DROP, then DUP, then LEN$ and finally #1+." "127CA" :U) "CAR$" ("$ --> chr --> \"\"" "Returns first character of string as a string, or NULL$ for null string." "050ED") "CDR$" ("$ --> $'" "Returns string without first character, or NULL$ for null string." "0516C") "POS$" ("$ $find start# --> #pos --> #0" "Search for $find in $search, starting at position #start. Returns position of $find or 0 if not found. Same entry as POSCHR." "645B1") "POSCHR" ("$search chr #start --> #pos --> #0" "Same entry as POS$." "645B1") "ONEPOS$" ("$ $find/chr --> #pos --> #0" "POS$ with #start = 1." "15EF6" :U) "XEQPOS$" ("$ $find/chr --> %pos --> %0" "POS$ with #start = 1 and followed by UNCOERCE." "1CAD7" :U) "POS$REV" ("$ $find #limit --> #pos --> #0" "Searches backwards from #limit to #1. Same entry as POSCHRREV." "645BD") "POSCHRREV" ("$seach chr #start --> #pos --> #0" "Same entry as POS$REV." "645BD") "COERCE$22" ("$ --> $'" "If the string is longer than 22 characters, truncates it to 21 characters and appends \"...\"." "12770") "Blank$" ("#len --> $" "Creates a string with the specified number of spaces." "45676") "PromptIdUtil" ("id ob --> $" "Creates string of the form \"id: ob\"." "49709") "SEP$NL" ("$ --> $' $''" "Separates string at the first newline. $'' is the substring before the first newline; $' the substring after the first newline." "127A7") "SUB$" ("$ #start #end --> $'" "Returns substring between specified positions. " "05733") "XEQSUB$" ("$ % %' --> $'" "Same as SUB$ but uses real numbers as arguments." "1C8BB" :U) "#1-SUB$" ("$ #start #end+#1 --> $'" "Does #1- and then SUB$." "63245") "1_#1-SUB" ("$ #end --> $'" "Returns substring with the first #end characters." "63259") "1_#1-SUB$" ("$ #end --> $'" "Returns substring with the first #end characters." "63259") "LAST$" ("$ #start --> $'" "Returns substring from the specified start position to the end (inclusive)." "6326D") "#1+LAST$" ("$ #start-#1 --> $'" "Returns substring from the specified start position to the end (exclusive)." "63281") "SUB$SWAP" ("ob $ # #' --> $' ob" "SUB$ then SWAP." "62D6D") "SUB$1#" ("$ #pos --> #'" "Returns bint with ASCII code of character at the specified position." "30805") "EXPAND" ("hxs #nibs --> hxs'" "Appends #nibs zero nibbles to the hxs." "61C1C") "&$" ("$ $' --> $+$'" "Concatenates two strings." "05193") "&$SWAP" ("ob $ $' --> $+$' ob" "&$ then SWAP." "63F6A") "!append$" ("$ $' --> $+$'" "Tries &$, if not enough memory does !!append$?." "62376") "!insert$" ("$ $' --> $'+$" "Does SWAP then !append$." "622E5") "!append$SWAP" ("ob $ $' --> $+$' ob" "!append$ then SWAP." "62F2F") "!!append$?" ("$ $' --> $+$'" "Attempts append \"in place\" if target is in tempob." "62312") "!!append$" ("$ $' --> $+$'" "Tries appending \"in place\"." "623A0") "!!insert$" ("$ $' --> $'+$" "Tries inserting \"in place\"." "62394") ">H$" ("$ chr --> $'" "Prepends character to string" "0525B") ">T$" ("$ chr --> $'" "Appends character to string." "052EE") "APPEND_SPACE" ("$ --> $'" "Appends space to string." "62BB0") "SWAP&$" ("$ $' --> $'+$" "Concatenates two strings." "622EF") "TIMESTR" ("%dt %tm --> \"dy dt tm\"" "Returns string representation of time, using current format. Example: \"WED 06/24/98 10:00:45A\"" "0D304") "NOT$" ("$1 $2 --> $'" "Logical QNOTQ." "188D2" :U) "AND$" ("$1 $2 --> $'" "Logical QANDQ. Errors if strings are not the same length." "18873") "OR$" ("$ $' --> $''" "Logical QORQ. Errors if strings are not the same length." "18887") "XOR$" ("$ $' --> $''" "Logical QXORQ. Errors if strings are not the same length." "1889B") "!NOT$" ("$ $' --> $'' ???" "Logical QNOTQ \"in place\"." "18961" :U) "!AND$" ("$ $' --> $'' ???" "Logical QANDQ. Does not check if strings are the same length." "188E6" :U) "!OR$" ("$ $' --> $'' ???" "Logical QORQ, does not check if strings are the same length." "188F5" :U) "!XOR$" ("$ $' --> $'' ???" "Logical QXORQ. Does not check if strings are the same length." "18904" :U) "DONUM" ("$ --> CHR" "Returns number of first character of string." "1410F" :U) "DOSTR>" ("$ --> ?" "Internal version of STR\\->." "14137") "palparse" ("$ --> ob T --> $ #pos $' F" "Tries parsing a string into an object. If successful, returns object and TRUE, otherwise returns position of error, the offending part of the string $', and FALSE. If the string contains several arguments, the resulting object is a secondary containing these objects." "238A4") "!*trior" ("F --> T T --> " "" "0BC6F") "!*triand" ("T T --> F T --> F T " "" "0BCCF") "tok8cktrior" ("$1 $1 --> :: $1 ; $1 $2 --> :: $1 ;" "" "0BD54") "tok8trior" ("GNT data $1 $1 --> :: GNT data GetNextToken ; GNT data $1 $2 --> :: $1 ;" "" "0BD60") "nultrior" ("NULL$ --> :: ; $ --> :: $ ;" "" "2534A") "GetNextToken" ("hxs-mask $ #start --> hxs-mask $ #next $token" "" "26162") "getmatchtok" ("hxs-mask $ #loc $_tok --> hxs-mask $ #next $match" "" "25452") "Parse.1" ("" "" "40AD9") "ParseFail" ("ob $parsed #pos $' -->" "Uses DispBadToken to re-edit the parsed string and displays \"Syntax Error\"." "40B2E") "DispBadToken" ("ob $parsed #pos $' -->" "Re-edits the parsed string, positions the cursor to the location of the error. Used by ParseFail." "40B56" :UBS) "!DcompWidth" ("# -->" "Sets the width (in characters) of decompiled strings. This width is used to cut the resulting string (for stack display) or to break it into lines (mostly for editing). Note that most decompilation entries reset this value to the stack or editor width. Use stkdecomp$w and editdecomp$w to make sure the current width is used and not changed." "1795A") "DcompWidth@" ("--> #" "Recalls the width of decompiled strings (in characters)." "17980") "setStdWid" ("-->" "Sets DcompWidth to the standard value for stack display, either 19 or 30 characters, depending on system flag 72 (stack minifont). -- Flags: -72" "159FA" :UBS) "stkdecomp$w" ("ob --> $" "Decompiles for stack display using the current DcompWidth to cut the string if it is too long." "159EB") "1stkdecomp$w" ("ob --> $" "Calls setStdWid and decompiles for stack display (cutting the string if necessary)." "15978") ">Review$" ("id --> $" "Makes a string from the variable name and its contents (decompiled with Decomp1Line), for display with the review key. If the argument is a command, returns its name." "41422") "editdecomp$w" ("ob --> $" "Decompiles entire object for editing. It only decompiles the UserRPL components. Some System RPL entries like TakeOver are simply skipped, others are written as \"External\". Breaks the resulting strings into lines using the current DcompWidth." "15B31") "EDITDECOMP$" ("ob --> $" "Calls setStdEditWid and the decompiles for editing like editdecomp$w." "15A0E") "DECOMP$" ("ob --> $" "Calls setStdWid and decompiles entire object (UserRPL components only). Breaks the string into lines using DcompWidth as width." "15B13") "DO>STR" ("$ --> $ ob --> $" "Internal version of \\->STR." "14088") "palrompdcmp" ("romptr --> $ T" "Decompiles a rompointer for the UserRPL stack. If it is a named rompointer, returns the name. Otherwise returns \"XLIB n m\"." "62B5B") "NULL$?" ("ob --> flag" "" "0556F") "DUPNULL$?" ("ob --> ob flag" "" "63209") "$<$?" ("$ $' --> flag" "String comparizon, alphabetically by character numbers." "142A6" :U) "$>$?" ("$ $' --> flag" "String comparizon, alphabetically by character numbers." "1420A" :U) "$<=$?" ("$ $' --> flag" "String comparizon, alphabetically by character numbers." "142E2" :U) "$>=$?" ("$ $' --> flag" "String comparizon, alphabetically by character numbers." "142BA" :U) "CkChr00" ("$ --> $ flag" "Returns FALSE if string contains any null characters." "42C3D") "#>HXS" ("# --> hxs" "Length will be five." "059CC") "%>#" ("% --> hxs" "Converts real number into hxs. Should be called %>HXS." "543F9") "WORDSIZE" ("--> #" "Returns the current wordsize as a bint." "54039") "dostws" ("# -->" "Sets the current wordsize." "53CAA") "NULLHXS" ("HXS 0" "Puts a null hxs in the stack." "055D5") "NULLHXS?" ("hxs --> flag" "Returns TRUE if the input is a null hxs." "05566" :U) "#>%" ("hxs --> %" "" "5435D") "&HXS" ("hxs hxs' --> hxs''" "Appends hxs'' to hxs'." "0518A") "MAKEHXS" ("#nibs --> hxs" "Makes blank hxs of specified size." "0EDE1") "!MAKEHXS" ("#nibs --> hxs" "Makes hxs filled with random data." "3742D" :U) "LENHXS" ("hxs --> #nibs" "Returns length in nibbles." "05616") "SUBHXS" ("hxs #m #n --> hxs'" "Returns sub hxs string." "05815") "bit+" ("hxs hxs' --> hxs''" "Adds two hxs." "53EA0") "bit%#+" ("% hxs --> hxs'" "Adds real to hxs, returns hxs." "54330") "bit#%+" ("hxs % --> hxs'" "Adds real to hxs, returns hxs." "54349") "bit-" ("hxs hxs' --> hxs''" "Subtracts hxs2 from hxs1." "53EB0") "bit%#-" ("% hxs --> hxs'" "Subtracts hxs from real, returns hxs." "542FE") "bit#%-" ("hxs % --> hxs'" "Subtracts real from hxs, returns hxs." "5431C") "bit*" ("hxs hxs' --> hxs''" "Multiplies two hxs." "53ED3") "bit%#*" ("% hxs --> hxs'" "Multiplies real by hxs, returns hxs." "542D1") "bit#%*" ("hxs % --> hxs'" "Multiplies hxs by real, returns hxs." "542EA") "bit/" ("hxs hxs' --> hxs''" "Divides hxs1 by hxs2." "53F05") "bit%#/" ("% hxs --> hxs'" "Divides real by hxs, returns hxs." "5429F") "bit#%/" ("hxs % --> hxs'" "Divides hxs by real, returns hxs." "542BD") "bitAND" ("hxs hxs' --> hxs''" "Bitwise QANDQ." "53D04") "bitOR" ("hxs hxs' --> hxs''" "Bitwise QORQ." "53D15") "bitXOR" ("hxs hxs' --> hxs''" "Bitwise QXORQ." "53D26") "bitNOT" ("hxs --> hxs'" "Bitwise QNOTQ." "53D4E") "bitASR" ("hxs --> hxs'" "Arithmetic shift one bit to the right. The most significant bit (the sign) does not change." "53E65") "bitRL" ("hxs --> hxs'" "Shifts circularly one bit to the left." "53E0C") "bitRLB" ("hxs --> hxs'" "Shifts circularly one byte to the left" "53E3B") "bitRR" ("hxs --> hxs'" "Shifts circularly one bit to the right." "53DA4") "bitRRB" ("hxs --> hxs'" "Shifts circularly one byte to the right." "53DE1") "bitSL" ("hxs --> hxs'" "Shifts one bit to the left." "53D5E") "bitSLB" ("hxs --> hxs'" "Shifts one byte to the left." "53D6E") "bitSR" ("hxs --> hxs'" "Shifts one bit to the right." "53D81") "bitSRB" ("hxs --> hxs'" "Shifts one byte to the right." "53D91") "bitNEG" ("hxs --> hxs'" "Changes sign of hxs." "53EC3" :U) "HXS==HXS" ("hxs hxs' --> %flag" "== test" "544D9") "HXS#HXS" ("hxs hxs' --> %flag" "\\=/ test" "544EC") "HXS %flag" "< test" "54552") "HXS>HXS" ("hxs hxs' --> %flag" "> test" "54500") "HXS>=HXS" ("hxs hxs' --> %flag" "\\>= test" "5452C") "HXS<=HXS" ("hxs hxs' --> %flag" "\\<= test" "5453F") ">TAG" ("ob $tag --> tagged" "Tags an object." "05E81") "USER$>TAG" ("ob $tag --> tagged" "Maximum of 255 characters in string." "225F5") "%>TAG" ("ob % --> tagged" "Converts real to string using current display mode and tags object." "22618") "ID>TAG" ("ob id/lam --> tagged" "Tags object with identifier or lam." "05F2E") "{}>TAG" ("{ id ob } --> tagged" "" "05E9F" :U) "TAGOBS" ("ob $tag --> tagged ob.. { $.. } --> tagged..." "Tags one or more objects." "647BB") "TAG>" ("tagged --> ob $tag" "" "05EC9" :U) "STRIPTAGS" ("tagged --> ob" "Strips all tags from the object." "64775") "STRIPTAGSl2" ("tagged ob' --> ob ob'" "Strips all tags from the object in level two." "647A2") "ARSIZE" ("[] --> #" "Returns number of elements as a bint." "03562") "DIMLIMITS" ("[] --> {#n #m}" "Returns list of array dimensions." "035A9") "GETATELN" ("# [] --> ob T --> F" "Gets one element from array." "0371D") "rGETATELN" ("" "Gets one element from array referenced by rompointer. " "0C506") "GETEL" ("#i [] --> ob T --> F" "Gets one element from array." "0C501" :U) "MATIDN" ("[F%] --> [F%]'" "Creates identity matrix. Errors if input is not a square matrix." "35D35" :U) "SWAPROWS" ("M % %' --> M'" "SWAP two rows in matrix. Internal version of xRSWP. " "3745E") "SWAPCOLUMNS" ("[] #m #n --> []' #m #n" "" "37508" :U) "TYPEARRY@" ("[] --> #" "Returns address of the prolog of the array element type." "9358F" :UBS) "ARRYEL?" ("{#n #m} [] --> # T --> F" "Returns TRUE if array element exists." "03685" :U) "FINDELN" ("{} A --> # flag" "Return index # of element {} in array." "03685" :U) "BANGARRY" ("el # M --> M'" "Puts el at index # of matrix M." "1DBB0" :UBS) "MATCON" ("[%] % --> [%]' [C%] C% --> [C%]'" "Replace all elements of [F%] by F%." "35CAE") "METREDIM" ("[F%] {#n #m} --> [F%]'" "Redimensions matrix. Removes elements or adds zeros as necessary." "37E0F") "MDIMS" ("[1D] --> #m F [2D] --> #m #n T" "If it is a vector, returns number of elements and FALSE. If it is an array (including arrays with only one line), returns dimensions and TRUE." "357A8") "MDIMSDROP" ("[2D] --> #m #n" "MDIMS followed by DROP." "62F9D") "OVERARSIZE" ("[] ob --> [] ob #elts" "Does OVER then ARSIZE." "63141") "PULLREALEL" ("[%] # --> [%] %" "Gets real element." "355B8") "PULLCMPEL" ("[C%] # --> [C%] C%" "Gets complex element." "355C8") "PULLEL" ("[F%] #n --> [F%] F%" "Gets real or complex element." "3558E" :U) "PULLEREALEL" ("[%] #n --> [%] %%" "Gets real element then converts to long real." "35602" :U) "PULLLONGEL" ("[F%] #n --> [F%] L%" "Gets element then converts to long." "355D8" :U) "PUTEL" ("[%] % # --> [%]' [C%] C% # --> [C%]'" "Puts element at specified position. Converts to \"short\" before. Warning: no copy to tempob first." "35628") "PUTREALEL" ("[%] % # --> [%]'" "Puts real element at specified position. Warning: no copy to tempob first." "3566F") "PUTCMPEL" ("[C%] C% # --> [C%]'" "Puts complex element at specified position. Warning: no copy to tempob first." "356F3") "MAT+" ("[F%] [F%]' --> [F%]''" "Adds two arrays." "36115" :U) "MAT-" ("[F%] [F%]' --> [F%]''" "Subtracts two arrays." "36278" :U) "MAT*" ("[F%] [F%]' --> [F%]''" "Multiplies two arrays." "3644E" :U) "MAT/" ("[F%] [F%]' --> [F%]''" "Divides two arrays." "36AC3" :U) "MATFLOAT*" ("[F%] F% --> [F%]'" "Multiplies matrix by float." "362DC" :U) "MATFLOAT/" ("[F%] F% --> [F%]'" "Divides matrix by float." "363DB" :U) "MATSQ" ("[F%] --> [F%]'" "Squares matrix." "36444" :U) "MATCONJ" ("[F%] --> [F%]'" "If a complex array, does the conjugate of all elements. If a real array, does nothing." "35F30" :U) "MATNEG" ("[F%] --> [F%]'" "Changes sign of all elements of array." "35DEB" :U) "MATINV" ("[F%] --> [F%]'" "Reciprocal of all elements of array." "36A99" :U) "MATREDIM" ("[F%] {#n #m} --> [F%]'" "" "37E0F") "MATTRN" ("[F%] --> [F%]'" "Transposes matrix." "3811F") "DUP%0CON" ("[F%] --> [F%] [0%]" "DUP then creates a matrix of the same size filled with zeros." "35FA3" :U) "MATDET" ("[F%] --> F%" "Calculates determinant of matrix. Generates \"Invalid Dimension\" error for non-square matrices." "36A48" :U) "MATABS" ("[F%] --> F%" "Returns the scalar magnitude of array." "369E9" :U) "MATDOT" ("[F%] [F%]' --> F%" "Returns the dot product of two vectors." "36705" :U) "MATCROSS" ("[F%] [F%]' --> [F%]''" "Returns the cross product of two vectors. Generates a \"Invalid Dimension\" error if inputs are not vectors." "36791" :U) "MATRSD" ("[F%] [F%] [F%] --> [F%]" "Calculates residuals of solutions of a linear system." "365BB" :U) "MATRNRM" ("" "Row norm." "368F4" :U) "MATCNRM" ("[F%] --> F%" "Column norm." "3690D" :U) "MATR>C" ("[%re] [%im] --> [C%]" "Creates complex matrix from real and imaginary parts." "36039" :U) "MATC>R" ("[C%] --> [%re] [%im]" "Explodes complex matrix into real and imaginary parts." "360B6" :U) "MATRE" ("[F%] --> [%re]" "Returns (real) matrix with real part of complex numbers. Does nothing if the input is a real matrix." "35F8F" :U) "MATIM" ("[F%] --> [%im]" "Returns (real) matrix with imaginary part of complex numbers. Returns an array of zeros if input is a real matrix." "35FEE" :U) "MATRND" ("[F%] % --> [F%]'" "RND on all elements of matrix." "35E2C" :U) "MATTRNC" ("[F%] % --> [F%]'" "TRNC on all elements of matrix." "35EA9" :U) "DOARRYPRG1" ("seco [F%] --> [F%]'" "Evaluates seco for each element in array, then builds array again. Argument for seco will be L%." "35C2C" :U) "DOARRYPRG2" ("seco [F%] [F%] --> [F%]'" "Same as above, but seco has two arguments: one from array1 and another from array2. Arrays must be F%. Arguments for seco will be L%." "35C63" :U) "MAKEARRY" ("{#n #m} ob --> []" "Makes array with all elements initialized to ob." "03442") ">ARRY" ("F%..F% #n [%F] --> [F%]'" "Copies floats into array." "19294" :U) "XEQ>ARRY" ("F%..F% {#n #m} --> [F%]" "Makes array with specified dimensions and elements. Does checks first." "1D054") "XEQ>ARRAY" ("F%..F% {#n #m} --> [F%]" "Makes array with specified dimensions and elements. Does checks first." "1D054") "XEQ>VECTOR" ("F%..F% %n --> [%F]" "Creates a vector." "1D02C" :U) "DOARRY>" ("[] --> F%..F% {#n #m}" "Explodes array. Only works for arrays of (normal) real and complex numbers." "1D0AB" :U) "STATCLST" ("-->" "Clears \\GSDAT." "2C22F") "STATRCL" ("--> ob" "Recalls \\GSDAT." "2C270" :U) "STATSTO" ("ob -->" "Stores ob into \\GSDAT." "2C1F3" :U) "STATN" ("--> N" "Internal N\\GS." "2C535") "STATSMIN" ("--> %" "Internal MIN\\GS." "2C58A") "STATSMAX" ("--> %" "Internal MAX\\GS." "2C558") "STATMEAN" ("--> % --> []" "Internal MEAN." "2C571") "STATSTDEV" ("--> % --> []" "Internal SDEV." "2C5A3") "STATTOT" ("--> % --> []" "Internal TOT." "2C5BC") "STATVAR" ("--> % --> []" "Internal VAR." "2C5D5") "STATCOL" ("% %' -->" "Internal COL\\GS." "2C675" :U) "STATXCOL" ("n -->" "Internal XCOL." "2C6B6" :U) "STATYCOL" ("n -->" "Internal YCOL." "2C6CF" :U) "STATGETXCOL" ("" "" "2C6F2" :U) "STATGETYCOL" ("" "" "2C706" :U) "STATCOV" ("--> %" "Internal COV." "2C8E6" :U) "STATX" ("--> %" "Internal \\GSX." "2C940" :U) "STATY" ("--> %" "Internal \\GSY." "2C959" :U) "STATXX" ("--> %" "Internal \\GSX2." "2C972" :U) "STATYY" ("--> %" "Internal \\GSY2." "2C99A" :U) "STATXY" ("--> %" "Internal \\GSXY." "2C9C2" :U) "STATLR" ("" "" "2CA0D" :U) "STATPREDX" ("% --> %'" "Internal PREDX." "2CB4D" :U) "STATPREDY" ("% --> %'" "Internal PREDY." "2CADA" :U) "ColumnMIN" ("" "" "2CCD3" :U) "ColumnMAX" ("" "" "2CCBA" :U) "ColumnMEAN" ("" "" "2CCEE" :U) "ColumnTDEV" ("" "" "2CD09" :U) "ColumnTOT" ("" "" "2CCDF" :U) "ColumnVAR" ("" "" "2CCFD" :U) "STATCORR" ("--> %" "Internal CORR." "2C83C" :U) "um*" ("* marker" "" "10B5E") "um/" ("/ marker" "" "10B68") "um^" ("^ marker" "" "10B72") "umP" ("Char prefix operator" "" "10B7C") "umEND" ("Unit end operator" "" "10B86") "EXTN" ("ob1..obn #n --> u" "Builds a unit object." "05481") "U>NCQ" ("u --> n%% cf%% qhxs" "Returns the number, conversion factor to base units and a vector in the form: [ kg m A s K cd mol r sr ? ] where each element represents the exponent of that unit. For example, 1_N U>NCQ would return: %%1 %%1 [ 1 1 0 -2 0 0 0 0 0 0 ] since it is equivalent to 1_kg*m/s^2" "0FE44") "UM>U" ("% u --> u'" "Replaces number part of unit." "0F33A") "UMCONV" ("u1 u2 --> u1'" "Change units of unit1 to units of unit2." "0F371") "UMSI" ("u --> u'" "Equivalent to user word UBASE." "0F945") "UMU>" ("u --> % u'" "Returns number and normalized part of unit." "0F34E") "UNIT>$" ("u --> $" "Converts unit to string." "0F218") "UMFACT" ("u1 u2 --> u" "Equivalent to user word UFACT." "197C8" :U) "U>nbr" ("u --> %" "Returns number part of unit." "10047") "Unbr>U" ("u % --> u'" "Replaces number part of unit." "10065") "TempConv" ("???" "Used by UMCONV for the conversion of temperature units." "0F41B") "KeepUnit" ("% ob ob' --> % ob % ob u --> u' ob" "If the level one object is a unit object, replaces the numeric part of it with the number on level 3. If not, just DROP." "1553B") "UM+" ("u u' --> u''" "" "0F6A2") "UM-" ("u u' --> u''" "" "0F774") "UM*" ("u u' --> u''" "" "0F792") "UM/" ("u u' --> u''" "" "0F823") "UM%" ("u %percent --> u'" "" "0FBAB") "UM%CH" ("u u' --> %" "" "0FC3C") "UM%T" ("u u' --> %" "" "0FCCD") "UMMIN" ("u u' --> u?" "" "0FB8D") "UMMAX" ("u u' --> u?" "" "0FB6F") "UMXROOT" ("u u' --> u''" "" "0F8FA") "UMABS" ("u --> u'" "" "0F5FC") "UMCHS" ("u --> u'" "" "0F615") "UMINV" ("u --> u'" "" "0F841" :U) "UMSQ" ("u --> u'" "" "0F913") "UMSQRT" ("u --> u'" "" "0F92C") "UMOPER:" ("u --> u'" "Evaluates next object with numeric unit part, then builds unit again. For example: :: UMOPER: %1/ ;" "0FD4A" :U) "UMSIGN" ("u --> %" "" "0FCE6") "UMIP" ("u --> u'" "" "0FCFA") "UMFP" ("u --> u'" "" "0FD0E") "UMFLOOR" ("u --> u'" "" "0FD22") "UMCEIL" ("u --> u'" "" "0FD36") "UMRND" ("u --> u'" "" "0FD68") "UMTRC" ("u --> u'" "" "0FD8B") "UMCOS" ("u --> u'" "" "0F660") "UMSIN" ("u --> u'" "" "0F62E") "UMTAN" ("u --> u'" "" "0F674") "UM=?" ("u u' --> %flag" "" "0F584") "UM#?" ("u u' --> %flag" "" "0F598") "UM %flag" "" "0F5AC") "UM>?" ("u u' --> %flag" "" "0F5C0") "UM<=?" ("u u' --> %flag" "" "0F5D4") "UM>=?" ("u u' --> %flag" "" "0F5E8") "puretemp?" ("[] []' --> [] []' flag" "Checks of the two arrays both denote pure temperature units, i.e. if both arrays are equal to [0. 0. 0. 0. 1. 0. 0. 0. 0. 0.]" "0F3E4") "&COMP" ("comp comp' --> comp''" "Concatenates two composites." "0521F") ">TCOMP" ("comp ob --> comp+ob" "Adds ob to tail (end) of composite." "052FA") ">HCOMP" ("comp ob --> ob+comp" "Adds ob to head (beginning) of composite." "052C6") "SWAP>HCOMP" ("ob comp --> ob+comp" "Does SWAP then >HCOMP." "1AC93" :U) "CARCOMP" ("comp --> ob_head comp_null --> comp_null" "Returns first object of the composite, or a null composite if the argument is a null composite." "05089") "?CARCOMP" ("comp T --> ob comp F --> comp" "If the flag is TRUE, does CARCOMP." "6317D") "CDRCOMP" ("comp --> comp-ob_head comp_null --> comp_null" "Returns the composite minus its first object, or a null composite if the argument is a null composite." "05153") "LENCOMP" ("comp --> #n" "Returns length of composite (number of objects)." "0567B") "DUPLENCOMP" ("comp --> comp #n" "Does DUP then LENCOMP." "63231") "LENCOMP>%" ("comp --> %n" "Returns length of composite as a real number." "1CA3A" :U) "NULLCOMP?" ("comp --> flag" "If the composite is empty, returns TRUE." "055B7") "DUPNULLCOMP?" ("comp --> comp flag" "Does DUP then NULLCOMP?." "6321D") "NTHELCOMP" ("comp #i --> ob T --> F" "Returns specified element of composite and TRUE, or just FALSE if it could not be found." "056B6") "NTHCOMPDROP" ("comp #i --> ob" "Does NTHELCOMP then DROP." "62B9C") "NTHCOMDDUP" ("comp #i --> ob ob" "Does NTHCOMPDROP then DUP." "62D1D") "rNTHELCOMP" ("romptr #i --> ob T --> F" "Returns specified element of composite referenced by the romptr, and TRUE, or just FALSE if it could not be found." "71C3B") "POSCOMP" ("comp ob pred --> #i --> #0 (eg: pred = ' %<)" "Evaluates pred for all elements of composite and ob, and returns index of first object for which the pred is TRUE. If no one returned TRUE, returns #0. For example, the program below returns #4: :: { %1 %2 %3 %-4 %-5 %6 %7 } %0 ' %< POSCOMP ;" "64426") "EQUALPOSCOMP" ("comp ob --> #pos --> #0" "POSCOMP with EQUAL as test." "644A3") "NTHOF" ("ob comp --> #i --> #0" "Does SWAP then EQUALPOSCOMP." "644BC") "#=POSCOMP" ("comp # --> #i --> #0" "POSCOMP with #= as test." "6448A") "SUBCOMP" ("comp #m #n --> comp'" "Returns a sub-composite. Makes all index checks first." "05821") "matchob?" ("ob comp --> T --> ob F" "Returns TRUE if ob is EQUAL to any element of the composite." "643EF") "Embedded?" ("ob1 ob2 --> flag" "Returns TRUE if ob2 is embedded in, or is the same as, ob1. Otherwise returns FALSE." "64127") "Find1stTrue" ("comp test --> ob T --> F" "Tests every element for test. The first one that returns TRUE is put into the stack along with TRUE. If no object returned TRUE, FALSE is put into the stack. For example, the program below returns %-4 and TRUE. :: { %1 %2 %2 %-4 %-5 %6 } ' %0< Find1stTrue ;" "644D0") "Find1stT.1" ("" "Recursive internal function for Find1stTrue." "644EE") "Lookup" ("ob test comp --> nextob T --> ob F" "Tests every odd element (1,3,...) in the composite. If a test returns TRUE, the object after the tested one is returned, along with TRUE. If no object tests TRUE, FALSE is returned. For example, the program below returns %6 and TRUE. :: %0 ' %< { %1 %2 %3 %-4 %-5 %6 } Lookup ;" "6452F") "Lookup.1" ("ob test --> nextob T --> ob F Return Stack: comp -->" "Lookup with the composite already pushed (with >R) onto the runstream. Called by Lookup. " "64548") "EQLookup" ("ob comp --> nextob T --> ob F" "Lookup with EQ as test." "64593") "NEXTCOMPOB" ("comp #ofs --> comp #ofs' ob T --> comp F" "Returns object at specified nibble offset from start. If the object is SEMI (i.e., the end of the composite has been reached) returns FALSE. To get the first element, use FIVE as offset value (to skip the prolog). ZERO works as well." "6480B") "COMPN" ("obn..ob1 #n #prolog --> comp" "" "05331") "{}N" ("obn..ob1 #n --> { obn..ob1 }" "" "05459") "::N" ("ob1..obn #n --> :: ob1..obn ;" "" "05445") "SYMBN" ("ob1..obn #n --> sym" "" "0546D") "SYMBN:" ("ob1..obn #n --> symb" "Does 'R, SWAP#1+ then SYMBN. Creates a symbolic from the meta in the stack and the next object in the runstream. This object is added to the end of the symbolic." "54CEF" :U) "top&Cr" ("meta1 meta2 --> symb" "Does top& then SYMBN: ." "63F01") "ONESYMBN" ("ob1..obn #n --> symb" "" "5E661" :U) "P{}N" ("ob1..obn #n --> {}" "Build list with possible garbage collection." "5E0DA") "P::N" ("ob1..obn #n --> seco" "Build seco with possible garbage collection." "5E111" :U) "PSYMBN" ("ob1..obn #n --> sym" "Build symb with possible garbage collection." "5E0A3" :U) "INNERCOMP" ("comp --> obn..ob1 #n" "" "054AF") "DUPINCOMP" ("comp --> comp obn..ob1 #n" "" "631E1") "SWAPINCOMP" ("comp obj --> obj obn..ob1 #n" "" "631F5") "INCOMPDROP" ("comp --> obn..ob1" "" "62B88") "INNERDUP" ("comp --> obn..ob1 #n #n" "" "62C41") "ICMPDRPRTDRP" ("comp --> obn...ob4 ob2 ob1" "Does INCOMPDROP then ROTDROP." "4A95A") "XEQLIST>" ("comp --> obn..ob1 %n" "" "1C973" :U) "INNER#1=" ("comp --> obn..ob1 flag" "" "636A0") "INNERtop&" ("obn..ob1 #n comp --> obm..ob1 #m" "Explodes composite and adds to meta: INNERCOMP top& Adds composite objects to meta object." "5E585") "NULL{}" ("--> {}" "Pushes a null list to the stack." "055E9") "DUPNULL{}?" ("{} --> {} flag" "" "63A6F") "ONE{}N" ("ob --> { ob }" "" "23EED") "TWO{}N" ("ob1 ob2 --> { ob1 ob2 }" "" "631B9") "THREE{}N" ("ob1 ob2 ob3 --> { ob1 ob2 ob3 }" "" "631CD") "#1-{}N" ("ob1..obn #n+1 --> {}" "" "631A5") "PUTLIST" ("ob #i {} --> {}'" "Replaces object at specified position. Assumes valid #i." "1DC00") "INSERTN{}" ("{} ob #n --> {}'" "Insert ob at #nth position. Assumes valid #n." "0E461" :U) "REMOVEN{}" ("{} #n --> {}'" "Removes nth ob. Assumes valid #n." "0E4DE" :U) "ROLL{}" ("{} --> {}'" "Rolls list elements." "49CD6" :U) "apndvarlst" ("{} ob --> {}'" "Appends ob to list if not already there." "35491") "EqList?" ("ob -->" "Is ob a list of equations? Returns T if ob is a list of at least two elements, and the second element is not a list itself." "152FF") "NULL::" ("--> :: ;" "Returns null secondary." "055FD") "Ob>Seco" ("ob --> :: ob ;" "Does ONE then ::N." "63FE7") "?Ob>Seco" ("ob --> :: ob ;" "If the object is not a secondary, does Ob>Seco." "63FCE") "2Ob>Seco" ("ob1 ob2 --> :: ob1 ob2 ;" "Does TWO then ::N." "63FFB") "::NEVAL" ("ob1..obn #n --> ?" "Does ::N then EVAL." "632D1") "argum" ("seco --> seco #args" "Returns argument count for secondary. Checks first command, it it is different from CK0, CK1&Dispatch, etc. #5 is returned." "5E8DE" :U) "infarg?" ("seco --> seco flag" "Is first command in secondary CKINFARGS?" "5E9A7" :U) "dup" ("meta --> meta meta" "" "5E35C" :U) "NDROP" ("1..n #n -->" "" "0326E") "DROPNDROP" ("1..n #n ob -->" "" "63FA6") "N+1DROP" ("ob 1..n #n -->" "" "62F75") "#1+NDROP" ("ob 1..n #n -->" "" "62F75") "NDROPFALSE" ("ob1..obn #n --> F" "" "169A5") "psh" ("meta1 meta2 --> meta2 meta1" "Should be called swap." "5EB1C") "rot" ("meta1 meta2 meta3 --> meta2 meta3 meta1" "" "5EB58" :UBS) "unrot" ("meta1 meta2 meta3 --> meta3 meta1 meta2" "" "5EBDB" :UBS) "4roll" ("meta1 meta2 meta3 meta4 --> meta2 meta3 meta4 meta1" "" "5EBC6" :U) "4unroll" ("meta1 meta2 meta3 meta4 --> meta4 meta1 meta2 meta3" "" "5EBEA" :U) "5roll" ("meta1..meta5 --> meta2..meta5 meta1" "" "5ED45" :U) "5unroll" ("meta1..meta5 --> meta5 meta1..meta4" "" "5ED5A" :U) "N+1roll" ("META1..METAn+1 #n --> META2..METAn+1 META1" "" "5EBFC" :U) "N+1unroll" ("META1..METAn+1 #n --> METAn+1 META1..METAn" "" "5ED6C" :U) "SWAPUnNDROP" ("meta1 meta2 --> meta2" "Should be called swapdrop." "63911") "SWAPUnDROP" ("meta1 meta2 --> meta2 ob1..obn" "Swaps two metas and drops the count. Should be called swapDROP." "638FD") "rotswap" ("meta1 meta2 meta3 --> meta2 meta1 meta3" "" "5E857" :U) "metaROTDUP" ("meta1 meta2 meta3 --> meta2 meta3 meta1 meta1" "Should be called rotdup." "63F1A") "4rollunrot" ("meta1 meta2 meta3 meta4 --> meta2 meta1 meta3 meta4" "" "5E870" :U) "top&" ("meta1 meta2 --> meta1&meta2" "" "5E415") "pshtop&" ("meta1 meta2 --> meta2&meta1" "" "5E4D1") "ROTUntop&" ("meta1 meta2 meta3 --> meta2 meta3&meta1" "" "63F2E") "rolltwotop&" ("meta1 meta2 meta3 --> meta3 meta1&meta2" "" "63F42") "roll2top&" ("meta1 meta2 meta3 --> meta3 meta1&meta2" "" "63F42") "over&" ("meta1 meta2 meta3 --> meta1&meta2 meta3" "" "5E3C0" :U) "psh&" ("meta1 meta2 meta3 --> meta1&meta3 meta2" "" "5E3AC") "overev&" ("meta1 meta2 meta3 --> meta2&meta1 meta3" "" "5E843" :U) "2top&" ("meta1 meta2 meta3 --> meta1&meta2&meta3" "" "5E490" :U) "top&pshtop&" ("meta1 meta2 meta3 --> meta2&meta3&meta1" "" "5B861" :U) "DUP#1+PICK" ("n..1 #n --> n..1 #n n" "" "6119E") "pick1" ("ob meta --> ob meta ob" "" "5FC24" :U) "get1" ("ob meta --> meta ob" "" "61305") "OVER#2+UNROL" ("meta ob --> ob meta" "" "63105") "pshm1" ("meta ob --> ob #1 meta" "" "5E3E8" :U) "psh1top&" ("meta ob --> ob&meta" "" "5E401") "pulldrop" ("meta&ob --> meta" "" "5EAF4" :U) "pullpshm1" ("meta&ob --> ob #1 meta" "" "5E6BB" :U) "pullrev" ("ob&meta --> meta ob" "" "5E4BD") "pulldroppull" ("meta&ob1&ob2 --> meta ob1" "" "5FA45" :U) "2pull2DROP" ("meta&ob1&ob2 --> meta" "" "5CC12" :U) "revpulldrop" ("meta&ob1 ob2 --> meta ob2" "" "5FA63" :U) "revpull&psh" ("meta&ob1 ob2 --> ob1&ob2 meta" "" "548AA" :U) "psh1&" ("meta1 meta2 ob --> ob&meta1 meta2" "" "5E706") "psh1&rev" ("meta1 meta2 ob --> ob&meta1 meta2" "" "5E7A5") "addtpsh" ("meta1 meta2 ob --> meta1&ob meta2" "" "57432" :U) "(rot1)" ("ob meta1 meta2 --> meta1 meta2 ob" "" "10ADB" :UBS) "UobROT" ("ob meta1 meta2 --> meta1 meta2 ob" "" "10ADB" :UBS) "unrot1" ("meta1 meta2 ob --> ob meta1 meta2" "" "10AF9" :U) "pullpsh1&" ("meta1 meta2&ob --> ob&meta1 meta2" "" "5E4EA") "pullrev1&" ("meta1 meta2&ob --> meta1&ob meta2" "" "5E503" :U) "pshpullpsh1&" ("meta1&ob meta2 --> ob&meta2 meta1" "" "5D6FA" :U) "pshzer" ("meta --> #0 meta" "" "5E67A") "4psh" ("meta1 ob1..ob4 --> ob1&..ob4 meta1" "meta2 = ob1&ob2&b3&ob4" "25322" :U) "repl%1" ("meta&ob --> meta&%1" "" "554B3" :U) "repl%-1" ("meta&ob --> meta&%-1" "" "55607" :U) "COLAkeep1st" ("meta&ob --> ob" "Returns and ( meta&ob ob )" "5483C" :U) "%1pshm1" ("meta --> %1 #1 meta" "" "5FC38" :U) "addt:" ("meta --> meta&ob" "ob is next ob in runstream. " "5E51C" :U) "addt2:" ("meta --> meta&ob1&ob2" "ob is next ob in runstream. " "5E530" :U) "repl:" ("meta&ob --> meta&ob'" "ob is next ob in runstream. " "5E59E" :U) "psh1&rev:" ("meta1 meta2 --> meta1&ob meta2" "ob is next ob in runstream. " "5E549" :U) "psh1&rev2:" ("meta1 meta2 --> meta1&ob1&ob2 meta2" "ob is next ob in runstream. " "5E562" :U) "2psh1&rev:" ("meta1 meta2 --> meta1&ob meta2&ob" "ob is next ob in runstream. " "5DD65" :U) "replfunc" ("meta&ob --> meta&LAM1" "Uses contents of LAM1. " "55477" :U) "xssgneral" ("meta1 meta2 --> meta1&meta2&LAM1" "Uses contents of LAM1. " "560ED") "xnsgeneral" ("meta --> LAM3&meta&LAM1" "Uses contents of LAM1 and LAM3." "56101") "xsngeneral" ("meta --> meta&LAM3&LAM1" "Uses contents of LAM1 and LAM3." "5611F") "dropaddoper" ("meta1 meta2 meta3 --> meta1&meta2&LAM1" "Uses contents of LAM1." "562BE" :U) "MetaUnCalc" ("meta ob --> LAM3 #1" "Uses contents of LAM1 LAM3." "56309" :U) "SubMetaOb" ("meta #start #end --> meta'" "Gets a sub-meta. Does range checks." "64345") "SubMetaOb1" ("ob1..obi..obn #n #i #n #i --> ob1..obi #n #i" "This function can be used to take the first i objects of a meta, if you follow it with SWAPDROP. Example: :: %1 %2 %3 %4 %5 BINT5 BINT3 BINT5 BINT3 SubMetaOb1 ; results in: %1 %2 %3 #5 #3" "643BD") "tailpsh" ("meta #n --> meta1 meta2" "Pushes n-1 last objects in meta to meta1." "5F996" :U) "metatail" ("ob1..obn-i..obn #i #n+1 --> ob1..ob..obn-i #n-i obn-i+1..obn #i" "#n is the count of the objects in meta. Takes the last #i elements of meta and creates a new one. Example: :: %1 %2 %3 %4 %5 BINT2 BINT6 metatail ; Results: %1 %2 %3 #3 %4 %5 #2" "28296") "MEQU?" ("meta1 meta2 --> meta1 meta2 flag" "If the metas are equal (i.e., same count and equal objects) returns TRUE." "584B2" :U) "ObInMeta?" ("meta ob --> meta ob flag" "Returns TRUE if ob is equal to some ob in meta." "5768A" :U) "?addinver:" ("meta&Nob --> meta meta --> meta&1LAM" "If next object in the runstream is equal to first object of meta, drops that object. Otherwise, adds 1LAM to meta." "55314" :U) "?addrever" ("meta&1LAM --> meta&1LAM meta --> meta&1LAM" "Adds 1LAM to meta, if not already there." "5540E" :U) "?addsimir" ("meta meta --> meta" "" "5613D" :U) "NoIdsInMeta?" ("meta --> meta flag" "If meta has any ids, lams or secondaries starting with CK0, returns FALSE." "58715" :U) "dvars?" ("meta --> meta flag" "Returns TRUE if meta contains any LAM dvar." "5AD08" :U) ">dvars" ("meta1 meta2 --> meta1&meta2'" "All ids in meta2 matching lam 'dvar contents are changed to LAM_'dvar. (meta1 can be #0)." "5670F" :U) "dvars>" ("meta --> meta'" "Lam 'dvars: are changed to 1LAM)" "5AC86" :U) "dropDROPf" ("ob meta --> F" "" "50F60" :U) "DROP2dropf" ("meta1 meta2 ob --> F" "" "57419" :U) "2DROP2dropf" ("meta1 meta2 ob1 ob2 --> F" "" "57405" :U) "Repl0" ("meta --> %0 #0" "" "5551C" :U) "Repl1" ("meta --> %1 #1" "" "55535" :U) "Repl-1" ("meta --> %-1 #1" "" "5554E" :U) "2Repl0" ("meta1 meta2 --> %0 #1" "" "56183" :U) "2Repl-1" ("meta1 meta2 --> %-1 #1" "" "561D8" :U) "DropRepl0" ("meta ob --> %0 #1" "" "5643A" :U) "Repl0ABND" ("meta --> %0" "" "5499F" :U) "Cr" ("ob1..obn #n -> symb" "Does 'R, SWAP#1+ then SYMBN . Creates a symbolic from the meta in the stack and the next object in the runstream. This object is added to the end of the symbolic." "54CEF" :U) "NULLSYMB" ("--> sym" "Puts a null algebraic in the stack." "055F3" :U) "SINNER" ("sym --> meta ob --> ob #1" "If the argument is a symbolic, does INNERCOMP, otherwise ONE. Note that ob #1 is a meta object with only one object." "5E067" :U) "2SINNER" ("ob1 ob2 --> meta1 meta2" "SINNER for two objects." "5E30C" :U) "2SINNERtop&" ("ob1 ob2 --> meta" "Does 2SINNER then top& ." "5E2F8" :U) "SINNERMETA" ("meta --> meta'" "Explodes each object in meta with SINNER and merges the result with top&." "5E32A" :U) "EXPLODE" ("ob --> meta" "Uses recursive calls to SINNER to explode object." "5F2A3" :U) "IMPLODE" ("meta --> ob" "Builds symbolic obeying VUNS properties (UNSYM element), checking fcnapply, etc. Does not build symbolic if result is a single object valid in symbolics." "5F2EE" :U) "symcomp" ("ob --> ob'" "If ob is symbolic, does nothing, otherwise ONE SYMBN." "5E652") "SWAPcompSWAP" ("ob ob' --> ob'' ob'" "Does SWAP symcomp SWAP." "5A01D") "CKSYMBN" ("meta --> ob" "If size is not one, does SYMBN, else DROPSYM." "5E085" :U) "DROPSYM" ("ob1 ob2 --> ob" "Drops ob2, if ob1 if symf does nothing, else does ONESYMBN." "5F384" :U) "SPLITEQ" ("sym --> arg1 arg2" "Internal version of EQ\\->." "1CF2E" :U) "EXPR>" ("sym --> arg1..argn %n ob" "Internal version of OBJ\\->." "1CFD0" :U) "CRUNCH" ("ob --> %" "Internal version of \\->NUM." "1578D") "SYMCRUNCH1" ("ob --> %" "If id does XEQRCL , then does CRUNCH for all object types." "22F68" :U) "SYMCRUNCH2" ("ob1 ob2 --> % ob2" "SYMCRUNCH1 for the object in level two." "22F86" :U) "FINDVAR" ("sym --> {}" "Returns a list of the variables of the equation, recursing into programs and functions in the equation." "353AB" :U) "uncrunch" ("-->" "Clears numeric results flag (system flag 3) for the next command only. Example: SYMCOLCT = :: uncrunch colct ; -- Flags: -3" "5A036") "cknumdsptch1" ("sym --> symf" "Used by one argument functions to evaluate a symbolic or numeric routine according to numeric results flag. Usage: :: cknumdsptch1 ; If numeric mode, CRUNCH is applied to the level one object and COLA is applied to . If symbolic mode, ckseval1: is called. Example: :: cknumdsptch1 MetaRE xRE ; -- Flags: -3" "545A0") "ckseval1:" ("symf' --> symf'" "Binds next two objects in the runstream to LAMxSYMfcn and LAMxfnc. Explodes symf, then evaluates next on Meta, then builds ob with CKSYMBN. If symf is equation next is evaluated on both sides, then equation is rebuilt (ckevaleq1)." "54DBC" :U) "ckevaleq1" ("meta&= --> sym" "Evaluates 2LAM on both sides of equation, rebuilds symbolic and abandons temporary environment." "54E2A" :U) "sscknum2" ("sym sym --> symf" "Used by two argument functions to evaluate function according to current numeric mode. Usage: :: sscknum2 ;" "558DC") "sncknum2" ("sym % --> symf" " Usage: :: sncknum2 ; In symbolic mode uses cksneval2:. Example: SYM+O = :: sncknum2 Meta+Con x+ ;" "558F5") "nscknum2" ("% sym --> symf" " Usage: :: nscknum2 ; In symbolic mode uses cknseval2:. Example: O+SYM = :: nscknum2 Con+Meta x+ ;" "5590E") "cknum2:" ("symf symf --> symf" "Used by the three above functions to determine (and possibly to CRUNCH) the program to COLA." "55657" :U) "cksseval2:" ("sym sym --> symf" "Binds next two objects in the runstream to LAMxSYMfcn and LAMxfcn. Explodes the objects in the stack, and evaluates next object in the runstream. If either is an equation, ckevaleq2 is called. Rebuilds one symbolic." "557EC" :U) "cksneval2:" ("sym % --> symf" "Binds % and next two objects in the runstream to LAMsc1, LAMxSYMfcn and LAMxfcn. Explodes sym, evaluates LAMxSYMfnc, rebuilds symbolic. If sym is equation, ckevaleq1 is called." "5576F" :U) "cknseval:" ("% sym --> symf" "Does SWAP then cknseval2: ." "5575B" :U) "parameval" ("sym param --> ?" "Ensures sym is symbolic (using symcomp), then executes param on each element of symbolic. param is bound to 1LAM during the loop. param should return a flag. If TRUE, or if the object in level 1 is not an operator the loop continues, else possible COLCT property is executed. (Better return TRUE always)." "58CE4" :U) "eval" ("sym --> ?" "Like parameval, but without binding of a new param. Use this for recursive evaluation with the same parameter. (See SHOWLS and showparam for examples)." "58CEE" :U) "evalTRUE" ("sym --> ? T" "Used for recursive parameval." "5918A" :U) "SYM+O" ("" "" "55F2B" :U) "O+SYM" ("" "" "55F44" :U) "SYM+" ("" "" "55F5D" :U) "SYM-O" ("" "" "55F76" :U) "O-SYM" ("" "" "55F85" :U) "SYM-" ("" "" "55F8F" :U) "SYM*O" ("" "" "55FC1" :U) "O*SYM" ("" "" "55FDA" :U) "SYM*" ("" "" "55FF3" :U) "SYM/O" ("" "" "5600C" :U) "O/SYM" ("" "" "56025" :U) "SYM/" ("" "" "5603E" :U) "SYM^O" ("" "" "55EE0" :U) "O^SYM" ("" "" "55EF9" :U) "SYM^" ("" "" "55F12" :U) "SYM%MOD" ("" "" "56057" :U) "%SYMMOD" ("" "" "56070" :U) "SYMMOD" ("" "" "56089" :U) "SYM%MIN" ("" "" "55E95" :U) "%SYMMIN" ("" "" "55EAE" :U) "SYMMIN" ("" "" "55EC7" :U) "SYM%MAX" ("" "" "55E4A" :U) "%SYMMAX" ("" "" "55E63" :U) "SYMMAX" ("" "" "55E7C" :U) "SYM%%OF" ("" "" "55C3D" :U) "%SYM%OF" ("" "" "55C56" :U) "SYM%OF" ("" "" "55C6F" :U) "SYM%%CH" ("" "" "55C88" :U) "%SYM%CH" ("" "" "55CA1" :U) "SYM%CH" ("" "" "55CBA" :U) "SYM%%T" ("" "" "55CD3" :U) "%SYM%T" ("" "" "55CEC" :U) "SYM%T" ("" "" "55D05" :U) "SYM%COMB" ("" "" "55D1E" :U) "%SYMCOMB" ("" "" "55D37" :U) "SYMCOMB" ("" "" "55D50" :U) "SYM%PERM" ("" "" "55D69" :U) "%SYMPERM" ("" "" "55D82" :U) "SYMPERM" ("" "" "55D9B" :U) "SYM%RND" ("" "" "55DB4" :U) "SYMRND" ("" "" "55DCD" :U) "RNDSYM" ("" "" "55DE6" :U) "SYM%TRNC" ("" "" "55DFF" :U) "TRCNYM" ("" "" "55E18" :U) "SYMTRCN" ("" "" "55E31" :U) "SYM%XROOT" ("" "" "560A2" :U) "%SYMXROOT" ("" "" "560BB" :U) "SYMXROOT" ("" "" "560D4" :U) "SYMNEG" ("" "" "54EEB" :U) "SYMABS" ("" "" "54F04" :U) "SYMSIGN" ("" "" "54F68" :U) "SYMINV" ("" "" "54F36" :U) "SYMIP" ("" "" "5518E" :U) "SYMFP" ("" "" "551A7" :U) "SYMFLOOR" ("" "" "551C0" :U) "SYMCEIL" ("" "" "551D9" :U) "SYMMANT" ("" "" "5520B" :U) "SYMEXPONENT" ("" "" "551F2" :U) "SYMRE" ("" "" "54AE0" :U) "SYMIM" ("" "" "54EB9" :U) "SYMCONJ" ("" "" "54F1D" :U) "SYMNOT" ("" "" "54ED2" :U) "SYMSQ" ("" "" "54F9A" :U) "SYMSQRT" ("" "" "54F81" :U) "SYMSIN" ("" "" "54FB3" :U) "SYMCOS" ("" "" "54FCC" :U) "SYMTAN" ("" "" "54FE5" :U) "SYMASIN" ("" "" "55049" :U) "SYMACOS" ("" "" "55062" :U) "SYMATAN" ("" "" "5507B" :U) "SYMSINH" ("" "" "54FFE" :U) "SYMCOSH" ("" "" "55017" :U) "SYMTANH" ("" "" "55030" :U) "SYMASINH" ("" "" "55094" :U) "SYMACOSH" ("" "" "550AD" :U) "SYMATANH" ("" "" "550C6" :U) "SYMLN" ("" "" "550F8" :U) "SYMLNP1" ("" "" "55143" :U) "SYMEXP" ("" "" "550DF" :U) "SYMEXPM" ("" "" "5515C" :U) "SYMLOG" ("" "" "55111" :U) "SYMALOG" ("" "" "5512A" :U) "SYMFACT" ("" "" "55175" :U) "SYMD>R" ("" "" "55224" :U) "SYMR>D" ("" "" "5523D" :U) "SYMARG" ("" "" "54F4F" :U) "SYMUBASE" ("" "" "55256" :U) "SYMUVAL" ("" "" "5226F" :U) "SYM%AND" ("" "" "5599A" :U) "%SYMAND" ("" "" "559B3" :U) "SYMAND" ("" "" "559CC" :U) "SYM%OR" ("" "" "559E5" :U) "%SYMOR" ("" "" "559FE" :U) "SYMOR" ("" "" "55A17" :U) "SYM%XOR" ("" "" "55A30" :U) "%SYMXOR" ("" "" "55A49" :U) "SYMXOR" ("" "" "55A62" :U) "SYMFLOAT==" ("" "" "55A7B" :U) "SYM==" ("" "" "55AAD" :U) "FLOATSYM==" ("" "" "55A94" :U) "SYMFLOAT<>" ("" "" "55AC6" :U) "FLOATSYM<>" ("" "" "55ADF" :U) "SYM<>" ("" "" "55AF8" :U) "SYM%<" ("" "" "55B11" :U) "%SYM<" ("" "" "55B2A" :U) "SYM<" ("" "" "55B43" :U) "SYM%>" ("" "" "55B5C" :U) "%SYM>" ("" "" "55B75" :U) "SYM>" ("" "" "55B8E" :U) "SYM%<=" ("" "" "55BA7" :U) "%SYM<=" ("" "" "55BC0" :U) "SYM<=" ("" "" "55BD9" :U) "SYM%>=" ("" "" "55BF2" :U) "%SYM>=" ("" "" "55C0B" :U) "SYM>=" ("" "" "55C24" :U) "Con+Meta" ("" "" "56331" :U) "Meta+Con" ("" "" "56543" :U) "Meta+" ("" "" "56160" :U) "Meta-Con" ("" "" "56566" :U) "Con-Meta" ("" "" "56359" :U) "Meta-" ("" "" "56174" :U) "Meta*Con" ("" "" "56589" :U) "Con*Meta" ("" "" "56390" :U) "Meta*" ("" "" "561BA" :U) "Meta/Con" ("" "" "565CF" :U) "Con/Meta" ("" "" "563DB" :U) "Meta/" ("" "" "56214") "Meta^Con" ("" "" "5645D" :U) "Con^Meta" ("" "" "562FA" :U) "MetamodCon" ("" "" "5660B" :U) "ConmodMeta" ("" "" "5642B" :U) "Metamod" ("" "" "56250" :U) "MetaNEG" ("" "" "553D2" :U) "MetaABS" ("" "" "555B2" :U) "MetaINV" ("" "" "553EB" :U) "MetaRE" ("" "" "5542C" :U) "MetaIM" ("" "" "55495" :U) "MetaCONJ" ("" "" "55567" :U) "MetaSQ" ("" "" "555E9" :U) "MetaSIN" ("" "" "5533C" :U) "MetaCOS" ("" "" "55378" :U) "MetaTAN" ("" "" "553A5" :U) "MetaSINH" ("" "" "5529C" :U) "MetaCOSH" ("" "" "552B0" :U) "MetaTANH" ("" "" "552C4" :U) "MetaEXP" ("" "" "552D8" :U) "MetaEXPM" ("" "" "55300" :U) "MetaALOG" ("" "" "552EC" :U) "SYMCOLCT" ("symf --> symf" " :: uncrunch colct ;" "57D90") "colct" ("symf --> symf" "Basic collection function, does not check numeric results flag. Disassembly: :: EXPLODE pshzer colfac pshzer colrev ATTNFLG@ #0<> case :: CKSYMBN CK0NOLASTWD ?ATTNQUIT ; pshzer colunfac SYMN COLA coleval ; -- Flags: -3" "57DA4" :U) "colfac" ("meta1 meta2 --> meta'" "Appends objects in meta2 tail to meta1 tail replacing all -, /, NEG, INV and SQ with +, *, ^, and -1 as a possible factor. Example rules: 'SQ(A)' 'A^2' '-A' '-1*A' 'A-B' 'A+-1*b' 'A/B' 'A*B^-1'" "587AA" :U) "colrev" ("meta1 meta2 --> meta'" "Appends objects in meta2 to tail of meta1 collecting numeric factors, ordering terms according to a comparison function, collecting numeric terms to front. Only + and * factors are checked. Sub-routines used by this function:" "57E08" :U) "MetaLess?" ("meta1 meta2 --> meta1 meta2 flag" "" "58511" :U) "MetaMore?" ("meta1 meta2 --> meta1 meta2 flag" "" "58525" :U) "BodyMore?" ("ob1 ob2 --> flag" "" "585A7" :U) "colunfac" ("meta1 meta2 --> meta'" "Appends objects in meta2 to head of meta1 converting ^, + and * to / and - when suitable." "58A20" :U) "coleval" ("ob --> ob'" "Passes FALSE as parameter to parameval. Thus eval uses ?COLCT to check special evaluation." "58CDA" :U) "SYMEXPAN" ("symf --> symf" "Expands symbolic or float" "57A0C" :U) "expan" ("meta1 meta2 meta3 --> meta" "Expands meta3. Successful part is added to tail of meta2. Calls expan1 and larg until meta3 becomes empty." "57A48" :U) "expan1" ("meta --> meta1 meta2" "Expands meta. Meta1 is the unsuccessful part, meta2 the successful part (could be just and operator). Sub-expanders:" "57AA2" :U) "?expan^" ("" "If ^ then expands (returns if successful.)" "57B63" :U) "expansq" ("" "Expands SQ." "57AB6" :U) "?expanneginv" ("" "Prevents Meta->() from expanding [Expr INV NEG]." "57B4C" :U) "?expanapp" ("" "If xFCNAPPLY then tries calling ?EXPAN ." "57B01" :U) "expansum^" ("" "Expands (A+B)^2 or (A-B)^2" "57C71" :U) "NXTPOT%" ("% --> flag %' T % --> % F" "Returns next number when expanding ^. The flag indicates wheter %0>. Do not use for %0." "57CF8" :U) "XEQINTEGID" ("ob ob ob id/lam --> symf" "" "1F201" :U) "XEQINTEG" ("ob ob ob QN --> symf" "" "1F27A" :U) "SYMINTEG" ("symf symf symf QN --> symf" "" "5AAC7" :U) "NUMINTEG" ("symf QN symf_lo symf_hi --> %" "" "5662E" :U) "CALCINTEG" ("seco %precision %lo %hi --> %integral %error" "Low level numeric integration. If %low = %hi returns %0 %0. Checks that 1E-12 \\<= %accuracy \\<=1 1. seco gets % as input and should return one value. " "52C36" :U) "intg" ("#0 #0 meta --> meta_ok meta_fail" "Integrates meta where variable of integration has been changed to LAMdvar. Meta objects should be merged by addition. Use colunfac to resume /, -, etc. from *, +." "5ACC7" :U) "forceadd" ("meta --> meta'" "Forces top level operators to be +, NEG when possible by changing from -, +, NEG. Attempts to arrange rightmost term to be second argument for top +. Example: 'A+(B+C)' 'A+B+-C'" "5D0C2" :U) "forcemul?aga" ("meta --> meta'" "Recursive Meta<-D, MetaD-> and forcemul calling. If any operation was successful AGAIN is executed." "5B659" :U) "forcemul" ("meta --> meta'" "Forces top level operator to be + and NEG when possible by changing from / and INV. LAMdvar is ordered specially." "5B717" :U) "intg1" ("M_ok M_fail M_temp meta --> M_ok' M_fail' M_temp" "Integrates meta, ok part is adds to meta1 (meta3 is the next part to integrate in the top level loop.)" "5AFAB" :U) "intg1ok" ("M1 M2 M3 M4 --> M1' M2 M3 T" "Adds M4 to M1. (Successful intg1)." "5B0FA" :U) "intg1fail" ("M1 M2 M3 M4 --> M1 M2' M4 T" "Adds M4 to M2. (Unsuccessful intg1)." "5B09B" :U) "intgconst" ("M_ok M_fail M_temp meta --> M_ok' M_fail' M_temp" "Integrates constant to meta. (dvars? gives FALSE)." "5B0CD" :U) "intglinear" ("M1 M2 M3 M4 --> M1' M2 M3" "Integrates linear term (M4)." "5B131" :U) "intgaddlin" ("meta #loc --> meta'" "Adds 2^/2 to LAMdvar in meta at stack level #loc." "5B140" :U) "linear?" ("meta #level --> meta' T meta #level --> meta' #loc F" "Is meta linear in LAMdvar? #level is first location of LAMdvar obtained from dvars? :: linear DUP IT SWAPDROP ;" "5AD80" :U) "linear" ("meta #level --> meta #loc flag" " :: linear SWAPDROP ;" "5AD9E" :U) "linear!" ("meta #level --> meta' flag" "" "5AD6C" :U) "D/D*" ("" "Derivative of multiplication." "7DBE2") "D/D+" ("" "Derivative of addition." "7DBED") "D/D-" ("" "Derivative of subtraction." "7DBF8") "D/D/" ("" "Derivative of division." "7DC03") "D/Dalg=" ("" "Derivative of equality." "7DC72") "D/D=" ("" "Derivative of equality." "7DC72") "D/DABS" ("" "Derivative of ABS." "7DC7D") "D/DACOS" ("" "Derivative of ACOS." "7DCA1") "D/DACOSH" ("" "Derivative of ACOSH." "7DCAC") "D/DALOG" ("" "Derivative of ALOG." "7DCB7") "D/DAPPLY" ("" "" "7DE1C") "D/DARG" ("" "Derivative of ARG." "7DCC2") "D/DASIN" ("" "Derivative of ASIN." "7DCCD") "D/DASINH" ("" "Derivative of ASINH." "7DCD8") "D/DATAN" ("" "Derivative of ATAN." "7DCE3") "D/DATANH" ("" "Derivative of ATANH." "7DCEE") "D/DCHS" ("" "Derivative of CHS." "7DCF9") "D/DCONJ" ("" "Derivative of CONJ." "7DD17") "D/DCOS" ("" "Derivative of COS." "7DD35") "D/DCOSH" ("" "Derivative of COSH." "7DD40") "D/DDER" ("" "Derivative of derivative." "7DDF0") "D/DEXPM1" ("" "Derivative of EXP." "7DD4B") "D/DEXP" ("" "Derivative of EXP." "7DD4B") "D/DIFTE" ("" "Derivative of IFTE." "7DD82") "D/DINTEGRAL" ("" "Derivative of integral." "7DE06") "D/DINV" ("" "Derivative of INV." "7DD56") "D/DLN" ("" "Derivative of LN." "7DD61") "D/DLNP1" ("" "Derivative of LNP1." "7DD6C") "D/DLOG" ("" "Derivative of LOG." "7DD77") "D/DSIN" ("" "Derivative of SIN." "7DD8D") "D/DSINH" ("" "Derivative of SINH." "7DD98") "D/DSQ" ("" "Derivative of SQ." "7DDA3") "D/DSQRT" ("" "Derivative of SQRT." "7DDAE") "D/DSUM" ("" "Derivative of SUM." "7DE11") "D/DTAN" ("" "Derivative of TAN." "7DDB9") "D/DTANH" ("" "Derivative of TANH." "7DDC4") "D/DWHERE" ("" "" "7DDFB") "D/D^" ("" "Derivative of power." "7DDCF") "D/D^X" ("" "" "7DDDA") "D/D^Y" ("" "" "7DDE5") "SYMWHERE" ("symf {} --> symf" "" "1F38B" :U) "XEQSYMWHERE" ("symf QN1 id1..QNn idn --> symf" "" "1F439" :U) "CKWHEREARGS" ("checks pairs of quoted names" "Checks pairs of quoted names/ids." "1F43E" :U) "SYMBWHERE" ("symf QN1 id1..QNn idn #2n+1 --> symf" "" "547B5") "WHERE1" ("QN1 id1..QNn idn #n meta1 --> symf" "Used when meta size is 1." "547E2" :U) "WHEREN" ("QN1 id1..QNn idn #2 metan --> symf" "" "54887" :U) "SYMSHOW" ("sym id/lam --> symf" "" "58D75") "XEQSHOWLS" ("sym {} --> symf" "" "20B00") "SHOWLS" ("sym {names} --> symf" "See this for a good example of recursive parameval." "5910B" :U) "%IFTE" ("% ob1 ob2 --> ?" "" "1A4A3" :U) "SYMIFTE" ("sym symf symf --> symf" "Uses cknumdsptch1 with:" "54564" :U) "MetaIFTE" ("" "" "54609" :U) "NumIFTE" ("" "" "54653" :U) "SYMQUAD" ("sym id --> symf" "Avoids the obvious in solving a quadratic equation." "591AD" :U) "SYMTAYLR" ("sym id % --> symf" "Calculates taylor polynomial." "595DD" :U) "SYMISOL" ("sym id --> symb" "Isolate a variable." "57293" :U) "XEQSYMDERCON" ("QN %/C%/u --> symf" "" "1F113" :U) "XEQSYMDERSTEP" ("QN sym --> symf" "" "1F0F5" :U) "SYMDERSTEP" ("QN sym --> symf" "No CKSYMBTYPE check." "54977" :U) "SYMDER" ("sym sym --> symf" "" "54954" :U) "SYMSUM" ("sym sym sym ob --> symf" "" "56949" :U) "SYM%SUM" ("sym sym % ob --> symf" "" "56A06" :U) "%SYMSUM" ("sym % sym ob --> symf" "" "56A4C" :U) "%%SUM" ("sym % % ob --> symf" "" "56AC9" :U) "addt+" ("meta --> meta&+" "" "5BC94" :U) "addt-" ("meta --> meta&-" "" "5BC67" :U) "addt*" ("meta --> meta&*" "" "5CD16" :U) "addtNEG" ("meta --> meta&NEG" "" "5CD2A" :U) "addtINV" ("meta --> meta&INV" "" "5CD3E" :U) "repl/" ("meta&ob --> meta&/" "" "5BCC1" :U) "repl*" ("meta&ob --> meta&*" "" "5BCEE" :U) "M1st+?Drp" ("meta&+ --> meta" "" "5ACD6" :U) "meta+" ("meta&NEG --> meta&-" "" "5BC5D" :U) "meta-" ("meta&NEG --> meta&+" "" "5BC8A" :U) "meta*" ("meta&INV --> meta&/" "" "5BCB7" :U) "meta/" ("meta&INV --> meta&*" "" "5BCE4" :U) "drpmeta+" ("meta&NEG&ob --> meta&- meta&ob --> meta&+" "" "5BD3E" :U) "drpmeta-" ("meta&NEG&ob --> meta&+ meta&ob --> meta&-" "" "5BD57" :U) "drpmeta*" ("meta&INV&ob --> meta&/ meta&ob --> meta&*" "" "5BD70" :U) "drpmeta/" ("meta&INV&ob --> meta&* meta&ob --> meta&/" "" "5BD89" :U) "metaneg" ("meta&NEG --> meta meta --> meta&NEG" "" "5BBE5" :U) "metainv" ("meta&INV --> meta meta --> meta&INV" "" "5BC3F" :U) "metaneglft" ("meta --> meta'" "metaneg on left sub-expression." "5BC03" :U) "metainvlft" ("meta --> meta'" "metainv on left sub-expression." "5BC21" :U) "pshzerpsharg" ("meta --> M_last M_rest" "Pushes last sub-expression in meta. If meta is a valid expression M_rest will be empty." "5EA9F") "pZpargSWAPUn" ("meta --> M_rest M_last" "pshzerpsharg then psh ." "63F92") "plDRPpZparg" ("meta&ob --> M_last M_rest" "Drops ob then calls pshzerpsharg ." "63F56") "pargop" ("meta --> M_last&op M_rest" "Pushes last sub-expression ignoring first object in meta. Thus op is +, -, etc. and M_last is their second argument." "5E68E" :U) "larg" ("meta --> M_rest M_last" "Splits last sub-expression from meta." "5EAC2" :U) "parg&" ("meta1 meta2 --> meta1&M_last M_rest" "" "5E6F2" :U) "larg&" ("meta1 meta2 --> meta1&M_rest M_last" "" "5CCEE" :U) "drppargtop&" ("meta&ob --> M_last&M_rest" "" "5CBF9" :U) "swappargunrot" ("meta1 meta2 --> M_rest meta2 M_last" "" "57F4B" :U) "drppargsym" ("meta&ob --> 'M_rest''MetaLast'" "Buids objects with PSYMBN. Will give invalid expressions if ob is not a two-argument function." "1CF42" :U) "splitup" ("meta #n #m --> meta #level" "Calculates stack level of last object to be included when splitting last #m sub- expressions from meta starting from stack level n. (2 1 would give level of first object in the last sub-expression.)" "5F926" :U) "splitdown" ("meta #n #m --> meta #lowlevel #args+1" "Seeks stack level n-1 downwards for extra operators for #m expressions. #lowlevel is the stack level of the extra operator. #args indicates how many expressions the lowlevel operator is still missing." "5F96E" :U) "?spliteq" ("meta1&meta2&= --> meta2 meta1" "If meta contains =, splits two sides, otherwise DUP." "558BE" :U) "count+" ("meta --> meta #0 meta &+&+..&+ --> meta #n" "" "58C02" :U) "count*" ("meta --> meta #0 meta &*&*..&* --> meta #n" "Same as count+ for *." "58C0E" :U) "MetaMulInv" ("" "Simplifiy combinations of INV and * (using /)." "5BE56" :U) "colinv1" ("[expr1 INV expr2 INV *] --> [expr1 expr2 /]" "" "58A61" :U) "colinv2" ("[expr INV *] --> [expr /]" "" "58A93" :U) "colinv3" ("[expr1 INV expr2 *] --> [expr1 expr2 /]" "" "58AAC" :U) "MetaDNEG" ("double negate" "Double negation." "5971D" :U) "MetaDINV" ("double invert" "Double inversion." "5976B" :U) "Meta*1" ("mult by one" "Multiply by one." "597B5" :U) "Meta^1" ("pow by one" "Raise to power of one." "5983B" :U) "Meta1/" ("div by one" "Divide by one." "59885" :U) "Meta+1-1" ("add 1 subtract 1" "Add one and subtract one." "5990F" :U) "MetaRCOLCT" ("restricted collection" "Restricted collection." "596D3" :U) "Meta<-T" ("move nearest right term to left" "Move nearest right term to the left." "5C6D9" :U) "MetaT->" ("move nearest left term to right" "Move nearest left term to the right." "5C68D" :U) "Meta(())" ("parenthesise nearest term" "Put parentheses over nearest term." "5C623" :U) "Meta(<-" ("include left term" "Include left term." "5C589" :U) "Meta->)" ("include right term" "Include right term." "5C5D6" :U) "Meta<-->" ("commute terms" "Commute terms." "5BE81" :U) "Meta<-A" ("associate left term" "Associate left term." "5BECE" :U) "MetaA->" ("associate right term" "Associate right term." "5BF53" :U) "Meta->()" ("remove prefix" "Remove prefix." "5C137" :U) "Meta<-D" ("delete left term" "Delete left term (via expansion)." "5C0B9" :U) "Meta<-D!" ("delete left term" "Delete left term (above - ^ expansion)." "5C102" :U) "MetaD->" ("delete right term" "Delete right term (via expansion)." "5BFD8" :U) "Meta<-M" ("merge common factor on left" "Merge common factor on left side." "5C3C2" :U) "MetaM->" ("merge common factor on right" "Merge common factor on right side." "5C4CF" :U) "Meta-()" ("double negate & remove prefix" "Double negate, then remove prefix." "5C261" :U) "Meta1/()" ("double invert & remove prefix" "Double inversion, then remove prefix." "5C204" :U) "MetaL*" ("LN(a^b) --> b*LN(a)" "Transform LN(A^B) to LN(A)*B." "5C348" :U) "MetaL()" ("b*LN(a) --> LN(a^b)" "Transform LN(A)*B to LN(A^B)." "5C375" :U) "MetaE^" ("EXP(a*b) --> EXP(a)^b" "Transform EXP(A*B) to EXP(A)^B." "5C2CE" :U) "MetaE()" ("EXP(a)^b --> EXP(a*b)" "Transform EXP(A)^B to EXP(A*B)." "5C31B" :U) "Meta->TRG" ("change EXP to trig. fns." "Change EXP to trigonometric functions." "5C670" :U) "MetaAF" ("add fractions" "Add fractions." "5C53C" :U) "Meta->DEF" ("define function" "Define function (SIN, SINH, ASIN...)" "5C845" :U) "MetaTRG*" ("expand trig fns. of a sum" "Expand trigonometric function of a sum." "5C91D" :U) "Meta->()C%" ("remove 1st RE,IM; CONJ" "Remove first RE, IM or CONJ." "5C73D" :U) "Meta<-Dall" ("" "" "5CDF2" :U) "MetaD->all" ("" "" "5CEF1" :U) "Meta<-Aall" ("" "" "5CE15" :U) "MetaA->all" ("" "" "5CE4C" :U) "Meta<-Mall" ("" "" "5CFF5" :U) "MetaM->all" ("" "" "5D009" :U) "Meta<-Tall" ("" "" "5CF5A" :U) "MetaT->all" ("" "" "5CF23" :U) "Meta(<-all" ("" "" "5CEBA" :U) "Meta->)all" ("" "" "5CE83" :U) "Meta->()all" ("" "" "5CF91" :U) "Meta->()C%all" ("" "" "5CFC3" :U) "evalcase:" ("meta --> ?" "Evaluates next object. If it drops current stream then continue, else SKIP next. Example: :: evalcase: Meta<-D Meta<-Daga ;" "5CD52" :U) "revalcase:" ("meta --> ?omeg" "Evaluates next object for sub-expressions until current stream is not dropped by ob. Example: Meta<-Daga = :: revalcase: Meta<-D COLA RDROP ; COLA RDROP is there to mark successful operation." "5CD7A" :U) "PORTSTATUS" ("#port --> present? writeable? merged? #size #addr" "Returns information for port." "0AAB2") "PORTEND" ("#port --> #addr" "Gets end address of port." "0AB22" :U) "NEXTLIBBAK" ("#addr --> backup/library #nextaddr" "Gets next library or QbackupQ." "0AB82") "MERGE" ("#port -->" "Merges specified port. Only works for port one. Checks if wrong port number was entered." "0B409" :U) "#>ROMPTR" ("#lib #cmd --> ROMPTR" "Creates rompointer." "07E50") "ROMPTR>#" ("ROMPTR --> #lib #cmd" "Splits rompointer." "08CCC") "ROMPTR@" ("ROMPTR --> ob T --> F" "Recalls contents of rompointer." "07E99") "DUPROMPTR@" ("ROMPTR --> ROMPTR ob T --> ROMPTR F" "Does DUP then ROMPTR@." "62C19") "ROMSEC" ("ROMPTR --> ?" "Recalls contents of rompointer and EVAL. Generates \"Undefined XLIB Error\" if not found." "02FEF" :U) "?>ROMPTR" ("ob --> ob'" "If ROM-WORD? and TYPECOL? then RPL@." "62A61") "?ROMPTR>" ("ob --> ob'" "If TYPEROMP? and content exists INHARDROM? then return contents." "62A84") "RESOROMP" ("--> ob" "Recalls contents of next object in the runstream (which must be a rompointer)." "62BD8") "PTR>ROMPTR" ("ob --> ROMPTR T --> F" "If the object is a library command, returns its rompointer and TRUE, if not just FALSE." "07E76" :U) "ROMPTRDECOMP" ("ROMPTR --> id T --> F" "If the library command exists and has a name, returns that name and TRUE, otherwise FALSE." "081FB" :U) "PTR>ID" ("ob --> id T --> F" "If the object is a library command and has a name, returns its name and TRUE, if not returns just FALSE." "081E3" :U) "COMPILEID" ("id --> id T --> ROMPTR T --> F" "Searches id in current path, if found returns TRUE. Else searches attached libraries. If nothing was found, return FALSE." "07C18" :U) "ROM-WORD?" ("ob --> flag" "" "61FB6") "DUPROM-WORD?" ("ob --> ob flag" "" "61FA9") "TOSRRP" ("# -->" "Attaches library to HOME directory. -- TEXT:Libraries" "07709") "OFFSRRP" ("# -->" "Detaches library from HOME directory. -- TEXT:Libraries" "076AE") "ONSRRP?" ("# --> flag" "Returns TRUE if library is attached to HOME directory." "0778D" :U) "XEQSETLIB" ("% -->" "Internal ATTACH." "21C6F") "SETHASH" ("#libnum hxs -->" "" "07638") "ROMPOLL" ("-->" "Configures internal and external libraries. -- TEXT:Libraries" "021DD" :U) "DOROMPOLL" ("{#libnum1 #libnum2..} -->" "Configures specified libraries. -- TEXT:Libraries" "0210F" :U) "ROMPARTNAME" ("#libnum --> id T --> F" "Returns title of library as an ID, and TRUE. If library is not found, returns just FALSE." "08199" :U) "LIB>#" ("lib --> #libnum T" "Returns number of library." "081DE" :U) "ROMPART>ADDR" ("#libnum --> #addr T --> F" "Recalls library addres + 10 (prolog and length skipped)." "08081" :U) "ROMPARTSIZE" ("#libnum --> #nibbles-10 T --> F" "Returns size of library." "080BF" :U) "NEXTROMPID" ("#libnum --> #nextlibnum T --> F" "If specified library exists, #libnum is returned with TRUE." "080DA" :U) "GETHASH" ("#libnum --> hxs_table T --> F" "Gets specified library's hash table." "08112" :U) "GETMSG" ("#libnum --> [] T --> F" "Gets specified library's message table. -- TEXT:Libraries" "08130" :U) "SETMESG" ("[$] #libnum -->" "Sets message table of specified library. -- TEXT:Libraries" "0764E" :U) "GETLINK" ("#libnum --> hxs_table T --> F" "Gets specified library's link table." "0813C" :U) "GETCONFIG" ("#libnum --> ob T --> F" "" "08157" :U) "ROMPART" ("rrp --> {#lib1..#libn} T ROMPTR --> #libnum" "Gets the list of libraries attached to the directory, along with TRUE. If the argument is a rom pointer, returns the library number of this pointer." "07F86" :U) "BAKNAME" ("bak --> id T" "Returns backup's name" "081D9") "BAK>OB" ("bak --> ob" "Gets QbackupQ object." "0948E") ">BAK" ("id ob --> bak" "Creates backup object with specified name and contents." "21674") "DUP" ("ob --> ob ob" "" "03188") "DUPDUP" ("ob --> ob ob ob" "" "62CB9") "NDUPN" ("ob #n --> ob..ob #n ob #0 --> #0" "" "5E370") "DUPROT" ("1 2 --> 2 2 1" "" "62FB1") "SWAPOVER" ("1 2 --> 2 1 2" "" "61380") "DUPUNROT" ("1 2 --> 2 1 2" "" "61380") "DUPROLL" ("1..n #n --> 1 3..n #n 2" "" "630F1") "DUP4UNROLL" ("1 2 3 --> 3 1 2 3" "" "61099") "DUPPICK" ("n..1 #n --> n..1 #n n-1" "" "630DD") "2DUPSWAP" ("1 2 --> 1 2 2 1" "" "611F9") "DUP3PICK" ("1 2 --> 1 2 2 1" "" "611F9") "DUP#2+PICK" ("n..1 #n --> n..1 #n n+1" "" "5FC24" :U) "2DUP" ("1 2 --> 1 2 1 2" "" "031AC") "2DUP5ROLL" ("1 2 3 --> 2 3 2 3 1" "" "63C40") "NDUP" ("1..n #n --> 1..n 1..n" "" "031D9") "DROP" ("1 -->" "" "03244") "DROPDUP" ("1 2 --> 1 1" "" "627A7") "DROPSWAP" ("1 2 3 --> 2 1" "" "6270C") "XYZ>Y" ("1 2 3 --> 2" "" "62726") "ROT2DROP" ("1 2 3 --> 2" "" "62726") "DROPSWAPDROP" ("1 2 3 --> 2" "" "62726") "DROPROT" ("1 2 3 4 --> 2 3 1" "" "62FC5") "DROPOVER" ("1 2 3 --> 1 2 1" "" "63029") "2DROP" ("1 2 -->" "" "03258") "XYZ>" ("1 2 3 -->" "" "60F4B") "3DROP" ("1 2 3 -->" "" "60F4B") "XYZW>" ("1..4 -->" "" "60F7E") "4DROP" ("1..4 -->" "" "60F7E") "5DROP" ("1..5 -->" "" "60F72") "6DROP" ("1..6 -->" "" "60F66") "7DROP" ("1..7 -->" "" "60F54") "RESETDEPTH" ("ob1..obn obn+1..obx #n --> ob1..obn" "Drops all but #n levels of the stack. " "4B710") "DEPTH" ("1..n --> 1..n #n" "" "0314C") "UStackDepth" ("--> #" "The depth of the stack, similar to DEPTH." "6416D") "reversym" ("1..n #n --> n..1 #n" "" "5DE7D") "SWAP" ("1 2 --> 2 1" "" "03223") "SWAPDUP" ("1 2 --> 2 1 1" "" "62747") "SWAP2DUP" ("1 2 --> 2 1 2 1" "" "6386C") "XY>Y" ("1 2 --> 2" "" "60F9B") "SWAPDROP" ("1 2 --> 2" "" "60F9B") "SWAPDROPDUP" ("1 2 --> 2 2" "" "62830") "XYZ>ZX" ("1 2 3 --> 3 1" "" "6284B") "UNROTDROP" ("1 2 3 --> 3 1" "" "6284B") "SWAPDROPSWAP" ("1 2 3 --> 3 1" "" "6284B") "XYZ>ZYX" ("1 2 3 --> 3 2 1" "" "60F33") "UNROTSWAP" ("1 2 3 --> 3 2 1" "" "60F33") "SWAPROT" ("1 2 3 --> 3 2 1" "" "60F33") "XYZW>YWZX" ("1 2 3 4 --> 2 4 3 1" "" "63C2C") "SWAP4ROLL" ("1 2 3 4 --> 2 4 3 1" "" "63C2C") "SWAP3PICK" ("1 2 3 --> 1 3 2 1" "" "63C54") "2SWAP" ("1 2 3 4 --> 3 4 1 2" "" "62001") "ROT" ("1 2 3 --> 2 3 1" "" "03295") "ROTDUP" ("1 2 3 --> 2 3 1 1" "" "62775") "ROT2DUP" ("1 2 3 --> 2 3 1 3 1" "" "62C7D") "XYZ>YZ" ("1 2 3 --> 2 3" "" "60F21") "ROTDROP" ("1 2 3 --> 2 3" "" "60F21") "XYZ>ZY" ("1 2 3 --> 3 2" "" "60F0E") "ROTDROPSWAP" ("1 2 3 --> 3 2" "" "60F0E") "XYZ>YXZ" ("1 2 3 --> 2 1 3" "" "60EE7") "ROTSWAP" ("1 2 3 --> 2 1 3" "" "60EE7") "XYZ>Z" ("1 2 3 --> 3" "" "6112A") "UNROT2DROP" ("1 2 3 --> 3" "" "6112A") "ROTROT2DROP" ("1 2 3 --> 3" "" "6112A") "ROTOVER" ("1 2 3 --> 2 3 1 3" "" "62CA5") "XYZW>YZWX" ("1 2 3 4 --> 2 3 4 1" "" "60FBB") "FOURROLL" ("1 2 3 4 --> 2 3 4 1" "" "60FBB") "4ROLL" ("1 2 3 4 --> 2 3 4 1" "" "60FBB") "4ROLLDROP" ("1 2 3 4 --> 2 3 4" "" "62864") "4ROLLSWAP" ("1 2 3 4 --> 2 3 1 4" "" "62ECB") "FOURROLLROT" ("1 2 3 4 --> 2 4 1 3" "" "63001") "4ROLLROT" ("1 2 3 4 --> 2 4 1 3" "" "63001") "4ROLLOVER" ("1 2 3 4 --> 2 3 4 1 4" "" "630A1") "FIVEROLL" ("1 2 3 4 5 --> 2 3 4 5 1" "" "60FD8") "5ROLL" ("1 2 3 4 5 --> 2 3 4 5 1" "" "60FD8") "5ROLLDROP" ("1 2 3 4 5 --> 2 3 4 5" "" "62880") "SIXROLL" ("1..6 --> 2..6 1" "" "61002") "6ROLL" ("1..6 --> 2..6 1" "" "61002") "SEVENROLL" ("1..7 --> 2..7 1" "" "6106B") "7ROLL" ("1..7 --> 2..7 1" "" "6106B") "EIGHTROLL" ("1..8 --> 2..8 1" "" "6103C") "8ROLL" ("1..8 --> 2..8 1" "" "6103C") "ROLL" ("1..n #n --> 2..n 1" "" "03325") "ROLLDROP" ("1..n #n --> 2..n" "" "62F89") "ROLLSWAP" ("1..n #n --> 2..n-1 1 n" "" "62D45") "#1+ROLL" ("ob 1..n #n --> 1..n ob" "" "612F3") "#2+ROLL" ("a b 1..n #n --> b 1..n a" "" "61318") "#+ROLL" ("1..n+m #n #m --> 2..n+m 1" "" "612DE") "#-ROLL" ("1..n-m #n #m --> 2..n-m 1" "" "612CC") "XYZ>ZXY" ("1 2 3 --> 3 1 2" "" "60FAC") "3UNROLL" ("1 2 3 --> 3 1 2" "" "60FAC") "UNROT" ("1 2 3 --> 3 1 2" "" "60FAC") "UNROTDUP" ("1 2 3 --> 3 1 2 1" "" "62CF5") "UNROTSWAPDROP" ("1 2 3 --> 3 2" "" "60F0E") "UNROTOVER" ("1 2 3 --> 3 1 2 1" "" "6308D") "XYZW>WXYZ" ("1 2 3 4 --> 4 1 2 3" "" "6109E") "FOURUNROLL" ("1 2 3 4 --> 4 1 2 3" "" "6109E") "4UNROLL" ("1 2 3 4 --> 4 1 2 3" "" "6109E") "4UNROLLDUP" ("1 2 3 4 --> 4 1 2 3 3" "" "62D09") "XYZW>W" ("1 2 3 4 --> 4" "" "6113C") "4UNROLL3DROP" ("1 2 3 4 --> 4" "" "6113C") "4UNROLLROT" ("1 2 3 4 --> 4 3 2 1" "" "63015") "FIVEUNROLL" ("1 2 3 4 5 --> 5 1 2 3 4" "" "610C4") "5UNROLL" ("1 2 3 4 5 --> 5 1 2 3 4" "" "610C4") "SIXUNROLL" ("1..6 --> 6 1..5" "" "610FA") "6UNROLL" ("1..6 --> 6 1..5" "" "610FA") "(SEVENUNROLL)" ("1..7 --> 7 1..6" "" "62BC4") "7UNROLL" ("1..7 --> 7 1..6" "" "62BC4") "8UNROLL" ("1..8 --> 8 1..7" "" "63119") "10UNROLL" ("1..10 --> 10 1..9" "" "6312D") "UNROLL" ("1..n #n --> n 1..n-1" "" "0339E") "#1+UNROLL" ("ob 1..n #n --> n ob 1..n-1" "" "61353") "#2+UNROLL" ("a b 1..n #n --> n a b 1..n-1" "" "61365") "#+UNROLL" ("1..n+m #n #m --> n+m 1..n+m-1" "" "6133E") "#-UNROLL" ("1..n-m #n #m --> n-m 1..n+m-1" "" "6132C") "OVER" ("1 2 --> 1 2 1" "" "032C2") "OVERDUP" ("1 2 --> 1 2 1 1" "" "62CCD") "OVERUNROT" ("1 2 --> 1 1 2" "" "62D31") "OVERSWAP" ("1 2 --> 1 1 2" "" "62D31") "OVER#2+UNROLL" ("1..n #n ob --> ob 1..n #n" "" "63105") "OVER5PICK" ("1 2 3 4 --> 1 2 3 4 3 1" "" "63C90") "2OVER" ("1 2 3 4 --> 1 2 3 4 1 2" "" "63FBA") "3PICK" ("1 2 3 --> 1 2 3 1" "" "611FE") "3PICKSWAP" ("1 2 3 --> 1 2 1 3" "" "62EDF") "3PICKOVER" ("1 2 3 --> 1 2 3 1 3" "" "630B5") "3PICK3PICK" ("1 2 3 --> 1 2 3 1 2" "" "63C68") "DROP3PICK" ("1 2 3 4 --> 1 2 3 1" "" "35D08" :UBS) "4PICK" ("1 2 3 4 --> 1 2 3 4 1" "" "6121C") "4PICKSWAP" ("1 2 3 4 --> 1 2 3 1 4" "" "62EF3") "SWAP4PICK" ("1 2 3 4 --> 1 2 4 3 1" "" "63C7C") "4PICKOVER" ("1 2 3 4 --> 1 2 3 4 1 4" "" "630C9") "5PICK" ("1 2 3 4 5 --> 1 2 3 4 5 1" "" "6123A") "6PICK" ("1..6 --> 1..6 1" "" "6125E") "7PICK" ("1..7 --> 1..7 1" "" "61282") "8PICK" ("1..8 --> 1..8 1" "" "612A9") "PICK" ("1..n #n --> 1..n 1" "" "032E2") "#1+PICK" ("1..n #n-1 --> 1..n 1" "" "611A3") "#2+PICK" ("1..n #n-2 --> 1..n 1" "" "611BE") "#3+PICK" ("1..n #n-3 --> 1..n 1" "" "611D2") "#4+PICK" ("1..n #n-4 --> 1..n 1" "" "611E1") "#+PICK" ("1..n+m #n #m --> 1..n+m 1" "" "61184") "#-PICK" ("1..n-m #n #m --> 1..n-m 1" "" "61172") "NULLID" ("--> id" "Null (empty) identifier." "15777") "NULLLAM" ("--> lam" "Puts NULLLAM in the stack." "34D30") "ID_CST" ("ID CST" "" "211B4" :U) "ID_S" ("ID S" "" "225A4" :U) "ID_SKEY" ("ID SKEY" "ID SKEY" "3FACF" :U) "LAM_SKEY" ("LAM SKEY" "" "3FAE8" :U) "ID_X" ("ID X" "" "4AB1C") "'IDX" ("--> id" "Puts ID X unevaluated on the stack." "4744F") "ID_Y" ("ID Y" "" "4AB59") "'idUserKeys" ("--> id" "Puts ID UserKeys unevaluated on the stack. " "41A39" :U) "ID_UserKeys" ("ID UserKeys" "ID UserKeys" "41A43" :U) "'idUserKeys." ("--> id" "Puts ID UserKeys.CRC unevaluated on the stack. " "41A5F" :U) "ID_UserKeys." ("ID UserKeys.CRC" "" "41A69" :U) "CUREQ" ("ID EQ" "" "1576C" :U) "ID_SIGMADAT" ("ID \\GSDAT" "" "2C1FD" :U) "lam'dvar" ("LAM 'dvar" "LAM 'dvar" "549DB" :U) "'IDPAR" ("--> id" "Puts ID PPAR unevaluated on the stack. -- TEXT:Reserved|PPAR" "5127E" :U) "$>ID" ("$ --> ID" "" "05B15") "DUP$>ID" ("$ --> $ ID" "" "63295") "ID>LAM" ("id --> lam" "" "05AED" :U) "LAM>ID" ("lam --> id" "" "05B01" :U) "BIND" ("obn..ob1 {lamn..lam1} -->" "Binds n objects to n differently named lams." "074D0") "DOBIND" ("obn..ob1 lamn..lam1 #n -->" "Binds n objects to n differently named lams." "074E4") "1LAMBIND" ("ob -->" "Binds one object to a null named lam." "634CF") "DUP1LAMBIND" ("ob --> ob" "Does DUP then 1LAMBIND." "634CA") "~nNullBind" ("obn..ob1 #n -->" "Binds #n objects to null named lams. 1LAM has the count, 2LAM the first object. Decompiles to :: ' NULLLAM CACHE ; " "0DB0B0") "dvarlsBIND" ("ob -->" "Binds ob to LAM 'dvar." "63A29") "ABND" ("-->" "Abandons topmost temporary environment." "07497") "CACHE" ("obn..ob1 #n lam -->" "Binds all objects under the same name. 1LAM has the count." "61CE9") "DUMP" ("NULLLAM --> ob1..obn #n" "Inverse of CACHE. Always does garbage collection." "61EA7") "SAVESTACK" ("-->" "Caches stack to SAVELAM." "61D41") "CacheStack" ("-->" "Caches the stack using SAVESTACK if UNDO is on and Suspend is OK. If there was a previous environment caching the stack, it is abandoned first." "40CE9") "undo" ("-->" "Dumps SAVELAM." "61F8F") "STOLAM" ("ob lam -->" "Tries storing object in lam. Generates \"Undefined Local Name\" error if lam is not found." "07D1B") "DoLam" ("lam --> ob --> !error!" "Tries recalling object from lam, generates \"Undefined Local Name\" error if not found." "02FD6" :U) "FIRST@LAM" ("lam --> ob T --> F" "@LAM for first environment only." "078E9" :U) "NTH@LAM" ("lam #n --> ob T --> F" "@LAM for nth environment only." "078F5" :U) "GETLAM" ("#n --> ob" "Gets contents of nth topmost lam." "075A5") "1GETLAM" ("--> ob" "" "613B6") "2GETLAM" ("--> ob" "" "613E7") "3GETLAM" ("--> ob" "" "6140E") "4GETLAM" ("--> ob" "" "61438") "5GETLAM" ("--> ob" "" "6145C") "6GETLAM" ("--> ob" "" "6146C") "7GETLAM" ("--> ob" "" "6147C") "8GETLAM" ("--> ob" "" "6148C") "9GETLAM" ("--> ob" "" "6149C") "10GETLAM" ("--> ob" "" "614AC") "11GETLAM" ("--> ob" "" "614BC") "12GETLAM" ("--> ob" "" "614CC") "13GETLAM" ("--> ob" "" "614DC") "14GETLAM" ("--> ob" "" "614EC") "15GETLAM" ("--> ob" "" "614FC") "16GETLAM" ("--> ob" "" "6150C") "17GETLAM" ("--> ob" "" "6151C") "18GETLAM" ("--> ob" "" "6152C") "19GETLAM" ("--> ob" "" "6153C") "20GETLAM" ("--> ob" "" "6154C") "21GETLAM" ("--> ob" "" "6155C") "22GETLAM" ("--> ob" "" "615GC") "PUTLAM" ("ob #n -->" "Stores new contents to nth topmost lam." "075E9") "1PUTLAM" ("ob -->" "" "615E0") "2PUTLAM" ("ob -->" "" "615F0") "3PUTLAM" ("ob -->" "" "61600") "4PUTLAM" ("ob -->" "" "61615") "5PUTLAM" ("ob -->" "" "61625") "6PUTLAM" ("ob -->" "" "61635") "7PUTLAM" ("ob -->" "" "61645") "8PUTLAM" ("ob -->" "" "61655") "9PUTLAM" ("ob -->" "" "61665") "10PUTLAM" ("ob -->" "" "61675") "11PUTLAM" ("ob -->" "" "61685") "12PUTLAM" ("ob -->" "" "61695") "13PUTLAM" ("ob -->" "" "616A5") "14PUTLAM" ("ob -->" "" "616B5") "15PUTLAM" ("ob -->" "" "616C5") "16PUTLAM" ("ob -->" "" "616D5") "17PUTLAM" ("ob -->" "" "616E5") "18PUTLAM" ("ob -->" "" "616F5") "19PUTLAM" ("ob -->" "" "61705") "20PUTLAM" ("ob -->" "" "61715") "21PUTLAM" ("ob -->" "" "61725") "22PUTLAM" ("ob -->" "" "61735") "DUP4PUTLAM" ("ob --> ob" "Does DUP then 4PUTLAM ." "61610") "1GETABND" ("--> 1lamob" "Does 1GETLAM then ABND ." "634B6") "1ABNDSWAP" ("ob --> 1lamob ob" "Does 1GETABND then SWAP." "62DB3") "1GETSWAP" ("ob --> 1lamob ob" "Does 1GETLAM then SWAP." "62F07") "1GETLAMSWP1+" ("# --> 1lamob #+1" "Does 1GETLAM then SWAP#1+." "55288") "2GETEVAL" ("--> ?" "Does 2GETLAM then EVAL ." "632E5") "GETLAMPAIR" ("#n --> #n ob lam F --> #n T" "Gets lam contents and name (10 = 1lam, 20 = 2lam, etc.)" "617D8") "DUPTEMPEVN" ("-->" "Duplicates topmost temporary environment (clears protection word)." "61745") "DUPTEMPENV" ("-->" "Duplicates topmost tempenv (clears protection word)." "61745") "1NULLLAM{}" ("--> {}" "Puts a list with one NULLLAM in the stack." "34D2B") "2NULLLAM{}" ("--> {}" "Puts a list with two times NULLLAM in the stack." "37DB9" :U) "3NULLLAM{}" ("--> {}" "Puts a list with three times NULLLAM in the stack." "37B17" :U) "4NULLLAM{}" ("--> {}" "Puts a list with four times NULLLAM in the stack." "52D26" :U) "7NULLLAM{}" ("--> {}" "Puts a list with seven times NULLLAM in the stack." "3306C" :U) "8NULLLAM{}" ("--> {}" "Puts a list with eight times NULLLAM in the stack." "10E36" :U) "ERRBEEP" ("-->" "Beeps." "141E5") "ERROR@" ("--> #" "Returns current error number." "04CE6") "ERRORSTO" ("# -->" "Stores new error number." "04D0E") "ERROROUT" ("# -->" "Stores new error number and calls ERRJMP." "6383A") "ERRORCLR" ("-->" "Stores zero as new error number." "04D33") "ERRJMP" ("-->" "Invokes error handling sub-system." "04ED1") "GETEXITMSG" ("--> $" "Gets EXITMSG (user defined error message)." "04E07") "EXITMSGSTO" ("$ -->" "Stores $ as EXITMSG." "04E37") "DO#EXIT" ("# -->" "Stores new error number, does AtUserStack and then ERRJMP." "1502F") "DO%EXIT" ("% -->" "Same as above, but takes real number as argument." "15007") "DOHXSEXIT" ("hxs -->" "Same as above functions, but input is hxs." "1501B" :U) "DO$EXIT" ("$ -->" "Stores string as EXITMSG, #70000 as error number, does AtUserStack and then ERRJMP ." "15048") "ABORT" ("-->" "Does ERRORCLR and ERRJMP ." "04EA4") "ERRSET" ("-->" "Sets new error trap." "04E5E") "ERRTRAP" ("-->" "Error trap marker. If no error happens, still removes all temporary environments created since ERRSET." "04EB8") "SAVEERRN" ("-->" "Saves error number to last error." "13FE5" :U) "ERR0" ("-->" "Clears last error." "1400E" :U) "ERRN" ("--> #" "Returns last error number." "14039" :U) "ERRN>HXS" ("--> hxs" "Returns last error number as hxs." "1404C" :U) "ERRM" ("--> $" "Returns last error message." "14065" :U) "JstGETTHEMSG" ("# --> $" "Fetches message from message table. To get a message from a library, use the formula: libnum*#100+msgnum. -- TEXT:Libraries" "04D87") "JstGetTHEMESG" ("# --> $" "Fetches message from message table. To get a message from a library, use the formula: libnum*#100+msgnum. -- TEXT:Libraries" "04D87") "GETTHEMESG" ("# --> $" "If #70000 then does GETEXITMSG, else does JstGetTHEMESG . -- TEXT:Libraries" "04D64") "SPLITmsg" ("#msg --> #error #libnum" "Splits message number into error and library numbers. -- TEXT:Libraries" "04DD7" :U) "SETMEMERR" ("Error 001h" "Generates \"Insufficient Memory\" error." "04FB6") "SETDIRRECUR" ("Error 002h" "Generates \"Directory Recursion\" error." "04FC2" :U) "SETLAMERR" ("Error 003h" "Generates \"Undefined Local Name\" error." "04FCE" :U) "SETROMPERR" ("Error 004h" "Generates \"Undefined XLIB Name\" error." "05016") "SETLBERR" ("Error 006h" "Generates \"Power Lost\" error." "04FAA" :U) "SETCORPORT" ("Error 008h" "Generates \"Invalid Card Data\" error." "04FDA" :U) "SETOBINUSE" ("Error 009h" "Generates \"Object In Use\" error." "04FE6" :U) "SETPORTNOTAV" ("Error 00Ah" "Generates \"Port Not Available\" error." "04FF2" :U) "SETNOROOM" ("Error 00Bh" "Generates \"No Room In Port\" error." "04FFE" :U) "SETXNONEXT" ("Error 00Ch" "Generates \"Object Not In Port\" error." "0500A" :U) "NULLCHARERR" ("Error 102h" "Generates \"Can't Edit Null Char\" error." "10F54" :U) "INVFUNCERR" ("Error 103h" "Generates \"Invalid User Function\" error." "10F64" :U) "NOEQERR" ("Error 104h" "Generates \"No Current Equation\" error." "10F74" :U) "SYNTAXERR" ("Error 106h" "Generates \"Invalid Syntax\" error." "10F86") "LASTSTKERR" ("Error 124h" "Generates \"'Last Stack' Disabled\" error." "10FE6" :U) "LASTCMDERR" ("Error 125h" "Generates \"'Last Cmd' Disabled\" error." "10FF6" :U) "NOHALTERR" ("Error 126h" "Generates \"HALT Not Allowed\" error." "10FC6") "ARGNUMERR" ("Error 128h" "Generates \"Wrong Argument Count\" error." "11006" :U) "SETCIRCERR" ("Error 129h" "Generates \"Circular Reference\" error." "11016") "DIRARGERR" ("Error 12Ah" "Generates \"directory not allowed\" error." "11026" :U) "EMPTYDIRERR" ("Error 12Bh" "Generates \"Non-Empty Directory\" error." "11036" :U) "INVDEFERR" ("Error 12Ch" "Generates \"Invalid Definition\" error." "11046" :U) "MISLIBERR" ("Error 12Dh" "Generates \"Missing Library\" error." "11056" :U) "SETINVPPAR" ("Error 12Eh" "Generates \"Invalid PPAR\" error." "10F96" :U) "SETNONERAL" ("Error 12Fh" "Generates \"Non-real Result\" error." "10FA6" :U) "SETISOLERR" ("Error 130h" "Generates \"Unable To Isolate\" error." "10FB6" :U) "IDCONFERR" ("Error 13Ch" "Generates \"Name Conflict\" error." "11066" :U) "SETSTACKERR" ("Error 201h" "Generates \"Too Few Arguments\" error." "18CC2") "SETTYPEERR" ("Error 202h" "Generates \"Bad Argument Type\" error." "18CB2") "SETSIZEERR" ("Error 203h" "Generates \"Bad Argument Value\" error." "18CA2") "SETNONEXTERR" ("Error 204h" "Generates \"Undefined Name\" error." "18C92") "POSFLOWERR" ("Error 301h" "Generates \"Positive Underflow\" error." "29DCC" :U) "NEGFLOWERR" ("Error 302h" "Generates \"Negative Underflow\" error." "29DDC" :U) "OVERFLOWERR" ("Error 303h" "Generates \"Overflow\" error." "29DEC" :U) "SETIVLERR" ("Error 304h" "Generates \"Undefined Result\" error." "29DFC") "INFRESERR" ("Error 305h" "Generates \"Infinite Result\" error." "29E0C" :U) "INVUNITERR" ("Error B01h" "Generates \"Invalid Unit\" error." "10EEA" :U) "CONSTUNITERR" ("Error B02h" "Generates \"Inconsistent Units\" error." "10EFA" :U) "SetIOPARerr" ("-->" "Throws the IOPAR error: \"Invalid IOPAR\"." "2EC34") "NOALARMERR" ("Error D04h" "Generates \"nonexistent alarm\" error." "0CBAE" :U) "Sig?ErrJmp" ("# -->" "Calls ERRJMP if the error number is any of {13E 123 DFF}." "64190") "ederr" ("-->" "Error handler for applications which use savefmt1 to save the current display format. Calls rstfmt1 and then errors out." "15A40") "COERCEFLAG" ("T --> %1 F --> %0" "Converts system flag to user flag, drops current stream." "5380E") "TRUE" ("--> T" "" "03A81") "TrueTrue" ("--> T T" "" "0BBED") "TRUEFALSE" ("--> T F" "" "634F7") "TrueFalse" ("--> T F" "" "634F7") "FALSE" ("--> F" "" "03AC0") "FALSETRUE" ("--> F T" "" "6350B") "FalseTrue" ("--> F T" "" "6350B") "FalseFalse" ("--> F F" "" "2F934") "failed" ("--> F T" "" "0BC01") "DROPTRUE" ("ob --> T" "" "62103") "2DROPTRUE" ("ob ob' --> T" "" "2F542" :U) "3DROPTRUE" ("ob1 ob2 ob3 --> T" "" "5F657" :U) "4DROPTRUE" ("ob1..ob4 --> T" "" "10029" :U) "DROPFALSE" ("ob --> F" "" "6210C") "2DROPFALSE" ("ob1 ob2 --> F" "" "62B0B") "4DROPFALSE" ("ob1..ob4 --> F" "" "5F5E4" :U) "5DROPFALSE" ("ob1..ob5 --> F" "" "5F6B1" :U) "SWAPTRUE" ("ob1 ob2 --> ob2 ob1 T" "" "4F1D8") "SWAPDROPTRUE" ("ob1 ob2 --> ob2 T" "" "21660") "XYZ>ZTRUE" ("ob1 ob2 ob3 --> ob3 T" "" "62EB7") "COLATRUE" ("--> T" "Puts TRUE in the stack and drops rest of current stream." "5DE41" :U) "RDROPFALSE" ("--> F" "Puts FALSE in the stack and drops rest of current stream." "5DE55") "NOT" ("flag --> flag'" "Returns FALSE if the input is TRUE, and vice-versa." "03AF2") "AND" ("flag1 flag2 --> flag" "Returns TRUE if both flags are TRUE." "03B46") "OR" ("flag1 flag2 --> flag" "Returns TRUE if either flag is TRUE." "03B75") "XOR" ("flag1 flag2 --> flag" "Returns TRUE if flags are different." "03ADA") "ORNOT" ("flag1 flag2 --> flag" "Returns FALSE if either flag is TRUE." "635B0") "NOTAND" ("flag1 flag2 --> flag" "Returns TRUE if flag1 is TRUE and flag2 is FALSE." "62C55") "ROTAND" ("flag1 ob flag2 --> ob flag" "Returns TRUE if either flag is TRUE." "62C91") "EQ" ("ob1 ob2 --> flag" "Returns TRUE if both objects are the same, i.e., they occupy the same physical space in memory. Only the addresses of the objects are tested." "03B2E") "2DUPEQ" ("ob1 ob2 --> ob1 ob2 flag" "Does 2DUP then EQ." "635D8") "EQOR" ("flag ob1 ob2 --> flag'" "Does EQ then OR." "63605") "EQOVER" ("ob3 ob1 ob2 --> ob3 flag ob3" "Does EQ then OVER." "6303D") "EQ:" ("ob --> flag" "EQ with the next object in the current stream." "635F1") "DUPEQ:" ("ob --> ob flag" "Does DUP then EQ:." "635EC") "EQUAL" ("ob1 ob2 --> flag" "Returns TRUE if the objects are equal (but not necessarily the same), i.e., their prologs and contents are the same." "03B97") "EQUALNOT" ("ob1 ob2 --> flag" "Returns TRUE if the objects are different." "635C4") "EQUALOR" ("flag ob1 ob2 --> flag'" "Does EQUAL then OR." "63619") "?SEMI" ("T --> :: ; F --> :: ;" "" "61A3B") "NOT?SEMI" ("T --> :: ; F --> :: ;" "" "61A2C") "?SEMIDROP" ("ob T --> :: ob ; ob F --> :: ;" "" "638E4") "NOT?DROP" ("ob T --> :: ob ; ob F --> :: ;" "" "61B72") "?SWAP" ("ob1 ob2 T --> :: ob2 ob1 ; ob1 ob2 F --> :: ob1 ob2 ;" "" "62F1B") "?SKIPSWAP" ("ob1 ob2 T --> :: ob1 ob2 ; ob1 ob2 F --> :: ob2 ob1 ;" "" "62D9F") "?SWAPDROP" ("ob1 ob2 T --> :: ob1 ; ob1 ob2 F --> :: ob2 ;" "" "62F5C") "NOT?SWAPDROP" ("ob1 ob2 T --> :: ob2 ; ob1 ob2 F --> :: ob1 ;" "" "62F43") "RPIT" ("T ob --> :: ob ; F ob --> :: ;" "ob is actually executed, and not pushed in the stack." "070FD") "RPITE" ("T ob1 ob2 --> :: ob1 ; F ob1 ob2 --> ob2 ;" "ob1 or ob2 is actually executed, and not pushed in the stack." "070C3") "COLARPITE" ("T ob1 ob2 --> :: ob1 ; F ob1 ob2 --> :: ob2 ;" "ob1 or ob2 is actually executed, and not pushed in the stack." "61A8E") "2'RCOLARPITE" ("Return to composite and ITE there." "" "61AE9") "IT" ("T --> :: ; F --> :: ;" "" "619BC") "NOT_IT" ("T --> :: ; F --> :: ;" "" "0712A") "?SKIP" ("T --> :: ; F --> :: ;" "" "0712A") "ITE" ("T --> :: ; F --> :: ;" "" "61AD8") "COLAITE" ("T --> :: ; F --> :: ;" "" "6381C") "ITE_DROP" ("ob T --> :: ; ob F --> :: ob ;" "" "61A58") "ANDITE" ("f1 f2 --> :: ; f1 f2 --> :: ;" "" "63E61") "case" ("T --> :: ; F --> :: ;" "" "61993") "NOTcase" ("T --> :: ; F --> :: ;" "" "619AD") "ANDcase" ("f1 f2 --> :: ; f1 f2 --> :: ;" "" "63CEA") "ANDNOTcase" ("f1 f2 --> :: ; f1 f2 --> :: ;" "" "63DDF") "ORcase" ("f1 f2 --> :: ; f1 f2 --> :: ;" "" "629BC") "casedrop" ("ob T --> :: ; ob F --> :: ob ;" "" "618F7") "NOTcasedrop" ("ob T --> :: ob ; ob F --> :: ;" "" "618E8") "case2drop" ("ob1 ob2 T --> :: ; ob1 ob2 F --> :: ob1 ob2 ;" "" "6191F") "NOTcase2drop" ("ob1 ob2 T --> :: ob1 ob2 ; ob1 ob2 F --> :: ;" "" "61910") "caseDROP" ("ob T --> :: ; ob F --> :: ob ;" "" "6194B") "NOTcaseDROP" ("ob T --> :: ob ; ob F --> :: ;" "" "61960") "casedrptru" ("ob T --> T ob F --> :: ob ;" "Note: should be called caseDRPTRU." "638B2") "casedrpfls" ("ob T --> F ob F --> :: ob ;" "Note: should be called caseDRPFLS." "6356A") "NOTcsdrpfls" ("ob T --> :: ob ; ob F --> F" "Note: should be called NOTcaseDRPFLS." "63AEC") "case2DROP" ("ob1 ob2 T --> :: ; ob1 ob2 F --> :: ob1 ob2 ;" "" "61970") "NOTcase2DROP" ("ob1 ob2 T --> :: ob1 ob2 ; ob1 ob2 F --> :: ;" "" "61984") "case2drpfls" ("ob1 ob2 T --> F ob1 ob2 F --> :: ob1 ob2 ;" "Note: should be called case2DRPFLS." "63583") "caseTRUE" ("T --> T F --> :: ;" "" "634E3") "NOTcaseTRUE" ("T --> :: ; F --> T" "" "638CB") "caseFALSE" ("T --> F F --> :: ;" "" "6359C") "NOTcaseFALSE" ("T --> :: ; F --> F" "" "5FB49") "COLAcase" ("T --> :: ; F --> :: ;" "Drops the rest of current stream and executes case in the stream above." "62986") "COLANOTcase" ("T --> :: ; F --> :: ;" "Drops the rest of current stream and executes NOTcase in the stream above." "629A1") "#=?SKIP" ("#m #n --> :: ; #m #n --> :: ;" "" "6336C") "#>?SKIP" ("#m #n --> :: ; #m #n --> :: ;" "" "63399") "#=ITE" ("#m #n --> :: ; #m #n --> :: ;" "" "62C2D") "# :: ; #m #n --> :: ;" "" "63E9D") "#>ITE" ("#m #n --> :: ; #m #n --> :: ;" "" "63EB1") "#=case" ("#m #n --> :: ; #m #n --> :: ;" "" "6186C") "OVER#=case" ("#m #n --> :: #m ; #m #n --> :: #m ;" "" "6187C") "#=casedrop" ("#m #n --> :: ; #m #n --> :: #m ;" "Note: should be called OVER#=casedrop." "618D3") "#=casedrpfls" ("#m #n --> F #m #n --> :: #m ;" "Note: should be called OVER#=caseDRPFLS." "63547") "#<>case" ("#m #n --> :: ; #m #n --> :: ;" "" "63D3A") "# :: ; #m #n --> :: ;" "" "63D12") "#>case" ("#m #n --> :: ; #m #n --> :: ;" "" "63D67") "#0=?SEMI" ("#0 --> :: ; # --> :: ;" "" "61A18") "#0=?SKIP" ("#0 --> :: ; # --> :: ;" "" "6333A") "#0=ITE" ("#0 --> :: ; # --> :: " "" "63E89") "DUP#0=IT" ("#0 --> :: #0 ; # --> :: # ;" "" "63E48") "DUP#0=ITE" ("#0 --> :: #0 ; # --> :: # ;" "" "63EC5") "#0=case" ("#0 --> :: ; # --> :: ;" "" "61896") "DUP#0=case" ("#0 --> :: #0 ; # --> :: # ;" "" "61891") "DUP#0=csedrp" ("#0 --> :: ; # --> :: # ;" "" "618A8") "DUP#0=csDROP" ("#0 --> :: ; # --> :: # ;" "" "63CBD") "#1=case" ("#1 --> :: ; # --> :: ;" "" "63D26") "#1=?SKIP" ("#1 --> :: ; # --> :: ;" "" "63353") "#>2case" ("#0/#1/#2 --> :: ; # --> :: ;" "" "63D4E") "?CaseKeyDef" ("# #' --> :: ' ob1 T ; --> :: ;" "Compares two bints. If equal, quotes the next object from the runsream and returns it along with TRUE." "3FF1B") "?CaseRomptr@" ("# #' --> ob T --> F --> :: ;" "Compares two bints. If equal, tries to resolve the rompointer which must be the next object in the runstream. The ROMPTR@ pushes TRUE when successful, so this entry can be used directly for key handlers." "3FF48") "%0=case" ("%0 --> :: %0 ; ob --> :: ob ;" "" "5F127") "j%0=case" ("%0 --> :: ; ob --> :: ;" "" "63D7B") "C%0=case" ("C%0 --> :: C%0 ; ob --> :: ob ;" "" "5F13B") "num0=case" ("0 --> :: 0 ; ob --> :: ob ;" "Both a real and a complex zero are TRUE conditions for this test." "5F0FA") "%1=case" ("%1 --> :: %1 ; ob --> :: ob ;" "" "5F181") "C%1=case" ("C%1 --> :: C%1 ; ob --> :: ob ;" "" "5F19F") "num1=case" ("1 --> :: 1 ; ob --> :: ob ;" "Both a real and a complex one are TRUE conditions for this test." "5F154") "%2=case" ("%2 --> :: %2 ; ob --> :: ob ;" "" "5F1EA") "C%2=case" ("C%2 --> :: C%2 ; ob --> :: ob ;" "" "5F208") "num2=case" ("2 --> :: 2 ; ob --> :: ob ;" "Both a real and a complex two are TRUE conditions for this test." "5F1BD") "%-1=case" ("%-1 --> :: %-1 ; ob --> :: ob ;" "" "5F267") "C%-1=case" ("C%-1 --> :: C%-1 ; ob --> ob ;" "" "5F285") "num-1=case" ("-1 --> :: -1 ; ob --> :: ob ;" "Both a real and a complex -1 are TRUE conditions for this test." "5F23A") "REALNEGcase" ("%<0 --> :: % ; ob --> :: ob ;" "" "5EEDB" :U) "pick1#0=case" ("#0 M --> COLA ob M --> SKIP" "" "5FBE6" :U) "MEQ1stcase" ("meta&ob1 ob2 --> ob1=ob2 ? case" "Meta&ob1 ob2 ob1=ob2 ? case" "5EFD9") "AEQ1stcase" ("meta&ob --> ob=nob ? case" "Meta&ob ob=nob ? case" "5EF15") "MEQopscase" ("meta1&ob1 meta2&ob2 ob3 -->" "Meta1&ob1 Meta2&ob2 ob3 " "5EFF9") "AEQopscase" ("meta1&ob1 meta2&ob2" "Meta1&ob1 Meta2&ob2 " "5F048") "Mid1stcase" ("meta&ob --> ob is id lam ? case" "Meta&ob ob is id or lam ? case" "5F061") "MetaConcase" ("meta --> meta" "( Meta Meta ) COLA if meta contains no ids, lams, symbs or romptrs. Else SKIP." "549EC" :U) "M1st+case" ("Meta&+ ? case" "Meta&+ ? case" "5EF2E" :U) "M1st-case" ("Meta&- ? case" "Meta&- ? case" "5EF41" :U) "M1st*case" ("Meta&* ? case" "Meta&* ? case" "5EF54" :U) "M1st/case" ("Meta&/ ? case" "Meta&/ ? case" "5EF67" :U) "M1st^case" ("Meta&^ ? case" "Meta&^ ? case" "5EFA0" :U) "M-1potcase" ("Meta&-1&^ ? case" "Meta&-1&^ ? case" "58ADE" :U) "M1stSQcase" ("Meta&SQ ? case" "Meta&SQ ? case" "5EFB3" :U) "M1stNEGcase" ("Meta&NEG ? case" "Meta&NEG ? case" "5EF7A" :U) "M1stINVcase" ("Meta&INV ? case" "Meta&INV ? case" "5EF8D" :U) "M1stFNCcase" ("Meta&FNCAPPLY ? case" "Meta&FCNAPPLY ? case" "5EFC6" :U) "M-1stcasechs" ("Meta&NEG --> Meta COLA Meta --> Meta SKIP Meta&(%<0) --> Meta&ABS(%) COLA" "Meta&NEG Meta COLA ; Meta Meta SKIP Meta&(%<0) Meta&ABS(%) COLA" "5EE10") "EQIT" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ;" "" "63E2F") "EQITE" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ;" "" "63E75") "jEQcase" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ;" "" "63CD6") "EQcase" ("ob1 ob1 --> :: ob1 ; ob1 ob2 --> :: ob1 ;" "Note: Should be called OVEREQcase." "61933") "REQcase" ("ob --> :: ob ; --> :: ob ;" "EQcase with the next object in the runstream. " "629D0") "EQcasedrop" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ob1 ;" "Note: should be called OVEREQcasedrop." "618BA") "REQcasedrop" ("ob --> ; --> ;" "EQcasedrop with the next object in the runstream." "629E9") "EQUALcase" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ;" "" "63CFE") "EQUALNOTcase" ("ob1 ob1 --> :: ; ob1 ob2 --> :: ;" "" "63DF3") "EQUALcasedrp" ("ob ob1 ob2 --> :: ; ob ob1 ob2 --> :: ob ;" "" "63CA4") "EQUALcasedro" ("ob1 ob2 --> :: ; ob1 ob2 --> :: ob1 ;" "Note: should be called OVEREQUALcasedrp." "517FE") "EQUALcasedrop" ("ob1 ob2 --> :: ; ob1 ob2 --> :: ob1 ;" "" "517F3") "tok=casedrop" ("$ $' --> :: ; --> :: $ ;" "Note: should be called OVERtok=casedrop. " "2856C") "nonopcase" ("seco --> :: seco ; ob --> :: ob ;" "" "5E984") "idntcase" ("id --> :: id ; ob --> :: ob ;" "" "5F0AA") "dIDNTNcase" ("id --> :: id ; ob --> :: ob ;" "" "63E07") "idntlamcase" ("id/lam --> :: id ; ob --> :: ob ;" "" "5F0CD") "REALcase" ("% --> :: ; ob --> :: ;" "" "63D8F") "dREALNcase" ("% --> :: % ; ob --> :: ob ;" "" "63E1B") "dARRYcase" ("[] --> :: [] ; ob --> :: ob ;" "" "63DA3") "dLISTcase" ("{} --> :: {} ob1 ; ob --> :: ob ;" "" "63DB7") "NOTLISTcase" ("{} --> :: {} ; ob --> :: ob ;" "" "27244") "DNOTSYMB?SEMI" ("symb --> :: symb ; ob --> :: ob ;" "" "18E45" :U) "NOTSECOcase" ("seco --> :: seco ; ob --> :: ob ;" "" "27254") "NOTROMPcase" ("romp --> :: romp ; ob --> :: ob ;" "" "27264") "DNOTBAKcase" ("bak --> :: bak ; ob --> :: ob ;" "" "27224" :U) "DNOTLIBcase" ("lib --> :: lib ; ob --> :: ob ;" "" "27234" :U) "numb1stcase" ("%/C%/[]/[L] --> :: ; ob --> :: ob2 ;" "If %, C%, [ ] or [L] then COLA, else SKIP ." "5EDFC") "UserITE" ("#set --> :: ; #clr --> :: ;" "" "63ED9") "SysITE" ("#set --> :: ; #clr --> :: ;" "" "63EED") "caseDEADKEY" ("T --> :: DoBadKey ; F --> :: ;" "" "63BEB") "caseDoBadKey" ("T --> :: DoBadKey ; F --> :: ;" "" "63BEB") "caseDrpBadKy" ("ob T --> :: DoBadKey ; ob F --> :: ob ;" "" "63BD2") "caseERRJMP" ("T --> :: ERRJMP ; F --> :: ;" "" "63169") "caseSIZEERR" ("T --> :: SIZEERR ; F --> :: ;" "" "63B05") "NcaseSIZEERR" ("T --> :: ; F --> :: SIZEERR ;" "" "63B19") "NcaseTYPEERR" ("T --> :: ; F --> :: TYPEERR ;" "" "63B46") "NoEdit?case" ("--> :: ; --> :: ;" "Tests if there is no edit line active." "40D93") "EditExstCase" ("--> :: ; --> :: ;" "Tests if there is an edit line active." "63DCB") "NOP" ("-->" "Does nothing." "06E8E") "xNEGNEG" ("-->" "Does nothing, decompiles to :: CK1&Dispatch BINT0 NOP ; There like NOP, but requires an argument. " "1ACDD") "'R" ("--> ob" "Pushes next object in return stack (i.e., the first object in the composite above this one) to the stack (skipping it). If top return stack is empty (contains SEMI), a null secondary is pushed and the pointer is not advanced." "06EEB") "'REVAL" ("--> ?" "Does 'R then EVAL." "06F66") "'R'R" ("--> ob1 ob2" "Does 'R twice." "639DE") "ticR" ("--> ob T --> F" "Pushes next object in return stack to stack and TRUE, of just FALSE if the top return stack body is empty. In this QcaseQ, it is dropped." "61B89") "'RRDROP" ("--> ob" "Does 'R , then RDROP." "639FC") ">R" (":: -->" "Pushes :: to top of return stack (skips prolog, i.e., the composite will be executed automatically)." "06F9F") "R>" ("--> ::" "Creates and pops a secondary from top return stack body to stack." "0701F") "R@" ("--> ::" "Like R>, but the return stack is not popped." "07012") "IDUP" ("-->" "Pushes interpreter pointer into the return stack. " "0716B") "EVAL" ("ob -->" "Evaluates object." "06F8E") "COMPEVAL" ("comp -->" "EVAL just pushes a list back, this one executes it." "18EBA") "2@REVAL" ("-->" "EVAL first object in the stream above the previous one." "61B45") "3@REVAL" ("-->" "EVAL first object in the stream above the stream above the previous one." "61B55") "GOTO" ("-->" "Jumps to next address in stream. Address is a five-nibble address, not a system binary. Can only be used to jump to the middle of programs, cannot jump to a program prolog." "619CB") "?GOTO" ("flag -->" "If TRUE, jumps, else skips five nibbles." "619E0") "NOT?GOTO" ("flag -->" "If FALSE jumps, else skips five nibbles." "619F3") "RDUP" ("-->" "Duplicates top return stack level." "14EA5") "RDROP" ("-->" "Pops the return stack." "06FB7") "2RDROP" ("-->" "Pops two return stack levels." "6114E") "3RDROP" ("-->" "Pops three return stack levels." "61160") "DROPRDROP" ("ob -->" "Does DROP then RDROP ." "632F9") "RDROPCOLA" ("-->" "Does RDROP then COLA ." "62958") "RDROPCOLATRUE" ("--> T" "Does RDROP then COLATRUE ." "54C4F" :U) "RSWAP" ("-->" "Swap in the return stack." "60EBD") "RROLL" ("#n -->" "Rolls nth return stack level to top of return stack." "14F2A" :U) "RSKIP" ("-->" "Skips first object in the return stack (i.e., the first object in the composite above this one)." "63880") "SEMI" ("-->" "DROP the rest of the current stream." "0312B") "'" ("--> nob (nextob)" "Pushes next object in the stream to the stack (skipping it)." "06E97") "xSILENT'" ("--> nextob" "Put the next ob in the runstream on the stack. Quoter used in UserRPL." "2349C") "DUP'" ("ob --> ob nob" "Does DUP then '." "63925") "DROP'" ("ob --> nob" "Does DROP then '." "6394D") "SWAP'" ("ob1 ob2 --> ob2 ob1 nob" "Does SWAP then '." "63939") "OVER'" ("ob1 ob2 --> ob1 ob2 ob1 nob" "Does OVER then '." "63961") "STO'" ("ob id/lam --> nob" "Does STO then '." "63975") "TRUE'" ("--> T nob" "Pushes TRUE and the next object to the stack." "63989") "FALSE'" ("--> F nob" "Pushes FALSE and the next object to the stack." "639B6") "ONEFALSE'" ("--> #1 F nob" "Pushes ONE, FALSE and the next object to the stack." "6399D") "#1+'" ("# --> #+1 nob" "Does #1+ then '." "639CA") "'NOP" ("--> NOP" "Pushes NOP to the stack." "632BD") "'ERRJMP" ("--> ERRJMP" "Pushes ERRJMP to the stack." "63155") "'DROPFALSE" ("--> DROPFALSE" "Pushes DROPFALSE to the stack." "3A9B8") "'DoBadKey" ("--> DoBadKey" "Pushes DoBadKey to the stack." "3FDFE") "'DoBadKeyT" ("--> DoBadKey T" "Pushes DoBadKey and TRUE to the stack." "3FE12") "DROPDEADTRUE" ("ob --> DoBadKey T" "Makes the user QdropQ dead, then pushes TRUE." "4D11E") "'x*" ("--> x*" "Pushes x* (User word *) to the stack." "63B5A") "'xDER" ("--> xDER" "Pushes xDER (User word \\.d) to the stack." "63B6E") "'IDFUNCTION" ("--> xFUNCTION" "Pushes xFUNCTION (User word FUNCTION) to the stack." "5129C") "'IDPOLAR" ("--> xPOLAR" "Pushes xPOLAR (User word POLAR) to the stack." "512C4") "'IDCONIC" ("--> xCONIC" "Pushes xCONIC (User word CONIC) to the stack." "512B0" :U) "'IDPARAMETER" ("--> xPARAMETRIC" "Pushes xPARAMETRIC (user word PARAMETRIC) to the stack." "512D8") "'IDTRUTH" ("--> xTRUTH" "Pushes xTRUTH (user word TRUTH) to the stack." "512EC" :U) "'IDSCATTER" ("--> xSCATTER" "Pushes xSCATTER (user word SCATTER) to the stack." "51300" :U) "'IDHISTOGRAM" ("--> xHISTOGRAM" "Pushes xHISTOGRAM (user word HISTROGRAM) to the stack." "51314" :U) "'IDBAR" ("--> xBAR" "Pushes xBAR (user word BAR) to the stack." "51328" :U) "'Rapndit" ("meta ob1...ob4 --> meta&ob ob1...ob4" "Takes ob from runstream and appends it to the meta starting in level 5." "2520A") "'xDEREQ" ("ob --> flag" "Is ob eq to user command xDER?" "63A56") "COLA" ("Evals next obj and drops rest of this stream." "" "06FD1") "ONECOLA" ("Does ONE, then COLA." "" "63A15") "SWAPCOLA" ("Does SWAP, then COLA." "" "63312") "XYZ>ZCOLA" ("Does UNROT2DROP, then COLA." "" "63326") "COLA_EVAL" ("Returns and evals first obj in previous stream." "" "61A6D") "COLACOLA" ("Drops rest of current stream does COLA in the above one." "" "6296D") "SKIP" ("Skips 1 obj in the runstream." "" "0714D") "2SKIP" ("Skips 2 objs in the runstream." "" "0715C" :U) "3SKIP" ("Skips 3 objs in the runstream." "" "283D8" :U) "MEMSKIP" ("ob --> #nextaddress" "" "21C47" :U) "skipcola" ("Does SKIP, then COLA." "" "626EE") "2skipcola" ("Does 2SKIP, then COLA." "" "626E5") "3skipcola" ("Does 3SKIP, then COLA." "" "626DC") "5skipcola" ("Skips 5 objects, then does COLA." "" "626AE") "COLASKIP" ("Drops rest of current stream and skips one obj in above stream." "" "633B2") "COLAskipcola" ("Drops rest of current stream, skipcola in the above." "" "283C4" :U) "BEGIN" ("-->" "Pushes interpreter pointer into the return stack. " "071A2") "AGAIN" ("-->" "Sets the interpreter pointer to the topmost value in the return stack, without popping it." "071AB") "REPEAT" ("-->" "Sets the interpreter pointer to the topmost value in the return stack, without popping it." "071E5") "UNTIL" ("flag -->" "If FALSE then AGAIN, otherwise RDROP ." "071C8") "NOT_UNTIL" ("flag -->" "NOT then UNTIL ." "633C6") "#0=UNTIL" ("# --> #" "Actually, should be called DUP#0=UNTIL." "62B6F") "WHILE" ("flag -->" "If TRUE does nothing, otherwise RDROP then 2SKIP ." "071EE") "NOT_WHILE" ("flag -->" "NOT then WHILE ." "633DF") "DUP#0<>WHILE" ("# -->" "Try to guess what it does." "633F8") "DO" ("#stop #start -->" "" "073F7") "ZERO_DO" ("#stop -->" "" "073C3") "DUP#0_DO" ("#stop --> #stop" "" "6347F") "ONE_DO" ("#stop -->" "" "073CE") "#1+_ONE_DO" ("#stop -->" "" "073DB") "toLEN_DO" ("{} --> {}" "From ONE to #elements." "63498") "ONE_DO_ARRY" ("[] --> []" "From ONE to #elements." "37BCB" :U) "LOOP" ("-->" "" "07334") "+LOOP" ("# -->" "Increments index by specified number." "073A5") "DROPLOOP" ("ob -->" "" "63466") "SWAPLOOP" ("ob1 ob2 --> ob2 ob1" "" "6344D") "SWAPDROPLOOP" ("ob1 ob2 --> ob2" "" "54CB3" :U) "STOPLOOP" ("-->" "Destroys topmost loop environment." "07321" :U) "SEMILOOP" ("-->" "" "61A47") "INDEX@" ("--> #" "Recalls topmost loop counter value." "07221") "DUPINDEX@" ("ob --> ob #" "" "63411") "SWAPINDEX@" ("ob1 ob2 --> ob2 ob1 #" "" "63425") "OVERINDEX@" ("ob1 ob2 --> ob1 ob2 ob1 #" "" "63439") "INDEX@#-" ("# --> #'" "" "63790") "INDEX@-" ("# --> #'" "" "63790") "INDEXSTO" ("# -->" "Stores new topmost loop counter value." "07270") "ISTOP@" ("--> #" "Recalls topmost loop stop value." "07249") "ISTOPSTO" ("# -->" "Stores new topmost loop stop value." "07295") "ISTOP-INDEX" ("--> #" "" "5182F") "JINDEX@" ("--> #" "Recalls second topmost loop counter value." "07258") "JINDEXSTO" ("# -->" "Stores new second topmost loop counter value." "072AD") "JSTOP@" ("--> #" "Recalls second topmost loop stop value." "07264") "JSTOPSTO" ("# -->" "Stores new second topmost loop stop value." "072C2") "ZEROISTOPSTO" ("-->" "Does not exit loop immediately. Just stores zero as the stop value, so all objects until the next LOOP will be evaluated." "6400F") "(ExitAtLoop)" ("-->" "Does not exit loop immediately. Just stores zero as the stop value, so all objects until the next LOOP will be evaluated." "6400F") "ExitAtLOOP" ("-->" "Does not exit loop immediately. Just stores zero as the stop value, so all objects until the next LOOP will be evaluated." "6400F") "DUPExitAtLOOP" ("ob --> ob ob" "" "3F78C" :U) "ExitAtLOOPDUP" ("ob --> ob ob" "" "3F7EB" :U) "DRPExitAtLOOP" ("ob -->" "" "4334F" :U) "DUP@" ("id/lam --> id/lam ob T --> id/lam F" "Does DUP then @." "62C05") "SAFE@" ("id/lam --> ob T --> F" "For lams does @. For ids does ?ROMPTR> to the ob found." "62A34") "SAFE@NOT" ("id --> ob F --> T" "Does SAFE@ then NOT." "5E5EE" :U) "DUPSAFE@" ("id/lam --> id/lam ob T --> id/lam F" "Does DUP then SAFE@." "62A2F") "SAFE@_HERE" ("id --> ob F --> T" "Same as SAFE@, but works only in the current directory." "1853B") "Sys@" ("ID --> ob T --> F" "Switches temporarily to the HOME directory and executes @ there." "2EA6A") "XEQRCL" ("id --> ob" "Same as SAFE@, but errors if variable is not found. Also works for lams, but you get the wrong error." "20B81") "LISTRCL" ("{path id} --> ob" "Recalls from specified path." "20B9A") "ROMPTR@NOT" ("ROMPTR --> ob F --> ROMPTR T" "Recalls contents of ROMPTR if possible." "5E616" :U) "STO" ("ob id/lam -->" "For ids this assumes ob is not pco. If replacing some object, that object is copied to TEMPOB and pointers are updated. For lams: Errors if lam is unbound." "07D27") "SAFESTO" ("ob id/lam -->" "For ids, does ?>ROMPTR to the object before storing." "62A02") "SysSTO" ("ob ID -->" "Switches temporarily to the HOME directory and executes STO there." "2E9E6") "?STO_HERE" ("ob id/lam -->" "Same as SAFESTO, but will only store in the current directory and will not overwrite a directory." "18513") "XEQSTOID" ("ob id/lam -->" "Same as SAFESTO, but will only store in the current directory and will not overwrite a directory." "18513") "XEQStoKey" ("ob ID -->" "" "40F22") "REPLACE" ("newob oldob --> newob" "Replaces oldob (in memory) with newob." "085D3") "PURGE" ("id -->" "Purges variable. Does no type check first." "08C27") "?PURGE_HERE" ("id -->" "Like PURGE, but only works in current directory." "1854F") "MOVEVAR" ("" "Move the variable to a different directory. Stack diagram unknown - level 1 must be rrp, but level two??" "7DF7C") "CREATE" ("ob id -->" "Creates a variable in the current directory. Errors if id is or contains current directory. Assumes id is not a pco." "08696") "DoHere:" ("-->" "Next object in the runstream is evaluated for the current directory only." "185C7") "'LAMLNAMESTO" ("ob -->" "STO to LAM LAMLNAME." "63A3D") "MAKERRP" ("#libnum --> rrp" "Creates an empty directory." "077E4" :U) "CREATERRP" ("id -->" "Creates an empty directory. Does not check if the name is already used. :: # 7FF CRDIR# SWAP CREATE ;" "08DF2" :U) "CREATEDIR" ("id -->" "Creates an empty directory. Calls ?PURGE_HERE first to delete the original." "184E1") "LASTRAM-WORD" ("rrp --> ob T --> F" "Recalls first object in directory." "08326") "LastNonNull" ("rrp --> ob T --> F" "Recalls first object in directory (not null named)." "18621") "PREVRAM-WORD" ("ob --> ob' T --> F" "Recalls next object in directory." "08376") "PrevNonNull" ("ob --> ob' T --> F" "Recalls next object in directory (not null named)." "1863A") "CkNonNull" ("ob --> ob T --> F" "Checks that the variable (ob) has a name." "18653" :U) "RAM-WORDNAME" ("ob --> id" "Recalls name of object in current directory." "082E3") "XEQPGDIR" ("id -->" "Purges a directory. Checks references, etc. first." "18595") "XEQORDER" ("{id1 id2..} -->" "Orders the variables in the directory by moving the given variables to the beginning of the directory." "20FF2") "DOVARS" ("--> {id1 id2..}" "Returns list of variables from current directory." "18779") "DOTVARS%" ("% --> {}" "Returns a list of variables in the current directory with user type given by the number. Internal TVARS if a single number was given. " "186E8") "DODIRPRG" ("ob :: --> {}" "Executes seco (can be single object) on all directory variables. At execution: ob :: id_contents { } id To be returned: ob :: id_contents { } ob flag If flag is TRUE, ob is added with >TCOMP to list, else it is dropped." "1867F" :U) "PATHDIR" ("--> {HOME dir1 dir2..}" "Returns current path." "1848C") "UPDIR" ("-->" "Goes to parent directory." "1A16F") "MYRAMROMPAIR" ("rrp --> rrp' T --> F" "Gets parent directory. Returns FALSE if parent directory is HOME." "08309" :U) "SYSRRP?" ("rrp --> flag" "Is rrp HOME?" "08DD4") "CONTEXT@" ("--> rrp" "Recalls current directory." "08D5A") "CONTEXT!" ("rrp -->" "Sets new current directory." "08D08") "STOPSIGN@" ("--> rrp" "Recalls last directory." "08D82" :U) "STOPSIGN!" ("rrp -->" "Stores new last directory." "08D4A" :U) "SYSCONTEXT" ("-->" "Sets HOME as current directory." "08D92") "HOMEDIR" ("-->" "Sets HOME as current directory." "08D92") "SYSSTOPSIGN" ("-->" "Sets HOME as last directory." "08DC4" :U) "SaveVarRes" ("-->" "Binds current and last directories to two nullnamed lams." "640A0") "RestVarRes" ("-->" "First sets HOME as both the current and last directories (in QcaseQ an error happens). Then, restores the current and last directories from 1LAM and 2LAM." "640FA") "SetHiddenRes" ("-->" "Sets the hidden directory as the current and last directories." "640BE") "WithHidden" ("--> ?" "Executes next command in hidden directory." "64037") "RclHiddenVar" ("id --> ob T --> F" "Recalls variable in hidden directory. Same as :: WithHidden @ ;" "64023") "StoHiddenVar" ("ob id -->" "Stores variable in hidden directory. Same as :: WithHidden STO ;" "64078") "PuHiddenVar" ("id -->" "Purges variable in hidden directory. Same as :: WithHidden PURGE ;" "6408C") "TOTEMPOB" ("ob --> ob'" "Copies object to TEMPOB and returns pointer to the new copy." "06657") "TOTEMPSWAP" ("ob1 ob2 --> ob2' ob1" "Does TOTEMPOB then SWAP." "62C69") "CKREF" ("ob --> ob'" "If object is in TEMPOB, is not embedded in a composite and not referenced, does nothing. Else copies it to TEMPOB and returns the copy." "37B44") "SWAPCKREF" ("ob1 ob2 --> ob2 ob1'" "Does SWAP then CKREF." "63F7E") "INTEMNOTREF?" ("ob --> ob flag" "If the object is in TEMPOB area, is not embedded in a composite and is not referenced, returns the object and TRUE, otherwise returns the object and FALSE." "06B4E") "FREEINTEMP?" ("ob --> ob flag" "Tests if object is in TEMPOB area and not in a composite." "06B3E" :U) "~INTEMPOB?" ("ob --> ob flag" "" "01E0E8") "PTRREFD?" ("ob --> ob flag" "Tests if object is referenced." "065D9" :U) "REFERENCED?" ("ob --> ob flag" "Tests if object is referenced or in composite." "065E5" :U) "NOTREF?" ("ob --> ob flag" "Tests if object is not referenced or in composite. ( :: REFERENCED? NOT ; )" "06BC2" :U) ">TOPTEMP" ("ob --> ob'" "Moves object to top ob TEMPOB area. Does not garbage collection." "06DDE" :U) "TOTEMPOBADJ" ("ob --> ob ob'" "Makes a standalone copy by moving references to a new copy." "064BD" :U) "DOADJ1" ("ob1 ob2 --> ob1 ob'" "Moves references from ob2 to ob1 (ob1 in TEMPOB area)." "064D6" :U) "DOADJ" ("ob1 ob2 --> ob1 ob'" "Moves references from ob2 to ob1 (ob1 in TEMPOB area). References to body of ob2 are moved too." "064E2" :U) "SLOW" ("-->" "15 millisecond delay." "40EE7") "VERYSLOW" ("-->" "300 millisecond delay." "40F02") "SORTASLOW" ("-->" "1.2 second delay (4 x VERYSLOW). " "48FF9") "VERYVERYSLOW" ("-->" "3 second delay." "40F12") "wait" ("hxs -->" "Wait specified number of ticks (there are 8192 ticks in a second)." "1A7ED" :U) "dowait" ("%secs -->" "Waits specified number of seconds." "1A7C9") "dowait/quit?" ("%secs -->" "Waits specified number of seconds, exits program if `CANCEL' is pressed." "1A7B5" :U) "%>HMS" ("% --> %hms" "Converts from decimal to H.MMSS format." "2A673") "%%H>HMS" ("%% --> %%hms" "Same as %>HMS, but for long reals." "2AF27") "%HMS>" ("%hms --> %" "Converts from H.MMSS format to decimal." "2A68C") "%HMS+" ("%hms1 %hms2 --> %hms" "Adds time in hms format." "2A6A0") "%HMS-" ("%hms1 %hms2 --> %hms" "Subtracts time in hms format." "2A6C8") "TOD" ("--> %time" "Returns current time." "0CBFA") ">TIME" ("%time -->" "Sets time." "0CD53" :U) "CLKADJ" ("%time -->" "Also sets time." "0CD3F" :U) "VerifyTOD" ("%time --> %time" "Checks for validaty of time. Errors if not valid." "0E66A") "DATE" ("--> %date" "Returns current date." "0CC0E") ">DATE" ("%date -->" "Sets date, errors if % is not a valid date." "0CD2B" :U) "DATE+DAYS" ("%date %days --> %date'" "Adds specified number of days to date." "0CC5B") "DDAYS" ("%date1 %date2 --> %days" "Returns number of days between two dates." "0CC39") "SysTime" ("--> hxs" "Returns tick count." "0EB81") "CLKTICKS" ("--> hxs" "Returns tick count." "0EB81") "Date>d$" ("%date --> $" "Returns string representation of date, using current format." "0CFD9") "Date>wd$" ("%date --> $weekday" "Returns weekday: \"SUN\", \"MON\", etc." "0D2F0" :U) "Ticks>wd$" ("hxs --> $weekday" "Same function but using clock ticks." "0CF5B" :U) "TOD>t$" ("%time --> $" "Returns string represent the time, using current format." "0D06A") "Date>hxs13" ("%date --> hxs" "Converts date to ticks." "0EE50") "Ticks>Date" ("hxs --> %date" "Returns date from hxs of internal alarm list format." "0D156" :U) "TOD>Ticks" ("%time --> hxs" "Converts time to ticks." "0EE83" :U) "Ticks>TOD" ("hxs --> %time" "Returns time from hxs of internal alarm list format." "0D143" :U) "Ticks>Rpt" ("hxs --> %rpt" "Converts hxs in internal alarm list format to repetition interval." "0D169" :U) "Date+Time" ("hxs_d hxs_t --> hxs" "Takes two hxs representing the date and the time, and joins them into only one hxs." "0EE26" :U) "ALARMS@" ("--> {}" "Returns internal alarms list." "0E235") "STOALM" ("%date %time acti %rep --> %" "Stores an alarm. %repeat is the number of ticks between every repetition. Since there are 8192 ticks in a second, 60 seconds in a minute, and 60 minutes in an hour, to make an alarm that repeats every hour, %repetition would be 8192*60*60 = 29491200. Returns real number representing the position of the alarm in the list." "0E6ED") "STOALARMLS" ("{} --> %" "Stores an alarm. List contents: { %date %time action %repeats } You may omit %repeats and action. In this QcaseQ, the alarm has no repetition and no message is displayed. Returns real number representing the position of the alarm in the list." "0E54D" :U) "STOALARM%" ("%time --> %" "Store an alarm at specified time today, with no message and no repetition. Returns real number representing the position of the alarm in the list." "0E510" :U) "PURGALARM%" ("% -->" "Internal xDELALARM." "0E724" :UBS) ">ALRMLS" ("$ %date %time %rpt --> {}" "Generates list (of the internal type) representing the alarm." "0EF45" :U) "ALRMLS>" ("{} --> {}'" "Converts list of internal format to list in the format of STOALARMLS." "0E1D8" :U) "RCLALM" ("#n --> {} T --> F" "Recalls nth alarm. List is in the internal format." "0E402" :U) "RCLALARM%" ("%n --> {}" "Recalls nth alarm. List is in the format of STOALARMLS." "0E3DF" :UBS) "FINDALARM%" ("%date --> %" "Returns position in the internal alarm list of the first alarm of that day (or in any following day)." "0EAD7" :U) "FINDALARMLS" ("{} --> %" "Takes a list of the format: { %date %time } Returns real represent the position of the specified alarm in the alarm list, or 0 if not found." "0EB31" :U) "DELALARM" ("%n -->" "Deletes nth alarm." "0E724" :U) "ALARM?" ("--> flag" "Returns TRUE if an alarm is due." "422A1") "ACKALM" ("--> flag" "Tries acknowledging first alarm due. Returns TRUE if no due alarm was found, or FALSE if a due alarm has been found and acknowledged." "0DDC1" :U) "ACKALLALMS" ("-->" "Acknowledges all due alarms." "0DDA8" :U) "FNDALARM{}" ("" "" "0EB31" :UBS) "FindNext" ("" "" "0EBD5") "SetSysFlag" ("# -->" "Sets the system flag with number #. TEXT:Flags" "53731") "ClrSysFlag" ("# -->" "Clears the system flag with number #. TEXT:Flags" "53761") "TestSysFlag" ("# --> flag" "Returns TRUE if system flag is set. TEXT:Flags" "53784") "TestSysClr" ("# --> flag" "Clears flag after testing. TEXT:Flags" "1C4EC" :U) "TogSysFlag" ("# -->" "Toggles system flag. TEXT:Flags" "3EDA2" :U) "SetUserFlag" ("# -->" "Set the user flag with number #. TEXT:Flags" "53725") "ClrUserFlag" ("# -->" "Clear the user flag with number #. TEXT:Flags" "53755") "TestUserFlag" ("# --> flag" "Returns TRUE if user flag is set. TEXT:Flags" "53778") "TestUserClr" ("# --> flag" "Clears flag after testing. TEXT:Flags" "1C4CE" :U) "RCLSYSF" ("--> hxs" "Recalls system flags from 1 to 64. TEXT:Flags" "1C637") "STOSYSF" ("hxs -->" "Stores system flags from 1 to 64. TEXT:Flags" "1C731" :U) "DOSTOSYSF" ("hxs -->" "Stores system flags from 1 to 64, checking for changes in LASTARG flag." "1C6E3") "RCLUSERF" ("--> hxs" "Recalls user flags from 1 to 64." "1C64E") "STOUSERF" ("hxs -->" "Stores user flags from 1 to 64." "1C6F7" :U) "STOALLFcont" ("hxs_usr hxs_sys -->" "Stores user and system flags from 1 to 64. First is user flags, second is system flags." "1C6CF" :U) "DOSTOALLF0" ("{} -->" "Stores user and system flags from 1 to 64. Expects a list of two hxs, first is user flags, second is system flags." "1C6A2") "XEQSTWS" ("% -->" "" "53C96" :U) "XEQRCWS" ("--> %" "" "53CF0" :U) "DOHEX" ("-->" "Switch stack display format of HEX strings to hexadecimal. TEXT:Flags" "53C37") "DODEC" ("-->" "Switch stack display format of HEX strings to decimal. TEXT:Flags" "53C5B") "DOBIN" ("-->" "Switch stack display format of HEX strings to binary." "53C43") "DOOCT" ("-->" "Switch stack display of HEX strings to octal." "53C4F") "BASE" ("--> #" "Returns #10h, #10d, #10b or #10o. In decimal terms, 16 for hexadecimal base, 10 for decimal base, 8 for octal base or 2 for binary base." "54050") "BASECHAR" ("--> char" "Returns \"h\", \"d\", \"b\" or \"o\"." "5407A" :U) "DOSTD" ("-->" "Internal version of user word STD." "16707") "DOFIX" ("# -->" "Internal version of user word FIX." "166E3") "DOSCI" ("# -->" "Internal version of user word SCI." "166EF") "DOENG" ("# -->" "Internal version of user word ENG." "166FB") "savefmt1" ("-->" "Saves the current number format, and changes to STD mode." "15A8B") "rstfmt1" ("-->" "Restores the number format saved by savefmt1. Only one set of flags can be saved, there is no nesting of these entries." "15A60") "NumbMode" ("--> #" "Returns 0 for STD mode, 1 for FIX mode, 2 for SCI mode or 3 for ENG mode." "53B61" :U) "SETRAD" ("-->" "Set angular mode to RAD." "2A5F0") "RAD?" ("--> flag" "Is angular mode QRAD?Q" "53BDD") "SETDEG" ("-->" "Set angular mode DEG." "2A5D2") "DEG?" ("--> flag" "Is angular mode DEG?" "53BC9" :U) "SETGRAD" ("-->" "Set angular mode GRAD." "2A604") "DPRADIX?" ("--> flag" "Returns TRUE if current radix is \".\"." "167BF") "PRSOL?" ("--> flag" "Returns TRUE if general solutions flag (1) is set." "53C23" :U) "NOTCONST?" ("--> flag" "Returns TRUE if symbolic constants flag (2) is cleared." "53C0A" :U) "SETNUM" ("-->" "Sets numeric results flag (3)." "53B9C" :U) "CLRNUM" ("-->" "Clears numeric results flag (3)." "53B88" :U) "NOTNUM?" ("--> flag" "Returns TRUE if numeric results flag (3) is cleared." "53BB0" :U) "UNDO_OFF" ("-->" "Turns saving of the last stack for UNDO off. " "538DC") "UNDO_ON" ("-->" "Turns saving of the last stack for UNDO on. " "538CE") "UNDO_ON?" ("--> flag" "Tests if last stack saving for UNDO is on." "538C0") "1A/LockA" ("-->" "Equivalent to pressing the ALPHA key, turns on ALPHA mode for either 1 keypress or until the next ALPHA keypress, depending on system flag 60. -- Flags: -60" "3AA0A") "DOBEEP" ("%freq %dur -->" "Beeps. Analog to user function BEEP." "1415A") "setbeep" ("#ms #Hz -->" "Also beeps." "141B2") "TurnOff" ("-->" "Internal OFF." "041A7") "!TurnOff" ("-->" "Internal OFF. Does not do alarm check, etc." "041DA" :U) "DEEPSLEEP" ("--> flag" "Puts HP into deepsleep mode. Returns TRUE if \"Invalid Card Data\" message." "041ED") "ChkLowBat" ("" "" "325AA") "ShowInvRomp" ("-->" "Flashes \"Invalid Card Data\" message." "0426A") "?FlashAlert" ("-->" "Displays system warnings." "386D8") "AlertStatus" ("--> #" "Gets last system warning: #0h = OK #1h = Alarm #2h = LowBat (S) #4h = LowBat (P1) #8h = LowBat (P2)" "04544" :U) "Alert$" ("# --> $" "Recalls system warning message." "04575" :U) "WSLOG" ("--> $4 $3 $2 $1" "Recalls warm start log messages." "0D2A3" :U) "WSLOGN" ("#n --> $" "Recalls specified warm start log message." "0D18A" :U) "DOAPWL" ("-->" "Forces a warm start but does not log a warmstart event." "21B4E" :U) "LiteSlp" ("-->" "Enters light sleep mode." "04912" :U) "GARBAGE" ("-->" "Forces garbage collection." "05F42") "MEM" ("--> #" "Returns amount of free memory in nibbles. Does not do garbage collection. (The user word does.)" "05F61") "OSIZE" ("ob --> #" "Returns object size in nibbles. Forces garbage collection." "05902") "OCRC" ("ob --> #nib hxs" "Returns size in nibbles and checksum as hxs." "05944") "OCRC%" ("ob --> hxs %bytes" "Returns checksum and size in bytes." "1A1FC") "VARSIZE" ("id --> hxs %bytes" "Returns checksum and size in bytes of specified variable." "1A265") "INHARDROM?" ("ob --> ob flag" "Is object address < #80000h?" "1A2DA") "NOTINHARDROM?" ("ob --> ob flag" "Is object address #80000h?" "19350" :U) "CHANGETYPE" ("ob #prolog --> ob'" "Changes prolog of object, does TOTEMPOB." "05AB3") "!CHANGETYPE" ("ob #prolog --> ob'" "Changes prolog of object." "05ACC" :U) "getnibs" ("hxs hxs --> hxs'" "Peek. First hxs is data, second is address. The data is overwritten for its length (maximum 16) with nibbles starting from specified address." "6595A") "putnibs" ("hxs hxs -->" "Poke. First hxs is data, second is address. See getnibs." "6594E") "NOBLINK" ("-->" "Clears the BLINKFLAG, SysNib5." "538F8") "cursorblink+" ("" "" "13D28") "cursorblink-" ("" "" "13D55") "?BlinkCursor" ("-->" "Makes the cursor Blink if in App-mode or Editline." "42078") "MAXRETRY" ("" "Maximum number of retries = 10." "2D396") "LAMPKNO" ("" "Contains packet number." "2D3A0") "LAMPACKET" ("" "" "2D3B1") "LAMRETRY" ("" "Contains #retry." "2D3C6") "LAMERRMSG" ("" "" "2D3D9" :U) "LAMKP" ("" "" "2D3EE") "LAMLNAME" ("" "" "2D3FB") "LAMOBJ" ("" "" "2D40E") "LAMOPOS" ("" "" "2D41D") "LAMEXCHP" ("" "" "2D42E" :U) "LAMKLIST" ("" "" "2D45A") "LAMKMODE" ("" "" "2D46D") "LAMKPTRN" ("" "" "2D480" :U) "LAMKRM" ("" "" "2D493") "LAMMaxR" ("" "" "2D4A2" :U) "LAMKML" ("" "" "2F211") "'LamKPSto" ("" "" "2D441") "DORECN" ("$/id/lam -->" "Internal RECN." "2D816" :U) "DOSERVER" ("" "Internal SERVER." "2D9F5" :U) "SENDLIST" ("{} -->" "Internal SEND." "2E6EB") "SENDNAME" ("id/lam -->" "Internal SEND." "2E5AB" :U) "GETNAME" ("$/id/lam -->" "Internal KGET." "2E7EF") "DOFINISH" ("-->" "Internal FINISH." "2E876") "DOPKT" ("$ $' -->" "Internal PKT." "2E8D1") "DOBAUD" ("% -->" "Internal BAUD." "2EC84") "DOPARITY" ("% -->" "Internal PARITY." "2ECCA") "DOTRANSIO" ("% -->" "Internal TRANSIO." "2ED10") "DOCKSM" ("" "Internal CKSM." "2ED4C" :U) "DOKERRM" ("--> $" "Internal KERRM." "2EDA6") "DOBUFLEN" ("--> % 0/1" "Internal BUFLEN." "2EDE1") "DOSTIME" ("" "Internal STIME." "2EDF5" :U) "DOSBRK" ("-->" "Internal SBRK." "2EE18") "DOXMIT" ("$ -->" "Internal XMIT." "2EE6F" :U) "DOSRECV" ("% -->" "Internal SRECV." "2EE97") "CLOSEUART" ("-->" "Internal CLOSEIO." "315C6") "DOCR" ("-->" "Internal CR." "31868") "DODELAY" ("% -->" "Internal DELAY." "31FFD") "KDispRow2" ("" "" "2D730") "KDispStatus2" ("" "" "2D74E") "EXCHINITPK" ("" "" "2D517") "SENDEOT" ("" "" "2D58C") "SENDNAK" ("" "" "2E0A9") "SENDERROR" ("" "" "2E0C7") "SENDPKT" ("" "" "2E0F4") "InitIOEnv" ("" "" "2E6BE") "KERMOPEN" ("" "" "2EAE2") "DOOPENIO" ("" "" "2EB37") "OpenIO" ("" "" "2EB62") "OpenIOPrt" ("" "" "3187C") "docr" ("" "" "31854") "IOCheckReal" ("" "" "2EC25") "StdIOPAR" ("--> {}" "Default IOPAR: { 9600 0 0 0 3 1 }." "2E99E") "GetIOPAR" ("--> %baud % % % % %" "Recalls IOPAR and explodes it into the stack." "2EA4F") "StoIOPAR" ("{} -->" "STO the list of IO parameters in the HOME directory in the variable IOPAR." "2E9CB") "StdPRTPAR" ("" "" "31F4A") "StoPRTPAR" ("" "" "31F7D") "GetChkPRTPAR" ("" "" "3205C") "OUTUART" ("" "" "30ED2") "POPUART" ("" "" "31289") "OpenUartClr" ("" "" "3161E") "CloseUart" ("" "" "315F9") "OpenUart?Clr" ("" "" "31608" :UBS) "PRINT" ("" "" "32161") "PRINTxNLF" ("" "" "32387") "REMAP" ("" "" "323F9") "SetEcma94" ("" "" "3252B") "AllowPrlcdCl" ("" "" "324A6") "PrintGrob" ("" "" "32B74") "SetServMode" ("" "" "2D9A1") "ClrServMode" ("" "" "2D9B2") "SendSetup" ("" "" "2EEC4") "TRPACKETFAIL" ("" "" "2EFD7") "IncrLAMPKNO" ("" "Increases packet number." "2F383") "GetKermPkt#" ("" "" "2F39C") "RecvNextPkt" ("" "" "2F989") "KVISLF" ("$ --> $'" "String translation for transfer from HP to PC. Inserts (character 12) in front of every newline (character 10), and translates characters >127 to the corresponding backslash escape. Which translations are being made depends upon the current translation mode (the last number in the IOPAR variable, can be set with DOTRANSIO). 0: No translation 1: CRLF translation 2: CRLF and characters 128-159 (80h-9Fh) 3: CRLF and characters 128-255 (80h-FFh)" "2FEC9") "KVIS" ("$ --> $'" "Like KVISLF, but never translates newlines." "2FEDD") "KINVISLF" ("$ --> $' $''" "String translation for transfer from PC to HP. Translates digraphs in the string to characters and removes (character 12) in front of newline characters. Which translations are actually made depends upon the current translation mode, see KVISLF. $'' contains any incomplete trailing backslash sequence in the original string." "3016B") "GETKP" ("" "" "307E2") "SENDACK" ("" "" "2FEA1") "SENDNULLACK" ("" "" "2FEB5") "ACK_INIT" ("" "" "30914") "CHOOSE_INIT" ("" "" "30B1D" :UBS) "ENCODE1PKT" ("" "" "30BBE") "ENCODE" ("" "" "30BD7") "DECODE" ("" "" "30D31") "UARTBUFLEN" ("" "" "3133B") "FLUSHRSBUF" ("" "" "3136C") "PUTSERIAL" ("" "" "31444") "GETSERIAL" ("" "" "314E5") "VERSTRING" ("--> $" "Returns version string." "30794") "VERSTRING?" ("$ --> $ flag" "Checks if $ starts with VERSTRING." "3037A" :U) "UART?" ("" "" "42249") "UARTxcp" ("" "" "42145") "SEND_PACKET" ("" "" "2D5E1") "XEQIOBACKUP" ("" "" "21B5A") "kermpktmsg" ("" "" "00C10") "kermrecvmsg" ("" "" "00C0E") "kermsendmsg" ("" "" "00C0D") "CK0" ("-->" "Saves current command to LASTCKCMD. Marks stack below level 1 to STACKMARK." "18A1E") "CK1" ("ob --> ob" "Saves current command to LASTCKCMD. Verifies that there is at least one object in the stack, if not generates a \"Too Few Arguments\" error. Saves stack mark to STACKMARK. If Last Arg is enabled then saves the argument." "18AA5") "CK2" ("ob1 ob2 --> ob1 ob2" "Like CK1, but checks for at least two arguments." "18A80") "CK3" ("ob1...ob3 --> ob1...ob3" "Like CK1, but checks for at least three arguments." "18A5B") "CK4" ("ob1...ob5 --> ob1...ob5" "Like CK1, but checks for at least four arguments." "18B92") "CK5" ("ob1...ob5 --> ob1...ob5" "Like CK1, but checks for at least five arguments." "18B6D") "CKN" ("ob1...obn %n --> ob1..obn #n" "Checks for a real in level one. Then checks for that number of arguments. Finally, converts the real to a bint." "18C34") "CK0NOLASTWD" ("-->" "Like CK0, but does not save current command." "18A15") "CK1NOLASTWD" ("ob --> ob" "Like CK1, but does not save current command." "18AB2") "CK2NOLASTWD" ("ob1 ob2 --> ob1 ob2" "Like CK2, but does not save current command." "18A8D") "CK3NOLASTWD" ("ob1...ob3 --> ob1...ob3" "Like CK3, but does not save current command." "18A68") "CK4NOLASTWD" ("ob1...ob4 --> ob1...ob4" "Like CK4, but does not save current command." "18B9F") "CK5NOLASTWD" ("ob1...ob5 --> ob1...ob5" "Like CK5, but does not save current command." "18B7A") "CKNNOLASTWD" ("ob1...obn %n --> ob1..obn #n" "Like CKN, but does not save current command." "18C4A") "CK&DISPATCH0" ("-->" "Dispatches on stack argument. Does not convert ZINTs to REAL. -- CK&DISPATCH1 CK&DISPATCH2 TEXT:Dispatch_Types" "18F9D") "CK&DISPATCH1" ("-->" "Dispatches on stack arguments, stripping tags and converting ZINTS to REALS (HP49 only) if necessary. -- CK&DISPATCH0 CK&DISPATCH2 TEXT:Dispatch_Types" "18FB2") "CK&DISPATCH2" ("-->" "Equivalent to CK&DISPATCH1. -- CK&DISPATCH0 TEXT:Dispatch_Types" "18FA9") "CK1&Dispatch" ("-->" "Combines CK1 with CK&DISPATCH1. -- TEXT:Dispatch_Types" "18ECE") "CK2&Dispatch" ("-->" "Combines CK2 with CK&DISPATCH1. -- TEXT:Dispatch_Types" "18EDF") "CK3&Dispatch" ("-->" "Combines CK3 with CK&DISPATCH1. -- TEXT:Dispatch_Types" "18EF0") "CK4&Dispatch" ("-->" "Combines CK4 with CK&DISPATCH1. -- TEXT:Dispatch_Types" "18F01") "CK5&Dispatch" ("-->" "Combines CK5 with CK&DISPATCH1. -- TEXT:Dispatch_Types" "18F12") "CKINFARGS" ("-->" "Gets meta as argument and checks its length (using DEPTH), and errors if it is too short. Collects the arguments to a list, does CK1NOLASTWD, and explodes the meta again." "5EA09") "0LastRomWrd!" ("-->" "Clears command save by last CK command. CK0" "1884D") "0LASTOWDOB!" ("-->" "Clears command save by last CK command. CK0" "1884D") "AtUserStack" ("-->" " :: CK0NOLASTWD 0LASTOWDOB! ;" "40BC9") "CK1NoBlame" ("-->" " :: 0LASTOWDOB! CK1NOLASTWD ;" "1592D") "'RSaveRomWrd" ("-->" "Stores first object in the composite above the actual to LASTCKCMD." "62474") "'RSAVEWORD" ("-->" "Stores first object in the composite above the actual to LASTCKCMD." "62474") "EvalNoCK" ("comp --> ?" "Evaluates composite without saving as current command. If first command is CK&Dispatch it is replaced by CK&DISPATCH1. If first command is CK it is skipped. Any other first command is also skipped!" "18F23") "EvalNoCK:" ("RS ob -->" "EvalNoCK with the next object in the runstream as argument." "18F6A" :U) "'EvalNoCK:_sup" ("RS ob -->" "EvalNoCK with the next object in the runstream as argument." "18F6A" :U) "CKREAL" ("% --> % Z --> %" "Checks for real. If a ZINT, convert to real. Else SETTYPEERR." "63B2D") "CKARRY" ("-->" "Checks for array." "193C") "CKRARRY" ("-->" "Checks for real array." "194B") "CKCARRY" ("-->" "Checks for complex array." "194D") "CKLIST" ("-->" "Checks for list." "1944") "CKNAMELIST" ("-->" "Checks for non-empty list of names." "20BE") "CKLISTTYPE" ("-->" "Checks for non-empty list of certain type." "1945") "CKSYMBTYPE" ("-->" "Checks for quoted name (name as symbolic)." "1F05") "nmetasyms" ("meta --> meta" "Checks for meta containing %, C%, unit, id, lam or symb." "54C63") "CKNFLOATS" ("-->" "Checks for #n floats (F%) zero = C%0 if at least one float was complex, otherwise it is %0." "19207" :U) "TYPE" ("ob --> #prolog" "Returns address of prolog of object." "03C64") "XEQTYPE" ("ob --> ob %type" "System version of user word TYPE, but this keeps the object." "1CB90") "TYPEREAL?" ("ob --> flag" "" "6216E") "DTYPEREAL?" ("ob --> ob flag" "" "62169") "DUPTYPEREAL?" ("ob --> ob flag" "" "62169") "TYPECMP?" ("ob --> flag" "" "62183") "DUPTYPECMP?" ("ob --> ob flag" "" "6217E") "TYPECSTR?" ("ob --> flag" "" "62159") "DTYPECSTR?" ("ob --> ob flag" "" "62154") "DUPTYPECSTR?" ("ob --> ob flag" "" "62154") "TYPEARRAY?" ("ob --> flag" "" "62198") "DTYPEARRY?" ("ob --> ob flag" "" "62193") "DUPTYPEARRY?" ("ob --> ob flag" "" "62193") "TYPEARRY?" ("ob --> flag ???" "" "62198") "TYPERARRY?" ("ob --> flag" "" "6223B") "TYPECARRY?" ("ob --> flag" "" "62256") "TYPELIST?" ("ob --> flag" "" "62216") "DTYPELIST?" ("ob --> ob flag" "" "62211") "DUPTYPELIST?" ("ob --> ob flag" "" "62211") "TYPEIDNT?" ("ob --> flag" "" "6203A") "DUPTYPEIDNT?" ("ob --> ob flag" "" "62035") "TYPELAM?" ("ob --> flag" "" "6211A") "DUPTYPELAM?" ("ob --> ob flag" "" "62115") "TYPESYMB?" ("ob --> flag" "" "621D7") "DUPTYPESYMB?" ("ob --> ob flag" "" "621D2") "TYPEHSTR?" ("ob --> flag" "" "62144") "DUPTYPEHSTR?" ("ob --> ob flag" "" "6213F") "TYPEGROB?" ("ob --> flag" "" "62201") "DUPTYPEGROB?" ("ob --> ob flag" "" "621FC") "TYPETAGGED?" ("ob --> flag" "" "6222B") "DUPTYPETAG?" ("ob --> ob flag" "" "62226") "TYPEEXT?" ("ob --> flag" "Is ob a unit object?" "6204F") "DUPTYPEEXT?" ("ob --> ob flag" "Is ob a unit object?" "6204A") "TYPEROMP?" ("ob --> flag" "" "621AD") "DUPTYPEROMP?" ("ob --> ob flag" "" "621A8") "TYPEBINT?" ("ob --> flag" "" "6212F") "DUPTYPEBINT?" ("ob --> ob flag" "" "6212A") "TYPERRP?" ("ob --> flag" "" "621C2") "DUPTYPERRP?" ("ob --> ob flag" "" "621BD") "TYPECHAR?" ("ob --> flag" "" "62025") "DUPTYPECHAR?" ("ob --> ob flag" "" "62020") "TYPECOL?" ("ob --> flag" "Is on a secondary?" "621EC") "DTYPECOL?" ("ob --> ob flag" "Is ob a secondary?" "621E7") "DUPTYPECOL?" ("ob --> ob flag" "Is ob a secondary?" "621E7") "?OKINALG" ("ob --> ob flag" "Is object allowed in algebraics?" "26A2D") "Ck&DecKeyLoc" ("%rc.p --> #kc #p" "Converts from user key representation format to system. Does handle shift-hold keys." "41CA2") "CodePl>%rc.p" ("#kc #p --> %rc.p" "Converts from system key representation format to user. Does handle shift-hold keys. " "41D92") "H/W>KeyCode" ("# --> #'" "Converts the keycode offset for shift keys to the keycode of the shift key, i.e. 80h->32d, 40h->37d, C0h->42d" "3FE44") "H/WKey>KeyOb" ("" "" "3FE26") "ModifierKey?" ("#kc #pl --> flag" "Is the key any of the three modifiers right-shift, left-shift, or alpha?" "3FE7B") "KeyOb@" ("--> id/romptr" "Returns the object assigned the the key which caused the current program to be executed, or whatever has been stored with KeyOb!" "40A82") "KeyOb!" ("ob -->" "Store ob as the KeyOb." "40A6F") "KeyOb0" ("-->" "Clear the KeyOb." "40A95") "FLUSH" ("-->" "Flushes the key buffer." "00D71") "FLUSHKEYS" ("-->" "Flushes the key buffer." "00D71") "CHECKKEY" ("--> #kc T --> F" "Returns next key in the key buffer (if there is one), but does not pop it. Does handle shift-hold keys. -- TEXT:Keycodes" "04708") "GETTOUCH" ("--> #kc T --> F" "Pops next key from key buffer (if there is one). Does handle shift-hold keys. -- TEXT:Keycodes" "04714") "GETKEY" ("--> #kc flag" "Get a single keypress from the keybuffer, waits if necessary. The key is returned along with TRUE. If an exception happens, returns FALSE. The exception is not handled. Does handle shift-hold keys. -- TEXT:Keycodes" "42159") "GETKEY*" ("--> #kc T --> F F --> {Alrmlist} T F" "Get a single keypress from the keybuffer, waits if necessary. The key is returned along with TRUE. If an exception happens (error or alarm), the exceptions is handled and the entry returns FALSE. Does handle shift-hold keys. -- TEXT:Keycodes" "420A0") "GetKeyOb" ("--> ob" "Wait for a single key and return the object associated with this key. Does handle shift-hold keys. -- TEXT:Keycodes" "4203C") "DoKeyOb" ("ob -->" "Execute ob as if it had been assigned to a key and the key had been pressed." "40454") "REPKEY?" ("#kc --> flag" "Returns TRUE if the key is being pressed. -- TEXT:Keycodes" "047C7") "REPEATER" ("-->" "Takes two objects from the runstream, a BINT and a program. The BINT must represent a keycode. The program is evaluated at least once, and then again and again as long as the specified key is being pressed. -- TEXT:Keycodes" "40E88") "REPEATERCH" ("-->" "Same as REPEATER, but slower, so more appropriate for scrolling and cursor motions. -- TEXT:Keycodes" "51735") "KEYINBUFFER?" ("--> flag" "Returns TRUE if there is at least a key in the key buffer." "42402") "WaitForKey" ("--> #kc #flag" "Returns next full key press. Does *not* handle shift-hold keys. -- TEXT:Keycodes" "41F65") "Wait/GetKey" ("% --> ?" "Internal WAIT command. Does *not* handle shift-hold keys. -- TEXT:Keycodes" "1A738") "ATTN?" ("--> flag" "Returns TRUE if `CANCEL' has been pressed." "42262") "?ATTN_QUIT" ("-->" "If `CANCEL' has been pressed, ABORTs program." "4243E") "?ATTNQUIT" ("-->" "If `CANCEL' has been pressed, ABORTs program." "4243E") "CK0ATTNABORT" ("-->" "Executed by the UserRPL program delimiters x<< and x>> and by xUNTIL. Mainly just ?ATTNQUIT." "23768") "NoAttn?Semi" ("-->" "If `CANCEL' has been not pressed, drops the rest of the stream." "4245C") "ATTNFLG@" ("--> #" "Recalls `CANCEL' key counter." "05040") "ATTNFLGCLR" ("-->" "Clears `CANCEL' key counter. Does not affect the key buffer." "05068") "DoBadKey" ("-->" "Beeps." "3FDD1") "DropBadKey" ("ob -->" "Beeps." "3FDC7") "2DropBadKey" ("ob ob' -->" "Beeps." "3FDBD") "UserKeys?" ("--> flag" "Does BINT62 TestSysFlag." "41A8D") "GetUserKeys" ("--> {}" "Returns user keys list (internal format). -- TEXT:Reserved|UserKeys" "41F3F") "XEQRclKeys" ("--> {}" "Recalls all key assignments (in user format) plus status of non defined keys. -- TEXT:Reserved|UserKeys" "41C02" :U) "XEQAsnKey" ("ob %rc.p -->" "Assigns an object to a key, specified in user format." "41B28" :U) "StoUserKeypatch" ("ob #kc #p -->" "Assigns an object to a key, specified in system format. If ob is NULL{}, then this actually deletes a key assignment. -- TEXT:Reserved|UserKeys" "41E78" :U) "UserKeys!" ("{} -->" "Stores user keys (list is in internal format). -- TEXT:Reserved|UserKeys" "41F2C" :U) "StoUserKeys" ("{} -->" "Like UserKeys!, but also recalculates CRC. -- TEXT:Reserved|UserKeys" "41E32" :U) "Ck&AsnUKeys" ("{} -->" "Stores user keys (list in user format), recalculates CRC." "41AA1" :U) "DelKey" ("#kc #plane -->" "Deletes that key assignment, recalculates CRC." "41B8C" :U) "XEQDelKeys" ("{} -->" "Deletes specified keys (in user format)." "41B3C" :U) "Ck&ClrUKey" ("0 --> %rc.p -->" "System version of user word DELKEYS: if 0, deletes all keys, otherwise deletes specified key." "41B69" :U) "PgUserKeys" ("-->" "Deletes all user keys." "41F52" :U) "ClrUserKeys" ("-->" "Deletes all user keys and recalculates CRC. -- TEXT:Reserved|UserKeys" "41F13" :U) "NonUsrKeyOK?" ("--> flag" "Returns TRUE if the keys not defined do their normal actions." "3FF75" :U) "SetNUsrKeyOK" ("-->" "Keys not defined do their normal actions." "3FF86" :U) "ClrNUsrKeyOK" ("-->" "Keys not defined just beep when pressed." "3FF97" :U) "Key>StdKeyOb" ("#kc #pl --> ob" "Recalls the standard assignment of the key. This is the assignment which is active when USER mode is of." "3FB1A") "Key>U/SKeyOb" ("#kc #pl --> ob" "If user mode is on, recalls the user object assigned to a key. If user mode is off, recalls the standard assignment instead." "3FA57") "?Key>UKeyOb" ("" "" "3FA7A") "GETDF" ("#menukey --> ob" "Gets the definition of a menu key from THOUCHTAB. #menukey = #1..#6" "04A41") "GETPROC" ("#menukey --> ob" "Gets the definition of a menu key from THOUCHTAB. #menukey = #1..#6. With #7, get the executor." "04A0B") "LabelDef!" ("ob -->" "Store a program which displays a menu label. Prg has the stack diagram ( #col ob \\-> ) For example, the LIBS command uses the following program to make all menu label look like directories: :: DUPNULL$? ITE MakeStdLabel MakeDirLabel Grob>Menu ; During execution, INDEX@ will contain the menu key number." "418F4") "LastMenuDef!" ("menu -->" "Sets the definition of the last menu. menu is a MenuList or a program, or a Rompointer." "419E4") "LastMenuDef@" ("--> menu" "Recalls the definition of the last menu. menu is a MenuList or a program, or a Rompointer." "419F4") "SaveLastMenu" ("-->" "Stores row and definition of current menu as the last menu." "4139B") "LastMenuRow!" ("#n -->" "Sets the row of the last menu. #n is not the row, but the index of the first menu key in that row, i.e. 1,7,13,\\.." "4186E") "LastMenuRow@" ("--> #n" "Recalls the index to the first menu key in the current row of the last menu. Returns 1 for the first page, 7 for the second page, 13 for the third and so on." "41881") "MenuDef@" ("--> menu" "Recalls the current menu definition. menu is a MenuList or a program, or a Rompointer." "418A4") "MenuExitAct!" ("ob -->" "Store ob as exit action." "419C4") "NoExitAction" ("-->" "Sets NOP as ExitAction. Mostly used to avoid that the menu is saved as the previous menu when a new Menu gets installed." "3EC85") "MenuRow!" ("#n -->" "Sets the menu row. #n is not the row, but the index of the first menu key in that row, i.e. 1,7,13,\\.." "41848") "MenuRow@" ("--> #n" "Recalls the index of the first menu key in the current menu page. Returns 1 for the first page, 7 for the second page, 13 for the third and so on." "4185B") "MenuKeyLS!" ("ob --> ob" "Set the action for left-shifted menu keys. The program receives the action part of the menu item as an argument, i.e. {ob-NS ob-LS ob-RS}." "41944") "StdMenuKeyLS" ("{ob-NS ob-LS ob-RS} --> ?" "The content of MenuKeyLS for standard menus." "401D4") "MenuKeyNS!" ("og --> ob" "Set the action for unshifted menu keys. The program receives the action part of the menu item as an argument, i.e. ob-NS or {ob-NS ob-LS ob-RS}." "41914") "MenuKeyNS@" ("--> ob" "Recall the action for unshifted menu keys." "41924") "SetKeysNS" ("ob -->" "Sets ob as MenuKeysNS, DoBadKey to LS & RS." "3FCAF") "StdMenuKeyNS" ("ob-NS --> ? {ob-NS ob-LS ob-RS} --> ?" "The content of MenuKeyNS for standard menus." "4019D") "MenuKeyRS!" ("ob --> ob" "Set the action for right-shifted menu keys. The program receives the action part of the menu item as an argument, i.e. {ob-NS ob-LS ob-RS}." "41964") "SetRebuild" ("-->" "Sets the flag that the menu needs to be rebuild. " "417F3") "ReviewKey!" ("ob -->" "Store a program which is called with the review key (RS DOWN). The program has the stack diagram ( \\-> )" "41984") "MenuRowAct!" ("ob -->" "Stores ob as the RowAct menu property." "418D4") "InitTrack:" ("-->" "Execute the program which is next in the runstream if the directory changes. Used by the VAR menu to set first menurow when diretory changes, or by the CST menu to rebuild it." "41741") "TakeOver" ("-->" "Override the default menu key executer. If this is the first entry in a program, the program can be used in edit mode. When the first in a program in the label slot of a menu key, the program is evaluated to get the label object (most likely a grob)." "40788") "NullMenuKey" ("-->" "A placeholder for an empty menu key when defining menu lists." "3EC71") "Modifier" ("-->" " :: TakeOver ;" "4085A") "MenuMaker" ("--> ob" "Quotes next object, and also provides TakeOver. The disassembly is :: TakeOver 'R ; Normally this is used like this: :: MenuMaker menu InitMenu ;" "407FB") "InitMenu" ("menu -->" "menu is {} or :: settings {} ; Settings override the default settings installed by InitMenu." "40F86") "DoMenuKey" ("menu -->" " :: SetDA12NoCh InitMenu ;" "40DC0") "InitMenu%" ("%mnu.pg --> %0 -->" "" "41679") "GetMenu%" ("--> %" "" "415C9") "StartMenu" ("menu #n -->" "#n is the index of the first menu key on the page, use 1 for the first page, 7 for the second etc. StartMenu does ExitAction (Previous menu!), sets the default menu properties and page. Then it evaluates menu, stores result to MenuKeys and executes SetThisRow." "41008") "SetThisRow" ("-->" "Builds a new TOUCHTAB, SetBadMenu." "410C6") "LoadTouchTbl" ("MenuKey1 .. MenuKeyN #n -->" "Builds new TOUCHTAB from menukeys." "41175") "SysMenuCheck" ("-->" "Checks menu validity. If DA3NoCh? then nothing. If Track? then ?DoTrackAct@. If Rebuild? then SetThisRow." "3866F") "?DispMenu" ("-->" "Redisplays the menu now if no key is waiting in the buffer. Even better is this: :: DA3OK?NOTIT ?DispMenu ;" "3A1CA") "DispMenu.1" ("-->" "Displays menu now." "3A1FC") "DispMenu" ("-->" ":: DispMenu.1 SetDAsValid ;" "3A1E8") "Grob>Menu" ("#col grob -->" "Displays grob as menu label." "3A297") "Str>Menu" ("#col $ -->" "Displays string as menu label." "3A2B5") "Id>Menu" ("#col id -->" "Displays id as menu label." "3A2DD") "Seco>Menu" ("#col :: -->" "Does EVAL then DoLabel." "3A2C9") "DoLabel" ("#col ob -->" "If ob is of one of the supported types, displays a menu label. If not, generates a \"Bad Argument Type\" error." "41904") ">MENU" ("#col grob --> #col $ --> #col id --> #col :: -->" "Works by dispatching the object type." "3A260" :U) "MakeLabel" ("$ #w #x grob --> grob'" "Inserts $ into grob using CENTER$3x5 with y=5." "3A4AB") "CheckMenuRow" ("# --> # #'" "" "41111") "SetSomeRow" ("#n -->" "with Mod(n,FFFFFh)= 0." "3A9E7") "DoMenuKeyNS" ("#n -->" "" "41934") "MenuKey" ("-->" "Takes NOB from Runstream." "40828") "CLEARMENU" ("-->" "" "51125") "CHECKMENU" ("-->" "" "4E266") "nCustomMenu" ("-->" "Installs the CST menu." "7DEE2") "SolvMenuInit" ("-->" "Sets MenuKeyNS/LS/RS, ReviewKey and LabelDef properties needed by the Solver menu." "151A6") "DoSolvrMenu" ("-->" "Installs the solver menu which is also available via 75 MENU." "3BE54") "DoNameKeyLRS" ("" "" "40350") "DoNameKeyRS" ("" "" "40337") "DoFirstRow" ("-->" "Sets the first row of the current menu." "3B211") "DoNextRow" ("" "" "3A71C") "DoPrevRow" ("" "" "3A735") "InputLine" ("args --> $ T --> $ ob1..obn T --> ob1..obn T --> F args = $pr $line #pos #I/R #I/A #alph menu #row attn #parse" "" "42F44") "InputLAttn" ("" "" "43200") "InputLEnter" ("" "" "43179") "DoInputForm" ("l1..ln f1..fm #n #m msg $ --> ob1..obn T --> F\\n l = $ #x #y f = msg #x #y #w #h #type legal dec $hlp ChDat ChDec res init" "Starts an input form using the old engine." "199EB") "~IFMenuRow1" ("--> {}" "Returns the menu for the first menu row of an InputForm." "0050B0") "~IFMenuRow2" ("--> {}" "Returns the menu for the second menu row of an InputForm." "0060B0") "~Choose" ("::Appl $Title ::Convert {} offset --> {}' T --> ob T --> F" "The return value is a list if checkfields are enabled, otherwise it is just the selected object. Only FALSE is returned when the user presses `CANCEL'. -- TEXT:Browser48" "0000B3") "~ChooseMenu0" ("--> {}" "Menus with \"OK\". -- TEXT:Browser48" "0050B3") "~ChooseMenu1" ("--> {}" "Menus with \"CANCL\", \"OK\". -- TEXT:Browser48" "0060B3") "~ChooseMenu2" ("--> {}" "Menus with \"CHK\", \"CANCL\", \"OK\". -- TEXT:Browser48" "0070B3") "~ChooseSimple" ("$title {items} --> ob T --> F" "Simple interface to the HP48 choose engine. On the HP49G, calls ^RunChooseSimple. -- TEXT:Browser48" "0660B3") "DoCKeyCheck" ("-->" "Toggle check on current item. -- TEXT:Browser48" "02A0B3" :UBS) "DoCKeyChAll" ("-->" "Check all elements. -- TEXT:Browser48" "02B0B3" :UBS) "DoCKeyUnChAll" ("-->" "Uncheck all items. -- TEXT:Browser48" "02C0B3" :UBS) "DoCKeyCancel" ("-->" "Simulate Cancel. -- TEXT:Browser48" "02D0B3" :UBS) "DoCKeyOK" ("-->" "Simulate OK. -- TEXT:Browser48" "02E0B3" :UBS) "LEDispPrompt" ("-->" "Redraw title. -- TEXT:Browser48" "0300B3" :UBS) "LEDispList" ("-->" "Redraw browser lines. -- TEXT:Browser48" "0350B3" :UBS) "LEDispItem" ("# -->" "Redraw one line. -- TEXT:Browser48" "0360B3" :UBS) "~BBMoveTo" ("# -->" "Moves selection to line and updates display. -- TEXT:Browser48" "0150B3" :UBS) "~BBRecalOff&Disp" ("flag -->" "Recalculates offset of selected item in page, and redraws lines if the flag is TRUE. -- TEXT:Browser48" "0190B3" :UBS) "~BBRunEntryProc" ("-->" "Sends message 85 to ::Appl, thus running the user-defined start-up procedure. -- TEXT:Browser48" "0220B3" :UBS) "~BBReReadPageSize" ("-->" "Re-reads the size of the page (message 57). -- TEXT:Browser48" "0230B3" :UBS) "~BBReReadHeight" ("-->" "Re-reads the height of the browser line (message 58). -- TEXT:Browser48" "0240B3" :UBS) "~BBReReadCoords" ("-->" "Re-reads the coordinates of the browser box (message 63). -- TEXT:Browser48" "0250B3" :UBS) "~BBReReadWidth" ("-->" "Re-reads the width of the browser line (message 59). -- TEXT:Browser48" "0260B3" :UBS) "~BBRunENTERAction" ("-->" "Sends message 96 to ::Appl, thus running the OK action. It does not check the value returned and never exits. -- TEXT:Browser48" "0280B3" :UBS) "~BBRunCanclAction" ("-->" "Sends message 91 to ::Appl, thus running the `CANCEL' action. It does not check the value returned and never exits. -- TEXT:Browser48" "0290B3" :UBS) "~BBReDrawBackgr" ("-->" "Redraws the background. -- TEXT:Browser48" "02F0B3" :UBS) "~BBGetNGrob" ("#n --> grob" "Returns nth element as a grob. -- TEXT:Browser48" "0370B3" :UBS) "~BBGetNStr" ("#n --> $" "Returns nth element as a string. -- TEXT:Browser48" "0380B3" :UBS) "~BBRereadChkEnbl" ("-->" "Re-reads whether checkmarks are enabled. (Message 61). -- TEXT:Browser48" "03B0B3" :UBS) "~BBRereadFullScr" ("-->" "Re-reads whether to use full-screen mode. (Message 60). -- TEXT:Browser48" "03C0B3" :UBS) "~BReReadMenus" ("-->" "Re-reads the menu. (Message 83). -- TEXT:Browser48" "03D0B3" :UBS) "~BBReReadNElems" ("-->" "Re-reads the number of elements. (Message 62). -- TEXT:Browser48" "03E0B3" :UBS) "~BBGetN" ("#n --> ob" "Returns nth element. -- TEXT:Browser48" "03F0B3" :UBS) "~BBIsChecked?" ("#n --> flag" "Returns whether the given element is checked. -- TEXT:Browser48" "04B0B3" :UBS) "~BBUpArrow" ("--> grob" "Returns up arrow as grob -- TEXT:Browser48" "0520B3" :UBS) "~BBDownArrow" ("--> grob" "Returns down arrow as grob -- TEXT:Browser48" "0530B3" :UBS) "~BBSpace" ("--> grob" "Returns a space as grob. -- TEXT:Browser48" "0540B3" :UBS) "~BBPgDown" ("-->" "Go down one page. -- TEXT:Browser48" "0590B3" :UBS) "~BBPgUp" ("-->" "Go up one page. -- TEXT:Browser48" "05A0B3" :UBS) "~BBEmpty?" ("--> flag" "Returns TRUE if the browser has no elements. -- TEXT:Browser48" "05B0B3" :UBS) "~BBGetDefltHeight" ("--> #" "Returns height of lines based on the font that will be used. This value is the default height of the browser. Equivalent to FPTR 2 64. -- TEXT:Browser48" "05C0B3" :UBS) "~BRbrowse" ("" "" "0100E0") "BRDispItems" ("" "" "0450E0") "BRdone" ("" "" "0130E0") "BRGetItem" ("" "" "0530E0") "BRinverse" ("" "" "0490E0") "~BRoutput" ("" "" "0120E0") "BrowseMem.1" ("" "" "0B41D8") "~BRRclC1" ("-->" " :: LAM 'BR5 ;" "0180E0") "~BRRclCurRow" ("" " :: LAM 'BR3 ;" "0170E0") "~BRStoC1" ("" " :: ' LAM 'BR5 STO ;" "0030E0") "BRViewItem" ("" "" "0520E0") "sysCHOOSE" ("$title {} %sel --> ob %1 $title {} %sel --> %0" "Equivalent to User RPL CHOOSE command. -- TEXT:Browser49" "0600B3" :UBS) "ParOuterLoop" ("Disp Keys NonAppKeys? DoStdKeys? menu #row suspendOK? ExitCond AppErr -->" "" "38985") "POLSaveUI" ("Disp Keys NonAppKeys? DoStdKeys? menu #row suspendOK? ExitCond AppErr -->" "Saves current UI to LAMSavedUI." "389BC") "POLSetUI" ("ParOuterLoop" "Sets new UI, same arguments as to ParOuterLoop." "38A64") "POLKeyUI" ("-->" "Displays, reads and evaluates keys according to set UI. " "38AEB") "1POLKeyUI" ("-->" "Executes UI once, doesn't check exit condition." "38B09" :U) "POLKeyErr" ("-->" "Handles error caused by a key press." "38B45" :U) "POLSet&KeyUI" ("ParOuterLoop" " :: POLSetUI POLKeyUI ;" "38994" :U) "POLRestoreUI" ("-->" "Restores saved UI from LAMSavedUI." "38B90") "POLResUI&Err" ("-->" "Restores saved UI and executes ERRJMP." "38B77") "RclUI" ("" "Recalls current ParOuterLoop UI" "389CB" :U) "RclHPUI" ("" "Recalls system UI." "38A11" :U) "NormAppFlags" ("" "Sets default application flags." "38BD6" :U) "SavedUILS" ("" "{ LAMSavedUI }" "38A3E" :U) "LAMSavedUI" ("" "" "38A3E" :U) "AppDisplay!" ("ob -->" "" "38C08") "AppDisplay@" ("-->" "" "38C18") "NoAppDisplay!" ("" "" "38C28" :U) "AppKeys!" ("ob -->" "" "38C38") "AppKeys0" ("???" "" "38C58") "AppKeys@" ("" "" "38C48" :U) "NoAppKeys!" ("" "" "38C58" :U) "AppExitCond!" ("ob -->" "" "38C68") "AppExitCond@" ("--> ob" "" "38C78") "NoAppExitCnd!" ("" "" "38C88" :U) "AppError!" ("ob -->" "" "38C98") "AppError@" ("--> ob" "" "38CAB") "NoAppError!" ("-->" "" "38CBE" :U) "AppError?" ("--> flag" "" "38CD1" :U) "SetAppError" ("-->" "" "38CDF" :U) "ClrAppError" ("-->" "" "38CED" :U) "AppMode?" ("--> flag" "Is currently a POL active?" "38CFB") "SetAppMode" ("-->" "" "38D09") "ClrAppMode" ("-->" "" "38D17") "NAppKeyOK?" ("--> flag" "" "38D25" :U) "SetNAppKeyOK" ("-->" "" "38D33") "ClrNAppKeyOK" ("-->" "" "38D41" :U) "DoStdKeys?" ("--> flag" "" "38D4F" :UBS) "SetDoStdKeys" ("-->" "" "38D5D") "ClrDoStdKeys" ("-->" "" "38D6B" :U) "SuspendOK?" ("--> flag" "Does the current user interface allow suspension?" "1446F") "nohalt" ("--> ob" " :: LAM 'nohalt ;" "14483") "AppSuspOK?" ("-->" "" "38D79" :U) "SetAppSuspOK" ("-->" "" "38D8A") "ClrAppSuspOK" ("-->" "" "38D9B") "InitPOLVars" ("" "" "38BD6" :UBS) "EditLExists?" ("--> flag" "Does an EditLine exist?" "53A4A") "NoEditLine?" ("--> flag" "Does no EditLine exist?" "4488A") "EDITLINE$" ("--> $" "Returns a copy of the current command line to the stack. Same as RCL_CMD." "44683") "CURSOR@" ("--> #" "Recalls the current cursor position." "13EF1" :UBS) "CURSOR_END?" ("--> flag" "Checks if the cursor is at the end of a line or at the end of the file. Works by checking the current character against newline and CHR_00." "444A5") "FIRSTC@" ("--> #" "Column of the left display window edge." "11432" :UBS) "FIRSTC+" ("-->" "Increases the position of the left window ege by one." "11462" :UBS) "SETFIRSTC_0" ("-->" "Sets the position of the left display window edge to zero." "11442" :UBS) "CURSOR_OFF" ("--> #" "Cursor column relative to left edge of display window." "13E85") "CURSOR_OFF+" ("-->" "Increases the CURSOR offset by one." "13ED2" :UBS) "CURSOR_OFF0" ("-->" "Sets the cursor offset to zero." "13EBC" :UBS) "InsertEcho" ("$ -->" "Inserts string at current cursor position in EditLine." "42CFB" :UBS) "Echo$Key" ("$/chr -->" "Same as CMD_PLUS." "42BD4") "EchoChrKey" ("$/chr -->" "Same as CMD_PLUS, but first ?TogU/LCase." "42AE4") "Echo$NoChr00" ("$ -->" "Inserts string at current cursor position in EditLine." "42BB6") "DoDelim" ("-->" "Takes a character or string from the runstream and inserts it." "40DD4") "DoDelims" ("-->" "Takes a character or a string from the runstream, inserts it and moves the cursor back by one character." "40DF7") "INSERT_MODE" ("-->" "Turns insert mode on. In insert mode, new characters do not overwrite old ones." "53A2E") "?TogU/LCase" ("chr --> chr'" "Toggle upper/lowercase of character if some condition is fulfilled." "448C1") "INSERT?" ("--> flag" "Returns TRUE if insert mode is active." "53A3C") "SetCursor" ("# --> {# #'} -->" "Sets the cursor to the given position. For the list argument, the numbers are row and column. " "4325A") "SETCURSOR" ("" "" "13F29" :UBS) "ViewLevel1" ("ob --> ob'" "Edits the object in level 1." "42D46") "Char>Edit" ("" "" "444EE") "CharEdit" ("" "" "42D82") "ClrNewEditL" ("" "" "53A90") "EditLevel1" ("ob --> ob'" "" "42D32") "ObEdit" ("ob --> ob' T --> F" "Edits object. When the user cancels, only FALSE is returned. Otherwise the changed object along with TRUE is returned." "42DC8") "EditString" ("$ -->" "Starts editing the string in the command line when the current program exits. This is the entry to use if a program should exit with the command line. Use InitEdLine before this entry to clear the command line (if desired) - if not, the string is inserted into the existing command line. All code after this entry will be executed *before* control is handed to the editor application. For example: :: \"SOME STRING\" DUPLEN$ SWAP (get length) InitEdLine (clear the editline) EditString (string to editline) STO_CURS_POS2 (cursor at end) \"Starting editor...\" FlashMsg (display *before* edit) ; Note that when you press ENTER after editing, the command line will be parsed normally." "443CB") "Rcl&Do:" ("id -->" "Executes the program which is next in the runstream on the contents of the variable. The program typically is an edit command, with the stack diagrams ( ob \\-> ob' T ) ( ob \\-> F ) If the flag is TRUE, ob' is stored back into the original variable." "42E86") "Roll&Do:" ("# -->" "Does ROLL and then executes the program which is next on the runsteam. So the program is applied to the object on level #. Typically, this is an edit command, with the stack diagram ( ob \\-> ob ) After the program exits, UNROLL is used to put the object back to the right stack position. This entry is probably used in the interactive stack." "42E27") "EditMenu" ("--> {}" "Returns the Editor menu." "3BDFA") " {}" "Returns the `\\<-DEL' menu key." "3E3E1") ">DelKey" ("--> {}" "Returns the `DEL\\->' menu key." "3E4CA") " {}" "Returns the `\\<-SKIP' menu key." "3E2DD") ">SkipKey" ("--> {}" "Returns the `SKIP\\->' menu key." "3E35F") "InitEd&Modes" ("-->" ":: InitEdLine InitEdModes ;" "44277") "InitEdLine" ("-->" " :: DEL_CMD ;" "4428B") "InitEdModes" ("-->" "" "44394") "SaveLastEdit" ("$ -->" "Calls CMD_STO if history is on." "40C76") "CMDSTO" ("$ -->" "Adds string to the list of the last 4 commands, accessible with the `CMD' key." "40C94") "DoNewMatrix" ("--> []/[[]]" "Start matrix editor to enter a new matrix. " "44C31") "DoOldMatrix" ("[] --> []'" "Edit an existing matrix." "44FE7") "TOADISP" ("-->" "Sets the text display as the active." "1314D") "TOGDISP" ("-->" "Sets the graphic display as the active." "13135") "GDISPON?" ("--> flag" "Returns a flag indicating whether the graphic display is active." "13167" :U) "ABUFF" ("--> textgrob" "Returns the text grob to the stack." "12655") "GBUFF" ("--> graphgrob" "Returns the graphic grob to the stack. The HP49 extable address for ExitAction! is the same, but this must be a bug." "12665") "HARDBUFF" ("--> dispgrob" "Returns the current grob to the stack." "12635") "HARDBUFF2" ("--> menugrob" "Returns the menu grob to the stack." "12645") "HBUF_X_Y" ("--> HBgrob #x #y" "" "0E128") "HARDHEIGHT" ("--> #height" "Returns the height of HARDBUFF." "12B6C") "HBUFFDIMw" ("--> #width" "" "12B58" :U) "GBUFFGROBDIM" ("--> #height #width" "Returns dimensions of graphic grob." "5187F") "RECLAIMDISP" ("-->" "Activates the text grob, clears it and sets the default size." "130AC") "ClrDA1IsStat" ("-->" "Suspends clock display." "39531") "MENUOFF?" ("--> flag" "Returns TRUE if the menu grob is off." "4E360") "TURNMENUOFF" ("-->" "Turns off menu display, enlarges ABUFF to fill screen." "4E2CF") "TURNMENUON" ("-->" "Turns menu grob on." "4E347") "MENUOFF" ("-->" "" "4E2AC") "RSZVDISP" ("-->" "Sets standard size for currently displayed grob." "130CA" :U) "BROADENHBUFF" ("#cols -->" "Broadens currently displayed grob." "1297D" :U) "HEIGHTENHBUFF" ("#rows -->" "Heightens currently displayed grob." "12964" :U) "BROADENGROB" ("grob #cols -->" "Broadens graph or text grob." "12BB7" :U) "HEIGHTENGROB" ("grob #rows -->" "Heightens graph or text grob." "12DD1") "KILLADISP" ("-->" "Clears text display." "13043" :U) "KILLGDISP" ("-->" "Clears graph display by setting it to NULLGROB. See DOERASE." "13061") "DOERASE" ("-->" "Erases the graphics display grob without changing its size." "4B60C") "SysDisplay" ("-->" "Redisplays all required areas. Does it immediately, without waiting for the current command to finish." "386A1") "DispEditLine" ("-->" "Just calls DispCommandLine." "3A00D") "?DispStack" ("-->" "Redisplays the stack now if necessary." "39B85") "?DispStatus" ("-->" "Redisplays the status area now if necessary." "3959C") "DispStatus" ("-->" "Displays the status area now." "395BA") "DispStsBound" ("-->" "Displays a horizontal line at y=14, normally the separation between header and stack." "39B0A") "DispTime?" ("" "" "39515" :UBS) "DispTimeReq?" ("--> flag" "Is time display required? Checks system flag 40 and something else." "39AF1") "DispDir?Tim1" ("" "" "398F4") "DispDir?Tim2" ("" "" "39958") "DispDir?Time" ("" "" "3988B") "DispILPrompt" ("-->" "Redisplays the QInputLineQ prompt, i.e. refreshes the region between the command line and the header during InputLine. Requires a string (the prompt) in 4LAM." "430CF") "ClrDA1OK" ("-->" "" "390CC") "ClrDA2aOK" ("-->" "" "390E5") "ClrDA2bOK" ("-->" "" "390FE") "ClrDA2OK" ("-->" "" "39117") "ClrDA3OK" ("-->" "" "3912B") "ClrDAsOK" ("-->" "" "39144") "DA1OK?" ("--> flag" "" "38DAC") "DA2aOK?" ("--> flag" "" "38DFC" :U) "DA2bOK?" ("--> flag" "" "38E4C" :U) "DA2OK?" ("--> flag" "" "38E9C" :U) "DA3OK?" ("--> flag" "" "38EB5") "DAsOK?" ("--> flag" "" "38F05" :U) "DA2aLess1OK?" ("--> flag" "" "38FB9") "DA1OK?NOTIT" ("-->" "Does DA1OK?, NOT then IT." "38F28") "DA2aOK?NOTIT" ("-->" "DA2aOK?, NOT then IT." "38F41") "DA2bOK?NOTIT" ("-->" "DA2bOK?, NOT then IT." "38F5A") "DA3OK?NOTIT" ("-->" "Does DA3OK?, NOT then IT." "38F73") "SetDA1Temp" ("-->" "" "3902C") "SetDA2aTemp" ("-->" "" "39045") "SetDA2bTemp" ("-->" "" "39059") "ClrDA2bTemp" ("-->" "" "3938D" :UBS) "SetDA2OKTemp" ("-->" "" "39207") "SetDA3Temp" ("-->" "" "39072") "SetDA12Temp" ("-->" "" "3921B") "SetDAsTemp" ("-->" "" "3922F") "SetDA1TempF" ("-->" "" "3932B" :U) "ClrDA1TempF" ("-->" "" "39339" :U) "DA1TempF" ("-->" "" "3931D" :U) "SetDA2aTempF" ("-->" "" "39355" :U) "ClrDA2aTempF" ("-->" "" "39363" :U) "DA2aTempF?" ("--> flag" "" "39347" :U) "SetDA2bTempF" ("-->" "" "3937F" :UBS) "ClrDA2bTempF" ("-->" "" "3938D" :U) "DA2bTempF?" ("--> flag" "" "39371" :U) "SetDA3TempF" ("-->" "" "393A9" :U) "ClrDA3TempF" ("-->" "" "393B7" :U) "DA3TempF?" ("--> flag" "" "3939B" :U) "SetDA1Valid" ("-->" "" "38FD2") "SetDA2aValid" ("-->" "" "38FEB") "SetDA2bValid" ("-->" "" "38FFF") "SetDA2Valid" ("-->" "" "3915D") "SetDA3Valid" ("-->" "" "39018") "SetDAsValid" ("-->" "" "39171" :U) "SetDA1ValidF" ("-->" "" "39283" :U) "ClrDA1ValidF" ("-->" "" "39291" :U) "DA1ValidF?" ("--> flag" "" "39275" :U) "SetDA2aValidF" ("-->" "" "392AD" :U) "ClrDA2aValidF" ("-->" "" "392BB" :U) "DA2aValidF?" ("--> flag" "" "3929F" :U) "SetDA2bValidF" ("-->" "" "392D7" :U) "ClrDA2bValidF" ("-->" "" "392E5" :U) "DA2bValidF?" ("--> flag" "" "392C9" :U) "SetDA3ValidF" ("-->" "" "39301") "ClrDA3ValidF" ("-->" "" "3930F" :U) "DA3ValidF?" ("--> flag" "" "392F3" :U) "DAsBad?" ("--> flag" "Is any DA \"Bad\"?" "39248" :U) "SetDA1Bad" ("-->" "" "3947B") "SetDA1BadT" ("--> T" "( SetDA1Bad TRUE )" "38DE8" :U) "ClrDA1Bad" ("-->" "" "39489") "DA1Bad?" ("--> flag" "" "3946D" :U) "SetDA2aBad" ("-->" "" "394A5") "SetDA2aBadT" ("--> T" "( SetDA2aBad TRUE )" "38E38" :U) "ClrDA2aBad" ("-->" "" "394B3") "DA2aBad?" ("--> flag" "" "39497") "SetDA2bBad" ("-->" "" "394CF") "SetDA2bBadT" ("--> T" "( SetDA2bBad TRUE )" "38E88" :U) "ClrDA2bBad" ("-->" "" "394DD") "DA2bBad?" ("--> flag" "" "394C1" :UBS) "SetDA3Bad" ("-->" "" "394F9") "SetDA3BadT" ("--> T" "( SetDA3Bad TRUE )" "38EF1" :U) "ClrDA3Bad" ("-->" "" "39507") "DA3Bad?" ("--> flag" "" "394EB" :UBS) "SetDA1NoCh" ("-->" "" "393D3") "ClrDA1NoCh" ("-->" "" "393E1" :U) "DA1NoCh?" ("--> flag" "" "393C5" :U) "SetDA2aNoCh" ("-->" "" "393FD") "ClrDA2NoCh" ("-->" "" "3940B" :U) "DA2aNoCh?" ("--> flag" "" "393EF" :U) "SetDA2bNoCh" ("-->" "" "39427") "ClrDA2bNoCh" ("-->" "" "39435" :U) "DA2bNoCh?" ("--> flag" "" "39419") "SetDA2NoCh" ("-->" "" "3918A") "SetDA12NoCh" ("-->" "" "3919E") "SetDA3NoCh" ("-->" "" "39451") "ClrDA3NoCh" ("-->" "" "3945F" :U) "DA3NoCh?" ("--> flag" "" "39443" :U) "SetDA13NoCh" ("-->" "" "391C6") "SetDA23NoCh" ("-->" "" "391B2") "SetDA12a3NoCh" ("-->" "" "391DA" :UBS) "SetDA12a3NCh" ("-->" "" "391DA" :UBS) "SetDA123NoCh" ("-->" "" "391EE") "SetDAsNoCh" ("-->" "" "391EE" :UBS) "SetDA2Echo" ("-->" "" "39086") "SetDA2aEcho" ("-->" "" "39086") "SetDA1IsStat" ("-->" "" "39523") "SetNoRollDA2" ("-->" "" "3957A") "ClrNoRollDA2" ("-->" "" "3958B") "NoRollDA2?" ("--> flag" "" "39569" :U) "?SetEditRoll" (":: EditExst?NOT ITE SetDA2RollF SetDA2aNoCh ;" "" "39086" :U) "DA1IsStat?" ("--> flag" "" "39515" :U) "DA1IsStatus?" ("--> flag" "" "39515" :UBS) "SetDA2bIsEdL" ("-->" "" "3954D" :UBS) "DA2bIsEdL?" ("--> flag" "" "3953F" :UBS) "ClrDA2bIsEdL" ("-->" "" "3955B" :UBS) "SetDA2bEdit" ("-->" "" "3954D" :U) "ClrDA2bEdit" ("-->" "" "3955B" :U) "DA2bEdit?" ("--> flag" "" "3953F" :U) "MENoP&FixDA1" ("" "" "390A4") "MENP&FixDA12" ("" "" "390B3") "InitDispModes" ("-->" "" "38F8C" :U) "Ck&Freeze" ("% -->" "Internal FREEZE." "142FB") "BLANKIT" ("#startrow #rows -->" "Clears #rows from HARDBUFF, starting at #startrow." "126DF") "CLEARVDISP" ("-->" "Clears HARDBUFF." "134AE") "Clr8" ("-->" "Clears top eight rows (first status line)." "0E083") "Clr8-15" ("-->" "Clears 2nd status line." "0E097") "Clr16" ("-->" "Clears top 16 rows." "0E06F") "BlankDA1" ("-->" "Clears status area from HARDBUFF." "3A546") "BlankDA2a" ("-->" "Clears display area DA2a." "3A591") "BlankDA2" ("-->" "Clears display areas DA2a and DA2b." "3A55F") "BlankDA12" ("-->" "Clears display areas DA1 and DA2" "3A578") "CLCD10" ("-->" "Clears status and stack areas." "01F6D") "CLEARLCD" ("-->" "Clears whole display." "01FA7") "DOCLLCD" ("-->" "Like user word CLLCD." "5046A") "SetLeftAnn" ("-->" "Sets left-shift annunciator." "11361") "ClrLeftAnn" ("-->" "Clears left-shift annunciator." "1136E") "SetRightAnn" ("-->" "Sets right-shift annunciator." "11347") "ClrRightAnn" ("-->" "Clears right-shift annunciator." "11354") "SetAlphaAnn" ("-->" "Sets alpha annunciator." "1132D") "ClrAlphaAnn" ("-->" "Clears alpha annunciator." "1133A") "SetLock" ("-->" "Sets alpha mode." "11543" :U) "ClrLock" ("-->" "Clears alpha mode." "1156C" :U) "LockAlpha" ("-->" "Sets alpha mode, annunciators, etc." "40D25") "UnLockAlpha" ("-->" "Clears alpha mode, annunciators, etc." "40D39") "Lock?" ("--> flag" "Is alpha mode set?" "11501" :U) "ClrBusyAnn" ("-->" "Clears the busy annunciator." "11320" :U) "SetPrgmEntry" ("-->" "Sets program-entry mode." "11533") "ClrPrgmEntry" ("-->" "Clears program-entry mode." "1155C" :U) "PrgmEntry?" ("--> flag" "Is program-entry mode set?" "11511") "Do1st/1st+:" ("--> :: ob1 ; (PRG mode) --> :: ob1 (no PRG mode)" "If in program mode, executes only the next object after it. If not, execution continues normally." "3EDF2" :U) "Do1st/2nd+:" ("--> :: ; (PRG mode) --> :: ; (no PRG mode)" "If in program mode, executes the next object after it. If not in program mode, executes the rest of the stream starting at the second object after it." "3EE1A") "SetAlgEntry" ("-->" "Sets algebraic-entry mode." "53976") "ClrAlgEntry" ("-->" "Clears algebraic-entry mode." "53984") "AlgEntry?" ("--> flag" "Is algebraic-entry mode set?" "53968") "ImmedEntry?" ("--> flag" "Returns TRUE if immediate-entry mode (program and algebraic-entry modes cleared)." "408AA") "?ClrAlg" ("-->" "Clears AlgEntry mode if set." "40E3D") "?ClrAlgSetPr" ("-->" "Clears AlgEntry mode if set and sets ProgramEntry mode." "40E5B") "TOP8" ("--> HBgrob #x1 #y #x1+131 #y1+8" "Returns coordinates of first status line." "0E0D3") "Rows8-15" ("--> HBgrob #x1 #y1+8 #x1+131 #y1+16" "Returns coordinates of second status line." "0E0FB") "TOP16" ("--> HBgrob #x1 #y1 #x1+131 #y1+16" "Returns coordinates of status area." "0E0AB") "WINDOWCORNER" ("--> #y #x" "Gets coordinates of corner of window. Note the order of #x and #y." "137B6") "HBUFF_X_Y" ("--> HBgrob #x #y" "Returns current grob and window coordinates." "0E128") "LEFTCOL" ("--> #x" "Gets x-coordinate of left column." "515FA") "RIGHTCOL" ("--> #x" "Gets x-coordinate of right column." "5160E") "TOPROW" ("--> #y" "Gets y-coordinate of top row." "515A0") "BOTROW" ("--> #y" "Gets y-coordinate of bottom row." "515B4") "WINDOWXY" ("#y #x -->" "Sets corner coordinates. The name really should be WINDOWYX" "13679") "REDISPHBUFF" ("-->" "Sets #0 and #0 as window corner coordinates." "13695" :U) "WINDOWUP" ("-->" "Moves display one pixel up." "131C8") "WINDOWDOWN" ("-->" "Moves display one pixel down." "13220") "WINDOWLEFT" ("-->" "Moves display one pixel left." "134E4") "WINDOWRIGHT" ("-->" "Moves display one pixel right." "1357F") "SCROLLUP" ("-->" "Moves display one pixel up, checks for corresponding key being pressed." "4D132") "SCROLLDOWN" ("-->" "Moves display one pixel down, checks for corresponding key being pressed." "4D16E") "SCROLLLEFT" ("-->" "Moves display one pixel left, checks for corresponding key being pressed." "4D150") "SCROLLRIGHT" ("-->" "Moves display one pixel right, checks for corresponding key being pressed." "4D18C") "JUMPTOP" ("-->" "Jumps to top of display." "51690") "JUMPBOT" ("-->" "Jumps to bottom of display." "516AE") "JUMPLEFT" ("-->" "Jumps to left of display." "516E5") "JUMPRIGHT" ("-->" "Jumps to right of display." "51703") "WINDOWTOP?" ("--> flag" "Is window at the top?" "5162C") "WINDOWBOT?" ("--> flag" "Is window at the bottom?" "51645") "WINDOWLEFT?" ("--> flag" "Is window at the left?" "5165E") "WINDOWRIGHT?" ("--> flag" "Is window at the right?" "51677") "ScreenUpN" ("(#n --> ) moves stk displ up #n lines" "( #n ) Moves stack display up #n lines." "12996" :U) "ScreenDnN" ("(#n --> ) moves stk displ down #n lines" "( #n ) Moves stack display down #n lines." "12A4A" :U) "ScreenUp" ("moves stk displ up 1 line" "Moves stack display up one line." "12A0D" :U) "ScreenDn" ("moves stk displ down 1 line" "Moves stack display down one line." "12AF6" :U) "sstDISP" ("ob -->" "Displays ob in status line. Used for single stepping during debugging." "14C17") "WINDOW#" ("#x #y -->" "Internal PVIEW, displays PICT starting at the given coordinates. " "4F052") "DODISP" ("ob %row -->" "Displays any object in specified row." "140AB") "BIGDISPROW1" ("$ -->" "" "1245B") "DISP@01" ("$ -->" "" "1245B") "DISPROW1" ("$ -->" "" "1245B") "DISPROW1*" ("$ -->" "Displays relative to window corner." "12725") "DISPROW1*!" ("$ -->" "Does Clr8 then DISPROW1*." "0E029") "BIGDISPROW2" ("$ -->" "" "1246B") "DISP@09" ("$ -->" "" "1246B") "DISPROW2" ("$ -->" "" "1246B") "DISPROW2*" ("$ -->" "Displays relative to window corner." "12748") "BIGDISPROW3" ("$ -->" "" "1247B") "DISP@17" ("$ -->" "" "1247B") "DISPROW3" ("$ -->" "" "1247B") "BIGDISPROW4" ("$ -->" "" "1248B") "DISP@25" ("$ -->" "" "1248B") "DISPROW4" ("$ -->" "" "1248B") "DISPROW5" ("$ -->" "" "1249B") "DISPROW6" ("$ -->" "" "124AB") "DISPROW7" ("$ -->" "" "124BB") "DISPROW8" ("$ -->" "May not be possible depending on the size of the font and whether the menu is on or off." "124CB") "BIGDISPN" ("$ #row -->" "" "12429") "DISPN" ("$ #row -->" "" "12429") "Disp5x7" ("$ #start #max -->" "Displays string on multiple lines, starting at #start and no using more than #max rows. New lines must be manually specified. Segments longer than 22 characters are truncated and appended with \"...\"." "3A4CE") "Blank&GROB!" ("$ #x #x1 #x2 -->" "Clears HARDBUFF between (#x1, 0) and (#x2, 6). Converts string to grob with small characters and displays it at (#x, 0)." "39632") "Save16" ("--> grob" "Returns top 16 rows." "0E047" :U) "Restore16" ("grob -->" "Restores top 16 rows." "0E05B" :U) "DISPSTATUS2" ("$ -->" "Displays message in status area using two lines." "1270C") "DispCoord1" ("$ -->" "Displays $ in menu grob using minifont." "4E6EF") "DISPCOORD2" ("$ -->" "Displays $ in menu grob using minifont and waits for a key. Then refreshes menu display. " "4A055") "FlashMsg" ("$ -->" "Displays message in status area, then restores it to normal." "12B85") "FlashWarning" ("$ -->" "Displays message in a message box and beeps. Waits for OK to be pressed." "38926") "DoAlert" ("$ -->" "Displays alert messagebox, a message box with a little alert grob in the upper left corner." "0910B0") "DoWarning" ("$ -->" "Displays message, beeps and freezes status area." "38908") "Ck&DoMsgBox" ("$ -->" "Displays a message box and waits for the user to press OK." "00E0B1") "~DoMsgBox" ("$ #x #y grob menu --> T" "Displays a message box with a grob in the upper left corner and the specified menu. If no grob is desired, use MINUSONE. The meaning of #x and #y is unclear - it seems that any BINT will do." "0000B1") "~MsgBoxMenu" ("--> {}" "The messsage box menu, with just the OK key." "0020B1") "NULLPAINT" ("--> grob" "0x0 Null grob" "505B2" :U) "CURSOR1" ("--> grob" "6x10 Insert cursor (arrow)" "13D8C") "CURSOR2" ("--> grob" "6x10 Replace cursor (solid box)" "13DB4") "SmallCursor" ("--> grob" "4x6 Cursor (box outline)" "66EF1") "MediumCursor" ("--> grob" "6x8 Cursor (box outline)" "66ECD") "BigCursor" ("--> grob" "6x10 Cursor (box outline)" "66EA5") "LineGrob" ("131x2 line" "131x2 Line (status area divider)" "39B2D" :U) "NullMenuLbl" ("21x8 normal menu key" "" "3A337" :U) "BoxLabelGrob" ("21x8 menu key with box" "" "3A399" :U) "DirLabelGrob" ("21x8 directory menu key" "" "3A3FB" :U) "InvLabelGrob" ("21x8 inverse menu key" "" "3A45D" :U) "~grobAlertIcon" ("9x9 Alert grob" "" "0850B0") "~grobCheckKey" ("21x8 Check Key menu grob" "A tickmark and \"CHK\" in a menu grob." "0860B0") "GROBDIM" ("grob --> #height #width" "" "50578") "DUPGROBDIM" ("grob --> grob #height #width" "" "5179E") "GROBDIMw" ("grob --> #width" "" "63C04") "CKGROBFITS" ("g1 g2 #n #m --> g1 g2' #n #m" "Shrinks g2 if it does not fit in g1." "4F7E6") "CHECKHEIGHT" ("grob #height -->" "Forces grob (ABUFF/GBUFF) to be at least 64 rows high." "511E3") "GROB!" ("grob1 grob2 #x #y -->" "Stores grob1 into grob2. Bang type." "11679") "GROB+#" ("flag grob1 grob2 #x #y --> grob'" "Inserts grob2 into the specified position of grob1, using QORQ (if flag is TRUE) or QXORQ (if flag is FALSE). Does all necessary checks first." "4F78C") "GROB!ZERO" ("grob #x1 #y1 #x2 #y2 --> grob'" "Blanks a rectangular region of the grob. Bang type." "11A6D") "GROB!ZERODRP" ("grob #x1 #y1 #x2 #y2 -->" "Blanks a rectangular region of the grob. Probably only useful if grob is the text or graphics grob (see section on display-organization). Bang type." "6389E") "SUBGROB" ("grob #x1 #y1 #x2 #y2 --> grob'" "Returns specified portion of grob." "1192F") "XYGROBDISP" ("#x #y grob -->" "Stores grob in QHARDBUFFQ with upper left corner at (#x,#y). QHARDBUFFQ is expanded if necessary." "128B0") "GROB>GDISP" ("grob -->" "Stores new graph grob." "12F94") "MAKEGROB" ("#height #width --> grob" "Creates a blank grob." "1158F") "MAKEPICT#" ("#w #h -->" "Creates blank graph grob. Minimum size is 131x64. Smaller grobs will be automatically resized." "4B323") "INVGROB" ("grob --> grob'" "Inverts grob data bits. Bang type." "122FF") "PIXON" ("#x #y -->" "Sets pixel in text grob." "1384A") "PIXOFF" ("#x #y -->" "Clears pixel in text grob." "1383B") "PIXON?" ("#x #y --> flag" "Is pixel in text grob on?" "13992") "PIXON3" ("#x #y -->" "Sets pixel in graph grob." "13825") "PIXOFF3" ("#x #y -->" "Clears pixel in graph grob." "1380F") "PIXON?3" ("#x #y --> flag" "Is pixel in graph grob on?" "13986") "ORDERXY#" ("#x1 #y1 #x2 #y2 --> #x1' #y1' #x2' #y2'" "Orders the bints to be appropriate for defining a rectangle in a grob. Swaps #x1 and #x2 if #x2<#x1. Swaps #y1 and #y2 if #y2<#y1." "51893") "ORDERXY%" ("%x1 %y1 %x2 %y2 --> %x1' %y1' %x2' %y2'" "ORDERXY# with real numbers." "518CA") "LINEON" ("#x1 #y1 #x2 #y2 -->" "Draws a line in text grob." "50B17") "LINEOFF" ("#x1 #y1 #x2 #y2 -->" "Clears a line in text grob." "50B08") "TOGLINE" ("#x1 #y1 #x2 #y2 -->" "Toggles a line in text grob." "50AF9") "LINEON3" ("#x1 #y1 #x2 #y2 -->" "Draws a line in graph grob." "50AEA") "DRAWLINE#3" ("#x1 #y1 #x2 #y2 -->" "Draws a line in graph grob. x1" "Clears a line in graph grob." "50ACC") "TOGLINE3" ("#x1 #y1 #x2 #y2 -->" "Toggles a line in graph grob." "50ADB") "TOGGLELINE#3" ("#x1 #y1 #x2 #y2 -->" "Toggles line in graph grob. x1" "Draws rectangle in graph grob." "4E582") "DOLCD>" ("--> grob" "Returns current display." "503D4") "DO>LCD" ("grob -->" "Grob to display." "50438") "Symb>HBuff" ("symb -->" "Displays symbolic in HARDBUFF in Equation Writer form. Enlarges HARDBUFF if necessary, so use RECLAIMDISP after." "659DE") "MakeStdLabel" ("$ --> grob" "Makes standard menu label." "3A328") "MakeBoxLabel" ("$ --> grob" "Makes label with a box." "3A38A") "MakeDirLabel" ("$ --> grob" "Makes directory label." "3A3EC") "DirLabel:" ("--> grob" "Makes directory label with next string in the stream. Usage: :: DirLabel: $ ;" "3ED6B" :U) "MakeInvLabel" ("$ --> grob" "Makes inverse label." "3A44E") "Box/StdLabel" ("$ flag --> grob" "If TRUE makes box label, otherwise makes standard label." "3EC99") "Std/BoxLabel" ("$ flag --> grob" "If TRUE makes standard label, otherwise makes box label." "3ED0C") "Box/StdLbl:" ("--> grob" "Does Box/StdLabel with the next two objects from the stream. Usage: :: Box/StdLbl: $ ;" "3ECB2") "FBox/StdLbl:" ("--> grob" "Takes a string and a bint from the runstream. Tests the system flag specified, does Box/StdLabel. Usage: :: FBox/StdLbl: $ #flag ;" "3ECEE" :U) "BBox/StdLbl:" ("--> grob" "Takes a string and a bint from the runstream. Does BASE then EQ, and finally Box/StdLabel. Usage: :: BBox/StdLabel: $ #base ;" "3ED25" :U) "MBox/StdLbl:" ("--> grob" "Takes a string and a bint from the runstream. Does NumbMode and EQ, then Box/StdLabel. Usage: :: MBox/StdLbl: $ #mode ;" "3ED48" :U) "FStd/BoxLbl:" ("--> grob" "Takes a string an a bint from the runstream. Tests the system flag specified, does Std/BoxLabel. Usage: :: FStd/BoxLbl: $ #flag ;" "3ECD0" :U) "StdLabelDef" ("#col grob --> #col $ --> #col id --> #col :: -->" "Works by dispatching the object type." "3A260" :U) "$>BIGGROB" ("$ --> grob" "Makes grob of the string using the large font (5x9)." "11CF3") "$>GROB" ("$ --> grob" "Makes grob of the string using the system font. Linefeed does *not* make new line." "11D00") "$>grob" ("$ --> grob" "Makes grob of the string using the minifont. Linefeed does *not* make new line." "11F80") "~$>grobOrGROB" ("$ --> grob" "Converts string to a grob using either the current font or the minifont, depending on system flag 90." "05F0B3" :UBS) "RIGHT$3x6" ("$ #n --> flag grob" "Transforms string into grob (using the minifont), then takes all characters starting after column #n. flag is FALSE if #n is greater than the width of the grob. In this QcaseQ, the whole grob is returned." "1200C") "CENTER$3x5" ("grob #x #y $ #w --> grob'" "Creates grob from string (using the minifont) and embeds it at specified position (#x, #y). The grob is centered around #x and the to is put at #y. #w represents the maximum width of the grob created. If the text is wider, it is truncated. Bangtype." "1215E") "CHECKPICT" ("-->" "Checks size of GBUFF. If it is smaller than 131x64 sets GBUFF back to its default size (131x64)." "51166") "CKPICT" ("xPICT -->" "Checks for user word xPICT on level 1. Errors (SETTYPEERR) if there is another object." "51148") "PICTRCL" ("xPICT --> grob" "Does CKPICT, then recalls GBUFF and does TOTEMPOB." "20CAD") "MAKEPVARS" ("--> {}" "Creates the default PPAR variable in the current directory and returns its value. -- TEXT:Reserved|PPAR" "4AAEA") "CHECKPVARS" ("--> {}" "Recalls contents of PPAR in current path to stack. Creates PPAR in current directory if non-existent. Errors \"Invalid PPAR\" if existing PPAR is invalid. -- TEXT:Reserved|PPAR" "4A9AF") "GETPARAM" ("# --> ob" "Extracts the #th item from PPAR. No error checking! -- TEXT:Reserved|PPAR" "4B364") "GETXMIN" ("--> %" "Recalls XMIN from the PPAR list if existent. If not, the default PPAR is created in the current directory. -- TEXT:Reserved|PPAR" "4B10C") "PUTXMIN" ("% -->" "Sets a new value for XMIN. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B166") "GETXMAX" ("--> %" "Recalls XMAX from the PPAR list if existent. If not, the default PPAR is created in the current directory. -- TEXT:Reserved|PPAR" "4B139") "PUTXMAX" ("% -->" "Sets a new value for XMAX. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B1AC") "GETYMIN" ("--> %" "Recalls YMIN from the PPAR list if existent. If not, the default PPAR is created in the current directory. -- TEXT:Reserved|PPAR" "4B120") "PUTYMIN" ("% -->" "Sets a new value for YMIN. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B189") "GETYMAX" ("--> %" "Recalls YMAX from the PPAR list if existent. If not, the default PPAR is created in the current directory. -- TEXT:Reserved|PPAR" "4B14D") "PUTYMAX" ("% -->" "Sets a new value for YMAX. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B1CF") "GETPMIN&MAX" ("--> C% C%" " -- Returns PMIN and PMAX. -- TEXT:Reserved|PPAR" "4B0DA") "PUTINDEP" ("ID -->" "Internal xINDEP if the arg is an ID. " "4AF77") "PUTINDEPLIST" ("{} -->" "Internal xINDEP if the arg is a list." "4AF8B") "INDEPVAR" ("--> id" "Recalls the independent variable. If a list, extract first element. :: GETINDEP DUPTYPELIST? ?CARCOMP ;" "510AD") "GETINDEP" ("--> id --> {}" "Recalls the independent variable field in PPAR. -- TEXT:Reserved|PPAR" "4AF63") "GETPTYPE" ("--> name" "Recalls the plot type using GETPARAM. -- TEXT:Reserved|PPAR" "4B062") "PUTPTYPE" ("name -->" "Sets a new plot type. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B076") "GETRES" ("--> %" "Recalls the plot resolution using GETPARAM. -- TEXT:Reserved|PPAR" "4AFDB") "PUTRES" ("% -->" "Set new plot resolution. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4B012") "GETSCALE" ("--> % %'" "Recalls the plot scale parameters. -- TEXT:Reserved|PPAR" "4ADB0") "PUTSCALE" ("% %' -->" "Set new plot scale. PPAR is created if necessary. -- TEXT:Reserved|PPAR" "4AE3C") "AUTOSCALE" ("-->" "Internal AUTO." "491D5") "DOGRAPHIC" ("-->" "Sets the scroll mode of PICTURE and is essentially the same as { } PVIEW." "4CE6F") "GETXPOS" ("" "" "505C6") "getxpos" ("" "" "505E4") "GETYPOS" ("" "" "5068D") "getypos" ("" "" "506AB") "EQUATION" ("--> ob T --> F" "Recall the current equation, stored in the 'EQ' variable, and TRUE. If there is no 'EQ' variable on the path, just returns FALSE." "15744") "GetEqN" ("#n --> ob T --> NULL$ F" "Get the #nth equation, if EQ is a list of equations. " "4A0AA") "DORCLE" ("--> ob" "Recalls the contents of the EQ variable, errors if it does not exist." "1572B") "DOSTOE" ("ob -->" "Stores ob into the variable EQ." "15717") "XEQPURGEPICT" ("xPICT -->" "If object in level one is xPICT, erases the graphic display. Otherwise, errors." "20F8A") "CRER" ("" "" "00113") "CROSSMARKON" ("" "" "4ECAD") "CROSS_HAIRS" ("" "" "4DA0D") "CROSS_OFF" ("" "" "4DA76") "GDISPCENTER" ("-->" "Moves to center of graphics display" "4CF05") "GetRes" ("" "" "4B7D8") "HSCALE" ("" "" "4B5AD") "VSCALE" ("" "" "4B553") "PLOTERR" ("" "" "4B6D9") "PlotOneMore?" ("" "" "50DA5") "PLOTPREP" ("" "" "4B765") "DOPX>C" ("{ hxs hxs' } --> C%" "Converts a list of two hex strings into a complex number. Used for plotting coordinates. Inverse operation is DOC>PX." "4F0AC") "DOC>PX" ("C% --> { hxs hxs' }" "Converts a complex coordinate point into list of two HXS numbers. Inverse operation is DOPX>C. " "4F179") "xABS" ("x --> x'" "Absolute Value Function -- Returns the absolute value of its argument. x \\-> |x| (x,y) \\-> sqrt(x^2+y^2) x_unit \\-> |x|_unit [ array ] \\-> || array || 'sym' \\-> 'ABS(sym)' -- Flags: -3 -- Related: NEG,SIGN" "1AA1F" :Usr) "xACK" ("-->" "Acknowledge Alarm cmd -- Acknowledges the oldest past due alarm. -- Flags: -43 -44 Repeat Alarms Not Rescheduled -43 Acknowledge Alarms Saved -44 -- Clears alert annunciator if 1. There are no other past-due alarms and 2. There are no other active alert sources - ie low batt. Has no effect on control alarms Control alarms that come due are automatically acknowledged AND saved in the sys alarm list. -- Related: ACKALL" "1987E" :Usr) "xACKALL" ("-->" "Acknowledge All Alarms cmd -- Acknowledges all past due alarms. -- Flags: -43 -44 Repeat Alarms Not Rescheduled -43 Acknowledge Alarms Saved -44 -- Clears alert annunciator if there are no other active alert sources, ie low batt. Has no effect on control alarms Control alarms that come due are automatically acknowledged AND saved in the sys alarm list. -- Related: ACK" "19863" :Usr) "xACOS" ("x --> x'" "Arc cos fn -- Returns angle with given cos. -- z \\-> arc cos z 'sym' \\-> 'ACOS(sym)' -- Related: ASIN,ATAN,COS,ISOL,ACOSH" "1B72F" :Usr) "xACOSH" ("x --> x'" "Arc hyp cos fn -- Returns val with given hyp cos. -- z \\-> arc hyp cos z 'sym' \\-> 'ACOSH(sym)' -- Related: ASINH,ATANH,COSH,ISOL" "1B830" :Usr) "xALOG" ("x --> x'" "Common antilog fn -- ALOG x = 10^x -- Flags: -3 numeric result -- z \\-> 10^z 'sym' \\-> 'ALOG(sym)' -- Related: EXP,LN,LOG" "1BA3D" :Usr) "xAND" ("x1 x2 --> x3" "And fn -- Logical AND of 2 args. -- #n1 #n1 \\-> #n3 \"str1\" \"str2\" \\-> \"str3\" T/F1 T/F2 \\-> 0/1 T/F 'sym' \\-> 'T/F AND sym' 'sym' T/F \\-> 'sym AND T/F' 'sym1' 'sym2' \\-> 'sym1 AND sym2' -- Flags: -3 -5 Numeric res -3 Bin int wordsize -5 \\-> -10 -- Related: NOT,OR,XOR" "1E783" :Usr) "xAPPLY" ("{symb1 .. symbn} f --> f(symb1...symbn)" "Apply to args fn -- Creates expr for specified fn name & args -- Related: QUOTE,|" "1F5C5" :Usr) "xARC" ("c r \\Gh1 \\Gh2 --> {#x #y} #r \\Gh1 \\Gh2 -->" "Draw arc fn -- Draws arc in PICT anticlockwise from \\Gh1 to \\Gh2 centred on coord specified on lev4 with radius on lev3 -- Flags: -17 -18 angle mode (-17 & -18) -- Related: BOX,LINE,TLINE" "1E5D2" :Usr) "xARCHIVE" (":port:name --> :IO:name -->" "Archive HOME cmd -- Creates backup of HOME in RAM (including user key assignments & alarm catalog) -- if :IO: is used backup transmitted through IO port via Kermit to filename 'name' -- Flags: -33 -39 I/O Device -33 I/O Messages -39 if :IO:name -- Related: RESTORE" "2125A" :Usr) "xARG" ("c --> \\Gh" "Argument fn -- Returns angle of a complex number -- (x,y) \\-> \\Gh 'sym' \\-> 'ARG(sym)' -- Flags: -17 -18 Ang Mode -17,-18" "1B2DB" :Usr) "xARRY\\->" ("[] --> x1...xn {n} [[]] --> x11...xnm {n m}" "Array to stack cmd -- Return elems of array to stack. OBJ\\-> includes this functionality. -- Related: \\->ARRY,DTAG,EQ\\->,LIST\\->, OBJ\\->,STR\\->" "1D092" :Usr) "xARRY>" ("[] --> x1...xn {n} [[]] --> x11...xnm {n m}" "Array to stack cmd -- Return elems of array to stack. OBJ\\-> includes this functionality. -- Related: \\->ARRY,DTAG,EQ\\->,LIST\\->, OBJ\\->,STR\\->" "1D092" :Usr) "x\\->ARRY" ("x1..xn n --> [] x11...xnm {n m} --> [[]]" "Stack to Array Cmd -- Returns a vector of n real or complex elements or a matrix of n \327 m real or complex solutions. -- Related: ARRY\\->,LIST\\->,\\->LIST, OBJ\\->,STR\\->,\\->TAG,\\->UNIT" "1D009" :Usr) "x>ARRY" ("x1..xn n --> [] x11...xnm {n m} --> [[]]" "Stack to Array Cmd -- Returns a vector of n real or complex elements or a matrix of n \327 m real or complex solutions. -- Related: ARRY\\->,LIST\\->,\\->LIST, OBJ\\->,STR\\->,\\->TAG,\\->UNIT" "1D009" :Usr) "xASIN" ("x --> x'" "Arc sin fn -- Gives angle whose sin is given -- z \\-> arc sin z 'sym' \\-> 'ASIN(sym)' -- Flags: -1 -3 -17 -18 Principal soln -1 Numerical res -3 Angle mode -17,-18 -- Related: ACOS,ATAN,ISOL,SIN" "1B6A4" :Usr) "xASINH" ("x --> x'" "Arc hyp sin fn -- Gives Val whose hyp sin is given -- z \\-> arc hyp sin z 'sym' \\-> 'ASINH(sym)' -- Flags: -1 -3 Principal soln -1 Numerical res -3 -- Related: ACOSH,ATANH,ISOL,SINH" "1B7EB" :Usr) "xASN" ("obj key --> 'SKEY' -->" "Assign cmd -- Defines single key on user kbd by assigning the given obj to the key x_key -- Flags: -61 -62 User mode lock -61 User mode -62 -- The arg x_key is a real number rc.p where r=row,c=col,p=plane as follows: 0,1 - unshifted 2 - left shifted 3 - right shifted 4 - \214 shifted 5 - \214 left shifted 6 - \214 right shifted Add 0.01 if the modifier is to be held pressed down. -- After ASN, pressing the assigned in User or 1-User mode exeutes the assigned obj instead. Remains in effect until altered by ASN or STOKEYS or DELKEYS. If 'SKEY' is passed instead, the specified key is restored to std. -- Related: DELKEYS,RCLKEYS,STOKEYS TEXT:Keycodes" "224F4" :Usr) "xASR" ("# --> #'" "Arithmetic shift right cmd -- Shifts a bint 1 bit to the right except for the most significant bit which stays. -- Flags: -5 -6 -7 -8 -9 -10 -11 -12 bint wordsize -5 -> -10 bint base -11, -12 -- Related: SL,SLB,SR,SRB" "1957B" :Usr) "xATAN" ("x --> x'" "Arc tan fn -- Returns the angle having the tan -- z \\-> arc tan z 'sym' \\-> 'ATAN(sym)' -- Flags: -1 -3 -17 -18 Principle soln -1 Numeric results -3 Angle mode -17,-18 -- Related: ACOS,ASIN,ISOL,TAN" "1B79C" :Usr) "xATANH" ("x --> x'" "Arc hyp tan fn -- Returns the value with given hyp tan. -- z \\-> arc hyp tan z 'sym' \\-> 'ATANH(sym)' -- Flags: -1 -3 -22 Principle soln -1 Numeric results -3 Infinite result exception -22 -- Related: ACOSH,ASINH,ISOL,TANH" "1B8A2" :Usr) "xATTACH" ("n --> :nport:n -->" "Attach library cmd -- Attaches lib with given num to current directory. -- Related: DETACH,LIBS" "21448" :Usr) "xAUTO" ("-->" " Calculates a y-axis display range or an x- & y-axis display range. -- Action depends on plot type: FUNCTION sets range to max & min of y vals sampled at 40 equi-spaced x vals (excluding \261\330\331) CONIC sets y-axis scale = to x-axis scale POLAR same as FUNCTION PARAMETRIC same as POLAR TRUTH no action BAR sets x-axis range from 0 to # of elems in \\GSDAT +1. sets y-range to min & max of the elts x-axis is always included. HISTOGRAM sets x-axis range to min & max of the elems in \\GSDAT. sets y-range from 0 to # of rows in \\GSDAT. SCATTER x-range is min & max of XCOL. y-range is min & max of YCOL -- Related: DRAW,SCALEH,SCALE,SCL\\GS, SCALEW,XRNG,YRNG" "1E1AB" :Usr) "xAXES" ("c --> {c tick $x $y } -->" "Axes cmd -- Specifies intersection coords of x- & y- axes, tick mark annotatn and x- & y- axes labels. stored in PPAR. -- TEXT:Reserved|PPAR -- Related: ATICK,DRAW,DRAX,LABEL" "1E0BE" :Usr) "xBAR" ("-->" "Bar plot type cmd -- Sets plot type to BAR When plot type is BAR, the DRAW Cmd plots a bar chart using data from 1 col of the stat matrix (\\GSDAT). The col to be plotted is specified by the XCOL cmd & is stored in 1st param of \\GSPAR. Plot params are specified in PPAR of ff form: { (xmin,ymin) (xmax,ymax) indep res axes ptype depend } For BAR they are used as follows: -- (xmin,ymin) specifies lower left cnr of PICT (default: (-6.5,-3.1)) -- (xmax,ymax) specifies upper right cnr of PICT (default: (6.5,3.2)) -- indep name - specifies horiz axis label or list - { name x1 x2 } smaller of x1 & x2 is horiz location of 1st bar (default: X) -- res real - bar width in user units or bint - bar width in pixels (default: 0 - 1 in user units) -- axes list containing one or more of the ff in order: (x,y) - user unit origin pos a list specifying tick mark annotatn & 2 strings specifying horiz & vert axes labels (default: (0,0)) -- ptype plot type - BAR in this case -- depend label for vert axis. (default: Y) -- TEXT:Reserved|PPAR -- Related: CONIC,DIFFEQ,FUNCTION,GRIDMAP, HISTOGRAM,PARAMETRIC,PARSURFACE,PCONTOUR, SCATTER,SLOPEFIELD,TRUTH,YSLICE" "1E741" :Usr) "xBARPLOT" ("-->" "Draw bar plot cmd -- Draws bar chart of specified col of stat matrix (\\GSDAT) Col to be plotted is specified by XCOL & is stored as first param in \\GSPAR. Default col is 1. data can be +ve or -ve giving bars above or below the axis. y-axis is autoscaled & plot type is BAR. When executed from a program, plot doesn't persist unless PICTURE,PVIEW (with empty list) or FREEZE is subsequently executed -- Related: FREEZE,HISTPLOT,PICTURE, PVIEW,SCATRPLOT,XCOL" "20133" :Usr) "xBAUD" ("n -->" "Baud rate cmd -- Specify bit transfer rate. -- Related: CKSM,PARITY,TRANSIO" "2200C" :Usr) "xBEEP" ("freq dur -->" "Beep cmd -- Sounds a tone of n Hz for x secs. -- Flags: -56 Error Beep -56 Max Freq = 4400 Hz Max Duration = 1048.575 secs. -- Related: HALT,INPUT,PROMPT,WAIT" "1A5C4" :Usr) "xBESTFIT" ("-->" "Best fit model cmd -- Executes LR with each of the 4 curve fitting models and selects the model giving the largest correlation coefficient. -- Selected model stored in 5th param of \\GSPAR & regression coeffs intercept & slope are stored in 3rd & 4th params. -- Related: EXPFIT,LINFIT,LOGFIT,LR,PWRFIT" "2025E" :Usr) "xBIN" ("-->" "Binary mode cmd -- Selects binary base for bint ops. (Default base is 10) -- Flags: -5 -6 -7 -8 -9 -10 -11 -12 Bint wordsize -5 \\-> -10 Bint base -11, -12 Bints require prefix #. Bints entered & returned in binary show the b suffix. If current base not binary, enter binary nums by using b suffix. The current base doesn't affect the internal representation of bints as unsigned bints. -- Related: DEC,HEX,OCT,STWS,RCWS" "1C559" :Usr) "xBINS" ("min width n --> [[]] []" "Sort Into Frequency Bins Cmd -- Sorts the elements of the indep. col (XCOL) of the stat matrix (\\GSDAT) into (nbins + 2) bins, where the left edge for bin 1 starts at value xmin and each bin has width xwidth. -- xmin xwidth nbins \\-> [[ nbin1...nbinn ]] [ nbinL nbinR ] -- Related: BARPLOT,XCOL" "2010E" :Usr) "xBLANK" ("#width #height --> grob" "Blank Graphics Obj Cmd -- Creates a blank graphics obj of the specified width and height. -- Related: \\->GROB,LCD\\->" "1E416" :Usr) "xBOX" ("{#n1 #m1} {#n2 #m2} --> c1 c2 -->" "Box Cmd -- Draws in PICT a box whose opposite corners are defined by the specified pixel or user-unit coords. -- Related: ARC,LINE,TLINE" "1E3EC" :Usr) "xBUFLEN" ("--> nchars 0/1" "Buffer Length Cmd -- Returns the number of characters in the HP 48's serial input buffer and a single digit indicating whether an error occurred during data reception. -- Related: CLOSEIO,OPENIO,SBRK,SRECV, STIME,XMIT" "22087" :Usr) "xBYTES" ("obj --> chksum size" "Bytes Size Cmd -- Returns the number of bytes & the checksum for the given obj. -- Related: MEM" "1A1D9" :Usr) "xB\\->R" ("# --> R" "Binary to Real Cmd -- Converts a binary integer to its floating-point equivalent. -- Related: R\\->B" "196BB" :Usr) "xB>R" ("# --> R" "Binary to Real Cmd -- Converts a binary integer to its floating-point equivalent. -- Related: R\\->B" "196BB" :Usr) "xCASE" ("-->" "CASE Conditional Structure Cmd -- Starts CASE ... END conditional structure. -- CASE \\-> THEN T/F \\-> END \\-> END \\-> -- Related: END,IF,IFERR,THEN" "2378D" :Usr) "xCEIL" ("x --> n" "Ceiling Func -- Returns the smallest integer greater than or equal to the argument. -- x \\-> n x_u \\-> n_u 'sym' \\-> 'CEIL(sym)' -- Flags: -3 -- Related: FLOOR,IP,RND,TRNC" "1BC0F" :Usr) "xCENTR" ("(x,y) --> x -->" "Centre Cmd -- Adjusts the first two parameters in the reserved variable PPAR, (xmin, ymin) and (xmax,ymax), so that the point represented by the argument (x,y) is the plot centre. -- TEXT:Reserved|PPAR -- Related: SCALE" "1E0E8" :Usr) "xCF" ("n -->" "Clear Flag Cmd -- Clears the specified user or system flag. -- Related: FC?,FC?C,FS?,FS?C,SF" "1C2D5" :Usr) "xCHR" ("n --> $" "Character Cmd -- Returns a string representing the HP 48 character corresponding to the character code n. -- Related: NUM,POS,REPL,SIZE,SUB" "1CB66" :Usr) "x%CH" ("x1 x2 --> x3" "Percent Change Func -- Returns the percent change from x (level 2) to y (level 1) as a percentage of x. -- x y \\-> 100(y-x)/x x 'sym' \\-> '%CH(x,sym)' 'sym' x \\-> '%CH(sym,x)' 'sym1' 'sym2' \\-> '%CH(sym1,sym2)' x_u y_u \\-> 100(y_u-x_u)/x_u x_u 'sym' \\-> '%CH(x_u,sym)' 'sym' x_u \\-> '%CH(sym,x_u)' -- Flags: -3 -- Related: %,%T" "1C149" :Usr) "xCKSM" ("n_type -->" "Checksum Cmd -- Specifies the error-detection scheme. -- Related: BAUD,PARITY,TRANSIO " "21FEC" :Usr) "xCLEAR" ("ob1 .. obn -->" "Clear Cmd -- Removes all objects from the stack. -- Related: CLVAR,PURGE" "1FCEB" :Usr) "xCL\\GS" ("-->" "Clear Sigma Cmd -- Purges the current statistics matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: RCL\\GS,STO\\GS,\\GS+,\\GS-" "1FD2B" :Usr) "xCLSIGMA" ("-->" "Clear Sigma Cmd -- Purges the current statistics matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: RCL\\GS,STO\\GS,\\GS+,\\GS-" "1FD2B" :Usr) "xCLKADJ" ("ticks -->" "Adjust System Clock Cmd -- Adjusts the system time by x clock ticks, where 8192 clock ticks equal 1 second. -- Related: \\->TIME" "198DE" :Usr) "xCLLCD" ("-->" "Clear LCD Cmd -- Clears (blanks) the stack display -- Related: DISP,FREEZE" "1A858" :Usr) "xCLOSEIO" ("-->" "Close I/O Port Cmd -- Closes the serial port and the IR port, and clears the input buffer and any error messages for KERMIT. -- Related: BUFLEN,OPENIO" "21ED5" :Usr) "xCLVAR" ("-->" "Clear Variables Cmd -- Purges all variables and empty subdirectories in the current directory. -- Related: CLUSR,PGDIR,PURGE" "210FC" :Usr) "xCLUSR" ("-->" "Clear Variables Cmd -- Purges all variables and empty subdirectories in the current directory. -- Related: CLUSR,PGDIR,PURGE" "210FC" :Usr) "xCNRM" ("[] --> col_norm" "Column Norm Cmd -- Returns the column norm (onenorm) of the array argument. -- Related: CROSS,DET,DOT,RNRM" "1BFBE" :Usr) "xCOLCT" ("symb --> symb'" "Collect Like Terms Cmd -- Simplifies an algebraic expression or equation by \"collecting\" like terms. Does not modify numbers. -- Related: EXPAN,ISOL,QUAD,SHOW" "20A15" :Usr) "xCOL\\GS" ("x_col y_col -->" "Sigma Columns Cmd -- Specifies the independent variable and dependent-variable columns of the current stat matrix (the reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BARPLOT,BESTFIT,CORR,COV, EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREDY,PWRFIT,SCATRPLOT,XCOL,YCOL" "2009A" :Usr) "xSIGMACOL" ("x_col y_col -->" "Sigma Columns Cmd -- Specifies the independent variable and dependent-variable columns of the current stat matrix (the reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BARPLOT,BESTFIT,CORR,COV, EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREDY,PWRFIT,SCATRPLOT,XCOL,YCOL" "2009A" :Usr) "xCOMB" ("n k --> Cn,k" "Combinations Func -- Returns the number of possible combinations ofn items taken m at a time. -- n m \\-> Cn:m 'symn' m \\-> 'COMB(symn,m)' n 'symm' \\-> 'COMB(n,symm)' 'symn' 'symm' \\-> 'COMB(symn,symm)' -- Related: PERM,!" "1C1F6" :Usr) "xCON" ("{ n } x --> [] { n k } x --> [[]] [] x --> []'" "Constant Array Cmd -- Returns a constant array, defined as an array whose elements all have the same value. -- {ncols} zcnst \\-> [[veccnst]] {nrows mrows} zcnst \\-> [[matcnst]] [R-arr] xcnst \\-> [R-arrcnst] [C-arr] xcnst \\-> [C-arrcnst] 'name' zcnst \\-> -- Related: IDN" "1D186" :Usr) "xCONIC" ("-->" "Conic Plot Type Cmd -- Sets the plot type to CONIC. -- Related: BAR,DIFFEQ,FUNCTION,GRIDMAP, HISTOGRAM,PARAMETRIC,PARSURFACE,PCONTOUR, POLAR,SCATTER,SLOPEFIELD,TRUTH,WIREFRAME,YSLICE" "1E681" :Usr) "xCONJ" ("x --> x'" "Conjugate Analytic Func -- Conjugates a complex number or a complex array. -- x \\-> x (x,y) \\-> (x,-y) [ R-arr ] \\-> [ R-arr ] [ C-arr ]1 \\-> [ C-arr ]2 'sym' \\-> 'CONJ(sym)' -- Flags: -3 -- Related: ABS,IM,RE,SCONJ,SIGN" "1AA6E" :Usr) "xCONT" ("-->" "Continue Program Execution Cmd -- Resumes execution of a halted program. -- Related: HALT,KILL,PROMPT" "1A8BB" :Usr) "xCONVERT" ("x1_u1 x2_u2 --> x3_u2" "Convert Units Cmd -- Converts a source unit object to the dimensions of a target object -- Related: UBASE,UFACT,\\->UNIT,UVAL" "196DB" :Usr) "xCORR" ("--> x_correlation" "Correlation Cmd -- Returns the correlation coefficient of the independent and dependent data columns in the current statistics matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: COL\\GS,COV,PREDX,PREDY,XCOL,YCOL" "1FDC1" :Usr) "xCOS" ("x --> x'" "Cos Func -- Returns the cos of the argument. -- z \\-> cos z 'sym' \\-> 'COS(sym)' x_uangular \\-> cos(x_uangular) -- Flags: -3 -17 -18 -- Related: ACOS,SIN,TAN" "1B505" :Usr) "xCOSH" ("x --> x'" "Hyp Cos Func -- Returns the hyp cos of the argument. -- z \\-> cosh z 'sym' \\-> 'COSH(sym)' -- Flags: -3 -- Related: ACOSH,SINH,TANH" "1B606" :Usr) "xCOV" ("--> x_covariance" "Covariance Cmd -- Returns the sample covariance of the independent and dependent data columns in the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: COL\\GS,CORR,PCOV,PREDX,PREDY, XCOL,YCOL" "1FDDC" :Usr) "xCR" ("-->" "Carriage Right Cmd -- Prints the contents, if any, of the printer buffer. -- Flags: -37 -34 -33 -- Related: DELAY,OLDPRT,PRLCD,PRST,PRSTC, PRVAR,PR1" "1EEA4" :Usr) "xCRDIR" ("name -->" "Create Directory Cmd -- Creates an empty subdirectory with the specified name within the current directory. -- Related: HOME,PATH,PGDIR,UPDIR" "1A105" :Usr) "xCROSS" ("[1] [2] --> [3]" "Cross Product Cmd -- CROSS returns the cross product [3] = [1] x [2] of vectors [1] and [2]. -- Related: CNRM,DET,DOT,RNRM" "1C01E" :Usr) "xC\\->PX" ("(x,y) --> {#n #m}" "Complex to Pixel Cmd -- Converts the specifiec user-unit coordiates to pixel coordiates. -- (x,y) \\-> { #n #m } -- Related: PX\\->C" "1E29A" :Usr) "xC>PX" ("(x,y) --> {#n #m}" "Complex to Pixel Cmd -- Converts the specifiec user-unit coordiates to pixel coordiates. -- (x,y) \\-> { #n #m } -- Related: PX\\->C" "1E29A" :Usr) "xC\\->R" ("(x,y) --> x y [C] --> [R] [I]" "Complex to Real Cmd -- Separates the real and imaginary parts of a complex number or complex array. -- Related: R\\->C,RE,IM" "1C98E" :Usr) "xC>R" ("(x,y) --> x y [C] --> [R] [I]" "Complex to Real Cmd -- Separates the real and imaginary parts of a complex number or complex array. -- Related: R\\->C,RE,IM" "1C98E" :Usr) "xDATE" ("--> date" "Returns the system date. -- Related: DATE+,DDAYS,TIME,TSTR" "19812" :Usr) "x\\->DATE" ("date -->" "Set Date Cmd -- Sets the system date to date. -- Related: \\->TIME" "1989E" :Usr) "xSETDATE" ("date -->" "Set Date Cmd -- Sets the system date to date. -- Related: \\->TIME" "1989E" :Usr) "xDATE+" ("date ndays --> date'" "Date Addition Cmd -- Returns a past or future date, given a date in level 2 and a nmber of days in level 1. -- Flags: -42 -- Related: DATE,DDAYS" "199D2" :Usr) "xDBUG" ("prog --> name -->" "Debug Operation -- Starts program execution, then suspends it as if HALT were the first program command. -- Related: HALT,NEXT" "1508E" :UBS :Usr) "xDDAYS" ("date1 date2 --> days" "Delta Days Cmd -- Returns the number of days between two dates. -- Related: DATE,DATE+" "199B2" :Usr) "xDEC" ("-->" "Decimal Mode Cmd -- Selects decimal base for binary integer operations. (The default base is decimal.) -- Related: BIN,HEX,OCT,RCWS,STWS" "1C574" :Usr) "xDECR" ("name --> x_new" "Decrement Cmd -- Takes a variable on level 1, subtracts 1, stores the new value back into the original variable, and returns the new value to level 1. -- Related: INCR,STO+,STO-" "209AA" :Usr) "xDEFINE" ("'name=expr' --> 'name(name1...)=expr(name1...) -->" "Define Variable or Func Cmd -- Stores the expression on the right side of the = in the variable specified on the left side, or creates a user-defined function -- Related: STO" "20D65" :Usr) "xDEG" ("-->" "Degrees Cmd -- Sets Degrees angle mode. -- Related: GRAD,RAD" "1C399" :Usr) "xDELALARM" ("n -->" "Delete Alarm Cmd -- Deletes the alarm specified in level 1. -- Related: FINDALARM,RCLALARM,STOALARM" "19972" :Usr) "xDELAY" ("x_delay -->" "Delay Cmd -- Specifies how many seconds the HP 48 waits between sending lines of information to the printer. -- Related: CR,OLDPRT,PRLCD,PRST,PRSTC,PRVAR,PR1" "1EF43" :Usr) "xDEPND" ("name --> {name} --> {name y1 y2} --> {y1 y2} --> y1 y2 -->" "Dependent Variable Cmd -- Species the dependent variable (and its plotting range for TRUTH plots). -- Related: INDEP" "1E22B" :Usr) "xDEPTH" ("--> n" "Depth Cmd -- Returns a real number representing the number of objects present on the stack (before DEPTH was executed)." "1FC44" :Usr) "xDET" ("[[]] --> x" "Determinant Func -- Returns the determinant of a square matrix. -- Related: CNRM,CROSS,DOT,RNRM" "1BFDE" :Usr) "xDETACH" ("n --> :port:n -->" "Detach Library Cmd -- Detaches the library with the specified number from the current directory. Each library has a unique number. If a port number is specified, it is ignored. -- Related: ATTACH,LIBS,PURGE" "2147C" :Usr) "xDIR" ("" "" "23813" :Usr) "xDISP" ("obj n_line -->" "Display Cmd -- Displays obj in the nth display line. -- Related: FREEZE,HALT,INPUT,PROMPT" "1A584" :Usr) "xDO" ("-->" "DO Indefinite Loop Structure Cmd -- Starts DO ... UNTIL ... END indefinite loop structure. -- DO \\-> UNTIL \\-> END T/F \\-> -- Related: END,UNTIL,WHILE" "230C3" :Usr) "xDOERR" ("n --> #n --> $ --> 0 -->" "Do Error Cmd -- Executes a \"user-specified\" error, causing a program to behave exactly as if a normal error had occurred during program execution. -- Related: ERRM,ERRN,ERR0" "1A339" :Usr) "xDOT" ("[1] [2] --> x" "Dot Product Cmd -- Returns the dot product AoB of two arrays A and B, calculated as the sum of the products of the corresponding elements of the two arrays. -- Related: CNRM,CROSS,DET,RNRM" "1BFFE" :Usr) "xDRAW" ("-->" "Draw Plot Cmd -- Plots the mathematical data in the reserved variable EQ or the statistical data in the reserved variable \\GSDAT, using the specified x- and y-axis display ranges. -- TEXT:Reserved|EQ -- Related: AUTO,AXES,DRAX,ERASE,FREEZE, PICTURE,LABEL,PVIEW" "1E190" :Usr) "xDRAX" ("-->" "Draw Axes Cmd -- Draws axes in PICT. -- Related: AXES,DRAW,LABEL" "1E1C6" :Usr) "xDROP" ("ob -->" "Drop Object Cmd -- Removes the level 1 object from the stack. -- Related: CLEAR,DROPN,DROP2" "1FBD8" :Usr) "xDROP2" ("ob1 ob2 -->" "Drop 2 Objects Cmd -- Removes the first two objects from the stack. -- Related: CLEAR,DROP,DROPN" "1FBF3" :Usr) "xDROPN" ("ob1...obn n -->" "Drop n Objects Cmd -- Removes the first n + 1 objects from the stack (the first n objects excluding the integer n itself). -- Related: CLEAR,DROP,DROP2" "1FC64" :Usr) "xDTAG" ("tag:obj --> obj" "Delete Tag Cmd -- DTAG removes all tags (labels) from an object. -- Related: LIST\\->,\\->TAG" "22633" :Usr) "xDUP" ("ob --> ob ob" "Duplicate Object Cmd -- DUP returns a copy to level 1 of the object in level 1. -- Related: DUPN,DUP2,PICK" "1FB87" :Usr) "xDUP2" ("1 2 --> 1 2 1 2" "Duplicate 2 Objects Cmd -- DUP2 returns copies of the objects in levels 1 and 2 of the stack. -- Related: DUP,DUPN,PICK" "1FBA2" :Usr) "xDUPN" ("1...n n --> 1...n 1...n" "Duplicate n Objects Cmd -- Takes an integer n from level 1 of the stack, and returns copies of the objects in stack levels 2n through n + 1. -- Related: DUP,DUP2,PICK" "1FC7F" :Usr) "xD\\->R" ("x --> (\\pi/180)x" "Degrees to Radians Func -- Converts a real number representing an angle in degrees to its equivalent in radians. -- x \\-> (\\pi/180) x 'sym' \\-> 'D\\->R(sym)' -- Related: R\\->D" "1BEC8" :Usr) "xD>R" ("x --> (\\pi/180)x" "Degrees to Radians Func -- Converts a real number representing an angle in degrees to its equivalent in radians. -- x \\-> (\\pi/180) x 'sym' \\-> 'D\\->R(sym)' -- Related: R\\->D" "1BEC8" :Usr) "xe" ("--> e" "e Func -- Returns the symbolic constant e or its numerical representation, 2.71828182846. -- Related: EXP,EXPM,i,LN,LNP1,MAXR,MINR,\\pi" "1AB23" :Usr) "xCONSTANTe" ("--> e" "e Func -- Returns the symbolic constant e or its numerical representation, 2.71828182846. -- Related: EXP,EXPM,i,LN,LNP1,MAXR,MINR,\\pi" "1AB23" :Usr) "xELSE" ("-->" "ELSE Cmd -- Starts false clause in conditional or error-trapping structure. See the IF and IFERR keyword entries for syntax information. -- Related: IF,CASE,DO,ELSE,IFERR,REPEAT, THEN,UNTIL,WHILE" "22FB5" :Usr) "xEND" ("" "END Cmd -- Ends conditional, error-trapping, and indefinite loop structures. -- See the IF, CASE, IFERR, DO, and WHILE keyword entries for syntax information. -- Related: IF,CASE,DO,ELSE,IFERR,REPEAT, THEN,UNTIL,WHILE" "23694" :Usr) "xENDDO" ("1/0 -->" "END Cmd -- Ends conditional, error-trapping, and indefinite loop structures. See the IF, CASE, IFERR, DO, and WHILE keyword entries for syntax information. -- Related: IF,CASE,DO,ELSE,IFERR,REPEAT, THEN,UNTIL,WHILE" "236B9" :Usr) "xIFEND" ("" "END Cmd -- Ends conditional, error-trapping, and indefinite loop structures. -- See the IF, CASE, IFERR, DO, and WHILE keyword entries for syntax information. -- Related: IF,CASE,DO,ELSE,IFERR,REPEAT, THEN,UNTIL,WHILE" "22FD5" :Usr) "xWHILEEND" ("" "END Cmd -- Ends conditional, error-trapping, and indefinite loop structures. -- See the IF, CASE, IFERR, DO, and WHILE keyword entries for syntax information. -- Related: IF,CASE,DO,ELSE,IFERR,REPEAT, THEN,UNTIL,WHILE" "23694" :Usr) "xENG" ("n -->" "Engineering Mode Cmd -- Sets the number display format to Engineering mode, which displays one to three digits to the left of the fraction mark (decimal point) and an exponent that is a multiple of three. The total number of significant digits displayed is n + 1. -- Related: FIX,SCI,STD" "1C452" :Usr) "xEQ\\->" ("'l=r' --> l r" "Equation to Stack Cmd -- Separates an equation into its left and right sides. -- 'sym1=sym2' \\-> 'sym1' 'sym2' z \\-> z 0 'name' \\-> 'name' 0 x_u \\-> x_u 0 'sym' \\-> 'sym' 0 -- Related: ARRY\\->,DTAG,LIST\\->,OBJ\\->,STR\\->" "1CEE3" :Usr) "xEQ>" ("'l=r' --> l r" "Equation to Stack Cmd -- Separates an equation into its left and right sides. -- 'sym1=sym2' \\-> 'sym1' 'sym2' z \\-> z 0 'name' \\-> 'name' 0 x_u \\-> x_u 0 'sym' \\-> 'sym' 0 -- Related: ARRY\\->,DTAG,LIST\\->,OBJ\\->,STR\\->" "1CEE3" :Usr) "xERASE" ("-->" "Erase PICT Cmd -- Erases PICT, leaving a blank PICT of the same dimensions. -- Related: DRAW" "1E25F" :Usr) "xERR0" ("-->" "Clear Last Error Number Cmd -- Clears the last error number so that a subsequent execution of ERRN returns # 0h, and clears the last error message. -- Related: DOERR,ERRM,ERRN" "1A36D" :Usr) "xERRM" ("--> $msg" "Error Message Cmd -- Returns a string containing the error message of the most recent calculator error. -- Related: DOERR,ERRN,ERR0" "1A3A3" :Usr) "xERRN" ("--> $nerr" "Error Number Cmd -- Returns the error number of the most recent calculator error. -- Related: DOERR,ERRM,ERR0" "1A388" :Usr) "xEVAL" ("ob --> ?" "Evaluate Object Cmd -- Evaluates the object. -- obj \\-> (see below) Obj. Type Effects of Evaluation Local Name Recalls the contents of the variable. Global Name Calls the contents of the variable: A name is evaluated. A program is evaluated. A directory becomes the current directory. Other objects are put on the stack. If no variable exists for a given name, evaluating the name returns the name to the stack. Program. Enters each object in the program: Names are evaluated (unless quoted). ed). Cmds are evaluated. Other objects are put on the stack. List Enters each object in the list: Names are evaluated. Cmds are evaluated. Programs are evaluated. Other objects are put on the stack. Tagged If the tag specifies a port, recalls and evaluates the specified object. Otherwise, puts the untagged object on the stack. Algebraic Enters each object in the algebraic expression: Names are evaluated. Cmds are evaluated. Other objects are put on the stack. Cmd, Func, XLIB Name Evaluates the specified object. Other Objects Puts the object on the stack. -- Related: \\->NUM,SYSEVAL" "1A3BE" :Usr) "xEXP" ("x --> x'" "Exponential Analytic Func -- Returns the exponential, or natural antilogarithm, of the argument; that is, e raised to the given power. -- z \\-> ez 'sym' \\-> 'EXP(sym)' -- Related: ALOG,EXPM,LN,LOG" "1B905" :Usr) "xEXPAN" ("symb1 --> symb2" "Expand Products Cmd -- Rewrites an algebraic expression or equation by expanding products and powers. -- Related: COLCT,EXPAND,ISOL,QUAD,SHOW" "20A49" :Usr) "xEXPFIT" ("-->" "Exponential Curve Fit Cmd -- Stores EXPFIT as the fifth parameter in the reserved variable \\GSPAR, indicating that subsequent executions of LR are to use the exponential curve futting model. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,LR,LINFIT,LOGFIT,PWRFIT" "201FB" :Usr) "xEXPM" ("x --> x'" "Exponential Minus 1 Analytic Func -- Returns e^x - 1. -- x \\-> e^x - 1 'sym' \\-> 'EXPM(sym)' -- Related: EXP,LNP1" "1BAC2" :Usr) "xFC?" ("n --> 0/1" "Flag Clear? Cmd -- Tests whether the system or user flag specified by nflag number is clear, and returns a corresponding test result: 1 (true) if the flag is clear or 0 (false) if the flag is set. -- Related: CF,FC?C,FS?,FS?C,SF" "1C360" :Usr) "xFC?C" ("n --> 0/1" "Flag Clear? Clear Cmd -- Tests whether the system or user flag specified by nflag number is clear, and returns a corresponding test result: 1 (true) if the flag is clear or 0 (false) if the flag is set. After testing, clears the flag. -- Related: CF,FC?,FS?,FS?C,SF" "1C520" :Usr) "xFINDALARM" ("date --> n {date time} --> n 0 --> n" "Find Alarm Cmd -- Returns the alarm index nindex of the first alarm due after the specified time. -- Related: DELALARM,RCLALARM,STOALARM" "19948" :Usr) "xFINISH" ("-->" "Finish Server Mode Cmd -- Terminates Kermit Server mode in a device connected to an HP 48. -- Related: BAUD,CKSM,KGET,PARITY,PKT, RECN,RECV,SEND,SERVER" "21FB6" :Usr) "xFIX" ("n -->" "Fix Mode Cmd -- Sets the number display format to Fix mode, which rounds the display to n display places. -- Related: SCI,STD,ENG" "1C3EA" :Usr) "xFLOOR" ("x --> n" "Floor Func -- Returns the greatest integer that is less than or equal to the argument. -- x \\-> n x_u \\-> n_u 'sym' \\-> 'FLOOR(sym)' -- Related: CEIL,IP,RND,TRNC" "1BBD9" :Usr) "xFOR" ("start finish -->" "FOR Definite Loop Structure Cmd -- Starts FOR ... NEXT and FOR ... STEP definite loop structures. -- FOR xstart xfinish \\-> NEXT \\-> FOR xstart xfinish \\-> STEP xincrement \\-> STEP 'symincrement' \\-> -- Related: NEXT,START,STEP" "231A0" :Usr) "xSTARTVAR" ("start finish -->" "FOR Definite Loop Structure Cmd -- Starts FOR ... NEXT and FOR ... STEP definite loop structures. -- FOR xstart xfinish \\-> NEXT \\-> FOR xstart xfinish \\-> STEP xincrement \\-> STEP 'symincrement' \\-> -- Related: NEXT,START,STEP" "231A0" :Usr) "xFP" ("x --> x'" "Fractional part Func -- Returns the fractional part of an argument. -- x \\-> y x_u \\-> y_u 'sym' \\-> 'FP(sym)' -- Related: IP" "1BBA3" :Usr) "xFREE" ("" "Not useful on the 49G. Free RAM Card Cmd -- Frees (makes independent) the previously merged RAM in port 1. FREE is provided for compatibility with the HP 48SX, which could merge RAM in port 2 as well. See FREE1. -- { } nport \\-> { namebackup ... nlib } nport \\-> namebackup nport \\-> nlib nport \\->" "213D1" :Usr) "xFREEZE" ("n -->" "Freeze Display Cmd -- Freezes the part of the display specified by ndisplay area, so that it is not updated until a key is pressed. -- Related: CLLCD,DISP,HALT" "1A5A4" :Usr) "xFS?C" ("n --> 0/1" "Flag Set? Clear Cmd -- Tests whether the system or user flag specified by nflag number is clear, and returns a corresponding test result: 1 (true) if the flag is set or 0 (false) if the flag is clear. After testing, clears the flag -- Related: CF,FC?,FC?C,FS?C,SF" "1C4A1" :Usr) "xFS?" ("n --> 0/1" "Flag Set Cmd -- Tests whether the system or user flag specified by nflag number is set, and returns a corresponding test result: 1 (true) if the flag is set or 0 (false) if the flag is clear. -- Related: CF,FC?,FC?C,FS?,SF" "1C313" :Usr) "xFUNCTION" ("-->" "Function Plot Type Cmd -- Sets the plot type to FUNCTION. -- Related: BAR,CONIC,DIFFEQ,FASTEQ,FAST3D, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE" "1E661" :Usr) "xGET" ("ob n --> elm ob = [] or [[]] or {} or name pos = n or {n} or {n m}" "Get Element Command -- Returns from the level 2 array or list (or named array or list) the real or complex number zget or object objget whose position is specified in level 1. -- [[ mat ]] nposition \\-> zget [[ mat ]] { nrow mcol } \\-> zget 'namematrix' nposition \\-> zget 'namematrix' { nrow mcol } \\-> zget [ vector ] nposition \\-> zget [ vector ] { nposition }\\-> zget 'namevector' nposition \\-> zget 'namevector' { nposition } \\-> zget { list } nposition \\-> objget { list } {nposition} \\-> objget 'namelist' nposition \\-> objget 'namelist' {nposition} \\-> objget -- Related: GETI,PUT,PUTI" "1D7C6" :Usr) "xGETI" ("ob pos --> ob' pos' elm ob = [] or [[]] or {} or name pos = n or {n} or {n m}" "Get and Increment Index Command -- Returns from the level 2 array or list (or named array or list) the real or complex number zget or object objget whose position is specified in level 1, along with the level 2 argument and the next position in that argument. -- [[ mat ]] npos1 \\-> [[ mat ]] npos2 zget [[ mat ]] { nr mc }1 \\-> [[ mat ]] { nr mc }2 zget 'namemat' npos1 \\-> 'namemat' npos2 zget 'namemat' { nr mc }1 \\-> 'namemat' { nr mc }2 zget [ vec ] npos1 \\-> [ vec ] npos2 zget [ vec ] { npos1 } \\-> [ vec ] { npos2 } zget 'namevec' npos1 \\-> 'namevec' npos2 zget 'namevec' { npos1 } \\-> 'namevec' { npos2 } zget { list } npos1 \\-> { list } npos2 objget { list } { npos1 } \\-> { list } { npos2 } objget 'namelist' npos1 \\-> 'namelist' npos2 objget 'namelist' { npos1 } \\-> 'namelist' { npos2 } objget -- Related: GET,PUT,PUTI" "1D8C7" :Usr) "xGOR" ("g_targ {#n #m} grob --> g_targ' g_targ (x,y) grob --> g_targ' PICT ... ... -->" "Graphics OR Cmd -- Superimposes grob1 onto grobtgt or PICT, with the upper left corner of grob1 positioned at the specified coordinate in grobtgt or PICT. -- grobtgt {#n #m} grob1 \\-> grob' grobtgt (x,y) grob1 \\-> grob' PICT {#n #m} grob1 \\-> PICT (x,y) grob1 \\-> -- Related: GXOR,REPL,SUB" "1E456" :Usr) "xGRAD" ("-->" "Grads Mode Cmd -- Sets Grads angle mode. -- Related: GRAD,RAD" "1C3CF" :Usr) "xGROB" ("" "" "23813" :Usr) "x\\->GROB" ("ob n_chrsize --> grob" "Stack to Graphics Object Cmd -- Creates a graphics object representing the level 2 object, where the argument nchar size specifies the character size of the representation. -- Related: \\->LCD,LCD\\->" "1E5AD" :Usr) "x>GROB" ("ob n_chrsize --> grob" "Stack to Graphics Object Cmd -- Creates a graphics object representing the level 2 object, where the argument nchar size specifies the character size of the representation. -- Related: \\->LCD,LCD\\->" "1E5AD" :Usr) "xGXOR" ("g_targ {#n #m} g_src --> g_targ' g_targ (x,y) g_src --> g_targ' PICT ... ... -->" "Graphics Exclusive OR Cmd -- Superimposes grob1 onto grobtgt or PICT, with the upper left corner of grob1 positioned at the specified coordinate in grobtgt or PICT. -- grobtgt {#n #m} grob1\\-> grobresult grobtgt (x,y) grob1\\-> grobresult PICT {#n #m} grob1\\-> PICT (x,y) grob1\\-> -- Related: GOR,REPL,SUB" "1E4E4" :Usr) "xHALT" ("-->" "Halt Program Cmd -- Halts program execution. -- Related: CONT,KILL" "23472" :Usr) "xHEX" ("-->" "Hexadecimal Mode Cmd -- Selects hexadecimal base for binary integer operations. (The default base is decimal.) -- Related: BIN,OCT,DEC,RCWS,STWS" "1C58F" :Usr) "xHISTOGRAM" ("-->" "Histogram Plot Type Cmd -- Sets the plot type to HISTOGRAM. -- Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,PARAMETRIC,PARSURFACE,PCONTOUR, POLAR,SCATTER,SLOPEFIELD,TRUTH,WIREFRAME,YSLICE" "1E721" :Usr) "xHISTPLOT" ("-->" "Draw Histogram Plot Cmd -- Plots a frequency histogram of the specified column in the current stat matrix (reserved matrix \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BARPLOT,BINS,FREESE,PICTURE, PVIEW,RES,SCATRPLOT,XCOL" "20167" :Usr) "xHMS-" ("hms1 hms2 --> hms3" "Hours-Minutes-Seconds Minus Cmd -- Returns the difference of two real number, where the arguments and the result are interpreted in hours-minutes-seconds format. -- Related: HMS\\->,\\->HMS,HMS+" "1BF7E" :Usr) "xHMS+" ("hms1 hms2 --> hms3" "Hours-Minutes-Seconds Plus Cmd -- Returns the sum of two real number, where the arguments and the result are interpreted in hours-minutes-seconds format. -- Related: HMS\\->,\\->HMS,HMS-" "1BF5E" :Usr) "x\\->HMS" ("x --> x'" "Decimal to Hours-Minutes-Seconds Cmd -- Converts a real number representing hours or degrees with a decimal fraction to hours-minutes-seconds format. -- Related: HMS\\->,HMS+,HMS-" "1BF1E" :Usr) "x>HMS" ("x --> x'" "Decimal to Hours-Minutes-Seconds Cmd -- Converts a real number representing hours or degrees with a decimal fraction to hours-minutes-seconds format. -- Related: HMS\\->,HMS+,HMS-" "1BF1E" :Usr) "xHMS\\->" ("x --> x'" "Hours-Min-Sec to Decimal Cmd -- Converts a real number in hours -minutes-seconds format to its decimal form (hours or degrees with a decimal fraction. -- Related: \\->HMS,HMS+,HMS-" "1BF3E" :Usr) "xHMS>" ("x --> x'" "Hours-Min-Sec to Decimal Cmd -- Converts a real number in hours -minutes-seconds format to its decimal form (hours or degrees with a decimal fraction. -- Related: \\->HMS,HMS+,HMS-" "1BF3E" :Usr) "xHOME" ("-->" "HOME Directory Cmd -- Makes the HOME directory the current directory. -- Related: CRDIR,PATH,PGDIR,UPDIR" "1A140" :Usr) "xIDN" ("n --> [[]] [[]] --> [[]]' name --> [[]]" "Identity Matrix Cmd -- Returns an identity matrix; that is, a square matrix with its diagonal elements equal to 1 and its off-diagonal elements equal to 0. -- Related: CON" "1D2DC" :Usr) "xIF" ("-->" "IF Conditional Structure Cmd -- Starts IF ... THEN ... END and IF ... THEN ... ELSE ... END conditional structures. -- IF \\-> THEN T/F \\-> END \\-> \\-> IF \\-> THEN T/F \\-> ELSE \\-> END \\-> -- Related: CASE,ELSE,END,IFERR,THEN" "22EC3" :Usr) "xIFERR" ("-->" "If Error Conditional Struct Cmd -- Starts IFERR ... THEN ... END and IFERR ... THEN ... ELSE ... END error trapping structures. -- Related: CASE,ELSE,END,IF,THEN" "233DF" :Usr) "xIFT" ("0/1 obj --> ?" "IF-THEN Cmd -- Executes obj if T/F is nonzero. Discards obj if T/F is zero. -- Related: IFTE" "1A4CD" :Usr) "xIFTE" ("0/1 objT objF --> ?" "IF-THEN-ELSE Cmd -- Executes objT if T/F is nonzero. Discards objF if T/F is zero." "1A3FE" :Usr) "xi" ("--> i" "" "1AB45" :Usr) "xIM" ("(x,y) --> y [] --> []'" "Imaginary Part Func -- Returns the imaginary part of its (complex) argument. -- x \\-> 0 (x,y) \\-> y [ R-arr ] \\-> [ R-arr ] [ C-arr ] \\-> [ R-arr ] 'sym' \\-> 'IM(sym)' -- Related: C\\->R,RE,R\\->C" "1C819" :Usr) "xINCR" ("name --> x" "Increment Cmd -- Takes a variable on level 1, adds 1, stores the new value back into the original variable, and returns the new value to level 1. -- Related: DECR" "208F4" :Usr) "xINPUT" ("$prompt $ --> $' $prompt {specs} --> $'" "Input Cmd -- Prompts for data input to the command line and prevents the user access to stack operations. -- Related: PROMPT,STR\\->" "224CA" :Usr) "xINV" ("x --> 1/x [[]] --> [[]]'" "Inverse (1/x) Analytic Func -- Returns the reciprocal or the matrix inverse. -- Related: SINV,/" "1B278" :Usr) "xIP" ("x --> n" "Integer Part Func -- Returns the integer part of the argument. -- x \\-> n x_u \\-> n_u 'sym' \\-> 'IP(sym)' -- Related: FP" "1BB6D" :Usr) "xISOL" ("symb var --> symb'" "Isolate Variable Cmd -- Returns an algebraic symb' that rearranges symb to \"isolate\" the first occurrence of variable var. -- Related: COLCT,EXPAN,QUAD,SHOW,SOLVE" "20A93" :Usr) "x_" ("" "" "1FAEB" :Usr) "xFORMUNIT" ("" "" "1FAEB" :Usr) "x'" ("" "" "23679" :Usr) "xENDTIC" ("" "" "23679" :Usr) "x\\<<" ("" "" "2361E" :Usr) "x<<" ("" "" "2361E" :Usr) "x\\>>" ("" "" "235FE" :Usr) "x>>" ("" "" "23639" :Usr) "x>>ABND" ("" "" "235FE" :Usr) "xKERRM" ("--> msg" "Kermit Error Message Cmd -- Returns the text of the most recent Kermit error packet. -- Related: FINISH,KGET,PKT,RECN,RECV, SEND,SERVER" "2206C" :Usr) "xKEY" ("--> rc 1 --> 0" "Key Cmd -- Returns to level 1 a test result, and if a key is pressed, returns to level 2 the row-column location xn m of that key. -- Related: WAIT,KEYEVAL" "1A873" :Usr) "xKGET" ("name --> \"name\" --> {names} --> {{old new}...} -->" "Kermit Get Cmd -- Used by a local Kermit to get a Kermit server to transmit the named object(s). -- Related: BAUD,CKSM,FINISH,PARITY,RECN, RECV,SEND,SERVER,TRANSIO" "21F24" :Usr) "xKILL" ("-->" "Cancel Halted Programs Cmd -- Cancels all currently halted programs. (Halted programs are typically canceled by pressing PRG NXT RUN KILL.) If KILL is executed within a program, that program is also canceled. -- Related: CONT,DOERR,HALT,PROMPT" "1A303" :Usr) "xLABEL" ("-->" "Label Axes Cmd -- Labels axes in PICT with x- and y-axis variable names and with the minimum and maximum values of the display ranges. -- Related: LABEL,DRAW,DRAX" "1E2D5" :Usr) "xLASTARG" ("--> ob1 .. obn" "Last Arguments Cmd -- Returns copies of the arguments of the most recently executed command." "1A604" :Usr) "xLAST" ("--> ob1 .. obn" "Last Arguments Cmd -- Returns copies of the arguments of the most recently executed command." "1A604" :Usr) "x\\->LCD" ("grob -->" "Graphics Object to LCD Cmd -- Displays the graphics object from level 1, with its upper left pixel in the upper left corner of the display. -- Related: LCD\\->,BLANK,\\->GROB" "1E58D" :Usr) "x>LCD" ("grob -->" "Graphics Object to LCD Cmd -- Displays the graphics object from level 1, with its upper left pixel in the upper left corner of the display. -- Related: LCD\\->,BLANK,\\->GROB" "1E58D" :Usr) "xLCD\\->" ("--> grob" "LCD to Graphics Object Cmd -- Returns the current stack and menu display as a 131x64 graphics object. -- Related: \\->LCD,\\->GROB" "1E572" :Usr) "xLCD>" ("--> grob" "LCD to Graphics Object Cmd -- Returns the current stack and menu display as a 131x64 graphics object. -- Related: \\->LCD,\\->GROB" "1E572" :Usr) "xLIBS" ("--> {title nlib nport ...}" "Libraries Cmd -- Lists the title, number, and port of each library attached to the current directory. -- Related: ATTACH,DETACH" "2142D" :Usr) "xLINE" ("(x1,y1) (x2,y2) --> {#n1 #m1} {#n2 #m2} -->" "Draw Line Cmd -- Draws a line in PICT between the coordinates in levels 1 and 2. -- Related: ARC,BOX,TLINE" "1E398" :Usr) "x\\GSLINE" ("--> symb" "Regression Model Formula Cmd -- Returns an expression representing the best fit line according to the current statistical model, using X as the independent variable name, and explicit values of the slope and intercept taken from the reserved variable \\GSPAR. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,COL\\GS,CORR,COV, EXPFIT,LINFIT,LOGFIT,LR,PREDX, PREDY,PWRFIT,XCOL,YCOL" "200F3" :Usr) "xSIGMALINE" ("--> symb" "Regression Model Formula Cmd -- Returns an expression representing the best fit line according to the current statistical model, using X as the independent variable name, and explicit values of the slope and intercept taken from the reserved variable \\GSPAR. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,COL\\GS,CORR,COV, EXPFIT,LINFIT,LOGFIT,LR,PREDX, PREDY,PWRFIT,XCOL,YCOL" "200F3" :Usr) "xLINFIT" ("-->" "Linear Curve Fit Cmd -- Stores LINFIT as the fifth parameter in the reserved variable \\GSPAR, indicating that subsequent executions of LR are to use the linear curve fitting model. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,EXPFIT,LOGFIT,LR, PWRFIT" "201B1" :Usr) "xLIST\\->" ("{} --> ob1...obn n" "List to Stack Cmd -- Takes a list of n objects and returns them in separate levels, and returns the total number of objects to level 1. -- Related: ARRY\\->,DTAG,EQ\\->,\\->LIST, OBJ\\->,STR\\->" "1C95A" :Usr) "xLIST>" ("{} --> ob1...obn n" "List to Stack Cmd -- Takes a list of n objects and returns them in separate levels, and returns the total number of objects to level 1. -- Related: ARRY\\->,DTAG,EQ\\->,\\->LIST, OBJ\\->,STR\\->" "1C95A" :Usr) "x\\->LIST" ("ob1 .. obn n --> {}" "Stack to List Cmd -- Takes n objects from level n+1 through level 2 and returns a list of those n objects. -- Related: \\->ARRY,LIST\\->,\\->STR, \\->TAG,\\->UNIT" "1C783" :Usr) "x>LIST" ("ob1 .. obn n --> {}" "Stack to List Cmd -- Takes n objects from level n+1 through level 2 and returns a list of those n objects. -- Related: \\->ARRY,LIST\\->,\\->STR, \\->TAG,\\->UNIT" "1C783" :Usr) "xLN" ("x --> x'" "Natural Logarithm Analytic Func -- Returns the natural (base e) logarithm of the argument. -- z \\-> ln z 'sym' \\-> 'LN(sym)' -- Related: ALOG,EXP,ISOL,LNP1,LOG" "1B94F" :Usr) "xLNP1" ("x --> x'" "Natural Log of x+1 Analytic Func -- Returns ln (x + 1). -- x \\-> ln(x+1) 'sym' \\-> 'LNP1(sym)' -- Related: EXPM,LN" "1BA8C" :Usr) "xLOG" ("x --> x'" "Common Logarithm Analytic Func -- Returns the common logarithm (base 10) of the argument. -- z \\-> log z 'sym' \\-> 'LOG(sym)' -- Related: ALOG,EXP,ISOL,LN" "1B9C6" :Usr) "xLOGFIT" ("-->" "Logarithmic Curve Fit Cmd -- Stores LOGFIT as the fifth parameter in the reserved variable \\GSPAR, indicating that subsequent executions of LR are to use the logarithmic curve-fitting model. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,EXPFIT,LINFIT,LR,PWRFIT" "201D6" :Usr) "xLR" ("--> Intercept Slope" "Linear Regression Cmd -- Uses the currently selected statistical model to calculate the linear regression coefficients (intercept and slope) for the selected dependent and independent variables in the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BESTFIT,COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,PREDX,PREDY, PWRFIT,XCOL,YCOL" "1FF20" :Usr) "xMANT" ("x --> x'" "Mantissa Func -- Returns the mantissa of the argument. -- x \\-> ymant 'sym' \\-> 'MANT(sym)' -- Related: SIGN,XPON" "1BE9C" :Usr) "x\\|vMATCH" ("symb {spat srepl} --> symb' 0/1 symb {spat srepl scond} --> symb' 0/1" "Match Pattern Down Cmd -- Rewrites an expression. -- Related: X\\|^MATCH" "1FA8D" :Usr) "xMATCHDN" ("symb {spat srepl} --> symb' 0/1 symb {spat srepl scond} --> symb' 0/1" "Match Pattern Down Cmd -- Rewrites an expression. -- Related: X\\|^MATCH" "1FA8D" :Usr) "x\\|^MATCH" ("symb {spat srepl} --> symb' 0/1 symb {spat srepl scond} --> symb' 0/1" "Bottom-Up Match and Replace Cmd -- Rewrites an expression. -- Related: X\\|VMATCH" "1FA59" :Usr) "xMATCHUP" ("symb {spat srepl} --> symb' 0/1 symb {spat srepl scond} --> symb' 0/1" "Bottom-Up Match and Replace Cmd -- Rewrites an expression. -- Related: X\\|VMATCH" "1FA59" :Usr) "xMAX" ("x y --> x'" "Maximum Func -- Returns the greater (more positive) of the arguments. -- x y \\-> max(x, y) x 'sym' \\-> 'MAX(x, sym)' 'sym' x \\-> 'MAX(sym, x)' 'sym1' 'sym2' \\-> 'MAX(sym1, sym2)' x_u1 y_u2 \\-> max(x_u1, y_u2) -- Related: MIN" "1BC71" :Usr) "xMAXR" ("--> MAXR" "Maximum Real Func -- Returns the symbolic constant 'MAXR' or its numerical representation, 9.99999999999E499. -- \\-> 'MAXR' \\-> 9.99999999999E499 -- Related: Ee,i,MINR,\\pi" "1AADF" :Usr) "xMAX\\GS" ("--> xmax --> [x1...xn]" "Maximum Sigma Cmd -- Finds the maximum coordinate value in each of the m columns of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BINS,MEAN,MIN\\GS,SDEV,TOT,VAR" "1FE7E" :Usr) "xMAXSIGMA" ("--> xmax --> [x1...xn]" "Maximum Sigma Cmd -- Finds the maximum coordinate value in each of the m columns of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BINS,MEAN,MIN\\GS,SDEV,TOT,VAR" "1FE7E" :Usr) "xMEAN" ("--> xmean --> [x1...xn]" "Mean Cmd -- Returns the mean of each of the m columns of coordinate values in the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BINS,MAX\\GS,MIN\\GS,SDEV,TOT,VAR" "1FE99" :Usr) "xMEM" ("--> x" "Memory Available Cmd -- Returns the number of bytes of available RAM. -- Related: BYTES" "20FAA" :Usr) "xMERGE" ("1 -->" "Merge RAM Card Cmd Only useful on the 48. -- Merges the RAM from the card in port 1 with the rest of main user memory. Merged memory is no longer independent. -- Related: FREE,FREE1" "2137F" :Usr) "xMIN" ("x y --> x'" "Minumum Func -- Returns the lesser (more negative) of its two arguments. -- x y \\-> min(x, y) x 'sym' \\-> 'MIN(x, sym)' 'sym' x \\-> 'MIN(sym, x)' 'sym1' 'sym2' \\-> 'MIN(sym1, sym2)' x_u1 y_u2 \\-> min(x_u1, y_u2) -- Related: MAX" "1BCE3" :Usr) "xMINR" ("--> MINR" "Minimum Real Func -- Returns the symbolic constant 'MINR' or its numerical representation, 1.00000000000E-499. -- \\-> 'MAXR' \\-> 1.00000000000E-499 -- Related: e,i,MAXR,\\pi" "1AB01" :Usr) "xMIN\\GS" ("--> xmin --> [x1...xn]" "Minimum Sigma Cmd -- Finds the minimum coordinate value in each of the m current statistics matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BINS,MAX\\GS,MEAN,SDEV,TOT,VAR" "1FEB4" :Usr) "xMINSIGMA" ("--> xmin --> [x1...xn]" "Minimum Sigma Cmd -- Finds the minimum coordinate value in each of the m current statistics matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BINS,MAX\\GS,MEAN,SDEV,TOT,VAR" "1FEB4" :Usr) "xMOD" ("x y --> x'" "Modulo Func -- Returns a remainder defined by: x mod y = x - y floor (x/y) -- x y \\-> x mod y x 'sym' \\-> 'MOD(x, sym)' 'sym' x \\-> 'MOD(sym, x)' 'sym1' 'sym2' \\-> 'MOD(sym1, sym2)' -- Related: FLOOR,/" "1BE4D" :Usr) "xNEG" ("x --> x'" "Negate Analytic Func -- Changes the sign or negates an object. -- z \\-> -z #n1 \\-> #n2 [ arr ] \\-> [ -arr ] 'sym' \\-> '-(sym)' x_u \\-> -x_u grob1 \\-> grob2 PICT1 \\-> PICT2 -- Related: ABS,CONJ,NOT,SIGN" "1A995" :Usr) "xNEWOB" ("ob --> ob" "New Object Cmd -- Creates a new copy of the specifiedfied object. -- Related: MEM,PURGE" "1A2BC" :Usr) "xNEXT" ("-->" "NEXT Cmd -- Ends definite loop structures. See the FOR and START command entries for syntax information. -- Related: FOR,START,STEP" "2324C" :Usr) "xNOT" ("x --> x'" "NOT Cmd -- Returns the one's complement or the logical inverse of the argument. -- #n1 \\-> #n2 T/F \\-> 0/1 \"str1\" \\-> \"str2\" 'sym' \\-> 'NOT sym' -- Related: AND,OR,XOR" "1E88F" :Usr) "~xNOVAL" ("-->" "INFORM Place Holder/Result Cmd -- Place holder for reset and initial values in user-defined dialog boxes. NOVAL is returned to the stack when a field is empty. -- Related: INFORM" "05B0AB" :Usr) "xN\\GS" ("--> nrows" "Number of Rows Cmd -- Returns the number of rows in the current statistical matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: \\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2" "1FDA6" :Usr) "xNSIGMA" ("--> nrows" "Number of Rows Cmd -- Returns the number of rows in the current statistical matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: \\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2" "1FDA6" :Usr) "xNUM" ("$ --> n" "Character Number Cmd -- Returns the character code n for the first character in the string. -- Related: CHR,POS,REPL,SIZE,SUB" "1CB46" :Usr) "x\\->NUM" ("x --> x'" "Evaluate to Number Cmd -- Evaluates a symbolic argument object and returns the numerical result. -- objsym \\-> z -- Related: \\->Q,\\->Qpi" "1A5E4" :Usr) "x>NUM" ("x --> x'" "Evaluate to Number Cmd -- Evaluates a symbolic argument object and returns the numerical result. -- objsym \\-> z -- Related: \\->Q,\\->Qpi" "1A5E4" :Usr) "xOBJ\\->" ("ob --> ?" "Object to Stack Cmd -- Separates an object into its components onto the stack. For some object types, the number of composites is returned to level 1. -- (x,y) \\-> x y {obj1 ... objn} \\-> obj1 objn n [x1 ... xn] \\-> x1 xn {n} [[x11 ... xm n]] \\-> x11 xm n {m n} \"obj\" \\-> evaluated-obj 'sym' \\-> obj1 ... objn n func x_u \\-> x 1_u :tag:obj \\-> obj \"tag\" -- Related: ARRY\\->,C\\->R,DTAG,EQ\\->, R\\->C,STR\\->,\\->TAG" "1CF7B" :Usr) "xOBJ>" ("ob --> ?" "Object to Stack Cmd -- Separates an object into its components onto the stack. For some object types, the number of composites is returned to level 1. -- (x,y) \\-> x y {obj1 ... objn} \\-> obj1 objn n [x1 ... xn] \\-> x1 xn {n} [[x11 ... xm n]] \\-> x11 xm n {m n} \"obj\" \\-> evaluated-obj 'sym' \\-> obj1 ... objn n func x_u \\-> x 1_u :tag:obj \\-> obj \"tag\" -- Related: ARRY\\->,C\\->R,DTAG,EQ\\->, R\\->C,STR\\->,\\->TAG" "1CF7B" :Usr) "xOCT" ("-->" "Octal Mode Cmd -- Selects octal base for binary integer operations. (The default base is decimal.) -- Related: BIN,DEC,HEX,RCWS,STWS" "1C5AA" :Usr) "xOFF" ("-->" "Off Cmd -- Turns off the calculator. -- Related: CONT,HALT,KILL" "1A31E" :Usr) "xOLDPRT" ("" "Old Printer Cmd -- Modifies the remapping string in the reserved variable PRTPAR so that the extended character set of the HP 48 matches that of the HP 82240A Infrared Printer. Not useful on the 49G." "1EE38" :Usr) "xOPENIO" ("-->" "Open I/O Port Cmd -- Opens the serial port or the IR port using the I/O parameters in the reserved variable IOPAR. -- TEXT:Reserved|IOPAR -- Related: BUFLEN,CLOSEIO,SBRK,SRECV, STIME,XMIT" "21EB5" :Usr) "xOR" ("x y --> x'" "OR Func -- Returns the logical OR of two arguments. -- #n1 #n2 \\-> #n3 \"str1\" \"str2\" \\-> \"str3\" T/F1 T/F2 \\-> 0/1 T/F 'sym' \\-> 'T/F OR sym' 'sym' T/F \\-> 'sym OR T/F' 'sym1' 'sym2' \\-> 'sym1 OR sym2' -- Related: AND,NOT,XOR" "1E809" :Usr) "xORDER" ("{names} -->" "Order Variables Cmd -- Reorders the variables in the current directory (shown in the VAR menu) to the order specified. -- Related: VARS" "20FD9" :Usr) "xOVER" ("1 2 --> 1 2 1" "Over Cmd -- Returns a copy to stack level 1 of the object in level 2. -- Related: PICK,ROLL,ROLLD,ROT,SWAP" "1FC29" :Usr) "xPARAMETRIC" ("-->" "Parametric Plot Type Cmd -- Sets the plot type to PARAMETRIC. -- Related: BAR,CONTOUR,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARSURFACE,PCONTOUR, POLAR,SCATTER,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE" "1E6C1" :Usr) "xPARITY" ("n -->" "Parity Cmd -- Sets the parity value in the reserved variable IOPAR. -- TEXT:Reserved|IOPAR -- Related: BAUD,CKSM,TRANSIO" "2202C" :Usr) "xPATH" ("--> {HOME dir1 .. dirn}" "Current Path Cmd -- Returns a list specifying the path to the current directory. -- Related: CRDIR,HOME,PGDIR,UPDIR" "1A125" :Usr) "xPDIM" ("(xmin,ymin) (xmax,ymax) --> #width #height -->" "PICT Dimension Cmd -- Replaces PICT with a blank PICT of the specified dimensions. -- Related: PMAX,PMIN" "1E201" :Usr) "xPERM" ("n k --> n'" "Permutations Func -- Returns the number of possible permutations of n items taken m at a time. -- n m \\-> Pn,m 'symn' m \\-> 'PERM(symn,m)' n 'symm' \\-> 'PERM(n,symm)' 'symn' 'symm' \\-> 'PERM(symn,symm)' -- Related: COMB,!" "1C236" :Usr) "xPGDIR" ("name -->" "Purge Directory Cmd -- Purges the named directory (whether empty or not). -- Related: CLVAR,CRDIR,HOME,PATH,PURGE, UPDIR" "2123A" :Usr) "xPICK" ("1...n n --> 1..n 1" "Pick Object Cmd -- Copies the contents of a specified level to level 1. -- Related: DUP,DUPN,DUP2,OVER,ROLL,ROLLD, ROT,SWAP" "1FC9A" :Usr) "xPICT" ("--> PICT" "PICT Cmd -- Puts the name PICT on the stack. -- Related: GOR,GCOR,NEG,PICTURE,PVIEW, RCL,REPL,SIZE,STO,SUB" "1E436" :Usr) "xPICTURE" ("-->" "Picture Environment Cmd -- Selects the Picture environment (selects the graphics display and activates the graphics cursor and Picture menu). -- Related: PVIEW,TEXT,PIC" "1E2BA" :Usr) "xGRAPH" ("-->" "Picture Environment Cmd -- Selects the Picture environment (selects the graphics display and activates the graphics cursor and Picture menu). -- Related: PVIEW,TEXT,PIC" "1E2BA" :Usr) "xPIX?" ("(x,y) --> 1/0 {#n #m} --> 1/0" "Pixel On? Cmd -- Tests whether the specified pixel in PICT is on; returns 1 (true) if the pixel is on, and 0 (false) if the pixel is off. -- Related: PIXON,PIXOFF" "1E36E" :Usr) "xPIXOFF" ("(x,y) --> {#n #m} -->" "Pixel Off Cmd -- Turns off the pixel at the specified coordinate in PICT. -- Related: PIX?,PIXON" "1E344" :Usr) "xPIXON" ("(x,y) --> {#n #m} -->" "Pixel On Cmd -- Turns on the pixel at the specified coordinate in PICT. -- Related: PIX?,PIXOFF" "1E31A" :Usr) "xPKT" ("$data $type --> $response" "Packet Cmd -- Used to send command \"packets\" (and receive requested data) to a Kermit server. -- Related: CLOSEIO,KERRM,SERVER" "220DD" :Usr) "xPMAX" ("(x,y) -->" "PICT Maximum Cmd -- Specifies (x,y) as the coordinates at the upper right corner of the display. -- Related: PDIM,PMIN,XRNG,YRNG" "1E09E" :Usr) "xPMIN" ("(x,y) -->" "PICT Minimum Cmd -- Specifies (x,y) as the coordinates at the lower left corner of the display. -- Related: PDIM,PMAX,XRNG,YRNG" "1E07E" :Usr) "xPOLAR" ("-->" "Polar Plot Type Cmd -- Sets the plot type to POLAR. -- Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,SCATTER,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE" "1E6a1" :Usr) "xPOS" ("str substring --> n/0 {} ob --> n/0" "Position Cmd -- Returns the position of a substring within a string or the position of an object within a list. -- Related: CHR,NUM,REPL,SIZE,SUB" "1CAB4" :Usr) "xPR1" ("ob --> ob" "Print Level 1 Cmd -- Prints an object in multiline printer format. -- Related: CR,DELAY,OLDPRT,PRTLCD,PRST, PRSTC,PRVAR" "1EE53" :Usr) "xPREDV" ("x --> y" "Predicted y-Value Cmd -- Returns the predicted dependent variable value ydepend, based on the independent-variable value xindep, the currently selected stat model, and the current regression coefficients in the reserved variable \\GSPAR. -- TEXT:Reserved|\\GSPAR -- Related: PREDX" "1FF7A" :Usr) "xPREDX" ("y --> x" "Predicted x-Value Cmd -- Returns the predicted dependent variable value xindepend, based on the independent-variable value ydepend, the currently selected stat model, and the current regression coefficients in the reserved variable \\GSPAR. -- TEXT:Reserved|\\GSPAR -- Related: COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,LR, PREDY,PWRFIT,XCOL,YCOL" "1FFBA" :Usr) "xPREDY" ("x --> y" "Predicted y-Value Cmd -- Returns the predicted dependent variable value ydepend, based on the independent-variable value xindepend, the currently selected stat model, and the current regression coefficients in the reserved variable \\GSPAR. -- TEXT:Reserved|\\GSPAR -- Related: COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,LR, PREDX,PWRFIT,XCOL,YCOL" "1FF9A" :Usr) "xPRLCD" ("-->" "Print LCD Cmd -- Prints a pixel-by-pixel image of the current display (excluding the annunciators) -- Related: CR,DELAY,OLDPRT,PRST,PRSTC, PRVAR,PR1" "1EF63" :Usr) "xPROMPT" ("$ -->" "Prompt Cmd -- Displays the contents of \"prompt\" in the status area, and halts program execution. -- Related: CONT,DISP,FREEZE,HALT,INFORM, INPUT,MSGBOX" "23824" :Usr) "xPRST" ("-->" "Print Stack Cmd -- Prints all objects in the stack, starting with the object in the highest level. -- Related: CR,DELAY,OLDPRT,PRLCD,PRSTC, PRVAR,PR1" "1EE89" :Usr) "xPRSTC" ("" "Print Stack (Compact) Cmd -- Prints in compact form all objects in the stack, starting with the object in the highest level. -- Related: PR,DELAY,OLDPRT,PRLCD,PRST, PRVAR,PR1" "1EE6E" :Usr) "xPRVAR" ("name --> {names} --> :port:name -->" "Print Variable Cmd -- Searches the current directory path or port for the specified variables and prints the name and contents of each variable. -- Related: CP,DELAY,OLDPRT,PR1,PRLCD, PRST,PRSTC" "1EEBF" :Usr) "xPUT" ("ob pos obj --> ob' ob = [] or [[]] or {} or name pos = n or {n} or {n m}" "Put Element Cmd -- In the level 3 array or list, PUT replaces with zput or objput the object whose position is specified in level 2; if the array or list is unnamed, returns the new array or list. -- Related: GET,GETI,PUTI" "1D407" :Usr) "xPUTI" ("ob pos obj --> [] pos' ob = [] or [[]] or {} or name pos = n or {n} or {n m}" "Put and Increment Index Cmd -- In the level 3 array or list, replaces with zput or objput the object whose position is specified in level 2, returning the new array or list and the next position in that array or list. -- Related: GET,GETI,PUT" "1D5DF" :Usr) "xPVARS" ("nport --> {} mem" "Port-Variables Cmd -- Returns a list of the backup objects (:nport:name) and the lib- rary objects (:nport:nlibrary) in the specified port. Also returns the available memory size (if RAM) or the memory type. -- Related: VARS" "211FC" :Usr) "xPVIEW" ("(x,y) --> {#n #m} -->" "PICT View Cmd -- Displays PICT with the specified coordinate at the upper left corner of the graphics display. -- Related: FREEZE,PICTURE,PICT,TEXT" "1E2F0" :Usr) "xPWRFIT" ("" "Power Curve Fit Cmd -- Stores PWRFIT as the fifth parameter in the reserved variable \\GSPAR, indicating that subsequent executions of LR are to use the power curve fitting model. -- TEXT:Reserved|\\GSPAR -- Related: BESTFIT,EXPFIT,LINFIT, LOGFIT,LR" "20220" :Usr) "xPX\\->C" ("{#m #n} --> (x,y)" "Pixel to Complex Cmd -- Converts the specified pixel coordinates to user-unit coordinates. -- Related: C\\->PX" "1E27A" :Usr) "xPX>C" ("{#m #n} --> (x,y)" "Pixel to Complex Cmd -- Converts the specified pixel coordinates to user-unit coordinates. -- Related: C\\->PX" "1E27A" :Usr) "x\\->Q" ("x --> a/b" "To Quotient Cmd -- Returns a rational form of the argument. -- x \\-> 'a/b' (x,y) \\-> 'a/b+c/d*i 'sym1' \\-> 'sym2' -- Related: \\->Q\\pi,/" "1F9C4" :Usr) "x->Q" ("x --> a/b" "To Quotient Cmd -- Returns a rational form of the argument. -- x \\-> 'a/b' (x,y) \\-> 'a/b+c/d*i 'sym1' \\-> 'sym2' -- Related: \\->Q\\pi,/" "1F9C4" :Usr) "x\\->Q\\pi" ("x --> symb" "To Quotient Times \\pi Cmd -- Returns a rational form of the argument, or a rational form of the argument with \\pi factored out, whichever yields the smaller denominator. -- x \\-> 'a/b*\\pi' x \\-> 'a/b' 'sym1' \\-> 'symb2' (x,y) \\-> 'a/b*\\pi+c/d*\\pi*i (x,y) \\-> 'a/b+c/d*i -- Related: \\->Q,/,\\pi" "1F9E9" :Usr) "x->QPI" ("x --> symb" "To Quotient Times \\pi Cmd -- Returns a rational form of the argument, or a rational form of the argument with \\pi factored out, whichever yields the smaller denominator. -- x \\-> 'a/b*\\pi' x \\-> 'a/b' 'sym1' \\-> 'symb2' (x,y) \\-> 'a/b*\\pi+c/d*\\pi*i (x,y) \\-> 'a/b+c/d*i -- Related: \\->Q,/,\\pi" "1F9E9" :Usr) "xQUAD" ("symb var --> symb'" "Solve Quadratic Equation Cmd -- Solves an algebraic object symb for the variable var, and returns an expression symb' representing the solution. -- Related: COLCT,EXPAN,ISOL,SHOW,SOLVE" "20AB3" :Usr) "xQUOTE" ("ob --> 'ob" "Quote Argument Func -- Returns its argument unevaluated. -- 'sym' \\-> 'sym' obj \\-> obj -- Related: APPLY,|" "1F500" :Usr) "xRAD" ("-->" "Radians Mode Cmd -- Sets Radians angle mode. -- Related: DEG,RAD" "1C3B4" :Usr) "xRAND" ("--> x" "Random Number Cmd -- Returns a pseudo-random number generated using a seed value, and updates the seed value. -- Related: COMB,PERM,RDZ,!" "1C1B9" :Usr) "xRATIO" ("x y --> x/y" "Prefix Divide Func -- Prefix form of / (divide) generated by the Equation Writer Application. -- z1 z2 \\-> z1/z2 [arr] [[mat]] \\-> [[arr\327mat^-1]] [arr] z \\-> [arr/z] z 'sym' \\-> 'z/sym' 'sym' z \\-> 'sym/z' 'sym1' 'sym2' \\-> 'sym1/sym2' #n1 n2 \\-> #n3 n1 #n2 \\-> #n3 #n1 #n2 \\-> #n3 x_u1 y_u2 \\-> (x/y)_u1/u2 x y_u \\-> (x/y)_1/u x_u y \\-> (x/y)_u 'sym' x_u \\-> 'sym/x_u' x_u 'sym' \\-> 'x_u/sym' -- Related: /" "1FB5D" :Usr) "xPREDIV" ("x y --> x/y" "Prefix Divide Func -- Prefix form of / (divide) generated by the Equation Writer Application. -- z1 z2 \\-> z1/z2 [arr] [[mat]] \\-> [[arr\327mat^-1]] [arr] z \\-> [arr/z] z 'sym' \\-> 'z/sym' 'sym' z \\-> 'sym/z' 'sym1' 'sym2' \\-> 'sym1/sym2' #n1 n2 \\-> #n3 n1 #n2 \\-> #n3 #n1 #n2 \\-> #n3 x_u1 y_u2 \\-> (x/y)_u1/u2 x y_u \\-> (x/y)_1/u x_u y \\-> (x/y)_u 'sym' x_u \\-> 'sym/x_u' x_u 'sym' \\-> 'x_u/sym' -- Related: /" "1FB5D" :Usr) "xRCEQ" ("--> EQ" "Recall from EQ Cmd -- Returns the unevaluated contents of the reserved variable EQ from the current directory. -- TEXT:Reserved|EQ -- Related: STEQ" "1F133" :Usr) "xRCL" ("var --> x :port:nlib --> lib :port:name --> ob :port:{path} --> ob" "Recall Cmd -- Returns the unevaluated contents of a specified variable or plug -in object. -- Related: STO" "20B40" :Usr) "xRCLALARM" ("n --> {date time action rep}" "Recall Alarm Cmd -- Recalls a specified alarm. -- Related: DELALARM,FINDALARM,STOALARM" "19928" :Usr) "xRCLF" ("--> {#s1 #u1 #s2 #u2}" "Recall Flags Cmd -- Returns a list containing four 64 bit binary integers representing the states of the 64 system and user flags, respectively. -- Related: STOF" "1C619" :Usr) "xRCLKEYS" ("--> {ob ... key ...} --> {S ob ... key ...}" "Recall Key Assignments Cmd -- Returns the current user key assignments. This includes an S if the standard key definitions are active (not suppressed) for those keys without user key assignments. -- Related: ASN,DELKEYS,STOKEYS" "22586" :Usr) "xRCLMENU" ("--> x" "Recall Menu Number Cmd -- Returns the menu number of the currently displayed menu. -- Related: MENU,TMENU" "211E1" :Usr) "xRCL\\GS" ("--> [[]]" "Recall Sigma Cmd -- Returns the current stat matrix (the contents of reserved var \\GSDAT) from the current directory. -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,STO\\GS,\\GS+,\\GS-" "1FD46" :Usr) "xRCLSIGMA" ("--> [[]]" "Recall Sigma Cmd -- Returns the current stat matrix (the contents of reserved var \\GSDAT) from the current directory. -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,STO\\GS,\\GS+,\\GS-" "1FD46" :Usr) "xRCWS" ("--> n" "Recall Wordsize Cmd -- Returns the current wordsize in bits (1 through 64). -- Related: BIN,DEC,HEX,OCT,STWS" "1C5FE" :Usr) "xRDM" ("ob size --> ob' name size --> ob= [] or [[]] size = {n} or {n m}" "Redimension Array Cmd -- Rearranges the elements of the argument according to the specified dimensions. -- Related: TRN" "1D0DF" :Usr) "xRDZ" ("x -->" "Randomize Cmd -- Uses a real number xseed as a seed for the RAND command. -- Related: COMB,PERM,RAND,!" "1C1D4" :Usr) "xRE" ("(x,y) --> x [] --> []'" "Real Part Func -- Returns the real part of the argument. -- x \\-> x x_u \\-> x (x,y) \\-> x [ R-arr ] \\-> [ R-arr ] [ C-arr ] \\-> [ R-arr ] 'sym' \\-> 'RE(sym)' -- Related: C\\->R,IM,R\\->C" "1C7CA" :Usr) "xRECN" ("name --> $name -->" "Receive Renamed Object Cmd -- Prepares the HP 48 to receive a file from another Kermit device, and to store the file in a specified variable. -- Related: BAUD,CKSM,CLOSEIO,FINISH, KERRM,KGET,PARITY,RECV,SEND, SERVER,TRANSIO" "21F62" :Usr) "xRECV" ("-->" "Receive Object Cmd -- Instructs the HP 48 to look for a named file from another Kermit device. The received file is stored in a variable named by the sender. -- Related: BAUD,CKSM,FINISH,KGET,PARITY, RECN,SEND,SERVER,TRANSIO" "21F96" :Usr) "xREPEAT" ("1/0 -->" "REPEAT Cmd -- Starts loop clause in WHILE ... REPEAT ... END indefinite loop structure. -- Related: END,WHILE" "2305D" :Usr) "xREPL" ("ob pos new --> ob' ob= [[]] or [] or {} or $ or PICT pos= N or {n m} or (n,m)" "Replace Cmd -- Replaces a portion of the level 3 target object with the level 1 object, beginning at a position specified in level 2. -- Related: CHR,GOR,GXOR,NUM,POS,SIZE,SUB" "1C8EA" :Usr) "xRES" ("n_int --> #n_int -->" "Resolution Cmd -- Specifies the resolution of mathematical and statistical plots, where the resolution is the interval between values of the independent variable used to generate the plots. -- Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD, TRUTH,WIREFRAME,YSLICE" "1E126" :Usr) "xRESTORE" (":port:name --> ob -->" "Restore HOME Cmd -- Replaces the current HOME directory with the specified backup copy. -- :nport:namebackup \\-> obj backup \\-> -- Related: ARCHIVE" "2133C" :Usr) "xRL" ("# --> #'" "Rotate Left Cmd -- Rotates a binary integer one bit to the left. -- Related: RLB,RR,RRB" "1959B" :Usr) "xRLB" ("# --> #'" "Rotate Left Byte Cmd -- Rotates a binary integer one byte to the left. -- Related: RL,RR,RRB" "195BB" :Usr) "xRND" ("x n --> x'" "Round Func -- Rounds an object to a specified number of decimal places or significant digits, or to fit the current display format. -- z1 nrnd \\-> z2 z 'symrnd' \\-> 'RND(z,symrnd)' 'sym' nrnd \\-> 'RND(symb,nrnd)' 'sym1' 'symrnd' \\-> 'RND(sym1,symrnd)' [arr1] nrnd \\-> [arr2] x_u nrnd \\-> y_u x_u 'symrnd' \\-> 'RND(x_u,symrnd)' -- Related: TRNC" "1BD55" :Usr) "xRNRM" ("[] --> x" "Row Norm Cmd -- Returns the row norm (infinity norm) of its argument array. -- Related: CNRM,CROSS,DET,DOT" "1BF9E" :Usr) "xROLL" ("1...n n --> 2...n 1" "Roll Objects Cmd -- Moves the contents of a specified level to level 1, and rolls upwards the portion of the stack beneath the specified level. -- Related: OVER,PICK,ROLLD,ROT,SWAP" "1FCB5" :Usr) "xROLLD" ("n ... 1 n --> 1 n...2" "Roll Down Cmd -- Moves the contents of level 1 to a specified level, and rolls downwards the portion of the stack beneath the specified level -- Related: OVER,PICK,ROLL,ROT,SWAP" "1FCD0" :Usr) "xROOT" ("prog/s var guess --> x prog/s var {guesses} --> x" "Root-Finder Cmd -- Returns a real number xroot that is a value of the specified variable var for which the specified program or algebraic object most nearly evaluates to zero or a local extremum." "1F16E" :Usr) "xROT" ("1 2 3 --> 2 3 1" "Rotate Objects Cmd -- Rotates the first three objects on the stack, moving the object in level 3 to level 1. -- Related: OVER,PICK,ROLL,ROLLD,SWAP,UNROT" "1FC0E" :Usr) "xRR" ("# --> x'" "Rotate Right Cmd -- Rotates a binary integer one bit to the right. -- Related: RL,RLB,RRB" "195DB" :Usr) "xRRB" ("# --> x'" "Rotate Right Byte Cmd -- Rotates a binary integer one byte to the right. -- Related: RL,RLB,RR" "195FB" :Usr) "xRSD" ("[B] [[A]] [Z] --> []' [[B]] [[A]] [[Z]] --> [[]]'" "Residual Cmd -- Computes the residual B - AZ of the arrays B, A, and Z." "1C03E" :Usr) "xRULES" ("" "" "20A7D" :Usr) "xR\\->B" ("x --> #" "Real to Binary Cmd -- Converts a positive real integer to its binary integer equivalent. -- Related: B\\->R" "1969B" :Usr) "xR>B" ("x --> #" "Real to Binary Cmd -- Converts a positive real integer to its binary integer equivalent. -- Related: B\\->R" "1969B" :Usr) "xR\\->C" ("x y --> (x,y) [X] [Y] --> [(x,y)]" "Real to Complex Cmd -- Combines two real numbers or real arrays into a single complex number or array. -- Related: C\\->R,IM,RE" "1C79E" :Usr) "xR>C" ("x y --> (x,y) [X] [Y] --> [(x,y)]" "Real to Complex Cmd -- Combines two real numbers or real arrays into a single complex number or array. -- Related: C\\->R,IM,RE" "1C79E" :Usr) "xR\\->D" ("x --> (180/\\pi)x" "Radians to Degrees Func -- Converts a real number expressed in radians to its equivalent in degrees. -- x \\-> (180/\\pi)x 'sym' \\-> 'R\\->D(sym)' -- Related: D\\->R" "1BEF4" :Usr) "xR>D" ("x --> (180/\\pi)x" "Radians to Degrees Func -- Converts a real number expressed in radians to its equivalent in degrees. -- x \\-> (180/\\pi)x 'sym' \\-> 'R\\->D(sym)' -- Related: D\\->R" "1BEF4" :Usr) "xSAME" ("ob1 ob2 --> 1/0" "Display information about the makers of the calculator. Same Object Cmd -- Compares two objects, and returns a true result (1) if they are identical, and a false result (0) if they are not. -- Related: TYPE,==" "1E761" :Usr) "xSBRK" ("-->" "Serial Break Cmd -- Interrupts serial transmission or reception. -- Related: BUFLEN,SRECV,STIME,XMIT" "220C2" :Usr) "xSCALE" ("xs ys -->" "Scale Plot Cmd -- Adjusts the first two parameters in PPAR, (xmin, ymin) and (xmax, ymax), so that xscale and yscale are the new plot horizontal and vertical scales, and the center point doesn't change. -- TEXT:Reserved|PPAR -- Related: AUTO,CENTR,SCALEH,SCALEW" "1E1E1" :Usr) "xSCALEH" ("xf -->" "Multiply Height Cmd -- Multiplies the vertical plot scale by xfactor. -- Related: AUTO,SCALEW,YRING" "1E150" :Usr) "x*H" ("xf -->" "Multiply Height Cmd -- Multiplies the vertical plot scale by xfactor. -- Related: AUTO,SCALEW,YRING" "1E150" :Usr) "xSCALEW" ("yf -->" "Multiply Width Cmd -- Multiplies a plot's horizontal scale by xfactor. -- Related: AUTO,SCALEH,YRING" "1E170" :Usr) "x*W" ("yf -->" "Multiply Width Cmd -- Multiplies a plot's horizontal scale by xfactor. -- Related: AUTO,SCALEH,YRING" "1E170" :Usr) "xSCATRPLOT" ("-->" "Draw Scatter Plot Cmd -- Draws a scatter plot of (x, y) data points from the specified columns of the current statistics matrix (reserved variable \\GSDAT). -- Related: BARPLOT,PICTURE,HISTPLOT, PVIEW,SCL\\GS,XCOL,YCOL" "2018C" :Usr) "xSCATTER" ("" "Scatter Plot Type Cmd -- Sets the plot type to SCATTER. -- Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE" "1E701" :Usr) "xSCI" ("n -->" "Scientific Mode Cmd -- Sets the number display format to Scientific mode, which displays one digit to the left of the fraction mark and n significant digits to the right. -- Related: ENG,FIX,STD" "1C41E" :Usr) "xSCL\\GS" ("-->" "Scale Sigma Cmd -- Adjusts (xmin,ymin) and (xmax, ymax) in PPAR so that a subsequent scatter plot exactly fills PICT. -- TEXT:Reserved|PPAR -- Related: AUTO,SCATRPLOT" "200C4" :Usr) "xSCLSIGMA" ("-->" "Scale Sigma Cmd -- Adjusts (xmin,ymin) and (xmax, ymax) in PPAR so that a subsequent scatter plot exactly fills PICT. -- TEXT:Reserved|PPAR -- Related: AUTO,SCATRPLOT" "200C4" :Usr) "xSCONJ" ("name -->" "Store Conjugate Cmd -- Conjugates the contents of a named object. -- Related: CONJ,SINV,SNEG" "203CC" :Usr) "xSDEV" ("--> xsdev --> [x1...xn]" "Standard Deviation Cmd -- Calculates the sample standard deviation of each of the m columns of coordinate values in the current stat matrix (reserved var \\GSDAT). -- Related: MAX\\GS,MEAN,MIN\\GS,PSDEV, PVAR,TOT,VAR" "1FECF" :Usr) "xSEND" ("name --> {names} --> {{old new}...} -->" "Send Object Cmd -- Sends a copy of the named object to a Kermit device. -- Related: BAUD,CLOSEIO,CKSM,FINISH, KERRM,KGET,PARITY,RECN, RECV,SERVER,TRANSIO" "21EF0" :Usr) "xSERVER" ("-->" "Server Mode Cmd -- Selects Kermit Server mode. -- Related: BAUD,CKSM,FINISH,KERRM, KGET,PARITY,PKT,RECN,RECV, SEND,TRANSIO" "21FD1" :Usr) "xSF" ("n -->" "Set Flag Cmd -- Sets a specified user or system flag. -- Related: CF,FC?,FC?C,FS?,FS?C" "1C274" :Usr) "xSHOW" ("symb name --> symb' symb {names} --> symb'" "Show Variable Cmd -- Returns symb' which is equivalent to symb except that all implicit references to a variable name are made explicit. -- Related: COLCT,EXPAN,ISOL,QUAD" "20AD3" :Usr) "xSIGN" ("x --> x'" "Sign Func -- Returns the sign of a real number argument, the sign of the numerical part of a unit object argument, or the unit vector in the direction of a complex number argument. -- Related: ABS,MANT,XPON" "1B32A" :Usr) "xSIN" ("x --> x'" "Sine Analytic Func -- z \\-> sin z 'sym' \\-> 'SIN(sym)' x_uangular \\-> sin(x_uangular) -- Related: ASIN,COS,TAN" "1B4AC" :Usr) "xSINH" ("x --> x'" "Hyperbolic Sine Analytic Func -- Returns the hyperbolic sine of the argument. -- z \\-> sinh z 'sym' \\-> 'SINH(sym)' -- Related: ANUSH,COSH,TANH" "1B5B7" :Usr) "xSINV" ("name -->" "Store Inverse Cmd -- Replaces the contents of the named variable with its inverse. -- Related: INV,SCONJ,SNEG" "202CE" :Usr) "xSIZE" ("ob --> n --> {N m} --> #nw #nh" "Size Cmd -- Returns the number of characters in a string, the number of elements in a list, the dimensions of an array, the number of objects in a unit object or algebraic object, or the dimensions of a graphics object. -- \"str\" \\-> n { list } \\-> n [ vector ] \\-> { n } [[ mat ]] \\-> { n m } 'sym' \\-> n grob \\-> #nwidth #mheight PICT \\-> #nwidth #mheight x_u \\-> n -- Related: CHR,NUM,POS,REPL,SUB" "1C9B8" :Usr) "xSL" ("# --> #'" "Shift Left Cmd -- Shifts a binary integer one bit to the left. -- Related: ASR,SLB,SR,SRB" "1961B" :Usr) "xSLB" ("# --> #'" "Shift Left Byte Cmd -- Shifts a binary integer one byte to the left. -- Related: ASR,SL,SR,SRB" "1963B" :Usr) "xSNEG" ("name -->" "Store Negate Cmd -- Replaces the contents of a variable with its negative. -- Related: NEG,SCONJ,SINV" "2034D" :Usr) "xSQ" ("x --> x'" "Square Analytic Func -- Returns the square of the argument. -- z \\-> z2 x_u \\-> x2_u2 [[ mat ]] \\-> [[ mat \327 mat ]] 'sym' \\-> 'SQ(sym)' -- Related: \\v/,^" "1B426" :Usr) "xSR" ("# --> #'" "Shift Right Cmd -- Shifts a binary integer one bit to the right. -- Related: ASR,SL,SLB,SRB" "1965B" :Usr) "xSRB" ("# --> #'" "Shift Right Byte Cmd -- Shifts a binary integer one byte to the right. -- Related: ASR,SL,SLB,SR" "1967B" :Usr) "xSRECV" ("n --> $ 0/1" "Serial Receive Cmd -- Reads up to n characters from the serial input buffer and returns them as a string, along with a digit indicating whether errors occurred. -- Related: BUFFLEN,CLOSEIO,OPENIO, SBRK,STIME,XMIT" "21E95" :Usr) "xSTART" ("start finish -->" "START Definite Loop Structure Cmd -- START xstart xfinish \\-> NEXT xstart xfinish \\-> STEP xincrement \\-> STEP 'symbincrement' \\-> -- Related: FOR,NEXT,STEP" "23103" :Usr) "xSTD" ("-->" "Standard Mode Cmd -- Sets the number display format to Standard mode. -- Related: ENG,FIX,SCI" "1C486" :Usr) "xSTEP" ("n --> symb -->" "STEP Cmd -- Defines the increment (step) value, and ends definite loop struct See the FOR and START command entries for syntax information. -- Related: FOR,BEXT,START" "23380" :Usr) "xSTEQ" ("ob -->" "Store in EQ Cmd -- Stores an object into the reserved variable EQ in the current directory. -- TEXT:Reserved|EQ -- Related: RCEQ" "1F14E" :Usr) "xSTIME" ("x/0 -->" "Serial Time-Out Cmd -- Specifies the period that SRECV (serial reception) and XMIT (serial transmission) wait before timing out. -- Related: BUFLEN,CLOSEIO,SBRK,SRECV,XMIT" "220A2" :Usr) "xSTO" (" ob name --> ob :port:name --> lib port --> bup port --> ob 'name(i)' --> . 38G: 107002 \\~%s\\ [Usr]" "Store Cmd -- Stores an object into a specified variable or object. -- Related: DEFINE,RCL,\\->" "20CCD" :Usr) "xSTO-" ("ob name --> name ob -->" "Store Minus Cmd -- Calculates the difference between a number (or other object) and the contents of a specified variable, and stores the new value to the specified variable. -- Related: STO+,STO*,STO/,-" "20538" :Usr) "xSTO*" ("ob name --> name ob -->" "Store Times Cmd -- Multiplies the contents of a specified variable by a number or other object. -- Related: STO+,STO-,STO/,*" "20753" :Usr) "xSTO/" ("ob name --> name ob -->" "Store Divide Cmd -- Calculates the quotient of a number (or other object) and the contents of a specified variable, and stores the new value to the specified variable. -- Related: STO+,STO-,STO*,/" "2060C" :Usr) "xSTO+" ("ob name --> name ob -->" "Store Plus Cmd -- Adds a number or other object to the contents of a specified variable. -- Related: STO-,STO*,STO/,+" "2044B" :Usr) "xSTOALARM" ("time --> n {date time act rep} --> n" "Store Alarm Cmd -- Stores an alarm in the system alarm list and returns its alarm index number. act and rep arguments are optional. -- Related: DELALARM,FINDALARM,RCLALARM" "198FE" :Usr) "xSTOF" ("{#s1 #u1 #s2 #u2} -->" "Store Flags Cmd -- Sets the states of the system flags or the system and user flags. -- Related: RCLF,STWS,RCWS" "1C67F" :Usr) "xSTOKEYS" ("{ob key ...} --> {'S' ob key ...} --> 'S' -->" "Store Key Assignments Cmd -- Defines multiple keys on the user keyboard by assigning objects to specified keys. -- Related: ASN,DELKEYS,RCLKEYS" "22514" :Usr) "xSTO\\GS" ("ob -->" "Store Sigma Cmd -- Stores obj in the reserved variable \\GSDAT. -- Related: CL\\GS,RCL\\GS,\\GS+,\\GS-" "1FD0B" :Usr) "xSTOSIGMA" ("ob -->" "Store Sigma Cmd -- Stores obj in the reserved variable \\GSDAT. -- Related: CL\\GS,RCL\\GS,\\GS+,\\GS-" "1FD0B" :Usr) "xSTR\\->" ("$ --> ob" "Evaluate String Cmd -- Evaluates the text of a string as if the text were entered from the command line. -- Related: ARRY\\->,DTAG,EQ\\->,LIST\\->, OBJ\\->,\\->STR" "1CB26" :Usr) "xSTR>" ("$ --> ob" "Evaluate String Cmd -- Evaluates the text of a string as if the text were entered from the command line. -- Related: ARRY\\->,DTAG,EQ\\->,LIST\\->, OBJ\\->,\\->STR" "1CB26" :Usr) "x\\->STR" ("ob --> $" "Object to String Cmd -- Converts any object to string form. -- Related: \\->ARRY,\\->LIST,STR\\->, \\->TAG,\\->UNIT" "1CB0B" :Usr) "x>STR" ("ob --> $" "Object to String Cmd -- Converts any object to string form. -- Related: \\->ARRY,\\->LIST,STR\\->, \\->TAG,\\->UNIT" "1CB0B" :Usr) "xSTWS" ("n --> #n -->" "Set Wordsize Cmd -- Sets the current binary integer wordsize to n bits, where n is a value from 1 through 64 (the default is 64). -- Related: BIN,DEC,HEX,OCT,RCWS" "1C5C5" :Usr) "xSUB" ("ob start end --> ob' ob= [[]], $, {}, grob, PICT start,end = n, {n m}, (n,m)" "Subset Cmd -- Returns the portion of a string or list defined by specified positions, or returns the rectangular portion of a graphics object or PICT defined by two corner pixel coordinates. -- Related: CHR,GOR,GXOR,NUM,POS,REPL,SIZE" "1C85C" :Usr) "xSWAP" ("ob1 ob2 --> ob2 ob1" "Swap Objects Cmd -- Interchanges the first two objects on the stack. -- Related: DUP,DUPN,DUP2,OVER,PICK,ROLL,ROLLD,ROT" "1FBBD" :Usr) "xSYSEVAL" ("# --> ?" "Evaluate System Object Cmd -- Evaluates unnamed operating system objects specified by their memory addresses. -- Related: EVAL,LIBEVAL,FLASHEVAL" "1A52E" :Usr) "x%T" ("x y --> 100y/x" "Percent of Total Function -- Returns the percent of the level 2 argument that is represented by the level 1 argument. -- x y \\-> 100y/x x 'sym' \\-> '%T(x,sym)' 'sym' x \\-> '%T(sym,x)' 'sym1' 'sym2' \\-> '%T(sym1,sym2)' x_u1 y_u2 \\-> 100y_u2/x_u1 x_u 'sym' \\-> '%T(x_u,sym)' 'sym' x_u \\-> '%T(sym,x_u)' -- Related: %,%ch" "1C0D7" :Usr) "x\\->TAG" ("ob tag --> :tag:ob" "Stack to Tag Cmd -- Combines objects in levels 1 and 2 to created tagged (labeled) object. Tag may be any object. It will eb converted to a string. -- Related: \\->ARRY,DTAG,\\->LIST,OBJ\\->, \\->STR,\\->UNIT" "225BE" :Usr) "x->TAG" ("ob tag --> :tag:ob" "Stack to Tag Cmd -- Combines objects in levels 1 and 2 to created tagged (labeled) object. Tag may be any object. It will eb converted to a string. -- Related: \\->ARRY,DTAG,\\->LIST,OBJ\\->, \\->STR,\\->UNIT" "225BE" :Usr) "xTAN" ("x --> x'" "Tangent Analytic Func -- Returns the tangent of the argument. -- z \\-> tan z 'sym' \\-> 'TAN(symb)' x_unitang \\-> tan(x_unitang) - Related: ATAN,COS,SIN" "1B55E" :Usr) "xTANH" ("x --> x'" "Hyperbolic Tangent Analytic Func -- Returns the hyperbolic tangent of the argument. -- z \\-> tanh z 'sym' \\-> 'TANH(sym)' - Related: ATANH,COSH,SINH" "1B655" :Usr) "xTAYLR" ("symb var n --> symb'" "Taylor's Polynomial Cmd -- Calculates the nth order Taylor's polynomial of 'symb' in the variable var. -- Related: \\.d,\\.S,\\GS" "20B20" :Usr) "xTEXT" ("-->" "Show Stack Display Cmd -- Displays the stack display. -- Related: PICTURE,PVIEW" "1E606" :Usr) "xTHEN" ("" "THEN in an ON ERROR construct. -- Related: CASE,ELSE,END,IFERR" "2371F" :Usr) "xTHENCASE" ("" "THEN in a CASE statement. -- Related: CASE,ELSE,END,IFERR" "237A8" :Usr) "xERRTHEN" ("" "THEN in an ON ERROR construct. -- Related: CASE,ELSE,END,IFERR" "2371F" :Usr) "xTICKS" ("--> #" "Ticks Cmd -- Returns the system time as a binary integer, in units of 1/8192 second. -- Related: TIME" "1982D" :Usr) "xTIME" ("--> time" "Time Cmd -- Returns the system time in the form HH.MMSSs. -- Related: DATE,TICKS,TSTR" "197F7" :Usr) "x\\->TIME" ("time -->" "Set System Time Cmd -- Sets the system time. -- Related: CLKADJ,\\->DATE" "198BE" :Usr) "xSETTIME" ("time -->" "Set System Time Cmd -- Sets the system time. -- Related: CLKADJ,\\->DATE" "198BE" :Usr) "xTLINE" ("(x1,y1) (x2,y2) --> {#n1 #m1} {#n2 #m2} -->" "Toggle Line Cmd -- For each pixel along the line in PICT defined by the specified coordinates, TLINE turns off every pixel that is on, and turns on every pixel that is off. -- Related: ARC,BOX,LINE" "1E3C2" :Usr) "xTMENU" ("% --> [InitMenu%] {} --> name --> Ob --> [@LIST InitMenu]" "Temporary Menu Cmd -- Displays a built-in menu, libary menu, or a user-defined menu. -- Related: MENU,RCLMENU" "2115D" :Usr) "xTOT" ("--> xsum --> {x1...xn}" "Total Cmd -- Computes the sum of each of the m columns of coordinate values in the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: MAX\\GS,MIN\\GS,MEANMPSDEV, PVAR,SDEV,VAR" "1FEEA" :Usr) "xTRANSIO" ("n -->" "I/O Translation Cmd -- Specifies the character translation option. These translations affect only ASCII Kermit transfer and files printed to the serial port. -- Related: BAUD,CKSM,PARITY" "2204C" :Usr) "xTRN" ("[[]] --> [[]]' name -->" "Transpose Matrix Cmd -- Returns the (conjugate) transpose of a matrix. -- Related: CONJ" "1D392" :Usr) "xTRNC" ("x n -->" "Truncate Func -- Truncates an object to a specified number of decimal places or significant digits, or to fit the current display format. -- z1 ntrnc \\-> z2 z1 'symtrnc' \\-> 'TRNC(z1,symtrnc)' 'sym1' ntrnc \\-> 'TRNC(sym1,ntrnc)' 'sym1' 'symtrnc' \\-> 'TRNC(sym1,symtrnc)' [ arr ]1 ntrnc \\-> [ arr ]2 x_u ntrnc \\-> y_u x_u 'symtrnc' \\-> 'TRNC(x_u,symtrnc)' -- Related: RND" "1BDD1" :Usr) "xTRUTH" ("-->" "Truth Plot Type Cmd -- Sets the plot type to TRUTH. -- Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD,WIREFRAME,YSLICE" "1E6E1" :Usr) "xTSTR" ("date time --> $" "Date and Time String Cmd -- Returns a string derived from the date and time. -- Related: DATE,TICKS,TIME" "19992" :Usr) "xTVARS" ("ntype --> {} {n...} --> {}" "Typed Variables Cmd -- Lists all global variables in the current directory that contain objects of the specified types. -- Related: PVARS,TYPE,VARS" "1A1AF" :Usr) "xTYPE" ("ob --> %type" "Type Cmd -- Returns the type number of an object. -- User Objects: -- Object Type Number ------ ---- ------ Real number 0 Complex number 1 Character string 2 Real Array 3 Complex Array 4 List 5 Global name 6 Local name 7 Program 8 Algebraic Object 9 Binary Integer 10 Graphics object 11 Tagged object 12 Unit object 13 XLIB name 14 Directory 15 Library 16 Backup object 17 -- Built-in Cmds: -- Object Type Number ------ ---- ------ Built-in function 18 Built-in command 19 -- System Objects: -- Object Type Number ------ ---- ------ System binary 20 Extended real 21 Extended complex 22 Linked array 23 Character 24 Code object 25 Library data 26 External object 26-31 -- Related: SAME,TVARS,VTYPE" "1CB86" :Usr) "xUBASE" ("u --> u'" "Convert to SI Base Units Func -- Converts a unit object to SI base units. -- x_u \\-> y_base-units 'sym' \\-> 'UBASE(symb)' -- Related: CONVERT,UFACT,\\->UNIT,UVAL" "19771" :Usr) "xUFACT" ("u1 u2 --> u3" "Factor Unit Cmd -- Factors the level 1 unit from the unit expression of the level 2 unit object. -- Related: CONVERT,UBASE,\\->UNIT,UVAL" "197A5" :Usr) "x\\->UNIT" ("x u --> u'" "Stack to Unit Object Cmd -- Creates a unit object from a real number and the unit part of a unit object. -- Related: \\->ARRY,\\->LIST,\\->STR,\\->TAG" "1974F" :Usr) "x>UNIT" ("x u --> u'" "Stack to Unit Object Cmd -- Creates a unit object from a real number and the unit part of a unit object. -- Related: \\->ARRY,\\->LIST,\\->STR,\\->TAG" "1974F" :Usr) "xUNTIL" ("-->" "UNTIL Cmd -- Starts test-clause in DO ... UNTIL ... END indefinite loop structure. -- See the DO entry for syntax info. -- Related: DO,END" "230ED" :Usr) "xUPDIR" ("-->" "Up Directory Cmd -- Makes the parent of the current directory the new current directory. -- Related: CRDIR,HOME,PATH,PGDIR" "1A15B" :Usr) "xUTPC" ("n x --> x'" "Upper Chi-Square Distribution Cmd -- Returns the probability utpc(n,x) that a chi-square random variable is greater than x, where n is the number of degrees of freedom of the distribution. -- Related: UTPF,UTPN,UTPT" "2001A" :Usr) "xUTPF" ("n1 n2 x --> x'" "Upper Snedecor's F Distrib. Cmd -- Returns the probability utpf(n1,n2,x) that a Snedecor's F random variable is greater than x, where n1 and n2 are the numerator and denominator degrees of freedom of the F distribution. -- Related: UTPC,UTPN,UTPT" "2005A" :Usr) "xUTPN" ("n v x --> x'" "Upper Normal Distribution Cmd -- Returns the probability utpn(m,v,x) that a normal random variable is greater than x, where m and v are the mean and variance, respectively, of the normal distribution. -- Related: UTPC,UTPF,UTPT" "2003A" :Usr) "xUTPT" ("n x --> x'" "Upper Student's t Distrib. Cmd -- Returns the probability utpt(n,x) that a Student's t random variable is greater than x, where n is the number of degrees of freedom of the distribution. -- Related: UTPC,UTPF,UTPN" "2007A" :Usr) "xUVAL" ("u --> x" "Unit Value Func -- Returns the numerical part of a unit object. -- x_u \\-> x 'sym' \\-> 'UVAL(sym)' -- Related: CONVERT,UBASE,UFACT,\\->UNIT" "1971B" :Usr) "xV\\->" ("[]/() --> x y --> x y z (in current co-system)" "Vector/Complex Num to Stack Cmd -- [ x y ] \\-> x y [ xr ANGy\\Gh ] \\-> xr y\\Gh [ x1 x2 x3 ] \\-> x1 x2 x3 [ x1 ANGx\\Gh xz ] \\-> x1 x\\Gh xz [ x1 ANGx\\Gh ANGx\324\325] \\-> x1 x\\Gh x\324\325 [ x1 x2 ... xn ] \\-> x1 ... xn (x,y) \\-> x y (xr ANGy\\Gh) \\-> xr y\\Gh -- Related: \\->V2,\\->V3" "1DD06" :Usr) "xV>" ("[]/() --> x y --> x y z (in current co-system)" "Vector/Complex Num to Stack Cmd -- [ x y ] \\-> x y [ xr ANGy\\Gh ] \\-> xr y\\Gh [ x1 x2 x3 ] \\-> x1 x2 x3 [ x1 ANGx\\Gh xz ] \\-> x1 x\\Gh xz [ x1 ANGx\\Gh ANGx\324\325] \\-> x1 x\\Gh x\324\325 [ x1 x2 ... xn ] \\-> x1 ... xn (x,y) \\-> x y (xr ANGy\\Gh) \\-> xr y\\Gh -- Related: \\->V2,\\->V3" "1DD06" :Usr) "x\\->V2" ("x y --> [] --> ()" "Stack to Vector/Complex Num Cmd -- Converts two numbers from the stack into a 2-element vector or complex number. -- Related: V\\->,\\->V3" "1DE66" :Usr) "x>V2" ("x y --> [] --> ()" "Stack to Vector/Complex Num Cmd -- Converts two numbers from the stack into a 2-element vector or complex number. -- Related: V\\->,\\->V3" "1DE66" :Usr) "x\\->V3" ("x y z --> []" "Stack to 3-Element Vector Cmd -- Converts three numbers into a 3-element vector. -- Related: V\\->,\\->V2" "1DEC2" :Usr) "x>V3" ("x y z --> []" "Stack to 3-Element Vector Cmd -- Converts three numbers into a 3-element vector. -- Related: V\\->,\\->V2" "1DEC2" :Usr) "xVAR" ("--> x --> [x1...xn]" "Variance Cmd -- Calculates the sample variance of the coordinate values in each of the m columns in the current stat matrix (\\GSDAT). -- Related: MAX\\GS,MEAN,MIN\\GS,PSDEV,PVAR, SDEV,TOT" "1FF05" :Usr) "xVARS" ("--> {}" "Variables Cmd -- Returns a list of all variables' names in the VAR menu (the current directory). -- Related: ORDER,PVARS,TVARS" "1A194" :Usr) "xVTYPE" ("name --> n" "Variable Type Cmd -- Returns the type number of the object contained in the named variable. -- 'name' \\-> ntype :nport:namebackup \\-> ntype :nport:nlibrary \\-> ntype -- Related: TYPE" "1CE28" :Usr) "xWAIT" ("sec --> 0 --> rc.p" "Wait Cmd -- Suspends program execution for specified time, or until a key is pressed. -- Related: KEY" "1A71F" :Usr) "xWHILE" ("-->" "WHILE Indefinite Loop Struct Cmd -- Starts the WHILE ... REPEAT ... END indefinite loop structure. -- Related: DO,END,REPEAT" "23033" :Usr) "xWSLOG" ("--> $ $ $ $" "Warmstart Log Cmd -- Returns four strings recording the date, time, and cause of the four most recent warmstart events" "19848" :Usr) "x\\GSX2" ("--> xsum" "Sum of Squares of x-Values Cmd -- Sums the squares of the values in the independent-variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2" "1FE2D" :Usr) "xSUMX2" ("--> xsum" "Sum of Squares of x-Values Cmd -- Sums the squares of the values in the independent-variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2" "1FE2D" :Usr) "xXCOL" ("n -->" "Independent Column Cmd -- Specifies the independent variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT" "1FFDA" :Usr) "xXMIT" ("$ --> 1 --> $rest 0" "Serial Transmit Cmd -- Sends a string serially without using Kermit protocol, and returns a single digit that indicates whether the transmission was successful. -- Related: BUFLEN,SBRK,SRECV,STIME" "21E75" :Usr) "xXOR" ("# #' --> #'' $ $' --> $'' 1/0 1/0 --> 1/0" "Exclusive OR Cmd -- Returns the logical exclusive OR of two arguments. #n1 #n2 \\-> #n3 \"str1\" \"str2\" \\-> \"str3\" T/F1 T/F2 \\-> 0/1 T/F 'sym' \\-> 'T/F XOR sym' 'sym' T/F \\-> 'sym XOR T/F' 'sym1' 'sym2' \\-> 'sym1 XOR sym2' -- Related: AND,OR,NOT" "1E8F6" :Usr) "xXRNG" ("x1 x2 -->" "x-Axis Display Range Cmd -- Specifies the x-axis display range. -- Related: AUTO,PDIM,PMAX,PMIN,YRNG" "1E621" :Usr) "xXROOT" ("y x --> Y'" "xth Root of y Cmd -- Computes the xth root of a real number. y x \\-> x ROOT y 'sym1' 'sym2' \\-> 'XROOT(sym2,sym1)' 'sym' x \\-> 'XROOT(x,sym)' y 'sym' \\-> 'XROOT(sym,y)' y_u x \\-> x ROOT y_u1/x y_u 'sym' \\-> 'XROOT(sym,y_u)'" "1B1CA" :Usr) "x\\GSXY" ("--> xsum" "Sum of x Times Y Cmd -- Sums the products of the corresponding values in the independent and dependent variable columns of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSX2,\\GSY,\\GSY2" "1FE63" :Usr) "xSUMXY" ("--> xsum" "Sum of x Times Y Cmd -- Sums the products of the corresponding values in the independent and dependent variable columns of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSX2,\\GSY,\\GSY2" "1FE63" :Usr) "x\\GSY" ("--> xsum" "Sum of y-Values Cmd -- Sums the values in the dependent variable column of the current stat matrix (reserved var \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY2" "1FE12" :Usr) "xSUMY" ("--> xsum" "Sum of y-Values Cmd -- Sums the values in the dependent variable column of the current stat matrix (reserved var \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY2" "1FE12" :Usr) "x\\GSY2" ("--> xsum" "Sum of Squares of y-Values Cmd -- Sums the squares of the values in the dependent-variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY" "1FE48" :Usr) "xSUMY2" ("--> xsum" "Sum of Squares of y-Values Cmd -- Sums the squares of the values in the dependent-variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY" "1FE48" :Usr) "xYCOL" ("n -->" "Dependent Column Cmd -- Specifies the dependent-variable column of the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: BARPLOT,BESTFIT,COL\\GS,CORR, COV,EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREFY,PWRFIT,SCATRPLOT,XCOL" "1FFFA" :Usr) "xYRNG" ("y1 y2 -->" "y-Axis Display Range Cmd -- Specifies the y-axis display range. -- Related: AUTO,PDIM,PMAX,PMIN,XRNG" "1E641" :Usr) "x^" ("y x --> y^x" "Power Analytic Func -- Returns the value of the level 2 object raised to the power of the level 1 object. w z \\-> w^z z 'sym' \\-> 'z^sym' 'sym' z \\-> '(sym)^z' 'sym1' 'sym2' \\-> 'sym1^(sym2)' x_u y \\-> xy_uy x_u 'sym' \\-> '(x_u)^(sym)' -- Flags: -1 -3 Principal soln -1 Numeric results -3 -- Related: EXP,ISOL,LN,XROOT" "1B02D" :Usr) "x\\v/" ("x --> x'" "Square Root Analytic Func -- Returns the (+ve) square root of the argument. -- z \\-> \\v/z x_u \\-> \\v/(x)_u 'sym' \\-> 'SQRT(sym)' -- Flags: -1 -3 -- Related: SQ,^,ISOL" "1B374" :Usr) "xSQRT" ("x --> x'" "Square Root Analytic Func -- Returns the (+ve) square root of the argument. -- z \\-> \\v/z x_u \\-> \\v/(x)_u 'sym' \\-> 'SQRT(sym)' -- Flags: -1 -3 -- Related: SQ,^,ISOL" "1B374" :Usr) "x\\GS+" ("x --> x1...xn --> []/[[]] -->" "Sigma Plus Cmd -- Adds one or more data points to the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,RCL\\GS,STO\\GS,\\GS-" "1FD61" :Usr) "xSIGMA+" ("x --> x1...xn --> []/[[]] -->" "Sigma Plus Cmd -- Adds one or more data points to the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,RCL\\GS,STO\\GS,\\GS-" "1FD61" :Usr) "x\\GS-" ("--> x --> []" "Sigma Minus Cmd -- Returns a vector of m real numbers (or one number x if m = 1) corresponding to the coordinate values of the last data point entered by \\GS+ into the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,RCL\\GS,STO\\GS,\\GS+" "1FD8B" :Usr) "xSIGMA-" ("--> x --> []" "Sigma Minus Cmd -- Returns a vector of m real numbers (or one number x if m = 1) corresponding to the coordinate values of the last data point entered by \\GS+ into the current stat matrix (reserved variable \\GSDAT). -- TEXT:Reserved|\\GSDAT -- Related: CL\\GS,RCL\\GS,STO\\GS,\\GS+" "1FD8B" :Usr) "x\\pi" ("--> \\pi" "PI Func -- Returns the symbolic constant '\\pi' or its numerical representation, 3.14159265359. \\-> '\\pi' \\-> 3.14159265359 -- Flags: -2 -3 -- Related: e,i,MAXR,MINR,\\->Q\\pi" "1AABD" :Usr) "xPI" ("--> \\pi" "PI Func -- Returns the symbolic constant '\\pi' or its numerical representation, 3.14159265359. \\-> '\\pi' \\-> 3.14159265359 -- Flags: -2 -3 -- Related: e,i,MAXR,MINR,\\->Q\\pi" "1AABD" :Usr) "x\\<=" ("x y --> 1 \\n --> 0" "Less Than or Equal Func -- Tests whether one object is less than or equal to another object. -- x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x<=sym' 'sym' z \\-> 'sym<=z' 'sym1' 'sym2' \\-> 'sym1<=sym2' x_u1 y_u2 \\-> 0/1 x_u 'sym' \\-> 'x_unit<=sym' 'sym' x_u \\-> 'sym<=x_unit' -- Flags: -3 -- Related: <,>,\\>=,==,\\=/" "1ECFC" :Usr) "x<=?" ("x y --> 1 \\n --> 0" "Less Than or Equal Func -- Tests whether one object is less than or equal to another object. -- x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x<=sym' 'sym' z \\-> 'sym<=z' 'sym1' 'sym2' \\-> 'sym1<=sym2' x_u1 y_u2 \\-> 0/1 x_u 'sym' \\-> 'x_unit<=sym' 'sym' x_u \\-> 'sym<=x_unit' -- Flags: -3 -- Related: <,>,\\>=,==,\\=/" "1ECFC" :Usr) "x\\>=" ("x y --> 1 \\n --> 0" "Greater Than or Equal Func -- x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x\\>=sym' 'sym' z \\-> 'sym\\>=z' 'sym1' 'sym2' \\-> 'sym1\\>=sym2' x_u1 y_u2 \\-> 0/1 x_u 'sym' \\-> 'x_u\\>=sym' 'sym' x_u \\-> 'sym\\>=x_u' -- Flags: -3 -- Related: <,\\<=,>,==,\\=/" "1ED9B" :Usr) "x>=?" ("x y --> 1 \\n --> 0" "Greater Than or Equal Func -- x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x\\>=sym' 'sym' z \\-> 'sym\\>=z' 'sym1' 'sym2' \\-> 'sym1\\>=sym2' x_u1 y_u2 \\-> 0/1 x_u 'sym' \\-> 'x_u\\>=sym' 'sym' x_u \\-> 'sym\\>=x_u' -- Flags: -3 -- Related: <,\\<=,>,==,\\=/" "1ED9B" :Usr) "x\\=/" ("x y --> 1 \\n --> 0" "Not Equal Func -- Tests if two objects are equal. obj1 obj2 \\-> 0/1 (x,0) x \\-> 0/1 x (x,0) \\-> 0/1 z 'sym' \\-> 'z\\=/sym' 'sym' z \\-> 'sym\\=/z' 'sym1' 'sym2' \\-> 'sym1\\=/sym2' -- Flags: -3 -- Related: SAME,TYPE,<,\\<=,>,\\>=, ==" "1EA9D" :Usr) "x#?" ("x y --> 1 \\n --> 0" "Not Equal Func -- Tests if two objects are equal. obj1 obj2 \\-> 0/1 (x,0) x \\-> 0/1 x (x,0) \\-> 0/1 z 'sym' \\-> 'z\\=/sym' 'sym' z \\-> 'sym\\=/z' 'sym1' 'sym2' \\-> 'sym1\\=/sym2' -- Flags: -3 -- Related: SAME,TYPE,<,\\<=,>,\\>=, ==" "1EA9D" :Usr) "x\\->" ("" "Create local variable comand. xRPN->" "22FEB" :Usr) "xRPN->" ("ob1 .. obn -->" "Create Local Variables Cmd -- Creates local variables. obj1 ... objn \\-> -- Syntax: \\-> name1 name2 ... nameN \\<< prog \\>> \\-> name1 name2 ... nameN 'Expr' -- Related: DEFINE,STO" "234C1" :Usr) "xALG->" ("" "Create local variable comand. xRPN->" "22FEB" :Usr) "x!" ("x --> x'" "Factorial (Gamma) Func -- Returns the factorial n! of a positive integer argument n, or the gamma function \242(x+1) of a non-integer argument x. n \\-> n! x \\-> \242(x+1) 'sym' \\-> '(sym!)' -- Flags: -3 -20 -21 Numerical Results -3 Underflow exception -20 Overflow exception -21 -- Related: COMB,PERM" "1BB02" :Usr) "xFACT" ("x --> x'" "Factorial (Gamma) Func -- Returns the factorial n! of a positive integer argument n, or the gamma function \242(x+1) of a non-integer argument x. n \\-> n! x \\-> \242(x+1) 'sym' \\-> '(sym!)' -- Flags: -3 -20 -21 Numerical Results -3 Underflow exception -20 Overflow exception -21 -- Related: COMB,PERM" "1BB02" :Usr) "x%" ("x y --> xy/100" "Percent Func -- Returns x (level 2) percent of y (level 1). x y \\-> xy/100 x 'sym' \\-> '%(x,sym)' 'sym' x \\-> '%(sym,x)' 'sym1' 'sym2' \\-> '%(sym1,sym2)' x y_unit \\-> (xy/100)_unit x_unit y \\-> (xy/100)_unit 'sym' x_unit \\-> '%(sym,x_unit)' x_unit 'sym' \\-> '%(x_unit,sym)' -- Flags: Numerical Results -3 -- Related: %CH,%T" "1C060" :Usr) "x*" ("x y --> x*y" "Multiply Analytic Func -- Returns the product of the args. z1 z2 \\-> z1\267z2 [[ mat ]] [ arr ] \\-> [[ mat\327arr ]] z [ arr ] \\-> [ z \327 array ] [ arr ] z \\-> [ arr \327 z ] z 'sym' \\-> 'z * sym' 'sym' z \\-> 'sym * z' 'sym1' 'sym2' \\-> 'sym1 * sym2' #n1 n2 \\-> #n' n1 #n2 \\-> #n' #n1 #n2 \\-> #n' x_u y_u \\-> xy_ux \327 unity x y_u \\-> xy_u x_u y \\-> xy_u 'sym' x_u \\-> 'sym * x_u' x_u 'sym' \\-> 'x_u * sym' -- Flags: -3 -5 -6 -7 -8 -9 -10 Numeric results -3 bint wordsize -5 \\-> -10 -- Related: +,-,/,=" "1ADEE" :Usr) "x+" (" x y --> x+y . 38G: 036002 \\~%s\\ [Usr]" "Add Analytic Func -- Returns the sum of the arguments. Addition. If one arg is list, insert element in list or concatenate lists. xADD z1 z2 \\-> z1+z2 [ arr ]1 [ arr ]2 \\-> [ arr ]1+2 z 'sym' \\-> 'z+(sym)' 'symb' z \\-> 'sym+z' 'sym1' 'sym2' \\-> 'sym1 + sym2' { lst1 } { lst2 } \\-> { lst1 lst2 } obj { o... } \\-> { obj o... } { o... } o \\-> { o... obj } \"str1\" \"str2\" \\-> \"str1str2\" obj \"str\" \\-> \"obj str\" \"str\" obj \\-> \"str obj\" #n1 n2 \\-> #n' n1 #n2 \\-> #n' #n1 #n2 \\-> #n' x1_u1 y_u2 \\-> (x2+y)_u2 'sym' x_u \\-> 'sym+x_u' x_u 'sym' \\-> 'x_u+sym' grob1 grob2 \\-> grob' -- Flags: -3 -4 -5 -6 -7 -8 -9 -10 Numeric results -3 Bint wordsize -5 \\-> -10 -- Related: -,*,/,=" "1AB67" :Usr) "x-" ("x y --> x-y" "Subtract Analytic Func -- Returns the difference of the arguments: the object in level 1 is subtracted from the object in level 2. z1 z2 \\-> z1-z2 [ arr ]1 [ arr ]2 \\-> [ arr ]1_2 z 'sym' \\-> 'z-sym' 'sym' z \\-> 'sym-z' 'sym1' 'sym2' \\-> 'sym1 - sym2' #n1 n2 \\-> #n' n1 #n2 \\-> #n' #n1 #n2 \\-> #n' x1_u1 y_u2 \\-> (x2-y)_u2 'sym' x_u \\-> 'sym-x_u' x_u 'sym' \\-> 'x_u-sym' -- Flags: -3 Numeric results -3 -- Related: +,*,/,=" "1AD09" :Usr) "x/" ("x y --> x/y" "Divide Analytic Func -- Returns the quotient of the arguments: the level 2 object divided by the level 1 object. (Abbrev. _u = _unit) z1 z2 \\-> z1 / z2 [ arr ] [[ mat ]] \\-> [[mat^-1\327arr]] [ arr ] z \\-> [ arr / z ] z 'sym' \\-> 'z / sym' 'sym' z \\-> 'sym / z' 'sym1' 'sym2' \\-> 'sym1 / sym2' #n1 n2 \\-> #n' n1 #n2 \\-> #n' #n1 #n2 \\-> #n' x_u1 y_u2 \\-> (x/y)_u1/u2 x y_u \\-> (x/y)_1/u x_u y \\-> (x/y)_u 'sym' x_u \\-> 'sym/x_u' x_u 'sym' \\-> 'x_u/sym' -- Related: +,-,*,=,RATIO" "1AF05" :Usr) "x<" ("x y --> 1 \\n --> 0" "Less Than Func -- Tests whether one object is less than another object. x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x 'sym 'sym1 0/1 x_u 'sym' \\-> 'x_u 'sym x=y" "Makes equation out of two expressions. Equals Analytic Func -- Returns an equation formed from the two arguments. z1 z2 \\-> 'z1=z2' z 'sym' \\-> 'z=sym' 'sym' z \\-> 'sym=z' 'sym1' 'sym2' \\-> 'sym1=sym2' y x_u \\-> 'y=x_u' y_u x \\-> 'y_u=x' y_u x_u \\-> 'y_u=x_u' 'sym' x_u \\-> 'sym=x_u' x_u 'sym' \\-> 'x_u=sym' -- Flags: -3 Numeric results -3 -- Related: DEFINE,EVAL,-" "1A8D8" :Usr) "x==" ("x y --> 1 \\n --> 0" "Logical Equality Func -- Tests if two objects are equal. obj1 obj2 \\-> 0/1 (x,0) x \\-> 0/1 x (x,0) \\-> 0/1 z 'sym' \\-> 'z==sym' 'sym' z \\-> 'sym==z' 'sym1' 'sym2' \\-> 'sym1==sym2' -- Flags: -3 Numeric results -3 -- Related: SAME,TYPE,<,\\<=,>,\\>=,\\=/" "1E972" :Usr) "x>" ("x y --> 1 \\n --> 0" "Greater Than Func -- Tests whether one object is greater than another object. x y \\-> 0/1 #n1 #n2 \\-> 0/1 \"str1\" \"str2\" \\-> 0/1 x 'sym' \\-> 'x>sym' 'sym' z \\-> 'sym>z' 'sym1' 'sym2' \\-> 'sym1>sym2' x_u1 y_u2 \\-> 0/1 x_u 'sym' \\-> 'x_u>sym' 'sym' x_u \\-> 'sym>x_u' -- Flags: -3 Numeric results -3 -- Related: <,\\<=,\\>=,==,\\=/ " "1EC5D" :Usr) "SAVPTR" (" D0 to RPLTOP D1 to DSKTOP B to RETTOP D to FREETOP Clear carry . 38G: 8121A \\$j%s\\ [ML]" "" "0679B" :ML) "GETPTR" ("SAVPTR in reverse Clears Carry." "" "067D2" :ML) "GETPTRLOOP" ("GETPTR , Loop to RPL" "" "05143" :ML) "D0=DSKTOP" ("Get new D0 from DSKTOP, uses A" "" "6384E" :ML) "D1=DSKTOP" ("Get new D1 from DSKTOP, uses C" "" "6385D" :ML) "AllowIntr" ("Allow interrupts." "" "010E5" :ML) "DisableIntr" ("Disable interrupts." "" "01115" :ML) "AINRTN" ("A=IN see also CINRTN For hardware reasons (bug) A=IN must be at even addr" "" "0115A" :ML) "CINRTN" ("C=IN see also AINRTN For hardware reasons (bug) C=IN must be at even addr" "" "01160" :ML) "DOMEMERR" ("Insufficient Memory error" "" "04FBB") "DOSIZEERR" ("Bad Argument Value error" "" "18CA7" :ML) "Errjmp" ("Error exit A.A = error number" "" "05023" :ML) "ErrjmpC" ("A=C.A Errjmp" "" "10F80" :ML) "GPErrjmpC" ("A=C.A GETPTR Errjmp" "" "10F40" :ML) "GPMEMERR" ("GETPTR DOMEMERR" "" "065AA" :ML) "argtypeerr" ("\"Bad Argument Type\"" "" "00202") "argvalerr" ("\"Bad Argument Value\"" "" "00203") "constuniterr" ("\"Inconsistent Units\"" "" "00B02") "infreserr" ("\"Infinite Result\"" "" "00305") "intrptderr" ("\"Interrupted\"" "" "00A03") "lowbaterr" ("\"Low Battery\"" "" "00C14") "negunferr" ("\"Negative Underflow\"" "" "00302") "ofloerr" ("\"Overflow\"" "" "00303") "portnotaverr" ("\"Port Not Avaliable\"" "" "0000A") "posunferr" ("\"Positive Underflow\"" "" "00301") "prtparerr" ("\"Invalid PRTPAR\"" "" "00C13") "timeouterr" ("\"Timeout\"" "" "00C02") "xferfailerr" ("\"Transfer Failed\"" "" "00C06") "DCHXW" ("Converts BCD in C.W to hex in A.W B.W C.W. See HXDCW Uses P CRY" "" "0D62F" :ML) "DIV5" ("C.A = C.A/5 Uses A.10 C.10 D.10 P" "" "06A8E" :ML) "HXDCW" ("Converts hex in A.W to BCD in A.W B.W C.W. See DCHXW Uses P CRY" "Note that HXDCW wants the input in A but DCHXW wants it in C" "0DB91" :ML) "IntDiv" ("A.A/C.A -> A.A=remainder, C.A=quotient, uses D.A P SB" "" "03F24" :ML) "MPY" ("Multiply A.W and C.W (-> A.W=C.W) Uses D.W, SB. Returns carry clear" "" "53EE4" :ML) "MUL#" ("B.A = A.A*C.A" "" "03991" :ML) "STAB0" ("A.W -> R0 B.W -> R1" "" "2BE61" :ML) "STAB2" ("A.W -> R2 B.W -> R3" "" "2BE6F" :ML) "STCD0" ("C.W -> R0 B.W -> R1" "" "2BE7D" :ML) "STCD2" ("C.W -> R2 B.W -> R3" "" "2BE8B" :ML) "RCAB0" ("R0 -> A.W R1 -> B.W" "" "2BEB5" :ML) "RCAB2" ("R2 -> A.W R3 -> B.W" "" "2BEC0" :ML) "RCCD0" ("R0 -> C.W R1 -> D.W" "" "2BECB" :ML) "RCCD2" ("R2 -> C.W R3 -> D.W" "" "2BED6" :ML) "EXAB0" ("A.W <-> R0 B.W <-> R1" "" "2BE99" :ML) "EXAB2" ("A.W <-> R2 B.W <-> R3" "" "2BEA7" :ML) "XYEX" ("A:B <-> C:D" "" "2BE53" :ML) "DIVF" ("x=x/y" "" "2B977" :ML) "MULTF" ("x=x*y" "" "2B91E" :ML) "RADD1" ("x=x+1 see RADDF" "" "2B7B0" :ML) "RADDF" ("x=x+y" "" "2B7CA" :ML) "RSUB1" ("x=x-1 see RADDF" "" "2B7A7" :ML) "PACK" ("( x -> A ) PACKSB without rounding" "" "29E46" :ML) "PACKSB" ("( x -> A ) Converts %% to %.If SB is clear uses roundup, if set uses lowest nibble in % field to determine rounding direction. Obeys and sets flow flags/indicators" "" "29E21" :ML) "SPLITA" ("( A -> x ) Convert % to %%" "" "2BC4A" :ML) "SPLTAC" ("( A,C -> x, y ) Convert 2 reals to long reals" "" "2BCA0" :ML) "ADJMEM" ("D= @FREETOP=ROOM / 5 Uses A.10 B.10 C.10 D.10 DIV5" "" "069F7" :ML) "DOGARBAGE" ("If ST=1 10 then GPMEMERR else GARBAGECOL and GETPTR" "" "0554C" :ML) "GARBAGECOL" ("Garbage collection does not use R1..R4" "" "0613E" :ML) "ROOM" ("-> C.A = @DSKTOP-@RETTOP Uses A.A D0" "" "06806" :ML) "SKIPOB" ("Skip object in D0, clears ST1, clears carry, P=0 --> D0 = addr past object Uses: A.A C.A P ST1 RSTK2" "" "03019" :ML) "MOVEDOWN" ("Copy downwards C.A nibbles from D0 to D1, D0 and D1 will point to the next locations Used: A.W C.A P Use this to move upwards" "" "0670C" :ML) "MOVERSD" ("Delete a block below RSK A.A=end C.A=nibbles Adjusts all refs, then ADJMEM Uses A.W B.A C.W D.10 D0 D1 P" "" "06992" :ML) "MOVERSU" ("Open a block below RSK A.A=start C.A=nibbles Adjusts all refs, then ADJMEM Uses A.W B.A C.10 D.10 D0 D1 P" "" "06A53" :ML) "MOVEDSD" ("Open a block above stack A.A=end C.A=nibbles Adjusts all refs, then ADJMEM Uses A.W B.A C.10 D.10 D0 D1 P" "" "06A1D" :ML) "MOVEDSU" ("Delete a block above stack A.A=start C.A=nibbles Adjusts all refs, then ADJMEM Uses A.W B.A C.10 D.10 D0 D1 P" "" "069C5" :ML) "MOVEUP" ("Copy upwards C.A nibbles from D0 to D1 D0 D1 will point to start of area Used: A.W C.A P Use this to move downwards" "" "066B9" :ML) "CREATETEMP" ("Allocates C.A nibbles carry if not enough memory -> D0=bottom, D1=top of area -> B.A = C.A = @D1 = offset to previous tempob = #nibbles+6" "" "06AD8" :ML) "GETTEMP" ("CREATETEMP with GARBAGECOL if necessary GPMEMERR if not enough memory" "" "039BE" :ML) "MAKE$" ("Creates character string in tempob area Does SETHEX, C=C+C.A and then MAKE$N" "" "05B79" :ML) "MAKE$N" (" Creates character string in tempob area If not enough mem even after GC then memerr C.A = nibbles -> A=nibbles+5, B=nibbles+16 C=D1=addr of stack D0 = addr of body of $ R0 = addr of $ Not used: R1-R4 . 38G: 81148 \\$j%s\\ [ML]" "" "05B7D" :ML) "Clean$" ("Shrink strobj in top of TEMPOB R1=addr of length field A.A=new end address Uses A.W B.A C.W D.A D0 D1" "" "16683" :ML :UBS) "Clean$R0" ("R1=R0+5 Clean$" "" "16677" :ML :UBS) "Shrink$" ("Shrinks a strobj R0.A=->$ D0=end of $ Uses A.W B.A C.W D.10 D0 D1" "" "16671" :ML) "DoCRC" ("Calculates the CRC of A.A nibs at D0. Returns CRC in A.A Uses C.W P" "Turns interrupts off and on" "05981" :ML) "DoCRCc" ("D0=C DoCRC" "" "0597E" :ML) "CKLBCRC" ("Check CRC of library at D0 CC: Ok CS: CRC is wrong Uses A.A C.W D0 P" "Disables and re-enables interrupts" "0A00E" :ML) "WIPEOUT" ("Zeroes C.A nibbles at D1 Uses A.W C.A P" "" "0675C" :ML) "GETRRP" ("Returns the RRP in which the object at A.A lies. If ob is SysRRP, returns CS and leaves A.A unchanged; else CC and A.A->RRP B.A->RAM-WORD Uses A.A B.A C.A D.A D0" "An RRP is a directory, the returned address points to the last-object-offset inside the directory. The SysRRP is the same as HOME." "083D1" :ML :UBS) "ANNCTRL2" ("Annunciator control [AON XTRA LA6 LA5] (on extra io busy)" "" "0010C" :ML :U) "ANNCTRL" ("Annunciator control [LA4 LA3 LA2 LA1] (alarm alpha -> <-)" "" "0010B" :ML) "CONTRAST" ("5 bit value for contrast. [CON3 CON2 CON1 CON0]" "" "00101" :ML :U) "CRC" ("4 nibbles for CRC. Every memory fetch updates CRC." "" "00104" :ML) "DISPADDR" ("Display start address write-only" "" "00120" :ML :U) "DISPTEST" ("High bit of contrast and display test bits." "" "00102" :ML :U) "LINEOFFS" ("3 nibble offset for display write-only" "" "00125" :ML :U) "LINECOUNT" ("Display line counter [LC3 LC2 LC1 LC0] and miscellaneous [DA19 M32 LC5 LC4]" "" "00128" :ML :U) "MENUADDR" ("Menu display start addr write-only" "" "00130" :ML :U) "POWERSTATUS" ("Low power registers" "" "00108" :ML :U) "POWERCTRL" ("Low power detection" "" "00109" :ML :U) "TIMER1" ("1 nibble timer decremented 16 times/s" "" "00137" :ML) "TIMER2" ("8 nibble timer decremented 8192 times/s" "" "00138" :ML) "TIMER1CTRL" ("TIMER1 control [SRQ WKE INT XTRA]" "" "0012E" :ML :U) "TIMER2CTRL" ("TIMER2 control [SRQ WKE INT TRUN]" "" "0012F" :ML :U) "$5x7" ("( D.A B.A C.A D0 D1 --> ) Displays string body at D1 in grob at D0 C.A = chars B.A = xlocation D.A = row length in nibbles -> D1 = addr after $ D0 = location of next char D.A = row length" "" "11D8F" :ML) "D0->Row1" ("( --> D0 ) Gets addr of current display" "" "01C31" :ML) "D0->Sft1" ("( --> D0 ) Gets address of menu grob" "" "01C58" :ML) "DispOn" ("Turns display on Dispoff" "" "01B8F" :ML) "DispOff" ("Turns display off Dispon" "" "01BBD" :ML) "grob!" ("R0,R1 = (row,col), D0 = grob1, D1 = grob2 --> Stores grob1 into grob2" "" "116B5" :ML :U) "makegrob" (" R0.A = x, R1.A = y --> D0 = body Makes a grob of size x,y Prolog is in D0-20 . 38G: 81156 \\$j%s\\ [ML]" "" "115B3" :ML) "w->W" ("Calculates GROB width A.A=width in pixels -> A.A=width in nibbles" "Basically the same as 8 / CEIL 2 * since the width must be an even number of nibbles" "1165A" :ML) "DropLoop" ("Pop stack, Loop" "" "03249" :ML) "4DropLoop" ("Pop 4, Loop" "" "60F83" :ML) "GPOverWrALp" ("GETPTR , OverWr A, Loop" "" "03672" :ML) "GPOverWrR0Lp" ("GETPTR , OverWr R0, Loop" "" "0366F" :ML) "GPPushA" ("GETPTR , Push A, Clear Carry" "" "54266" :ML) "PopASavptr" ("Pop to A.A, SAVPTR" "" "3251C" :ML) "PopSavptr" ("Pop SAVPTR" "" "3251F" :ML) "PUSHA" ("Push A, Loop" "" "03A86" :ML) "GETPTRFALSE" ("GETPTR , Do FALSE" "" "26FAE" :ML) "GETPTRTRUE" ("GETPTR , Do TRUE" "" "25CE1" :ML) "GPOverWrFLp" ("GETPTR , OverWr FALSE, Loop" "" "62096" :ML) "GPOverWrTLp" ("GETPTR , OverWr TRUE, Loop" "" "62076" :ML) "GPOverWrT/FL" ("GETPTR , OverWr TRUE/FALSE, Loop" "" "62073" :ML) "GPPushFLoop" ("GETPTR , Push FALSE, Loop" "" "620D2" :ML) "GPPushFTLp" ("GETPTR , Loop to FalseTrue" "" "267D5" :ML) "GPPushTLoop" ("GETPTR , Push TRUE, Loop" "" "620B9" :ML) "GPPushT/FLp" ("GETPTR , Push TRUE/FALSE, Loop" "" "620B6" :ML) "OverWrFLoop" ("OverWr FALSE, Loop" "" "620A0" :ML) "OverWrTLoop" ("OverWr TRUE, Loop" "" "62080" :ML) "OverWrT/FLp" ("OverWr TRUE/FALSE, Loop" "" "6209D" :ML) "popflag" ("Pop to A.A, if TRUE then set carry" "" "61A02" :ML) "DOFALSE" ("Push FALSE, Loop" "" "620DC" :ML) "PushFLoop" ("Push FALSE, Loop" "" "620DC" :ML) "PushF/TLoop" ("Push FALSE (CRY)/TRUE, Loop" "" "620C0" :ML) "DOTRUE" ("Push TRUE, Loop" "" "620C3" :ML) "PushTLoop" ("Push TRUE, Loop" "" "620C3" :ML) "PushT/F" ("Push TRUE (CRY)/FALSE, Loop" "" "620D9" :ML) "PushT/FLoop" ("Push TRUE (CRY)/FALSE, Loop" "" "620D9" :ML) "PushFTLp" ("Loop to False/True" "" "267DC" :ML :U) "POP#" ("Pop # to A.A" "" "06641" :ML) "POP2#" ("( #1 #2 --> ) Pop #1 to A.A and #2 to C.A" "" "03F5D" :ML) "PUSH#" ("GETPTR , Push R0 as #" "" "06537" :ML) "Push#Loop" ("SAVPTR , R0=A, PUSH# , Loop" "" "03DC7" :ML) "PUSH2#" ("GETPTR , Push R0 & R1 as #" "" "06529" :ML) "PUSH#LOOP" ("GETPTR , Push R0 as #, Loop" "" "0357F" :ML) "PUSH#ALOOP" ("GETPTR , Push A as #, Loop" "" "0357C" :ML) "Push2#Loop" ("GETPTR , Push R0 & R1 as #, Loop" "" "03F14" :ML) "Push2#aLoop" ("GETPTR , Push R0 & A as #, Loop" "" "627EB" :ML) "Push#TLoop" ("GETPTR , Push R0 as #, Do TRUE" "" "036F7" :ML) "Push#FLoop" ("GETPTR , Push R0 as #, Do FALSE" "" "2E31F" :ML) "POPHXS" ("Pop hxs to A, SAVPTR , Clear Carry" "" "53F8D" :ML :U) "POP2HXS" ("Pop hxs to C and hxs to A, SAVPTR , Clear Carry P has current wordsize." "" "53F77" :ML :U) "PUSHhxs" ("Push A.WP as hxs" "" "5422C" :ML) "PUSHhxsLoop" ("Push A.WP as hxs, Loop" "" "0596D" :ML) "POP1%SPLITA" ("( %pop -> x ) Pop %, convert to %%, SAVPTR" "" "29FD0" :ML) "POP1%" (" ( %pop -> A ) Pop %, SAVPTR . 38G: 811BF \\$j%s\\ [ML]" "" "29FDA" :ML) "POP2%" ("( %pop1 %pop2 -> A,C ) Pop 2 reals, SAVPTR" "" "2A002" :ML) "PUSH%" ("( A -> %push ) Push A as %, GETPTR" "" "2A188" :ML) "PUSH%LOOP" ("( A -> %push ) Push A as %, GETPTRLOOP" "" "2A23D" :ML) "POPC%" ("( C%pop -> A:C ) Pop C% (SETDEC )" "" "52AB7" :ML :UBS) "POPC%%" ("( C%%pop -> A:B C:D) Pop C%% (SETDEC )" "" "52B57" :ML :UBS) "PUSHC%" ("( A:C -> C%push ) Push C%" "" "52ADB" :ML :UBS) "PUSHC%%" ("( A:B:C:D -> C%%push ) Push C%%" "" "52B95" :ML :UBS) "Attn?" ("Sets carry when ATTNFLG <> 0." "" "04988" :ML :U) "ATTNchk" ("ATTN exit check with restoreiram" "" "0CA60" :ML) "KeyInBuff?" ("Carry if true" "" "04999" :ML) "OnKeyDown?" ("Carry if true" "" "00C74" :ML) "OnKeyStable?" ("Carry if true" "" "00C80" :ML) "Flush" ("Flushes key buffer." "" "00D57" :ML) "FlushAttn" ("Flushes attn counter." "" "00D8E" :ML) "POPKEY" ("( -> C.A ) Sets carry if buffer is empty.Else returns key in C.B (and in @KEYSTORE) Uses: A.S C.S C.A D1 (sets P=0)" "" "04840" :ML) "SrvcKbdAB" ("( A.W -> ) Sets KEYSTATE and KEYBUFFER" "" "007B5" :ML) "ASRW5" ("ASR.W 5 times" "" "0D5E5" :ML) "ASLW5" ("ASL.W 5 times" "" "0D5F6" :ML) "CCSB1" ("Uses D.S to set SB, clears carry" "" "2BEE1" :ML) "clkspd" ("Measure CPU clock speed Interrupts off on entry and exit -> A.A=spd/16 B.A=loops/16s Uses C.A D0 P CRY" "" "018E2" :ML) "CSRW5" ("CSR.W 5 times" "" "0D607" :ML) "CSLW5" ("CSL.W 5 times" "" "0D618" :ML) "DeepSleep" ("Puts calc into \"deep sleep\" Low power mode, display off Wakeup on ON key or interrupt" "" "04292" :ML) "doskip" ("Exit to rpl SKIP" "" "5F090" :ML :U) "docola" ("Exit to rpl COLA" "" "5F09D" :ML :U) "GetStrLenStk" ("Pop $ -> C.A = length, D1 = body" "" "2FFB4" :ML) "GetStrLenC" ("D1 = C, GetStrLen" "" "2FFB7" :ML) "GetStrLen" ("D1=$ -> C.A = length, D1 = body" "" "2FFBA" :ML) "getwordsize" ("Fetches current word size to A, Clear Carry" "" "54021" :ML :U) "makebeep" ("C = msec, D = Hz Checks BEEP flag." "" "017A6" :ML) "liteslp" ("Puts calc into \"lite sleep\" Low power mode with display on Wakeup on any key or interrupt" "" "04929" :ML) "DOARRY" ("Array prologue 5 size 5 prologue of objects 5 # of dimensions 5n dimensions .. objects (content only)" "" "029E8") "DOBAK" ("Backup prologue 5 size 2 # of chars in name .. name .. object 5 DOBINT 5 CRC" "Apparently unused on the 49" "02B62") "DOBINT" ("BINT prologue 5 number (hex)" "" "02911") "DOCHAR" ("Character prologue 2 character" "" "029BF") "DOCMP" ("Complex number prologue 3 real exponent 12 real mantissa 1 real sign 3 complex exponent 12 complex mantissa 1 complex sign" "" "02977") "DOCODE" ("Code prologue 5 length .. machine code" "" "02DCC") "DOCOL" ("Secondary prologue .. objects 5 SEMI" "" "02D9D") "DOCSTR" ("String prologue 5 length .. characters" "" "02A2C") "DOECMP" ("Long complex prologue 5 real exponent 15 real mantissa 1 real sign 5 complex exponent 15 complex mantissa 1 complex sign" "" "0299D") "DOEREL" ("Long real prologue 5 exponent 15 mantissa 1 sign" "" "02955") "DOEXT" ("Unit object prologue .. object (usually a real) .. unit 5 SEMI" "" "02ADA") "DOHXS" ("HXS prologue 5 length .. hex digits, reverse order" "" "02A4E") "DOHSTR" ("HXS prologue 5 length .. hex digits, reverse order" "" "02A4E") "DOIDNT" ("Global name (ID) prologue 2 # of characters .. characters" "" "02E48") "DOLAM" ("Local name (LAM) prologue see DOIDNT" "" "02E6D") "DOLNKARRY" ("Linked array prologue" "Not used by the system." "02A0A") "DOLIB" ("Library prologue" " 5 size 2 # of characters .. name 2 # of characters (unless 0) 3 library ID 5 hash table offset 5 message table offset 5 link table offset 5 config object offset .. contents 4 CRC XLIBs: 1 or 3: kind 3 library ID 3 command ID .. object -- TEXT:Libraries" "02B40") "DOLIST" ("List prologue see DOCOL" "" "02A74") "DOREAL" ("Real number prologue 3 exponent 12 mantissa 1 sign" "" "02933") "DOROMP" ("XLIB prologue 3 library ID 3 command #" "" "02E92") "DORRP" ("Directory prologue" " Home directory: 3 # of attached libs n*[ 3 library ID 5 address of hash table 5 address of message table ] 5 offset of last object *[ 5 offset to previous object 00000 for the first one 2 # of characters .. name of object 2 # of characters .. object ] Subdirectories: 3 # of attached library 7FF if none 5 offset of last object .. same as above" "02A96") "DOSYMB" ("Symbolic prologue .. objects 5 SEMI" "" "02AB8") "DOTAG" ("Tagged object prologue 2 # of chars in tag .. tag .. object" "" "02AFC") "DOEXT0" ("" "" "02B88") "DOACPTR" ("" "" "02BAA") "DOEXT1" ("" "" "02BAA") "DOEXT2" ("" "" "02BCC") "DOEXT3" ("" "" "02BEE") "DOEXT4" ("" "" "02C10") "AVMEM" ("Free mem / 5 (5)" "" "807ED" :RAM) "DSKTOP" ("->Data stack" "" "806F8" :RAM) "RSKTOP" ("->Return stack" "" "806F3" :RAM) "OBUPSTART" ("->RPL runstream" "" "8072F" :RAM) "INTRPPTR" ("->RPL runstream" "" "8072F" :RAM) "TEMPOB" ("->Beginning of TempOb area" "" "806E9" :RAM) "TEMPTOP" ("->End of TempOb area" "" "806EE" :RAM) "USEROB" ("->UserOb Area (HOME)" "" "80711" :RAM) "ADISP" ("->Stack grob" "" "806D5" :RAM) "GDISP" ("->Blackboard grob" "" "806E4" :RAM) "SYSUPSTART" ("->Display grob" "" "806DA" :RAM) "VDISP1" ("->Display grob" "" "806DA" :RAM) "VDISP" ("->Display grob" "" "806DA" :RAM) "VDISP2" ("->Menu grob" "" "806D0" :RAM) "VDISP3" ("->Not displayed grob VDISP" "" "806DF" :RAM) "ANNUNCIATORS" ("Annunciator flags (2)" "" "80841" :RAM) "Ann_Susp.b" ("" "" "00004" :RAM) "Ann_Shift.b" ("" "" "00010" :RAM) "Ann_RAD.b" ("" "" "00001" :RAM) "Ann_IO.b" ("" "" "00002" :RAM) "Ann_Busy.b" ("" "" "00080" :RAM) "Ann_Alpha.b" ("" "" "00040" :RAM) "Ann_Alert.b" ("" "" "00008" :RAM) "Ann_ALT.b" ("" "" "00020" :RAM) "INTRAM" ("Save area for the interrupt sys (16)" "" "805DB" :RAM) "R1[A]save" ("Used by PrintLCD inside the interrupt system (5)" "" "806C0" :RAM) "R2[A]save" ("R1[A]save (5)" "" "806BA" :RAM) "R2[S]save" ("R1[A]save (1)" "" "806BF" :RAM) "SAVECLK" ("Save of CLKON state (1)" "" "80831" :RAM) "SAVECROSS" ("cursor moves in plotting (10)" "" "808D8" :RAM) "SAVE_A" ("INTRAM (16)" "" "805F5" :RAM) "SAVE_B" ("INTRAM (16)" "" "80608" :RAM) "SAVE_C[A]" ("INTRAM (5)" "" "805F0" :RAM) "SAVE_BO" ("Save BitOffset (1)" "" "806C5" :RAM) "SAVE_D" ("INTRAM (16)" "" "80618" :RAM) "SAVE_D0" ("INTRAM (5)" "" "8063D" :RAM) "SAVE_LC" ("Save LineCount (2)" "" "806C6" :RAM) "SAVE_LN" ("Save LineNibs (3)" "" "806C8" :RAM) "SAVE_MODES" ("INTRAM (5)" "" "805EB" :RAM) "SAVE_OFFSET" ("Save Window Offset (5)" "" "806CB" :RAM) "SAVE_PC" ("INTRAM (5)" "" "80638" :RAM) "SAVE_R0" ("INTRAM (16)" "" "80628" :RAM) "SAVE_ST" ("INTRAM (3)" "" "80605" :RAM) "Stk0save" ("RSTK0 used by PrintLCD inside the interrupt sys (5)" "" "8069C" :RAM) "Stk1save" ("RSTK1 Stk0save (5)" "" "806A1" :RAM) "Stk2save" ("RSTK2 Stk0save (5)" "" "806A6" :RAM) "Stk3save" ("RSTK3 Stk0save (5)" "" "806AB" :RAM) "Stk4save" ("RSTK4 Stk0save (5)" "" "806B0" :RAM) "Stk5save" ("RSTK5 Stk0save (5)" "" "806B5" :RAM) "SystemFlags" ("128 System flags (16)" "" "80843" :RAM) "UserFlags" ("128 User Flags (16)" "" "80853" :RAM) "SysNib1" ("ISysFlags 1" "" "80801" :RAM) "NoRolDA2MASK" ("DA2 can't be rolled up to become valid SysNib1" "" "00101" :RAM) "AbbrStkMASK" ("Display obj types only SysNib1" "" "00201" :RAM) "DA2bIsEdMASK" ("DA2b shows the edit line SysNib1" "" "00401" :RAM) "IgnorAlmMASK" ("Ignore ALARMSDUE in GETKEY SysNib1" "" "00801" :RAM) "SysNib2" ("ISysFlags 2" "" "80802" :RAM) "ReqClkOnMASK" ("Flag for System Request of CLKON state SysNib2" "" "00102" :RAM) "ServModeMASK" ("Server mode on SysNib2" "" "00202" :RAM) "TrackMASK" ("New context needs to be compared with old SysNib2" "" "00402" :RAM) "BadMenuMASK" ("Menu system corrupt SysNib2" "" "00802" :RAM) "SysNib3" ("ISysFlags 3" "" "80803" :RAM) "UNDOMASK" ("Automatic stack save SysNib3" "" "00103" :RAM) "INSERTMASK" ("Insert/replace mode SysNib3" "" "00203" :RAM) "ALGMASK" ("Algebraic entry mode SysNib3" "" "00403" :RAM) "PRINTINGMASK" ("SysNib3" "" "00803" :RAM) "SysNib4" ("ISysFlags 4" "" "80804" :RAM) "DA2aTempMASK" ("DA2a temporarily valid SysNib4" "" "00104" :RAM) "DA2bTempMASK" ("DA2b temporarily valid SysNib4" "" "00204" :RAM) "DA3TempMASK" ("DA3 temporarily valid SysNib4" "" "00404" :RAM) "RebuildMASK" ("Menu requires TOUCHTAB rebuild each time it is redisplayed SysNib4" "" "00804" :RAM) "SysNib5" ("ISysFlags 5" "" "80805" :RAM) "COMMANDMASK" ("CMD history enabled SysNib5" "" "00105" :RAM) "BLINKMASK" ("Active Timer1 Int's SysNib5" "" "00205" :RAM) "LOWERMASK" ("Lowercase keys SysNib5" "" "00405" :RAM) "STKDCMASK" ("Decompilation for stack display (not editing) SysNib5" "" "00805" :RAM) "SysNib6" ("ISysFlags 6" "" "80806" :RAM) "Do1UserMASK" ("One-key user mode SysNib6" "" "00106" :RAM) "ASuspOKMASK" ("Suspending current environment is allowed SysNib6" "" "00206" :RAM) "BadPOLUIMASK" ("POL UI possibly corrupt SysNib6" "" "00406" :RAM) "DA1TempMASK" ("DA1 temporarily valid SysNib6" "" "00806" :RAM) "SysNib7" ("ISysFlags 7" "" "80807" :RAM) "DA1ValidMASK" ("DA1 known to be valid SysNib7" "" "00107" :RAM) "DA2aValdMASK" ("DA2a known to be valid SysNib7" "" "00207" :RAM) "DA2bValdMASK" ("DA2b known to be valid SysNib7" "" "00407" :RAM) "DA3ValidMASK" ("DA3 known to be valid SysNib7" "" "00807" :RAM) "SysNib8" ("ISysFlags 8" "" "80808" :RAM) "DA1NoChMASK" ("DA1 not changed SysNib8" "" "00108" :RAM) "DA2aNoChMASK" ("DA2a not changed SysNib8" "" "00208" :RAM) "DA2bNoChMASK" ("DA2b not changed SysNib8" "" "00408" :RAM) "DA3NoChMASK" ("DA3 not changed SysNib8" "" "00808" :RAM) "SysNib9" ("ISysFlags 9" "" "80809" :RAM) "DA1BadMASK" ("DA1 invalid SysNib9" "" "00109" :RAM) "DA2aBadMASK" ("DA2a invalid SysNib9" "" "00209" :RAM) "DA2bBadMASK" ("DA2b invalid SysNib9" "" "00409" :RAM) "DA3BadMASK" ("DA3 invalid SysNib9" "" "00809" :RAM) "EDITLFLAG" ("ISysFlags 10" "" "8080A" :RAM) "EDITFLAG" ("ISysFlags 10" "" "8080A" :RAM) "SysNib10" ("ISysFlags 10" "" "8080A" :RAM) "EDITLMASK" ("Edit line exists SysNib10" "" "0010A" :RAM) "NAppKeyMASK" ("Non-app keys allowed in POL SysNib10" "" "0020A" :RAM) "NUsrKeyMASK" ("Non-user keys allowed in USR mode SysNib10" "" "0040A" :RAM) "AppModeMASK" ("POL application running SysNib10" "" "0080A" :RAM) "ParenModFLAG" ("ISysFlags 11" "" "8080B" :RAM) "SysNib11" ("ISysFlags 11" "" "8080B" :RAM) "ParenModMASK" ("Implicit parenthesized \"/\", \"^\", and \"SQRT\" in EQW SysNib11" "" "0010B" :RAM) "1PDCMASK" ("Partial DeCompile info will not be saved SysNib11" "" "0020B" :RAM) "NewEditLMASK" ("New one-line edit line has been created SysNib11" "" "0040B" :RAM) "DoStdKeyMASK" ("Do only standard keys SysNib11" "" "0080B" :RAM) "SysNib12" ("ISysFlags 12" "" "8080C" :RAM) "DispTimeMASK" ("Status bar clock may be displayed SysNib12" "" "0010C" :RAM) "NOP2MASK12" ("unused SysNib12" "" "0020C" :RAM) "NOP4MASK12" ("unused SysNib12" "" "0040C" :RAM) "NOP8MASK12" ("unused SysNib12" "" "0080C" :RAM) "SysNib13" ("ISysFlags 13" "" "8080D" :RAM) "NOP1MASK13" ("unused SysNib13" "" "0010D" :RAM) "NOP2MASK13" ("unused SysNib13" "" "0020D" :RAM) "NOP4MASK13" ("unused SysNib13" "" "0040D" :RAM) "NOP8MASK13" ("unused SysNib13" "" "0080D" :RAM) "SysNib14" ("" "" "8080E" :RAM) "SizeMLDisp" ("" "" "8080E" :RAM) "NOP1MASK14" ("unused SysNib14" "" "0010E" :RAM) "NOP2MASK14" ("unused SysNib14" "" "0020E" :RAM) "NOP4MASK14" ("unused SysNib14" "" "0040E" :RAM) "NOP8MASK14" ("unused SysNib14" "" "0080E" :RAM) "SysNib15" ("ISysFlags 15" "" "8080F" :RAM) "NOP1MASK15" ("TOL UI potentially corrupt SysNib15" "" "001CE" :RAM) "BadTOLUIMASK" ("TOL UI potentially corrupt SysNib15" "" "001CE" :RAM) "NOP2MASK15" ("EVAL-> will not create a list nor return NOVAL SysNib15" "" "002CE" :RAM) "NoAlgProcess" ("EVAL-> will not create a list nor return NOVAL SysNib15" "" "002CE" :RAM) "NOP4MASK15" ("SysNib15" "" "004CE" :RAM) "InSimplyExpr" ("SysNib15" "" "004CE" :RAM) "NOP8MASK15" ("SysNib15" "" "008CE" :RAM) "DoCreateMenu" ("SysNib15" "" "008CE" :RAM) "SysNib16" ("ISysFlags 16 (unused)" "" "80810" :RAM) "NOP1MASK16" ("SysNib16" "" "00110" :RAM) "NOP2MASK16" ("SysNib16" "" "00210" :RAM) "NOP4MASK16" ("SysNib16" "" "00410" :RAM) "NOP8MASK16" ("SysNib16" "" "00810" :RAM) "SysNib17" ("ISysFlags 17 (unused)" "" "80811" :RAM) "NOP1MASK17" ("SysNib17" "" "00111" :RAM) "NOP2MASK17" ("SysNib17" "" "00211" :RAM) "NOP4MASK17" ("SysNib17" "" "00411" :RAM) "NOP8MASK17" ("SysNib17" "" "00811" :RAM) "SysNib18" ("ISysFlags 18 (unused)" "" "80812" :RAM) "NOP1MASK18" ("SysNib18" "" "00112" :RAM) "NOP2MASK18" ("SysNib18" "" "00212" :RAM) "NOP4MASK18" ("SysNib18" "" "00412" :RAM) "NOP8MASK18" ("SysNib18" "" "00812" :RAM) "SysNib19" ("ISysFlags 19 (unused)" "" "80813" :RAM) "NOP1MASK19" ("SysNib19" "" "00113" :RAM) "NOP2MASK19" ("SysNib19" "" "00213" :RAM) "NOP4MASK19" ("SysNib19" "" "00413" :RAM) "NOP8MASK19" ("SysNib19" "" "00813" :RAM) "SysNib20" ("ISysFlags 20 (unused)" "" "80814" :RAM) "NOP1MASK20" ("SysNib20" "" "00114" :RAM) "NOP2MASK20" ("SysNib20" "" "00214" :RAM) "NOP4MASK20" ("SysNib20" "" "00414" :RAM) "NOP8MASK20" ("SysNib20" "" "00814" :RAM) "FAILSTK1" ("Warmstart log 1st (newest) entry (18)" "Each entry consists of a one-nibble cause (as displayed by WSLOG), a 13-nibble time stamp and a 4-nibble CRC of the previous 14 nibbles." "80010" :RAM) "FAILSTK2" ("FAILSTK1 2nd entry (18)" "" "80022" :RAM) "FAILSTK3" ("FAILSTK1 3rd entry (18)" "" "80034" :RAM) "FAILSTK4" ("FAILSTK1 4th entry (18)" "" "80046" :RAM) "CR_COUNT" ("# of newlines in editline (5)" "" "8086A" :RAM) "CURSOREPOSN" ("Cursor editline position (5)" "" "80882" :RAM) "CURSOR" ("Cursor editline position (5)" "" "80882" :RAM) "CURSORCHR" ("Char under Cursor (2)" "" "8088F" :RAM) "CURSORGROB" ("Cursor Grob Data (40)" "" "80891" :RAM) "CURSORPOSN" ("Cursor position from left of screen (2)" "" "8088C" :RAM) "CURSOROFFSET" ("Cursor position from left of screen (2)" "" "8088C" :RAM) "CURSORROW" ("Cursor display row (5)" "" "80887" :RAM) "CURSORPART" ("Cursor display row (5)" "" "80887" :RAM) "CURSORSTATE" ("Show cursor/char underneath (1)" "" "8088E" :RAM) "CURSORX" ("Pxl X-Coord of Cursor (5)" "" "808B9" :RAM) "CURSORY" ("Pxl Y-Coord of Cursor (5)" "" "808BE" :RAM) "EDITLINE" ("->Command line" "" "806FD" :RAM) "AppCount" ("# of nested POLs (2)" "" "80815" :RAM) "AppDisplay" ("->App display object" "" "80784" :RAM) "AppError" ("->App error handler" "" "80793" :RAM) "AppExitCond" ("->App exit condition" "" "8078E" :RAM) "AppKeys" ("->App key assignments" "" "80789" :RAM) "uart_buf_end" ("# of bytes in the UART buffer (2)" "" "80519" :RAM) "uart_buf_st" ("UART buffer offset (2)" "" "8051C" :RAM) "uart_buffer" ("UART buffer area (512)" "" "80319" :RAM) "uart_error" ("UART error flag (1)" "" "8051B" :RAM) "uart_handshk" ("UART handshake (1)" "" "8051E" :RAM) "uart_modes" ("UART mode (1)" "" "8051F" :RAM) "uart_parity" ("(1)" "" "80520" :RAM) "uart_timeout" ("(2)" "" "80521" :RAM) "FlashROMPTAB" ("Library table (3+n*16)" "Header: 3 number of libraries For each library: 3 library ID 5 address 5 switch routine (0 if none) 3 000" "809A3" :RAM) "RESRAMEND" ("Library table (3+n*16)" "Header: 3 number of libraries For each library: 3 library ID 5 address 5 switch routine (0 if none) 3 000" "809A3" :RAM) "ROMPTAB" ("Library table (3+n*16)" "Header: 3 number of libraries For each library: 3 library ID 5 address 5 switch routine (0 if none) 3 000" "809A3" :RAM) "IRAMHOMEmsn" ("MSN of the IRAM base address" "" "00008" :RAM) "LOCUPSIZE" ("Number of variables between SYSUPSTART and OBUPSTART" "" "00011" :RAM) "OBUPSIZE" ("Number of variables between OBUPSTART and OBUPEND" "" "00025" :RAM) "ParenModmask" ("" "" "00001" :RAM) "mEditLExists" ("" "" "00001" :RAM) "SYSUPSIZE" ("OBUPSIZE + LOCUPSIZE" "" "00036" :RAM) "ACCUM" ("(1)" "" "80912" :RAM) "ALARMS" ("->System Alarm List (5)" "" "8072A" :RAM) "ALARMSDUE" ("Flags Alarm Due (1)" "" "80832" :RAM) "ALARM#" ("" "" "80836" :RAM) "ATTNFLG" ("Counts ON presses (5)" "" "807F7" :RAM) "AccessInit" ("Saved value of INITEN & sALLOWINTR (2)" "" "800E6" :RAM) "RAMSTART" ("Quick RAM corrupt check (5)" "" "80000" :RAM) "HARDROMEND" ("Quick RAM corrupt check (5)" "" "80000" :RAM) "CMOS" ("Quick RAM corrupt check (5)" "" "80000" :RAM) "COLCOUNT" ("Dot Cols on line (2)" "" "80922" :RAM) "COLWIDTH" ("(2)" "" "80914" :RAM) "CONFRAM" ("RAM configuration (7)" "Port1: 1 Status [r w s 0] 1 Size/Address Code Port2: 1 Status [r w s 0] 1 Size/Address Code where r=readable, w=writable, s=system RAM 2 #banks 1 ID" "80524" :RAM) "CONFTAB" ("RAM configuration with CRC (11)" "4 nibbles for CRC 7 nibbles as in CONFRAM" "8052B" :RAM) "CONTEXT" ("->Current dir" "" "8071B" :RAM) "COVERsave" ("Save area for G/DoCovered (10)" "" "800EB" :RAM) "COVERstate" ("Iram state before uncovering (3)" "" "800E8" :RAM) "TIMEOUTCLK" ("ScratchPad (4)" "" "80076" :RAM) "CSPEED" ("CPU speed (16hz units) (5)" "" "80655" :RAM) "CURRENTMENU" ("Menu ID of current menu (2)" "" "808C3" :RAM) "ClkOnNib" ("Clock display on/off (1)" "" "8091B" :RAM) "CtlAlarm" ("->Control alarm data" "" "80798" :RAM) "DEPTHSAVE" ("Saved user stack depth (5)" "" "8081D" :RAM) "HANDSHK" ("Keyboard handshake (1)" "" "8065B" :RAM) "DISABLE_KBD" ("Keyboard handshake (1)" "" "8065B" :RAM) "DISP1CTLg" ("Ghost for DISP1CTL (5)" "" "8068D" :RAM) "DISP2CTLg" ("Ghost for DISP2CTL (5)" "" "80695" :RAM) "DOLPENV" ("->DO LOOP environments" "" "80707" :RAM) "DOUSEALARM" ("Flags Deactivate Curr Alarm (1)" "" "80834" :RAM) "DREND" ("Display Refresh Hi Bound (5)" "" "8064A" :RAM) "DRSTART" ("Display Refresh Lo Bound (5)" "" "80645" :RAM) "DcompWidth" ("String Decomp Width (2)" "" "808EE" :RAM) "DelayCt" ("REDEYE Print time/line (2)" "" "8091E" :RAM) "ELEMENT" ("decompile obj depth counter (2)" "" "80863" :RAM) "ENTRWISE" ("(1)" "" "80916" :RAM) "ERROR" ("(5)" "" "807F2" :RAM) "EXITMSG" ("->msg set by user in EXIT word" "" "8077F" :RAM) "EqPtr" ("Points to Curr Eqn in EqList (5)" "" "8094C" :RAM) "FIRSTCHAR" ("offset to 1st visible (5)" "" "80865" :RAM) "FIRSTPROC" ("->StartupProc Secondary (5)" "" "807FC" :RAM) "FONTCOUNT" ("counter (3)" "" "808F2" :RAM) "FONTHEIGHT" ("font-height selector (1)" "" "808F0" :RAM) "FONTWIDTH" ("font-width selector (1)" "" "808F1" :RAM) "FailTime" ("SelfTest Fail Time (Ticks) (13)" "" "80085" :RAM) "FifoByteCt" ("Sum of FIFO Line Counts (2)" "" "8092A" :RAM) "GARBSCRATCH1" ("Saves 1 RSTK level in G.C. (5)" "" "808CE" :RAM) "GARBSCRATCH2" ("Saves counter in G.C. (5)" "" "808D3" :RAM) "GCOLCOUNT" ("Graphics #Cols (2)" "" "80920" :RAM) "IRAMBEND" ("(11)" "" "8030E" :RAM) "GraphPrtHook" ("(11)" "" "8030E" :RAM) "HARDRAMEND" ("IRAM Home ends at #7FFFF" "Appears to be an obsolete constant from the 48G, where IRAM was only 32kB big and thus ranged from #80000 to #8FFFF. The description even seems to come from the 48S!" "90000" :RAM) "HISTORY1" ("-> $ with the most recent CMD history entry" "" "8075C" :RAM) "HISTORY2" ("->2nd entry HISTORY1" "" "80761" :RAM) "HISTORY3" ("->3rd entry HISTORY1" "" "80766" :RAM) "HISTORY4" ("->4th (oldest) entry HISTORY1" "" "8076B" :RAM) "HISTORYLEVEL" ("which stack level is next (1)" "" "8087A" :RAM) "HOMEMASK" ("Home Size of RAM (mask) (5)" "" "8000A" :RAM) "HRAMEND" ("M.S.N. of size of RAM chip (1)" "" "8000F" :RAM) "INITEN" ("Warmstart Enable flag (1)" "" "8065A" :RAM) "KEYBUFFER" ("Key Buffer (max 15 keys). (34)" "" "80669" :RAM) "INPUTSTREAM" ("Key Buffer (max 15 keys). (34)" "" "80669" :RAM) "IOCNIB" ("Saves IOC in OUTUART (1)" "" "80523" :RAM) "IOCsave" ("Save of IOC before change (1)" "" "80927" :RAM) "IOSAVE" ("Saves HiNib of ANNCTRL (1)" "" "80654" :RAM) "IRAMBSIZE" ("Size of IRAMBUFF" "" "00219" :RAM) "IRAMBUFF" ("Exec Buff (code under IRAM) (537)" "" "800F5" :RAM) "IRAMBUFF2" ("IRAMBUFF +50" "" "80127" :RAM) "IRAMMASK" ("IRAM Size Config Mask (5)" "" "80005" :RAM) "IREG" ("Saves Interrupt History (3)" "" "8064F" :RAM) "ITEM1LINES" ("# display lines currently (1)" "" "80817" :RAM) "ITEM1STATE" ("->list of lists describing stack level 1" "" "80757" :RAM) "PDCSYMB" ("->Kermit error message" "" "80775" :RAM) "KERMERRM" ("->Kermit error message" "" "80775" :RAM) "KERMMODE" ("Kermit Mode information (1)" "" "808ED" :RAM) "KEYLIST" ("(5)" "" "8090C" :RAM) "KEYLOCK" ("(1)" "" "80911" :RAM) "KEYSTATE" ("location of kbd state (16)" "" "8065C" :RAM) "KeyOb" ("->Pending key-object" "" "807DE" :RAM) "KeyRomPtr0" ("RomPtr for KeyOb (11)" "" "80951" :RAM) "KeyRomPtr1" ("RomPtr for MenuKey 1 (11)" "" "8095C" :RAM) "KeyRomPtr2" ("RomPtr for MenuKey 2 (11)" "" "80967" :RAM) "KeyRomPtr3" ("RomPtr for MenuKey 3 (11)" "" "80972" :RAM) "KeyRomPtr4" ("RomPtr for MenuKey 4 (11)" "" "8097D" :RAM) "KeyRomPtr5" ("RomPtr for MenuKey 5 (11)" "" "80988" :RAM) "KeyRomPtr6" ("RomPtr for MenuKey 6 (11)" "" "80993" :RAM) "LASTARG1" ("->1st argument saved in CK" "" "80739" :RAM) "LASTARG" ("->1st argument saved in CK" "" "80739" :RAM) "LASTARG2" ("->2nd LASTARG" "" "8073E" :RAM) "LASTARG3" ("->3rd LASTARG" "" "80743" :RAM) "LASTARG4" ("->4th LASTARG" "" "80748" :RAM) "LASTARG5" ("->5th LASTARG" "" "8074D" :RAM) "LASTARGCOUNT" ("# of args saved by CK (1)" "" "8087B" :RAM) "LASTARGf" ("Flag #Args>3 (1)" "" "8087C" :RAM) "LASTERROR" ("Save area for error number (5)" "" "8087D" :RAM) "LASTLAST?" ("true if lastkey was last hit (1)" "" "80879" :RAM) "LASTOP" ("3-state encoding of operand/ unary/binary (1)" "" "808FB" :RAM) "LASTROMWDOB" ("->Last user-level ROM-WORD evaluated (set by CK)" "" "807D9" :RAM) "LEFTTREE" ("(3)" "" "808FC" :RAM) "LINECOUNTg" ("Ghost for LINECOUNT (2)" "" "8069A" :RAM) "LINENIBSg" ("Ghost for LINENIBS (3)" "" "80692" :RAM) "LPD_HIST" ("Low Power Detect History (1)" "" "80840" :RAM) "LabelDef" ("->How to make menu labels" "" "807B1" :RAM) "LastContext" ("->RRP saved for CheckContext" "" "807CA" :RAM) "LastMenuDef" ("->Last menu definition" "" "807A2" :RAM) "LastMenuRow" ("(5)" "" "8099E" :RAM) "LastPrntTime" ("Time (Upper 11 nibs) (11)" "" "8092C" :RAM) "LineByteCt" ("Line Byte Counter (2)" "" "80928" :RAM) "LoBatTime" ("Flag periodic ((*)) updates (1)" "" "80077" :RAM) "MENULEVEL" ("User-menu level (5)" "" "808C5" :RAM) "MenuData" ("->Menu data for touch table" "" "807A7" :RAM) "MenuDef" ("->Current menu definition" "" "8079D" :RAM) "MenuExitAct" ("->Menu exit action definition" "" "807D4" :RAM) "MenuKeyLS" ("->Left-shift menu key handler" "" "807BB" :RAM) "MenuKeyNS" ("->No-shift menu key handler" "" "807B6" :RAM) "MenuKeyRS" ("->Right-shift menu key handler" "" "807C0" :RAM) "MenuRow" ("(5)" "" "80947" :RAM) "MenuRowAct" ("->Prev/Next action definition" "" "807AC" :RAM) "NEXTIRQ" ("Time at next Timer2 int. (13)" "" "80058" :RAM) "NOALARMSRV" ("Flags Disable Alarm Service (1)" "" "80835" :RAM) "NODECOUNT" ("expr-tree node count (3)" "" "808F5" :RAM) "OBTREELEN" ("object length (3)" "" "808F8" :RAM) "OLDMENU" ("Saves previous menu number (2)" "" "808CA" :RAM) "ORghost" ("" "" "80642" :RAM) "SAVE_OR" ("" "" "80642" :RAM) "OB/EXP?" ("" "" "80913" :RAM) "OSAVE" ("" "" "80734" :RAM) "PADCOUNT" ("Indentation count for decomp (1)" "" "808CD" :RAM) "PADJSAVE1" ("Status save in PTRADJUST (1)" "" "808E2" :RAM) "PADJSAVE2" ("RSTK save in PTRADJUST (10)" "" "808E3" :RAM) "PAINTTREE" ("->hxs of \"textbook-mode\" graphics" "" "8077A" :RAM) "PARENCOUNT" ("(2)" "" "80917" :RAM) "PARENTTREE" ("(3)" "" "80902" :RAM) "PASTDUE" ("Flags Past Due Alarm (1)" "" "80833" :RAM) "PASTDUE#" ("" "" "8083B" :RAM) "PDCHXS" ("->hxs map of outermost symbolic" "" "80770" :RAM) "PFIFO" ("FIFO Buffer (16)" "" "80937" :RAM) "POPPEDKEY" ("Last Key from POPKEY (2)" "" "8068B" :RAM) "PORT0EOS" ("(5)" "" "80536" :RAM) "PORT1EOS" ("(5)" "" "8053B" :RAM) "PORT2EOS" ("(5)" "" "80540" :RAM) "PRECSTACK" ("Op Precedence textbook entry (7)" "" "80905" :RAM) "Port1CRC" ("CRC for Device in Port1 (4)" "" "800E2" :RAM) "PortStat" ("Copy of CARDSTAT Nib (1)" "" "800E1" :RAM) "PrtStatus" ("CPU Status Bits et al. (3)" "" "80924" :RAM) "SYSNOUPSTART" ("->End of RAM" "" "807E8" :RAM) "RAMEND" ("->End of RAM" "" "807E8" :RAM) "RIGHTTREE" ("(3)" "" "808FF" :RAM) "RNSEED" ("Random number seed (15)" "" "80822" :RAM) "ROMPARTS" ("->RomParts Area" "" "80716" :RAM) "ReviewKey" ("->Review-key definition" "" "807C5" :RAM) "SEMAPH" ("Saves control byte for IREG (2)" "" "80652" :RAM) "STACKNUM" ("ref. number of 1st visible (5)" "" "8086F" :RAM) "STOPSIGN" ("(5)" "" "80720" :RAM) "STRETCHCOUNT" ("(2)" "" "80919" :RAM) "SW_ETime" ("Stopwatch Elapsed Time Ticks (13)" "" "800D4" :RAM) "SW_Image" ("\"HH:MM:SS:ss\" Stopwatch (22)" "" "800BE" :RAM) "StartTime" ("SelfTest Start Time (Ticks) (13)" "" "80078" :RAM) "T1COUNT" ("Decremented by srvc_timer1 (1)" "" "808CC" :RAM) "TEMPENV" ("->LAM environments (5)" "" "80702" :RAM) "TESTMSG" ("SelfTest Msg Buffer (44)" "" "80092" :RAM) "TIMECRC" ("CRC CheckSum for NEXTIRQ (4)" "" "80065" :RAM) "TIMEOUT" ("Time at scheduled timeout (13)" "" "80069" :RAM) "TIMExmit" ("Time at scheduled timeout (13)" "" "80069" :RAM) "TOPLINE" ("Editline-segment which appears first on the screen (5)" "" "80874" :RAM) "TOUCHTAB" ("(5)" "" "8070C" :RAM) "TrackAct" ("->Action when CONTEXT changes" "" "807CF" :RAM) "UserKeys" ("->User key assignments (5)" "" "80725" :RAM) "VIEWLEVEL" ("stack element currently viewed (5)" "" "80818" :RAM) "XmitSrcvTOut" ("XMIT/SRECV timeout (2)" "" "8091C" :RAM) "leeway" ("->hxs which will be GC'ed in a very-low-memory condition" "" "80752" :RAM) "xDER" ("" "" "1EFD2") "xFCNAPPLY" ("" "" "1F640") "xINTEGRAL" ("" "" "1F223") "xWHERE" ("" "" "1F3F3") "xssgeneral" ("" "" "560ED") "!#1+IF0" ("" "" "50EA5") "1/X15" ("" "" "2B789") ">LASTRAM-WORD" ("" "" "648BD") "?ACCPTR>" ("" "" "715B1") "?RollUpDA2" ("" "" "39BF3") "AbbrevStack?" ("" "" "39FB0") "ADDF" ("" "" "2B7DC") "addrADISP" ("" "" "1265A" :ML) "addrATTNFLG" ("" "" "4226A" :ML) "addrClkOnNib" ("" "" "0E7D3") "addrKEYSTATE" ("" "" "00D48") "addrLINECNTg" ("" "" "136AC" :ML) "addrORghost" ("" "" "0188D") "addrTEMPENV" ("" "" "04E66") "addrTEMPTOP" ("" "" "179E8") "addrVDISP" ("" "" "1263A" :ML) "addrVDISP2" ("" "" "1264A" :ML) "addtics" ("" "" "1605F") "AdjEdModes" ("" "" "42EC7") "adrDISABLE_K" ("" "" "047CF") "adrGraphPrtH" ("" "" "32CB6") "adrKEYBUFFER" ("" "" "047DD") "adrTIMEOUTCLK" ("" "" "42284" :ML) "adr_uart_han" ("" "" "312DA") "aH>HMS" ("" "" "2B770") "ALARMxcp" ("" "" "42113") "AlgEntryStat" ("" "" "3981B") "ALGeq?" ("" "" "1568F") "allkeys" ("" "" "001FF") "aMODF" ("" "" "2B67D") "AngleStatus" ("" "" "39673") "APPprompt1!" ("" "" "47984") "APPprompt2" ("" "" "479A7") "ATTNxcp" ("" "" "420F5") "BANKMTHDS" ("" "" "70601") "BindMatVars" ("" "" "44F42") "BITMAP" ("" "" "008E6" :ML) "BUILDKPACKET" ("" "" "2E108") "ChangeFocus" ("" "" "0B006B") "check_pdata" ("" "" "27D00") "ChkGrHook" ("" "" "32CAF") "CkEQUtil" ("" "" "49C54") "CkSecoType" ("" "" "40882" :UBS) "CKTIME" ("" "" "0D9C7") "CLKADJ*" ("" "" "0CD3F" :UBS) "CLKUTL1" ("" "" "0D7A1") "ClrAbbrevStk" ("" "" "39FD2") "ClrDouseAlm" ("" "" "0ED78" :UBS) "CLRFRC" ("" "" "2BBE2") "clrtimeout" ("" "" "423D3" :ML) "COLAthexFCN" ("" "" "5573D") "Coldstart" ("" "" "01FD3" :ML) "COMPCONFCRC" ("" "" "09B73" :ML) "ComVecStatus" ("" "" "396C8") "convertbase" ("" "" "256E4") "CopyColsLeft" ("" "" "4651C") "CopyColsRght" ("" "" "4677E") "CopyRowsDown" ("" "" "46625") "CopyRowsUp" ("" "" "46409") "COPYVAR" ("" "" "7DF87") "corner" ("" "" "137DC" :ML) "CRUNCHNoBlame" ("" "" "15941") "CtlAlarm!" ("" "" "4248E") "CtlAlarm@" ("" "" "424A1" :UBS) "CURRENTMARK?" ("" "" "4E442") "Cursor&Disp" ("" "" "427AF") "CURSOR+" ("" "" "13F01" :UBS) "D0=ALoop" ("" "" "53A05" :ML :UBS) "DA2bTemp?" ("" "" "39371" :UBS) "DaDGNTc" ("" "" "25223") "DAY#" ("" "" "0D4AD") "Day>Date" ("" "" "0D744") "DCursor" ("" "" "424DA") "delimcase" ("" "" "2512D") "derprod1" ("" "" "7DC54") "derquot" ("" "" "7DC0E") "DISPCHAR+PC" ("" "" "13B51") "disprange" ("" "" "133AB") "DispVarsUtil" ("" "" "153FC") "DIV2" ("" "" "2BBB5") "DoCAlarmKey" ("" "" "42475") "DoKeyCancel" ("" "" "0590B0") "DoKeyEdit" ("" "" "0560B0") "DoKeyOK" ("" "" "05A0B0") "DoMKeyOK" ("" "" "0090B1") "DoPlotMenu" ("" "" "3ADED") "DOPRLCD" ("" "" "31EE2") "dowutil" ("" "" "0DB51" :ML) "drax" ("" "" "4C639") "DropSysErr$" ("" "" "2DDC4") "DropSysObs" ("" "" "18308") "DupAndThen" ("" "" "641CC") "DZP" ("" "" "00003") "easyabs" ("" "" "7DC88") "Echo2Macros" ("" "" "3EE47") "ECUSER" ("" "" "039EF") "EDITPARTS" ("" "" "44730") "ENTERCODE" ("" "" "00019") "EQCURSOR?" ("" "" "4E46A") "ErrFixEIRU" ("" "" "32B08") "ErrTime" ("" "" "0CBC4") "EVALCRUNCH" ("" "" "1583C") "ExitFcn" ("" "" "4CF68") "EXITFCNsto" ("" "" "4CE4C") "Extobcode" ("" "" "25C41") "FcnUtilEnd" ("" "" "49BA5") "FixEIRU" ("" "" "32B1A") "FixRRP" ("" "" "17ADB") "FLOAT" ("" "" "0D6D8") "GETAB0" ("" "" "2BFFD") "GETAB1" ("" "" "2BFE3") "getBPOFF" ("" "" "0D809") "GetBVars" ("" "" "21922") "GETCD0" ("" "" "2C031") "GetElt" ("" "" "45D1F") "GetFieldVals" ("" "" "0C80B0") "GetLastEdit" ("" "" "40BDD" :UBS) "GetMat/Vec" ("" "" "45AE0") "GETPIX" ("" "" "138EF") "GETPIX3" ("" "" "138F2") "GETRHS" ("" "" "514AF") "GetTimChk" ("" "" "012EE" :ML) "GetTime++" ("" "" "0130E" :ML) "~gFldVal" ("" "" "0C50B0") "GraphicExit" ("" "" "4CEE7") "GsstFIN" ("" "" "1518D") "HISTON?" ("" "" "53860") "IFEDispField" ("" "" "0130B0") "InitEnab" ("" "" "0970A") "InitOldMat" ("" "" "45023") "InitSysUI" ("" "" "385E8") "IOC" ("" "" "00110") "IRAM@" ("" "" "0011F") "IRC" ("" "" "0011A") "IStackKey" ("" "" "3E5CD") "LastERow?" ("" "" "426F1") "LASTPT?" ("" "" "50D78") "lbrac" ("" "" "6515C" :UBS) "LCursor" ("" "" "4256B") "LINECHANGE" ("" "" "4E37E") "LINESOFSTACK" ("" "" "39F6F") "List" ("" "" "24C0D") "longhxs" ("" "" "15E83") "Loop" ("" "" "2D564") "MACRODCMP" ("" "" "62ABB") "MANMENU*/" ("" "" "7DF0E") "MANMENU+-" ("" "" "7DF03") "MANMENUATG" ("" "" "7DF66") "MANMENUCSIV" ("" "" "7DF3A") "MANMENUCX" ("" "" "7DF50") "MANMENUEQ" ("" "" "7DF45") "MANMENUEXP" ("" "" "7DF24") "MANMENULN" ("" "" "7DF2F") "MANMENUTRG" ("" "" "7DF5B") "MANMENU^" ("" "" "7DF19") "matchob?Lp" ("" "" "643F9") "~MESRclEqn" ("" "" "0120E4") "mpop1%" ("" "" "0D8AE") "nCOLCTQUOTE" ("" "" "7DEED") "need'case" ("" "" "255FB") "newBASE" ("" "" "25632") "NEWINDEP" ("" "" "4C09B") "NEWMARK" ("" "" "4E4B0") "nextpos" ("" "" "6443A") "NEXTRRPOB" ("" "" "179D0") "NEXTSTEP" ("" "" "4BFAE") "nextsym'R" ("" "" "29A8D") "ngsizecase" ("" "" "255BD") "nINTGACOS" ("" "" "7DEA0") "nINTGALOG" ("" "" "7DECC") "nINTGASIN" ("" "" "7DE95") "nINTGATAN" ("" "" "7DEAB") "nINTGCOS" ("" "" "7DE5E") "nINTGCOSH" ("" "" "7DE7F") "nINTGEXPM" ("" "" "7DED7") "nINTGINV" ("" "" "7DE27") "nINTGLN" ("" "" "7DEB6") "nINTGLOG" ("" "" "7DEC1") "nINTGSIGN" ("" "" "7DE32") "nINTGSIN" ("" "" "7DE53") "nINTGSINH" ("" "" "7DE74") "nINTGSQ" ("" "" "7DE48") "nINTGSQRT" ("" "" "7DE3D") "nINTGTAN" ("" "" "7DE69") "nINTGTANH" ("" "" "7DE8A") "NoIgnoreAlm" ("" "" "53AE4") "norecCSseq" ("" "" "01FDA" :ML) "NUMSOLVE" ("" "" "3303F") "nWHEREDER" ("" "" "7DBAB") "nWHEREFCNAPP" ("" "" "7DBD7") "nWHEREIFTE" ("" "" "7DBA0") "nWHEREINTG" ("" "" "7DBB6") "nWHERESUM" ("" "" "7DBC1") "nWHEREWHERE" ("" "" "7DBCC") "OB>BAKcode" ("" "" "216D8") "OverWrF/TLp" ("" "" "6207D") "PALPTRDCMP" ("" "" "62B1F") "PathStatus" ("" "" "39971") "~PCunpack" ("" "" "0630E3") "pixon2" ("" "" "138CA") "PointDerivUt" ("" "" "49AD3") "PointMoveCur" ("" "" "49F06") "POLErrorTrap" ("" "" "38B45") "POPDATE%" ("" "" "0D92C") "POPTIME%" ("" "" "0D948") "preFACT" ("" "" "1BB41") "PREMARKON" ("" "" "4E497") "PrgmEntrStat" ("" "" "39853") "PRLG" ("" "" "028FC") "PSubErr" ("" "" "323E9") "PtoR" ("" "" "5133C") "PTYPE>PINFO" ("" "" "7DF71") "PUTAB0" ("" "" "2C04B") "PutSerialECk" ("" "" "30E4E") "PvarsC%0" ("" "" "4AB2A") "RBR" ("" "" "00114") "RCKBp" ("" "" "01AD7" :ML) "RCS" ("" "" "00111") "realPAcode" ("" "" "265ED") "RECORDX&YC%" ("" "" "510D5") "REPLACE_MODE" ("" "" "53A20") "restoreiram" ("" "" "0C147") "RNDC[B]" ("" "" "2BEEC") "Rom-Word?" ("" "" "61FCF") "RootUtil" ("" "" "49BD2") "RowElt#" ("" "" "45C2F") "ROWNUM" ("" "" "4489E") "rpnXROOT" ("" "" "1B185") "RPTRACC" ("" "" "71DB2") "SAFESKIPOB" ("" "" "0A532" :ML) "sALLOWINTR" ("" "" "0000F") "SAVELAM" ("" "" "61D3A") "SavPtrTime*" ("" "" "01307" :ML) "sBEG" ("" "" "00008") "sBPOFF" ("" "" "00004") "SET" ("" "" "07661") "SetAbbrevStk" ("" "" "39FC1") "SetBadPOLUI" ("" "" "38CDF" :UBS) "setflag" ("" "" "53B31" :ML) "SetISysFlag" ("" "" "539F9" :ML) "SETLOOPENV" ("" "" "4CF41") "SETROMPART" ("" "" "21CBA") "settimeout" ("" "" "423BB" :ML) "Sfkey1" ("" "" "00001") "Sfkey6" ("" "" "00006") "~sFldVal" ("" "" "0D50B0") "SLEEPxcp" ("" "" "42131") "sFLUSH" ("" "" "00002") "sNEGATE" ("" "" "00002") "SPLITWHERE" ("" "" "7DEF8") "SQRF" ("" "" "2BA0F") "srvc_timer2" ("" "" "0131D" :ML) "stackitw" ("" "" "1686A") "StartupProc" ("" "" "3858E") "STOAPPLDATA" ("" "" "47467") "sTRUNC" ("" "" "00001") "subpdcdptch" ("" "" "29BC2") "symbn" ("" "" "5A310") "SYMBNUMSOLVE" ("" "" "32FF9") "SysErrorTrap" ("" "" "38728") "SysPtr@" ("" "" "08D66" :ML) "SystemLevel?" ("" "" "40792") "TBR" ("" "" "00116") "TCS" ("" "" "00112") "TIMEOUT?" ("" "" "4227F") "TIMERCTRL.1" ("" "" "0012E") "TIMERCTRL.2" ("" "" "0012F") "TogInsertKey" ("" "" "3E586") "TopERow?" ("" "" "4272D") "TST15" ("" "" "2BD76") "TurnOffKey" ("" "" "3A9CE") "UCursor" ("" "" "42660") "UserFlagStat" ("" "" "39748") "UserKeysStat" ("" "" "397BB") "~UTTYPEEXT0?" ("" "" "0580E7") "~UTVUNS1Arg" ("" "" "0110E7") "VLM" ("" "" "17B86") "WaitTbz0" ("" "" "31416" :UBS) "norecPWLseq" ("" "" "01FBD" :ML) "Warmstart" ("" "" "01FBD" :ML) "WindowXY" ("" "" "136AA" :ML) "X@" ("" "" "0931B") "Y<=X" ("" "" "2BD32") "YMD>Ticks" ("" "" "0DB3A" :ML) "Z-BOX" ("" "" "4E776") "{}>DIR" ("" "" "24EA6")))