|
@@ -0,0 +1,19709 @@
|
|
|
|
|
+
|
|
|
|
|
+#s(hash-table size 8311 test eql rehash-size 1.5 rehash-threshold 0.8 data ("any" ("0d 0h
|
|
|
|
|
+" "" "33107" :NOSDIAG) "ZERO" ("0d 0h
|
|
|
|
|
+" "" "33107" :NOSDIAG) "BINT0" ("0d 0h
|
|
|
|
|
+" "" "33107" :NOSDIAG) "MEMERR" ("1d 1h
|
|
|
|
|
+" "" "33111" :NOSDIAG) "real" ("1d 1h
|
|
|
|
|
+" "" "33111" :NOSDIAG) "ONE" ("1d 1h
|
|
|
|
|
+" "" "33111" :NOSDIAG) "BINT1" ("1d 1h
|
|
|
|
|
+" "" "33111" :NOSDIAG) "cmp" ("2d 2h
|
|
|
|
|
+" "" "3311B" :NOSDIAG) "TWO" ("2d 2h
|
|
|
|
|
+" "" "3311B" :NOSDIAG) "BINT2" ("2d 2h
|
|
|
|
|
+" "" "3311B" :NOSDIAG) "str" ("3d 3h
|
|
|
|
|
+" "" "33125" :NOSDIAG) "THREE" ("3d 3h
|
|
|
|
|
+" "" "33125" :NOSDIAG) "BINT3" ("3d 3h
|
|
|
|
|
+" "" "33125" :NOSDIAG) "arry" ("4d 4h
|
|
|
|
|
+" "" "3312F" :NOSDIAG) "FOUR" ("4d 4h
|
|
|
|
|
+" "" "3312F" :NOSDIAG) "BINT4" ("4d 4h
|
|
|
|
|
+" "" "3312F" :NOSDIAG) "list" ("5d 5h
|
|
|
|
|
+" "" "33139" :NOSDIAG) "FIVE" ("5d 5h
|
|
|
|
|
+" "" "33139" :NOSDIAG) "BINT5" ("5d 5h
|
|
|
|
|
+" "" "33139" :NOSDIAG) "idnt" ("6d 6h
|
|
|
|
|
+" "" "33143" :NOSDIAG) "id" ("6d 6h
|
|
|
|
|
+" "" "33143" :NOSDIAG) "SIX" ("6d 6h
|
|
|
|
|
+" "" "33143" :NOSDIAG) "BINT6" ("6d 6h
|
|
|
|
|
+" "" "33143" :NOSDIAG) "lam" ("7d 7h
|
|
|
|
|
+" "" "3314D" :NOSDIAG) "SEVEN" ("7d 7h
|
|
|
|
|
+" "" "3314D" :NOSDIAG) "BINT7" ("7d 7h
|
|
|
|
|
+" "" "3314D" :NOSDIAG) "seco" ("8d 8h
|
|
|
|
|
+" "" "33157" :NOSDIAG) "EIGHT" ("8d 8h
|
|
|
|
|
+" "" "33157" :NOSDIAG) "BINT8" ("8d 8h
|
|
|
|
|
+" "" "33157" :NOSDIAG) "symb" ("9d 9h
|
|
|
|
|
+" "" "33161" :NOSDIAG) "NINE" ("9d 9h
|
|
|
|
|
+" "" "33161" :NOSDIAG) "BINT9" ("9d 9h
|
|
|
|
|
+" "" "33161" :NOSDIAG) "sym" ("10d Ah
|
|
|
|
|
+" "" "3316B" :NOSDIAG) "TEN" ("10d Ah
|
|
|
|
|
+" "" "3316B" :NOSDIAG) "BINT10" ("10d Ah
|
|
|
|
|
+" "" "3316B" :NOSDIAG) "hxs" ("11d Bh
|
|
|
|
|
+" "" "33175" :NOSDIAG) "ELEVEN" ("11d Bh
|
|
|
|
|
+" "" "33175" :NOSDIAG) "BINT11" ("11d Bh
|
|
|
|
|
+" "" "33175" :NOSDIAG) "grob" ("12d Ch
|
|
|
|
|
+" "" "3317F" :NOSDIAG) "TWELVE" ("12d Ch
|
|
|
|
|
+" "" "3317F" :NOSDIAG) "BINT12" ("12d Ch
|
|
|
|
|
+" "" "3317F" :NOSDIAG) "THIRTEEN" ("13d Dh
|
|
|
|
|
+" "" "33189" :NOSDIAG) "TAGGED" ("13d Dh
|
|
|
|
|
+" "" "33189" :NOSDIAG) "BINT13" ("13d Dh
|
|
|
|
|
+" "" "33189" :NOSDIAG) "unitob" ("14d Eh
|
|
|
|
|
+" "" "33193" :NOSDIAG) "FOURTEEN" ("14d Eh
|
|
|
|
|
+" "" "33193" :NOSDIAG) "EXT" ("14d Eh
|
|
|
|
|
+" "" "33193" :NOSDIAG) "BINT14" ("14d Eh
|
|
|
|
|
+" "" "33193" :NOSDIAG) "rompointer" ("15d Fh
|
|
|
|
|
+" "" "3319D" :NOSDIAG) "FIFTEEN" ("15d Fh
|
|
|
|
|
+" "" "3319D" :NOSDIAG) "BINT15" ("15d Fh
|
|
|
|
|
+" "" "3319D" :NOSDIAG) "SIXTEEN" ("16d 10h
|
|
|
|
|
+" "" "331A7" :NOSDIAG) "REALOB" ("16d 10h
|
|
|
|
|
+" "" "331A7" :NOSDIAG) "BINT16" ("16d 10h
|
|
|
|
|
+" "" "331A7" :NOSDIAG) "REALREAL" ("17d 11h
|
|
|
|
|
+" "" "331B1" :NOSDIAG) "2REAL" ("17d 11h
|
|
|
|
|
+" "" "331B1" :NOSDIAG) "SEVENTEEN" ("17d 11h
|
|
|
|
|
+" "" "331B1" :NOSDIAG) "BINT17" ("17d 11h
|
|
|
|
|
+" "" "331B1" :NOSDIAG) "EIGHTEEN" ("18d 12h
|
|
|
|
|
+" "" "331BB" :NOSDIAG) "BINT18" ("18d 12h
|
|
|
|
|
+" "" "331BB" :NOSDIAG) "NINETEEN" ("19d 13h
|
|
|
|
|
+" "" "331C5" :NOSDIAG) "BINT19" ("19d 13h
|
|
|
|
|
+" "" "331C5" :NOSDIAG) "TWENTY" ("20d 14h
|
|
|
|
|
+" "" "331CF" :NOSDIAG) "BINT20" ("20d 14h
|
|
|
|
|
+" "" "331CF" :NOSDIAG) "TWENTYONE" ("21d 15h
|
|
|
|
|
+" "" "331D9" :NOSDIAG) "BINT21" ("21d 15h
|
|
|
|
|
+" "" "331D9" :NOSDIAG) "TWENTYTWO" ("22d 16h
|
|
|
|
|
+" "" "331E3" :NOSDIAG) "BINT22" ("22d 16h
|
|
|
|
|
+" "" "331E3" :NOSDIAG) "TWENTYTHREE" ("23d 17h
|
|
|
|
|
+" "" "331ED" :NOSDIAG) "BINT23" ("23d 17h
|
|
|
|
|
+" "" "331ED" :NOSDIAG) "TWENTYFOUR" ("24d 18h
|
|
|
|
|
+" "" "331F7" :NOSDIAG) "BINT24" ("24d 18h
|
|
|
|
|
+" "" "331F7" :NOSDIAG) "TWENTYFIVE" ("25d 19h
|
|
|
|
|
+" "" "33201" :NOSDIAG) "BINT25" ("25d 19h
|
|
|
|
|
+" "" "33201" :NOSDIAG) "TWENTYSIX" ("26d 1Ah
|
|
|
|
|
+" "" "3320B" :NOSDIAG) "REALSYM" ("26d 1Ah
|
|
|
|
|
+" "" "3320B" :NOSDIAG) "BINT26" ("26d 1Ah
|
|
|
|
|
+" "" "3320B" :NOSDIAG) "TWENTYSEVEN" ("27d 1Bh
|
|
|
|
|
+" "" "33215" :NOSDIAG) "BINT27" ("27d 1Bh
|
|
|
|
|
+" "" "33215" :NOSDIAG) "TWENTYEIGHT" ("28d 1Ch
|
|
|
|
|
+" "" "3321F" :NOSDIAG) "BINT28" ("28d 1Ch
|
|
|
|
|
+" "" "3321F" :NOSDIAG) "TWENTYNINE" ("29d 1Dh
|
|
|
|
|
+" "" "33229" :NOSDIAG) "BINT29" ("29d 1Dh
|
|
|
|
|
+" "" "33229" :NOSDIAG) "THIRTY" ("30d 1Eh
|
|
|
|
|
+" "" "33233" :NOSDIAG) "REALEXT" ("30d 1Eh
|
|
|
|
|
+" "" "33233" :NOSDIAG) "BINT30" ("30d 1Eh
|
|
|
|
|
+" "" "33233" :NOSDIAG) "THIRTYONE" ("31d 1Fh
|
|
|
|
|
+" "" "3323D" :NOSDIAG) "BINT31" ("31d 1Fh
|
|
|
|
|
+" "" "3323D" :NOSDIAG) "THIRTYTWO" ("32d 20h
|
|
|
|
|
+" "" "33247" :NOSDIAG) "BINT32" ("32d 20h
|
|
|
|
|
+" "" "33247" :NOSDIAG) "THIRTYTHREE" ("33d 21h
|
|
|
|
|
+" "" "33251" :NOSDIAG) "BINT33" ("33d 21h
|
|
|
|
|
+" "" "33251" :NOSDIAG) "THIRTYFOUR" ("34d 22h
|
|
|
|
|
+" "" "3325B" :NOSDIAG) "BINT34" ("34d 22h
|
|
|
|
|
+" "" "3325B" :NOSDIAG) "THIRTYFIVE" ("35d 23h
|
|
|
|
|
+" "" "33265" :NOSDIAG) "BINT35" ("35d 23h
|
|
|
|
|
+" "" "33265" :NOSDIAG) "TTHIRTYSIX" ("36d 24h
|
|
|
|
|
+" "" "3326F" :NOSDIAG) "BINT36" ("36d 24h
|
|
|
|
|
+" "" "3326F" :NOSDIAG) "THIRTYSEVEN" ("37d 25h
|
|
|
|
|
+" "" "33279" :NOSDIAG) "BINT37" ("37d 25h
|
|
|
|
|
+" "" "33279" :NOSDIAG) "THIRTYEIGHT" ("38d 26h
|
|
|
|
|
+" "" "33283" :NOSDIAG) "BINT38" ("38d 26h
|
|
|
|
|
+" "" "33283" :NOSDIAG) "THIRTYNINE" ("39d 27h
|
|
|
|
|
+" "" "3328D" :NOSDIAG) "BINT39" ("39d 27h
|
|
|
|
|
+" "" "3328D" :NOSDIAG) "FOURTY" ("40d 28h
|
|
|
|
|
+" "" "33297" :NOSDIAG) "FORTY" ("40d 28h
|
|
|
|
|
+" "" "33297" :NOSDIAG) "BINT40" ("40d 28h
|
|
|
|
|
+" "" "33297" :NOSDIAG) "FORTYONE" ("41d 29h
|
|
|
|
|
+" "" "332A1" :NOSDIAG) "BINT41" ("41d 29h
|
|
|
|
|
+" "" "332A1" :NOSDIAG) "FORTYTWO" ("42d 2Ah
|
|
|
|
|
+" "" "332AB" :NOSDIAG) "BINT42" ("42d 2Ah
|
|
|
|
|
+" "" "332AB" :NOSDIAG) "FORTYTHREE" ("43d 2Bh
|
|
|
|
|
+" "" "332B5" :NOSDIAG) "BINT43" ("43d 2Bh
|
|
|
|
|
+" "" "332B5" :NOSDIAG) "(illnameerr)" ("44d 2Ch
|
|
|
|
|
+" "" "332BF" :NOSDIAG) "FORTYFOUR" ("44d 2Ch
|
|
|
|
|
+" "" "332BF" :NOSDIAG) "BINT44" ("44d 2Ch
|
|
|
|
|
+" "" "332BF" :NOSDIAG) "FORTYFIVE" ("45d 2Dh
|
|
|
|
|
+" "" "332C9" :NOSDIAG) "BINT45" ("45d 2Dh
|
|
|
|
|
+" "" "332C9" :NOSDIAG) "FORTYSIX" ("46d 2Eh
|
|
|
|
|
+" "" "332D3" :NOSDIAG) "BINT46" ("46d 2Eh
|
|
|
|
|
+" "" "332D3" :NOSDIAG) "(rrp)" ("47d 2Fh
|
|
|
|
|
+" "" "332DD" :NOSDIAG) "FORTYSEVEN" ("47d 2Fh
|
|
|
|
|
+" "" "332DD" :NOSDIAG) "BINT47" ("47d 2Fh
|
|
|
|
|
+" "" "332DD" :NOSDIAG) "FORTYEIGHT" ("48d 30h
|
|
|
|
|
+" "" "332E7" :NOSDIAG) "BINT48" ("48d 30h
|
|
|
|
|
+" "" "332E7" :NOSDIAG) "FORTYNINE" ("49d 31h
|
|
|
|
|
+" "" "332F1" :NOSDIAG) "BINT49" ("49d 31h
|
|
|
|
|
+" "" "332F1" :NOSDIAG) "FIFTY" ("50d 32h
|
|
|
|
|
+" "" "332FB" :NOSDIAG) "BINT50" ("50d 32h
|
|
|
|
|
+" "" "332FB" :NOSDIAG) "FIFTYONE" ("51d 33h
|
|
|
|
|
+" "" "33305" :NOSDIAG) "BINT51" ("51d 33h
|
|
|
|
|
+" "" "33305" :NOSDIAG) "(THREEFOUR)" ("52d 34h
|
|
|
|
|
+" "" "3330F" :NOSDIAG) "FIFTYTWO" ("52d 34h
|
|
|
|
|
+" "" "3330F" :NOSDIAG) "BINT52" ("52d 34h
|
|
|
|
|
+" "" "3330F" :NOSDIAG) "THREEFIVE" ("53d 35h
|
|
|
|
|
+" "" "33319" :NOSDIAG) "STRLIST" ("53d 35h
|
|
|
|
|
+" "" "33319" :NOSDIAG) "FIFTYTHREE" ("53d 35h
|
|
|
|
|
+" "" "33319" :NOSDIAG) "BINT53" ("53d 35h
|
|
|
|
|
+" "" "33319" :NOSDIAG) "FIFTYFOUR" ("54d 36h
|
|
|
|
|
+" "" "33323" :NOSDIAG) "BINT54" ("54d 36h
|
|
|
|
|
+" "" "33323" :NOSDIAG) "FIFTYFIVE" ("55d 37h
|
|
|
|
|
+" "" "3332D" :NOSDIAG) "(#THREESEVEN)" ("55d 37h
|
|
|
|
|
+" "" "3332D" :NOSDIAG) "BINT55" ("55d 37h
|
|
|
|
|
+" "" "3332D" :NOSDIAG) "FIFTYSIX" ("56d 38h
|
|
|
|
|
+" "" "33337" :NOSDIAG) "BINT56" ("56d 38h
|
|
|
|
|
+" "" "33337" :NOSDIAG) "FIFTYSEVEN" ("57d 39h
|
|
|
|
|
+" "" "33341" :NOSDIAG) "BINT57" ("57d 39h
|
|
|
|
|
+" "" "33341" :NOSDIAG) "FIFTYEIGHT" ("58d 3Ah
|
|
|
|
|
+" "" "3334B" :NOSDIAG) "BINT58" ("58d 3Ah
|
|
|
|
|
+" "" "3334B" :NOSDIAG) "FIFTYNINE" ("59d 3Bh
|
|
|
|
|
+" "" "33355" :NOSDIAG) "BINT59" ("59d 3Bh
|
|
|
|
|
+" "" "33355" :NOSDIAG) "SIXTY" ("60d 3Ch
|
|
|
|
|
+" "" "3335F" :NOSDIAG) "BINT60" ("60d 3Ch
|
|
|
|
|
+" "" "3335F" :NOSDIAG) "SIXTYONE" ("61d 3Dh
|
|
|
|
|
+" "" "33369" :NOSDIAG) "BINT61" ("61d 3Dh
|
|
|
|
|
+" "" "33369" :NOSDIAG) "SIXTYTWO" ("62d 3Eh
|
|
|
|
|
+" "" "33373" :NOSDIAG) "BINT62" ("62d 3Eh
|
|
|
|
|
+" "" "33373" :NOSDIAG) "SIXTYTHREE" ("63d 3Fh
|
|
|
|
|
+" "" "3337D" :NOSDIAG) "(BINT3Fh)" ("63d 3Fh
|
|
|
|
|
+" "" "3337D" :NOSDIAG) "BINT63" ("63d 3Fh
|
|
|
|
|
+" "" "3337D" :NOSDIAG) "YHI" ("64d 40h
|
|
|
|
|
+" "" "33387" :NOSDIAG) "SIXTYFOUR" ("64d 40h
|
|
|
|
|
+" "" "33387" :NOSDIAG) "(BINT_40h)" ("64d 40h
|
|
|
|
|
+" "" "33387" :NOSDIAG) "BINT40h" ("64d 40h
|
|
|
|
|
+" "" "33387" :NOSDIAG) "BINT64" ("64d 40h
|
|
|
|
|
+" "" "33387" :NOSDIAG) "(BINT_65d)" ("65d 41h
|
|
|
|
|
+" "" "33391" :NOSDIAG) "ARRYREAL" ("65d 41h
|
|
|
|
|
+" "" "33391" :NOSDIAG) "BINT65" ("65d 41h
|
|
|
|
|
+" "" "33391" :NOSDIAG) "(ARRYCMP)" ("66d 42h
|
|
|
|
|
+" "" "3339B" :NOSDIAG) "FOURTWO" ("66d 42h
|
|
|
|
|
+" "" "3339B" :NOSDIAG) "BINT66" ("66d 42h
|
|
|
|
|
+" "" "3339B" :NOSDIAG) "FOURTHREE" ("67d 43h
|
|
|
|
|
+" "" "333A5" :NOSDIAG) "BINT67" ("67d 43h
|
|
|
|
|
+" "" "333A5" :NOSDIAG) "SIXTYEIGHT" ("68d 44h
|
|
|
|
|
+" "" "333AF" :NOSDIAG) "(2ARRY)" ("68d 44h
|
|
|
|
|
+" "" "333AF" :NOSDIAG) "BINT68" ("68d 44h
|
|
|
|
|
+" "" "333AF" :NOSDIAG) "FOURFIVE" ("69d 45h
|
|
|
|
|
+" "" "333B9" :NOSDIAG) "BINT69" ("69d 45h
|
|
|
|
|
+" "" "333B9" :NOSDIAG) "(ARRYID)" ("70d 46h
|
|
|
|
|
+" "" "333C3" :NOSDIAG) "SEVENTY" ("70d 46h
|
|
|
|
|
+" "" "333C3" :NOSDIAG) "BINT70" ("70d 46h
|
|
|
|
|
+" "" "333C3" :NOSDIAG) "BINT71" ("71d 47h
|
|
|
|
|
+" "" "333CD" :NOSDIAG) "BINT72" ("72d 48h
|
|
|
|
|
+" "" "333D7" :NOSDIAG) "BINT73" ("73d 49h
|
|
|
|
|
+" "" "333E1" :NOSDIAG) "SEVENTYFOUR" ("74d 4Ah
|
|
|
|
|
+" "" "333EB" :NOSDIAG) "BINT74" ("74d 4Ah
|
|
|
|
|
+" "" "333EB" :NOSDIAG) "BINT75" ("75d 4Bh
|
|
|
|
|
+" "" "333F5" :NOSDIAG) "BINT76" ("76d 4Ch
|
|
|
|
|
+" "" "333FF" :NOSDIAG) "BINT77" ("77d 4Dh
|
|
|
|
|
+" "" "33409" :NOSDIAG) "BINT78" ("78d 4Eh
|
|
|
|
|
+" "" "33413" :NOSDIAG) "SEVENTYNINE" ("79d 4Fh
|
|
|
|
|
+" "" "3341D" :NOSDIAG) "BINT79" ("79d 4Fh
|
|
|
|
|
+" "" "3341D" :NOSDIAG) "(LISTOB)" ("80d 50h
|
|
|
|
|
+" "" "33427" :NOSDIAG) "EIGHTY" ("80d 50h
|
|
|
|
|
+" "" "33427" :NOSDIAG) "BINT80" ("80d 50h
|
|
|
|
|
+" "" "33427" :NOSDIAG) "LISTREAL" ("81d 51h
|
|
|
|
|
+" "" "33431" :NOSDIAG) "EIGHTYONE" ("81d 51h
|
|
|
|
|
+" "" "33431" :NOSDIAG) "BINT81" ("81d 51h
|
|
|
|
|
+" "" "33431" :NOSDIAG) "LISTCMP" ("82d 52h
|
|
|
|
|
+" "" "3343B" :NOSDIAG) "BINT82" ("82d 52h
|
|
|
|
|
+" "" "3343B" :NOSDIAG) "FIVETHREE" ("83d 53h
|
|
|
|
|
+" "" "33445" :NOSDIAG) "BINT83" ("83d 53h
|
|
|
|
|
+" "" "33445" :NOSDIAG) "FIVEFOUR" ("84d 54h
|
|
|
|
|
+" "" "3344F" :NOSDIAG) "BINT84" ("84d 54h
|
|
|
|
|
+" "" "3344F" :NOSDIAG) "2LIST" ("85d 55h
|
|
|
|
|
+" "" "33459" :NOSDIAG) "BINT85" ("85d 55h
|
|
|
|
|
+" "" "33459" :NOSDIAG) "(LISTID)" ("86d 56h
|
|
|
|
|
+" "" "33463" :NOSDIAG) "FIVESIX" ("86d 56h
|
|
|
|
|
+" "" "33463" :NOSDIAG) "BINT86" ("86d 56h
|
|
|
|
|
+" "" "33463" :NOSDIAG) "LISTLAM" ("87d 57h
|
|
|
|
|
+" "" "3346D" :NOSDIAG) "BINT87" ("87d 57h
|
|
|
|
|
+" "" "3346D" :NOSDIAG) "BINT88" ("88d 58h
|
|
|
|
|
+" "" "33477" :NOSDIAG) "BINT89" ("89d 59h
|
|
|
|
|
+" "" "33481" :NOSDIAG) "BINT90" ("90d 5Ah
|
|
|
|
|
+" "" "3348B" :NOSDIAG) "BINT_91d" ("91d 5Bh
|
|
|
|
|
+" "" "33495" :NOSDIAG) "BINT91" ("91d 5Bh
|
|
|
|
|
+" "" "33495" :NOSDIAG) "BINT92" ("92d 5Ch
|
|
|
|
|
+" "" "3349F" :NOSDIAG) "BINT93" ("93d 5Dh
|
|
|
|
|
+" "" "334A9" :NOSDIAG) "BINT94" ("94d 5Eh
|
|
|
|
|
+" "" "334B3" :NOSDIAG) "BINT95" ("95d 5Fh
|
|
|
|
|
+" "" "334BD" :NOSDIAG) "(idntany)" ("96d 60h
|
|
|
|
|
+" "" "334C7" :NOSDIAG) "BINT_96d" ("96d 60h
|
|
|
|
|
+" "" "334C7" :NOSDIAG) "BINT96" ("96d 60h
|
|
|
|
|
+" "" "334C7" :NOSDIAG) "IDREAL" ("97d 61h
|
|
|
|
|
+" "" "334D1" :NOSDIAG) "BINT97" ("97d 61h
|
|
|
|
|
+" "" "334D1" :NOSDIAG) "(NINETYEIGHT)" ("98d 62h
|
|
|
|
|
+" "" "334DB" :NOSDIAG) "(IDCMP)" ("98d 62h
|
|
|
|
|
+" "" "334DB" :NOSDIAG) "BINT98" ("98d 62h
|
|
|
|
|
+" "" "334DB" :NOSDIAG) "BINT99" ("99d 63h
|
|
|
|
|
+" "" "334E5" :NOSDIAG) "(IDARRY)" ("100d 64h
|
|
|
|
|
+" "" "334EF" :NOSDIAG) "ONEHUNDRED" ("100d 64h
|
|
|
|
|
+" "" "334EF" :NOSDIAG) "BINT100" ("100d 64h
|
|
|
|
|
+" "" "334EF" :NOSDIAG) "(SIXFIVE)" ("101d 65h
|
|
|
|
|
+" "" "334F9" :NOSDIAG) "(IDLIST)" ("101d 65h
|
|
|
|
|
+" "" "334F9" :NOSDIAG) "BINT101" ("101d 65h
|
|
|
|
|
+" "" "334F9" :NOSDIAG) "BINT102" ("102d 66h
|
|
|
|
|
+" "" "33503" :NOSDIAG) "BINT103" ("103d 67h
|
|
|
|
|
+" "" "3350D" :NOSDIAG) "BINT104" ("104d 68h
|
|
|
|
|
+" "" "33517" :NOSDIAG) "BINT105" ("105d 69h
|
|
|
|
|
+" "" "33521" :NOSDIAG) "BINT106" ("106d 6Ah
|
|
|
|
|
+" "" "3352B" :NOSDIAG) "BINT107" ("107d 6Bh
|
|
|
|
|
+" "" "33535" :NOSDIAG) "BINT108" ("108d 6Ch
|
|
|
|
|
+" "" "3353F" :NOSDIAG) "BINT109" ("109d 6Dh
|
|
|
|
|
+" "" "33549" :NOSDIAG) "BINT110" ("110d 6Eh
|
|
|
|
|
+" "" "33553" :NOSDIAG) "char" ("111d 6Fh
|
|
|
|
|
+" "" "3355D" :NOSDIAG) "BINT111" ("111d 6Fh
|
|
|
|
|
+" "" "3355D" :NOSDIAG) "(lamany)" ("112d 70h
|
|
|
|
|
+" "" "33567" :NOSDIAG) "BINT112" ("112d 70h
|
|
|
|
|
+" "" "33567" :NOSDIAG) "(LAMREAL)" ("113d 71h
|
|
|
|
|
+" "" "33571" :NOSDIAG) "BINT113" ("113d 71h
|
|
|
|
|
+" "" "33571" :NOSDIAG) "(BINT_114d)" ("114d 72h
|
|
|
|
|
+" "" "3357B" :NOSDIAG) "BINT114" ("114d 72h
|
|
|
|
|
+" "" "3357B" :NOSDIAG) "BINT_115d" ("115d 73h
|
|
|
|
|
+" "" "33585" :NOSDIAG) "BINT115" ("115d 73h
|
|
|
|
|
+" "" "33585" :NOSDIAG) "BINT_116d" ("116d 74h
|
|
|
|
|
+" "" "3358F" :NOSDIAG) "BINT116" ("116d 74h
|
|
|
|
|
+" "" "3358F" :NOSDIAG) "(LAMLIST)" ("117d 75h
|
|
|
|
|
+" "" "33599" :NOSDIAG) "(BINT_117d)" ("117d 75h
|
|
|
|
|
+" "" "33599" :NOSDIAG) "BINT117" ("117d 75h
|
|
|
|
|
+" "" "33599" :NOSDIAG) "BINT118" ("118d 76h
|
|
|
|
|
+" "" "335A3" :NOSDIAG) "BINT119" ("119d 77h
|
|
|
|
|
+" "" "335AD" :NOSDIAG) "BINT120" ("120d 78h
|
|
|
|
|
+" "" "335B7" :NOSDIAG) "BINT121" ("121d 79h
|
|
|
|
|
+" "" "335C1" :NOSDIAG) "BINT_122d" ("122d 7Ah
|
|
|
|
|
+" "" "335CB" :NOSDIAG) "BINT122" ("122d 7Ah
|
|
|
|
|
+" "" "335CB" :NOSDIAG) "BINT123" ("123d 7Bh
|
|
|
|
|
+" "" "335D5" :NOSDIAG) "BINT124" ("124d 7Ch
|
|
|
|
|
+" "" "335DF" :NOSDIAG) "BINT125" ("125d 7Dh
|
|
|
|
|
+" "" "335E9" :NOSDIAG) "BINT126" ("126d 7Eh
|
|
|
|
|
+" "" "335F3" :NOSDIAG) "BINT127" ("127d 7Fh
|
|
|
|
|
+" "" "335FD" :NOSDIAG) "BINT80h" ("128d 80h
|
|
|
|
|
+" "" "33607" :NOSDIAG) "BINT128" ("128d 80h
|
|
|
|
|
+" "" "33607" :NOSDIAG) "BINT129" ("129d 81h
|
|
|
|
|
+" "" "33611" :NOSDIAG) "XHI-1" ("130d 82h
|
|
|
|
|
+" "" "3361B" :NOSDIAG) "BINT_130d" ("130d 82h
|
|
|
|
|
+" "" "3361B" :NOSDIAG) "BINT130d" ("130d 82h
|
|
|
|
|
+" "" "3361B" :NOSDIAG) "BINT130" ("130d 82h
|
|
|
|
|
+" "" "3361B" :NOSDIAG) "XHI" ("131d 83h
|
|
|
|
|
+" "" "33625" :NOSDIAG) "BINT131d" ("131d 83h
|
|
|
|
|
+" "" "33625" :NOSDIAG) "BINT_131d" ("131d 83h
|
|
|
|
|
+" "" "33625" :NOSDIAG) "BINT131" ("131d 83h
|
|
|
|
|
+" "" "33625" :NOSDIAG) "(library)" ("143d 8Fh
|
|
|
|
|
+" "" "3362F" :UBS :NOSDIAG) "#8F" ("143d 8Fh
|
|
|
|
|
+" "" "3362F" :UBS :NOSDIAG) "SYMBREAL" ("145d 91h
|
|
|
|
|
+" "" "33639") "(SYMBCMP)" ("146d 92h
|
|
|
|
|
+" "" "33643" :UBS :NOSDIAG) "SYMBCMP" ("146d 92h
|
|
|
|
|
+" "" "33643" :UBS :NOSDIAG) "(SYMBSYM)" ("154d 9Ah
|
|
|
|
|
+" "" "3364D" :UBS :NOSDIAG) "(SYMCMP)" ("154d 9Ah
|
|
|
|
|
+" "" "3364D" :UBS :NOSDIAG) "SYMBSYM" ("154d 9Ah
|
|
|
|
|
+" "" "3364D" :UBS :NOSDIAG) "SYMBUNIT" ("158d 9Eh
|
|
|
|
|
+" "" "33657") "#9F" ("159d 9Fh
|
|
|
|
|
+" "" "3EAFB" :UBS :NOSDIAG) "backup" ("159d 9Fh
|
|
|
|
|
+" "" "33661" :UBS) "SYMOB" ("160d A0h
|
|
|
|
|
+" "" "3366B") "SYMREAL" ("161d A1h
|
|
|
|
|
+" "" "33675") "SYMCMP" ("162d A2h
|
|
|
|
|
+" "" "3367F" :UBS :NOSDIAG) "SYMARRY" ("164d A4h
|
|
|
|
|
+" "" "39E6B" :UBS :NOSDIAG) "SYMLIST" ("165d A5h
|
|
|
|
|
+" "" "33689" :UBS :NOSDIAG) "SYMID" ("166d A6h
|
|
|
|
|
+" "" "33693") "SYMLAM" ("167d A7h
|
|
|
|
|
+" "" "3369D") "SYMSYMB" ("169d A9h
|
|
|
|
|
+" "" "336A7" :UBS :NOSDIAG) "SYMSYM" ("170d AAh
|
|
|
|
|
+" "" "336B1") "SYMEXT" ("174d AEh
|
|
|
|
|
+" "" "336BB") "#AF" ("175d AFh
|
|
|
|
|
+" "" "3BD4C" :UBS :NOSDIAG) "HXSREAL" ("177d B1h
|
|
|
|
|
+" "" "336C5" :UBS :NOSDIAG) "#BB" ("187d BBh
|
|
|
|
|
+" "" "38275" :UBS :NOSDIAG) "2HXS" ("187d BBh
|
|
|
|
|
+" "" "336CF" :UBS :NOSDIAG) "BINTC0h" ("192d C0h
|
|
|
|
|
+" "" "336D9" :NOSDIAG) "#C8" ("200d C8h
|
|
|
|
|
+" "" "3E7DA" :UBS :NOSDIAG) "2GROB" ("204d CCh
|
|
|
|
|
+" "" "336E3") "#CF" ("207d CFh
|
|
|
|
|
+" "" "3BD65" :UBS) "TAGGEDANY" ("208d D0h
|
|
|
|
|
+" "" "336ED") "EXTREAL" ("225d E1h
|
|
|
|
|
+" "" "336F7") "(UNITSYM)" ("234d EAh
|
|
|
|
|
+" "" "33701") "EXTSYM" ("234d EAh
|
|
|
|
|
+" "" "33701") "2EXT" ("238d EEh
|
|
|
|
|
+" "" "3370B") "ROMPANY" ("240d F0h
|
|
|
|
|
+" "" "33715") "BINT253" ("253d FDh
|
|
|
|
|
+" "" "3371F") "BINT255d" ("255d FFh
|
|
|
|
|
+" "" "33729") "(FSTFLOATROM#)" ("256d 100h
|
|
|
|
|
+" "" "33733") "REALOBOB" ("256d 100h
|
|
|
|
|
+" "" "33733") "(Err#Chr00)" ("258d 102h
|
|
|
|
|
+" "" "3373D") "(#_258_d)" ("258d 102h
|
|
|
|
|
+" "" "3373D") "#_102" ("258d 102h
|
|
|
|
|
+" "" "3373D") "#SyntaxErr" ("262d 106h
|
|
|
|
|
+" "" "33747") "BINT_263d" ("263d 107h
|
|
|
|
|
+" "" "33751" :UBS :NOSDIAG) "REALREALOB" ("272d 110h
|
|
|
|
|
+" "" "3375B" :UBS :NOSDIAG) "3REAL" ("273d 111h
|
|
|
|
|
+" "" "33765") "#111" ("273d 111h
|
|
|
|
|
+" "" "3E17B" :UBS :NOSDIAG) "(#_291_d)" ("291d 123h
|
|
|
|
|
+" "" "3376F" :UBS) "(#_123)" ("291d 123h
|
|
|
|
|
+" "" "3376F" :UBS) "Err#Kill" ("291d 123h
|
|
|
|
|
+" "" "3376F" :UBS) "(#_292_d)" ("292d 124h
|
|
|
|
|
+" "" "33779" :UBS) "(#_124)" ("292d 124h
|
|
|
|
|
+" "" "33779" :UBS) "Err#NoLstStk" ("292d 124h
|
|
|
|
|
+" "" "33779" :UBS) "#12F" ("303d 12Fh
|
|
|
|
|
+" "" "2777E" :UBS :NOSDIAG) "(BINT_305d)" ("305d 131h
|
|
|
|
|
+" "" "33783" :UBS) "#NoRoomForSt" ("305d 131h
|
|
|
|
|
+" "" "33783" :UBS) "#132" ("306d 132h
|
|
|
|
|
+" "" "3378D" :UBS) "REALSTRSTR" ("307d 133h
|
|
|
|
|
+" "" "33797" :UBS) "(VLMpurgemsg)" ("308d 134h
|
|
|
|
|
+" "" "337A1" :UBS :NOSDIAG) "#134" ("308d 134h
|
|
|
|
|
+" "" "337A1" :UBS :NOSDIAG) "(VLMmsg)" ("309d 135h
|
|
|
|
|
+" "" "337AB" :UBS :NOSDIAG) "#135" ("309d 135h
|
|
|
|
|
+" "" "337AB" :UBS :NOSDIAG) "(VLMstkmsg)" ("310d 136h
|
|
|
|
|
+" "" "337B5" :UBS :NOSDIAG) "(REALSTRID)" ("310d 136h
|
|
|
|
|
+" "" "337B5" :UBS :NOSDIAG) "#136" ("310d 136h
|
|
|
|
|
+" "" "337B5" :UBS :NOSDIAG) "(VLMundomsg)" ("311d 137h
|
|
|
|
|
+" "" "337BF" :UBS :NOSDIAG) "#137" ("311d 137h
|
|
|
|
|
+" "" "337BF" :UBS :NOSDIAG) "(VLMhistmsg)" ("312d 138h
|
|
|
|
|
+" "" "337C9" :UBS :NOSDIAG) "#138" ("312d 138h
|
|
|
|
|
+" "" "337C9" :UBS :NOSDIAG) "(VLMUserKeys)" ("313d 139h
|
|
|
|
|
+" "" "337D3" :UBS :NOSDIAG) "#139" ("313d 139h
|
|
|
|
|
+" "" "337D3" :UBS :NOSDIAG) "(VLMAlarmMsg)" ("314d 13Ah
|
|
|
|
|
+" "" "337DD" :UBS :NOSDIAG) "#13A" ("314d 13Ah
|
|
|
|
|
+" "" "337DD" :UBS :NOSDIAG) "(VLMlastargs)" ("315d 13Bh
|
|
|
|
|
+" "" "337E7" :UBS :NOSDIAG) "#13B" ("315d 13Bh
|
|
|
|
|
+" "" "337E7" :UBS :NOSDIAG) "(VLMcmdlmsg)" ("317d 13Dh
|
|
|
|
|
+" "" "337F1" :UBS :NOSDIAG) "#13D" ("317d 13Dh
|
|
|
|
|
+" "" "337F1" :UBS :NOSDIAG) "Err#Cont" ("318d 13Eh
|
|
|
|
|
+" "" "337FB" :UBS :NOSDIAG) "(REALLISTREAL)" ("337d 151h
|
|
|
|
|
+" "" "33805") "INTEGER337" ("337d 151h
|
|
|
|
|
+" "" "33805") "CMPOBOB" ("512d 200h
|
|
|
|
|
+" "" "3380F" :UBS :NOSDIAG) "(#_517_d)" ("517d 205h
|
|
|
|
|
+" "" "33819" :UBS) "(#_205)" ("517d 205h
|
|
|
|
|
+" "" "33819" :UBS) "Err#NoLstArg" ("517d 205h
|
|
|
|
|
+" "" "33819" :UBS) "#304" ("772d 304h
|
|
|
|
|
+" "" "3A1C2" :UBS :NOSDIAG) "STRREALREAL" ("785d 311h
|
|
|
|
|
+" "" "33823" :NOSDIAG) "#313" ("787d 313h
|
|
|
|
|
+" "" "3B9FA" :UBS :NOSDIAG) "ARRYREALOB" ("1040d 410h
|
|
|
|
|
+" "" "3C11E" :UBS :NOSDIAG) "#411" ("1041d 411h
|
|
|
|
|
+" "" "3B928" :UBS :NOSDIAG) "ARRYREALREAL" ("1041d 411h
|
|
|
|
|
+" "" "3382D" :UBS :NOSDIAG) "ARRYREALCMP" ("1042d 412h
|
|
|
|
|
+" "" "33837" :UBS :NOSDIAG) "#414" ("1044d 414h
|
|
|
|
|
+" "" "3BA2D" :UBS :NOSDIAG) "#415" ("1045d 415h
|
|
|
|
|
+" "" "3B93D" :UBS :NOSDIAG) "3ARRY" ("1092d 444h
|
|
|
|
|
+" "" "33841" :UBS :NOSDIAG) "ARRYLISTOB" ("1104d 450h
|
|
|
|
|
+" "" "3C10F" :UBS :NOSDIAG) "#451" ("1105d 451h
|
|
|
|
|
+" "" "3B952" :UBS :NOSDIAG) "ARRYLISTREAL" ("1105d 451h
|
|
|
|
|
+" "" "3384B" :UBS :NOSDIAG) "ARRYLISTCMP" ("1106d 452h
|
|
|
|
|
+" "" "33855" :UBS :NOSDIAG) "#454" ("1108d 454h
|
|
|
|
|
+" "" "3BA18" :UBS :NOSDIAG) "#455" ("1109d 455h
|
|
|
|
|
+" "" "3B913" :UBS :NOSDIAG) "#4FF" ("1279d 4FFh
|
|
|
|
|
+" "" "3A12D" :UBS :NOSDIAG) "LISTREALOB" ("1296d 510h
|
|
|
|
|
+" "" "3385F" :UBS :NOSDIAG) "LISTREALREAL" ("1297d 511h
|
|
|
|
|
+" "" "33869" :UBS :NOSDIAG) "#515" ("1301d 515h
|
|
|
|
|
+" "" "3BA09" :UBS :NOSDIAG) "LISTLISTOB" ("1360d 550h
|
|
|
|
|
+" "" "33873" :UBS :NOSDIAG) "LN_0" ("1541d 605h
|
|
|
|
|
+" "" "277F6" :UBS :NOSDIAG) "LN_Neg" ("1542d 606h
|
|
|
|
|
+" "" "27800" :UBS :NOSDIAG) "InvalidEQ" ("1543d 607h
|
|
|
|
|
+" "" "2780A" :UBS :NOSDIAG) "Cureq#" ("1544d 608h
|
|
|
|
|
+" "" "27814" :UBS :NOSDIAG) "NoCureq#" ("1545d 609h
|
|
|
|
|
+" "" "2781E" :UBS :NOSDIAG) "EnterEq#" ("1546d 60Ah
|
|
|
|
|
+" "" "27828" :UBS :NOSDIAG) "EnterName#" ("1547d 60Bh
|
|
|
|
|
+" "" "27832" :UBS :NOSDIAG) "SelPtype#" ("1548d 60Ch
|
|
|
|
|
+" "" "2783C" :UBS :NOSDIAG) "EmptyCat#" ("1549d 60Dh
|
|
|
|
|
+" "" "27846" :UBS :NOSDIAG) "#60E" ("1550d 60Eh
|
|
|
|
|
+" "" "2768E" :UBS :NOSDIAG) "NoStatPlot#" ("1551d 60Fh
|
|
|
|
|
+" "" "27698" :UBS :NOSDIAG) "IDREALOB" ("1552d 610h
|
|
|
|
|
+" "" "3387D" :UBS :NOSDIAG) "SolvingFor#" ("1553d 611h
|
|
|
|
|
+" "" "276AC" :UBS :NOSDIAG) "NoCurrent#" ("1554d 612h
|
|
|
|
|
+" "" "276B6" :UBS :NOSDIAG) "PressSig+#" ("1555d 613h
|
|
|
|
|
+" "" "276C0" :UBS :NOSDIAG) "SelectModl#" ("1556d 614h
|
|
|
|
|
+" "" "276CA" :UBS :NOSDIAG) "NoAlarms#" ("1557d 615h
|
|
|
|
|
+" "" "276D4" :UBS :NOSDIAG) "PressALRM#" ("1558d 616h
|
|
|
|
|
+" "" "276DE" :UBS :NOSDIAG) "NextALRM#" ("1559d 617h
|
|
|
|
|
+" "" "276E8" :UBS :NOSDIAG) "PastDue#" ("1560d 618h
|
|
|
|
|
+" "" "27792" :UBS :NOSDIAG) "Acknowledge#" ("1561d 619h
|
|
|
|
|
+" "" "2779C" :UBS :NOSDIAG) "KeyInAlrm#" ("1562d 61Ah
|
|
|
|
|
+" "" "277A6" :UBS :NOSDIAG) "SelectRpt#" ("1563d 61Bh
|
|
|
|
|
+" "" "277B0" :UBS :NOSDIAG) "IOSetupMenu#" ("1564d 61Ch
|
|
|
|
|
+" "" "277BA" :UBS :NOSDIAG) "PlotType#" ("1565d 61Dh
|
|
|
|
|
+" "" "277C4" :UBS :NOSDIAG) "NoExecAct#" ("1566d 61Eh
|
|
|
|
|
+" "" "277CE" :UBS :NOSDIAG) "OffScreen#" ("1567d 61Fh
|
|
|
|
|
+" "" "277D8" :UBS :NOSDIAG) "OnlyPtypes#" ("1568d 620h
|
|
|
|
|
+" "" "277E2" :UBS :NOSDIAG) "StatName#" ("1569d 621h
|
|
|
|
|
+" "" "277EC" :UBS :NOSDIAG) "ZoomPrompt#" ("1570d 622h
|
|
|
|
|
+" "" "276F2" :UBS :NOSDIAG) "CatToStack#" ("1571d 623h
|
|
|
|
|
+" "" "276FC" :UBS :NOSDIAG) "XAutoZoom#" ("1572d 624h
|
|
|
|
|
+" "" "27706" :UBS :NOSDIAG) "IR/wire#" ("1576d 628h
|
|
|
|
|
+" "" "27710" :UBS :NOSDIAG) "ASCII/bin#" ("1577d 629h
|
|
|
|
|
+" "" "2771A" :UBS :NOSDIAG) "#62A" ("1578d 62Ah
|
|
|
|
|
+" "" "27724" :UBS :NOSDIAG) "#62B" ("1579d 62Bh
|
|
|
|
|
+" "" "2772E" :UBS :NOSDIAG) "#62C" ("1580d 62Ch
|
|
|
|
|
+" "" "27738" :UBS :NOSDIAG) "#62D" ("1581d 62Dh
|
|
|
|
|
+" "" "27742" :UBS :NOSDIAG) "EnterMatrix#" ("1582d 62Eh
|
|
|
|
|
+" "" "27788" :UBS :NOSDIAG) "IDLISTOB" ("1616d 650h
|
|
|
|
|
+" "" "33887" :UBS :NOSDIAG) "(LAMANYANY)" ("1792d 700h
|
|
|
|
|
+" "" "33891" :UBS :NOSDIAG) "FSTMACROROM#" ("1792d 700h
|
|
|
|
|
+" "" "33891" :UBS :NOSDIAG) "#710" ("1808d 710h
|
|
|
|
|
+" "" "3C17A" :UBS :NOSDIAG) "#750" ("1872d 750h
|
|
|
|
|
+" "" "3C16B" :UBS :NOSDIAG) "#7FF" ("2047d 7FFh
|
|
|
|
|
+" "" "08DF7" :UBS :NOSDIAG) "BINT800h" ("2048d 800h
|
|
|
|
|
+" "" "27878" :UBS :NOSDIAG) "#822" ("2082d 822h
|
|
|
|
|
+" "" "3B976" :UBS :NOSDIAG) "#82C" ("2092d 82Ch
|
|
|
|
|
+" "" "3C83C" :UBS :NOSDIAG) "#855" ("2133d 855h
|
|
|
|
|
+" "" "3B967" :UBS :NOSDIAG) "#85C" ("2140d 85Ch
|
|
|
|
|
+" "" "3C81E" :UBS :NOSDIAG) "PROGIDREAL" ("2145d 861h
|
|
|
|
|
+" "" "3389B" :UBS :NOSDIAG) "PROGIDCMP" ("2146d 862h
|
|
|
|
|
+" "" "338A5" :UBS :NOSDIAG) "PROGIDLIST" ("2149d 865h
|
|
|
|
|
+" "" "338AF" :UBS :NOSDIAG) "PROGIDEXT" ("2158d 86Eh
|
|
|
|
|
+" "" "338B9" :UBS :NOSDIAG) "#8F1" ("2289d 8F1h
|
|
|
|
|
+" "" "3E7FF" :UBS :NOSDIAG) "#8FD" ("2301d 8FDh
|
|
|
|
|
+" "" "3E759" :UBS :NOSDIAG) "#9F1" ("2545d 9F1h
|
|
|
|
|
+" "" "3E7E9" :UBS :NOSDIAG) "#9FD" ("2557d 9FDh
|
|
|
|
|
+" "" "3E743" :UBS :NOSDIAG) "Lackint#" ("2561d A01h
|
|
|
|
|
+" "" "2774C" :UBS :NOSDIAG) "Constant#" ("2562d A02h
|
|
|
|
|
+" "" "27756" :UBS :NOSDIAG) "Attn#" ("2563d A03h
|
|
|
|
|
+" "" "27882") "ATTNERR" ("2563d A03h
|
|
|
|
|
+" "" "338C3") "Zero#" ("2564d A04h
|
|
|
|
|
+" "" "27760" :UBS :NOSDIAG) "RevSgn#" ("2565d A05h
|
|
|
|
|
+" "" "2776A" :UBS :NOSDIAG) "Extremum#" ("2566d A06h
|
|
|
|
|
+" "" "27774" :UBS :NOSDIAG) "SYMREALREAL" ("2577d A11h
|
|
|
|
|
+" "" "338CD" :UBS :NOSDIAG) "SYMREALCMP" ("2578d A12h
|
|
|
|
|
+" "" "338D7" :UBS :NOSDIAG) "SYMREALSYM" ("2586d A1Ah
|
|
|
|
|
+" "" "338E1" :UBS :NOSDIAG) "SYMCMPREAL" ("2593d A21h
|
|
|
|
|
+" "" "338EB" :UBS :NOSDIAG) "SYMCMPCMP" ("2594d A22h
|
|
|
|
|
+" "" "338F5" :UBS :NOSDIAG) "SYMCMPSYM" ("2602d A2Ah
|
|
|
|
|
+" "" "338FF" :UBS :NOSDIAG) "SYMIDREAL" ("2657d A61h
|
|
|
|
|
+" "" "33909" :UBS :NOSDIAG) "SYMIDCMP" ("2658d A62h
|
|
|
|
|
+" "" "33913" :UBS :NOSDIAG) "SYMIDLIST" ("2661d A65h
|
|
|
|
|
+" "" "3391D" :UBS :NOSDIAG) "SYMIDEXT" ("2670d A6Eh
|
|
|
|
|
+" "" "33927" :UBS :NOSDIAG) "SYMSYMREAL" ("2721d AA1h
|
|
|
|
|
+" "" "33931" :UBS :NOSDIAG) "SYMSYMCMP" ("2722d AA2h
|
|
|
|
|
+" "" "3393B" :UBS :NOSDIAG) "3SYM" ("2730d AAAh
|
|
|
|
|
+" "" "33945" :UBS :NOSDIAG) "XFERFAIL" ("3078d C06h
|
|
|
|
|
+" "" "3394F" :UBS :NOSDIAG) "PROTERR" ("3079d C07h
|
|
|
|
|
+" "" "33959" :UBS :NOSDIAG) "InvalServCmd" ("3080d C08h
|
|
|
|
|
+" "" "33963" :UBS :NOSDIAG) "Connecting" ("3082d C0Ah
|
|
|
|
|
+" "" "3396D") "Retry" ("3083d C0Bh
|
|
|
|
|
+" "" "33977" :UBS :NOSDIAG) "#C2C" ("3116d C2Ch
|
|
|
|
|
+" "" "3C800" :UBS :NOSDIAG) "#C5C" ("3164d C5Ch
|
|
|
|
|
+" "" "3C7E2" :UBS :NOSDIAG) "#C22" ("3106d C22h
|
|
|
|
|
+" "" "3B904" :UBS :NOSDIAG) "#C55" ("3157d C55h
|
|
|
|
|
+" "" "3B8F5" :UBS :NOSDIAG) "#CAlarmErr" ("3583d DFFh
|
|
|
|
|
+" "" "33981" :NOSDIAG) "EXTOBOB" ("3584d E00h
|
|
|
|
|
+" "" "3398B") "#2111" ("8465d 2111h
|
|
|
|
|
+" "" "3C8D0" :UBS :NOSDIAG) "TYPEINT" ("9748d 2614h
|
|
|
|
|
+" "" "03FEF" :UBS :NOSDIAG) "TYPEMATRIX" ("9862d 2686h
|
|
|
|
|
+" "" "03FF9" :UBS :NOSDIAG) "TYPEREAL" ("10547d 2933h
|
|
|
|
|
+" "" "03F8B") "TYPEEREL" ("10581d 2955h
|
|
|
|
|
+" "" "03FDB" :UBS) "TYPEIDNT" ("10568d 2948h
|
|
|
|
|
+" "" "03FA9") "TYPECMP" ("10615d 2977h
|
|
|
|
|
+" "" "03F95" :UBS) "TYPELIST" ("10868d 2A74h
|
|
|
|
|
+" "" "03F9F" :UBS) "TYPERRP" ("10902d 2A96h
|
|
|
|
|
+" "" "03FC7" :UBS) "TYPESYMB" ("10936d 2AB8h
|
|
|
|
|
+" "" "03FBD" :UBS) "TYPEEXT" ("10970d 2ADAh
|
|
|
|
|
+" "" "03FE5" :UBS) "TYPECOL" ("11677d 2D9Dh
|
|
|
|
|
+" "" "03FB3" :UBS) "TYPEIDNT" ("11848d 2E48h
|
|
|
|
|
+" "" "03FA9" :UBS :NOSDIAG) "TYPELAM" ("11885d 2E6Dh
|
|
|
|
|
+" "" "03FD1" :UBS) "#5B11" ("23313d 5B11h
|
|
|
|
|
+" "" "3C8DF" :UBS :NOSDIAG) "SYMRRANY" ("41232d A110h
|
|
|
|
|
+" "" "3D50D" :UBS :NOSDIAG) "SYMRSYMANY" ("41376d A1A0h
|
|
|
|
|
+" "" "3D52B" :UBS :NOSDIAG) "SYMSYMRANY" ("43536d AA10h
|
|
|
|
|
+" "" "3D51C" :UBS :NOSDIAG) "SYMSYMSYMANY" ("43680d AAA0h
|
|
|
|
|
+" "" "2C4D2" :UBS :NOSDIAG) "#BBBB" ("48059d BBBBh
|
|
|
|
|
+" "" "3B7AD" :UBS :NOSDIAG) "#D6A8" ("54952d D6A8h
|
|
|
|
|
+" "" "08F1F" :UBS :NOSDIAG) "#FFFF" ("65535d FFFFh
|
|
|
|
|
+" "" "38266" :UBS :NOSDIAG) "#102A8" ("66216d 102A8h
|
|
|
|
|
+" "" "03880" :UBS :NOSDIAG) "#2D541" ("185665d 2D541h
|
|
|
|
|
+" "" "091B4" :UBS :NOSDIAG) "#37258" ("225880d 37258h
|
|
|
|
|
+" "" "350F5" :UBS :NOSDIAG) "#414C1" ("267457d 414C1h
|
|
|
|
|
+" "" "0803F" :UBS :NOSDIAG) "#536A8" ("341672d 536A8h
|
|
|
|
|
+" "" "08ECE" :UBS :NOSDIAG) "#61441" ("398401d 61441h
|
|
|
|
|
+" "" "0657E" :UBS :NOSDIAG) "#EXITERR" ("458752d 70000h
|
|
|
|
|
+" "" "33995") "#A8241" ("688705d A8241h
|
|
|
|
|
+" "" "03826" :UBS :NOSDIAG) "#B437D" ("738173d B437Dh
|
|
|
|
|
+" "" "39277" :UBS :NOSDIAG) "#E13A8" ("922536d E13A8h
|
|
|
|
|
+" "" "038DC" :UBS :NOSDIAG) "MINUSONE" ("1048575d FFFFFh
|
|
|
|
|
+" "" "3399F") "ZEROZERO" ("\\-> #0 #0
|
|
|
|
|
+" "" "37287") "#ZERO#ONE" ("\\-> #0 #1
|
|
|
|
|
+" "" "37294") "#ZERO#SEVEN" ("\\-> #0 #7
|
|
|
|
|
+" "" "37305") "ONEDUP" ("\\-> #1 #1
|
|
|
|
|
+" "" "36B12") "ONEONE" ("\\-> #1 #1
|
|
|
|
|
+" "" "36B12") "#ONE#27" ("\\-> #1 #27d
|
|
|
|
|
+" "" "37315") "#TWO#ONE" ("\\-> #2 #1
|
|
|
|
|
+" "" "37328") "#TWO#TWO" ("\\-> #2 #2
|
|
|
|
|
+" "" "3733A") "#TWO#FOUR" ("\\-> #2 #4
|
|
|
|
|
+" "" "3734A") "#THREE#FOUR" ("\\-> #3 #4
|
|
|
|
|
+" "" "3735C") "#FIVE#FOUR" ("\\-> #5 #4
|
|
|
|
|
+" "" "3736E") "ZEROZEROZERO" ("\\-> #0 #0 #0
|
|
|
|
|
+" "" "37380") "ZEROZEROONE" ("\\-> #0 #0 #1
|
|
|
|
|
+" "" "37394") "ZEROZEROTWO" ("\\-> #0 #0 #2
|
|
|
|
|
+" "" "373A8") "DROPZERO" ("ob \\-> #0
|
|
|
|
|
+" "" "3558C") "3DROPZERO" ("ob ob ob \\-> #0
|
|
|
|
|
+" "" "37711" :UBS) "2DROP00" ("ob ob \\-> #0 #0
|
|
|
|
|
+" "" "355A5") "DROPONE" ("ob \\-> #1
|
|
|
|
|
+" "" "3596D") "DUPZERO" ("ob \\-> ob ob #0
|
|
|
|
|
+" "" "36AD6") "DUPONE" ("ob \\-> ob ob #1
|
|
|
|
|
+" "" "36AEA") "DUPTWO" ("ob \\-> ob ob #2
|
|
|
|
|
+" "" "36B26") "SWAPONE" ("ob ob' \\-> ob' ob #1
|
|
|
|
|
+" "" "36AFE") "ZEROSWAP" ("ob \\-> #0 ob
|
|
|
|
|
+" "" "35E75") "ZEROOVER" ("ob \\-> ob #0 ob
|
|
|
|
|
+" "" "360BB") "ZEROFALSE" ("\\-> #0 F
|
|
|
|
|
+" "" "36568") "ONESWAP" ("ob \\-> #1 ob
|
|
|
|
|
+" "" "35EA2") "ONEFALSE" ("\\-> #1 F
|
|
|
|
|
+" "" "3657C") "COERCE" ("% \\-> #
|
|
|
|
|
+" "" "262F1") "COERCEDUP" ("% \\-> # #
|
|
|
|
|
+" "" "35D08") "COERCESWAP" ("ob % \\-> # ob
|
|
|
|
|
+" "" "35EB6") "COERCE2" ("% %' \\-> # #'
|
|
|
|
|
+" "" "3F481") "%ABSCOERCE" ("% \\-> #
|
|
|
|
|
+" "" "262EC") "Flag%isUser?" ("% \\-> # flag
|
|
|
|
|
+" "TRUE if real is greater 0, else FALSE.
|
|
|
|
|
+" "2F244" :UBS) "C%>#" ("C% \\-> # #'
|
|
|
|
|
+" "" "2F31F") "HXS>#" ("hxs \\-> #
|
|
|
|
|
+" "" "05A03") "2HXSLIST?" ("{ hxs hxs' } \\-> # #'
|
|
|
|
|
+" "Converts list of two hxs to two
|
|
|
|
|
+bints. Generates \"Bad Argument Value\" for
|
|
|
|
|
+invalid input.
|
|
|
|
|
+" "2F17E") "CHR>#" ("chr \\-> #
|
|
|
|
|
+" "" "05A51") "^Z2BIN" ("Z \\-> #
|
|
|
|
|
+" "Convert Z to bint.
|
|
|
|
|
+Returns FFFFF for overflows.
|
|
|
|
|
+Returns 0 for negative numbers.
|
|
|
|
|
+" "0EF006" :wasCSys) "^Z>#" ("z \\-> #
|
|
|
|
|
+" "Coerces Z to #, overflow error if Z<0 or
|
|
|
|
|
+Z>9999. 10000 is used to insure that the #*6
|
|
|
|
|
+can be represented in BCD on a 5 nibbles
|
|
|
|
|
+field.
|
|
|
|
|
+" "19D006" :wasCSys) "^COERCE2Z" ("z2 z1 \\-> #2 #1
|
|
|
|
|
+" "Converts 2 zints to bints.
|
|
|
|
|
+" "0F0006" :wasCSys) "#+" ("# #' \\-> #+#'
|
|
|
|
|
+" "" "03DBC") "#1+" ("# \\-> #+1
|
|
|
|
|
+" "" "03DEF") "#2+" ("# \\-> #+2
|
|
|
|
|
+" "" "03E2D") "#3+" ("# \\-> #+3
|
|
|
|
|
+" "" "355FD") "#4+" ("# \\-> #+4
|
|
|
|
|
+" "" "35602") "#5+" ("# \\-> #+5
|
|
|
|
|
+" "" "35607") "#6+" ("# \\-> #+6
|
|
|
|
|
+" "" "3560C") "#7+" ("# \\-> #+7
|
|
|
|
|
+" "" "35611") "#8+" ("# \\-> #+8
|
|
|
|
|
+" "" "35616") "#9+" ("# \\-> #+9
|
|
|
|
|
+" "" "3561B") "#10+" ("# \\-> #+10
|
|
|
|
|
+" "" "35620") "#11+" ("# \\-> #+11
|
|
|
|
|
+" "" "35625" :UBS) "#12+" ("# \\-> #+12
|
|
|
|
|
+" "" "3562A") "#-" ("# #' \\-> #-#'
|
|
|
|
|
+" "" "03DE0") "DIFF_OR_ZERO" ("# #' \\-> #''
|
|
|
|
|
+" "If #' is greater than #, returns #0,
|
|
|
|
|
+otherwise returns #-#'.
|
|
|
|
|
+" "2F13D" :UBS) "#1-" ("# \\-> #-1
|
|
|
|
|
+" "" "03E0E") "#2-" ("# \\-> #-2
|
|
|
|
|
+" "" "03E4E") "#3-" ("# \\-> #-3
|
|
|
|
|
+" "" "355DF") "#4-" ("# \\-> #-4
|
|
|
|
|
+" "" "355DA") "#5-" ("# \\-> #-5
|
|
|
|
|
+" "" "355D5") "#6-" ("# \\-> #-6
|
|
|
|
|
+" "" "355D0") "#7-" ("# \\-> #-7
|
|
|
|
|
+" "" "355CB" :UBS) "#8-" ("# \\-> #-8
|
|
|
|
|
+" "" "355C6" :UBS) "#9-" ("# \\-> #-9
|
|
|
|
|
+" "" "355C1" :UBS) "#*" ("# #' \\-> #*#'
|
|
|
|
|
+" "" "03EC2") "#*OVF" ("# #' \\-> #*#'
|
|
|
|
|
+" "0 \\<= result \\<= FFFFF
|
|
|
|
|
+" "2632D") "#2*" ("# \\-> #*2
|
|
|
|
|
+" "" "03E6F") "#3*" ("# \\-> #*2
|
|
|
|
|
+" "" "270DA") "#5*" ("# \\-> #*2
|
|
|
|
|
+" "" "270BF") "#6*" ("# \\-> #*6
|
|
|
|
|
+" "" "356B8") "#8*" ("# \\-> #*8
|
|
|
|
|
+" "" "3569B") "#10*" ("# \\-> #*10
|
|
|
|
|
+" "" "35675") "#/" ("# #' \\-> #r #q
|
|
|
|
|
+" "" "03EF7") "#2/" ("# \\-> #/2
|
|
|
|
|
+" "Rounded down.
|
|
|
|
|
+" "03E8E") "#-+1" ("# #' \\-> #-#'+1
|
|
|
|
|
+" "" "36815") "#1--" ("# #' \\-> #-#'+1
|
|
|
|
|
+" "" "36815") "$1-+" ("# #' \\-> #+#'-1
|
|
|
|
|
+" "$1-+ is a typo in EXTABLE.
|
|
|
|
|
+" "36851") "#+-1" ("# #' \\-> #+#'-1
|
|
|
|
|
+" "$1-+ is a typo in EXTABLE.
|
|
|
|
|
+" "36851") "#1-+" ("# #' \\-> #+#'-1
|
|
|
|
|
+" "$1-+ is a typo in EXTABLE.
|
|
|
|
|
+" "36851") "#-#2/" ("# #' \\-> (#-#')/2
|
|
|
|
|
+" "" "35552") "#+DUP" ("# #' \\-> #+#' #+#'
|
|
|
|
|
+" "" "357FC") "#+SWAP" ("ob # #' \\-> #+#' ob
|
|
|
|
|
+" "" "35E39") "#+OVER" ("ob # #' \\-> ob #+#' ob
|
|
|
|
|
+" "" "36093") "#-DUP" ("# #' \\-> #-#' #-#'
|
|
|
|
|
+" "" "3581F") "#-SWAP" ("ob # #' \\-> #-#' ob
|
|
|
|
|
+" "" "35E4D") "#-OVER" ("ob # #' \\-> ob #-#' ob
|
|
|
|
|
+" "" "360A7") "#1+DUP" ("# \\-> #+1 #+1
|
|
|
|
|
+" "" "35830") "#1+SWAP" ("ob # \\-> #+1 ob
|
|
|
|
|
+" "" "35E61") "#1+ROT" ("ob ob' # \\-> ob' #+1 ob
|
|
|
|
|
+" "" "2F222") "#1-DUP" ("# \\-> #-1 #-1
|
|
|
|
|
+" "" "35841") "pull" ("ob # \\-> #-1 ob
|
|
|
|
|
+" "" "28071") "#1-SWAP" ("ob # \\-> #-1 ob
|
|
|
|
|
+" "" "28071") "#1-ROT" ("ob ob' # \\-> ob' #-1 ob
|
|
|
|
|
+" "" "3601B") "#1-UNROT" ("ob ob' # \\-> #-1 ob ob'
|
|
|
|
|
+" "" "281D5") "#1-1SWAP" ("# \\-> 1 #-1
|
|
|
|
|
+" "Returns the bint ONE and the result.
|
|
|
|
|
+" "35E89") "DUP#1+" ("# \\-> # #+1
|
|
|
|
|
+" "" "35912") "DUP#2+" ("# \\-> # #+2
|
|
|
|
|
+" "" "3571E") "DUP#1-" ("# \\-> # #-1
|
|
|
|
|
+" "" "35956") "DUP3PICK#+" ("# #' \\-> # #' #+#'
|
|
|
|
|
+" "" "3674D") "2DUP#+" ("# #' \\-> # #' #+#'
|
|
|
|
|
+" "" "3674D") "DROP#1-" ("# ob \\-> #-1
|
|
|
|
|
+" "" "3683D") "SWAP#-" ("# #' \\-> #'-#
|
|
|
|
|
+" "" "357BB") "SWP1+" ("# ob \\-> ob #+1
|
|
|
|
|
+" "" "3592B") "SWAP#1+" ("# ob \\-> ob #+1
|
|
|
|
|
+" "" "3592B") "'RSWP1+" ("# \\-> nob #+1
|
|
|
|
|
+" "nob is the next object in the runstream.
|
|
|
|
|
+" "29786" :UBS) "SWAP#1+SWAP" ("# ob \\-> #+1 ob
|
|
|
|
|
+" "" "28099") "SWAP#1-" ("# ob \\-> ob #-1
|
|
|
|
|
+" "" "36829") "SWAP#1-SWAP" ("# ob \\-> #-1 ob
|
|
|
|
|
+" "" "280AD") "SWAPDROP#1-" ("ob # \\-> #-1
|
|
|
|
|
+" "" "28989" :UBS) "SWAPOVER#-" ("# #' \\-> #' #-#'
|
|
|
|
|
+" "" "367ED") "OVER#+" ("# #' \\-> # #'+#
|
|
|
|
|
+" "" "36775") "OVER#-" ("# #' \\-> # #'-#
|
|
|
|
|
+" "" "367C5") "OVER#1-" ("# #' \\-> # #' #''
|
|
|
|
|
+" "" "28286" :UBS) "ROT#+" ("# ob #' \\-> ob #'+#
|
|
|
|
|
+" "" "36761") "ROT#-" ("# ob #' \\-> ob #'-#
|
|
|
|
|
+" "" "367B1") "ROT#1+" ("# ob ob' \\-> ob ob' #+1
|
|
|
|
|
+" "" "36801") "ROT#1+UNROT" ("# ob ob' \\-> #+1 ob ob'
|
|
|
|
|
+" "" "28001") "ROT+SWAP" ("# ob #' \\-> #'+# ob
|
|
|
|
|
+" "" "35E07") "ROT#+SWAP" ("# ob #' \\-> #'+# ob
|
|
|
|
|
+" "" "35E07") "3PICK#+" ("# ob #' \\-> # ob #'+#
|
|
|
|
|
+" "" "36789") "3PICK#1+" ("# ob ob' \\-> # ob ob' #'
|
|
|
|
|
+" "" "28804" :UBS) "3PICK#2+" ("# ob ob' \\-> # ob ob' #'
|
|
|
|
|
+" "" "287E6" :UBS) "4PICK#+" ("# ob1 ob2 #' \\-> # ob1 ob2 #'+#
|
|
|
|
|
+" "" "3679D") "4PICK+SWAP" ("# ob1 ob2 #' \\-> # ob1 #'+# ob2
|
|
|
|
|
+" "" "35E20") "4PICK#+SWAP" ("# ob1 ob2 #' \\-> # ob1 #'+# ob2
|
|
|
|
|
+" "" "35E20") "#MIN" ("# #' \\-> #''
|
|
|
|
|
+" "" "35511") "#MAX" ("# #' \\-> #''
|
|
|
|
|
+" "" "3551D") "#AND" ("# #' \\-> #''
|
|
|
|
|
+" "Bitwise QANDQ.
|
|
|
|
|
+" "03EB1") "#=" ("# #' \\-> flag
|
|
|
|
|
+" "" "03D19") "#<>" ("# #' \\-> flag
|
|
|
|
|
+" "" "03D4E") "#<" ("# #' \\-> flag
|
|
|
|
|
+" "" "03CE4") "#<=" ("# #' \\-> flag
|
|
|
|
|
+" "" "37466" :UBS) "#>" ("# #' \\-> flag
|
|
|
|
|
+" "" "03D83") "#>=" ("# #' \\-> flag
|
|
|
|
|
+" "" "3747D" :UBS) "#0<>" ("# \\-> flag
|
|
|
|
|
+" "" "03CC7") "#0=" ("# \\-> flag
|
|
|
|
|
+" "" "03CA6") "#1<>" ("# \\-> flag
|
|
|
|
|
+" "" "3530D") "#1=" ("# \\-> flag
|
|
|
|
|
+" "" "352FE") "#2<>" ("# \\-> flag
|
|
|
|
|
+" "" "36711") "#2=" ("# \\-> flag
|
|
|
|
|
+" "" "352F1") "#3=" ("# \\-> flag
|
|
|
|
|
+" "" "352E0") "#5=" ("# \\-> flag
|
|
|
|
|
+" "" "366FD") "#<3" ("# \\-> flag
|
|
|
|
|
+" "" "366BC") "ONE#>" ("# \\-> flag
|
|
|
|
|
+" "" "36739") "#>1" ("# \\-> flag
|
|
|
|
|
+" "" "36739") "2DUP#<" ("# #' \\-> # #' flag
|
|
|
|
|
+" "" "358C2") "2DUP#>" ("# #' \\-> # #' flag
|
|
|
|
|
+" "" "358F8") "ONE_EQ" ("# \\-> flag
|
|
|
|
|
+" "Uses EQ test.
|
|
|
|
|
+" "363CE") "OVER#=" ("# #' \\-> # flag
|
|
|
|
|
+" "" "35268") "2DUP#=" ("# #' \\-> # #' flag
|
|
|
|
|
+" "" "358DC") "OVER#0=" ("# #' \\-> # #' flag
|
|
|
|
|
+" "" "36694") "DUP#0=" ("# \\-> # flag
|
|
|
|
|
+" "" "352BD") "OVER#<" ("# #' \\-> # flag
|
|
|
|
|
+" "" "366A8") "DUP#1=" ("# \\-> # flag
|
|
|
|
|
+" "" "3531C") "OVER#>" ("# #' \\-> # flag
|
|
|
|
|
+" "" "36725") "DUP#0<>" ("# \\-> # flag
|
|
|
|
|
+" "" "3532B") "DUP#<7" ("# \\-> # flag
|
|
|
|
|
+" "Returns TRUE if the argument is smaller than
|
|
|
|
|
+#7.
|
|
|
|
|
+" "366D0") "2#0=OR" ("# # \\-> flag
|
|
|
|
|
+" "Returns TRUE if either argument is zero.
|
|
|
|
|
+" "36676") "%-MAXREAL" ("-9.99E499
|
|
|
|
|
+" "" "2FB0A") "%-260" ("-260
|
|
|
|
|
+" "" "30B24" :UBS) "%-9" ("-9
|
|
|
|
|
+" "" "2FAB1") "%-8" ("-8
|
|
|
|
|
+" "" "2FA9C") "%-7" ("-7
|
|
|
|
|
+" "" "2FA87") "%-6" ("-6
|
|
|
|
|
+" "" "2FA72") "%-5" ("-5
|
|
|
|
|
+" "" "2FA5D") "%-4" ("-4
|
|
|
|
|
+" "" "2FA48") "%-3" ("-3
|
|
|
|
|
+" "" "2FA33") "%-2" ("-2
|
|
|
|
|
+" "" "2FA1E") "%-1" ("-1
|
|
|
|
|
+" "" "2FA09") "%-MINREAL" ("-1E-499
|
|
|
|
|
+" "" "2FB34") "%0" ("0
|
|
|
|
|
+" "" "2F937") "%MINREAL" ("1E-499
|
|
|
|
|
+" "" "2FB1F") "%.05" (".05
|
|
|
|
|
+" "" "2FF71" :UBS) "%.1" (".1
|
|
|
|
|
+" "" "27118") "%.15" (".15
|
|
|
|
|
+" "" "2712D" :UBS) "%.2776" (".2776
|
|
|
|
|
+" "" "2FF47" :UBS) "%.2887" (".2887
|
|
|
|
|
+" "" "2FF1D" :UBS) "%.2943" (".2943
|
|
|
|
|
+" "" "2FF5C" :UBS) "%.461368" (".461368
|
|
|
|
|
+" "" "2FEF3" :UBS) "%.522851" (".522851
|
|
|
|
|
+" "" "2FF32" :UBS) "%.5" (".5
|
|
|
|
|
+" "" "339BE") "%-.5" ("-.5
|
|
|
|
|
+" "" "339D3" :UBS) "%.99" (".99
|
|
|
|
|
+" "" "2FF86" :UBS) "%1" ("1
|
|
|
|
|
+" "" "2F94C") "%1.8" ("1.8
|
|
|
|
|
+" "" "270EE" :UBS) "%2" ("2
|
|
|
|
|
+" "" "2F961") "%e" ("e
|
|
|
|
|
+" "" "339A9") "%3" ("3
|
|
|
|
|
+" "" "2F976") "%PI" ("\\pi
|
|
|
|
|
+" "" "2FAC6") "%4" ("4
|
|
|
|
|
+" "" "2F98B") "%5" ("5
|
|
|
|
|
+" "" "2F9A0") "%6" ("6
|
|
|
|
|
+" "" "2F9B5") "%7" ("7
|
|
|
|
|
+" "" "2F9CA") "%8" ("8
|
|
|
|
|
+" "" "2F9DF") "%9" ("9
|
|
|
|
|
+" "" "2F9F4") "%10" ("10
|
|
|
|
|
+" "" "339E8") "%11" ("11
|
|
|
|
|
+" "" "2FCE6") "%12" ("12
|
|
|
|
|
+" "" "2FCFB") "%13" ("13
|
|
|
|
|
+" "" "2FD10") "%14" ("14
|
|
|
|
|
+" "" "2FD25") "%15" ("15
|
|
|
|
|
+" "" "2FD3A") "%16" ("16
|
|
|
|
|
+" "" "2FD4F") "%17" ("17
|
|
|
|
|
+" "" "2FD64") "%18" ("18
|
|
|
|
|
+" "" "2FD79") "%19" ("19
|
|
|
|
|
+" "" "2FD8E") "%20" ("20
|
|
|
|
|
+" "" "2FDA3") "%21" ("21
|
|
|
|
|
+" "" "2FDB8") "%22" ("22
|
|
|
|
|
+" "" "2FDCD") "%23" ("23
|
|
|
|
|
+" "" "2FDE2") "%24" ("24
|
|
|
|
|
+" "" "2FDF7") "%25" ("25
|
|
|
|
|
+" "" "2FE0C") "%26" ("26
|
|
|
|
|
+" "" "2FE21") "%27" ("27
|
|
|
|
|
+" "" "2FE36") "%28" ("28
|
|
|
|
|
+" "" "2FE4B" :UBS) "%29" ("29
|
|
|
|
|
+" "" "2FE60" :UBS) "%30" ("30
|
|
|
|
|
+" "" "2FE75" :UBS) "%31" ("31
|
|
|
|
|
+" "" "2FE8A" :UBS) "%32" ("32
|
|
|
|
|
+" "" "2FE9F" :UBS) "%33" ("33
|
|
|
|
|
+" "" "2FEB4" :UBS) "%34" ("34
|
|
|
|
|
+" "" "2FEC9" :UBS) "%35" ("35
|
|
|
|
|
+" "" "2FEDE" :UBS) "%50" ("50
|
|
|
|
|
+" "" "2FF08" :UBS) "%80" ("80
|
|
|
|
|
+" "" "27103") "%100" ("100
|
|
|
|
|
+" "" "27E5D") "%180" ("180
|
|
|
|
|
+" "" "339FD") "%200" ("200
|
|
|
|
|
+" "" "33A12" :UBS) "%400" ("400
|
|
|
|
|
+" "" "33A3C" :UBS) "%360" ("360
|
|
|
|
|
+" "" "33A27") "%1200" ("1200
|
|
|
|
|
+" "" "2FC7D" :UBS) "%2400" ("2400
|
|
|
|
|
+" "" "2FC92" :UBS) "%4800" ("4800
|
|
|
|
|
+" "" "2FCA7" :UBS) "~%TICKSsec" ("8192
|
|
|
|
|
+" "" "0CF0B5" :UBS) "%9600" ("9600
|
|
|
|
|
+" "" "2FCBC" :UBS) "%14400" ("14400
|
|
|
|
|
+" "" "26DF7" :UBS :1\.22) "%15360" ("15360
|
|
|
|
|
+" "" "2FCD1" :UBS) "%15396" ("15396
|
|
|
|
|
+" "" "2FCD1" :UBS) "%38400" ("38400
|
|
|
|
|
+" "" "26E21" :UBS :1\.22) "%57600" ("57600
|
|
|
|
|
+" "" "26E36" :UBS :1\.22) "%115200" ("115200
|
|
|
|
|
+" "" "26E4B" :UBS :1\.22) "~%TICKSmin" ("491520
|
|
|
|
|
+" "" "0CD0B5" :UBS) "~%HrTicks" ("29491200
|
|
|
|
|
+" "" "0CB0B5" :UBS) "~%TICKSweek" ("4954521600
|
|
|
|
|
+" "" "0C70B5" :UBS) "%MAXREAL" ("9.99E499
|
|
|
|
|
+" "" "2FAF5") "1REV" ("\\-> 6.28318530718
|
|
|
|
|
+\\-> 360.
|
|
|
|
|
+\\-> 400.
|
|
|
|
|
+" "Returns the angle of a full circle,
|
|
|
|
|
+corresponding to the current angular mode.
|
|
|
|
|
+" "2F180") "%%0" ("0
|
|
|
|
|
+" "" "2FB49") "%%.1" ("0.1
|
|
|
|
|
+" "" "2FBE5") "%%.4" ("0.4
|
|
|
|
|
+" "" "30DC8") "%%.5" ("0.5
|
|
|
|
|
+" "" "2FBFF") "cfF" ("0.555...
|
|
|
|
|
+" "%%5/9 for C\\<>F conversion.
|
|
|
|
|
+" "2DA11") "%%1" ("1
|
|
|
|
|
+" "" "2FB63") "cfC" ("1
|
|
|
|
|
+" "For C\\<>K conversion.
|
|
|
|
|
+" "2DA2B") "%%2" ("2
|
|
|
|
|
+" "" "2FB7D") "%%3" ("3
|
|
|
|
|
+" "" "2FB97") "%%PI" ("\\pi
|
|
|
|
|
+" "" "2FADB") "PI/180" ("\\pi/180
|
|
|
|
|
+" "" "30017") "%%4" ("4
|
|
|
|
|
+" "" "2FBB1") "%%5" ("5
|
|
|
|
|
+" "" "2FBCB") "%%2PI" ("2\\pi
|
|
|
|
|
+" "" "27A89") "%%7" ("7
|
|
|
|
|
+" "" "30BEA") "%%10" ("10
|
|
|
|
|
+" "" "2FC19") "%%12" ("12
|
|
|
|
|
+" "" "30CC7") "%%60" ("60
|
|
|
|
|
+" "" "30CEB") "DROP%0" ("ob \\-> %0
|
|
|
|
|
+" "" "282CC" :UBS) "2DROP%0" ("ob ob' \\-> %0
|
|
|
|
|
+" "" "2C4AA" :UBS) "%>%%" ("% \\-> %%
|
|
|
|
|
+" "" "2FFAC") "%>%%SWAP" ("ob % \\-> %% ob
|
|
|
|
|
+" "" "35ECA") "%%>%" ("%% \\-> %
|
|
|
|
|
+" "" "2FF9B") "2%>%%" ("% % \\-> %% %%
|
|
|
|
|
+" "" "30E47") "2%%>%" ("%% %%' \\-> % %'
|
|
|
|
|
+" "" "30E5B") "UNCOERCE" ("# \\-> %
|
|
|
|
|
+" "" "262F6") "UNCOERCE2" ("# # \\-> % %
|
|
|
|
|
+" "" "3F495") "UNCOERCE%%" ("# \\-> %%
|
|
|
|
|
+" "" "36BFA") "HXS>%" ("hxs \\-> %
|
|
|
|
|
+" "" "2EFCA") "C%>%" ("C% \\-> %re %im
|
|
|
|
|
+" "" "05D2C") "%IP>#" ("% \\-> #IP(ABS(%))
|
|
|
|
|
+" "Does ABS too.
|
|
|
|
|
+" "2B3FD") "^Z>R" ("Z \\-> %
|
|
|
|
|
+" "Converts zint to real.
|
|
|
|
|
+" "0F6006" :wasCSys) "^Z2%%" ("Z \\-> %%
|
|
|
|
|
+" "Converts integer to long real.
|
|
|
|
|
+" "18A006" :wasCSys) "^OBJ2REAL" ("z/% \\-> %
|
|
|
|
|
+" "Transforms ob in real.
|
|
|
|
|
+" "197006" :wasCSys) "%+" ("% %' \\-> %+%'
|
|
|
|
|
+" "" "3035F") "%+SWAP" ("ob % %' \\-> %+%' ob
|
|
|
|
|
+" "" "25E69") "%1+" ("% \\-> %+1
|
|
|
|
|
+" "" "26F36") "%-" ("% %' \\-> %-%'
|
|
|
|
|
+" "" "3036C") "%1-" ("% \\-> %-1
|
|
|
|
|
+" "" "26F4A") "%>%%-" ("% %' \\-> %%-%%'
|
|
|
|
|
+" "" "30346") "%*" ("% %' \\-> %*%'
|
|
|
|
|
+" "" "303A7") "%10*" ("% \\-> %*10
|
|
|
|
|
+" "" "35C18") "%/" ("% %' \\-> %/%'
|
|
|
|
|
+" "" "303E9") "%^" ("% %' \\-> %^%'
|
|
|
|
|
+" "" "3045B") "%ABS" ("% \\-> %'
|
|
|
|
|
+" "" "302EB") "DUP%ABS" ("% \\-> % %'
|
|
|
|
|
+" "" "2C53B" :UBS) "%CHS" ("% \\-> -%
|
|
|
|
|
+" "" "3030B") "%SGN" ("% \\-> -1/0/1
|
|
|
|
|
+" "" "302C2") "%1/" ("% \\-> 1/%
|
|
|
|
|
+" "" "3049A") "%>%%1/" ("% \\-> 1/%%
|
|
|
|
|
+" "" "30489") "%SQRT" ("% \\-> \\v/%
|
|
|
|
|
+" "" "304F4") "%2root" ("% \\-> \\v/%
|
|
|
|
|
+ \\-> C%
|
|
|
|
|
+" "Computes square root of real, returns a
|
|
|
|
|
+complex number for negative arguments.
|
|
|
|
|
+" "3A4BE" :UBS) "%>%%SQRT" ("% \\-> \\v/%%
|
|
|
|
|
+" "" "304E1") "%SQ" ("% \\-> %'
|
|
|
|
|
+" "" "3A54B" :UBS) "%EXP" ("% \\-> e^%
|
|
|
|
|
+" "" "3051A") "%EXPM1" ("% \\-> e^%-1
|
|
|
|
|
+" "" "3052D") "%LN" ("% \\-> LN%
|
|
|
|
|
+" "" "30559") "%LNP1" ("% \\-> LN(%+1)
|
|
|
|
|
+" "" "30592") "%LOG" ("% \\-> LOG%
|
|
|
|
|
+" "" "3056C") "%ALOG" ("% \\-> 10^%
|
|
|
|
|
+" "" "305A5") "%SIN" ("% \\-> SIN%
|
|
|
|
|
+" "" "305DA") "%COS" ("% \\-> COS%
|
|
|
|
|
+" "" "3062B") "%TAN" ("% \\-> TAN%
|
|
|
|
|
+" "" "3067C") "%ASIN" ("% \\-> ASIN%
|
|
|
|
|
+" "" "306AC") "%ACOS" ("% \\-> ACOS%
|
|
|
|
|
+" "" "306DC") "%ATAN" ("% \\-> ATAN%
|
|
|
|
|
+" "" "3070C") "%SINH" ("% \\-> SINH%
|
|
|
|
|
+" "" "30799") "%COSH" ("% \\-> COSH%
|
|
|
|
|
+" "" "307C5") "%TANH" ("% \\-> TANH%
|
|
|
|
|
+" "" "307D8") "%ASINH" ("% \\-> ASINH%
|
|
|
|
|
+" "" "307EB") "%ACOSH" ("% \\-> ACOSH%
|
|
|
|
|
+" "" "307FE") "%ATANH" ("% \\-> ATANH%
|
|
|
|
|
+" "" "30811") "%MANTISSA" ("% \\-> %mant
|
|
|
|
|
+" "" "3031B") "%EXPONENT" ("% \\-> %expn
|
|
|
|
|
+" "" "30824") "%FP" ("% \\-> %frac
|
|
|
|
|
+" "" "30938") "%IP" ("% \\-> %int
|
|
|
|
|
+" "" "3094B") "%FLOOR" ("% \\-> %maxint <=%
|
|
|
|
|
+" "" "30971") "%CEIL" ("% \\-> %minint >=%
|
|
|
|
|
+" "" "3095E") "%MOD" ("% %' \\-> %rem
|
|
|
|
|
+" "" "305C7") "%ANGLE" ("%x %y \\-> %ang
|
|
|
|
|
+" "" "30723") "%0%ANGLE" ("%x \\-> %ang
|
|
|
|
|
+" "%ANGLE with y=0;
|
|
|
|
|
+" "3A3D1" :UBS) "%>%%ANGLE" ("%x %y \\-> %%ang
|
|
|
|
|
+" "" "30746") "RNDXY" ("% %places \\-> %'
|
|
|
|
|
+" "" "30F14") "TRCXY" ("% %places \\-> %'
|
|
|
|
|
+" "" "30F28") "%COMB" ("% %' \\-> COMB(%,%')
|
|
|
|
|
+" "" "3084D") "%PERM" ("% %' \\-> PERM(%,%')
|
|
|
|
|
+" "" "30860") "%NFACT" ("% \\-> %!
|
|
|
|
|
+" "Calculates factorial of number.
|
|
|
|
|
+" "30837") "%FACT" ("% \\-> gamma(%+1)
|
|
|
|
|
+" "Calculates gamma(x+1).
|
|
|
|
|
+" "30AAF") "%NROOT" ("% %n \\-> %'
|
|
|
|
|
+" "Calculates the %nth root of the real
|
|
|
|
|
+number. Equivalent to user function XROOT.
|
|
|
|
|
+" "3046C") "SWAP%NROOT" ("%n % \\-> %'
|
|
|
|
|
+" "Calculates the %nth root of the real
|
|
|
|
|
+number. Equivalent to user function XROOT.
|
|
|
|
|
+" "3A30E") "%MIN" ("% %' \\-> %lesser
|
|
|
|
|
+" "" "300F9") "%MAX" ("% %' \\-> %greater
|
|
|
|
|
+" "" "300E0") "%MAXorder" ("% %' \\-> %max %min
|
|
|
|
|
+" "" "35DBC") "%RAN" ("\\-> %random
|
|
|
|
|
+" "Returns next random number.
|
|
|
|
|
+" "309AD") "%RANDOMIZE" ("%seed \\->
|
|
|
|
|
+" "System level RDZ: seeds the random number
|
|
|
|
|
+generator.
|
|
|
|
|
+" "30A2F") "DORANDOMIZE" ("% \\->
|
|
|
|
|
+" "Stores given number as random number seed.
|
|
|
|
|
+" "30A66") "%OF" ("% %' \\-> %'/% * 100
|
|
|
|
|
+" "" "303B4") "%T" ("% %' \\-> %pctotal
|
|
|
|
|
+" "" "303F6") "%CH" ("% %' \\-> %pcchange
|
|
|
|
|
+" "" "3041B") "%D>R" ("%deg \\-> %rad
|
|
|
|
|
+" "" "3000D") "%R>D" ("%rad \\-> %deg
|
|
|
|
|
+" "" "30040") "%REC>%POL" ("%r %ang \\-> %x %y
|
|
|
|
|
+" "" "30E79") "%POL>%REC" ("%x %y \\-> %r %ang
|
|
|
|
|
+" "" "30EA6") "%SPH>%REC" ("%r %ang %ph \\-> %x %y %z
|
|
|
|
|
+" "" "30EDD") "%%+" ("%% %%' \\-> %%+%%'
|
|
|
|
|
+" "" "3032E") "%%1+" ("%% \\-> %%'
|
|
|
|
|
+" "" "27012" :UBS) "%%-" ("%% %%' \\-> %%-%%'
|
|
|
|
|
+" "" "3033A") "%%*" ("%% %%' \\-> %%*%%'
|
|
|
|
|
+" "" "30385") "%%*ROT" ("ob ob' %% %%' \\-> ob' %%+%%' ob
|
|
|
|
|
+" "" "3602F") "%%*SWAP" ("ob %% %%' \\-> %%+%%' ob
|
|
|
|
|
+" "" "35EDE") "%%*UNROT" ("ob ob' %% %%' \\-> %%+%%' ob ob'
|
|
|
|
|
+" "" "36C7C") "%%/" ("%% %%' \\-> %%/%%'
|
|
|
|
|
+" "" "303D3") "SWAP%%/" ("%% %%' \\-> %%''
|
|
|
|
|
+" "" "36C22") "%%/>%" ("%% %%' \\-> %
|
|
|
|
|
+" "" "36BE6") "%%^" ("%% %%' \\-> %%^%%'
|
|
|
|
|
+" "" "3044A") "^CK%%SQRT" ("%% \\-> %%/C%%
|
|
|
|
|
+" "" "51D006" :wasCSys) "%%SINRAD" ("%% \\-> %%'
|
|
|
|
|
+" "" "30612") "%%ANGLERAD" ("%% \\-> %%'
|
|
|
|
|
+" "" "30767") "%%ABS" ("%% \\-> %%abs
|
|
|
|
|
+" "" "302DB") "%%ACOSRAD" ("%% \\-> %%rad
|
|
|
|
|
+" "" "306F3") "%%ANGLE" ("%%x %%y \\-> %%ang
|
|
|
|
|
+" "" "3073A") "%%ANGLEDEG" ("%%x %%y \\-> %%deg
|
|
|
|
|
+" "" "30757") "%%ASINRAD" ("%% \\-> %%rad
|
|
|
|
|
+" "" "306C3") "%%CHS" ("%% \\-> -%%
|
|
|
|
|
+" "" "302FB") "%%1/" ("%% \\-> 1/%%
|
|
|
|
|
+" "" "3047D") "%%COS" ("%% \\-> %%cos
|
|
|
|
|
+" "" "30642") "%%COSDEG" ("%%deg \\-> %%cos
|
|
|
|
|
+" "" "30653") "%%COSH" ("%% \\-> %%cosh
|
|
|
|
|
+" "" "307B2") "%%COSRAD" ("%%rad \\-> %%cos
|
|
|
|
|
+" "" "30663") "%%EXP" ("%% \\-> e^%%
|
|
|
|
|
+" "" "30507") "%%LN" ("%% \\-> ln %%
|
|
|
|
|
+" "" "30546") "%%INT" ("%% \\-> %%maxint
|
|
|
|
|
+" "" "30984") "%%FLOOR" ("%% \\-> %%maxint
|
|
|
|
|
+" "" "30984") "%%LNP1" ("%% \\-> %%ln(%%+1)
|
|
|
|
|
+" "" "3057F") "%%MAX" ("%% %%' \\-> %%max
|
|
|
|
|
+" "" "300C7") "%%R>P" ("%%x %%y \\-> %%radius %%angle
|
|
|
|
|
+" "" "30E83") "%%P>R" ("%%r %%ang \\-> %%x %%y
|
|
|
|
|
+" "" "30EB0") "%%SIN" ("%% \\-> %%sin
|
|
|
|
|
+" "" "305F1") "%%SINDEG" ("%%deg \\-> %%sin
|
|
|
|
|
+" "" "30602") "%%SINH" ("%% \\-> %%sinh
|
|
|
|
|
+" "" "30780") "%%SQRT" ("%% \\-> \\v/%%
|
|
|
|
|
+" "" "304D5") "%%TANRAD" ("%%rad \\-> %%tan
|
|
|
|
|
+" "" "30693") "%%TANDEG" ("%%deg \\-> %%tan
|
|
|
|
|
+" "" "2D817" :UBS) "%=" ("% %' \\-> flag
|
|
|
|
|
+" "" "302AC") "%<>" ("% %' \\-> flag
|
|
|
|
|
+" "" "302B7") "%<" ("% %' \\-> flag
|
|
|
|
|
+" "" "3025C") "%<=" ("% %' \\-> flag
|
|
|
|
|
+" "" "302A1") "%>" ("% %' \\-> flag
|
|
|
|
|
+" "" "30275") "%>=" ("% %' \\-> flag
|
|
|
|
|
+" "" "3028B") "XEQAND" ("% %' \\-> flag
|
|
|
|
|
+" "Logical QANDQ for real numbers.
|
|
|
|
|
+" "3CA61" :UBS) "XEQOR" ("% %' \\-> flag
|
|
|
|
|
+" "Logical QORQ for real numbers.
|
|
|
|
|
+" "3CAE7" :UBS) "XEQNOT" ("% \\-> flag
|
|
|
|
|
+" "Logical QNOTQ for real numbers.
|
|
|
|
|
+" "3CB5D" :UBS) "XEQXOR" ("% %' \\-> flag
|
|
|
|
|
+" "Logical QXORQ for real numbers.
|
|
|
|
|
+" "3CBCA" :UBS) "%0=" ("% \\-> flag
|
|
|
|
|
+" "" "30156") "DUP%0=" ("% \\-> flag
|
|
|
|
|
+" "" "36C0E") "%0<>" ("% \\-> flag
|
|
|
|
|
+" "Can be used to change a user flag into a
|
|
|
|
|
+system flag.
|
|
|
|
|
+" "301BA") "%0<" ("% \\-> flag
|
|
|
|
|
+" "" "30123") "%0>" ("% \\-> flag
|
|
|
|
|
+" "" "30184") "%0>=" ("% \\-> flag
|
|
|
|
|
+" "" "301E2") "%%<" ("%% %%' \\-> flag
|
|
|
|
|
+" "" "3020A") "%%<=" ("%% %%' \\-> falg
|
|
|
|
|
+" "" "30296") "%%>" ("%% %%' \\-> flag
|
|
|
|
|
+" "" "3026A") "%%>=" ("%% %%' \\-> flag
|
|
|
|
|
+" "" "30280") "%%0=" ("%% \\-> flag
|
|
|
|
|
+" "" "30145") "DUP%%0=" ("%% \\-> %% flag
|
|
|
|
|
+" "" "2708A" :UBS) "%%0<>" ("%% \\-> flag
|
|
|
|
|
+" "" "301A6") "%%0<" ("%% \\-> flag
|
|
|
|
|
+" "" "30112") "%%0<=" ("%% \\-> flag
|
|
|
|
|
+" "" "301F6") "%%0>" ("%% \\-> flag
|
|
|
|
|
+" "" "30173") "%%0>=" ("%% \\-> flag
|
|
|
|
|
+" "" "301CE") "C%0" ("(0,0)
|
|
|
|
|
+" "" "27DE4") "C%1" ("(1,0)
|
|
|
|
|
+" "" "27E09") "C%-1" ("(-1,0)
|
|
|
|
|
+" "" "27DBF") "C%%1" ("(Q%%1,%%0Q)
|
|
|
|
|
+" "" "27E2E") "C%%>C%" ("C%% \\-> C%
|
|
|
|
|
+" "" "261D9") "%>C%" ("%re %im \\-> C%
|
|
|
|
|
+" "" "05C27") "SWAP%>C%" ("%im %re \\-> C%
|
|
|
|
|
+" "" "362F2") "Re>C%" ("%re \\-> C%
|
|
|
|
|
+" "" "261FC") "C>Re%" ("C% \\-> %re
|
|
|
|
|
+" "" "25E9C") "C>Im%" ("C% \\-> %im
|
|
|
|
|
+" "" "25E9B") "^E%%>C%%" ("%%re %%im \\-> C%%
|
|
|
|
|
+" "Converts long reals to long complex.
|
|
|
|
|
+" "18C006" :wasCSys) "%%>C%" ("%%re %%im \\-> C%
|
|
|
|
|
+" "" "261CF") "C%>%%" ("C% \\-> %%re %%im
|
|
|
|
|
+" "" "25E82") "C%>%%SWAP" ("C% \\-> %%im %%re
|
|
|
|
|
+" "" "25E83") "C%%>%%" ("C%% \\-> %%re %%im
|
|
|
|
|
+" "" "05DBC") "^C2C%%" ("C \\-> C%%
|
|
|
|
|
+" "Converts Gaussian integer to long complex.
|
|
|
|
|
+" "188006" :wasCSys) "^ZZ2C%%ext" ("Zre Zim \\-> C%%
|
|
|
|
|
+" "Converts Gaussian integer to long complex.
|
|
|
|
|
+" "189006" :wasCSys) "^C%>C%%" ("C% \\-> C%%
|
|
|
|
|
+" "Converts complex to long complex.
|
|
|
|
|
+" "18B006" :wasCSys) "^RIXCext" ("Zre Zim \\-> C
|
|
|
|
|
+" "Convert integers to complex.
|
|
|
|
|
+" "15E006" :wasCSys) "^IRXCext" ("Zim Zre \\-> C
|
|
|
|
|
+" "Convert integers to complex.
|
|
|
|
|
+" "15F006" :wasCSys) "^IRXC2" ("
|
|
|
|
|
+" "" "160006" :wasCSys) "C%C^C" ("C% C%' \\-> C%''
|
|
|
|
|
+" "" "25E8F") "C%C^R" ("C% % \\-> C%'
|
|
|
|
|
+" "" "25E90") "C%R^C" ("% C% \\-> C%'
|
|
|
|
|
+" "" "25E94") "C%ABS" ("C% \\-> %
|
|
|
|
|
+" "" "25E84") "^CZABS" ("C% \\-> %
|
|
|
|
|
+" "Absolute value.
|
|
|
|
|
+" "50C006" :wasCSys) "C%CHS" ("C% \\-> -C%
|
|
|
|
|
+" "" "261ED") "C%1/" ("C% \\-> 1/C%
|
|
|
|
|
+" "" "25E81") "C%SQRT" ("C% \\-> \\v/C%
|
|
|
|
|
+" "" "25E98") "C%C*C" ("C% \\-> C%^2
|
|
|
|
|
+" "" "10293" :UBS) "C%SGN" ("C% \\-> C%/C%ABS
|
|
|
|
|
+" "" "25E95") "C%CONJ" ("C% \\-> C%'
|
|
|
|
|
+" "" "261F2") "C%ARG" ("C% \\-> %
|
|
|
|
|
+" "" "25E88") "C%EXP" ("C% \\-> e^C%
|
|
|
|
|
+" "" "25E91") "C%LN" ("C% \\-> ln C%
|
|
|
|
|
+" "" "25E92") "C%LOG" ("C% \\-> log C%
|
|
|
|
|
+" "" "25E93") "C%ALOG" ("C% \\-> 10^C%
|
|
|
|
|
+" "" "25E87") "C%SIN" ("C% \\-> sin C%
|
|
|
|
|
+" "" "25E96") "C%COS" ("C% \\-> cos C%
|
|
|
|
|
+" "" "25E8D") "C%TAN" ("C% \\-> tan C%
|
|
|
|
|
+" "" "25E99") "C%ASIN" ("C% \\-> asin C%
|
|
|
|
|
+" "" "25E89") "C%ACOS" ("C% \\-> acos C%
|
|
|
|
|
+" "" "25E85") "C%ATAN" ("C% \\-> atan C%
|
|
|
|
|
+" "" "25E8B") "C%SINH" ("C% \\-> sinh C%
|
|
|
|
|
+" "" "25E97") "C%COSH" ("C% \\-> cosh C%
|
|
|
|
|
+" "" "25E8E") "C%TANH" ("C% \\-> tanh C%
|
|
|
|
|
+" "" "25E9A") "C%ASINH" ("C% \\-> asinh C%
|
|
|
|
|
+" "" "25E8A") "C%ACOSH" ("C% \\-> acosh C%
|
|
|
|
|
+" "" "25E86") "C%ATANH" ("C% \\-> atanh C%
|
|
|
|
|
+" "" "25E8C") "%%>C%%" ("%%re %%im \\-> C%%
|
|
|
|
|
+" "" "05C72" :UBS) "C%%CHS" ("C%% \\-> -C%%
|
|
|
|
|
+" "" "261DE") "C%%CONJ" ("C%% \\-> C%%'
|
|
|
|
|
+" "" "261E3") "^ARG2" ("im re \\-> arg(ob)
|
|
|
|
|
+" "ARG.
|
|
|
|
|
+" "515006" :wasCSys) "^INTERNALARG2" ("
|
|
|
|
|
+" "" "516006" :wasCSys) "^QUADRANT" ("re im ?re>0 ?im>0 \\-> newre newim Z
|
|
|
|
|
+" "Returns Z0 Z1 Z-2 or Z-1 so that arg of
|
|
|
|
|
+corresponding complex number is Z * \\pi/2 +
|
|
|
|
|
+theta where \\Gh is in the interval
|
|
|
|
|
+[0,\\pi/2]. The arguments on level 1 and 2
|
|
|
|
|
+are flags.
|
|
|
|
|
+" "517006" :wasCSys) "^C%%SQRT" ("C%% \\-> C%%'
|
|
|
|
|
+" "" "51E006" :wasCSys) "C%0=" ("C% \\-> flag
|
|
|
|
|
+" "" "261E8") "C%%0=" ("C%% \\-> flag
|
|
|
|
|
+" "" "261D4") "CHR_00" ("'\\00', CHR 0d 00h
|
|
|
|
|
+" "The NULL character.
|
|
|
|
|
+" "33D2B" :NOSDIAG) "CHR_Newline" ("'\\0a', CHR 10d 0Ah
|
|
|
|
|
+" "" "33F77" :NOSDIAG) "CHR_..." ("'...', CHR 31d 1Fh
|
|
|
|
|
+" "" "33D32" :NOSDIAG) "CHR_Space" ("'\\ ', CHR 32d 20h
|
|
|
|
|
+" "The space character.
|
|
|
|
|
+" "33F93" :NOSDIAG) "CHR_DblQuote" ("'\"', CHR 34d 22h
|
|
|
|
|
+" "" "33D39" :NOSDIAG) "CHR_#" ("'#', CHR 35d 23h
|
|
|
|
|
+" "" "33D40" :NOSDIAG) "CHR_LeftPar" ("'(', CHR 40d 28h
|
|
|
|
|
+" "" "33F70" :NOSDIAG) "CHR_RightPar" ("')', CHR 41d 29h
|
|
|
|
|
+" "" "33F85" :NOSDIAG) "CHR_*" ("'*', CHR 42d 2Ah
|
|
|
|
|
+" "" "33D47" :NOSDIAG) "CHR_+" ("'+', CHR 43d 2Bh
|
|
|
|
|
+" "" "33D4E" :NOSDIAG) "CHR_," ("',', CHR 44d 2Ch
|
|
|
|
|
+" "" "33D55" :NOSDIAG) "CHR_-" ("'-', CHR 45d 2Dh
|
|
|
|
|
+" "" "33D5C" :NOSDIAG) "CHR_." ("'.', CHR 46d 2Eh
|
|
|
|
|
+" "" "33D63" :NOSDIAG) "CHR_/" ("'/', CHR 47d 2Fh
|
|
|
|
|
+" "" "33D6A" :NOSDIAG) "CHR_0" ("'0', CHR 48d 30h
|
|
|
|
|
+" "" "33D71" :NOSDIAG) "CHR_1" ("'1', CHR 49d 31h
|
|
|
|
|
+" "" "33D78" :NOSDIAG) "CHR_2" ("'2', CHR 50d 32h
|
|
|
|
|
+" "" "33D7F" :NOSDIAG) "CHR_3" ("'3', CHR 51d 33h
|
|
|
|
|
+" "" "33D86" :NOSDIAG) "CHR_4" ("'4', CHR 52d 34h
|
|
|
|
|
+" "" "33D8D" :NOSDIAG) "CHR_5" ("'5', CHR 53d 35h
|
|
|
|
|
+" "" "33D94" :NOSDIAG) "CHR_6" ("'6', CHR 54d 36h
|
|
|
|
|
+" "" "33D9B" :NOSDIAG) "CHR_7" ("'7', CHR 55d 37h
|
|
|
|
|
+" "" "33DA2" :NOSDIAG) "CHR_8" ("'8', CHR 56d 38h
|
|
|
|
|
+" "" "33DA9" :NOSDIAG) "CHR_9" ("'9', CHR 57d 39h
|
|
|
|
|
+" "" "33DB0" :NOSDIAG) "CHR_:" ("':', CHR 58d 3Ah
|
|
|
|
|
+" "" "33DB7" :NOSDIAG) "CHR_;" ("';', CHR 59d 3Bh
|
|
|
|
|
+" "" "33DBE" :NOSDIAG) "CHR_<" ("'<', CHR 60d 3Ch
|
|
|
|
|
+" "" "33DC5" :NOSDIAG) "CHR_=" ("'=', CHR 61d 3Dh
|
|
|
|
|
+" "" "33DCC" :NOSDIAG) "CHR_>" ("'>', CHR 62d 3Eh
|
|
|
|
|
+" "" "33DD3" :NOSDIAG) "CHR_A" ("'A', CHR 65d 41h
|
|
|
|
|
+" "" "33DDA" :NOSDIAG) "CHR_B" ("'B', CHR 66d 42h
|
|
|
|
|
+" "" "33DE1" :NOSDIAG) "CHR_C" ("'C', CHR 67d 43h
|
|
|
|
|
+" "" "33DE8" :NOSDIAG) "CHR_D" ("'D', CHR 68d 44h
|
|
|
|
|
+" "" "33DEF" :NOSDIAG) "CHR_E" ("'E', CHR 69d 45h
|
|
|
|
|
+" "" "33DF6" :NOSDIAG) "CHR_F" ("'F', CHR 70d 46h
|
|
|
|
|
+" "" "33DFD" :NOSDIAG) "CHR_G" ("'G', CHR 71d 47h
|
|
|
|
|
+" "" "33E04" :NOSDIAG) "CHR_H" ("'H', CHR 72d 48h
|
|
|
|
|
+" "" "33E0B" :NOSDIAG) "CHR_I" ("'I', CHR 73d 49h
|
|
|
|
|
+" "" "33E12" :NOSDIAG) "CHR_J" ("'J', CHR 74d 4Ah
|
|
|
|
|
+" "" "33E19" :NOSDIAG) "CHR_K" ("'K', CHR 75d 4Bh
|
|
|
|
|
+" "" "33E20" :NOSDIAG) "CHR_L" ("'L', CHR 76d 4Ch
|
|
|
|
|
+" "" "33E27" :NOSDIAG) "CHR_M" ("'M', CHR 77d 4Dh
|
|
|
|
|
+" "" "33E2E" :NOSDIAG) "CHR_N" ("'N', CHR 78d 4Eh
|
|
|
|
|
+" "" "33E35" :NOSDIAG) "CHR_O" ("'O', CHR 79d 4Fh
|
|
|
|
|
+" "" "33E3C" :NOSDIAG) "CHR_P" ("'P', CHR 80d 50h
|
|
|
|
|
+" "" "33E43" :NOSDIAG) "CHR_Q" ("'Q', CHR 81d 51h
|
|
|
|
|
+" "" "33E4A" :NOSDIAG) "CHR_R" ("'R', CHR 82d 52h
|
|
|
|
|
+" "" "33E51" :NOSDIAG) "CHR_S" ("'S', CHR 83d 53h
|
|
|
|
|
+" "" "33E58" :NOSDIAG) "CHR_T" ("'T', CHR 84d 54h
|
|
|
|
|
+" "" "33E5F" :NOSDIAG) "CHR_U" ("'U', CHR 85d 55h
|
|
|
|
|
+" "" "33E66" :NOSDIAG) "CHR_V" ("'V', CHR 86d 56h
|
|
|
|
|
+" "" "33E6D" :NOSDIAG) "CHR_W" ("'W', CHR 87d 57h
|
|
|
|
|
+" "" "33E74" :NOSDIAG) "CHR_X" ("'X', CHR 88d 58h
|
|
|
|
|
+" "" "33E7B" :NOSDIAG) "CHR_Y" ("'Y', CHR 89d 59h
|
|
|
|
|
+" "" "33E82" :NOSDIAG) "CHR_Z" ("'Z', CHR 90d 5Ah
|
|
|
|
|
+" "" "33E89" :NOSDIAG) "CHR_[" ("'[', CHR 91d 5Bh
|
|
|
|
|
+" "" "33FA1" :NOSDIAG) "CHR_]" ("']', CHR 93d 5Dh
|
|
|
|
|
+" "" "33FA8" :NOSDIAG) "CHR_UndScore" ("'_', CHR 95d 5Fh
|
|
|
|
|
+" "" "33F9A" :NOSDIAG) "CHR_a" ("'a', CHR 97d 61h
|
|
|
|
|
+" "" "33E90" :NOSDIAG) "CHR_b" ("'b', CHR 98d 62h
|
|
|
|
|
+" "" "33E97" :NOSDIAG) "CHR_c" ("'c', CHR 99d 63h
|
|
|
|
|
+" "" "33E9E" :NOSDIAG) "CHR_d" ("'d', CHR 100d 64h
|
|
|
|
|
+" "" "33EA5" :NOSDIAG) "CHR_e" ("'e', CHR 101d 65h
|
|
|
|
|
+" "" "33EAC" :NOSDIAG) "CHR_f" ("'f', CHR 102d 66h
|
|
|
|
|
+" "" "33EB3" :NOSDIAG) "CHR_g" ("'g', CHR 103d 67h
|
|
|
|
|
+" "" "33EBA" :NOSDIAG) "CHR_h" ("'h', CHR 104d 68h
|
|
|
|
|
+" "" "33EC1" :NOSDIAG) "CHR_i" ("'i', CHR 105d 69h
|
|
|
|
|
+" "" "33EC8" :NOSDIAG) "CHR_j" ("'j', CHR 106d 6Ah
|
|
|
|
|
+" "" "33ECF" :NOSDIAG) "CHR_k" ("'k', CHR 107d 6Bh
|
|
|
|
|
+" "" "33ED6" :NOSDIAG) "CHR_l" ("'l', CHR 108d 6Ch
|
|
|
|
|
+" "" "33EDD" :NOSDIAG) "CHR_m" ("'m', CHR 109d 5Dh
|
|
|
|
|
+" "" "33EE4" :NOSDIAG) "CHR_n" ("'n', CHR 110d 6Eh
|
|
|
|
|
+" "" "33EEB" :NOSDIAG) "CHR_o" ("'o', CHR 111d 6Fh
|
|
|
|
|
+" "" "33EF2" :NOSDIAG) "CHR_p" ("'p', CHR 112d 70h
|
|
|
|
|
+" "" "33EF9" :NOSDIAG) "CHR_q" ("'q', CHR 113d 71h
|
|
|
|
|
+" "" "33F00" :NOSDIAG) "CHR_r" ("'r', CHR 114d 72h
|
|
|
|
|
+" "" "33F07" :NOSDIAG) "CHR_s" ("'s', CHR 115d 73h
|
|
|
|
|
+" "" "33F0E" :NOSDIAG) "CHR_t" ("'t', CHR 116d 74h
|
|
|
|
|
+" "" "33F15" :NOSDIAG) "CHR_u" ("'u', CHR 117d 75h
|
|
|
|
|
+" "" "33F1C" :NOSDIAG) "CHR_v" ("'v', CHR 118d 76h
|
|
|
|
|
+" "" "33F23" :NOSDIAG) "CHR_w" ("'w', CHR 119d 77h
|
|
|
|
|
+" "" "33F2A" :NOSDIAG) "CHR_x" ("'x', CHR 120d 78h
|
|
|
|
|
+" "" "33F31" :NOSDIAG) "CHR_y" ("'y', CHR 121d 79h
|
|
|
|
|
+" "" "33F38" :NOSDIAG) "CHR_z" ("'z', CHR 122d 7Ah
|
|
|
|
|
+" "" "33F3F" :NOSDIAG) "CHR_{" ("'{', CHR 123d 7Bh
|
|
|
|
|
+" "" "33FAF" :NOSDIAG) "CHR_}" ("'{', CHR 125d 7Dh
|
|
|
|
|
+" "" "33FB6" :NOSDIAG) "CHR_Angle" ("'\\<)', CHR 128d 80h
|
|
|
|
|
+" "" "33F5B" :NOSDIAG) "CHR_Integral" ("'\\.S', CHR 132d 84h
|
|
|
|
|
+" "" "33F69" :NOSDIAG) "CHR_Deriv" ("'\\.d', CHR 136d 88h
|
|
|
|
|
+" "" "33F62" :NOSDIAG) "CHR_->" ("'\\->', CHR 141d 8Dh
|
|
|
|
|
+" "" "33F46" :NOSDIAG) "CHR_<<" ("'\\<<', CHR 171d ABh
|
|
|
|
|
+" "" "33F4D" :NOSDIAG) "CHR_>>" ("'\\>>', CHR 187d BBh
|
|
|
|
|
+" "" "33F54" :NOSDIAG) "CHR_Pi" ("'\\pi', CHR 135d 87h
|
|
|
|
|
+" "" "33F7E" :NOSDIAG) "CHR_Sigma" ("'\\GS', CHR 133d 85h
|
|
|
|
|
+" "" "33F8C" :NOSDIAG) "CHR_<=" ("'\\<=', CHR 137d 89h
|
|
|
|
|
+" "" "33FBD" :NOSDIAG) "CHR_>=" ("'\\>=', CHR 138d 8Ah
|
|
|
|
|
+" "" "33FC4" :NOSDIAG) "CHR_<>" ("'\\=/', CHR 139d 8Bh
|
|
|
|
|
+" "" "33FCB" :NOSDIAG) "CHR_A8" ("'\\A8', CHR 168d A8h
|
|
|
|
|
+" "" "37A78" :UBS :NOSDIAG) "NULL$" ("\"\"
|
|
|
|
|
+" "Empty string.
|
|
|
|
|
+" "055DF") "tok_" ("\"\\ \"
|
|
|
|
|
+" "" "33B55") "SPACE$" ("\"\\ \"
|
|
|
|
|
+" "" "33B55") "MARKED" ("\" \"
|
|
|
|
|
+" "String of 2 spaces.
|
|
|
|
|
+" "272E5" :UBS) "14SPACES$" ("\"\\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \\ \"
|
|
|
|
|
+" "String of 14 spaces.
|
|
|
|
|
+" "33B13" :UBS) "(LF$)" ("\"\\0a\"
|
|
|
|
|
+" "Newline.
|
|
|
|
|
+" "33B39") "NEWLINE$" ("\"\\0a\"
|
|
|
|
|
+" "Newline.
|
|
|
|
|
+" "33B39") "CRLF$" ("\"\\0d\\0a\"
|
|
|
|
|
+" "Carriage return and line feed.
|
|
|
|
|
+" "27195") "toklparen" ("\"(\"
|
|
|
|
|
+" "" "33BB5" :UBS) "tokrparen" ("\")\"
|
|
|
|
|
+" "" "33BC1" :UBS) "tok[" ("\"[\"
|
|
|
|
|
+" "" "33A6B" :UBS) "tok]" ("\"]\"
|
|
|
|
|
+" "" "33A51" :UBS) "tok{" ("\"{\"
|
|
|
|
|
+" "" "33A77") "tok}" ("\"}\"
|
|
|
|
|
+" "" "33A83" :UBS) "tok<<" ("\"\\<<\"
|
|
|
|
|
+" "" "33AD7") "tok>>" ("\"\\>>\"
|
|
|
|
|
+" "" "33ACB" :UBS) "$_LRParens" ("\"()\"
|
|
|
|
|
+" "" "34048") "$_[]" ("\"[]\"
|
|
|
|
|
+" "" "3401E") "$_{}" ("\"{}\"
|
|
|
|
|
+" "" "34010") "$_<<>>" ("\"\\<<\\>>\"
|
|
|
|
|
+" "" "34002") "$_''" ("\"''\"
|
|
|
|
|
+" "Two single quotes.
|
|
|
|
|
+" "3402C") "$_::" ("\"::\"
|
|
|
|
|
+" "" "3403A") "$_2DQ" ("\"\"\"\"
|
|
|
|
|
+" "Two double quotes.
|
|
|
|
|
+" "34056") "tok," ("\",\"
|
|
|
|
|
+" "" "33B91") "tok'" ("\"'\"
|
|
|
|
|
+" "One single quote.
|
|
|
|
|
+" "33B85") "tok-" ("\"-\"
|
|
|
|
|
+" "" "33BFD") "tok." ("\".\"
|
|
|
|
|
+" "" "33B9D") "tok=" ("\"=\"
|
|
|
|
|
+" "" "33C09") "tok->" ("\"\\->\"
|
|
|
|
|
+" "" "272D9") "tok_g" ("\"g\"
|
|
|
|
|
+" "" "2D848") "tok_m" ("\"m\"
|
|
|
|
|
+" "" "2D86D") "tok_s" ("\"s\"
|
|
|
|
|
+" "" "2D8AD") "tok0" ("\"0\"
|
|
|
|
|
+" "" "33C4D") "tok1" ("\"1\"
|
|
|
|
|
+" "" "33C59") "tok2" ("\"2\"
|
|
|
|
|
+" "" "33C65" :UBS) "tok3" ("\"3\"
|
|
|
|
|
+" "" "33C71" :UBS) "tok4" ("\"4\"
|
|
|
|
|
+" "" "33C7D" :UBS) "tok5" ("\"5\"
|
|
|
|
|
+" "" "33C89" :UBS) "tok6" ("\"6\"
|
|
|
|
|
+" "" "33C95" :UBS) "tok7" ("\"7\"
|
|
|
|
|
+" "" "33CA1" :UBS) "tok;" ("\";\"
|
|
|
|
|
+" "" "33BA9" :UBS) "tok8" ("\"8\"
|
|
|
|
|
+" "" "33CAD") "tok9" ("\"9\"
|
|
|
|
|
+" "" "33CB9") "tokESC" ("\"\\1B\"
|
|
|
|
|
+" "Escape character.
|
|
|
|
|
+" "33ABF") "tokexponent" ("\"E\"
|
|
|
|
|
+" "" "33AE3") "tokquote" ("\"\"\"
|
|
|
|
|
+" "One double quote.
|
|
|
|
|
+" "33B79") "toksharp" ("\"#\"
|
|
|
|
|
+" "" "33A8F") "tok$" ("\"$\"
|
|
|
|
|
+" "" "33AA7" :UBS) "tok&" ("\"&\"
|
|
|
|
|
+" "" "33AB3" :UBS) "tok*" ("\"*\"
|
|
|
|
|
+" "" "33BD9" :UBS) "tok+" ("\"+\"
|
|
|
|
|
+" "" "33BF1" :UBS) "tok/" ("\"/\"
|
|
|
|
|
+" "" "33BE5" :UBS) "tokanglesign" ("\"\\<)\"
|
|
|
|
|
+" "" "33AEF" :UBS) "tokDER" ("\"\\.d\"
|
|
|
|
|
+" "" "33C21" :UBS) "$DER" ("\"der\"
|
|
|
|
|
+" "" "33B45" :UBS) "tokSIGMA" ("\"\\GS\"
|
|
|
|
|
+" "" "33AFB" :UBS) "tokSQRT" ("\"\\v/\"
|
|
|
|
|
+" "" "33C15" :UBS) "tokuscore" ("\"_\"
|
|
|
|
|
+" "" "33A9B" :UBS) "tokWHERE" ("\"|\"
|
|
|
|
|
+" "" "33B07" :UBS) "tok^" ("\"^\"
|
|
|
|
|
+" "" "33BCD" :UBS) "$_..." ("\"\\1F\"
|
|
|
|
|
+" "Character 31, the forward arrow (system font)
|
|
|
|
|
+or dots (minifont).
|
|
|
|
|
+" "33D1F" :UBS) "tok:" ("\":\"
|
|
|
|
|
+" "" "2723F" :UBS) "tok`" ("\"`\"
|
|
|
|
|
+" "One backquote.
|
|
|
|
|
+" "2724B" :UBS) "tok?" ("\"?\"
|
|
|
|
|
+" "" "2D933" :UBS) "$_RAD" ("\"RAD\"
|
|
|
|
|
+" "" "340A4") "$_GRAD" ("\"GRAD\"
|
|
|
|
|
+" "" "340B4") "$_XYZ" ("\"XYZ\"
|
|
|
|
|
+" "" "33FF2") "$_R<Z" ("\"R\\<)Z\"
|
|
|
|
|
+" "\"R<angle>Z\"
|
|
|
|
|
+" "33FE2") "$_R<<" ("\"R\\<)\\<)\"
|
|
|
|
|
+" "\"R<angle><angle>\"
|
|
|
|
|
+" "33FD2") "tokmol" ("\"mol\"
|
|
|
|
|
+" "" "2D90F" :UBS) "tokcd" ("\"cd\"
|
|
|
|
|
+" "" "2D8ED" :UBS) "tokK" ("\"K\"
|
|
|
|
|
+" "" "2D8CD" :UBS) "tokA" ("\"A\"
|
|
|
|
|
+" "" "2D88D" :UBS) "tokdegR" ("\"\\^oR\"
|
|
|
|
|
+" "Degrees R.
|
|
|
|
|
+" "2D7FF" :UBS) "tokr" ("\"r\"
|
|
|
|
|
+" "" "2D7B3" :UBS) "toksr" ("\"sr\"
|
|
|
|
|
+" "" "2D7D3" :UBS) "$_EXIT" ("\"EXIT\"
|
|
|
|
|
+" "" "34076") "$_ECHO" ("\"ECHO\"
|
|
|
|
|
+" "" "34064") "$_Undefined" ("\"Undefined\"
|
|
|
|
|
+" "" "34088") "tokCTGROB" ("\"GROB\"
|
|
|
|
|
+" "" "33C2D" :UBS) "tokCTSTR" ("\"C$\"
|
|
|
|
|
+" "" "33C3F" :UBS) "tokUNKNOWN" ("\"UNKNOWN\"
|
|
|
|
|
+" "" "33B61" :UBS) "tokTO" ("\"TO\"
|
|
|
|
|
+" "" "27221" :UBS) "tokDIR" ("\"DIR\"
|
|
|
|
|
+" "" "2722F" :UBS) "tokELSE" ("\"ELSE\"
|
|
|
|
|
+" "" "27257" :UBS) "tokEND" ("\"END\"
|
|
|
|
|
+" "" "27269" :UBS) "tokUNTIL" ("\"UNTIL\"
|
|
|
|
|
+" "" "27279" :UBS) "tokREPEAT" ("\"REPEAT\"
|
|
|
|
|
+" "" "2728D" :UBS) "tokNEXT" ("\"NEXT\"
|
|
|
|
|
+" "" "272A3" :UBS) "tokSTEP" ("\"STEP\"
|
|
|
|
|
+" "" "272B5" :UBS) "tokTHEN" ("\"THEN\"
|
|
|
|
|
+" "" "272C7" :UBS) "$1:_" ("\"1: \"
|
|
|
|
|
+" "" "27C0B" :UBS) "<Skip$" ("\"\\->SKIP\"
|
|
|
|
|
+" "" "27EB4" :UBS) ">Skip$" ("\"SKIP\\->\"
|
|
|
|
|
+" "" "27F00" :UBS) "<Del$" ("\"\\->DEL\"
|
|
|
|
|
+" "" "27F4C" :UBS) ">Del$" ("\"DEL\\->\"
|
|
|
|
|
+" "" "27F9F" :UBS) "tokIntercept" ("\"Intercept\"
|
|
|
|
|
+" "" "3DF97" :UBS) "tokSlope" ("\"Slope\"
|
|
|
|
|
+" "" "3DFB3" :UBS) "tokIF-prompt" ("\"IF-prompt\"
|
|
|
|
|
+" "" "37F5C" :UBS) "tokCopyright" ("\"Copyright HP xxxx\"
|
|
|
|
|
+" "" "34133" :UBS) "tokVersion" ("\"Version HP49-B...\"
|
|
|
|
|
+" "" "340CB" :UBS) "NULL$SWAP" ("ob \\-> $ ob
|
|
|
|
|
+" "NULL$, then SWAP.
|
|
|
|
|
+" "35D94") "DROPNULL$" ("ob \\-> NULL$
|
|
|
|
|
+" "DROP then NULL$.
|
|
|
|
|
+" "04D3E") "TWODROPNULL$" ("ob ob' \\-> NULL$
|
|
|
|
|
+" "2DROP then NULL$.
|
|
|
|
|
+" "04D57" :UBS) "NULL$TEMP" ("\\-> $
|
|
|
|
|
+" "Creates null string in temporary memory
|
|
|
|
|
+(NULL$, then <REF>TOTEMPOB).
|
|
|
|
|
+" "25EEC") "#>$" ("# \\-> $
|
|
|
|
|
+" "Creates string from the bint (decimal).
|
|
|
|
|
+" "25F77") "#:>$" ("# \\-> \"#:\\ \"
|
|
|
|
|
+" "Creates string from the bint and appends a
|
|
|
|
|
+colon and a space. Ex: \"1:\\ \"
|
|
|
|
|
+" "25F72") "a%>$," ("% \\-> $
|
|
|
|
|
+" "Converts real number into string using
|
|
|
|
|
+current display mode.
|
|
|
|
|
+" "25F0F") "a%>$" ("% \\-> $
|
|
|
|
|
+" "Converts real number into string using
|
|
|
|
|
+current display mode.
|
|
|
|
|
+" "25F0F") "ID>$" ("id/lam \\-> $
|
|
|
|
|
+" "Converts identifier into string.
|
|
|
|
|
+" "05BE9") "DOCHR" ("% \\-> $
|
|
|
|
|
+" "Creates string of the character with the
|
|
|
|
|
+number specified.
|
|
|
|
|
+" "25EB3") "^Z>S" ("Z \\-> $
|
|
|
|
|
+" "Converts Z into a string (decimal).
|
|
|
|
|
+" "0F1006" :wasCSys) "hxs>$" ("hxs \\-> $
|
|
|
|
|
+" "Uses current display mode and wordsize.
|
|
|
|
|
+" "2EFC1") "HXS>$" ("hxs \\-> $
|
|
|
|
|
+" "Does <REF>hxs>$ and then appends base character.
|
|
|
|
|
+" "2EFC0") "#>CHR" ("# \\-> chr
|
|
|
|
|
+" "Returns character with the specified ASCII
|
|
|
|
|
+code.
|
|
|
|
|
+" "05A75") "CHR>$" ("chr \\-> $* Strings
|
|
|
|
|
+" "Converts a character into a string.
|
|
|
|
|
+" "37AA5") "LEN$" ("$ \\-> #length
|
|
|
|
|
+" "Returns length in bytes.
|
|
|
|
|
+" "05636") "DUPLEN$" ("$ \\-> $ #
|
|
|
|
|
+" "DUP then LEN$.
|
|
|
|
|
+" "357E2") "OVERLEN$" ("$ ob \\-> $ ob #len
|
|
|
|
|
+" "OVER then LEN$.
|
|
|
|
|
+" "05622") "NEWLINE&$" ("$ \\-> \"$\\0a\"
|
|
|
|
|
+" "Appends newline character to string.
|
|
|
|
|
+" "361DA") "NEWLINE$&$" ("$ \\-> \"$\\0a\"
|
|
|
|
|
+" "Appends newline character to string.
|
|
|
|
|
+" "361DA") "APNDCRLF" ("$ \\-> $'
|
|
|
|
|
+" "Appends carriage return and line feed to
|
|
|
|
|
+string.
|
|
|
|
|
+" "2F31A") "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.
|
|
|
|
|
+" "378FA") "POSCHR" ("$search chr #start \\-> #pos
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "Same entry as <REF>POS$.
|
|
|
|
|
+" "378FA") "POS$REV" ("$ $find #limit \\-> #pos
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "Searches backwards from #limit to #1.
|
|
|
|
|
+Same entry as <REF>POSCHRREV.
|
|
|
|
|
+" "37906") "POSCHRREV" ("$seach chr #start \\-> #pos
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "Same entry as <REF>POS$REV.
|
|
|
|
|
+" "37906") "COERCE$22" ("$ \\-> $'
|
|
|
|
|
+" "If the string is longer than 22 characters,
|
|
|
|
|
+truncates it to 21 characters and appends
|
|
|
|
|
+\"...\".
|
|
|
|
|
+" "25EA0") "Blank$" ("#len \\-> $
|
|
|
|
|
+" "Creates a string with the specified number
|
|
|
|
|
+of spaces.
|
|
|
|
|
+" "2F16D") "PromptIdUtil" ("id ob \\-> $
|
|
|
|
|
+" "Creates string of the form \"id: ob\".
|
|
|
|
|
+" "2EEF0") "SEP$NL" ("$ \\-> $' $''
|
|
|
|
|
+" "Separates string at the first newline. $'' is
|
|
|
|
|
+the substring before the first newline; $'
|
|
|
|
|
+the substring after the first newline.
|
|
|
|
|
+" "25EF8") "^StrCutNchr" ("$ #width \\-> $'
|
|
|
|
|
+" "Replace SPACE chars with NEWLINE in order to
|
|
|
|
|
+fit the text in the given #width. This entry
|
|
|
|
|
+will produce lines longer than#width
|
|
|
|
|
+characters if a single word is longer than
|
|
|
|
|
+that. Used by ViewStrObject. Very fast
|
|
|
|
|
+(bang type).
|
|
|
|
|
+" "09A003" :UBS) "^StrCutNchr2" ("$ #width #lines \\-> $' #lines'
|
|
|
|
|
+" "Replace SPACE chars with NEWLINE in order to
|
|
|
|
|
+fit the text in the given #width. If a
|
|
|
|
|
+single word is longer than #width, the word
|
|
|
|
|
+is cut into pieces. The output will not be
|
|
|
|
|
+longer than #lines lines. #lines' gives the
|
|
|
|
|
+number of lines in $'.
|
|
|
|
|
+" "09B003" :UBS) "SUB$" ("$ #start #end \\-> $'
|
|
|
|
|
+" "Returns substring between specified
|
|
|
|
|
+positions.
|
|
|
|
|
+" "05733") "XEQSUB$" ("$ % %' \\-> $'
|
|
|
|
|
+" "Same as <REF>SUB$ but uses real numbers as
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "2F2C0" :UBS) "#1-SUB$" ("$ #start #end+#1 \\-> $'
|
|
|
|
|
+" "Does #1- and then SUB$.
|
|
|
|
|
+" "3628E") "1_#1-SUB" ("$ #end \\-> $'
|
|
|
|
|
+" "Returns substring with the first #end
|
|
|
|
|
+characters.
|
|
|
|
|
+" "362A2") "1_#1-SUB$" ("$ #end \\-> $'
|
|
|
|
|
+" "Returns substring with the first #end
|
|
|
|
|
+characters.
|
|
|
|
|
+" "362A2") "LAST$" ("$ #start \\-> $'
|
|
|
|
|
+" "Returns substring from the specified start
|
|
|
|
|
+position to the end (inclusive).
|
|
|
|
|
+" "362B6") "#1+LAST$" ("$ #start-#1 \\-> $'
|
|
|
|
|
+" "Returns substring from the specified start
|
|
|
|
|
+position to the end (exclusive).
|
|
|
|
|
+" "362CA") "DEL_END$" ("$ \\-> $'
|
|
|
|
|
+" "Removes the last character from a string.
|
|
|
|
|
+" "29F0C" :UBS) "SUB$SWAP" ("ob $ # #' \\-> $' ob
|
|
|
|
|
+" "SUB$ then SWAP.
|
|
|
|
|
+" "35DA8") "SUB$1#" ("$ #pos \\-> #'
|
|
|
|
|
+" "Returns bint with ASCII code of character at
|
|
|
|
|
+the specified position.
|
|
|
|
|
+" "2A5CA") "EXPAND" ("hxs #nibs \\-> hxs'
|
|
|
|
|
+" "Appends null characters to the string. Since
|
|
|
|
|
+refers to the number of nibbles, you must
|
|
|
|
|
+use a number twice as large as the number
|
|
|
|
|
+of null characters you want appended.
|
|
|
|
|
+" "34C82") "&$" ("$ $' \\-> $+$'
|
|
|
|
|
+" "Concatenates two strings.
|
|
|
|
|
+" "05193") "&$SWAP" ("ob $ $' \\-> $+$' ob
|
|
|
|
|
+" "&$ then SWAP.
|
|
|
|
|
+" "36FF6") "!append$" ("$ $' \\-> $+$'
|
|
|
|
|
+" "Tries &$, if not enough memory does
|
|
|
|
|
+!!append$?.
|
|
|
|
|
+" "353CD") "!insert$" ("$ $' \\-> $'+$
|
|
|
|
|
+" "Does SWAP then <REF>!append$.
|
|
|
|
|
+" "3533C") "!append$SWAP" ("ob $ $' \\-> $+$' ob
|
|
|
|
|
+" "!append$ then SWAP.
|
|
|
|
|
+" "35F6A") "!!append$?" ("$ $' \\-> $+$'
|
|
|
|
|
+" "Attempts append \"in place\" if target is in
|
|
|
|
|
+tempob.
|
|
|
|
|
+" "35369") "!!append$" ("$ $' \\-> $+$'
|
|
|
|
|
+" "Tries appending \"in place\".
|
|
|
|
|
+" "353F7") "!!insert$" ("$ $' \\-> $'+$
|
|
|
|
|
+" "Tries inserting \"in place\".
|
|
|
|
|
+" "353EB") ">H$" ("$ chr \\-> $'
|
|
|
|
|
+" "Prepends character to string
|
|
|
|
|
+" "0525B") ">T$" ("$ chr \\-> $'
|
|
|
|
|
+" "Appends character to string.
|
|
|
|
|
+" "052EE") "APPEND_SPACE" ("$ \\-> $'
|
|
|
|
|
+" "Appends space to string.
|
|
|
|
|
+" "35BD7") "SWAP&$" ("$ $' \\-> $'+$
|
|
|
|
|
+" "Concatenates two strings.
|
|
|
|
|
+" "35346") "TIMESTR" ("%dt %tm \\-> \"dy dt tm\"
|
|
|
|
|
+" "Returns string representation of time, using
|
|
|
|
|
+current format. Example:
|
|
|
|
|
+ \"WED 06/24/98 10:00:45A\"
|
|
|
|
|
+" "2EED3") "AND$" ("$1 $2 \\-> $'
|
|
|
|
|
+" "Logical QANDQ. Errors if strings are not the
|
|
|
|
|
+same length.
|
|
|
|
|
+" "25E7C") "OR$" ("$ $' \\-> $''
|
|
|
|
|
+" "Logical QORQ. Errors if strings are not the
|
|
|
|
|
+same length.
|
|
|
|
|
+" "25EF0") "XOR$" ("$ $' \\-> $''
|
|
|
|
|
+" "Logical QXORQ. Errors if strings are not the
|
|
|
|
|
+same length.
|
|
|
|
|
+" "25F0D") "!NOT$" ("$ $' \\-> $'' ???
|
|
|
|
|
+" "Logical QNOTQ \"in place\".
|
|
|
|
|
+" "2647C" :UBS) "!AND$" ("$ $' \\-> $'' ???
|
|
|
|
|
+" "Logical QANDQ. Does not check if strings are
|
|
|
|
|
+the same length.
|
|
|
|
|
+" "2646D" :UBS) "!OR$" ("$ $' \\-> $'' ???
|
|
|
|
|
+" "Logical QORQ, does not check if strings are the
|
|
|
|
|
+same length.
|
|
|
|
|
+" "26472" :UBS) "!XOR$" ("$ $' \\-> $'' ???
|
|
|
|
|
+" "Logical QXORQ. Does not check if strings are
|
|
|
|
|
+the same length.
|
|
|
|
|
+" "26477" :UBS) "CHARSEDIT" ("\\->
|
|
|
|
|
+" "HP49 character browser. This is an
|
|
|
|
|
+interactive application from which characters
|
|
|
|
|
+can be echoed into the command line.
|
|
|
|
|
+" "2F1A7") "DOSTR>" ("$ \\-> ?
|
|
|
|
|
+" "Internal version of <REF>STR\\->.
|
|
|
|
|
+" "25EB7") "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.
|
|
|
|
|
+" "2EF62") "^algparse" ("$ \\-> ob T
|
|
|
|
|
+$ \\-> $ # #' F
|
|
|
|
|
+" "Tries parsing a string into an object using
|
|
|
|
|
+algebraic mode. If successful, returns object
|
|
|
|
|
+and TRUE, otherwise returns the original
|
|
|
|
|
+string with information about the position of
|
|
|
|
|
+the error, and FALSE.
|
|
|
|
|
+" "00E004") "!*trior" ("F \\-> <SKIP>
|
|
|
|
|
+T T \\-> <COLA>
|
|
|
|
|
+" "" "25E68") "!*triand" ("T T \\->
|
|
|
|
|
+F T \\-> F T <SEMI>
|
|
|
|
|
+" "" "25E67") "tok8cktrior" ("$1 $1 \\-> :: $1 <Ob1> ;
|
|
|
|
|
+$1 $2 \\-> :: $1 <Ob2> <Rest> ;
|
|
|
|
|
+" "" "26206") "tok8trior" ("GNT data $1 $1 \\-> :: GNT data GetNextToken ;
|
|
|
|
|
+GNT data $1 $2 \\-> :: $1 <Ob1> <Rest> ;
|
|
|
|
|
+" "" "261BB") "nultrior" ("NULL$ \\-> :: ;
|
|
|
|
|
+$ \\-> :: $ <Ob1> <Rest> ;
|
|
|
|
|
+" "" "29E67") "GetNextToken" ("hxs-mask $ #start \\-> hxs-mask $ #next $token
|
|
|
|
|
+" "" "25EDB") "getmatchtok" ("hxs-mask $ #loc $_tok \\-> hxs-mask $ #next $match
|
|
|
|
|
+" "" "2F33C") "Parse.1" ("
|
|
|
|
|
+" "" "2EF6A") "Parse.2" ("
|
|
|
|
|
+" "" "2EF6B") "ParseFail" ("ob $parsed #pos $' \\->
|
|
|
|
|
+" "Uses DispBadToken to re-edit the parsed
|
|
|
|
|
+string and displays \"Syntax Error\".
|
|
|
|
|
+" "2EF6E") "ParseFail2" ("
|
|
|
|
|
+" "" "2EF70") "DispBadToken" ("ob $parsed #pos $' \\->
|
|
|
|
|
+" "Re-edits the parsed string, positions the
|
|
|
|
|
+cursor to the location of the error. Used by
|
|
|
|
|
+ParseFail.
|
|
|
|
|
+" "2EF6F") "DispBadToken2" ("
|
|
|
|
|
+" "" "2EF71") "!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.
|
|
|
|
|
+" "2F191") "DcompWidth@" ("\\-> #
|
|
|
|
|
+" "Recalls the width of decompiled strings (in
|
|
|
|
|
+characters).
|
|
|
|
|
+" "2F190") "setStdWid" ("\\->
|
|
|
|
|
+" "Sets DcompWidth to the standard value for
|
|
|
|
|
+stack display, either 19 or 30 characters,
|
|
|
|
|
+depending on system flag 72 (stack minifont).
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -72
|
|
|
|
|
+" "26459") "setStdEditWid" ("\\->
|
|
|
|
|
+" "Sets DcompWidth to the width for editing,
|
|
|
|
|
+either 21 or 32 characters, depending on
|
|
|
|
|
+system flag 73 (edit minifont).
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -73
|
|
|
|
|
+" "2645E") "stkdecomp$w" ("ob \\-> $
|
|
|
|
|
+" "Decompiles for stack display using the
|
|
|
|
|
+current DcompWidth to cut the string if it is
|
|
|
|
|
+too long.
|
|
|
|
|
+" "25F13") "1stkdecomp$w" ("ob \\-> $
|
|
|
|
|
+" "Calls setStdWid and decompiles for stack
|
|
|
|
|
+display (cutting the string if necessary).
|
|
|
|
|
+" "25E6D") "Decomp1Line" ("ob \\-> $
|
|
|
|
|
+" "Same as <REF>1stkdecomp$w.
|
|
|
|
|
+" "2A842") "RPNDecomp1Line" ("ob \\-> $
|
|
|
|
|
+" "Same as <REF>Decomp1Line but enforce RPN mode
|
|
|
|
|
+(system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A904") ">Review$" ("id \\-> $
|
|
|
|
|
+" "Makes a string from the variable name and its
|
|
|
|
|
+contents (decompiled with <REF>Decomp1Line),
|
|
|
|
|
+for display with the review key. If the
|
|
|
|
|
+argument is a command, returns its name.
|
|
|
|
|
+" "25E6F") "DecompStd1Line32" ("ob \\-> $
|
|
|
|
|
+" "Sets 32 as DcompWidth and decompiles using
|
|
|
|
|
+stkdecomp$w.
|
|
|
|
|
+" "2A8E4") "RPNDecompStd1Line32" ("ob \\-> $
|
|
|
|
|
+" "Same as <REF>DecompStd1Line32 but enforce RPN
|
|
|
|
|
+mode (system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A9C4") "DecompStd1Line" ("ob \\-> $
|
|
|
|
|
+" "Calls setStdWid and decompiles, cutting if
|
|
|
|
|
+the string becomes too long.
|
|
|
|
|
+" "2A8C9") "RPNDecompStd1Line" ("ob \\-> $
|
|
|
|
|
+" "Same as <REF>DecompStd1Line but enforce RPN
|
|
|
|
|
+mode (system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A9A4") "Decomp#Disp" ("ob # \\-> $
|
|
|
|
|
+" "Calls setStdWid and decompiles ob (UserRPL
|
|
|
|
|
+components only), breaks the string into
|
|
|
|
|
+lines and returns the first #+1 lines. Used
|
|
|
|
|
+for multiline display in stack level 1.
|
|
|
|
|
+" "2A893") "RPNDecomp#Disp" ("ob # \\-> $
|
|
|
|
|
+" "Same as Decomp#Disp but enforce RPN mode
|
|
|
|
|
+(system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A964") "Decomp#Line" ("ob # \\-> $
|
|
|
|
|
+" "Similar to Decomp#Disp, but the returned
|
|
|
|
|
+string is an internal representation of the
|
|
|
|
|
+different lines to be displayed. Used for
|
|
|
|
|
+multiline display in stack level 1.
|
|
|
|
|
+" "2A878") "RPNDecomp#Line" ("ob # \\-> $
|
|
|
|
|
+" "Same as Decomp#Line but enforce RPN mode
|
|
|
|
|
+(system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A944") "editdecomp$w" ("ob \\-> $
|
|
|
|
|
+" "Decompiles entire object for editing. It
|
|
|
|
|
+only decompiles the UserRPL components. Some
|
|
|
|
|
+System RPL entries like <REF>TakeOver are simply
|
|
|
|
|
+skipped, others are written as \"External\".
|
|
|
|
|
+Breaks the resulting strings into lines using
|
|
|
|
|
+the current DcompWidth.
|
|
|
|
|
+" "25F11") "EDITDECOMP$" ("ob \\-> $
|
|
|
|
|
+" "Calls setStdEditWid and the decompiles for
|
|
|
|
|
+editing like <REF>editdecomp$w.
|
|
|
|
|
+" "25ECE") "DecompEdit" ("ob \\-> $
|
|
|
|
|
+" "Same as EDITDECOMP$.
|
|
|
|
|
+" "2A85D") "RPNDecompEdit" ("ob \\-> $
|
|
|
|
|
+" "Same as DecompEdit but enforce RPN mode
|
|
|
|
|
+(system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A924") "AlgDecomp" ("ob \\-> $
|
|
|
|
|
+" "Calls <REF>DecompEdit with a few checks
|
|
|
|
|
+around it.
|
|
|
|
|
+" "2AA43") "DECOMP$" ("ob \\-> $
|
|
|
|
|
+" "Calls <REF>setStdWid and decompiles entire
|
|
|
|
|
+object (UserRPL components only). Breaks the
|
|
|
|
|
+string into lines using DcompWidth as width.
|
|
|
|
|
+" "25EAA") "Ob,$>$'" ("ob $ \\-> \"ob$\"
|
|
|
|
|
+" "Applies <REF>DECOMP$ to ob and concatenates
|
|
|
|
|
+with the string.
|
|
|
|
|
+" "39CB3" :UBS) "$,Ob>$'" ("$ ob \\-> \"$ob\"
|
|
|
|
|
+" "Applies <REF>DECOMP$ to ob and concatenates
|
|
|
|
|
+with the string.
|
|
|
|
|
+" "39C9F" :UBS) "DO>STR" ("$ \\-> $
|
|
|
|
|
+ob \\-> $
|
|
|
|
|
+" "Internal version of \\->STR.
|
|
|
|
|
+" "25EB1") "^DO>STRID" ("id/ob \\-> $
|
|
|
|
|
+" "Like <REF>DO>STR but without quotes for id.
|
|
|
|
|
+" "1A7006" :wasCSys) "DecompEcho" ("ob \\-> $
|
|
|
|
|
+" "Calls setStdEditWid and decompiles the entire
|
|
|
|
|
+object (UserRPL only) into a single line.
|
|
|
|
|
+" "2A8AE") "RPNDecompEcho" ("ob \\-> $
|
|
|
|
|
+" "Same as <REF>DecompEcho but enforce RPN mode
|
|
|
|
|
+(system flag 95 clear) during execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A984") "Decomp%Short" ("% #width \\-> $
|
|
|
|
|
+" "Decompiles a real number into a string of the
|
|
|
|
|
+given #width. It will QdropQ less significant
|
|
|
|
|
+digits or add zeros as needed, but will also
|
|
|
|
|
+exceed #width when necessary. E.g. \"-1.e-33\"
|
|
|
|
|
+cannot be written with less than 7
|
|
|
|
|
+characters, so even if #width is less, 7
|
|
|
|
|
+chars will be used. Q%0Q is always decompiled
|
|
|
|
|
+as \"0\".
|
|
|
|
|
+" "2F1BF") "^FSTR1" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by stkdecomp$w,
|
|
|
|
|
+1stkdecomp$w, Decomp1Line, DecompStd1Line32.
|
|
|
|
|
+DcompWidth must be set before this is called.
|
|
|
|
|
+" "001004") "^FSTR2" ("
|
|
|
|
|
+" "" "002004") "^FSTR3" ("ob # \\-> $
|
|
|
|
|
+" "The decompiler used by Decomp#Line.
|
|
|
|
|
+DcompWidth must be set before this is called.
|
|
|
|
|
+" "003004") "^FSTR4" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by editdecomp$w,
|
|
|
|
|
+DecompEdit, EDITDECOMP$. DcompWidth must be
|
|
|
|
|
+set before this is called.
|
|
|
|
|
+" "004004") "^FSTR5" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by DecompEcho.
|
|
|
|
|
+DcompWidth must be set before this is called.
|
|
|
|
|
+" "005004") "^FSTR6" ("ob # \\-> $
|
|
|
|
|
+" "The decompiler used by Decomp#Line.
|
|
|
|
|
+DcompWidth must be set before this is called.
|
|
|
|
|
+" "006004") "^FSTR7" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by DO>STR. DcompWidth
|
|
|
|
|
+must be set before this is called.
|
|
|
|
|
+" "007004") "^FSTR8" ("
|
|
|
|
|
+" "" "008004") "^FSTR9" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by DecompStd1Line.
|
|
|
|
|
+DcompWidth must be set before this is called.
|
|
|
|
|
+" "009004") "^FSTR10" ("
|
|
|
|
|
+" "" "00A004") "^FSTR11" ("
|
|
|
|
|
+" "" "00B004") "^FSTR12" ("
|
|
|
|
|
+" "" "00C004") "^FSTR13" ("ob \\-> $
|
|
|
|
|
+" "The decompiler used by DECOMP$. DcompWidth
|
|
|
|
|
+must be set before this is called.
|
|
|
|
|
+" "00D004") "palrompdcmp" ("romptr \\-> $ T
|
|
|
|
|
+" "Decompiles a rompointer for the UserRPL
|
|
|
|
|
+stack. If it is a named rompointer, returns
|
|
|
|
|
+the name. Otherwise returns \"XLIB n m\".
|
|
|
|
|
+" "35B82") "NULL$?" ("ob \\-> flag
|
|
|
|
|
+" "" "0556F") "DUPNULL$?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "36252") "$>$?" ("$ $' \\-> flag
|
|
|
|
|
+" "String comparizon, alphabetically by
|
|
|
|
|
+character numbers.
|
|
|
|
|
+" "26436" :UBS) "CkChr00" ("$ \\-> $ flag
|
|
|
|
|
+" "Returns FALSE if string contains any null
|
|
|
|
|
+characters.
|
|
|
|
|
+" "2F321") "hxsB010" ("HXS 4 B010
|
|
|
|
|
+" "" "3ABD2" :UBS :NOSDIAG :NOETAB) "CHSpdata" ("HXS 4 0108
|
|
|
|
|
+" "" "399ED" :UBS :NOSDIAG :NOETAB) "hxs0105" ("HXS 4 0105
|
|
|
|
|
+" "" "3CB4A" :UBS :NOSDIAG :NOETAB) "PDataNSQRT" ("HXS 4 010C
|
|
|
|
|
+" "" "3A4B0" :UBS :NOSDIAG :NOETAB) "hxs70107" ("HXS 5 70107
|
|
|
|
|
+" "" "39C79" :UBS :NOSDIAG :NOETAB) "hxs80108" ("HXS 5 80108
|
|
|
|
|
+" "" "39F2E" :UBS :NOSDIAG :NOETAB) "hxs80108" ("HXS 5 80108
|
|
|
|
|
+" "" "3B002" :UBS :NOSDIAG :NOETAB) "hxs50105" ("HXS 5 50105
|
|
|
|
|
+" "" "3CA52" :UBS :NOSDIAG :NOETAB) "hxs40104" ("HXS 5 40104
|
|
|
|
|
+" "" "3CAD8" :UBS :NOSDIAG :NOETAB) "hxs60106" ("HXS 5 60106
|
|
|
|
|
+" "" "3CCA5" :UBS :NOSDIAG :NOETAB) "ParseDataN^" ("HXS 5 A0109
|
|
|
|
|
+" "" "3A17F" :UBS :NOSDIAG :NOETAB) "hxsA0127" ("HXS 5 A0127
|
|
|
|
|
+" "" "3DB8F" :UBS :NOSDIAG :NOETAB) "hxs014250" ("HXS 6 014250
|
|
|
|
|
+" "" "3D719" :UBS :NOSDIAG :NOETAB) "ParseDataPdiv" ("HXS 7 8014050
|
|
|
|
|
+" "" "3A07D" :UBS :NOSDIAG :NOETAB) "ParseDataP^" ("HXS 7 0405109
|
|
|
|
|
+" "" "3A18E" :UBS :NOSDIAG :NOETAB) "hxs0134250" ("HXS 7 0134250
|
|
|
|
|
+" "" "3D28F" :UBS :NOSDIAG :NOETAB) "hxs014360950" ("HXS 9 014360950
|
|
|
|
|
+" "" "3D7C0" :UBS :NOSDIAG :NOETAB) "hxs0140626250" ("HXS A 0140626250
|
|
|
|
|
+" "" "39666" :UBS :NOSDIAG :NOETAB) "hxs2214370B50" ("HXS A 2214370B50
|
|
|
|
|
+" "" "3D619" :UBS :NOSDIAG :NOETAB) "INTGPDATA" ("HXS C 014060626350
|
|
|
|
|
+" "" "3D497" :UBS :NOSDIAG :NOETAB) "SUMETCPDATA" ("HXS C 014370606250
|
|
|
|
|
+" "" "3D549" :UBS :NOSDIAG :NOETAB) "#>HXS" ("# \\-> hxs
|
|
|
|
|
+" "Length will be five.
|
|
|
|
|
+" "059CC") "%>#" ("% \\-> hxs
|
|
|
|
|
+" "Converts real number into hxs. Should be
|
|
|
|
|
+called %>HXS.
|
|
|
|
|
+" "2EFCB") "WORDSIZE" ("\\-> #
|
|
|
|
|
+" "Returns the current wordsize as a bint.
|
|
|
|
|
+" "2EFBE") "dostws" ("# \\->
|
|
|
|
|
+" "Sets the current wordsize.
|
|
|
|
|
+" "2EFAA") "NULLHXS" ("HXS 0
|
|
|
|
|
+" "Puts a null hxs in the stack.
|
|
|
|
|
+" "055D5") "NULLHXS?" ("hxs \\-> flag
|
|
|
|
|
+" "Returns TRUE if the input is a null hxs.
|
|
|
|
|
+" "05566" :UBS) "&HXS" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Appends hxs'' to hxs'.
|
|
|
|
|
+" "0518A") "EXPAND" ("hxs #nibs \\-> hxs'
|
|
|
|
|
+" "Appends #nibs zero nibbles to the hxs.
|
|
|
|
|
+" "34C82") "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.
|
|
|
|
|
+" "2EFB9") "bit%#+" ("% hxs \\-> hxs'
|
|
|
|
|
+" "Adds real to hxs, returns hxs.
|
|
|
|
|
+" "2EFC8") "bit#%+" ("hxs % \\-> hxs'
|
|
|
|
|
+" "Adds real to hxs, returns hxs.
|
|
|
|
|
+" "2EFC9") "bit-" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Subtracts hxs2 from hxs1.
|
|
|
|
|
+" "2EFBA") "bit%#-" ("% hxs \\-> hxs'
|
|
|
|
|
+" "Subtracts hxs from real, returns hxs.
|
|
|
|
|
+" "2EFC6") "bit#%-" ("hxs % \\-> hxs'
|
|
|
|
|
+" "Subtracts real from hxs, returns hxs.
|
|
|
|
|
+" "2EFC7") "bit*" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Multiplies two hxs.
|
|
|
|
|
+" "2EFBC") "bit%#*" ("% hxs \\-> hxs'
|
|
|
|
|
+" "Multiplies real by hxs, returns hxs.
|
|
|
|
|
+" "2EFC4") "bit#%*" ("hxs % \\-> hxs'
|
|
|
|
|
+" "Multiplies hxs by real, returns hxs.
|
|
|
|
|
+" "2EFC5") "bit/" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Divides hxs1 by hxs2.
|
|
|
|
|
+" "2EFBD") "bit%#/" ("% hxs \\-> hxs'
|
|
|
|
|
+" "Divides real by hxs, returns hxs.
|
|
|
|
|
+" "2EFC2") "bit#%/" ("hxs % \\-> hxs'
|
|
|
|
|
+" "Divides hxs by real, returns hxs.
|
|
|
|
|
+" "2EFC3") "bitAND" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Bitwise QANDQ.
|
|
|
|
|
+" "2EFAC") "bitOR" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Bitwise QORQ.
|
|
|
|
|
+" "2EFAD") "bitXOR" ("hxs hxs' \\-> hxs''
|
|
|
|
|
+" "Bitwise QXORQ.
|
|
|
|
|
+" "2EFAE") "bitNOT" ("hxs \\-> hxs'
|
|
|
|
|
+" "Bitwise QNOTQ.
|
|
|
|
|
+" "2EFAF") "bitASR" ("hxs \\-> hxs'
|
|
|
|
|
+" "Arithmetic shift one bit to the right. The
|
|
|
|
|
+most significant bit (the sign) does not
|
|
|
|
|
+change.
|
|
|
|
|
+" "2EFB8") "bitRL" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts circularly one bit to the left.
|
|
|
|
|
+" "2EFB6") "bitRLB" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts circularly one byte to the left
|
|
|
|
|
+" "2EFB7") "bitRR" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts circularly one bit to the right.
|
|
|
|
|
+" "2EFB4") "bitRRB" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts circularly one byte to the right.
|
|
|
|
|
+" "2EFB5") "bitSL" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts one bit to the left.
|
|
|
|
|
+" "2EFB0") "bitSLB" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts one byte to the left.
|
|
|
|
|
+" "2EFB1") "bitSR" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts one bit to the right.
|
|
|
|
|
+" "2EFB2") "bitSRB" ("hxs \\-> hxs'
|
|
|
|
|
+" "Shifts one byte to the right.
|
|
|
|
|
+" "2EFB3") "HXS==HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "== test
|
|
|
|
|
+" "2EFCC") "HXS#HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "\\=/ test
|
|
|
|
|
+" "2F0EE") "HXS<HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "< test
|
|
|
|
|
+" "2EFCF") "HXS>HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "> test
|
|
|
|
|
+" "2EFCD") "HXS>=HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "\\>= test
|
|
|
|
|
+" "2EFCE") "HXS<=HXS" ("hxs hxs' \\-> %flag
|
|
|
|
|
+" "\\<= test
|
|
|
|
|
+" "2F0EF") ">TAG" ("ob $tag \\-> tagged
|
|
|
|
|
+" "Tags an object.
|
|
|
|
|
+" "05E81") "USER$>TAG" ("ob $tag \\-> tagged
|
|
|
|
|
+" "Maximum of 255 characters in string.
|
|
|
|
|
+" "2F266") "%>TAG" ("ob % \\-> tagged
|
|
|
|
|
+" "Converts real to string using current display
|
|
|
|
|
+mode and tags object.
|
|
|
|
|
+" "2F223") "ID>TAG" ("ob id/lam \\-> tagged
|
|
|
|
|
+" "Tags object with identifier or lam.
|
|
|
|
|
+" "05F2E") "{}>TAG" ("{ id ob } \\-> tagged
|
|
|
|
|
+" "" "05E9F" :UBS) "TAGOBS" ("ob $tag \\-> tagged
|
|
|
|
|
+ob.. { $.. } \\-> tagged...
|
|
|
|
|
+" "Tags one or more objects.
|
|
|
|
|
+" "37B04") "TAG>" ("tagged \\-> ob $tag
|
|
|
|
|
+" "" "05EC9" :UBS) "STRIPTAGS" ("tagged \\-> ob
|
|
|
|
|
+" "Strips all tags from the object.
|
|
|
|
|
+" "37ABE") "STRIPTAGSl2" ("tagged ob' \\-> ob ob'
|
|
|
|
|
+" "Strips all tags from the object in level two.
|
|
|
|
|
+" "37AEB") "ARSIZE" ("[] \\-> #
|
|
|
|
|
+" "Returns number of elements as a bint.
|
|
|
|
|
+" "03562" :UBS) "DIMLIMITS" ("[] \\-> {#n #m}
|
|
|
|
|
+" "Returns list of array dimensions.
|
|
|
|
|
+" "035A9" :UBS) "GETATELN" ("# [] \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Gets one element from array.
|
|
|
|
|
+" "0371D") "ARRYEL?" ("{#n #m} [] \\-> # T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Returns TRUE if array element exists.
|
|
|
|
|
+" "03685" :UBS) "FINDELN" ("{} A \\-> # flag
|
|
|
|
|
+" "Return index # of element {} in array.
|
|
|
|
|
+" "03685" :UBS) "^MDIMS" ("[[]] \\-> #rows #cols T
|
|
|
|
|
+[] \\-> #elem F
|
|
|
|
|
+" "Returns the size of an array. Equivalent to
|
|
|
|
|
+the HP48 command MDIMS.
|
|
|
|
|
+" "16D006" :wasCSys) "MDIMSDROP" ("[2D] \\-> #m #n
|
|
|
|
|
+" "MDIMS followed by DROP.
|
|
|
|
|
+" "35FD8") "^DIMLIMITS" ("[] \\-> { # }
|
|
|
|
|
+[[]] \\-> {# #}
|
|
|
|
|
+" "Returns the size of an array, like the User
|
|
|
|
|
+command SIZE, but the lengths are bints and
|
|
|
|
|
+not reals. Equivalent to the HP48 command
|
|
|
|
|
+DIMLIMITS.
|
|
|
|
|
+" "16E006" :wasCSys) "^ARSIZE" ("[] \\-> #
|
|
|
|
|
+" "Returns max # in an array.
|
|
|
|
|
+" "35E006" :CSys) "OVERARSIZE" ("[] ob \\-> [] ob #elts
|
|
|
|
|
+" "Does OVER then <REF>ARSIZE.
|
|
|
|
|
+" "36183") "PULLREALEL" ("[%] # \\-> [%] %
|
|
|
|
|
+" "Gets real element.
|
|
|
|
|
+" "260F8") "PULLCMPEL" ("[C%] # \\-> [C%] C%
|
|
|
|
|
+" "Gets complex element.
|
|
|
|
|
+" "260F3") "PUTEL" ("[%] % # \\-> [%]'
|
|
|
|
|
+[C%] C% # \\-> [C%]'
|
|
|
|
|
+" "Puts element at specified position. Converts
|
|
|
|
|
+to \"short\" before. Warning: no copy to
|
|
|
|
|
+tempob first.
|
|
|
|
|
+" "26102") "PUTREALEL" ("[%] % # \\-> [%]'
|
|
|
|
|
+" "Puts real element at specified position.
|
|
|
|
|
+Warning: no copy to tempob first.
|
|
|
|
|
+" "26107") "PUTCMPEL" ("[C%] C% # \\-> [C%]'
|
|
|
|
|
+" "Puts complex element at specified position.
|
|
|
|
|
+Warning: no copy to tempob first.
|
|
|
|
|
+" "260FD") "^MATTRAN" ("M \\-> M'
|
|
|
|
|
+" "Matrix transposition.
|
|
|
|
|
+" "33B006" :wasCSys) "^Yext" ("V2 V1 \\-> ob
|
|
|
|
|
+" "Scalar product of symbolic vectors, no check.
|
|
|
|
|
+" "331006" :wasCSys) "MATR>C" ("[%re] [%im] \\-> [C%]
|
|
|
|
|
+" "Creates complex matrix from real and
|
|
|
|
|
+imaginary parts.
|
|
|
|
|
+" "2F1D5" :UBS) "MATC>R" ("[C%] \\-> [%re] [%im]
|
|
|
|
|
+" "Explodes complex matrix into real and
|
|
|
|
|
+imaginary parts.
|
|
|
|
|
+" "2F1D6" :UBS) "^BESTMATRIXTYPE" ("ob \\-> ob
|
|
|
|
|
+" "Converts symbolic matrix with real/cmplex
|
|
|
|
|
+entries to a numeric array.
|
|
|
|
|
+" "169006" :wasCSys) "^CKNUMARRY" ("ob \\-> ob
|
|
|
|
|
+" "Tests if ob is a numeric array. Tries to
|
|
|
|
|
+convert symbolic array to numeric array.
|
|
|
|
|
+" "172006" :wasCSys) "^MATRIX2ARRAY" ("[] \\-> []
|
|
|
|
|
+[[]] \\-> [[]]
|
|
|
|
|
+" "Tries to convert a symbolic matrix to a
|
|
|
|
|
+numeric one.
|
|
|
|
|
+" "178006" :wasCSys) "^ListToArry" ("{}/{{}} \\-> []/[[]] TRUE
|
|
|
|
|
+ \\-> FALSE
|
|
|
|
|
+" "If possible, converts list of lists to normal
|
|
|
|
|
+array (containing only real or complex
|
|
|
|
|
+numbers) and returns TRUE. Otherwise, returns
|
|
|
|
|
+FALSE.
|
|
|
|
|
+" "001007" :wasCSys) "MAKEARRY" ("{#n #m} ob \\-> []
|
|
|
|
|
+" "Makes array with all elements initialized to
|
|
|
|
|
+ob.
|
|
|
|
|
+" "03442" :UBS) "^XEQ>ARRY" ("ob1...obn {%n} \\-> []
|
|
|
|
|
+ob11...obmn {%m %n} \\-> [[mxn]]
|
|
|
|
|
+" "Builds a matrix a la \\->ARRY.
|
|
|
|
|
+" "17F006" :wasCSys) "^XEQ>ARRAY1" ("
|
|
|
|
|
+" "" "180006" :wasCSys) "^" ("" "Explodes a matrix a la \\->ARRY.
|
|
|
|
|
+" "17C006" :wasCSys) "^ArryToMatrix" ("[] \\-> M
|
|
|
|
|
+" "Converts array to symbolic array.
|
|
|
|
|
+" "002007") "STATCLST" ("\\->
|
|
|
|
|
+" "Clears \\GSDAT.
|
|
|
|
|
+" "2EEDA") "STATN" ("\\-> N
|
|
|
|
|
+" "Internal N\\GS.
|
|
|
|
|
+" "2EEDC") "STATSMIN" ("\\-> %
|
|
|
|
|
+" "Internal MIN\\GS.
|
|
|
|
|
+" "2EEDF") "STATSMAX" ("\\-> %
|
|
|
|
|
+" "Internal MAX\\GS.
|
|
|
|
|
+" "2EEDD") "STATMEAN" ("\\-> %
|
|
|
|
|
+\\-> []
|
|
|
|
|
+" "Internal MEAN.
|
|
|
|
|
+" "2EEDE") "STATSTDEV" ("\\-> %
|
|
|
|
|
+\\-> []
|
|
|
|
|
+" "Internal SDEV.
|
|
|
|
|
+" "2EEE0") "STATTOT" ("\\-> %
|
|
|
|
|
+\\-> []
|
|
|
|
|
+" "Internal TOT.
|
|
|
|
|
+" "2EEE1") "STATVAR" ("\\-> %
|
|
|
|
|
+\\-> []
|
|
|
|
|
+" "Internal VAR.
|
|
|
|
|
+" "2EEE2") "ListIntSlp" ("\\-> {}
|
|
|
|
|
+" "List with the two strings \"Intercept\" and
|
|
|
|
|
+\"Slope\".
|
|
|
|
|
+" "3DF92" :UBS) "SIbasis" ("{ 1_kg 1_m... }
|
|
|
|
|
+" "Returns a list of the 10 base units of the
|
|
|
|
|
+HP49G.
|
|
|
|
|
+" "2D781" :UBS) "unit_kg" ("1_kg
|
|
|
|
|
+" "" "2D837" :UBS) "unit_m" ("1_m
|
|
|
|
|
+" "" "2D863" :UBS) "unit_A" ("1_A
|
|
|
|
|
+" "" "2D883" :UBS) "unit_s" ("1_s
|
|
|
|
|
+" "" "2D8A3" :UBS) "unit_K" ("1_K
|
|
|
|
|
+" "" "2D8C3" :UBS) "unit_cd" ("1_cd
|
|
|
|
|
+" "" "2D8E3" :UBS) "unit_mol" ("1_mol
|
|
|
|
|
+" "" "2D905" :UBS) "unit_r" ("1_r
|
|
|
|
|
+" "" "2D7A9" :UBS) "unit_sr" ("1_sr
|
|
|
|
|
+" "" "2D7C9" :UBS) "unit_?" ("1_?
|
|
|
|
|
+" "" "2D929" :UBS) "unit_R" ("1_\\^oR
|
|
|
|
|
+" "" "2D7F5" :UBS) "um*" ("* marker
|
|
|
|
|
+" "" "2D74F") "um/" ("/ marker
|
|
|
|
|
+" "" "2D759") "um^" ("^ marker
|
|
|
|
|
+" "" "2D763") "umP" ("Char prefix operator
|
|
|
|
|
+" "" "2D76D") "umEND" ("Unit end operator
|
|
|
|
|
+" "" "2D777") "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
|
|
|
|
|
+" "2F099") "UM>U" ("% u \\-> u'
|
|
|
|
|
+" "Replaces number part of unit.
|
|
|
|
|
+" "2F07A") "UMCONV" ("u1 u2 \\-> u1'
|
|
|
|
|
+" "Change units of unit1 to units of unit2.
|
|
|
|
|
+" "2F08C") "UMSI" ("u \\-> u'
|
|
|
|
|
+" "Equivalent to user word UBASE.
|
|
|
|
|
+" "2F090") "UMU>" ("u \\-> % u'
|
|
|
|
|
+" "Returns number and normalized part of unit.
|
|
|
|
|
+" "2F095") "UNIT>$" ("u \\-> $
|
|
|
|
|
+" "Converts unit to string.
|
|
|
|
|
+" "2F019") "UMFACT" ("u1 u2 \\-> u
|
|
|
|
|
+" "Equivalent to user word UFACT.
|
|
|
|
|
+" "3900B" :UBS) "U>nbr" ("u \\-> %
|
|
|
|
|
+" "Returns number part of unit.
|
|
|
|
|
+" "2F07B") "Unbr>U" ("u % \\-> u'
|
|
|
|
|
+" "Replaces number part of unit.
|
|
|
|
|
+" "2F098") "TempConv" ("???
|
|
|
|
|
+" "Used by UMCONV for the conversion of
|
|
|
|
|
+temperature units.
|
|
|
|
|
+" "2F09A") "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.
|
|
|
|
|
+" "25EE4") "UM+" ("u u' \\-> u''
|
|
|
|
|
+" "" "2F081") "UM-" ("u u' \\-> u''
|
|
|
|
|
+" "" "2F082") "UM*" ("u u' \\-> u''
|
|
|
|
|
+" "" "2F080") "UM/" ("u u' \\-> u''
|
|
|
|
|
+" "" "2F083") "UM^" ("u % \\-> u'
|
|
|
|
|
+" "" "2F097") "UM%" ("u %percent \\-> u'
|
|
|
|
|
+" "" "2F07D") "SWAPUM%" ("%percent u \\-> u'
|
|
|
|
|
+" "" "3B2A6" :UBS) "UM%CH" ("u u' \\-> %
|
|
|
|
|
+" "" "2F07E") "UM%T" ("u u' \\-> %
|
|
|
|
|
+" "" "2F07F") "UMMIN" ("u u' \\-> u?
|
|
|
|
|
+" "" "2F08F") "UMMAX" ("u u' \\-> u?
|
|
|
|
|
+" "" "2F08E") "UMXROOT" ("u u' \\-> u''
|
|
|
|
|
+" "" "2F096") "SWAPUMXROOT" ("u u' \\-> u''
|
|
|
|
|
+" "DOes SWAP then <REF>UMXROOT.
|
|
|
|
|
+" "3A2FA" :UBS) "UMABS" ("u \\-> u'
|
|
|
|
|
+" "" "2F08A") "UMCHS" ("u \\-> u'
|
|
|
|
|
+" "" "2F08B") "UMSQ" ("u \\-> u'
|
|
|
|
|
+" "" "2F092") "UMSQRT" ("u \\-> u'
|
|
|
|
|
+" "" "2F093") "UMSIGN" ("u \\-> %
|
|
|
|
|
+" "" "2D949") "UMIP" ("u \\-> u'
|
|
|
|
|
+" "" "2D95D") "UMFP" ("u \\-> u'
|
|
|
|
|
+" "" "2D971") "UMFLOOR" ("u \\-> u'
|
|
|
|
|
+" "" "2D985") "UMCEIL" ("u \\-> u'
|
|
|
|
|
+" "" "2D999") "UMRND" ("u \\-> u'
|
|
|
|
|
+" "" "2D9CB") "UMTRC" ("u \\-> u'
|
|
|
|
|
+" "" "2D9EE") "UMCOS" ("u \\-> u'
|
|
|
|
|
+" "" "2F08D") "UMSIN" ("u \\-> u'
|
|
|
|
|
+" "" "2F091") "UMTAN" ("u \\-> u'
|
|
|
|
|
+" "" "2F094") "UM=?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F087") "UM#?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F07C") "UM<?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F086") "UM>?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F089") "UM<=?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F085") "UM>=?" ("u u' \\-> %flag
|
|
|
|
|
+" "" "2F088") "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.]
|
|
|
|
|
+" "2F076") "&COMP" ("comp comp' \\-> comp''
|
|
|
|
|
+" "Concatenates two composites.
|
|
|
|
|
+" "0521F") ">TCOMP" ("comp ob \\-> comp+ob
|
|
|
|
|
+" "Adds ob to tail (end) of composite.
|
|
|
|
|
+" "052FA") "#>TCOMP+1" ("comp # \\-> comp&# #+1
|
|
|
|
|
+" "Adds bint to tail of composite and increases
|
|
|
|
|
+bint by one
|
|
|
|
|
+" "08E33" :UBS) ">HCOMP" ("comp ob \\-> ob+comp
|
|
|
|
|
+" "Adds ob to head (beginning) of composite.
|
|
|
|
|
+" "052C6") "!>HCOMP" ("comp ob \\-> ob+comp
|
|
|
|
|
+" "Tries do to >HCOMP in place???
|
|
|
|
|
+" "2949D" :UBS) "!>HCOMPcopy" ("comp ob \\-> ob+comp
|
|
|
|
|
+" "Calls <REF>!PTR>HCOMP if <REF>INHARDROM?, otherwise
|
|
|
|
|
+does >TOPTEMP on both args and then <REF>!?HCOMP.
|
|
|
|
|
+" "294CF" :UBS) "!&HCOMP" ("comp ob \\-> ob+comp
|
|
|
|
|
+" ">HCOMP in place?
|
|
|
|
|
+" "29501" :UBS) "!PTR>HCOMP" ("comp PTR \\-> PTR+comp
|
|
|
|
|
+" "Can be used if PTR is in HARDROM.
|
|
|
|
|
+" "295BA" :UBS) "SWAP>HCOMP" ("ob comp \\-> ob+comp
|
|
|
|
|
+" "Does SWAP then >HCOMP.
|
|
|
|
|
+" "39C8B" :UBS) "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.
|
|
|
|
|
+" "361C6") "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") "TWONTHCOMPDROP" ("comp \\-> ob2
|
|
|
|
|
+" "Gets the second element of composite.
|
|
|
|
|
+" "2825E" :UBS) "^LASTCOMP" ("comp \\-> ob
|
|
|
|
|
+" "Gets the last element of composite. Does
|
|
|
|
|
+<REF>DUPLENCOMP then <REF>NTHCOMPDROP.
|
|
|
|
|
+" "2BC006" :wasCSys) "LENCOMP" ("comp \\-> #n
|
|
|
|
|
+" "Returns length of composite (number of
|
|
|
|
|
+objects).
|
|
|
|
|
+" "0567B") "DUPLENCOMP" ("comp \\-> comp #n
|
|
|
|
|
+" "Does DUP then <REF>LENCOMP.
|
|
|
|
|
+" "3627A") "NULLCOMP?" ("comp \\-> flag
|
|
|
|
|
+" "If the composite is empty, returns TRUE.
|
|
|
|
|
+" "055B7") "DUPNULLCOMP?" ("comp \\-> comp flag
|
|
|
|
|
+" "Does DUP then <REF>NULLCOMP?.
|
|
|
|
|
+" "36266") "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 <REF>NTHELCOMP then DROP.
|
|
|
|
|
+" "35BC3") "NTHCOMDDUP" ("comp #i \\-> ob ob
|
|
|
|
|
+" "Does <REF>NTHCOMPDROP then DUP.
|
|
|
|
|
+" "35D58") "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 ;
|
|
|
|
|
+" "376EE") "EQUALPOSCOMP" ("comp ob \\-> #pos
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "POSCOMP with EQUAL as test.
|
|
|
|
|
+" "3776B") "NTHOF" ("ob comp \\-> #i
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "Does SWAP then <REF>EQUALPOSCOMP.
|
|
|
|
|
+" "37784") "^ListPos" ("ob {} \\-> #i / #0
|
|
|
|
|
+" "Equivalent to NTHOF, but faster. However, it
|
|
|
|
|
+only works for lists.
|
|
|
|
|
+" "0FD006" :wasCSys) "#=POSCOMP" ("comp # \\-> #i
|
|
|
|
|
+ \\-> #0
|
|
|
|
|
+" "POSCOMP with #= as test.
|
|
|
|
|
+" "37752") "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.
|
|
|
|
|
+" "376B7") "Embedded?" ("ob1 ob2 \\-> flag
|
|
|
|
|
+" "Returns TRUE if ob2 is embedded in, or is the
|
|
|
|
|
+same as, ob1. Otherwise returns FALSE.
|
|
|
|
|
+" "371B3") "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 ;
|
|
|
|
|
+" "37798") "Find1stT.1" ("
|
|
|
|
|
+" "Recursive internal function for Find1stTrue.
|
|
|
|
|
+" "25F2C") "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 ;
|
|
|
|
|
+" "377C5") "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.
|
|
|
|
|
+" "377DE") "EQLookup" ("ob comp \\-> nextob T
|
|
|
|
|
+ \\-> ob F
|
|
|
|
|
+" "Lookup with EQ as test.
|
|
|
|
|
+" "37829") "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.
|
|
|
|
|
+" "37B54") "COMPN" ("obn..ob1 #n #prolog \\-> comp
|
|
|
|
|
+" "" "05331" :UBS) "{}N" ("obn..ob1 #n \\-> { obn..ob1 }
|
|
|
|
|
+" "" "05459") "::N" ("ob1..obn #n \\-> :: ob1..obn ;
|
|
|
|
|
+" "" "05445") "SYMBN" ("ob1..obn #n \\-> symb
|
|
|
|
|
+" "Build a symbolic object.
|
|
|
|
|
+" "0546D") "top&Cr" ("meta1 meta2 \\-> symb
|
|
|
|
|
+" "Does top& then <REF>SYMBN: .
|
|
|
|
|
+" "36F8D") "ONESYMBN" ("ob1..obn #n \\-> symb
|
|
|
|
|
+" "" "286F6" :UBS) "EXTN" ("ob1..obn #n \\-> u
|
|
|
|
|
+" "Builds a unit object.
|
|
|
|
|
+" "05481") "P{}N" ("ob1..obn #n \\-> {}
|
|
|
|
|
+" "Build list with possible garbage collection.
|
|
|
|
|
+" "293F8") "P::N" ("ob1..obn #n \\-> seco
|
|
|
|
|
+" "Build seco with possible garbage collection.
|
|
|
|
|
+" "2942F" :UBS) "PSYMBN" ("ob1..obn #n \\-> sym
|
|
|
|
|
+" "Build symb with possible garbage collection.
|
|
|
|
|
+" "293C1" :UBS) "INNERCOMP" ("comp \\-> obn..ob1 #n
|
|
|
|
|
+" "" "054AF") "DUPINCOMP" ("comp \\-> comp obn..ob1 #n
|
|
|
|
|
+" "" "3622A") "SWAPINCOMP" ("comp obj \\-> obj obn..ob1 #n
|
|
|
|
|
+" "" "3623E") "INCOMPDROP" ("comp \\-> obn..ob1
|
|
|
|
|
+" "" "35BAF") "INNERDUP" ("comp \\-> obn..ob1 #n #n
|
|
|
|
|
+" "" "35C68") "ICMPDRPRTDRP" ("comp \\-> obn...ob4 ob2 ob1
|
|
|
|
|
+" "Does <REF>INCOMPDROP then ROTDROP.
|
|
|
|
|
+" "2F0EC") "XEQLIST>" ("comp \\-> obn..ob1 %n
|
|
|
|
|
+" "" "3BADA" :UBS) "INNER#1=" ("comp \\-> obn..ob1 flag
|
|
|
|
|
+" "" "366E9") "^SYMBINCOMP" ("symb \\-> ob1 .. obN #n
|
|
|
|
|
+ob \\-> ob #1
|
|
|
|
|
+{} \\-> {} #1
|
|
|
|
|
+" "Explodes symbolic object into meta. Other
|
|
|
|
|
+objects are converted into one-object metas
|
|
|
|
|
+by pushing #1 into the stack.
|
|
|
|
|
+" "157006" :wasCSys) "^2SYMBINCOMP" ("ob1 ob2 \\-> meta1 meta2
|
|
|
|
|
+" "Does ^SYMBINCOMP for 2 objects.
|
|
|
|
|
+" "12A006" :wasCSys) "^CKINNERCOMP" ("{} \\-> ob1 .. obN #n
|
|
|
|
|
+ob \\-> ob #1
|
|
|
|
|
+" "Explodes a list into a meta object. Other
|
|
|
|
|
+objects are converted into one-object metas
|
|
|
|
|
+by pushing #1 into the stack.
|
|
|
|
|
+" "158006" :wasCSys) "INNERtop&" ("obn..ob1 #n comp \\-> obm..ob1 #m
|
|
|
|
|
+" "Explodes composite and adds to meta:
|
|
|
|
|
+INNERCOMP top&
|
|
|
|
|
+Adds composite objects to meta object.
|
|
|
|
|
+" "297EF" :UBS) "NULL{}" ("\\-> {}
|
|
|
|
|
+" "Pushes a null list to the stack.
|
|
|
|
|
+" "055E9") "DUPNULL{}?" ("{} \\-> {} flag
|
|
|
|
|
+" "" "36ABD") "^DUPCKLEN{}" ("{} \\-> {} #n
|
|
|
|
|
+ob \\-> ob #1
|
|
|
|
|
+" "Return length of list, or 1 for non-lists.
|
|
|
|
|
+" "159006" :wasCSys) "ONE{}N" ("ob \\-> { ob }
|
|
|
|
|
+" "" "29D18") "TWO{}N" ("ob1 ob2 \\-> { ob1 ob2 }
|
|
|
|
|
+" "" "36202") "THREE{}N" ("ob1 ob2 ob3 \\-> { ob1 ob2 ob3 }
|
|
|
|
|
+" "" "36216") "#1-{}N" ("ob1..obn #n+1 \\-> {}
|
|
|
|
|
+" "" "361EE") "PUTLIST" ("ob #i {} \\-> {}'
|
|
|
|
|
+" "Replaces object at specified
|
|
|
|
|
+position. Assumes valid #i.
|
|
|
|
|
+" "2B42A") "^INSERT{}N" ("{} ob # \\-> {}'
|
|
|
|
|
+" "Insert object into list at given position.
|
|
|
|
|
+The position must be < than length of the
|
|
|
|
|
+list. If the position is zero, >TCOMP is
|
|
|
|
|
+used.
|
|
|
|
|
+" "2FC006" :wasCSys) "^NEXTPext" ("list \\-> list1 list2
|
|
|
|
|
+" "Extract in list2 all occurrances of the 1st
|
|
|
|
|
+object of list, the remaining objects are
|
|
|
|
|
+stored in list1. list1 = list-list2.
|
|
|
|
|
+" "2FB006" :wasCSys) "^COMPRIMext" ("{} \\-> {}'
|
|
|
|
|
+" "Suppress multiple occurrances in the list.
|
|
|
|
|
+" "2FD006" :wasCSys) "^CKCARCOMP" ("{} \\-> ob1
|
|
|
|
|
+ob \\-> ob
|
|
|
|
|
+" "Returns first element for lists, or object
|
|
|
|
|
+itself if it is not a list.
|
|
|
|
|
+" "15A006" :wasCSys) "apndvarlst" ("{} ob \\-> {}'
|
|
|
|
|
+" "Appends ob to list if not already there.
|
|
|
|
|
+" "2EF5A") "^AppendList" ("{} ob \\-> {}'
|
|
|
|
|
+" "Equivalent to apndvarlst, but faster.
|
|
|
|
|
+" "0FE006" :wasCSys) "^prepvarlist" ("{} ob \\-> {}'
|
|
|
|
|
+" "Adds ob at the beginning of the list if not
|
|
|
|
|
+present. If ob is in list, move ob to the
|
|
|
|
|
+beginning of list. Unfortunately moving an
|
|
|
|
|
+entry does influence the sequence of the rest
|
|
|
|
|
+of the list unchanged.
|
|
|
|
|
+" "4EB006" :wasCSys) "^SortList" ("L pred \\-> L'
|
|
|
|
|
+" "Sorts list according to give predicate. Pred
|
|
|
|
|
+is a program that tests two elements and
|
|
|
|
|
+returns FALSE if the first is to appear
|
|
|
|
|
+earlier than the second. To sort in numerical
|
|
|
|
|
+order, for example, the predicate would be a
|
|
|
|
|
+> test.
|
|
|
|
|
+" "100006" :wasCSys) "^PIext" ("{} \\-> ob
|
|
|
|
|
+" "Returns the product of all elements of the
|
|
|
|
|
+list.
|
|
|
|
|
+" "28A006" :CSys) "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.
|
|
|
|
|
+" "25ED3") "NULL::" ("\\-> :: ;
|
|
|
|
|
+" "Returns null secondary.
|
|
|
|
|
+" "055FD") "Ob>Seco" ("ob \\-> :: ob ;
|
|
|
|
|
+" "Does ONE then <REF>::N.
|
|
|
|
|
+" "37073") "?Ob>Seco" ("ob \\-> :: ob ;
|
|
|
|
|
+" "If the object is not a secondary, does
|
|
|
|
|
+Ob>Seco.
|
|
|
|
|
+" "3705A") "2Ob>Seco" ("ob1 ob2 \\-> :: ob1 ob2 ;
|
|
|
|
|
+" "Does TWO then <REF>::N.
|
|
|
|
|
+" "37087") "::NEVAL" ("ob1..obn #n \\-> ?
|
|
|
|
|
+" "Does <REF>::N then <REF>EVAL.
|
|
|
|
|
+" "3631A") "dup" ("meta \\-> meta meta
|
|
|
|
|
+" "" "29A35" :UBS) "NDROP" ("meta \\->
|
|
|
|
|
+" "Should be called drop.
|
|
|
|
|
+" "0326E") "DROPNDROP" ("meta ob \\->
|
|
|
|
|
+" "Should be called DROPdrop.
|
|
|
|
|
+" "37032") "N+1DROP" ("ob meta \\->
|
|
|
|
|
+" "Should be called dropDROP.
|
|
|
|
|
+" "35FB0") "#1+NDROP" ("ob meta \\->
|
|
|
|
|
+" "Should be called dropDROP.
|
|
|
|
|
+" "35FB0") "NDROPFALSE" ("meta \\-> F
|
|
|
|
|
+" "Should be called dropFALSE.
|
|
|
|
|
+" "28211") "^NDROPZERO" ("obn..ob1 #n \\-> #0
|
|
|
|
|
+" "Replace Meta object with empty Meta object.
|
|
|
|
|
+Should be called dropZERO.
|
|
|
|
|
+" "391006" :wasCSys) "psh" ("meta1 meta2 \\-> meta2 meta1
|
|
|
|
|
+" "Should be called swap.
|
|
|
|
|
+" "29A5D") "roll2ND" ("meta1 meta2 meta3 \\-> meta2 meta3 meta1
|
|
|
|
|
+" "Should be called rot.
|
|
|
|
|
+" "29A8F") "unroll2ND" ("meta1 meta2 meta3 \\-> meta3 meta1 meta2
|
|
|
|
|
+" "Should be called unrot.
|
|
|
|
|
+" "29B12") "SWAPUnNDROP" ("meta1 meta2 \\-> meta2
|
|
|
|
|
+" "Should be called swapdrop.
|
|
|
|
|
+" "3695A") "SWAPUnDROP" ("meta1 meta2 \\-> meta2 ob1..obn
|
|
|
|
|
+" "Swaps two metas and drops the count. Should
|
|
|
|
|
+be called swapDROP.
|
|
|
|
|
+" "36946") "metaROTDUP" ("meta1 meta2 meta3 \\-> meta2 meta3 meta1 meta1
|
|
|
|
|
+" "Should be called rotdup.
|
|
|
|
|
+" "36FA6") "top&" ("meta1 meta2 \\-> meta1&meta2
|
|
|
|
|
+" "" "296A7") "pshtop&" ("meta1 meta2 \\-> meta2&meta1
|
|
|
|
|
+" "" "2973B") "top&top&" ("meta1 meta2 meta3 \\-> meta1&meta2&meta3
|
|
|
|
|
+" "" "29722" :UBS) "ROTUntop&" ("meta1 meta2 meta3 \\-> meta2 meta3&meta1
|
|
|
|
|
+" "" "36FBA") "rolltwotop&" ("meta1 meta2 meta3 \\-> meta3 meta1&meta2
|
|
|
|
|
+" "" "36FCE") "roll2top&" ("meta1 meta2 meta3 \\-> meta3 meta1&meta2
|
|
|
|
|
+" "" "36FCE") "psh&" ("meta1 meta2 meta3 \\-> meta1&meta3 meta2
|
|
|
|
|
+" "" "2963E") "SWP1+" ("meta ob \\-> meta&ob
|
|
|
|
|
+" "" "3592B") "SWAP#1+" ("meta ob \\-> meta&ob
|
|
|
|
|
+" "" "3592B") "DUP#1+PICK" ("ob&meta \\-> ob&meta ob
|
|
|
|
|
+" "" "34431") "'R'RROT2+" ("meta \\-> meta&nob&nob1
|
|
|
|
|
+" "Takes nob and nob1 from run stream and adds
|
|
|
|
|
+them to the meta.
|
|
|
|
|
+" "2979A" :UBS) "get1" ("ob meta \\-> meta ob
|
|
|
|
|
+" "" "34504") "OVER#2+UNROL" ("meta ob \\-> ob meta
|
|
|
|
|
+" "" "36147") "psh1top&" ("meta ob \\-> ob&meta
|
|
|
|
|
+" "" "29693") "#1-SWAP" ("meta&ob \\-> meta ob
|
|
|
|
|
+" "" "28071") "pull" ("meta&ob \\-> meta ob
|
|
|
|
|
+" "" "28071") "pullrev" ("ob&meta \\-> meta ob
|
|
|
|
|
+" "" "28085") "pulldroppull" ("meta&ob1&ob2 \\-> meta ob1
|
|
|
|
|
+" "" "29137" :UBS) "2pull2DROP" ("meta&ob1&ob2 \\-> meta
|
|
|
|
|
+" "" "2899D" :UBS) "psh1&" ("meta1 meta2 ob \\-> ob&meta1 meta2
|
|
|
|
|
+" "" "29821") "psh1&rev" ("meta1 meta2 ob \\-> ob&meta1 meta2
|
|
|
|
|
+" "" "298C0") "(rot1)" ("ob meta1 meta2 \\-> meta1 meta2 ob
|
|
|
|
|
+" "" "2F193") "UobROT" ("ob meta1 meta2 \\-> meta1 meta2 ob
|
|
|
|
|
+" "" "2F193") "pullpsh1&" ("meta1 meta2&ob \\-> ob&meta1 meta2
|
|
|
|
|
+" "" "29754") "^addt0meta" ("meta1&ob meta2 \\-> meta1 meta2
|
|
|
|
|
+" "Removes the last object of meta1.
|
|
|
|
|
+" "406006" :wasCSys) "pshzer" ("meta \\-> #0 meta
|
|
|
|
|
+" "" "29972") "xnsgeneral" ("meta \\-> LAM3&meta&LAM1
|
|
|
|
|
+" "Uses contents of LAM1 and LAM3.
|
|
|
|
|
+" "2F38E") "xsngeneral" ("meta \\-> meta&LAM3&LAM1
|
|
|
|
|
+" "Uses contents of LAM1 and LAM3.
|
|
|
|
|
+" "2F38F") "SubMetaOb" ("meta #start #end \\-> meta'
|
|
|
|
|
+" "Gets a sub-meta. Does range checks.
|
|
|
|
|
+" "3760D") "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
|
|
|
|
|
+" "37685") "^submeta" ("meta #begin #end \\-> meta'
|
|
|
|
|
+" "Extracts QsubmetaQ from a meta.
|
|
|
|
|
+" "33F006") "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
|
|
|
|
|
+" "2F356") "^metasplit" ("meta #i \\-> meta1 meta2
|
|
|
|
|
+" "Split a meta in 2 metas at position i.
|
|
|
|
|
+meta1 will contain #i elements
|
|
|
|
|
+meta2 will contain #n-i elements.
|
|
|
|
|
+" "385006" :wasCSys) "^metaEQUAL?" ("meta2 meta1 \\-> meta2 meta1 flag
|
|
|
|
|
+" "Test equality of 2 metas.
|
|
|
|
|
+" "39F006" :wasCSys) "^EQUALPOSMETA" ("Meta ob \\-> Meta ob #pos
|
|
|
|
|
+" "Returns last occurrence of ob in Meta. If a
|
|
|
|
|
+component of meta is a list/symb then search
|
|
|
|
|
+if ob is embedded in this component of meta.
|
|
|
|
|
+" "3BF006" :wasCSys) "^EQUALPOS2META" ("Meta2 Meta1 ob \\-> Meta2 Meta1 ob #pos
|
|
|
|
|
+" "Returns last occurrence of ob in Meta1 or in
|
|
|
|
|
+Meta2. #pos is >0 if in meta2, is <0 if in
|
|
|
|
|
+meta1 (#pos=MINUSONE-#).
|
|
|
|
|
+" "3C0006" :wasCSys) "^METAINT?" ("Meta \\-> Meta flag
|
|
|
|
|
+" "Tests if Meta is an integer.
|
|
|
|
|
+" "198006" :wasCSys) "^METAPOSINT?" ("Meta \\-> Meta flag
|
|
|
|
|
+" "Tests if Meta is a positive integer smaller
|
|
|
|
|
+than Zsmall.
|
|
|
|
|
+" "199006" :wasCSys) "SYMBN" ("ob1..obn #n \\-> sym
|
|
|
|
|
+" "" "0546D") "Cr" ("ob1..obn #n -> symb
|
|
|
|
|
+" "Does 'R, SWAP#1+ then <REF>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.
|
|
|
|
|
+" "2BD8C" :UBS) "NULLSYMB" ("\\-> sym
|
|
|
|
|
+" "Puts a null algebraic in the stack.
|
|
|
|
|
+" "055F3" :UBS) "symcomp" ("ob \\-> ob'
|
|
|
|
|
+" "If ob is symbolic, does nothing, otherwise
|
|
|
|
|
+ONE SYMBN.
|
|
|
|
|
+" "286E7") "SWAPcompSWAP" ("ob ob' \\-> ob'' ob'
|
|
|
|
|
+" "Does SWAP symcomp SWAP.
|
|
|
|
|
+" "2F073") "DROP?symcomp" ("%/C%/Z/id/lam ob' \\-> %/C%/Z/id/lam
|
|
|
|
|
+ob ob' \\-> symb
|
|
|
|
|
+" "Drop ob'. Then, if the object in the stack is
|
|
|
|
|
+a real, complex, zint, identifier or lam,
|
|
|
|
|
+does nothing. For other objects, calls
|
|
|
|
|
+symcomp to create a one-object symbolics.
|
|
|
|
|
+" "28ACE" :UBS) "?symcomp" ("%/C%/Z/id/lam #1 \\-> %/C%/Z/id/lam
|
|
|
|
|
+ob #1 \\-> symb
|
|
|
|
|
+ob # \\-> symb
|
|
|
|
|
+" "If # is BINT1, calls DROP?symcomp. If it is
|
|
|
|
|
+any other number, calls SYMBN.
|
|
|
|
|
+" "293A3" :UBS) "SPLITEQ" ("sym \\-> arg1 arg2
|
|
|
|
|
+" "Internal version of EQ\\->.
|
|
|
|
|
+" "2F25E" :UBS) "EXPR>" ("sym \\-> arg1..argn %n ob
|
|
|
|
|
+" "Internal version of OBJ\\->.
|
|
|
|
|
+" "2F242" :UBS) "CRUNCH" ("ob \\-> %
|
|
|
|
|
+" "Internal version of \\->NUM.
|
|
|
|
|
+" "25EA2") "FINDVAR" ("sym \\-> {}
|
|
|
|
|
+" "Returns a list of the variables of the
|
|
|
|
|
+equation, recursing into programs and
|
|
|
|
|
+functions in the equation.
|
|
|
|
|
+" "2F110" :UBS) "^EQUATION?" ("ob \\-> ob flag
|
|
|
|
|
+" "Returns TRUE if ob is a symbolic finishing by
|
|
|
|
|
+x=.
|
|
|
|
|
+" "462006" :wasCSys) "^USERFCN?" ("ob \\-> ob flag
|
|
|
|
|
+" "Returns TRUE if ob is a symbolic finishing by
|
|
|
|
|
+xFCNAPPLY.
|
|
|
|
|
+" "463006" :wasCSys) "uncrunch" ("\\->
|
|
|
|
|
+" "Clears numeric results flag (system flag 3)
|
|
|
|
|
+for the next command only. Example:
|
|
|
|
|
+ SYMCOLCT = :: uncrunch colct ;
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -3
|
|
|
|
|
+" "29CB9") "cknumdsptch1" ("sym \\-> symf
|
|
|
|
|
+" "Used by one argument functions to evaluate a
|
|
|
|
|
+symbolic or numeric routine according to
|
|
|
|
|
+numeric results flag. Usage:
|
|
|
|
|
+ :: cknumdsptch1 <sym> <num> ;
|
|
|
|
|
+If numeric mode, CRUNCH is applied to the
|
|
|
|
|
+level one object and COLA is applied to
|
|
|
|
|
+<num>. If symbolic mode, ckseval1: is called.
|
|
|
|
|
+Example:
|
|
|
|
|
+ :: cknumdsptch1 MetaRE xRE ;
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -3
|
|
|
|
|
+" "2BCA2") "sscknum2" ("sym sym \\-> symf
|
|
|
|
|
+" "Used by two argument functions to evaluate
|
|
|
|
|
+function according to current numeric mode.
|
|
|
|
|
+ Usage: :: sscknum2 <sym> <num> ;
|
|
|
|
|
+" "2BB21") "sncknum2" ("sym % \\-> symf
|
|
|
|
|
+" " Usage: :: sncknum2 <sym> <num> ;
|
|
|
|
|
+In symbolic mode uses cksneval2:.
|
|
|
|
|
+Example:
|
|
|
|
|
+ SYM+O = :: sncknum2 Meta+Con x+ ;
|
|
|
|
|
+" "2BB3A") "nscknum2" ("% sym \\-> symf
|
|
|
|
|
+" " Usage: :: nscknum2 <sym> <num> ;
|
|
|
|
|
+In symbolic mode uses cknseval2:.
|
|
|
|
|
+Example:
|
|
|
|
|
+ O+SYM = :: nscknum2 Con+Meta x+ ;
|
|
|
|
|
+" "2BB53") "D/D*" ("
|
|
|
|
|
+" "Derivative of multiplication.
|
|
|
|
|
+" "2C07B") "D/D+" ("
|
|
|
|
|
+" "Derivative of addition.
|
|
|
|
|
+" "2C086") "D/D-" ("
|
|
|
|
|
+" "Derivative of subtraction.
|
|
|
|
|
+" "2C091") "D/D/" ("
|
|
|
|
|
+" "Derivative of division.
|
|
|
|
|
+" "2C09C") "D/Dalg=" ("
|
|
|
|
|
+" "Derivative of equality.
|
|
|
|
|
+" "2C10B") "D/D=" ("
|
|
|
|
|
+" "Derivative of equality.
|
|
|
|
|
+" "2C10B") "D/DABS" ("
|
|
|
|
|
+" "Derivative of ABS.
|
|
|
|
|
+" "2C116") "D/DACOS" ("
|
|
|
|
|
+" "Derivative of ACOS.
|
|
|
|
|
+" "2C13A") "D/DACOSH" ("
|
|
|
|
|
+" "Derivative of ACOSH.
|
|
|
|
|
+" "2C145") "D/DALOG" ("
|
|
|
|
|
+" "Derivative of ALOG.
|
|
|
|
|
+" "2C150") "D/DAPPLY" ("
|
|
|
|
|
+" "" "2C2B5") "D/DARG" ("
|
|
|
|
|
+" "Derivative of ARG.
|
|
|
|
|
+" "2C15B") "D/DASIN" ("
|
|
|
|
|
+" "Derivative of ASIN.
|
|
|
|
|
+" "2C166") "D/DASINH" ("
|
|
|
|
|
+" "Derivative of ASINH.
|
|
|
|
|
+" "2C171") "D/DATAN" ("
|
|
|
|
|
+" "Derivative of ATAN.
|
|
|
|
|
+" "2C17C") "D/DATANH" ("
|
|
|
|
|
+" "Derivative of ATANH.
|
|
|
|
|
+" "2C187") "D/DCHS" ("
|
|
|
|
|
+" "Derivative of CHS.
|
|
|
|
|
+" "2C192") "D/DCONJ" ("
|
|
|
|
|
+" "Derivative of CONJ.
|
|
|
|
|
+" "2C1B0") "D/DCOS" ("
|
|
|
|
|
+" "Derivative of COS.
|
|
|
|
|
+" "2C1CE") "D/DCOSH" ("
|
|
|
|
|
+" "Derivative of COSH.
|
|
|
|
|
+" "2C1D9") "D/DDER" ("
|
|
|
|
|
+" "Derivative of derivative.
|
|
|
|
|
+" "2C289") "D/DEXPM1" ("
|
|
|
|
|
+" "Derivative of EXP.
|
|
|
|
|
+" "2C1E4") "D/DEXP" ("
|
|
|
|
|
+" "Derivative of EXP.
|
|
|
|
|
+" "2C1E4") "D/DIFTE" ("
|
|
|
|
|
+" "Derivative of IFTE.
|
|
|
|
|
+" "2C21B") "D/DINTEGRAL" ("
|
|
|
|
|
+" "Derivative of integral.
|
|
|
|
|
+" "2C29F") "D/DINV" ("
|
|
|
|
|
+" "Derivative of INV.
|
|
|
|
|
+" "2C1EF") "D/DLN" ("
|
|
|
|
|
+" "Derivative of LN.
|
|
|
|
|
+" "2C1FA") "D/DLNP1" ("
|
|
|
|
|
+" "Derivative of LNP1.
|
|
|
|
|
+" "2C205") "D/DLOG" ("
|
|
|
|
|
+" "Derivative of LOG.
|
|
|
|
|
+" "2C210") "D/DSIN" ("
|
|
|
|
|
+" "Derivative of SIN.
|
|
|
|
|
+" "2C226") "D/DSINH" ("
|
|
|
|
|
+" "Derivative of SINH.
|
|
|
|
|
+" "2C231") "D/DSQ" ("
|
|
|
|
|
+" "Derivative of SQ.
|
|
|
|
|
+" "2C23C") "D/DSQRT" ("
|
|
|
|
|
+" "Derivative of SQRT.
|
|
|
|
|
+" "2C247") "D/DSUM" ("
|
|
|
|
|
+" "Derivative of SUM.
|
|
|
|
|
+" "2C2AA") "D/DTAN" ("
|
|
|
|
|
+" "Derivative of TAN.
|
|
|
|
|
+" "2C252") "D/DTANH" ("
|
|
|
|
|
+" "Derivative of TANH.
|
|
|
|
|
+" "2C25D") "D/DWHERE" ("
|
|
|
|
|
+" "" "2C294") "D/D^" ("
|
|
|
|
|
+" "Derivative of power.
|
|
|
|
|
+" "2C268") "D/D^X" ("
|
|
|
|
|
+" "" "2C273") "D/D^Y" ("
|
|
|
|
|
+" "" "2C27E") "SYMSHOW" ("sym id/lam \\-> symf
|
|
|
|
|
+" "" "2EF26") "XEQSHOWLS" ("sym {} \\-> symf
|
|
|
|
|
+" "" "2F2A9") "pshzerpsharg" ("meta \\-> M_last M_rest
|
|
|
|
|
+" "Pushes last sub-expression in meta. If meta
|
|
|
|
|
+is a valid expression M_rest will be empty.
|
|
|
|
|
+" "29986") "pZpargSWAPUn" ("meta \\-> M_rest M_last
|
|
|
|
|
+" "<REF>pshzerpsharg then <REF>psh .
|
|
|
|
|
+" "3701E") "plDRPpZparg" ("meta&ob \\-> M_last M_rest
|
|
|
|
|
+" "Drops ob then calls <REF>pshzerpsharg .
|
|
|
|
|
+" "36FE2") "^DIVMETAOBJ" ("o1...on #n ob \\-> {o1/ob...on/ob}
|
|
|
|
|
+" "Division of all elements of a meta by ob.
|
|
|
|
|
+Tests if o=1.
|
|
|
|
|
+" "3F1006" :wasCSys) "NEXTLIBBAK" ("#addr \\-> backup/library #nextaddr
|
|
|
|
|
+" "Gets next library or QbackupQ.
|
|
|
|
|
+" "25EEB") "#>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@.
|
|
|
|
|
+" "35C40") "ROMSEC" ("ROMPTR \\-> ?
|
|
|
|
|
+" "Recalls contents of rompointer and EVAL.
|
|
|
|
|
+Generates \"Undefined XLIB Error\" if not
|
|
|
|
|
+found.
|
|
|
|
|
+" "02FEF" :UBS) "?>ROMPTR" ("ob \\-> ob'
|
|
|
|
|
+" "If ROM-WORD? and TYPECOL? then RPL@.
|
|
|
|
|
+" "35A88") "?ROMPTR>" ("ob \\-> ob'
|
|
|
|
|
+" "If <REF>TYPEROMP? and content exists
|
|
|
|
|
+<REF>INHARDROM? then return contents.
|
|
|
|
|
+" "35AAB") "RESOROMP" ("\\-> ob
|
|
|
|
|
+" "Recalls contents of next object in the
|
|
|
|
|
+runstream (which must be a rompointer).
|
|
|
|
|
+" "35BFF") "PTR>ROMPTR" ("ob \\-> ROMPTR T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "If the object is a library command, returns
|
|
|
|
|
+its rompointer and TRUE, if not just FALSE.
|
|
|
|
|
+" "07E76" :UBS) "ROMPTRDECOMP" ("ROMPTR \\-> id T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "If the library command exists and has a name,
|
|
|
|
|
+returns that name and TRUE, otherwise FALSE.
|
|
|
|
|
+" "081FB" :UBS) "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" :UBS) "ROM-WORD?" ("ob \\-> flag
|
|
|
|
|
+" "" "34FCD") "DUPROM-WORD?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "34FC0") "TOSRRP" ("# \\->
|
|
|
|
|
+" "Attaches library to HOME directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "07709") "OFFSRRP" ("# \\->
|
|
|
|
|
+" "Detaches library from HOME directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "076AE") "ONSRRP?" ("# \\-> flag
|
|
|
|
|
+" "Returns TRUE if library is attached to HOME
|
|
|
|
|
+directory.
|
|
|
|
|
+" "0778D" :UBS) "XEQSETLIB" ("% \\->
|
|
|
|
|
+" "Internal ATTACH.
|
|
|
|
|
+" "2F2A7") "^GETLIBS" ("\\-> {}
|
|
|
|
|
+" "Returns a list of all attached libraries in
|
|
|
|
|
+the format
|
|
|
|
|
+ { { \"Title1\" #id1 } { \"Title2\" #id2 } ...}
|
|
|
|
|
+This is used for the library menu, so
|
|
|
|
|
+libraries without titles are skipped.
|
|
|
|
|
+" "015002" :UBS) "^LIBS" ("\\-> {}
|
|
|
|
|
+" "Resturns a list of all attached libraries in
|
|
|
|
|
+the format
|
|
|
|
|
+ { \"Title1\" #id1 #port1 \"Title2\" ... }
|
|
|
|
|
+This is the internal version of the User word
|
|
|
|
|
+LIBS, and it also lists libraries without
|
|
|
|
|
+title.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "014002" :UBS) "SETHASH" ("#libnum hxs \\->
|
|
|
|
|
+" "" "07638") "GetLibExt" ("ob1..obn #msg #lib \\-> ob1'..obm' flag
|
|
|
|
|
+" "Call the message handler of library #lib.
|
|
|
|
|
+The flag is TRUE if the library is attached
|
|
|
|
|
+and has a message handler, FALSE otherwise.
|
|
|
|
|
+Note that library message handlers usually
|
|
|
|
|
+require extra arguments on the stack which
|
|
|
|
|
+may also be modified during the call. The
|
|
|
|
|
+handling of most but not all messages leaves
|
|
|
|
|
+the #msg unchanged on the stack, so most of
|
|
|
|
|
+the time, obm' = #msg.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "265DA" :UBS) "ExecGetLibsExtentions_sup" ("ob1..obn #msg \\-> ob1'..obm'
|
|
|
|
|
+" "Calls the message handlers of all attached
|
|
|
|
|
+libraries with the specified #msg. Note that
|
|
|
|
|
+library message handlers usually require
|
|
|
|
|
+extra arguments on the stack which may also
|
|
|
|
|
+be modified during the call.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "25F2E" :UBS) "ROMPARTNAME" ("#libnum \\-> id T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Returns title of library as an ID, and
|
|
|
|
|
+TRUE. If library is not found, returns just
|
|
|
|
|
+FALSE.
|
|
|
|
|
+" "08199" :UBS) "LIB>#" ("lib \\-> #libnum T
|
|
|
|
|
+" "Returns number of library.
|
|
|
|
|
+" "081DE" :UBS) "ROMPART>ADDR" ("#libnum \\-> #addr T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Recalls library addres + 10 (prolog and
|
|
|
|
|
+length skipped).
|
|
|
|
|
+" "08081" :UBS) "ROMPARTSIZE" ("#libnum \\-> #nibbles-10 T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Returns size of library.
|
|
|
|
|
+" "080BF" :UBS) "NEXTROMPID" ("#libnum \\-> #nextlibnum T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "If specified library exists, #libnum is
|
|
|
|
|
+returned with TRUE.
|
|
|
|
|
+" "080DA" :UBS) "GETHASH" ("#libnum \\-> hxs_table T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Gets specified library's hash table.
|
|
|
|
|
+" "08112" :UBS) "GETMSG" ("#libnum \\-> [] T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Gets specified library's message table.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "08130" :UBS) "SETMESG" ("[$] #libnum \\->
|
|
|
|
|
+" "Sets message table of specified library.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "0764E") "GETLINK" ("#libnum \\-> hxs_table T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Gets specified library's link table.
|
|
|
|
|
+" "0813C" :UBS) "GETCONFIG" ("#libnum \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "" "08157" :UBS) "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" :UBS) "XEQXRCL" (":%port:%libnum \\-> lib
|
|
|
|
|
+" "Puts a pointer to the library with romidid
|
|
|
|
|
+%libnum in port %port onto the stack. The
|
|
|
|
|
+argument is a tagged real. The tag can also
|
|
|
|
|
+be '&' in order to search all ports. The
|
|
|
|
|
+library is not yet in TEMPOB, you need to
|
|
|
|
|
+execute TOTEMP in order the achieve this.
|
|
|
|
|
+" "2F2C6" :UBS) "BAKNAME" ("bak \\-> id T
|
|
|
|
|
+" "Returns backup's name
|
|
|
|
|
+" "081D9") "BAK>OB" ("bak \\-> ob
|
|
|
|
|
+" "Gets QbackupQ object.
|
|
|
|
|
+" "0905F") "DUP" ("ob \\-> ob ob
|
|
|
|
|
+" "" "03188") "DUPDUP" ("ob \\-> ob ob ob
|
|
|
|
|
+" "" "35CE0") "^3DUP" ("3 2 1 \\-> 3 2 1 3 2 1
|
|
|
|
|
+" "" "2D5006" :wasCSys) "NDUPN" ("ob #n \\-> ob..ob #n
|
|
|
|
|
+ob #0 \\-> #0
|
|
|
|
|
+" "" "28143") "DUPROT" ("1 2 \\-> 2 2 1
|
|
|
|
|
+" "" "35FF3") "SWAPOVER" ("1 2 \\-> 2 1 2
|
|
|
|
|
+" "" "3457F") "DUPUNROT" ("1 2 \\-> 2 1 2
|
|
|
|
|
+" "" "3457F") "DUPROLL" ("1..n #n \\-> 1 3..n #n 2
|
|
|
|
|
+" "" "36133") "DUPROLLSWAP" ("1..n #n \\-> 1 3..n 2 #n
|
|
|
|
|
+" "" "281FD" :UBS) "DUP4UNROLL" ("1 2 3 \\-> 3 1 2 3
|
|
|
|
|
+" "" "3432C") "DUPPICK" ("n..1 #n \\-> n..1 #n n-1
|
|
|
|
|
+" "" "3611F") "2DUPSWAP" ("1 2 \\-> 1 2 2 1
|
|
|
|
|
+" "" "35D30") "DUP3PICK" ("1 2 \\-> 1 2 2 1
|
|
|
|
|
+" "" "35D30") "DUP#1+PICK" ("n..1 #n \\-> n..1 #n n
|
|
|
|
|
+" "" "34431") "DUP#2+PICK" ("n..1 #n \\-> n..1 #n n+1
|
|
|
|
|
+" "" "29362" :UBS) "2DUP" ("1 2 \\-> 1 2 1 2
|
|
|
|
|
+" "" "031AC") "DUP3PICK" ("1 2 \\-> 1 2 2 1
|
|
|
|
|
+" "" "35D30") "2DUPSWAP" ("1 2 \\-> 1 2 2 1
|
|
|
|
|
+" "" "35D30") "2DUP5ROLL" ("1 2 3 \\-> 2 3 2 3 1
|
|
|
|
|
+" "" "36CA4") "NDUP" ("1..n #n \\-> 1..n 1..n
|
|
|
|
|
+" "" "031D9") "DROP" ("1 \\->
|
|
|
|
|
+" "" "03244") "DROPDUP" ("1 2 \\-> 1 1
|
|
|
|
|
+" "" "357CE") "DROPNDROP" ("1..n #n ob \\->
|
|
|
|
|
+" "" "37032") "DROPSWAP" ("1 2 3 \\-> 2 1
|
|
|
|
|
+" "" "35733") "XYZ>Y" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "ROT2DROP" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "DROPSWAPDROP" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "DROPROT" ("1 2 3 4 \\-> 2 3 1
|
|
|
|
|
+" "" "36007") "DROPOVER" ("1 2 3 \\-> 1 2 1
|
|
|
|
|
+" "" "3606B") "2DROP" ("1 2 \\->
|
|
|
|
|
+" "" "03258") "XYZ>" ("1 2 3 \\->
|
|
|
|
|
+" "" "341D2") "3DROP" ("1 2 3 \\->
|
|
|
|
|
+" "" "341D2") "XYZW>" ("1..4 \\->
|
|
|
|
|
+" "" "341D7") "4DROP" ("1..4 \\->
|
|
|
|
|
+" "" "341D7") "5DROP" ("1..5 \\->
|
|
|
|
|
+" "" "341DC") "6DROP" ("1..6 \\->
|
|
|
|
|
+" "" "341E8") "7DROP" ("1..7 \\->
|
|
|
|
|
+" "" "341F4") "NDROP" ("1..n #n \\->
|
|
|
|
|
+" "" "0326E") "N+1DROP" ("ob 1..n #n \\->
|
|
|
|
|
+" "" "35FB0") "#1+NDROP" ("ob 1..n #n \\->
|
|
|
|
|
+" "" "35FB0") "RESETDEPTH" ("ob1..obn obn+1..obx #n \\-> ob1..obn
|
|
|
|
|
+" "Drops all but #n levels of the stack.
|
|
|
|
|
+" "2F0A1") "KEEP" ("ob1..obn ob1'..obm' #m \\-> ob1'..obm'
|
|
|
|
|
+" "Drops all stack levels above #m.
|
|
|
|
|
+" "28335" :UBS) "DEPTH" ("1..n \\-> 1..n #n
|
|
|
|
|
+" "" "0314C") "UStackDepth" ("\\-> #
|
|
|
|
|
+" "The depth of the stack, similar to DEPTH.
|
|
|
|
|
+" "371F9") "reversym" ("1..n #n \\-> n..1 #n
|
|
|
|
|
+" "" "28187") "SWAP" ("1 2 \\-> 2 1
|
|
|
|
|
+" "" "03223") "SWAPDUP" ("1 2 \\-> 2 1 1
|
|
|
|
|
+" "" "3576E") "SWAP2DUP" ("1 2 \\-> 2 1 2 1
|
|
|
|
|
+" "" "368B5") "XY>Y" ("1 2 \\-> 2
|
|
|
|
|
+" "" "3421A") "SWAPDROP" ("1 2 \\-> 2
|
|
|
|
|
+" "" "3421A") "SWAPDROPDUP" ("1 2 \\-> 2 2
|
|
|
|
|
+" "" "35857") "XYZ>ZX" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "UNROTDROP" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "SWAPDROPSWAP" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "'Rswapop" ("1 2 \\-> nop 2
|
|
|
|
|
+" "Replaces level two with the next object in
|
|
|
|
|
+the runstream.
|
|
|
|
|
+" "29808" :UBS) "XYZ>ZYX" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "UNROTSWAP" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "SWAPROT" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "XYZW>YWZX" ("1 2 3 4 \\-> 2 4 3 1
|
|
|
|
|
+" "" "36C90") "SWAP4ROLL" ("1 2 3 4 \\-> 2 4 3 1
|
|
|
|
|
+" "" "36C90") "DUPUNROT" ("1 2 \\-> 2 1 2
|
|
|
|
|
+" "" "3457F") "SWAPOVER" ("1 2 \\-> 2 1 2
|
|
|
|
|
+" "" "3457F") "SWAP3PICK" ("1 2 3 \\-> 1 3 2 1
|
|
|
|
|
+" "" "36CB8") "2SWAP" ("1 2 3 4 \\-> 3 4 1 2
|
|
|
|
|
+" "" "35018") "ROT" ("1 2 3 \\-> 2 3 1
|
|
|
|
|
+" "" "03295") "ROTDUP" ("1 2 3 \\-> 2 3 1 1
|
|
|
|
|
+" "" "3579C") "ROT2DUP" ("1 2 3 \\-> 2 3 1 3 1
|
|
|
|
|
+" "" "35CA4") "XYZ>YZ" ("1 2 3 \\-> 2 3
|
|
|
|
|
+" "" "341A8") "ROTDROP" ("1 2 3 \\-> 2 3
|
|
|
|
|
+" "" "341A8") "XYZ>Y" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "DROPSWAPDROP" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "ROT2DROP" ("1 2 3 \\-> 2
|
|
|
|
|
+" "" "3574D") "XYZ>ZY" ("1 2 3 \\-> 3 2
|
|
|
|
|
+" "" "34195") "ROTDROPSWAP" ("1 2 3 \\-> 3 2
|
|
|
|
|
+" "" "34195") "XYZ>YXZ" ("1 2 3 \\-> 2 1 3
|
|
|
|
|
+" "" "3416E") "ROTSWAP" ("1 2 3 \\-> 2 1 3
|
|
|
|
|
+" "" "3416E") "XYZ>Z" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "UNROT2DROP" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "ROTROT2DROP" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "ROTOVER" ("1 2 3 \\-> 2 3 1 3
|
|
|
|
|
+" "" "35CCC") "XYZW>YZWX" ("1 2 3 4 \\-> 2 3 4 1
|
|
|
|
|
+" "" "3423A") "FOURROLL" ("1 2 3 4 \\-> 2 3 4 1
|
|
|
|
|
+" "" "3423A") "4ROLL" ("1 2 3 4 \\-> 2 3 4 1
|
|
|
|
|
+" "" "3423A") "4ROLLDROP" ("1 2 3 4 \\-> 2 3 4
|
|
|
|
|
+" "" "3588B") "4ROLLSWAP" ("1 2 3 4 \\-> 2 3 1 4
|
|
|
|
|
+" "" "35F06") "FOURROLLROT" ("1 2 3 4 \\-> 2 4 1 3
|
|
|
|
|
+" "" "36043") "4ROLLROT" ("1 2 3 4 \\-> 2 4 1 3
|
|
|
|
|
+" "" "36043") "4ROLLOVER" ("1 2 3 4 \\-> 2 3 4 1 4
|
|
|
|
|
+" "" "360E3") "FIVEROLL" ("1 2 3 4 5 \\-> 2 3 4 5 1
|
|
|
|
|
+" "" "34257") "5ROLL" ("1 2 3 4 5 \\-> 2 3 4 5 1
|
|
|
|
|
+" "" "34257") "5ROLLDROP" ("1 2 3 4 5 \\-> 2 3 4 5
|
|
|
|
|
+" "" "358A7") "SIXROLL" ("1..6 \\-> 2..6 1
|
|
|
|
|
+" "" "34281") "6ROLL" ("1..6 \\-> 2..6 1
|
|
|
|
|
+" "" "34281") "SEVENROLL" ("1..7 \\-> 2..7 1
|
|
|
|
|
+" "" "342EA") "7ROLL" ("1..7 \\-> 2..7 1
|
|
|
|
|
+" "" "342EA") "EIGHTROLL" ("1..8 \\-> 2..8 1
|
|
|
|
|
+" "" "342BB") "8ROLL" ("1..8 \\-> 2..8 1
|
|
|
|
|
+" "" "342BB") "9ROLL" ("1..9 \\-> 2..9 1
|
|
|
|
|
+" "" "34318" :UBS) "ROLL" ("1..n #n \\-> 2..n 1
|
|
|
|
|
+" "" "03325") "ROLLDROP" ("1..n #n \\-> 2..n
|
|
|
|
|
+" "" "35FC4") "ROLLSWAP" ("1..n #n \\-> 2..n-1 1 n
|
|
|
|
|
+" "" "35D80") "#1+ROLL" ("ob 1..n #n \\-> 1..n ob
|
|
|
|
|
+" "" "344F2") "#2+ROLL" ("a b 1..n #n \\-> b 1..n a
|
|
|
|
|
+" "" "34517") "^#3+ROLL" ("obn+3...obn...ob1 #n \\-> obn+2...ob1 obn+3
|
|
|
|
|
+" "" "2D6006" :wasCSys) "#+ROLL" ("1..n+m #n #m \\-> 2..n+m 1
|
|
|
|
|
+" "" "344DD") "#-ROLL" ("1..n-m #n #m \\-> 2..n-m 1
|
|
|
|
|
+" "" "344CB") "XYZ>ZXY" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "3UNROLL" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "UNROT" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "UNROTDUP" ("1 2 3 \\-> 3 1 2 1
|
|
|
|
|
+" "" "35D1C") "XYZ>ZX" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "SWAPDROPSWAP" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "UNROTDROP" ("1 2 3 \\-> 3 1
|
|
|
|
|
+" "" "35872") "XYZ>Z" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "ROTROT2DROP" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "UNROT2DROP" ("1 2 3 \\-> 3
|
|
|
|
|
+" "" "343BD") "XYZ>ZYX" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "SWAPROT" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "UNROTSWAP" ("1 2 3 \\-> 3 2 1
|
|
|
|
|
+" "" "341BA") "UNROTOVER" ("1 2 3 \\-> 3 1 2 1
|
|
|
|
|
+" "" "360CF") "XYZ>ZXY" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "UNROT" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "3UNROLL" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "" "3422B") "XYZW>WXYZ" ("1 2 3 4 \\-> 4 1 2 3
|
|
|
|
|
+" "" "34331") "FOURUNROLL" ("1 2 3 4 \\-> 4 1 2 3
|
|
|
|
|
+" "" "34331") "4UNROLL" ("1 2 3 4 \\-> 4 1 2 3
|
|
|
|
|
+" "" "34331") "4UNROLLDUP" ("1 2 3 4 \\-> 4 1 2 3 3
|
|
|
|
|
+" "" "35D44") "XYZW>W" ("1 2 3 4 \\-> 4
|
|
|
|
|
+" "" "343CF") "4UNROLL3DROP" ("1 2 3 4 \\-> 4
|
|
|
|
|
+" "" "343CF") "4UNROLLROT" ("1 2 3 4 \\-> 4 3 2 1
|
|
|
|
|
+" "" "36057") "FIVEUNROLL" ("1 2 3 4 5 \\-> 5 1 2 3 4
|
|
|
|
|
+" "" "34357") "5UNROLL" ("1 2 3 4 5 \\-> 5 1 2 3 4
|
|
|
|
|
+" "" "34357") "SIXUNROLL" ("1..6 \\-> 6 1..5
|
|
|
|
|
+" "" "3438D") "6UNROLL" ("1..6 \\-> 6 1..5
|
|
|
|
|
+" "" "3438D") "(SEVENUNROLL)" ("1..7 \\-> 7 1..6
|
|
|
|
|
+" "" "35BEB") "7UNROLL" ("1..7 \\-> 7 1..6
|
|
|
|
|
+" "" "35BEB") "8UNROLL" ("1..8 \\-> 8 1..7
|
|
|
|
|
+" "" "3615B") "9UNROLL" ("1..9 \\-> 9 1..8
|
|
|
|
|
+" "" "28225" :UBS) "10UNROLL" ("1..10 \\-> 10 1..9
|
|
|
|
|
+" "" "3616F") "UNROLL" ("1..n #n \\-> n 1..n-1
|
|
|
|
|
+" "" "0339E") "#1+UNROLL" ("ob 1..n #n \\-> n ob 1..n-1
|
|
|
|
|
+" "" "34552") "#2+UNROLL" ("a b 1..n #n \\-> n a b 1..n-1
|
|
|
|
|
+" "" "34564") "#+UNROLL" ("1..n+m #n #m \\-> n+m 1..n+m-1
|
|
|
|
|
+" "" "3453D") "#-UNROLL" ("1..n-m #n #m \\-> n-m 1..n+m-1
|
|
|
|
|
+" "" "3452B") "OVER" ("1 2 \\-> 1 2 1
|
|
|
|
|
+" "" "032C2") "OVERDUP" ("1 2 \\-> 1 2 1 1
|
|
|
|
|
+" "" "35CF4") "OVERUNROT" ("1 2 \\-> 1 1 2
|
|
|
|
|
+" "" "35D6C") "OVERSWAP" ("1 2 \\-> 1 1 2
|
|
|
|
|
+" "" "35D6C") "OVERSWAP" ("1 2 \\-> 1 1 2
|
|
|
|
|
+" "" "35D6C") "OVERUNROT" ("1 2 \\-> 1 1 2
|
|
|
|
|
+" "" "35D6C") "OVER5PICK" ("1 2 3 4 \\-> 1 2 3 4 3 1
|
|
|
|
|
+" "" "36CF4") "2OVER" ("1 2 3 4 \\-> 1 2 3 4 1 2
|
|
|
|
|
+" "" "37046") "3PICK" ("1 2 3 \\-> 1 2 3 1
|
|
|
|
|
+" "" "34485") "3PICKSWAP" ("1 2 3 \\-> 1 2 1 3
|
|
|
|
|
+" "" "35F1A") "3PICKOVER" ("1 2 3 \\-> 1 2 3 1 3
|
|
|
|
|
+" "" "360F7") "3PICK3PICK" ("1 2 3 \\-> 1 2 3 1 2
|
|
|
|
|
+" "" "36CCC") "DROP3PICK" ("1 2 3 4 \\-> 1 2 3 1
|
|
|
|
|
+" "" "2F1C6") "4PICK" ("1 2 3 4 \\-> 1 2 3 4 1
|
|
|
|
|
+" "" "3448A") "4PICKSWAP" ("1 2 3 4 \\-> 1 2 3 1 4
|
|
|
|
|
+" "" "35F2E") "SWAP4PICK" ("1 2 3 4 \\-> 1 2 4 3 1
|
|
|
|
|
+" "" "36CE0") "4PICKOVER" ("1 2 3 4 \\-> 1 2 3 4 1 4
|
|
|
|
|
+" "" "3610B") "5PICK" ("1 2 3 4 5 \\-> 1 2 3 4 5 1
|
|
|
|
|
+" "" "3448F") "6PICK" ("1..6 \\-> 1..6 1
|
|
|
|
|
+" "" "34494") "7PICK" ("1..7 \\-> 1..7 1
|
|
|
|
|
+" "" "34499") "8PICK" ("1..8 \\-> 1..8 1
|
|
|
|
|
+" "" "3449E") "9PICK" ("1..9 \\-> 1..9 1
|
|
|
|
|
+" "" "344A3" :UBS) "10PICK" ("1..10 \\-> 1..10 1
|
|
|
|
|
+" "" "344A8" :UBS) "PICK" ("1..n #n \\-> 1..n 1
|
|
|
|
|
+" "" "032E2") "UNPICK" ("1..n ob #n \\-> ob 2..n
|
|
|
|
|
+" "" "373D0" :UBS) "#1+UNPICK" ("1..n ob #n-1 \\-> ob 2..n
|
|
|
|
|
+" "" "37408" :UBS) "#+UNPICK" ("1..n ob #n-#m #m \\-> ob 2..n
|
|
|
|
|
+" "" "3741A" :UBS) "#1-UNPICK" ("1..n ob #n+1 \\-> ob 2..n
|
|
|
|
|
+" "" "3742B" :UBS) "#1+PICK" ("1..n #n-1 \\-> 1..n 1
|
|
|
|
|
+" "" "34436") "#2+PICK" ("1..n #n-2 \\-> 1..n 1
|
|
|
|
|
+" "" "34451") "#3+PICK" ("1..n #n-3 \\-> 1..n 1
|
|
|
|
|
+" "" "34465") "#4+PICK" ("1..n #n-4 \\-> 1..n 1
|
|
|
|
|
+" "" "34474") "#+PICK" ("1..n+m #n #m \\-> 1..n+m 1
|
|
|
|
|
+" "" "34417") "#-PICK" ("1..n-m #n #m \\-> 1..n-m 1
|
|
|
|
|
+" "" "34405") "NULLID" ("\\-> id
|
|
|
|
|
+" "Null (empty) identifier.
|
|
|
|
|
+" "272FE") "EvalNULLID" ("\\->
|
|
|
|
|
+" "Evaluates the empty identifyer, therefore
|
|
|
|
|
+enters the hidden directory.
|
|
|
|
|
+" "27308" :UBS) "NULLID1" ("\\-> id
|
|
|
|
|
+" "Null (empty) identifier.
|
|
|
|
|
+" "27308") "NULLID!" ("\\->
|
|
|
|
|
+" "Evaluate empty identifier.
|
|
|
|
|
+" "27308") "NULLLAM" ("\\-> lam
|
|
|
|
|
+" "Puts NULLLAM in the stack.
|
|
|
|
|
+" "2B3AB") "ID_CST" ("ID CST
|
|
|
|
|
+" "" "3EA01" :UBS) "ID_S" ("ID S
|
|
|
|
|
+" "" "3EF97" :UBS) "ID_X" ("ID X
|
|
|
|
|
+" "" "2715F" :UBS) "'IDX" ("\\-> id
|
|
|
|
|
+" "Puts ID X unevaluated on the stack.
|
|
|
|
|
+" "27155") "CUREQ" ("ID EQ
|
|
|
|
|
+" "" "272F3" :UBS) "ID_SIGMADAT" ("ID \\GSDAT
|
|
|
|
|
+" "" "27937" :UBS) "'IDPAR" ("\\-> id
|
|
|
|
|
+" "Puts ID PPAR unevaluated on the stack.
|
|
|
|
|
+" "27AE9" :UBS) "ID_PPAR" ("ID PPAR
|
|
|
|
|
+" "" "2799A" :UBS) "ID_TPAR" ("ID TPAR
|
|
|
|
|
+" "" "27B2F" :UBS) "'IDTPAR" ("\\-> id
|
|
|
|
|
+" "" "27B25" :UBS) "ID_VPAR" ("ID VPAR
|
|
|
|
|
+" "" "27B11" :UBS) "'IDVPAR" ("\\-> id
|
|
|
|
|
+" "" "27B07" :UBS) "ID_PYR" ("ID PYR
|
|
|
|
|
+" "" "2799A" :UBS) "ID_FV" ("ID FV
|
|
|
|
|
+" "" "2798A" :UBS) "ID_PMT" ("ID PMT
|
|
|
|
|
+" "" "2797D" :UBS) "ID_PV" ("ID PV
|
|
|
|
|
+" "" "27972" :UBS) "ID_I%YR" ("IT I%TR
|
|
|
|
|
+" "" "27963" :UBS) "ID_N" ("ID N
|
|
|
|
|
+" "" "2795A" :UBS) "ID_SIGMAPAR" ("ID \\GSPAR
|
|
|
|
|
+" "" "27946" :UBS) "ID_STARTERR" ("ID STARTERR
|
|
|
|
|
+" "" "271D8" :UBS) "IDSTARTERR" ("{ ID STARTERR }
|
|
|
|
|
+" "" "271D3" :UBS) "ID_STARTUP" ("ID STARTUP
|
|
|
|
|
+" "" "271B9" :UBS) "ListSTARTUP" ("{ ID STARTUP }
|
|
|
|
|
+" "" "271B1" :UBS) "IDIOPAR" ("ID IOPAR
|
|
|
|
|
+" "" "271A3" :UBS) "$>ID" ("$ \\-> ID
|
|
|
|
|
+" "" "05B15") "DUP$>ID" ("$ \\-> $ ID
|
|
|
|
|
+" "" "362DE") "ID>LAM" ("id \\-> lam
|
|
|
|
|
+" "" "05AED" :UBS) "LAM>ID" ("lam \\-> id
|
|
|
|
|
+" "" "05B01" :UBS) "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.
|
|
|
|
|
+" "36518") "DUP1LAMBIND" ("ob \\-> ob
|
|
|
|
|
+" "Does DUP then <REF>1LAMBIND.
|
|
|
|
|
+" "36513") "^2LAMBIND" ("ob1 ob2 \\->
|
|
|
|
|
+" "Binds two objects to null named lams.
|
|
|
|
|
+" "155006") "^3LAMBIND" ("ob1 ob2 ob3 \\->
|
|
|
|
|
+" "Binds three objects to null named lams.
|
|
|
|
|
+" "156006") "nNullBind" ("obn..ob1 #n \\->
|
|
|
|
|
+" "Binds #n objects to null named lams. 1LAM has
|
|
|
|
|
+the count, 2LAM the first object. Decompiles
|
|
|
|
|
+to
|
|
|
|
|
+ :: ' NULLLAM CACHE ;
|
|
|
|
|
+" "2E429" :UBS) "dvarlsBIND" ("ob \\->
|
|
|
|
|
+" "Binds ob to LAM 'dvar.
|
|
|
|
|
+" "36A77") "ABND" ("\\->
|
|
|
|
|
+" "Abandons topmost temporary environment.
|
|
|
|
|
+" "07497") "ABNDTrue" ("\\-> T
|
|
|
|
|
+" "Does <REF>ABND then TRUE.
|
|
|
|
|
+" "2A7CF" :UBS) "ABNDFalse" ("\\-> F
|
|
|
|
|
+" "Does FALSE then <REF>ABND .
|
|
|
|
|
+" "2A7E3" :UBS) "CACHE" ("obn..ob1 #n lam \\->
|
|
|
|
|
+" "Binds all objects under the same name. 1LAM
|
|
|
|
|
+has the count.
|
|
|
|
|
+" "34D00") "DUMP" ("NULLLAM \\-> ob1..obn #n
|
|
|
|
|
+" "Inverse of CACHE. Always does garbage
|
|
|
|
|
+collection.
|
|
|
|
|
+" "34EBE") "SAVESTACK" ("\\->
|
|
|
|
|
+" "Caches stack to SAVELAM.
|
|
|
|
|
+" "34D58") "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.
|
|
|
|
|
+" "2EF72") "undo" ("\\->
|
|
|
|
|
+" "Dumps SAVELAM.
|
|
|
|
|
+" "34FA6") "" ("" "" "8605E" :RAM) "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" :UBS) "FIRST@LAM" ("lam \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "@LAM for first environment only.
|
|
|
|
|
+" "078E9" :UBS) "NTH@LAM" ("lam #n \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "@LAM for nth environment only.
|
|
|
|
|
+" "078F5" :UBS) "GETLAM" ("#n \\-> ob
|
|
|
|
|
+" "Gets contents of nth topmost lam.
|
|
|
|
|
+" "075A5") "1GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34616") "2GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34620") "3GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3462A") "4GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34634") "5GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3463E") "6GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34648") "7GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34652") "8GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3465C") "9GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34666") "10GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34670") "11GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3467A") "12GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34684") "13GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3468E") "14GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34698") "15GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346A2") "16GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346AC") "17GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346B6") "18GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346C0") "19GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346CA") "20GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346D4") "21GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346DE") "22GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346E8") "23GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346F2" :UBS) "24GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "346FC" :UBS) "25GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34706" :UBS) "26GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "34710" :UBS) "27GETLAM" ("\\-> ob
|
|
|
|
|
+" "" "3471A" :UBS) "PUTLAM" ("ob #n \\->
|
|
|
|
|
+" "Stores new contents to nth topmost lam.
|
|
|
|
|
+" "075E9") "1PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34611") "2PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3461B") "3PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34625") "4PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3462F") "5PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34639") "6PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34643") "7PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3464D") "8PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34657") "9PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34661") "10PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3466B") "11PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34675") "12PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3467F") "13PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34689") "14PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34693") "15PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3469D") "16PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346A7") "17PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346B1") "18PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346BB") "19PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346C5") "20PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346CF") "21PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346D9") "22PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346E3") "23PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346ED" :UBS) "24PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "346F7" :UBS) "25PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34701" :UBS) "26PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "3470B" :UBS) "27PUTLAM" ("ob \\->
|
|
|
|
|
+" "" "34715" :UBS) "DUP1PUTLAM" ("ob \\-> ob
|
|
|
|
|
+" "" "3471F" :UBS) "DUP2PUTLAM" ("ob \\-> ob
|
|
|
|
|
+" "" "34729" :UBS) "DUP4PUTLAM" ("ob \\-> ob
|
|
|
|
|
+" "Does DUP then <REF>4PUTLAM .
|
|
|
|
|
+" "34797") "1GETLAMSWAP" ("ob \\-> ob' ob
|
|
|
|
|
+" "Does <REF>1GETLAM then SWAP.
|
|
|
|
|
+" "34724" :UBS) "2GETLAMSWAP" ("ob \\-> ob' ob
|
|
|
|
|
+" "Does <REF>2GETLAM then SWAP.
|
|
|
|
|
+" "3472E" :UBS) "1GETABND" ("\\-> 1lamob
|
|
|
|
|
+" "Does <REF>1GETLAM then <REF>ABND .
|
|
|
|
|
+" "364FF") "1ABNDSWAP" ("ob \\-> 1lamob ob
|
|
|
|
|
+" "Does <REF>1GETABND then SWAP.
|
|
|
|
|
+" "35DEE") "1GETSWAP" ("ob \\-> 1lamob ob
|
|
|
|
|
+" "Does <REF>1GETLAM then SWAP.
|
|
|
|
|
+" "35F42") "1GETLAMSWP1+" ("# \\-> 1lamob #+1
|
|
|
|
|
+" "Does <REF>1GETLAM then SWAP#1+.
|
|
|
|
|
+" "2F318") "2GETEVAL" ("\\-> ?
|
|
|
|
|
+" "Does <REF>2GETLAM then <REF>EVAL .
|
|
|
|
|
+" "3632E") "GETLAMPAIR" ("#n \\-> #n ob lam F
|
|
|
|
|
+ \\-> #n T
|
|
|
|
|
+" "Gets lam contents and name (10 = 1lam,
|
|
|
|
|
+20 = 2lam, etc.)
|
|
|
|
|
+" "3483E") "DUPTEMPENV" ("\\->
|
|
|
|
|
+" "Duplicates topmost tempenv (clears
|
|
|
|
|
+protection word).
|
|
|
|
|
+" "347AB") "1NULLLAM{}" ("\\-> {}
|
|
|
|
|
+" "Puts a list with one NULLLAM in the stack.
|
|
|
|
|
+" "2B3A6") "2NULLLAM{}" ("\\-> {}
|
|
|
|
|
+" "Puts a list with two times NULLLAM in the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "271F4" :UBS) "3NULLLAM{}" ("\\-> {}
|
|
|
|
|
+" "Puts a list with three times NULLLAM in the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "27208" :UBS) "4NULLLAM{}" ("\\-> {}
|
|
|
|
|
+" "Puts a list with four times NULLLAM in the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "2B3B7") "8NULLLAM{}" ("\\-> {}
|
|
|
|
|
+" "Puts a list with eight times NULLLAM in the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "27AB7" :UBS) "ERRBEEP" ("\\->
|
|
|
|
|
+" "Beeps.
|
|
|
|
|
+" "26067") "ERROR@" ("\\-> #
|
|
|
|
|
+" "Returns current error number.
|
|
|
|
|
+" "04CE6") "ERRORSTO" ("# \\->
|
|
|
|
|
+" "Stores new error number.
|
|
|
|
|
+" "04D0E") "ERROROUT" ("# \\->
|
|
|
|
|
+" "Stores new error number and calls ERRJMP.
|
|
|
|
|
+" "36883") "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 <REF>AtUserStack
|
|
|
|
|
+and then <REF>ERRJMP.
|
|
|
|
|
+" "25EAE") "DO%EXIT" ("% \\->
|
|
|
|
|
+" "Same as above, but takes real number as
|
|
|
|
|
+argument.
|
|
|
|
|
+" "25EB0") "DO$EXIT" ("$ \\->
|
|
|
|
|
+" "Stores string as EXITMSG, #70000 as error
|
|
|
|
|
+number, does <REF>AtUserStack and then
|
|
|
|
|
+<REF>ERRJMP .
|
|
|
|
|
+" "25EAF") "ABORT" ("\\->
|
|
|
|
|
+" "Does <REF>ERRORCLR and <REF>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") "JstGETTHEMSG" ("# \\-> $
|
|
|
|
|
+" "Fetches message from message table. To get
|
|
|
|
|
+a message from a library, use the formula:
|
|
|
|
|
+ libnum*#100+msgnum.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "04D87") "JstGetTHEMESG" ("# \\-> $
|
|
|
|
|
+" "Fetches message from message table. To get
|
|
|
|
|
+a message from a library, use the formula:
|
|
|
|
|
+ libnum*#100+msgnum.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "04D87") "GETTHEMESG" ("# \\-> $
|
|
|
|
|
+" "If #70000 then does <REF>GETEXITMSG, else does
|
|
|
|
|
+<REF>JstGetTHEMESG .
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "04D64") "?GetMsg" ("# \\-> $msg
|
|
|
|
|
+ob \\-> ob
|
|
|
|
|
+" "If the argument is a bint, does JstGETTHEMSG
|
|
|
|
|
+to fetch a message. Other arguments are
|
|
|
|
|
+returned unchanged.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "39332" :UBS) "SPLITmsg" ("#msg \\-> #error #libnum
|
|
|
|
|
+" "Splits message number into error and
|
|
|
|
|
+library numbers.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "04DD7" :UBS) "SETMEMERR" ("Error 001h
|
|
|
|
|
+" "Generates \"Insufficient Memory\" error.
|
|
|
|
|
+" "04FB6") "SETDIRRECUR" ("Error 002h
|
|
|
|
|
+" "Generates \"Directory Recursion\" error.
|
|
|
|
|
+" "04FC2" :UBS) "SETLAMERR" ("Error 003h
|
|
|
|
|
+" "Generates \"Undefined Local Name\" error.
|
|
|
|
|
+" "04FCE" :UBS) "SETROMPERR" ("Error 004h
|
|
|
|
|
+" "Generates \"Undefined XLIB Name\" error.
|
|
|
|
|
+" "05016") "SETLBERR" ("Error 006h
|
|
|
|
|
+" "Generates \"Power Lost\" error.
|
|
|
|
|
+" "04FAA" :UBS) "SETCORPORT" ("Error 008h
|
|
|
|
|
+" "Generates \"Invalid Card Data\" error.
|
|
|
|
|
+" "04FDA" :UBS) "SETOBINUSE" ("Error 009h
|
|
|
|
|
+" "Generates \"Object In Use\" error.
|
|
|
|
|
+" "04FE6" :UBS) "SETPORTNOTAV" ("Error 00Ah
|
|
|
|
|
+" "Generates \"Port Not Available\" error.
|
|
|
|
|
+" "04FF2") "SETNOROOM" ("Error 00Bh
|
|
|
|
|
+" "Generates \"No Room In Port\" error.
|
|
|
|
|
+" "04FFE" :UBS) "SETXNONEXT" ("Error 00Ch
|
|
|
|
|
+" "Generates \"Object Not In Port\" error.
|
|
|
|
|
+" "0500A" :UBS) "NOEQERR" ("Error 104h
|
|
|
|
|
+" "Generates \"No Current Equation\" error.
|
|
|
|
|
+" "26508" :UBS) "SYNTAXERR" ("Error 106h
|
|
|
|
|
+" "Generates \"Invalid Syntax\" error.
|
|
|
|
|
+" "26134") "NOHALTERR" ("Error 126h
|
|
|
|
|
+" "Generates \"HALT Not Allowed\" error.
|
|
|
|
|
+" "260C1") "SETCIRCERR" ("Error 129h
|
|
|
|
|
+" "Generates \"Circular Reference\" error.
|
|
|
|
|
+" "26116") "SETUNDOERR" ("Error 124h
|
|
|
|
|
+" "Generates \"LAST STACK Disabled\" error.
|
|
|
|
|
+" "26521" :UBS) "SETSTACKERR" ("Error 201h
|
|
|
|
|
+" "Generates \"Too Few Arguments\" error.
|
|
|
|
|
+" "262E2") "SETTYPEERR" ("Error 202h
|
|
|
|
|
+" "Generates \"Bad Argument Type\" error.
|
|
|
|
|
+" "262DD") "SETSIZEERR" ("Error 203h
|
|
|
|
|
+" "Generates \"Bad Argument Value\" error.
|
|
|
|
|
+" "262D8") "SETNONEXTERR" ("Error 204h
|
|
|
|
|
+" "Generates \"Undefined Name\" error.
|
|
|
|
|
+" "262E7") "SETIVLERR" ("Error 304h
|
|
|
|
|
+" "Generates \"Undefined Result\" error.
|
|
|
|
|
+" "2F458") "SetIOPARErr" ("Error C12h
|
|
|
|
|
+" "Generates \"Invalid IOPAR\" error.
|
|
|
|
|
+" "2F37B") "Sig?ErrJmp" ("# \\->
|
|
|
|
|
+" "Calls ERRJMP if the error number is any of
|
|
|
|
|
+{13E 123 DFF}.
|
|
|
|
|
+" "3721C") "ListErrspecial" ("\\-> {}
|
|
|
|
|
+" "List of error numbers handled specially by
|
|
|
|
|
+Sig?ErrJmp. This is simply
|
|
|
|
|
+ { #13E #123 #DFF }
|
|
|
|
|
+" "37226" :UBS) "ederr" ("\\->
|
|
|
|
|
+" "Error handler for applications which use
|
|
|
|
|
+savefmt1 to save the current display format.
|
|
|
|
|
+Calls <REF>rstfmt1 and then errors out.
|
|
|
|
|
+" "25F10") "COERCEFLAG" ("T \\-> %1
|
|
|
|
|
+F \\-> %0
|
|
|
|
|
+" "Converts system flag to user flag, drops
|
|
|
|
|
+current stream.
|
|
|
|
|
+" "2602B") "%0<>" ("% \\-> flag
|
|
|
|
|
+" "Can be used to change a user flag into a
|
|
|
|
|
+system flag.
|
|
|
|
|
+" "301BA") "TRUE" ("\\-> T
|
|
|
|
|
+" "" "03A81") "TrueTrue" ("\\-> T T
|
|
|
|
|
+" "" "27E87") "TRUEFALSE" ("\\-> T F
|
|
|
|
|
+" "" "36540") "TrueFalse" ("\\-> T F
|
|
|
|
|
+" "" "36540") "TRUESWAP" ("ob \\-> T ob
|
|
|
|
|
+" "" "09378" :UBS) "FALSE" ("\\-> F
|
|
|
|
|
+" "" "03AC0") "FALSETRUE" ("\\-> F T
|
|
|
|
|
+" "" "36554") "FalseTrue" ("\\-> F T
|
|
|
|
|
+" "" "36554") "FalseFalse" ("\\-> F F
|
|
|
|
|
+" "" "283E8") "failed" ("\\-> F T
|
|
|
|
|
+" "" "27E9B") "DROPTRUE" ("ob \\-> T
|
|
|
|
|
+" "" "35280") "^2DROPTRUE" ("ob ob' \\-> T
|
|
|
|
|
+" "" "2D7006") "3DROPTRUE" ("ob1 ob2 ob3 \\-> T
|
|
|
|
|
+" "" "28DAB" :UBS) "DROPFALSE" ("ob \\-> F
|
|
|
|
|
+" "" "35289") "2DROPFALSE" ("ob1 ob2 \\-> F
|
|
|
|
|
+" "" "35B32") "4DROPFALSE" ("ob1..ob4 \\-> F
|
|
|
|
|
+" "" "28D38" :UBS) "5DROPFALSE" ("ob1..ob5 \\-> F
|
|
|
|
|
+" "" "28E05" :UBS) "NDROPFALSE" ("ob1..obn #n \\-> F
|
|
|
|
|
+" "" "28211") "SWAPTRUE" ("ob1 ob2 \\-> ob2 ob1 T
|
|
|
|
|
+" "" "2812F") "SWAPFALSE" ("ob1 ob2 \\-> ob2 ob1 F
|
|
|
|
|
+" "" "374AA" :UBS) "SWAPDROPTRUE" ("ob1 ob2 \\-> ob2 T
|
|
|
|
|
+" "" "374BE") "SWAPDROPFALSE" ("ob1 ob2 \\-> ob2 F
|
|
|
|
|
+" "" "28239" :UBS) "XYZ>ZTRUE" ("ob1 ob2 ob3 \\-> ob3 T
|
|
|
|
|
+" "" "35EF2") "RDROPFALSE" ("\\-> F
|
|
|
|
|
+" "Puts FALSE in the stack and drops rest of
|
|
|
|
|
+current stream.
|
|
|
|
|
+" "2962A") "RDROPTRUE" ("\\-> T
|
|
|
|
|
+" "Puts TRUE in the stack and drops rest of
|
|
|
|
|
+current stream.
|
|
|
|
|
+" "29616" :UBS) "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.
|
|
|
|
|
+" "365F9") "NOTAND" ("flag1 flag2 \\-> flag
|
|
|
|
|
+" "Returns TRUE if flag1 is TRUE and flag2 is
|
|
|
|
|
+FALSE.
|
|
|
|
|
+" "35C7C") "ROTAND" ("flag1 ob flag2 \\-> ob flag
|
|
|
|
|
+" "Returns TRUE if either flag is TRUE.
|
|
|
|
|
+" "35CB8") "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.
|
|
|
|
|
+" "36621") "EQOR" ("flag ob1 ob2 \\-> flag'
|
|
|
|
|
+" "Does EQ then OR.
|
|
|
|
|
+" "3664E") "EQOVER" ("ob3 ob1 ob2 \\-> ob3 flag ob3
|
|
|
|
|
+" "Does EQ then OVER.
|
|
|
|
|
+" "3607F") "EQ:" ("ob \\-> flag
|
|
|
|
|
+" "EQ with the next object in the current
|
|
|
|
|
+stream.
|
|
|
|
|
+" "3663A") "DUPEQ:" ("ob \\-> ob flag
|
|
|
|
|
+" "Does DUP then EQ:.
|
|
|
|
|
+" "36635") "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") "SAME" ("ob1 ob2 \\-> %1/%0
|
|
|
|
|
+" "Does EQUAL, then COERCEFLAG. Identical to
|
|
|
|
|
+what <REF>xSAME does.
|
|
|
|
|
+" "3CCB4" :UBS) "EQUALNOT" ("ob1 ob2 \\-> flag
|
|
|
|
|
+" "Returns TRUE if the objects are different.
|
|
|
|
|
+" "3660D") "EQUALOR" ("flag ob1 ob2 \\-> flag'
|
|
|
|
|
+" "Does EQUAL then OR.
|
|
|
|
|
+" "36662") "^Contains?" ("ob1 ob2 \\-> ob1 ob2 flag
|
|
|
|
|
+" "Tests if ob1 contains ob2. If ob1 is a
|
|
|
|
|
+symbolic then ob1 is searched for embedded
|
|
|
|
|
+ob2. If ob1 is a list then ob1 is traversed
|
|
|
|
|
+for a direct match. Otherwise, tests if ob1
|
|
|
|
|
+and ob2 are equal.
|
|
|
|
|
+" "0FF006") "?SEMI" ("T \\-> :: ;
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "34AA1") "NOT?SEMI" ("T \\-> :: <ob1> <rest> ;
|
|
|
|
|
+F \\-> :: ;
|
|
|
|
|
+" "" "34A92") "?SEMIDROP" ("ob T \\-> :: ob ;
|
|
|
|
|
+ob F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "3692D") "NOT?DROP" ("ob T \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+ob F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "34BD8") "?SWAP" ("ob1 ob2 T \\-> :: ob2 ob1 <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob1 ob2 <ob1> <rest> ;
|
|
|
|
|
+" "" "35F56") "?SKIPSWAP" ("ob1 ob2 T \\-> :: ob1 ob2 <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob2 ob1 <ob1> <rest> ;
|
|
|
|
|
+" "" "35DDA") "?SWAPDROP" ("ob1 ob2 T \\-> :: ob1 <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob2 <ob1> <rest> ;
|
|
|
|
|
+" "" "35F97") "NOT?SWAPDROP" ("ob1 ob2 T \\-> :: ob2 <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob1 <ob1> <rest> ;
|
|
|
|
|
+" "" "35F7E") "RPIT" ("T ob \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+F ob \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "ob is actually executed, and not pushed in
|
|
|
|
|
+the stack.
|
|
|
|
|
+" "070FD") "RPITE" ("T ob1 ob2 \\-> :: ob1 <ob1> <rest> ;
|
|
|
|
|
+F ob1 ob2 \\-> ob2 <ob1> <rest> ;
|
|
|
|
|
+" "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.
|
|
|
|
|
+" "34AF4") "2'RCOLARPITE" ("Return to composite and ITE there.
|
|
|
|
|
+" "" "34B4F") "IT" ("T \\-> :: <ob1> <rest> ;
|
|
|
|
|
+F \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "34A22") "NOT_IT" ("T \\-> :: <ob2> <rest> ;
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "0712A") "?SKIP" ("T \\-> :: <ob2> <rest> ;
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "0712A") "ITE" ("T \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+F \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "34B3E") "COLAITE" ("T \\-> :: <ob1> ;
|
|
|
|
|
+F \\-> :: <ob2> ;
|
|
|
|
|
+" "" "36865") "ITE_DROP" ("ob T \\-> :: <ob2> <rest> ;
|
|
|
|
|
+ob F \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+" "" "34ABE") "ANDITE" ("f1 f2 \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+f1 f2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36EED") "case" ("T \\-> :: <ob1> ;
|
|
|
|
|
+F \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "349F9") "NOTcase" ("T \\-> :: <ob2> <rest> ;
|
|
|
|
|
+F \\-> :: <ob1> ;
|
|
|
|
|
+" "" "34A13") "ANDcase" ("f1 f2 \\-> :: <ob1> ;
|
|
|
|
|
+f1 f2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36D4E") "ANDNOTcase" ("f1 f2 \\-> :: <ob1> ;
|
|
|
|
|
+f1 f2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36E6B") "ORcase" ("f1 f2 \\-> :: <ob1> ;
|
|
|
|
|
+f1 f2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "359E3") "casedrop" ("ob T \\-> :: <ob1> ;
|
|
|
|
|
+ob F \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "3495D") "NOTcasedrop" ("ob T \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+ob F \\-> :: <ob1> ;
|
|
|
|
|
+" "" "3494E") "case2drop" ("ob1 ob2 T \\-> :: <ob1> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob1 ob2 <ob2> <rest> ;
|
|
|
|
|
+" "" "34985") "NOTcase2drop" ("ob1 ob2 T \\-> :: ob1 ob2 <ob2> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: <ob1> ;
|
|
|
|
|
+" "" "34976") "caseDROP" ("ob T \\-> :: ;
|
|
|
|
|
+ob F \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+" "" "349B1") "NOTcaseDROP" ("ob T \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+ob F \\-> :: ;
|
|
|
|
|
+" "" "349C6") "casedrptru" ("ob T \\-> T
|
|
|
|
|
+ob F \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+" "Note: should be called caseDRPTRU.
|
|
|
|
|
+" "368FB") "casedrpfls" ("ob T \\-> F
|
|
|
|
|
+ob F \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+" "Note: should be called caseDRPFLS.
|
|
|
|
|
+" "365B3") "NOTcsdrpfls" ("ob T \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+ob F \\-> F
|
|
|
|
|
+" "Note: should be called NOTcaseDRPFLS.
|
|
|
|
|
+" "36B3A") "case2DROP" ("ob1 ob2 T \\-> :: ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ob1 ob2 <ob1> <rest> ;
|
|
|
|
|
+" "" "349D6") "NOTcase2DROP" ("ob1 ob2 T \\-> :: ob1 ob2 <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 F \\-> :: ;
|
|
|
|
|
+" "" "349EA") "case2drpfls" ("ob1 ob2 T \\-> F
|
|
|
|
|
+ob1 ob2 F \\-> :: ob1 ob2 <ob1> <rest> ;
|
|
|
|
|
+" "Note: should be called case2DRPFLS.
|
|
|
|
|
+" "365CC") "caseTRUE" ("T \\-> T
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "3652C") "NOTcaseTRUE" ("T \\-> :: <ob1> <rest> ;
|
|
|
|
|
+F \\-> T
|
|
|
|
|
+" "" "36914") "caseFALSE" ("T \\-> F
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "365E5") "NOTcaseFALSE" ("T \\-> :: <ob1> <rest> ;
|
|
|
|
|
+F \\-> F
|
|
|
|
|
+" "" "2B2C5") "COLAcase" ("T \\-> :: <ob1> ;
|
|
|
|
|
+F \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "Drops the rest of current stream and executes
|
|
|
|
|
+case in the stream above.
|
|
|
|
|
+" "359AD") "COLANOTcase" ("T \\-> :: <ob2> <rest> ;
|
|
|
|
|
+F \\-> :: <ob1> ;
|
|
|
|
|
+" "Drops the rest of current stream and executes
|
|
|
|
|
+NOTcase in the stream above.
|
|
|
|
|
+" "359C8") "#=?SKIP" ("#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "363B5") "#>?SKIP" ("#m #n \\-> :: <ob1> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "363E2") "#=ITE" ("#m #n \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "35C54") "#<ITE" ("#m #n \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36F29") "#>ITE" ("#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+" "" "36F3D") "#=case" ("#m #n \\-> :: <ob1> ;
|
|
|
|
|
+#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "348D2") "OVER#=case" ("#m #n \\-> :: #m <ob1> ;
|
|
|
|
|
+#m #n \\-> :: #m <ob2> <rest> ;
|
|
|
|
|
+" "" "348E2") "#=casedrop" ("#m #n \\-> :: <ob1> ;
|
|
|
|
|
+#m #n \\-> :: #m <ob2> <rest> ;
|
|
|
|
|
+" "Note: should be called OVER#=casedrop.
|
|
|
|
|
+" "34939") "#=casedrpfls" ("#m #n \\-> F
|
|
|
|
|
+#m #n \\-> :: #m <ob1> <rest> ;
|
|
|
|
|
+" "Note: should be called OVER#=caseDRPFLS.
|
|
|
|
|
+" "36590") "#<>case" ("#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob1> ;
|
|
|
|
|
+" "" "36D9E") "#<case" ("#m #n \\-> :: <ob1> ;
|
|
|
|
|
+#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36D76") "#>case" ("#m #n \\-> :: <ob2> <rest> ;
|
|
|
|
|
+#m #n \\-> :: <ob1> ;
|
|
|
|
|
+" "" "36DCB") "#0=?SEMI" ("#0 \\-> :: ;
|
|
|
|
|
+# \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "34A7E") "#0=?SKIP" ("#0 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+# \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "36383") "#0=ITE" ("#0 \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+# \\-> :: <ob2> <rest>
|
|
|
|
|
+" "" "36F15") "DUP#0=IT" ("#0 \\-> :: #0 <ob1> <rest> ;
|
|
|
|
|
+# \\-> :: # <ob2> <rest> ;
|
|
|
|
|
+" "" "36ED4") "DUP#0=ITE" ("#0 \\-> :: #0 <ob1> <ob3> <rest> ;
|
|
|
|
|
+# \\-> :: # <ob2> <rest> ;
|
|
|
|
|
+" "" "36F51") "#0=case" ("#0 \\-> :: <ob1> ;
|
|
|
|
|
+# \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "348FC") "DUP#0=case" ("#0 \\-> :: #0 <ob1> ;
|
|
|
|
|
+# \\-> :: # <ob2> <rest> ;
|
|
|
|
|
+" "" "348F7") "DUP#0=csedrp" ("#0 \\-> :: <ob1> ;
|
|
|
|
|
+# \\-> :: # <ob2> <rest> ;
|
|
|
|
|
+" "" "3490E") "DUP#0=csDROP" ("#0 \\-> :: ;
|
|
|
|
|
+# \\-> :: # <ob1> <rest> ;
|
|
|
|
|
+" "" "36D21") "#1=case" ("#1 \\-> :: <ob1> ;
|
|
|
|
|
+# \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36D8A") "#1=?SKIP" ("#1 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+# \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "3639C") "#>2case" ("#0/#1/#2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+# \\-> :: <ob1> ;
|
|
|
|
|
+" "" "36DB2") "?CaseKeyDef" ("# #' \\-> :: ' ob1 T ;
|
|
|
|
|
+ \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "Compares two bints. If equal, quotes the
|
|
|
|
|
+next object from the runsream and returns it
|
|
|
|
|
+along with TRUE.
|
|
|
|
|
+" "25E72") "?CaseRomptr@" ("# #' \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+ \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "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.
|
|
|
|
|
+" "25E73") "%0=case" ("%0 \\-> :: %0 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B149") "j%0=case" ("%0 \\-> :: <ob1> ;
|
|
|
|
|
+ob \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36DDF") "C%0=case" ("C%0 \\-> :: C%0 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B15D") "num0=case" ("0 \\-> :: 0 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "Both a real and a complex zero are TRUE
|
|
|
|
|
+conditions for this test.
|
|
|
|
|
+" "2B11C") "%1=case" ("%1 \\-> :: %1 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B1A3") "C%1=case" ("C%1 \\-> :: C%1 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B1C1") "num1=case" ("1 \\-> :: 1 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "Both a real and a complex one are TRUE
|
|
|
|
|
+conditions for this test.
|
|
|
|
|
+" "2B176") "%2=case" ("%2 \\-> :: %2 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B20C") "C%2=case" ("C%2 \\-> :: C%2 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B22A") "num2=case" ("2 \\-> :: 2 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "Both a real and a complex two are TRUE
|
|
|
|
|
+conditions for this test.
|
|
|
|
|
+" "2B1DF") "%-1=case" ("%-1 \\-> :: %-1 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B289") "C%-1=case" ("C%-1 \\-> :: C%-1 <ob1> ;
|
|
|
|
|
+ob \\-> ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B2A7") "num-1=case" ("-1 \\-> :: -1 <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "Both a real and a complex -1 are TRUE
|
|
|
|
|
+conditions for this test.
|
|
|
|
|
+" "2B25C") "MEQ1stcase" ("meta&ob1 ob2 \\-> ob1=ob2 ? case
|
|
|
|
|
+" "Meta&ob1 ob2 ob1=ob2 ? case
|
|
|
|
|
+" "2AFFB") "AEQ1stcase" ("meta&ob \\-> ob=nob ? case
|
|
|
|
|
+" "Meta&ob ob=nob ? case
|
|
|
|
|
+" "2AF37") "MEQopscase" ("meta1&ob1 meta2&ob2 ob3 \\->
|
|
|
|
|
+" "Meta1&ob1 Meta2&ob2 ob3
|
|
|
|
|
+" "2B01B") "AEQopscase" ("meta1&ob1 meta2&ob2
|
|
|
|
|
+" "Meta1&ob1 Meta2&ob2
|
|
|
|
|
+" "2B06A") "Mid1stcase" ("meta&ob \\-> ob is id
|
|
|
|
|
+lam ? case
|
|
|
|
|
+" "Meta&ob ob is id or lam ? case
|
|
|
|
|
+" "2B083") "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
|
|
|
|
|
+" "2AE32") "EQIT" ("ob1 ob1 \\-> :: <ob1> <rest> ;
|
|
|
|
|
+ob1 ob2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36EBB") "EQITE" ("ob1 ob1 \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+ob1 ob2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36F01") "jEQcase" ("ob1 ob1 \\-> :: <ob1> ;
|
|
|
|
|
+ob1 ob2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36D3A") "EQcase" ("ob1 ob1 \\-> :: ob1 <ob1> ;
|
|
|
|
|
+ob1 ob2 \\-> :: ob1 <ob2> <rest> ;
|
|
|
|
|
+" "Note: Should be called OVEREQcase.
|
|
|
|
|
+" "34999") "REQcase" ("ob \\-> :: ob <ob2> ;
|
|
|
|
|
+ \\-> :: ob <ob3> <rest> ;
|
|
|
|
|
+" "EQcase with the next object in the
|
|
|
|
|
+runstream.
|
|
|
|
|
+" "359F7") "EQcasedrop" ("ob1 ob1 \\-> :: <ob1> ;
|
|
|
|
|
+ob1 ob2 \\-> :: ob1 <ob2> <rest> ;
|
|
|
|
|
+" "Note: should be called OVEREQcasedrop.
|
|
|
|
|
+" "34920") "REQcasedrop" ("ob \\-> <ob2> ;
|
|
|
|
|
+ \\-> <ob3> <rest> ;
|
|
|
|
|
+" "EQcasedrop with the next object in the
|
|
|
|
|
+runstream.
|
|
|
|
|
+" "35A10") "EQUALcase" ("ob1 ob1 \\-> :: <ob1> ;
|
|
|
|
|
+ob1 ob2 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36D62") "EQUALNOTcase" ("ob1 ob1 \\-> :: <ob2> <rest> ;
|
|
|
|
|
+ob1 ob2 \\-> :: <ob1> ;
|
|
|
|
|
+" "" "36E7F") "EQUALcasedrp" ("ob ob1 ob2 \\-> :: <ob1> ;
|
|
|
|
|
+ob ob1 ob2 \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "36D08") "EQUALcasedrop" ("ob1 ob2 \\-> :: <ob1> ;
|
|
|
|
|
+ob1 ob2 \\-> :: ob1 <ob2> <rest> ;
|
|
|
|
|
+" "" "2AD81") "tok=casedrop" ("$ $' \\-> :: <ob1> ;
|
|
|
|
|
+ \\-> :: $ <ob2> <rest> ;
|
|
|
|
|
+" "Note: should be called OVERtok=casedrop.
|
|
|
|
|
+" "29E99") "nonopcase" ("seco \\-> :: seco <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "2ADBD") "idntcase" ("id \\-> :: id <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B0CC") "dIDNTNcase" ("id \\-> :: id <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "36E93") "idntlamcase" ("id/lam \\-> :: id <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "2B0EF") "REALcase" ("% \\-> :: <ob1> ;
|
|
|
|
|
+ob \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36DF3") "dREALcase" ("% \\-> :: % ob1 ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "3EB9D" :UBS) "dREALNcase" ("% \\-> :: % <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "36EA7") "dARRYcase" ("[] \\-> :: [] <ob1> ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "36E07") "dLISTcase" ("{} \\-> :: {} ob1 ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "36E43") "NOTLISTcase" ("{} \\-> :: {} <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "260C6") "NOTSECOcase" ("seco \\-> :: seco <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "260D0") "NOTROMPcase" ("romp \\-> :: romp <ob2> <rest> ;
|
|
|
|
|
+ob \\-> :: ob <ob1> ;
|
|
|
|
|
+" "" "260CB") "numb1stcase" ("%/C%/[]/[L] \\-> :: <ob1> ;
|
|
|
|
|
+ob \\-> :: ob2 <rest> ;
|
|
|
|
|
+" "If %, C%, [ ] or [L] then <REF>COLA,
|
|
|
|
|
+else <REF>SKIP .
|
|
|
|
|
+" "2ADE0") "dZINTcase" ("zint \\-> :: zint ob1 ;
|
|
|
|
|
+ob \\-> :: ob <ob2> <rest> ;
|
|
|
|
|
+" "" "36E2F" :UBS) "UserITE" ("#set \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+#clr \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36F65") "SysITE" ("#set \\-> :: <ob1> <ob3> <rest> ;
|
|
|
|
|
+#clr \\-> :: <ob2> <rest> ;
|
|
|
|
|
+" "" "36F79") "caseDEADKEY" ("T \\-> :: DoBadKey ;
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "36C4F") "caseDoBadKey" ("T \\-> :: DoBadKey ;
|
|
|
|
|
+F \\-> :: <ob1> <rest> ;
|
|
|
|
|
+" "" "36C4F") "caseDrpBadKy" ("ob T \\-> :: DoBadKey ;
|
|
|
|
|
+ob F \\-> :: ob <ob1> <rest> ;
|
|
|
|
|
+" "" "36C36") "caseERRJMP" ("T \\-> :: ERRJMP ;
|
|
|
|
|
+F \\-> :: <ob> <rest> ;
|
|
|
|
|
+" "" "361B2") "caseSIZEERR" ("T \\-> :: SIZEERR ;
|
|
|
|
|
+F \\-> :: <ob> <rest> ;
|
|
|
|
|
+" "" "36B53") "NcaseSIZEERR" ("T \\-> :: <ob> <rest> ;
|
|
|
|
|
+F \\-> :: SIZEERR ;
|
|
|
|
|
+" "" "36B67") "NcaseTYPEERR" ("T \\-> :: <ob1> <rest> ;
|
|
|
|
|
+F \\-> :: TYPEERR ;
|
|
|
|
|
+" "" "36BAA") "NoEdit?case" ("\\-> :: <ob1> <rest> ;
|
|
|
|
|
+\\-> :: <rest> ;
|
|
|
|
|
+" "Tests if there is no edit line active.
|
|
|
|
|
+" "25EEE") "EditExstCase" ("\\-> :: <ob1> <rest> ;
|
|
|
|
|
+\\-> :: <rest> ;
|
|
|
|
|
+" "Tests if there is an edit line active.
|
|
|
|
|
+" "36E57") "AlgebraicModecase" ("\\-> :: <ob1> ;
|
|
|
|
|
+\\-> :: <ob2> <rest>
|
|
|
|
|
+" "Tests for algebraic mode and does case.
|
|
|
|
|
+" "2BE36" :UBS) "NOP" ("\\->
|
|
|
|
|
+" "Does nothing.
|
|
|
|
|
+" "06E8E") "xNEGNEG" ("\\->
|
|
|
|
|
+" "Does nothing, decompiles to
|
|
|
|
|
+ :: CK1&Dispatch BINT0 NOP ;
|
|
|
|
|
+There like NOP, but requires an argument.
|
|
|
|
|
+" "39CD5") "'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 <REF>'R then <REF>EVAL.
|
|
|
|
|
+" "06F66") "'R'R" ("\\-> ob1 ob2
|
|
|
|
|
+" "Does <REF>'R twice.
|
|
|
|
|
+" "36A27") "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.
|
|
|
|
|
+" "34BEF") "'RRDROP" ("\\-> ob
|
|
|
|
|
+" "Does <REF>'R , then <REF>RDROP.
|
|
|
|
|
+" "36A4A") ">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 <REF>R>, but the return stack is not
|
|
|
|
|
+popped.
|
|
|
|
|
+" "07012") "IDUP" ("\\->
|
|
|
|
|
+" "Pushes top body into return stack.
|
|
|
|
|
+" "0716B") "EVAL" ("ob \\->
|
|
|
|
|
+" "Evaluates object.
|
|
|
|
|
+" "06F8E") "COMPEVAL" ("comp \\->
|
|
|
|
|
+" "EVAL just pushes a list back, this one
|
|
|
|
|
+executes it.
|
|
|
|
|
+" "262FB") "2@REVAL" ("\\->
|
|
|
|
|
+" "EVAL first object in the stream above the
|
|
|
|
|
+previous one.
|
|
|
|
|
+" "34BAB") "3@REVAL" ("\\->
|
|
|
|
|
+" "EVAL first object in the stream above the
|
|
|
|
|
+stream above the previous one.
|
|
|
|
|
+" "34BBB") "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.
|
|
|
|
|
+" "34A31") "?GOTO" ("flag \\->
|
|
|
|
|
+" "If TRUE, jumps, else skips five nibbles.
|
|
|
|
|
+" "34A46") "NOT?GOTO" ("flag \\->
|
|
|
|
|
+" "If FALSE jumps, else skips five nibbles.
|
|
|
|
|
+" "34A59") "RDUP" ("\\->
|
|
|
|
|
+" "Duplicates top return stack level.
|
|
|
|
|
+" "26111") "RDROP" ("\\->
|
|
|
|
|
+" "Pops the return stack.
|
|
|
|
|
+" "06FB7") "2RDROP" ("\\->
|
|
|
|
|
+" "Pops two return stack levels.
|
|
|
|
|
+" "343E1") "3RDROP" ("\\->
|
|
|
|
|
+" "Pops three return stack levels.
|
|
|
|
|
+" "343F3") "DROPRDROP" ("ob \\->
|
|
|
|
|
+" "Does DROP then <REF>RDROP .
|
|
|
|
|
+" "36342") "RDROPCOLA" ("\\->
|
|
|
|
|
+" "Does <REF>RDROP then <REF>COLA .
|
|
|
|
|
+" "3597F") "RSWAP" ("\\->
|
|
|
|
|
+" "Swap in the return stack.
|
|
|
|
|
+" "34144") "RROLL" ("#n \\->
|
|
|
|
|
+" "Rolls nth return stack level to top of return
|
|
|
|
|
+stack.
|
|
|
|
|
+" "2644A" :UBS) "RSKIP" ("\\->
|
|
|
|
|
+" "Skips first object in the return stack (i.e.,
|
|
|
|
|
+the first object in the composite above this
|
|
|
|
|
+one).
|
|
|
|
|
+" "368C9") "OBJ>R" ("ob \\->
|
|
|
|
|
+" "Pushes an object into the return stack, for
|
|
|
|
|
+example for temporary storage. If ob is a
|
|
|
|
|
+list, the list is put as a whole onto the
|
|
|
|
|
+stream, not the individual elements.
|
|
|
|
|
+" "2B8BE" :UBS) "R>OBJ" ("\\-> ob
|
|
|
|
|
+" "Gets an object from the return stack.
|
|
|
|
|
+" "2B8E6" :UBS) "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.
|
|
|
|
|
+" "38837") "DUP'" ("ob \\-> ob nob
|
|
|
|
|
+" "Does DUP then '.
|
|
|
|
|
+" "3696E") "DROP'" ("ob \\-> nob
|
|
|
|
|
+" "Does DROP then '.
|
|
|
|
|
+" "36996") "SWAP'" ("ob1 ob2 \\-> ob2 ob1 nob
|
|
|
|
|
+" "Does SWAP then '.
|
|
|
|
|
+" "36982") "OVER'" ("ob1 ob2 \\-> ob1 ob2 ob1 nob
|
|
|
|
|
+" "Does OVER then '.
|
|
|
|
|
+" "369AA") "STO'" ("ob id/lam \\-> nob
|
|
|
|
|
+" "Does STO then '.
|
|
|
|
|
+" "369BE") "TRUE'" ("\\-> T nob
|
|
|
|
|
+" "Pushes TRUE and the next object to the stack.
|
|
|
|
|
+" "369D2") "FALSE'" ("\\-> F nob
|
|
|
|
|
+" "Pushes FALSE and the next object to the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "369FF") "ONEFALSE'" ("\\-> #1 F nob
|
|
|
|
|
+" "Pushes ONE, FALSE and the next object to the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "369E6") "#1+'" ("# \\-> #+1 nob
|
|
|
|
|
+" "Does #1+ then '.
|
|
|
|
|
+" "36A13") "'NOP" ("\\-> NOP
|
|
|
|
|
+" "Pushes NOP to the stack.
|
|
|
|
|
+" "36306") "'ERRJMP" ("\\-> ERRJMP
|
|
|
|
|
+" "Pushes ERRJMP to the stack.
|
|
|
|
|
+" "3619E") "'DROPFALSE" ("\\-> DROPFALSE
|
|
|
|
|
+" "Pushes DROPFALSE to the stack.
|
|
|
|
|
+" "2B90B") "'DoBadKey" ("\\-> DoBadKey
|
|
|
|
|
+" "Pushes DoBadKey to the stack.
|
|
|
|
|
+" "25E6A") "'DoBadKeyT" ("\\-> DoBadKey T
|
|
|
|
|
+" "Pushes <REF>DoBadKey and TRUE to the stack.
|
|
|
|
|
+" "25E6B") "DROPDEADTRUE" ("ob \\-> DoBadKey T
|
|
|
|
|
+" "Makes the user QdropQ dead, then pushes TRUE.
|
|
|
|
|
+" "2F32E") "'x*" ("\\-> x*
|
|
|
|
|
+" "Pushes <REF>x* (User word *) to the stack.
|
|
|
|
|
+" "36BBE" :UBS) "'xDER" ("\\-> xDER
|
|
|
|
|
+" "Pushes xDER (User word \\.d) to the stack.
|
|
|
|
|
+" "36BD2") "'IDFUNCTION" ("\\-> xFUNCTION
|
|
|
|
|
+" "Pushes xFUNCTION (User word FUNCTION) to the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "27B43") "'IDPOLAR" ("\\-> xPOLAR
|
|
|
|
|
+" "Pushes xPOLAR (User word POLAR) to the stack.
|
|
|
|
|
+" "27B6B") "'IDCONIC" ("\\-> xCONIC
|
|
|
|
|
+" "Pushes xCONIC (User word CONIC) to the stack.
|
|
|
|
|
+" "27B57" :UBS) "'IDPARAMETER" ("\\-> xPARAMETRIC
|
|
|
|
|
+" "Pushes xPARAMETRIC (user word PARAMETRIC)
|
|
|
|
|
+to the stack.
|
|
|
|
|
+" "27B7F") "'IDTRUTH" ("\\-> xTRUTH
|
|
|
|
|
+" "Pushes xTRUTH (user word TRUTH) to the stack.
|
|
|
|
|
+" "27B93" :UBS) "'IDSCATTER" ("\\-> xSCATTER
|
|
|
|
|
+" "Pushes xSCATTER (user word SCATTER) to the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "27BA7" :UBS) "'IDHISTOGRAM" ("\\-> xHISTOGRAM
|
|
|
|
|
+" "Pushes xHISTOGRAM (user word HISTROGRAM) to
|
|
|
|
|
+the stack.
|
|
|
|
|
+" "27BBB" :UBS) "'IDBAR" ("\\-> xBAR
|
|
|
|
|
+" "Pushes xBAR (user word BAR) to the stack.
|
|
|
|
|
+" "27BCF" :UBS) "'IDFAST3D" ("\\-> xFAST3D
|
|
|
|
|
+" "Pushes xFAST3D (user word FAST3D) to the
|
|
|
|
|
+stack.
|
|
|
|
|
+" "27BE3" :UBS) "'Rapndit" ("meta ob1...ob4 \\-> meta&ob ob1...ob4
|
|
|
|
|
+" "Takes ob from runstream and appends it to the
|
|
|
|
|
+meta starting in level 5.
|
|
|
|
|
+" "29ED0") "'xDEREQ" ("ob \\-> flag
|
|
|
|
|
+" "Is ob eq to user command xDER?
|
|
|
|
|
+" "36AA4") "COLA" ("Evals next obj and
|
|
|
|
|
+drops rest of this stream.
|
|
|
|
|
+" "" "06FD1") "ONECOLA" ("Does ONE, then COLA.
|
|
|
|
|
+" "" "36A63") "SWAPCOLA" ("Does SWAP, then COLA.
|
|
|
|
|
+" "" "3635B") "XYZ>ZCOLA" ("Does UNROT2DROP, then COLA.
|
|
|
|
|
+" "" "3636F") "COLA_EVAL" ("Returns and evals first obj
|
|
|
|
|
+in previous stream.
|
|
|
|
|
+" "" "34AD3") "COLACOLA" ("Drops rest of current stream
|
|
|
|
|
+does COLA in the above one.
|
|
|
|
|
+" "" "35994") "DROPCOLA" ("Does DROP then COLA
|
|
|
|
|
+" "" "281E9" :UBS) "SKIP" ("Skips 1 obj in the runstream.
|
|
|
|
|
+" "" "0714D") "2SKIP" ("Skips 2 objs in the runstream.
|
|
|
|
|
+" "" "0715C" :UBS) "skipcola" ("Does SKIP, then COLA.
|
|
|
|
|
+" "" "35715") "2skipcola" ("Does 2SKIP, then COLA.
|
|
|
|
|
+" "" "3570C") "3skipcola" ("Does 3SKIP, then COLA.
|
|
|
|
|
+" "" "35703") "5skipcola" ("Skips 5 objects, then does COLA.
|
|
|
|
|
+" "" "356D5") "COLASKIP" ("Drops rest of current stream
|
|
|
|
|
+and skips one obj in above stream.
|
|
|
|
|
+" "" "363FB") "IDUP" ("\\->
|
|
|
|
|
+" "Pushes interpreter pointer into the return
|
|
|
|
|
+stack.
|
|
|
|
|
+" "0716B") "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 <REF>AGAIN, otherwise
|
|
|
|
|
+<REF>RDROP .
|
|
|
|
|
+" "071C8") "NOT_UNTIL" ("flag \\->
|
|
|
|
|
+" "NOT then <REF>UNTIL .
|
|
|
|
|
+" "3640F") "#0=UNTIL" ("# \\-> #
|
|
|
|
|
+" "Actually, should be called DUP#0=UNTIL.
|
|
|
|
|
+" "35B96") "WHILE" ("flag \\->
|
|
|
|
|
+" "If TRUE does nothing, otherwise <REF>RDROP then
|
|
|
|
|
+<REF>2SKIP .
|
|
|
|
|
+" "071EE") "NOT_WHILE" ("flag \\->
|
|
|
|
|
+" "NOT then <REF>WHILE .
|
|
|
|
|
+" "36428") "DUP#0<>WHILE" ("# \\->
|
|
|
|
|
+" "Try to guess what it does.
|
|
|
|
|
+" "36441") "DO" ("#stop #start \\->
|
|
|
|
|
+" "" "073F7") "ZERO_DO" ("#stop \\->
|
|
|
|
|
+" "" "073C3") "DUP#0_DO" ("#stop \\-> #stop
|
|
|
|
|
+" "" "364C8") "ONE_DO" ("#stop \\->
|
|
|
|
|
+" "" "073CE") "#1+_ONE_DO" ("#stop \\->
|
|
|
|
|
+" "" "073DB") "toLEN_DO" ("{} \\-> {}
|
|
|
|
|
+" "From ONE to #elements.
|
|
|
|
|
+" "364E1") "LOOP" ("\\->
|
|
|
|
|
+" "" "07334") "+LOOP" ("# \\->
|
|
|
|
|
+" "Increments index by specified number.
|
|
|
|
|
+" "073A5") "DROPLOOP" ("ob \\->
|
|
|
|
|
+" "" "364AF") "SWAPLOOP" ("ob1 ob2 \\-> ob2 ob1
|
|
|
|
|
+" "" "36496") "STOPLOOP" ("\\->
|
|
|
|
|
+" "Destroys topmost loop environment.
|
|
|
|
|
+" "07321" :UBS) "SEMILOOP" ("\\->
|
|
|
|
|
+" "" "34AAD") "INDEX@" ("\\-> #
|
|
|
|
|
+" "Recalls topmost loop counter value.
|
|
|
|
|
+" "07221") "DUPINDEX@" ("ob \\-> ob #
|
|
|
|
|
+" "" "3645A") "SWAPINDEX@" ("ob1 ob2 \\-> ob2 ob1 #
|
|
|
|
|
+" "" "3646E") "OVERINDEX@" ("ob1 ob2 \\-> ob1 ob2 ob1 #
|
|
|
|
|
+" "" "36482") "INDEX@#-" ("# \\-> #'
|
|
|
|
|
+" "" "367D9") "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" ("\\-> #
|
|
|
|
|
+" "" "283FC") "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.
|
|
|
|
|
+" "3709B") "(ExitAtLoop)" ("\\->
|
|
|
|
|
+" "Does not exit loop immediately. Just stores
|
|
|
|
|
+zero as the stop value, so all objects until
|
|
|
|
|
+the next LOOP will be evaluated.
|
|
|
|
|
+" "3709B") "ExitAtLOOP" ("\\->
|
|
|
|
|
+" "Does not exit loop immediately. Just stores
|
|
|
|
|
+zero as the stop value, so all objects until
|
|
|
|
|
+the next LOOP will be evaluated.
|
|
|
|
|
+" "3709B") "DUP@" ("id/lam \\-> id/lam ob T
|
|
|
|
|
+ \\-> id/lam F
|
|
|
|
|
+" "Does DUP then <REF>@.
|
|
|
|
|
+" "35C2C") "SAFE@" ("id/lam \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "For lams does <REF>@. For ids does
|
|
|
|
|
+<REF>?ROMPTR> to the ob found.
|
|
|
|
|
+" "35A5B") "DUPSAFE@" ("id/lam \\-> id/lam ob T
|
|
|
|
|
+ \\-> id/lam F
|
|
|
|
|
+" "Does DUP then <REF>SAFE@.
|
|
|
|
|
+" "35A56") "SAFE@_HERE" ("id \\-> ob F
|
|
|
|
|
+ \\-> T
|
|
|
|
|
+" "Same as <REF>SAFE@, but works only in the
|
|
|
|
|
+current directory.
|
|
|
|
|
+" "25EF7") "Sys@" ("ID \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Switches temporarily to the HOME directory
|
|
|
|
|
+and executes @ there.
|
|
|
|
|
+" "2F064") "XEQRCL" ("id \\-> ob
|
|
|
|
|
+" "Same as <REF>SAFE@, but errors if variable is not
|
|
|
|
|
+found. Also works for lams, but you get the
|
|
|
|
|
+wrong error.
|
|
|
|
|
+" "2F2A3") "DUPXEQRCL" ("id \\-> id ob
|
|
|
|
|
+" "Tries to recall, errors if not existent.
|
|
|
|
|
+" "3F2EA" :UBS) "LISTRCL" ("{path id} \\-> ob
|
|
|
|
|
+" "Recalls from specified path.
|
|
|
|
|
+" "2F24E") "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") "EVALNOCKSTO" ("ob id/lam \\->
|
|
|
|
|
+" "Same as <REF>EvalNoCK:_ <REF>STO.
|
|
|
|
|
+" "2F2D5") "EVLNCKSTO" ("ob id \\->
|
|
|
|
|
+" "Does EvalNoCk: xSTO
|
|
|
|
|
+" "2F2D5" :UBS) "SAFESTO" ("ob id/lam \\->
|
|
|
|
|
+" "For ids, does <REF>?>ROMPTR to the object
|
|
|
|
|
+before storing.
|
|
|
|
|
+" "35A29") "SysSTO" ("ob ID \\->
|
|
|
|
|
+" "Switches temporarily to the HOME directory
|
|
|
|
|
+and executes <REF>STO there.
|
|
|
|
|
+" "2F380") "?STO_HERE" ("ob id/lam \\->
|
|
|
|
|
+" "Same as <REF>SAFESTO, but will only store in the
|
|
|
|
|
+current directory and will not overwrite a
|
|
|
|
|
+directory.
|
|
|
|
|
+" "25E79") "XEQSTOID" ("ob id/lam \\->
|
|
|
|
|
+" "Same as <REF>SAFESTO, but will only store in the
|
|
|
|
|
+current directory and will not overwrite a
|
|
|
|
|
+directory.
|
|
|
|
|
+" "25E79") "XEQStoKey" ("ob ID \\->
|
|
|
|
|
+" "" "25F0C") "xSTO>" ("ob id \\->
|
|
|
|
|
+ob symb \\->
|
|
|
|
|
+" "Like <REF>xSTO, but if the level 1 argument is
|
|
|
|
|
+symbolic, use the first element of it as the
|
|
|
|
|
+variable to write to.
|
|
|
|
|
+" "3E823") "^PROMPTSTO1" ("id/lam \\->
|
|
|
|
|
+" "Inputs value for a variable and stores it.
|
|
|
|
|
+" "0BD007" :wasCSys) "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 <REF>PURGE, but only works in current
|
|
|
|
|
+directory.
|
|
|
|
|
+" "25E78") "^SAFEPURGE" ("idnt/lam \\->
|
|
|
|
|
+" "Purge idnt/lam if it exist.
|
|
|
|
|
+" "1D3006" :wasCSys) "MOVEVAR" ("
|
|
|
|
|
+" "Move the variable to a different directory.
|
|
|
|
|
+Stack diagram unknown - level 1 must be rrp,
|
|
|
|
|
+but level two??
|
|
|
|
|
+" "2C388") "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.
|
|
|
|
|
+" "25EC4") "'LAMLNAMESTO" ("ob \\->
|
|
|
|
|
+" "STO to LAM LAMLNAME.
|
|
|
|
|
+" "36A8B") "MAKERRP" ("#libnum \\-> rrp
|
|
|
|
|
+" "Creates an empty directory.
|
|
|
|
|
+" "077E4" :UBS) "CREATERRP" ("id \\->
|
|
|
|
|
+" "Creates an empty directory. Does not check if
|
|
|
|
|
+the name is already used.
|
|
|
|
|
+ :: # 7FF CRDIR# SWAP CREATE ;
|
|
|
|
|
+" "08DF2" :UBS) "CREATEDIR" ("id \\->
|
|
|
|
|
+" "Creates an empty directory. Calls
|
|
|
|
|
+<REF>?PURGE_HERE first to delete the original.
|
|
|
|
|
+" "25EA1") "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).
|
|
|
|
|
+" "25EE7") "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).
|
|
|
|
|
+" "25EF2") "RAM-WORDNAME" ("ob \\-> id
|
|
|
|
|
+" "Recalls name of object in current directory.
|
|
|
|
|
+" "082E3") "XEQPGDIR" ("id \\->
|
|
|
|
|
+" "Purges a directory. Checks references, etc.
|
|
|
|
|
+first.
|
|
|
|
|
+" "25F14") "XEQORDER" ("{id1 id2..} \\->
|
|
|
|
|
+" "Orders the variables in the directory by
|
|
|
|
|
+moving the given variables to the beginning of
|
|
|
|
|
+the directory.
|
|
|
|
|
+" "2F296") "DOVARS" ("\\-> {id1 id2..}
|
|
|
|
|
+" "Returns list of variables from current
|
|
|
|
|
+directory.
|
|
|
|
|
+" "25EB9") "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.
|
|
|
|
|
+" "25EB8") "^DOTVARS{}" ("{# #' ...} \\-> {}
|
|
|
|
|
+" "Returns a list of variables in the current
|
|
|
|
|
+directory with user type given by any of the
|
|
|
|
|
+numbers in the list. This is the core of the
|
|
|
|
|
+TVARS program.
|
|
|
|
|
+" "0BD002") "DOTVARS" ("{# #' ...} \\-> {}
|
|
|
|
|
+" "Pointer to ^DOTVARS{}.
|
|
|
|
|
+" "2C3FA" :UBS) "PATHDIR" ("\\-> {HOME dir1 dir2..}
|
|
|
|
|
+" "Returns current path.
|
|
|
|
|
+" "25EF1") "UPDIR" ("\\->
|
|
|
|
|
+" "Goes to parent directory.
|
|
|
|
|
+" "2F265") "MYRAMROMPAIR" ("rrp \\-> rrp' T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Gets parent directory. Returns FALSE if
|
|
|
|
|
+parent directory is HOME.
|
|
|
|
|
+" "08309" :UBS) "SYSRRP?" ("rrp \\-> flag
|
|
|
|
|
+" "Is the directory the HOME directory?
|
|
|
|
|
+" "08DD4" :UBS) "CONTEXT@" ("\\-> rrp
|
|
|
|
|
+" "Recalls current directory.
|
|
|
|
|
+" "08D5A") "CONTEXT!" ("rrp \\->
|
|
|
|
|
+" "Sets new current directory.
|
|
|
|
|
+" "08D08") "LastContext!" ("rrp \\->
|
|
|
|
|
+" "" "25917" :UBS) "LastContext@" ("\\-> rrp
|
|
|
|
|
+" "" "2591C" :UBS) "SYSRRP?" ("rrp \\-> flag
|
|
|
|
|
+" "Is rrp HOME?
|
|
|
|
|
+" "08DD4") "STOPSIGN@" ("\\-> rrp
|
|
|
|
|
+" "Recalls last directory.
|
|
|
|
|
+" "08D82" :UBS) "STOPSIGN!" ("rrp \\->
|
|
|
|
|
+" "Stores new last directory.
|
|
|
|
|
+" "08D4A" :UBS) "SYSCONTEXT" ("\\->
|
|
|
|
|
+" "Sets HOME as current directory.
|
|
|
|
|
+" "08D92") "HOMEDIR" ("\\->
|
|
|
|
|
+" "Sets HOME as current directory.
|
|
|
|
|
+" "08D92") "SYSSTOPSIGN" ("\\->
|
|
|
|
|
+" "Sets HOME as last directory.
|
|
|
|
|
+" "08DC4" :UBS) "SaveVarRes" ("\\->
|
|
|
|
|
+" "Binds current and last directories to two
|
|
|
|
|
+nullnamed lams.
|
|
|
|
|
+" "3712C") "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.
|
|
|
|
|
+" "37186") "SetHiddenRes" ("\\->
|
|
|
|
|
+" "Sets the hidden directory as the current and
|
|
|
|
|
+last directories.
|
|
|
|
|
+" "3714A") "WithHidden" ("\\-> ?
|
|
|
|
|
+" "Executes next command in hidden directory.
|
|
|
|
|
+" "370C3") "RclHiddenVar" ("id \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Recalls variable in hidden directory. Same
|
|
|
|
|
+as
|
|
|
|
|
+ :: WithHidden @ ;
|
|
|
|
|
+" "370AF") "StoHiddenVar" ("ob id \\->
|
|
|
|
|
+" "Stores variable in hidden directory. Same as
|
|
|
|
|
+ :: WithHidden STO ;
|
|
|
|
|
+" "37104") "PuHiddenVar" ("id \\->
|
|
|
|
|
+" "Purges variable in hidden directory. Same as
|
|
|
|
|
+ :: WithHidden PURGE ;
|
|
|
|
|
+" "37118") "TOTEMPOB" ("ob \\-> ob'
|
|
|
|
|
+" "Copies object to TEMPOB and returns
|
|
|
|
|
+pointer to the new copy.
|
|
|
|
|
+" "06657") "TOTEMPSWAP" ("ob1 ob2 \\-> ob2' ob1
|
|
|
|
|
+" "Does TOTEMPOB then SWAP.
|
|
|
|
|
+" "35C90") "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.
|
|
|
|
|
+" "25E9F") "SWAPCKREF" ("ob1 ob2 \\-> ob2 ob1'
|
|
|
|
|
+" "Does SWAP then <REF>CKREF.
|
|
|
|
|
+" "3700A") "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" :UBS) "~INTEMPOB?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "01E0E8") "PTRREFD?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is referenced.
|
|
|
|
|
+" "065D9" :UBS) "REFERENCED?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is referenced or in
|
|
|
|
|
+composite.
|
|
|
|
|
+" "065E5" :UBS) "NOTREF?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is not referenced or in
|
|
|
|
|
+composite. ( :: REFERENCED? NOT ; )
|
|
|
|
|
+" "06BC2" :UBS) ">TOPTEMP" ("ob \\-> ob'
|
|
|
|
|
+" "Moves object to top ob TEMPOB area. Does
|
|
|
|
|
+not garbage collection.
|
|
|
|
|
+" "06DDE" :UBS) "TOTEMPOBADJ" ("ob \\-> ob ob'
|
|
|
|
|
+" "Makes a standalone copy by moving
|
|
|
|
|
+references to a new copy.
|
|
|
|
|
+" "064BD" :UBS) "DOADJ1" ("ob1 ob2 \\-> ob1 ob'
|
|
|
|
|
+" "Moves references from ob2 to ob1 (ob1 in
|
|
|
|
|
+TEMPOB area).
|
|
|
|
|
+" "064D6" :UBS) "DOADJ" ("ob1 ob2 \\-> ob1 ob'
|
|
|
|
|
+" "Moves references from ob2 to ob1 (ob1 in
|
|
|
|
|
+TEMPOB area). References to body of ob2 are
|
|
|
|
|
+moved too.
|
|
|
|
|
+" "064E2" :UBS) "SLOW" ("\\->
|
|
|
|
|
+" "15 millisecond delay.
|
|
|
|
|
+" "26120") "VERYSLOW" ("\\->
|
|
|
|
|
+" "300 millisecond delay.
|
|
|
|
|
+" "26125") "SORTASLOW" ("\\->
|
|
|
|
|
+" "1.2 second delay (4 x VERYSLOW).
|
|
|
|
|
+" "2F37E") "VERYVERYSLOW" ("\\->
|
|
|
|
|
+" "3 second delay.
|
|
|
|
|
+" "2612A") "dowait" ("%secs \\->
|
|
|
|
|
+" "Waits specified number of seconds.
|
|
|
|
|
+" "2F2D4") "%>HMS" ("% \\-> %hms
|
|
|
|
|
+" "Converts from decimal to H.MMSS format.
|
|
|
|
|
+" "3005E") "%%H>HMS" ("%% \\-> %%hms
|
|
|
|
|
+" "Same as %>HMS, but for long reals.
|
|
|
|
|
+" "30912") "%HMS>" ("%hms \\-> %
|
|
|
|
|
+" "Converts from H.MMSS format to decimal.
|
|
|
|
|
+" "30077") "%HMS+" ("%hms1 %hms2 \\-> %hms
|
|
|
|
|
+" "Adds time in hms format.
|
|
|
|
|
+" "3008B") "%HMS-" ("%hms1 %hms2 \\-> %hms
|
|
|
|
|
+" "Subtracts time in hms format.
|
|
|
|
|
+" "300B3") "TOD" ("\\-> %time
|
|
|
|
|
+" "Returns current time.
|
|
|
|
|
+" "2EECF") "VerifyTOD" ("%time \\-> %time
|
|
|
|
|
+" "Checks for validaty of time. Errors if not
|
|
|
|
|
+valid.
|
|
|
|
|
+" "2F388") "DATE" ("\\-> %date
|
|
|
|
|
+" "Returns current date.
|
|
|
|
|
+" "2EED0") ">DATE" ("%date \\->
|
|
|
|
|
+" "Sets date, errors if % is not a valid date.
|
|
|
|
|
+" "2F03B" :UBS) "DATE+DAYS" ("%date %days \\-> %date'
|
|
|
|
|
+" "Adds specified number of days to date.
|
|
|
|
|
+" "2EED2") "DDAYS" ("%date1 %date2 \\-> %days
|
|
|
|
|
+" "Returns number of days between two dates.
|
|
|
|
|
+" "2EED1") "SysTime" ("\\-> hxs
|
|
|
|
|
+" "Returns tick count.
|
|
|
|
|
+" "2EED7") "CLKTICKS" ("\\-> hxs
|
|
|
|
|
+" "Returns tick count.
|
|
|
|
|
+" "2EED7") "TIMESTR" ("%dt %tm \\-> \"dy dt tm\"
|
|
|
|
|
+" "Returns string representation of time, using
|
|
|
|
|
+current format. Example:
|
|
|
|
|
+ \"WED 06/24/98 10:00:45A\"
|
|
|
|
|
+" "2EED3") "Date>d$" ("%date \\-> $
|
|
|
|
|
+" "Returns string representation of date, using
|
|
|
|
|
+current format.
|
|
|
|
|
+" "2F329") "TOD>t$" ("%time \\-> $
|
|
|
|
|
+" "Returns string represent the time, using
|
|
|
|
|
+current format.
|
|
|
|
|
+" "2F381") "Date>hxs13" ("%date \\-> hxs
|
|
|
|
|
+" "Converts date to ticks.
|
|
|
|
|
+" "2F1AB") "Ticks>Date" ("hxs \\-> %date
|
|
|
|
|
+" "Returns date from hxs of internal alarm list
|
|
|
|
|
+format.
|
|
|
|
|
+" "2F003" :UBS) "Ticks>TOD" ("hxs \\-> %time
|
|
|
|
|
+" "Returns time from hxs of internal alarm list
|
|
|
|
|
+format.
|
|
|
|
|
+" "2F002" :UBS) "Ticks>Rpt" ("hxs \\-> %rpt
|
|
|
|
|
+" "Converts hxs in internal alarm list format to
|
|
|
|
|
+repetition interval.
|
|
|
|
|
+" "2F004" :UBS) "ALARMS@" ("\\-> {}
|
|
|
|
|
+" "Returns internal alarms list.
|
|
|
|
|
+" "2F178") "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.
|
|
|
|
|
+" "2F37F") "PURGALARM%" ("% \\->
|
|
|
|
|
+" "Internal <REF>xDELALARM.
|
|
|
|
|
+" "2F0AC") "RCLALARM%" ("%n \\-> {}
|
|
|
|
|
+" "Recalls nth alarm. List is in the format of
|
|
|
|
|
+STOALARMLS.
|
|
|
|
|
+" "2F314") "ALARM?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if an alarm is due.
|
|
|
|
|
+" "25FA9") "FNDALARM{}" ("
|
|
|
|
|
+" "" "2F113") "FindNext" ("
|
|
|
|
|
+" "" "2F336") "SetSysFlag" ("# \\->
|
|
|
|
|
+" "Sets the system flag with number #.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2614D") "ClrSysFlag" ("# \\->
|
|
|
|
|
+" "Clears the system flag with number #.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "26044") "TestSysFlag" ("# \\-> flag
|
|
|
|
|
+" "Returns TRUE if system flag is set.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "26170") "SetUserFlag" ("# \\->
|
|
|
|
|
+" "Set the user flag with number #.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "26152") "ClrUserFlag" ("# \\->
|
|
|
|
|
+" "Clear the user flag with number #.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "26049") "TestUserFlag" ("# \\-> flag
|
|
|
|
|
+" "Returns TRUE if user flag is set.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "26175") "RCLSYSF" ("\\-> hxs
|
|
|
|
|
+" "Recalls system flags from 1 to 64.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2F259") "STOSYSF" ("hxs \\->
|
|
|
|
|
+" "Stores system flags from 1 to 64.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2F25F" :UBS) "DOSTOSYSF" ("hxs \\->
|
|
|
|
|
+" "Stores system flags from 1 to 64, checking
|
|
|
|
|
+for changes in LASTARG flag.
|
|
|
|
|
+" "2F23E") "RCLSYSF2" ("\\-> hxs
|
|
|
|
|
+" "Recalls system flags from 65 to 128.
|
|
|
|
|
+" "2F25A" :UBS) "STOSYSF2" ("hxs \\->
|
|
|
|
|
+" "Stores system flags from 65 to 128.
|
|
|
|
|
+" "2F260" :UBS) "RCLUSERF" ("\\-> hxs
|
|
|
|
|
+" "Recalls user flags from 1 to 64.
|
|
|
|
|
+" "2F25B") "STOUSERF" ("hxs \\->
|
|
|
|
|
+" "Stores user flags from 1 to 64.
|
|
|
|
|
+" "2F261" :UBS) "RCLUSERF2" ("\\-> hxs
|
|
|
|
|
+" "Recalls user flags from 65 to 128.
|
|
|
|
|
+" "2F25C" :UBS) "STOUSERF2" ("hxs \\->
|
|
|
|
|
+" "Stores user flags from 65 to 128.
|
|
|
|
|
+" "2F262" :UBS) "STOALLFcont" ("hxs_usr hxs_sys \\->
|
|
|
|
|
+" "Stores user and system flags from 1 to
|
|
|
|
|
+64. First is user flags, second is system
|
|
|
|
|
+flags.
|
|
|
|
|
+" "2F3A9" :UBS) "STOALLFcont2" ("hxs_sys1 hxs_usr1 hxs_sys2 hxs_usr2 \\->
|
|
|
|
|
+" "Expects 4 hxs and stores them as user and
|
|
|
|
|
+system flags.
|
|
|
|
|
+" "2F3AA" :UBS) "DOSTOALLF" ("{} \\->
|
|
|
|
|
+" "Stores system and user flags. Expects a list
|
|
|
|
|
+with two or four hxs. The first two are the
|
|
|
|
|
+system and user flags, respectively, from 1
|
|
|
|
|
+to 64. The last two, if present, are the
|
|
|
|
|
+system and user flags, respectively, from 65
|
|
|
|
|
+to 128.
|
|
|
|
|
+" "3B76C" :UBS) "SaveSysFlags" ("\\->
|
|
|
|
|
+" "Save system flags in a virtual stack.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "25F23") "RestoreSysFlags" ("\\->
|
|
|
|
|
+" "Restore system flags from virtual stack,
|
|
|
|
|
+popping that level.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "25F22") "RunSafeFlags" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "Evaluates the next object in the runstream,
|
|
|
|
|
+but saves and restores the system flags
|
|
|
|
|
+around it. Uses DoRunSafe. This is very
|
|
|
|
|
+useful.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2ABF0") "RunInApprox" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "Eval next object in runstream with system
|
|
|
|
|
+flags 20, 21 clear and 22, 105, 102, 120 set.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -20 -21 -22 -105 -102 -120
|
|
|
|
|
+" "2AB69") "DoRunSafe" ("ob \\-> hxs1 hxs2
|
|
|
|
|
+" "Evaluate ob and put the system flags as they
|
|
|
|
|
+were before the evaluation on the stack.
|
|
|
|
|
+Used by RunSafeFlags and RunSafeFlagsNoError.
|
|
|
|
|
+" "2AC0E") "RunSafeFlagsNoError" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" " :: 'R DoRunSafe 2DROP ;
|
|
|
|
|
+" "2ABD7") "DOHEX" ("\\->
|
|
|
|
|
+" "Switch stack display format of HEX strings to
|
|
|
|
|
+hexadecimal.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2EFA5") "DODEC" ("\\->
|
|
|
|
|
+" "Switch stack display format of HEX strings to
|
|
|
|
|
+decimal.
|
|
|
|
|
+<REF>TEXT:Flags
|
|
|
|
|
+" "2EFA8") "DOBIN" ("\\->
|
|
|
|
|
+" "Switch stack display format of HEX strings to
|
|
|
|
|
+binary.
|
|
|
|
|
+" "2EFA6") "DOOCT" ("\\->
|
|
|
|
|
+" "Switch stack display of HEX strings to octal.
|
|
|
|
|
+" "2EFA7") "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.
|
|
|
|
|
+" "2EFBF") "DOSTD" ("\\->
|
|
|
|
|
+" "Internal version of user word STD.
|
|
|
|
|
+" "2605D") "DOFIX" ("# \\->
|
|
|
|
|
+" "Internal version of user word FIX.
|
|
|
|
|
+" "26053") "DOSCI" ("# \\->
|
|
|
|
|
+" "Internal version of user word SCI.
|
|
|
|
|
+" "26058") "DOENG" ("# \\->
|
|
|
|
|
+" "Internal version of user word ENG.
|
|
|
|
|
+" "2604E") "savefmt1" ("\\->
|
|
|
|
|
+" "Saves the current number format, and changes
|
|
|
|
|
+to STD mode.
|
|
|
|
|
+" "261A7") "rstfmt1" ("\\->
|
|
|
|
|
+" "Restores the number format saved by
|
|
|
|
|
+savefmt1. Only one set of flags can be saved,
|
|
|
|
|
+there is no nesting of these entries.
|
|
|
|
|
+" "261A2") "SETRAD" ("\\->
|
|
|
|
|
+" "Set angular mode to RAD.
|
|
|
|
|
+" "2FFDB") "RAD?" ("\\-> flag
|
|
|
|
|
+" "Is angular mode QRAD?Q
|
|
|
|
|
+" "25EF3") "SETDEG" ("\\->
|
|
|
|
|
+" "Set angular mode DEG.
|
|
|
|
|
+" "2FFBD") "SETGRAD" ("\\->
|
|
|
|
|
+" "Set angular mode GRAD.
|
|
|
|
|
+" "2FFEF") "DPRADIX?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if current radix is \".\".
|
|
|
|
|
+" "25EBA") "UNDO_OFF" ("\\->
|
|
|
|
|
+" "Turns saving of the last stack for UNDO off.
|
|
|
|
|
+" "256AC") "UNDO_ON" ("\\->
|
|
|
|
|
+" "Turns saving of the last stack for UNDO on.
|
|
|
|
|
+" "256A7") "UNDO_ON?" ("\\-> flag
|
|
|
|
|
+" "Tests if last stack saving for UNDO is on.
|
|
|
|
|
+" "256A2") "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
|
|
|
|
|
+" "25E6C") "IsApple" ("\\-> flag
|
|
|
|
|
+" "Can be used to distinguish the old Saturn
|
|
|
|
|
+HP49G from the new ARM-based hp48gII and
|
|
|
|
|
+hp49g+. The entry returns TRUE on the new
|
|
|
|
|
+machines. On an HP49G, this entry is not
|
|
|
|
|
+present. But you can test on both machines
|
|
|
|
|
+with the following ML program:
|
|
|
|
|
+ CODE
|
|
|
|
|
+ $80B
|
|
|
|
|
+ XM=0
|
|
|
|
|
+ ?XM=0
|
|
|
|
|
+ SKIPYES { }
|
|
|
|
|
+ GOVLNG =\"PushF/TLoop\"
|
|
|
|
|
+ ENDCODE
|
|
|
|
|
+" "2F3BF" :UBS :1\.22) "IsMidApple" ("\\-> flag
|
|
|
|
|
+" "Tests for the hp48gII. Returns TRUE on
|
|
|
|
|
+hp48gII, FALSE on hp49g+ and HP49G+.
|
|
|
|
|
+" "2F3C0" :UBS :1\.22) "IsBigApple" ("\\-> flag
|
|
|
|
|
+" "Check for the hp49g+. Returns TRUE on
|
|
|
|
|
+hp49g+, FALSE on hp48gII and HP49G+. Use
|
|
|
|
|
+this entry to test for the large screen.
|
|
|
|
|
+" "2F3C1" :UBS :1\.22) "DOBEEP" ("%freq %dur \\->
|
|
|
|
|
+" "Beeps. Analog to user function BEEP.
|
|
|
|
|
+" "25EB2") "setbeep" ("#ms #Hz \\->
|
|
|
|
|
+" "Also beeps.
|
|
|
|
|
+" "261AC") "^SERIAL" ("\\-> $
|
|
|
|
|
+" "Return a string with the Serial number of the
|
|
|
|
|
+unit.
|
|
|
|
|
+" "0C4002") "TurnOff" ("\\->
|
|
|
|
|
+" "Internal OFF.
|
|
|
|
|
+" "041A7") "DEEPSLEEP" ("\\-> flag
|
|
|
|
|
+" "Puts HP into deepsleep mode.
|
|
|
|
|
+Returns TRUE if \"Invalid Card Data\" message.
|
|
|
|
|
+" "041ED") "LowBat?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if low battery.
|
|
|
|
|
+" "01118") "ShowInvRomp" ("\\->
|
|
|
|
|
+" "Flashes \"Invalid Card Data\" message.
|
|
|
|
|
+" "0426A") "?FlashAlert" ("\\->
|
|
|
|
|
+" "Displays system warnings.
|
|
|
|
|
+" "2EE5D") "AlertStatus" ("\\-> #
|
|
|
|
|
+" "Gets last system warning:
|
|
|
|
|
+ #0h = OK
|
|
|
|
|
+ #1h = Alarm
|
|
|
|
|
+ #2h = LowBat (S)
|
|
|
|
|
+ #4h = LowBat (P1)
|
|
|
|
|
+ #8h = LowBat (P2)
|
|
|
|
|
+" "04544" :UBS) "Alert$" ("# \\-> $
|
|
|
|
|
+" "Recalls system warning message.
|
|
|
|
|
+" "04575" :UBS) "DOAPWL" ("\\->
|
|
|
|
|
+" "Forces a warm start but does not log a
|
|
|
|
|
+warmstart event.
|
|
|
|
|
+" "2F237" :UBS) "LiteSlp" ("\\->
|
|
|
|
|
+" "Enters light sleep mode.
|
|
|
|
|
+" "04912" :UBS) "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.
|
|
|
|
|
+" "2F257") "VARSIZE" ("id \\-> hxs %bytes
|
|
|
|
|
+" "Returns checksum and size in bytes of
|
|
|
|
|
+specified variable.
|
|
|
|
|
+" "2F267") "INHARDROM?" ("ob \\-> ob flag
|
|
|
|
|
+" "Is object address < #80000h?
|
|
|
|
|
+" "394C8") "CHANGETYPE" ("ob #prolog \\-> ob'
|
|
|
|
|
+" "Changes prolog of object, does TOTEMPOB.
|
|
|
|
|
+" "05AB3") ">LANGUAGE" ("# \\->
|
|
|
|
|
+" "Sets the current language for messages.
|
|
|
|
|
+Internal version of x\\->LANGUAGE.
|
|
|
|
|
+" "25F90") "LANGUAGE>" ("\\-> #
|
|
|
|
|
+" "Returns the current language for messages.
|
|
|
|
|
+Internal version of the xLANGUAGE\\->
|
|
|
|
|
+command.
|
|
|
|
|
+" "25F95") "NOBLINK" ("\\->
|
|
|
|
|
+" "Clears the BLINKFLAG, SysNib5.
|
|
|
|
|
+" "256BE") "?BlinkCursor" ("\\->
|
|
|
|
|
+" "Makes the cursor Blink if in App-mode or
|
|
|
|
|
+Editline.
|
|
|
|
|
+" "25E71") "PushVStack" ("obn..ob1 \\-> obn..ob1
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Pushes the RPN stack onto the Virtual
|
|
|
|
|
+Stack. The RPN stack is unchanged.
|
|
|
|
|
+" "25F1E") "PushVStack&Clear" ("obn..ob1 \\->
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Does PushVStack and then clears the RPN
|
|
|
|
|
+stack.
|
|
|
|
|
+" "25F1F") "PopMetaVStackDROP" ("\\-> obn..ob1
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\->
|
|
|
|
|
+" "Pops the topmost virtual stack into the RPN
|
|
|
|
|
+stack. The previous contents of the RPN stack
|
|
|
|
|
+are preserved. (The Meta in the name means
|
|
|
|
|
+that a count is returned, but the DROP
|
|
|
|
|
+removes it afterwards.)
|
|
|
|
|
+" "25F1A") "PopVStack" ("obm..ob1 \\-> obn'..ob1'
|
|
|
|
|
+VS
|
|
|
|
|
+[obn'..ob1'] \\->
|
|
|
|
|
+" "Pops the topmost virtual stack into the RPN
|
|
|
|
|
+stack. The previous contents of the RPN stack
|
|
|
|
|
+are lost.
|
|
|
|
|
+" "25F1B") "GetMetaVStackDROP" ("\\-> obn..ob1
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\-> [obn..ob1]
|
|
|
|
|
+" "Inserts the objects from the topmost virtual
|
|
|
|
|
+stack into the RPN stack. The Virtual Stack
|
|
|
|
|
+is unchanged. (The Meta in the name means
|
|
|
|
|
+that a count is returned, but it is removed
|
|
|
|
|
+by DROP.)
|
|
|
|
|
+" "25F17") "GetVStack" ("obm..ob1 \\-> obn'..ob1'
|
|
|
|
|
+VS
|
|
|
|
|
+[obn'..ob1'] \\-> [obn'..ob1']
|
|
|
|
|
+" "Copies the topmost virtual stack into the RPN
|
|
|
|
|
+stack. The Virtual Stack is not changed, but
|
|
|
|
|
+the current RPN stack is lost.
|
|
|
|
|
+" "25F18") "PushMetaVStack" ("obn..ob1 #n \\-> obn..ob1 #n
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Pushes #n objects as a new virtual stack. Any
|
|
|
|
|
+other objects in the RPN stack are not
|
|
|
|
|
+pushed. The RPN stack is unchanged.
|
|
|
|
|
+" "26265") "PushMetaVStack&Drop" ("obn..ob1 #n \\->
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Does PushMetaVStack then drops the pushed
|
|
|
|
|
+objects. Any other objects present in the RPN
|
|
|
|
|
+stack are neither pushed nor dropped.
|
|
|
|
|
+" "25F1D") "PopMetaVStack" ("\\-> obn..ob1 #n
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\->
|
|
|
|
|
+" "Insers the contents of the most recent
|
|
|
|
|
+virtual stack into the RPN stack, followed by
|
|
|
|
|
+the count. The previous contents of the RPN
|
|
|
|
|
+stack are not lost.
|
|
|
|
|
+" "25F19") "GetMetaVStack" ("\\-> obn..ob1 #n
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\-> [obn..ob1]
|
|
|
|
|
+" "Inserts the objects from the topmost virtual
|
|
|
|
|
+stack into the RPN stack, along with the
|
|
|
|
|
+count. The Virtual Stack is unchanged.
|
|
|
|
|
+" "2624C") "SetMetaVStack" ("obn'..ob1' #n \\->
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\-> [obn'..ob1']
|
|
|
|
|
+" "Modify the elements of the Virtual Stack
|
|
|
|
|
+according to a meta on the stack. The meta
|
|
|
|
|
+on the RPN stack and the fist level of the
|
|
|
|
|
+Virtual Stack must have the same number of
|
|
|
|
|
+elements!
|
|
|
|
|
+" "265D5" :UBS) "PushVStack&Keep" ("obn..ob1 obm'..ob1' #m \\-> obm'..ob1' #m
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Pushes the contents of the RPN stack which do
|
|
|
|
|
+not belong to the meta (ie, are \"above\" it)
|
|
|
|
|
+into a new virtual stack, removing these
|
|
|
|
|
+elements, but keeping the meta.
|
|
|
|
|
+" "25F20") "PushVStack&KeepDROP" ("obn..ob1 obm'..ob1' #m \\-> obm'..ob1'
|
|
|
|
|
+VS
|
|
|
|
|
+\\-> [obn..ob1]
|
|
|
|
|
+" "Does PushVStack&Keep and then DROP.
|
|
|
|
|
+" "25F21") "PopVStackAbove" ("obm'..ob1' \\-> obn..ob1 obm'..ob1'
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\->
|
|
|
|
|
+" "Pops the contents of the topmost virtual
|
|
|
|
|
+stack (like <REF>PopMetaVStackDROP would have
|
|
|
|
|
+done) into the RPN stack, but *above* the
|
|
|
|
|
+current contents of the RPN stack. This
|
|
|
|
|
+undoes PushVStack&Keep (or
|
|
|
|
|
+PushVStack&KeepDROP).
|
|
|
|
|
+" "25F1C") "DropVStack" ("\\->
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\->
|
|
|
|
|
+" "Drops the topmost virtual stack from the
|
|
|
|
|
+Virtual Stack.
|
|
|
|
|
+" "26215") "GetElemTopVStack" ("#i \\-> obi
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\-> [obn..ob1]
|
|
|
|
|
+" "Returns the ith object from the topmost
|
|
|
|
|
+virtual stack, counting from the
|
|
|
|
|
+top. \"Counting from the top\" means that
|
|
|
|
|
+object # 0 is the one at the highest-numbered
|
|
|
|
|
+level (n), # 1 is the one at level n-1, and
|
|
|
|
|
+so on. Note: no checking wheter #i is valid.
|
|
|
|
|
+" "26229") "PutElemTopVStack" ("new_ob #i \\->
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob(n-i)..ob1] \\-> [obn..new_ob..ob1]
|
|
|
|
|
+" "Replaces the ith object from the topmost
|
|
|
|
|
+virtual stack with new_ob, counting from the
|
|
|
|
|
+top. Note: no checking wheter #i is valid.
|
|
|
|
|
+" "2626F") "GetElemBotVStack" ("#i \\-> obi
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..ob1] \\-> [obn..ob1]
|
|
|
|
|
+" "Returns the ith object from the topmost
|
|
|
|
|
+virtual stack, counting from the
|
|
|
|
|
+bottom. \"Counting from the bottom\" means that
|
|
|
|
|
+# 0 is the object in the lowest numbered
|
|
|
|
|
+level (generally thought of as 1), # 1 is at
|
|
|
|
|
+level 2, etc. Note: no checking wheter #i
|
|
|
|
|
+is valid.
|
|
|
|
|
+" "26224") "PutElemBotVStack" ("new_ob #i \\->
|
|
|
|
|
+VS
|
|
|
|
|
+[obn..obi..ob1] \\-> [obn..new_ob..ob1]
|
|
|
|
|
+" "Replaces the ith object from the topmost
|
|
|
|
|
+virtual stack with new_ob, counting from the
|
|
|
|
|
+bottom. Note: no checking wheter #i is
|
|
|
|
|
+valid.
|
|
|
|
|
+" "2626A") "GetVStackProtectWord" ("\\-> #
|
|
|
|
|
+" "Hacking stuff: Gets the protection word
|
|
|
|
|
+of the last VStack level.
|
|
|
|
|
+" "26233") "InitVirtualStack" ("
|
|
|
|
|
+" "" "26251") "LAMLNAME" ("
|
|
|
|
|
+" "" "27142") "'LamKPSto" ("
|
|
|
|
|
+" "" "2F350") "SENDLIST" ("{} \\->
|
|
|
|
|
+" "Internal SEND.
|
|
|
|
|
+" "2EEBB") "GETNAME" ("$/id/lam \\->
|
|
|
|
|
+" "Internal KGET.
|
|
|
|
|
+" "2EEBC") "DOFINISH" ("\\->
|
|
|
|
|
+" "Internal FINISH.
|
|
|
|
|
+" "2EEBD") "DOPKT" ("$ $' \\->
|
|
|
|
|
+" "Internal PKT.
|
|
|
|
|
+" "2EEBE") "DOBAUD" ("% \\->
|
|
|
|
|
+" "Internal BAUD.
|
|
|
|
|
+" "2EEC1") "DOPARITY" ("% \\->
|
|
|
|
|
+" "Internal PARITY.
|
|
|
|
|
+" "2EEC2") "DOTRANSIO" ("% \\->
|
|
|
|
|
+" "Internal TRANSIO.
|
|
|
|
|
+" "2EEC3") "DOKERRM" ("\\-> $
|
|
|
|
|
+" "Internal KERRM.
|
|
|
|
|
+" "2EEC4") "DOBUFLEN" ("\\-> % 0/1
|
|
|
|
|
+" "Internal BUFLEN.
|
|
|
|
|
+" "2EEC5") "DOSTIME" ("
|
|
|
|
|
+" "Internal STIME.
|
|
|
|
|
+" "2F12E" :UBS) "DOSBRK" ("\\->
|
|
|
|
|
+" "Internal SBRK.
|
|
|
|
|
+" "2EEC6") "DOXMIT" ("$ \\->
|
|
|
|
|
+" "Internal XMIT.
|
|
|
|
|
+" "2F130" :UBS) "DOSRECV" ("% \\->
|
|
|
|
|
+" "Internal SRECV.
|
|
|
|
|
+" "2EEC7") "CLOSEUART" ("\\->
|
|
|
|
|
+" "Internal CLOSEIO.
|
|
|
|
|
+" "2EEC9") "DOCR" ("\\->
|
|
|
|
|
+" "Internal CR.
|
|
|
|
|
+" "2EECB") "DODELAY" ("% \\->
|
|
|
|
|
+" "Internal DELAY.
|
|
|
|
|
+" "2EECD") "KDispRow2" ("
|
|
|
|
|
+" "" "2F34B") "KDispStatus2" ("
|
|
|
|
|
+" "" "2F34C") "EXCHINITPK" ("
|
|
|
|
|
+" "" "2F333") "SENDEOT" ("
|
|
|
|
|
+" "" "2F372") "SENDNAK" ("
|
|
|
|
|
+" "" "2F374") "SENDERROR" ("
|
|
|
|
|
+" "" "2F373") "SENDPKT" ("
|
|
|
|
|
+" "" "2F376") "InitIOEnv" ("
|
|
|
|
|
+" "" "2F0E7") "KERMOPEN" ("
|
|
|
|
|
+" "" "2F0E6") "DOOPENIO" ("
|
|
|
|
|
+" "" "2EEC0") "OpenIO" ("
|
|
|
|
|
+" "" "2F2FF") "OpenIOPrt" ("
|
|
|
|
|
+" "" "2F35D") "APNDCRLF" ("$ \\-> $'
|
|
|
|
|
+" "Appends carriage return and line feed to
|
|
|
|
|
+string.
|
|
|
|
|
+" "2F31A") "docr" ("
|
|
|
|
|
+" "" "2EECA") "IOCheckReal" ("
|
|
|
|
|
+" "" "2F346") "IDIOPAR" ("ID IOPAR
|
|
|
|
|
+" "" "271A3" :UBS) "StdIOPAR" ("\\-> {}
|
|
|
|
|
+" "Default IOPAR: { 9600 0 0 0 3 1 }.
|
|
|
|
|
+" "2716D") "GetIOPAR" ("\\-> %baud % % % % %
|
|
|
|
|
+" "Recalls IOPAR and explodes it into the stack.
|
|
|
|
|
+" "2EEBF") "StoIOPAR" ("{} \\->
|
|
|
|
|
+" "STO the list of IO parameters in the HOME
|
|
|
|
|
+directory in the variable IOPAR.
|
|
|
|
|
+" "2F062") "SetIOPARErr" ("\\->
|
|
|
|
|
+" "Throws the IOPAR error: \"Invalid IOPAR\".
|
|
|
|
|
+" "2F37B") "StdPRTPAR" ("
|
|
|
|
|
+" "" "27A3A") "StoPRTPAR" ("
|
|
|
|
|
+" "" "2F063") "GetChkPRTPAR" ("
|
|
|
|
|
+" "" "2F338") "OpenUartClr" ("
|
|
|
|
|
+" "" "2F312") "OpenUart?Clr" ("
|
|
|
|
|
+" "" "2F313") "PRINT" ("
|
|
|
|
|
+" "" "2F0BC") "PRINTxNLF" ("
|
|
|
|
|
+" "" "2F362") "REMAP" ("
|
|
|
|
|
+" "" "2F36A") "SetEcma94" ("
|
|
|
|
|
+" "" "2EECE") "AllowPrlcdCl" ("
|
|
|
|
|
+" "" "2F177") "PrintGrob" ("
|
|
|
|
|
+" "" "2F361") "SetServMode" ("
|
|
|
|
|
+" "" "2F37D") "ClrServMode" ("
|
|
|
|
|
+" "" "2F325") "SendSetup" ("
|
|
|
|
|
+" "" "2F377") "TRPACKETFAIL" ("
|
|
|
|
|
+" "" "2F386") "IncrLAMPKNO" ("
|
|
|
|
|
+" "Increases packet number.
|
|
|
|
|
+" "2F343") "GetKermPkt#" ("
|
|
|
|
|
+" "" "2F33A") "RecvNextPkt" ("
|
|
|
|
|
+" "" "2F3A8" :UBS) "KVISLF" ("$ \\-> $'
|
|
|
|
|
+" "String translation for transfer from HP to
|
|
|
|
|
+PC. Inserts <cr> (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)
|
|
|
|
|
+" "2F34F") "KVIS" ("$ \\-> $'
|
|
|
|
|
+" "Like <REF>KVISLF, but never translates newlines.
|
|
|
|
|
+" "2F34E") "KINVISLF" ("$ \\-> $' $''
|
|
|
|
|
+" "String translation for transfer from PC to
|
|
|
|
|
+HP. Translates digraphs in the string to
|
|
|
|
|
+characters and removes <cr> (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.
|
|
|
|
|
+" "2F34D") "GETKP" ("
|
|
|
|
|
+" "" "2F33B") "SENDACK" ("
|
|
|
|
|
+" "" "2F371") "SENDNULLACK" ("
|
|
|
|
|
+" "" "2F375") "ACK_INIT" ("
|
|
|
|
|
+" "" "2F319") "CHOOSE_INIT" ("
|
|
|
|
|
+" "" "2F15A") "ENCODE1PKT" ("
|
|
|
|
|
+" "" "2F331") "ENCODE" ("
|
|
|
|
|
+" "" "2F330") "DECODE" ("
|
|
|
|
|
+" "" "2F32A") "UARTBUFLEN" ("
|
|
|
|
|
+" "" "2F387") "FLUSHRSBUF" ("
|
|
|
|
|
+" "" "2EEC8") "PUTSERIAL" ("
|
|
|
|
|
+" "" "2F364") "GETSERIAL" ("
|
|
|
|
|
+" "" "2F33F") "VERSTRING" ("\\-> $
|
|
|
|
|
+" "Returns version string.
|
|
|
|
|
+" "2F389") "UART?" ("
|
|
|
|
|
+" "" "25F06") "UARTxcp" ("
|
|
|
|
|
+" "" "25F07") "SEND_PACKET" ("
|
|
|
|
|
+" "" "2F3A7" :UBS) "XEQIOBACKUP" ("
|
|
|
|
|
+" "" "2F292") "kermpktmsg" ("
|
|
|
|
|
+" "" "00C10") "kermrecvmsg" ("
|
|
|
|
|
+" "" "00C0E") "kermsendmsg" ("
|
|
|
|
|
+" "" "00C0D") "CK0" ("\\->
|
|
|
|
|
+" "Saves current command to LASTCKCMD. Marks
|
|
|
|
|
+stack below level 1 to STACKMARK.
|
|
|
|
|
+" "262B0") "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.
|
|
|
|
|
+" "262B5") "CK2" ("ob1 ob2 \\-> ob1 ob2
|
|
|
|
|
+" "Like <REF>CK1, but checks for at least two
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "262BA") "CK3" ("ob1...ob3 \\-> ob1...ob3
|
|
|
|
|
+" "Like <REF>CK1, but checks for at least three
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "262BF") "CK4" ("ob1...ob5 \\-> ob1...ob5
|
|
|
|
|
+" "Like <REF>CK1, but checks for at least four
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "262C4") "CK5" ("ob1...ob5 \\-> ob1...ob5
|
|
|
|
|
+" "Like <REF>CK1, but checks for at least five
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "262C9") "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.
|
|
|
|
|
+" "262CE") "CKN+1" ("ob1...obn+1 %n \\-> ob1..obn #n
|
|
|
|
|
+" "Checks for a real in level one. Then checks
|
|
|
|
|
+for n+1 of arguments. Finally,
|
|
|
|
|
+converts the real to a bint.
|
|
|
|
|
+" "262D3" :UBS) "CK0NOLASTWD" ("\\->
|
|
|
|
|
+" "Like <REF>CK0, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "26292") "CK1NOLASTWD" ("ob \\-> ob
|
|
|
|
|
+" "Like <REF>CK1, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "26297") "CK2NOLASTWD" ("ob1 ob2 \\-> ob1 ob2
|
|
|
|
|
+" "Like <REF>CK2, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "2629C") "CK3NOLASTWD" ("ob1...ob3 \\-> ob1...ob3
|
|
|
|
|
+" "Like <REF>CK3, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "262A1") "CK4NOLASTWD" ("ob1...ob4 \\-> ob1...ob4
|
|
|
|
|
+" "Like <REF>CK4, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "262A6") "CK5NOLASTWD" ("ob1...ob5 \\-> ob1...ob5
|
|
|
|
|
+" "Like <REF>CK5, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "262AB") "CKNNOLASTWD" ("ob1...obn %n \\-> ob1..obn #n
|
|
|
|
|
+" "Like <REF>CKN, but does not save current
|
|
|
|
|
+command.
|
|
|
|
|
+" "25F25") "CK&DISPATCH0" ("\\->
|
|
|
|
|
+" "Dispatches on stack argument. Does not
|
|
|
|
|
+convert ZINTs to REAL.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>CK&DISPATCH1 <REF>CK&DISPATCH2
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "2631E") "CK&DISPATCH1" ("\\->
|
|
|
|
|
+" "Dispatches on stack arguments, stripping tags
|
|
|
|
|
+and converting ZINTS to REALS (HP49 only) if
|
|
|
|
|
+necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>CK&DISPATCH0 <REF>CK&DISPATCH2
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "26328") "CK&DISPATCH2" ("\\->
|
|
|
|
|
+" "Equivalent to <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>CK&DISPATCH0
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "26323") "CK1&Dispatch" ("\\->
|
|
|
|
|
+" "Combines <REF>CK1 with <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "26300") "CK2&Dispatch" ("\\->
|
|
|
|
|
+" "Combines <REF>CK2 with <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "26305") "CK3&Dispatch" ("\\->
|
|
|
|
|
+" "Combines <REF>CK3 with <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "2630A") "CK4&Dispatch" ("\\->
|
|
|
|
|
+" "Combines <REF>CK4 with <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "2630F") "CK5&Dispatch" ("\\->
|
|
|
|
|
+" "Combines <REF>CK5 with <REF>CK&DISPATCH1.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Dispatch_Types
|
|
|
|
|
+" "26314") "0LastRomWrd!" ("\\->
|
|
|
|
|
+" "Clears command save by last CK<n> command.
|
|
|
|
|
+<REF>CK0
|
|
|
|
|
+" "25F9A") "0LASTOWDOB!" ("\\->
|
|
|
|
|
+" "Clears command save by last CK<n> command.
|
|
|
|
|
+<REF>CK0
|
|
|
|
|
+" "25F9A") "0LASTOWDOB!" ("\\->
|
|
|
|
|
+" "Clears command save by last CK<n> command.
|
|
|
|
|
+<REF>CK0
|
|
|
|
|
+" "25F9A") "AtUserStack" ("\\->
|
|
|
|
|
+" " :: CK0NOLASTWD 0LASTOWDOB! ;
|
|
|
|
|
+" "2EF6C") "CK1NoBlame" ("\\->
|
|
|
|
|
+" " :: 0LASTOWDOB! CK1NOLASTWD ;
|
|
|
|
|
+" "25E9E") "'RSaveRomWrd" ("\\->
|
|
|
|
|
+" "Stores first object in the composite above
|
|
|
|
|
+the actual to LASTCKCMD.
|
|
|
|
|
+" "354CB") "'RSAVEWORD" ("\\->
|
|
|
|
|
+" "Stores first object in the composite above
|
|
|
|
|
+the actual to LASTCKCMD.
|
|
|
|
|
+" "354CB") "EvalNoCK" ("comp \\-> ?
|
|
|
|
|
+" "Evaluates composite without saving as
|
|
|
|
|
+current command. If first command is
|
|
|
|
|
+CK<n>&Dispatch it is replaced by
|
|
|
|
|
+CK&DISPATCH1. If first command is CK<n> it is
|
|
|
|
|
+skipped.
|
|
|
|
|
+Any other first command is also skipped!
|
|
|
|
|
+" "26319") "EvalNoCK:" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "<REF>EvalNoCK with the next object in the
|
|
|
|
|
+runstream as argument.
|
|
|
|
|
+" "25F29" :UBS) "EvalNoCK:" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "<REF>EvalNoCK with the next object in the
|
|
|
|
|
+runstream as argument.
|
|
|
|
|
+" "25F29" :UBS) "'EvalNoCK:_sup" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "<REF>EvalNoCK with the next object in the
|
|
|
|
|
+runstream as argument.
|
|
|
|
|
+" "25F29" :UBS) "RunRPN:" ("RS
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "Evaluate the next object in the runstream
|
|
|
|
|
+with RPN mode on (i.e. system flag 95
|
|
|
|
|
+clear). After the evaluation, the system
|
|
|
|
|
+flag is restored to its old value.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -95
|
|
|
|
|
+" "2A9E9") "CKREAL" ("% \\-> %
|
|
|
|
|
+Z \\-> %
|
|
|
|
|
+" "Checks for real. If a ZINT, convert
|
|
|
|
|
+to real. Else SETTYPEERR.
|
|
|
|
|
+" "36B7B") "^CK1Z" ("$/#/hxs \\-> Z
|
|
|
|
|
+" "CHecks for an integer. Converts strings,
|
|
|
|
|
+bints or hxs's to zints. Errors for other
|
|
|
|
|
+object types.
|
|
|
|
|
+" "184006" :wasCSys) "^CK2Z" ("ob ob' \\-> Z Z'
|
|
|
|
|
+" "Like <REF>^CK1Z, but for two objects.
|
|
|
|
|
+" "185006" :wasCSys) "^CK3Z" ("ob ob' ob'' \\-> Z Z' Z''
|
|
|
|
|
+" "Like <REF>^CK1Z, but for three objects.
|
|
|
|
|
+" "186006" :wasCSys) "CKARRY" ("\\->
|
|
|
|
|
+" "Checks for array.
|
|
|
|
|
+" "3F33F" :UBS) "CKLIST" ("\\->
|
|
|
|
|
+" "Checks for list.
|
|
|
|
|
+" "3F3C1" :UBS) "CKSYMBTYPE" ("\\->
|
|
|
|
|
+" "Checks for quoted name (name as symbolic).
|
|
|
|
|
+" "3D2B4") "nmetasyms" ("meta \\-> meta
|
|
|
|
|
+" "Checks for meta containing %, C%, unit, id,
|
|
|
|
|
+lam or symb.
|
|
|
|
|
+" "2EF07") "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.
|
|
|
|
|
+" "3BC43") "TYPEREAL?" ("ob \\-> flag
|
|
|
|
|
+" "" "3511D") "DTYPEREAL?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35118") "DUPTYPEREAL?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35118") "TYPECMP?" ("ob \\-> flag
|
|
|
|
|
+" "" "3512C") "DUPTYPECMP?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35127") "TYPECSTR?" ("ob \\-> flag
|
|
|
|
|
+" "" "3510E") "DTYPECSTR?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35109") "DUPTYPECSTR?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35109") "DTYPEARRY?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35136") "DUPTYPEARRY?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35136") "TYPEARRY?" ("ob \\-> flag ???
|
|
|
|
|
+" "" "3513B") "TYPERARRY?" ("ob \\-> flag
|
|
|
|
|
+" "" "35292") "TYPECARRY?" ("ob \\-> flag
|
|
|
|
|
+" "" "352AD") "TYPELIST?" ("ob \\-> flag
|
|
|
|
|
+" "" "35195") "DTYPELIST?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35190") "DUPTYPELIST?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35190") "TYPEIDNT?" ("ob \\-> flag
|
|
|
|
|
+" "" "3504B") "DUPTYPEIDNT?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35046") "TYPELAM?" ("ob \\-> flag
|
|
|
|
|
+" "" "350E1") "DUPTYPELAM?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350DC") "^TYPEIDNTLAM?" ("ob \\-> flag
|
|
|
|
|
+" "Tests if ob is ID or lam.
|
|
|
|
|
+" "194006" :wasCSys) "NotIDorLAM?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if ob is neither an ID nor a LAM.
|
|
|
|
|
+" "2F0D4" :UBS) "TYPESYMB?" ("ob \\-> flag
|
|
|
|
|
+" "" "35168") "DUPTYPESYMB?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35163") "TYPEHSTR?" ("ob \\-> flag
|
|
|
|
|
+" "" "350FF") "DUPTYPEHSTR?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350FA") "TYPEGROB?" ("ob \\-> flag
|
|
|
|
|
+" "" "35186") "DUPTYPEGROB?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35181") "TYPETAGGED?" ("ob \\-> flag
|
|
|
|
|
+" "" "351A4") "DUPTYPETAG?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "3519F") "TYPEEXT?" ("ob \\-> flag
|
|
|
|
|
+" "Is ob a unit object?
|
|
|
|
|
+" "351B3") "DUPTYPEEXT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Is ob a unit object?
|
|
|
|
|
+" "351AE") "TYPEROMP?" ("ob \\-> flag
|
|
|
|
|
+" "" "3514A") "DUPTYPEROMP?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35145") "TYPEBINT?" ("ob \\-> flag
|
|
|
|
|
+" "" "350F0") "DUPTYPEBINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350EB") "TYPERRP?" ("ob \\-> flag
|
|
|
|
|
+" "" "35159") "DUPTYPERRP?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35154") "TYPECHAR?" ("ob \\-> flag
|
|
|
|
|
+" "" "3503C") "DUPTYPECHAR?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35037") "TYPECOL?" ("ob \\-> flag
|
|
|
|
|
+" "Is on a secondary?
|
|
|
|
|
+" "35177") "DTYPECOL?" ("ob \\-> ob flag
|
|
|
|
|
+" "Is ob a secondary?
|
|
|
|
|
+" "35172") "DUPTYPECOL?" ("ob \\-> ob flag
|
|
|
|
|
+" "Is ob a secondary?
|
|
|
|
|
+" "35172") "TYPEAPLET?" ("ob \\-> flag
|
|
|
|
|
+" "" "350D2") "DUPTYPEAPLET?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350CD") "TYPEFLASHPTR?" ("ob \\-> flag
|
|
|
|
|
+" "" "35087") "DUPTYPEFLASHPTR?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35082") "TYPEFONT?" ("ob \\-> flag
|
|
|
|
|
+" "" "350C3") "DUPTYPEFONT?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350BE") "TYPELNGCMP?" ("ob \\-> flag
|
|
|
|
|
+" "" "350B4") "DUPTYPELNGCMP?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350AF") "TYPELNGREAL?" ("ob \\-> flag
|
|
|
|
|
+" "" "350A5") "DUPTYPELNGREAL?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "350A0") "TYPEZINT?" ("ob \\-> flag
|
|
|
|
|
+" "" "35096") "DUPTYPEZINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35091") "^TYPEZ?" ("ob \\-> flag
|
|
|
|
|
+" "" "182006" :wasCSys) "^DUPTYPEZ?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "183006" :wasCSys) "^TYPEGAUSSINT?" ("ob \\-> flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "114007" :1\.11 :wasCSys) "^DTYPEGAUSSINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "115007" :1\.11 :wasCSys) "^DUPTYPEGAUSSINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "116007" :1\.11 :wasCSys) "TYPEBAK?" ("ob \\-> flag
|
|
|
|
|
+" "" "3505A" :UBS) "DUPTYPEBAK?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35055" :UBS) "TYPELIB?" ("ob \\-> flag
|
|
|
|
|
+" "" "35069" :UBS) "DUPTYPELIB?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35064" :UBS) "TYPEMATRIX?" ("ob \\-> flag
|
|
|
|
|
+" "" "35078" :UBS) "DUPTYPEMATRIX?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35073" :UBS) "DTYPEMATRIX?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "35073" :UBS) "TYPEEXT0?" ("ob \\-> flag
|
|
|
|
|
+" "" "351C2" :UBS) "DUPTYPEEXT0?" ("ob \\-> ob flag
|
|
|
|
|
+" "" "351BD" :UBS) "^CK1Cext" ("ob \\-> flag
|
|
|
|
|
+" "Checks if object is integer or Gaussian
|
|
|
|
|
+integer.
|
|
|
|
|
+" "187006" :wasCSys) "^CKALG" ("ob \\-> ob
|
|
|
|
|
+" "Checks that an object is real/cmplx/unit or
|
|
|
|
|
+idnt/lam/symbolic.
|
|
|
|
|
+" "181006" :wasCSys) "?OKINALG" ("ob \\-> ob flag
|
|
|
|
|
+" "Is object allowed in algebraics?
|
|
|
|
|
+" "25E77") "^DTYPFMAT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is a symbolic matrix.
|
|
|
|
|
+" "171006" :wasCSys) "^IDNTLAM?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if ob is idnt or lam.
|
|
|
|
|
+" "191006" :wasCSys) "^FLOAT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if ob is real or complex.
|
|
|
|
|
+" "192006" :wasCSys) "^REAL?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if ob is real, zint or hxs.
|
|
|
|
|
+" "195006" :wasCSys) "^TYPEREALZINT?" ("ob \\-> flag
|
|
|
|
|
+" "Tests if ob is real, zint or hxs.
|
|
|
|
|
+" "196006" :wasCSys) "^CKSYMREALCMP" ("ob \\-> ob
|
|
|
|
|
+" "Does \"Bad Argument Type\" error if ob is not a
|
|
|
|
|
+real, complex or symbolics.
|
|
|
|
|
+" "193006" :wasCSys) "Ck&DecKeyLoc" ("%rc.p \\-> #kc #p
|
|
|
|
|
+" "Converts from user key representation format
|
|
|
|
|
+to system. Does handle shift-hold keys.
|
|
|
|
|
+" "25EA7") "CodePl>%rc.p" ("#kc #p \\-> %rc.p
|
|
|
|
|
+" "Converts from system key representation
|
|
|
|
|
+format to user. Does handle shift-hold
|
|
|
|
|
+keys.
|
|
|
|
|
+" "25EA9") "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
|
|
|
|
|
+" "25EDC") "H/WKey>KeyOb" ("
|
|
|
|
|
+" "" "25EDD") "ModifierKey?" ("#kc #pl \\-> flag
|
|
|
|
|
+" "Is the key any of the three modifiers
|
|
|
|
|
+right-shift, left-shift, or alpha?
|
|
|
|
|
+" "25EEA") "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!
|
|
|
|
|
+" "2594E") "KeyOb!" ("ob \\->
|
|
|
|
|
+" "Store ob as the KeyOb.
|
|
|
|
|
+" "25949") "KeyOb0" ("\\->
|
|
|
|
|
+" "Clear the KeyOb.
|
|
|
|
|
+" "2593F") "KeyOb0?" ("\\-> flag
|
|
|
|
|
+" "Is the KeyOb clear?
|
|
|
|
|
+" "25944" :UBS) "FLUSH" ("\\->
|
|
|
|
|
+" "Flushes the key buffer.
|
|
|
|
|
+" "261CA") "FLUSHKEYS" ("\\->
|
|
|
|
|
+" "Flushes the key buffer.
|
|
|
|
|
+" "261CA") "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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "04708") "GETTOUCH" ("\\-> #kc T
|
|
|
|
|
+\\-> F
|
|
|
|
|
+" "Pops next key from key buffer (if there is
|
|
|
|
|
+one). Does handle shift-hold keys.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25ED6") "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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25ED7") "GetKeyOb" ("\\-> ob
|
|
|
|
|
+" "Wait for a single key and return the object
|
|
|
|
|
+associated with this key. Does handle
|
|
|
|
|
+shift-hold keys.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25ED9") "DoKeyOb" ("ob \\->
|
|
|
|
|
+" "Execute ob as if it had been assigned to a
|
|
|
|
|
+key and the key had been pressed.
|
|
|
|
|
+" "25EC5") "REPKEY?" ("#kc \\-> flag
|
|
|
|
|
+" "Returns TRUE if the key is being pressed.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25EF5") "REPEATERCH" ("\\->
|
|
|
|
|
+" "Same as REPEATER, but slower, so more
|
|
|
|
|
+appropriate for scrolling and cursor motions.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25EF6") "KEYINBUFFER?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if there is at least a key in
|
|
|
|
|
+the key buffer.
|
|
|
|
|
+" "25EE3") "WaitForKey" ("\\-> #kc #flag
|
|
|
|
|
+" "Returns next full key press. Does *not* handle
|
|
|
|
|
+shift-hold keys.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "25F0B") "Wait/GetKey" ("% \\-> ?
|
|
|
|
|
+" "Internal WAIT command. Does *not* handle
|
|
|
|
|
+shift-hold keys.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "2F268") "ATTN?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if `CANCEL' has been pressed.
|
|
|
|
|
+" "25FAE") "?ATTN_QUIT" ("\\->
|
|
|
|
|
+" "If `CANCEL' has been pressed, ABORTs program.
|
|
|
|
|
+" "25E70") "?ATTNQUIT" ("\\->
|
|
|
|
|
+" "If `CANCEL' has been pressed, ABORTs program.
|
|
|
|
|
+" "25E70") "CK0ATTNABORT" ("\\->
|
|
|
|
|
+" "Executed by the UserRPL program delimiters
|
|
|
|
|
+x<< and x>> and by xUNTIL. Mainly just
|
|
|
|
|
+?ATTNQUIT.
|
|
|
|
|
+" "25E9D") "NoAttn?Semi" ("\\->
|
|
|
|
|
+" "If `CANCEL' has been not pressed, drops the
|
|
|
|
|
+rest of the stream.
|
|
|
|
|
+" "25EED") "ATTNFLG@" ("\\-> #
|
|
|
|
|
+" "Recalls `CANCEL' key counter.
|
|
|
|
|
+" "05040") "ATTNFLGCLR" ("\\->
|
|
|
|
|
+" "Clears `CANCEL' key counter. Does not affect
|
|
|
|
|
+the key buffer.
|
|
|
|
|
+" "05068") "DoBadKey" ("\\->
|
|
|
|
|
+" "Beeps.
|
|
|
|
|
+" "25EBF") "DropBadKey" ("ob \\->
|
|
|
|
|
+" "Beeps.
|
|
|
|
|
+" "25ECD") "2DropBadKey" ("ob ob' \\->
|
|
|
|
|
+" "Beeps.
|
|
|
|
|
+" "25E6E") "UserKeys?" ("\\-> flag
|
|
|
|
|
+" "Does BINT62 TestSysFlag.
|
|
|
|
|
+" "25F09") "GetUserKeys" ("\\-> {}
|
|
|
|
|
+" "Returns user keys list (internal format).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|UserKeys
|
|
|
|
|
+" "25967") "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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|UserKeys
|
|
|
|
|
+" "2F3B3" :UBS) "UserKeys!" ("{} \\->
|
|
|
|
|
+" "Stores user keys (list is in internal
|
|
|
|
|
+format).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|UserKeys
|
|
|
|
|
+" "25962" :UBS) "UserKeys0" ("\\->
|
|
|
|
|
+" "" "25958" :UBS) "UserKeys0?" ("\\-> flag
|
|
|
|
|
+" "" "2595D" :UBS) "NonUsrKeyOK?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if the keys not defined do their
|
|
|
|
|
+normal actions.
|
|
|
|
|
+" "25621" :UBS) "SetNUsrKeyOK" ("\\->
|
|
|
|
|
+" "Keys not defined do their normal actions.
|
|
|
|
|
+" "25617" :UBS) "ClrNUsrKeyOK" ("\\->
|
|
|
|
|
+" "Keys not defined just beep when pressed.
|
|
|
|
|
+" "2561C" :UBS) "Key>StdKeyOb" ("#kc #pl \\-> ob
|
|
|
|
|
+" "Recalls the standard assignment of the key.
|
|
|
|
|
+This is the assignment which is active when
|
|
|
|
|
+USER mode is of.
|
|
|
|
|
+" "25EE5") "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.
|
|
|
|
|
+" "25EE6") "?Key>UKeyOb" ("
|
|
|
|
|
+" "" "25E76") "^KEYEVAL" ("% \\-> ?
|
|
|
|
|
+" "Keystroke evaluation. If % is negative, the
|
|
|
|
|
+standard key is always evaluated.
|
|
|
|
|
+" "255006" :wasCSys) "Do1User?" ("\\-> flag
|
|
|
|
|
+" "Checks if the 1USR flag is set.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -61
|
|
|
|
|
+" "25600" :UBS) "SetDo1User" ("\\->
|
|
|
|
|
+" "Sets the 1USR flag.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -61
|
|
|
|
|
+" "25605" :UBS) "ClrDo1User" ("\\->
|
|
|
|
|
+" "Clears the 1USR flag.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -61
|
|
|
|
|
+" "2560A" :UBS) "NonUsrKeyOK?" ("\\-> flag
|
|
|
|
|
+" "" "25612" :UBS) "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") "SETDF" ("
|
|
|
|
|
+" "" "04A4C" :UBS) "SETPROC" ("
|
|
|
|
|
+" "" "04A57" :UBS) "BadMenu?" ("\\-> flag
|
|
|
|
|
+" "Does the menu need an update?
|
|
|
|
|
+" "2581B" :UBS) "SetBadMenu" ("\\->
|
|
|
|
|
+" "Mark the mennu as bad.
|
|
|
|
|
+" "25820" :UBS) "ClrBadMenu" ("\\->
|
|
|
|
|
+" "Mark the menu as OK.
|
|
|
|
|
+" "25825" :UBS) "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.
|
|
|
|
|
+" "25877") "LabelDef@" ("\\-> ob
|
|
|
|
|
+" "Recall the current definition of LebelDef.
|
|
|
|
|
+" "2587C" :UBS) "LastMenuDef!" ("menu \\->
|
|
|
|
|
+" "Sets the definition of the last menu. menu
|
|
|
|
|
+is a MenuList or a program, or a Rompointer.
|
|
|
|
|
+" "25908") "LastMenuDef@" ("\\-> menu
|
|
|
|
|
+" "Recalls the definition of the last menu.
|
|
|
|
|
+menu is a MenuList or a program, or a
|
|
|
|
|
+Rompointer.
|
|
|
|
|
+" "2590D") "LastMenuDef?" ("ob \\->
|
|
|
|
|
+" "Is there a value for LastMenuDef?
|
|
|
|
|
+" "25903" :UBS) "SaveLastMenu" ("\\->
|
|
|
|
|
+" "Stores row and definition of current menu as
|
|
|
|
|
+the last menu.
|
|
|
|
|
+" "25EFB") "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,\\..
|
|
|
|
|
+" "260A8") "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.
|
|
|
|
|
+" "260AD") "MenuData!" ("ob \\->
|
|
|
|
|
+" "Store ob as the current MenuData definition.
|
|
|
|
|
+" "2584F" :UBS) "MenuData@" ("\\-> ob
|
|
|
|
|
+" "Recall the current MenuData definition.
|
|
|
|
|
+" "25854" :UBS) "GetMenuData" ("\\->
|
|
|
|
|
+" "" "2585E" :UBS) "MenuDef?" ("\\->
|
|
|
|
|
+" "Is there a current menu definition?
|
|
|
|
|
+" "2582D" :UBS) "MenuDef!" ("ob \\->
|
|
|
|
|
+" "Store ob as the current menu definition.
|
|
|
|
|
+" "25840" :UBS) "MenuDef@" ("\\-> menu
|
|
|
|
|
+" "Recalls the current menu definition. menu is
|
|
|
|
|
+a MenuList or a program, or a Rompointer.
|
|
|
|
|
+" "25845") "MenuExitAct!" ("ob \\->
|
|
|
|
|
+" "Store ob as exit action.
|
|
|
|
|
+" "258EF" :UBS) "NoExitAction" ("\\->
|
|
|
|
|
+" "Sets NOP as ExitAction. Mostly used to avoid
|
|
|
|
|
+that the menu is saved as the previous menu
|
|
|
|
|
+when a new Menu gets installed.
|
|
|
|
|
+" "25EEF") "MenuExitAct@" ("\\-> ob
|
|
|
|
|
+" "Recall the current definition of MenuExitAct.
|
|
|
|
|
+" "258F4" :UBS) "DoMenuExit" ("\\->
|
|
|
|
|
+" "Execute the current definition of MenuExitAct.
|
|
|
|
|
+" "258FE" :UBS) "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,\\..
|
|
|
|
|
+" "260B7") "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.
|
|
|
|
|
+" "260BC") "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}.
|
|
|
|
|
+" "2589F") "StdMenuKeyLS" ("{ob-NS ob-LS ob-RS} \\-> ?
|
|
|
|
|
+" "The content of MenuKeyLS for standard menus.
|
|
|
|
|
+" "25F02") "MenuKeyLS@" ("\\-> ob
|
|
|
|
|
+" "Recall the current definition of MenuKeyLS.
|
|
|
|
|
+" "258A4" :UBS) "DoMenuKeyLS" ("???
|
|
|
|
|
+" "Execute the current definition of MenuKeyLS.
|
|
|
|
|
+" "258AE" :UBS) "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}.
|
|
|
|
|
+" "2588B") "MenuKeyNS@" ("\\-> ob
|
|
|
|
|
+" "Recall the action for unshifted menu keys.
|
|
|
|
|
+" "25890") "SetKeysNS" ("ob \\->
|
|
|
|
|
+" "Sets ob as MenuKeysNS, DoBadKey to LS & RS.
|
|
|
|
|
+" "25EFC") "StdMenuKeyNS" ("ob-NS \\-> ?
|
|
|
|
|
+{ob-NS ob-LS ob-RS} \\-> ?
|
|
|
|
|
+" "The content of MenuKeyNS for standard menus.
|
|
|
|
|
+" "25F03") "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}.
|
|
|
|
|
+" "258B3") "MenuKeyRS@" ("\\-> ob
|
|
|
|
|
+" "Recall the current definition of MenuKeyRS.
|
|
|
|
|
+" "258B8" :UBS) "DoMenuKeyRS" ("???
|
|
|
|
|
+" "Execute the current definition of MenuKeyRS.
|
|
|
|
|
+" "258C2" :UBS) "Rebuild?" ("\\-> flag
|
|
|
|
|
+" "Does the menu need a rebuild?
|
|
|
|
|
+" "25809" :UBS) "SetRebuild" ("\\->
|
|
|
|
|
+" "Sets the flag that the menu needs to be
|
|
|
|
|
+rebuild.
|
|
|
|
|
+" "2580E") "ClrRebuild" ("\\->
|
|
|
|
|
+" "Clear the menu Rebuild flag.
|
|
|
|
|
+" "25813" :UBS) "ReviewKey!" ("ob \\->
|
|
|
|
|
+" "Store a program which is called with the
|
|
|
|
|
+review key (RS DOWN). The program has the
|
|
|
|
|
+stack diagram
|
|
|
|
|
+ ( \\-> )
|
|
|
|
|
+" "258C7") "ReviewKey@" ("\\-> ob
|
|
|
|
|
+" "Recall the current definition of the review
|
|
|
|
|
+program.
|
|
|
|
|
+" "258CC" :UBS) "DoReview" ("\\->
|
|
|
|
|
+" "Execute the program stored with ReviewKey!.
|
|
|
|
|
+This program should show information about
|
|
|
|
|
+the commands in the current menu page. The
|
|
|
|
|
+default program just displays the full names
|
|
|
|
|
+of the menu entries (retrieved with GETPROC
|
|
|
|
|
+>Review$).
|
|
|
|
|
+" "258D6" :UBS) "MenuRowAct!" ("ob \\->
|
|
|
|
|
+" "Stores ob as the RowAct menu property.
|
|
|
|
|
+" "25863") "MenuRowAct@" ("\\-> ob
|
|
|
|
|
+" "Recall the current MenuRowAct property.
|
|
|
|
|
+" "25868" :UBS) "DoMenuRowAct" ("???
|
|
|
|
|
+" "Execute the current MenuRowAct program.
|
|
|
|
|
+" "25872" :UBS) "Track?" ("\\-> flag
|
|
|
|
|
+" "Is there a Trach action defined for the
|
|
|
|
|
+current menu?
|
|
|
|
|
+" "257F7" :UBS) "SetTrack" ("ob \\->
|
|
|
|
|
+" "Set the program which should be executed when
|
|
|
|
|
+the current directory changes. For many
|
|
|
|
|
+menus, this is just a NOP, but for example
|
|
|
|
|
+the VAR menu needs it to display the correct
|
|
|
|
|
+variables.
|
|
|
|
|
+" "257FC" :UBS) "ClrTrack" ("\\->
|
|
|
|
|
+" "Clear the TrackAct program.
|
|
|
|
|
+" "25801" :UBS) "DoTrack" ("\\->
|
|
|
|
|
+" "Execute the current TrackAct program.
|
|
|
|
|
+" "258EA" :UBS) "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.
|
|
|
|
|
+" "25EE2") "TrackAct!" ("ob \\->
|
|
|
|
|
+" "Store a program for the track action. This
|
|
|
|
|
+program should have a stack diagram
|
|
|
|
|
+ ( \\-> ).
|
|
|
|
|
+" "258DB" :UBS) "TrackAct@" ("\\-> ob
|
|
|
|
|
+" "Recall the current TrackAct program.
|
|
|
|
|
+" "258E0" :UBS) "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).
|
|
|
|
|
+" "275C6") "NullMenuKey" ("\\->
|
|
|
|
|
+" "A placeholder for an empty menu key when
|
|
|
|
|
+defining menu lists.
|
|
|
|
|
+" "27FED") "Modifier" ("\\->
|
|
|
|
|
+" " :: TakeOver ;
|
|
|
|
|
+" "275EE") "MenuMaker" ("\\-> ob
|
|
|
|
|
+" "Quotes next object, and also provides
|
|
|
|
|
+TakeOver. The disassembly is
|
|
|
|
|
+ :: TakeOver 'R ;
|
|
|
|
|
+Normally this is used like this:
|
|
|
|
|
+ :: MenuMaker menu InitMenu ;
|
|
|
|
|
+" "27620") "InitMenu" ("menu \\->
|
|
|
|
|
+" "menu is {} or :: settings {} ;
|
|
|
|
|
+Settings override the default settings
|
|
|
|
|
+installed by InitMenu.
|
|
|
|
|
+" "25EE0") "DoMenuKey" ("menu \\->
|
|
|
|
|
+" " :: SetDA12NoCh InitMenu ;
|
|
|
|
|
+" "25EC6") "InitMenu%" ("%mnu.pg \\->
|
|
|
|
|
+%0 \\->
|
|
|
|
|
+" "" "25EE1") "GetMenu%" ("\\-> %
|
|
|
|
|
+" "" "25EDA") "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.
|
|
|
|
|
+" "25F00") "SetThisRow" ("\\->
|
|
|
|
|
+" "Builds a new TOUCHTAB, SetBadMenu.
|
|
|
|
|
+" "25EFE") "LoadTouchTbl" ("MenuKey1 .. MenuKeyN #n \\->
|
|
|
|
|
+" "Builds new TOUCHTAB from menukeys.
|
|
|
|
|
+" "25EE8") "SysMenuCheck" ("\\->
|
|
|
|
|
+" "Checks menu validity. If DA3NoCh? then
|
|
|
|
|
+nothing. If Track? then ?DoTrackAct@. If
|
|
|
|
|
+Rebuild? then SetThisRow.
|
|
|
|
|
+" "2EF66") "?DispMenu" ("\\->
|
|
|
|
|
+" "Redisplay the menu now if no key is waiting
|
|
|
|
|
+in the buffer. Even better is this:
|
|
|
|
|
+ :: DA3OK?NOTIT ?DispMenu ;
|
|
|
|
|
+" "2DFCC") "DispMenu.1" ("\\->
|
|
|
|
|
+" "Displays the menu immediately.
|
|
|
|
|
+" "2DFF4") "DispMenu" ("\\->
|
|
|
|
|
+" " :: DispMenu.1 SetDAsValid ;
|
|
|
|
|
+" "2DFE0") "Grob>Menu" ("#col grob \\->
|
|
|
|
|
+" "Displays grob as menu label.
|
|
|
|
|
+" "2E0D5") "Str>Menu" ("#col $ \\->
|
|
|
|
|
+" "Displays string as menu label.
|
|
|
|
|
+" "2E0F3") "Id>Menu" ("#col id \\->
|
|
|
|
|
+" "Displays id as menu label.
|
|
|
|
|
+" "2E11B") "Seco>Menu" ("#col :: \\->
|
|
|
|
|
+" "Does EVAL then DoLabel.
|
|
|
|
|
+" "2E107") "DoLabel" ("#col ob \\->
|
|
|
|
|
+" "If ob is of one of the supported types,
|
|
|
|
|
+displays a menu label. If not, generates a
|
|
|
|
|
+\"Bad Argument Type\" error.
|
|
|
|
|
+" "25886") "MakeLabel" ("$ #w #x grob \\-> grob'
|
|
|
|
|
+" "Inserts $ into grob using CENTER$3x5 with
|
|
|
|
|
+y=5.
|
|
|
|
|
+" "2E2AA") "^WRITEMENU" ("$6...$1 \\->
|
|
|
|
|
+" "Displays the six strings as menu keys.
|
|
|
|
|
+" "08E007" :wasCSys) "CheckMenuRow" ("# \\-> # #'
|
|
|
|
|
+" "" "25EA6") "SetSomeRow" ("#n \\->
|
|
|
|
|
+" "with Mod(n,FFFFFh)= 0.
|
|
|
|
|
+" "25EFD") "DoMenuKeyNS" ("#n \\->
|
|
|
|
|
+" "" "2589A") "MenuKey" ("\\->
|
|
|
|
|
+" "Takes NOB from Runstream.
|
|
|
|
|
+" "275FD") "CLEARMENU" ("\\->
|
|
|
|
|
+" "" "2F15B") "CHECKMENU" ("\\->
|
|
|
|
|
+" "" "25F2B") "ID_CST" ("\\-> ob
|
|
|
|
|
+" "Evaluates ID CST.
|
|
|
|
|
+" "3EA01" :UBS) "nCustomMenu" ("\\->
|
|
|
|
|
+" "Installs the CST menu.
|
|
|
|
|
+" "2C2C0") "SolvMenuInit" ("\\->
|
|
|
|
|
+" "Sets MenuKeyNS/LS/RS, ReviewKey and LabelDef
|
|
|
|
|
+properties needed by the Solver menu.
|
|
|
|
|
+" "25EFF") "DoSolvrMenu" ("\\->
|
|
|
|
|
+" "Installs the solver menu which is also
|
|
|
|
|
+available via 75 MENU.
|
|
|
|
|
+" "25ECC") "DoNameKeyLRS" ("
|
|
|
|
|
+" "" "25EC7") "DoNameKeyRS" ("
|
|
|
|
|
+" "" "25EC8") "DoFirstRow" ("\\->
|
|
|
|
|
+" "Sets the first row of the current menu.
|
|
|
|
|
+" "25EC3") "DoNextRow" ("
|
|
|
|
|
+" "" "25EC9") "DoPrevRow" ("
|
|
|
|
|
+" "" "25ECB") "InputLine" ("args \\-> $ T
|
|
|
|
|
+ \\-> $ ob1..obn T
|
|
|
|
|
+ \\-> ob1..obn T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+args = $pr $line #pos
|
|
|
|
|
+#I/R #I/A #alph
|
|
|
|
|
+menu #row attn #parse
|
|
|
|
|
+" "" "2EF5F") "Ck&Input1" ("$1 $2 \\-> $3
|
|
|
|
|
+" "This is what the User command INPUT does if
|
|
|
|
|
+level 1 is a string.
|
|
|
|
|
+" "2F154" :UBS) "Ck&Input2" ("$1 {} \\-> $3
|
|
|
|
|
+" "This is what the User command INPUT does if
|
|
|
|
|
+level 1 is a list.
|
|
|
|
|
+" "2F155" :UBS) "InputLAttn" ("
|
|
|
|
|
+" "" "2F344") "InputLEnter" ("
|
|
|
|
|
+" "" "2F345") "^IfMain" ("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 new engine.
|
|
|
|
|
+" "020004") "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.
|
|
|
|
|
+" "2C371") "~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") "^IfSetFieldVisible" ("# T/F(fld/lbl) T/F(val) \\->
|
|
|
|
|
+# T/F(fld/blb) #0 \\-> T/F(val)
|
|
|
|
|
+" "Toggles the field or label visible or
|
|
|
|
|
+invisible. Second argument specifies if #
|
|
|
|
|
+means a field or a label. Third argument is
|
|
|
|
|
+the value to set. ZERO as third argument
|
|
|
|
|
+means to retrieve the current setting.
|
|
|
|
|
+" "021004") "^IfSetSelected" ("# T/F(fld/lbl) T/F(val) \\->
|
|
|
|
|
+# T/F(fld/blb) #0 \\-> T/F(val)
|
|
|
|
|
+" "Toggles the field or label selected or not
|
|
|
|
|
+selected (appears in inverse video on the
|
|
|
|
|
+screen).
|
|
|
|
|
+" "022004") "^IfSetGrob" ("# T/F(fld/lbl) grb \\->
|
|
|
|
|
+" "Sets the grob of a field or a label (modifies
|
|
|
|
|
+the data saved in the data string).
|
|
|
|
|
+" "023004") "^IfSetFieldValue" ("val # \\->
|
|
|
|
|
+" "Sets the value of a field (full handling,
|
|
|
|
|
+including GROB setting).
|
|
|
|
|
+" "024004") "^IfGetFieldValue" ("# \\-> val
|
|
|
|
|
+" "Gets the value of the Nth field.
|
|
|
|
|
+" "026004") "^IfGetCurrentFieldValue" ("\\->
|
|
|
|
|
+" "Gets the value of the current field.
|
|
|
|
|
+" "027004") "^IfSetCurrentFieldValue" ("val \\->
|
|
|
|
|
+" "Sets the value of the current field.
|
|
|
|
|
+" "025004") "^IfGetFieldMessageHandler" ("# \\-> prg
|
|
|
|
|
+" "Retrieves a field message handler.
|
|
|
|
|
+" "028004") "^IfGetFieldType" ("# \\-> #type
|
|
|
|
|
+" "Retrieves the field type.
|
|
|
|
|
+" "029004") "^IfGetFieldObjectsType" ("# \\-> {}
|
|
|
|
|
+" "Retrieves the field object type list.
|
|
|
|
|
+" "02A004") "^IfGetFieldDecompObject" ("# \\-> val
|
|
|
|
|
+" "Retrieves the field decomp value.
|
|
|
|
|
+" "02B004") "^IfGetFieldChooseData" ("# \\-> {}
|
|
|
|
|
+" "Retrieves the field data for choose.
|
|
|
|
|
+" "02C004") "^IfGetFieldChooseDecomp" ("# \\-> val
|
|
|
|
|
+" "Retrieves the field decomp value in QcaseQ of
|
|
|
|
|
+choose.
|
|
|
|
|
+" "02D004") "^IfGetFieldResetValue" ("# \\-> val
|
|
|
|
|
+" "Retrieves the field reset value.
|
|
|
|
|
+" "02E004") "^IfSetFieldResetValue" ("val # \\->
|
|
|
|
|
+" "Changes the field reset value.
|
|
|
|
|
+" "02F004") "^IfGetFieldInternalValue" ("# \\-> val
|
|
|
|
|
+" "Retrieves the field internal value.
|
|
|
|
|
+" "030004") "^IfDisplayFromData" ("\\->
|
|
|
|
|
+" "Displays the datastring on the screen. Takes
|
|
|
|
|
+care of the command line size.
|
|
|
|
|
+" "031004") "^IfGetNbFields" ("\\-> #n
|
|
|
|
|
+" "Recalls the number of fields from the data
|
|
|
|
|
+string.
|
|
|
|
|
+" "032004") "^IfCheckSetValue" ("# val \\->
|
|
|
|
|
+" "Checks or uncheck a check field.
|
|
|
|
|
+" "033004") "^IfCheckFieldtype" ("ob \\-> ob flag
|
|
|
|
|
+" "Checks if an object meets the current field
|
|
|
|
|
+type requirements.
|
|
|
|
|
+" "034004") "^IfGetPrlgFromTypes" ("{} \\-> {}'
|
|
|
|
|
+#FFFFF \\-> #0
|
|
|
|
|
+" "Generates a list of the allowed prologs for a
|
|
|
|
|
+field.
|
|
|
|
|
+" "04C004") "^IfReset" ("\\->
|
|
|
|
|
+" "Resets all fields, set as the current value
|
|
|
|
|
+their reset value. Used to explode the datalist
|
|
|
|
|
+on the stack to work on it.
|
|
|
|
|
+" "035004") "^IfSetField" ("# \\->
|
|
|
|
|
+" "Makes a different field \"current\".
|
|
|
|
|
+" "036004") "^IfKeyChoose" ("\\-> val
|
|
|
|
|
+\\->
|
|
|
|
|
+" "If the current field is a choose field,
|
|
|
|
|
+displays the posibilities and let the user
|
|
|
|
|
+choose. A value is returned only if the user
|
|
|
|
|
+does not press `CANCEL'.
|
|
|
|
|
+" "037004") "^IfKeyEdit" ("\\-> (cmd line)
|
|
|
|
|
+" "Edits the current field value if
|
|
|
|
|
+possible. You cannot edit a choose and a
|
|
|
|
|
+label choose field.
|
|
|
|
|
+" "038004") "^IfKeyTypes" ("\\-> (cmd line)
|
|
|
|
|
+\\->
|
|
|
|
|
+" "Displays a Choose box with all the possible
|
|
|
|
|
+types for this field. A command line is
|
|
|
|
|
+opened only if the user replies with OK.
|
|
|
|
|
+" "039004") "^IfKeyCalc" ("\\-> val
|
|
|
|
|
+" "Puts the value of the field on the stack and
|
|
|
|
|
+HALT. Allows to the user to compute a new
|
|
|
|
|
+value.
|
|
|
|
|
+" "03A004") "^IfKeyInvertCheck" ("\\->
|
|
|
|
|
+" "Inverts the current check field value.
|
|
|
|
|
+" "03B004") "^IfONKeyPress" ("\\->
|
|
|
|
|
+" "On Key handler. Gives the oportunity to the
|
|
|
|
|
+user to perform his own program. Asks to the IF
|
|
|
|
|
+if we can leave. If Yes, puts a FALSE (quit
|
|
|
|
|
+with ON (if canceled)) and sets the 'Quit
|
|
|
|
|
+LAM to TRUE.
|
|
|
|
|
+" "03C004") "^IfEnterKeyPress" ("\\->
|
|
|
|
|
+" "Enter Key management. Gives the oportunity to
|
|
|
|
|
+the user to perform his own program. Asks to
|
|
|
|
|
+the IF if we can leave. If yes, puts the
|
|
|
|
|
+fields values on the stack put a TRUE (if
|
|
|
|
|
+validated) and sets the 'Quit LAM to TRUE.
|
|
|
|
|
+" "03D004") "^IfSetHelpString" ("$dat #n $/# \\-> $dat'
|
|
|
|
|
+" "Sets the help string associated with a field.
|
|
|
|
|
+This is used by the automatic IF generator
|
|
|
|
|
+program and should not be use in other ways.
|
|
|
|
|
+" "03F004" :NOSDIAG) "^IfSetTitle" ("$dat grb/$/# \\-> $dat'
|
|
|
|
|
+" "Alters a DataString modifying the Title
|
|
|
|
|
+part. This is used by automatic IF generator
|
|
|
|
|
+program ans should not be use in other ways.
|
|
|
|
|
+" "040004" :NOSDIAG) "^IfInitDepth" ("\\->
|
|
|
|
|
+" "Initializes the internal depth counter. This
|
|
|
|
|
+has to be used when running a command
|
|
|
|
|
+modifying the stack
|
|
|
|
|
+" "04A004") "^IfMain2" ("$dat handl {} \\-> F
|
|
|
|
|
+ \\-> ob1...obn T
|
|
|
|
|
+" "Internal Inform Box main program. Alters a
|
|
|
|
|
+DataString modifying the Title part. This is
|
|
|
|
|
+used by automatic IF generator program ans
|
|
|
|
|
+should not be used in a different way.
|
|
|
|
|
+" "042004" :NOSDIAG) "^IfPutFieldsOnStack" ("\\-> ob1...obn
|
|
|
|
|
+" "Puts on the stack the external value of each
|
|
|
|
|
+field.
|
|
|
|
|
+" "043004") "^IfSetFieldPos" ("# T/F(fld/lbl) #x #y #w #h \\->
|
|
|
|
|
+" "Changes the size and position of an object
|
|
|
|
|
+Note: You can not change the size or the X
|
|
|
|
|
+position of a label or a check field.
|
|
|
|
|
+" "044004") "^IfGetFieldPos" ("# T/F(fld/lbl) \\-> #x #y #w #h
|
|
|
|
|
+" "Gets the size and position of an object.
|
|
|
|
|
+" "045004") "^IfSetAllLabelsMessages" ("$dat bmsg #n \\-> $dat
|
|
|
|
|
+" "Sets the text of a set of labels.
|
|
|
|
|
+" "047004") "^IfSetAllHelpStrings" ("$dat bmsg #n \\-> $dat
|
|
|
|
|
+" "Sets the Help String of all fields.
|
|
|
|
|
+" "048004") "^IsUncompressDataString" ("$dc \\-> $dat
|
|
|
|
|
+" "Uncompresses a compressed data string.
|
|
|
|
|
+" "04D004") "^IfCreateTitleGrob" ("
|
|
|
|
|
+" "" "049004") "^IfDisplayFromData2" ("
|
|
|
|
|
+" "" "046004") "^IfSetTitle2" ("
|
|
|
|
|
+" "" "041004") "^Filer" ("\\->
|
|
|
|
|
+" "Calls the standard filer.
|
|
|
|
|
+" "067004") "^FILER_MANAGER" ("{path} {args} \\-> flag
|
|
|
|
|
+{args} = { item1 item2 ... }
|
|
|
|
|
+item = {name loc action [prog] [key]} ... }
|
|
|
|
|
+" "Customized Filer, browsing all object types.
|
|
|
|
|
+{path} is the starting path for the filer, it
|
|
|
|
|
+can be an empty list for HOME. Tagging the
|
|
|
|
|
+empty list with \"0\", \"1\" or \"2\" makes the
|
|
|
|
|
+filer start in the corresponding port. flag
|
|
|
|
|
+is FALSE when filer is exited with ON,
|
|
|
|
|
+otherwise TRUE.
|
|
|
|
|
+<REF>Filer_Action_Reference
|
|
|
|
|
+" "06D004") "^FILER_MANAGERTYPE" ("{types} {path} {args} \\->
|
|
|
|
|
+{args} = { item1 item2 ... }
|
|
|
|
|
+item = {name loc action [prog] [key]} ... }
|
|
|
|
|
+" "Customized filer for selected types only.
|
|
|
|
|
+The types are prologue addresses like
|
|
|
|
|
+{ DOFONT DORRP DOBAK } etc.
|
|
|
|
|
+<REF>FILER_MANAGER
|
|
|
|
|
+<REF>Filer_Action_Reference
|
|
|
|
|
+" "06E004") "^" ("" "Uses the File Manager to search for fonts.
|
|
|
|
|
+" "06F004") "~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'.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0000B3") "~ChooseMenu0" ("\\-> {}
|
|
|
|
|
+" "Menus with \"OK\".
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0050B3") "~ChooseMenu1" ("\\-> {}
|
|
|
|
|
+" "Menus with \"CANCL\", \"OK\".
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0060B3") "~ChooseMenu2" ("\\-> {}
|
|
|
|
|
+" "Menus with \"CHK\", \"CANCL\", \"OK\".
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0070B3") "~ChooseSimple" ("$title {items} \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Simple interface to the HP48 choose engine.
|
|
|
|
|
+On the HP49G, calls ^RunChooseSimple.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0630B3") "^RunChooseSimple" ("$title {items} \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Simple interface to the HP48 choose engine.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "004002") "^DoCKeyCheck" ("\\->
|
|
|
|
|
+" "Toggle check on current item.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "09F002") "^DoCKeyChAll" ("\\->
|
|
|
|
|
+" "Check all elements.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0A0002") "^DoCKeyUnChAll" ("\\->
|
|
|
|
|
+" "Uncheck all items.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0B0002") "^DoCKeyCancel" ("\\->
|
|
|
|
|
+" "Simulate Cancel.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "09E002") "^DoCKeyOK" ("\\->
|
|
|
|
|
+" "Simulate OK.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "09D002") "^LEDispPrompt" ("\\->
|
|
|
|
|
+" "Redraw title.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0B3002") "^LEDispList" ("\\->
|
|
|
|
|
+" "Redraw browser lines.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0B2002") "^LEDispItem" ("# \\->
|
|
|
|
|
+" "Redraw one line.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0B1002") "~BBMoveTo" ("# \\->
|
|
|
|
|
+" "Moves selection to line and updates display.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0150B3" :UBS) "~BBRecalOff&Disp" ("flag \\->
|
|
|
|
|
+" "Recalculates offset of selected item in page,
|
|
|
|
|
+and redraws lines if the flag is TRUE.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0190B3" :UBS) "~BBRunEntryProc" ("\\->
|
|
|
|
|
+" "Sends message 85 to ::Appl, thus running the
|
|
|
|
|
+user-defined start-up procedure.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0220B3" :UBS) "~BBReReadPageSize" ("\\->
|
|
|
|
|
+" "Re-reads the size of the page (message 57).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0230B3" :UBS) "~BBReReadHeight" ("\\->
|
|
|
|
|
+" "Re-reads the height of the browser line
|
|
|
|
|
+(message 58).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0240B3" :UBS) "~BBReReadCoords" ("\\->
|
|
|
|
|
+" "Re-reads the coordinates of the browser box
|
|
|
|
|
+(message 63).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0250B3" :UBS) "~BBReReadWidth" ("\\->
|
|
|
|
|
+" "Re-reads the width of the browser line
|
|
|
|
|
+(message 59).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0290B3" :UBS) "~BBReDrawBackgr" ("\\->
|
|
|
|
|
+" "Redraws the background.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "02F0B3" :UBS) "~BBGetNGrob" ("#n \\-> grob
|
|
|
|
|
+" "Returns nth element as a grob.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0370B3" :UBS) "~BBGetNStr" ("#n \\-> $
|
|
|
|
|
+" "Returns nth element as a string.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0380B3" :UBS) "~BBRereadChkEnbl" ("\\->
|
|
|
|
|
+" "Re-reads whether checkmarks are
|
|
|
|
|
+enabled. (Message 61).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "03B0B3" :UBS) "~BBRereadFullScr" ("\\->
|
|
|
|
|
+" "Re-reads whether to use full-screen
|
|
|
|
|
+mode. (Message 60).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "03C0B3" :UBS) "~BReReadMenus" ("\\->
|
|
|
|
|
+" "Re-reads the menu. (Message 83).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "03D0B3" :UBS) "~BBReReadNElems" ("\\->
|
|
|
|
|
+" "Re-reads the number of elements. (Message
|
|
|
|
|
+62).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "03E0B3" :UBS) "~BBGetN" ("#n \\-> ob
|
|
|
|
|
+" "Returns nth element.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "03F0B3" :UBS) "~BBIsChecked?" ("#n \\-> flag
|
|
|
|
|
+" "Returns whether the given element is
|
|
|
|
|
+checked.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "04B0B3" :UBS) "~BBUpArrow" ("\\-> grob
|
|
|
|
|
+" "Returns up arrow as grob
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0520B3" :UBS) "~BBDownArrow" ("\\-> grob
|
|
|
|
|
+" "Returns down arrow as grob
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0530B3" :UBS) "~BBSpace" ("\\-> grob
|
|
|
|
|
+" "Returns a space as grob.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0540B3" :UBS) "~BBPgDown" ("\\->
|
|
|
|
|
+" "Go down one page.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "0590B3" :UBS) "~BBPgUp" ("\\->
|
|
|
|
|
+" "Go up one page.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "05A0B3" :UBS) "~BBEmpty?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if the browser has no elements.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser48
|
|
|
|
|
+" "05C0B3" :UBS) "~BRbrowse" ("
|
|
|
|
|
+" "" "0100E0") "^BRDispItems" ("
|
|
|
|
|
+" "" "0A5003") "^BRdone" ("
|
|
|
|
|
+" "" "0A4003") "^BRGetItem" ("
|
|
|
|
|
+" "" "0AB003") "^BRinverse" ("
|
|
|
|
|
+" "" "0A6003") "~BRoutput" ("
|
|
|
|
|
+" "" "0130E0") "^BrowseMem.1" ("
|
|
|
|
|
+" "" "070004") "~BRRclC1" ("\\->
|
|
|
|
|
+" " :: LAM 'BR5 ;
|
|
|
|
|
+" "0190E0") "~BRRclCurRow" ("
|
|
|
|
|
+" " :: LAM 'BR3 ;
|
|
|
|
|
+" "0180E0") "~BRStoC1" ("
|
|
|
|
|
+" " :: ' LAM 'BR5 STO ;
|
|
|
|
|
+" "0030E0") "^BRViewItem" ("
|
|
|
|
|
+" "" "0A7003") "^Choose3" ("meta $title #pos ::handler \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "The main choose engine.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "072002" :UBS) "^Choose3Save" ("meta $title #pos ::handler \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Save and restore HARDBUFF/2 around a ^Choose3
|
|
|
|
|
+call.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "073002" :UBS) "^Choose3Index" ("meta $title #pos ::handler \\-> #idx T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Same as ^Choose3, but returns the index of
|
|
|
|
|
+the selected item instead of the item
|
|
|
|
|
+itself. #idx starts at zero.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "074002" :UBS) "^Choose2" ("meta $title #pos \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Call ^Choose3 with empty message handler.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "06E002" :UBS) "^Choose2Save" ("meta $title #pos \\-> ob T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Save and restore HARDBUFF/2 around a ^Choose2
|
|
|
|
|
+call.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "06F002" :UBS) "^Choose2Index" ("meta $title #pos \\-> #idx T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Call Choose3Index with empty message handler.
|
|
|
|
|
+This is just
|
|
|
|
|
+ :: 'DROPFALSE FPTR2 ^Choose3Index ;
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "070002" :UBS) "^sysCHOOSE" ("$title {} %sel \\-> ob %1
|
|
|
|
|
+$title {} %sel \\-> %0
|
|
|
|
|
+" "Equivalent to User RPL CHOOSE command.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "005002" :UBS) "^ChooseDefHandler" ("\\-> ::handler
|
|
|
|
|
+" "Pushed the default message handler (the one
|
|
|
|
|
+used by the `CAT' key) on the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "075002" :UBS) "^SaveHARDBUFF" ("\\->
|
|
|
|
|
+" "Save HARDBUFF and HARDBUFF2 is a safe place.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "088002" :UBS) "^RestoreHARDBUFF" ("\\->
|
|
|
|
|
+" "Restore HARDBUFF and HARDBUFF2 saved with
|
|
|
|
|
+SaveHARDBUFF.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "089002" :UBS) "^Choose3OK" ("\\->
|
|
|
|
|
+" "The OK action executed by Choose3 if OK or
|
|
|
|
|
+ENTER is pressed.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "077002" :UBS) "^Choose3CANCL" ("\\->
|
|
|
|
|
+" "The CANCEL action executed by Choose3 if
|
|
|
|
|
+`CANCL' or `ON' is pressed.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Browser49
|
|
|
|
|
+" "076002" :UBS) "ParOuterLoop" ("Disp Keys NonAppKeys? DoStdKeys? menu #row suspendOK? ExitCond AppErr \\->
|
|
|
|
|
+" "" "2B475") "POLSaveUI" ("Disp Keys NonAppKeys? DoStdKeys? menu #row suspendOK? ExitCond AppErr \\->
|
|
|
|
|
+" "Saves current UI to LAMSavedUI.
|
|
|
|
|
+" "2B4AC") "POLSetUI" ("<REF>ParOuterLoop
|
|
|
|
|
+" "Sets new UI, same arguments as to
|
|
|
|
|
+ParOuterLoop.
|
|
|
|
|
+" "2B542") "POLKeyUI" ("\\->
|
|
|
|
|
+" "Displays, reads and evaluates keys according
|
|
|
|
|
+to set UI.
|
|
|
|
|
+" "2B628") "POLRestoreUI" ("\\->
|
|
|
|
|
+" "Restores saved UI from LAMSavedUI.
|
|
|
|
|
+" "2B6CD") "POLResUI&Err" ("\\->
|
|
|
|
|
+" "Restores saved UI and executes ERRJMP.
|
|
|
|
|
+" "2B6B4") "AppDisplay!" ("ob \\->
|
|
|
|
|
+" "" "29F25") "AppDisplay@" ("\\->
|
|
|
|
|
+" "" "29F35") "AppKeys!" ("ob \\->
|
|
|
|
|
+" "" "29F55") "AppKeys0" ("???
|
|
|
|
|
+" "" "29F75") "AppKeys@" ("
|
|
|
|
|
+" "" "29F65" :UBS) "AppExitCond!" ("ob \\->
|
|
|
|
|
+" "" "2A055") "AppExitCond@" ("\\-> ob
|
|
|
|
|
+" "" "2A065") "AppError!" ("ob \\->
|
|
|
|
|
+" "" "2A145") "AppError@" ("\\-> ob
|
|
|
|
|
+" "" "2A158") "AppMode?" ("\\-> flag
|
|
|
|
|
+" "Is currently a POL active?
|
|
|
|
|
+" "25690") "SetAppMode" ("\\->
|
|
|
|
|
+" "" "25695") "ClrAppMode" ("\\->
|
|
|
|
|
+" "" "2569A") "SetNAppKeyOK" ("\\->
|
|
|
|
|
+" "" "2564D") "ClrNAppKeyOK" ("\\->
|
|
|
|
|
+" "" "25652" :UBS) "DoStdKeys?" ("\\-> flag
|
|
|
|
|
+" "" "2565A") "SetDoStdKeys" ("\\->
|
|
|
|
|
+" "" "2565F") "ClrDoStdKeys" ("\\->
|
|
|
|
|
+" "" "25664" :UBS) "SuspendOK?" ("\\-> flag
|
|
|
|
|
+" "Does the current user interface allow
|
|
|
|
|
+suspension?
|
|
|
|
|
+" "25F04") "nohalt" ("\\-> ob
|
|
|
|
|
+" " :: LAM 'nohalt ;
|
|
|
|
|
+" "27E72") "AppSuspOK?" ("\\->
|
|
|
|
|
+" "" "2566C" :UBS) "SetAppSuspOK" ("\\->
|
|
|
|
|
+" "" "25671") "ClrAppSuspOK" ("\\->
|
|
|
|
|
+" "" "25676") "InitPOLVars" ("
|
|
|
|
|
+" "" "2B709") "EditLExists?" ("\\-> flag
|
|
|
|
|
+" "Does an EditLine exist?
|
|
|
|
|
+" "257A2") "NoEditLine?" ("\\-> flag
|
|
|
|
|
+" "Does no EditLine exist?
|
|
|
|
|
+" "2EEED") "RCL_CMD" ("\\-> $
|
|
|
|
|
+" "Returns a copy of the current command
|
|
|
|
|
+line to the stack. Same as EDITLINE$.
|
|
|
|
|
+" "2F196") "EDITLINE$" ("\\-> $
|
|
|
|
|
+" "Returns a copy of the current command
|
|
|
|
|
+line to the stack. Same as RCL_CMD.
|
|
|
|
|
+" "2EEEB") "RCL_CMD2" ("\\-> $
|
|
|
|
|
+" "Similar to RCL_CMD, but if there is not
|
|
|
|
|
+enough memory to copy the EditLine to
|
|
|
|
|
+the stack, it will move the current
|
|
|
|
|
+EditLine into TEMPOB. Of course, this
|
|
|
|
|
+will delete the current EditLine.
|
|
|
|
|
+" "2F197") "RCL_CMD_POS" ("\\-> #
|
|
|
|
|
+" "Recalls the current cursor position.
|
|
|
|
|
+" "2EF87") "CURSOR@" ("\\-> #
|
|
|
|
|
+" "Recalls the current cursor position.
|
|
|
|
|
+" "26585") "CURSOR_PART" ("\\-> #
|
|
|
|
|
+" "Recalls the current cursor row (line). There
|
|
|
|
|
+is no such entry for the column, but
|
|
|
|
|
+ CURSOR_OFF FIRSTC@ #+
|
|
|
|
|
+can be used for this purpose.
|
|
|
|
|
+" "26594" :UBS) "ChrAtCur" ("\\-> chr
|
|
|
|
|
+" "Returns the character under the cursor. At
|
|
|
|
|
+the end of the file, returns CHR_00.
|
|
|
|
|
+" "2F158" :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.
|
|
|
|
|
+" "2EEEA") "CAL_CURS_POS" ("#l #c \\-> #
|
|
|
|
|
+" "Computes a position in the current
|
|
|
|
|
+EditLine from line and column number.
|
|
|
|
|
+The result can be used by STO_CURS_POS
|
|
|
|
|
+to move the cursor to that location. If #line
|
|
|
|
|
+is larger than the number of lines in the
|
|
|
|
|
+EditLine, computes the position of the last
|
|
|
|
|
+line.
|
|
|
|
|
+" "2EF91") "CAL_CURS_POS_VIS" ("#l #c \\-> #
|
|
|
|
|
+" "Similar to CAL_CURS_POS, but will ignore
|
|
|
|
|
+invisible characters. The result can be
|
|
|
|
|
+used by STO_CURS_POS_VIS to move the
|
|
|
|
|
+cursor to that location.
|
|
|
|
|
+" "2EF90") "RCL_CMD_MODE" ("\\-> $
|
|
|
|
|
+" "Recalls a string with current editor
|
|
|
|
|
+settings. Can be used together with
|
|
|
|
|
+STO_CMD_MODE to save and restore the
|
|
|
|
|
+state of the EditLine, when temporarily
|
|
|
|
|
+leaving the editor with HALT or when
|
|
|
|
|
+calling a program which must temporarily
|
|
|
|
|
+change settings.
|
|
|
|
|
+" "2F199") "STO_CMD_MODE" ("$ \\->
|
|
|
|
|
+" "Stores a mode string similar to the one
|
|
|
|
|
+obtained by RCL_CMD_MODE.
|
|
|
|
|
+" "2F198") "CURSOR_PART+" ("
|
|
|
|
|
+" "" "26599" :UBS) "CURSOR_PART-" ("
|
|
|
|
|
+" "" "2659E" :UBS) "CURPART->1" ("
|
|
|
|
|
+" "" "265A3" :UBS) "CURPART->CR+" ("
|
|
|
|
|
+" "" "265A8" :UBS) "CURSORPLUS" ("
|
|
|
|
|
+" "" "26562" :UBS) "CURSORMINUS" ("
|
|
|
|
|
+" "" "26567" :UBS) "?CURSOR+" ("
|
|
|
|
|
+" "" "26571" :UBS) "CURSOR-" ("
|
|
|
|
|
+" "" "2658F" :UBS) "TOPLINE!" ("# \\->
|
|
|
|
|
+" "Sets the line of the current editor content
|
|
|
|
|
+which should be displayed at the top of the
|
|
|
|
|
+editor window.
|
|
|
|
|
+" "264B3" :UBS) "TOPLINE@" ("\\-> #
|
|
|
|
|
+" "Recalls the line number of the first
|
|
|
|
|
+displayed line.
|
|
|
|
|
+" "264B8" :UBS) "TOPLINE+" ("\\->
|
|
|
|
|
+" "Increases TOPLINE by one. If the cursor
|
|
|
|
|
+leaves the screen, cursor and display window
|
|
|
|
|
+are moved to the beginning of the file.
|
|
|
|
|
+" "264BD" :UBS) "TOPLINE-" ("\\->
|
|
|
|
|
+" "Decreases TOPLINE by one. If the cursor
|
|
|
|
|
+leaves the screen, cursor and display window
|
|
|
|
|
+are moved to the beginning of the file.
|
|
|
|
|
+" "264C2" :UBS) "FIRSTC@" ("\\-> #
|
|
|
|
|
+" "Column of the left display window edge.
|
|
|
|
|
+" "264CC") "FIRSTC+" ("\\->
|
|
|
|
|
+" "Increases the position of the left window ege
|
|
|
|
|
+by one.
|
|
|
|
|
+" "264DB") "FIRSTC-" ("\\->
|
|
|
|
|
+" "Decreases the position of the left window ege
|
|
|
|
|
+by one.
|
|
|
|
|
+" "264D6" :UBS) "SETFIRSTC_0" ("\\->
|
|
|
|
|
+" "Sets the position of the left display window
|
|
|
|
|
+edge to zero.
|
|
|
|
|
+" "264D1") "CURSOR_OFF" ("\\-> #
|
|
|
|
|
+" "Cursor column relative to left edge of
|
|
|
|
|
+display window.
|
|
|
|
|
+" "26030") "CURSOR_OFF+" ("\\->
|
|
|
|
|
+" "Increases the CURSOR offset by one.
|
|
|
|
|
+" "26580") "CURSOR_OFF0" ("\\->
|
|
|
|
|
+" "Sets the cursor offset to zero.
|
|
|
|
|
+" "2657B") "CURSOR_OFF!" ("# \\->
|
|
|
|
|
+" "Sets the cursor offset.
|
|
|
|
|
+" "26576" :UBS) "CMD_PLUS" ("$ \\->
|
|
|
|
|
+" "Inserts string at current cursor position
|
|
|
|
|
+in EditLine.
|
|
|
|
|
+" "2EF74") "CMD_PLUS2" ("$ \\->
|
|
|
|
|
+" "Replaces entire current EditLine with new
|
|
|
|
|
+string. When there is not enough memory
|
|
|
|
|
+to copy the string on stack level 1,
|
|
|
|
|
+moves the string out of TEMPOB. You
|
|
|
|
|
+must be careful that the string is not
|
|
|
|
|
+referenced in any way. The cursor is
|
|
|
|
|
+moved to the end of the new string.
|
|
|
|
|
+" "2F194") "CMD_PLUS3" ("$ \\->
|
|
|
|
|
+" "Same as CMD_PLUS2, but the cursor
|
|
|
|
|
+position is not changed. Useful when
|
|
|
|
|
+restoring a command line context after
|
|
|
|
|
+HALT.
|
|
|
|
|
+" "2F195") "InsertEcho" ("$ \\->
|
|
|
|
|
+" "Inserts string at current cursor position
|
|
|
|
|
+in EditLine.
|
|
|
|
|
+" "2EF97") "Echo$Key" ("$/chr \\->
|
|
|
|
|
+" "Same as CMD_PLUS.
|
|
|
|
|
+" "2EEE4") "EchoChrKey" ("$/chr \\->
|
|
|
|
|
+" "Same as CMD_PLUS, but first ?TogU/LCase.
|
|
|
|
|
+" "2EEE3") "Echo$NoChr00" ("$ \\->
|
|
|
|
|
+" "Inserts string at current cursor position
|
|
|
|
|
+in EditLine.
|
|
|
|
|
+" "2F11C") "DoDelim" ("\\->
|
|
|
|
|
+" "Takes a character or string from the
|
|
|
|
|
+runstream and inserts it.
|
|
|
|
|
+" "25EC1") "DoDelims" ("\\->
|
|
|
|
|
+" "Takes a character or a string from the
|
|
|
|
|
+runstream, inserts it and moves the cursor
|
|
|
|
|
+back by one character.
|
|
|
|
|
+" "25EC2") "INSERT_MODE" ("\\->
|
|
|
|
|
+" "Turns insert mode on. In insert mode, new
|
|
|
|
|
+characters do not overwrite old ones.
|
|
|
|
|
+" "25795") "TOGGLE_I/R" ("\\->
|
|
|
|
|
+" "Toggles the insert/overwrite flag.
|
|
|
|
|
+" "2577F" :UBS) "?TogU/LCase" ("chr \\-> chr'
|
|
|
|
|
+" "Toggle upper/lowercase of character if some
|
|
|
|
|
+condition is fulfilled.
|
|
|
|
|
+" "2ACB0") "INSERT?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if insert mode is active.
|
|
|
|
|
+" "25790") "CMD_DEL" ("\\->
|
|
|
|
|
+" "Deletes next char in Editor. Same as
|
|
|
|
|
+`LS'+`DEL'. If you hold down `BS' while this
|
|
|
|
|
+entry is executed, the HP49G will think
|
|
|
|
|
+you have pressed the key and want to
|
|
|
|
|
+repeat it.
|
|
|
|
|
+" "2EF82") "CMD_DROP" ("\\->
|
|
|
|
|
+" "Backspace in Editor. Deletes char
|
|
|
|
|
+before cursor. Same as `BS' key. If you
|
|
|
|
|
+hold down `BS' while this entry is
|
|
|
|
|
+executed, the HP49G will think you have
|
|
|
|
|
+pressed the key and want to repeat it.
|
|
|
|
|
+" "2EF81") "DEL_CMD" ("\\->
|
|
|
|
|
+" "Clears the entire EditLine.
|
|
|
|
|
+" "2EF95") "InitEdLine" ("\\->
|
|
|
|
|
+" " :: DEL_CMD ;
|
|
|
|
|
+" "2EEE7") "DO<Del" ("\\->
|
|
|
|
|
+" "Deletes left to beginning of word. Same
|
|
|
|
|
+as the `\\<-DEL' button in the editor TOOL
|
|
|
|
|
+menu.
|
|
|
|
|
+" "2F2F0") "DO>Del" ("\\->
|
|
|
|
|
+" "Deletes right to beginning of next word,
|
|
|
|
|
+Same as the `DEL\\->' button in the editor
|
|
|
|
|
+TOOL menu.
|
|
|
|
|
+" "2F2F1") "DODEL.L" ("\\->
|
|
|
|
|
+" "Deletes all chars in the current line.
|
|
|
|
|
+If the line is already empty, delete the
|
|
|
|
|
+NEWLINE. Same as the `DEL.L' button in
|
|
|
|
|
+the editor TOOL menu.
|
|
|
|
|
+" "2F2F9") "DoFarBS" ("\\->
|
|
|
|
|
+" "Deletes to beginning of line. Same as
|
|
|
|
|
+the `RS'+`\\<-DEL' in the editor TOOL menu.
|
|
|
|
|
+" "2F2DD") "DoFarDel" ("\\->
|
|
|
|
|
+" "Deletes to end of line. Same as `RS'+`Del\\->'
|
|
|
|
|
+in the editor TOOL menu.
|
|
|
|
|
+" "2F2DE") "STO_CURS_POS" ("# \\->
|
|
|
|
|
+" "Stores cursor position. Moves cursor to
|
|
|
|
|
+specified position and if necessary
|
|
|
|
|
+repositions the editor window to make
|
|
|
|
|
+sure the cursor position is visible. If
|
|
|
|
|
+it is necessary to scroll the window
|
|
|
|
|
+horizontally, this command sets the left
|
|
|
|
|
+edge of the window to the cursor column
|
|
|
|
|
+and shows as much text as possible to
|
|
|
|
|
+the right of the cursor. However, if
|
|
|
|
|
+the cursor is also visible when the
|
|
|
|
|
+window edge is moved to column zero,
|
|
|
|
|
+this position takes precedence.
|
|
|
|
|
+" "2EF8B") "STO_CURS_POS2" ("# \\->
|
|
|
|
|
+" "Same as STO_CURS_POS, but moves the
|
|
|
|
|
+right edge of the editor window to the
|
|
|
|
|
+cursor column.
|
|
|
|
|
+" "2EF8C") "STO_CURS_POS3" ("# \\->
|
|
|
|
|
+" "Same as STO_CURS_POS, but without
|
|
|
|
|
+checking for style/font switch
|
|
|
|
|
+sequences. So while STO_CURS_POS always
|
|
|
|
|
+makes sure the cursor ends up right
|
|
|
|
|
+before a visible character, this command
|
|
|
|
|
+allows you to position it within the
|
|
|
|
|
+invisible escape sequences.
|
|
|
|
|
+" "2EF8D") "STO_CURS_POS4" ("# \\->
|
|
|
|
|
+" "Behaves with respect to editor window
|
|
|
|
|
+positioning like <REF>STO_CURS_POS2, but with
|
|
|
|
|
+respect to invisible chars like
|
|
|
|
|
+<REF>STO_CURS_POS3.
|
|
|
|
|
+" "2EF8E") "STO_CURS_POS_VIS" ("# \\->
|
|
|
|
|
+" "Like <REF>STO_CURS_POS, but ignores the
|
|
|
|
|
+invisible characters. So if you look at
|
|
|
|
|
+your string and say, I want to go to
|
|
|
|
|
+what I see as the 5th character, use
|
|
|
|
|
+this entry.
|
|
|
|
|
+" "2EF8F") "SetCursor" ("# \\->
|
|
|
|
|
+{# #'} \\->
|
|
|
|
|
+" "Sets the cursor to the given position. For
|
|
|
|
|
+the list argument, the numbers are row and
|
|
|
|
|
+column.
|
|
|
|
|
+" "2F378") "SETCURSOR" ("
|
|
|
|
|
+" "" "2611B") "CMD_NXT" ("\\->
|
|
|
|
|
+" "Moves cursor to next char, like Right Arrow.
|
|
|
|
|
+" "2EF7C") "CMD_BAK" ("\\->
|
|
|
|
|
+" "Moves cursor to the left. Same as as
|
|
|
|
|
+Left Arrow.
|
|
|
|
|
+" "2EF7B") "CMD_DOWN" ("\\->
|
|
|
|
|
+" "Moves cursor to the next line. Same as Down
|
|
|
|
|
+Arrow.
|
|
|
|
|
+" "2EF80") "CMD_UP" ("\\->
|
|
|
|
|
+" "Moves cursor to the previous line, like Up
|
|
|
|
|
+Arrow.
|
|
|
|
|
+" "2EF7F") "CMD_DEB_LINE" ("\\->
|
|
|
|
|
+" "Moves cursor to the beginning of line. Same
|
|
|
|
|
+as RS+LEFT.
|
|
|
|
|
+" "2EF7D") "CMD_END_LINE" ("\\->
|
|
|
|
|
+" "Moves cursor to the end of line. Same as
|
|
|
|
|
+RS+RIGHT.
|
|
|
|
|
+" "2EF7E") "CMD_PAGED" ("\\->
|
|
|
|
|
+" "Moves cursor one page down, like LS+DOWN.
|
|
|
|
|
+" "2EF7A") "CMD_PAGEL" ("\\->
|
|
|
|
|
+" "Moves cursor one page left, like LS+LEFT.
|
|
|
|
|
+" "2EF77") "CMD_PAGER" ("\\->
|
|
|
|
|
+" "Moves cursor one page right, like LS+RIGHT.
|
|
|
|
|
+" "2EF78") "CMD_PAGEU" ("\\->
|
|
|
|
|
+" "Moves cursor one page up, like LS+UP.
|
|
|
|
|
+" "2EF79") "DO<Skip" ("\\->
|
|
|
|
|
+" "Skips left to beginning of word. Same as
|
|
|
|
|
+the \\<-SKIP button in the editor TOOL
|
|
|
|
|
+menu.
|
|
|
|
|
+" "2F2EE") "DO>Skip" ("\\->
|
|
|
|
|
+" "Skips right to the beginning of the next
|
|
|
|
|
+word. Same as the SKIP\\-> button in the
|
|
|
|
|
+editor TOOL menu.
|
|
|
|
|
+" "2F2EF") "DO>BEG" ("\\->
|
|
|
|
|
+" "Goes to begin of selection (if active) or
|
|
|
|
|
+to beginning of EditLine. Same as `\\->BEG'
|
|
|
|
|
+button in the editor TOOL menu.
|
|
|
|
|
+" "2F2E4") "DO>END" ("\\->
|
|
|
|
|
+" "Goes to end of selection. Same as the
|
|
|
|
|
+`\\->END' button in the editor TOOL menu.
|
|
|
|
|
+When there is no selection, does not
|
|
|
|
|
+move.
|
|
|
|
|
+" "2F2E5") "GOTOLABEL" ("\\->
|
|
|
|
|
+" "Brings up the CHOOSE-box with labels in
|
|
|
|
|
+the EditLine. Same as the LABEL button
|
|
|
|
|
+in the editor TOOL/GOTO menu.
|
|
|
|
|
+" "2F2E6") "CMD_STO_DEBUT" ("# \\->
|
|
|
|
|
+" "Sets begin marker, like `RS'+`BEGIN', but
|
|
|
|
|
+takes position from stack.
|
|
|
|
|
+" "2EF83") "CMD_STO_FIN" ("# \\->
|
|
|
|
|
+" "Sets end marker, like `RS'+`END', but takes
|
|
|
|
|
+position from stack.
|
|
|
|
|
+" "2EF84") "RCL_CMD_DEB" ("\\-> #
|
|
|
|
|
+\\-> #0
|
|
|
|
|
+" "Recalls the position of the BEGIN marker. If
|
|
|
|
|
+the selection has been cleared, returns ZERO.
|
|
|
|
|
+" "2EF85") "RCL_CMD_FIN" ("\\-> #
|
|
|
|
|
+\\-> #0
|
|
|
|
|
+" "Recalls the position of the END marker. If
|
|
|
|
|
+the selection has been cleared, returns ZERO.
|
|
|
|
|
+" "2EF86") "ClearSelection" ("\\->
|
|
|
|
|
+" "Unselects the selected text without changing
|
|
|
|
|
+the contents of the editor. Sets both begin
|
|
|
|
|
+and end marker to ZERO.
|
|
|
|
|
+" "2F2DC") "VERIF_SELECTION" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE when the END marker is not
|
|
|
|
|
+ZERO, indicating that the selection is
|
|
|
|
|
+active. Use this command as a check
|
|
|
|
|
+before doing anything with the
|
|
|
|
|
+selection.
|
|
|
|
|
+" "2EF93") "CMD_COPY" ("\\->
|
|
|
|
|
+" "Copies selected string, like `RS'+`COPY'.
|
|
|
|
|
+" "2EF8A") "CMD_CUT" ("\\->
|
|
|
|
|
+" "Cuts string. Really is \"delete\", does
|
|
|
|
|
+not copy to kill buffer. So a \"normal\"
|
|
|
|
|
+CUT would be
|
|
|
|
|
+ :: CMD_COPY CMD_CUT ;
|
|
|
|
|
+" "2EF88") "CUT.EXT" ("\\-> $
|
|
|
|
|
+" "ML routine used by CMD_CUT. Should not
|
|
|
|
|
+be used on its own since it does not
|
|
|
|
|
+move the cursor position.
|
|
|
|
|
+" "2EF89" :ML) "CMD_COPY.SBR" ("\\-> $
|
|
|
|
|
+" "Puts the selection as a string on the
|
|
|
|
|
+stack. This command is font/style
|
|
|
|
|
+aware. It is recommended not to use it
|
|
|
|
|
+because it may get the wrong text style
|
|
|
|
|
+if the cursor is not re-positioned to
|
|
|
|
|
+the beginning of the selection first.
|
|
|
|
|
+If you don't use fonts,
|
|
|
|
|
+ :: RCL_CMD
|
|
|
|
|
+ RCL_CMD_DEB RCL_CMD_FIN
|
|
|
|
|
+ SUB$ ;
|
|
|
|
|
+does something similar.
|
|
|
|
|
+" "2F2FA") "PASTE.EXT" ("$ \\->
|
|
|
|
|
+" "Pastes from stack with treatment of fonts
|
|
|
|
|
+and styles. Inserts the string on stack
|
|
|
|
|
+level 1 at the cursor position. It can
|
|
|
|
|
+insert normal text right in the middle
|
|
|
|
|
+of bold test etc. If you don't use
|
|
|
|
|
+styles or different fonts, CMD_PLUS is
|
|
|
|
|
+probably faster.
|
|
|
|
|
+" "2EF94") "SELECT.LINE" ("\\->
|
|
|
|
|
+" "Selects current line, position cursor at
|
|
|
|
|
+beginning of line. Selection does not
|
|
|
|
|
+include the NEWLINE char at the end of
|
|
|
|
|
+the line.
|
|
|
|
|
+" "2F2E1") "SELECT.LINEEND" ("\\->
|
|
|
|
|
+" "Selects current line, position cursor at
|
|
|
|
|
+end of line. Selection does not include
|
|
|
|
|
+the NEWLINE char at the end of the line.
|
|
|
|
|
+" "2F2E2") "Clipboard!" ("$ \\->
|
|
|
|
|
+" "Stores string to Clipboard.
|
|
|
|
|
+" "2A085" :UBS) "Clipboard@" ("\\-> $
|
|
|
|
|
+" "Recalls Clipboard contents to stack.
|
|
|
|
|
+" "2A095" :UBS) "Clipboard0" ("\\->
|
|
|
|
|
+" "Clears the Clipboard.
|
|
|
|
|
+" "2A0A5" :UBS) "Clipboard?" ("\\-> flag
|
|
|
|
|
+" "Is there anything on the Clipboard?
|
|
|
|
|
+" "2A0B5" :UBS) "GET.W->" ("\\-> #
|
|
|
|
|
+" "Returns the position of the next
|
|
|
|
|
+word-start to the right of the current
|
|
|
|
|
+cursor position. Note the asymmetry of
|
|
|
|
|
+this command and GET.W<-.
|
|
|
|
|
+" "2F2F3") "GET.W<-" ("# \\-> #'
|
|
|
|
|
+" "Takes a position from the stack and
|
|
|
|
|
+return the position if the nearest
|
|
|
|
|
+word-start to the left of that position.
|
|
|
|
|
+Note the asymmetry of this command and
|
|
|
|
|
+GET.W->.
|
|
|
|
|
+" "2F2F4") "CaseSensitive?" ("\\-> flag
|
|
|
|
|
+" "Is the flag for case-sensitive search
|
|
|
|
|
+currently set?
|
|
|
|
|
+" "2576D" :UBS) "SetCaseSensitive" ("\\->
|
|
|
|
|
+" "Set case-sensitive seatch.
|
|
|
|
|
+" "25772" :UBS) "ClrCaseSensitive" ("\\->
|
|
|
|
|
+" "Set case-insensitive search.
|
|
|
|
|
+" "25777" :UBS) "FindStrInCmd" ("$find \\-> $find $start $end T
|
|
|
|
|
+ \\-> $find F
|
|
|
|
|
+" "Finds a string in the EditLine, starting
|
|
|
|
|
+from the current cursor position. The
|
|
|
|
|
+search string remains on the stack,
|
|
|
|
|
+presumably in order to do repeated
|
|
|
|
|
+searches. Returns the start and end
|
|
|
|
|
+positions of the match and a flag. This
|
|
|
|
|
+function respects the setting of the
|
|
|
|
|
+internal flag for case-sensitive search.
|
|
|
|
|
+" "2F2F2") "FindPattern!" ("$ \\->
|
|
|
|
|
+" "Sets the find pattern.
|
|
|
|
|
+" "2A0C5" :UBS) "FindPattern@" ("\\-> $
|
|
|
|
|
+" "Recalls the current find pattern. If there
|
|
|
|
|
+is not current pattern, this returns PTR 0 -
|
|
|
|
|
+so always check first with FindPattern?.
|
|
|
|
|
+" "2A0D5" :UBS) "FindPattern0" ("\\->
|
|
|
|
|
+" "Deletes the current find pattern.
|
|
|
|
|
+" "2A0E5" :UBS) "FindPattern?" ("\\-> flag
|
|
|
|
|
+" "Checks if a find pattern has been defined.
|
|
|
|
|
+" "2A0F5" :UBS) "ReplacePattern!" ("$ \\->
|
|
|
|
|
+" "Sets the replace pattern.
|
|
|
|
|
+" "2A105" :UBS) "ReplacePattern@" ("\\-> $
|
|
|
|
|
+" "Recalls the current replace pattern. If there
|
|
|
|
|
+is not current pattern, this returns PTR 0 -
|
|
|
|
|
+so always check first with ReplacePattern?.
|
|
|
|
|
+" "2A115" :UBS) "ReplacePattern0" ("\\->
|
|
|
|
|
+" "Deletes the current replace pattern.
|
|
|
|
|
+" "2A125" :UBS) "ReplacePattern?" ("\\-> flag
|
|
|
|
|
+" "Checks if a replace pattern has been defined.
|
|
|
|
|
+" "2A135" :UBS) "DOFIND" ("\\->
|
|
|
|
|
+" "Same as the FIND menu button in the
|
|
|
|
|
+editor TOOL/SEARCH menu. Pops up the
|
|
|
|
|
+FIND input form.
|
|
|
|
|
+" "2F2E8") "DONEXT" ("\\->
|
|
|
|
|
+" "Finds next. Same as the NEXT button in
|
|
|
|
|
+the editor TOOL/SEARCH menu. Uses the
|
|
|
|
|
+pattern set with FindPattern!.
|
|
|
|
|
+" "2F2EA") "DOREPL" ("\\->
|
|
|
|
|
+" "Same as the REP button in the editor
|
|
|
|
|
+TOOL/SEARCH menu. Pops up the QREPLACEQ
|
|
|
|
|
+input form.
|
|
|
|
|
+" "2F2E9") "DOREPLACE" ("\\->
|
|
|
|
|
+" "Replaces current match. Same as the R
|
|
|
|
|
+button in the editor TOOL/SEARCH menu. Uses
|
|
|
|
|
+the pattern set with ReplacePattern!.
|
|
|
|
|
+" "2F2EB") "DOREPLACE/NEXT" ("\\->
|
|
|
|
|
+" "Replaces current match and move to next
|
|
|
|
|
+match. Same as the R/N button in the
|
|
|
|
|
+editor TOOL/SEARCH menu.
|
|
|
|
|
+" "2F2EC") "REPLACEALL" ("\\->
|
|
|
|
|
+" "Replaces all matches in buffer. Same as
|
|
|
|
|
+the ALL button in the editor TOOL/SEARCH
|
|
|
|
|
+menu.
|
|
|
|
|
+" "2F2ED") "REPLACEALLNOSCREEN" ("\\->
|
|
|
|
|
+" "Like <REF>REPLACEALL, but does not update the
|
|
|
|
|
+screen. Much faster this way.
|
|
|
|
|
+" "2F2FC") "EditSelect" ("\\->
|
|
|
|
|
+" "Edits the current selection. Opens the
|
|
|
|
|
+editor with the selection only. You can
|
|
|
|
|
+then edit the selection. After pressing
|
|
|
|
|
+ENTER the edited text is inserted back
|
|
|
|
|
+into the previous editing environment.
|
|
|
|
|
+" "2F2DF") "EVAL.LINE" ("\\->
|
|
|
|
|
+" "Evaluates the current line and replace it
|
|
|
|
|
+with the result of the evaluation.
|
|
|
|
|
+Similar to EVAL.SELECTION, but without
|
|
|
|
|
+the need to select the line first.
|
|
|
|
|
+" "2F2E3") "EVAL.SELECTION" ("\\->
|
|
|
|
|
+" "Evaluates the current selection and
|
|
|
|
|
+replace it with the result of the
|
|
|
|
|
+evaluation. Same as the EXEC button in
|
|
|
|
|
+the editor TOOL menu.
|
|
|
|
|
+" "2F2FB") "EXEC_CMD" ("cmd algflag \\-> obsel
|
|
|
|
|
+" "Runs a command on the selection in the
|
|
|
|
|
+Editline. Takes two arguments: the
|
|
|
|
|
+command to run and a flag which says how
|
|
|
|
|
+to compile the selection before the
|
|
|
|
|
+command is applied. If the flag is
|
|
|
|
|
+TRUE, and ALG mode in on, the ALG
|
|
|
|
|
+compiler is used and the DOTAG :: xEVAL
|
|
|
|
|
+prologue of the result is removed. Use
|
|
|
|
|
+this if the result is to be edited by
|
|
|
|
|
+another editor. The selection is left
|
|
|
|
|
+on stack level 1 as an object.
|
|
|
|
|
+" "2F2F8") "RunInNewContext" ("ob \\->
|
|
|
|
|
+" "Saves current user interface, evaluate ob and
|
|
|
|
|
+restore the user interface. Can be used to
|
|
|
|
|
+run applications from inside another
|
|
|
|
|
+application.
|
|
|
|
|
+" "0B954" :UBS) "ViewLevel1" ("ob \\-> ob'
|
|
|
|
|
+" "Edits the object in level 1.
|
|
|
|
|
+" "2F19A") "AlgCharEdit" ("
|
|
|
|
|
+" "" "2F2DA") "AlgObEdit" ("ob \\-> ob'
|
|
|
|
|
+" "Used instead of ViewLevel1 if in Algebraic
|
|
|
|
|
+mode. Does not execute STARTED and EXITED.
|
|
|
|
|
+" "2F1AF") "CharEdit" ("
|
|
|
|
|
+" "" "2F1AD") "DoLevel1:" ("ob \\-> ob'
|
|
|
|
|
+" "Evaluates the next object in the runstream,
|
|
|
|
|
+which usually in an editing command like
|
|
|
|
|
+<REF>ObEdit. When the evaluation returns FALSE,
|
|
|
|
|
+the original object which was saved in a
|
|
|
|
|
+temporary variable is restored to the stack.
|
|
|
|
|
+When the evaluation returns TRUE, the TRUE is
|
|
|
|
|
+removed from the stack.
|
|
|
|
|
+" "2B2F2" :UBS) "ClrNewEditL" ("
|
|
|
|
|
+" "" "257BE") "EditFont" ("
|
|
|
|
|
+" "" "2F1A8") "EditLevel1" ("ob \\-> ob'
|
|
|
|
|
+" "" "2EEE5") "ObEdit" ("ob \\-> ob' T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Edits object. When the user cancels, only
|
|
|
|
|
+FALSE is returned. Otherwise the changed
|
|
|
|
|
+object along with TRUE is returned.
|
|
|
|
|
+" "2F1AE") "StrEdit" ("
|
|
|
|
|
+" "" "2F1AC") "^EQW3Edit" ("symb \\-> symb' T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Opens the equation editor to edit the
|
|
|
|
|
+expression. If exited by ENTER, returns new
|
|
|
|
|
+expression and TRUE. If exited by CANCEL,
|
|
|
|
|
+returns just FALSE.
|
|
|
|
|
+" "011004") "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.
|
|
|
|
|
+" "2EEE9") "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.
|
|
|
|
|
+" "2B351") "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.
|
|
|
|
|
+" "2B31A") "Rcl&Edit" ("id \\->
|
|
|
|
|
+" "Uses Rcl&Do: to edit the contents of the
|
|
|
|
|
+variable.
|
|
|
|
|
+" "2F09B" :UBS) "Rcl&View" ("id \\->
|
|
|
|
|
+" "Uses Rcl&Do: to view the contents of the
|
|
|
|
|
+variable.
|
|
|
|
|
+" "2F09C" :UBS) "Roll&Edit" ("# \\->
|
|
|
|
|
+" "Uses Roll&Do: to edit the contents of
|
|
|
|
|
+specified stack level.
|
|
|
|
|
+" "2F09D" :UBS) "Roll&View" ("# \\->
|
|
|
|
|
+" "Uses Roll&Do: to view the contents of
|
|
|
|
|
+specified stack level.
|
|
|
|
|
+" "2F09E" :UBS) "EditMenu" ("\\-> {}
|
|
|
|
|
+" "Returns the Editor menu.
|
|
|
|
|
+" "25ED2") "?Space/Go>" ("\\->
|
|
|
|
|
+" "Inserts a SPACE character unless there is
|
|
|
|
|
+already one before the cursor position.
|
|
|
|
|
+Use this if you want to make sure the
|
|
|
|
|
+next stuff echoed is separated by at
|
|
|
|
|
+least one space from the word preceding
|
|
|
|
|
+it.
|
|
|
|
|
+" "2EF73") "AddLeadingSpace" ("$ \\-> $'
|
|
|
|
|
+" "Adds a leading space to the string on
|
|
|
|
|
+level1 if it does not start with a space
|
|
|
|
|
+*and* if the cursor in the editor is
|
|
|
|
|
+after a non-white character. So
|
|
|
|
|
+ :: \"DUP\" AddLeadingSpace
|
|
|
|
|
+ AddTrailingSpace CMD_PLUS ;
|
|
|
|
|
+inserts DUP and makes sure it will be
|
|
|
|
|
+surrounded by spaces.
|
|
|
|
|
+" "2EF76") "AddTrailingSpace" ("$ \\-> $'
|
|
|
|
|
+" "Adds a trailing space to the string on
|
|
|
|
|
+level1 unless the string already ends
|
|
|
|
|
+with a space.
|
|
|
|
|
+" "2EF75") "CMDSIZE" ("\\-> #
|
|
|
|
|
+" "ML entry point to get the size of the
|
|
|
|
|
+EditLine. As ML entries cannot be
|
|
|
|
|
+called directly from SysRPL, don't use
|
|
|
|
|
+it unless you know the necessary magic.
|
|
|
|
|
+ :: RCL_CMD LEN$ ;
|
|
|
|
|
+works for us assembler dummies ;-)
|
|
|
|
|
+" "26855" :ML) "CommandLineHeight" ("\\-> #pix
|
|
|
|
|
+" "Returns the number pixel rows occupied
|
|
|
|
|
+by visible part of the EditLine.
|
|
|
|
|
+" "2EF9A") "DOTEXTINFO" ("\\->
|
|
|
|
|
+" "Displays the info screen about the
|
|
|
|
|
+Editline. Same as the INFO button in
|
|
|
|
|
+the editor TOOL menu.
|
|
|
|
|
+" "2F2DB") "GET_CUR_FONT.EXT" ("\\-> #
|
|
|
|
|
+" "Returns the ID (as a system binary) of
|
|
|
|
|
+the font used for the character under
|
|
|
|
|
+the cursor.
|
|
|
|
|
+" "2F2F6") "NO_AFFCMD" ("\\->
|
|
|
|
|
+" "Tells the next CMD_PLUS call not to
|
|
|
|
|
+update the display. For speed, if you
|
|
|
|
|
+want to do more insertion before the
|
|
|
|
|
+user needs to see it.
|
|
|
|
|
+" "2EF96") "DispCommandLine" ("\\->
|
|
|
|
|
+" "Redisplays the command line.
|
|
|
|
|
+" "2F19E") "?DispCommandLine" ("\\->
|
|
|
|
|
+" "Redisplays the command line if necessary.
|
|
|
|
|
+" "2F19F") "PUT_STYLE" ("# \\->
|
|
|
|
|
+" "Changes the style at point. If the
|
|
|
|
|
+selection is active, changes the style
|
|
|
|
|
+of the text in the selection. Otherwise
|
|
|
|
|
+changes the style of text typed
|
|
|
|
|
+subsequently. Takes a BINT from the
|
|
|
|
|
+stack which is the number of the style.
|
|
|
|
|
+In think the ITALI button in the editor
|
|
|
|
|
+TOOL/STYLE menu could be implemented
|
|
|
|
|
+with the following program:
|
|
|
|
|
+ :: ERRSET PUT_STYLE
|
|
|
|
|
+ ERRTRAP ERRJMP ;
|
|
|
|
|
+PUT_STYLE does not ABND its temporary
|
|
|
|
|
+environment, so you need the ERRTRAP
|
|
|
|
|
+construction to work around this bug.
|
|
|
|
|
+" "2F2F7") "PUT_FONTE" ("# \\->
|
|
|
|
|
+" "Changes the font at point. Works similar
|
|
|
|
|
+to the PUT_STYLE command.
|
|
|
|
|
+" "2F2F5") "SELECT.FONT" ("\\->
|
|
|
|
|
+" "Pops up the CHOOSE box to select a font.
|
|
|
|
|
+Same as the FONT button in the editor
|
|
|
|
|
+TOOL/STYLE menu.
|
|
|
|
|
+" "2F2E7") "ViewEditGrob" ("\\->
|
|
|
|
|
+at cursor
|
|
|
|
|
+" "Views the grob currently edited in the
|
|
|
|
|
+Editline near the cursor. If the
|
|
|
|
|
+EditLine contains
|
|
|
|
|
+ GROB 10 10 FFFFFF...
|
|
|
|
|
+move the cursor to the \"1\" of the first \"10\".
|
|
|
|
|
+Then this entry point will display the grob.
|
|
|
|
|
+" "2F2E0") "XLINE_SIZE?" ("ob \\-> flag
|
|
|
|
|
+" "Checks if the cursor is outside the current
|
|
|
|
|
+line. In the HP49G editor, you can move the
|
|
|
|
|
+cursor further to the right than the line
|
|
|
|
|
+length, without actually making the line
|
|
|
|
|
+longer. The line gets extended only if you
|
|
|
|
|
+actually insert text or use CMD_DEL to catch
|
|
|
|
|
+to following line to the position. This
|
|
|
|
|
+entry returns TRUE if it is not on or before
|
|
|
|
|
+the newline. Note that it takes an arbitrary
|
|
|
|
|
+object from the stack first - so put
|
|
|
|
|
+something there before calling it.
|
|
|
|
|
+" "2EF92") "<DelKey" ("\\-> {}
|
|
|
|
|
+" "Returns the `\\<-DEL' menu key.
|
|
|
|
|
+" "27F47") ">DelKey" ("\\-> {}
|
|
|
|
|
+" "Returns the `DEL\\->' menu key.
|
|
|
|
|
+" "27F9A") "<SkipKey" ("\\-> {}
|
|
|
|
|
+" "Returns the `\\<-SKIP' menu key.
|
|
|
|
|
+" "27EAF") ">SkipKey" ("\\-> {}
|
|
|
|
|
+" "Returns the `SKIP\\->' menu key.
|
|
|
|
|
+" "27EFB") "InitEd&Modes" ("\\->
|
|
|
|
|
+" ":: InitEdLine InitEdModes ;
|
|
|
|
|
+" "2EEE6") "InitEdLine" ("\\->
|
|
|
|
|
+" " :: DEL_CMD ;
|
|
|
|
|
+" "2EEE7") "InitEdModes" ("\\->
|
|
|
|
|
+" "" "2EEE8") "SaveLastEdit" ("$ \\->
|
|
|
|
|
+" "Calls CMD_STO if history is on.
|
|
|
|
|
+" "2F05E") "CMDSTO" ("$ \\->
|
|
|
|
|
+" "Adds string to the list of the last 4
|
|
|
|
|
+commands, accessible with the `CMD' key.
|
|
|
|
|
+" "2F326") "^EQW3" ("
|
|
|
|
|
+" "" "010004") "^EQW3Code" ("
|
|
|
|
|
+" "" "01D004") "^EQW3CursorOff" ("
|
|
|
|
|
+" "" "01C004") "^EQW3CursorOn" ("
|
|
|
|
|
+" "" "01B004") "^EQW3Edit" ("
|
|
|
|
|
+" "" "011004") "^EQW3StartEdit" ("
|
|
|
|
|
+" "" "012004") "^EQW3ViewLeft" ("
|
|
|
|
|
+" "" "016004") "^EQW3ViewLeftX" ("
|
|
|
|
|
+" "" "014004") "^EQW3ViewMargin" ("
|
|
|
|
|
+" "" "013004") "^EQW3ViewRight" ("
|
|
|
|
|
+" "" "017004") "^EQW3ViewRightRPL" ("
|
|
|
|
|
+" "" "018004") "^EQW3ViewRightX" ("
|
|
|
|
|
+" "" "015004") "DoNewEqw" ("
|
|
|
|
|
+" "" "2F192") "DoNewMatrix" ("\\-> []/[[]]
|
|
|
|
|
+" "Start matrix editor to enter a new matrix.
|
|
|
|
|
+" "2F142") "^DoNewMatrixReal" ("\\-> []/[[]]
|
|
|
|
|
+" "Start matrix editor to enter a real
|
|
|
|
|
+matrix. ZINTs are converted to reals.
|
|
|
|
|
+" "007007") "^DoNewMatrixCplx" ("\\-> []/[[]]
|
|
|
|
|
+" "Start matrix editor to enter a complex
|
|
|
|
|
+matrix. ZINTs and REALS are converted to
|
|
|
|
|
+complex.
|
|
|
|
|
+" "008007") "^DoNewMatrixRealOrCplx" ("[] \\-> [[]]
|
|
|
|
|
+" "Will edit an array of either reals or complex
|
|
|
|
|
+numbers.
|
|
|
|
|
+" "00B007") "DoOldMatrix" ("[] \\-> []'
|
|
|
|
|
+" "Edit an existing matrix.
|
|
|
|
|
+" "2F13C") "^DoOldMatrixReal" ("[] \\-> []'
|
|
|
|
|
+" "Edit an existing real matrix in the matrix
|
|
|
|
|
+editor.
|
|
|
|
|
+" "009007") "^DoOldMatrixCplx" ("[] \\-> []'
|
|
|
|
|
+" "Edit an existing complex matrix in the matrix
|
|
|
|
|
+editor.
|
|
|
|
|
+" "00A007") "^RunDoNewMatrix" ("\\-> []/[[]]
|
|
|
|
|
+" "Start matrix editor for new matrix.
|
|
|
|
|
+" "006007") "^RunDoOldMatrix" ("[] \\-> []'
|
|
|
|
|
+" "Edit any kind of Arry/matrix.
|
|
|
|
|
+" "005007") "TOADISP" ("\\->
|
|
|
|
|
+" "Sets the text display as the active.
|
|
|
|
|
+" "26166") "TOGDISP" ("\\->
|
|
|
|
|
+" "Sets the graphic display as the active.
|
|
|
|
|
+" "2616B") "ABUFF" ("\\-> textgrob
|
|
|
|
|
+" "Returns the text grob to the stack.
|
|
|
|
|
+" "25FA4") "GBUFF" ("\\-> graphgrob
|
|
|
|
|
+" "Returns the graphic grob to the stack.
|
|
|
|
|
+The HP49 extable address for ExitAction! is
|
|
|
|
|
+the same, but this must be a bug.
|
|
|
|
|
+" "26076") "HARDBUFF" ("\\-> dispgrob
|
|
|
|
|
+" "Returns the current grob to the stack.
|
|
|
|
|
+" "2608F") "HARDBUFF2" ("\\-> menugrob
|
|
|
|
|
+" "Returns the menu grob to the stack.
|
|
|
|
|
+" "26094") "HARDHEIGHT" ("\\-> #height
|
|
|
|
|
+" "Returns the height of HARDBUFF.
|
|
|
|
|
+" "25EDE") "GBUFFGROBDIM" ("\\-> #height #width
|
|
|
|
|
+" "Returns dimensions of graphic grob.
|
|
|
|
|
+" "25ED5") "RECLAIMDISP" ("\\->
|
|
|
|
|
+" "Activates the text grob, clears it and sets
|
|
|
|
|
+the default size.
|
|
|
|
|
+" "25EF4") "ClrDA1IsStat" ("\\->
|
|
|
|
|
+" "Suspends clock display.
|
|
|
|
|
+" "2EE7D") "MENUOFF?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if the menu grob is off.
|
|
|
|
|
+" "2EEFD") "TURNMENUOFF" ("\\->
|
|
|
|
|
+" "Turns off menu display, enlarges ABUFF to
|
|
|
|
|
+fill screen.
|
|
|
|
|
+" "2F034") "TURNMENUON" ("\\->
|
|
|
|
|
+" "Turns menu grob on.
|
|
|
|
|
+" "2F031") "MENUOFF" ("\\->
|
|
|
|
|
+" "" "2EEFC") "GetHeader" ("\\-> #
|
|
|
|
|
+" "Gets header size in lines (0-2).
|
|
|
|
|
+" "26247") "SetHeader" ("# \\->
|
|
|
|
|
+" "Sets header size in lines (0-2).
|
|
|
|
|
+" "26283") "HEIGHTENGROB" ("grob #rows \\->
|
|
|
|
|
+" "Heightens graph or text grob.
|
|
|
|
|
+" "26099") "KILLGDISP" ("\\->
|
|
|
|
|
+" "Clears graph display by setting it to
|
|
|
|
|
+NULLGROB. See DOERASE.
|
|
|
|
|
+" "260A3") "DOERASE" ("\\->
|
|
|
|
|
+" "Erases the graphics display grob without
|
|
|
|
|
+changing its size.
|
|
|
|
|
+" "2EEF9") "SysDisplay" ("\\->
|
|
|
|
|
+" "Redisplays all required areas. Does it
|
|
|
|
|
+immediately, without waiting for the current
|
|
|
|
|
+command to finish.
|
|
|
|
|
+" "2EF67") "?DispCommandLine" ("\\->
|
|
|
|
|
+" "Redisplays the command line now if necessary.
|
|
|
|
|
+" "2F19F") "DispCommandLine" ("\\->
|
|
|
|
|
+" "Redisplays the command line now.
|
|
|
|
|
+" "2F19E") "DispEditLine" ("\\->
|
|
|
|
|
+" "Just calls DispCommandLine.
|
|
|
|
|
+" "2EE5A") "?DispMenu" ("\\->
|
|
|
|
|
+" "Redisplays the menu now if no key is waiting
|
|
|
|
|
+in the buffer. Even better is this:
|
|
|
|
|
+ :: DA3OK?NOTIT ?DispMenu ;
|
|
|
|
|
+" "2DFCC") "DispMenu.1" ("\\->
|
|
|
|
|
+" "Displays menu now.
|
|
|
|
|
+" "2DFF4") "DispMenu" ("\\->
|
|
|
|
|
+" ":: DispMenu.1 SetDAsValid ;
|
|
|
|
|
+" "2DFE0") "?DispStack" ("\\->
|
|
|
|
|
+" "Redisplays the stack now if necessary.
|
|
|
|
|
+" "2C341") "?DispStatus" ("\\->
|
|
|
|
|
+" "Redisplays the status area now if necessary.
|
|
|
|
|
+" "2C311") "DispStatus" ("\\->
|
|
|
|
|
+" "Displays the status area now.
|
|
|
|
|
+" "2C305") "DispStsBound" ("\\->
|
|
|
|
|
+" "Displays a horizontal line at y=14, normally
|
|
|
|
|
+the separation between header and stack.
|
|
|
|
|
+" "2C2F9") "DispTime?" ("
|
|
|
|
|
+" "" "2EE5B") "DispTimeReq?" ("\\-> flag
|
|
|
|
|
+" "Is time display required? Checks system flag
|
|
|
|
|
+40 and something else.
|
|
|
|
|
+" "2A7F7") "ShowClk?" ("\\-> flag
|
|
|
|
|
+" "Checks both DispTime? and DispTimeReq?.
|
|
|
|
|
+" "048F9" :UBS) "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.
|
|
|
|
|
+" "2F300") "nDISPSTACK" ("$prompt #height #header flag flag \\->
|
|
|
|
|
+" "Used by DispILPrompt.
|
|
|
|
|
+" "26260") "ClrDA1OK" ("\\->
|
|
|
|
|
+" "" "2EE8D" :NOSDIAG) "ClrDA2aOK" ("\\->
|
|
|
|
|
+" "" "2EE8E" :NOSDIAG) "ClrDA2bOK" ("\\->
|
|
|
|
|
+" "" "2EE8F" :NOSDIAG) "ClrDA2OK" ("\\->
|
|
|
|
|
+" "" "2EE90" :NOSDIAG) "ClrDA3OK" ("\\->
|
|
|
|
|
+" "" "2EE6E" :NOSDIAG) "ClrDAsOK" ("\\->
|
|
|
|
|
+" "" "2EE6D" :NOSDIAG) "DA1OK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE62") "DA2aOK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE82" :UBS) "DA2bOK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE84" :UBS) "DA2OK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE86" :UBS) "DA3OK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE63") "DAsOK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE88" :UBS) "DA2aLess1OK?" ("\\-> flag
|
|
|
|
|
+" "" "2EE66") "DA1OK?NOTIT" ("\\->
|
|
|
|
|
+" "Does DA1OK?, NOT then IT.
|
|
|
|
|
+" "2BF3A") "DA2aOK?NOTIT" ("\\->
|
|
|
|
|
+" "DA2aOK?, NOT then IT.
|
|
|
|
|
+" "2BF53") "DA2bOK?NOTIT" ("\\->
|
|
|
|
|
+" "DA2bOK?, NOT then IT.
|
|
|
|
|
+" "2BF6C") "DA3OK?NOTIT" ("\\->
|
|
|
|
|
+" "Does DA3OK?, NOT then IT.
|
|
|
|
|
+" "2BF85") "SetDA1Temp" ("\\->
|
|
|
|
|
+" "" "2EE69" :NOSDIAG) "SetDA2aTemp" ("\\->
|
|
|
|
|
+" "" "2EE8A" :NOSDIAG) "SetDA2bTemp" ("\\->
|
|
|
|
|
+" "" "2EE6A" :NOSDIAG) "ClrDA2bTemp" ("\\->
|
|
|
|
|
+" "" "2EEA7" :NOSDIAG) "SetDA2OKTemp" ("\\->
|
|
|
|
|
+" "" "2F37A" :NOSDIAG) "SetDA3Temp" ("\\->
|
|
|
|
|
+" "" "2EE6B" :NOSDIAG) "SetDA12Temp" ("\\->
|
|
|
|
|
+" "" "2EE71" :NOSDIAG) "SetDAsTemp" ("\\->
|
|
|
|
|
+" "" "2EE64" :NOSDIAG) "SetDA2aTempF" ("\\->
|
|
|
|
|
+" "" "2EEA3" :UBS) "SetDA2bTempF" ("\\->
|
|
|
|
|
+" "" "2EEA5" :NOSDIAG) "SetDA3TempF" ("\\->
|
|
|
|
|
+" "" "2EEA9" :UBS) "SetDA1Valid" ("\\->
|
|
|
|
|
+" "" "2EE67" :NOSDIAG) "SetDA2aValid" ("\\->
|
|
|
|
|
+" "" "2EF98" :NOSDIAG) "SetDA2bValid" ("\\->
|
|
|
|
|
+" "" "2EE68" :NOSDIAG) "SetDA2Valid" ("\\->
|
|
|
|
|
+" "" "2EE91" :NOSDIAG) "SetDA3Valid" ("\\->
|
|
|
|
|
+" "" "2EF99" :NOSDIAG) "SetDAsValid" ("\\->
|
|
|
|
|
+" "" "2EE92" :UBS) "SetDA1ValidF" ("\\->
|
|
|
|
|
+" "" "2EE97" :UBS) "SetDA3ValidF" ("\\->
|
|
|
|
|
+" "" "2EEA0" :NOSDIAG) "SetDA1Bad" ("\\->
|
|
|
|
|
+" "" "2EE78" :NOSDIAG) "ClrDA1Bad" ("\\->
|
|
|
|
|
+" "" "2EE74" :NOSDIAG) "DA1Bad?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB0" :NOSDIAG) "SetDA2aBad" ("\\->
|
|
|
|
|
+" "" "2EE79" :NOSDIAG) "SetDA2aBadT" ("\\-> T
|
|
|
|
|
+" "( SetDA2aBad TRUE )
|
|
|
|
|
+" "2EE83" :UBS) "ClrDA2aBad" ("\\->
|
|
|
|
|
+" "" "2EE75" :NOSDIAG) "DA2aBad?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB1" :NOSDIAG) "SetDA2bBad" ("\\->
|
|
|
|
|
+" "" "2EE7A" :NOSDIAG) "SetDA2bBadT" ("\\-> T
|
|
|
|
|
+" "( SetDA2bBad TRUE )
|
|
|
|
|
+" "2EE85" :UBS) "ClrDA2bBad" ("\\->
|
|
|
|
|
+" "" "2EEB3" :NOSDIAG) "DA2bBad?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB2" :NOSDIAG) "SetDA3Bad" ("\\->
|
|
|
|
|
+" "" "2EE7B" :NOSDIAG) "SetDA3BadT" ("\\-> T
|
|
|
|
|
+" "( SetDA3Bad TRUE )
|
|
|
|
|
+" "2EE87" :UBS) "ClrDA3Bad" ("\\->
|
|
|
|
|
+" "" "2EEB5" :NOSDIAG) "DA3Bad?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB4" :NOSDIAG) "SetDA1NoCh" ("\\->
|
|
|
|
|
+" "" "2EE72" :NOSDIAG) "DA1NoCh?" ("\\-> flag
|
|
|
|
|
+" "" "2EEBA" :UBS) "SetDA2aNoCh" ("\\->
|
|
|
|
|
+" "" "2EE73" :NOSDIAG) "DA2aNoCh?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB9" :UBS) "SetDA2bNoCh" ("\\->
|
|
|
|
|
+" "" "2EE76" :NOSDIAG) "ClrDA2bNoCh" ("\\->
|
|
|
|
|
+" "" "2EE81" :NOSDIAG) "DA2bNoCh?" ("\\-> flag
|
|
|
|
|
+" "" "2EEB7" :NOSDIAG) "SetDA2NoCh" ("\\->
|
|
|
|
|
+" "" "2EE93" :NOSDIAG) "SetDA12NoCh" ("\\->
|
|
|
|
|
+" "" "2EE6F" :NOSDIAG) "SetDA3NoCh" ("\\->
|
|
|
|
|
+" "" "2EE77" :NOSDIAG) "ClrDA3NoCh" ("\\->
|
|
|
|
|
+" "" "2EEB6" :UBS) "SetDA13NoCh" ("\\->
|
|
|
|
|
+" "" "2EE70" :NOSDIAG) "SetDA23NoCh" ("\\->
|
|
|
|
|
+" "" "2EE94" :NOSDIAG) "SetDA12a3NoCh" ("\\->
|
|
|
|
|
+" "" "2EE65" :NOSDIAG) "SetDA12a3NCh" ("\\->
|
|
|
|
|
+" "" "2EE65" :NOSDIAG) "SetDA123NoCh" ("\\->
|
|
|
|
|
+" "" "2F379" :NOSDIAG) "SetDAsNoCh" ("\\->
|
|
|
|
|
+" "" "2EE7C" :NOSDIAG) "SetDA2aEcho" ("\\->
|
|
|
|
|
+" "" "2EE6C" :NOSDIAG) "SetDA1IsStat" ("\\->
|
|
|
|
|
+" "" "2EEAC" :NOSDIAG) "SetNoRollDA2" ("\\->
|
|
|
|
|
+" "" "2EEAE" :NOSDIAG) "ClrNoRollDA2" ("\\->
|
|
|
|
|
+" "" "2EEAF" :NOSDIAG) "NoRollDA2?" ("\\-> flag
|
|
|
|
|
+" "" "2EEAD" :UBS) "DA1IsStatus?" ("\\-> flag
|
|
|
|
|
+" "" "2EEAB" :NOSDIAG) "SetDA2bIsEdL" ("\\->
|
|
|
|
|
+" "" "2EE7F" :NOSDIAG) "DA2bIsEdL?" ("\\-> flag
|
|
|
|
|
+" "" "2EE7E" :NOSDIAG) "ClrDA2bIsEdL" ("\\->
|
|
|
|
|
+" "" "2EE80" :NOSDIAG) "MENoP&FixDA1" ("
|
|
|
|
|
+" "" "2EE8B" :NOSDIAG) "MENP&FixDA12" ("
|
|
|
|
|
+" "" "2EF59" :NOSDIAG) "Ck&Freeze" ("% \\->
|
|
|
|
|
+" "Internal FREEZE.
|
|
|
|
|
+" "25EA8") "BLANKIT" ("#startrow #rows \\->
|
|
|
|
|
+" "Clears #rows from HARDBUFF, starting at
|
|
|
|
|
+#startrow.
|
|
|
|
|
+" "25E7E") "CLEARVDISP" ("\\->
|
|
|
|
|
+" "Clears HARDBUFF.
|
|
|
|
|
+" "26021") "Clr8" ("\\->
|
|
|
|
|
+" "Clears top eight rows (first status line).
|
|
|
|
|
+" "2EED4") "Clr8-15" ("\\->
|
|
|
|
|
+" "Clears 2nd status line.
|
|
|
|
|
+" "2EED5") "Clr16" ("\\->
|
|
|
|
|
+" "Clears top 16 rows.
|
|
|
|
|
+" "2F15E") "BlankDA1" ("\\->
|
|
|
|
|
+" "Clears status area from HARDBUFF.
|
|
|
|
|
+" "2EF5E") "BlankDA2a" ("\\->
|
|
|
|
|
+" "Clears display area DA2a.
|
|
|
|
|
+" "2F31C") "BlankDA2" ("\\->
|
|
|
|
|
+" "Clears display areas DA2a and DA2b.
|
|
|
|
|
+" "2F31B") "BlankDA12" ("\\->
|
|
|
|
|
+" "Clears display areas DA1 and DA2
|
|
|
|
|
+" "2EE5C") "CLCD10" ("\\->
|
|
|
|
|
+" "Clears status and stack areas.
|
|
|
|
|
+" "261C0") "CLEARLCD" ("\\->
|
|
|
|
|
+" "Clears whole display.
|
|
|
|
|
+" "261C5") "DOCLLCD" ("\\->
|
|
|
|
|
+" "Like user word <REF>CLLCD.
|
|
|
|
|
+" "2EF05") "SetLeftAnn" ("\\->
|
|
|
|
|
+" "Sets left-shift annunciator.
|
|
|
|
|
+" "2613E") "ClrLeftAnn" ("\\->
|
|
|
|
|
+" "Clears left-shift annunciator.
|
|
|
|
|
+" "2603A") "SetRightAnn" ("\\->
|
|
|
|
|
+" "Sets right-shift annunciator.
|
|
|
|
|
+" "26148") "ClrRightAnn" ("\\->
|
|
|
|
|
+" "Clears right-shift annunciator.
|
|
|
|
|
+" "2603F") "SetAlphaAnn" ("\\->
|
|
|
|
|
+" "Sets alpha annunciator.
|
|
|
|
|
+" "26139") "ClrAlphaAnn" ("\\->
|
|
|
|
|
+" "Clears alpha annunciator.
|
|
|
|
|
+" "26035") "LockAlpha" ("\\->
|
|
|
|
|
+" "Sets alpha mode, annunciators, etc.
|
|
|
|
|
+" "25EE9") "UnLockAlpha" ("\\->
|
|
|
|
|
+" "Clears alpha mode, annunciators, etc.
|
|
|
|
|
+" "25F08") "ClrBusyAnn" ("\\->
|
|
|
|
|
+" "Clears the busy annunciator.
|
|
|
|
|
+" "2649F" :UBS) "ClrI/OAnn" ("\\->
|
|
|
|
|
+" "" "264A4" :UBS) "SetPrgmEntry" ("\\->
|
|
|
|
|
+" "Sets program-entry mode.
|
|
|
|
|
+" "26143") "ClrPrgmEntry" ("\\->
|
|
|
|
|
+" "Clears program-entry mode.
|
|
|
|
|
+" "264F4" :UBS) "PrgmEntry?" ("\\-> flag
|
|
|
|
|
+" "Is program-entry mode set?
|
|
|
|
|
+" "2610C") "LOWERCASE?" ("\\-> flag
|
|
|
|
|
+" "Is the flag for lowercase letter entry set?
|
|
|
|
|
+" "25726" :UBS) "SETLOWERCASE" ("\\->
|
|
|
|
|
+" "Set the flag for lowercase letter entry.
|
|
|
|
|
+" "2572B" :UBS) "CLRLOWERCASE" ("\\->
|
|
|
|
|
+" "Clear the flag for lowercase letter entry.
|
|
|
|
|
+" "25730" :UBS) "TOGLOWERCASE" ("\\->
|
|
|
|
|
+" "Toggle the flag for lowercase letter entry.
|
|
|
|
|
+" "25738" :UBS) "Do1st/2nd+:" ("\\-> :: <ob1> ; (PRG mode)
|
|
|
|
|
+\\-> :: <ob2> <rest> ; (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.
|
|
|
|
|
+" "25EBE") "SetAlgEntry" ("\\->
|
|
|
|
|
+" "Sets algebraic-entry mode.
|
|
|
|
|
+" "25719") "ClrAlgEntry" ("\\->
|
|
|
|
|
+" "Clears algebraic-entry mode.
|
|
|
|
|
+" "2571E") "AlgEntry?" ("\\-> flag
|
|
|
|
|
+" "Is algebraic-entry mode set?
|
|
|
|
|
+" "256EA") "ImmedEntry?" ("\\-> flag
|
|
|
|
|
+" "Returns TRUE if immediate-entry mode
|
|
|
|
|
+(program and algebraic-entry modes cleared).
|
|
|
|
|
+" "25EDF") "?ClrAlg" ("\\->
|
|
|
|
|
+" "Clears AlgEntry mode if set.
|
|
|
|
|
+" "25E74") "?ClrAlgSetPr" ("\\->
|
|
|
|
|
+" "Clears AlgEntry mode if set and sets
|
|
|
|
|
+ProgramEntry mode.
|
|
|
|
|
+" "25E75") "TOP8" ("\\-> HBgrob #x1 #y #x1+131 #y1+8
|
|
|
|
|
+" "Returns coordinates of first status line.
|
|
|
|
|
+" "2F384") "Rows8-15" ("\\-> HBgrob #x1 #y1+8 #x1+131 #y1+16
|
|
|
|
|
+" "Returns coordinates of second status line.
|
|
|
|
|
+" "2F36C") "TOP16" ("\\-> HBgrob #x1 #y1 #x1+131 #y1+16
|
|
|
|
|
+" "Returns coordinates of status area.
|
|
|
|
|
+" "2F383") "WINDOWCORNER" ("\\-> #y #x
|
|
|
|
|
+" "Gets coordinates of corner of window. Note
|
|
|
|
|
+the order of #x and #y.
|
|
|
|
|
+" "2617F") "HBUFF_X_Y" ("\\-> HBgrob #x #y
|
|
|
|
|
+" "Returns current grob and window coordinates.
|
|
|
|
|
+" "2EED6") "LEFTCOL" ("\\-> #x
|
|
|
|
|
+" "Gets x-coordinate of left column.
|
|
|
|
|
+" "2F352") "RIGHTCOL" ("\\-> #x
|
|
|
|
|
+" "Gets x-coordinate of right column.
|
|
|
|
|
+" "2F36B") "TOPROW" ("\\-> #y
|
|
|
|
|
+" "Gets y-coordinate of top row.
|
|
|
|
|
+" "2F385") "BOTROW" ("\\-> #y
|
|
|
|
|
+" "Gets y-coordinate of bottom row.
|
|
|
|
|
+" "2F31D") "WINDOWXY" ("#y #x \\->
|
|
|
|
|
+" "Sets corner coordinates. The name really
|
|
|
|
|
+should be WINDOWYX
|
|
|
|
|
+" "26198") "WINDOWUP" ("\\->
|
|
|
|
|
+" "Moves display one pixel up.
|
|
|
|
|
+" "26193") "WINDOWDOWN" ("\\->
|
|
|
|
|
+" "Moves display one pixel down.
|
|
|
|
|
+" "26184") "WINDOWLEFT" ("\\->
|
|
|
|
|
+" "Moves display one pixel left.
|
|
|
|
|
+" "26189") "WINDOWRIGHT" ("\\->
|
|
|
|
|
+" "Moves display one pixel right.
|
|
|
|
|
+" "2618E") "SCROLLUP" ("\\->
|
|
|
|
|
+" "Moves display one pixel up, checks for
|
|
|
|
|
+corresponding key being pressed.
|
|
|
|
|
+" "2F370") "SCROLLDOWN" ("\\->
|
|
|
|
|
+" "Moves display one pixel down, checks for
|
|
|
|
|
+corresponding key being pressed.
|
|
|
|
|
+" "2F36D") "SCROLLLEFT" ("\\->
|
|
|
|
|
+" "Moves display one pixel left, checks for
|
|
|
|
|
+corresponding key being pressed.
|
|
|
|
|
+" "2F36E") "SCROLLRIGHT" ("\\->
|
|
|
|
|
+" "Moves display one pixel right, checks for
|
|
|
|
|
+corresponding key being pressed.
|
|
|
|
|
+" "2F36F") "JUMPTOP" ("\\->
|
|
|
|
|
+" "Jumps to top of display.
|
|
|
|
|
+" "2F34A") "JUMPBOT" ("\\->
|
|
|
|
|
+" "Jumps to bottom of display.
|
|
|
|
|
+" "2F347") "JUMPLEFT" ("\\->
|
|
|
|
|
+" "Jumps to left of display.
|
|
|
|
|
+" "2F348") "JUMPRIGHT" ("\\->
|
|
|
|
|
+" "Jumps to right of display.
|
|
|
|
|
+" "2F349") "WINDOWTOP?" ("\\-> flag
|
|
|
|
|
+" "Is window at the top?
|
|
|
|
|
+" "2F38D") "WINDOWBOT?" ("\\-> flag
|
|
|
|
|
+" "Is window at the bottom?
|
|
|
|
|
+" "2F38A") "WINDOWLEFT?" ("\\-> flag
|
|
|
|
|
+" "Is window at the left?
|
|
|
|
|
+" "2F38B") "WINDOWRIGHT?" ("\\-> flag
|
|
|
|
|
+" "Is window at the right?
|
|
|
|
|
+" "2F38C") "ViewObject" ("ob \\->
|
|
|
|
|
+" "" "2F21D") "ViewStrObject" ("flag $ \\-> F
|
|
|
|
|
+" "Flag decides if it should be possible to
|
|
|
|
|
+toggle TEXT/GRAPH.
|
|
|
|
|
+" "2F21E") "ViewGrobObject" ("flag grob \\-> F
|
|
|
|
|
+" "Flag decides if it should be possible to
|
|
|
|
|
+toggle TEXT/GRAPH.
|
|
|
|
|
+" "2F21F") "sstDISP" ("ob \\->
|
|
|
|
|
+" "Displays ob in status line. Used for single
|
|
|
|
|
+stepping during debugging.
|
|
|
|
|
+" "25F12") "^SCROLLext" ("grob \\->
|
|
|
|
|
+" "Launches PICT environment.
|
|
|
|
|
+" "0C1007" :wasCSys) "WINDOW#" ("#x #y \\->
|
|
|
|
|
+" "Internal PVIEW, displays PICT starting at the
|
|
|
|
|
+given coordinates.
|
|
|
|
|
+" "2EF61") "DODISP" ("ob %row \\->
|
|
|
|
|
+" "Displays any object in specified row.
|
|
|
|
|
+" "25EB4") "BIGDISPROW1" ("$ \\->
|
|
|
|
|
+" "" "25FB8") "DISP@01" ("$ \\->
|
|
|
|
|
+" "" "25FB8") "DISPROW1" ("$ \\->
|
|
|
|
|
+" "" "25FB8") "DISPROW1*" ("$ \\->
|
|
|
|
|
+" "Displays relative to window corner.
|
|
|
|
|
+" "25EAB") "^DISPROW1_plus" ("$ \\->
|
|
|
|
|
+" "Only useful on ROM 1.22-2.0! Deprecated since
|
|
|
|
|
+ROM 2.0!
|
|
|
|
|
+Write text to the first line of the extended
|
|
|
|
|
+header on the 49G+ (pixel rows 1-8). This
|
|
|
|
|
+messes up the second row, so this entry
|
|
|
|
|
+should only be used together with
|
|
|
|
|
+DISPROW2_plus. A good way to automatically
|
|
|
|
|
+do the right thing is DISPSTATUS2.
|
|
|
|
|
+" "0C8002" :UBS :1\.22) "BIGDISPROW2" ("$ \\->
|
|
|
|
|
+" "" "25FBD") "DISP@09" ("$ \\->
|
|
|
|
|
+" "" "25FBD") "DISPROW2" ("$ \\->
|
|
|
|
|
+" "" "25FBD") "DISPROW2*" ("$ \\->
|
|
|
|
|
+" "Displays relative to window corner.
|
|
|
|
|
+" "25EAC") "^DISPROW2_plus" ("$ \\->
|
|
|
|
|
+" "Only useful in ROM 1.22-2.0! Deprecated since
|
|
|
|
|
+ROM 2.0!
|
|
|
|
|
+Write text to the second line of the extended
|
|
|
|
|
+header on the 49G+ (pixel rows 9-16). Should
|
|
|
|
|
+be used together with DISPROW1_plus.
|
|
|
|
|
+" "0C9002" :UBS :1\.22) "BIGDISPROW3" ("$ \\->
|
|
|
|
|
+" "" "25FC2") "DISP@17" ("$ \\->
|
|
|
|
|
+" "" "25FC2") "DISPROW3" ("$ \\->
|
|
|
|
|
+" "" "25FC2") "BIGDISPROW4" ("$ \\->
|
|
|
|
|
+" "" "25FC7") "DISP@25" ("$ \\->
|
|
|
|
|
+" "" "25FC7") "DISPROW4" ("$ \\->
|
|
|
|
|
+" "" "25FC7") "DISPROW5" ("$ \\->
|
|
|
|
|
+" "" "25FCC") "DISPROW6" ("$ \\->
|
|
|
|
|
+" "" "261F7") "DISPROW7" ("$ \\->
|
|
|
|
|
+" "" "25FD1") "DISPROW8" ("$ \\->
|
|
|
|
|
+" "May not be possible depending on the size of
|
|
|
|
|
+the font and whether the menu is on or off.
|
|
|
|
|
+" "25FD6") "DISPROW9" ("$ \\->
|
|
|
|
|
+" "May not be possible depending on the size of
|
|
|
|
|
+the font and whether the menu is on or off.
|
|
|
|
|
+" "25FDB") "DISPROW10" ("$ \\->
|
|
|
|
|
+" "May not be possible depending on the size of
|
|
|
|
|
+the font and whether the menu is on or off.
|
|
|
|
|
+" "25FE0") "BIGDISPN" ("$ #row \\->
|
|
|
|
|
+" "" "25FB3") "DISPN" ("$ #row \\->
|
|
|
|
|
+" "" "25FB3") "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 \"...\".
|
|
|
|
|
+" "25EBC") "Save16" ("\\-> grob
|
|
|
|
|
+" "Returns top 16 rows.
|
|
|
|
|
+" "2F038" :UBS) "Save16Patch" ("\\-> grob
|
|
|
|
|
+" "Get the Header area as a grob. On the 49G+,
|
|
|
|
|
+this gets the extra 16 lines of the screen.
|
|
|
|
|
+On a machine with small screen (48gII,49G),
|
|
|
|
|
+this is equivalent to Save16. Also, starting
|
|
|
|
|
+from ROM 2.0, this again just calls Save16.
|
|
|
|
|
+" "2F3CF" :UBS :1\.22) "Restore16" ("grob \\->
|
|
|
|
|
+" "Restores top 16 rows.
|
|
|
|
|
+" "2F3B6" :UBS) "Rest16Patch" ("grob \\->
|
|
|
|
|
+" "Display grob in the top 16 rows of the
|
|
|
|
|
+display. This works with the extended screen
|
|
|
|
|
+on the 49G+ - on a smaller screen, it is
|
|
|
|
|
+equivalent to Restore16. Also, starting from
|
|
|
|
|
+ROM 2.0, this again just calls Restore16.
|
|
|
|
|
+" "2F3D0" :UBS :1\.22) "DISPSTATUS2" ("$ \\->
|
|
|
|
|
+" "Displays message in status area using two
|
|
|
|
|
+lines.
|
|
|
|
|
+" "25EAD") "DoPrompt" ("$ \\->
|
|
|
|
|
+" "DISPSTATUS2 and freeze status area.
|
|
|
|
|
+" "38C00" :UBS) "DispCoord1" ("$ \\->
|
|
|
|
|
+" "Displays $ in menu grob using minifont.
|
|
|
|
|
+" "2EEFF") "DISPCOORD2" ("$ \\->
|
|
|
|
|
+" "Displays $ in menu grob using minifont and
|
|
|
|
|
+waits for a key. Then refreshes menu
|
|
|
|
|
+display.
|
|
|
|
|
+" "2F32B") "DISPLASTROW" ("$ \\->
|
|
|
|
|
+" "Displays $ in the last stack display row,
|
|
|
|
|
+just above the menu.
|
|
|
|
|
+" "25FE5") "DISPLASTROWBUT1" ("$ \\->
|
|
|
|
|
+" "Displays $ in the last stack display row. If
|
|
|
|
|
+menu is turned on it can cover displayed
|
|
|
|
|
+text.
|
|
|
|
|
+" "25FEA") "FlashMsg" ("$ \\->
|
|
|
|
|
+" "Displays message in status area, then
|
|
|
|
|
+restores it to normal.
|
|
|
|
|
+" "25ED4") "FlashWarning" ("$ \\->
|
|
|
|
|
+" "Displays message in a message box and
|
|
|
|
|
+beeps. Waits for OK to be pressed.
|
|
|
|
|
+" "2EE61") "AskQuestion" ("$ \\-> flag
|
|
|
|
|
+" "Use the string to ask the user a question
|
|
|
|
|
+with yes/no in a choose box. If you prefer a
|
|
|
|
|
+YES/NO menu, this can be implemented like
|
|
|
|
|
+this, using ~DoMsgBox:
|
|
|
|
|
+ ::
|
|
|
|
|
+ 15 10 (BINTs, don't know what they do)
|
|
|
|
|
+ MINUSONE (could also be a grob)
|
|
|
|
|
+ '
|
|
|
|
|
+ ::
|
|
|
|
|
+ NoExitAction
|
|
|
|
|
+ { NullMenuKey NullMenuKey
|
|
|
|
|
+ NullMenuKey NullMenuKey
|
|
|
|
|
+ { \"NO\" :: TakeOver FALSETRUE 2PUTLAM ; }
|
|
|
|
|
+ { \"YES\" :: TakeOver TrueTrue 2PUTLAM ; }
|
|
|
|
|
+ }
|
|
|
|
|
+ ;
|
|
|
|
|
+ ROMPTR2 ~DoMsgBox
|
|
|
|
|
+ ;
|
|
|
|
|
+" "2F1A5") "^DoAlert" ("$ \\->
|
|
|
|
|
+" "Displays alert messagebox, a message box with
|
|
|
|
|
+a little alert grob in the upper left corner.
|
|
|
|
|
+" "02E002") "DoWarning" ("$ \\->
|
|
|
|
|
+" "Displays message, beeps and freezes status
|
|
|
|
|
+area.
|
|
|
|
|
+" "2EE60") "^Ck&DoMsgBox" ("$ \\->
|
|
|
|
|
+" "Displays a message box and waits for the user
|
|
|
|
|
+to press OK.
|
|
|
|
|
+" "007002") "~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.
|
|
|
|
|
+" "0040B1") "FONT>" ("\\-> font
|
|
|
|
|
+" "Recalls system font.
|
|
|
|
|
+" "2621A") "MINIFONT>" ("\\-> minifont
|
|
|
|
|
+" "Recalls the current minifont.
|
|
|
|
|
+" "2625B") ">FONT" ("font \\->
|
|
|
|
|
+" "Sets system font.
|
|
|
|
|
+" "25F15") ">MINIFONT" ("minifont \\->
|
|
|
|
|
+" "Sets the current minifont.
|
|
|
|
|
+" "2620B") "StackLineHeight" ("\\-> #
|
|
|
|
|
+" "Returns height of text grob minus size of
|
|
|
|
|
+header and menu.
|
|
|
|
|
+" "26288") "StackFontHeight" ("\\-> #
|
|
|
|
|
+" "Returns stack font height (used for display
|
|
|
|
|
+stack rows).
|
|
|
|
|
+" "26242") "GetFontStkHeight" ("\\-> #
|
|
|
|
|
+" "Returns stack font height (used for display
|
|
|
|
|
+stack rows).
|
|
|
|
|
+" "26242") "GetFontCmdHeight" ("\\-> #
|
|
|
|
|
+" "Returns command line font height (used for
|
|
|
|
|
+editing objects).
|
|
|
|
|
+" "26238") "GetFontHeight" ("\\-> #
|
|
|
|
|
+" "Returns system font height.
|
|
|
|
|
+" "2623D") "CHECK_SCAN_FONT" ("
|
|
|
|
|
+" "" "26210") "DOMINIFONT" ("
|
|
|
|
|
+" "" "026FE") "^" ("" "Uses the File Manager to search for fonts.
|
|
|
|
|
+" "06F004") "FSCANFONT" ("
|
|
|
|
|
+" "" "2621F") "INITMKFONT" ("
|
|
|
|
|
+" "" "26256") "Init_MetaKernelFont" ("
|
|
|
|
|
+" "" "26904" :ML) "SCANFONT" ("
|
|
|
|
|
+" "" "2627E") "NULLPAINT" ("\\-> grob
|
|
|
|
|
+" "0x0 Null grob
|
|
|
|
|
+" "27AA3" :UBS) "CROSSGROB" (" \\-> grob
|
|
|
|
|
+. 48G: 5053C
|
|
|
|
|
+" "5x5 Cross cursor (\"+\")
|
|
|
|
|
+" "27D3F") "MARKGROB" (" \\-> grob
|
|
|
|
|
+. 48G: 5055A
|
|
|
|
|
+" "5x5 Mark symbol (\"x\")
|
|
|
|
|
+" "27D5D") "NullMenuLbl" ("21x8 normal menu key
|
|
|
|
|
+" "" "27D7B" :UBS) "InvLabelGrob" ("21x8 inverse menu key
|
|
|
|
|
+" "" "2E25C" :UBS) "StdBaseLabel" ("21x8 inverted nomal menu key grob
|
|
|
|
|
+" "" "279F6" :UBS) "BoxLabelGrobInv" ("21x8 inverted box label grob
|
|
|
|
|
+" "" "2E198" :UBS) "DirLabelGrobInv" ("21x8 inverted DIR label grob
|
|
|
|
|
+" "" "2E1FA" :UBS) "~grobAlertIcon" ("9x9 Alert grob
|
|
|
|
|
+" "" "0860B0") "~grobCheckKey" ("21x8 Check Key menu grob
|
|
|
|
|
+" "A tickmark and \"CHK\" in a menu grob.
|
|
|
|
|
+" "0870B0") "GROBDIM" ("grob \\-> #height #width
|
|
|
|
|
+" "" "26085") "DUPGROBDIM" ("grob \\-> grob #height #width
|
|
|
|
|
+" "" "25EBB") "GROBDIMw" ("grob \\-> #width
|
|
|
|
|
+" "" "36C68") "CKGROBFITS" ("g1 g2 #n #m \\-> g1 g2' #n #m
|
|
|
|
|
+" "Shrinks g2 if it does not fit in g1.
|
|
|
|
|
+" "2F324") "CHECKHEIGHT" ("grob #height \\->
|
|
|
|
|
+" "Forces grob (ABUFF/GBUFF) to be at least 64
|
|
|
|
|
+rows high.
|
|
|
|
|
+" "2F320") "GROB!" ("grob1 grob2 #x #y \\->
|
|
|
|
|
+" "Stores grob1 into grob2. Bang type.
|
|
|
|
|
+" "2607B") "GROB+" ("grob1 grob2 \\-> grob
|
|
|
|
|
+" "Combines two grobs using bitwise QORQ. Errors
|
|
|
|
|
+when grobs have different sizes.
|
|
|
|
|
+" "2EFDB" :UBS) "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.
|
|
|
|
|
+" "2F342") "GROB!ZERO" ("grob #x1 #y1 #x2 #y2 \\-> grob'
|
|
|
|
|
+" "Blanks a rectangular region of the grob. Bang
|
|
|
|
|
+type.
|
|
|
|
|
+" "26080") "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.
|
|
|
|
|
+" "368E7") "SUBGROB" ("grob #x1 #y1 #x2 #y2 \\-> grob'
|
|
|
|
|
+" "Returns specified portion of grob.
|
|
|
|
|
+" "2612F") "XYGROBDISP" ("#x #y grob \\->
|
|
|
|
|
+" "Stores grob in QHARDBUFFQ with upper left
|
|
|
|
|
+corner at (#x,#y). QHARDBUFFQ is expanded if
|
|
|
|
|
+necessary.
|
|
|
|
|
+" "25F0E") "GROB>GDISP" ("grob \\->
|
|
|
|
|
+" "Stores new graph grob.
|
|
|
|
|
+" "25ED8") "MAKEGROB" ("#height #width \\-> grob
|
|
|
|
|
+" "Creates a blank grob.
|
|
|
|
|
+" "260B2") "MAKEPICT#" ("#w #h \\->
|
|
|
|
|
+" "Creates blank graph grob. Minimum size is
|
|
|
|
|
+131x64. Smaller grobs will be automatically
|
|
|
|
|
+resized.
|
|
|
|
|
+" "2F0DB") "INVGROB" ("grob \\-> grob'
|
|
|
|
|
+" "Inverts grob data bits. Bang type.
|
|
|
|
|
+" "2609E") "PIXON" ("#x #y \\->
|
|
|
|
|
+" "Sets pixel in text grob.
|
|
|
|
|
+" "260E4") "PIXOFF" ("#x #y \\->
|
|
|
|
|
+" "Clears pixel in text grob.
|
|
|
|
|
+" "260DF") "PIXON?" ("#x #y \\-> flag
|
|
|
|
|
+" "Is pixel in text grob on?
|
|
|
|
|
+" "260EE") "PIXON3" ("#x #y \\->
|
|
|
|
|
+" "Sets pixel in graph grob.
|
|
|
|
|
+" "260DA") "PIXOFF3" ("#x #y \\->
|
|
|
|
|
+" "Clears pixel in graph grob.
|
|
|
|
|
+" "260D5") "PIXON?3" ("#x #y \\-> flag
|
|
|
|
|
+" "Is pixel in graph grob on?
|
|
|
|
|
+" "260E9") "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.
|
|
|
|
|
+" "280C1") "ORDERXY%" ("%x1 %y1 %x2 %y2 \\-> %x1' %y1' %x2' %y2'
|
|
|
|
|
+" "ORDERXY# with real numbers.
|
|
|
|
|
+" "280F8") "LINEON" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Draws a line in text grob.
|
|
|
|
|
+" "2EF9F") "LINEOFF" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Clears a line in text grob.
|
|
|
|
|
+" "2EFA0") "TOGLINE" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Toggles a line in text grob.
|
|
|
|
|
+" "2EFA1") "LINEON3" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Draws a line in graph grob.
|
|
|
|
|
+" "2EFA2") "DRAWLINE#3" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Draws a line in graph grob. x1<x2 is not
|
|
|
|
|
+required.
|
|
|
|
|
+" "2F13F") "LINEOFF3" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Clears a line in graph grob.
|
|
|
|
|
+" "2EFA3") "TOGLINE3" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Toggles a line in graph grob.
|
|
|
|
|
+" "2EFA4") "TOGGLELINE#3" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Toggles line in graph grob. x1<x2 is not
|
|
|
|
|
+required.
|
|
|
|
|
+" "2F382") "DRAWBOX#" ("#x1 #y1 #x2 #y2 \\->
|
|
|
|
|
+" "Draws rectangle in graph grob.
|
|
|
|
|
+" "2F32C") "DOLCD>" ("\\-> grob
|
|
|
|
|
+" "Returns current display.
|
|
|
|
|
+" "2EF03") "DO>LCD" ("grob \\->
|
|
|
|
|
+" "Grob to display.
|
|
|
|
|
+" "2EF04") "^GROBADDext" ("grob2 grob1 \\-> grob
|
|
|
|
|
+" "Vertical grob addition.
|
|
|
|
|
+grob2 will be above grob1.
|
|
|
|
|
+" "0BF007" :wasCSys) "SubRepl" ("grb1 grb2 #x1 #y1 #x2 #y2 #W #H \\-> grb1'
|
|
|
|
|
+" "Replace a part of grb1 with a part of
|
|
|
|
|
+grb2 in QREPLACEQ mode.
|
|
|
|
|
+" "25592") "SubGor" ("grb1 grb2 #x1 #y1 #x2 #y2 #W #H \\-> grb1'
|
|
|
|
|
+" "Replace a part of grb1 with a part of
|
|
|
|
|
+grb2 in QORQ mode.
|
|
|
|
|
+" "25597") "SubGxor" ("grb1 grb2 #x1 #y1 #x2 #y2 #W #H \\-> grb1'
|
|
|
|
|
+" "Replace a part of grb1 with a part of
|
|
|
|
|
+rgb2 in QXORQ mode.
|
|
|
|
|
+" "2559C") "LineW" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a white line.
|
|
|
|
|
+" "25565") "LineG1" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a light grey line.
|
|
|
|
|
+" "2556F") "LineG2" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a dark grey line.
|
|
|
|
|
+" "25574") "LineB" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a black line.
|
|
|
|
|
+" "2556A") "LineXor" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "QXORQ a line.
|
|
|
|
|
+" "25579") "CircleW" ("grb #Cx #Cy #r \\-> grb'
|
|
|
|
|
+" "Draw a white circle.
|
|
|
|
|
+" "2F218") "CircleG1" ("grb #Cx #Cy #r \\-> grb'
|
|
|
|
|
+" "Draw a light grey circle.
|
|
|
|
|
+" "2F216") "CircleG2" ("grb #Cx #Cy #r \\-> grb'
|
|
|
|
|
+" "Draw a dark grey circle.
|
|
|
|
|
+" "2F217") "CircleB" ("grb #Cx #Cy #r \\-> grb'
|
|
|
|
|
+" "Draw a black circle
|
|
|
|
|
+" "2F215") "CircleXor" ("grb #Cx #Cy #r \\-> grb'
|
|
|
|
|
+" "QXORQ a circle.
|
|
|
|
|
+" "2F219") "Sub" ("grb #x1 #y1 #x2 #y2 \\-> grb' flag
|
|
|
|
|
+" "Get a part of a grob.
|
|
|
|
|
+" "2557E") "Repl" ("grb1 grb2 #x #y \\-> grb1'
|
|
|
|
|
+" "Copy grb2 into grb1 in QREPLACEQ mode.
|
|
|
|
|
+" "25583") "Gor" ("grb1 grb2 #x #y \\-> grb1'
|
|
|
|
|
+" "Copy grb2 into grb1 in QORQ mode.
|
|
|
|
|
+" "25588") "Gxor" ("grb1 grb2 #x #y \\-> grb1'
|
|
|
|
|
+" "Copy grb2 into grb1 in QXORQ mode.
|
|
|
|
|
+" "2558D") "Grey?" ("grob \\-> flag
|
|
|
|
|
+" "Is grob a Greyscale Grob?
|
|
|
|
|
+" "255A1") "ScrollVGrob" ("grb #W #X #Yd #Ys #h \\-> grb'
|
|
|
|
|
+" "Scroll up and down a portion of a
|
|
|
|
|
+graphical object.
|
|
|
|
|
+" "255B0") "PixonW" ("grb #x #y \\-> grb'
|
|
|
|
|
+" "Make a pixel white.
|
|
|
|
|
+" "255BA") "PixonG1" ("grb #x #y \\-> grb'
|
|
|
|
|
+" "Make a pixel light grey.
|
|
|
|
|
+" "255C4") "PixonG2" ("grb #x #y \\-> grb'
|
|
|
|
|
+" "Make a pixel dark grey.
|
|
|
|
|
+" "255C9") "PixonB" ("grb #x #y \\-> grb'
|
|
|
|
|
+" "Make a pixel black.
|
|
|
|
|
+" "255BF") "PixonXor" ("grb #x #y \\-> grb'
|
|
|
|
|
+" "Apply QXORQ to a pixel.
|
|
|
|
|
+" "255CE") "FBoxW" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Make a white filled rectangle.
|
|
|
|
|
+" "255D3") "FBoxG1" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Make a light grey filled rectangle.
|
|
|
|
|
+" "255D3") "FBoxG2" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Make a dark grey filled rectangle.
|
|
|
|
|
+" "255D8") "FBoxB" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Make a black filled rectangle.
|
|
|
|
|
+" "255DD") "FBoxXor" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Apply QXORQ to a filled rectangle.
|
|
|
|
|
+" "255E2") "LBoxW" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a white rectangle.
|
|
|
|
|
+" "255E7") "LBoxG1" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a light grey rectangle.
|
|
|
|
|
+" "255EC") "LBoxG2" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a dark grey rectangle.
|
|
|
|
|
+" "255F1") "LBoxB" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Draw a black rectangle.
|
|
|
|
|
+" "255F6") "LBoxXor" ("grb #x1 #y1 #x2 #y2 \\-> grb'
|
|
|
|
|
+" "Apply QXORQ to a rectangle.
|
|
|
|
|
+" "255FB") "ToGray" ("grb \\-> grb'/grb
|
|
|
|
|
+" "Convert a B&W grob to Greyscale.
|
|
|
|
|
+" "2F21B") "Dither" ("grb \\-> grb'/grb
|
|
|
|
|
+" "Convert a greyscale grob to B&W
|
|
|
|
|
+" "2F21A") "Distance" ("#\\GDx #\\GDy \\-> #SQRT(\\GDx^2+\\GDy^2)
|
|
|
|
|
+" "Compute the distance between two
|
|
|
|
|
+points.
|
|
|
|
|
+" "255B5") "MakeStdLabel" ("$ \\-> grob
|
|
|
|
|
+" "Makes standard menu label.
|
|
|
|
|
+" "2E166") "MakeBoxLabel" ("$ \\-> grob
|
|
|
|
|
+" "Makes label with a box.
|
|
|
|
|
+" "2E189") "MakeDirLabel" ("$ \\-> grob
|
|
|
|
|
+" "Makes directory label.
|
|
|
|
|
+" "2E1EB") "MakeDir/StdLabel" ("ob \\-> grob
|
|
|
|
|
+" "Makes directory label if ob is a directory
|
|
|
|
|
+(rrp), otherwise calls MakeStdLabel.
|
|
|
|
|
+" "2E139" :UBS) "MakeInvLabel" ("$ \\-> grob
|
|
|
|
|
+" "Makes inverse label.
|
|
|
|
|
+" "2E24D") "Box/StdLabel" ("$ flag \\-> grob
|
|
|
|
|
+" "If TRUE makes box label, otherwise makes
|
|
|
|
|
+standard label.
|
|
|
|
|
+" "25E7F") "Std/BoxLabel" ("$ flag \\-> grob
|
|
|
|
|
+" "If TRUE makes standard label, otherwise makes
|
|
|
|
|
+box label.
|
|
|
|
|
+" "25F01") "Box/StdLbl:" ("\\-> grob
|
|
|
|
|
+" "Does Box/StdLabel with the next two objects
|
|
|
|
|
+from the stream.
|
|
|
|
|
+ Usage: :: Box/StdLbl: $ <test> ;
|
|
|
|
|
+" "25E80") "Grob>Menu" ("#col grob \\->
|
|
|
|
|
+" "Displays grob as menu label.
|
|
|
|
|
+" "2E0D5") "Str>Menu" ("#col $ \\->
|
|
|
|
|
+" "Displays string as menu label.
|
|
|
|
|
+" "2E0F3") "Id>Menu" ("#col id \\->
|
|
|
|
|
+" "Displays id as menu label.
|
|
|
|
|
+" "2E11B") "Seco>Menu" ("#col :: \\->
|
|
|
|
|
+" "Does EVAL then DoLabel.
|
|
|
|
|
+" "2E107") "DoLabel" ("#col ob \\->
|
|
|
|
|
+" "If ob is of one of the supported types,
|
|
|
|
|
+displays a menu label. If not, generates a
|
|
|
|
|
+\"Bad Argument Type\" error.
|
|
|
|
|
+" "25886") "StdLabelDef" ("#col grob \\->
|
|
|
|
|
+#col $ \\->
|
|
|
|
|
+#col id \\->
|
|
|
|
|
+#col :: \\->
|
|
|
|
|
+" "Works by dispatching the object type.
|
|
|
|
|
+" "2E094" :UBS) "$>GROB" ("$ \\-> grob
|
|
|
|
|
+" "Makes grob of the string using the system
|
|
|
|
|
+font. Linefeed does *not* make new line.
|
|
|
|
|
+" "25F7C") "$>GROBCR" ("$ \\-> grob
|
|
|
|
|
+" "Makes grob of the string using the system
|
|
|
|
|
+font. Linefeed *does* make new line.
|
|
|
|
|
+" "25F86") "$>grob" ("$ \\-> grob
|
|
|
|
|
+" "Makes grob of the string using the minifont.
|
|
|
|
|
+Linefeed does *not* make new line.
|
|
|
|
|
+" "25F81") "$>grobCR" ("$ \\-> grob
|
|
|
|
|
+" "Makes grob of the string using the minifont.
|
|
|
|
|
+Linefeed *does* make new line.
|
|
|
|
|
+" "25F8B") "~$>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.
|
|
|
|
|
+" "25F24") "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.
|
|
|
|
|
+" "25FEF") "MakeLabel" ("$ #w #x grob \\-> grob'
|
|
|
|
|
+" "Inserts $ into grob using CENTER$3x5 with
|
|
|
|
|
+y=5.
|
|
|
|
|
+" "2E2AA") "^MkTitle" ("$ \\-> grob
|
|
|
|
|
+" "Create a title grob. This is the text
|
|
|
|
|
+embedded in a dot matrix pattern, as used for
|
|
|
|
|
+Choose boxes etc. The size of the grob is
|
|
|
|
|
+131x7.
|
|
|
|
|
+" "02F002" :UBS) "LEFT$3x5" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>CENTER$3x5, but the left corner of
|
|
|
|
|
+the text is positioned at #x.
|
|
|
|
|
+" "25FF9") "ERASE&LEFT$3x5" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$3x5, but erase background
|
|
|
|
|
+first.
|
|
|
|
|
+" "26071") "LEFT$3x5Arrow" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$3x5, but if the text does not
|
|
|
|
|
+fit, replace the last character by character
|
|
|
|
|
+31 (dots) to show that the text was
|
|
|
|
|
+truncated.
|
|
|
|
|
+" "26008") "LEFT$3x5CR" ("grob #x #y $ #w #h \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$3x5, but newlines in the
|
|
|
|
|
+strings are interpreted and start new lines.
|
|
|
|
|
+Note the additional argument #h for the
|
|
|
|
|
+maximum height of the text grob.
|
|
|
|
|
+" "2601C") "LEFT$3x5CRArrow" ("grob #x #y $ #w #h \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$3x5CR, but show truncation
|
|
|
|
|
+with arrows.
|
|
|
|
|
+" "26012") "CENTER$5x7" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Same as CENTER$3x5, but using system
|
|
|
|
|
+font.
|
|
|
|
|
+" "25FF4") "LEFT$5x7" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>CENTER$5x7, but the left corner of
|
|
|
|
|
+the text is positioned at #x.
|
|
|
|
|
+" "25FFE") "ERASE&LEFT$5x7" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$5x7, but erase background
|
|
|
|
|
+first.
|
|
|
|
|
+" "2606C") "LEFT$5x7Arrow" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$5x7, but if the text has to be
|
|
|
|
|
+truncated, replace the last character with
|
|
|
|
|
+character 31 (arrow).
|
|
|
|
|
+" "26003") "LEFT$5x7CR" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$5x7, but interpret newlines.
|
|
|
|
|
+" "26017") "LEFT$5x7CRArrow" ("grob #x #y $ #w \\-> grob'
|
|
|
|
|
+" "Like <REF>LEFT$5x7CR, but show truncation
|
|
|
|
|
+with arrows.
|
|
|
|
|
+" "2600D") "^EQW3GROB" ("ob \\-> ext grob #0
|
|
|
|
|
+ \\-> #2
|
|
|
|
|
+" "" "019004") "^EQW3GROBStk" ("ob \\-> ext grob #0
|
|
|
|
|
+ \\-> #2
|
|
|
|
|
+" "" "01A004") "^EQW3GROBmini" ("ob \\-> ext grob #0
|
|
|
|
|
+ \\-> #2
|
|
|
|
|
+" "" "01F004") "^EQW3GROBsys" ("ob \\-> ext grob #0
|
|
|
|
|
+ \\-> #2
|
|
|
|
|
+" "" "01E004" :wasCSys) "^XGROBext" ("ob \\-> grob
|
|
|
|
|
+" "Convert object to a grob.
|
|
|
|
|
+" "0BE007" :wasCSys) "^DISPLAYext" ("grob ob \\-> grob'
|
|
|
|
|
+" "Adds ob to grob after converting it to a
|
|
|
|
|
+grob.
|
|
|
|
|
+" "0C0007" :wasCSys) "'IDPAR" ("\\-> id
|
|
|
|
|
+" "Puts ID PPAR unevaluated on the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "27AE9" :UBS) "ID_PPAR" ("ID PPAR
|
|
|
|
|
+" " --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2799A" :UBS) "CHECKPICT" ("\\->
|
|
|
|
|
+" "Checks size of GBUFF. If it is smaller than
|
|
|
|
|
+131x64 sets GBUFF back to its default size
|
|
|
|
|
+(131x64).
|
|
|
|
|
+" "2F162") "CKPICT" ("xPICT \\->
|
|
|
|
|
+" "Checks for user word xPICT on level 1. Errors
|
|
|
|
|
+(SETTYPEERR) if there is another object.
|
|
|
|
|
+" "2EF06") "PICTRCL" ("xPICT \\-> grob
|
|
|
|
|
+" "Does CKPICT, then recalls GBUFF and does
|
|
|
|
|
+TOTEMPOB.
|
|
|
|
|
+" "2F258") "MAKEPVARS" ("\\-> {}
|
|
|
|
|
+" "Creates the default PPAR variable in the
|
|
|
|
|
+current directory and returns its value.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F355") "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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F163") "GETPARAM" ("# \\-> ob
|
|
|
|
|
+" "Extracts the #th item from PPAR. No error
|
|
|
|
|
+checking!
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F33D") "GETXMIN" ("\\-> %
|
|
|
|
|
+" "Recalls XMIN from the PPAR list if
|
|
|
|
|
+existent. If not, the default PPAR is created
|
|
|
|
|
+in the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F0FF") "PUTXMIN" ("% \\->
|
|
|
|
|
+" "Sets a new value for XMIN. PPAR is created
|
|
|
|
|
+if necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F366") "GETXMAX" ("\\-> %
|
|
|
|
|
+" "Recalls XMAX from the PPAR list if
|
|
|
|
|
+existent. If not, the default PPAR is created
|
|
|
|
|
+in the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F0FE") "PUTXMAX" ("% \\->
|
|
|
|
|
+" "Sets a new value for XMAX. PPAR is created
|
|
|
|
|
+if necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F365") "GETYMIN" ("\\-> %
|
|
|
|
|
+" "Recalls YMIN from the PPAR list if
|
|
|
|
|
+existent. If not, the default PPAR is created
|
|
|
|
|
+in the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F100") "PUTYMIN" ("% \\->
|
|
|
|
|
+" "Sets a new value for YMIN. PPAR is created
|
|
|
|
|
+if necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F368") "GETYMAX" ("\\-> %
|
|
|
|
|
+" "Recalls YMAX from the PPAR list if
|
|
|
|
|
+existent. If not, the default PPAR is created
|
|
|
|
|
+in the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F10E") "PUTYMAX" ("% \\->
|
|
|
|
|
+" "Sets a new value for YMAX. PPAR is created
|
|
|
|
|
+if necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F367") "GETPMIN&MAX" ("\\-> C% C%
|
|
|
|
|
+" " --
|
|
|
|
|
+Returns PMIN and PMAX.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F107") "PUTINDEP" ("ID \\->
|
|
|
|
|
+" "Internal xINDEP if the arg is an ID.
|
|
|
|
|
+" "2EEF2") "PUTINDEPLIST" ("{} \\->
|
|
|
|
|
+" "Internal xINDEP if the arg is a list.
|
|
|
|
|
+" "2EEF3") "INDEPVAR" ("\\-> id
|
|
|
|
|
+" "Recalls the independent variable. If a list,
|
|
|
|
|
+extract first element.
|
|
|
|
|
+ :: GETINDEP DUPTYPELIST? ?CARCOMP ;
|
|
|
|
|
+" "2F0E8") "GETINDEP" ("\\-> id
|
|
|
|
|
+\\-> {}
|
|
|
|
|
+" "Recalls the independent variable field in
|
|
|
|
|
+PPAR.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F106") "GETPTYPE" ("\\-> name
|
|
|
|
|
+" "Recalls the plot type using GETPARAM.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2EEF5") "PUTPTYPE" ("name \\->
|
|
|
|
|
+" "Sets a new plot type. PPAR is created if
|
|
|
|
|
+necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2EEF6") "GETRES" ("\\-> %
|
|
|
|
|
+" "Recalls the plot resolution using GETPARAM.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F10D") "PUTRES" ("% \\->
|
|
|
|
|
+" "Set new plot resolution. PPAR is created if
|
|
|
|
|
+necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2EEF4") "GETSCALE" ("\\-> % %'
|
|
|
|
|
+" "Recalls the plot scale parameters.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2F33E") "PUTSCALE" ("% %' \\->
|
|
|
|
|
+" "Set new plot scale. PPAR is created if
|
|
|
|
|
+necessary.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+" "2EEF1") "AUTOSCALE" ("\\->
|
|
|
|
|
+" "Internal AUTO.
|
|
|
|
|
+" "2EEEF") "DOGRAPHIC" ("\\->
|
|
|
|
|
+" "Sets the scroll mode of PICTURE and is
|
|
|
|
|
+essentially the same as { } PVIEW.
|
|
|
|
|
+" "2EF60") "GETXPOS" ("
|
|
|
|
|
+" "" "2F109") "getxpos" ("
|
|
|
|
|
+" "" "2F007") "GETYPOS" ("
|
|
|
|
|
+" "" "2F340") "getypos" ("
|
|
|
|
|
+" "" "2F008") "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.
|
|
|
|
|
+" "25ECF") "GetEqN" ("#n \\-> ob T
|
|
|
|
|
+ \\-> NULL$ F
|
|
|
|
|
+" "Get the #nth equation, if EQ is a list of
|
|
|
|
|
+equations.
|
|
|
|
|
+" "2F339") "DORCLE" ("\\-> ob
|
|
|
|
|
+" "Recalls the contents of the EQ variable,
|
|
|
|
|
+errors if it does not exist.
|
|
|
|
|
+" "25EB5") "DOSTOE" ("ob \\->
|
|
|
|
|
+" "Stores ob into the variable EQ.
|
|
|
|
|
+" "25EB6") "XEQPURGEPICT" ("xPICT \\->
|
|
|
|
|
+" "If object in level one is xPICT, erases the
|
|
|
|
|
+graphic display. Otherwise, errors.
|
|
|
|
|
+" "2F297") "CRER" ("
|
|
|
|
|
+" "" "00113") "CROSSMARKON" ("
|
|
|
|
|
+" "" "2F328") "CROSS_HAIRS" ("
|
|
|
|
|
+" "" "2EEFA") "CROSS_OFF" ("
|
|
|
|
|
+" "" "2EEFB") "GDISPCENTER" ("\\->
|
|
|
|
|
+" "Moves to center of graphics display
|
|
|
|
|
+" "2F105") "GetRes" ("
|
|
|
|
|
+" "" "2F10A") "HSCALE" ("
|
|
|
|
|
+" "" "2EEF8") "VSCALE" ("
|
|
|
|
|
+" "" "2EEF7") "PLOTERR" ("
|
|
|
|
|
+" "" "2F35E") "PlotOneMore?" ("
|
|
|
|
|
+" "" "2F35F") "PLOTPREP" ("
|
|
|
|
|
+" "" "2F0C5") "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.
|
|
|
|
|
+" "2EF01") "DOC>PX" ("C% \\-> { hxs hxs' }
|
|
|
|
|
+" "Converts a complex coordinate point into list
|
|
|
|
|
+of two HXS numbers. Inverse operation is
|
|
|
|
|
+DOPX>C.
|
|
|
|
|
+" "2EF02") "^SYMBINCOMP" ("symb \\-> ob1 .. obN #n
|
|
|
|
|
+ob \\-> ob #1
|
|
|
|
|
+{} \\-> {} #1
|
|
|
|
|
+" "Explodes symbolic object into meta. Other
|
|
|
|
|
+objects are converted into one-object metas
|
|
|
|
|
+by pushing #1 into the stack.
|
|
|
|
|
+" "157006" :CSys) "^2SYMBINCOMP" ("ob1 ob2 \\-> meta1 meta2
|
|
|
|
|
+" "Does ^SYMBINCOMP for 2 objects.
|
|
|
|
|
+" "12A006" :CSys) "^VXXLext" ("ob Lvar \\-> Q
|
|
|
|
|
+" "Converts object to internal form. The object
|
|
|
|
|
+can be a symbolic, a symbolic vector or a
|
|
|
|
|
+symbolic matrix. If the conversion was not
|
|
|
|
|
+successfull, vxxxlflag is cleared.
|
|
|
|
|
+" "4D7006" :CSys) "^R2SYM" ("lvar ob \\-> ob
|
|
|
|
|
+" "Back conversion of a scalar object.
|
|
|
|
|
+" "400006" :CSys) "^METALISTVXXL" ("Meta \\-> Meta
|
|
|
|
|
+" "Conversion of all elements of a meta object
|
|
|
|
|
+with respect to the variables in LAM1.
|
|
|
|
|
+" "4D8006" :CSys) "^VXXLFext" ("n/d \\-> Z1/Z2
|
|
|
|
|
+" "Conversion of a fraction which does not
|
|
|
|
|
+depend on any variables.
|
|
|
|
|
+" "4D9006" :CSys) "^VXXL1ext" ("n \\-> Z
|
|
|
|
|
+" "Conversion of an object which does not depend
|
|
|
|
|
+on any variables.
|
|
|
|
|
+" "4DA006" :CSys) "^VXXL0" ("ob \\-> Q
|
|
|
|
|
+" "Conversion of object with respect to Lvar in
|
|
|
|
|
+LAM1.
|
|
|
|
|
+" "4DB006" :CSys) "^VXXL2NR" ("Meta \\-> Q
|
|
|
|
|
+" "Converts symbolic meta to internal form
|
|
|
|
|
+(LAM1=Lvar). Set nocareflag to avoid
|
|
|
|
|
+square root problems.
|
|
|
|
|
+" "4DC006" :CSys) "^VXXL2" ("Meta \\-> Q
|
|
|
|
|
+" "Converts symbolic meta to internal form
|
|
|
|
|
+(LAM1=Lvar).
|
|
|
|
|
+" "4DD006" :CSys) "^TYPEIRRQ?" ("ob \\-> flag
|
|
|
|
|
+" "Is ob an irrquad?
|
|
|
|
|
+" "167006" :CSys) "^DTYPEIRRQ?" ("ob \\-> ob flag
|
|
|
|
|
+" "DUP, then ^TYPEIRRQ?.
|
|
|
|
|
+" "168006" :CSys) "^CKMATRIXELEM" ("ob \\-> ob
|
|
|
|
|
+" "Checks that ob is a valid internal matrix
|
|
|
|
|
+element. Look for CK[]NCK for user matrix
|
|
|
|
|
+element.
|
|
|
|
|
+" "177006" :CSys) "^CKFPOLYext" ("ob \\-> ob
|
|
|
|
|
+" "Errors if list contains secondaries or empty
|
|
|
|
|
+lists.
|
|
|
|
|
+" "18F006" :CSys) "^CK2FPOLY" ("ob ob \\-> ob ob
|
|
|
|
|
+" "Does CKFPOLYext on two objects.
|
|
|
|
|
+" "190006" :CSys) "^CLEANIDLAM" ("ob \\-> ob
|
|
|
|
|
+" "Suppresses SYMB if not needed.
|
|
|
|
|
+" "19E006" :CSys) "Z-9" ("-9
|
|
|
|
|
+" "" "2733F" :UBS) "Z-8" ("-8
|
|
|
|
|
+" "" "2734B" :UBS) "Z-7" ("-7
|
|
|
|
|
+" "" "27357" :UBS) "Z-6" ("-6
|
|
|
|
|
+" "" "27363" :UBS) "Z-5" ("-5
|
|
|
|
|
+" "" "2736F" :UBS) "Z-4" ("-4
|
|
|
|
|
+" "" "2737B" :UBS) "Z-3" ("-3
|
|
|
|
|
+" "" "27387" :UBS) "Z-2" ("-2
|
|
|
|
|
+" "" "27393" :UBS) "Z-1" ("-1
|
|
|
|
|
+" "" "2739F" :UBS) "Z0" ("0
|
|
|
|
|
+" "" "273AB" :UBS) "Z1" ("1
|
|
|
|
|
+" "" "273B6" :UBS) "Z2" ("2
|
|
|
|
|
+" "" "273C2" :UBS) "Z3" ("3
|
|
|
|
|
+" "" "273CE" :UBS) "Z4" ("4
|
|
|
|
|
+" "" "273DA" :UBS) "Z5" ("5
|
|
|
|
|
+" "" "273E6" :UBS) "Z6" ("6
|
|
|
|
|
+" "" "273F2" :UBS) "Z7" ("7
|
|
|
|
|
+" "" "273FE" :UBS) "Z8" ("8
|
|
|
|
|
+" "" "2740A" :UBS) "Z9" ("9
|
|
|
|
|
+" "" "27416" :UBS) "Z10" ("10
|
|
|
|
|
+" "" "27422" :UBS) "Z12" ("12
|
|
|
|
|
+" "" "2742F" :UBS) "Z24" ("24
|
|
|
|
|
+" "" "2743C" :UBS) "Z100" ("100
|
|
|
|
|
+" "" "27449" :UBS) "ZINT1_0" ("\\-> 1 0
|
|
|
|
|
+" "Pushes the ZINTS 1 and 0.
|
|
|
|
|
+" "274A9" :UBS) "^DROPZ0" ("ob \\-> z0
|
|
|
|
|
+" "" "2E0006" :CSys) "^DROPZ1" ("ob \\-> z1
|
|
|
|
|
+" "" "2DF006" :CSys) "^2DROPZ0" ("2 1 \\-> z0
|
|
|
|
|
+" "" "392006" :CSys) "^NDROPZ0" ("obn...ob1 #n \\-> z0
|
|
|
|
|
+" "Replaces meta with Z0.
|
|
|
|
|
+" "3B3006" :CSys) "^NDROPZ1" ("obn...ob1 #n \\-> z1
|
|
|
|
|
+" "Replaces meta with Z1.
|
|
|
|
|
+" "3B4006" :CSys) "INTERNALiX" ("{ 1 0 0 }
|
|
|
|
|
+" "List with the three ZINTS 1, 0, and 0.
|
|
|
|
|
+" "274A4" :UBS) "Z0ONE" ("\\-> ZINT 0 #1
|
|
|
|
|
+" "" "27C70" :UBS) "^#>Z" ("# \\-> Z
|
|
|
|
|
+" "Converts bint to zint.
|
|
|
|
|
+" "0EE006" :CSys) "^R>Z" ("% \\-> z
|
|
|
|
|
+" "Converts real to zint. Do not call this entry
|
|
|
|
|
+if the number if not an integer.
|
|
|
|
|
+" "0F5006" :CSys) "^R2Zext" ("% \\-> %%/Z
|
|
|
|
|
+" "Converts real to zint, or to long real if the
|
|
|
|
|
+number is not an integer. mode if number is
|
|
|
|
|
+not an integer.
|
|
|
|
|
+" "18D006" :CSys) "^H>Z" ("HXS \\-> Z / Error
|
|
|
|
|
+" "Checks if HXS is a proper zint number and
|
|
|
|
|
+trims it.
|
|
|
|
|
+" "0ED006" :CSys) "^S>Z" ("$ \\-> z
|
|
|
|
|
+" "Converts decimal in a string into a zint.
|
|
|
|
|
+" "0F2006" :CSys) "^S>Z?" ("$ \\-> z T
|
|
|
|
|
+ \\-> $ F
|
|
|
|
|
+" "If possible, converts string into a zint and
|
|
|
|
|
+returns TRUE. If not, keeps the original
|
|
|
|
|
+string and returns FALSE.
|
|
|
|
|
+" "0F3006" :CSys) "^CK1Z" ("$/#/hxs \\-> Z
|
|
|
|
|
+" "Checks for an integer. Converts strings,
|
|
|
|
|
+bints or hxs's to zints. Errors for other
|
|
|
|
|
+object types.
|
|
|
|
|
+" "184006" :CSys) "^CK2Z" ("ob ob' \\-> Z Z'
|
|
|
|
|
+" "Like <REF>^CK1Z, but for two objects.
|
|
|
|
|
+" "185006" :CSys) "^CK3Z" ("ob ob' ob'' \\-> Z Z' Z''
|
|
|
|
|
+" "Like <REF>^CK1Z, but for three objects.
|
|
|
|
|
+" "186006" :CSys) "^CK&CONVINT" ("symb \\-> zint
|
|
|
|
|
+ \\-> :: zint zint' ;
|
|
|
|
|
+" "Check that a sym is a zint or Gauss integer,
|
|
|
|
|
+convert it.
|
|
|
|
|
+" "202006" :CSys) "^CK&CONV2INT" ("symb symb' \\-> zint zint'
|
|
|
|
|
+ \\-> :: zint1 zint2 ; :: zint3 zint4 ;
|
|
|
|
|
+" "Check that 2 sym are zint or Gauss integer,
|
|
|
|
|
+convert them.
|
|
|
|
|
+" "203006" :CSys) "^CONVBACKINT" ("zint|c \\-> symb
|
|
|
|
|
+" "" "205006" :CSys) "^CONVBACK2INT" ("zint|c zint|c \\-> symb symb
|
|
|
|
|
+" "" "204006" :CSys) "^Z>ZH" ("Z \\-> Z'
|
|
|
|
|
+" "Converts decimal Z to hex Z.
|
|
|
|
|
+" "0F4006" :CSys) "^Z2Sext" ("Z \\-> '$Z'
|
|
|
|
|
+" "Converts Z to string number. The number is
|
|
|
|
|
+embedded in a symbolic to enable using it in
|
|
|
|
|
+algebraics.
|
|
|
|
|
+" "18E006" :CSys) "^ZTrim" ("Z \\-> Z'
|
|
|
|
|
+" "Strips Z from unnecessary leading nibbles.
|
|
|
|
|
+Counts nibbles required for
|
|
|
|
|
+representation. If that equals used nibbles
|
|
|
|
|
+then quick exit. Else allocates new object,
|
|
|
|
|
+copies significant mantissa nibbles and
|
|
|
|
|
+apends original sign.
|
|
|
|
|
+" "101006" :CSys) "^ZAbs" ("Z \\-> |Z|
|
|
|
|
|
+" "Takes the absolute value of Z. If Z is
|
|
|
|
|
+already positive then does nothing. Else
|
|
|
|
|
+duplicate object and change sign.
|
|
|
|
|
+" "102006" :CSys) "^ZABS" ("Z \\-> Z'
|
|
|
|
|
+" "Absolute value.
|
|
|
|
|
+" "50B006" :CSys) "^ZSQ" ("Z \\-> Z'
|
|
|
|
|
+" "Computes the square of a zint.
|
|
|
|
|
+" "590006" :CSys :UBS) "^ZSQRT" ("Z \\-> Z' flag
|
|
|
|
|
+" "Calculates integer part of square root. If
|
|
|
|
|
+the number was a square, then flag is TRUE to
|
|
|
|
|
+indicate that the returned result is exact.
|
|
|
|
|
+" "0E0006" :CSys) "^Mod" ("Z Zn \\-> Z'
|
|
|
|
|
+" "Make Z modulo N.
|
|
|
|
|
+" "3D0006" :CSys) "^ZMod" ("Z1 Z2 \\-> Z'
|
|
|
|
|
+" "" "0DD006" :CSys) "^ZNMax" ("Z1 Z2 \\-> NormMax[Z1,Z2]
|
|
|
|
|
+" "Returns the integer with the greatest
|
|
|
|
|
+absolute value. (Returns Z1 if |Z1|\\>=|Z2|;
|
|
|
|
|
+returns Z2 if |Z1|<|Z2|).
|
|
|
|
|
+" "105006" :CSys) "^ZNMin" ("Z1 Z2 \\-> NormMin[Z1,Z2]
|
|
|
|
|
+" "Returns the integer with the smallest
|
|
|
|
|
+absolute value. (Returns Z1 if |Z1|\\<=|Z2|;
|
|
|
|
|
+returns Z2 if |Z1|>|Z2|).
|
|
|
|
|
+" "106006" :CSys) "^ZBits" ("Z \\-> Z #bits
|
|
|
|
|
+" "Calculates number of bits used in Z.
|
|
|
|
|
+" "10D006" :CSys) "^ZBit?" ("Z #bit \\-> Z flag
|
|
|
|
|
+" "Tests if a bit in Z is set.
|
|
|
|
|
+Count starts from zero, as opposed to ZBits.
|
|
|
|
|
+" "10E006" :CSys) "^ZGCDext" ("Z2 Z1 \\-> Z
|
|
|
|
|
+" "Integer GCD.
|
|
|
|
|
+" "2B7006" :CSys) "^ZGcd" ("Z2 Z1 \\-> Z
|
|
|
|
|
+" "This is the same entry as ZGCDext.
|
|
|
|
|
+" "2B8006" :CSys) "^IEGCD" ("
|
|
|
|
|
+" "Internal EGCD for integers.
|
|
|
|
|
+" "20A006" :CSys) "^IEGCDext" ("a b \\-> d u v
|
|
|
|
|
+" "Bezout for integers.
|
|
|
|
|
+d=au+bv=gcd(a,b).
|
|
|
|
|
+" "3D6006" :CSys) "^INEGCD" ("a b \\-> d u v
|
|
|
|
|
+" "" "3D9006" :CSys) "^EGCDSWAP" ("
|
|
|
|
|
+" "" "3DA006" :CSys) "^EGCDNEWG" ("
|
|
|
|
|
+" "" "3DB006" :CSys) "^#FACT" ("# \\-> Z
|
|
|
|
|
+" "Calculates the factorial of an integer. Works
|
|
|
|
|
+fine for all numbers #0 - #FFFFF, although at
|
|
|
|
|
+some point you will get an out of memory
|
|
|
|
|
+error.
|
|
|
|
|
+" "07C007" :CSys) "^factzint" ("z \\-> z!
|
|
|
|
|
+" "Factorial for long integers.
|
|
|
|
|
+" "576006" :CSys) "^PA2B2" ("z/% \\-> a+bi
|
|
|
|
|
+" "Internal PA2B2.
|
|
|
|
|
+" "215006" :CSys) "^ZFactor" ("Zs \\-> Lf
|
|
|
|
|
+" "Factors signed long integer.
|
|
|
|
|
+" "0C9006" :CSys) "^NFactor" ("z \\-> {}
|
|
|
|
|
+" "Factors positive long integer.
|
|
|
|
|
+" "0CA006" :CSys) "^NFactorSpc" ("z \\-> {}
|
|
|
|
|
+" "Semi-factors positive long integer. This is
|
|
|
|
|
+regular factorization with an extra
|
|
|
|
|
+'hopeless?' test.
|
|
|
|
|
+" "0CB006" :CSys) "^SFactor" ("S \\-> Lf
|
|
|
|
|
+" "Factors short integer. Pollard Rho, with the
|
|
|
|
|
+assumption that trial division has been done
|
|
|
|
|
+already. Thus any factor less than 4012009 is
|
|
|
|
|
+known to be a prime, for greater factors a
|
|
|
|
|
+primality test is used before calling the
|
|
|
|
|
+actual Pollard Rho. Pollard Rho does not
|
|
|
|
|
+find the factors in order of magnitude, thus
|
|
|
|
|
+the results will be sorted after full
|
|
|
|
|
+factorization has been achieved.
|
|
|
|
|
+" "0CD006" :CSys) "^SPollard" ("S \\-> S1 S2
|
|
|
|
|
+" "Factors short integer into 2 parts using
|
|
|
|
|
+Pollard Rho algorithm. Trial division and
|
|
|
|
|
+primality tests should be done prior to
|
|
|
|
|
+calling this subroutine, otherwise an eternal
|
|
|
|
|
+loop is risked. The random number generator
|
|
|
|
|
+is modeled after the user level RAND command,
|
|
|
|
|
+although the starting value is different.
|
|
|
|
|
+" "0CE006" :CSys) "^BFactor" ("N \\-> Lf
|
|
|
|
|
+" "Factors long integer. Brent-Pollard, with the
|
|
|
|
|
+assumption that trial division has been done
|
|
|
|
|
+already. When a small factor is found SFactor
|
|
|
|
|
+is called to get full short
|
|
|
|
|
+factorization. Since the factorization can
|
|
|
|
|
+potentially take a very long time, an
|
|
|
|
|
+execution time test is used to abort
|
|
|
|
|
+factoring very long integers (limit is 60s
|
|
|
|
|
+for each composite). The factors are sorted
|
|
|
|
|
+at exit.
|
|
|
|
|
+" "0CF006" :CSys) "^BrentPow" ("Za Z1 Z2 Zn #k \\-> Z
|
|
|
|
|
+" "Modular * + ^ mod for Brent-Pollard
|
|
|
|
|
+factorization. Output is Z1*Z2+Za mod Zn
|
|
|
|
|
+repeated k times Note that k=0 and k=1 give
|
|
|
|
|
+the same result. Also Z1\\=/Z2 makes no sense
|
|
|
|
|
+for k\\=/0. All arguments are assumed to be
|
|
|
|
|
+positive. Za is assumed to be < 16. In some
|
|
|
|
|
+instances k can be a very high number, thus
|
|
|
|
|
+it might make sense to use Montgomery
|
|
|
|
|
+multiplication.
|
|
|
|
|
+" "0D0006" :CSys) "^ZPrime?" ("Z \\-> flag
|
|
|
|
|
+" "Primality test for a positive integer.
|
|
|
|
|
+According to Pinch commercial software
|
|
|
|
|
+packages use only about 5-10 bases by
|
|
|
|
|
+default, maximum around 25. The latest
|
|
|
|
|
+versions usually implement a deterministic.
|
|
|
|
|
+" "0D1006" :CSys) "^ZIsPrime?" ("Z \\-> flag
|
|
|
|
|
+" "Probabilistic primality test for a positive
|
|
|
|
|
+integer.
|
|
|
|
|
+" "0D2006" :CSys) "^SIsPrime?" ("S \\-> flag
|
|
|
|
|
+" "Tests if positive short Z is prime. M-R test
|
|
|
|
|
+fails for integers \\<= 3, so we just test them
|
|
|
|
|
+separately at the start. For convenience lets
|
|
|
|
|
+define 0 and 1 to be primes also.
|
|
|
|
|
+" "0D3006" :CSys) "^BIsPrime?" ("S \\-> flag
|
|
|
|
|
+" "Test if positive long Z is prime.
|
|
|
|
|
+" "0D4006" :CSys) "^BRabin" ("Z #base \\-> Z flag
|
|
|
|
|
+" "Performs Miller-Rabin test for long positive
|
|
|
|
|
+integer. Returns TRUE if base witnesses
|
|
|
|
|
+composite. Else returns FALSE.
|
|
|
|
|
+" "0D5006" :CSys) "^ZTrialDiv2" ("Z \\-> Z' #n
|
|
|
|
|
+" "Remove factors of 2 from integer.
|
|
|
|
|
+#n is the power of two extracted from the
|
|
|
|
|
+number. The sign is also handled correctly,
|
|
|
|
|
+even though it is never required in ALG48
|
|
|
|
|
+(absolute Z).
|
|
|
|
|
+" "0D6006" :CSys) "^ZTrialPrime?" ("Z \\-> flag
|
|
|
|
|
+" "Trial division primality test for a positive
|
|
|
|
|
+integer. works for Z \\>= 3 (return false for
|
|
|
|
|
+Z=2).
|
|
|
|
|
+" "0D7006" :CSys) "^ZTrialDiv" ("Z \\-> Mf Z'
|
|
|
|
|
+" "Trial division of a positive integer. If Z'
|
|
|
|
|
+is one then full factorization was achieved.
|
|
|
|
|
+The long trial division is not too slow,
|
|
|
|
|
+since division by short integer is quite
|
|
|
|
|
+fast. The quotient is also checked so that a
|
|
|
|
|
+final factor less than 2000^2 will also be
|
|
|
|
|
+automatically detected.
|
|
|
|
|
+" "0D8006" :CSys) "^Prime+" ("Z \\-> Z'
|
|
|
|
|
+" "Returns next prime ( Z' > Z ).
|
|
|
|
|
+" "0C7006" :CSys) "^Prime-" ("Z \\-> Z'
|
|
|
|
|
+" "Returns previous prime ( Z' < Z ).
|
|
|
|
|
+" "0C8006" :CSys) "Z1Z0" ("(1,0)
|
|
|
|
|
+" "" "274A9" :UBS) "Z0Z1" ("(0,1)
|
|
|
|
|
+" "" "27516" :UBS) "Z-1Z0" ("(-1,0)
|
|
|
|
|
+" "" "2754B" :UBS) "Z1Z1" ("(1,1)
|
|
|
|
|
+" "" "2756C" :UBS) "^TYPEGAUSSINT?" ("ob \\-> flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "114007" :1\.11 :wasCSys) "^DTYPEGAUSSINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "115007" :1\.11 :wasCSys) "^DUPTYPEGAUSSINT?" ("ob \\-> ob flag
|
|
|
|
|
+" "Checks if ob is Gaussian integer.
|
|
|
|
|
+" "116007" :1\.11 :wasCSys) "^CK1Cext" ("ob \\-> flag
|
|
|
|
|
+" "Checks if object is integer or Gaussian
|
|
|
|
|
+integer.
|
|
|
|
|
+" "187006" :wasCSys) "^CXRIext" ("C \\-> Zre Zim
|
|
|
|
|
+" "Returns real and imaginary part of Gaussian
|
|
|
|
|
+integer.
|
|
|
|
|
+" "15D006" :CSys) "^CGCDext" ("C2 C1 \\-> C
|
|
|
|
|
+" "GCD for Gauss integers.
|
|
|
|
|
+" "2B5006" :CSys) "^CSQFFext" ("C \\-> { factor1 mult1 ... factn multn }
|
|
|
|
|
+" "Factorization of Gauss integers. This is not
|
|
|
|
|
+the complete factorization of C over Gauss
|
|
|
|
|
+integers since the GCD of the real part and
|
|
|
|
|
+imaginary part of c is factored only over R.
|
|
|
|
|
+" "4D5006" :CSys) "^SECOSQFFext" (":: x<< a b c x>> ; \\-> { fact1 mult1 ... factn multn }
|
|
|
|
|
+" "Factorization of irrquads and Gauss integers.
|
|
|
|
|
+" "4D4006" :CSys) "^SUMSQRext" ("Z \\-> Z C
|
|
|
|
|
+" "Returns a Gauss integer C so that |C|^2=Z.
|
|
|
|
|
+Z must be 2 or so that Z=1 mod 4.
|
|
|
|
|
+If Z \\=/ 1 mod 4, \"Z is not 1 mod 4\" error.
|
|
|
|
|
+Z should be prime to ensure the existence of
|
|
|
|
|
+a solution.
|
|
|
|
|
+" "4D6006" :CSys) "^CNORMext" ("C \\-> |C|^2
|
|
|
|
|
+" "Square modulus of a Gauss integer.
|
|
|
|
|
+" "518006" :CSys) "Z=" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265C1") "Z<>" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265C6") "Z<" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265BC") "Z<=" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265D0") "Z>" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265B7") "Z>=" ("Z Z' \\-> flag
|
|
|
|
|
+" "" "265CB") "^QIsZero?" ("Q \\-> flag
|
|
|
|
|
+" "Tests if Q is zero. Assumes list contains only
|
|
|
|
|
+lists or hexes!.
|
|
|
|
|
+" "0F8006" :CSys) "^DupQIsZero?" ("Q \\-> Q flag
|
|
|
|
|
+" "Duplicates Q and tests if Q is zero. Assumes
|
|
|
|
|
+list contains only lists or hexes!.
|
|
|
|
|
+" "0F7006" :CSys) "^ZIsOne?" ("Z \\-> flag
|
|
|
|
|
+" "Tests if Z is Z1.
|
|
|
|
|
+" "0FA006" :CSys) "^DupZIsOne?" ("Z \\-> Z flag
|
|
|
|
|
+" "Duplicates Z, and returns TRUE if Z is 1.
|
|
|
|
|
+" "0F9006" :CSys) "^DupZIsTwo?" ("Z \\-> Z flag
|
|
|
|
|
+" "Returns TRUE if Z is 2.
|
|
|
|
|
+" "109006" :CSys) "^ZIsNeg?" ("Z \\-> flag
|
|
|
|
|
+" "Tests if Z is negative.
|
|
|
|
|
+" "0FC006" :CSys) "^DupZIsNeg?" ("Z \\-> Z flag
|
|
|
|
|
+" "Tests if Z is negative.
|
|
|
|
|
+" "0FB006" :CSys) "^DupZIsEven?" ("Z \\-> Z flag
|
|
|
|
|
+" "Tests if Z is even.
|
|
|
|
|
+" "10A006" :CSys) "^ZNLT?" ("Z1 Z2 \\-> flag
|
|
|
|
|
+" "TRUE if |Z1|<|Z2|.
|
|
|
|
|
+" "107006" :CSys) "^OBJINT?" ("z/% \\-> z flag
|
|
|
|
|
+" "Tests if Obj is an integer.
|
|
|
|
|
+" "19A006" :CSys) "^OBJPOSINT?" ("z/% \\-> z flag
|
|
|
|
|
+" "Tests if Obj is a positive integer smaller
|
|
|
|
|
+than Zsmall.
|
|
|
|
|
+" "19B006" :CSys) "^CKINT>0" ("Obj \\-> Obj flag
|
|
|
|
|
+" "Tests if Obj is a strictly positive integer.
|
|
|
|
|
+" "19C006" :CSys) "^METAINT?" ("Meta \\-> Meta flag
|
|
|
|
|
+" "Tests if Meta is an integer.
|
|
|
|
|
+" "198006" :CSys) "^METAPOSINT?" ("Meta \\-> Meta flag
|
|
|
|
|
+" "Tests if Meta is a positive integer smaller
|
|
|
|
|
+than Zsmall.
|
|
|
|
|
+" "199006" :CSys) "^DupTypeS?" ("Z \\-> Z flag
|
|
|
|
|
+" "Tests if Z is short (\\<= 64 bits).
|
|
|
|
|
+" "0CC006" :CSys) "^MATIDN" ("M/z/% \\-> M'
|
|
|
|
|
+" "Creates identity matrix.
|
|
|
|
|
+" "371006" :CSys) "^MATCON" ("M ob \\-> [ob]
|
|
|
|
|
+" "Creates constant matrix from matrix.
|
|
|
|
|
+" "372006" :CSys) "^MAKEARRY" ("{#el} ob \\-> []
|
|
|
|
|
+{#rows #cols} ob \\-> [[]]
|
|
|
|
|
+" "Creates constant matrix/array, initializing
|
|
|
|
|
+all elements with ob. ob may be symbolic,
|
|
|
|
|
+real, complex or zint.
|
|
|
|
|
+" "373006" :CSys) "^DIMRANM" ("{} \\-> M'
|
|
|
|
|
+" "Creates symbolic random matrix from
|
|
|
|
|
+dimensions.
|
|
|
|
|
+" "345006" :CSys) "^MATRANM" ("M \\-> M'
|
|
|
|
|
+" "Changes all elements of matrix to elements
|
|
|
|
|
+generated randomly.
|
|
|
|
|
+" "344006" :CSys) "^OBJDIMS2MAT" ("ob {} \\-> M
|
|
|
|
|
+" "Creates constant matrix from dimension and
|
|
|
|
|
+ob.
|
|
|
|
|
+" "374006" :CSys) "^LCPROG2M" ("#n #m prg \\-> M
|
|
|
|
|
+" "Fills a matrix of specified size using a
|
|
|
|
|
+program. prg must take two arguments and
|
|
|
|
|
+return one argument. On entry MAKE2DMATRIX
|
|
|
|
|
+provide the indexes as Z integers.
|
|
|
|
|
+" "375006" :CSys) "^MAKE2DMATRIX" ("#n #m prg \\-> M
|
|
|
|
|
+" "Creates matrix from size and program (with
|
|
|
|
|
+stack checking). prg must take 2 args and
|
|
|
|
|
+return 1 arg. On entry MAKE2DMATRIX provide
|
|
|
|
|
+the indexes as Z integers.
|
|
|
|
|
+" "376006" :CSys) "^make2dmatrix" ("#n #m prg \\-> meta-M
|
|
|
|
|
+" "Create meta-matrix from size and program
|
|
|
|
|
+(with stack checking). prg must take 2 args
|
|
|
|
|
+and return 1 arg On entry make2dmatrix
|
|
|
|
|
+provide the indexes as Z integers.
|
|
|
|
|
+" "377006" :CSys) "^MATREDIM" ("M {} \\-> M'
|
|
|
|
|
+" "Changes size of a matrix, removing elements
|
|
|
|
|
+and/or adding zeros, as necessary.
|
|
|
|
|
+" "341006" :CSys) "^VRRDM" ("[]/[[]] {} \\-> []
|
|
|
|
|
+" "Vector Right ReDiMension: adds 0 to the
|
|
|
|
|
+right.
|
|
|
|
|
+" "342006" :CSys) "^VRRDMmeta" ("meta #l \\-> meta-#l
|
|
|
|
|
+" "Meta Right ReDiMension: adds 0 to the right.
|
|
|
|
|
+" "343006" :CSys) "^{}TO[]" ("{} \\-> []
|
|
|
|
|
+" "Converts from list-of-lists representation to
|
|
|
|
|
+matrix. No checks on the element type.
|
|
|
|
|
+" "16A006" :CSys) "^LIST2MATRIX" ("{} \\-> []
|
|
|
|
|
+{{}} \\-> [[]]
|
|
|
|
|
+ob \\-> ob
|
|
|
|
|
+" "Converts a symbolic list to a matrix. Does
|
|
|
|
|
+not check that matrix is a valid one. Use
|
|
|
|
|
+DTYPFMAT? to do that.
|
|
|
|
|
+" "17A006" :CSys) "^[]TO{}" ("[] \\-> {}
|
|
|
|
|
+" "Converts from matrix to list-of-lists.
|
|
|
|
|
+" "16B006" :CSys) "^MATRIX2LIST" ("[] \\-> { }
|
|
|
|
|
+[[]] \\-> {{}}
|
|
|
|
|
+ob \\-> ob
|
|
|
|
|
+" "Converts a symbolic matrix to a list.
|
|
|
|
|
+" "179006" :CSys) "^ARRAY2MATRIX" ("[] \\-> []
|
|
|
|
|
+[[]] \\-> [[]]
|
|
|
|
|
+" "Converts array to symbolic array if necessary.
|
|
|
|
|
+" "17E006" :CSys) "^SAMEMATRIX" ("M1 M2 \\-> M1 M2 flag
|
|
|
|
|
+" "If one object is a symbolic array, converts
|
|
|
|
|
+both arrays to symbolic form. Returns TRUE
|
|
|
|
|
+for symbolic matrices and FALSE for numeric.
|
|
|
|
|
+" "175006" :CSys) "^SAMEMATSCTYPE" ("M ob \\-> M ob flag
|
|
|
|
|
+" "If M is a numeric matrix and ob is not float,
|
|
|
|
|
+converts matrix to symbolic form. Returns
|
|
|
|
|
+TRUE for symbolic and FALSE for numeric.
|
|
|
|
|
+" "176006" :CSys) "^ArryToList" ("[]/[[]] \\-> {}/{{}}
|
|
|
|
|
+" "Converts normal array (containing only real
|
|
|
|
|
+or complex numbers) to list of lists; errors
|
|
|
|
|
+for symbolic arrays.
|
|
|
|
|
+" "003007" :CSys) "^MATEXPLODE" ("[[ob1..obn]] \\-> ob1..obn [[ob1..obn]]
|
|
|
|
|
+" "" "17D006" :CSys) "^DUPNULL[]?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests for a null array.
|
|
|
|
|
+" "16C006" :CSys) "^NULLVECTOR?" ("V \\-> flag
|
|
|
|
|
+" "Returns true if vector is null.
|
|
|
|
|
+" "359006" :CSys) "^CKSAMESIZE" ("arry1 arry2 \\-> arry1 arry2 flag
|
|
|
|
|
+" "Tests if arry1 and 2 have the same size.
|
|
|
|
|
+" "16F006" :CSys) "^DTYPENDO?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is a square symbolic matrix.
|
|
|
|
|
+Convert numeric array to symbolic matrix.
|
|
|
|
|
+" "170006" :CSys) "^2DMATRIX?" ("ob \\-> ob flag
|
|
|
|
|
+" "Tests if object is a 2D matrix.
|
|
|
|
|
+" "173006" :CSys) "^MAT+" ("M2 M1 \\-> M2+M1
|
|
|
|
|
+" "" "320006" :CSys) "^MADD" ("M2 M1 \\-> M2+M1
|
|
|
|
|
+" "" "321006" :CSys) "^MAT-" ("M2 M1 \\-> M2-M1
|
|
|
|
|
+" "" "322006" :CSys) "^MSUB" ("M2 M1 \\-> M2-M1
|
|
|
|
|
+" "" "323006" :CSys) "^VADD" ("V2 V1 \\-> V2+V1
|
|
|
|
|
+" "" "324006" :CSys) "^VSUB" ("V2 V1 \\-> V2-V1
|
|
|
|
|
+" "" "325006" :CSys) "^MAT*" ("M2 M1 \\-> M2*M1
|
|
|
|
|
+" "Matrix product with size and type checking.
|
|
|
|
|
+" "326006" :CSys) "^MMMULT" ("M2 M1 \\-> M2*M1
|
|
|
|
|
+" "" "327006" :CSys) "^MVMULT" ("M V \\-> V'
|
|
|
|
|
+" "Product of matrix by vector.
|
|
|
|
|
+" "328006" :CSys) "^SCL*MAT" ("ob M \\-> M*ob
|
|
|
|
|
+" "Scalar times matrix.
|
|
|
|
|
+" "329006" :CSys) "^MAT*SCL" ("M ob \\-> M*ob
|
|
|
|
|
+" "Matrix times scalar.
|
|
|
|
|
+" "32A006" :CSys) "^VPMULT" ("V ob \\-> V'
|
|
|
|
|
+" "Multiplies vector by a scalar.
|
|
|
|
|
+" "32B006" :CSys) "^MATSQUARE" ("M \\-> M*M
|
|
|
|
|
+" "" "335006" :CSys) "^MAT^" ("M z/% \\-> M'
|
|
|
|
|
+" "Integral matrix power.
|
|
|
|
|
+" "32C006" :CSys) "^MATCROSS" ("[] []' \\-> []''
|
|
|
|
|
+" "Vector product.
|
|
|
|
|
+" "32D006" :CSys) "^MATDOT" ("V2 V1 \\-> ob
|
|
|
|
|
+" "Scalar product with checking.
|
|
|
|
|
+" "32E006" :CSys) "^RNDARRY" ("M % \\-> M
|
|
|
|
|
+" "Rounds array.
|
|
|
|
|
+" "32F006" :CSys) "^TRCARRY" ("M % \\-> M
|
|
|
|
|
+" "Truncates array.
|
|
|
|
|
+" "330006" :CSys) "^MAT/SCL" ("M ob \\-> M/ob
|
|
|
|
|
+" "Divides matrix by scalar.
|
|
|
|
|
+" "332006" :CSys) "^MAT/" ("V M \\-> M^-1*V
|
|
|
|
|
+" "\"Divides\" Vector by matrix.
|
|
|
|
|
+" "333006" :CSys) "^MATCHS" ("M \\-> -M
|
|
|
|
|
+" "" "334006" :CSys) "^MATINV" ("M \\-> M^-1
|
|
|
|
|
+" "" "34E006" :CSys) "^MATCONJ" ("M \\-> M'
|
|
|
|
|
+" "" "336006" :CSys) "^MATRE" ("M \\-> re[M]
|
|
|
|
|
+" "" "337006" :CSys) "^MATIM" ("M \\-> im[M]
|
|
|
|
|
+" "" "338006" :CSys) "^MATTRACE" ("M \\-> trace
|
|
|
|
|
+" "Matrix trace.
|
|
|
|
|
+" "339006" :CSys) "^MATTRN" ("M \\-> M'
|
|
|
|
|
+" "Matrix transposition and conjugation.
|
|
|
|
|
+" "33A006" :CSys) "^mattran" ("M \\-> Meta-M'
|
|
|
|
|
+" "Transposes matrix, returns meta-matrix.
|
|
|
|
|
+" "33C006" :CSys) "^mattrn" ("Meta-M \\-> Meta-M'
|
|
|
|
|
+" "Transposes meta-matrix.
|
|
|
|
|
+" "33D006" :CSys) "^MATDET" ("M \\-> det
|
|
|
|
|
+" "Determinant, expanding all (not row
|
|
|
|
|
+reduction).
|
|
|
|
|
+" "346006" :CSys) "^MATRDET" ("M \\-> det
|
|
|
|
|
+" "Determinant using row reduction.
|
|
|
|
|
+" "347006" :CSys) "^MATFNORM" ("M \\-> ob
|
|
|
|
|
+" "Frobenius norm.
|
|
|
|
|
+" "348006" :CSys) "^MATRNORM" ("M \\-> ob
|
|
|
|
|
+" "Row norm.
|
|
|
|
|
+" "349006" :CSys) "^MATCNORM" ("M \\-> ob
|
|
|
|
|
+" "Column norm.
|
|
|
|
|
+" "34A006" :CSys) "^MATRIXDIM" ("ob \\-> #
|
|
|
|
|
+" "Returns symbolic matrix dimensionality of an
|
|
|
|
|
+object.
|
|
|
|
|
+" "174006" :CSys) "^MATREF" ("M \\-> M'
|
|
|
|
|
+" "Returns matrix in Row-Echelon form.
|
|
|
|
|
+" "34C006" :CSys) "^MATRREF" ("M \\-> M'
|
|
|
|
|
+" "Returns matrix in Reduced Row-Echelon form.
|
|
|
|
|
+" "34B006" :CSys) "^MATREFRREF" ("M #full_ref \\-> M list M'
|
|
|
|
|
+" "If #full_ref is 1, returns Reduced
|
|
|
|
|
+Row-Echelon form, otherwise returns just
|
|
|
|
|
+Row-Echolong form.
|
|
|
|
|
+" "34F006" :CSys) "^MATRIXRCI" ("ncol i M const \\-> M'
|
|
|
|
|
+" "Multiplies row #i of symbolic matrix M by
|
|
|
|
|
+constant. ncol is not used, it's here
|
|
|
|
|
+because of the stack state at call-time from
|
|
|
|
|
+inside laRCI.
|
|
|
|
|
+" "367006" :CSys) "^MATRIXRCIJ" ("ncol #i #j M const \\-> M'
|
|
|
|
|
+" "Does Lj <- c*Li+Lj. ncol is not used, it's
|
|
|
|
|
+here because of the stack state at call-time
|
|
|
|
|
+from inside laRCI.
|
|
|
|
|
+" "368006" :CSys) "^INXREDext" ("Lvar #full_ref M \\-> Lvar pivot M
|
|
|
|
|
+" "" "350006" :CSys) "^METAMATRED" ("Meta-M Lvar #full_red \\-> meta-M Lvar pivot
|
|
|
|
|
+" "" "351006" :CSys) "^METAPIVOT" ("meta-M #l #c \\-> meta-M #l #l' #c' flag
|
|
|
|
|
+" "Searchs a pivot in column #c starting from
|
|
|
|
|
+row #l. Flag is FALSE if pivot is not
|
|
|
|
|
+found. If pivot is found #l' is the row, #c
|
|
|
|
|
+is updated to #c'.
|
|
|
|
|
+" "352006" :CSys) "^PIVOTNORM" ("
|
|
|
|
|
+" "" "353006" :CSys) "^PIVOTFLOAT" ("float \\-> float_modulus
|
|
|
|
|
+" "" "354006" :CSys) "^MATRANK" ("M \\-> Z/%
|
|
|
|
|
+" "Rank of a matrix.
|
|
|
|
|
+" "34D006" :CSys) "^LINSOLV" ("b a \\-> y
|
|
|
|
|
+" "Solves y'=ay+b.
|
|
|
|
|
+" "080007" :CSys) "^SOLVEMETASYST" ("meta-M \\-> d meta-sol T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Solves linear system in meta representation.
|
|
|
|
|
+Meta-sol has been reduced to the same
|
|
|
|
|
+denominator d.
|
|
|
|
|
+" "0F4007" :CSys) "^REDUCEMETASYST" ("meta-M \\-> meta->M'
|
|
|
|
|
+" "Reduces linear system in meta representation.
|
|
|
|
|
+" "0F5007" :CSys) "^REDUCEMETAPSYST" ("meta-M \\-> meta-M'
|
|
|
|
|
+" "Reduces linear system in meta representation.
|
|
|
|
|
+Does not reduce last column of
|
|
|
|
|
+meta-matr. This is useful to solve linear
|
|
|
|
|
+system with parameters in the last column.
|
|
|
|
|
+" "0F6007" :CSys) "^SOLVECRAMER" ("meta-M \\-> d meta-sol T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Solves cramer system. Meta-matr must be
|
|
|
|
|
+fully reduced. Meta-sol is reduced to the
|
|
|
|
|
+same denominator. d flag is FALSE if
|
|
|
|
|
+dimension do not match.
|
|
|
|
|
+" "0F7007" :CSys) "^SYSText" ("M linc \\-> linc linc' res cas_p
|
|
|
|
|
+" "" "355006" :CSys) "^STOSYSText" ("M2 M1 \\-> M2 list
|
|
|
|
|
+" "" "356006" :CSys) "^MAKESYSText" ("M_eq M_inc \\-> M_eq M lidnt flag
|
|
|
|
|
+" "Converts linear equations to a matrix and
|
|
|
|
|
+checks that equation are linear with respect
|
|
|
|
|
+to lidnt.
|
|
|
|
|
+" "357006" :CSys) "^VARGENext" ("
|
|
|
|
|
+" "" "358006" :CSys) "^FINDELN" ("{} A \\-> # flag
|
|
|
|
|
+" "Returns index # of element {} in array.
|
|
|
|
|
+" "35A006" :CSys) "^PULLEL[S]" ("A # \\-> A el
|
|
|
|
|
+" "Extracts element of index # from array.
|
|
|
|
|
+Array type test is made in assembly for array
|
|
|
|
|
+speed.
|
|
|
|
|
+" "35B006" :CSys) "^BANGARRY" ("el # M \\-> M'
|
|
|
|
|
+" "Puts el at index # of matrix M.
|
|
|
|
|
+" "35C006" :CSys) "^PUT[]" ("el #i V \\-> V
|
|
|
|
|
+" "Replaces #i-th vector component by element.
|
|
|
|
|
+" "35D006" :CSys) "^LENMATRIX" ("[] \\-> #el
|
|
|
|
|
+[[]] \\-> #row
|
|
|
|
|
+" "" "17B006" :CSys) "^MATSUB" ("M rmin nrows cmin ncols { #m #n } \\-> M'
|
|
|
|
|
+" "Extracts submatrix from a matrix.
|
|
|
|
|
+" "33E006" :CSys) "^MATREPL" ("M1 M2 \\-> M2'
|
|
|
|
|
+" "Replaces part of matrix destination (M2) by
|
|
|
|
|
+matrix source (M1). LAM1 to 9 must be bound
|
|
|
|
|
+like in Llib/LIMain.s ( 9:r 8:c 7:dmat? 6:f
|
|
|
|
|
+5:md 4:nd 3:smat? 2:ms 1:ns ). Copy begins in
|
|
|
|
|
+matrix d at row r and column c.
|
|
|
|
|
+" "340006" :CSys) "^MATRIX>DIAG" ("A ncols+1 ndiags \\-> V
|
|
|
|
|
+" "Extracts diagonal terms. ncols+1 is there
|
|
|
|
|
+because MATRIX>DIAG is called inside la>DIAG.
|
|
|
|
|
+" "35F006" :CSys) "^MATRIXDIAG>" ("ncol+1 diagV dlen dims{} \\-> M
|
|
|
|
|
+" "Constructs a matrix from a vector of diagonal
|
|
|
|
|
+terms.
|
|
|
|
|
+" "360006" :CSys) "^la+ELEMsym" ("V ob %i \\-> V'
|
|
|
|
|
+" "Inserts element in symbolic vector at row %i.
|
|
|
|
|
+" "361006" :CSys) "^INSERTROW[]" ("V ob #i \\-> V
|
|
|
|
|
+M V #i \\-> M'
|
|
|
|
|
+" "Inserts element/vector in symbolic
|
|
|
|
|
+vector/matrix at row #i. Checks for 0 < #i <
|
|
|
|
|
+#n + 1, but does not check for matrix/vector
|
|
|
|
|
+size.
|
|
|
|
|
+" "362006" :CSys) "^insertrow[]" ("ob #i meta \\-> meta
|
|
|
|
|
+" "Inserts element/vector in meta-object at
|
|
|
|
|
+position #i. Checks for 0 < #i < #n + 1, but
|
|
|
|
|
+does not check for vector size.
|
|
|
|
|
+" "363006" :CSys) "^INSERTCOL[]" ("M V #i \\-> M'
|
|
|
|
|
+" "Inserts vector in symbolic matrix at col #i.
|
|
|
|
|
+Checks for 0 < #i < #n + 1, but does not
|
|
|
|
|
+check for matrix/vector size.
|
|
|
|
|
+" "364006" :CSys) "^INSERT[]ROW[]" ("M3 M2 #i \\-> M
|
|
|
|
|
+" "Inserts matrix2 in matrix3 starting from row
|
|
|
|
|
+#i. Checks for 0 < #i < #n+1, but does not
|
|
|
|
|
+check for matrix size.
|
|
|
|
|
+" "365006" :CSys) "^INSERT[]COL[]" ("M3 M2 #i \\-> M
|
|
|
|
|
+" "Inserts matrix2 in matrix3 starting from row
|
|
|
|
|
+#i. Checks for 0 < #i < #n + 1, but does not
|
|
|
|
|
+check for matrix size.
|
|
|
|
|
+" "366006" :CSys) "^MATRIXCSWAP" ("M #c #c' \\-> M
|
|
|
|
|
+" "Exchanges columns c and c' of a symbolic
|
|
|
|
|
+matrix.
|
|
|
|
|
+" "369006" :CSys) "^MATRIXRSWAP" ("M #r #r' \\-> M
|
|
|
|
|
+" "Exchanges lines r and r' of a symbolic
|
|
|
|
|
+matrix.
|
|
|
|
|
+" "36A006" :CSys) "^SWAPROWS" ("M % %' \\-> M'
|
|
|
|
|
+" "SWAP two rows in matrix. Internal version of
|
|
|
|
|
+xRSWP.
|
|
|
|
|
+" "0AC003" :1\.11) "^MATRIX-ROW" ("M #r \\-> M' lr
|
|
|
|
|
+" "Extracts row #r from M. Checks boundaries.
|
|
|
|
|
+" "36B006" :CSys) "^METAMAT-ROW" ("meta-M #r \\-> meta-M lr
|
|
|
|
|
+" "Extracts row #r from meta-matrix. Checks
|
|
|
|
|
+boundaries.
|
|
|
|
|
+" "36C006" :CSys) "^MATRIX-COL" ("M #c \\-> M cc
|
|
|
|
|
+" "Extracts column #r from matrix.
|
|
|
|
|
+Checks boundaries.
|
|
|
|
|
+" "36D006" :CSys) "^METAMATCSWAP" ("meta-M #c #c' \\-> meta-M
|
|
|
|
|
+" "Exchanges columns c and c' of a meta-matrix.
|
|
|
|
|
+" "36E006" :CSys) "^METAMATRSWAP" ("meta-M #l #l' \\-> meta-M
|
|
|
|
|
+" "Exchanges lines l and l' of a meta-matrix (or
|
|
|
|
|
+vector).
|
|
|
|
|
+" "36F006" :CSys) "^STOMAText" ("M \\->
|
|
|
|
|
+" "Stores matrix in 'MATRIX' in current
|
|
|
|
|
+directory.
|
|
|
|
|
+" "370006" :CSys) "^ADDMATOBJext" ("arry ob \\-> arry arry
|
|
|
|
|
+ob arry \\-> arry arry
|
|
|
|
|
+" "Used for addition of numeric matrix and
|
|
|
|
|
+symbolic object.
|
|
|
|
|
+" "378006" :CSys) "^VUNARYOP" ("v op \\-> V
|
|
|
|
|
+" "Applies unary op(v[i]) to get V[i].
|
|
|
|
|
+" "379006" :CSys) "^VBINARYOP" ("V2 V1 binop \\-> V
|
|
|
|
|
+" "Works even if V2 and V1 do not have not the
|
|
|
|
|
+same dimension.
|
|
|
|
|
+" "37A006" :CSys) "^PEVAL" ("V r \\-> P[r]
|
|
|
|
|
+" "Horner evaluation, where elements of V
|
|
|
|
|
+represent coefficients of a polynomial.
|
|
|
|
|
+" "37B006" :CSys) "^MATEGVL" ("M \\-> V
|
|
|
|
|
+" "Computes eigenvalues of a matrix like <REF>xEGVL.
|
|
|
|
|
+" "37C006" :CSys) "^MATEGV" ("M \\-> V
|
|
|
|
|
+" "Computes eigenvalues/eigenvectors of a matrix
|
|
|
|
|
+like <REF>xEGV.
|
|
|
|
|
+" "37F006" :CSys) "^MADJ" ("M \\-> M^-1 P[M] P[lambda]
|
|
|
|
|
+" "Computes inverse, matrix polynomial and
|
|
|
|
|
+characteristic polynomial.
|
|
|
|
|
+" "37E006" :CSys) "^JORDAN" ("M \\-> pmin pcar {evect} {eval}
|
|
|
|
|
+pmadj pcar \\-> pmin pcar {evect} {eval}
|
|
|
|
|
+" "Eigenvalue/eigenfunctions computation.
|
|
|
|
|
+" "380006" :CSys) "^FLAGJORDAN" ("M \\->
|
|
|
|
|
+" "Internal JORDAN.
|
|
|
|
|
+" "22D006" :CSys) "^QXA" ("symb lidnt \\-> M lidnt
|
|
|
|
|
+" "Converts symbolic quad form to matrix quad
|
|
|
|
|
+form.
|
|
|
|
|
+" "381006" :CSys) "^FLAGQXA" ("symb lidnt \\-> M lidnt
|
|
|
|
|
+" "Internal QXA.
|
|
|
|
|
+" "224006" :CSys) "^AXQ" ("M lidnt \\-> symb lidnt
|
|
|
|
|
+" "Converts matrix quad form to qymbolic quad
|
|
|
|
|
+form.
|
|
|
|
|
+" "382006" :CSys) "^FLAGAXQ" ("M lidnt \\-> symb lidnt
|
|
|
|
|
+" "Internal AXQ.
|
|
|
|
|
+" "225006" :CSys) "^GAUSS" ("symb \\-> D P symb'
|
|
|
|
|
+" "Gauss reduction of quadratic form (symbolic).
|
|
|
|
|
+" "383006" :CSys) "^FLAGGAUSS" ("symb lidnt \\-> symb'
|
|
|
|
|
+" "Internal GAUSS.
|
|
|
|
|
+" "226006" :CSys) "^SYLVESTER" ("M \\-> D P
|
|
|
|
|
+" "Gauss reduction of a quadratic form (matrix).
|
|
|
|
|
+" "384006" :CSys) "^FLAGSYLVESTER" ("M \\-> P D
|
|
|
|
|
+" "Internal SYLVESTER.
|
|
|
|
|
+" "227006" :CSys) "^PCAR" ("[[]] \\-> symb
|
|
|
|
|
+" "Internal PCAR.
|
|
|
|
|
+" "228006" :CSys) "^x+ext" ("ob2 ob1 \\-> ob2+ob1
|
|
|
|
|
+" "Symbolic addition, tests for infinities.
|
|
|
|
|
+" "125006" :CSys) "^x-ext" ("ob2 ob1 \\-> ob2-ob1
|
|
|
|
|
+" "Symbolic subtraction, tests for infinities.
|
|
|
|
|
+" "126006" :CSys) "^x*ext" ("ob2 ob1 \\-> ob2*ob1
|
|
|
|
|
+" "Symbolic multiplication, tests for
|
|
|
|
|
+infinities.
|
|
|
|
|
+" "127006" :CSys) "^x/ext" ("ob2 ob1 \\-> ob2/ob1
|
|
|
|
|
+" "Symbolic division, tests for infinities.
|
|
|
|
|
+" "129006" :CSys) "^x^ext" ("ob power \\-> ob^power
|
|
|
|
|
+" "Power.
|
|
|
|
|
+" "12B006" :CSys) "^EXPAND^" ("x y \\-> x^y=exp[y*ln[x]]
|
|
|
|
|
+" "Power with simplifications. If y is a
|
|
|
|
|
+fraction of integers, use XROOT^ instead.
|
|
|
|
|
+" "12C006" :CSys) "^QNeg" ("ob \\-> -ob
|
|
|
|
|
+" "Symbolic negation.
|
|
|
|
|
+" "4FB006" :CSys) "^RNEGext" ("ob \\-> -ob
|
|
|
|
|
+" "Symbolic negation.
|
|
|
|
|
+" "4FC006" :CSys) "^SWAPRNEG" ("ob2 ob1 \\-> ob1 -ob2
|
|
|
|
|
+" "Does SWAP then symbolic negation.
|
|
|
|
|
+" "4FA006" :CSys) "^RREext" ("ob \\-> Re(ob)
|
|
|
|
|
+" "Symboloc real part.
|
|
|
|
|
+" "4FE006" :CSys) "^SWAPRRE" ("ob2 ob1 \\-> ob1 Re(ob2)
|
|
|
|
|
+" "SWAP, then RREext.
|
|
|
|
|
+" "4FD006" :CSys) "^RIMext" ("ob \\-> Im(ob)
|
|
|
|
|
+" "Symbolic imaginary part.
|
|
|
|
|
+" "500006" :CSys) "^SWAPRIM" ("ob1 ob2 \\-> ob2 Im(ob1)
|
|
|
|
|
+" "SWAP, then RIMext.
|
|
|
|
|
+" "4FF006" :CSys) "^xREext" ("symb \\-> symb'
|
|
|
|
|
+" "Complex real part.
|
|
|
|
|
+Expands only + - * / ^.
|
|
|
|
|
+" "501006" :CSys) "^xIMext" ("symb \\-> symb'
|
|
|
|
|
+" "Complex imaginary part.
|
|
|
|
|
+Expands only + - * / ^.
|
|
|
|
|
+" "503006" :CSys) "^RCONJext" ("ob \\-> Conj(ob)
|
|
|
|
|
+" "Symbolic complex conjugate.
|
|
|
|
|
+" "505006" :CSys) "^xSYMCONJ" ("
|
|
|
|
|
+" "" "507006" :CSys) "^xABSext" ("ob \\-> abs(ob)
|
|
|
|
|
+" "Symbolic QABSQ function.
|
|
|
|
|
+" "50D006" :CSys) "^RABSext" ("ob \\-> abs(ob)
|
|
|
|
|
+" "Internal ABS.
|
|
|
|
|
+Internal representation.
|
|
|
|
|
+" "50A006" :CSys) "^xSYMABS" ("
|
|
|
|
|
+" "" "50F006" :CSys) "^xSYMSIGN" ("
|
|
|
|
|
+" "" "512006" :CSys) "^xSYMARG" ("
|
|
|
|
|
+" "" "514006" :CSys) "^CXIRext" ("
|
|
|
|
|
+" "" "519006" :CSys) "^xINVext" ("ob \\-> 1/ob
|
|
|
|
|
+" "Symbolic inversion.
|
|
|
|
|
+" "52A006" :CSys) "^xSYMINV" ("symb \\-> 1/symb
|
|
|
|
|
+" "Symbolic inversion.
|
|
|
|
|
+" "557006" :CSys) "^xSQext" ("symb \\-> sq(symb)
|
|
|
|
|
+" "Symbolic square.
|
|
|
|
|
+" "553006" :CSys) "SYMSQ" ("symb \\-> symb^2
|
|
|
|
|
+" "Calls ^xSYMSQ for symbolic objects and xSQ
|
|
|
|
|
+for other objects.
|
|
|
|
|
+" "2EF53" :UBS) "^xSYMSQ" ("symb \\-> symb^2
|
|
|
|
|
+" "" "555006" :CSys) "^SXSQRext" ("ob \\-> sqrt(ob)
|
|
|
|
|
+" "Does not take care of the sign.
|
|
|
|
|
+" "51B006" :CSys) "^XSQRext" ("ob \\-> sqrt(ob)
|
|
|
|
|
+" "Tries to return a positive square root if
|
|
|
|
|
+nocareflag is cleared.
|
|
|
|
|
+" "51C006" :CSys) "^xvext" ("ob \\-> sqrt(ob)
|
|
|
|
|
+" "Symbolic square root, tests for 0 and 1.
|
|
|
|
|
+" "52B006" :CSys) "^xSYMSQRT" ("symb \\-> sqrt(symb)
|
|
|
|
|
+" "" "552006" :CSys) "^CKLN" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Symbolic LN with special handling for
|
|
|
|
|
+fractions. Does not use the internal
|
|
|
|
|
+representation.
|
|
|
|
|
+" "521006" :CSys) "^xLNext" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Symbolic LN, without fraction handling.
|
|
|
|
|
+" "522006" :CSys) "^xSYMLN" ("
|
|
|
|
|
+" "" "524006" :CSys) "^EXPANDLN" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Symbolic LN using internal representation.
|
|
|
|
|
+Before switching to internal representation,
|
|
|
|
|
+test for ABS, 0 and 1 and, in real mode, test
|
|
|
|
|
+if ob=exp(x).
|
|
|
|
|
+" "525006" :CSys) "^REALLN" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Internal natural logarithm for a real
|
|
|
|
|
+argument.
|
|
|
|
|
+" "528006" :CSys) "^CMPLXLN" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Internal complex natural logarithm.
|
|
|
|
|
+" "526006" :CSys) "^LNATANext" ("ob \\-> ln(ob)
|
|
|
|
|
+" "Internal natural logarithm for complex.
|
|
|
|
|
+" "527006" :CSys) "^xEXPext" ("y d n \\-> exp(y*n/d*i*\\pi)
|
|
|
|
|
+" "Symbolic EXP, tests for 0, infinity and
|
|
|
|
|
+i*k*\\pi/12 where k is an integer.
|
|
|
|
|
+Tests for d=1,2,3,4,6.
|
|
|
|
|
+" "529006" :CSys) "^xCOSext" ("ob \\-> cos(ob)
|
|
|
|
|
+" "Symbolic COS, tests for 0 and multiples of
|
|
|
|
|
+\\pi/12. Also tests if ob=acos(x) or
|
|
|
|
|
+ob=asin(x).
|
|
|
|
|
+" "52C006" :CSys) "^xSYMCOS" ("ob \\-> cos(ob)
|
|
|
|
|
+" "" "536006" :CSys) "^xACOSext" ("ob \\-> acos(ob)
|
|
|
|
|
+" "Symbolic ACOS. Tests for 0, infinity and
|
|
|
|
|
+tables.
|
|
|
|
|
+" "533006" :CSys) "^xSYMACOS" ("ob \\-> acos(ob)
|
|
|
|
|
+" "" "53F006" :CSys) "^xSINext" ("ob \\-> sin(ob)
|
|
|
|
|
+" "Symbolic SIN, tests for 0 and multiplies of
|
|
|
|
|
+\\pi/12. Also tests if ob=acos(x) or
|
|
|
|
|
+ob=asin(x).
|
|
|
|
|
+" "52D006" :CSys) "^xSYMSIN" ("ob \\-> sin(ob)
|
|
|
|
|
+" "" "538006" :CSys) "^xASINext" ("ob \\-> asin(ob)
|
|
|
|
|
+" "Symbolic ASIN. Tests for 0, infinity and
|
|
|
|
|
+tables.
|
|
|
|
|
+" "532006" :CSys) "^xSYMASIN" ("ob \\-> asin(ob)
|
|
|
|
|
+" "" "53D006" :CSys) "^xTANext" ("ob \\-> tan(ob)
|
|
|
|
|
+" "Symbolic TAN. Tests for 0 and multiplies of
|
|
|
|
|
+\\pi/12. Also tests if ob=atan(x).
|
|
|
|
|
+" "52E006" :CSys) "^xSYMTAN" ("ob \\-> tan(ob)
|
|
|
|
|
+" "" "53A006" :CSys) "^xATANext" ("ob \\-> atan(ob)
|
|
|
|
|
+" "Symbolic ATAN. Tests for 0, infinity and
|
|
|
|
|
+tables.
|
|
|
|
|
+" "534006" :CSys) "^xSYMATAN" ("ob \\-> atan(ob)
|
|
|
|
|
+" "" "541006" :CSys) "^xCOSHext" ("ob \\-> cosh(ob)
|
|
|
|
|
+" "Symbolic COSH. Tests for 0, infinity and
|
|
|
|
|
+acosh(x).
|
|
|
|
|
+" "52F006" :CSys) "^xSYMCOSH" ("ob \\-> cosh(ob)
|
|
|
|
|
+" "" "545006" :CSys) "^xACOSHext" ("symb \\-> acosh(symb)
|
|
|
|
|
+" "Symbolic ACOSH.
|
|
|
|
|
+" "54E006" :CSys) "^xSYMACOSH" ("symb \\-> acosh(symb)
|
|
|
|
|
+" "" "550006" :CSys) "^xSINHext" ("ob \\-> sinh(ob)
|
|
|
|
|
+" "Symbolic SINH. Tests for 0, infinity and
|
|
|
|
|
+asinh(x).
|
|
|
|
|
+" "530006" :CSys) "^xSYMSINH" ("ob \\-> sinh(ob)
|
|
|
|
|
+" "" "543006" :CSys) "^xASINHext" ("symb \\-> symb'
|
|
|
|
|
+" "Symbolic ASINH.
|
|
|
|
|
+" "54B006" :CSys) "^xSYMASINH" ("symb \\-> asinh(symb)
|
|
|
|
|
+" "" "54D006" :CSys) "^xTANHext" ("ob \\-> tanh(ob)
|
|
|
|
|
+" "Symbolic TANH. Tests for 0 and atanh(x).
|
|
|
|
|
+" "531006" :CSys) "^xSYMTANH" ("ob \\-> tanh(ob)
|
|
|
|
|
+" "Symbolic TANH.
|
|
|
|
|
+" "547006" :CSys) "^xATANHext" ("symb \\-> symb'
|
|
|
|
|
+" "Symbolic ATANH.
|
|
|
|
|
+" "548006" :CSys) "^xSYMATANH" ("ob \\-> atanh(ob)
|
|
|
|
|
+" "" "54A006" :CSys) "^xSYMD>R" ("
|
|
|
|
|
+" "" "55B006" :CSys) "^xSYMR>D" ("
|
|
|
|
|
+" "" "55D006" :CSys) "^xSYMFLOOR" ("symb \\-> symb'
|
|
|
|
|
+" "" "55F006" :CSys) "^xSYMCEIL" ("symb \\-> symb'
|
|
|
|
|
+" "" "561006" :CSys) "^xSYMIP" ("symb \\-> symb'
|
|
|
|
|
+" "" "563006" :CSys) "^xSYMFP" ("symb \\-> symb'
|
|
|
|
|
+" "" "565006" :CSys) "^xSYMXPON" ("symb \\-> symb'
|
|
|
|
|
+" "" "567006" :CSys) "^xSYMMANT" ("symb \\-> symb'
|
|
|
|
|
+" "" "569006" :CSys) "^xSYMLNP1" ("symb \\-> symb'
|
|
|
|
|
+" "" "56B006" :CSys) "^xSYMLOG" ("symb \\-> symb'
|
|
|
|
|
+" "" "56D006" :CSys) "^xSYMALOG" ("symb \\-> symb'
|
|
|
|
|
+" "" "56F006" :CSys) "^xSYMEXPM1" ("symb \\-> symb'
|
|
|
|
|
+" "" "571006" :CSys) "^factorial" ("symb \\-> symb!
|
|
|
|
|
+" "Symbolic factorial.
|
|
|
|
|
+" "572006" :CSys) "^facts" ("symb \\-> symb!
|
|
|
|
|
+" "Symbolic factorial.
|
|
|
|
|
+" "573006" :CSys) "^xSYMFACT" ("symb \\-> symb!
|
|
|
|
|
+" "" "575006" :CSys) "^xSYMNOT" ("symb \\-> symb'
|
|
|
|
|
+" "" "578006" :CSys) "^x=ext" ("ob2 ob1 \\-> ob2=ob1
|
|
|
|
|
+" "" "128006" :CSys) "^xssSYMXROOT" ("
|
|
|
|
|
+" "" "12E006" :CSys) "^xssSYM+" ("
|
|
|
|
|
+" "" "3AC006" :CSys) "^xssSYM-" ("
|
|
|
|
|
+" "" "3AE006" :CSys) "^xssSYM*" ("
|
|
|
|
|
+" "" "3B0006" :CSys) "^xssSYM/" ("
|
|
|
|
|
+" "" "3B2006" :CSys) "^xssSYM^" ("
|
|
|
|
|
+" "" "3B6006" :CSys) "^xSYMCHS" ("
|
|
|
|
|
+" "" "3B8006" :CSys) "^xssSYMMIN" ("
|
|
|
|
|
+" "" "130006" :CSys) "^xssSYMMAX" ("
|
|
|
|
|
+" "" "132006" :CSys) "^xssSYM<?" ("
|
|
|
|
|
+" "" "134006" :CSys) "^xssSYM<=?" ("
|
|
|
|
|
+" "" "136006" :CSys) "^xssSYM>?" ("
|
|
|
|
|
+" "" "138006" :CSys) "^xssSYM>=?" ("
|
|
|
|
|
+" "" "13A006" :CSys) "^xssSYM=?" ("
|
|
|
|
|
+" "" "13C006" :CSys) "^xssSYM#?" ("
|
|
|
|
|
+" "" "13E006" :CSys) "^xssSYM%" ("
|
|
|
|
|
+" "" "140006" :CSys) "^xssSYM%CH" ("
|
|
|
|
|
+" "" "142006" :CSys) "^xssSYM%T" ("
|
|
|
|
|
+" "" "144006" :CSys) "^xssSYMMOD" ("
|
|
|
|
|
+" "" "146006" :CSys) "^xssSYMTRCXY" ("
|
|
|
|
|
+" "" "148006" :CSys) "^xssSYMRNDXY" ("
|
|
|
|
|
+" "" "14A006" :CSys) "^xssSYMCOMB" ("
|
|
|
|
|
+" "" "14C006" :CSys) "^xssSYMPERM" ("
|
|
|
|
|
+" "" "14E006" :CSys) "^xssSYMOR" ("
|
|
|
|
|
+" "" "150006" :CSys) "^xssSYMAND" ("
|
|
|
|
|
+" "" "152006" :CSys) "^xssSYMXOR" ("
|
|
|
|
|
+" "" "154006" :CSys) "^COS2TAN/2" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (1-(tan(x/2))^2)/(1+(tan(x/2))^2)
|
|
|
|
|
+" "408006" :CSys) "^SIN2TAN/2" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> 2 tan(x/2)/(1+(tan(x/2))^2)
|
|
|
|
|
+" "40B006" :CSys) "^TAN2TAN/2" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> 2 tan(x/2)/(1-(tan(x/2))^2)
|
|
|
|
|
+" "40E006" :CSys) "^COS2TAN" ("symb \\-> symb2
|
|
|
|
|
+" "x \\-> 1/sqrt(1+(tan(x))^2)
|
|
|
|
|
+" "412006" :CSys) "^SIN2TAN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> tan(x)/sqrt(1+(tan(x))^2)
|
|
|
|
|
+" "414006" :CSys) "^LNP12LN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln(x+1)
|
|
|
|
|
+" "41A006" :CSys) "^LOG2LN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> log(x)
|
|
|
|
|
+" "41B006" :CSys) "^ALOG2EXP" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> alog(x)
|
|
|
|
|
+" "41C006" :CSys) "^EXPM2EXP" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> exp(x)-1
|
|
|
|
|
+" "41D006" :CSys) "^SQRT2LNEXP" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> exp(ln(x)/2)
|
|
|
|
|
+" "41E006" :CSys) "^sqrt2lnexp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> exp(ln(x)/2)
|
|
|
|
|
+" "41F006" :CSys) "^TAN2EXP" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (exp(i2x)-1)/(i*(exp(i2x)+1))
|
|
|
|
|
+" "420006" :CSys) "^ASIN2LN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> = i*ln(x+sqrt(x^2-1))+pi/2.
|
|
|
|
|
+" "422006" :CSys) "^ACOS2LN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2-1))/i
|
|
|
|
|
+" "424006" :CSys) "^TAN2SC" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> sin(x)/cos(x)
|
|
|
|
|
+" "427006" :CSys) "^SIN2TC" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> cos(x)*tan(x)
|
|
|
|
|
+" "42A006" :CSys) "^COS2ext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> sqrt(1-(sin(x))^2).
|
|
|
|
|
+" "42C006" :CSys) "^SIN2ext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> sqrt(1-(cos(x))^2).
|
|
|
|
|
+" "42E006" :CSys) "^ATAN2ASIN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> asin(x/sqrt(x^2+1))
|
|
|
|
|
+" "431006" :CSys) "^ASIN2ATAN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> atan(x/sqrt(1-x^2))
|
|
|
|
|
+" "434006" :CSys) "^ASIN2ACOS" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> \\pi/2-acos(x)
|
|
|
|
|
+" "437006" :CSys) "^ACOS2ASIN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> \\pi/2-asin(x)
|
|
|
|
|
+" "43C006" :CSys) "^ATAN2LNext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> i/2*ln((i+x)/(i-x))
|
|
|
|
|
+" "43D006" :CSys) "^TAN2SC2" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (1-cos(2x))/sin(2x)
|
|
|
|
|
+" "440006" :CSys) "^TAN2CS2" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> sin(2x)/(1+cos(2x))
|
|
|
|
|
+" "442006" :CSys) "^SIN2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (e^(i*x)-1/e^(i*x))/(2i)
|
|
|
|
|
+" "444006" :CSys) "^COS2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (e^(i*x)+1/e^(i*x))/2
|
|
|
|
|
+" "446006" :CSys) "^SINH2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (e^x-1/e^x)/2
|
|
|
|
|
+" "448006" :CSys) "^COSH2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (e^x+1/e^x)/2
|
|
|
|
|
+" "44A006" :CSys) "^TANH2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> (e^2x-1)/(e^2x+1)
|
|
|
|
|
+" "44C006" :CSys) "^ASINH2LNext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2+1))
|
|
|
|
|
+" "44E006" :CSys) "^ACOSH2LNext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2-1))
|
|
|
|
|
+" "450006" :CSys) "^ATANH2LNext" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln((1+x)/(1-x))/2
|
|
|
|
|
+" "452006" :CSys) "^XROOT2ext" ("symb1 symb2 \\-> symb'
|
|
|
|
|
+" "x y \\-> exp(ln(y)/x)
|
|
|
|
|
+" "454006" :CSys) "^LN2ATAN" ("symb \\-> symb'
|
|
|
|
|
+" "x \\-> ln(x)
|
|
|
|
|
+" "45A006" :CSys) "^VAR=LIST" ("idnt {} \\-> {}'
|
|
|
|
|
+" "Replaces all elements of the initial list by
|
|
|
|
|
+idnt=element.
|
|
|
|
|
+" "45B006" :CSys) "^SYMBEXEC" ("ob symb \\-> ob'
|
|
|
|
|
+" "If symb is an equation, executes the
|
|
|
|
|
+corresponding change of variables in ob,
|
|
|
|
|
+otherwise tries to find symb so that ob is
|
|
|
|
|
+zero. Note that change of variable works for
|
|
|
|
|
+change of user functions.
|
|
|
|
|
+" "464006" :CSys) "^MEVALext" ("ob {} {}' \\-> ob'
|
|
|
|
|
+" "Replaces all occurrances of an element of
|
|
|
|
|
+list2 by the corresponding element of list1
|
|
|
|
|
+in ob. Looks in ob from outer to inner
|
|
|
|
|
+expressions. list2 and list1 may contain
|
|
|
|
|
+secondaries. If vxxlflag is set SIGN var are
|
|
|
|
|
+leaved unchanged.
|
|
|
|
|
+" "465006" :CSys) "^CASNUMEVAL" ("symb list1 list2 \\-> symb'
|
|
|
|
|
+" "Evaluation of a symbolic. The lists' formats are
|
|
|
|
|
+list1={idnt/lam1... idnt_n/lam_n}
|
|
|
|
|
+list2={value1...value_n}.
|
|
|
|
|
+The idnt's/lam's in list1 are *not*
|
|
|
|
|
+evaluated before replacing value1...value_n.
|
|
|
|
|
+" "466006" :CSys) "^CASCOMPEVAL" ("symb \\-> symb'
|
|
|
|
|
+" "Evaluation of a symbolic.
|
|
|
|
|
+" "467006" :CSys) "^REPLACE2BY1" ("symb idnt a \\-> symb'
|
|
|
|
|
+" "Evaluation of a symbolic replacing an idnt by
|
|
|
|
|
+a value; for example evaluation of F(X) for
|
|
|
|
|
+X=1/2)
|
|
|
|
|
+" "468006" :CSys) "^NR_REPLACE" ("symb idnt a \\-> symb'
|
|
|
|
|
+" "Like <REF>REPLACE2BY1 but prevents evaluation
|
|
|
|
|
+of INT.
|
|
|
|
|
+" "469006" :CSys) "^SYMBWHERE" ("
|
|
|
|
|
+" "" "46A006" :CSys) "^CASCRUNCH" ("ob \\-> %
|
|
|
|
|
+" "Like <REF>CRUNCH but in approximate mode.
|
|
|
|
|
+" "46B006" :CSys) "^APPROXCOMPEVAL" ("symb \\-> symb'
|
|
|
|
|
+" "Like <REF>CASCOMPEVAL but in approximate
|
|
|
|
|
+mode.
|
|
|
|
|
+" "46C006" :CSys) "^ALGCASCOMPEVAL" ("expr \\-> expr
|
|
|
|
|
+" "" "11A007" :1\.11 :CSys) "^SLVARext" ("Lvar \\-> Lvar'
|
|
|
|
|
+" "Simplifies all elements of the list that are
|
|
|
|
|
+supposed to be variables.
|
|
|
|
|
+" "297006" :CSys) "^SIMPLIFY" ("symb \\-> symb'
|
|
|
|
|
+" "Simplifies one object like <REF>xEVAL.
|
|
|
|
|
+" "298006" :CSys) "^SIMP1ext" ("symb \\-> symb'
|
|
|
|
|
+" "Simplifies one object like <REF>xEXPAND.
|
|
|
|
|
+Object must be a symbolic, a real or a
|
|
|
|
|
+complex number.
|
|
|
|
|
+" "299006" :CSys) "^SYMEXPAN" ("symb \\-> symb'
|
|
|
|
|
+" "Simplifies one object like <REF>xEXPAN.
|
|
|
|
|
+Object must be symb/real/cmplx.
|
|
|
|
|
+" "29A006" :CSys) "^SIMPVAR" ("ob \\-> ob'
|
|
|
|
|
+" "Simplifies variable.
|
|
|
|
|
+" "29B006" :CSys) "^SIMPSYMBS" ("inf sup fcn var \\-> int(inf,sup,fcn,var)
|
|
|
|
|
+" "" "2A0006" :CSys) "^SYMINTEGRAL" ("
|
|
|
|
|
+" "" "2A1006" :CSys) "^SIMPUSERFCN" ("ob1..obn #n ob \\-> id[]
|
|
|
|
|
+" "Simplification of user functions. Tests for
|
|
|
|
|
+derivative of user functions. Ob must be an
|
|
|
|
|
+id, a symbolic, a secondary or a romptr.
|
|
|
|
|
+" "2A2006" :CSys) "^EVALUSERFCN" ("V1..Vn #n fcn \\-> f[]
|
|
|
|
|
+" "Evaluates a user function with stack checking.
|
|
|
|
|
+" "2A3006" :CSys) "^SIMP|" ("ob list \\-> ob'
|
|
|
|
|
+" "Executes the WHERE operator.
|
|
|
|
|
+" "2A4006" :CSys) "^SIMPext" ("ob1 ob2 \\-> ob1' ob2'
|
|
|
|
|
+" "Simplifies two objects in internal
|
|
|
|
|
+representation. Checks that o2 is not a
|
|
|
|
|
+complex or an irrquad because decomposition
|
|
|
|
|
+of the corresponding fraction with larg would
|
|
|
|
|
+generate a \"Try to recover Memory\".
|
|
|
|
|
+" "2A9006" :CSys) "^SIMPEXTOK" ("
|
|
|
|
|
+" "" "2AA006" :CSys) "^SLOWSIMP2L" ("
|
|
|
|
|
+" "" "2AC006" :CSys) "^SIMPGCDext" ("o1 o2 gcd \\-> o1/gcd o2/gcd
|
|
|
|
|
+" "Divides o1 and o2 by gcd.
|
|
|
|
|
+" "2AD006" :CSys) "^SIMP3ext" ("a b \\-> g a'' b''
|
|
|
|
|
+" "Calculates g = gcd(a,b) and a''=a/g and
|
|
|
|
|
+b''=b/g.
|
|
|
|
|
+" "2AE006" :CSys) "^SIMP3LISText" ("
|
|
|
|
|
+" "" "2AF006" :CSys) "^SIMP3LSTSLOW" ("
|
|
|
|
|
+" "" "2B0006" :CSys) "^TSIMP2ext" ("symb \\-> symb
|
|
|
|
|
+" "Transcendental simplifications. Converts
|
|
|
|
|
+only sqrt ^ and XROOT to EXP/LN. LN are
|
|
|
|
|
+returned as -1/INV[-LN[]] for use by SERIES.
|
|
|
|
|
+" "2B9006" :CSys) "^TSIMPext" ("symb \\-> symb
|
|
|
|
|
+" "Transcendental simplifications. Convert
|
|
|
|
|
+transcendental functions to EXP and LN.
|
|
|
|
|
+" "2BA006" :CSys) "^TSIMP3ext" ("symb \\-> symb
|
|
|
|
|
+" "" "2BB006" :CSys) "^COLCext" ("symb \\-> symb'
|
|
|
|
|
+" "Factorization with respect to the current
|
|
|
|
|
+variable of symb and factorization of the
|
|
|
|
|
+integer content of symb.
|
|
|
|
|
+" "26E006" :CSys) "^TCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "Performs trigonometric linearization and then
|
|
|
|
|
+collects sines and cosines of the same angle.
|
|
|
|
|
+" "2FE006" :CSys) "^SIGMAEXPext" ("symb \\-> symb'
|
|
|
|
|
+" "Conversion to exp and ln with exponential
|
|
|
|
|
+linearization.
|
|
|
|
|
+" "2FF006" :CSys) "^LINEXPext" ("symb \\-> Meta
|
|
|
|
|
+" "Meta = arg_exp1 coef1 ... arg_expn coefn #2n.
|
|
|
|
|
+" "300006" :CSys) "^SIGMAEXP2ext" ("Meta \\-> symb
|
|
|
|
|
+" "Back conversion from arg_exp/coef_meta to
|
|
|
|
|
+symbolic.
|
|
|
|
|
+" "301006" :CSys) "^SINEXPA" ("symb \\-> symb'
|
|
|
|
|
+" "Expands SIN.
|
|
|
|
|
+" "303006" :CSys) "^LNEXPA" ("symb \\-> symb'
|
|
|
|
|
+" "Expands LN.
|
|
|
|
|
+" "316006" :CSys) "^MTRIG2SYMB" ("Meta \\-> symb
|
|
|
|
|
+" "Back conversion of trig-meta to symbolic.
|
|
|
|
|
+" "31C006" :CSys) "^COSEXPA" ("symb \\-> symb'
|
|
|
|
|
+" "Expands COS.
|
|
|
|
|
+" "309006" :CSys) "^EXPEXPA" ("symb \\-> symb'
|
|
|
|
|
+" "Expands EXP.
|
|
|
|
|
+" "30F006" :CSys) "^LINEXPA" ("symb \\-> Meta
|
|
|
|
|
+" "Alternates trig operator and coefficient.
|
|
|
|
|
+" "31B006" :CSys) "^LNCOLCext" ("symb \\-> symb'
|
|
|
|
|
+" "Collects logarithms.
|
|
|
|
|
+" "31D006" :CSys) "^TEXPAext" ("symb \\-> symb
|
|
|
|
|
+" "Main transcendental expansion program.
|
|
|
|
|
+" "31F006" :CSys) "^SYMCOLCT" ("
|
|
|
|
|
+" "" "26F006" :CSys) "^COLC1" ("
|
|
|
|
|
+" "" "270006" :CSys) "^COLC2" ("
|
|
|
|
|
+" "" "271006" :CSys) "^EXLR" ("'a=b' \\-> a b
|
|
|
|
|
+ ob \\-> X ob
|
|
|
|
|
+" "Internal equation splitter.
|
|
|
|
|
+" "240006" :CSys) "^HALFTAN" ("symb \\-> symb'
|
|
|
|
|
+" "Converts trigonometric functions to QTANQ of
|
|
|
|
|
+the half angle.
|
|
|
|
|
+" "407006" :CSys) "^TRIGTAN" ("symb \\-> symb'
|
|
|
|
|
+" "Convert sin and cos to tan of the same
|
|
|
|
|
+angle.
|
|
|
|
|
+" "411006" :CSys) "^TRIGext" ("symb \\-> symb'
|
|
|
|
|
+" "Applies sin^2+cos^2=1 to simplify
|
|
|
|
|
+trigonometric expressions. If flag -116
|
|
|
|
|
+is set, tries to keep only sin, else only
|
|
|
|
|
+cos.
|
|
|
|
|
+" "416006" :CSys) "^HYP2EXPext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts hyperbolic functions to exp and ln.
|
|
|
|
|
+Converts QXROOTQ and ^ to QexpQ and QlnQ.
|
|
|
|
|
+" "417006" :CSys) "^EXPLNext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts all transcendental functions to exp
|
|
|
|
|
+and ln.
|
|
|
|
|
+" "418006" :CSys) "^SERIESEXPLN" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QsqrtQ, ^ and QXROOTQ to QEXP/LNQ.
|
|
|
|
|
+" "419006" :CSys) "^TAN2SCext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QtanQ to Qsin/cosQ.
|
|
|
|
|
+" "426006" :CSys) "^SIN2TCext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QsinQ to Qcos*tanQ.
|
|
|
|
|
+" "429006" :CSys) "^ATAN2Sext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QATANQ to QASINQ using
|
|
|
|
|
+asin(x)=atan(x/sqrt(1-x^2)).
|
|
|
|
|
+" "430006" :CSys) "^ASIN2Text" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QASINQ to QATANQ using
|
|
|
|
|
+asin(x)=atan(x/sqrt(1-x^2)).
|
|
|
|
|
+" "433006" :CSys) "^ASIN2Cext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QASINQ to QACOSQ using
|
|
|
|
|
+asin(x)=pi/2-acos(x).
|
|
|
|
|
+" "436006" :CSys) "^ACOS2Sext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QACOSQ to QASINQ using
|
|
|
|
|
+acos(x)=pi/2-asin(x).
|
|
|
|
|
+" "43A006" :CSys) "^TAN2SC2ext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts QTANQ to QSIN/COSQ of the double
|
|
|
|
|
+angle. If flag -116 is set calls TAN2SC2,
|
|
|
|
|
+else TAN2CS2.
|
|
|
|
|
+" "43F006" :CSys) "^LN2ext" ("symb \\-> symb'
|
|
|
|
|
+" "If symb contains x, returns -1/inv(-ln(x)),
|
|
|
|
|
+else ln(x). Used by SERIES.
|
|
|
|
|
+" "456006" :CSys) "^SINCOSext" ("symb \\-> symb'
|
|
|
|
|
+" "Converts exp and ln to exp*sin+cos and
|
|
|
|
|
+ln+i*atan.
|
|
|
|
|
+" "457006" :CSys) "^PSEUDODIV" ("Q2 Q1 \\-> a Q2*a/Q1 Q2*a/Q1
|
|
|
|
|
+" "" "3E8006" :CSys) "^IDIV2" ("
|
|
|
|
|
+" "" "3E9006" :CSys) "^BESTDIV2" ("o2 o1 \\-> quo mod
|
|
|
|
|
+" "" "3EA006" :CSys) "^CDIV2ext" ("
|
|
|
|
|
+" "" "3EB006" :CSys) "^QUOText" ("o2 o1 \\-> o2 div o1
|
|
|
|
|
+" "Euclidean quotient of 2 objets (works even if
|
|
|
|
|
+o2 mod o1=0).
|
|
|
|
|
+" "3EC006" :CSys) "^NEWDIVext" ("ob2 ob1 \\-> quo mod
|
|
|
|
|
+" "Euclidean division, ob2 and ob1 may be
|
|
|
|
|
+fractions of returns a fraction of Q.
|
|
|
|
|
+" "3ED006" :CSys) "^QUOTOBJext" ("a_a-1...a0 bb_1...b0 #b #a flag \\-> r q
|
|
|
|
|
+" "SRPL Euclidean division: step 2 computes the
|
|
|
|
|
+remainder r only if flag is TRUE.
|
|
|
|
|
+" "3F3006" :CSys) "^DIVISIBLE?" ("a b \\-> a/b T
|
|
|
|
|
+ \\-> ob F
|
|
|
|
|
+" "Returns TRUE and quotient if b divides a,
|
|
|
|
|
+otherwise returns FALSE.
|
|
|
|
|
+" "3F4006" :CSys) "^QDiv?" ("a b \\-> a/b T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Returns TRUE and quotient if b divides a,
|
|
|
|
|
+otherwise returns FALSE.
|
|
|
|
|
+" "3F5006" :CSys) "^" ("" "Euclidean division. Assumes P and Q have
|
|
|
|
|
+integer or Gaussian integer coefficient.
|
|
|
|
|
+Returns FALSE in complex mode or if sparse
|
|
|
|
|
+short division fails.
|
|
|
|
|
+" "3F6006" :CSys) "^POTENCEext" ("z1 z2 \\-> q r
|
|
|
|
|
+" "Step by step Euclidean division for small
|
|
|
|
|
+integers.
|
|
|
|
|
+" "3F7006" :CSys) "^DENOLCMext" ("list \\-> ob
|
|
|
|
|
+" "Calculates the LCM of the denominator of the
|
|
|
|
|
+elements of the list. If input is not a list,
|
|
|
|
|
+returns the denominator of the object.
|
|
|
|
|
+" "2A5006" :CSys) "^METADENOLCM" ("Meta \\-> ob
|
|
|
|
|
+" "Calculates LCM of the denominators of the
|
|
|
|
|
+elements of Meta.
|
|
|
|
|
+" "2A6006" :CSys) "^LPGCDext" ("{} \\-> {} ob
|
|
|
|
|
+" "Calculates the GCD of all the elements in the
|
|
|
|
|
+list. The algorithm is far from optimal.
|
|
|
|
|
+" "2B1006" :CSys) "^SLOWGCDext" ("c 1 A B \\-> c* gcd(A,B)
|
|
|
|
|
+" "Euclidean algorithm for polynomial GCD. Used
|
|
|
|
|
+if A or B contains irrquads. c is the GCD of
|
|
|
|
|
+the contents of the original polynomials
|
|
|
|
|
+returned after failure of GCDHEUext.
|
|
|
|
|
+" "2B2006" :CSys) "^QGcd" ("ob2 ob1 \\-> gcd
|
|
|
|
|
+" "Generic internal GCD.
|
|
|
|
|
+ ( LAM2: GCDext ob1, ob2 \\-> pgcd ).
|
|
|
|
|
+" "2B3006" :CSys) "^GCDext" ("
|
|
|
|
|
+" "" "2B4006" :CSys) "^SYMBINCOMP" ("symb \\-> ob1 .. obN #n
|
|
|
|
|
+ob \\-> ob #1
|
|
|
|
|
+{} \\-> {} #1
|
|
|
|
|
+" "Explodes symbolic object into meta. Other
|
|
|
|
|
+objects are converted into one-object metas
|
|
|
|
|
+by pushing #1 into the stack.
|
|
|
|
|
+" "157006" :CSys) "^m-1&m+1" ("meta \\-> meta&1&+ meta&1&-
|
|
|
|
|
+" "Creates two copies of the meta. To the first
|
|
|
|
|
+one, adds 1 and +, to the second one, adds 1
|
|
|
|
|
+and -.
|
|
|
|
|
+" "386006" :CSys) "^meta1/meta" ("meta \\-> meta 1&meta&/
|
|
|
|
|
+" "Duplicates the meta, and inverts the
|
|
|
|
|
+expression represented by it.
|
|
|
|
|
+" "387006" :CSys) "^1&meta" ("Meta \\-> 1&Meta
|
|
|
|
|
+" "Prepends the number 1 to the meta.
|
|
|
|
|
+" "388006" :CSys) "^meta/2" ("Meta \\-> Meta&2&/
|
|
|
|
|
+" "Divides the expression by two.
|
|
|
|
|
+" "389006" :CSys) "^addt2" ("Meta \\-> Meta&2
|
|
|
|
|
+" "Appends the number 2 to the meta.
|
|
|
|
|
+" "38A006" :CSys) "^addt/" ("Meta \\-> Meta&/
|
|
|
|
|
+" "Appends division to meta.
|
|
|
|
|
+" "38B006" :CSys) "^meta2*" ("Meta \\-> 2&Meta&*
|
|
|
|
|
+" "Multiplies the expression by 2.
|
|
|
|
|
+" "38C006" :CSys) "^metai*" ("meta \\-> meta*i
|
|
|
|
|
+" "Multiplies meta by i.
|
|
|
|
|
+" "459006" :CSys) "^meta1-sq" ("Meta \\-> 1&Meta&SQ&-
|
|
|
|
|
+" "Changes x into 1-x^2, where x is the
|
|
|
|
|
+original expression.
|
|
|
|
|
+" "38D006" :CSys) "^metasq+1" ("Meta \\-> Meta&SQ&1&+
|
|
|
|
|
+" "Changes x into x^2+1, where x is the
|
|
|
|
|
+original expression.
|
|
|
|
|
+" "38E006" :CSys) "^metasq-1" ("Meta \\-> Meta&SQ&1&-
|
|
|
|
|
+" "Changes x into x^2-1, where x is the
|
|
|
|
|
+original equation.
|
|
|
|
|
+" "38F006" :CSys) "^meta-1" ("Meta \\-> Meta&1&-
|
|
|
|
|
+" "Subtracts one from the expression.
|
|
|
|
|
+" "390006" :CSys) "^addt^" ("Meat \\-> Meta&^
|
|
|
|
|
+" "Append power operator to meta object.
|
|
|
|
|
+" "398006" :CSys) "^top&addt*" ("meta2 meta1 \\-> meta2*meta1
|
|
|
|
|
+" "top& addt*.
|
|
|
|
|
+No checks.
|
|
|
|
|
+" "39C006" :CSys) "^top&addt/" ("meta2 meta1 \\-> meta2/meta1
|
|
|
|
|
+" "top& addt/.
|
|
|
|
|
+No checks.
|
|
|
|
|
+" "39D006" :CSys) "^addti" ("meta \\-> meta&i
|
|
|
|
|
+" "Appends i (the Imaginary unit) to
|
|
|
|
|
+expression.
|
|
|
|
|
+" "39E006" :CSys) "^metaadd" ("Meta1 Meta2 \\-> Meta1+Meta2
|
|
|
|
|
+" "Adds 2 meta objects with trivial
|
|
|
|
|
+simplifications. metaadd checks for
|
|
|
|
|
+Meta1/2=Z0 ONE.
|
|
|
|
|
+" "393006" :CSys) "^MetaAdd" ("Meta2 Meta1 \\-> Meta2+Meta1
|
|
|
|
|
+" "Adds 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for infinities then
|
|
|
|
|
+call metaadd.
|
|
|
|
|
+" "3AB006" :CSys) "^ckaddt+" ("Meta1 Meta2 \\-> Meta1+Meta2
|
|
|
|
|
+" "Adds 2 meta objects with trivial
|
|
|
|
|
+simplifications.
|
|
|
|
|
+" "1CE006" :CSys) "^metasub" ("Meta1 Meta2 \\-> Meta1+Meta2
|
|
|
|
|
+" "Subtracts 2 meta objects with trivial
|
|
|
|
|
+simplifications. metasub checks for
|
|
|
|
|
+Meta1/2=Z0 ONE.
|
|
|
|
|
+" "394006" :CSys) "^MetaSub" ("Meta2 Meta1 \\-> Meta2-Meta1
|
|
|
|
|
+" "Subtracts 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for infinities then
|
|
|
|
|
+call metasub.
|
|
|
|
|
+" "3AD006" :CSys) "^ckaddt-" ("Meta1 Meta2 \\-> Meta1+Meta2
|
|
|
|
|
+" "Subtracts 2 meta objects with trivial
|
|
|
|
|
+simplifications.
|
|
|
|
|
+" "1CF006" :CSys) "^metamult" ("Meta1 Meta2 \\-> Meta1*Meta2
|
|
|
|
|
+" "Multiplies 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for meta1, meta2= Z0
|
|
|
|
|
+or Z1, checks for xNEG.
|
|
|
|
|
+" "395006" :CSys) "^MetaMul" ("Meta2 Meta1 \\-> Meta2*Meta1
|
|
|
|
|
+" "Multiplies 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for infinities/0
|
|
|
|
|
+then call metamult.
|
|
|
|
|
+" "3AF006" :CSys) "^ckaddt*" ("Meta1 Meta2 \\-> Meta1*Meta2
|
|
|
|
|
+" "Multiplies 2 meta objects with trivial
|
|
|
|
|
+simplifications.
|
|
|
|
|
+" "1CD006" :CSys) "^metadiv" ("Meta2 Meta1 \\-> Meta2/Meta1
|
|
|
|
|
+" "Divides 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for infinities and
|
|
|
|
|
+0, meta2 =1 or Z-1, checks for xNEG.
|
|
|
|
|
+" "396006" :CSys) "^MetaDiv" ("Meta2 Meta1 \\-> Meta2/Meta1
|
|
|
|
|
+" "Divide 2 meta objects with trivial
|
|
|
|
|
+simplifications. Checks for infinities and 0
|
|
|
|
|
+then call metadiv.
|
|
|
|
|
+" "3B1006" :CSys) "^DIVMETAOBJ" ("o1...on #n ob \\-> {o1/ob...on/ob}
|
|
|
|
|
+" "Division of all elements of a meta by ob.
|
|
|
|
|
+Tests if o=1.
|
|
|
|
|
+" "3F1006" :wasCSys) "^meta^" ("Meta ob \\-> Meta&ob&^
|
|
|
|
|
+" "Elevates expression to a power. If ob=1, just
|
|
|
|
|
+returns the expression. Tests for present of
|
|
|
|
|
+xNEG in the end of meta for integral powers.
|
|
|
|
|
+" "397006" :CSys) "^metapow" ("Meta2 Meta1 \\-> Meta2^Meta1
|
|
|
|
|
+" "Elevates expression to a power (any other
|
|
|
|
|
+expression). If length of Meta1 is ONE, calls
|
|
|
|
|
+meta^.
|
|
|
|
|
+" "399006" :CSys) "^MetaPow" ("Meta2 Meta1 \\-> Meta2^Meta1
|
|
|
|
|
+" "Power. Checks for infinities then calls
|
|
|
|
|
+metapow.
|
|
|
|
|
+" "3B5006" :CSys) "^metaxroot" ("Meta2 Meta1 \\-> Meta2&XROOT&Meta1
|
|
|
|
|
+" "Root of expression.
|
|
|
|
|
+" "39B006" :CSys) "^metaneg" ("meta \\-> meta
|
|
|
|
|
+" "Checks only for meta finishing by xNEG.
|
|
|
|
|
+" "3B9006" :CSys) "^metackneg" ("meta \\-> meta
|
|
|
|
|
+" "Like <REF>metaneg but checks for meta=ob
|
|
|
|
|
+ONE.
|
|
|
|
|
+" "3BA006" :CSys) "^MetaNeg" ("Meta \\-> Meta
|
|
|
|
|
+" "Negates meta. Only checks for final <REF>xNEG
|
|
|
|
|
+in meta.
|
|
|
|
|
+" "3B7006" :CSys) "^xSYMRE" ("meta \\-> meta'
|
|
|
|
|
+" "Meta complex real part.
|
|
|
|
|
+Expands only + - * / ^.
|
|
|
|
|
+" "502006" :CSys) "^xSYMIM" ("meta \\-> meta'
|
|
|
|
|
+" "Meta complex imaginary part.
|
|
|
|
|
+Expands only + - * / ^.
|
|
|
|
|
+" "504006" :CSys) "^addtABS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QABSQ.
|
|
|
|
|
+Does a QCRUNCHQ first to find sign.
|
|
|
|
|
+" "50E006" :CSys) "^addtABSEXACT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QABSQ.
|
|
|
|
|
+No crunch, sign is only found using exact
|
|
|
|
|
+methods.
|
|
|
|
|
+" "510006" :CSys) "^addtSIGN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QSIGNQ.
|
|
|
|
|
+" "511006" :CSys) "^addtARG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QARGQ.
|
|
|
|
|
+" "513006" :CSys) "^addtXROOT" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QXROOTQ.
|
|
|
|
|
+QXROOTQ(o2,o1) is o1^[1/o2], compared to o2^o1.
|
|
|
|
|
+" "12D006" :CSys) "^addtMIN" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QMINQ.
|
|
|
|
|
+" "12F006" :CSys) "^addtMAX" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QMAXQ.
|
|
|
|
|
+" "131006" :CSys) "^addt<" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta <.
|
|
|
|
|
+" "133006" :CSys) "^addt<=" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta <=.
|
|
|
|
|
+" "135006" :CSys) "^addt>" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta >.
|
|
|
|
|
+" "137006" :CSys) "^addt>=" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta >=.
|
|
|
|
|
+" "139006" :CSys) "^addt==" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta ==.
|
|
|
|
|
+" "13B006" :CSys) "^addt!=" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta !=.
|
|
|
|
|
+" "13D006" :CSys) "^addt%" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta %.
|
|
|
|
|
+" "13F006" :CSys) "^addt%CH" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta Q%CHQ.
|
|
|
|
|
+Meta2*(1+Meta'/100)=Meta1.
|
|
|
|
|
+" "141006" :CSys) "^addt%T" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta Q%TQ.
|
|
|
|
|
+" "143006" :CSys) "^addtMOD" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QMODQ.
|
|
|
|
|
+" "145006" :CSys) "^addtTRNC" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QTRNCQ.
|
|
|
|
|
+" "147006" :CSys) "^addtRND" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QRNDQ.
|
|
|
|
|
+" "149006" :CSys) "^addtCOMB" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QCOMBQ.
|
|
|
|
|
+" "14B006" :CSys) "^addtPERM" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QPERMQ.
|
|
|
|
|
+" "14D006" :CSys) "^addtOR" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QORQ.
|
|
|
|
|
+" "14F006" :CSys) "^addtAND" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QANDQ.
|
|
|
|
|
+" "151006" :CSys) "^addtXOR" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Meta QXORQ.
|
|
|
|
|
+" "153006" :CSys) "^addtCONJ" ("meta \\-> meta'
|
|
|
|
|
+" "Meta complex conjugate.
|
|
|
|
|
+" "506006" :CSys) "^addtLN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QLNQ.
|
|
|
|
|
+" "523006" :CSys) "^addtCOS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QCOSQ.
|
|
|
|
|
+" "535006" :CSys) "^addtSIN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QSINQ.
|
|
|
|
|
+" "537006" :CSys) "^addtTAN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QTANQ.
|
|
|
|
|
+" "539006" :CSys) "^addtSINACOS" ("meta \\-> meta'
|
|
|
|
|
+" "If meta stands for x, meta' stands for
|
|
|
|
|
+sqrt[1-x^2].
|
|
|
|
|
+" "53B006" :CSys) "^addtASIN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QASINQ.
|
|
|
|
|
+" "53C006" :CSys) "^addtACOS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QACOSQ.
|
|
|
|
|
+" "53E006" :CSys) "^addtATAN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QATANQ.
|
|
|
|
|
+" "540006" :CSys) "^addtSINH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QSINHQ.
|
|
|
|
|
+" "542006" :CSys) "^addtCOSH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QCOSHQ.
|
|
|
|
|
+" "544006" :CSys) "^addtTANH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QTANHQ.
|
|
|
|
|
+" "546006" :CSys) "^addtATANH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QATANHQ.
|
|
|
|
|
+" "549006" :CSys) "^addtASINH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QASINHQ.
|
|
|
|
|
+" "54C006" :CSys) "^addtACOSH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QACOSHQ.
|
|
|
|
|
+" "54F006" :CSys) "^addtSQRT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QSQRTQ.
|
|
|
|
|
+" "551006" :CSys) "^addtSQ" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QSQQ.
|
|
|
|
|
+" "554006" :CSys) "^addtINV" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QINVQ.
|
|
|
|
|
+" "556006" :CSys) "^addtEXP" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QEXPQ.
|
|
|
|
|
+Does not apply EXP[-..]=1/EXP[..].
|
|
|
|
|
+" "558006" :CSys) "^xSYMEXP" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta EXP.
|
|
|
|
|
+Applies EXP[-..]=1/EXP[..].
|
|
|
|
|
+" "559006" :CSys) "^addtD->R" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta D\\->R.
|
|
|
|
|
+" "55A006" :CSys) "^addtR->D" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta R\\->D.
|
|
|
|
|
+" "55C006" :CSys) "^addtFLOOR" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QFLOORQ.
|
|
|
|
|
+" "55E006" :CSys) "^addtCEIL" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QCEILQ.
|
|
|
|
|
+" "560006" :CSys) "^addtIP" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QIPQ.
|
|
|
|
|
+" "562006" :CSys) "^addtFP" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QFPQ.
|
|
|
|
|
+" "564006" :CSys) "^addtXPON" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QXPONQ.
|
|
|
|
|
+" "566006" :CSys) "^addtMANT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QMANTQ.
|
|
|
|
|
+" "568006" :CSys) "^addtLNP1" ("meta \\-> meta
|
|
|
|
|
+" "Meta QLNP1Q.
|
|
|
|
|
+" "56A006" :CSys) "^addtLOG" ("meta \\-> meta
|
|
|
|
|
+" "Meta QLOGQ.
|
|
|
|
|
+" "56C006" :CSys) "^addtALOG" ("meta \\-> meta
|
|
|
|
|
+" "Meta QALOGQ.
|
|
|
|
|
+" "56E006" :CSys) "^addtEXPM" ("meta \\-> meta
|
|
|
|
|
+" "Meta QEXPMQ.
|
|
|
|
|
+" "570006" :CSys) "^addtFACT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QFACTQ.
|
|
|
|
|
+" "574006" :CSys) "^addtNOT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta QNOTQ.
|
|
|
|
|
+" "577006" :CSys) "^cos2tan/2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (1-(tan(x/2))^2)/(1+(tan(x/2))^2)
|
|
|
|
|
+" "409006" :CSys) "^1-x^2/1+x^2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (1-x^2)/(1+x^2)
|
|
|
|
|
+" "40A006" :CSys) "^sin2tan/2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> 2 tan(x/2)/(1+(tan(x/2))^2)
|
|
|
|
|
+" "40C006" :CSys) "^2x/1+x^2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> 2x/(1+x^2)
|
|
|
|
|
+" "40D006" :CSys) "^tan2tan/2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> 2 tan(x/2)/(1-(tan(x/2))^2)
|
|
|
|
|
+" "40F006" :CSys) "^addtTAN/2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> tan(x/2)
|
|
|
|
|
+" "410006" :CSys) "^cos2tan" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> 1/sqrt(1+(tan(x))^2)
|
|
|
|
|
+" "413006" :CSys) "^sin2tan" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> tan(x)/sqrt(1+(tan(x))^2)
|
|
|
|
|
+" "415006" :CSys) "^tan2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (exp(i2x)-1)/(i*(exp(i2x)+1))
|
|
|
|
|
+" "421006" :CSys) "^asin2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> = i*ln(x+sqrt(x^2-1))+\\pi/2.
|
|
|
|
|
+" "423006" :CSys) "^acos2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2-1))/i
|
|
|
|
|
+" "425006" :CSys) "^sin/cos" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> sin(x)/cos(x)
|
|
|
|
|
+" "428006" :CSys) "^cos*tan" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> cos(x)*tan(x)
|
|
|
|
|
+" "42B006" :CSys) "^sqrt1-sin^2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> sqrt(1-(sin(x))^2).
|
|
|
|
|
+" "42D006" :CSys) "^sqrt1-cos^2" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> sqrt(1-(cos(x))^2).
|
|
|
|
|
+" "42F006" :CSys) "^atan2asin" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> asin(x/sqrt(x^2+1))
|
|
|
|
|
+" "432006" :CSys) "^asin2atan" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> atan(x/sqrt(1-x^2))
|
|
|
|
|
+" "435006" :CSys) "^pi/2-acos" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> \\pi/2-acos(x)
|
|
|
|
|
+" "438006" :CSys) "^pi/2-meta" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> \\pi/2-x
|
|
|
|
|
+" "439006" :CSys) "^pi/2-asin" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> \\pi/2-asin(x)
|
|
|
|
|
+" "43B006" :CSys) "^atan2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> i/2*ln((i+x)/(i-x))
|
|
|
|
|
+" "43E006" :CSys) "^2*1-cos/sin" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (1-cos(2x))/sin(2x)
|
|
|
|
|
+" "441006" :CSys) "^2*sin/1+cos" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> sin(2x)/(1+cos(2x))
|
|
|
|
|
+" "443006" :CSys) "^sin2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (e^(i*x)-1/e^(i*x))/(2i)
|
|
|
|
|
+" "445006" :CSys) "^cos2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (e^(i*x)+1/e^(i*x))/2
|
|
|
|
|
+" "447006" :CSys) "^sinh2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (e^x-1/e^x)/2
|
|
|
|
|
+" "449006" :CSys) "^cosh2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (e^x+1/e^x)/2
|
|
|
|
|
+" "44B006" :CSys) "^tanh2exp" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> (e^2x-1)/(e^2x+1)
|
|
|
|
|
+" "44D006" :CSys) "^asinh2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2+1))
|
|
|
|
|
+" "44F006" :CSys) "^acosh2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> ln(x+sqrt(x^2-1))
|
|
|
|
|
+" "451006" :CSys) "^atanh2ln" ("meta \\-> meta'
|
|
|
|
|
+" "x \\-> ln((1+x)/(1-x))/2
|
|
|
|
|
+" "453006" :CSys) "^xroot2expln" ("meta1 meta2 \\-> meta'
|
|
|
|
|
+" "x y \\-> exp(ln(y)/x)
|
|
|
|
|
+" "455006" :CSys) "^exp2sincos" ("meta \\-> meta'
|
|
|
|
|
+" "Returns QEXPQ of meta as EXP[RE]*[COS+i*SIN].
|
|
|
|
|
+" "458006" :CSys) "^1metaundef#" ("meta \\-> meta #
|
|
|
|
|
+" "Tests presence of undef in meta. # is the
|
|
|
|
|
+position of undef.
|
|
|
|
|
+" "3A1006" :CSys) "^2metaundef#" ("meta2 meta1 \\-> meta2 meta1 #
|
|
|
|
|
+" "Tests presence of undef in meta2 and meta1. #
|
|
|
|
|
+is the position of undef.
|
|
|
|
|
+" "3A0006" :CSys) "^metaundef" ("\\-> meta
|
|
|
|
|
+" "Returns undef meta.
|
|
|
|
|
+" "3A2006" :CSys) "^1metainf#" ("meta \\-> meta #
|
|
|
|
|
+" "Finds position of infinity in meta. Metas of
|
|
|
|
|
+length>2 are considered as finite meta.
|
|
|
|
|
+" "3A4006" :CSys) "^2metainf#" ("meta2 meta1 \\-> meta2 meta1 #
|
|
|
|
|
+" "Finds position of infinity in meta 2 and
|
|
|
|
|
+meta1. Metas of length>2 are considered as
|
|
|
|
|
+finite meta.
|
|
|
|
|
+" "3A3006" :CSys) "^metainftype" ("meta \\-> #
|
|
|
|
|
+" "Returns infinity type: 1 for +infinity, 2 for
|
|
|
|
|
+-infinity or 0 for unsigned.
|
|
|
|
|
+" "3A5006" :CSys) "^unsignedinf" ("\\-> meta
|
|
|
|
|
+" "Returns unsigned infinty.
|
|
|
|
|
+" "3A6006" :CSys) "^plusinf" ("\\-> meta
|
|
|
|
|
+" "Returns plus infinty.
|
|
|
|
|
+" "3A7006" :CSys) "^NDROPplusinf" ("ob1..obn \\-> meta
|
|
|
|
|
+" "Replaces meta by plus infinty.
|
|
|
|
|
+" "3A8006" :CSys) "^minusinf" ("\\-> meta
|
|
|
|
|
+" "Returns minus infinty.
|
|
|
|
|
+" "3A9006" :CSys) "^NDROPminusinf" ("ob1..obn \\-> meta
|
|
|
|
|
+" "Replace meta by minus infinty.
|
|
|
|
|
+" "3AA006" :CSys) "^metasimp" ("Meta \\-> Meta
|
|
|
|
|
+" "Simplifies a meta object.
|
|
|
|
|
+Non recursive rational simplification.
|
|
|
|
|
+" "3BB006" :CSys) "^DISTRIB*" ("meta \\-> meta' T
|
|
|
|
|
+meta \\-> meta F
|
|
|
|
|
+" "Distribute *.
|
|
|
|
|
+Returns FALSE if no distribution done.
|
|
|
|
|
+" "118007" :1\.11 :CSys) "^DISTRIB/" ("meta \\-> meta' T
|
|
|
|
|
+meta \\-> meta F
|
|
|
|
|
+" "Distribute /.
|
|
|
|
|
+Returns FALSE if no distribution done.
|
|
|
|
|
+" "3C2006" :CSys) "^METASINEXPA" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands SIN.
|
|
|
|
|
+" "304006" :CSys) "^SINEXPA+" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands SIN(x+y).
|
|
|
|
|
+" "305006" :CSys) "^SINEXPA-" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands SIN(x-y).
|
|
|
|
|
+" "306006" :CSys) "^SINEXPA*" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands SIN(x*y).
|
|
|
|
|
+Expands if x or y is an integer.
|
|
|
|
|
+" "307006" :CSys) "^SINEXPA*1" ("Meta2 Meta1 \\-> Meta'
|
|
|
|
|
+" "Expands SIN(x*y).
|
|
|
|
|
+Meta1 is assumed to be an integer.
|
|
|
|
|
+" "308006" :CSys) "^METACOSEXPA" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands COS.
|
|
|
|
|
+" "30A006" :CSys) "^COSEXPA+" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands COS(x+y).
|
|
|
|
|
+" "30B006" :CSys) "^COSEXPA-" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands COS(x-y).
|
|
|
|
|
+" "30C006" :CSys) "^COSEXPA*" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands COS(x*y).
|
|
|
|
|
+" "30D006" :CSys) "^COSEXPA*1" ("meta2 meta1 \\-> Meta'
|
|
|
|
|
+" "Expands COS(x*y).
|
|
|
|
|
+meta1 represents an integer.
|
|
|
|
|
+" "30E006" :CSys) "^METAEXPEXPA" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands EXP.
|
|
|
|
|
+" "310006" :CSys) "^EXPEXPA+" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands EXP(x+y).
|
|
|
|
|
+" "311006" :CSys) "^EXPEXPA-" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands EXP(x-y).
|
|
|
|
|
+" "312006" :CSys) "^EXPEXPA*" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands EXP(x*y).
|
|
|
|
|
+" "313006" :CSys) "^EXPEXPANEG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands EXP(-x).
|
|
|
|
|
+" "314006" :CSys) "^EXPEXPA*1" ("Meta2 meta1 \\-> Meta'
|
|
|
|
|
+" "Expands EXP(x*y).
|
|
|
|
|
+meta1 represents an integer.
|
|
|
|
|
+" "315006" :CSys) "^METALNEXPA" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands LN.
|
|
|
|
|
+" "317006" :CSys) "^LNEXPA*" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands LN(x*y).
|
|
|
|
|
+" "318006" :CSys) "^LNEXPA/" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands LN(x/y).
|
|
|
|
|
+" "319006" :CSys) "^LNEXPA^" ("Meta \\-> Meta'
|
|
|
|
|
+" "Expands LN(x^y).
|
|
|
|
|
+" "31A006" :CSys) "^METATANEXPA" ("meta \\-> tan[meta]
|
|
|
|
|
+" "Expands tan[meta].
|
|
|
|
|
+" "31E006" :CSys) "^metafraction?" ("Meta \\-> Meta flag
|
|
|
|
|
+" "Tests if meta is a fraction of integers.
|
|
|
|
|
+" "39A006" :CSys) "^metapi?" ("Meta \\-> Meta#
|
|
|
|
|
+" "Tests presence of \\pi in a meta.
|
|
|
|
|
+# is the last occurence of \\pi or 0.
|
|
|
|
|
+" "3BC006" :CSys) "^metaCOMPARE" ("Meta2 Meta1 \\-> Meta2 Meta1 #
|
|
|
|
|
+" "Comparison of 2 meta.
|
|
|
|
|
+ # =0 if undef
|
|
|
|
|
+ # =1 if >
|
|
|
|
|
+ # =2 if <
|
|
|
|
|
+ # =3 if =
|
|
|
|
|
+Assumes generic situation, e.g. X^2 > 0 in
|
|
|
|
|
+real mode. Look below STRICTmetaCOMPARE for a
|
|
|
|
|
+more careful comparison.
|
|
|
|
|
+" "3BD006" :CSys) "^STRICTmetaCOMPARE" ("Meta2 Meta1 \\-> Meta2 Meta1 #
|
|
|
|
|
+" "Comparison of 2 meta.
|
|
|
|
|
+ # =0 if undef
|
|
|
|
|
+ # =1 if >
|
|
|
|
|
+ # =2 if <
|
|
|
|
|
+ # =3 if =
|
|
|
|
|
+Unlike <REF>metaCOMPARE it does not assume generic
|
|
|
|
|
+situation.
|
|
|
|
|
+" "3BE006" :CSys) "^metareal?" ("meta \\-> meta flag
|
|
|
|
|
+" "Tests if IM[meta]==0.
|
|
|
|
|
+" "3C3006" :CSys) "^QAdd" ("o1 \\-> o2+o1
|
|
|
|
|
+" "Adds two polynomials.
|
|
|
|
|
+" "118006" :CSys) "^RADDext" ("o2 o1 \\-> o2+o1
|
|
|
|
|
+" "Internal +. This is the same entry as
|
|
|
|
|
+^QAdd.
|
|
|
|
|
+" "119006" :CSys) "^SWAPRADD" ("o2 o1 \\-> o1+o2
|
|
|
|
|
+" "SWAP, then QAdd.
|
|
|
|
|
+" "117006" :CSys) "^QSub" ("o2 o1 \\-> o2-o1
|
|
|
|
|
+" "Subtracts two polynomials.
|
|
|
|
|
+" "115006" :CSys) "^RSUBext" ("o2 o1 \\-> o2-o1
|
|
|
|
|
+" "Internal -. This is the same entry as
|
|
|
|
|
+^QSub.
|
|
|
|
|
+" "116006" :CSys) "^SWAPRSUB" ("o2 o1 \\-> o1-o2
|
|
|
|
|
+" "SWAP, then QSub.
|
|
|
|
|
+" "114006" :CSys) "^QMul" ("Q1 Q2 \\-> Q
|
|
|
|
|
+" "Multiplication of polynomials with
|
|
|
|
|
+extensions.
|
|
|
|
|
+" "111006" :CSys) "^RMULText" ("Q1 Q2 \\-> Q
|
|
|
|
|
+" "Multiplication of polynomials with
|
|
|
|
|
+extensions. This is the same entry as
|
|
|
|
|
+^QMul.
|
|
|
|
|
+" "112006" :CSys) "^SWAPRMULT" ("Q1 Q2 \\-> Q
|
|
|
|
|
+" "SWAP, then ^QMul.
|
|
|
|
|
+" "110006" :CSys) "^QDiv" ("o2 o1 \\-> o2/o1
|
|
|
|
|
+" "Internal /.
|
|
|
|
|
+" "11C006" :CSys) "^RDIVext" ("o2 o1 \\-> o2/o1
|
|
|
|
|
+" "Internal /. This is the same entry as
|
|
|
|
|
+^QDiv.
|
|
|
|
|
+" "11B006" :CSys) "^SWAPRDIV" ("o2 o1 \\-> o1/o2
|
|
|
|
|
+" "SWAP, then QDiv.
|
|
|
|
|
+" "11A006" :CSys) "^QMod" ("Q, Z \\-> Q mod Z
|
|
|
|
|
+" "" "0D9006" :CSys) "^QRoot" ("
|
|
|
|
|
+" "Extracts Nth power factors from polynomial.
|
|
|
|
|
+" "0DF006" :CSys) "^RASOP" ("n1/d1 n2/d2 \\-> d1*d2 n1*d2 n2*d1
|
|
|
|
|
+" "Used by RADDext and RSUBext for rational
|
|
|
|
|
+input.
|
|
|
|
|
+" "113006" :CSys) "^R15SIMP" ("
|
|
|
|
|
+" "" "11D006" :CSys) "^PPow#" ("
|
|
|
|
|
+" "" "11E006" :CSys) "^RP#" ("o2 # \\-> o2^#
|
|
|
|
|
+" "Internal power (not for matrices).
|
|
|
|
|
+" "11F006" :CSys) "^MPext" ("ob # prg* \\-> ob^#
|
|
|
|
|
+" "General power with a specified multiplication
|
|
|
|
|
+program.
|
|
|
|
|
+" "120006" :CSys) "^RPext" ("o2 o1 \\-> o2^o1
|
|
|
|
|
+" "Tries to convert o1 to an integer to call
|
|
|
|
|
+RP#, otherwise x^ext.
|
|
|
|
|
+" "123006" :CSys) "^MPEXEC" ("
|
|
|
|
|
+" "" "122006" :CSys) "^DISTDIVext" ("P Q \\-> quo mod T
|
|
|
|
|
+ \\-> P Q F
|
|
|
|
|
+" "Euclidean division. Assumes P and Q have
|
|
|
|
|
+integer coefficientes. Returns FALSE if
|
|
|
|
|
+sparse short division fails.
|
|
|
|
|
+" "108006" :CSys) "^PTAYLext" ("P, r \\-> symb
|
|
|
|
|
+" "Taylor for polynomials.
|
|
|
|
|
+" "3E5006" :CSys) "^CARCOMPext" ("Q1/Q2 \\-> Q1'/Q2'
|
|
|
|
|
+" "Extracts leading coefficients for the first
|
|
|
|
|
+variable from a rational polynomial.
|
|
|
|
|
+" "15B006" :CSys) "^QDivRem" ("ob2 ob1 \\-> quo mod
|
|
|
|
|
+" "Polynomial Euclidean division of 2 objects.
|
|
|
|
|
+Dispatchs to DIV2LISText for list
|
|
|
|
|
+polynomials.
|
|
|
|
|
+" "3EE006" :CSys) "^DIV2LISText" ("Z0 l1 l2 \\-> div mod
|
|
|
|
|
+" "Euclidean division, l1 and l2 are list
|
|
|
|
|
+polynomials. Test first if l1=l2, then tries
|
|
|
|
|
+fast division, if it fails switch to SRPL
|
|
|
|
|
+division.
|
|
|
|
|
+" "3EF006" :CSys) "^PDIV2ext" ("A B \\-> Q R
|
|
|
|
|
+" "Step by step Euclidean division for univar
|
|
|
|
|
+poly.
|
|
|
|
|
+" "3F8006" :CSys) "^PSetSign" ("P1 P2 \\-> sign[P2]*P1
|
|
|
|
|
+" "Sets sign of P1 according to leading coeff of
|
|
|
|
|
+P2.
|
|
|
|
|
+" "3F9006" :CSys) "^ModExpa" ("Zn Fraction \\-> Fraction modulo Zn
|
|
|
|
|
+" "" "3C4006" :CSys) "^ModAdd" ("Q1 Q2 Zn \\-> Z
|
|
|
|
|
+" "Modular addition. Z = Q1+Q2 (mod Zn).
|
|
|
|
|
+" "3C5006" :CSys) "^ModSub" ("Q1 Q2 Zn \\-> Z
|
|
|
|
|
+" "Modular subtraction. Z = Q1-Q2 (mod Zn).
|
|
|
|
|
+" "3C6006" :CSys) "^ModMul" ("Q1 Q2 Zn \\-> Z
|
|
|
|
|
+" "Modular multiplication. Z = Q1*Q2 (mod Zn).
|
|
|
|
|
+" "3C7006" :CSys) "^ModDiv" ("Z1 Z2 Zn \\-> Z
|
|
|
|
|
+" "Modular division. Z = Z1/Z2 (mod Zn).
|
|
|
|
|
+" "3C8006" :CSys) "^ModDiv2" ("Q1 Q2 Zn \\-> quo mod mod'
|
|
|
|
|
+" "Modular division. mod' = Q1 mod Q2 mod Zn.
|
|
|
|
|
+If Q1 and Q2 are integers, Q1 mod Q2 mod Zn
|
|
|
|
|
+is always 0.
|
|
|
|
|
+" "3C9006" :CSys) "^ModInv" ("Z Zn \\-> Z'
|
|
|
|
|
+" "Modular inversion. Z' = INV(Z) (mod Zn).
|
|
|
|
|
+NONINTERR if GCD[Z,Zn] \\=/ 1 or if Z = 0
|
|
|
|
|
+(otherwise the results would be
|
|
|
|
|
+unpredictable).
|
|
|
|
|
+" "3CA006" :CSys) "^ModGcd" ("Q1 Q2 Zn \\-> Q'
|
|
|
|
|
+" "Modular GCD.
|
|
|
|
|
+" "3CB006" :CSys) "^ModLGCD" ("
|
|
|
|
|
+" "" "3CC006" :CSys) "^ModLOPD" ("
|
|
|
|
|
+" "" "3CD006" :CSys) "^MODULOMODext" ("
|
|
|
|
|
+" "" "3CE006" :CSys) "^MODULOMAText" ("
|
|
|
|
|
+" "" "3CF006" :CSys) "^ModFctr" ("
|
|
|
|
|
+" "" "3D1006" :CSys) "^BerlekampP" ("P #prime \\-> P F / P Lf #prime T
|
|
|
|
|
+" "Berlekamp's algorithm for finding modular
|
|
|
|
|
+factors of a univariate polynomial.
|
|
|
|
|
+" "08E006" :CSys) "^Berlekamp" ("P \\-> P F / P Lf #prime T
|
|
|
|
|
+" "Berlekamp's algorithm for finding modular
|
|
|
|
|
+factors of a univariate polynomial with a
|
|
|
|
|
+leading frontend for finding linear factors
|
|
|
|
|
+faster. The input polynomial must be square
|
|
|
|
|
+free, otherwise the polynomial is not fully
|
|
|
|
|
+factored. Due to memory restrictions byte
|
|
|
|
|
+sized coefficients are used and the following
|
|
|
|
|
+restrictions were imposed: prime<128 and
|
|
|
|
|
+degree<256. If the conditions are not met
|
|
|
|
|
+FALSE is returned. BCD: prime\\<=97.
|
|
|
|
|
+" "08F006" :CSys) "^ALG48FCTR?" ("P \\-> [ meta cst_coeff TRUE | P FALSE ]
|
|
|
|
|
+" "Factorizes square-free polynomial in Erable
|
|
|
|
|
+format.
|
|
|
|
|
+" "0A8006" :CSys) "^MFactTriv" ("P \\-> meta-factor P'
|
|
|
|
|
+" "Extracts all trivial power factors of P.
|
|
|
|
|
+" "0A9006" :CSys) "^CheckPNoExt" ("P \\-> P flag
|
|
|
|
|
+" "Checks that P does not contain any DOCOL
|
|
|
|
|
+(i.e. extensions).
|
|
|
|
|
+" "0AA006" :CSys) "^PPP" ("P \\-> PP PC
|
|
|
|
|
+" "Computes primitive polynomial and content of
|
|
|
|
|
+non-const P with respect to X1. The results
|
|
|
|
|
+are trimmed (provided P was).
|
|
|
|
|
+" "0AB006" :CSys) "^PFactor" ("P \\-> Lfk Z
|
|
|
|
|
+" "Does a complete factorization of P.
|
|
|
|
|
+The result is trimmed.
|
|
|
|
|
+" "0AC006" :CSys) "^PSqff" ("P \\-> Lfk
|
|
|
|
|
+" "Square-free and trivial factorization,
|
|
|
|
|
+including integer content, of P taken
|
|
|
|
|
+positive. Factors of same power are not
|
|
|
|
|
+necessarily merged or adjacent, but all Fi's
|
|
|
|
|
+are square-free.
|
|
|
|
|
+" "0AD006" :CSys) "^PHFctr" ("P \\-> Lf
|
|
|
|
|
+" "Heuristic factorization of polynomial taken
|
|
|
|
|
+positive. LAM FullFact? must be bound. If LAM
|
|
|
|
|
+FullFact? is TRUE, a full factorization is
|
|
|
|
|
+done. If it is FALSE, only square-free and
|
|
|
|
|
+trivial factorization is done.
|
|
|
|
|
+" "0AE006" :CSys) "^PHFctr1" ("P \\-> Lf
|
|
|
|
|
+" "Heuristic factorization of primitive
|
|
|
|
|
+polynomial. LAM FullFact? must be bound. If
|
|
|
|
|
+TRUE, a full factorization is done. When
|
|
|
|
|
+FALSE, only a square-free and trivial
|
|
|
|
|
+factorization are done.
|
|
|
|
|
+" "0AF006" :CSys) "^PHFctr0" ("P \\-> Lf
|
|
|
|
|
+" "Heuristic factorization of primitive
|
|
|
|
|
+square-free non constant polynomial.
|
|
|
|
|
+" "0B0006" :CSys) "^P2P#" ("P \\-> P' #
|
|
|
|
|
+" "Extracts trivial power of poly. P must be a
|
|
|
|
|
+valid poly (if list, begin with a non zero
|
|
|
|
|
+coeff).
|
|
|
|
|
+" "0D8007" :CSys) "^DeCntMulti" ("R \\-> L
|
|
|
|
|
+" "Transforms list with count into simple list.
|
|
|
|
|
+ R = { {f1 #k1} ... {fn #kn} }
|
|
|
|
|
+ L = { f1 f1 .. fn fn }.
|
|
|
|
|
+" "0B1006" :CSys) "^DoLS" ("L S F \\-> L'
|
|
|
|
|
+" "Applies program F(Li,S) to every elem of L.
|
|
|
|
|
+" "0B2006" :CSys) "^PNFctr" ("Z \\-> Lf
|
|
|
|
|
+" "Factorization of positive integer as
|
|
|
|
|
+polynomial.
|
|
|
|
|
+ Lf = {} if Z is 1
|
|
|
|
|
+ Lf = { {Z1 #k1} ... {Zn #kn} } o/w.
|
|
|
|
|
+" "0B3006" :CSys) "^PSQFF" ("P \\-> Lsqff
|
|
|
|
|
+" "Computes the square-free factorization of
|
|
|
|
|
+primitive P. The result is trimmed (provided P
|
|
|
|
|
+was).
|
|
|
|
|
+" "0B4006" :CSys) "^LiftZAdic" ("p z F \\-> L
|
|
|
|
|
+" "Lift n-1 z-adic factorization into n
|
|
|
|
|
+factorization.
|
|
|
|
|
+" "0B5006" :CSys) "^LFCProd" ("C L \\-> C P
|
|
|
|
|
+" "Calculates combination product.
|
|
|
|
|
+" "0B6006" :CSys) "^UFactor" ("P \\-> Lf
|
|
|
|
|
+" "Factorization of a square free primitive
|
|
|
|
|
+univariate polynomial.
|
|
|
|
|
+" "0B7006" :CSys) "^UFactor1" ("P \\-> Lf
|
|
|
|
|
+" "Factorization of a square free primitive
|
|
|
|
|
+univariate polynomial of degree > 2.
|
|
|
|
|
+" "0B8006" :CSys) "^MonicLf" ("Lfp p \\-> Lfp'
|
|
|
|
|
+" "Converts true modular factorization to monic
|
|
|
|
|
+factorization by dividing by the leading
|
|
|
|
|
+coefficient of factor 1.
|
|
|
|
|
+" "0B9006" :CSys) "^DemonicLf" ("Lfp lc p \\-> Lfp'
|
|
|
|
|
+" "Converts monic modular factorization to true
|
|
|
|
|
+modular factorization by multiplying factor1
|
|
|
|
|
+by lcoeff.
|
|
|
|
|
+" "0BA006" :CSys) "^LiftLinear" ("#root1 .. #rootn #n \\->
|
|
|
|
|
+" "Lifts modular roots of a polynomial to find
|
|
|
|
|
+linear factors of a univariate polynomial.
|
|
|
|
|
+ Lflin = list of found true factors
|
|
|
|
|
+ Lfplin' = remaining linear factors
|
|
|
|
|
+ P' = remaining polynomial
|
|
|
|
|
+Assumes UFactor lambda variables available
|
|
|
|
|
+and uses them for input and output.
|
|
|
|
|
+" "0BB006" :CSys) "^LiftGeneral" ("\\->
|
|
|
|
|
+" "Lifts factorization mod p to factorization mod
|
|
|
|
|
+p^k where p^k exceeds the factor bound for
|
|
|
|
|
+succesful true factor extraction. Assumes
|
|
|
|
|
+UFactor lambda variables.
|
|
|
|
|
+" "0BC006" :CSys) "^UFactorDeg2" ("P \\-> Lf
|
|
|
|
|
+" "Factorization of a degree 2 polynomial.
|
|
|
|
|
+Polynomial is univariate, square free and
|
|
|
|
|
+primitive.
|
|
|
|
|
+" "0BD006" :CSys) "^CombineFac" ("P Lfp p \\-> Tf Tfp
|
|
|
|
|
+" "Combines modular factors to true factors. P
|
|
|
|
|
+is the polynomial to factor, Lfp is the list
|
|
|
|
|
+of modular factors, and p the modulo. The
|
|
|
|
|
+entry returns the a list of found true
|
|
|
|
|
+factors (Tf) and the list of modular factors
|
|
|
|
|
+for each true factor (Tfp)
|
|
|
|
|
+" "0BE006" :CSys) "^CombProd" ("lc Lfp p Cb \\-> F
|
|
|
|
|
+" "Calculates modular combination.
|
|
|
|
|
+" "0BF006" :CSys) "^CombInit" ("#r \\-> Cb
|
|
|
|
|
+" "Inits modular combination list to value
|
|
|
|
|
+ { 1 0 0 0 .. }.
|
|
|
|
|
+" "0C0006" :CSys) "^CombNext" ("Cb \\-> Cb' flag
|
|
|
|
|
+" "Gets next possible modular combination.
|
|
|
|
|
+Assumes Cb is valid and is in tempob area.
|
|
|
|
|
+" "0C1006" :CSys) "^RmCombNext" ("Lf Cb \\-> Lfrm Lf' Cb' flag
|
|
|
|
|
+" "Removes next possible combination after a
|
|
|
|
|
+successful combination has been found, and
|
|
|
|
|
+remove the used factors from the factor list.
|
|
|
|
|
+" "0C2006" :CSys) "^PFactTriv" ("P \\-> P' Lf
|
|
|
|
|
+" "Extracts all trivial power factors of P.
|
|
|
|
|
+" "0C3006" :CSys) "^VarFactor" ("P #var \\-> P #n
|
|
|
|
|
+" "Calculates what power of the given variable
|
|
|
|
|
+is a factor in P.
|
|
|
|
|
+" "0C4006" :CSys) "^PFactPowCnt" ("P \\-> P Lk flag
|
|
|
|
|
+" "Calculates trivial power factors in P.
|
|
|
|
|
+flag is TRUE if any of the powers is nonzero.
|
|
|
|
|
+" "0C5006" :CSys) "^PDivLk" ("P Lk \\-> P'
|
|
|
|
|
+" "Divides polynomial by its trivial powers.
|
|
|
|
|
+" "0C6006" :CSys) "^FEVIDENText" ("P \\-> meta-fact cst coeff
|
|
|
|
|
+" "Real mode: full factorization over the
|
|
|
|
|
+integer Complex mode: find all 1st order
|
|
|
|
|
+factors of P.
|
|
|
|
|
+" "282006" :CSys) "^ONE{}POLY" ("ob \\-> {ob} ob1 \\-> Q
|
|
|
|
|
+" "Replaces ONE{}N for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "09B006" :CSys) "^TWO{}POLY" ("ob1 ob2 \\-> Q
|
|
|
|
|
+" "Replaces TWO{}N for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "09C006" :CSys) "^THREE{}POLY" ("ob1 ob2 ob3 \\-> Q
|
|
|
|
|
+" "Replaces THREE{}N for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "09D006" :CSys) "^TWO::POLY" ("ob1 ob2 \\-> ::
|
|
|
|
|
+" "Replaces 2Ob>Seco for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "09E006" :CSys) "^::POLY" ("Meta \\-> ::
|
|
|
|
|
+" "Replaces ::N for polynomial building.
|
|
|
|
|
+As opposed to the regular ::N code, we do pop
|
|
|
|
|
+the binary number. This is enforced by the
|
|
|
|
|
+entry to the common polyxml code.
|
|
|
|
|
+" "09F006" :CSys) "^{}POLY" ("Meta \\-> Q
|
|
|
|
|
+" "Replaces {}N for polynomial building.
|
|
|
|
|
+As opposed to the regular {}N code, we do pop
|
|
|
|
|
+the binary number. This allows us to enter
|
|
|
|
|
+the code here with fixed sizes, as in
|
|
|
|
|
+ONE{}POLY and TWO{}POLY.
|
|
|
|
|
+" "0A0006" :CSys) "^>POLY" ("Meta \\-> Q
|
|
|
|
|
+" "Builds polynomial.
|
|
|
|
|
+" "0A7006" :CSys) "^>TPOLY" ("P ob \\-> P'
|
|
|
|
|
+" "Replaces >TCOMP for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "0A1006" :CSys) "^>HPOLY" ("P ob \\-> P'
|
|
|
|
|
+" "Replaces >HCOMP for polynomial
|
|
|
|
|
+building.
|
|
|
|
|
+" "0A2006" :CSys) "^>TPOLYN" ("P ob1 .. obn #n \\-> P'
|
|
|
|
|
+" "Improved >TCOMP for polynomial building.
|
|
|
|
|
+" "0A3006" :CSys) "^>HPOLYN" ("P ob1 .. obn #n \\-> P'
|
|
|
|
|
+" "Improved >HCOMP for polynomial building.
|
|
|
|
|
+" "0A4006" :CSys) "^MKPOLY" ("#n #k \\-> P
|
|
|
|
|
+" "Makes polynomial of nth variable to the power
|
|
|
|
|
+k.
|
|
|
|
|
+" "0A5006" :CSys) "^MAKEPROFOND" ("ob # \\-> {{{...{o}...}}}
|
|
|
|
|
+" "Embedds ob in the given number of lists.
|
|
|
|
|
+" "2AB006" :CSys) "^TRIMext" ("Q \\-> Q'
|
|
|
|
|
+" "Removes unnecessary zeros from polynomial.
|
|
|
|
|
+" "4F4006" :CSys) "^PTrim" ("ob \\-> ob'
|
|
|
|
|
+" "Trims polynomial.
|
|
|
|
|
+" "4F5006" :CSys) "^ONE>POLY" ("Q \\-> Q'
|
|
|
|
|
+" "Increases variable depth. Constants (Z,Irr,C)
|
|
|
|
|
+are not modified.
|
|
|
|
|
+" "0A6006" :CSys) "^TCHEBext" ("zint \\-> P
|
|
|
|
|
+" "Tchebycheff polynomial. If zint>0 then 1st
|
|
|
|
|
+kind, if <0 then second kind.
|
|
|
|
|
+" "302006" :CSys) "^LRDMext" ("P # \\-> []
|
|
|
|
|
+" "Left ReDiMension. Adds 0 to the left of
|
|
|
|
|
+polynomial to get a symbolic vector of lenght
|
|
|
|
|
+#+1.
|
|
|
|
|
+" "3DE006" :CSys) "^RRDMext" ("{} # \\-> {}
|
|
|
|
|
+" "Right ReDiMension: like <REF>LRDMext but 0 at
|
|
|
|
|
+the right and {}.
|
|
|
|
|
+" "3DF006" :CSys) "^DEGREext" ("{} \\-> degre
|
|
|
|
|
+" "Degree of a list-polynomial.
|
|
|
|
|
+" "3E0006" :CSys) "^FHORNER" ("P/d r \\-> P[X]_div_[X-r]/d r P[r]/d
|
|
|
|
|
+" "Horner scheme.
|
|
|
|
|
+" "3E1006" :CSys) "^HORNext" ("P r \\-> P[X]_div_[X-r] r P[r]
|
|
|
|
|
+" "Horner scheme.
|
|
|
|
|
+" "3E2006" :CSys) "^HORN1" ("
|
|
|
|
|
+" "" "3E3006" :CSys) "^MHORNext" ("P r \\-> P[X]_div_[X-r] r P[r]
|
|
|
|
|
+" "Horner scheme for matrices.
|
|
|
|
|
+" "3E4006" :CSys) "^LAGRANGEext" ("M \\-> symb
|
|
|
|
|
+" "Lagrange interpolation. Format of the matrix
|
|
|
|
|
+is
|
|
|
|
|
+ [ [ x1 .. xn ] [ f(x1) .. f(xn) ] ]
|
|
|
|
|
+Returns a polynomial P such that P(xi)=f(xi)
|
|
|
|
|
+" "3E6006" :CSys) "^RESULTANT" ("P1 P2 \\-> P
|
|
|
|
|
+" "Resultant of two polynomials. Depth of P is
|
|
|
|
|
+one less than depth of P1 and P2.
|
|
|
|
|
+" "10F007" :1\.11 :CSys) "^RESULTANTLP" ("res g h P1 P2 \\-> +/-res g' h' P1' P2'
|
|
|
|
|
+" "Subresultant algorithm innerloop.
|
|
|
|
|
+" "110007" :1\.11 :CSys) "^RESPSHIFTQ" ("P Q \\-> P'
|
|
|
|
|
+" "Resultant of P and Q shifted.
|
|
|
|
|
+gcd[Q(x-r),P(x)]!=1 equivalent to r root of
|
|
|
|
|
+P' P' has same depth than P and Q.
|
|
|
|
|
+" "111007" :1\.11 :CSys) "^ADDONEVAR" ("P \\-> P'
|
|
|
|
|
+" "Adds one variable just below the main var.
|
|
|
|
|
+works for polynomial, not for fractions.
|
|
|
|
|
+" "112007" :1\.11 :CSys) "^SHRINKEVEN" ("P \\-> P'
|
|
|
|
|
+" "Changes var Y=X^2 in an even polynomial.
|
|
|
|
|
+" "0CF007" :CSys) "^SINTEST" ("
|
|
|
|
|
+" "" "0D0007" :CSys) "^SHRINK2SYM" ("N D \\-> N' D'
|
|
|
|
|
+" "Shrinks 2 polynomials using symmetry
|
|
|
|
|
+properties.
|
|
|
|
|
+" "0D1007" :CSys) "^SHRINKSYM" ("N \\-> N'
|
|
|
|
|
+" "Shrinks 1 polynomial using symmetry
|
|
|
|
|
+properties. Degree of N must be even. If it
|
|
|
|
|
+is odd then N should be divided by X+1.
|
|
|
|
|
+" "0D2007" :CSys) "^SHRINK2ASYM" ("N D \\-> N' D'
|
|
|
|
|
+" "Shrinks 2 polynomials using antisymmetry
|
|
|
|
|
+properties.
|
|
|
|
|
+" "0D3007" :CSys) "^SHRINKASYM" ("N \\-> N'
|
|
|
|
|
+" "Shrinks 1 polynomial using antisymmetry
|
|
|
|
|
+properties. Degree of N must be even. If it
|
|
|
|
|
+is odd then N should be divided by X+1.
|
|
|
|
|
+" "0D4007" :CSys) "^PNMax" ("P \\-> Z
|
|
|
|
|
+" "Gets the coefficient of P with max norm.
|
|
|
|
|
+" "103006" :CSys) "^SWAPNDXF" ("Qden Qnom \\-> symb
|
|
|
|
|
+" "Builds a symbolic from rational polynomial.
|
|
|
|
|
+" "161006" :CSys) "^NDXFext" ("Qnom Qden \\-> symb
|
|
|
|
|
+" "Builds a symbolic from rational polynomial.
|
|
|
|
|
+" "162006" :CSys) "^SWAPFXND" ("symb ob \\-> ob Qnom Qden
|
|
|
|
|
+" "Converts symbolic to rational polynomial.
|
|
|
|
|
+" "163006" :CSys) "^FXNDext" ("symb \\-> Qnom Qden
|
|
|
|
|
+" "Converts symbolic to rational polynomial.
|
|
|
|
|
+" "164006" :CSys) "^REGCDext" ("a b \\-> d u v au+bv=d
|
|
|
|
|
+" "" "3D7006" :CSys) "^EGCDext" ("a b \\-> d u v au+bv=d
|
|
|
|
|
+" "Bezout identity for polynomials.
|
|
|
|
|
+" "3D8006" :CSys) "^PEvalFast?" ("Z Pn \\-> Z Pn F / Pn[Z] T
|
|
|
|
|
+" "Attempts to evaluate Pn at X1=Z using fast
|
|
|
|
|
+register arithmetic.
|
|
|
|
|
+Fails if any of the following is true:
|
|
|
|
|
+Pn is not sunivariate;
|
|
|
|
|
+Z is polynomial after all;
|
|
|
|
|
+Z size is too big for register;
|
|
|
|
|
+Any overflow occurs during Horner evaluation.
|
|
|
|
|
+" "0EA006" :CSys) "^FLAGRESULTANT" ("symb1 symb2 \\-> symb
|
|
|
|
|
+" "Resultant of two polynomials in symbolic
|
|
|
|
|
+form.
|
|
|
|
|
+" "10E007" :1\.11 :CSys) "^Univar?" ("P \\-> P flag
|
|
|
|
|
+" "Tests if polynomial is univariate.
|
|
|
|
|
+" "10B006" :CSys) "^SUnivar?" ("P \\-> P flag
|
|
|
|
|
+" "Tests if polynomial is univariate and the
|
|
|
|
|
+coefficients are bounded by register size.
|
|
|
|
|
+" "10C006" :CSys) "^POLYPARITY" ("poly \\-> Z
|
|
|
|
|
+" "Tests if a polynomial (internal rep) is
|
|
|
|
|
+even/odd/none. Z=1 if even, -1 if odd, 0 if
|
|
|
|
|
+neither even nor odd.
|
|
|
|
|
+" "0CC007" :CSys) "^POLYSYM" ("P \\-> Z
|
|
|
|
|
+" "Tests symmetry of coefficients of polynomial.
|
|
|
|
|
+Z=1 for symmetric, -1 for anti, 0 otherwise.
|
|
|
|
|
+" "0D6007" :CSys) "^POLYASYM" ("P \\-> Z
|
|
|
|
|
+" "Tests \"antisymmetry\" of coef of polynomial.
|
|
|
|
|
+Z=1 for symmetric, -1 for anti, 0 otherwise.
|
|
|
|
|
+" "0D7007" :CSys) "^MULMULText" ("{} % \\-> {}'
|
|
|
|
|
+" "Multiplies multiplicities in a factor list by
|
|
|
|
|
+coeff.
|
|
|
|
|
+" "272006" :CSys) "^METAMULMULT" ("
|
|
|
|
|
+" "" "273006" :CSys) "^METAMM2" ("meta % \\-> meta'
|
|
|
|
|
+" "Multiplies by % all multiplicities of meta.
|
|
|
|
|
+" "274006" :CSys) "^COMPLISText" ("{} \\-> {}'
|
|
|
|
|
+" "" "275006" :CSys) "^METACOMPRIM" ("Meta \\-> Meta'
|
|
|
|
|
+" "Suppresses multiple occurrances of the same
|
|
|
|
|
+factor by adding corresponding
|
|
|
|
|
+multiplicities.
|
|
|
|
|
+" "276006" :CSys) "^METACOMP0" ("
|
|
|
|
|
+" "" "277006" :CSys) "^METACOMP1" ("f1...fk-1 mk-1 meta-res mk fk # \\-> f1...fk-1 mk-1 meta-res
|
|
|
|
|
+" "" "278006" :CSys) "^ADDLISText" ("{} %n ob \\-> {}'
|
|
|
|
|
+" "Adds ob with multiplicity %n to the
|
|
|
|
|
+list. Checks if ob is in {}.
|
|
|
|
|
+" "279006" :CSys) "^DIVISext" ("ob \\-> {divisors}
|
|
|
|
|
+" "Returns list of divisors of ob.
|
|
|
|
|
+" "27A006" :CSys) "^FACT1ext" ("symb-poly \\-> Lvar Q {}
|
|
|
|
|
+" "{} is the list of root/multiplicity of sym
|
|
|
|
|
+with respect to the current variable.
|
|
|
|
|
+" "27B006" :CSys) "^FACTOext" ("symb \\-> Lvar Q {}
|
|
|
|
|
+" "{} is the list of factors/multiplicity of
|
|
|
|
|
+symb.
|
|
|
|
|
+" "27C006" :CSys) "^ZFACTO" ("C \\-> {} C Lfact
|
|
|
|
|
+" "" "27D006" :CSys) "^SOLVext" ("symb \\-> {}
|
|
|
|
|
+" "Numeric solver for univariate polynomials.
|
|
|
|
|
+The list contains the roots without
|
|
|
|
|
+multiplicity.
|
|
|
|
|
+" "27E006" :CSys) "^FRND" ("ob \\-> ob')
|
|
|
|
|
+" "Float rounding for %%, C%% or list of either
|
|
|
|
|
+type. Used by SOLVext to reconstruct
|
|
|
|
|
+factors.
|
|
|
|
|
+" "27F006" :CSys) "^BICARREE?" ("P #5 \\-> meta cst_coeff T
|
|
|
|
|
+P #5 \\-> P #5 F
|
|
|
|
|
+P # \\-> P # F
|
|
|
|
|
+" "Searches if P is a bisquared 4-th order
|
|
|
|
|
+equation. Returns a meta of factors and the
|
|
|
|
|
+multiplying coeff in that QcaseQ.
|
|
|
|
|
+" "280006" :CSys) "^REALBICAR" ("f1 #1 coef \\-> meta rest T
|
|
|
|
|
+" "" "281006" :CSys) "^IROOTS" ("P \\-> list
|
|
|
|
|
+" "Finds integer roots of a polynomial.
|
|
|
|
|
+" "113007" :1\.11 :CSys) "^EVIDENText" ("P \\-> meta cst_coeff
|
|
|
|
|
+" "Returns the roots of a polynomial P.
|
|
|
|
|
+Calls the numeric solver.
|
|
|
|
|
+" "283006" :CSys) "^EVIDSOLV" ("P \\-> meta cst_coeff
|
|
|
|
|
+" "Returns the roots of a 1st, 2nd order and some
|
|
|
|
|
+other poly. Calls the numeric solver if
|
|
|
|
|
+exact solving fails.
|
|
|
|
|
+" "284006" :CSys) "^DEG2ext" ("P \\-> {}
|
|
|
|
|
+" "Returns the roots of a 2nd order polynomial.
|
|
|
|
|
+" "285006" :CSys) "^METADEG2" ("P \\-> P meta
|
|
|
|
|
+" "Returns the roots of a 2nd order polynomial.
|
|
|
|
|
+P must be of order 1 or 2.
|
|
|
|
|
+" "286006" :CSys) "^METADEG1" ("P \\-> P meta
|
|
|
|
|
+" "Returns the roots of a 1st order polynomial.
|
|
|
|
|
+P must be of order 1.
|
|
|
|
|
+" "287006" :CSys) "^DEG1" ("f \\-> r
|
|
|
|
|
+" "Root of a first order factor.
|
|
|
|
|
+f is one level depth deeper than r.
|
|
|
|
|
+" "288006" :CSys) "^FDEG2ext" ("P \\-> meta-fact cst_coef
|
|
|
|
|
+" "Returns factors of a 2nd order polynomial and
|
|
|
|
|
+the corresponding multiplying coefficient.
|
|
|
|
|
+tests for 1st order polynomial.
|
|
|
|
|
+" "289006" :CSys) "^RACTOFACext" ("r \\-> n d
|
|
|
|
|
+" "Converts root to factor.
|
|
|
|
|
+Factor is n/d, one level depth deeper than r.
|
|
|
|
|
+" "28B006" :CSys) "^FACTORACext" ("f \\-> r cst_coef
|
|
|
|
|
+" "Converts a factor to a root, solving 1st order
|
|
|
|
|
+factor. f and cst_coef are one level depth
|
|
|
|
|
+deeper than r.
|
|
|
|
|
+" "28C006" :CSys) "^RFACText" ("ob # \\-> {} intob meta
|
|
|
|
|
+" "{} is the list of variables. Meta is made of
|
|
|
|
|
+roots or factors of numerator (N) or
|
|
|
|
|
+denomenator (D) or both (N/D), depending on #.
|
|
|
|
|
+ZERO for roots N/D; ONE for roots N;
|
|
|
|
|
+TWO for roots D with numeric solver call;
|
|
|
|
|
+THREE for roots D without num. solver call;
|
|
|
|
|
+FOUR for factors N/D;
|
|
|
|
|
+FIVE for factors N;
|
|
|
|
|
+SIX for factors D with numeric solver call;
|
|
|
|
|
+SEVEN for factors D without num.solver call.
|
|
|
|
|
+" "28D006" :CSys) "^RFACT2ext" ("ob {} # \\-> {} intob meta
|
|
|
|
|
+" "Like <REF>RFACText, but the list of variables
|
|
|
|
|
+is given.
|
|
|
|
|
+" "28E006" :CSys) "^RFACTSTEP3" ("ob \\-> meta-fact
|
|
|
|
|
+" "Partial square-free factorization w.r.t. the
|
|
|
|
|
+main variable. Extract trivial factors Etape
|
|
|
|
|
+3 ob \\-> meta-fact.
|
|
|
|
|
+" "28F006" :CSys) "^RFACTSTEP5" ("%m on \\-> add-to-meta-res
|
|
|
|
|
+" "Factorization of a square-free polynomial.
|
|
|
|
|
+" "290006" :CSys) "^METASOLV" ("pn cst_coeff \\-> meta cst_coeff
|
|
|
|
|
+" "Non-integer factorization (sqrt extensions
|
|
|
|
|
+and numeric). multiplicty is in LAM 5,.
|
|
|
|
|
+" "291006" :CSys) "^METASOLVOUT" ("
|
|
|
|
|
+" "" "292006" :CSys) "^METASOLV2" ("cst_coeff p \\-> fr1 %m [fr2 %m] # cst_coeff
|
|
|
|
|
+" "Returns roots/factors of 1st and 2nd order
|
|
|
|
|
+polynomials.
|
|
|
|
|
+" "293006" :CSys) "^METASOLV4" ("cst1 f1 ... fk #k cst2 \\-> fr1 %m ... frn %m #2k cst_coeff
|
|
|
|
|
+" "Returns factors or convert to roots if
|
|
|
|
|
+needed.
|
|
|
|
|
+#k=1,2 or 4, fk are of order 1 or 2.
|
|
|
|
|
+" "294006" :CSys) "^ADDMULTIPL" ("meta cst_coeff \\-> meta' cst_coeff
|
|
|
|
|
+" "Adds multiplicities to a meta.
|
|
|
|
|
+Multiplicity is in LAM 5.
|
|
|
|
|
+" "295006" :CSys) "^FACTOOBJext" ("{ fact mult } flag prg* prg^ \\-> ob
|
|
|
|
|
+" "Rebuilds an object from its list of factors
|
|
|
|
|
+(flag=TRUE) or roots (flag=FALSE) using prg*
|
|
|
|
|
+to multiply and prg^ to take multiplicity
|
|
|
|
|
+power.
|
|
|
|
|
+" "296006" :CSys) "^ID>DERext" ("id \\-> {} stripped_id
|
|
|
|
|
+" "" "29C006" :CSys) "^ALG48MSOLV" ("Lp \\-> Lidnt Lsol
|
|
|
|
|
+" "Calculates Groebner basis multivar solution.
|
|
|
|
|
+LAM3 must be bound to Lvar and LAM4 to Lidnt.
|
|
|
|
|
+" "093006" :CSys) "^GMSOLV" ("Lp \\-> meta-sol
|
|
|
|
|
+" "Calculates Groebner basis multivar solutions.
|
|
|
|
|
+LAM1 must be bound to the number of vars
|
|
|
|
|
+A solution is a list { o1 ... on } where
|
|
|
|
|
+#n=LAM1
|
|
|
|
|
+ok embedded in k-1 lists is the value of the
|
|
|
|
|
+k-th var ok may be undef.
|
|
|
|
|
+" "094006" :CSys) "^GBASIS" ("Lp \\-> G
|
|
|
|
|
+" "Calculate Groebner basis.
|
|
|
|
|
+ G = { 1 } if no solutions
|
|
|
|
|
+ G = { 0 } if identically true.
|
|
|
|
|
+" "095006" :CSys) "^GSOLVE" ("Lp \\-> Lg
|
|
|
|
|
+" "Calculate factorized Groebner basis.
|
|
|
|
|
+ Lg = { Lg1 Lg2 .. Lgn }
|
|
|
|
|
+ Lgi = independent solution (probably)
|
|
|
|
|
+ Lg = {} if no solutions
|
|
|
|
|
+ Lg = { { 0 } } if identically true.
|
|
|
|
|
+" "096006" :CSys) "^GFACTOR" ("Lp fctr? \\-> Lg
|
|
|
|
|
+" "Calculate Groebner basis or factorized Groebner
|
|
|
|
|
+basis. Redundant bases are not removed.
|
|
|
|
|
+" "097006" :CSys) "^GREDUCE" ("
|
|
|
|
|
+" "Interreduce basis. Lambda variables
|
|
|
|
|
+ {{ fctr? G k tmp todo Lg Irred }}.
|
|
|
|
|
+" "098006" :CSys) "^REDUCE" ("p G \\-> q
|
|
|
|
|
+" "Reduces polynomial with respect to given
|
|
|
|
|
+basis.
|
|
|
|
|
+" "099006" :CSys) "^FASTREDUCE" ("r P \\-> q T / r P F
|
|
|
|
|
+" "Assembly version of REDUCE for polynomials
|
|
|
|
|
+with short coefficients. Returns FALSE if an
|
|
|
|
|
+overflow occurs during the reduction.
|
|
|
|
|
+Assumes r is a genuine polynomial (not
|
|
|
|
|
+constant). Assumes G is not empty. Assumes
|
|
|
|
|
+G does not contain zeros (is trimmed).
|
|
|
|
|
+" "09A006" :CSys) "^ROOTM2ROOT" ("{}/V \\-> V'
|
|
|
|
|
+" "Transforms list of root/multiplicites to
|
|
|
|
|
+vector of roots.
|
|
|
|
|
+" "37D006" :CSys) "^PASCAL_NEXTLINE" ("{} \\-> {}'
|
|
|
|
|
+" "Finds next line in the Pascal triangle.
|
|
|
|
|
+" "0F2007" :CSys) "^DELTAPSOLVE" ("Q \\-> P
|
|
|
|
|
+" "Solves P(x+1)-P(x)=Q(x).
|
|
|
|
|
+Internal polynomial function.
|
|
|
|
|
+" "0F3007" :CSys) "^LIMIText" ("
|
|
|
|
|
+" "" "46D006" :CSys) "^REWRITEIFINF" ("
|
|
|
|
|
+" "" "46E006" :CSys) "^SYMTAYLOR" ("symb id %/z \\-> symb
|
|
|
|
|
+" "Taylor series expansion around point 0
|
|
|
|
|
+(McLaurin's series) with regard to given
|
|
|
|
|
+variable, and of the given order.
|
|
|
|
|
+" "46F006" :CSys) "^SYMPAPRX" ("
|
|
|
|
|
+" "" "470006" :CSys) "^TRUNCDL" ("DL-l reste-l \\-> truncated_DL
|
|
|
|
|
+" "Series expansion truncation.
|
|
|
|
|
+" "471006" :CSys) "^LIMSERIES!" ("expression X=a|X %|zint \\->
|
|
|
|
|
+a lim DL-l rest-l num-l/deno-l equiv-l lvar #
|
|
|
|
|
+" "Series expansion.
|
|
|
|
|
+#=1 for X=a-h or X=-1/h.
|
|
|
|
|
+" "472006" :CSys) "^LIMITX!" ("
|
|
|
|
|
+" "" "473006" :CSys) "^LIMITNOVX!" ("
|
|
|
|
|
+" "" "474006" :CSys) "^LIMERR0!" ("
|
|
|
|
|
+" "" "475006" :CSys) "^LIMERR1!" ("
|
|
|
|
|
+" "" "476006" :CSys) "^LIMIT!" ("symb \\-> DL-l reste-l num-l/deno-l equiv.-l lim. lvar flag
|
|
|
|
|
+" "lim. = { symf direction }
|
|
|
|
|
+" "477006" :CSys) "^LIMSTEP1!" ("symb \\-> { DL-l reste-l num-l/deno-l equiv.-l } flag
|
|
|
|
|
+" "" "478006" :CSys) "^LIMSTEP2!" ("
|
|
|
|
|
+" "" "479006" :CSys) "^LIMSTEP3!" ("
|
|
|
|
|
+" "" "47A006" :CSys) "^LIMSTEP4!" ("
|
|
|
|
|
+" "" "47B006" :CSys) "^LIMLIM!" ("# lvar equiv-l \\-> lvar lim
|
|
|
|
|
+" "" "47C006" :CSys) "^n{}N" ("
|
|
|
|
|
+" "" "47D006" :CSys) "^LIMLIM1!" ("
|
|
|
|
|
+" "" "47E006" :CSys) "^LIMCMPL!" ("reste-1-l reste-2-l \\-> reste-l
|
|
|
|
|
+" "" "47F006" :CSys) "^LIMEQUFR!" ("n/d # \\-> n/d-l equiv %
|
|
|
|
|
+" "" "480006" :CSys) "^LIMEQU!" ("{} # \\-> {} / {}-equiv-l {}-equiv-l { # # # }
|
|
|
|
|
+" "" "481006" :CSys) "^LIMEQU0!" ("
|
|
|
|
|
+" "" "482006" :CSys) "^LIM+-!" ("DL1...DLn #n op \\-> DL flag
|
|
|
|
|
+" "DL = { DL-l reste-l num-l/deno-l equiv-l }.
|
|
|
|
|
+" "483006" :CSys) "^LIMERR10!" ("
|
|
|
|
|
+" "" "484006" :CSys) "^LIMNEG!" ("
|
|
|
|
|
+" "" "485006" :CSys) "^LIMRAC!" ("
|
|
|
|
|
+" "Racine carree, donc independant de x.
|
|
|
|
|
+" "486006" :CSys) "^LIMINV!" ("
|
|
|
|
|
+" "" "487006" :CSys) "^LIM/!" ("
|
|
|
|
|
+" "" "488006" :CSys) "^LIMPOW!" ("
|
|
|
|
|
+" "" "489006" :CSys) "^LIMSQ!" ("
|
|
|
|
|
+" "" "48A006" :CSys) "^LIM*!" ("
|
|
|
|
|
+" "" "48B006" :CSys) "^LIMDIVPC!" ("#ordre num-l deno-l \\-> num-l deno-l
|
|
|
|
|
+" "" "48C006" :CSys) "^DIVPC!" ("
|
|
|
|
|
+" "" "48D006" :CSys) "^LIMPROFEND!" ("num deno #prof \\-> num deno
|
|
|
|
|
+" "" "48E006" :CSys) "^LIMPROF!" ("
|
|
|
|
|
+" "" "48F006" :CSys) "^LIM%#!" ("num-l deno-l {%...%} \\-> num-l' deno-l' #prof {%...%}
|
|
|
|
|
+" "" "490006" :CSys) "^LIMPROF0!" ("
|
|
|
|
|
+" "" "491006" :CSys) "^LIMPROF1!" ("
|
|
|
|
|
+" "" "492006" :CSys) "^LIMPROF2!" ("
|
|
|
|
|
+" "" "493006" :CSys) "^LIMINVLN!" ("
|
|
|
|
|
+" "Operator INV[-LN].
|
|
|
|
|
+" "494006" :CSys) "^LIMLN!" ("
|
|
|
|
|
+" "Operator LN.
|
|
|
|
|
+" "495006" :CSys) "^LIMEXP!" ("
|
|
|
|
|
+" "" "496006" :CSys) "^LIMSINCOS!" ("
|
|
|
|
|
+" "" "497006" :CSys) "^LIMATAN!" ("
|
|
|
|
|
+" "" "498006" :CSys) "^LIMASIN!" ("
|
|
|
|
|
+" "" "499006" :CSys) "^LIMSQRT!" ("
|
|
|
|
|
+" "" "49A006" :CSys) "^LIMFLOOR!" ("
|
|
|
|
|
+" "" "49B006" :CSys) "^LIMABS!" ("
|
|
|
|
|
+" "" "49C006" :CSys) "^LPROF!" ("
|
|
|
|
|
+" "" "49D006" :CSys) "^LIM#VARX!" ("lvar lvar \\-> #varx
|
|
|
|
|
+" "" "49E006" :CSys) "^LIMBETA!" ("
|
|
|
|
|
+" "" "49F006" :CSys) "^LIMALPHA!" ("
|
|
|
|
|
+" "" "4A0006" :CSys) "^HORNEXP!" ("lim lvar X-l reste-l \\-> lvar DL reste-l
|
|
|
|
|
+" "" "4A1006" :CSys) "^HORNCOS!" ("
|
|
|
|
|
+" "" "4A2006" :CSys) "^HORNSIN!" ("
|
|
|
|
|
+" "" "4A3006" :CSys) "^LIMSC0!" ("
|
|
|
|
|
+" "" "4A4006" :CSys) "^LIMSC1!" ("
|
|
|
|
|
+" "" "4A5006" :CSys) "^HORNATAN!" ("
|
|
|
|
|
+" "" "4A6006" :CSys) "^LIMATAS!" ("
|
|
|
|
|
+" "" "4A7006" :CSys) "^HORNASIN!" ("
|
|
|
|
|
+" "" "4A8006" :CSys) "^HORNASIN1!" ("
|
|
|
|
|
+" "" "4A9006" :CSys) "^HORNLN!" ("
|
|
|
|
|
+" "" "4AA006" :CSys) "^LNOBJ!" ("
|
|
|
|
|
+" "" "4AB006" :CSys) "^NEWLIMHORN" ("
|
|
|
|
|
+" "" "4AC006" :CSys) "^LIMHORN!" ("
|
|
|
|
|
+" "" "4AD006" :CSys) "^LRDM!" ("
|
|
|
|
|
+" "" "4AE006" :CSys) "^LIMDL!" ("
|
|
|
|
|
+" "" "4AF006" :CSys) "^LIMDLINF!" ("
|
|
|
|
|
+" "" "4B0006" :CSys) "^LIMINFSIGN!" ("
|
|
|
|
|
+" "" "4B1006" :CSys) "^LIMMAX!" ("
|
|
|
|
|
+" "" "4B2006" :CSys) "^LIMCOMP!" ("
|
|
|
|
|
+" "" "4B3006" :CSys) "^VARCOMP2!" ("
|
|
|
|
|
+" "" "4B4006" :CSys) "^LIMSORT!" ("
|
|
|
|
|
+" "" "4B5006" :CSys) "^VARCOMP!" ("var1 var2 \\-> flag
|
|
|
|
|
+" "" "4B6006" :CSys) "^VARCOMPLN!" ("
|
|
|
|
|
+" "" "4B7006" :CSys) "^VARCOMP3!" ("
|
|
|
|
|
+" "" "4B8006" :CSys) "^VARCOMP31!" ("
|
|
|
|
|
+" "" "4B9006" :CSys) "^VARCOMP32!" ("var \\-> 0:
|
|
|
|
|
+" "" "4BA006" :CSys) "^VARCOMP33!" ("
|
|
|
|
|
+" "" "4BB006" :CSys) "^LIMERR6!" ("
|
|
|
|
|
+" "" "4BC006" :CSys) "^LIMVALOBJ!" ("ob lvar \\-> symb
|
|
|
|
|
+" "" "4BD006" :CSys) "^LIMVAL!" ("ob \\-> coeff val
|
|
|
|
|
+" "" "4BE006" :CSys) "^EQUIV!" ("{} lequiv \\-> equiv ordre
|
|
|
|
|
+" "" "4BF006" :CSys) "^LVARXNX2!" ("ob \\-> ob lvarx lvarnx
|
|
|
|
|
+" "" "4C0006" :CSys) "^SIMP1!" ("
|
|
|
|
|
+" "" "4C1006" :CSys) "^FindCurVar" ("symb \\-> symb
|
|
|
|
|
+" "Sets a new current var if needed.
|
|
|
|
|
+" "4C2006" :CSys) "^LIMVAR!" ("symb \\-> symb lvar
|
|
|
|
|
+" "" "4C3006" :CSys) "^VAR%" ("
|
|
|
|
|
+" "" "4C4006" :CSys) "^RISCH13" ("{}/{}' \\-> {}''
|
|
|
|
|
+" "Assuming {}' has length 1, divides all
|
|
|
|
|
+elements of {} by this element. Used by
|
|
|
|
|
+RISCHext and by SERIES to have a nicer output
|
|
|
|
|
+of series.
|
|
|
|
|
+" "15C006" :CSys) "^PDer" ("{} \\-> der
|
|
|
|
|
+" "" "3DC006" :CSys) "^ssSYMDER" ("
|
|
|
|
|
+" "Algebraic derivative.
|
|
|
|
|
+" "19F006" :CSys) "^SYMDER" ("
|
|
|
|
|
+" "" "1A0006" :CSys) "^DERIVext" ("ob id \\-> ob'
|
|
|
|
|
+ob sym \\-> ob'
|
|
|
|
|
+ob V \\-> V'
|
|
|
|
|
+" "Calculates the derivative of the object. For
|
|
|
|
|
+a list argument calculates the gradient with
|
|
|
|
|
+respect to the variables in the list. If the
|
|
|
|
|
+variable is a symbolic, the first variable in
|
|
|
|
|
+it is used. Note that the gradient is a
|
|
|
|
|
+vector quantity, thus the result is returned
|
|
|
|
|
+as a list.
|
|
|
|
|
+" "1A1006" :CSys) "^siSYMDER" ("
|
|
|
|
|
+" "" "1A2006" :CSys) "^DERIVIDNT" ("ob id \\-> ob'
|
|
|
|
|
+" "Main entry point for derivative with respect
|
|
|
|
|
+to a identifier.
|
|
|
|
|
+" "1A3006" :CSys) "^DERIVIDNT1" ("ob \\-> ob'
|
|
|
|
|
+" "Main entry point for derivative with respect
|
|
|
|
|
+to the identifier stored in LAM1.
|
|
|
|
|
+" "1A4006" :CSys) "^DERIV" ("symb \\-> symb'
|
|
|
|
|
+" "Derivative of symb with respect to the
|
|
|
|
|
+variable stored in LAM1.
|
|
|
|
|
+" "1A5006" :CSys) "^METADERIV" ("Meta \\-> Meta'
|
|
|
|
|
+" "Derivative of Meta object.
|
|
|
|
|
+" "1A6006" :CSys) "^METADER&NEG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative and negate.
|
|
|
|
|
+" "1BD006" :CSys) "^METADEROP" ("
|
|
|
|
|
+" "Table of derivable functions and the
|
|
|
|
|
+respective derivative calculation
|
|
|
|
|
+subroutines.
|
|
|
|
|
+" "1A8006" :CSys) "^METADER+" ("Meta&+ \\-> Meta'
|
|
|
|
|
+" "Meta derivative of addition.
|
|
|
|
|
+" "1A9006" :CSys) "^METADER-" ("Meta&- \\-> Meta'
|
|
|
|
|
+" "Meta derivative of subtraction.
|
|
|
|
|
+" "1AA006" :CSys) "^METADER*" ("Meta&* \\-> Meta'
|
|
|
|
|
+" "Meta derivative of multiplication.
|
|
|
|
|
+" "1AB006" :CSys) "^METADER/" ("Meta&/ \\-> Meta'
|
|
|
|
|
+" "Meta derivative of division.
|
|
|
|
|
+" "1AC006" :CSys) "^METADER^" ("Meta&^ \\-> Meta'
|
|
|
|
|
+" "Meta derivative of power.
|
|
|
|
|
+" "1AD006" :CSys) "^METADERFCN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of a function.
|
|
|
|
|
+" "1AE006" :CSys) "^METADERDER" ("symb_id_; sym_fcn_; xDER #3 \\-> Meta'
|
|
|
|
|
+" "Meta derivative of a derivative of a
|
|
|
|
|
+function.
|
|
|
|
|
+" "1AF006" :CSys) "^METADERI4" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of a defined integral.
|
|
|
|
|
+" "1B0006" :CSys) "^METADERI3" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of an undefined integral.
|
|
|
|
|
+" "1B1006" :CSys) "^METADERIFTE" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of IFTE.
|
|
|
|
|
+" "1B2006" :CSys) "^METADEREXP" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QEXPQ.
|
|
|
|
|
+" "1B4006" :CSys) "^METADERLN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QLNQ.
|
|
|
|
|
+" "1B5006" :CSys) "^METADERLNP1" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QLNP1Q.
|
|
|
|
|
+" "1B6006" :CSys) "^METADERLOG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QLOGQ.
|
|
|
|
|
+" "1B7006" :CSys) "^METADERALOG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QALOGQ.
|
|
|
|
|
+" "1B8006" :CSys) "^METADERABS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QABSQ.
|
|
|
|
|
+" "1B9006" :CSys) "^METADERINV" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QINVQ.
|
|
|
|
|
+" "1BA006" :CSys) "^METADERNEG" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QNEGQ.
|
|
|
|
|
+" "1BB006" :CSys) "^METADERSQRT" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QSQRTQ.
|
|
|
|
|
+" "1BC006" :CSys) "^METADERSQ" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QSQQ.
|
|
|
|
|
+" "1BE006" :CSys) "^METADERSIN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QSINQ.
|
|
|
|
|
+" "1BF006" :CSys) "^METADERCOS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QCOSQ.
|
|
|
|
|
+" "1C0006" :CSys) "^METADERTAN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QTANQ.
|
|
|
|
|
+" "1C1006" :CSys) "^METADERSINH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QSINHQ.
|
|
|
|
|
+" "1C2006" :CSys) "^METADERCOSH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QCOSHQ.
|
|
|
|
|
+" "1C3006" :CSys) "^METADERTANH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QTANHQ.
|
|
|
|
|
+" "1C4006" :CSys) "^METADERASIN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QASINQ.
|
|
|
|
|
+" "1C5006" :CSys) "^METADERACOS" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QACOSQ.
|
|
|
|
|
+" "1C6006" :CSys) "^METADERATAN" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QATANQ.
|
|
|
|
|
+" "1C7006" :CSys) "^METADERASH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QASINHQ.
|
|
|
|
|
+" "1C8006" :CSys) "^METADERACH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QACOSHQ.
|
|
|
|
|
+" "1C9006" :CSys) "^METADERATH" ("Meta \\-> Meta'
|
|
|
|
|
+" "Meta derivative of QATANHQ.
|
|
|
|
|
+" "1CA006" :CSys) "^DERARG" ("meta-symb \\-> arg1 ... argk der1 ... derk #k op
|
|
|
|
|
+" "Finds derivative of arguments.
|
|
|
|
|
+" "1B3006" :CSys) "^pshder*" ("Meta1 Meta2 \\-> Meta2&Meta1'&*
|
|
|
|
|
+" "Meta derivative utility.
|
|
|
|
|
+" "1CB006" :CSys) "^SQRTINVpshd*" ("Meta1 Meta2 \\-> Meta2&SQRT&INV&Meta1'&*
|
|
|
|
|
+" "Meta derivative utility.
|
|
|
|
|
+" "1CC006" :CSys) "^ODE_INT" ("symb idnt \\-> symb
|
|
|
|
|
+" "Integration with addition of a constant.
|
|
|
|
|
+" "07F007" :CSys) "^IBP" ("u'*v u \\-> u*v -u*v'
|
|
|
|
|
+" "Internal integration by parts. If u is a
|
|
|
|
|
+constant return INTVX(u'*v)+u. If stack 2 is a
|
|
|
|
|
+list it must be of the form { olduv u'*v }
|
|
|
|
|
+then olduv will be added to u*v at stack
|
|
|
|
|
+level 2. This permits multiple IBP in
|
|
|
|
|
+algebraic mode, e.g.
|
|
|
|
|
+ IBP(ASIN(X)^2,X)
|
|
|
|
|
+ IBP(ANS(1),sqrt(1-X^2))
|
|
|
|
|
+ IBP(ANS(1),C) the last step with an integral
|
|
|
|
|
+ containing a cst C.
|
|
|
|
|
+" "2C5006" :CSys) "^PREVALext" ("symb inf sup x \\-> symb|x=sup - symb|x=inf
|
|
|
|
|
+" "Evaluates an antiderivative between 2 bounds
|
|
|
|
|
+Does not check for discontinuities of symb in
|
|
|
|
|
+this interval.
|
|
|
|
|
+" "2D0006" :CSys) "^WARNSING" ("symb inf sup vx \\-> symb inf sup vx
|
|
|
|
|
+" "Warns user for singularity.
|
|
|
|
|
+" "2D1006" :CSys) "^INText" ("symb x \\-> int[$,x, symb, xt]
|
|
|
|
|
+" "Return unevaluated integral.
|
|
|
|
|
+" "2D2006" :CSys) "^INT3" ("f(x) x y \\-> F(y) where F'=f
|
|
|
|
|
+" "Undefined integration.
|
|
|
|
|
+No limit for underdetermined form.
|
|
|
|
|
+" "2D3006" :CSys) "^INTEGRext" ("{} \\-> prim
|
|
|
|
|
+" "" "3DD006" :CSys) "^PARTFRAC" ("o \\-> symb
|
|
|
|
|
+" "Partial fraction expansion of o with respect to
|
|
|
|
|
+the current variable.
|
|
|
|
|
+" "3D2006" :CSys) "^INPARTFRAC" ("o list \\-> symb
|
|
|
|
|
+" "Partial fraction expansion of o.
|
|
|
|
|
+lvar must be bound to LAM2,
|
|
|
|
|
+list is =lvar if o is in external format.
|
|
|
|
|
+list is NULL{} if o is still in internal
|
|
|
|
|
+format.
|
|
|
|
|
+" "3D3006" :CSys) "^PARTFRACRAT" ("
|
|
|
|
|
+" "" "3D4006" :CSys) "^PFext" ("
|
|
|
|
|
+" "" "3D5006" :CSys) "^DESOLVE" ("list symb1 \\-> list_sols
|
|
|
|
|
+symb symb1 \\-> list_sols
|
|
|
|
|
+" "Solves ordinary differential equation.
|
|
|
|
|
+For some ode's returned level2 is not symb1.
|
|
|
|
|
+" "07E007" :CSys) "^LDECSOLV" ("2nd_member char_eq \\-> solution
|
|
|
|
|
+" "Linear differential equation with constant
|
|
|
|
|
+coefficients.
|
|
|
|
|
+" "081007" :CSys) "^LDEGENE" ("eq. carac \\-> sol generale
|
|
|
|
|
+" "" "082007" :CSys) "^LDEPART" ("2nd membre, eq carac \\-> eq. carac, sol part
|
|
|
|
|
+" "" "083007" :CSys) "^LDSSOLVext" ("V M \\-> V'
|
|
|
|
|
+" "M is the matrix of the system.
|
|
|
|
|
+V is the vector of the 2nd members.
|
|
|
|
|
+" "084007" :CSys) "^ODETYPESTO" ("type \\->
|
|
|
|
|
+" "Store ode type in variable ODETYPE.
|
|
|
|
|
+" "085007" :CSys) "^ODE_SEPAR" ("symb \\-> symb symb-y symb-x T
|
|
|
|
|
+ \\-> symb F
|
|
|
|
|
+" "Tries to separate symb as a product of a
|
|
|
|
|
+function of y and a function of x.
|
|
|
|
|
+" "086007" :CSys) "^LAPext" ("symb \\-> symb'
|
|
|
|
|
+" "Laplace transform for polynomial*exp/sin/cos.
|
|
|
|
|
+Returns LAP() for unknown transforms.
|
|
|
|
|
+" "087007" :CSys) "^ILAPext" ("symb \\-> symb'
|
|
|
|
|
+" "Inverse Laplace transform for rational fractions.
|
|
|
|
|
+Delta functions for the integral part.
|
|
|
|
|
+" "088007" :CSys) "^ILAPRAText" ("
|
|
|
|
|
+" "" "089007" :CSys) "^ILAPDELTA" ("
|
|
|
|
|
+" "" "08A007" :CSys) "^ILAPEXP" ("ck rk \\-> ck*exp[rk*x]
|
|
|
|
|
+" "" "08B007" :CSys) "^ILAPEXPSC" ("
|
|
|
|
|
+" "" "08C007" :CSys) "^QUOTExSIGMA" ("
|
|
|
|
|
+" "" "0F8007" :CSys) "^SUM" ("sym idnt \\-> sym
|
|
|
|
|
+" "Internal SUM. The variable can be
|
|
|
|
|
+specified.
|
|
|
|
|
+" "0F9007" :CSys) "^FLAGSUM" ("
|
|
|
|
|
+" "" "0FA007" :CSys) "^SUMVX" ("sym \\-> sym
|
|
|
|
|
+" "Internal SUMVX. Works always with respect to
|
|
|
|
|
+the current variable.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "0FB007" :CSys) "^FLAGSUMVX" ("
|
|
|
|
|
+" "" "0FC007" :CSys) "^RATSUM" ("sym \\-> sym
|
|
|
|
|
+" "Discrete rational sum.
|
|
|
|
|
+" "0FD007" :CSys) "^FTAYL" ("f shift \\-> f'
|
|
|
|
|
+" "Taylor shift for rational fractions.
|
|
|
|
|
+" "0FE007" :CSys) "^CSTFRACTION?" ("ob \\-> ob flag
|
|
|
|
|
+" "Taylor shift for rational fractions. Returns
|
|
|
|
|
+TRUE if ob is a cst fraction.
|
|
|
|
|
+" "0FF007" :CSys) "^HYPERGEO" ("symb \\-> symb
|
|
|
|
|
+" "Tests and does hypergeometric summation.
|
|
|
|
|
+" "104007" :1\.11 :CSys) "^NONRATSUM" ("z/symb \\-> symb
|
|
|
|
|
+" "Discrete summation (hypergeometric QcaseQ).
|
|
|
|
|
+" "100007" :CSys) "^meta_cst?" ("meta \\-> meta flag
|
|
|
|
|
+" "Tests for meta to be cst with respect to
|
|
|
|
|
+current var.
|
|
|
|
|
+" "103007" :1\.11 :CSys) "^fk+1/fk" ("
|
|
|
|
|
+" "" "105007" :1\.11 :CSys) "^ZEILBERGER" ("f(n,k) n k d \\-> C T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Zeilberger algorithm * QNOTQ IMPLEMENTED YET*.
|
|
|
|
|
+" "108007" :1\.11 :CSys) "^SYMPSI" ("sym \\-> Psi(x)
|
|
|
|
|
+" "Digamma function.
|
|
|
|
|
+" "109007" :1\.11 :CSys) "^sympsi" ("
|
|
|
|
|
+" "" "10A007" :1\.11 :CSys) "^SYMPSIN" ("sym int \\-> Psi(x,n)
|
|
|
|
|
+" "Digamma function.
|
|
|
|
|
+" "10B007" :1\.11 :CSys) "^sympsin" ("
|
|
|
|
|
+" "" "10C007" :1\.11 :CSys) "^%%PSI" ("%%x \\-> %%
|
|
|
|
|
+" "Digamma function.
|
|
|
|
|
+" "11C007" :1\.11) "^IBERNOULLI" ("#/zint \\-> Q
|
|
|
|
|
+" "Bernoulli numbers.
|
|
|
|
|
+" "10D007" :1\.11 :CSys) "^PARITYTEST" ("
|
|
|
|
|
+" "" "0CD007" :CSys) "^COSTEST" ("
|
|
|
|
|
+" "" "0CE007" :CSys) "^NDEvalN/D" ("num deno n d \\-> num' deno'
|
|
|
|
|
+" "Evals list poly over a list fraction.
|
|
|
|
|
+" "0D9007" :CSys) "^PEvalN/D" ("P n d \\-> num d #
|
|
|
|
|
+" "Evals list poly over a list fraction.
|
|
|
|
|
+" "0DA007" :CSys) "^vgerxssSYMSUM" ("Meta2 Meta1 \\-> meta
|
|
|
|
|
+" "Symbolic sum with tests for two zints.
|
|
|
|
|
+lam'sumvar bound to 'id/lam' and lam'sumexpr
|
|
|
|
|
+to 'expr'.
|
|
|
|
|
+" "3C1006" :CSys) "^MAT*SCMOD" ("
|
|
|
|
|
+" "mat*scalar modulo.
|
|
|
|
|
+" "246006" :CSys) "^SC*MATMOD" ("
|
|
|
|
|
+" "scalar*mat modulo.
|
|
|
|
|
+" "247006" :CSys) "^MAT*MATMOD" ("
|
|
|
|
|
+" "mat*mat modulo.
|
|
|
|
|
+" "248006" :CSys) "^DIVMOD" ("
|
|
|
|
|
+" "division modulo.
|
|
|
|
|
+" "249006" :CSys) "^GCD1MOD" ("
|
|
|
|
|
+" "GCD modulo.
|
|
|
|
|
+" "24A006" :CSys) "^INVMOD" ("
|
|
|
|
|
+" "Inversion modulo for zint.
|
|
|
|
|
+" "24B006" :CSys) "^MINVMOD" ("
|
|
|
|
|
+" "Inversion modulo for matrix of zint.
|
|
|
|
|
+" "24C006" :CSys) "^FLAGDIV2MOD" ("
|
|
|
|
|
+" "Euclidean division modulo.
|
|
|
|
|
+" "24D006" :CSys) "^FLAGPOWMOD" ("
|
|
|
|
|
+" "Power modulo.
|
|
|
|
|
+" "24E006" :CSys) "^FLAGMPOWMOD" ("
|
|
|
|
|
+" "Matrix Power modulo.
|
|
|
|
|
+" "24F006" :CSys) "^EXPAMOD" ("
|
|
|
|
|
+" "expand modulo.
|
|
|
|
|
+" "250006" :CSys) "^FLAGEXPAMOD" ("
|
|
|
|
|
+" "" "251006" :CSys) "^FLAGFACTORMOD" ("symb \\-> symb
|
|
|
|
|
+" "FACTOR modulo.
|
|
|
|
|
+" "252006" :CSys) "^MFACTORMOD" ("M \\-> M'
|
|
|
|
|
+" "FACTOR modulo for amtrices.
|
|
|
|
|
+" "253006" :CSys) "^RREFMOD" ("
|
|
|
|
|
+" "RREF modulo.
|
|
|
|
|
+" "254006" :CSys) "^LIFCext" ("{contfrac} \\-> fraction
|
|
|
|
|
+" "Converts continued fraction to rational.
|
|
|
|
|
+" "256006" :CSys) "^PEvalMod" ("Q Z Zn \\-> Q'
|
|
|
|
|
+" "Computes value of polynomial mod Zn.
|
|
|
|
|
+" "0E1006" :CSys) "^QAddMod" ("Q1 Q2 Zn \\-> Q'
|
|
|
|
|
+" "Polynomial addition modulo Zn.
|
|
|
|
|
+" "0E2006" :CSys) "^QSubMod" ("Q1 Q2 Zn \\-> Q'
|
|
|
|
|
+" "Polynomial subtraction modulo Zn.
|
|
|
|
|
+" "0E3006" :CSys) "^QMulMod" ("Q1 Q2 Zn \\-> Q'
|
|
|
|
|
+" "Polynomial multiplication modulo Zn.
|
|
|
|
|
+" "0E4006" :CSys) "^QDivMod" ("Q1 Q2 Zn \\-> Qquo Qrem
|
|
|
|
|
+" "Polynomial division modulo Zn. In regular
|
|
|
|
|
+division the coefficients in the remainder
|
|
|
|
|
+can increase very quickly to tens of digits,
|
|
|
|
|
+thus it is important to normalize the
|
|
|
|
|
+coefficients whenever possible.
|
|
|
|
|
+" "0E5006" :CSys) "^QInvMod" ("Q Zn \\-> Q'
|
|
|
|
|
+" "Polynomial inversion modulo Zn.
|
|
|
|
|
+" "0E6006" :CSys) "^QGcdMod" ("Q1 Q2 Zn \\-> Q'
|
|
|
|
|
+" "Polynomial GCD modulo Zn for univariate
|
|
|
|
|
+polynomials. The result is made monic.
|
|
|
|
|
+" "0E7006" :CSys) "^QGcdExMod" ("
|
|
|
|
|
+" "Extended polynomial GCD modulo Zn for
|
|
|
|
|
+univariate polynomials. The equation:
|
|
|
|
|
+Q1*Q1' + Q2*Q2' = 1 MOD Zn.
|
|
|
|
|
+" "0E8006" :CSys) "^ISOL1" ("symb id \\-> id symb'
|
|
|
|
|
+" "" "4C5006" :CSys) "^ISOLALL" ("symb id \\-> id {}
|
|
|
|
|
+" "Internal SOLVE.
|
|
|
|
|
+" "4C6006" :CSys) "^ISOL2ext" ("symb id \\-> symb'
|
|
|
|
|
+symb id \\-> {}
|
|
|
|
|
+" "Like <REF>ISOL1 if isolflag is set.
|
|
|
|
|
+Otherwise returns the list of all found
|
|
|
|
|
+solutions.
|
|
|
|
|
+" "4C7006" :CSys) "^BEZOUTMSOLV" ("Lpoly Lidnt \\-> Lidnt sols
|
|
|
|
|
+" "If no extension in Lpoly, calls ALG48 GSOLVE
|
|
|
|
|
+Otherwise, solves by Bezout \"Gaussian\"
|
|
|
|
|
+elimination. In the latter case, if system
|
|
|
|
|
+seems underdetermined, Lidnt is truncated.
|
|
|
|
|
+Then the system must be exactly determined
|
|
|
|
|
+and polynomials must be prime together.
|
|
|
|
|
+" "4C8006" :CSys) "^ROOT{}N" ("meta of roots \\-> list of roots
|
|
|
|
|
+" "Drops tagged roots.
|
|
|
|
|
+" "4C9006" :CSys) "^MHORNER" ("poly-l {r1...rk} # \\-> P[r1...rk]
|
|
|
|
|
+" "Top-level call. Poly-l might be a matrix.
|
|
|
|
|
+" "4CA006" :CSys) "^MHORNER1" ("P { r } \\-> P[..r..]
|
|
|
|
|
+" "" "4CB006" :CSys) "^SQFFext" ("Q \\-> { F1 mult1 .. Fn multn }
|
|
|
|
|
+" "" "4CC006" :CSys) "^MSQFF" ("Q \\-> F1 mult1 .. Fn multn #2n
|
|
|
|
|
+" "Full square-free factorization of object. The
|
|
|
|
|
+result is given as a Meta object.
|
|
|
|
|
+" "4CD006" :CSys) "^%1TWO" ("ob \\-> ob %1 #2
|
|
|
|
|
+" "Square free factorization of unknown (?)
|
|
|
|
|
+object. See MSQFF.
|
|
|
|
|
+" "4CE006" :CSys) "^MZSQFF" ("Z \\-> Z1 mult1 .. Zn multn #2n
|
|
|
|
|
+" "Full factorization of an integer.
|
|
|
|
|
+" "4CF006" :CSys) "^MZSQFF1" ("Meta curfac %n newfac T \\-> Meta curfac %n+1
|
|
|
|
|
+Meta curfac %n newfac F \\-> Meta' newfac %1
|
|
|
|
|
+" "Adds integer factor to factor list. If the
|
|
|
|
|
+factor is the same as the last time, only the
|
|
|
|
|
+multiplicity is increased.
|
|
|
|
|
+" "4D0006" :CSys) "^MLISTSQFF" ("P \\-> Meta
|
|
|
|
|
+" "Full square-free factorization of a
|
|
|
|
|
+polynomial with a recursive call on the GCD
|
|
|
|
|
+of all coefficients.
|
|
|
|
|
+" "4D2006" :CSys) "^METASQFFext" ("P-list \\-> S1 %1 ..Se-1 %e-1 %e ee Te Re
|
|
|
|
|
+" "Square-free factorization.
|
|
|
|
|
+" "4D3006" :CSys) "^LIDNText" ("ob \\-> {}
|
|
|
|
|
+" "Gets list of all ids present in ob.
|
|
|
|
|
+" "4DE006" :CSys) "^LVARXNXext" ("symb \\-> symb x lvarnx lvarx
|
|
|
|
|
+" "Finds variable of symb depending on current
|
|
|
|
|
+variable and other variable. Using LVAR is
|
|
|
|
|
+impossible here because of sqrt.
|
|
|
|
|
+" "4DF006" :CSys) "^ISPOLYNOMIAL?" ("ob \\-> flag
|
|
|
|
|
+" "Returns TRUE if symb is polynomial with
|
|
|
|
|
+respect to current variable.
|
|
|
|
|
+" "4E0006" :CSys) "^2POLYNOMIAL?" ("symb1 symb2 \\-> symb1 symb2 flag
|
|
|
|
|
+" "Returns TRUE if symb1 and symb2 are
|
|
|
|
|
+polynomial with respect to current variable.
|
|
|
|
|
+" "4E1006" :CSys) "^VXINDEP?" ("symb \\-> symb flag
|
|
|
|
|
+" "Returns TRUE if symb is independent of
|
|
|
|
|
+current variable.
|
|
|
|
|
+" "4E2006" :CSys) "^LVARXNX2ext" ("
|
|
|
|
|
+" "" "4E3006" :CSys) "^RLVARext" ("ob \\-> {}
|
|
|
|
|
+" "Recursive search of all variables.
|
|
|
|
|
+" "4E4006" :CSys) "^LLVARDext" ("o \\-> #depth o lvar
|
|
|
|
|
+" "" "4E5006" :CSys) "^VXLVARext" ("symb \\-> symb lvar
|
|
|
|
|
+" "" "4E6006" :CSys) "^LVARext" ("ob \\-> ob {}
|
|
|
|
|
+" "List of variables. Square roots *are* included
|
|
|
|
|
+in the list of rational operators.
|
|
|
|
|
+" "4E7006" :CSys) "^VX>LVARext" ("ob \\-> ob {}
|
|
|
|
|
+" "Like <REF>LVARext but the current variable is
|
|
|
|
|
+added using >HCOMP. Square roots *are*
|
|
|
|
|
+included in the list of rational operators.
|
|
|
|
|
+" "4E8006" :CSys) "^VX>" ("{} \\-> {}'
|
|
|
|
|
+" "If VX is in the list then moves it to the
|
|
|
|
|
+beginning of the list. Otherwise does
|
|
|
|
|
+nothing.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "4E9006" :CSys) "^VX!" ("{} \\-> {}
|
|
|
|
|
+" "If VX is in the list then moves it at the
|
|
|
|
|
+beginning. Otherwise VX is added to the
|
|
|
|
|
+beginning of the list.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "4EA006" :CSys) "^LIDNTLVAR" ("symb lidnt \\-> symb lidnt lvar
|
|
|
|
|
+" "lvar is the list of variables in symb, but
|
|
|
|
|
+elements of lidnt are moved to the beginning
|
|
|
|
|
+of lvar.
|
|
|
|
|
+" "4EC006" :CSys) "^LISTOPRAC" ("\\-> {}
|
|
|
|
|
+" "Returns the list of rational operator with
|
|
|
|
|
+sqrt appended to the list.
|
|
|
|
|
+" "4ED006" :CSys) "^LISTOPext" ("\\-> {}
|
|
|
|
|
+" "List of basic \"rational\" operators without
|
|
|
|
|
+square root.
|
|
|
|
|
+" "4EE006" :CSys) "^LISTOPSQRT" ("\\-> {}
|
|
|
|
|
+" "List of basic \"rational\" operators with
|
|
|
|
|
+square root.
|
|
|
|
|
+" "4EF006" :CSys) "^LVARDext" ("ob listop \\-> lidnt
|
|
|
|
|
+Meta listop \\-> lidnt
|
|
|
|
|
+" "Determines list of variables in ob (or Meta)
|
|
|
|
|
+using the given list of basic \"rational\"
|
|
|
|
|
+operators.
|
|
|
|
|
+" "4F0006" :CSys) "^>VARLIST" ("
|
|
|
|
|
+" "" "4F1006" :CSys) "^DEPTHext" ("ob \\-> #
|
|
|
|
|
+" "Returns the max number of embedded lists in
|
|
|
|
|
+ob.
|
|
|
|
|
+" "4F2006" :CSys) "^DEPTHOBJext" ("objet # \\-> depth
|
|
|
|
|
+" "" "4F3006" :CSys) "^TRIMOBJext" ("ob \\-> ob '
|
|
|
|
|
+" "Trims object.
|
|
|
|
|
+" "4F6006" :CSys) "^NEWTRIMext" ("Q \\-> Q
|
|
|
|
|
+" "Recursively tests if Q is a list of one
|
|
|
|
|
+constant element. This is much faster than
|
|
|
|
|
+TRIMOBJext and sufficient for the output of
|
|
|
|
|
+programs which are trimmed on the fly.
|
|
|
|
|
+" "4F7006" :CSys) "^>POLYTRIM" ("meta \\-> {}
|
|
|
|
|
+" "Equivalent to {}POLY TRIMOBJext.
|
|
|
|
|
+" "4F8006" :CSys) "^ELMGext" ("ob \\-> ob'
|
|
|
|
|
+" "Trims small numbers (less than epsilon).
|
|
|
|
|
+" "4F9006" :CSys) "^ZINTSQRT" ("
|
|
|
|
|
+" "" "51F006" :CSys) "^SHALT" ("
|
|
|
|
|
+" "" "520006" :CSys) "^IsV>V?" ("v1 v2 \\-> flag
|
|
|
|
|
+" "Returns TRUE if v1 is lexicographically after
|
|
|
|
|
+v2.
|
|
|
|
|
+" "0E9006" :CSys) "^PZadic" ("Q Z \\-> Q'
|
|
|
|
|
+" "" "0EB006" :CSys) "^LISTMAXext" ("P \\-> P Z T depth
|
|
|
|
|
+ \\-> P ? F #0
|
|
|
|
|
+" "Step 1 for gcdheu:
|
|
|
|
|
+Returns FALSE if gcdheu can not be applied
|
|
|
|
|
+(e.g. if P contains irrquads). Returns TRUE
|
|
|
|
|
+otherwise, Z is the max of all integers of P
|
|
|
|
|
+or 2*max if there are complex in P.
|
|
|
|
|
+" "104006" :CSys) "^GCDHEUext" ("A B \\-> a b c pr[pgcd] A'/G' B'/G' flag
|
|
|
|
|
+" "Heuristic GCD.
|
|
|
|
|
+" "0EC006" :CSys) "^SIGNE" ("symb \\-> sign
|
|
|
|
|
+" "Compute the sign table of the expression with
|
|
|
|
|
+respect to the current variable. Internal
|
|
|
|
|
+version of the UserRPL command SIGNTAB.
|
|
|
|
|
+" "237006" :CSys) "^SIGNE1ext" ("expr \\-> sign
|
|
|
|
|
+" "Sign table of a polynomial or rational
|
|
|
|
|
+expression.
|
|
|
|
|
+" "0DC007" :CSys) "^SIGNEext" ("
|
|
|
|
|
+" "" "0DD007" :CSys) "^SIGNUNDEF" ("\\-> sign
|
|
|
|
|
+" "Returns undefined sign table.
|
|
|
|
|
+" "0DE007" :CSys) "^SIGNPLUS" ("\\-> sign
|
|
|
|
|
+" "Returns always positive sign table.
|
|
|
|
|
+" "0DF007" :CSys) "^SIGNMOINS" ("\\-> sign
|
|
|
|
|
+" "Returns always negative sign table.
|
|
|
|
|
+" "0E0007" :CSys) "^SIGNELN" ("sign \\-> sign
|
|
|
|
|
+" "Returns ln of a sign table.
|
|
|
|
|
+" "0E1007" :CSys) "^SIGNEEXP" ("sign \\-> sign'
|
|
|
|
|
+" "Returns exp of a sign table.
|
|
|
|
|
+" "0E2007" :CSys) "^SIGNESIN" ("sign \\-> sign'
|
|
|
|
|
+" "Returns sin of a sign table.
|
|
|
|
|
+" "0E3007" :CSys) "^SIGNECOS" ("sign \\-> sign'
|
|
|
|
|
+" "Returns cos of a sign table.
|
|
|
|
|
+" "0E4007" :CSys) "^SIGNETAN" ("sign \\-> sign'
|
|
|
|
|
+" "Returns tan of a sign table.
|
|
|
|
|
+" "0E5007" :CSys) "^SIGNEATAN" ("sign \\-> sign'
|
|
|
|
|
+" "Returns atan of a sign table.
|
|
|
|
|
+" "0E6007" :CSys) "^SIGNESQRT" ("sign \\-> sign'
|
|
|
|
|
+" "Returns sqrt of a sign table.
|
|
|
|
|
+" "0E7007" :CSys) "^SUBSIGNE" ("sign min max \\-> sign'
|
|
|
|
|
+" "Truncates a sign table.
|
|
|
|
|
+" "0E8007" :CSys) "^SIGNERIGHT" ("sign ob \\-> sign'
|
|
|
|
|
+" "Places ob at the end of a sign table.
|
|
|
|
|
+" "0E9007" :CSys) "^SIGNELEFT" ("sign ob \\-> sign'
|
|
|
|
|
+" "Places ob at the beginning of a sign table.
|
|
|
|
|
+" "0EA007" :CSys) "^>SIGNE" ("sign \\-> sign'
|
|
|
|
|
+" "Prepends { -infinity ? } to a sign table.
|
|
|
|
|
+" "0EB007" :CSys) "^SIGNE>" ("sign \\-> sign'
|
|
|
|
|
+" "Appends { ? +infinity } to a sign table.
|
|
|
|
|
+" "0EC007" :CSys) "^SIGNMULText" ("sign1 sign2 \\-> sign'
|
|
|
|
|
+" "Multiplies two sign tables.
|
|
|
|
|
+" "0ED007" :CSys) "^POSITIFext" ("ob \\-> ob flag
|
|
|
|
|
+" "Tries to determine if ob is positive. In
|
|
|
|
|
+internal representation, this depends on
|
|
|
|
|
+increaseflag so that x-1 is positive if
|
|
|
|
|
+increaseflag is cleared, negative otherwise,
|
|
|
|
|
+because x is assumed to tend to +infinity or
|
|
|
|
|
+zero.
|
|
|
|
|
+" "0DB007" :CSys) "^ZSIGNECK" ("ob \\-> ob flag
|
|
|
|
|
+" "Returns sign of an expression.
|
|
|
|
|
+Error if unable to find sign.
|
|
|
|
|
+" "0EE007" :CSys) "^ZSIGNE" ("ob \\-> zint
|
|
|
|
|
+" "Returns sign of an expression.
|
|
|
|
|
+zint=1 for +, -1 for -, 0 for undef.
|
|
|
|
|
+Expression does not need to be
|
|
|
|
|
+polynomial/rational.
|
|
|
|
|
+" "0F0007" :CSys) "^zsigne" ("meta \\-> zint
|
|
|
|
|
+" "Returns sign of a meta symbolic.
|
|
|
|
|
+zint=1 for +, -1 for -, 0 for undef.
|
|
|
|
|
+Expression does not need to be
|
|
|
|
|
+polynomial/rational.
|
|
|
|
|
+" "0F1007" :CSys) "^CHECKSING" ("symb inf sup vx \\-> symb inf sup vx flag
|
|
|
|
|
+" "Checks for singularities in expr.
|
|
|
|
|
+" "07D007" :CSys) "^ERABLEERROR" ("# \\->
|
|
|
|
|
+" "Calls CAS Error.
|
|
|
|
|
+" "57E006" :CSys) "^GETERABLEMSG" ("# \\-> $
|
|
|
|
|
+" "Get string in erable messages table.
|
|
|
|
|
+" "57D006" :CSys) "^ErrInfRes" ("Error 305h
|
|
|
|
|
+" "Generates \"Infinite Result\" error.
|
|
|
|
|
+" "090006" :CSys) "^ErrUndefRes" ("Error 304h
|
|
|
|
|
+" "Generates \"Undefined Result\" error.
|
|
|
|
|
+" "091006" :CSys) "^ErrBadDim" ("Error 501h
|
|
|
|
|
+" "Generates \"Invalid Dimension\" error.
|
|
|
|
|
+" "092006" :CSys) "^CANTFACTOR" ("Error DE1Ch
|
|
|
|
|
+" "Generates \"Unable to find factor\" error.
|
|
|
|
|
+" "57F006" :CSys) "^TRANSCERROR" ("Error DE20h
|
|
|
|
|
+" "Generates \"Not reducible to a rational
|
|
|
|
|
+expression\" error.
|
|
|
|
|
+" "580006" :CSys) "^NONUNARYERR" ("Error DE21h
|
|
|
|
|
+" "Generates \"Non unary operator\" error.
|
|
|
|
|
+" "581006" :CSys) "^INTERNALERR" ("Error DE26h
|
|
|
|
|
+" "Generates \"CAS internal error\" error.
|
|
|
|
|
+" "582006" :CSys) "^INVALIDOP" ("Error DE28h
|
|
|
|
|
+" "Generates \"Operator not implemented (SERIES)\"
|
|
|
|
|
+error.
|
|
|
|
|
+" "583006" :CSys) "^ISOLERR" ("Error DE2Ah
|
|
|
|
|
+" "Generates \"No solution found\" error.
|
|
|
|
|
+" "584006" :CSys) "^NONINTERR" ("Error DE2Ch
|
|
|
|
|
+" "Generates \"No solution in ring\" error.
|
|
|
|
|
+" "585006" :CSys) "^INTVARERR" ("Error DE32h
|
|
|
|
|
+" "Generates \"No name in expression\" error.
|
|
|
|
|
+" "586006" :CSys) "^Z>#ERR" ("Error DE35h
|
|
|
|
|
+" "Generates \"Integer too large\" error.
|
|
|
|
|
+" "587006" :CSys) "^SIGNEERROR" ("Error DE36h
|
|
|
|
|
+" "Generates \"Unable to find sign\" error.
|
|
|
|
|
+" "0EF007" :CSys) "^Z<0ERR" ("Error DE46h
|
|
|
|
|
+" "Generates \"Negative integer\" error.
|
|
|
|
|
+" "588006" :CSys) "^VXINDEPERR" ("Error DE47h
|
|
|
|
|
+" "Generates \"Parameter is cur. var. dependent\"
|
|
|
|
|
+error.
|
|
|
|
|
+" "589006" :CSys) "^NONPOLYSYST" ("Error DE49h
|
|
|
|
|
+" "Generates \"Non polynomial systrem\" error.
|
|
|
|
|
+" "58A006" :CSys) "^COMPLEXERR" ("Error DE4Dh
|
|
|
|
|
+" "Generates \"Complex number not allowed\" error.
|
|
|
|
|
+" "58B006" :CSys) "^VALMUSTBE0" ("Error DE4Eh
|
|
|
|
|
+" "Generates \"Polyn. valuation must be 0\" error.
|
|
|
|
|
+" "58C006" :CSys) "^SWITCHNOTALLOWED" ("Error DE4Fh
|
|
|
|
|
+" "Generates \"Mode switch not allowed here\"
|
|
|
|
|
+error.
|
|
|
|
|
+" "58D006" :CSys) "^NONALGERR" ("Error DE50h
|
|
|
|
|
+" "Generates \"Non algebraic in expression\"
|
|
|
|
|
+error.
|
|
|
|
|
+" "119007" :1\.11 :CSys) "^ERR$EVALext" ("seco \\-> action
|
|
|
|
|
+" "" "58E006" :CSys) "^Sys1IT" ("ob \\->
|
|
|
|
|
+" "Execute object if display flag is set.
|
|
|
|
|
+" "58F006" :CSys) "^CFGDISPLAY" ("\\->
|
|
|
|
|
+" "Display current configuration of the CAS.
|
|
|
|
|
+" "08F007" :CSys) "^NEWVX" ("\\->
|
|
|
|
|
+" "Input new current variable from the user.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "090007" :CSys) "^NEWMODULO" ("\\->
|
|
|
|
|
+" "Input new modulo from the user.
|
|
|
|
|
+" "091007" :CSys) "^SWITCHON" ("#flag \\->
|
|
|
|
|
+" "Asks the user if a certain mode may be
|
|
|
|
|
+switched on by toggling system flag #flag.
|
|
|
|
|
+Errors if the user does not want to switch.
|
|
|
|
|
+" "092007" :CSys) "^SWITCHOFF" ("#flag \\->
|
|
|
|
|
+" "Asks the user is a certain mode may be
|
|
|
|
|
+switched off by toggling system flag #flag.
|
|
|
|
|
+Error if the user does not want to switch.
|
|
|
|
|
+" "093007" :CSys) "^FLAGNAME" ("# \\-> # $
|
|
|
|
|
+" "Find the name of a flag.
|
|
|
|
|
+" "094007" :CSys) "^PUSHFLAGS" ("\\->
|
|
|
|
|
+" "Internal version of User PUSH command: stores
|
|
|
|
|
+the current flag settings and path in the
|
|
|
|
|
+CASDIR/ENVSTK variable.
|
|
|
|
|
+" "1DC007" :UBS) "^POPFLAGS" ("\\->
|
|
|
|
|
+" "Internal version of User POP command: pops
|
|
|
|
|
+the last pushed flag settings and path from
|
|
|
|
|
+the CASDIR/ENVSTK variable.
|
|
|
|
|
+" "1DD007" :UBS) "^COMPLEXON" ("\\->
|
|
|
|
|
+" "Turns complex mode on. Depending on system
|
|
|
|
|
+flag 120, the user is asked first.
|
|
|
|
|
+" "095007" :CSys) "^COMPLEXOFF" ("\\->
|
|
|
|
|
+" "Turns complex mode off. Depending on system
|
|
|
|
|
+flag 120, the user is asked first.
|
|
|
|
|
+" "096007" :CSys) "^EXACTON" ("\\->
|
|
|
|
|
+" "Turns exact mode on. Depending on system
|
|
|
|
|
+flag 120, the user is asked first.
|
|
|
|
|
+" "097007" :CSys) "^EXACTOFF" ("\\->
|
|
|
|
|
+" "Turns exact mode off. Depending on system
|
|
|
|
|
+flag 120, the user is asked first.
|
|
|
|
|
+" "098007" :CSys) "^COMPLEXMODE" ("\\->
|
|
|
|
|
+" "Set complex mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "099007" :CSys) "^SETCOMPLEX" ("\\->
|
|
|
|
|
+" "Set complex mode.
|
|
|
|
|
+" "09A007" :CSys) "^COMPLEX?" ("\\-> flag
|
|
|
|
|
+" "Test complex mode.
|
|
|
|
|
+" "09B007" :CSys) "^REALMODE" ("\\->
|
|
|
|
|
+" "Set real mode, refresh configuration display.
|
|
|
|
|
+" "09C007" :CSys) "^CLRCOMPLEX" ("\\->
|
|
|
|
|
+" "Set real mode.
|
|
|
|
|
+" "09D007" :CSys) "^EXACTMODE" ("\\->
|
|
|
|
|
+" "Set exact mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "09E007" :CSys) "^SETEXACT" ("\\->
|
|
|
|
|
+" "Set exact mode and gcd mode.
|
|
|
|
|
+" "09F007" :CSys) "^NUMMODE" ("\\->
|
|
|
|
|
+" "Set numeric mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A0007" :CSys) "^CLREXACT" ("\\->
|
|
|
|
|
+" "Clear exact mode.
|
|
|
|
|
+" "0A1007" :CSys) "^EXACT?" ("\\-> flag
|
|
|
|
|
+" "Test exact mode.
|
|
|
|
|
+" "0A2007" :CSys) "^STEPBYSTEP" ("\\->
|
|
|
|
|
+" "Set step by step flag, refresh display.
|
|
|
|
|
+" "0A3007" :CSys) "^NOSTEPBYSTEP" ("\\->
|
|
|
|
|
+" "Clear step by step flag, refresh display.
|
|
|
|
|
+" "0A4007" :CSys) "^VERBOSEMODE" ("\\->
|
|
|
|
|
+" "Set verbose mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A5007" :CSys) "^SILENTMODE" ("\\->
|
|
|
|
|
+" "Set silent mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A6007" :CSys) "^RECURMODE" ("\\->
|
|
|
|
|
+" "Set recursive mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A7007" :CSys) "^NONRECMODE" ("\\->
|
|
|
|
|
+" "Set nonrecursive mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A8007" :CSys) "^PLUSAT0" ("\\->
|
|
|
|
|
+" "Set positive mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0A9007" :CSys) "^SETPLUSAT0" ("\\->
|
|
|
|
|
+" "Set positive mode.
|
|
|
|
|
+" "0AA007" :CSys) "^PLUSATINFTY" ("\\->
|
|
|
|
|
+" "Set positive infinity mode, refresh
|
|
|
|
|
+configuration display.
|
|
|
|
|
+" "0AB007" :CSys) "^CLRPLUSAT0" ("\\->
|
|
|
|
|
+" "Set positive infinity mode.
|
|
|
|
|
+" "0AC007" :CSys) "^SPARSEDATA" ("\\->
|
|
|
|
|
+" "Set full data mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0AD007" :CSys) "^FULLDATA" ("\\->
|
|
|
|
|
+" "Set sparse mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0AE007" :CSys) "^RIGORMODE" ("\\->
|
|
|
|
|
+" "Set rigorous mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0AF007" :CSys) "^SLOPPYMODE" ("\\->
|
|
|
|
|
+" "Set sloppy mode, refresh configuration
|
|
|
|
|
+display.
|
|
|
|
|
+" "0B0007" :CSys) "^SLOPPY?" ("\\-> flag
|
|
|
|
|
+" "Test sloppy mode.
|
|
|
|
|
+" "0B1007" :CSys) "^SAVECASFLAGS" ("\\->
|
|
|
|
|
+" "Saves CAS flags and current var.
|
|
|
|
|
+" "1D2006" :CSys) "^RESTORECASFLAGS" ("\\->
|
|
|
|
|
+" "Restore CAS flags and current var.
|
|
|
|
|
+" "1D4006" :CSys) "^CASFLAGEVAL" ("\\->
|
|
|
|
|
+" "Execute next runstream object with flag
|
|
|
|
|
+protection.
|
|
|
|
|
+" "1D5006" :CSys) "^RCLMODULO" ("\\-> Z
|
|
|
|
|
+" "Fetch MODULO from the home directory.
|
|
|
|
|
+" "0C2007" :CSys) "^RCLPERIOD" ("\\-> sym
|
|
|
|
|
+" "Fetch PERIOD from the home directory.
|
|
|
|
|
+" "0C3007" :CSys) "^RCLVX" ("\\-> id
|
|
|
|
|
+" "Fetch VX from home directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "0C4007" :CSys) "^STOVX" ("ob \\->
|
|
|
|
|
+" "Store object in VX.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "0C5007" :CSys) "^STOMODULO" ("ob \\->
|
|
|
|
|
+" "Store object in MODULO.
|
|
|
|
|
+" "0C6007" :CSys) "^RCLEPS" ("\\-> %
|
|
|
|
|
+" "Fetch EPS from home directory.
|
|
|
|
|
+" "0C7007" :CSys) "^ISIDREAL?" ("id \\-> id id T
|
|
|
|
|
+ \\-> id F
|
|
|
|
|
+" "Test if id is in the REALASSUME list.
|
|
|
|
|
+" "0C8007" :CSys) "^ADDTOREAL" ("id \\->
|
|
|
|
|
+" "Add idnt to the list of real var.
|
|
|
|
|
+" "0C9007" :CSys) "^RESETCASCFG" ("\\->
|
|
|
|
|
+" "Reset CAS config.
|
|
|
|
|
+" "0CA007" :CSys) "^VERNUMext" ("\\-> %version
|
|
|
|
|
+" "CAS version number.
|
|
|
|
|
+" "1D0006" :CSys) "^MENUXYext" ("#2 #1 \\-> {}
|
|
|
|
|
+" "Make list of Erable commands between the
|
|
|
|
|
+given numbers.
|
|
|
|
|
+" "1D1006" :CSys) "^MENUext" ("$6...$1 \\->
|
|
|
|
|
+" "If the CAS quiet flag is not set, displays
|
|
|
|
|
+the six strings as menu keys. Otherwise does
|
|
|
|
|
+nothing.
|
|
|
|
|
+" "08D007" :CSys) "^MENUCHOOSE?" ("\\-> prg flag
|
|
|
|
|
+" "Return best CHOOSE command.
|
|
|
|
|
+" "0B2007" :CSys) "^MENUCHOOSE" ("{} \\->
|
|
|
|
|
+" "Offers a selection to the user. If Flag -117
|
|
|
|
|
+is set, only installs a menu. If not, offer
|
|
|
|
|
+a CHOOSE box.
|
|
|
|
|
+" "0B3007" :CSys) "^MENUGENE1" ("\\-> {}
|
|
|
|
|
+" "Menu for CAS.
|
|
|
|
|
+" "0B4007" :CSys) "^MENUBASE1" ("\\-> {}
|
|
|
|
|
+" "Base algebra menu.
|
|
|
|
|
+" "0B5007" :CSys) "^MENUCMPLX1" ("\\-> {}
|
|
|
|
|
+" "Complex operations menu.
|
|
|
|
|
+" "0B6007" :CSys) "^MENUTRIG1" ("\\-> {}
|
|
|
|
|
+" "Trigonometric operations menu.
|
|
|
|
|
+" "0B7007" :CSys) "^MENUMAT1" ("\\-> {}
|
|
|
|
|
+" "Matrix operations menu.
|
|
|
|
|
+" "0B8007" :CSys) "^MENUARIT1" ("\\-> {}
|
|
|
|
|
+" "Arithmetic operations menu.
|
|
|
|
|
+" "0B9007" :CSys) "^MENUSOLVE1" ("\\-> {}
|
|
|
|
|
+" "Solver menu.
|
|
|
|
|
+" "0BA007" :CSys) "^MENUEXPLN1" ("\\-> {}
|
|
|
|
|
+" "Exponential and logarithmic operations menu.
|
|
|
|
|
+" "0BB007" :CSys) "^MENUDIFF1" ("\\->
|
|
|
|
|
+" "Differential calculus menu.
|
|
|
|
|
+" "0BC007" :CSys) "^ISPRIME" ("z/% \\-> %0/%1
|
|
|
|
|
+" "Internal ISPRIME.
|
|
|
|
|
+" "218006" :CSys) "^FLAGEXPAND" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xEXPAND. Expands symbolic expression.
|
|
|
|
|
+" "1D6006" :CSys) "^EXPANDBOTH" ("
|
|
|
|
|
+" "" "1D7006" :CSys) "^FLAGFACTOR" ("symb \\-> symb'
|
|
|
|
|
+z \\-> symb
|
|
|
|
|
+" "Internal xFACTOR. Factors symbolic or
|
|
|
|
|
+number.
|
|
|
|
|
+" "1D8006" :CSys) "^FLAGLISTEXEC" ("symb {} \\-> symb'
|
|
|
|
|
+" "Internal xSUBST for the QcaseQ that level 1 is an
|
|
|
|
|
+array or a matrix.
|
|
|
|
|
+" "1D9006" :CSys) "^FLAGSYMBEXEC" ("symb symb' \\-> symb''
|
|
|
|
|
+" "Internal xSUBST for the QcaseQ that level 1 is a
|
|
|
|
|
+symbolic.
|
|
|
|
|
+" "1DA006" :CSys) "^FLAGIDNTEXEC" ("symb id \\-> symb'
|
|
|
|
|
+" "Internal xSUBST for the QcaseQ that level 1 is
|
|
|
|
|
+an id or a lam.
|
|
|
|
|
+" "1DB006" :CSys) "^FLAGINTVX" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xINTVX.
|
|
|
|
|
+" "1DC006" :CSys) "^DERVX" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xDERVX.
|
|
|
|
|
+" "1DD006" :CSys) "^SOLVEXFLOAT" ("% \\-> {}
|
|
|
|
|
+" "Internal xSOLVEVX for a float.
|
|
|
|
|
+" "1DE006" :CSys) "^SYMLIMIT" ("symb symb' \\-> symb''
|
|
|
|
|
+" "Internal xLIMIT for scalars.
|
|
|
|
|
+" "1DF006" :CSys) "^FLAGMATRIXLIMIT" ("[] symb \\-> []'
|
|
|
|
|
+" "Internal xLIMIT for matrices.
|
|
|
|
|
+" "1E0006" :CSys) "^TAYLOR0" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTAYLOR0.
|
|
|
|
|
+" "1E1006" :CSys) "^FLAGSERIES" ("symb id z \\-> {} symb'
|
|
|
|
|
+" "Internal xSERIES.
|
|
|
|
|
+" "1E2006" :CSys) "^PLOTSTK" ("
|
|
|
|
|
+" "Internal PLOTSTK.
|
|
|
|
|
+" "1E3006" :CSys) "^PLOTADD" ("symb \\->
|
|
|
|
|
+" "Internal xPLOTADD.
|
|
|
|
|
+" "1E4006" :CSys) "^FLAGIBP" ("symb1 symb2 \\-> symb3 symb4
|
|
|
|
|
+" "Internal xIBP.
|
|
|
|
|
+" "1E5006" :CSys) "^FLAGPREVAL" ("symb1 symb2 symb3 \\-> symb4
|
|
|
|
|
+" "Internal xPREVAL. Evaluates symb1 at the points
|
|
|
|
|
+symb2 and symb3 and takes the difference.
|
|
|
|
|
+" "1E6006" :CSys) "^MATRIXRISCH" ("[] id \\-> symb'
|
|
|
|
|
+" "Internal xRISCH for matrix arguments.
|
|
|
|
|
+" "1E7006" :CSys) "^FLAGRISCH" ("symb id \\-> symb'
|
|
|
|
|
+" "Internal xRISCH for non-matrix argumetns.
|
|
|
|
|
+" "1E8006" :CSys) "^FLAGDERIV" ("symb id \\-> symb'
|
|
|
|
|
+" "Internal xDERIV.
|
|
|
|
|
+" "1E9006" :CSys) "^FLAGLAP" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xLAP.
|
|
|
|
|
+" "1EA006" :CSys) "^FLAGILAP" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xILAP.
|
|
|
|
|
+" "1EB006" :CSys) "^FLAGDESOLVE" ("symb symb' \\-> symb''
|
|
|
|
|
+" "Internal xDESOLVE.
|
|
|
|
|
+" "1EC006" :CSys) "^FLAGLDSSOLV" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xLDEC.
|
|
|
|
|
+" "1ED006" :CSys) "^FLAGLDECSOLV" ("
|
|
|
|
|
+" "" "1EE006" :CSys) "^FLAGTEXPAND" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTEXPAND.
|
|
|
|
|
+" "1EF006" :CSys) "^FLAGLIN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xLIN.
|
|
|
|
|
+" "1F0006" :CSys) "^FLAGTSIMP" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTSIMP.
|
|
|
|
|
+" "1F1006" :CSys) "^FLAGLNCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xLNCOLLECT.
|
|
|
|
|
+" "1F2006" :CSys) "^FLAGEXPLN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xEXPLN.
|
|
|
|
|
+" "1F3006" :CSys) "^FLAGSINCOS" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xSINCOS.
|
|
|
|
|
+" "1F4006" :CSys) "^FLAGTLIN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTLIN.
|
|
|
|
|
+" "1F5006" :CSys) "^FLAGTCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "Internal TCOLLECT.
|
|
|
|
|
+" "1F6006" :CSys) "^FLAGTRIG" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTRIG.
|
|
|
|
|
+" "1F7006" :CSys) "^FLAGTRIGCOS" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTRIGCOS.
|
|
|
|
|
+" "1F8006" :CSys) "^FLAGTRIGSIN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTRIGSIN.
|
|
|
|
|
+" "1F9006" :CSys) "^FLAGTRIGTAN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTRIGTAN.
|
|
|
|
|
+" "1FA006" :CSys) "^FLAGTAN2SC" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTAN2SC.
|
|
|
|
|
+" "1FB006" :CSys) "^FLAGHALFTAN" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xHALFTAN.
|
|
|
|
|
+" "1FC006" :CSys) "^FLAGTAN2SC2" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xTAN2SC2.
|
|
|
|
|
+" "1FD006" :CSys) "^FLAGATAN2S" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xATAN2S.
|
|
|
|
|
+" "1FE006" :CSys) "^FLAGASIN2T" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xASIN2T.
|
|
|
|
|
+" "1FF006" :CSys) "^FLAGASIN2C" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xASIN2C.
|
|
|
|
|
+" "200006" :CSys) "^FLAGACOS2S" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xACOS2S.
|
|
|
|
|
+" "201006" :CSys) "^STEPIDIV2" ("z1 z2 \\-> z3 z4
|
|
|
|
|
+" "Internal xIDIV2.
|
|
|
|
|
+" "206006" :CSys) "^FLAGDIV2" ("symb1 symb2 \\-> symb3 symb4
|
|
|
|
|
+" "Internal xDIV2.
|
|
|
|
|
+" "207006" :CSys) "^FLAGGCD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xGCD for the QcaseQ with two symbolica
|
|
|
|
|
+arguments.
|
|
|
|
|
+" "208006" :CSys) "^PEGCD" ("symb1 symb2 \\-> symb3 symb4 symb5
|
|
|
|
|
+" "Internal xEGCD for polynomials.
|
|
|
|
|
+" "209006" :CSys) "^ABCUV" ("symb1 symb2 symb3 \\-> symb4 symb5
|
|
|
|
|
+" "Internal polynomial xABCUV.
|
|
|
|
|
+" "20B006" :CSys) "^IABCUV" ("z1 z2 z3 \\-> z4 z5
|
|
|
|
|
+" "Internal integer xIABCUV.
|
|
|
|
|
+" "20C006" :CSys) "^FLAGLGCD" ("{} \\-> {} symb
|
|
|
|
|
+" "Internal xLGCD.
|
|
|
|
|
+" "20D006" :CSys) "^FLAGLCM" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xLCM.
|
|
|
|
|
+" "20E006" :CSys) "^FLAGSIMP2" ("symb1 symb2 \\-> symb3 symb4
|
|
|
|
|
+" "Internal xSIMP2.
|
|
|
|
|
+" "20F006" :CSys) "^FLAGPARTFRAC" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xPARTFRAC.
|
|
|
|
|
+" "210006" :CSys) "^FLAGPROPFRAC" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xPROPFRAC.
|
|
|
|
|
+" "211006" :CSys) "^FLAGPTAYL" ("P(X) r \\-> P(X+r)
|
|
|
|
|
+" "Internal xPTAYL.
|
|
|
|
|
+" "212006" :CSys) "^FLAGHORNER" ("symb1 symb2 \\-> symb3 symb4 symb5
|
|
|
|
|
+" "Internal xHORNER.
|
|
|
|
|
+" "213006" :CSys) "^EULER" ("z \\-> z'
|
|
|
|
|
+" "Internal xEULER.
|
|
|
|
|
+" "214006" :CSys) "^FLAGCHINREM" ("A1 A2 \\-> A3
|
|
|
|
|
+" "Internal xCHINREM.
|
|
|
|
|
+" "216006" :CSys) "^ICHINREM" ("A1 A2 \\-> A3
|
|
|
|
|
+" "Internal xICHINREM.
|
|
|
|
|
+" "217006" :CSys) "^SOLVE1EQ" ("symb id \\-> {}
|
|
|
|
|
+" "Internal xSOLVE for single equations.
|
|
|
|
|
+" "219006" :CSys) "^SOLVEMANYEQ" ("[] []' \\-> {}''
|
|
|
|
|
+" "Internal xSOLVE for arrays of equations.
|
|
|
|
|
+" "21A006" :CSys) "^ZEROS1EQ" ("symb id \\-> {}
|
|
|
|
|
+" "Internal xZEROS for single equations.
|
|
|
|
|
+" "21B006" :CSys) "^ZEROSMANYEQ" ("[] []' \\-> {}
|
|
|
|
|
+" "Internal xZEROS for arrays of equations.
|
|
|
|
|
+" "21C006" :CSys) "^FCOEF" ("[] \\-> symb
|
|
|
|
|
+" "Internal xFCOEF.
|
|
|
|
|
+" "21D006" :CSys) "^FROOTS" ("symb \\-> []
|
|
|
|
|
+" "Internal xFROOTS.
|
|
|
|
|
+" "21E006" :CSys) "^FACTORS" ("symb \\-> {}
|
|
|
|
|
+" "Internal xFACTORS.
|
|
|
|
|
+" "21F006" :CSys) "^DIVIS" ("symb \\-> {}
|
|
|
|
|
+" "Internal xDIVIS.
|
|
|
|
|
+" "220006" :CSys) "^STUDMULT" ("
|
|
|
|
|
+" "Internal xSTUDMULT.
|
|
|
|
|
+" "221006" :CSys) "^STUDDIV" ("
|
|
|
|
|
+" "Internal xSTUDDIV.
|
|
|
|
|
+" "222006" :CSys) "^rref" ("M \\-> A M'
|
|
|
|
|
+" "Internal xrref.
|
|
|
|
|
+" "223006" :CSys) "^MADNOCK" ("M \\-> symb1 []' []'' symb3
|
|
|
|
|
+" "Internal xMAD.
|
|
|
|
|
+" "229006" :CSys) "^SYSTEM" ("[] []' \\-> []'' {} []'''
|
|
|
|
|
+" "Internal xLINSOLVE.
|
|
|
|
|
+" "22A006" :CSys) "^VANDERMONDE" ("{} \\-> M
|
|
|
|
|
+" "Internal xVANDERMONDE.
|
|
|
|
|
+" "22B006" :CSys) "^HILBERTNOCK" ("z \\-> M
|
|
|
|
|
+" "Internal xHILBERT.
|
|
|
|
|
+" "22C006" :CSys) "^CURL" ("[exprs] [vars] \\-> []
|
|
|
|
|
+" "Internal xCURL.
|
|
|
|
|
+" "22E006" :CSys) "^DIVERGENCE" ("[exprs] [vars] \\-> symb
|
|
|
|
|
+" "Internal xDIV.
|
|
|
|
|
+" "22F006" :CSys) "^LAPLACIAN" ("[expr] [vars] \\-> symb
|
|
|
|
|
+" "Internal xLAPL.
|
|
|
|
|
+" "230006" :CSys) "^HESSIAN" ("symb A \\-> M A' A''
|
|
|
|
|
+" "Internal xHESS.
|
|
|
|
|
+" "231006" :CSys) "^HERMITE" ("z \\-> symb
|
|
|
|
|
+" "Internal xHERMITE.
|
|
|
|
|
+" "232006" :CSys) "^TCHEBNOCK" ("%degree \\-> symb
|
|
|
|
|
+" "Internal xTCHEBYCHEFF.
|
|
|
|
|
+" "233006" :CSys) "^LEGENDRE" ("z \\-> symb
|
|
|
|
|
+" "Internal xLEGENDRE.
|
|
|
|
|
+" "234006" :CSys) "^LAGRANGE" ("A \\-> symb
|
|
|
|
|
+" "Internal xLAGRANGE.
|
|
|
|
|
+" "235006" :CSys) "^FOURIER" ("symb z \\-> C%
|
|
|
|
|
+" "Internal xFOURIER.
|
|
|
|
|
+" "236006" :CSys) "^TABVAR" ("symb \\-> symb {{}} grob
|
|
|
|
|
+" "Internal xTABVAR.
|
|
|
|
|
+" "238006" :CSys) "^FLAGDIVPC" ("symb1 symb2 z \\-> symb3
|
|
|
|
|
+" "Internal xDIVPC.
|
|
|
|
|
+" "239006" :CSys) "^FLAGTRUNC" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xTRUNC.
|
|
|
|
|
+" "23A006" :CSys) "^FLAGSEVAL" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xSEVAL.
|
|
|
|
|
+" "23B006" :CSys) "^XNUM" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xXNUM.
|
|
|
|
|
+" "23C006" :CSys) "^REORDER" ("symb id \\-> symb'
|
|
|
|
|
+" "Internal xREORDER.
|
|
|
|
|
+" "23D006" :CSys) "^USERLVAR" ("symb \\-> symb []
|
|
|
|
|
+" "Internal xLVAR.
|
|
|
|
|
+" "23E006" :CSys) "^USERLIDNT" ("symb \\-> []
|
|
|
|
|
+" "Internal xLNAME.
|
|
|
|
|
+" "23F006" :CSys) "^ADDTMOD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xADDTMOD for scalars.
|
|
|
|
|
+" "241006" :CSys) "^MADDTMOD" ("M M' \\-> M''
|
|
|
|
|
+" "Internal xADDTMOD for matrices.
|
|
|
|
|
+" "242006" :CSys) "^SUBTMOD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xSUBTMOD for scalars.
|
|
|
|
|
+" "243006" :CSys) "^MSUBTMOD" ("M M' \\-> M''
|
|
|
|
|
+" "Internal xSUBTMOD for matrices.
|
|
|
|
|
+" "244006" :CSys) "^MULTMOD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "Internal xMULTMOD.
|
|
|
|
|
+" "245006" :CSys) "^Verbose1" ("$ \\->
|
|
|
|
|
+" "Display message on line 1 if verbose mode on.
|
|
|
|
|
+" "579006" :CSys) "^Verbose2" ("$ \\->
|
|
|
|
|
+" "Display message on line 2 if verbose mode on.
|
|
|
|
|
+" "57A006" :CSys) "^Verbose3" ("$ \\->
|
|
|
|
|
+" "Display message on line 3 if verbose mode on.
|
|
|
|
|
+" "57B006" :CSys) "^VerboseN" ("$ # \\->
|
|
|
|
|
+" "Display message on given line if verbose mode
|
|
|
|
|
+on.
|
|
|
|
|
+" "57C006" :CSys) "^EvalNoCKx*" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "257006" :CSys) "^EvalNoCKx+" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "258006" :CSys) "^EvalNoCKx-" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "259006" :CSys) "^EvalNoCKx/" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "25A006" :CSys) "^EvalNoCKx^" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "25B006" :CSys) "^EvalNoCKxCHS" ("ob \\-> ob'
|
|
|
|
|
+" "" "25C006" :CSys) "^EvalNoCKxINV" ("ob \\-> ob'
|
|
|
|
|
+" "" "25D006" :CSys) "^EvalNoCKxMOD" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "25E006" :CSys) "^EvalNoCKxPERM" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "25F006" :CSys) "^EvalNoCKxCOMB" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "260006" :CSys) "^EvalNoCKxOR" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "261006" :CSys) "^EvalNoCKxAND" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "262006" :CSys) "^EvalNoCKxXOR" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "263006" :CSys) "^EvalNoCKxXROOT" ("ob ob' \\-> ob''
|
|
|
|
|
+" "" "264006" :CSys) "^TABVALext" ("fnct x {} \\-> {}'
|
|
|
|
|
+" "Table of values.
|
|
|
|
|
+" "265006" :CSys) "^TOLISText" ("o1..on #n \\-> Lvar Q1..Qn
|
|
|
|
|
+" "Convert meta of symbolic objects to internal
|
|
|
|
|
+form.
|
|
|
|
|
+" "266006" :CSys) "^FROMLISText" ("Lvar Meta L \\-> L'
|
|
|
|
|
+" "Conversion of elements of Meta objec to user
|
|
|
|
|
+format. Meta does not contain the #n number
|
|
|
|
|
+of element. L is the list of depth of the
|
|
|
|
|
+elements of Meta. For example to convert a
|
|
|
|
|
+polynomial, a vector and a matrix:
|
|
|
|
|
+ Lvar = { X }
|
|
|
|
|
+ Meta = { Z1 Z3 }
|
|
|
|
|
+ { Z0 Z1 }
|
|
|
|
|
+ { { Z1 { Z1 Z0 } } }
|
|
|
|
|
+ L = { #0 #1 #2 }
|
|
|
|
|
+ L' = { 'X+2' { 0 1 } { { 1 X } } }.
|
|
|
|
|
+" "267006" :CSys) "^QPI" ("ob \\-> ob'
|
|
|
|
|
+" "Internal xXQ.
|
|
|
|
|
+" "074007" :CSys) "^QpiZ" ("ob \\-> symb
|
|
|
|
|
+" "Calls ^Qpi% and converts the resulting
|
|
|
|
|
+(real) integers into zints.
|
|
|
|
|
+" "073007" :CSys) "^QpiSym" ("symb \\-> symb'
|
|
|
|
|
+" "Internal xXQ for symbolics.
|
|
|
|
|
+" "075007" :CSys) "^QpiArry" ("[] \\-> []'
|
|
|
|
|
+" "Internal xXQ for arrays. Converts each
|
|
|
|
|
+element of the array.
|
|
|
|
|
+" "076007" :CSys) "^QpiList" ("{} \\-> {}'
|
|
|
|
|
+" "Internal xXQ for lists. Converts each
|
|
|
|
|
+element of the list.
|
|
|
|
|
+" "077007" :CSys) "^Qpi" ("%/C% \\-> symb
|
|
|
|
|
+" "Internal xXQ for real and complex numbers.
|
|
|
|
|
+" "078007" :CSys) "^Qpi%" ("% \\-> symb
|
|
|
|
|
+" "xXQ for reals, but does not convert numbers
|
|
|
|
|
+to zints.
|
|
|
|
|
+" "079007" :CSys) "^GetRoot" ("%' \\-> %' %''
|
|
|
|
|
+" "Tries to find a square number which is a
|
|
|
|
|
+factor of the argument. The algorithm only
|
|
|
|
|
+tries numbers smaller than 1024^2-1 and
|
|
|
|
|
+assumes that % is an integer. The returned
|
|
|
|
|
+results are such that %=(%')^2*%''. For
|
|
|
|
|
+numbers which do not contain a square factor,
|
|
|
|
|
+%'=1 and %''=%.
|
|
|
|
|
+" "07A007" :CSys) "^Approx" ("% \\-> %' %''
|
|
|
|
|
+" "Approximates a real number with a fraction.
|
|
|
|
|
+Returns numerator %' and denominator %''.
|
|
|
|
|
+The accuracy of the approximation is
|
|
|
|
|
+determinated by the current display format.
|
|
|
|
|
+" "07B007" :CSys) "^INFINIext" ("\\-> '\\oo'
|
|
|
|
|
+" "" "2E2006" :CSys) "^MINUSINFext" ("\\-> '-\\oo'
|
|
|
|
|
+" "" "2E3006" :CSys) "^PLUSINFext" ("\\-> '+\\oo'
|
|
|
|
|
+" "" "2E4006" :CSys) "^?ext" ("\\-> '?'
|
|
|
|
|
+" "Pushed the undefined symbolic.
|
|
|
|
|
+" "2E5006" :CSys) "^POSINFext" ("symb \\-> symb #
|
|
|
|
|
+" "Returns #1 if the symbolic contains '\\oo'.
|
|
|
|
|
+" "2E6006" :CSys) "^TESTINFINI" ("ob \\-> ob flag
|
|
|
|
|
+" "Test if object contains infinity.
|
|
|
|
|
+" "2E1006" :CSys) "^POSUNDEFext" ("symb \\-> symb #
|
|
|
|
|
+" "Returns #1 if the symbolic contains the
|
|
|
|
|
+undefined symbolic '?'.
|
|
|
|
|
+" "2E7006" :CSys) "^pi" ("\\-> '\\pi'
|
|
|
|
|
+" "" "2EA006" :CSys) "^metapi" ("\\-> \\pi #1
|
|
|
|
|
+" "" "2EB006" :CSys) "^meta-pi" ("\\-> \\pi xNEG #2
|
|
|
|
|
+" "" "2F1006" :CSys) "^pisur2" ("\\-> '\\pi/2'
|
|
|
|
|
+" "" "2E8006" :CSys) "^metapi/2" ("\\-> \\pi 2 x/ #3
|
|
|
|
|
+" "" "2F2006" :CSys) "^pisur-2" ("\\-> '-\\pi/2'
|
|
|
|
|
+" "" "2E9006" :CSys) "^meta-pi/2" ("\\-> \\pi 2 x/ xNEG #4
|
|
|
|
|
+" "" "2F4006" :CSys) "^metapi/4" ("\\-> \\pi 4 x/ #3
|
|
|
|
|
+" "" "2F3006" :CSys) "^meta-pi/4" ("\\-> \\pi 4 x/ xNEG #4
|
|
|
|
|
+" "" "2F5006" :CSys) "^pifois2" ("\\-> '2*\\pi'
|
|
|
|
|
+" "" "2F6006" :CSys) "^'xPI" ("\\-> xPI
|
|
|
|
|
+" "" "2EC006" :CSys) "^base_ln" ("\\-> 'e'
|
|
|
|
|
+" "" "2F9006" :CSys) "^meta_e" ("\\-> e #1
|
|
|
|
|
+" "" "2FA006" :CSys) "^'xi" ("\\-> xi
|
|
|
|
|
+" "" "2EE006" :CSys) "^metai" ("\\-> i #1
|
|
|
|
|
+" "" "2ED006" :CSys) "^ipi" ("\\-> 'i*\\pi'
|
|
|
|
|
+" "" "2EF006" :CSys) "^metaipi" ("\\-> i \\pi x* #3
|
|
|
|
|
+" "" "2F0006" :CSys) "^metapi*2" ("\\-> \\pi 2 x* #3
|
|
|
|
|
+" "" "2F8006" :CSys) "^deuxipi" ("\\-> '2*i*\\pi'
|
|
|
|
|
+" "" "2F7006" :CSys) "^DIVOBJext" ("{o1...on} ob \\-> {o1/ob...on/ob}
|
|
|
|
|
+" "Division of all elements of a list by ob.
|
|
|
|
|
+Tests if ob=1.
|
|
|
|
|
+" "3F0006" :CSys) "^LOPDext" ("{o1...on} ob \\-> {o1/ob...on/ob}
|
|
|
|
|
+" "LOPDext calls QUOText for the division,
|
|
|
|
|
+unlike DIVOBJ which calls RDIVext.
|
|
|
|
|
+" "3F2006" :CSys) "^LOP1ext" ("{} ob binop \\-> {}'
|
|
|
|
|
+" "Applies non-recursively << ob binop >> to the
|
|
|
|
|
+elements of the list.
|
|
|
|
|
+" "269006" :CSys) "^LOPAext" ("{} ob binop \\-> {}'
|
|
|
|
|
+" "Applies recursively << op binop >> to the
|
|
|
|
|
+elements of the list (not the list elements
|
|
|
|
|
+themselves).
|
|
|
|
|
+" "26A006" :CSys) "^LOPMext" ("ob {} \\-> {}'
|
|
|
|
|
+" "Multiplies each element of the list by the
|
|
|
|
|
+given object.
|
|
|
|
|
+" "10F006" :CSys) "^LISTEXEC" ("ob {} \\-> ob'
|
|
|
|
|
+ob {} \\-> {}'
|
|
|
|
|
+" "The list should be of the form { 'X=1' 'Y=2'
|
|
|
|
|
+... } in the first QcaseQ or { 'X=1' 'X=2' } in
|
|
|
|
|
+the second QcaseQ. In the first QcaseQ, all
|
|
|
|
|
+occurences of X in ob are replace by 1, or Y
|
|
|
|
|
+by 2, etc. In the second QcaseQ ob is
|
|
|
|
|
+evaluated with X=1, X=2 successively.
|
|
|
|
|
+" "45F006" :CSys) "^LISTEXEC1" ("{} objet \\-> {}'
|
|
|
|
|
+" "" "460006" :CSys) "^SECOEXEC" ("{} prog \\-> {}
|
|
|
|
|
+" "Executes prog on each element of ob.
|
|
|
|
|
+" "461006" :CSys) "^PFEXECext" ("symb prg \\-> symb
|
|
|
|
|
+" "" "268006" :CSys) "^LISTSECOext" ("composite \\-> composite
|
|
|
|
|
+" "Applies 1LAM non-recursively to all elements of
|
|
|
|
|
+the list.
|
|
|
|
|
+" "26B006" :CSys) "^CK1TONOext" ("ob \\-> ob'
|
|
|
|
|
+" "Applies prg to ob, recursively for lists.
|
|
|
|
|
+prg is fetched from runstream.
|
|
|
|
|
+" "26D006" :CSys) "^TYPEIRRQ?" ("ob \\-> flag
|
|
|
|
|
+" "Is ob an irrquad?
|
|
|
|
|
+" "167006" :CSys) "^DTYPEIRRQ?" ("ob \\-> ob flag
|
|
|
|
|
+" "DUP, then ^TYPEIRRQ?.
|
|
|
|
|
+" "168006" :CSys) "^QXNDext" ("irrq \\-> a b c
|
|
|
|
|
+" "b=0 and c=1 if stack level 1 is not an irrq.
|
|
|
|
|
+" "165006" :CSys) "^NDXQext" ("a b c \\-> irrq
|
|
|
|
|
+" "" "166006" :CSys) "^IRRQ#ULTIMATE" ("ob \\-> # c
|
|
|
|
|
+" "Finds \\<< depth and returns ultimate c of an
|
|
|
|
|
+irrq.
|
|
|
|
|
+" "2D8006" :CSys) "^QCONJext" ("irrq \\-> irrq'
|
|
|
|
|
+" "irrq-conjugate of an irrq.
|
|
|
|
|
+This is *not* the complex conjugate.
|
|
|
|
|
+" "508006" :CSys) "^QABSext" ("irrq \\-> irrq sign
|
|
|
|
|
+" "Finds the sign of an irrq.
|
|
|
|
|
+Work always if irrq is made of Z.
|
|
|
|
|
+" "509006" :CSys) "^QNORMext" ("Zirr \\-> a^2-b*c^2
|
|
|
|
|
+" "Irrq-norm of an irrquad.
|
|
|
|
|
+This is *not* the complex modulus.
|
|
|
|
|
+" "51A006" :CSys) "^SECOSQFFext" (":: x<< a b c x>> ; \\-> { fact1 mult1 ... factn multn }
|
|
|
|
|
+" "Factorization of irrquads and Gauss integers.
|
|
|
|
|
+" "4D4006" :CSys) "^PREPARext" ("o1 o2 \\-> a1 b1 c1 a2 b2 c2
|
|
|
|
|
+" "Returns irrquad decomposition of o1 and o2.
|
|
|
|
|
+with either c1=c2 or c1 and c2 have no
|
|
|
|
|
+factors in comon. c1<c2, ordering handled
|
|
|
|
|
+by LESSCOMPLEX? is made by type, then by CRC.
|
|
|
|
|
+" "124006" :CSys) "^LISTIRRQ" ("ob {} \\-> {}'
|
|
|
|
|
+" "Add the C-part of all irrquads of object to
|
|
|
|
|
+the list.
|
|
|
|
|
+" "2DA006" :CSys) "^QMODSYMext" ("
|
|
|
|
|
+" "" "0DA006" :CSys :\?) "^ModPow" ("
|
|
|
|
|
+" "" "0DB006" :CSys :\?) "^ZQUOText" ("
|
|
|
|
|
+" "" "0DC006" :CSys :\?) "^ZDIVext" ("
|
|
|
|
|
+" "" "0DE006" :CSys :\?) "^PSEUDOPREP" ("o2 o1 \\-> o2*a1.n^ o1 a1.n^
|
|
|
|
|
+" "" "3E7006" :CSys :\?) "^PLCZ" ("
|
|
|
|
|
+" "" "3FA006" :CSys :\?) "^HSECO2RCext" ("ob \\-> ob'
|
|
|
|
|
+" "Conversion of constants from internal to user
|
|
|
|
|
+form.
|
|
|
|
|
+" "3FB006" :CSys :\?) "^SECO2CMPext" ("seco \\-> symb
|
|
|
|
|
+" "Back conversion of complex. polarflag should
|
|
|
|
|
+be disabled if not at the top level of
|
|
|
|
|
+rational expressions.
|
|
|
|
|
+" "3FC006" :CSys :\?) "^SECO2CMPPOL" ("
|
|
|
|
|
+" "Conversion of a complex in polar coordinates.
|
|
|
|
|
+should be used only at the top level of
|
|
|
|
|
+rational expr.
|
|
|
|
|
+" "3FD006" :CSys :\?) "^SECO2CMPCART" ("
|
|
|
|
|
+" "Conversion of a complex in cartesian
|
|
|
|
|
+coordinates.
|
|
|
|
|
+" "3FE006" :CSys :\?) "^VALOBJext" ("# {..{Q}..} {var1..varn} \\-> {..{ob}..}
|
|
|
|
|
+" "Back conversion of objects embedded at depth
|
|
|
|
|
+# in lists. Simplifies var1..varn.
|
|
|
|
|
+" "3FF006" :CSys :\?) "^VAL2ext" ("# {..{Q}..} {var1..varn} \\-> {..{ob}..}
|
|
|
|
|
+" "Back conversion of objects embedded at depth
|
|
|
|
|
+# in lists. Does not simplify var1..varn.
|
|
|
|
|
+Conversion is done in asc. power if
|
|
|
|
|
+positivfflag is set, which is useful for
|
|
|
|
|
+SERIES and LIMIT commands.
|
|
|
|
|
+" "401006" :CSys :\?) "^INVAL2" ("P # \\-> symbpoly
|
|
|
|
|
+" "LAM2 must contain Lvar, # is the depth.
|
|
|
|
|
+" "402006" :CSys :\?) "^METAVAL2" ("# Meta_list \\-> Meta_symb
|
|
|
|
|
+" "LMA2 must contain Lvar, LAM1 is modified.
|
|
|
|
|
+" "403006" :CSys :\?) "^VAL1" ("ob \\-> ob
|
|
|
|
|
+" "LAM2 must contain Lvar, LAM1 is modified.
|
|
|
|
|
+" "404006" :CSys :\?) "^VAL1M" ("ob \\-> Meta_symb
|
|
|
|
|
+" "LAM2 must contain Lvar, LAM1 is modified.
|
|
|
|
|
+" "405006" :CSys :\?) "^IDNTEXEC" ("symb idnt \\-> symb'
|
|
|
|
|
+" "Tries to find idnt such that symb=0. Return
|
|
|
|
|
+a solution as an equality 'idnt=..' in symb'.
|
|
|
|
|
+" "45C006" :CSys :\?) "^SYMISOL" ("
|
|
|
|
|
+" "" "45D006" :CSys :\?) "^SYMQFORM" ("
|
|
|
|
|
+" "" "45E006" :CSys :\?) "^MP0" ("ob \\-> ob 1
|
|
|
|
|
+" "Returns number 1 of the selected type.
|
|
|
|
|
+The symbolic/ROMPTR one looks very strange
|
|
|
|
|
+it is used to avoid infinity^0/undef^0 to
|
|
|
|
|
+return 1.
|
|
|
|
|
+" "121006" :CSys :\?) "^rpnQOBJext" ("ob \\-> ob'
|
|
|
|
|
+" "prg is fetched from the stack.
|
|
|
|
|
+" "26C006" :CSys :\?) "^SIMPIDNT" ("idnt \\-> ob
|
|
|
|
|
+" "Evaluates idnt (looks recursively for its
|
|
|
|
|
+content if defined). Does not error for
|
|
|
|
|
+circular definition, but displays a warning.
|
|
|
|
|
+" "29D006" :CSys :\?) "^RCLALLIDNT" ("
|
|
|
|
|
+" "" "29E006" :CSys :\?) "^RCL1IDNT" ("idnt/lam \\-> ob
|
|
|
|
|
+" "Recursive content of an idnt.
|
|
|
|
|
+LAM1 to LAM3 must be bound.
|
|
|
|
|
+" "29F006" :CSys :\?) "^SWPSIMPNDXF" ("ob2 ob1 \\-> ob1/ob2
|
|
|
|
|
+" "Simplified fraction (internal).
|
|
|
|
|
+" "2A7006" :CSys :\?) "^SIMPNDXFext" ("ob2 ob1 \\-> ob2/ob1
|
|
|
|
|
+" "Simplified fraction (internal).
|
|
|
|
|
+" "2A8006" :CSys :\?) "^CMODext" ("C2 C1 \\-> C1 C2_mod_C1
|
|
|
|
|
+" "" "2B6006" :CSys :\?) "^SQFF2ext" ("l1...ln #n-1 \\-> l1'...ln' #n-1
|
|
|
|
|
+" "" "2BD006" :CSys :\?) "^PPZ" ("p \\-> p/pgcd pgcd
|
|
|
|
|
+" "ob is the gcd of all constant coefficients of
|
|
|
|
|
+P (integer, Gauss integers, irrquads with the
|
|
|
|
|
+implementation of the \"gcd\" for irrquads).
|
|
|
|
|
+" "2BE006" :CSys :\?) "^PPZZ" ("ob \\-> ob zint
|
|
|
|
|
+" "PPZ with further check to ensure returning a
|
|
|
|
|
+zint.
|
|
|
|
|
+" "117007" :1\.11 :CSys :\?) "^PZHSTR" ("a z \\-> a mod z
|
|
|
|
|
+" "" "2BF006" :CSys :\?) "^HORNER1ext" ("P r \\-> P[r]
|
|
|
|
|
+" "" "2C0006" :CSys :\?) "^PEval" ("P r \\-> P[r]
|
|
|
|
|
+" "P must be a list polynomial.
|
|
|
|
|
+" "2C1006" :CSys :\?) "^RISCHext" ("
|
|
|
|
|
+" "" "2C2006" :CSys :\?) "^risch/" ("
|
|
|
|
|
+" "" "2C3006" :CSys :\?) "^rischABS" ("
|
|
|
|
|
+" "" "2C4006" :CSys :\?) "^SQRT_IN?" ("{} \\-> {} flag
|
|
|
|
|
+" "Returns TRUE if one element of {} is a symb
|
|
|
|
|
+containing a sqrt.
|
|
|
|
|
+" "2C6006" :CSys :\?) "^IS_SQRT?" ("symb \\-> flag
|
|
|
|
|
+" "" "2C7006" :CSys :\?) "^XROOT_IN?" ("
|
|
|
|
|
+" "" "2C8006" :CSys :\?) "^IS_XROOT?" ("symb \\-> flag
|
|
|
|
|
+" "" "2C9006" :CSys :\?) "^STOPRIMIT" ("symb \\->
|
|
|
|
|
+" "Stores antiderivative in PRIMIT variable.
|
|
|
|
|
+" "2CA006" :CSys :\?) "^CONTAINS_LN?" ("symb \\-> symb flag
|
|
|
|
|
+" "" "2CB006" :CSys :\?) "^ISNT_IDNT?" ("
|
|
|
|
|
+" "" "2CC006" :CSys :\?) "^RISCHPF" ("
|
|
|
|
|
+" "" "2CD006" :CSys :\?) "^RISCHRAT" ("
|
|
|
|
|
+" "" "2CE006" :CSys :\?) "^rischlogpart" ("
|
|
|
|
|
+" "" "2CF006" :CSys :\?) "^FOURIERext" ("symb n \\-> cn
|
|
|
|
|
+" "Computes n-th Fourier coefficient of a 2 \\pi
|
|
|
|
|
+periodic function.
|
|
|
|
|
+" "2D4006" :CSys) "^LESSCOMPLEX?" ("ob1 ob2 \\-> ob1 ob2 flag
|
|
|
|
|
+" "Compares objects by type and then by CRC.
|
|
|
|
|
+flag is true if ob1 is less complex than ob2
|
|
|
|
|
+(ob1>ob2). If ob1 or ob2 is an irrq, find
|
|
|
|
|
+first ultimate type of ob1 and ob2. If these
|
|
|
|
|
+ultimate types are equal sort is done by
|
|
|
|
|
+comparing the << depth.
|
|
|
|
|
+" "2D9006" :CSys :\?) "^LIST1i-1-i" ("
|
|
|
|
|
+" "Various constants. Caution: these constants
|
|
|
|
|
+are \"covered\" if you are using them be sure
|
|
|
|
|
+to return an uncovered result on the stack
|
|
|
|
|
+when exiting.
|
|
|
|
|
+" "2DB006" :CSys :\?) "^LIST10-10" ("
|
|
|
|
|
+" "" "2DC006" :CSys :\?) "^TABLECOSext" ("\\-> {}
|
|
|
|
|
+" "Table of special COS values (k*pi/12).
|
|
|
|
|
+" "2DD006" :CSys :\?) "^TABLETANext" ("\\-> {}
|
|
|
|
|
+" "Table of special TAN values (k*pi/12).
|
|
|
|
|
+" "2DE006" :CSys :\?) "^LINEARAPPLY" ("symb nonrat_prg rat_prg \\-> symb
|
|
|
|
|
+" "Applies linearity. nonrat_prg is applied for
|
|
|
|
|
+a non rational part symb \\-> symb. rat_prg is
|
|
|
|
|
+applied for a rational part symb \\-> symb.
|
|
|
|
|
+Linearity is applied on symb.
|
|
|
|
|
+" "101007" :CSys :\?) "^linearapply" ("
|
|
|
|
|
+" "" "102007" :1\.11 :CSys) "^A/B2PQR" ("A B \\-> P Q R
|
|
|
|
|
+" "Writes a fraction A/B as E[P]/P*Q/E[R]. Q and
|
|
|
|
|
+positive shifts of R are prime together.
|
|
|
|
|
+" "106007" :1\.11 :CSys :\?) "^GOSPER?" ("P Q R \\-> P R Y T
|
|
|
|
|
+ \\-> F
|
|
|
|
|
+" "Solves P = Q E[Y] - R Y for Y.
|
|
|
|
|
+" "107007" :1\.11 :CSys :\?) "^FRACPARITY" ("fr \\-> Z
|
|
|
|
|
+" "Tests if a fraction (internal rep) is
|
|
|
|
|
+even/odd/none. Z=1 if even, -1 if odd, 0 if
|
|
|
|
|
+neither even nor odd.
|
|
|
|
|
+" "0CB007" :CSys :\?) "^FR2ND%" ("fraction-l \\-> N D %
|
|
|
|
|
+" "Extract trivial power of fraction.
|
|
|
|
|
+" "0D5007" :CSys :\?) "^MSECOSQFF" ("ob \\-> Meta
|
|
|
|
|
+" "Factorization of an extension.
|
|
|
|
|
+" "4D1006" :CSys :\?) "TopOuterLoop" ("
|
|
|
|
|
+" "" "2E2CD" :UBS :NOSDIAG :NOETAB) "TOLSaveUI" ("
|
|
|
|
|
+" "" "2E3DE" :UBS :NOSDIAG :NOETAB) "TOLSetTopicUI" ("
|
|
|
|
|
+" "" "2E451" :UBS :NOSDIAG :NOETAB) "TOLSetTopUI.1" ("
|
|
|
|
|
+" "" "2E46F" :UBS :NOSDIAG :NOETAB) "TOLSetViewUI" ("
|
|
|
|
|
+" "" "2E4AB" :UBS :NOSDIAG :NOETAB) "TOLSetViUI.1" ("
|
|
|
|
|
+" "" "2E4C9" :UBS :NOSDIAG :NOETAB) "TOLKeyUI" ("
|
|
|
|
|
+" "" "2E51E" :UBS :NOSDIAG :NOETAB) "TOLErrorTrap" ("
|
|
|
|
|
+" "" "2E573" :UBS :NOSDIAG :NOETAB) "TOLResUI&Err" ("
|
|
|
|
|
+" "" "2E5A5" :UBS :NOSDIAG :NOETAB) "TOLRestoreUI" ("
|
|
|
|
|
+" "" "2E5C3" :UBS :NOSDIAG :NOETAB) "?ExitThisTop" ("
|
|
|
|
|
+" "" "2E659" :UBS :NOSDIAG :NOETAB) "BadTOLUI?" ("
|
|
|
|
|
+" "" "2E686" :UBS :NOSDIAG :NOETAB) "SetBadTOLUI" ("
|
|
|
|
|
+" "" "2E68B" :UBS :NOSDIAG :NOETAB) "ClrBadTOLUI" ("
|
|
|
|
|
+" "" "2E690" :UBS :NOSDIAG :NOETAB) "CALCCXT!" ("ob \\->
|
|
|
|
|
+" "" "2E698" :UBS :NOSDIAG :NOETAB) "CALCCXT@" ("\\-> ob
|
|
|
|
|
+" "" "2E69D" :UBS :NOSDIAG :NOETAB) "PGMCXT!" ("ob \\->
|
|
|
|
|
+" "" "2E6A7" :UBS :NOSDIAG :NOETAB) "PGMCXT@" ("\\-> ob
|
|
|
|
|
+" "" "2E6AC" :UBS :NOSDIAG :NOETAB) "NOTESCXT!" ("ob \\->
|
|
|
|
|
+" "" "2E6B6" :UBS :NOSDIAG :NOETAB) "NOTESCXT@" ("\\-> ob
|
|
|
|
|
+" "" "2E6BB" :UBS :NOSDIAG :NOETAB) "apletPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E6C5" :UBS :NOSDIAG :NOETAB) "apletPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E6CA" :UBS :NOSDIAG :NOETAB) "funcPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E6D4" :UBS :NOSDIAG :NOETAB) "funcPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E6D9" :UBS :NOSDIAG :NOETAB) "polarPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E6E3" :UBS :NOSDIAG :NOETAB) "polarPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E6E8" :UBS :NOSDIAG :NOETAB) "paramPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E6F2" :UBS :NOSDIAG :NOETAB) "paramPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E6F7" :UBS :NOSDIAG :NOETAB) "seqPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E701" :UBS :NOSDIAG :NOETAB) "seqPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E706" :UBS :NOSDIAG :NOETAB) "statPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E710" :UBS :NOSDIAG :NOETAB) "statPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E715" :UBS :NOSDIAG :NOETAB) "solvePTR!" ("ob \\->
|
|
|
|
|
+" "" "2E71F" :UBS :NOSDIAG :NOETAB) "solvePTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E724" :UBS :NOSDIAG :NOETAB) "otherPTR!" ("ob \\->
|
|
|
|
|
+" "" "2E72E" :UBS :NOSDIAG :NOETAB) "otherPTR@" ("\\-> ob
|
|
|
|
|
+" "" "2E733" :UBS :NOSDIAG :NOETAB) "TopicDoN" ("
|
|
|
|
|
+" "" "2E73D" :ML :UBS :NOSDIAG :NOETAB) "TopicVar1!" ("ob \\->
|
|
|
|
|
+" "" "2E76A" :UBS :NOSDIAG :NOETAB) "TopicVar1@" ("\\-> ob
|
|
|
|
|
+" "" "2E76B" :UBS :NOSDIAG :NOETAB) "TopicVar2!" ("ob \\->
|
|
|
|
|
+" "" "2E76C" :UBS :NOSDIAG :NOETAB) "TopicVar2@" ("\\-> ob
|
|
|
|
|
+" "" "2E76D" :UBS :NOSDIAG :NOETAB) "TopicVar3!" ("ob \\->
|
|
|
|
|
+" "" "2E76E" :UBS :NOSDIAG :NOETAB) "TopicVar3@" ("\\-> ob
|
|
|
|
|
+" "" "2E76F" :UBS :NOSDIAG :NOETAB) "TopicVar4!" ("ob \\->
|
|
|
|
|
+" "" "2E770" :UBS :NOSDIAG :NOETAB) "TopicVar4@" ("\\-> ob
|
|
|
|
|
+" "" "2E771" :UBS :NOSDIAG :NOETAB) "TopicVar5!" ("ob \\->
|
|
|
|
|
+" "" "2E772" :UBS :NOSDIAG :NOETAB) "TopicVar5@" ("\\-> ob
|
|
|
|
|
+" "" "2E773" :UBS :NOSDIAG :NOETAB) "TopicVar6!" ("ob \\->
|
|
|
|
|
+" "" "2E774" :UBS :NOSDIAG :NOETAB) "TopicVar6@" ("\\-> ob
|
|
|
|
|
+" "" "2E775" :UBS :NOSDIAG :NOETAB) "TopicVar7!" ("ob \\->
|
|
|
|
|
+" "" "2E776" :UBS :NOSDIAG :NOETAB) "TopicVar7@" ("\\-> ob
|
|
|
|
|
+" "" "2E777" :UBS :NOSDIAG :NOETAB) "TopicVar8!" ("ob \\->
|
|
|
|
|
+" "" "2E778" :UBS :NOSDIAG :NOETAB) "TopicVar8@" ("\\-> ob
|
|
|
|
|
+" "" "2E779" :UBS :NOSDIAG :NOETAB) "TopicVar9!" ("ob \\->
|
|
|
|
|
+" "" "2E77A" :UBS :NOSDIAG :NOETAB) "TopicVar9@" ("\\-> ob
|
|
|
|
|
+" "" "2E77B" :UBS :NOSDIAG :NOETAB) "TopicVar10!" ("ob \\->
|
|
|
|
|
+" "" "2E77C" :UBS :NOSDIAG :NOETAB) "TopicVar10@" ("\\-> ob
|
|
|
|
|
+" "" "2E77D" :UBS :NOSDIAG :NOETAB) "TopicVar11!" ("ob \\->
|
|
|
|
|
+" "" "2E77E" :UBS :NOSDIAG :NOETAB) "TopicVar11@" ("\\-> ob
|
|
|
|
|
+" "" "2E77F" :UBS :NOSDIAG :NOETAB) "TopicVar12!" ("ob \\->
|
|
|
|
|
+" "" "2E780" :UBS :NOSDIAG :NOETAB) "TopicVar12@" ("\\-> ob
|
|
|
|
|
+" "" "2E781" :UBS :NOSDIAG :NOETAB) "TopicVar13!" ("ob \\->
|
|
|
|
|
+" "" "2E782" :UBS :NOSDIAG :NOETAB) "TopicVar13@" ("\\-> ob
|
|
|
|
|
+" "" "2E783" :UBS :NOSDIAG :NOETAB) "TopicVar14!" ("ob \\->
|
|
|
|
|
+" "" "2E784" :UBS :NOSDIAG :NOETAB) "TopicVar14@" ("\\-> ob
|
|
|
|
|
+" "" "2E785" :UBS :NOSDIAG :NOETAB) "TopicVar15!" ("ob \\->
|
|
|
|
|
+" "" "2E786" :UBS :NOSDIAG :NOETAB) "TopicVar15@" ("\\-> ob
|
|
|
|
|
+" "" "2E787" :UBS :NOSDIAG :NOETAB) "TopicVar16!" ("ob \\->
|
|
|
|
|
+" "" "2E788" :UBS :NOSDIAG :NOETAB) "TopicVar16@" ("\\-> ob
|
|
|
|
|
+" "" "2E789" :UBS :NOSDIAG :NOETAB) "TopicVar17!" ("ob \\->
|
|
|
|
|
+" "" "2E78A" :UBS :NOSDIAG :NOETAB) "TopicVar17@" ("\\-> ob
|
|
|
|
|
+" "" "2E78B" :UBS :NOSDIAG :NOETAB) "TopicVar18!" ("ob \\->
|
|
|
|
|
+" "" "2E78C" :UBS :NOSDIAG :NOETAB) "TopicVar18@" ("\\-> ob
|
|
|
|
|
+" "" "2E78D" :UBS :NOSDIAG :NOETAB) "TopicVar19!" ("ob \\->
|
|
|
|
|
+" "" "2E78E" :UBS :NOSDIAG :NOETAB) "TopicVar19@" ("\\-> ob
|
|
|
|
|
+" "" "2E78F" :UBS :NOSDIAG :NOETAB) "TopicVar20!" ("ob \\->
|
|
|
|
|
+" "" "2E790" :UBS :NOSDIAG :NOETAB) "TopicVar20@" ("\\-> ob
|
|
|
|
|
+" "" "2E791" :UBS :NOSDIAG :NOETAB) "TopicVar21!" ("ob \\->
|
|
|
|
|
+" "" "2E792" :UBS :NOSDIAG :NOETAB) "TopicVar21@" ("\\-> ob
|
|
|
|
|
+" "" "2E793" :UBS :NOSDIAG :NOETAB) "TopicVar22!" ("ob \\->
|
|
|
|
|
+" "" "2E794" :UBS :NOSDIAG :NOETAB) "TopicVar22@" ("\\-> ob
|
|
|
|
|
+" "" "2E795" :UBS :NOSDIAG :NOETAB) "TopicVar23!" ("ob \\->
|
|
|
|
|
+" "" "2E796" :UBS :NOSDIAG :NOETAB) "TopicVar23@" ("\\-> ob
|
|
|
|
|
+" "" "2E797" :UBS :NOSDIAG :NOETAB) "TopicVar24!" ("ob \\->
|
|
|
|
|
+" "" "2E798" :UBS :NOSDIAG :NOETAB) "TopicVar24@" ("\\-> ob
|
|
|
|
|
+" "" "2E799" :UBS :NOSDIAG :NOETAB) "TopicVar25!" ("ob \\->
|
|
|
|
|
+" "" "2E79A" :UBS :NOSDIAG :NOETAB) "TopicVar25@" ("\\-> ob
|
|
|
|
|
+" "" "2E79B" :UBS :NOSDIAG :NOETAB) "TopicVar26!" ("ob \\->
|
|
|
|
|
+" "" "2E79C" :UBS :NOSDIAG :NOETAB) "TopicVar26@" ("\\-> ob
|
|
|
|
|
+" "" "2E79D" :UBS :NOSDIAG :NOETAB) "TopicVar27!" ("ob \\->
|
|
|
|
|
+" "" "2E79E" :UBS :NOSDIAG :NOETAB) "TopicVar27@" ("\\-> ob
|
|
|
|
|
+" "" "2E79F" :UBS :NOSDIAG :NOETAB) "TopicVar28!" ("ob \\->
|
|
|
|
|
+" "" "2E7A0" :UBS :NOSDIAG :NOETAB) "TopicVar28@" ("\\-> ob
|
|
|
|
|
+" "" "2E7A1" :UBS :NOSDIAG :NOETAB) "TopicVar29!" ("ob \\->
|
|
|
|
|
+" "" "2E7A2" :UBS :NOSDIAG :NOETAB) "TopicVar29@" ("\\-> ob
|
|
|
|
|
+" "" "2E7A3" :UBS :NOSDIAG :NOETAB) "TopicVar30!" ("ob \\->
|
|
|
|
|
+" "" "2E7A4" :UBS :NOSDIAG :NOETAB) "TopicVar30@" ("\\-> ob
|
|
|
|
|
+" "" "2E7A5" :UBS :NOSDIAG :NOETAB) "TopicVar31!" ("ob \\->
|
|
|
|
|
+" "" "2E7A6" :UBS :NOSDIAG :NOETAB) "TopicVar31@" ("\\-> ob
|
|
|
|
|
+" "" "2E7A7" :UBS :NOSDIAG :NOETAB) "TopicVar32!" ("ob \\->
|
|
|
|
|
+" "" "2E7A8" :UBS :NOSDIAG :NOETAB) "TopicVar32@" ("\\-> ob
|
|
|
|
|
+" "" "2E7A9" :UBS :NOSDIAG :NOETAB) "TopicVar33!" ("ob \\->
|
|
|
|
|
+" "" "2E7AA" :UBS :NOSDIAG :NOETAB) "TopicVar33@" ("\\-> ob
|
|
|
|
|
+" "" "2E7AB" :UBS :NOSDIAG :NOETAB) "TopicVar34!" ("ob \\->
|
|
|
|
|
+" "" "2E7AC" :UBS :NOSDIAG :NOETAB) "TopicVar34@" ("\\-> ob
|
|
|
|
|
+" "" "2E7AD" :UBS :NOSDIAG :NOETAB) "TopicVar35!" ("ob \\->
|
|
|
|
|
+" "" "2E7AE" :UBS :NOSDIAG :NOETAB) "TopicVar35@" ("\\-> ob
|
|
|
|
|
+" "" "2E7AF" :UBS :NOSDIAG :NOETAB) "TopicVar36!" ("ob \\->
|
|
|
|
|
+" "" "2E7B0" :UBS :NOSDIAG :NOETAB) "TopicVar36@" ("\\-> ob
|
|
|
|
|
+" "" "2E7B1" :UBS :NOSDIAG :NOETAB) "TopicVar37!" ("ob \\->
|
|
|
|
|
+" "" "2E7B2" :UBS :NOSDIAG :NOETAB) "TopicVar37@" ("\\-> ob
|
|
|
|
|
+" "" "2E7B3" :UBS :NOSDIAG :NOETAB) "TopicVar38!" ("ob \\->
|
|
|
|
|
+" "" "2E7B4" :UBS :NOSDIAG :NOETAB) "TopicVar38@" ("\\-> ob
|
|
|
|
|
+" "" "2E7B5" :UBS :NOSDIAG :NOETAB) "TopicVar39!" ("ob \\->
|
|
|
|
|
+" "" "2E7B6" :UBS :NOSDIAG :NOETAB) "TopicVar39@" ("\\-> ob
|
|
|
|
|
+" "" "2E7B7" :UBS :NOSDIAG :NOETAB) "TopicVar40!" ("ob \\->
|
|
|
|
|
+" "" "2E7B8" :UBS :NOSDIAG :NOETAB) "TopicVar40@" ("\\-> ob
|
|
|
|
|
+" "" "2E7B9" :UBS :NOSDIAG :NOETAB) "TopicVar41!" ("ob \\->
|
|
|
|
|
+" "" "2E7BA" :UBS :NOSDIAG :NOETAB) "TopicVar41@" ("\\-> ob
|
|
|
|
|
+" "" "2E7BB" :UBS :NOSDIAG :NOETAB) "TopicVar42!" ("ob \\->
|
|
|
|
|
+" "" "2E7BC" :UBS :NOSDIAG :NOETAB) "TopicVar42@" ("\\-> ob
|
|
|
|
|
+" "" "2E7BD" :UBS :NOSDIAG :NOETAB) "TopicVar43!" ("ob \\->
|
|
|
|
|
+" "" "2E7BE" :UBS :NOSDIAG :NOETAB) "TopicVar43@" ("\\-> ob
|
|
|
|
|
+" "" "2E7BF" :UBS :NOSDIAG :NOETAB) "TopicVar44!" ("ob \\->
|
|
|
|
|
+" "" "2E7C0" :UBS :NOSDIAG :NOETAB) "TopicVar44@" ("\\-> ob
|
|
|
|
|
+" "" "2E7C1" :UBS :NOSDIAG :NOETAB) "TopicVar45!" ("ob \\->
|
|
|
|
|
+" "" "2E7C2" :UBS :NOSDIAG :NOETAB) "TopicVar45@" ("\\-> ob
|
|
|
|
|
+" "" "2E7C3" :UBS :NOSDIAG :NOETAB) "TopicVar46!" ("ob \\->
|
|
|
|
|
+" "" "2E7C4" :UBS :NOSDIAG :NOETAB) "TopicVar46@" ("\\-> ob
|
|
|
|
|
+" "" "2E7C5" :UBS :NOSDIAG :NOETAB) "TopicVar47!" ("ob \\->
|
|
|
|
|
+" "" "2E7C6" :UBS :NOSDIAG :NOETAB) "TopicVar47@" ("\\-> ob
|
|
|
|
|
+" "" "2E7C7" :UBS :NOSDIAG :NOETAB) "TopicVar48!" ("ob \\->
|
|
|
|
|
+" "" "2E7C8" :UBS :NOSDIAG :NOETAB) "TopicVar48@" ("\\-> ob
|
|
|
|
|
+" "" "2E7C9" :UBS :NOSDIAG :NOETAB) "TopicVar49!" ("ob \\->
|
|
|
|
|
+" "" "2E7CA" :UBS :NOSDIAG :NOETAB) "TopicVar49@" ("\\-> ob
|
|
|
|
|
+" "" "2E7CB" :UBS :NOSDIAG :NOETAB) "TopicVar50!" ("ob \\->
|
|
|
|
|
+" "" "2E7CC" :UBS :NOSDIAG :NOETAB) "TopicVar50@" ("\\-> ob
|
|
|
|
|
+" "" "2E7CD" :UBS :NOSDIAG :NOETAB) "TopicVar51!" ("ob \\->
|
|
|
|
|
+" "" "2E7CE" :UBS :NOSDIAG :NOETAB) "TopicVar51@" ("\\-> ob
|
|
|
|
|
+" "" "2E7CF" :UBS :NOSDIAG :NOETAB) "TopicVar52@" ("ob \\->
|
|
|
|
|
+" "" "2E7D0" :UBS :NOSDIAG :NOETAB) "TopicVar52!" ("\\-> ob
|
|
|
|
|
+" "" "2E7D1" :UBS :NOSDIAG :NOETAB) "TopicVar53@" ("ob \\->
|
|
|
|
|
+" "" "2E7D2" :UBS :NOSDIAG :NOETAB) "TopicVar53!" ("\\-> ob
|
|
|
|
|
+" "" "2E7D3" :UBS :NOSDIAG :NOETAB) "TopicVar54@" ("ob \\->
|
|
|
|
|
+" "" "2E7D4" :UBS :NOSDIAG :NOETAB) "TopicVar54!" ("\\-> ob
|
|
|
|
|
+" "" "2E7D5" :UBS :NOSDIAG :NOETAB) "TopicVar55@" ("ob \\->
|
|
|
|
|
+" "" "2E7D6" :UBS :NOSDIAG :NOETAB) "TopicVar55!" ("\\-> ob
|
|
|
|
|
+" "" "2E7D7" :UBS :NOSDIAG :NOETAB) "TopicVar56@" ("ob \\->
|
|
|
|
|
+" "" "2E7D8" :UBS :NOSDIAG :NOETAB) "TopicVar56!" ("\\-> ob
|
|
|
|
|
+" "" "2E7D9" :UBS :NOSDIAG :NOETAB) "TopicVar57@" ("ob \\->
|
|
|
|
|
+" "" "2E7DA" :UBS :NOSDIAG :NOETAB) "TopicVar57!" ("\\-> ob
|
|
|
|
|
+" "" "2E7DB" :UBS :NOSDIAG :NOETAB) "TopicVar58@" ("ob \\->
|
|
|
|
|
+" "" "2E7DC" :UBS :NOSDIAG :NOETAB) "TopicVar58!" ("\\-> ob
|
|
|
|
|
+" "" "2E7DD" :UBS :NOSDIAG :NOETAB) "TopicVar59@" ("ob \\->
|
|
|
|
|
+" "" "2E7DE" :UBS :NOSDIAG :NOETAB) "TopicVar59!" ("\\-> ob
|
|
|
|
|
+" "" "2E7DF" :UBS :NOSDIAG :NOETAB) "TopicVar60@" ("ob \\->
|
|
|
|
|
+" "" "2E7E0" :UBS :NOSDIAG :NOETAB) "TopicVar60!" ("\\-> ob
|
|
|
|
|
+" "" "2E7E1" :UBS :NOSDIAG :NOETAB) "TopicVar61@" ("ob \\->
|
|
|
|
|
+" "" "2E7E2" :UBS :NOSDIAG :NOETAB) "TopicVar61!" ("\\-> ob
|
|
|
|
|
+" "" "2E7E3" :UBS :NOSDIAG :NOETAB) "TopicVar62@" ("ob \\->
|
|
|
|
|
+" "" "2E7E4" :UBS :NOSDIAG :NOETAB) "TopicVar62!" ("\\-> ob
|
|
|
|
|
+" "" "2E7E5" :UBS :NOSDIAG :NOETAB) "TopicVar63@" ("ob \\->
|
|
|
|
|
+" "" "2E7E6" :UBS :NOSDIAG :NOETAB) "TopicVar63!" ("\\-> ob
|
|
|
|
|
+" "" "2E7E7" :UBS :NOSDIAG :NOETAB) "TopicVar64@" ("ob \\->
|
|
|
|
|
+" "" "2E7E8" :UBS :NOSDIAG :NOETAB) "TopicVar64!" ("\\-> ob
|
|
|
|
|
+" "" "2E7E9" :UBS :NOSDIAG :NOETAB) "TopicVar65@" ("ob \\->
|
|
|
|
|
+" "" "2E7EA" :UBS :NOSDIAG :NOETAB) "TopicVar65!" ("\\-> ob
|
|
|
|
|
+" "" "2E7EB" :UBS :NOSDIAG :NOETAB) "TopicVar66@" ("ob \\->
|
|
|
|
|
+" "" "2E7EC" :UBS :NOSDIAG :NOETAB) "TopicVar66!" ("\\-> ob
|
|
|
|
|
+" "" "2E7ED" :UBS :NOSDIAG :NOETAB) "TopicVar67@" ("ob \\->
|
|
|
|
|
+" "" "2E7EE" :UBS :NOSDIAG :NOETAB) "TopicVar67!" ("\\-> ob
|
|
|
|
|
+" "" "2E7EF" :UBS :NOSDIAG :NOETAB) "TopicVar68@" ("ob \\->
|
|
|
|
|
+" "" "2E7F0" :UBS :NOSDIAG :NOETAB) "TopicVar68!" ("\\-> ob
|
|
|
|
|
+" "" "2E7F1" :UBS :NOSDIAG :NOETAB) "TopicVar69@" ("ob \\->
|
|
|
|
|
+" "" "2E7F2" :UBS :NOSDIAG :NOETAB) "TopicVar69!" ("\\-> ob
|
|
|
|
|
+" "" "2E7F3" :UBS :NOSDIAG :NOETAB) "TopicVar70@" ("ob \\->
|
|
|
|
|
+" "" "2E7F4" :UBS :NOSDIAG :NOETAB) "TopicVar70!" ("\\-> ob
|
|
|
|
|
+" "" "2E7F5" :UBS :NOSDIAG :NOETAB) "TopicVar71@" ("ob \\->
|
|
|
|
|
+" "" "2E7F6" :UBS :NOSDIAG :NOETAB) "TopicVar71!" ("\\-> ob
|
|
|
|
|
+" "" "2E7F7" :UBS :NOSDIAG :NOETAB) "TopicVar72@" ("ob \\->
|
|
|
|
|
+" "" "2E7F8" :UBS :NOSDIAG :NOETAB) "TopicVar72!" ("\\-> ob
|
|
|
|
|
+" "" "2E7F9" :UBS :NOSDIAG :NOETAB) "TopicVar73@" ("ob \\->
|
|
|
|
|
+" "" "2E7FA" :UBS :NOSDIAG :NOETAB) "TopicVar73!" ("\\-> ob
|
|
|
|
|
+" "" "2E7FB" :UBS :NOSDIAG :NOETAB) "TopicVar74@" ("ob \\->
|
|
|
|
|
+" "" "2E7FC" :UBS :NOSDIAG :NOETAB) "TopicVar74!" ("\\-> ob
|
|
|
|
|
+" "" "2E7FD" :UBS :NOSDIAG :NOETAB) "TopicVar75@" ("ob \\->
|
|
|
|
|
+" "" "2E7FE" :UBS :NOSDIAG :NOETAB) "TopicVar75!" ("\\-> ob
|
|
|
|
|
+" "" "2E7FF" :UBS :NOSDIAG :NOETAB) "TopicVar76@" ("ob \\->
|
|
|
|
|
+" "" "2E800" :UBS :NOSDIAG :NOETAB) "TopicVar76!" ("\\-> ob
|
|
|
|
|
+" "" "2E801" :UBS :NOSDIAG :NOETAB) "TopicVar77@" ("ob \\->
|
|
|
|
|
+" "" "2E802" :UBS :NOSDIAG :NOETAB) "TopicVar77!" ("\\-> ob
|
|
|
|
|
+" "" "2E803" :UBS :NOSDIAG :NOETAB) "TopicVar78@" ("ob \\->
|
|
|
|
|
+" "" "2E804" :UBS :NOSDIAG :NOETAB) "TopicVar78!" ("\\-> ob
|
|
|
|
|
+" "" "2E805" :UBS :NOSDIAG :NOETAB) "TopicVar79@" ("ob \\->
|
|
|
|
|
+" "" "2E806" :UBS :NOSDIAG :NOETAB) "TopicVar79!" ("\\-> ob
|
|
|
|
|
+" "" "2E807" :UBS :NOSDIAG :NOETAB) "TopicVar80@" ("ob \\->
|
|
|
|
|
+" "" "2E808" :UBS :NOSDIAG :NOETAB) "TopicVar80!" ("\\-> ob
|
|
|
|
|
+" "" "2E809" :UBS :NOSDIAG :NOETAB) "TopicVar81@" ("ob \\->
|
|
|
|
|
+" "" "2E80A" :UBS :NOSDIAG :NOETAB) "TopicVar81!" ("\\-> ob
|
|
|
|
|
+" "" "2E80B" :UBS :NOSDIAG :NOETAB) "TopicVar82@" ("ob \\->
|
|
|
|
|
+" "" "2E80C" :UBS :NOSDIAG :NOETAB) "TopicVar82!" ("\\-> ob
|
|
|
|
|
+" "" "2E80D" :UBS :NOSDIAG :NOETAB) "TopicVar83@" ("ob \\->
|
|
|
|
|
+" "" "2E80E" :UBS :NOSDIAG :NOETAB) "TopicVar83!" ("\\-> ob
|
|
|
|
|
+" "" "2E80F" :UBS :NOSDIAG :NOETAB) "TopicVar84@" ("ob \\->
|
|
|
|
|
+" "" "2E810" :UBS :NOSDIAG :NOETAB) "TopicVar84!" ("\\-> ob
|
|
|
|
|
+" "" "2E811" :UBS :NOSDIAG :NOETAB) "TopicVar85@" ("ob \\->
|
|
|
|
|
+" "" "2E812" :UBS :NOSDIAG :NOETAB) "TopicVar85!" ("\\-> ob
|
|
|
|
|
+" "" "2E813" :UBS :NOSDIAG :NOETAB) "TopicVar86@" ("ob \\->
|
|
|
|
|
+" "" "2E814" :UBS :NOSDIAG :NOETAB) "TopicVar86!" ("\\-> ob
|
|
|
|
|
+" "" "2E815" :UBS :NOSDIAG :NOETAB) "TopicVar87@" ("ob \\->
|
|
|
|
|
+" "" "2E816" :UBS :NOSDIAG :NOETAB) "TopicVar87!" ("\\-> ob
|
|
|
|
|
+" "" "2E817" :UBS :NOSDIAG :NOETAB) "TopicVar88@" ("ob \\->
|
|
|
|
|
+" "" "2E818" :UBS :NOSDIAG :NOETAB) "TopicVar88!" ("\\-> ob
|
|
|
|
|
+" "" "2E819" :UBS :NOSDIAG :NOETAB) "TopicVar89@" ("ob \\->
|
|
|
|
|
+" "" "2E81A" :UBS :NOSDIAG :NOETAB) "TopicVar89!" ("\\-> ob
|
|
|
|
|
+" "" "2E81B" :UBS :NOSDIAG :NOETAB) "TopicVar90@" ("ob \\->
|
|
|
|
|
+" "" "2E81C" :UBS :NOSDIAG :NOETAB) "TopicVar90!" ("\\-> ob
|
|
|
|
|
+" "" "2E81D" :UBS :NOSDIAG :NOETAB) "TopicVar91!" ("ob \\->
|
|
|
|
|
+" "" "2E81E" :UBS :NOSDIAG :NOETAB) "TopicVar91@" ("\\-> ob
|
|
|
|
|
+" "" "2E81F" :UBS :NOSDIAG :NOETAB) "TOLVar1!" ("ob \\->
|
|
|
|
|
+" "" "2E820" :UBS :NOSDIAG :NOETAB) "TOLVar1@" ("\\-> ob
|
|
|
|
|
+" "" "2E821" :UBS :NOSDIAG :NOETAB) "TOLVar2!" ("ob \\->
|
|
|
|
|
+" "" "2E822" :UBS :NOSDIAG :NOETAB) "TOLVar2@" ("\\-> ob
|
|
|
|
|
+" "" "2E823" :UBS :NOSDIAG :NOETAB) "TOLVar3!" ("ob \\->
|
|
|
|
|
+" "" "2E824" :UBS :NOSDIAG :NOETAB) "TOLVar3@" ("\\-> ob
|
|
|
|
|
+" "" "2E825" :UBS :NOSDIAG :NOETAB) "TOLVar4!" ("ob \\->
|
|
|
|
|
+" "" "2E826" :UBS :NOSDIAG :NOETAB) "TOLVar4@" ("\\-> ob
|
|
|
|
|
+" "" "2E827" :UBS :NOSDIAG :NOETAB) "TOLVar5!" ("ob \\->
|
|
|
|
|
+" "" "2E828" :UBS :NOSDIAG :NOETAB) "TOLVar5@" ("\\-> ob
|
|
|
|
|
+" "" "2E829" :UBS :NOSDIAG :NOETAB) "TOLVar6!" ("ob \\->
|
|
|
|
|
+" "" "2E82A" :UBS :NOSDIAG :NOETAB) "TOLVar6@" ("\\-> ob
|
|
|
|
|
+" "" "2E82B" :UBS :NOSDIAG :NOETAB) "TOLVar7!" ("ob \\->
|
|
|
|
|
+" "" "2E82C" :UBS :NOSDIAG :NOETAB) "TOLVar7@" ("\\-> ob
|
|
|
|
|
+" "" "2E82D" :UBS :NOSDIAG :NOETAB) "TOLVar8!" ("ob \\->
|
|
|
|
|
+" "" "2E82E" :UBS :NOSDIAG :NOETAB) "TOLVar8@" ("\\-> ob
|
|
|
|
|
+" "" "2E82F" :UBS :NOSDIAG :NOETAB) "TOLVar9!" ("ob \\->
|
|
|
|
|
+" "" "2E830" :UBS :NOSDIAG :NOETAB) "TOLVar9@" ("\\-> ob
|
|
|
|
|
+" "" "2E831" :UBS :NOSDIAG :NOETAB) "TOLVar10!" ("ob \\->
|
|
|
|
|
+" "" "2E832" :UBS :NOSDIAG :NOETAB) "TOLVar10@" ("\\-> ob
|
|
|
|
|
+" "" "2E833" :UBS :NOSDIAG :NOETAB) "TOLVar11!" ("ob \\->
|
|
|
|
|
+" "" "2E834" :UBS :NOSDIAG :NOETAB) "TOLVar11@" ("\\-> ob
|
|
|
|
|
+" "" "2E835" :UBS :NOSDIAG :NOETAB) "TOLVar12!" ("ob \\->
|
|
|
|
|
+" "" "2E836" :UBS :NOSDIAG :NOETAB) "TOLVar12@" ("\\-> ob
|
|
|
|
|
+" "" "2E837" :UBS :NOSDIAG :NOETAB) "TOLVar13!" ("ob \\->
|
|
|
|
|
+" "" "2E838" :UBS :NOSDIAG :NOETAB) "TOLVar13@" ("\\-> ob
|
|
|
|
|
+" "" "2E839" :UBS :NOSDIAG :NOETAB) "TOLVar14!" ("ob \\->
|
|
|
|
|
+" "" "2E83A" :UBS :NOSDIAG :NOETAB) "TOLVar14@" ("\\-> ob
|
|
|
|
|
+" "" "2E83B" :UBS :NOSDIAG :NOETAB) "TOLVar15!" ("ob \\->
|
|
|
|
|
+" "" "2E83C" :UBS :NOSDIAG :NOETAB) "TOLVar15@" ("\\-> ob
|
|
|
|
|
+" "" "2E83D" :UBS :NOSDIAG :NOETAB) "TOLVar16!" ("ob \\->
|
|
|
|
|
+" "" "2E83E" :UBS :NOSDIAG :NOETAB) "TOLVar16@" ("\\-> ob
|
|
|
|
|
+" "" "2E83F" :UBS :NOSDIAG :NOETAB) "TOLVar17!" ("ob \\->
|
|
|
|
|
+" "" "2E840" :UBS :NOSDIAG :NOETAB) "TOLVar17@" ("\\-> ob
|
|
|
|
|
+" "" "2E841" :UBS :NOSDIAG :NOETAB) "TOLVar18!" ("ob \\->
|
|
|
|
|
+" "" "2E842" :UBS :NOSDIAG :NOETAB) "TOLVar18@" ("\\-> ob
|
|
|
|
|
+" "" "2E843" :UBS :NOSDIAG :NOETAB) "TOLVar19!" ("ob \\->
|
|
|
|
|
+" "" "2E844" :UBS :NOSDIAG :NOETAB) "TOLVar19@" ("\\-> ob
|
|
|
|
|
+" "" "2E845" :UBS :NOSDIAG :NOETAB) "TOLVar20!" ("ob \\->
|
|
|
|
|
+" "" "2E846" :UBS :NOSDIAG :NOETAB) "TOLVar20@" ("\\-> ob
|
|
|
|
|
+" "" "2E847" :UBS :NOSDIAG :NOETAB) "TOLVar21!" ("ob \\->
|
|
|
|
|
+" "" "2E848" :UBS :NOSDIAG :NOETAB) "TOLVar21@" ("\\-> ob
|
|
|
|
|
+" "" "2E849" :UBS :NOSDIAG :NOETAB) "TOLVar22!" ("ob \\->
|
|
|
|
|
+" "" "2E84A" :UBS :NOSDIAG :NOETAB) "TOLVar22@" ("\\-> ob
|
|
|
|
|
+" "" "2E84B" :UBS :NOSDIAG :NOETAB) "TOLVar23!" ("ob \\->
|
|
|
|
|
+" "" "2E84C" :UBS :NOSDIAG :NOETAB) "TOLVar23@" ("\\-> ob
|
|
|
|
|
+" "" "2E84D" :UBS :NOSDIAG :NOETAB) "TOLVar24!" ("ob \\->
|
|
|
|
|
+" "" "2E84E" :UBS :NOSDIAG :NOETAB) "TOLVar24@" ("\\-> ob
|
|
|
|
|
+" "" "2E84F" :UBS :NOSDIAG :NOETAB) "TOLVar25!" ("ob \\->
|
|
|
|
|
+" "" "2E850" :UBS :NOSDIAG :NOETAB) "TOLVar25@" ("\\-> ob
|
|
|
|
|
+" "" "2E851" :UBS :NOSDIAG :NOETAB) "TOLVar26!" ("ob \\->
|
|
|
|
|
+" "" "2E852" :UBS :NOSDIAG :NOETAB) "TOLVar26@" ("\\-> ob
|
|
|
|
|
+" "" "2E853" :UBS :NOSDIAG :NOETAB) "TOLVar27!" ("ob \\->
|
|
|
|
|
+" "" "2E854" :UBS :NOSDIAG :NOETAB) "TOLVar27@" ("\\-> ob
|
|
|
|
|
+" "" "2E855" :UBS :NOSDIAG :NOETAB) "TOLVar28!" ("ob \\->
|
|
|
|
|
+" "" "2E856" :UBS :NOSDIAG :NOETAB) "TOLVar28@" ("\\-> ob
|
|
|
|
|
+" "" "2E857" :UBS :NOSDIAG :NOETAB) "TOLVar29!" ("ob \\->
|
|
|
|
|
+" "" "2E858" :UBS :NOSDIAG :NOETAB) "TOLVar29@" ("\\-> ob
|
|
|
|
|
+" "" "2E859" :UBS :NOSDIAG :NOETAB) "TOLVar30!" ("ob \\->
|
|
|
|
|
+" "" "2E85A" :UBS :NOSDIAG :NOETAB) "TOLVar30@" ("\\-> ob
|
|
|
|
|
+" "" "2E85B" :UBS :NOSDIAG :NOETAB) "TOLVar31!" ("ob \\->
|
|
|
|
|
+" "" "2E85C" :UBS :NOSDIAG :NOETAB) "TOLVar31@" ("\\-> ob
|
|
|
|
|
+" "" "2E85D" :UBS :NOSDIAG :NOETAB) "TOLVar32!" ("ob \\->
|
|
|
|
|
+" "" "2E85E" :UBS :NOSDIAG :NOETAB) "TOLVar32@" ("\\-> ob
|
|
|
|
|
+" "" "2E85F" :UBS :NOSDIAG :NOETAB) "TOLVar33!" ("ob \\->
|
|
|
|
|
+" "" "2E860" :UBS :NOSDIAG :NOETAB) "TOLVar33@" ("\\-> ob
|
|
|
|
|
+" "" "2E861" :UBS :NOSDIAG :NOETAB) "TOLVar34!" ("ob \\->
|
|
|
|
|
+" "" "2E862" :UBS :NOSDIAG :NOETAB) "TOLVar34@" ("\\-> ob
|
|
|
|
|
+" "" "2E863" :UBS :NOSDIAG :NOETAB) "TOLVar35!" ("ob \\->
|
|
|
|
|
+" "" "2E864" :UBS :NOSDIAG :NOETAB) "TOLVar35@" ("\\-> ob
|
|
|
|
|
+" "" "2E865" :UBS :NOSDIAG :NOETAB) "TOLVar36!" ("ob \\->
|
|
|
|
|
+" "" "2E866" :UBS :NOSDIAG :NOETAB) "TOLVar36@" ("\\-> ob
|
|
|
|
|
+" "" "2E867" :UBS :NOSDIAG :NOETAB) "TOLVar37!" ("ob \\->
|
|
|
|
|
+" "" "2E868" :UBS :NOSDIAG :NOETAB) "TOLVar37@" ("\\-> ob
|
|
|
|
|
+" "" "2E869" :UBS :NOSDIAG :NOETAB) "TOLVar38!" ("ob \\->
|
|
|
|
|
+" "" "2E86A" :UBS :NOSDIAG :NOETAB) "TOLVar38@" ("\\-> ob
|
|
|
|
|
+" "" "2E86B" :UBS :NOSDIAG :NOETAB) "TOLVar39!" ("ob \\->
|
|
|
|
|
+" "" "2E86C" :UBS :NOSDIAG :NOETAB) "TOLVar39@" ("\\-> ob
|
|
|
|
|
+" "" "2E86D" :UBS :NOSDIAG :NOETAB) "TOLVar40!" ("ob \\->
|
|
|
|
|
+" "" "2E86E" :UBS :NOSDIAG :NOETAB) "TOLVar40@" ("\\-> ob
|
|
|
|
|
+" "" "2E86F" :UBS :NOSDIAG :NOETAB) "TOLVar41!" ("ob \\->
|
|
|
|
|
+" "" "2E870" :UBS :NOSDIAG :NOETAB) "TOLVar41@" ("\\-> ob
|
|
|
|
|
+" "" "2E871" :UBS :NOSDIAG :NOETAB) "TOLVar42!" ("ob \\->
|
|
|
|
|
+" "" "2E872" :UBS :NOSDIAG :NOETAB) "TOLVar42@" ("\\-> ob
|
|
|
|
|
+" "" "2E873" :UBS :NOSDIAG :NOETAB) "TOLVar43!" ("ob \\->
|
|
|
|
|
+" "" "2E874" :UBS :NOSDIAG :NOETAB) "TOLVar43@" ("\\-> ob
|
|
|
|
|
+" "" "2E875" :UBS :NOSDIAG :NOETAB) "TOLVar44!" ("ob \\->
|
|
|
|
|
+" "" "2E876" :UBS :NOSDIAG :NOETAB) "TOLVar44@" ("\\-> ob
|
|
|
|
|
+" "" "2E877" :UBS :NOSDIAG :NOETAB) "TOLVar45!" ("ob \\->
|
|
|
|
|
+" "" "2E878" :UBS :NOSDIAG :NOETAB) "TOLVar45@" ("\\-> ob
|
|
|
|
|
+" "" "2E879" :UBS :NOSDIAG :NOETAB) "TOLVar46!" ("ob \\->
|
|
|
|
|
+" "" "2E87A" :UBS :NOSDIAG :NOETAB) "TOLVar46@" ("\\-> ob
|
|
|
|
|
+" "" "2E87B" :UBS :NOSDIAG :NOETAB) "TOLVar47!" ("ob \\->
|
|
|
|
|
+" "" "2E87C" :UBS :NOSDIAG :NOETAB) "TOLVar47@" ("\\-> ob
|
|
|
|
|
+" "" "2E87D" :UBS :NOSDIAG :NOETAB) "TOLVar48!" ("ob \\->
|
|
|
|
|
+" "" "2E87E" :UBS :NOSDIAG :NOETAB) "TOLVar48@" ("\\-> ob
|
|
|
|
|
+" "" "2E87F" :UBS :NOSDIAG :NOETAB) "TOLVar49!" ("ob \\->
|
|
|
|
|
+" "" "2E880" :UBS :NOSDIAG :NOETAB) "TOLVar49@" ("\\-> ob
|
|
|
|
|
+" "" "2E881" :UBS :NOSDIAG :NOETAB) "TOLVar50!" ("ob \\->
|
|
|
|
|
+" "" "2E882" :UBS :NOSDIAG :NOETAB) "TOLVar50@" ("\\-> ob
|
|
|
|
|
+" "" "2E883" :UBS :NOSDIAG :NOETAB) "TOLVar51!" ("ob \\->
|
|
|
|
|
+" "" "2E884" :UBS :NOSDIAG :NOETAB) "TOLVar51@" ("\\-> ob
|
|
|
|
|
+" "" "2E885" :UBS :NOSDIAG :NOETAB) "TOLVar52!" ("ob \\->
|
|
|
|
|
+" "" "2E886" :UBS :NOSDIAG :NOETAB) "TOLVar52@" ("\\-> ob
|
|
|
|
|
+" "" "2E887" :UBS :NOSDIAG :NOETAB) "TOLVar53!" ("ob \\->
|
|
|
|
|
+" "" "2E888" :UBS :NOSDIAG :NOETAB) "TOLVar53@" ("\\-> ob
|
|
|
|
|
+" "" "2E889" :UBS :NOSDIAG :NOETAB) "TOLVar54!" ("ob \\->
|
|
|
|
|
+" "" "2E88A" :UBS :NOSDIAG :NOETAB) "TOLVar54@" ("\\-> ob
|
|
|
|
|
+" "" "2E88B" :UBS :NOSDIAG :NOETAB) "TOLVar55!" ("ob \\->
|
|
|
|
|
+" "" "2E88C" :UBS :NOSDIAG :NOETAB) "TOLVar55@" ("\\-> ob
|
|
|
|
|
+" "" "2E88D" :UBS :NOSDIAG :NOETAB) "TOLVar56!" ("ob \\->
|
|
|
|
|
+" "" "2E88E" :UBS :NOSDIAG :NOETAB) "TOLVar56@" ("\\-> ob
|
|
|
|
|
+" "" "2E88F" :UBS :NOSDIAG :NOETAB) "TOLVar57!" ("ob \\->
|
|
|
|
|
+" "" "2E890" :UBS :NOSDIAG :NOETAB) "TOLVar57@" ("\\-> ob
|
|
|
|
|
+" "" "2E891" :UBS :NOSDIAG :NOETAB) "TOLVar58!" ("ob \\->
|
|
|
|
|
+" "" "2E892" :UBS :NOSDIAG :NOETAB) "TOLVar58@" ("\\-> ob
|
|
|
|
|
+" "" "2E893" :UBS :NOSDIAG :NOETAB) "TOLVar59!" ("ob \\->
|
|
|
|
|
+" "" "2E894" :UBS :NOSDIAG :NOETAB) "TOLVar59@" ("\\-> ob
|
|
|
|
|
+" "" "2E895" :UBS :NOSDIAG :NOETAB) "TOLVar60!" ("ob \\->
|
|
|
|
|
+" "" "2E896" :UBS :NOSDIAG :NOETAB) "TOLVar60@" ("\\-> ob
|
|
|
|
|
+" "" "2E897" :UBS :NOSDIAG :NOETAB) "TOLVar61!" ("ob \\->
|
|
|
|
|
+" "" "2E898" :UBS :NOSDIAG :NOETAB) "TOLVar61@" ("\\-> ob
|
|
|
|
|
+" "" "2E899" :UBS :NOSDIAG :NOETAB) "TOLVar62!" ("ob \\->
|
|
|
|
|
+" "" "2E89A" :UBS :NOSDIAG :NOETAB) "TOLVar62@" ("\\-> ob
|
|
|
|
|
+" "" "2E89B" :UBS :NOSDIAG :NOETAB) "TOLVar63!" ("ob \\->
|
|
|
|
|
+" "" "2E89C" :UBS :NOSDIAG :NOETAB) "TOLVar63@" ("\\-> ob
|
|
|
|
|
+" "" "2E89D" :UBS :NOSDIAG :NOETAB) "TOLVar64!" ("ob \\->
|
|
|
|
|
+" "" "2E89E" :UBS :NOSDIAG :NOETAB) "TOLVar64@" ("\\-> ob
|
|
|
|
|
+" "" "2E89F" :UBS :NOSDIAG :NOETAB) "TOLVar65!" ("ob \\->
|
|
|
|
|
+" "" "2E8A0" :UBS :NOSDIAG :NOETAB) "TOLVar65@" ("\\-> ob
|
|
|
|
|
+" "" "2E8A1" :UBS :NOSDIAG :NOETAB) "TOLVar66!" ("ob \\->
|
|
|
|
|
+" "" "2E8A2" :UBS :NOSDIAG :NOETAB) "TOLVar66@" ("\\-> ob
|
|
|
|
|
+" "" "2E8A3" :UBS :NOSDIAG :NOETAB) "TOLVar67!" ("ob \\->
|
|
|
|
|
+" "" "2E8A4" :UBS :NOSDIAG :NOETAB) "TOLVar67@" ("\\-> ob
|
|
|
|
|
+" "" "2E8A5" :UBS :NOSDIAG :NOETAB) "TOLVar68!" ("ob \\->
|
|
|
|
|
+" "" "2E8A6" :UBS :NOSDIAG :NOETAB) "TOLVar68@" ("\\-> ob
|
|
|
|
|
+" "" "2E8A7" :UBS :NOSDIAG :NOETAB) "TOLVar69!" ("ob \\->
|
|
|
|
|
+" "" "2E8A8" :UBS :NOSDIAG :NOETAB) "TOLVar69@" ("\\-> ob
|
|
|
|
|
+" "" "2E8A9" :UBS :NOSDIAG :NOETAB) "TOLVar70!" ("ob \\->
|
|
|
|
|
+" "" "2E8AA" :UBS :NOSDIAG :NOETAB) "TOLVar70@" ("\\-> ob
|
|
|
|
|
+" "" "2E8AB" :UBS :NOSDIAG :NOETAB) "TOLVar71!" ("ob \\->
|
|
|
|
|
+" "" "2E8AC" :UBS :NOSDIAG :NOETAB) "TOLVar71@" ("\\-> ob
|
|
|
|
|
+" "" "2E8AD" :UBS :NOSDIAG :NOETAB) "TOLVar72!" ("ob \\->
|
|
|
|
|
+" "" "2E8AE" :UBS :NOSDIAG :NOETAB) "TOLVar72@" ("\\-> ob
|
|
|
|
|
+" "" "2E8AF" :UBS :NOSDIAG :NOETAB) "TOLVar73!" ("ob \\->
|
|
|
|
|
+" "" "2E8B0" :UBS :NOSDIAG :NOETAB) "TOLVar73@" ("\\-> ob
|
|
|
|
|
+" "" "2E8B1" :UBS :NOSDIAG :NOETAB) "TOLVar74!" ("ob \\->
|
|
|
|
|
+" "" "2E8B2" :UBS :NOSDIAG :NOETAB) "TOLVar74@" ("\\-> ob
|
|
|
|
|
+" "" "2E8B3" :UBS :NOSDIAG :NOETAB) "TOLVar75!" ("ob \\->
|
|
|
|
|
+" "" "2E8B4" :UBS :NOSDIAG :NOETAB) "TOLVar75@" ("\\-> ob
|
|
|
|
|
+" "" "2E8B5" :UBS :NOSDIAG :NOETAB) "TOLVar76!" ("ob \\->
|
|
|
|
|
+" "" "2E8B6" :UBS :NOSDIAG :NOETAB) "TOLVar76@" ("\\-> ob
|
|
|
|
|
+" "" "2E8B7" :UBS :NOSDIAG :NOETAB) "TOLVar77!" ("ob \\->
|
|
|
|
|
+" "" "2E8B8" :UBS :NOSDIAG :NOETAB) "TOLVar77@" ("\\-> ob
|
|
|
|
|
+" "" "2E8B9" :UBS :NOSDIAG :NOETAB) "TOLVar78!" ("ob \\->
|
|
|
|
|
+" "" "2E8BA" :UBS :NOSDIAG :NOETAB) "TOLVar78@" ("\\-> ob
|
|
|
|
|
+" "" "2E8BB" :UBS :NOSDIAG :NOETAB) "TOLVar79!" ("ob \\->
|
|
|
|
|
+" "" "2E8BC" :UBS :NOSDIAG :NOETAB) "TOLVar79@" ("\\-> ob
|
|
|
|
|
+" "" "2E8BD" :UBS :NOSDIAG :NOETAB) "TOLVar80!" ("ob \\->
|
|
|
|
|
+" "" "2E8BE" :UBS :NOSDIAG :NOETAB) "TOLVar80@" ("\\-> ob
|
|
|
|
|
+" "" "2E8BF" :UBS :NOSDIAG :NOETAB) "TOLVar81!" ("ob \\->
|
|
|
|
|
+" "" "2E8C0" :UBS :NOSDIAG :NOETAB) "TOLVar81@" ("\\-> ob
|
|
|
|
|
+" "" "2E8C1" :UBS :NOSDIAG :NOETAB) "TOLVar82!" ("ob \\->
|
|
|
|
|
+" "" "2E8C2" :UBS :NOSDIAG :NOETAB) "TOLVar82@" ("\\-> ob
|
|
|
|
|
+" "" "2E8C3" :UBS :NOSDIAG :NOETAB) "TOLVar83!" ("ob \\->
|
|
|
|
|
+" "" "2E8C4" :UBS :NOSDIAG :NOETAB) "TOLVar83@" ("\\-> ob
|
|
|
|
|
+" "" "2E8C5" :UBS :NOSDIAG :NOETAB) "TOLVar84!" ("ob \\->
|
|
|
|
|
+" "" "2E8C6" :UBS :NOSDIAG :NOETAB) "TOLVar84@" ("\\-> ob
|
|
|
|
|
+" "" "2E8C7" :UBS :NOSDIAG :NOETAB) "TOLVar85!" ("ob \\->
|
|
|
|
|
+" "" "2E8C8" :UBS :NOSDIAG :NOETAB) "TOLVar85@" ("\\-> ob
|
|
|
|
|
+" "" "2E8C9" :UBS :NOSDIAG :NOETAB) "TOLVar86!" ("ob \\->
|
|
|
|
|
+" "" "2E8CA" :UBS :NOSDIAG :NOETAB) "TOLVar86@" ("\\-> ob
|
|
|
|
|
+" "" "2E8CB" :UBS :NOSDIAG :NOETAB) "TOLVar87!" ("ob \\->
|
|
|
|
|
+" "" "2E8CC" :UBS :NOSDIAG :NOETAB) "TOLVar87@" ("\\-> ob
|
|
|
|
|
+" "" "2E8CD" :UBS :NOSDIAG :NOETAB) "TOLVar88!" ("ob \\->
|
|
|
|
|
+" "" "2E8CE" :UBS :NOSDIAG :NOETAB) "TOLVar88@" ("\\-> ob
|
|
|
|
|
+" "" "2E8CF" :UBS :NOSDIAG :NOETAB) "TOLVar89!" ("ob \\->
|
|
|
|
|
+" "" "2E8D0" :UBS :NOSDIAG :NOETAB) "TOLVar89@" ("\\-> ob
|
|
|
|
|
+" "" "2E8D1" :UBS :NOSDIAG :NOETAB) "TOLVar90!" ("ob \\->
|
|
|
|
|
+" "" "2E8D2" :UBS :NOSDIAG :NOETAB) "TOLVar90@" ("\\-> ob
|
|
|
|
|
+" "" "2E8D3" :UBS :NOSDIAG :NOETAB) "TOLVar91!" ("ob \\->
|
|
|
|
|
+" "" "2E8D4" :UBS :NOSDIAG :NOETAB) "TOLVar91@" ("\\-> ob
|
|
|
|
|
+" "" "2E8D5" :UBS :NOSDIAG :NOETAB) "TOLVar92!" ("ob \\->
|
|
|
|
|
+" "" "2E8D6" :UBS :NOSDIAG :NOETAB) "TOLVar92@" ("\\-> ob
|
|
|
|
|
+" "" "2E8D7" :UBS :NOSDIAG :NOETAB) "TOLVar93!" ("ob \\->
|
|
|
|
|
+" "" "2E8D8" :UBS :NOSDIAG :NOETAB) "TOLVar93@" ("\\-> ob
|
|
|
|
|
+" "" "2E8D9" :UBS :NOSDIAG :NOETAB) "TOLVar94!" ("ob \\->
|
|
|
|
|
+" "" "2E8DA" :UBS :NOSDIAG :NOETAB) "TOLVar94@" ("\\-> ob
|
|
|
|
|
+" "" "2E8DB" :UBS :NOSDIAG :NOETAB) "TOLVar95!" ("ob \\->
|
|
|
|
|
+" "" "2E8DC" :UBS :NOSDIAG :NOETAB) "TOLVar95@" ("\\-> ob
|
|
|
|
|
+" "" "2E8DD" :UBS :NOSDIAG :NOETAB) "TOLVar96!" ("ob \\->
|
|
|
|
|
+" "" "2E8DE" :UBS :NOSDIAG :NOETAB) "TOLVar96@" ("\\-> ob
|
|
|
|
|
+" "" "2E8DF" :UBS :NOSDIAG :NOETAB) "TOLVar97!" ("ob \\->
|
|
|
|
|
+" "" "2E8E0" :UBS :NOSDIAG :NOETAB) "TOLVar97@" ("\\-> ob
|
|
|
|
|
+" "" "2E8E1" :UBS :NOSDIAG :NOETAB) "TOLVar98!" ("ob \\->
|
|
|
|
|
+" "" "2E8E2" :UBS :NOSDIAG :NOETAB) "TOLVar98@" ("\\-> ob
|
|
|
|
|
+" "" "2E8E3" :UBS :NOSDIAG :NOETAB) "TOLVar99!" ("ob \\->
|
|
|
|
|
+" "" "2E8E4" :UBS :NOSDIAG :NOETAB) "TOLVar99@" ("\\-> ob
|
|
|
|
|
+" "" "2E8E5" :UBS :NOSDIAG :NOETAB) "TOLVar100!" ("ob \\->
|
|
|
|
|
+" "" "2E8E6" :UBS :NOSDIAG :NOETAB) "TOLVar100@" ("\\-> ob
|
|
|
|
|
+" "" "2E8E7" :UBS :NOSDIAG :NOETAB) "TOLVar101!" ("ob \\->
|
|
|
|
|
+" "" "2E8E8" :UBS :NOSDIAG :NOETAB) "TOLVar101@" ("\\-> ob
|
|
|
|
|
+" "" "2E8E9" :UBS :NOSDIAG :NOETAB) "TOLVar102!" ("ob \\->
|
|
|
|
|
+" "" "2E8EA" :UBS :NOSDIAG :NOETAB) "TOLVar102@" ("\\-> ob
|
|
|
|
|
+" "" "2E8EB" :UBS :NOSDIAG :NOETAB) "TOLVar103!" ("ob \\->
|
|
|
|
|
+" "" "2E8EC" :UBS :NOSDIAG :NOETAB) "TOLVar103@" ("\\-> ob
|
|
|
|
|
+" "" "2E8ED" :UBS :NOSDIAG :NOETAB) "TOLVar104!" ("ob \\->
|
|
|
|
|
+" "" "2E8EE" :UBS :NOSDIAG :NOETAB) "TOLVar104@" ("\\-> ob
|
|
|
|
|
+" "" "2E8EF" :UBS :NOSDIAG :NOETAB) "TOLVar105!" ("ob \\->
|
|
|
|
|
+" "" "2E8F0" :UBS :NOSDIAG :NOETAB) "TOLVar105@" ("\\-> ob
|
|
|
|
|
+" "" "2E8F1" :UBS :NOSDIAG :NOETAB) "TOLVar106!" ("ob \\->
|
|
|
|
|
+" "" "2E8F2" :UBS :NOSDIAG :NOETAB) "TOLVar106@" ("\\-> ob
|
|
|
|
|
+" "" "2E8F3" :UBS :NOSDIAG :NOETAB) "TOLVar107!" ("ob \\->
|
|
|
|
|
+" "" "2E8F4" :UBS :NOSDIAG :NOETAB) "TOLVar107@" ("\\-> ob
|
|
|
|
|
+" "" "2E8F5" :UBS :NOSDIAG :NOETAB) "TOLVar108!" ("ob \\->
|
|
|
|
|
+" "" "2E8F6" :UBS :NOSDIAG :NOETAB) "TOLVar108@" ("\\-> ob
|
|
|
|
|
+" "" "2E8F7" :UBS :NOSDIAG :NOETAB) "TOLVar109!" ("ob \\->
|
|
|
|
|
+" "" "2E8F8" :UBS :NOSDIAG :NOETAB) "TOLVar109@" ("\\-> ob
|
|
|
|
|
+" "" "2E8F9" :UBS :NOSDIAG :NOETAB) "TOLVar110!" ("ob \\->
|
|
|
|
|
+" "" "2E8FA" :UBS :NOSDIAG :NOETAB) "TOLVar110@" ("\\-> ob
|
|
|
|
|
+" "" "2E8FB" :UBS :NOSDIAG :NOETAB) "TOLVar111!" ("ob \\->
|
|
|
|
|
+" "" "2E8FC" :UBS :NOSDIAG :NOETAB) "TOLVar111@" ("\\-> ob
|
|
|
|
|
+" "" "2E8FD" :UBS :NOSDIAG :NOETAB) "TOLVar112!" ("ob \\->
|
|
|
|
|
+" "" "2E8FE" :UBS :NOSDIAG :NOETAB) "TOLVar112@" ("\\-> ob
|
|
|
|
|
+" "" "2E8FF" :UBS :NOSDIAG :NOETAB) "TOLVar113!" ("ob \\->
|
|
|
|
|
+" "" "2E900" :UBS :NOSDIAG :NOETAB) "TOLVar113@" ("\\-> ob
|
|
|
|
|
+" "" "2E901" :UBS :NOSDIAG :NOETAB) "TOLVar114!" ("ob \\->
|
|
|
|
|
+" "" "2E902" :UBS :NOSDIAG :NOETAB) "TOLVar114@" ("\\-> ob
|
|
|
|
|
+" "" "2E903" :UBS :NOSDIAG :NOETAB) "TOLVar115!" ("ob \\->
|
|
|
|
|
+" "" "2E904" :UBS :NOSDIAG :NOETAB) "TOLVar115@" ("\\-> ob
|
|
|
|
|
+" "" "2E905" :UBS :NOSDIAG :NOETAB) "TOLVar116!" ("ob \\->
|
|
|
|
|
+" "" "2E906" :UBS :NOSDIAG :NOETAB) "TOLVar116@" ("\\-> ob
|
|
|
|
|
+" "" "2E907" :UBS :NOSDIAG :NOETAB) "TOLVar117!" ("ob \\->
|
|
|
|
|
+" "" "2E908" :UBS :NOSDIAG :NOETAB) "TOLVar117@" ("\\-> ob
|
|
|
|
|
+" "" "2E909" :UBS :NOSDIAG :NOETAB) "TOLVar118!" ("ob \\->
|
|
|
|
|
+" "" "2E90A" :UBS :NOSDIAG :NOETAB) "TOLVar118@" ("\\-> ob
|
|
|
|
|
+" "" "2E90B" :UBS :NOSDIAG :NOETAB) "TOLVar119!" ("ob \\->
|
|
|
|
|
+" "" "2E90C" :UBS :NOSDIAG :NOETAB) "TOLVar119@" ("\\-> ob
|
|
|
|
|
+" "" "2E90D" :UBS :NOSDIAG :NOETAB) "TOLVar120!" ("ob \\->
|
|
|
|
|
+" "" "2E90E" :UBS :NOSDIAG :NOETAB) "TOLVar120@" ("\\-> ob
|
|
|
|
|
+" "" "2E90F" :UBS :NOSDIAG :NOETAB) "TOLVar121!" ("ob \\->
|
|
|
|
|
+" "" "2E910" :UBS :NOSDIAG :NOETAB) "TOLVar121@" ("\\-> ob
|
|
|
|
|
+" "" "2E911" :UBS :NOSDIAG :NOETAB) "TOLVar122!" ("ob \\->
|
|
|
|
|
+" "" "2E912" :UBS :NOSDIAG :NOETAB) "TOLVar122@" ("\\-> ob
|
|
|
|
|
+" "" "2E913" :UBS :NOSDIAG :NOETAB) "TOLVar123!" ("ob \\->
|
|
|
|
|
+" "" "2E914" :UBS :NOSDIAG :NOETAB) "TOLVar123@" ("\\-> ob
|
|
|
|
|
+" "" "2E915" :UBS :NOSDIAG :NOETAB) "TOLVar124!" ("ob \\->
|
|
|
|
|
+" "" "2E916" :UBS :NOSDIAG :NOETAB) "TOLVar124@" ("\\-> ob
|
|
|
|
|
+" "" "2E917" :UBS :NOSDIAG :NOETAB) "TOLVar125!" ("ob \\->
|
|
|
|
|
+" "" "2E918" :UBS :NOSDIAG :NOETAB) "TOLVar125@" ("\\-> ob
|
|
|
|
|
+" "" "2E919" :UBS :NOSDIAG :NOETAB) "TOLVar126!" ("ob \\->
|
|
|
|
|
+" "" "2E91A" :UBS :NOSDIAG :NOETAB) "TOLVar126@" ("\\-> ob
|
|
|
|
|
+" "" "2E91B" :UBS :NOSDIAG :NOETAB) "TOLVar127!" ("ob \\->
|
|
|
|
|
+" "" "2E91C" :UBS :NOSDIAG :NOETAB) "TOLVar127@" ("\\-> ob
|
|
|
|
|
+" "" "2E91D" :UBS :NOSDIAG :NOETAB) "TOLVar128!" ("ob \\->
|
|
|
|
|
+" "" "2E91E" :UBS :NOSDIAG :NOETAB) "TOLVar128@" ("\\-> ob
|
|
|
|
|
+" "" "2E91F" :UBS :NOSDIAG :NOETAB) "TOLVar129!" ("ob \\->
|
|
|
|
|
+" "" "2E920" :UBS :NOSDIAG :NOETAB) "TOLVar129@" ("\\-> ob
|
|
|
|
|
+" "" "2E921" :UBS :NOSDIAG :NOETAB) "TOLVar130!" ("ob \\->
|
|
|
|
|
+" "" "2E922" :UBS :NOSDIAG :NOETAB) "TOLVar130@" ("\\-> ob
|
|
|
|
|
+" "" "2E923" :UBS :NOSDIAG :NOETAB) "TOLVar131!" ("ob \\->
|
|
|
|
|
+" "" "2E924" :UBS :NOSDIAG :NOETAB) "TOLVar131@" ("\\-> ob
|
|
|
|
|
+" "" "2E925" :UBS :NOSDIAG :NOETAB) "TOLVar132!" ("ob \\->
|
|
|
|
|
+" "" "2E926" :UBS :NOSDIAG :NOETAB) "TOLVar132@" ("\\-> ob
|
|
|
|
|
+" "" "2E927" :UBS :NOSDIAG :NOETAB) "TOLVar133!" ("ob \\->
|
|
|
|
|
+" "" "2E928" :UBS :NOSDIAG :NOETAB) "TOLVar133@" ("\\-> ob
|
|
|
|
|
+" "" "2E929" :UBS :NOSDIAG :NOETAB) "TOLVar134!" ("ob \\->
|
|
|
|
|
+" "" "2E92A" :UBS :NOSDIAG :NOETAB) "TOLVar134@" ("\\-> ob
|
|
|
|
|
+" "" "2E92B" :UBS :NOSDIAG :NOETAB) "TOLVar135!" ("ob \\->
|
|
|
|
|
+" "" "2E92C" :UBS :NOSDIAG :NOETAB) "TOLVar135@" ("\\-> ob
|
|
|
|
|
+" "" "2E92D" :UBS :NOSDIAG :NOETAB) "TOLVar136!" ("ob \\->
|
|
|
|
|
+" "" "2E92E" :UBS :NOSDIAG :NOETAB) "TOLVar136@" ("\\-> ob
|
|
|
|
|
+" "" "2E92F" :UBS :NOSDIAG :NOETAB) "TOLVar137!" ("ob \\->
|
|
|
|
|
+" "" "2E930" :UBS :NOSDIAG :NOETAB) "TOLVar137@" ("\\-> ob
|
|
|
|
|
+" "" "2E931" :UBS :NOSDIAG :NOETAB) "TOLVar138!" ("ob \\->
|
|
|
|
|
+" "" "2E932" :UBS :NOSDIAG :NOETAB) "TOLVar138@" ("\\-> ob
|
|
|
|
|
+" "" "2E933" :UBS :NOSDIAG :NOETAB) "TOLVar139!" ("ob \\->
|
|
|
|
|
+" "" "2E934" :UBS :NOSDIAG :NOETAB) "TOLVar139@" ("\\-> ob
|
|
|
|
|
+" "" "2E935" :UBS :NOSDIAG :NOETAB) "TOLVar140!" ("ob \\->
|
|
|
|
|
+" "" "2E936" :UBS :NOSDIAG :NOETAB) "TOLVar140@" ("\\-> ob
|
|
|
|
|
+" "" "2E937" :UBS :NOSDIAG :NOETAB) "TOLVar141!" ("ob \\->
|
|
|
|
|
+" "" "2E938" :UBS :NOSDIAG :NOETAB) "TOLVar141@" ("\\-> ob
|
|
|
|
|
+" "" "2E939" :UBS :NOSDIAG :NOETAB) "TOLVar142!" ("ob \\->
|
|
|
|
|
+" "" "2E93A" :UBS :NOSDIAG :NOETAB) "TOLVar142@" ("\\-> ob
|
|
|
|
|
+" "" "2E93B" :UBS :NOSDIAG :NOETAB) "TOLVar143!" ("ob \\->
|
|
|
|
|
+" "" "2E93C" :UBS :NOSDIAG :NOETAB) "TOLVar143@" ("\\-> ob
|
|
|
|
|
+" "" "2E93D" :UBS :NOSDIAG :NOETAB) "TOLVar144!" ("ob \\->
|
|
|
|
|
+" "" "2E93E" :UBS :NOSDIAG :NOETAB) "TOLVar144@" ("\\-> ob
|
|
|
|
|
+" "" "2E93F" :UBS :NOSDIAG :NOETAB) "TOLVar145!" ("ob \\->
|
|
|
|
|
+" "" "2E940" :UBS :NOSDIAG :NOETAB) "TOLVar145@" ("\\-> ob
|
|
|
|
|
+" "" "2E941" :UBS :NOSDIAG :NOETAB) "TOLVar146!" ("ob \\->
|
|
|
|
|
+" "" "2E942" :UBS :NOSDIAG :NOETAB) "TOLVar146@" ("\\-> ob
|
|
|
|
|
+" "" "2E943" :UBS :NOSDIAG :NOETAB) "TOLVar147!" ("ob \\->
|
|
|
|
|
+" "" "2E944" :UBS :NOSDIAG :NOETAB) "TOLVar147@" ("\\-> ob
|
|
|
|
|
+" "" "2E945" :UBS :NOSDIAG :NOETAB) "TOLVar148!" ("ob \\->
|
|
|
|
|
+" "" "2E946" :UBS :NOSDIAG :NOETAB) "TOLVar148@" ("\\-> ob
|
|
|
|
|
+" "" "2E947" :UBS :NOSDIAG :NOETAB) "TOLVar149!" ("ob \\->
|
|
|
|
|
+" "" "2E948" :UBS :NOSDIAG :NOETAB) "TOLVar149@" ("\\-> ob
|
|
|
|
|
+" "" "2E949" :UBS :NOSDIAG :NOETAB) "TOLVar150!" ("ob \\->
|
|
|
|
|
+" "" "2E94A" :UBS :NOSDIAG :NOETAB) "TOLVar150@" ("\\-> ob
|
|
|
|
|
+" "" "2E94B" :UBS :NOSDIAG :NOETAB) "TOLVar151!" ("ob \\->
|
|
|
|
|
+" "" "2E94C" :UBS :NOSDIAG :NOETAB) "TOLVar151@" ("\\-> ob
|
|
|
|
|
+" "" "2E94D" :UBS :NOSDIAG :NOETAB) "TOLVar152!" ("ob \\->
|
|
|
|
|
+" "" "2E94E" :UBS :NOSDIAG :NOETAB) "TOLVar152@" ("\\-> ob
|
|
|
|
|
+" "" "2E94F" :UBS :NOSDIAG :NOETAB) "TOLVar153!" ("ob \\->
|
|
|
|
|
+" "" "2E950" :UBS :NOSDIAG :NOETAB) "TOLVar153@" ("\\-> ob
|
|
|
|
|
+" "" "2E951" :UBS :NOSDIAG :NOETAB) "TOLVar154!" ("ob \\->
|
|
|
|
|
+" "" "2E952" :UBS :NOSDIAG :NOETAB) "TOLVar154@" ("\\-> ob
|
|
|
|
|
+" "" "2E953" :UBS :NOSDIAG :NOETAB) "TOLVar155!" ("ob \\->
|
|
|
|
|
+" "" "2E954" :UBS :NOSDIAG :NOETAB) "TOLVar155@" ("\\-> ob
|
|
|
|
|
+" "" "2E955" :UBS :NOSDIAG :NOETAB) "TOLVar156!" ("ob \\->
|
|
|
|
|
+" "" "2E956" :UBS :NOSDIAG :NOETAB) "TOLVar156@" ("\\-> ob
|
|
|
|
|
+" "" "2E957" :UBS :NOSDIAG :NOETAB) "TOLVar157!" ("ob \\->
|
|
|
|
|
+" "" "2E958" :UBS :NOSDIAG :NOETAB) "TOLVar157@" ("\\-> ob
|
|
|
|
|
+" "" "2E959" :UBS :NOSDIAG :NOETAB) "TOLVar158!" ("ob \\->
|
|
|
|
|
+" "" "2E95A" :UBS :NOSDIAG :NOETAB) "TOLVar158@" ("\\-> ob
|
|
|
|
|
+" "" "2E95B" :UBS :NOSDIAG :NOETAB) "TOLVar159!" ("ob \\->
|
|
|
|
|
+" "" "2E95C" :UBS :NOSDIAG :NOETAB) "TOLVar159@" ("\\-> ob
|
|
|
|
|
+" "" "2E95D" :UBS :NOSDIAG :NOETAB) "TOLVar160!" ("ob \\->
|
|
|
|
|
+" "" "2E95E" :UBS :NOSDIAG :NOETAB) "TOLVar160@" ("\\-> ob
|
|
|
|
|
+" "" "2E95F" :UBS :NOSDIAG :NOETAB) "TOLVar161!" ("ob \\->
|
|
|
|
|
+" "" "2E960" :UBS :NOSDIAG :NOETAB) "TOLVar161@" ("\\-> ob
|
|
|
|
|
+" "" "2E961" :UBS :NOSDIAG :NOETAB) "TOLVar162!" ("ob \\->
|
|
|
|
|
+" "" "2E962" :UBS :NOSDIAG :NOETAB) "TOLVar162@" ("\\-> ob
|
|
|
|
|
+" "" "2E963" :UBS :NOSDIAG :NOETAB) "TOLVar163!" ("ob \\->
|
|
|
|
|
+" "" "2E964" :UBS :NOSDIAG :NOETAB) "TOLVar163@" ("\\-> ob
|
|
|
|
|
+" "" "2E965" :UBS :NOSDIAG :NOETAB) "TOLVar164!" ("ob \\->
|
|
|
|
|
+" "" "2E966" :UBS :NOSDIAG :NOETAB) "TOLVar164@" ("\\-> ob
|
|
|
|
|
+" "" "2E967" :UBS :NOSDIAG :NOETAB) "TOLVar165!" ("ob \\->
|
|
|
|
|
+" "" "2E968" :UBS :NOSDIAG :NOETAB) "TOLVar165@" ("\\-> ob
|
|
|
|
|
+" "" "2E969" :UBS :NOSDIAG :NOETAB) "TOLVar166!" ("ob \\->
|
|
|
|
|
+" "" "2E96A" :UBS :NOSDIAG :NOETAB) "TOLVar166@" ("\\-> ob
|
|
|
|
|
+" "" "2E96B" :UBS :NOSDIAG :NOETAB) "TOLVar167!" ("ob \\->
|
|
|
|
|
+" "" "2E96C" :UBS :NOSDIAG :NOETAB) "TOLVar167@" ("\\-> ob
|
|
|
|
|
+" "" "2E96D" :UBS :NOSDIAG :NOETAB) "TOLVar168!" ("ob \\->
|
|
|
|
|
+" "" "2E96E" :UBS :NOSDIAG :NOETAB) "TOLVar168@" ("\\-> ob
|
|
|
|
|
+" "" "2E96F" :UBS :NOSDIAG :NOETAB) "TOLVar169!" ("ob \\->
|
|
|
|
|
+" "" "2E970" :UBS :NOSDIAG :NOETAB) "TOLVar169@" ("\\-> ob
|
|
|
|
|
+" "" "2E971" :UBS :NOSDIAG :NOETAB) "TOLVar170!" ("ob \\->
|
|
|
|
|
+" "" "2E972" :UBS :NOSDIAG :NOETAB) "TOLVar170@" ("\\-> ob
|
|
|
|
|
+" "" "2E973" :UBS :NOSDIAG :NOETAB) "TOLVar171!" ("ob \\->
|
|
|
|
|
+" "" "2E974" :UBS :NOSDIAG :NOETAB) "TOLVar171@" ("\\-> ob
|
|
|
|
|
+" "" "2E975" :UBS :NOSDIAG :NOETAB) "TOLVar172!" ("ob \\->
|
|
|
|
|
+" "" "2E976" :UBS :NOSDIAG :NOETAB) "TOLVar172@" ("\\-> ob
|
|
|
|
|
+" "" "2E977" :UBS :NOSDIAG :NOETAB) "TOLVar173!" ("ob \\->
|
|
|
|
|
+" "" "2E978" :UBS :NOSDIAG :NOETAB) "TOLVar173@" ("\\-> ob
|
|
|
|
|
+" "" "2E979" :UBS :NOSDIAG :NOETAB) "TOLVar174!" ("ob \\->
|
|
|
|
|
+" "" "2E97A" :UBS :NOSDIAG :NOETAB) "TOLVar174@" ("\\-> ob
|
|
|
|
|
+" "" "2E97B" :UBS :NOSDIAG :NOETAB) "TOLVar175!" ("ob \\->
|
|
|
|
|
+" "" "2E97C" :UBS :NOSDIAG :NOETAB) "TOLVar175@" ("\\-> ob
|
|
|
|
|
+" "" "2E97D" :UBS :NOSDIAG :NOETAB) "TOLVar176!" ("ob \\->
|
|
|
|
|
+" "" "2E97E" :UBS :NOSDIAG :NOETAB) "TOLVar176@" ("\\-> ob
|
|
|
|
|
+" "" "2E97F" :UBS :NOSDIAG :NOETAB) "TOLVar177!" ("ob \\->
|
|
|
|
|
+" "" "2E980" :UBS :NOSDIAG :NOETAB) "TOLVar177@" ("\\-> ob
|
|
|
|
|
+" "" "2E981" :UBS :NOSDIAG :NOETAB) "TOLVar178!" ("ob \\->
|
|
|
|
|
+" "" "2E982" :UBS :NOSDIAG :NOETAB) "TOLVar178@" ("\\-> ob
|
|
|
|
|
+" "" "2E983" :UBS :NOSDIAG :NOETAB) "TOLVar179!" ("ob \\->
|
|
|
|
|
+" "" "2E984" :UBS :NOSDIAG :NOETAB) "TOLVar179@" ("\\-> ob
|
|
|
|
|
+" "" "2E985" :UBS :NOSDIAG :NOETAB) "TOLVar180!" ("ob \\->
|
|
|
|
|
+" "" "2E986" :UBS :NOSDIAG :NOETAB) "TOLVar180@" ("\\-> ob
|
|
|
|
|
+" "" "2E987" :UBS :NOSDIAG :NOETAB) "TOLVar181!" ("ob \\->
|
|
|
|
|
+" "" "2E988" :UBS :NOSDIAG :NOETAB) "TOLVar181@" ("\\-> ob
|
|
|
|
|
+" "" "2E989" :UBS :NOSDIAG :NOETAB) "TOLVar182!" ("ob \\->
|
|
|
|
|
+" "" "2E98A" :UBS :NOSDIAG :NOETAB) "TOLVar182@" ("\\-> ob
|
|
|
|
|
+" "" "2E98B" :UBS :NOSDIAG :NOETAB) "TOLVar183!" ("ob \\->
|
|
|
|
|
+" "" "2E98C" :UBS :NOSDIAG :NOETAB) "TOLVar183@" ("\\-> ob
|
|
|
|
|
+" "" "2E98D" :UBS :NOSDIAG :NOETAB) "TOLVar184!" ("ob \\->
|
|
|
|
|
+" "" "2E98E" :UBS :NOSDIAG :NOETAB) "TOLVar184@" ("\\-> ob
|
|
|
|
|
+" "" "2E98F" :UBS :NOSDIAG :NOETAB) "TOLVar185!" ("ob \\->
|
|
|
|
|
+" "" "2E990" :UBS :NOSDIAG :NOETAB) "TOLVar185@" ("\\-> ob
|
|
|
|
|
+" "" "2E991" :UBS :NOSDIAG :NOETAB) "TOLVar186!" ("ob \\->
|
|
|
|
|
+" "" "2E992" :UBS :NOSDIAG :NOETAB) "TOLVar186@" ("\\-> ob
|
|
|
|
|
+" "" "2E993" :UBS :NOSDIAG :NOETAB) "TOLVar187!" ("ob \\->
|
|
|
|
|
+" "" "2E994" :UBS :NOSDIAG :NOETAB) "TOLVar187@" ("\\-> ob
|
|
|
|
|
+" "" "2E995" :UBS :NOSDIAG :NOETAB) "TOLVar188!" ("ob \\->
|
|
|
|
|
+" "" "2E996" :UBS :NOSDIAG :NOETAB) "TOLVar188@" ("\\-> ob
|
|
|
|
|
+" "" "2E997" :UBS :NOSDIAG :NOETAB) "TOLVar189!" ("ob \\->
|
|
|
|
|
+" "" "2E998" :UBS :NOSDIAG :NOETAB) "TOLVar189@" ("\\-> ob
|
|
|
|
|
+" "" "2E999" :UBS :NOSDIAG :NOETAB) "TOLVar190!" ("ob \\->
|
|
|
|
|
+" "" "2E99A" :UBS :NOSDIAG :NOETAB) "TOLVar190@" ("\\-> ob
|
|
|
|
|
+" "" "2E99B" :UBS :NOSDIAG :NOETAB) "TOLVar191!" ("ob \\->
|
|
|
|
|
+" "" "2E99C" :UBS :NOSDIAG :NOETAB) "TOLVar191@" ("\\-> ob
|
|
|
|
|
+" "" "2E99D" :UBS :NOSDIAG :NOETAB) "TOLVar192!" ("ob \\->
|
|
|
|
|
+" "" "2E99E" :UBS :NOSDIAG :NOETAB) "TOLVar192@" ("\\-> ob
|
|
|
|
|
+" "" "2E99F" :UBS :NOSDIAG :NOETAB) "TOLVar193!" ("ob \\->
|
|
|
|
|
+" "" "2E9A0" :UBS :NOSDIAG :NOETAB) "TOLVar193@" ("\\-> ob
|
|
|
|
|
+" "" "2E9A1" :UBS :NOSDIAG :NOETAB) "TOLVar194!" ("ob \\->
|
|
|
|
|
+" "" "2E9A2" :UBS :NOSDIAG :NOETAB) "TOLVar194@" ("\\-> ob
|
|
|
|
|
+" "" "2E9A3" :UBS :NOSDIAG :NOETAB) "TOLVar195!" ("ob \\->
|
|
|
|
|
+" "" "2E9A4" :UBS :NOSDIAG :NOETAB) "TOLVar195@" ("\\-> ob
|
|
|
|
|
+" "" "2E9A5" :UBS :NOSDIAG :NOETAB) "TOLVar196!" ("ob \\->
|
|
|
|
|
+" "" "2E9A6" :UBS :NOSDIAG :NOETAB) "TOLVar196@" ("\\-> ob
|
|
|
|
|
+" "" "2E9A7" :UBS :NOSDIAG :NOETAB) "TOLVar197!" ("ob \\->
|
|
|
|
|
+" "" "2E9A8" :UBS :NOSDIAG :NOETAB) "TOLVar197@" ("\\-> ob
|
|
|
|
|
+" "" "2E9A9" :UBS :NOSDIAG :NOETAB) "TOLVar198!" ("ob \\->
|
|
|
|
|
+" "" "2E9AA" :UBS :NOSDIAG :NOETAB) "TOLVar198@" ("\\-> ob
|
|
|
|
|
+" "" "2E9AB" :UBS :NOSDIAG :NOETAB) "TOLVar199!" ("ob \\->
|
|
|
|
|
+" "" "2E9AC" :UBS :NOSDIAG :NOETAB) "TOLVar199@" ("\\-> ob
|
|
|
|
|
+" "" "2E9AD" :UBS :NOSDIAG :NOETAB) "TOLVar200!" ("ob \\->
|
|
|
|
|
+" "" "2E9AE" :UBS :NOSDIAG :NOETAB) "TOLVar200@" ("\\-> ob
|
|
|
|
|
+" "" "2E9AF" :UBS :NOSDIAG :NOETAB) "TOLVar201!" ("ob \\->
|
|
|
|
|
+" "" "2E9B0" :UBS :NOSDIAG :NOETAB) "TOLVar201@" ("\\-> ob
|
|
|
|
|
+" "" "2E9B1" :UBS :NOSDIAG :NOETAB) "TOLVar202!" ("ob \\->
|
|
|
|
|
+" "" "2E9B2" :UBS :NOSDIAG :NOETAB) "TOLVar202@" ("\\-> ob
|
|
|
|
|
+" "" "2E9B3" :UBS :NOSDIAG :NOETAB) "TOLVar203!" ("ob \\->
|
|
|
|
|
+" "" "2E9B4" :UBS :NOSDIAG :NOETAB) "TOLVar203@" ("\\-> ob
|
|
|
|
|
+" "" "2E9B5" :UBS :NOSDIAG :NOETAB) "TOLVar204!" ("ob \\->
|
|
|
|
|
+" "" "2E9B6" :UBS :NOSDIAG :NOETAB) "TOLVar204@" ("\\-> ob
|
|
|
|
|
+" "" "2E9B7" :UBS :NOSDIAG :NOETAB) "TOLVar205!" ("ob \\->
|
|
|
|
|
+" "" "2E9B8" :UBS :NOSDIAG :NOETAB) "TOLVar205@" ("\\-> ob
|
|
|
|
|
+" "" "2E9B9" :UBS :NOSDIAG :NOETAB) "TOLVar206!" ("ob \\->
|
|
|
|
|
+" "" "2E9BA" :UBS :NOSDIAG :NOETAB) "TOLVar206@" ("\\-> ob
|
|
|
|
|
+" "" "2E9BB" :UBS :NOSDIAG :NOETAB) "TOLVar207!" ("ob \\->
|
|
|
|
|
+" "" "2E9BC" :UBS :NOSDIAG :NOETAB) "TOLVar207@" ("\\-> ob
|
|
|
|
|
+" "" "2E9BD" :UBS :NOSDIAG :NOETAB) "TOLVar208!" ("ob \\->
|
|
|
|
|
+" "" "2E9BE" :UBS :NOSDIAG :NOETAB) "TOLVar208@" ("\\-> ob
|
|
|
|
|
+" "" "2E9BF" :UBS :NOSDIAG :NOETAB) "TOLVar209!" ("ob \\->
|
|
|
|
|
+" "" "2E9C0" :UBS :NOSDIAG :NOETAB) "TOLVar209@" ("\\-> ob
|
|
|
|
|
+" "" "2E9C1" :UBS :NOSDIAG :NOETAB) "TOLVar210!" ("ob \\->
|
|
|
|
|
+" "" "2E9C2" :UBS :NOSDIAG :NOETAB) "TOLVar210@" ("\\-> ob
|
|
|
|
|
+" "" "2E9C3" :UBS :NOSDIAG :NOETAB) "TOLVar211!" ("ob \\->
|
|
|
|
|
+" "" "2E9C4" :UBS :NOSDIAG :NOETAB) "TOLVar211@" ("\\-> ob
|
|
|
|
|
+" "" "2E9C5" :UBS :NOSDIAG :NOETAB) "TOLVar212!" ("ob \\->
|
|
|
|
|
+" "" "2E9C6" :UBS :NOSDIAG :NOETAB) "TOLVar212@" ("\\-> ob
|
|
|
|
|
+" "" "2E9C7" :UBS :NOSDIAG :NOETAB) "TOLVar213!" ("ob \\->
|
|
|
|
|
+" "" "2E9C8" :UBS :NOSDIAG :NOETAB) "TOLVar213@" ("\\-> ob
|
|
|
|
|
+" "" "2E9C9" :UBS :NOSDIAG :NOETAB) "TOLVar214!" ("ob \\->
|
|
|
|
|
+" "" "2E9CA" :UBS :NOSDIAG :NOETAB) "TOLVar214@" ("\\-> ob
|
|
|
|
|
+" "" "2E9CB" :UBS :NOSDIAG :NOETAB) "TOLVar215!" ("ob \\->
|
|
|
|
|
+" "" "2E9CC" :UBS :NOSDIAG :NOETAB) "TOLVar215@" ("\\-> ob
|
|
|
|
|
+" "" "2E9CD" :UBS :NOSDIAG :NOETAB) "TOLVar216!" ("ob \\->
|
|
|
|
|
+" "" "2E9CE" :UBS :NOSDIAG :NOETAB) "TOLVar216@" ("\\-> ob
|
|
|
|
|
+" "" "2E9CF" :UBS :NOSDIAG :NOETAB) "TOLVarN!" ("ob \\->
|
|
|
|
|
+" "" "2E9D4" :UBS :NOSDIAG :NOETAB) "TOLVarN@" ("\\-> ob
|
|
|
|
|
+" "" "2E9F8" :UBS :NOSDIAG :NOETAB) "ClrAllTVars" ("
|
|
|
|
|
+" "" "2EA1C" :UBS :NOSDIAG :NOETAB) "ClrAllTOLVs" ("
|
|
|
|
|
+" "" "2EA52" :UBS :NOSDIAG :NOETAB) "%0AllTopicVs" ("
|
|
|
|
|
+" "" "2EA6E" :UBS :NOSDIAG :NOETAB) "%0AllTOLVars" ("
|
|
|
|
|
+" "" "2EAA9" :UBS :NOSDIAG :NOETAB) "TOLVarSet!" ("
|
|
|
|
|
+" "" "2EAE4" :UBS :NOSDIAG :NOETAB) "SaveTOLVarSet" ("
|
|
|
|
|
+" "" "2EB11" :UBS :NOSDIAG :NOETAB) "RestTOLVarSet" ("
|
|
|
|
|
+" "" "2EB66" :UBS :NOSDIAG :NOETAB) "%0TOLVarSet" ("
|
|
|
|
|
+" "" "2EBB1" :UBS :NOSDIAG :NOETAB) "1getcxt!" ("
|
|
|
|
|
+" "" "2EC01" :UBS :NOSDIAG :NOETAB) "DoInCxt" ("
|
|
|
|
|
+" "" "2EC15" :UBS :NOSDIAG :NOETAB) "DoInCalcCxt" ("
|
|
|
|
|
+" "" "2EC6F" :UBS :NOSDIAG :NOETAB) "DoInAppCxt" ("
|
|
|
|
|
+" "" "2EC88" :UBS :NOSDIAG :NOETAB) "DoInFuncCxt" ("
|
|
|
|
|
+" "" "2ECA1" :UBS :NOSDIAG :NOETAB) "DoInPolarCxt" ("
|
|
|
|
|
+" "" "2ECBA" :UBS :NOSDIAG :NOETAB) "DoInParamCxt" ("
|
|
|
|
|
+" "" "2ECD3" :UBS :NOSDIAG :NOETAB) "DoInSeqCxt" ("
|
|
|
|
|
+" "" "2ECEC" :UBS :NOSDIAG :NOETAB) "DoInStatCxt" ("
|
|
|
|
|
+" "" "2ED05" :UBS :NOSDIAG :NOETAB) "DoInSolveCxt" ("
|
|
|
|
|
+" "" "2ED1E" :UBS :NOSDIAG :NOETAB) "DoInOtherCxt" ("
|
|
|
|
|
+" "" "2ED37" :UBS :NOSDIAG :NOETAB) "DoInOtherN" ("
|
|
|
|
|
+" "" "2ED91" :UBS :NOSDIAG :NOETAB) "DoInOtherU" ("
|
|
|
|
|
+" "" "2EDD7" :UBS :NOSDIAG :NOETAB) "otherNG?" ("
|
|
|
|
|
+" "" "2EE04" :UBS :NOSDIAG :NOETAB) "GET@tTYPER" ("
|
|
|
|
|
+" "" "2EE37" :UBS :NOSDIAG :NOETAB) "~dontuple#" ("comp ob # \\-> {}
|
|
|
|
|
+" "Takes objects from comp in groups of # and
|
|
|
|
|
+evals ob on them. The results are returned
|
|
|
|
|
+as a list.
|
|
|
|
|
+" "0030E8" :UBS) "~xABCUV" ("pa pb c \\-> u v
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: LABCUV,EGCD
|
|
|
|
|
+" "030314" :CASHELP :Usr) "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
|
|
|
|
|
+" "39A07" :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
|
|
|
|
|
+" "390E4" :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
|
|
|
|
|
+" "390C9" :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
|
|
|
|
|
+" "3A7DC" :Usr) "~xACOS2S" ("symb \\-> symb'
|
|
|
|
|
+" "" "025314" :CASHELP :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
|
|
|
|
|
+" "3A8D8" :Usr) "~xADD" ("{} {}' \\-> {}''
|
|
|
|
|
+{} ob \\-> {}'
|
|
|
|
|
+ob {} \\-> {}'
|
|
|
|
|
+" "Add list cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adds corresponding elems of 2
|
|
|
|
|
+lists or adds a number to elem in
|
|
|
|
|
+a list.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: +,\\GDLIST,\\PILIST,\\GSLIST
|
|
|
|
|
+" "05C0AB" :Usr) "~xADDTMOD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "" "06E314" :CASHELP :Usr) "~xADDTOREAL" ("var \\->
|
|
|
|
|
+" "Make CAS assume that var is real. Add it to
|
|
|
|
|
+the list in CASDIR.
|
|
|
|
|
+" "0000DE" :CASHELP :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
|
|
|
|
|
+" "3AAE5" :Usr) "~xAMORT" ("n \\-> princ intr bal
|
|
|
|
|
+" "Amortize cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -14
|
|
|
|
|
+ Fin pmt mode -14
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TVM,TVMBEG,TVMEND,TVMROOT
|
|
|
|
|
+" "04B0AB" :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
|
|
|
|
|
+" "3CA07" :Usr) "~xANIMATE" ("g1...gn n \\-> same stack
|
|
|
|
|
+g1...gn {n {#X #Y} delay rep} \\-> same stack
|
|
|
|
|
+" "Animate cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Displays grobs in sequence
|
|
|
|
|
+" "0140AB") "xANS" ("n \\-> ob
|
|
|
|
|
+" "Invokes results of previous calculations.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LASTARG
|
|
|
|
|
+" "3F033" :Usr) "xAPPLY" ("{symb1 .. symbn} f \\-> f(symb1...symbn)
|
|
|
|
|
+" "Apply to args fn
|
|
|
|
|
+ --
|
|
|
|
|
+Creates expr for specified fn
|
|
|
|
|
+name & args
|
|
|
|
|
+ --
|
|
|
|
|
+Related: QUOTE,|
|
|
|
|
|
+" "3D7AC" :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
|
|
|
|
|
+" "3C8C6" :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
|
|
|
|
|
+" "3EAC7" :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
|
|
|
|
|
+" "3A390" :Usr) "~xARIT" ("\\->
|
|
|
|
|
+" "Display menu of arithmetic commands.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BASE,CMPLX,DIFF,EXP&LN, SOLVER,TRIGO
|
|
|
|
|
+" "085314" :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\\->
|
|
|
|
|
+" "3BEC5" :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\\->
|
|
|
|
|
+" "3BEC5" :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
|
|
|
|
|
+" "3BE9B" :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
|
|
|
|
|
+" "3BE9B" :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
|
|
|
|
|
+" "3A756" :Usr) "~xASIN2C" ("symb \\-> symb'
|
|
|
|
|
+" "" "024314" :CASHELP :Usr) "~xASIN2T" ("symb \\-> symb'
|
|
|
|
|
+" "" "023314" :CASHELP :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
|
|
|
|
|
+" "3A88E" :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
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "3EEE7" :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
|
|
|
|
|
+" "38DE1" :Usr) "~xASSUME" ("
|
|
|
|
|
+" "" "0260DE" :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
|
|
|
|
|
+" "3A844" :Usr) "~xATAN2S" ("symb \\-> symb'
|
|
|
|
|
+" "" "022314" :CASHELP :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
|
|
|
|
|
+" "3A94F" :Usr) "xATTACH" ("n \\->
|
|
|
|
|
+:nport:n \\->
|
|
|
|
|
+" "Attach library cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Attaches lib with given num to
|
|
|
|
|
+current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DETACH,LIBS
|
|
|
|
|
+" "3EB64" :Usr) "~xAUGMENT" ("
|
|
|
|
|
+" "" "0130DE" :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
|
|
|
|
|
+" "3C49F" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ATICK,DRAW,DRAX,LABEL
|
|
|
|
|
+" "3C3B2" :Usr) "~xAXL" ("{} \\-> []
|
|
|
|
|
+[] \\-> ()
|
|
|
|
|
+" "" "04A314" :CASHELP :Usr) "~xAXM" ("[A] \\-> [M]
|
|
|
|
|
+" "" "049314" :CASHELP :Usr) "~xAXQ" ("[nxn] [n] \\-> [nxn]' [n]
|
|
|
|
|
+" "" "04C314" :CASHELP :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)
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONIC,DIFFEQ,FUNCTION,GRIDMAP, HISTOGRAM,PARAMETRIC,PARSURFACE,PCONTOUR, SCATTER,SLOPEFIELD,TRUTH,YSLICE
|
|
|
|
|
+" "3C9D3" :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
|
|
|
|
|
+" "3E196" :Usr) "~xALGB" ("\\->
|
|
|
|
|
+" "Display menu of basic algebra commands.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARIT,CMPLX,DIFF,EXP&LN.SOLVER,TRIGO
|
|
|
|
|
+" "080314" :Usr) "~xBASE" ("\\->
|
|
|
|
|
+" "Display menu of basic algebra commands.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARIT,CMPLX,DIFF,EXP&LN.SOLVER,TRIGO
|
|
|
|
|
+" "080314" :Usr) "~xBASIS" ("
|
|
|
|
|
+" "" "0110DE" :Usr) "xBAUD" ("n \\->
|
|
|
|
|
+" "Baud rate cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specify bit transfer rate.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CKSM,PARITY,TRANSIO
|
|
|
|
|
+" "3EDCC" :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
|
|
|
|
|
+" "39765" :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
|
|
|
|
|
+" "3E2C1" :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
|
|
|
|
|
+" "3B655" :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
|
|
|
|
|
+" "3E171" :Usr) "xBLANK" ("#width #height \\-> grob
|
|
|
|
|
+" "Blank Graphics Obj Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates a blank graphics obj of
|
|
|
|
|
+the specified width and height.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->GROB,LCD\\->
|
|
|
|
|
+" "3C70A" :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
|
|
|
|
|
+" "3C6E0" :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
|
|
|
|
|
+" "3EE47" :Usr) "xBYTES" ("obj \\-> chksum size
|
|
|
|
|
+" "Bytes Size Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the number of bytes & the
|
|
|
|
|
+checksum for the given obj.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MEM
|
|
|
|
|
+" "39480" :Usr) "xB\\->R" ("# \\-> R
|
|
|
|
|
+" "Binary to Real Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts a binary integer to its
|
|
|
|
|
+floating-point equivalent.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: R\\->B
|
|
|
|
|
+" "38F21" :Usr) "xB>R" ("# \\-> R
|
|
|
|
|
+" "Binary to Real Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts a binary integer to its
|
|
|
|
|
+floating-point equivalent.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: R\\->B
|
|
|
|
|
+" "38F21" :Usr) "~xC2P" ("{} \\-> ?????
|
|
|
|
|
+" "" "01E0DE" :Usr) "~xCASCFG" ("\\->
|
|
|
|
|
+" "" "07E314" :CASHELP :Usr) "~xCASCMD" ("\\-> ?
|
|
|
|
|
+" "" "0330DE" :Usr) "xCASE" ("\\->
|
|
|
|
|
+" "CASE Conditional Structure Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts CASE ... END conditional
|
|
|
|
|
+structure.
|
|
|
|
|
+ --
|
|
|
|
|
+ CASE \\->
|
|
|
|
|
+ THEN T/F \\->
|
|
|
|
|
+ END \\->
|
|
|
|
|
+ END \\->
|
|
|
|
|
+ --
|
|
|
|
|
+Related: END,IF,IFERR,THEN
|
|
|
|
|
+" "38B28" :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
|
|
|
|
|
+" "3AD1B" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: SCALE
|
|
|
|
|
+" "3C3DC" :Usr) "xCF" ("n \\->
|
|
|
|
|
+" "Clear Flag Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Clears the specified user or
|
|
|
|
|
+system flag.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FC?,FC?C,FS?,FS?C,SF
|
|
|
|
|
+" "3B4E9" :Usr) "~xCHINREM" ("[]1 []2 \\-> []3
|
|
|
|
|
+" "" "03A314" :CASHELP :Usr) "~xCHOLESKY" ("
|
|
|
|
|
+" "" "00B0DE" :Usr) "~xCHOOSE" ("title {elems} pos \\-> ob 1
|
|
|
|
|
+ \\-> 0
|
|
|
|
|
+" "User-Defined Choose Box Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates a user-defined choose box
|
|
|
|
|
+ --
|
|
|
|
|
+Related: INFORM,NOVAL
|
|
|
|
|
+" "04D0AB" :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
|
|
|
|
|
+" "3BC19" :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
|
|
|
|
|
+" "3B362" :Usr) "~xCIRC" ("prg {} \\-> ?????
|
|
|
|
|
+" "" "01D0DE" :Usr) "xCKSM" ("n_type \\->
|
|
|
|
|
+" "Checksum Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the error-detection
|
|
|
|
|
+scheme.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,PARITY,TRANSIO
|
|
|
|
|
+
|
|
|
|
|
+" "3EDAC" :Usr) "xCLEAR" ("ob1 .. obn \\->
|
|
|
|
|
+" "Clear Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Removes all objects from the
|
|
|
|
|
+stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLVAR,PURGE
|
|
|
|
|
+" "3DD4E" :Usr) "xCL\\GS" ("\\->
|
|
|
|
|
+" "Clear Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Purges the current statistics
|
|
|
|
|
+matrix (reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RCL\\GS,STO\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DD8E" :Usr) "xCLSIGMA" ("\\->
|
|
|
|
|
+" "Clear Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Purges the current statistics
|
|
|
|
|
+matrix (reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RCL\\GS,STO\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DD8E" :Usr) "xCLKADJ" ("ticks \\->
|
|
|
|
|
+" "Adjust System Clock Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adjusts the system time by x
|
|
|
|
|
+clock ticks, where 8192 clock
|
|
|
|
|
+ticks equal 1 second.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->TIME
|
|
|
|
|
+" "39144" :Usr) "xCLLCD" ("\\->
|
|
|
|
|
+" "Clear LCD Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Clears (blanks) the stack display
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DISP,FREEZE
|
|
|
|
|
+" "39839" :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
|
|
|
|
|
+" "3EC95" :Usr) "xCLVAR" ("\\->
|
|
|
|
|
+" "Clear Variables Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Purges all variables and empty
|
|
|
|
|
+subdirectories in the current
|
|
|
|
|
+directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLUSR,PGDIR,PURGE
|
|
|
|
|
+" "3E91A" :Usr) "xCLUSR" ("\\->
|
|
|
|
|
+" "Clear Variables Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Purges all variables and empty
|
|
|
|
|
+subdirectories in the current
|
|
|
|
|
+directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLUSR,PGDIR,PURGE
|
|
|
|
|
+" "3E91A" :Usr) "~xCMPLX" ("\\->
|
|
|
|
|
+" "Display a menu pertaining to complex numbers.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARIT,BASE,DIFF,EXP&LN,SOLVER,TRIGO
|
|
|
|
|
+" "081314" :Usr) "xCNRM" ("[] \\-> col_norm
|
|
|
|
|
+" "Column Norm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the column norm (onenorm)
|
|
|
|
|
+of the array argument.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CROSS,DET,DOT,RNRM
|
|
|
|
|
+" "3B193" :Usr) "~x\\->COL" ("[[]] \\-> [v1]...[vn] n
|
|
|
|
|
+[] \\-> x1...xn n
|
|
|
|
|
+" "Matrix to Columns Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Transforms a matrix into a series
|
|
|
|
|
+of column vectors and returns the
|
|
|
|
|
+vectors and a column count, or
|
|
|
|
|
+transforms a vector into its
|
|
|
|
|
+elements and returns the elements
|
|
|
|
|
+and an element count.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\->,\\->ROW,ROW\\->
|
|
|
|
|
+" "0380AB" :Usr) "~xCOL\\->" ("[v1]...[vn] n \\-> [[]]
|
|
|
|
|
+x1...xn n \\-> []
|
|
|
|
|
+" "Columns to Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Transforms a series of column
|
|
|
|
|
+vectors and a column count into
|
|
|
|
|
+a matrix containing those columns,
|
|
|
|
|
+or transforms a sequence of
|
|
|
|
|
+numbers and an element count into
|
|
|
|
|
+a vector with those numbers as
|
|
|
|
|
+elements.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->COL,\\->ROW,ROW\\->
|
|
|
|
|
+" "0390AB" :Usr) "~xCOL+" ("[[]] [[]]' n \\-> [[]]''
|
|
|
|
|
+[] x n \\-> []'
|
|
|
|
|
+" "Insert Column Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Inserts an array (vector or
|
|
|
|
|
+matrix) into a matrix (one or
|
|
|
|
|
+more elements into a vector) at
|
|
|
|
|
+the position indicated by nindex,
|
|
|
|
|
+and returns the modified array.
|
|
|
|
|
+ --
|
|
|
|
|
+ [[mat]]1 [mat]2 nidx \\-> [[mat]]3
|
|
|
|
|
+ [[mat]]1 [vec]col nidx \\-> [[mat]]2
|
|
|
|
|
+ [vec]1 nelement nidx \\-> [vec]2
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL-,CSWP,ROW+,ROW-
|
|
|
|
|
+" "03F0AB" :Usr) "~xCOL-" ("[] n \\-> []' xn
|
|
|
|
|
+[[]] n \\-> [[]]' [vn]
|
|
|
|
|
+" "Delete Column Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Deletes column n of a matrix (or
|
|
|
|
|
+element n of a vector), and
|
|
|
|
|
+returns the modified matrix (or
|
|
|
|
|
+vector) and the deleted column
|
|
|
|
|
+(or element).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL+,CSWP,ROW+,ROW-
|
|
|
|
|
+" "03E0AB" :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
|
|
|
|
|
+" "3E5A0" :Usr) "~xCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "" "0300DE" :CASHELP :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BARPLOT,BESTFIT,CORR,COV, EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREDY,PWRFIT,SCATRPLOT,XCOL,YCOL
|
|
|
|
|
+" "3E0FD" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BARPLOT,BESTFIT,CORR,COV, EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREDY,PWRFIT,SCATRPLOT,XCOL,YCOL
|
|
|
|
|
+" "3E0FD" :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,!
|
|
|
|
|
+" "3B423" :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
|
|
|
|
|
+" "3BF77" :Usr) "~xCOND" ("[[n*n]] \\-> x
|
|
|
|
|
+" "Conditional Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the 1-norm (column norm)
|
|
|
|
|
+condition number of a square
|
|
|
|
|
+matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: SNRM,SRAD,TRACE
|
|
|
|
|
+" "0260AB" :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
|
|
|
|
|
+" "3C967" :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
|
|
|
|
|
+" "39A6C" :Usr) "~xCONLIB" ("\\->
|
|
|
|
|
+" "Open Constants Library Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Opens the Constants Library.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONST
|
|
|
|
|
+" "0180AB" :Usr) "~xCONST" ("name \\-> x
|
|
|
|
|
+" "Constant Value Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the value of a constant.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: +60 +61
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONLIB
|
|
|
|
|
+" "0190AB" :Usr) "~xCONSTANTS" ("
|
|
|
|
|
+" "" "02A0DE" :Usr) "xCONT" ("\\->
|
|
|
|
|
+" "Continue Program Execution Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Resumes execution of a halted
|
|
|
|
|
+program.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: HALT,KILL,PROMPT
|
|
|
|
|
+" "3989C" :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
|
|
|
|
|
+" "38F41" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\GS,COV,PREDX,PREDY,XCOL,YCOL
|
|
|
|
|
+" "3DE24" :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
|
|
|
|
|
+" "3A5D0" :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
|
|
|
|
|
+" "3A6C2" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\GS,CORR,PCOV,PREDX,PREDY, XCOL,YCOL
|
|
|
|
|
+" "3DE3F" :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
|
|
|
|
|
+" "3D128" :Usr) "xCRDIR" ("name \\->
|
|
|
|
|
+" "Create Directory Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates an empty subdirectory
|
|
|
|
|
+with the specified name within
|
|
|
|
|
+the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: HOME,PATH,PGDIR,UPDIR
|
|
|
|
|
+" "393CA" :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
|
|
|
|
|
+" "3B208" :Usr) "~xCSWP" ("[[]] n1 n2 \\-> [[]]'
|
|
|
|
|
+[] n1 n2 \\-> []'
|
|
|
|
|
+" "Column Swap Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Swaps columns i and j of the argument
|
|
|
|
|
+matrix and returns the modified
|
|
|
|
|
+matrix, or swaps elements
|
|
|
|
|
+ments i and j of the argument
|
|
|
|
|
+vector and returns the modified
|
|
|
|
|
+vector.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL+,COL-,RSWP
|
|
|
|
|
+" "0410AB") "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
|
|
|
|
|
+" "3C58E" :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
|
|
|
|
|
+" "3C58E" :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
|
|
|
|
|
+" "3BAF5" :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
|
|
|
|
|
+" "3BAF5" :Usr) "~xCURL" ("[func] [vars] \\-> []
|
|
|
|
|
+" "" "057314" :CASHELP :Usr) "~xCYCLOTOMIC" ("
|
|
|
|
|
+" "" "0150DE" :Usr) "~xCYLIN" ("\\->
|
|
|
|
|
+" "Cylindrical Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Cylindrical coordinate mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RECT,SPHERE
|
|
|
|
|
+" "0120AB" :Usr) "~xDARCY" ("xe/D yRe \\-> xDarcy
|
|
|
|
|
+" "Darcy Friction Factor Func
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the Darcy friction
|
|
|
|
|
+factor of certain fluid flows.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FANNING
|
|
|
|
|
+" "0610AB" :Usr) "xDATE" ("\\-> date
|
|
|
|
|
+" "Returns the system date.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DATE+,DDAYS,TIME,TSTR
|
|
|
|
|
+" "39078" :Usr) "x\\->DATE" ("date \\->
|
|
|
|
|
+" "Set Date Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the system date to date.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->TIME
|
|
|
|
|
+" "39104" :Usr) "xSETDATE" ("date \\->
|
|
|
|
|
+" "Set Date Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the system date to date.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->TIME
|
|
|
|
|
+" "39104" :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
|
|
|
|
|
+" "39238" :Usr) "~xdB" ("\\-> %1
|
|
|
|
|
+" "" "0690AB" :Usr) "~xDBUG" ("prog \\->
|
|
|
|
|
+name \\->
|
|
|
|
|
+" "Debug Operation
|
|
|
|
|
+ --
|
|
|
|
|
+Starts program execution, then
|
|
|
|
|
+suspends it as if HALT were the
|
|
|
|
|
+first program command.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: HALT,NEXT
|
|
|
|
|
+" "0150DD" :Usr) "xDDAYS" ("date1 date2 \\-> days
|
|
|
|
|
+" "Delta Days Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the number of days
|
|
|
|
|
+between two dates.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DATE,DATE+
|
|
|
|
|
+" "39218" :Usr) "xDEC" ("\\->
|
|
|
|
|
+" "Decimal Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Selects decimal base for binary
|
|
|
|
|
+integer operations. (The default
|
|
|
|
|
+base is decimal.)
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BIN,HEX,OCT,RCWS,STWS
|
|
|
|
|
+" "3B670" :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-
|
|
|
|
|
+" "3E576" :Usr) "~xDEDICACE" ("
|
|
|
|
|
+" "Dedication message.
|
|
|
|
|
+" "0370DE" :Usr) "~xDEF" ("
|
|
|
|
|
+" "" "0250DE" :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
|
|
|
|
|
+" "3E85C" :Usr) "xDEG" ("\\->
|
|
|
|
|
+" "Degrees Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Degrees angle mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: GRAD,RAD
|
|
|
|
|
+" "3B549" :Usr) "~xDEGREE" ("
|
|
|
|
|
+" "" "0360DE" :Usr) "xDELALARM" ("n \\->
|
|
|
|
|
+" "Delete Alarm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Deletes the alarm specified in
|
|
|
|
|
+level 1.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FINDALARM,RCLALARM,STOALARM
|
|
|
|
|
+" "391D8" :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
|
|
|
|
|
+" "3D1C7" :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
|
|
|
|
|
+" "3C51F" :Usr) "xDEPTH" ("\\-> n
|
|
|
|
|
+" "Depth Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a real number representing
|
|
|
|
|
+the number of objects present
|
|
|
|
|
+on the stack (before DEPTH was
|
|
|
|
|
+executed).
|
|
|
|
|
+" "3DCA7" :Usr) "~xDERIV" ("symb var \\-> symb'
|
|
|
|
|
+" "" "00E314" :CASHELP :Usr) "~xDERVX" ("symb \\-> symb'
|
|
|
|
|
+" "" "003314" :CASHELP :Usr) "~xDESOLVE" ("eq func \\-> func'
|
|
|
|
|
+" "" "00F314" :CASHELP :Usr) "xDET" ("[[]] \\-> x
|
|
|
|
|
+" "Determinant Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the determinant of a
|
|
|
|
|
+square matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CNRM,CROSS,DOT,RNRM
|
|
|
|
|
+" "3B1BA" :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
|
|
|
|
|
+" "3EB84" :Usr) "~x\\->DIAG" ("[[]] \\-> vec
|
|
|
|
|
+" "Matrix Diagonal to Array Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a vector that contains
|
|
|
|
|
+the major diagonal elements of a
|
|
|
|
|
+matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DIAG\\->
|
|
|
|
|
+" "03A0AB" :Usr) "~xDIAG\\->" ("[] { dims } \\-> [[]]
|
|
|
|
|
+" "Array to Matrix Diagonal Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Takes an array and a specified
|
|
|
|
|
+dimension and returns a matrix
|
|
|
|
|
+whose major diagonal elements are
|
|
|
|
|
+the elements of the array.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->DIAG
|
|
|
|
|
+" "03B0AB" :Usr) "~xDIAGMAP" ("
|
|
|
|
|
+" "" "00C0DE" :Usr) "~xDIFF" ("\\->
|
|
|
|
|
+" "Display a menu of calculus commands.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARIT,BASE,CMPLX,EXP&LN,SOLVER,TRIGO
|
|
|
|
|
+" "084314" :Usr) "~xDIFFEQ" ("\\->
|
|
|
|
|
+" "Differential Eqn Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to DIFFEQ.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AXES,CONIC,FUNCTION,PARAMETRIC, POLAR,RKFSTEP,RRKSTEP,TRUTH
|
|
|
|
|
+" "00E0AB" :Usr) "xDIR" ("
|
|
|
|
|
+" "" "38BAE" :Usr) "xDISP" ("obj n_line \\->
|
|
|
|
|
+" "Display Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Displays obj in the nth display
|
|
|
|
|
+line.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FREEZE,HALT,INPUT,PROMPT
|
|
|
|
|
+" "39725" :Usr) "~xDISPXY" ("ob {#x #y} %size \\->
|
|
|
|
|
+" "Display ob (decompiled if nexessary) at the
|
|
|
|
|
+given display coordinates, using either the
|
|
|
|
|
+system font (%size=2) or the minifont
|
|
|
|
|
+(%size=1).
|
|
|
|
|
+" "0160DD" :Usr :1\.19-6) "~xDISTRIB" ("
|
|
|
|
|
+" "" "0190DE" :Usr) "~xDIV" ("[func] [vars] \\-> func
|
|
|
|
|
+" "" "056314" :CASHELP :Usr) "~xDIV2" ("symb1 symb2 \\-> squot srem
|
|
|
|
|
+" "" "026314" :CASHELP :Usr) "~xDIV2MOD" ("symb1 symb2 \\-> squot srem
|
|
|
|
|
+" "" "072314" :CASHELP :Usr) "~xDIVIS" ("symb \\-> {}
|
|
|
|
|
+" "" "044314" :CASHELP :Usr) "~xDIVMOD" ("symb1 symb2 \\-> sq
|
|
|
|
|
+" "" "071314" :CASHELP :Usr) "~xDIVPC" ("symb1 symb2 n \\-> symb3
|
|
|
|
|
+" "" "062314" :CASHELP :Usr) "xDO" ("\\->
|
|
|
|
|
+" "DO Indefinite Loop Structure Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts DO ... UNTIL ... END
|
|
|
|
|
+indefinite loop structure.
|
|
|
|
|
+ --
|
|
|
|
|
+ DO \\->
|
|
|
|
|
+ UNTIL \\->
|
|
|
|
|
+ END T/F \\->
|
|
|
|
|
+ --
|
|
|
|
|
+Related: END,UNTIL,WHILE
|
|
|
|
|
+" "3816B" :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
|
|
|
|
|
+" "39527" :Usr) "~xDOLIST" ("{1}...{n} n prog \\-> {}
|
|
|
|
|
+{1}...{n} prog \\-> {} (n=1)
|
|
|
|
|
+" "Do to List Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Applies commands, programs, or
|
|
|
|
|
+user-defined functions to lists.
|
|
|
|
|
+ --
|
|
|
|
|
+ {lst}1 ...{lst}n n \\<<prog\\>> \\-> {res}
|
|
|
|
|
+ {lst}1 ...{lst}n n cmd \\-> {res}
|
|
|
|
|
+ {lst}1 ...{lst}n n name \\-> {res}
|
|
|
|
|
+ {lst}1 ...{lst}n \\<<prog\\>> \\-> {res}
|
|
|
|
|
+ {lst}1 ...{lst}n cmd \\-> {res}
|
|
|
|
|
+ {lst}1 ...{lst}n name \\-> {res}
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOSUBS,ENDSUB,NSUB,STREAM
|
|
|
|
|
+" "05B0AB" :Usr) "~xDOMAIN" ("
|
|
|
|
|
+" "" "0210DE" :Usr) "~xDOSUBS" ("{} n prog \\-> {}'
|
|
|
|
|
+{} prog \\-> {}' (n=1)
|
|
|
|
|
+" "Do to Sublist Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Applies a program or command to
|
|
|
|
|
+groups of elements in a list.
|
|
|
|
|
+ --
|
|
|
|
|
+ {list}1 n \\<<prog\\>> \\-> {list}2
|
|
|
|
|
+ {list}1 n command \\-> {list}2
|
|
|
|
|
+ {list}1 n name \\-> {list}2
|
|
|
|
|
+ {list}1 \\<<prog\\>> \\-> {list}2
|
|
|
|
|
+ {list}1 command \\-> {list}2
|
|
|
|
|
+ {list}1 name \\-> {list}2
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOLIST,ENDSUB,NSUB,STREAM
|
|
|
|
|
+" "0540AB" :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
|
|
|
|
|
+" "3B1E1" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|EQ
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,AXES,DRAX,ERASE,FREEZE, PICTURE,LABEL,PVIEW
|
|
|
|
|
+" "3C484" :Usr) "~xDRAW3DMATRIX" ("[[]] v_min v_max \\->
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: FAST3D
|
|
|
|
|
+" "06B0AB" :Usr) "xDRAX" ("\\->
|
|
|
|
|
+" "Draw Axes Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Draws axes in PICT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AXES,DRAW,LABEL
|
|
|
|
|
+" "3C4BA" :Usr) "~xDROITE" ("
|
|
|
|
|
+" "" "0230DE" :Usr) "xDROP" ("ob \\->
|
|
|
|
|
+" "Drop Object Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Removes the level 1 object from
|
|
|
|
|
+the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLEAR,DROPN,DROP2
|
|
|
|
|
+" "3DC3B" :Usr) "xDROP2" ("ob1 ob2 \\->
|
|
|
|
|
+" "Drop 2 Objects Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Removes the first two objects
|
|
|
|
|
+from the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLEAR,DROP,DROPN
|
|
|
|
|
+" "3DC56" :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
|
|
|
|
|
+" "3DCC7" :Usr) "xDTAG" ("tag:obj \\-> obj
|
|
|
|
|
+" "Delete Tag Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+DTAG removes all tags (labels)
|
|
|
|
|
+from an object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LIST\\->,\\->TAG
|
|
|
|
|
+" "3EFEF" :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
|
|
|
|
|
+" "3DBEA" :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
|
|
|
|
|
+" "3DC05" :Usr) "xDUPDUP" ("1 \\-> 1 1
|
|
|
|
|
+" "Duplicate 2 Objects Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+DUP2 returns copies of the objects
|
|
|
|
|
+in levels 1 and 2 of the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DUP,DUPN,NDUPN,DUP2
|
|
|
|
|
+" "3F29A" :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
|
|
|
|
|
+" "3DCE2" :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
|
|
|
|
|
+" "3B06E" :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
|
|
|
|
|
+" "3B06E" :Usr) "~xEDIT" ("ob \\-> ob'
|
|
|
|
|
+" "Move object to command line to edit it.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: VISIT,EDITB,VISITB
|
|
|
|
|
+" "0070DD" :Usr) "~xEDITB" ("ob \\-> ob'
|
|
|
|
|
+" "Open the most suitable editor for object.
|
|
|
|
|
+For example, for a matrix, the matrix editor
|
|
|
|
|
+is opened.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: VISIT,VISITB,EDIT
|
|
|
|
|
+" "0090DD" :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
|
|
|
|
|
+" "39B1E" :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
|
|
|
|
|
+" "39B1E" :Usr) "~xEGCD" ("symb1 symb2 \\-> symb3 symb4 symb5
|
|
|
|
|
+" "" "02E314" :CASHELP :Usr) "~xEGV" ("[[]] \\-> [[evect]]' [evals]
|
|
|
|
|
+" "Eigenvalues and Eigenvectors Command
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the eigenvalues and right
|
|
|
|
|
+eigenvectors for a square matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EGVL
|
|
|
|
|
+" "02C0AB" :Usr) "~xEGVL" ("[[]] \\-> [egval]
|
|
|
|
|
+" "Eigenvalues Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the eigenvalues of a
|
|
|
|
|
+square matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EGV
|
|
|
|
|
+" "02D0AB" :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
|
|
|
|
|
+" "3805D" :Usr) "xEND" ("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
|
|
|
|
|
+" "38A54" :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
|
|
|
|
|
+" "38A54" :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
|
|
|
|
|
+" "3807D" :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
|
|
|
|
|
+" "3807D" :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
|
|
|
|
|
+" "38A2F" :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
|
|
|
|
|
+" "38A2F" :Usr) "~xENDSUB" ("\\-> x
|
|
|
|
|
+" "Ending Sublist Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Provides a way to access the
|
|
|
|
|
+total number of sublists contained
|
|
|
|
|
+in the list used by DOSUBS.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOSUBS,NSUB
|
|
|
|
|
+" "0570AB" :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
|
|
|
|
|
+" "3B5DA" :Usr) "~xEPSX0" ("symb1 \\-> symb2
|
|
|
|
|
+" "" "088314" :CASHELP :Usr) "~xEQW" ("symb \\-> symb'
|
|
|
|
|
+" "Open Equation Writer to edit an object.
|
|
|
|
|
+If the object is not symbolic, the object
|
|
|
|
|
+is placed into the command line.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EDIT,EDITB,VISIT,VISITB
|
|
|
|
|
+" "00B0DD" :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\\->
|
|
|
|
|
+" "3BDE6" :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\\->
|
|
|
|
|
+" "3BDE6" :Usr) "xERASE" ("\\->
|
|
|
|
|
+" "Erase PICT Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Erases PICT, leaving a blank PICT
|
|
|
|
|
+of the same dimensions.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DRAW
|
|
|
|
|
+" "3C553" :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
|
|
|
|
|
+" "3955B" :Usr) "xERRM" ("\\-> $msg
|
|
|
|
|
+" "Error Message Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a string containing the
|
|
|
|
|
+error message of the most recent
|
|
|
|
|
+calculator error.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOERR,ERRN,ERR0
|
|
|
|
|
+" "39591" :Usr) "xERRN" ("\\-> $nerr
|
|
|
|
|
+" "Error Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the error number of the
|
|
|
|
|
+most recent calculator error.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOERR,ERRM,ERR0
|
|
|
|
|
+" "39576" :Usr) "~xEULER" ("z1 \\-> z2
|
|
|
|
|
+" "" "038314" :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
|
|
|
|
|
+" "395AC" :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
|
|
|
|
|
+" "3A9B7" :Usr) "~xEXLR" ("symb \\-> symb1 symb2
|
|
|
|
|
+" "" "06C314" :Usr) "~xEXP2POW" ("
|
|
|
|
|
+" "" "01A0DE" :Usr) "xEXPAN" ("symb1 \\-> symb2
|
|
|
|
|
+" "Expand Products Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rewrites an algebraic expression
|
|
|
|
|
+or equation by expanding products
|
|
|
|
|
+and powers.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COLCT,EXPAND,ISOL,QUAD,SHOW
|
|
|
|
|
+" "3E5E9" :CASHELP :Usr) "~xEXPAND" ("symb1 \\-> symb2
|
|
|
|
|
+[symb1] \\-> [symb2]
|
|
|
|
|
+" "Expand Products Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rewrites an algebraic expression
|
|
|
|
|
+or equation by expanding products
|
|
|
|
|
+and powers.
|
|
|
|
|
+" "000314" :CASHELP :Usr) "~xEXPANDMOD" ("symb1 \\-> symb2
|
|
|
|
|
+" "" "076314" :CASHELP :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,LR,LINFIT,LOGFIT,PWRFIT
|
|
|
|
|
+" "3E25E" :Usr) "~xEXP&LN" ("
|
|
|
|
|
+" "" "087314" :Usr) "~xEXPLN" ("symb1 \\-> symb2
|
|
|
|
|
+" "" "017314" :CASHELP :Usr) "xEXPM" ("x \\-> x'
|
|
|
|
|
+" "Exponential Minus 1 Analytic Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns e^x - 1.
|
|
|
|
|
+ --
|
|
|
|
|
+ x \\-> e^x - 1
|
|
|
|
|
+ 'sym' \\-> 'EXPM(sym)'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EXP,LNP1
|
|
|
|
|
+" "3AB6F" :Usr) "~xEYEPT" ("xx xy xz \\->
|
|
|
|
|
+" "Eye point command.
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the coordinates of the eye
|
|
|
|
|
+point in a perspective plot. The y
|
|
|
|
|
+coordinate must be 1 unit less than
|
|
|
|
|
+the volume's nearest point. These
|
|
|
|
|
+values are stored in reserved variable
|
|
|
|
|
+VPAR.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: NUMX,NUMY,XVOL,XXRNG,YVOL, YYRNG,ZVOL
|
|
|
|
|
+" "0050AB" :Usr) "~xF0\\Gl" ("y_lambda xT \\-> x_power
|
|
|
|
|
+" "Black Body Emissive Power Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the fraction of total
|
|
|
|
|
+black-body emissive power.
|
|
|
|
|
+" "0620AB" :Usr) "~xFACTOR" ("symb \\-> symb1*symb2...
|
|
|
|
|
+z \\-> z1*z2...
|
|
|
|
|
+" "" "001314" :CASHELP :Usr) "~xFACTORMOD" ("symb \\-> symb1*symb2...
|
|
|
|
|
+" "" "077314" :CASHELP :Usr) "~xFACTORS" ("z \\-> {z1 m1...}
|
|
|
|
|
+symb \\-> {symb1 m1...}
|
|
|
|
|
+" "" "043314" :CASHELP :Usr) "~xFANNING" ("x_x/D y_Re \\-> x_fanning
|
|
|
|
|
+" "Fanning Friction Factor Func
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the Fanning friction
|
|
|
|
|
+factor of certain fluid flows.
|
|
|
|
|
+ --
|
|
|
|
|
+ xx/D yRe \\-> xfanning
|
|
|
|
|
+ xx/D 'sym' \\-> 'FANNING(xx/D,sym)'
|
|
|
|
|
+ 'sym' yRe \\-> 'FANNING(sym,yRe)'
|
|
|
|
|
+ 'sym1' 'sym2'\\-> 'FANNING(sym1,sym2)'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DARCY
|
|
|
|
|
+" "0600AB" :Usr) "xFAST3D" ("\\->
|
|
|
|
|
+" "Fast 3D plot type command
|
|
|
|
|
+ --
|
|
|
|
|
+Set the plot type to FAST3D.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION,GRIDMAP, HISTOGRAM,PARAMETRIC,PARSURFACE,PCONTOUR, POLAR,SCATTER,SLOPEFIELD,TRUTH,WIREFRAME,YSLICE
|
|
|
|
|
+" "3F2DF" :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
|
|
|
|
|
+" "3B529" :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
|
|
|
|
|
+" "3B635" :Usr) "~xFCOEF" ("[] \\-> symb
|
|
|
|
|
+" "" "041314" :CASHELP :Usr) "~xFDISTRIB" ("
|
|
|
|
|
+" "" "0180DE" :Usr) "~xFFT" ("[] \\-> []'
|
|
|
|
|
+" "Discrete Fourier Transform Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the 1- or 2-dimensional
|
|
|
|
|
+discrete Fourier transform of an
|
|
|
|
|
+array.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: IFFT
|
|
|
|
|
+" "01A0AB" :Usr) "~xFILER" ("\\->
|
|
|
|
|
+" "" "00C0DD" :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
|
|
|
|
|
+" "391AE" :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
|
|
|
|
|
+" "3ED76" :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
|
|
|
|
|
+" "3B59A" :Usr) "~xFLASHEVAL" ("# \\-> ?
|
|
|
|
|
+" "Evaluate flash command
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates unnamed flash functions.
|
|
|
|
|
+The number is of the form ffffbbbh,
|
|
|
|
|
+where bbb is the bank ID and ffff is
|
|
|
|
|
+the function number.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EVAL,LIBEVAL,SYSEVAL
|
|
|
|
|
+" "0170AB" :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
|
|
|
|
|
+" "3ACD1" :Usr) "~xFONT6" ("\\-> font
|
|
|
|
|
+" "Returns the system FONT6 object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FONT7,FONT8,\\->FONT,FONT\\->
|
|
|
|
|
+" "00F0DD" :Usr) "~xFONT7" ("\\-> font
|
|
|
|
|
+" "Returns the system FONT7 object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FONT6,FONT8,\\->FONT,FONT\\->
|
|
|
|
|
+" "00E0DD" :Usr) "~xFONT8" ("\\-> font
|
|
|
|
|
+" "Returns the system FONT8 object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FONT6,FONT7,\\->FONT,FONT\\->
|
|
|
|
|
+" "00D0DD" :Usr) "~xFONT\\->" ("\\-> font
|
|
|
|
|
+" "Returns the current system font.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FONT6,FONT7,FONT8,\\->FONT
|
|
|
|
|
+" "0030DD" :Usr) "~x\\->FONT" ("font \\->
|
|
|
|
|
+" "Set font function.
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the system font.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FONT6,FONT7,FONT8,FONT\\->
|
|
|
|
|
+" "0020DD" :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
|
|
|
|
|
+" "38252" :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
|
|
|
|
|
+" "38252" :Usr) "~xFOURIER" ("symb z \\-> c_z
|
|
|
|
|
+" "" "05E314" :CASHELP :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
|
|
|
|
|
+" "3AC87" :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 \\->
|
|
|
|
|
+" "3EB2C" :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
|
|
|
|
|
+" "39745" :Usr) "~xFROOTS" ("symb \\-> []
|
|
|
|
|
+" "" "042314" :CASHELP :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
|
|
|
|
|
+" "3B615" :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
|
|
|
|
|
+" "3B509" :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
|
|
|
|
|
+" "3C955" :Usr) "~xFXND" ("'x/y' \\-> x y
|
|
|
|
|
+" "" "06B314" :CASHELP :Usr) "~xGAMMA" ("x \\-> x'
|
|
|
|
|
+" "" "0070DE" :Usr) "~xGAUSS" ("symb [vars] \\-> [diag] [P] symb' [vars]
|
|
|
|
|
+" "" "04D314" :CASHELP :Usr) "~xGCDMOD" ("x1 x2 \\-> x3
|
|
|
|
|
+" "" "075314" :CASHELP :Usr) "~xGCD" ("x1 x2 \\-> x3
|
|
|
|
|
+" "" "02C314" :CASHELP :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
|
|
|
|
|
+" "3C1C7" :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
|
|
|
|
|
+" "3C22D" :Usr) "~xgmol" ("
|
|
|
|
|
+" "" "0660AB" :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
|
|
|
|
|
+" "3C74A" :Usr) "xGRAD" ("\\->
|
|
|
|
|
+" "Grads Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Grads angle mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: GRAD,RAD
|
|
|
|
|
+" "3B57F" :Usr) "~xGRAMSCHMIDT" ("
|
|
|
|
|
+" "" "0090DE" :Usr) "~xGRIDMAP" ("\\->
|
|
|
|
|
+" "GRIDMAP Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets plot type to GRIDMAP.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION, HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD, TRUTH,WIREFRAME,YSLICE
|
|
|
|
|
+" "00A0AB" :Usr) "~xGROBADD" ("gr1 gr2 \\-> gr3
|
|
|
|
|
+" "Combines two grob objects.
|
|
|
|
|
+" "07C314" :Usr) "xGROB" ("
|
|
|
|
|
+" "" "38C1B" :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\\->
|
|
|
|
|
+" "3C8A1" :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\\->
|
|
|
|
|
+" "3C8A1" :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
|
|
|
|
|
+" "3C7D8" :Usr) "~xHADAMARD" ("[M1] [M2] \\-> [M3]
|
|
|
|
|
+" "" "046314" :CASHELP :Usr) "~xHALFTAN" ("symb \\-> symb'
|
|
|
|
|
+" "" "020314" :CASHELP :Usr) "xHALT" ("\\->
|
|
|
|
|
+" "Halt Program Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Halts program execution.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONT,KILL
|
|
|
|
|
+" "3880D" :Usr) "~xHEAD" ("{} \\-> ob
|
|
|
|
|
+$ \\-> $'
|
|
|
|
|
+" "First Listed Element Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the first element of a
|
|
|
|
|
+list or string.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TAIL
|
|
|
|
|
+" "0510AB" :Usr) "~x\\->HEADER" ("n \\->
|
|
|
|
|
+" "Set header size in lines: 0,1 or 2.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->HEADER
|
|
|
|
|
+" "0040DD" :Usr) "~xHEADER\\->" ("\\-> n
|
|
|
|
|
+" "Header size: Returns current header size
|
|
|
|
|
+in lines.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->HEADER
|
|
|
|
|
+" "0050DD" :Usr) "~xHELP" ("
|
|
|
|
|
+" "" "0320DE" :Usr) "~xHERMITE" ("z \\-> symb
|
|
|
|
|
+" "" "05C314" :CASHELP :Usr) "~xHESS" ("symb [vars] \\-> [M] [grad] [vars]
|
|
|
|
|
+" "" "059314" :CASHELP :Usr) "xHEX" ("\\->
|
|
|
|
|
+" "Hexadecimal Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Selects hexadecimal base for
|
|
|
|
|
+binary integer operations. (The
|
|
|
|
|
+default base is decimal.)
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BIN,OCT,DEC,RCWS,STWS
|
|
|
|
|
+" "3B68B" :Usr) "~xHILBERT" ("z \\-> [M]
|
|
|
|
|
+" "" "054314" :CASHELP :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
|
|
|
|
|
+" "3C9C1" :Usr) "xHISTPLOT" ("\\->
|
|
|
|
|
+" "Draw Histogram Plot Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Plots a frequency histogram of
|
|
|
|
|
+the specified column in the
|
|
|
|
|
+current stat matrix (reserved
|
|
|
|
|
+matrix \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BARPLOT,BINS,FREESE,PICTURE, PVIEW,RES,SCATRPLOT,XCOL
|
|
|
|
|
+" "3E1CA" :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+
|
|
|
|
|
+" "3B14C" :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-
|
|
|
|
|
+" "3B12C" :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-
|
|
|
|
|
+" "3B0EC" :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-
|
|
|
|
|
+" "3B0EC" :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-
|
|
|
|
|
+" "3B10C" :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-
|
|
|
|
|
+" "3B10C" :Usr) "xHOME" ("\\->
|
|
|
|
|
+" "HOME Directory Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Makes the HOME directory the
|
|
|
|
|
+current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CRDIR,PATH,PGDIR,UPDIR
|
|
|
|
|
+" "39405" :Usr) "~xHORNER" ("symb1 x \\-> symb2 x symb3
|
|
|
|
|
+" "" "037314" :CASHELP :Usr) "~xHYPERBOLIC" ("
|
|
|
|
|
+" "" "02B0DE" :Usr) "xi" ("\\-> (0.,1.)
|
|
|
|
|
+\\-> 'i'
|
|
|
|
|
+" "Returns the complex constant i.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: e,MAXR,MINR,\\pi
|
|
|
|
|
+" "39B3B" :Usr) "~xIABCUV" ("n1 n2 n3 \\-> n4 n5
|
|
|
|
|
+" "" "031314" :CASHELP :Usr) "~xIBASIS" ("
|
|
|
|
|
+" "" "0120DE" :Usr) "~xIBERNOULLI" ("n \\-> x
|
|
|
|
|
+" "" "0060DE" :CASHELP :Usr) "~xIBP" ("uv' v \\-> uv -u'v
|
|
|
|
|
+" "" "00B314" :CASHELP :Usr) "~xICHINREM" ("[]1 []2 \\-> []3
|
|
|
|
|
+" "" "03B314" :CASHELP :Usr) "~xIDIV2" ("n1 n2 \\-> quot rem
|
|
|
|
|
+" "" "027314" :CASHELP :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
|
|
|
|
|
+" "3C02E" :Usr) "~xIEGCD" ("n1 n2 \\-> c b a
|
|
|
|
|
+" "" "02F314" :CASHELP :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
|
|
|
|
|
+" "37F48" :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
|
|
|
|
|
+" "387AC" :Usr) "~xIFFT" ("[] \\-> []'
|
|
|
|
|
+" "Inverse Discrete Fourier Tsfm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the 1D or 2D
|
|
|
|
|
+inverse discrete Fourier
|
|
|
|
|
+transform of an array.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FFT
|
|
|
|
|
+" "01B0AB" :Usr) "xIFT" ("0/1 obj \\-> ?
|
|
|
|
|
+" "IF-THEN Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Executes obj if T/F is nonzero.
|
|
|
|
|
+Discards obj if T/F is zero.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: IFTE
|
|
|
|
|
+" "396A4" :Usr) "xIFTE" ("0/1 objT objF \\-> ?
|
|
|
|
|
+" "IF-THEN-ELSE Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Executes objT if T/F is nonzero.
|
|
|
|
|
+Discards objF if T/F is zero.
|
|
|
|
|
+" "395F3" :Usr) "xi" ("\\-> i
|
|
|
|
|
+" "" "39B3B" :Usr) "~xILAP" ("symb \\-> symb'
|
|
|
|
|
+" "" "011314" :CASHELP :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
|
|
|
|
|
+" "3B87E" :Usr) "~xIMAGE" ("
|
|
|
|
|
+" "" "0100DE" :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
|
|
|
|
|
+" "3E54C" :Usr) "~x\\oo" ("\\-> '+\\oo'
|
|
|
|
|
+" "Infinity
|
|
|
|
|
+" "08A314" :Usr) "~x\\oo" ("\\-> '+\\oo'
|
|
|
|
|
+" "Infinity
|
|
|
|
|
+" "08A314" :Usr) "~xINFORM" ("$ {flds} fmt {rst} {init} \\-> {} 1
|
|
|
|
|
+ \\-> 0
|
|
|
|
|
+" "User-Defined Dialog Box Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates a user-defined input form
|
|
|
|
|
+(dialog box).
|
|
|
|
|
+ --
|
|
|
|
|
+ 5: \"title\"
|
|
|
|
|
+ 4: { s1 ... s2...sn }
|
|
|
|
|
+ 3: format
|
|
|
|
|
+ 2: { resets }
|
|
|
|
|
+ 1: { init }
|
|
|
|
|
+ \\|v
|
|
|
|
|
+
|
|
|
|
|
+ 2: { vals }
|
|
|
|
|
+ 1: 1
|
|
|
|
|
+ --
|
|
|
|
|
+ 5: \"title\"
|
|
|
|
|
+ 4: { s1 ... s2...sn }
|
|
|
|
|
+ 3: format
|
|
|
|
|
+ 2: { resets }
|
|
|
|
|
+ 1: { init }
|
|
|
|
|
+ \\|v
|
|
|
|
|
+
|
|
|
|
|
+ 1: 0
|
|
|
|
|
+ --
|
|
|
|
|
+\"title\"
|
|
|
|
|
+ --
|
|
|
|
|
+Title. This appears at the top of
|
|
|
|
|
+the dialog box.
|
|
|
|
|
+ --
|
|
|
|
|
+{ s1 ... s2...sn }
|
|
|
|
|
+ --
|
|
|
|
|
+Field definitions. A field definition
|
|
|
|
|
+(sx) can have two formats
|
|
|
|
|
+: \"label\", a field type,
|
|
|
|
|
+or { \"label\" \"helpInfo\"
|
|
|
|
|
+type0 type1 ... typen },
|
|
|
|
|
+a field label with optional help
|
|
|
|
|
+text that appears near the bottom
|
|
|
|
|
+of the screen, and an optional
|
|
|
|
|
+list of valid object types for
|
|
|
|
|
+that field. If object types
|
|
|
|
|
+aren't specified, all object
|
|
|
|
|
+types are valid. For information
|
|
|
|
|
+about object types, see the TYPE
|
|
|
|
|
+command.
|
|
|
|
|
+When creating a multi-column
|
|
|
|
|
+dialog box, you can span columns
|
|
|
|
|
+by using an empty list as a field
|
|
|
|
|
+definition. A field that appears
|
|
|
|
|
+to the left of an empty space
|
|
|
|
|
+automatically expands to fill the
|
|
|
|
|
+empty space.
|
|
|
|
|
+ --
|
|
|
|
|
+{ resets }
|
|
|
|
|
+ --
|
|
|
|
|
+Default values displayed when
|
|
|
|
|
+RESET is selected. Specify reset
|
|
|
|
|
+values in the list in the same
|
|
|
|
|
+order as the fields were specified.
|
|
|
|
|
+To specify no value, use the
|
|
|
|
|
+NOVAL command as a place holder.
|
|
|
|
|
+This list can be empty.
|
|
|
|
|
+ --
|
|
|
|
|
+{ init }
|
|
|
|
|
+ --
|
|
|
|
|
+Initial values displayed when the
|
|
|
|
|
+dialog box appears. Specify initial
|
|
|
|
|
+values in the list in the
|
|
|
|
|
+same order as the fields were
|
|
|
|
|
+specified. To specify no value,
|
|
|
|
|
+use the NOVAL command as a place
|
|
|
|
|
+holder. This list can be empty.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CHOOSE,INPUT,NOVAL,TYPE
|
|
|
|
|
+" "04C0AB" :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\\->
|
|
|
|
|
+" "3EEBD" :Usr) "~xINTEGER" ("
|
|
|
|
|
+" "" "0290DE" :Usr) "xINT" ("f(var) var x0 \\-> F(x0)
|
|
|
|
|
+" "" "3F007" :CASHELP :Usr) "xINV" ("x \\-> 1/x
|
|
|
|
|
+[[]] \\-> [[]]'
|
|
|
|
|
+" "Inverse (1/x) Analytic Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the reciprocal or the
|
|
|
|
|
+matrix inverse.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: SINV,/
|
|
|
|
|
+" "3A32B" :Usr) "~xINTVX" ("f(x) \\-> F(x)
|
|
|
|
|
+" "" "004314" :CASHELP :Usr) "~xINVMOD" ("x \\-> x'
|
|
|
|
|
+" "" "074314" :CASHELP :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
|
|
|
|
|
+" "3AC3D" :Usr) "~xIQUOT" ("n1 n2 \\-> n3
|
|
|
|
|
+" "" "029314" :CASHELP :Usr) "~xIREMAINDER" ("n1 n2 \\-> n3
|
|
|
|
|
+" "" "02B314" :CASHELP :Usr) "xI\\->R" ("n \\-> x
|
|
|
|
|
+" "" "3F0B7" :CASHELP :Usr) "xI>R" ("n \\-> x
|
|
|
|
|
+" "" "3F0B7" :CASHELP :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
|
|
|
|
|
+" "3E648" :Usr) "~xISOM" ("
|
|
|
|
|
+" "" "00D0DE" :Usr) "~xISPRIME?" ("n \\-> 1
|
|
|
|
|
+ \\-> 0
|
|
|
|
|
+" "" "03C314" :CASHELP :Usr) "x_" ("
|
|
|
|
|
+" "" "3DB62" :Usr) "xFORMUNIT" ("
|
|
|
|
|
+" "" "3DB62" :Usr) "x;" ("
|
|
|
|
|
+" "" "3F053" :Usr) "~x?" ("
|
|
|
|
|
+" "" "089314" :Usr) "x'" ("
|
|
|
|
|
+" "" "389EF" :Usr) "x'" ("
|
|
|
|
|
+" "" "38A14" :Usr) "xENDTIC" ("
|
|
|
|
|
+" "" "38A14" :Usr) "x\\<<" ("
|
|
|
|
|
+" "" "389B9" :Usr) "x<<" ("
|
|
|
|
|
+" "" "389B9" :Usr) "x\\>>" ("
|
|
|
|
|
+" "" "389D4" :Usr) "x>>" ("
|
|
|
|
|
+" "" "389D4" :Usr) "x\\>>" ("
|
|
|
|
|
+" "" "38999" :Usr) "x>>ABND" ("
|
|
|
|
|
+" "" "38999" :Usr) "~xJORDAN" ("[nxn] \\-> minpol chrpol {} []
|
|
|
|
|
+" "" "050314" :CASHELP :Usr) "~xKER" ("
|
|
|
|
|
+" "" "00F0DE" :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
|
|
|
|
|
+" "3EE2C" :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
|
|
|
|
|
+" "39854" :Usr) "~xKEYEVAL" ("rc.p \\-> ?
|
|
|
|
|
+" "Execute the action associated with the
|
|
|
|
|
+specified key. The number is row r, column
|
|
|
|
|
+c, plane p. If negative, force the default
|
|
|
|
|
+key action even in USER mode.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Keycodes
|
|
|
|
|
+" "07B314" :Usr) "~x\\->KEYTIME" ("ticks \\->
|
|
|
|
|
+" "Set a new keytime value. This is the number
|
|
|
|
|
+of ticks which will be required between
|
|
|
|
|
+subsequent key presses. Keys pressed faster
|
|
|
|
|
+will not register.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: KEYTIME\\->
|
|
|
|
|
+" "06C0AB" :Usr) "~xKEYTIME\\->" ("\\-> ticks
|
|
|
|
|
+" "Return the current value of keytime.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->KEYTIME
|
|
|
|
|
+" "06D0AB" :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
|
|
|
|
|
+" "3ECE4" :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
|
|
|
|
|
+" "394F1" :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
|
|
|
|
|
+" "3C5C9" :Usr) "~xLAGRANGE" ("[2xn] \\-> pol
|
|
|
|
|
+" "" "05D314" :CASHELP :Usr) "~x\\->LANGUAGE" ("n \\->
|
|
|
|
|
+" "Set language for error messages etc.
|
|
|
|
|
+ 0 English
|
|
|
|
|
+ 1 French
|
|
|
|
|
+ 2 Spanish
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LANGUAGE\\->
|
|
|
|
|
+" "0000DD" :Usr) "~xLANGUAGE\\->" ("\\-> n
|
|
|
|
|
+" "Return the current language value.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->LANGUAGE
|
|
|
|
|
+" "0010DD" :Usr) "~xLAPL" ("symb [vars] \\-> symb'
|
|
|
|
|
+" "" "058314" :CASHELP :Usr) "~xLAP" ("symb \\-> symb'
|
|
|
|
|
+" "" "010314" :CASHELP :Usr) "xLASTARG" ("\\-> ob1 .. obn
|
|
|
|
|
+" "Last Arguments Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns copies of the arguments
|
|
|
|
|
+of the most recently executed
|
|
|
|
|
+command.
|
|
|
|
|
+" "397E5" :Usr) "xLAST" ("\\-> ob1 .. obn
|
|
|
|
|
+" "Last Arguments Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns copies of the arguments
|
|
|
|
|
+of the most recently executed
|
|
|
|
|
+command.
|
|
|
|
|
+" "397E5" :Usr) "~xlbmol" ("
|
|
|
|
|
+" "" "0670AB" :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
|
|
|
|
|
+" "3C881" :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
|
|
|
|
|
+" "3C881" :Usr) "xLCD\\->" ("\\-> grob
|
|
|
|
|
+" "LCD to Graphics Object Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the current stack and
|
|
|
|
|
+menu display as a 131x64 graphics
|
|
|
|
|
+object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->LCD,\\->GROB
|
|
|
|
|
+" "3C866" :Usr) "xLCD>" ("\\-> grob
|
|
|
|
|
+" "LCD to Graphics Object Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the current stack and
|
|
|
|
|
+menu display as a 131x64 graphics
|
|
|
|
|
+object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->LCD,\\->GROB
|
|
|
|
|
+" "3C866" :Usr) "~xLCM" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "" "02D314" :CASHELP :Usr) "~xLCXM" ("n1 n2 prog \\-> []
|
|
|
|
|
+" "" "055314" :CASHELP :Usr) "~xLDEC" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "" "012314" :CASHELP :Usr) "~xLEGENDRE" ("n \\-> pol
|
|
|
|
|
+" "" "05A314" :CASHELP :Usr) "~xLGCD" ("{symb...} \\-> {} gcd
|
|
|
|
|
+" "" "032314" :CASHELP :Usr) "~" ("" "Evaluate Library Func Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates unnamed library
|
|
|
|
|
+functions. The number is of the form lllfffh
|
|
|
|
|
+where lll is a library number and fff a
|
|
|
|
|
+function number.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EVAL,SYSEVAL
|
|
|
|
|
+" "0160AB" :Usr) "xLIBS" ("\\-> {title nlib nport ...}
|
|
|
|
|
+" "Libraries Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Lists the title, number, and
|
|
|
|
|
+port of each library attached to
|
|
|
|
|
+the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ATTACH,DETACH
|
|
|
|
|
+" "3EB42" :Usr) "~xLIMIT" ("func point \\-> lim
|
|
|
|
|
+" "" "005314" :CASHELP :Usr) "~xLIN" ("symb \\-> symb'
|
|
|
|
|
+" "" "014314" :CASHELP :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
|
|
|
|
|
+" "3C68C" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,COL\\GS,CORR,COV, EXPFIT,LINFIT,LOGFIT,LR,PREDX, PREDY,PWRFIT,XCOL,YCOL
|
|
|
|
|
+" "3E156" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,COL\\GS,CORR,COV, EXPFIT,LINFIT,LOGFIT,LR,PREDX, PREDY,PWRFIT,XCOL,YCOL
|
|
|
|
|
+" "3E156" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,EXPFIT,LOGFIT,LR, PWRFIT
|
|
|
|
|
+" "3E214" :Usr) "~xLININ" ("symb var \\-> 0/1
|
|
|
|
|
+" "Linear Test Func
|
|
|
|
|
+ --
|
|
|
|
|
+Tests whether an algebraic is
|
|
|
|
|
+structurally linear for a given
|
|
|
|
|
+variable.
|
|
|
|
|
+" "0150AB" :Usr) "~xLINSOLVE" ("[eqs] [vars] \\-> [eqs] {pp} sol
|
|
|
|
|
+" "" "052314" :CASHELP :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\\->
|
|
|
|
|
+" "3BAC1" :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\\->
|
|
|
|
|
+" "3BAC1" :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
|
|
|
|
|
+" "3B7D2" :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
|
|
|
|
|
+" "3B7D2" :Usr) "~x\\GDLIST" ("{} \\-> {}'
|
|
|
|
|
+" "List Differences Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the first differences of
|
|
|
|
|
+the elements in a list.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\GSLIST,\\PILIST,STREAM
|
|
|
|
|
+" "0550AB" :Usr) "~x\\PILIST" ("{} \\-> x
|
|
|
|
|
+" "List Product Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the product of the
|
|
|
|
|
+elements in a list.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\GSLIST,\\GDLIST,STREAM
|
|
|
|
|
+" "05A0AB" :Usr) "~x\\GSLIST" ("{} \\-> x
|
|
|
|
|
+" "List Sum Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the sum of the elems in a
|
|
|
|
|
+list.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\PILIST,STREAM
|
|
|
|
|
+" "0590AB" :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
|
|
|
|
|
+" "3AA01" :Usr) "~xLNAME" ("symb \\-> [vars]
|
|
|
|
|
+" "" "06D314" :CASHELP :Usr) "~xLNCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "" "016314" :CASHELP :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
|
|
|
|
|
+" "3AB2F" :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
|
|
|
|
|
+" "3AA73" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,EXPFIT,LINFIT,LR,PWRFIT
|
|
|
|
|
+" "3E239" :Usr) "~xLQ" ("[[]] \\-> [[L]] [[Q]] [[P]]
|
|
|
|
|
+" "LQ Factorization of a Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the LQ factorization of
|
|
|
|
|
+an n\327m matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LSQ,QR
|
|
|
|
|
+" "0320AB" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,PREDX,PREDY, PWRFIT,XCOL,YCOL
|
|
|
|
|
+" "3DF83" :Usr) "~xLSQ" ("[B] [[A]] \\-> []'
|
|
|
|
|
+[[B]] [[A]] \\-> [[]]'
|
|
|
|
|
+" "Least Squares Solution Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the minimum norm least
|
|
|
|
|
+squares solution to any system of
|
|
|
|
|
+linear equations where A \327 X = B
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LQ,RANK,QR,/
|
|
|
|
|
+" "02B0AB" :Usr) "~xLU" ("[[]] \\-> [[L]] [[U]] [[P]]
|
|
|
|
|
+" "LU Dec of a Sq. Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the LU decomposition of a square
|
|
|
|
|
+matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DET,INV,LSQ,/
|
|
|
|
|
+" "0300AB" :Usr) "~xLVAR" ("symb \\-> symb [vars]
|
|
|
|
|
+" "" "06A314" :CASHELP :Usr) "~xMAD" ("[] \\-> det inv coeff cpol
|
|
|
|
|
+" "" "051314" :CASHELP :Usr) "~xMAIN" ("
|
|
|
|
|
+" "Show the main CAS menu.
|
|
|
|
|
+" "07F314" :Usr) "xMANT" ("x \\-> x'
|
|
|
|
|
+" "Mantissa Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the mantissa of the argument.
|
|
|
|
|
+ --
|
|
|
|
|
+ x \\-> ymant
|
|
|
|
|
+ 'sym' \\-> 'MANT(sym)'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: SIGN,XPON
|
|
|
|
|
+" "3B02E" :Usr) "~xMAP" ("{} prog \\-> {}'
|
|
|
|
|
+" "" "066314" :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
|
|
|
|
|
+" "3DB04" :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
|
|
|
|
|
+" "3DB04" :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
|
|
|
|
|
+" "3DAD0" :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
|
|
|
|
|
+" "3DAD0" :Usr) "~xMATHS" ("
|
|
|
|
|
+" "Show the main MATH menu.
|
|
|
|
|
+" "02F0DE" :Usr) "~xMATR" ("
|
|
|
|
|
+" "Show the matrix menu.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARIT,BASE,CMPLX,DIFF,EXP&LN, SOLVER,TRIGO
|
|
|
|
|
+" "083314" :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
|
|
|
|
|
+" "3ADA5" :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
|
|
|
|
|
+" "39AE4" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BINS,MEAN,MIN\\GS,SDEV,TOT,VAR
|
|
|
|
|
+" "3DEE1" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BINS,MEAN,MIN\\GS,SDEV,TOT,VAR
|
|
|
|
|
+" "3DEE1" :Usr) "~xMCALC" ("var \\->
|
|
|
|
|
+{vars} \\->
|
|
|
|
|
+\"ALL\" \\->
|
|
|
|
|
+" "Make Calculated Value Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Designates a variable as a calculated
|
|
|
|
|
+value (not user-defined)
|
|
|
|
|
+for the Multiple-Equation Solver.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MUSER
|
|
|
|
|
+" "0760AB" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BINS,MAX\\GS,MIN\\GS,SDEV,TOT,VAR
|
|
|
|
|
+" "3DEFC" :Usr) "xMEM" ("\\-> x
|
|
|
|
|
+" "Memory Available Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the number of bytes of
|
|
|
|
|
+available RAM.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BYTES
|
|
|
|
|
+" "3E8C1" :Usr) "~xMENUXY" ("n1 n2 \\->
|
|
|
|
|
+" "Menu of CAS commands.
|
|
|
|
|
+" "07A314" :CASHELP :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
|
|
|
|
|
+" "3EB16" :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
|
|
|
|
|
+" "3AE2B" :Usr) "~xMINIFONT\\->" ("\\-> font
|
|
|
|
|
+" "Returns the current minifont.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->MINIFONT
|
|
|
|
|
+" "0120DD" :Usr) "~x\\->MINIFONT" ("font \\->
|
|
|
|
|
+" "Sets the font as current minifont.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MINIFONT\\->
|
|
|
|
|
+" "0110DD" :Usr) "~xMINIT" ("\\->
|
|
|
|
|
+" "Multiple Equation Menu Init Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates the reserved variable
|
|
|
|
|
+Mpar.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|Mpar
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MITM,MROOT,MSOLVER
|
|
|
|
|
+" "0730AB" :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
|
|
|
|
|
+" "39B01" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BINS,MAX\\GS,MEAN,SDEV,TOT,VAR
|
|
|
|
|
+" "3DF17" :Usr) "xMINSIGMA" ("\\-> xmin
|
|
|
|
|
+\\-> [x1...xn]
|
|
|
|
|
+" "Minimum Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Finds the minimum coordinate
|
|
|
|
|
+value in each of the m current
|
|
|
|
|
+statistics matrix (reserved
|
|
|
|
|
+variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BINS,MAX\\GS,MEAN,SDEV,TOT,VAR
|
|
|
|
|
+" "3DF17" :Usr) "~xMITM" ("title {vars} \\->
|
|
|
|
|
+" "Multiple Equation Menu Item
|
|
|
|
|
+ --
|
|
|
|
|
+Order Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Changes multiple equation menu
|
|
|
|
|
+titles and order.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MINIT
|
|
|
|
|
+" "0740AB" :Usr) "~xMKISOM" ("
|
|
|
|
|
+" "" "00E0DE" :CASHELP :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,/
|
|
|
|
|
+" "3AFCB" :Usr) "~xMODSTO" ("mod \\->
|
|
|
|
|
+" "" "079314" :CASHELP :Usr) "~xMODULAR" ("
|
|
|
|
|
+" "" "02C0DE" :Usr) "~xMROOT" ("var \\-> x
|
|
|
|
|
+\"ALL\" \\->
|
|
|
|
|
+" "Multiple Roots Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Uses the Multiple-Equation Solver
|
|
|
|
|
+to solve for one or more variables
|
|
|
|
|
+using the equation set in Mpar
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MCALC,MUSER
|
|
|
|
|
+" "0770AB" :Usr) "~xMSGBOX" ("$ \\->
|
|
|
|
|
+" "Message Box Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates a user-defined message
|
|
|
|
|
+box.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CHOOSE,INFORM,PROMPT
|
|
|
|
|
+" "04E0AB" :Usr) "~xMSLV" ("
|
|
|
|
|
+" "" "0200DE" :CASHELP :Usr) "~xMSOLVR" ("\\->
|
|
|
|
|
+" "Multiple-Equation Solver Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Gets the Multiple-Equation Solver
|
|
|
|
|
+variable menu for the set of
|
|
|
|
|
+equations defined by Mpar.
|
|
|
|
|
+" "0720AB" :Usr) "~xMULTMOD" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "" "070314" :CASHELP :Usr) "~xMUSER" ("var \\->
|
|
|
|
|
+{vars} \\->
|
|
|
|
|
+\"ALL\" \\->
|
|
|
|
|
+" "Make User-Defined Variable Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Designates a variable as user -
|
|
|
|
|
+defined for the Multiple-Equation
|
|
|
|
|
+Solver.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MCALC
|
|
|
|
|
+" "0750AB" :Usr) "~x\\->NDISP" ("n \\->
|
|
|
|
|
+" "Set the number of program lines displayed on
|
|
|
|
|
+the screen.
|
|
|
|
|
+" "0060DD" :Usr) "~xNDIST" ("xq v x \\-> x'
|
|
|
|
|
+" "Normal Distribution Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the normal probability
|
|
|
|
|
+distribution (bell curve) at x
|
|
|
|
|
+based on the mean m and variance
|
|
|
|
|
+v of the normal distribution.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: UTPN
|
|
|
|
|
+" "01C0AB" :Usr) "xNDUPN" ("ob n \\-> ob .. ob n
|
|
|
|
|
+" "Duplicates object n times and returns n.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DUP,DUPDUP,DUPN,DUP2
|
|
|
|
|
+" "3F2B5" :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
|
|
|
|
|
+" "39976" :Usr) "xNEWOB" ("ob \\-> ob
|
|
|
|
|
+" "New Object Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates a new copy of the
|
|
|
|
|
+specifiedfied object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MEM,PURGE
|
|
|
|
|
+" "394AA" :Usr) "xNEXT" ("\\->
|
|
|
|
|
+" "NEXT Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Ends definite loop structures.
|
|
|
|
|
+See the FOR and START command
|
|
|
|
|
+entries for syntax information.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FOR,START,STEP
|
|
|
|
|
+" "3831C" :Usr) "~xNEXTPRIME" ("n \\-> n'
|
|
|
|
|
+" "" "03D314" :CASHELP :Usr) "xNIP" ("ob1 ob2 \\-> ob2
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: DUP,DUPDUP,DUPN,DUP2
|
|
|
|
|
+" "3F264" :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
|
|
|
|
|
+" "3CB13" :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
|
|
|
|
|
+" "3F0FC" :Usr) "xN\\GS" ("\\-> nrows
|
|
|
|
|
+" "Number of Rows Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the number of rows in the
|
|
|
|
|
+current statistical matrix
|
|
|
|
|
+(reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DE09" :Usr) "xNSIGMA" ("\\-> nrows
|
|
|
|
|
+" "Number of Rows Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the number of rows in the
|
|
|
|
|
+current statistical matrix
|
|
|
|
|
+(reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DE09" :Usr) "~xNSUB" ("\\-> npos
|
|
|
|
|
+" "Number of Sublist Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Provides a way to access the
|
|
|
|
|
+current sublist position during
|
|
|
|
|
+an iteration of a program or
|
|
|
|
|
+command applied using DOSUBS.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOSUBS,ENDSUB
|
|
|
|
|
+" "0560AB" :Usr) "xNUM" ("$ \\-> n
|
|
|
|
|
+" "Character Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the character code n for
|
|
|
|
|
+the first character in the string.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CHR,POS,REPL,SIZE,SUB
|
|
|
|
|
+" "3BBF9" :Usr) "~xNUMX" ("n \\->
|
|
|
|
|
+" "Number of X-Steps Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the number of x-steps for
|
|
|
|
|
+each y-step in 3D perspective
|
|
|
|
|
+plots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: NUMY
|
|
|
|
|
+" "0060AB" :Usr) "~xNUMY" ("n \\->
|
|
|
|
|
+" "Number of Y-Steps Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the number of y-steps across
|
|
|
|
|
+the view volume in 3D perspective
|
|
|
|
|
+plots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: NUMX
|
|
|
|
|
+" "0070AB" :Usr) "x\\->NUM" ("x \\-> x'
|
|
|
|
|
+" "Evaluate to Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates a symbolic argument
|
|
|
|
|
+object and returns the numerical
|
|
|
|
|
+result.
|
|
|
|
|
+ --
|
|
|
|
|
+ objsym \\-> z
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->Q,\\->Qpi
|
|
|
|
|
+" "39785" :Usr) "x>NUM" ("x \\-> x'
|
|
|
|
|
+" "Evaluate to Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates a symbolic argument
|
|
|
|
|
+object and returns the numerical
|
|
|
|
|
+result.
|
|
|
|
|
+ --
|
|
|
|
|
+ objsym \\-> z
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->Q,\\->Qpi
|
|
|
|
|
+" "39785" :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
|
|
|
|
|
+" "3BE38" :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
|
|
|
|
|
+" "3BE38" :Usr) "xOCT" ("\\->
|
|
|
|
|
+" "Octal Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Selects octal base for binary
|
|
|
|
|
+integer operations. (The default
|
|
|
|
|
+base is decimal.)
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BIN,DEC,HEX,RCWS,STWS
|
|
|
|
|
+" "3B6A6" :Usr) "xOFF" ("\\->
|
|
|
|
|
+" "Off Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Turns off the calculator.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONT,HALT,KILL
|
|
|
|
|
+" "3950C" :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.
|
|
|
|
|
+" "3D0BC" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|IOPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BUFLEN,CLOSEIO,SBRK,SRECV, STIME,XMIT
|
|
|
|
|
+" "3EC75" :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
|
|
|
|
|
+" "3CA8D" :Usr) "xORDER" ("{names} \\->
|
|
|
|
|
+" "Order Variables Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Reorders the variables in the
|
|
|
|
|
+current directory (shown in the
|
|
|
|
|
+VAR menu) to the order specified.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: VARS
|
|
|
|
|
+" "3E8F0" :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
|
|
|
|
|
+" "3DC8C" :Usr) "~xP2C" ("???
|
|
|
|
|
+" "" "01F0DE" :CASHELP :Usr) "~xPA2B2" ("n \\-> n'
|
|
|
|
|
+" "" "039314" :CASHELP :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
|
|
|
|
|
+" "3C98B" :Usr) "xPARITY" ("n \\->
|
|
|
|
|
+" "Parity Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the parity value in the
|
|
|
|
|
+reserved variable IOPAR.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|IOPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,CKSM,TRANSIO
|
|
|
|
|
+" "3EDEC" :Usr) "~xPARSURFACE" ("\\->
|
|
|
|
|
+" "PARSURFACE Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to PARSURFACE.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FAST3D, FUNCTION,GRIDMAP,HISTOGRAM,PARAMETRIC, PCONTOUR,POLAR,SCATTER,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE
|
|
|
|
|
+" "0090AB" :Usr) "~xPARTFRAC" ("symb \\-> symb'
|
|
|
|
|
+" "" "034314" :CASHELP :Usr) "xPATH" ("\\-> {HOME dir1 .. dirn}
|
|
|
|
|
+" "Current Path Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a list specifying the
|
|
|
|
|
+path to the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CRDIR,HOME,PGDIR,UPDIR
|
|
|
|
|
+" "393EA" :Usr) "~xPCAR" ("[nxn] \\-> pol
|
|
|
|
|
+" "" "04F314" :CASHELP :Usr) "~xPCOEF" ("[roots] \\-> [coefs]
|
|
|
|
|
+" "Monic Polynomial Coefficients Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the coefficients of a
|
|
|
|
|
+monic polynomial (a polynomial
|
|
|
|
|
+with a leading coefficient of 1)
|
|
|
|
|
+having specific roots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PEVAL,PROOT
|
|
|
|
|
+" "0450AB" :Usr) "~xPCONTOUR" ("\\->
|
|
|
|
|
+" "PCONTOUR Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to PCONTOUR.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, POLAR,SCATTER,SLOPEFIELD,TRUTH, WIREFRAME,YSLICE
|
|
|
|
|
+" "00D0AB" :Usr) "~xPCOV" ("\\-> xpcovariance
|
|
|
|
|
+" "Population Covariance Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the population covariance
|
|
|
|
|
+of the independent and dependent
|
|
|
|
|
+data columns in the current stat
|
|
|
|
|
+matrix (reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\GS,CORR,COV,PREDX,PREDY, XCOL,YCOL
|
|
|
|
|
+" "01F0AB" :Usr) "xPDIM" ("(xmin,ymin) (xmax,ymax) \\->
|
|
|
|
|
+#width #height \\->
|
|
|
|
|
+" "PICT Dimension Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Replaces PICT with a blank PICT
|
|
|
|
|
+of the specified dimensions.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PMAX,PMIN
|
|
|
|
|
+" "3C4F5" :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,!
|
|
|
|
|
+" "3B477" :Usr) "~xPEVAL" ("[coefs] x \\-> x'
|
|
|
|
|
+" "Polynomial Evaluation Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates an n-degree polynomial
|
|
|
|
|
+at x.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PCOEFF,PROOT
|
|
|
|
|
+" "0460AB" :Usr) "xPGDIR" ("name \\->
|
|
|
|
|
+" "Purge Directory Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Purges the named directory
|
|
|
|
|
+(whether empty or not).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLVAR,CRDIR,HOME,PATH,PURGE, UPDIR
|
|
|
|
|
+" "3EAA7" :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
|
|
|
|
|
+" "3DCFD" :Usr) "xPICK3" ("1 2 3 \\-> 1 2 3 1
|
|
|
|
|
+" "Duplicate the object on level 3 of the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PICK,OVER,DUP
|
|
|
|
|
+" "3F27F" :Usr) "xPICT" ("\\-> PICT
|
|
|
|
|
+" "PICT Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Puts the name PICT on the stack.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: GOR,GCOR,NEG,PICTURE,PVIEW, RCL,REPL,SIZE,STO,SUB
|
|
|
|
|
+" "3C72A" :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
|
|
|
|
|
+" "3C5AE" :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
|
|
|
|
|
+" "3C5AE" :Usr) "~xPINIT" ("\\->
|
|
|
|
|
+" "Port Initialize Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Initializes all currently active
|
|
|
|
|
+ports. Does not affect data
|
|
|
|
|
+already stored in a port.
|
|
|
|
|
+" "06A0AB" :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
|
|
|
|
|
+" "3C662" :Usr) "xPIXOFF" ("(x,y) \\->
|
|
|
|
|
+{#n #m} \\->
|
|
|
|
|
+" "Pixel Off Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Turns off the pixel at the specified
|
|
|
|
|
+coordinate in PICT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PIX?,PIXON
|
|
|
|
|
+" "3C638" :Usr) "xPIXON" ("(x,y) \\->
|
|
|
|
|
+{#n #m} \\->
|
|
|
|
|
+" "Pixel On Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Turns on the pixel at the
|
|
|
|
|
+specified coordinate in PICT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PIX?,PIXOFF
|
|
|
|
|
+" "3C60E" :Usr) "xPKT" ("$data $type \\-> $response
|
|
|
|
|
+" "Packet Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Used to send command \"packets\"
|
|
|
|
|
+(and receive requested data) to
|
|
|
|
|
+a Kermit server.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLOSEIO,KERRM,SERVER
|
|
|
|
|
+" "3EE9D" :Usr) "~xPLOT" ("f \\-> f
|
|
|
|
|
+" "Plots a function.
|
|
|
|
|
+" "009314" :CASHELP :Usr) "~xPLOTADD" ("f \\->
|
|
|
|
|
+" "Adds function to existing plot function list,
|
|
|
|
|
+and opens the Plot Setup screen.
|
|
|
|
|
+" "00A314" :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
|
|
|
|
|
+" "3C392" :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
|
|
|
|
|
+" "3C372" :Usr) "~xPMINI" ("
|
|
|
|
|
+" "" "0140DE" :CASHELP :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
|
|
|
|
|
+" "3C979" :Usr) "~xPOLYNOMIAL" ("\\->
|
|
|
|
|
+" "Display polynomial menu.
|
|
|
|
|
+" "02D0DE" :CASHELP :Usr) "~xPOP" ("\\->
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: PUSH
|
|
|
|
|
+" "0350DE" :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
|
|
|
|
|
+" "3BB94" :Usr) "~xPOTENTIAL" ("
|
|
|
|
|
+" "" "0380DE" :CASHELP :Usr) "~xPOWEXPAND" ("
|
|
|
|
|
+" "" "01B0DE" :CASHELP :Usr) "~xPOWMOD" ("symb exp \\-> symb'
|
|
|
|
|
+" "" "073314" :CASHELP :Usr) "xPR1" ("ob \\-> ob
|
|
|
|
|
+" "Print Level 1 Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Prints an object in multiline
|
|
|
|
|
+printer format.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CR,DELAY,OLDPRT,PRTLCD,PRST, PRSTC,PRVAR
|
|
|
|
|
+" "3D0D7" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PREDX
|
|
|
|
|
+" "3DFDD" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,LR, PREDY,PWRFIT,XCOL,YCOL
|
|
|
|
|
+" "3E01D" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL\\GS,CORR,COV,EXPFIT, \\GSLINE,LINFIT,LOGFIT,LR, PREDX,PWRFIT,XCOL,YCOL
|
|
|
|
|
+" "3DFFD" :Usr) "~xPREVAL" ("f x1 x2 \\-> symb
|
|
|
|
|
+ \\-> x
|
|
|
|
|
+" "" "00C314" :CASHELP :Usr) "~xPREVPRIME" ("n \\-> n'
|
|
|
|
|
+" "" "03E314" :CASHELP :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
|
|
|
|
|
+" "3D1E7" :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
|
|
|
|
|
+" "38BBF" :Usr) "~xPROMPTSTO" ("var \\->
|
|
|
|
|
+" "Creates a variable and promts for a value to
|
|
|
|
|
+store there.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PROMPT,STO
|
|
|
|
|
+" "08B314" :Usr) "~xPROOT" ("[coefs] \\-> [roots]
|
|
|
|
|
+" "Polynomial Roots Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns all roots of an n-degree
|
|
|
|
|
+polynomial having real or complex
|
|
|
|
|
+roots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PCOEFF,PEVAL
|
|
|
|
|
+" "0440AB" :Usr) "~xPROPFRAC" ("x \\-> symb'
|
|
|
|
|
+" "" "035314" :CASHELP :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
|
|
|
|
|
+" "3D10D" :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
|
|
|
|
|
+" "3D0F2" :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
|
|
|
|
|
+" "3D143" :Usr) "~xPSDEV" ("\\-> xpsdev
|
|
|
|
|
+\\-> {x1...xn}
|
|
|
|
|
+" "Population Standard Deviation Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the population standard
|
|
|
|
|
+deviation of each of the m
|
|
|
|
|
+columns of coordiate values in
|
|
|
|
|
+the current stastics matrix
|
|
|
|
|
+(reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MEAN,PCOV,PVAR,SDEV,TOT,VAR
|
|
|
|
|
+" "01D0AB" :Usr) "~xPSI" ("symb \\-> symb'
|
|
|
|
|
+" "" "0040DE" :CASHELP :Usr) "~xPsi" ("symb n \\-> symb'
|
|
|
|
|
+" "" "0030DE" :CASHELP :Usr) "~xPTAYL" ("pol x \\-> pol'
|
|
|
|
|
+" "" "036314" :CASHELP :Usr) "~xPUSH" ("\\->
|
|
|
|
|
+" "" "0340DE" :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
|
|
|
|
|
+" "3C0BF" :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
|
|
|
|
|
+" "3C139" :Usr) "~xPVAR" ("\\-> xpvariance
|
|
|
|
|
+\\-> [x1...xn]
|
|
|
|
|
+" "Poplulation Variance Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the population variance
|
|
|
|
|
+of the coordinate values in
|
|
|
|
|
+each of the m columns in the
|
|
|
|
|
+current stat matrix (\\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MEAN,PCOV,PSDEV,SDEV,VAR
|
|
|
|
|
+" "01E0AB" :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
|
|
|
|
|
+" "3EA49" :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
|
|
|
|
|
+" "3C5E4" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BESTFIT,EXPFIT,LINFIT, LOGFIT,LR
|
|
|
|
|
+" "3E283" :Usr) "xPX\\->C" ("{#m #n} \\-> (x,y)
|
|
|
|
|
+" "Pixel to Complex Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts the specified pixel
|
|
|
|
|
+coordinates to user-unit
|
|
|
|
|
+coordinates.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: C\\->PX
|
|
|
|
|
+" "3C56E" :Usr) "xPX>C" ("{#m #n} \\-> (x,y)
|
|
|
|
|
+" "Pixel to Complex Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts the specified pixel
|
|
|
|
|
+coordinates to user-unit
|
|
|
|
|
+coordinates.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: C\\->PX
|
|
|
|
|
+" "3C56E" :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,/
|
|
|
|
|
+" "3DA3E" :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,/
|
|
|
|
|
+" "3DA3E" :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
|
|
|
|
|
+" "3DA63" :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
|
|
|
|
|
+" "3DA63" :Usr) "~xqr" ("
|
|
|
|
|
+" "" "0080DE" :Usr) "~xQR" ("[[]] \\-> [[Q]] [[R]] [[P]]
|
|
|
|
|
+" "QR Factorization of a Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the QR factorization of
|
|
|
|
|
+an n\327m matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LQ,LSQ
|
|
|
|
|
+" "0310AB" :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
|
|
|
|
|
+" "3E66F" :Usr) "xQUOTE" ("ob \\-> 'ob
|
|
|
|
|
+" "Quote Argument Func
|
|
|
|
|
+ --
|
|
|
|
|
+Returns its argument unevaluated.
|
|
|
|
|
+ --
|
|
|
|
|
+ 'sym' \\-> 'sym'
|
|
|
|
|
+ obj \\-> obj
|
|
|
|
|
+ --
|
|
|
|
|
+Related: APPLY,|
|
|
|
|
|
+" "3D6F6" :Usr) "~xQUOT" ("p1 p2 \\-> p3
|
|
|
|
|
+" "" "028314" :CASHELP :Usr) "~xQXA" ("symb [vars] \\-> [[]] [vars]
|
|
|
|
|
+" "" "04B314" :CASHELP :Usr) "xRAD" ("\\->
|
|
|
|
|
+" "Radians Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Radians angle mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DEG,RAD
|
|
|
|
|
+" "3B564" :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,!
|
|
|
|
|
+" "3B3E6" :Usr) "~xRANK" ("[[]] \\-> n
|
|
|
|
|
+" "Matrix Rank Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the rank of a rectangular
|
|
|
|
|
+matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LQ,LSQ,QR
|
|
|
|
|
+" "02A0AB" :Usr) "~xRANM" ("{m n} \\-> [[]]
|
|
|
|
|
+[[]] \\-> [[]]'
|
|
|
|
|
+" "Random Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a matrix of specified
|
|
|
|
|
+dimensions that contains random
|
|
|
|
|
+integers in the range -9 through
|
|
|
|
|
+9.
|
|
|
|
|
+ --
|
|
|
|
|
+ { m n } \\-> [[ rand mat ]]m\327n
|
|
|
|
|
+ [[ mat ]]m\327n \\-> [[ rand mat ]]m\327n
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RAND,RDZ
|
|
|
|
|
+" "0350AB" :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: /
|
|
|
|
|
+" "3DBCA" :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: /
|
|
|
|
|
+" "3DBCA" :Usr) "xRCEQ" ("\\-> EQ
|
|
|
|
|
+" "Recall from EQ Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the unevaluated contents
|
|
|
|
|
+of the reserved variable EQ from
|
|
|
|
|
+the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|EQ
|
|
|
|
|
+ --
|
|
|
|
|
+Related: STEQ
|
|
|
|
|
+" "3D393" :Usr) "~xRCI" ("[[]] x nrow \\-> [[]]'
|
|
|
|
|
+[] x n []'
|
|
|
|
|
+" "Multiply Row by Constant Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies row n of a matrix (or
|
|
|
|
|
+element n of a vector) by a const
|
|
|
|
|
+x, and returns the modified
|
|
|
|
|
+matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RCIJ
|
|
|
|
|
+" "0420AB" :Usr) "~xRCIJ" ("[[]] x n* n+ \\-> [[]]'
|
|
|
|
|
+[] x n* n+ \\-> []'
|
|
|
|
|
+" "Add Multiplied Row Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies row n* of a matrix by a
|
|
|
|
|
+constant x, adds this product
|
|
|
|
|
+to row n+ of the matrix, and
|
|
|
|
|
+returns the modified matrix. Or,
|
|
|
|
|
+multiplies element n* of a vector
|
|
|
|
|
+by a constant x, adds this
|
|
|
|
|
+product to element n+ of the vector,
|
|
|
|
|
+and returns the modified
|
|
|
|
|
+vector.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RCI
|
|
|
|
|
+" "0430AB" :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
|
|
|
|
|
+" "3E6F1" :Usr) "xRCLALARM" ("n \\-> {date time action rep}
|
|
|
|
|
+" "Recall Alarm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Recalls a specified alarm.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DELALARM,FINDALARM,STOALARM
|
|
|
|
|
+" "3918E" :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
|
|
|
|
|
+" "3B715" :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
|
|
|
|
|
+" "3EF79" :Usr) "xRCLMENU" ("\\-> x
|
|
|
|
|
+" "Recall Menu Number Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the menu number of the
|
|
|
|
|
+currently displayed menu.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MENU,TMENU
|
|
|
|
|
+" "3EA2E" :Usr) "xRCL\\GS" ("\\-> [[]]
|
|
|
|
|
+" "Recall Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the current stat matrix
|
|
|
|
|
+(the contents of reserved var
|
|
|
|
|
+\\GSDAT) from the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,STO\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DDA9" :Usr) "xRCLSIGMA" ("\\-> [[]]
|
|
|
|
|
+" "Recall Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the current stat matrix
|
|
|
|
|
+(the contents of reserved var
|
|
|
|
|
+\\GSDAT) from the current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,STO\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DDA9" :Usr) "~xRCLVX" ("\\-> name
|
|
|
|
|
+" "Recall the current content of the reserved
|
|
|
|
|
+ --
|
|
|
|
|
+CAS variable VX.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "03F0DE" :Usr :1\.19-6) "xRCWS" ("\\-> n
|
|
|
|
|
+" "Recall Wordsize Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the current wordsize in
|
|
|
|
|
+bits (1 through 64).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BIN,DEC,HEX,OCT,STWS
|
|
|
|
|
+" "3B6FA" :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
|
|
|
|
|
+" "3BEEC" :Usr) "xRDZ" ("x \\->
|
|
|
|
|
+" "Randomize Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Uses a real number xseed as a
|
|
|
|
|
+seed for the RAND command.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COMB,PERM,RAND,!
|
|
|
|
|
+" "3B401" :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
|
|
|
|
|
+" "3B819" :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
|
|
|
|
|
+" "3ED22" :Usr) "~xRECT" ("\\->
|
|
|
|
|
+" "Rectangular Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Rectangular coordinate mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CYLIN,SPHERE
|
|
|
|
|
+" "0110AB" :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
|
|
|
|
|
+" "3ED56" :Usr) "~xREF" ("[[]] \\-> [[]]'
|
|
|
|
|
+" "" "048314" :CASHELP :Usr) "~xREMAINDER" ("p1 p2 \\-> p3
|
|
|
|
|
+" "" "02A314" :CASHELP :Usr) "~xRENAME" ("name name' \\->
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: COPY
|
|
|
|
|
+" "0130DD" :Usr) "~xREORDER" ("pol var \\-> pol'
|
|
|
|
|
+" "" "069314" :CASHELP :Usr) "xREPEAT" ("1/0 \\->
|
|
|
|
|
+" "REPEAT Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts loop clause in
|
|
|
|
|
+ WHILE ... REPEAT ... END
|
|
|
|
|
+indefinite loop structure.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: END,WHILE
|
|
|
|
|
+" "38105" :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
|
|
|
|
|
+" "3B9D2" :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
|
|
|
|
|
+" "3C41A" :Usr) "xRESTORE" (":port:name \\->
|
|
|
|
|
+ob \\->
|
|
|
|
|
+" "Restore HOME Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Replaces the current HOME directory
|
|
|
|
|
+with the specified backup copy.
|
|
|
|
|
+ --
|
|
|
|
|
+ :nport:namebackup \\-> obj
|
|
|
|
|
+ backup \\->
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ARCHIVE
|
|
|
|
|
+" "3EAE7" :Usr) "~xRESULTANT" ("p1 p2 \\-> res
|
|
|
|
|
+" "" "0050DE" :CASHELP :Usr) "~xREVLIST" ("{1...n} \\-> {n...1}'
|
|
|
|
|
+" "Reverse List Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Reverses the order of the
|
|
|
|
|
+elements in a list.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: SORT
|
|
|
|
|
+" "05D0AB" :Usr) "~xREWRITE" ("
|
|
|
|
|
+" "" "0280DE" :Usr) "~xRISCH" ("f var \\-> F
|
|
|
|
|
+" "" "00D314" :CASHELP :Usr) "~xRKF" ("{} xtol xTf \\-> {} xtol
|
|
|
|
|
+{} {xtol step} xTf \\-> {} xtol
|
|
|
|
|
+" "Runge-Kutta-Fehlberg) Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the solution to an initial
|
|
|
|
|
+value problem for a differential
|
|
|
|
|
+equation, using the Runge-Kutta-Fehlberg
|
|
|
|
|
+(4,5) method.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKFERR,RKFSTEP,RRK,RRKSTEP,RBSERR
|
|
|
|
|
+" "0200AB" :Usr) "~xRKFERR" ("{} h \\-> {} h dy err
|
|
|
|
|
+" "Error Estimates for <REF>RKF
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the absolute error estimate
|
|
|
|
|
+for a given step h when solving
|
|
|
|
|
+an initial value problem for
|
|
|
|
|
+a differential equation.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKF,RKFSTEP,RRK,RRKSTEP,RSBERR
|
|
|
|
|
+" "0220AB" :Usr) "~xRKFSTEP" ("{} tol h \\-> {} tol h'
|
|
|
|
|
+" "Next Solution Step for RKF Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the next solution step
|
|
|
|
|
+(hnext) to an initial value problem
|
|
|
|
|
+for a differential equation.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKF,RKFERR,RRK,RRKSTEP,RSBERR
|
|
|
|
|
+" "0210AB" :Usr) "xRL" ("# \\-> #'
|
|
|
|
|
+" "Rotate Left Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rotates a binary integer one bit
|
|
|
|
|
+to the left.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RLB,RR,RRB
|
|
|
|
|
+" "38E01" :Usr) "xRLB" ("# \\-> #'
|
|
|
|
|
+" "Rotate Left Byte Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rotates a binary integer one byte
|
|
|
|
|
+to the left.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RL,RR,RRB
|
|
|
|
|
+" "38E21" :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
|
|
|
|
|
+" "3AEB1" :Usr) "xRNRM" ("[] \\-> x
|
|
|
|
|
+" "Row Norm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the row norm (infinity
|
|
|
|
|
+norm) of its argument array.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CNRM,CROSS,DET,DOT
|
|
|
|
|
+" "3B16C" :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
|
|
|
|
|
+" "3DD18" :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
|
|
|
|
|
+" "3DD33" :Usr) "~xROMUPLOAD" ("\\->
|
|
|
|
|
+" "Upload the rom to another calculator
|
|
|
|
|
+ --
|
|
|
|
|
+1. On the sending calculator, enter ROMUPLOAD
|
|
|
|
|
+and press ENTER. On the receving calc, hold
|
|
|
|
|
+down ON and press F4. On the receiving calc,
|
|
|
|
|
+hold down ON and +, and press ENTER. On the
|
|
|
|
|
+receiving calc, press 4 to select Download
|
|
|
|
|
+option. On the sending calc, press any key
|
|
|
|
|
+to start the process (takes about 20 min).
|
|
|
|
|
+" "06F0AB" :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.
|
|
|
|
|
+" "3D3CE" :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
|
|
|
|
|
+" "3DC71" :Usr) "~xROW-" ("[[]] nrow \\-> [[]]' []
|
|
|
|
|
+[] n \\-> []' elt
|
|
|
|
|
+" "Delete Row Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Deletes row n of a matrix (or
|
|
|
|
|
+element n of a vector), and
|
|
|
|
|
+returns the modified matrix (or
|
|
|
|
|
+vector) and the deleted row (or
|
|
|
|
|
+element).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL-,COL+,ROW-,RSWP
|
|
|
|
|
+" "03C0AB" :Usr) "~xROW+" ("[[]] [[]]' n \\-> [[]]''
|
|
|
|
|
+[[]] [] n \\-> [[]]'
|
|
|
|
|
+[] n n' \\-> []
|
|
|
|
|
+" "Insert Row Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Inserts an array into a matrix
|
|
|
|
|
+(or one or more numbers into a
|
|
|
|
|
+vector) at a position indicated
|
|
|
|
|
+by nindex, and returns the
|
|
|
|
|
+modified matrix (or vector).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COL-,COL+,ROW-,RSWP
|
|
|
|
|
+" "03D0AB" :Usr) "~xROW\\->" ("[1]...[n] n \\-> []
|
|
|
|
|
+x1...xn \\-> []
|
|
|
|
|
+" "Rows to Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Transforms a series of row vectors
|
|
|
|
|
+and a row count into a matrix
|
|
|
|
|
+rix containing those rows, or
|
|
|
|
|
+transforms a sequence of numbers
|
|
|
|
|
+and an element count into a
|
|
|
|
|
+vector with those numbers as
|
|
|
|
|
+elements.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->COL,COL\\->,\\->ROW
|
|
|
|
|
+" "0370AB" :Usr) "~x\\->ROW" ("[[]] \\-> [1]...[n] n
|
|
|
|
|
+[] \\-> x1...xn n
|
|
|
|
|
+" "Matrix to Rows Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Transforms a matrix into a series
|
|
|
|
|
+of row vectors and returns the
|
|
|
|
|
+vectors and a row count, or
|
|
|
|
|
+transforms a vector into its
|
|
|
|
|
+elements and returns the elements
|
|
|
|
|
+and an element count.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->COL,COL\\->,ROW\\->
|
|
|
|
|
+" "0360AB" :Usr) "xRPL>" ("
|
|
|
|
|
+" "" "3F218" :Usr) "~xrpm" ("
|
|
|
|
|
+" "" "0680AB" :Usr) "xRR" ("# \\-> x'
|
|
|
|
|
+" "Rotate Right Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rotates a binary integer one bit
|
|
|
|
|
+to the right.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RL,RLB,RRB
|
|
|
|
|
+" "38E41" :Usr) "xRRB" ("# \\-> x'
|
|
|
|
|
+" "Rotate Right Byte Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Rotates a binary integer one byte
|
|
|
|
|
+to the right.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RL,RLB,RR
|
|
|
|
|
+" "38E61" :Usr) "~xRREF" ("[[]] \\-> [[]]'
|
|
|
|
|
+" "Reduced Row Echelon Form Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts a rectangular matrix to
|
|
|
|
|
+a reduced row echelon form.
|
|
|
|
|
+" "0340AB" :CASHELP :Usr) "~xrref" ("[[]] \\-> [pp] [[]]'
|
|
|
|
|
+" "" "047314" :CASHELP :Usr) "~xRREFMOD" ("[[]] \\-> [[]]'
|
|
|
|
|
+" "" "078314" :CASHELP :Usr) "~xRRK" ("{} xtol xTfinal \\-> {} xtol
|
|
|
|
|
+" "Solve for Initial Values
|
|
|
|
|
+(Rosenbrock, Runge-Kutta) Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the solution to an initial
|
|
|
|
|
+value problem for a differential
|
|
|
|
|
+equation with known partial derivatives.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKF,RKFERR,RKFSTEP,RRKSTEP,RSBERR
|
|
|
|
|
+" "0230AB" :Usr) "~xRRKSTEP" ("{} xtol h last \\-> {} xtol h' cur
|
|
|
|
|
+" "Next Solution Step and Method
|
|
|
|
|
+(RKF or RRK) Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the next solution step
|
|
|
|
|
+(hnext) to an initial value problem
|
|
|
|
|
+for a differential equation,
|
|
|
|
|
+and displays the method used to
|
|
|
|
|
+arrive at that result.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKF,RKFERR,RKFSTEP,RRK,RSBERR
|
|
|
|
|
+" "0240AB" :Usr) "~xRSBERR" ("{} h \\-> {} h dy err
|
|
|
|
|
+" "Error Estimate for Rosenbrock
|
|
|
|
|
+Method Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns an error estimate for a
|
|
|
|
|
+given step h when solving an
|
|
|
|
|
+initial value problem for a
|
|
|
|
|
+differential equation.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RKF,RKFERR,RKFSTEP,RRK,RRKSTEP
|
|
|
|
|
+" "0250AB" :Usr) "xRSD" ("[B] [[A]] [Z] \\-> []'
|
|
|
|
|
+[[B]] [[A]] [[Z]] \\-> [[]]'
|
|
|
|
|
+" "Residual Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Computes the residual B - AZ of
|
|
|
|
|
+the arrays B, A, and Z.
|
|
|
|
|
+" "3B22F" :Usr) "~xRSWP" ("[]/[[]] i j \\-> []/[[]]
|
|
|
|
|
+" "Row Swap Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Swaps rows i and j of a matrix
|
|
|
|
|
+and returns the modified matrix,
|
|
|
|
|
+or swaps elements i and j of a
|
|
|
|
|
+vector and returns the modified
|
|
|
|
|
+vector.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CSWP,ROW+,ROW-
|
|
|
|
|
+" "0400AB" :Usr) "xRULES" ("
|
|
|
|
|
+" "" "3E632" :Usr) "xR\\->B" ("x \\-> #
|
|
|
|
|
+" "Real to Binary Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts a positive real integer
|
|
|
|
|
+to its binary integer equivalent.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: B\\->R
|
|
|
|
|
+" "38F01" :Usr) "xR>B" ("x \\-> #
|
|
|
|
|
+" "Real to Binary Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts a positive real integer
|
|
|
|
|
+to its binary integer equivalent.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: B\\->R
|
|
|
|
|
+" "38F01" :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
|
|
|
|
|
+" "3B7ED" :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
|
|
|
|
|
+" "3B7ED" :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
|
|
|
|
|
+" "3B0AE" :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
|
|
|
|
|
+" "3B0AE" :Usr) "xR\\->I" ("x \\-> n
|
|
|
|
|
+" "" "3F070" :CASHELP :Usr) "xR>I" ("x \\-> n
|
|
|
|
|
+" "" "3F070" :CASHELP :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,==
|
|
|
|
|
+" "3C9E5" :Usr) "xSBRK" ("\\->
|
|
|
|
|
+" "Serial Break Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Interrupts serial transmission or
|
|
|
|
|
+reception.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BUFLEN,SRECV,STIME,XMIT
|
|
|
|
|
+" "3EE82" :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.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,CENTR,SCALEH,SCALEW
|
|
|
|
|
+" "3C4D5" :Usr) "xSCALEH" ("xf \\->
|
|
|
|
|
+" "Multiply Height Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies the vertical plot
|
|
|
|
|
+scale by xfactor.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCALEW,YRING
|
|
|
|
|
+" "3C444" :Usr) "x*H" ("xf \\->
|
|
|
|
|
+" "Multiply Height Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies the vertical plot
|
|
|
|
|
+scale by xfactor.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCALEW,YRING
|
|
|
|
|
+" "3C444" :Usr) "xSCALEW" ("yf \\->
|
|
|
|
|
+" "Multiply Width Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies a plot's horizontal
|
|
|
|
|
+scale by xfactor.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCALEH,YRING
|
|
|
|
|
+" "3C464" :Usr) "x*W" ("yf \\->
|
|
|
|
|
+" "Multiply Width Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Multiplies a plot's horizontal
|
|
|
|
|
+scale by xfactor.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCALEH,YRING
|
|
|
|
|
+" "3C464" :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
|
|
|
|
|
+" "3E1EF" :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
|
|
|
|
|
+" "3C9AF" :Usr) "~xSCHUR" ("[[]] \\-> [[Q]] [[T]]
|
|
|
|
|
+" "Schur Decomp. of Squ. Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the Schur decomposition
|
|
|
|
|
+of a square matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: LQ,LU,QR,SVD,SVL,TRN
|
|
|
|
|
+" "0330AB" :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
|
|
|
|
|
+" "3B5BA" :Usr) "xSCL\\GS" ("\\->
|
|
|
|
|
+" "Scale Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adjusts (xmin,ymin) and (xmax,
|
|
|
|
|
+ymax) in PPAR so that a subsequent
|
|
|
|
|
+scatter plot exactly fills
|
|
|
|
|
+PICT.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCATRPLOT
|
|
|
|
|
+" "3E127" :Usr) "xSCLSIGMA" ("\\->
|
|
|
|
|
+" "Scale Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adjusts (xmin,ymin) and (xmax,
|
|
|
|
|
+ymax) in PPAR so that a subsequent
|
|
|
|
|
+scatter plot exactly fills
|
|
|
|
|
+PICT.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|PPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,SCATRPLOT
|
|
|
|
|
+" "3E127" :Usr) "xSCONJ" ("name \\->
|
|
|
|
|
+" "Store Conjugate Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Conjugates the contents of a
|
|
|
|
|
+named object.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONJ,SINV,SNEG
|
|
|
|
|
+" "3E385" :Usr) "~xSCROLL" ("ob \\->
|
|
|
|
|
+" "" "07D314" :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
|
|
|
|
|
+" "3DF32" :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
|
|
|
|
|
+" "3ECB0" :Usr) "~xSEQ" ("prog var start end incr \\-> {}
|
|
|
|
|
+" "Sequential Calculation Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a list of results generated
|
|
|
|
|
+ated by repeatedly executing prog
|
|
|
|
|
+using index var over the range
|
|
|
|
|
+start to end, in increments of
|
|
|
|
|
+incr.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOSUBS,STREAM
|
|
|
|
|
+" "0530AB" :Usr) "~xSERIES" ("func var order \\-> {} symb'
|
|
|
|
|
+" "" "007314" :CASHELP :Usr) "xSERVER" ("\\->
|
|
|
|
|
+" "Server Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Selects Kermit Server mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,CKSM,FINISH,KERRM, KGET,PARITY,PKT,RECN,RECV, SEND,TRANSIO
|
|
|
|
|
+" "3ED91" :Usr) "~xSEVAL" ("symb \\-> symb'
|
|
|
|
|
+" "" "064314" :CASHELP :Usr) "xSF" ("n \\->
|
|
|
|
|
+" "Set Flag Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets a specified user or system
|
|
|
|
|
+flag.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CF,FC?,FC?C,FS?,FS?C
|
|
|
|
|
+" "3B4C9" :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
|
|
|
|
|
+" "3E696" :Usr) "~xSIDENS" ("x \\-> x'
|
|
|
|
|
+" "Silicon Intrinsic Density Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the intrinsic density
|
|
|
|
|
+of silicon as a function of
|
|
|
|
|
+temperature, xT.
|
|
|
|
|
+ --
|
|
|
|
|
+ xT \\-> xdensity
|
|
|
|
|
+ x_u \\-> x_1/cm3
|
|
|
|
|
+ 'sym' \\-> 'SIDENS(symb)'
|
|
|
|
|
+" "0630AB" :Usr) "~xSIGMA" ("f var \\-> F
|
|
|
|
|
+" "" "0020DE" :CASHELP :Usr) "~xSIGMAVX" ("f(x) \\-> F(x)
|
|
|
|
|
+" "" "0010DE" :CASHELP :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
|
|
|
|
|
+" "3A3EE" :Usr) "~xSIGNTAB" ("symb \\-> {}
|
|
|
|
|
+" "" "05F314" :CASHELP :Usr) "~xSIMP2" ("x y \\-> x/gcd y/gcd
|
|
|
|
|
+" "" "033314" :CASHELP :Usr) "~xSIMPLIFY" ("symb \\-> symb'
|
|
|
|
|
+" "" "0220DE" :Usr) "~xSINCOS" ("symb \\-> symb'
|
|
|
|
|
+" "" "018314" :CASHELP :Usr) "xSIN" ("x \\-> x'
|
|
|
|
|
+" "Sine Analytic Func
|
|
|
|
|
+ --
|
|
|
|
|
+ z \\-> sin z
|
|
|
|
|
+ 'sym' \\-> 'SIN(sym)'
|
|
|
|
|
+ x_uangular \\-> sin(x_uangular)
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ASIN,COS,TAN
|
|
|
|
|
+" "3A57C" :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
|
|
|
|
|
+" "3A678" :Usr) "xSINV" ("name \\->
|
|
|
|
|
+" "Store Inverse Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Replaces the contents of the
|
|
|
|
|
+named variable with its inverse.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: INV,SCONJ,SNEG
|
|
|
|
|
+" "3E331" :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
|
|
|
|
|
+" "3BB1F" :Usr) "xSL" ("# \\-> #'
|
|
|
|
|
+" "Shift Left Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Shifts a binary integer one bit
|
|
|
|
|
+to the left.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ASR,SLB,SR,SRB
|
|
|
|
|
+" "38E81" :Usr) "xSLB" ("# \\-> #'
|
|
|
|
|
+" "Shift Left Byte Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Shifts a binary integer one byte
|
|
|
|
|
+to the left.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ASR,SL,SR,SRB
|
|
|
|
|
+" "38EA1" :Usr) "~xSLOPEFIELD" ("\\->
|
|
|
|
|
+" "SLOPEFIELD Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to SLOPEFIELD.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAX,HISTOGRAM,PARAMETRIC, PARSURFACE,PCONTOUR,POLAR,SCATTER, TRUTH,WIREFRAME,YSLICE
|
|
|
|
|
+" "00C0AB" :Usr) "xSNEG" ("name \\->
|
|
|
|
|
+" "Store Negate Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Replaces the contents of a variable
|
|
|
|
|
+with its negative.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: NEG,SCONJ,SINV
|
|
|
|
|
+" "3E35B" :Usr) "~xSNRM" ("[] \\-> x
|
|
|
|
|
+" "Spectral Norm Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the spectral norm of an
|
|
|
|
|
+array.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ABS,CNRM,COND,RNRM,SRAD,TRACE
|
|
|
|
|
+" "0290AB" :Usr) "~xSOLVE" ("symb var \\-> {zeros}
|
|
|
|
|
+" "" "03F314" :CASHELP :Usr) "~xSOLVER" ("\\->
|
|
|
|
|
+" "Displays a menu of commands used in solving
|
|
|
|
|
+equations.
|
|
|
|
|
+" "086314" :Usr) "~xSOLVEVX" ("symb \\-> {zeros}
|
|
|
|
|
+" "" "008314" :CASHELP :Usr) "~xSORT" ("{} \\-> {}'
|
|
|
|
|
+" "Ascending Order Sort Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sorts the elements in a list in
|
|
|
|
|
+ascending order.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: REVLIST
|
|
|
|
|
+" "05E0AB" :Usr) "~xSPHERE" ("\\->
|
|
|
|
|
+" "Spherical Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets Spherical coordinate mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CYLIN,RECT
|
|
|
|
|
+" "0130AB" :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/,^
|
|
|
|
|
+" "3A4EF" :Usr) "xSR" ("# \\-> #'
|
|
|
|
|
+" "Shift Right Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Shifts a binary integer one bit
|
|
|
|
|
+to the right.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ASR,SL,SLB,SRB
|
|
|
|
|
+" "38EC1" :Usr) "~xSRAD" ("[[]] \\-> x
|
|
|
|
|
+" "Spectral Radius Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the spectral radius of a
|
|
|
|
|
+square matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: COND,SNRM,TRACE
|
|
|
|
|
+" "0280AB" :Usr) "xSRB" ("# \\-> #'
|
|
|
|
|
+" "Shift Right Byte Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Shifts a binary integer one byte
|
|
|
|
|
+to the right.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ASR,SL,SLB,SR
|
|
|
|
|
+" "38EE1" :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
|
|
|
|
|
+" "3EC55" :Usr) "~xSREPL" ("str find repl \\-> str' n
|
|
|
|
|
+" "Globally replace find with repl in str. n is
|
|
|
|
|
+the number of matches. Efficient ML
|
|
|
|
|
+implementation.
|
|
|
|
|
+" "0100DD" :Usr) "xSTART" ("start finish \\->
|
|
|
|
|
+" "START Definite Loop Structure Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+ START xstart xfinish \\->
|
|
|
|
|
+ NEXT xstart xfinish \\->
|
|
|
|
|
+ STEP xincrement \\->
|
|
|
|
|
+ STEP 'symbincrement' \\->
|
|
|
|
|
+ --
|
|
|
|
|
+Related: FOR,NEXT,STEP
|
|
|
|
|
+" "381AB" :Usr) "xSTD" ("\\->
|
|
|
|
|
+" "Standard Mode Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the number display format
|
|
|
|
|
+to Standard mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ENG,FIX,SCI
|
|
|
|
|
+" "3B5FA" :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
|
|
|
|
|
+" "3851F" :Usr) "xSTEQ" ("ob \\->
|
|
|
|
|
+" "Store in EQ Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Stores an object into the reserved
|
|
|
|
|
+variable EQ in the current
|
|
|
|
|
+directory.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|EQ
|
|
|
|
|
+ --
|
|
|
|
|
+Related: RCEQ
|
|
|
|
|
+" "3D3AE" :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
|
|
|
|
|
+" "3EE62" :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,\\->
|
|
|
|
|
+" "3E739" :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/,-
|
|
|
|
|
+" "3E406" :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/,*
|
|
|
|
|
+" "3E4D2" :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*,/
|
|
|
|
|
+" "3E46C" :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/,+
|
|
|
|
|
+" "3E3AF" :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
|
|
|
|
|
+" "39164" :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
|
|
|
|
|
+" "3B749" :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
|
|
|
|
|
+" "3EF07" :Usr) "xSTO\\GS" ("ob \\->
|
|
|
|
|
+" "Store Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Stores obj in the reserved
|
|
|
|
|
+variable \\GSDAT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DD6E" :Usr) "xSTOSIGMA" ("ob \\->
|
|
|
|
|
+" "Store Sigma Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Stores obj in the reserved
|
|
|
|
|
+variable \\GSDAT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,\\GS+,\\GS-
|
|
|
|
|
+" "3DD6E" :Usr) "~xSTOVX" ("name \\->
|
|
|
|
|
+" "Store object into the reserved CAS variable
|
|
|
|
|
+VX.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VX
|
|
|
|
|
+" "0400DE" :Usr :1\.19-6) "xSTO>" ("ob id \\->
|
|
|
|
|
+ob symb \\->
|
|
|
|
|
+" "Like <REF>xSTO, but if the level 1 argument
|
|
|
|
|
+is symbolic, use the first element of it as
|
|
|
|
|
+the variable to write to.
|
|
|
|
|
+" "3E823") "~xSTORE" ("
|
|
|
|
|
+" "" "0240DE" :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
|
|
|
|
|
+" "3BBD9" :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
|
|
|
|
|
+" "3BBD9" :Usr) "x\\->STR" ("ob \\-> $
|
|
|
|
|
+" "Object to String Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts any object to string
|
|
|
|
|
+form.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->ARRY,\\->LIST,STR\\->, \\->TAG,\\->UNIT
|
|
|
|
|
+" "3BBBE" :Usr) "x>STR" ("ob \\-> $
|
|
|
|
|
+" "Object to String Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts any object to string
|
|
|
|
|
+form.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: \\->ARRY,\\->LIST,STR\\->, \\->TAG,\\->UNIT
|
|
|
|
|
+" "3BBBE" :Usr) "~xSTREAM" ("{} prog \\-> x
|
|
|
|
|
+" "Stream Execution Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Moves the first two elements from
|
|
|
|
|
+the list onto the stack, and
|
|
|
|
|
+executes prog. The moves the next
|
|
|
|
|
+element (if any) onto the stack,
|
|
|
|
|
+and executes obj again using the
|
|
|
|
|
+previous result and the new element.
|
|
|
|
|
+Repeats this until the list
|
|
|
|
|
+is exhausted, and returns the
|
|
|
|
|
+final result.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DOSUBS
|
|
|
|
|
+" "0580AB" :Usr) "~xSTURMAB" ("
|
|
|
|
|
+" "" "0170DE" :Usr) "~xSTURM" ("
|
|
|
|
|
+" "" "0160DE" :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
|
|
|
|
|
+" "3B6C1" :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
|
|
|
|
|
+" "3B8D7" :Usr) "~xSUBST" ("symb var=s1 \\-> symb'
|
|
|
|
|
+" "" "002314" :CASHELP :Usr) "~xSUBTMOD" ("x1 x2 \\-> x3
|
|
|
|
|
+" "" "06F314" :CASHELP :Usr) "~xSVD" ("[[]] \\-> [[U]] [[V]] [S]
|
|
|
|
|
+" "Singular Value Decomposition Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the sigular value
|
|
|
|
|
+decomposition of an m\327n matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DIAG\\->,MIN,SVL
|
|
|
|
|
+" "02E0AB" :Usr) "~xSVL" ("[[]] \\-> []
|
|
|
|
|
+" "Singular Values Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the singular values of an
|
|
|
|
|
+m\327n matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MIN,SVD
|
|
|
|
|
+" "02F0AB" :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
|
|
|
|
|
+" "3DC20" :Usr) "~xSYLVESTER" ("[[]] \\-> [D] [P]
|
|
|
|
|
+" "" "04E314" :CASHELP :Usr) "xSYSEVAL" ("# \\-> ?
|
|
|
|
|
+" "Evaluate System Object Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Evaluates unnamed operating system
|
|
|
|
|
+objects specified by their
|
|
|
|
|
+memory addresses.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EVAL,LIBEVAL,FLASHEVAL
|
|
|
|
|
+" "39705" :Usr) "~xSYST2MAT" ("
|
|
|
|
|
+" "" "00A0DE" :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
|
|
|
|
|
+" "3B2DC" :Usr) "~xTABVAL" ("symb(x) {vals} \\-> symb(x) {{vals} {res}}
|
|
|
|
|
+" "" "061314" :CASHELP :Usr) "~xTABVAR" ("symb(x) \\-> symb(x) {{}{}} grob
|
|
|
|
|
+" "" "060314" :CASHELP :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
|
|
|
|
|
+" "3EFB1" :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
|
|
|
|
|
+" "3EFB1" :Usr) "~xTAIL" ("{} \\-> {}'
|
|
|
|
|
+$ \\-> $'
|
|
|
|
|
+" "Last Listed Elements Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns all but the first element
|
|
|
|
|
+of a list or string.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: HEAD
|
|
|
|
|
+" "0520AB" :Usr) "~xTAN2CS2" ("symb \\-> symb'
|
|
|
|
|
+" "" "01C0DE" :CASHELP :Usr) "~xTAN2SC2" ("symb \\-> symb'
|
|
|
|
|
+" "" "021314" :CASHELP :Usr) "~xTAN2SC" ("symb \\-> symb'
|
|
|
|
|
+" "" "01F314" :CASHELP :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
|
|
|
|
|
+" "3A624" :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
|
|
|
|
|
+" "3A70C" :Usr) "~xTAYLOR0" ("symb \\-> symb'
|
|
|
|
|
+" "" "006314" :CASHELP :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
|
|
|
|
|
+" "3E6CA" :Usr) "~xTCHEBYCHEFF" ("n \\-> pol
|
|
|
|
|
+" "" "05B314" :CASHELP :Usr) "~xTCOLLECT" ("symb \\-> symb'
|
|
|
|
|
+" "" "01A314" :CASHELP :Usr) "~xTDELTA" ("x y \\-> x'
|
|
|
|
|
+" "Temperature Delta Func
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates a temperature change.
|
|
|
|
|
+ --
|
|
|
|
|
+ x y \\-> x\222
|
|
|
|
|
+ x_u1 y_u2 \\-> x_u1\222
|
|
|
|
|
+ x_u 'sym' \\-> 'TDELTA(x_u,sym)'
|
|
|
|
|
+ 'sym' y_u \\-> 'TDELTA(sym,y_u)'
|
|
|
|
|
+ 'sym1' 'sym2' \\-> 'TDELTA(sym1,sym2)'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TINC
|
|
|
|
|
+" "0640AB" :Usr) "~xTESTS" ("
|
|
|
|
|
+" "" "02E0DE" :Usr) "~xTEVAL" ("ob \\-> ? time
|
|
|
|
|
+" "Execute ob and return how long it took.
|
|
|
|
|
+" "065314" :Usr) "~xTEXPAND" ("symb \\-> symb'
|
|
|
|
|
+" "" "013314" :CASHELP :Usr) "xTEXT" ("\\->
|
|
|
|
|
+" "Show Stack Display Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Displays the stack display.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: PICTURE,PVIEW
|
|
|
|
|
+" "3C8FA" :Usr) "xTHEN" ("0/1 \\->
|
|
|
|
|
+" "THEN Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts the true-clause in conditional
|
|
|
|
|
+or error-trapping structure
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CASE,ELSE,END,IFERR
|
|
|
|
|
+" "37F7F" :Usr) "xTHEN" ("
|
|
|
|
|
+" "THEN in a CASE statement.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CASE,ELSE,END,IFERR
|
|
|
|
|
+" "38B43" :Usr) "xTHENCASE" ("
|
|
|
|
|
+" "THEN in a CASE statement.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CASE,ELSE,END,IFERR
|
|
|
|
|
+" "38B43" :Usr) "xTHEN" ("
|
|
|
|
|
+" "THEN in an ON ERROR construct.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CASE,ELSE,END,IFERR
|
|
|
|
|
+" "38ABA" :Usr) "xERRTHEN" ("
|
|
|
|
|
+" "THEN in an ON ERROR construct.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CASE,ELSE,END,IFERR
|
|
|
|
|
+" "38ABA" :Usr) "xTICKS" ("\\-> #
|
|
|
|
|
+" "Ticks Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the system time as a binary
|
|
|
|
|
+integer, in units of 1/8192
|
|
|
|
|
+second.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TIME
|
|
|
|
|
+" "39093" :Usr) "xTIME" ("\\-> time
|
|
|
|
|
+" "Time Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the system time in the
|
|
|
|
|
+form HH.MMSSs.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DATE,TICKS,TSTR
|
|
|
|
|
+" "3905D" :Usr) "x\\->TIME" ("time \\->
|
|
|
|
|
+" "Set System Time Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the system time.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLKADJ,\\->DATE
|
|
|
|
|
+" "39124" :Usr) "xSETTIME" ("time \\->
|
|
|
|
|
+" "Set System Time Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the system time.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CLKADJ,\\->DATE
|
|
|
|
|
+" "39124" :Usr) "~xTINC" ("x y \\-> x'
|
|
|
|
|
+" "Temperature Increment Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates a temperature increment.
|
|
|
|
|
+ --
|
|
|
|
|
+ xinit y\222 \\-> xfinal
|
|
|
|
|
+ x_u1 y_u2 \\-> x_u1final
|
|
|
|
|
+ x_u 'sym' \\-> 'TINC(x_u,sym)'
|
|
|
|
|
+ 'sym' y_u\222 \\-> 'TINC(sym,y_u\222)'
|
|
|
|
|
+ 'sym1' 'sym2' \\-> 'TINC(sym1,sym2)'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TDELTA
|
|
|
|
|
+" "0650AB" :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
|
|
|
|
|
+" "3C6B6" :Usr) "~xTLIN" ("symb \\-> symb'
|
|
|
|
|
+" "" "019314" :CASHELP :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
|
|
|
|
|
+" "3E97B" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: MAX\\GS,MIN\\GS,MEANMPSDEV, PVAR,SDEV,VAR
|
|
|
|
|
+" "3DF4D" :Usr) "~xTRACE" ("[[]] \\-> x
|
|
|
|
|
+" "Matrix Trace Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the trace of a square
|
|
|
|
|
+matrix.
|
|
|
|
|
+" "0270AB" :Usr) "~xTRAN" ("[[]] \\-> [[]]'
|
|
|
|
|
+name \\->
|
|
|
|
|
+" " --
|
|
|
|
|
+Related: CONJ,TRN
|
|
|
|
|
+" "045314" :CASHELP :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
|
|
|
|
|
+" "3EE0C" :Usr) "~xTRIG" ("symb \\-> symb'
|
|
|
|
|
+" "" "01B314" :CASHELP :Usr) "~xTRIGCOS" ("symb \\-> symb'
|
|
|
|
|
+" "" "01C314" :CASHELP :Usr) "~xTRIGO" ("\\->
|
|
|
|
|
+" "" "082314" :Usr) "~xTRIGSIN" ("symb \\-> symb'
|
|
|
|
|
+" "" "01D314" :CASHELP :Usr) "~xTRIGTAN" ("symb \\-> symb'
|
|
|
|
|
+" "" "01E314" :CASHELP :Usr) "xTRN" ("[[]] \\-> [[]]'
|
|
|
|
|
+name \\->
|
|
|
|
|
+" "Transpose Matrix Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns the (conjugate) transpose
|
|
|
|
|
+of a matrix.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CONJ
|
|
|
|
|
+" "3C084" :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
|
|
|
|
|
+" "3AF3E" :Usr) "~xTRUNC" ("symb1 symb2 \\-> symb3
|
|
|
|
|
+" "" "063314" :CASHELP :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
|
|
|
|
|
+" "3C99D" :Usr) "~xTSIMP" ("symb \\-> symb'
|
|
|
|
|
+" "" "015314" :CASHELP :Usr) "xTSTR" ("date time \\-> $
|
|
|
|
|
+" "Date and Time String Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a string derived from the
|
|
|
|
|
+date and time.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DATE,TICKS,TIME
|
|
|
|
|
+" "391F8" :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
|
|
|
|
|
+" "39456" :Usr) "~xTVM" ("\\->
|
|
|
|
|
+" "TVM Menu Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Displays the TVM Solver menu.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AMORT
|
|
|
|
|
+" "0470AB" :Usr) "~xTVMBEG" ("\\->
|
|
|
|
|
+" "Payment at Start of Period Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies that TVM calculations
|
|
|
|
|
+treat payments as being made at
|
|
|
|
|
+the beginnign of the compounding
|
|
|
|
|
+periods.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AMORT,TVM,TVMEND,TVMROOT
|
|
|
|
|
+" "0480AB" :Usr) "~xTVMEND" ("\\->
|
|
|
|
|
+" "Payment at End of Period Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies that TVM calculations
|
|
|
|
|
+treat payments as being made at
|
|
|
|
|
+the end of the compounding
|
|
|
|
|
+periods.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AMORT,TVM,TVMBEG,TVMROOT
|
|
|
|
|
+" "0490AB" :Usr) "~xTVMROOT" ("var \\-> x
|
|
|
|
|
+" "TVM Root Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Solves for the specified TVM variable
|
|
|
|
|
+using values from the re-
|
|
|
|
|
+maining TVM variables.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AMORT,TVM,TVMBEG,TVMEND
|
|
|
|
|
+" "04A0AB" :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
|
|
|
|
|
+" "3BC39" :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
|
|
|
|
|
+" "38FD7" :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
|
|
|
|
|
+" "3900B" :Usr) "~xUFL1\\->MINIF" ("ob n \\-> font
|
|
|
|
|
+" "" "0140DD" :Usr) "~xUNASSIGN" ("
|
|
|
|
|
+" "" "0310DE" :Usr) "~xUNASSUME" ("
|
|
|
|
|
+" "" "0270DE" :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
|
|
|
|
|
+" "38FB5" :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
|
|
|
|
|
+" "38FB5" :Usr) "xUNPICK" ("obn...ob1 ob n \\-> ob...ob2
|
|
|
|
|
+" "Replaces the object at level n+2 with the
|
|
|
|
|
+object at level 2 and deletes the objects at
|
|
|
|
|
+level 1 and level 2.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: OVER,PICK,ROLL,ROLLD,SWAP,ROT
|
|
|
|
|
+" "3F249" :Usr) "xUNROT" ("1 2 3 \\-> 3 1 2
|
|
|
|
|
+" "Changes the order of the first three objects
|
|
|
|
|
+on the stack, in the opposite way compared to
|
|
|
|
|
+ROT.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: OVER,PICK,ROLL,ROLLD,SWAP,ROT
|
|
|
|
|
+" "3F22E" :Usr) "xUNTIL" ("\\->
|
|
|
|
|
+" "UNTIL Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts test-clause in
|
|
|
|
|
+ DO ... UNTIL ... END
|
|
|
|
|
+indefinite loop structure.
|
|
|
|
|
+ --
|
|
|
|
|
+See the DO entry for syntax info.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DO,END
|
|
|
|
|
+" "38195" :Usr) "xUPDIR" ("\\->
|
|
|
|
|
+" "Up Directory Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Makes the parent of the current
|
|
|
|
|
+directory the new current directory.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CRDIR,HOME,PATH,PGDIR
|
|
|
|
|
+" "39420" :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
|
|
|
|
|
+" "3E07D" :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
|
|
|
|
|
+" "3E0BD" :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
|
|
|
|
|
+" "3E09D" :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
|
|
|
|
|
+" "3E0DD" :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
|
|
|
|
|
+" "38F81" :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
|
|
|
|
|
+" "3C2AC" :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
|
|
|
|
|
+" "3C2AC" :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
|
|
|
|
|
+" "3C2D6" :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
|
|
|
|
|
+" "3C2D6" :Usr) "x\\->V3" ("x y z \\-> []
|
|
|
|
|
+" "Stack to 3-Element Vector Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts three numbers into a
|
|
|
|
|
+3-element vector.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: V\\->,\\->V2
|
|
|
|
|
+" "3C30A" :Usr) "x>V3" ("x y z \\-> []
|
|
|
|
|
+" "Stack to 3-Element Vector Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Converts three numbers into a
|
|
|
|
|
+3-element vector.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: V\\->,\\->V2
|
|
|
|
|
+" "3C30A" :Usr) "~xVANDERMONDE" ("{} \\-> [[]]
|
|
|
|
|
+" "" "053314" :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
|
|
|
|
|
+" "3DF68" :Usr) "xVARS" ("\\-> {}
|
|
|
|
|
+" "Variables Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns a list of all variables'
|
|
|
|
|
+names in the VAR menu (the current
|
|
|
|
|
+directory).
|
|
|
|
|
+ --
|
|
|
|
|
+Related: ORDER,PVARS,TVARS
|
|
|
|
|
+" "3943B" :Usr) "~xVER" ("\\-> $
|
|
|
|
|
+" "" "08C314" :CASHELP :Usr) "~xVERSION" ("\\-> $ $
|
|
|
|
|
+" "Software Version Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Displays the software version and
|
|
|
|
|
+copyright message.
|
|
|
|
|
+" "00F0AB" :Usr) "~xVISIT" ("name \\->
|
|
|
|
|
+" "For a specified variable, opens the content
|
|
|
|
|
+in the command-line editor.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: VISITB,EDIT,EDITB
|
|
|
|
|
+" "0080DD" :Usr) "~xVISITB" ("name \\->
|
|
|
|
|
+" "For a specified variable, opens the contents
|
|
|
|
|
+in the most suitable editor for the object
|
|
|
|
|
+type. For example, if the variable holds an
|
|
|
|
|
+equation, the equation writer is used.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: VISIT,EDIT,EDITB
|
|
|
|
|
+" "00A0DD" :Usr) "~xVPOTENTIAL" ("
|
|
|
|
|
+" "" "0390DE" :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
|
|
|
|
|
+" "3BDB2" :Usr) "xWAIT" ("sec \\->
|
|
|
|
|
+0 \\-> rc.p
|
|
|
|
|
+" "Wait Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Suspends program execution for
|
|
|
|
|
+specified time, or until a key is
|
|
|
|
|
+pressed.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: KEY
|
|
|
|
|
+" "39819" :Usr) "xWHILE" ("\\->
|
|
|
|
|
+" "WHILE Indefinite Loop Struct Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Starts the
|
|
|
|
|
+ WHILE ... REPEAT ... END
|
|
|
|
|
+indefinite loop structure.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DO,END,REPEAT
|
|
|
|
|
+" "380DB" :Usr) "~xWIREFRAME" ("\\->
|
|
|
|
|
+" "WIREFRAME Plot Type Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to WIREFRAME.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD,TRUTH,YSLICE
|
|
|
|
|
+" "0080AB" :Usr) "xWSLOG" ("\\-> $ $ $ $
|
|
|
|
|
+" "Warmstart Log Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Returns four strings recording
|
|
|
|
|
+the date, time, and cause of the
|
|
|
|
|
+four most recent warmstart events
|
|
|
|
|
+" "390AE" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DE90" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DE90" :Usr) "xXCOL" ("n \\->
|
|
|
|
|
+" "Independent Column Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the independent
|
|
|
|
|
+variable column of the current
|
|
|
|
|
+stat matrix (reserved variable
|
|
|
|
|
+\\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+" "3E03D" :Usr) "~xXGET" ("name \\->
|
|
|
|
|
+" "Xmodem get command: Retrieves a specified
|
|
|
|
|
+filename via XMODEM. The other calculator
|
|
|
|
|
+needs to be in server mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,RECN,RECV,SEND,XRECV,XSERV,XPUT
|
|
|
|
|
+" "0700AB" :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
|
|
|
|
|
+" "3EC35" :Usr) "~xXNUM" ("x \\-> x'
|
|
|
|
|
+" "" "067314" :CASHELP :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
|
|
|
|
|
+" "3CB7A" :Usr) "~xXPUT" ("name \\->
|
|
|
|
|
+" "Xmodem command: Sends a specified filename
|
|
|
|
|
+via XMODEM to a claculator. The receiving
|
|
|
|
|
+calculator needs to be in server mode.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,RECN,RECV,SEND,XRECV,XSERV,XGET
|
|
|
|
|
+" "0710AB" :Usr) "~xXQ" ("x \\-> x'
|
|
|
|
|
+" "" "068314" :CASHELP :Usr) "~xXRECV" ("name \\->
|
|
|
|
|
+" "XModem Receive Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Prepares the HP 48 to receive an
|
|
|
|
|
+object via XModem. The received
|
|
|
|
|
+object is stored in the given
|
|
|
|
|
+name.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,RECV,RECN,SEND,XSEND
|
|
|
|
|
+" "0500AB" :Usr) "xXRNG" ("x1 x2 \\->
|
|
|
|
|
+" "x-Axis Display Range Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the x-axis display
|
|
|
|
|
+range.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,PDIM,PMAX,PMIN,YRNG
|
|
|
|
|
+" "3C915" :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)'
|
|
|
|
|
+" "3A278" :Usr) "~xXSEND" ("name \\->
|
|
|
|
|
+" "XModem Send Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sends a copy of the named object
|
|
|
|
|
+via XModem.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,RECN,RECV,SEND,XRECV
|
|
|
|
|
+" "04F0AB" :Usr) "~xXSERV" ("\\->
|
|
|
|
|
+" "Xmodem server command: Puts the calculator
|
|
|
|
|
+in XMODEM server mode. When in server mode,
|
|
|
|
|
+the following commands are available:
|
|
|
|
|
+ P: Put a file in calc
|
|
|
|
|
+ G: Get a file from calc
|
|
|
|
|
+ E: Execute a cmd line
|
|
|
|
|
+ M: Get the calc memory
|
|
|
|
|
+ L: List files in current dir
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAUD,RECN,RECV,SEND,XRECV, XGET,XPUT
|
|
|
|
|
+" "06E0AB" :Usr) "~xXVOL" ("x1 x2 \\->
|
|
|
|
|
+" "X Volume Coordinates Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the width of the view volume
|
|
|
|
|
+in the reserved variable VPAR.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EYEPT,XXRNG,YVOL,YYRNG,ZVOL
|
|
|
|
|
+" "0000AB" :Usr) "~xXXRNG" ("x1 x2 \\->
|
|
|
|
|
+" "X Range of an Input Plane Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the x range of an input
|
|
|
|
|
+plane (domain) for GRIDMAP and
|
|
|
|
|
+PARSURFACE plots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EYEPT,NUMX,NUMY,XVOL,YVOL, YYRNG,ZVOL
|
|
|
|
|
+" "0030AB" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DEC6" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSX2,\\GSY,\\GSY2
|
|
|
|
|
+" "3DEC6" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY2
|
|
|
|
|
+" "3DE75" :Usr) "xSUMY" ("\\-> xsum
|
|
|
|
|
+" "Sum of y-Values Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sums the values in the dependent
|
|
|
|
|
+variable column of the current
|
|
|
|
|
+stat matrix (reserved var \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY2
|
|
|
|
|
+" "3DE75" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY
|
|
|
|
|
+" "3DEAB" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: N\\GS,XCOL,\\GSX,\\GSXY,\\GSX2,\\GSY
|
|
|
|
|
+" "3DEAB" :Usr) "xYCOL" ("n \\->
|
|
|
|
|
+" "Dependent Column Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the dependent-variable
|
|
|
|
|
+column of the current stat matrix
|
|
|
|
|
+(reserved variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BARPLOT,BESTFIT,COL\\GS,CORR, COV,EXPFIT,HISTPLOT,LINFIT,LOGFIT, LR,PREDX,PREFY,PWRFIT,SCATRPLOT,XCOL
|
|
|
|
|
+" "3E05D" :Usr) "xYRNG" ("y1 y2 \\->
|
|
|
|
|
+" "y-Axis Display Range Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the y-axis display
|
|
|
|
|
+range.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: AUTO,PDIM,PMAX,PMIN,XRNG
|
|
|
|
|
+" "3C935" :Usr) "~xYSLICE" ("\\->
|
|
|
|
|
+" "Y-Slice Plot Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the plot type to YSLICE.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: BAR,CONIC,DIFFEQ,FUNCTION, GRIDMAP,HISTOGRAM,PARAMETRIC,PARSURFACE, PCONTOUR,POLAR,SCATTER,SLOPEFIELD,TRUTH,WIREFRAME
|
|
|
|
|
+" "00B0AB" :Usr) "~xYVOL" ("y1 y2 \\->
|
|
|
|
|
+" "Y Volume Coordinates Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the depth of the view volume
|
|
|
|
|
+in the reserved variable VPAR.
|
|
|
|
|
+ ynear yfar \\->
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EYEPT,XVOL,XXRNG,YYRNG,ZVOL
|
|
|
|
|
+" "0010AB" :Usr) "~xYYRNG" ("y1 y2 \\->
|
|
|
|
|
+" "Y Range of an Input Plane Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Specifies the y range of an input
|
|
|
|
|
+plane (domain) for GRIDMAP and
|
|
|
|
|
+PARSURFACE p lots.
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EYEPT,XVOL,XXRNG,YYRNG,ZVOL
|
|
|
|
|
+" "0040AB" :Usr) "~xZEROS" ("symb var \\-> {zeros}
|
|
|
|
|
+" "" "040314" :CASHELP :Usr) "~xZFACTOR" ("xTr yPr \\-> xZf
|
|
|
|
|
+" "Gas Compressibility Z Factor Func
|
|
|
|
|
+ --
|
|
|
|
|
+Calculates the gas compressibility
|
|
|
|
|
+ity correction factor for non-ideal
|
|
|
|
|
+behavior of a hydro-carbon
|
|
|
|
|
+gas.
|
|
|
|
|
+" "05F0AB" :Usr) "~xZVOL" ("x1 x2 \\->
|
|
|
|
|
+" "Z Volume Coordinates Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Sets the height of the view volume
|
|
|
|
|
+in the reserved variable VPAR.
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|VPAR
|
|
|
|
|
+ --
|
|
|
|
|
+Related: EYEPT,XVOL,XXRNG,YVOL,YYRNG
|
|
|
|
|
+" "0020AB" :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
|
|
|
|
|
+" "3A097" :Usr) "x|" ("symb {var val ...} \\-> x'
|
|
|
|
|
+" "Where Func
|
|
|
|
|
+ --
|
|
|
|
|
+Substitutes values for names in
|
|
|
|
|
+an expression.
|
|
|
|
|
+ --
|
|
|
|
|
+2: 'symold'
|
|
|
|
|
+1: { name1 'sym1' name2
|
|
|
|
|
+ 'sym2' ... }
|
|
|
|
|
+\\|v
|
|
|
|
|
+
|
|
|
|
|
+1: 'symnew'
|
|
|
|
|
+ --
|
|
|
|
|
+2: x
|
|
|
|
|
+1: { name1 'sym1' name2
|
|
|
|
|
+ 'sym2' ... }
|
|
|
|
|
+\\|v
|
|
|
|
|
+
|
|
|
|
|
+1: x
|
|
|
|
|
+ --
|
|
|
|
|
+2: (x, y)
|
|
|
|
|
+1: { name1 'sym1' name2
|
|
|
|
|
+ 'sym2' ... }
|
|
|
|
|
+\\|v
|
|
|
|
|
+
|
|
|
|
|
+1: (x, y)
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -3
|
|
|
|
|
+ Numeric results -3
|
|
|
|
|
+ --
|
|
|
|
|
+Related: APPLY,QUOTE
|
|
|
|
|
+" "3D56B" :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
|
|
|
|
|
+" "3A442" :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
|
|
|
|
|
+" "3A442" :Usr) "x\\.S" ("x1 x2 symb var \\-> symb'
|
|
|
|
|
+" "Integral Func
|
|
|
|
|
+ --
|
|
|
|
|
+Integrates symb from
|
|
|
|
|
+lower limit x1 to upper limit x2
|
|
|
|
|
+respect to a variable var
|
|
|
|
|
+of integration.
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -3 -45 -46 -47 -48 -49 -50
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TAYLR,\\.d,\\GS
|
|
|
|
|
+" "3D434" :Usr) "x\\GS+" ("x \\->
|
|
|
|
|
+x1...xn \\->
|
|
|
|
|
+[]/[[]] \\->
|
|
|
|
|
+" "Sigma Plus Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adds one or more data points to
|
|
|
|
|
+the current stat matrix (reserved
|
|
|
|
|
+variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,STO\\GS,\\GS-
|
|
|
|
|
+" "3DDC4" :Usr) "xSIGMA+" ("x \\->
|
|
|
|
|
+x1...xn \\->
|
|
|
|
|
+[]/[[]] \\->
|
|
|
|
|
+" "Sigma Plus Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Adds one or more data points to
|
|
|
|
|
+the current stat matrix (reserved
|
|
|
|
|
+variable \\GSDAT).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,STO\\GS,\\GS-
|
|
|
|
|
+" "3DDC4" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,STO\\GS,\\GS+
|
|
|
|
|
+" "3DDEE" :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).
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Reserved|\\GSDAT
|
|
|
|
|
+ --
|
|
|
|
|
+Related: CL\\GS,RCL\\GS,STO\\GS,\\GS+
|
|
|
|
|
+" "3DDEE" :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
|
|
|
|
|
+" "39AC7" :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
|
|
|
|
|
+" "39AC7" :Usr) "x\\.d" ("symb var \\-> symb'
|
|
|
|
|
+" "Derivative Func
|
|
|
|
|
+ --
|
|
|
|
|
+Takes the derivative of an expression,
|
|
|
|
|
+number, or unit object with
|
|
|
|
|
+respect to a specified variable
|
|
|
|
|
+of differentiation.
|
|
|
|
|
+ --
|
|
|
|
|
+ 'sym1' 'name' \\-> 'sym2'
|
|
|
|
|
+ z 'name' \\-> 0
|
|
|
|
|
+ x_unit 'name' \\-> 0
|
|
|
|
|
+ --
|
|
|
|
|
+Flags: -3
|
|
|
|
|
+ --
|
|
|
|
|
+Related: TAYLR,\\.S,\\GS
|
|
|
|
|
+" "3D202" :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: <,>,\\>=,==,\\=/
|
|
|
|
|
+" "3CF80" :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: <,>,\\>=,==,\\=/
|
|
|
|
|
+" "3CF80" :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: <,\\<=,>,==,\\=/
|
|
|
|
|
+" "3D01F" :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: <,\\<=,>,==,\\=/
|
|
|
|
|
+" "3D01F" :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,<,\\<=,>,\\>=, ==
|
|
|
|
|
+" "3CD21" :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,<,\\<=,>,\\>=, ==
|
|
|
|
|
+" "3CD21" :Usr) "x\\->" ("ob1 .. obn \\->
|
|
|
|
|
+" "Create Local Variables Cmd
|
|
|
|
|
+ --
|
|
|
|
|
+Creates local variables.
|
|
|
|
|
+ obj1 ... objn \\->
|
|
|
|
|
+ --
|
|
|
|
|
+Syntax:
|
|
|
|
|
+ \\-> name1 name2 ... nameN \\<< prog \\>>
|
|
|
|
|
+ \\-> name1 name2 ... nameN 'Expr'
|
|
|
|
|
+ --
|
|
|
|
|
+Related: DEFINE,STO
|
|
|
|
|
+" "3885C" :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
|
|
|
|
|
+" "3885C" :Usr) "x\\->" ("
|
|
|
|
|
+" "Create local variable comand.
|
|
|
|
|
+<REF>xRPN->
|
|
|
|
|
+" "38093" :Usr) "xALG->" ("
|
|
|
|
|
+" "Create local variable comand.
|
|
|
|
|
+<REF>xRPN->
|
|
|
|
|
+" "38093" :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
|
|
|
|
|
+" "3ABAF" :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
|
|
|
|
|
+" "3ABAF" :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
|
|
|
|
|
+" "3B251" :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: +,-,/,=
|
|
|
|
|
+" "39DE8" :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. <REF>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: -,*,/,=
|
|
|
|
|
+" "39B58" :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: +,*,/,=
|
|
|
|
|
+" "39CFC" :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
|
|
|
|
|
+" "39F49" :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'
|
|
|
|
|
+ 'sym' x \\-> '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
|
|
|
|
|
+" "3CE42" :Usr) "x=" ("x y \\-> 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,-
|
|
|
|
|
+" "398B9" :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,<,\\<=,>,\\>=,\\=/
|
|
|
|
|
+" "3CBF6" :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: <,\\<=,\\>=,==,\\=/
|
|
|
|
|
+
|
|
|
|
|
+" "3CEE1" :Usr) "~x\\->H" ("ob \\-> $hex
|
|
|
|
|
+" "" "000100" :Lib) "~xH\\->" ("$hex \\-> ob
|
|
|
|
|
+" "" "001100" :Lib) "~x\\->A" ("ob \\-> hxs
|
|
|
|
|
+" "" "002100" :Lib) "~xA\\->" ("hxs \\-> ob
|
|
|
|
|
+" "" "003100" :Lib) "~xA\\->H" ("hxs \\-> $hex
|
|
|
|
|
+" "" "004100" :Lib) "~xH\\->A" ("$hex \\-> hxs
|
|
|
|
|
+" "" "005100" :Lib) "~x\\->CD" ("$hex \\-> code
|
|
|
|
|
+" "" "006100" :Lib) "~xCD\\->" ("code \\-> $hex
|
|
|
|
|
+" "" "007100" :Lib) "~xS\\->H" ("$ \\-> $hex
|
|
|
|
|
+" "" "008100" :Lib) "~xH\\->S" ("$hex \\-> $
|
|
|
|
|
+" "" "009100" :Lib) "~x\\->LST" ("comp \\-> {}
|
|
|
|
|
+ob1..obn %n \\-> {}
|
|
|
|
|
+" "" "00A100" :Lib) "~x\\->ALG" ("comp \\-> symb
|
|
|
|
|
+ob1..obn %n \\-> symb
|
|
|
|
|
+" "" "00B100" :Lib) "~x\\->PRG" ("comp \\-> ::
|
|
|
|
|
+ob1..obn %n \\-> ::
|
|
|
|
|
+" "" "00C100" :Lib) "~xCOMP\\->" ("comp \\-> ob1...obn %n
|
|
|
|
|
+" "" "00D100" :Lib) "~x\\->RAM" ("ob \\-> ob
|
|
|
|
|
+" "" "00E100" :Lib) "~xSREV" ("$ \\-> $'
|
|
|
|
|
+" "" "00F100" :Lib) "~xPOKE" ("hxs $hex \\->
|
|
|
|
|
+" "" "010100" :Lib) "~xPEEK" ("hxs1 hxs2 \\-> $hex
|
|
|
|
|
+" "" "011100" :Lib) "~xAPEEK" ("hxs \\-> hxs'
|
|
|
|
|
+" "" "012100" :Lib) "~xR~SB" ("% \\-> #
|
|
|
|
|
+# \\-> %
|
|
|
|
|
+" "" "013100" :Lib) "~xSB~B" ("# \\-> hxs
|
|
|
|
|
+hxs \\-> #
|
|
|
|
|
+" "" "014100" :Lib) "~xLR~R" ("%% \\-> %
|
|
|
|
|
+% \\-> %%
|
|
|
|
|
+" "" "015100" :Lib) "~xS~N" ("$ \\-> ID
|
|
|
|
|
+ID \\-> $
|
|
|
|
|
+" "" "016100" :Lib) "~xLC~C" ("%%C \\-> %C
|
|
|
|
|
+%C \\-> %%C
|
|
|
|
|
+" "" "017100" :Lib) "~xASM\\->" ("Code \\-> $
|
|
|
|
|
+" "" "018100" :Lib) "~xBetaTesting" ("\\-> $
|
|
|
|
|
+" "" "019100" :Lib) "~xCRLIB" ("\\-> lib
|
|
|
|
|
+" "" "01A100" :Lib) "~xCRC" ("$ \\-> #crc
|
|
|
|
|
+" "" "01B100" :Lib) "~xMAKESTR" ("xlen \\-> $
|
|
|
|
|
+" "" "01C100" :Lib) "~xSERIAL" ("\\-> $
|
|
|
|
|
+" "" "01D100" :Lib) "~xASM" ("$ \\-> ob
|
|
|
|
|
+" "" "01E100" :Lib) "~xER" ("$ {errors} \\-> $'
|
|
|
|
|
+" "" "01F100" :Lib) "~x\\->S2" ("ob \\-> $
|
|
|
|
|
+" "" "020100" :Lib) "~xXLIB~" ("xlib xn \\-> ROMPTR
|
|
|
|
|
+ROMPTR \\-> xlib xn
|
|
|
|
|
+" "" "021100" :Lib) "~xGETADR" ("$ \\-> hxs
|
|
|
|
|
+" "Get the address of an entry name.
|
|
|
|
|
+" "001102" :Lib) "~xGETNAME" ("hxs \\-> $
|
|
|
|
|
+" "Get the entry name corresponding to an
|
|
|
|
|
+address.
|
|
|
|
|
+" "002102" :Lib) "~xGETNAMES" ("$start \\-> {}
|
|
|
|
|
+" "Get all entry names which start with the
|
|
|
|
|
+given string.
|
|
|
|
|
+" "003102" :Lib) "~xGETNEAR" ("$sub \\-> {}
|
|
|
|
|
+" "Get all entry names which contain the given
|
|
|
|
|
+string.
|
|
|
|
|
+" "004102" :Lib) "SAVPTR" (" D0 to RPLTOP
|
|
|
|
|
+ D1 to DSKTOP
|
|
|
|
|
+ B to RETTOP
|
|
|
|
|
+ D to FREETOP
|
|
|
|
|
+ Clear carry
|
|
|
|
|
+. 38G: 8121A \\$j%s\\ [ML]
|
|
|
|
|
+" "" "0679B" :ML) "GETPTR" ("<REF>SAVPTR in reverse
|
|
|
|
|
+Clears Carry.
|
|
|
|
|
+" "" "067D2" :ML) "GETPTRLOOP" ("<REF>GETPTR , Loop to RPL
|
|
|
|
|
+" "" "05143" :ML) "D0=DSKTOP" ("Get new D0 from DSKTOP, uses A
|
|
|
|
|
+" "" "36897" :ML) "D1=DSKTOP" ("Get new D1 from DSKTOP, uses C
|
|
|
|
|
+" "" "368A6" :ML) "AllowIntr" ("Allow interrupts.
|
|
|
|
|
+" "" "26767" :ML) "DisableIntr" ("Disable interrupts.
|
|
|
|
|
+" "" "26791" :ML) "AINRTN" ("A=IN see also <REF>CINRTN
|
|
|
|
|
+For hardware reasons (bug)
|
|
|
|
|
+A=IN must be at even addr
|
|
|
|
|
+" "" "0020A" :ML) "CINRTN" ("C=IN see also <REF>AINRTN
|
|
|
|
|
+For hardware reasons (bug)
|
|
|
|
|
+C=IN must be at even addr
|
|
|
|
|
+" "" "00212" :ML) "DOMEMERR" ("Insufficient Memory error
|
|
|
|
|
+" "" "04FBB") "DOSIZEERR" ("Bad Argument Value error
|
|
|
|
|
+" "" "26CA7" :ML) "Errjmp" ("Error exit
|
|
|
|
|
+A.A = error number
|
|
|
|
|
+" "" "05023" :ML) "ErrjmpC" ("A=C.A <REF>Errjmp
|
|
|
|
|
+" "" "266C6" :ML) "GPErrjmpC" ("A=C.A <REF>GETPTR <REF>Errjmp
|
|
|
|
|
+" "" "266DB" :ML) "GPMEMERR" ("<REF>GETPTR <REF>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") "ADIV3" ("A.A = A.A/3
|
|
|
|
|
+Uses A.6 C.6 P
|
|
|
|
|
+" "" "26A2A" :ML) "ADIV6" ("A.A = A.A/6
|
|
|
|
|
+Uses A.6 C.6 P
|
|
|
|
|
+" "" "26A23" :ML) "ADivC" ("B.A=A.A/C.A
|
|
|
|
|
+Uses A.A C.A
|
|
|
|
|
+" "" "26A15" :ML) "AMULT34" ("A.A=A.A*34
|
|
|
|
|
+Uses C.A
|
|
|
|
|
+" "" "269F2" :ML) "BMULT34" ("B.A=B.A*34
|
|
|
|
|
+Uses C.A
|
|
|
|
|
+" "" "26A1C" :ML) "CMULT34" ("C.A=A.A*34
|
|
|
|
|
+Uses A.A
|
|
|
|
|
+" "" "269F9" :ML) "DCHXW" ("Converts BCD in C.W to hex in
|
|
|
|
|
+A.W B.W C.W. See <REF>HXDCW
|
|
|
|
|
+Uses P CRY
|
|
|
|
|
+" "" "26F00" :ML) "DIV5" ("C.A = C.A/5
|
|
|
|
|
+Uses A.10 C.10 D.10 P
|
|
|
|
|
+" "" "06A8E" :ML) "HEXTODEC" ("Converts hex in C.A to BCD in A.A
|
|
|
|
|
+Uses A.6 B.6 P
|
|
|
|
|
+" "" "26A0E" :ML) "HXDCW" ("Converts hex in A.W to BCD in
|
|
|
|
|
+A.W B.W C.W. See <REF>DCHXW
|
|
|
|
|
+Uses P CRY
|
|
|
|
|
+" "Note that HXDCW wants the input
|
|
|
|
|
+in A but DCHXW wants it in C
|
|
|
|
|
+" "2DEAA" :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
|
|
|
|
|
+" "" "2709E" :ML) "MUL#" ("B.A = A.A*C.A
|
|
|
|
|
+" "" "03991" :ML) "MULTB+A*C" ("B.A=B.A+(A.A*C.A)
|
|
|
|
|
+" "" "26A07" :ML) "MULTBAC" ("B=0.A <REF>MULTB+A*C
|
|
|
|
|
+" "" "26A00" :ML) "STAB0" ("A.W -> R0
|
|
|
|
|
+B.W -> R1
|
|
|
|
|
+" "" "31348" :ML) "STAB2" ("A.W -> R2
|
|
|
|
|
+B.W -> R3
|
|
|
|
|
+" "" "31356" :ML) "STCD0" ("C.W -> R0
|
|
|
|
|
+B.W -> R1
|
|
|
|
|
+" "" "31364" :ML) "STCD2" ("C.W -> R2
|
|
|
|
|
+B.W -> R3
|
|
|
|
|
+" "" "31372" :ML) "RCAB0" ("R0 -> A.W
|
|
|
|
|
+R1 -> B.W
|
|
|
|
|
+" "" "3139C" :ML) "RCAB2" ("R2 -> A.W
|
|
|
|
|
+R3 -> B.W
|
|
|
|
|
+" "" "313A7" :ML) "RCCD0" ("R0 -> C.W
|
|
|
|
|
+R1 -> D.W
|
|
|
|
|
+" "" "313B2" :ML) "RCCD2" ("R2 -> C.W
|
|
|
|
|
+R3 -> D.W
|
|
|
|
|
+" "" "313BD" :ML) "EXAB0" ("A.W <-> R0
|
|
|
|
|
+B.W <-> R1
|
|
|
|
|
+" "" "31380" :ML) "EXAB2" ("A.W <-> R2
|
|
|
|
|
+B.W <-> R3
|
|
|
|
|
+" "" "3138E" :ML) "XYEX" ("A:B <-> C:D
|
|
|
|
|
+" "" "3133A" :ML) "DIVF" ("x=x/y
|
|
|
|
|
+" "" "31756" :ML) "MULTF" ("x=x*y
|
|
|
|
|
+" "" "316FD" :ML) "RADD1" ("x=x+1 see <REF>RADDF
|
|
|
|
|
+" "" "3158F" :ML) "RADDF" ("x=x+y
|
|
|
|
|
+" "" "315A9" :ML) "RSUB1" ("x=x-1 see <REF>RADDF
|
|
|
|
|
+" "" "31586" :ML) "PACK" ("( x -> A )
|
|
|
|
|
+<REF>PACKSB without rounding
|
|
|
|
|
+" "" "2F4A2" :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
|
|
|
|
|
+" "" "2F47D" :ML) "SPLITA" ("( A -> x ) Convert % to %%
|
|
|
|
|
+" "" "31131" :ML) "SPLITC" ("( C -> y ) Convert % to %%
|
|
|
|
|
+" "" "31193" :ML :UBS) "SPLTAC" ("( A,C -> x, y )
|
|
|
|
|
+Convert 2 reals to long reals
|
|
|
|
|
+" "" "31187" :ML) "ADJMEM" ("D= @FREETOP=<REF>ROOM / 5
|
|
|
|
|
+Uses A.10 B.10 C.10 D.10 <REF>DIV5
|
|
|
|
|
+" "" "069F7" :ML) "DOGARBAGE" ("If ST=1 10 then <REF>GPMEMERR
|
|
|
|
|
+else <REF>GARBAGECOL
|
|
|
|
|
+and <REF>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) "BLKSWAP+" ("<REF>SWAPMEM_D0D1C and adjusts
|
|
|
|
|
+all refs
|
|
|
|
|
+" "" "2682B" :ML) "NEWADR" ("Moves TEMPOB zone at D0 to top
|
|
|
|
|
+of TEMPOB area -> D0=new addr
|
|
|
|
|
+" "Note that (1) the object must be
|
|
|
|
|
+skippable and (2) it must be a
|
|
|
|
|
+TEMPOB zone of its own (not
|
|
|
|
|
+embedded). This entry is however
|
|
|
|
|
+safe to use from TEMPOB because
|
|
|
|
|
+it keeps track of one RSTK address
|
|
|
|
|
+as well.
|
|
|
|
|
+" "26871" :ML) "EndTempOb" ("Moves TEMPOB zone at D0 to top
|
|
|
|
|
+of TEMPOB area -> D0=new addr
|
|
|
|
|
+" "Note that (1) the object must be
|
|
|
|
|
+skippable and (2) it must be a
|
|
|
|
|
+TEMPOB zone of its own (not
|
|
|
|
|
+embedded). This entry is however
|
|
|
|
|
+safe to use from TEMPOB because
|
|
|
|
|
+it keeps track of one RSTK address
|
|
|
|
|
+as well.
|
|
|
|
|
+" "26871" :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 <REF>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 <REF>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 <REF>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 <REF>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) "SWAPMEM" ("Swaps two memory areas
|
|
|
|
|
+Area 1: R1.A to R2.A
|
|
|
|
|
+Area 2: R2.A to R3.A
|
|
|
|
|
+Uses <REF>SWAPMEM_D0D1C
|
|
|
|
|
+" "" "269B3" :ML) "SWAPMEMEQ" ("Swaps two memory areas of the
|
|
|
|
|
+same size <REF>SWAPMEMEQ_D0D1C
|
|
|
|
|
+R1.A->Area1 R2.A->Area2
|
|
|
|
|
+" "" "269DD" :ML) "SWAPMEMEQ_D0D1C" ("Swaps two memory areas of the
|
|
|
|
|
+same size
|
|
|
|
|
+D0->Area1 D1->Area2 C=(D1-D0)
|
|
|
|
|
+Uses A.W B.A C.W P CRY
|
|
|
|
|
+" "" "269E4" :ML) "SWAPMEM_D0D1C" ("D=C.A <REF>SWAPMEM_D0D1D
|
|
|
|
|
+" "" "269BA" :ML) "SWAPMEM_D0D1C_nofree" ("D=C.A <REF>SWAPMEM_D0D1D_nofree
|
|
|
|
|
+" "" "269C1" :ML) "SWAPMEM_D0D1D" ("Swaps two memory areas
|
|
|
|
|
+Area 1: D0 to D1
|
|
|
|
|
+Area 2: D1 to (D1+D.A)
|
|
|
|
|
+Uses A.W B.A C.W D.W P CRY
|
|
|
|
|
+" "" "269C8" :ML) "SWAPMEM_D0D1D_nofree" ("<REF>SWAPMEM_D0D1D but does not
|
|
|
|
|
+alter the memory @RSKTOP
|
|
|
|
|
+" "" "269CF" :ML) "SWAPMEM_nofree" ("<REF>SWAPMEM but does not alter
|
|
|
|
|
+the memory @RSKTOP
|
|
|
|
|
+" "" "269D6" :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" ("<REF>CREATETEMP with
|
|
|
|
|
+<REF>GARBAGECOL if necessary
|
|
|
|
|
+<REF>GPMEMERR if not
|
|
|
|
|
+enough memory
|
|
|
|
|
+" "" "039BE" :ML) "GETBOTTEMP" ("Allocates C.A nibbles at the
|
|
|
|
|
+bottom of TEMPOB, errors if not
|
|
|
|
|
+enough memory
|
|
|
|
|
+Returns D0=top D1=bottom of area
|
|
|
|
|
+C.A=nibbles
|
|
|
|
|
+Uses A.W B.A C.W D.10 R1.A
|
|
|
|
|
+" "Bottom of TEMPOB means two things:
|
|
|
|
|
+1. VERY dangerous if called from TEMPOB
|
|
|
|
|
+2. The allocated string will not be moved by GC
|
|
|
|
|
+" "268CC" :ML) "MAKE$" ("Creates character string in
|
|
|
|
|
+tempob area Does SETHEX,
|
|
|
|
|
+C=C+C.A and then <REF>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) "MAKEBOT$N" ("Creates a C.A nibs long string
|
|
|
|
|
+at the bottom of TEMPOB
|
|
|
|
|
+D0->body R0.A->string R1.A=len
|
|
|
|
|
+Uses A.W B.A C.W D.10
|
|
|
|
|
+See <REF>WIPEOUT <REF>GETBOTTEMP
|
|
|
|
|
+" "" "26919" :ML) "MAKERAM$" ("Allocates all free mem in a str,
|
|
|
|
|
+leaves 5 nibbles for pushing
|
|
|
|
|
+See <REF>MAKE$N <REF>ROOM
|
|
|
|
|
+" "" "26920" :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
|
|
|
|
|
+" "" "26840" :ML) "Clean$R0" ("R1=R0+5 <REF>Clean$
|
|
|
|
|
+" "" "26847" :ML) "Shrink$" ("Shrinks a strobj
|
|
|
|
|
+R0.A=->$ D0=end of $
|
|
|
|
|
+Uses A.W B.A C.W D.10 D0 D1
|
|
|
|
|
+" "" "26721" :ML) "SIZEPLUS" ("Expands a strobj
|
|
|
|
|
+R0.A=->$ D0=end of $
|
|
|
|
|
+Uses A.W B.A C.10 D.10 D0 D1
|
|
|
|
|
+" "" "26990" :ML) "Stretch$" ("Expands a strobj
|
|
|
|
|
+R0.A=->$ D0=end of $
|
|
|
|
|
+Uses A.W B.A C.10 D.10 D0 D1
|
|
|
|
|
+" "" "26990" :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 <REF>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
|
|
|
|
|
+" "266B8" :ML) "CompareACbBytes" ("Compares A.B=C.B bytes at D0 and D1
|
|
|
|
|
+CC: Equal CS: Not equal
|
|
|
|
|
+D0/D1 always point past the end
|
|
|
|
|
+Uses A.M A.A C.M C.B P
|
|
|
|
|
+" "" "26C53" :ML) "INV.ZONE" ("Inverts (bitwise NOT) C.A nibbles
|
|
|
|
|
+at D0
|
|
|
|
|
+Uses A.W C.A P
|
|
|
|
|
+" "" "2690B" :ML) "WIPEOUT" ("Zeroes C.A nibbles at D1
|
|
|
|
|
+Uses A.W C.A P
|
|
|
|
|
+" "" "0675C" :ML) "WIPESPACE" ("Inits C.A nibbles at D1 with
|
|
|
|
|
+spaces (#20h) see <REF>WIPEOUT
|
|
|
|
|
+" "" "269EB" :ML) "aBZU" ("Decompress a BZ-compressed string
|
|
|
|
|
+D0->compressed
|
|
|
|
|
+D1->room to decompress to
|
|
|
|
|
+Uses A-D R0-R2
|
|
|
|
|
+" "" "26808" :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) "RclAssembly" ("Recalls an object from the
|
|
|
|
|
+current directory
|
|
|
|
|
+D1->Name (ID etc)
|
|
|
|
|
+Returns object at D0
|
|
|
|
|
+Uses A.W B.A C.W D.A D0 D1 ST P
|
|
|
|
|
+" "" "26C68" :ML) "ACCESSBank0" ("P=0: Switch to bank 0
|
|
|
|
|
+P=1: Switch back
|
|
|
|
|
+Uses D0 C.A P
|
|
|
|
|
+" "" "26BB9" :ML) "ACCESSBank1" ("Bank 1, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BC0" :ML) "ACCESSBank2" ("Bank 2, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BC7" :ML) "ACCESSBank3" ("Bank 3, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BCE" :ML) "ACCESSBank4" ("Bank 4, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BD5" :ML) "ACCESSBank5" ("Bank 5, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BDC" :ML) "ACCESSBank6" ("Bank 6, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BE3" :ML) "ACCESSBank7" ("Bank 7, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BEA" :ML) "ACCESSBank8" ("Bank 8, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BF1" :ML) "ACCESSBank9" ("Bank 9, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BF8" :ML) "ACCESSBank10" ("Bank 10, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26BFF" :ML) "ACCESSBank11" ("Bank 11, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26C06" :ML) "ACCESSBank12" ("Bank 12, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26C0D" :ML) "ACCESSBank13" ("Bank 13, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26C14" :ML) "ACCESSBank14" ("Bank 14, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26C1B" :ML) "ACCESSBank15" ("Bank 15, see <REF>ACCESSBank0
|
|
|
|
|
+" "" "26C22" :ML) "ANNCTRL" ("Annunciator control
|
|
|
|
|
+[LA4 LA3 LA2 LA1]
|
|
|
|
|
+(alarm alpha -> <-)
|
|
|
|
|
+" "" "0010B" :ML) "CRC" ("4 nibbles for CRC.
|
|
|
|
|
+Every memory fetch updates CRC.
|
|
|
|
|
+" "" "00104" :ML) "TIMER1" ("1 nibble timer
|
|
|
|
|
+decremented 16 times/s
|
|
|
|
|
+" "" "00137" :ML) "TIMER2" ("8 nibble timer
|
|
|
|
|
+decremented 8192 times/s
|
|
|
|
|
+" "" "00138" :ML) "$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
|
|
|
|
|
+" "" "266B1" :ML) "D0->Row1" ("( --> D0 )
|
|
|
|
|
+Gets addr of current display
|
|
|
|
|
+" "" "2677C" :ML) "D0->Sft1" ("( --> D0 )
|
|
|
|
|
+Gets address of menu grob
|
|
|
|
|
+" "" "26783" :ML) "DISP_DEC" ("Displays hex in C.A as dec
|
|
|
|
|
+D0->GROB
|
|
|
|
|
+Uses A.6 B.W C.W CRY RSTK2
|
|
|
|
|
+ST see <REF>MINI_DISP_AWP
|
|
|
|
|
+" "If C.A > #99999h, it displays
|
|
|
|
|
+----- instead of the actual number
|
|
|
|
|
+" "26A38" :ML) "DispOn" ("Turns display on <REF>Dispoff
|
|
|
|
|
+" "" "2679F" :ML) "DispOff" ("Turns display off <REF>Dispon
|
|
|
|
|
+" "" "26798" :ML) "GET_HEADERTYPE" ("Returns the header type in A.A
|
|
|
|
|
+Uses D0
|
|
|
|
|
+" "The header type is the header
|
|
|
|
|
+height in pixels, including the
|
|
|
|
|
+black separator line
|
|
|
|
|
+" "2689B" :ML) "GET_@FONTE" ("Returns the address of the system
|
|
|
|
|
+font in A.A
|
|
|
|
|
+" "Currently LA 84D82 RTN
|
|
|
|
|
+" "2687F" :ML) "GET_HFONTE" ("Returns the heigth of the system
|
|
|
|
|
+font in A.A, uses D0
|
|
|
|
|
+" "" "268A2" :ML) "GET_HFONTECMD" ("Returns the heigth of the command
|
|
|
|
|
+line font, uses D0
|
|
|
|
|
+-> A.A=height ST9=normal/minifont
|
|
|
|
|
+" "" "268A9" :ML) "GET_HFONTESTK" ("Returns the height of the stack
|
|
|
|
|
+font, uses D0
|
|
|
|
|
+-> A.A=height ST9=normal/minifont
|
|
|
|
|
+" "" "268B0" :ML) "GET_HFONTESTKD1C" ("Returns the height of the stack
|
|
|
|
|
+font, uses D1
|
|
|
|
|
+-> C.A=height ST9=normal/minifont
|
|
|
|
|
+" "" "268B7" :ML) "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]
|
|
|
|
|
+" "" "2674B" :ML) "MINI_DISP_AWP" ("Display A.WP in minifont
|
|
|
|
|
+D0->GROB, ST11=normal/inverted
|
|
|
|
|
+ST10=show/hide starting zeros
|
|
|
|
|
+Uses A.A B.W C.W CRY RSTK2
|
|
|
|
|
+" "" "2692E" :ML) "MINI_DISP_VAL" ("Display C.A digits of B.W
|
|
|
|
|
+in minifont, D0->GROB
|
|
|
|
|
+ST/Uses see <REF>MINI_DISP_AWP
|
|
|
|
|
+" "" "2693C" :ML) "SCREEN.MARGIN2" ("Zeroes R0.A then does
|
|
|
|
|
+<REF>SCREEN.MARGIN
|
|
|
|
|
+Uses R0.W
|
|
|
|
|
+" "" "2696D" :ML) "STYLE.MINIFONT" ("Changes minifont character data
|
|
|
|
|
+in A.6, uses P
|
|
|
|
|
+ST1=1 -> italic
|
|
|
|
|
+ST2=2 -> underline
|
|
|
|
|
+ST3=3 -> invert
|
|
|
|
|
+" "" "269AC" :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
|
|
|
|
|
+" "26760" :ML) "Arrows" ("Draws arrows to signal that
|
|
|
|
|
+further scrolling is possible
|
|
|
|
|
+D0->GROB ST4-7=arrows:
|
|
|
|
|
+4=up 5=down 6=left 7=right
|
|
|
|
|
+ST9=normal/minifont
|
|
|
|
|
+Uses D1 A.A B.A C.A D.A ST0-7
|
|
|
|
|
+P RSTK2
|
|
|
|
|
+" "ST9 actually selects big or small
|
|
|
|
|
+arrow
|
|
|
|
|
+" "26B7A" :ML) "aCircleB" ("Draws black circle on GROB at D0
|
|
|
|
|
+A.A = cx, B.A = cy, C.A = r
|
|
|
|
|
+Uses: RSTK2 D0 D1 R3.A R4.A
|
|
|
|
|
+A.S C.S
|
|
|
|
|
+" "" "26AB6" :ML) "aCircleG1" ("Draws light gray circle.
|
|
|
|
|
+<REF>aCircleB
|
|
|
|
|
+" "" "26AC4" :ML) "aCircleG2" ("Draws dark gray circle.
|
|
|
|
|
+<REF>aCircleB
|
|
|
|
|
+" "" "26ACB" :ML) "aCircleW" ("Draws white circle.
|
|
|
|
|
+<REF>aCircleB
|
|
|
|
|
+" "" "26ABD" :ML) "aCircleXor" ("Inverts circle.
|
|
|
|
|
+<REF>aCircleB
|
|
|
|
|
+" "" "26AD2" :ML) "aDistance" ("C.A=sqrt(A.A^2+B.A^2)
|
|
|
|
|
+Uses A.6 B.6 C.6 D.6 CRY SB P
|
|
|
|
|
+" "" "26B0A" :ML) "aFBoxB" ("Draws a black filled box
|
|
|
|
|
+D0->GROB
|
|
|
|
|
+A.A=x1 B.A=y1 C.A=x2 D.A=y2
|
|
|
|
|
+Uses RSTK2 A.W B.W C.W D.A D.S
|
|
|
|
|
+D0 D1 R3.A R4.A
|
|
|
|
|
+" "" "26B34" :ML) "aFBoxG1" ("Draws a light gray filled box
|
|
|
|
|
+<REF>aFBoxB
|
|
|
|
|
+" "" "26B42" :ML) "aFBoxG2" ("Draws a dark gray filled box
|
|
|
|
|
+<REF>aFBoxB
|
|
|
|
|
+" "" "26B49" :ML) "aFBoxW" ("Draws a white filled box
|
|
|
|
|
+<REF>aFBoxB
|
|
|
|
|
+" "" "26B3B" :ML) "aFBoxXor" ("Inverts a filled box <REF>aFBoxB
|
|
|
|
|
+" "" "26B50" :ML) "aGrey?" ("Returns info about GROB at D0
|
|
|
|
|
+ST0: 0=B&W 1=Gray
|
|
|
|
|
+R4.A= Plane len R3.A= Line len
|
|
|
|
|
+" "" "26AF5" :ML) "aGNeg" ("Inverts GROB at D0
|
|
|
|
|
+Uses RSTK2 A.W B.A C.A D0 R3.A
|
|
|
|
|
+R4.A
|
|
|
|
|
+" "" "26AFC" :ML) "aLBoxB" ("Draws a black rectangle
|
|
|
|
|
+D0->GROB
|
|
|
|
|
+A.A=x1 B.A=x2 C.A=y1 D.A=y2
|
|
|
|
|
+Uses same as <REF>aFBoxB
|
|
|
|
|
+" "" "26B57" :ML) "aLBoxG1" ("Draws light gray rectangle
|
|
|
|
|
+<REF>aLBoxB
|
|
|
|
|
+" "" "26B65" :ML) "aLBoxG2" ("Draws dark gray rectangle
|
|
|
|
|
+<REF>aLBoxB
|
|
|
|
|
+" "" "26B6C" :ML) "aLBoxW" ("Draws white rectangle
|
|
|
|
|
+<REF>aLBoxB
|
|
|
|
|
+" "" "26B5E" :ML) "aLBoxXor" ("Inverts a rectangle
|
|
|
|
|
+<REF>aLBoxB
|
|
|
|
|
+" "" "26B73" :ML) "aLineB" ("Draws black line on GROB at D0
|
|
|
|
|
+A.A=x1, B.A=x2, C.A=y1, D.A=y2
|
|
|
|
|
+Uses: RSTK2 D0 D1 R3.A R4.A A.A
|
|
|
|
|
+A.S B.A B.S C D.A
|
|
|
|
|
+" "" "26A93" :ML) "aLineG1" ("Draws light gray line. <REF>aLineB
|
|
|
|
|
+" "" "26AA1" :ML) "aLineG2" ("Draws dark gray line. <REF>aLineB
|
|
|
|
|
+" "" "26AA8" :ML) "aLineW" ("Draws white line. <REF>aLineB
|
|
|
|
|
+" "" "26A9A" :ML) "aLineXor" ("Inverts a line. <REF>aLineB
|
|
|
|
|
+" "" "26AAF" :ML) "aPixonB" ("Draws black pixel on GROB at D0
|
|
|
|
|
+A.A = x, B.A = y
|
|
|
|
|
+Uses RSTK2 C.W D0 D1 R3.A R4.A
|
|
|
|
|
+" "" "26B18" :ML) "aPixonG1" ("Draws light gray pixel. <REF>aPixonB
|
|
|
|
|
+" "" "26B1F" :ML) "aPixonG2" ("Draws dark gray pixel. <REF>aPixonB
|
|
|
|
|
+" "" "26B26" :ML) "aPixonW" ("Draws white pixel. <REF>aPixonB
|
|
|
|
|
+" "" "26B11" :ML) "aPixonXor" ("Inverts pixel. <REF>aPixonB
|
|
|
|
|
+" "" "26B2D" :ML) "aScroolVGrob" ("Scroll GROB at D0
|
|
|
|
|
+R0.A=h R1.A=Ys R2.A=Yd R3.A=X
|
|
|
|
|
+R4.A=w
|
|
|
|
|
+Uses A.A B.A B.S C.W D.A D.S
|
|
|
|
|
+RSTK2 R3.A R4.A D0 D1
|
|
|
|
|
+" "" "26B03" :ML) "aSubReplGor" ("
|
|
|
|
|
+" "" "26AE0" :ML) "aSubReplGxor" ("
|
|
|
|
|
+" "" "26AE7" :ML) "aSubReplRepl" ("
|
|
|
|
|
+" "" "26AD9" :ML) "DropLoop" ("Pop stack, Loop
|
|
|
|
|
+" "" "03249" :ML) "4DropLoop" ("Pop 4, Loop
|
|
|
|
|
+" "" "34202" :ML) "GPOverWrALp" ("<REF>GETPTR , OverWr A, Loop
|
|
|
|
|
+" "" "03672" :ML) "GPOverWrR0Lp" ("<REF>GETPTR , OverWr R0, Loop
|
|
|
|
|
+" "" "0366F" :ML) "GPPushA" ("<REF>GETPTR , Push A, Clear Carry
|
|
|
|
|
+" "" "266E2" :ML) "GPPushALp" ("<REF>GETPTR , Push A, Loop
|
|
|
|
|
+" "" "268EF" :ML) "GPPushR0Lp" ("<REF>GETPTR , Push R0, Loop
|
|
|
|
|
+" "" "268E8" :ML) "PopASavptr" ("Pop to A.A, <REF>SAVPTR
|
|
|
|
|
+" "" "26705" :ML) "PopSavptr" ("Pop <REF>SAVPTR
|
|
|
|
|
+" "" "2670C" :ML) "PUSHA" ("Push A, Loop
|
|
|
|
|
+" "" "03A86" :ML) "GETPTRFALSE" ("<REF>GETPTR , Do FALSE
|
|
|
|
|
+" "" "266CD" :ML) "GETPTRTRUE" ("<REF>GETPTR , Do TRUE
|
|
|
|
|
+" "" "266D4" :ML) "GPOverWrFLp" ("<REF>GETPTR , OverWr FALSE, Loop
|
|
|
|
|
+" "" "35213" :ML) "GPOverWrTLp" ("<REF>GETPTR , OverWr TRUE, Loop
|
|
|
|
|
+" "" "351F3" :ML) "GPOverWrT/FL" ("<REF>GETPTR , OverWr
|
|
|
|
|
+TRUE/FALSE, Loop
|
|
|
|
|
+" "" "351F0" :ML) "GPPushFLoop" ("<REF>GETPTR , Push FALSE, Loop
|
|
|
|
|
+" "" "3524F" :ML) "GPPushTLoop" ("<REF>GETPTR , Push TRUE, Loop
|
|
|
|
|
+" "" "35236" :ML) "GPPushT/FLp" ("<REF>GETPTR , Push TRUE/FALSE,
|
|
|
|
|
+Loop
|
|
|
|
|
+" "" "35233" :ML) "OverWrFLoop" ("OverWr FALSE, Loop
|
|
|
|
|
+" "" "3521D" :ML) "OverWrTLoop" ("OverWr TRUE, Loop
|
|
|
|
|
+" "" "351FD" :ML) "OverWrT/FLp" ("OverWr TRUE/FALSE, Loop
|
|
|
|
|
+" "" "3521A" :ML) "popflag" ("Pop to A.A,
|
|
|
|
|
+if TRUE then set carry
|
|
|
|
|
+" "" "34A68" :ML) "DOFALSE" ("Push FALSE, Loop
|
|
|
|
|
+" "" "35259" :ML) "PushFLoop" ("Push FALSE, Loop
|
|
|
|
|
+" "" "35259" :ML) "PushF/TLoop" ("Push FALSE (CRY)/TRUE, Loop
|
|
|
|
|
+" "" "3523D" :ML) "DOTRUE" ("Push TRUE, Loop
|
|
|
|
|
+" "" "35240" :ML) "PushTLoop" ("Push TRUE, Loop
|
|
|
|
|
+" "" "35240" :ML) "PushT/F" ("Push TRUE (CRY)/FALSE, Loop
|
|
|
|
|
+" "" "35256" :ML) "PushT/FLoop" ("Push TRUE (CRY)/FALSE, Loop
|
|
|
|
|
+" "" "35256" :ML) "POP#" ("Pop # to A.A
|
|
|
|
|
+" "" "06641" :ML) "POP2#" ("( #1 #2 --> )
|
|
|
|
|
+Pop #1 to A.A and #2 to C.A
|
|
|
|
|
+" "" "03F5D" :ML) "PUSH#" ("<REF>GETPTR , Push R0 as #
|
|
|
|
|
+" "" "06537" :ML) "#PUSHA-" ("<REF>SAVPTR , R0=A,
|
|
|
|
|
+<REF>PUSH# , Loop
|
|
|
|
|
+" "" "03DC7" :ML) "PUSH2#" ("<REF>GETPTR , Push R0 & R1 as #
|
|
|
|
|
+" "" "06529" :ML) "PUSH#LOOP" ("<REF>GETPTR , Push R0 as #, Loop
|
|
|
|
|
+" "" "0357F" :ML) "PUSH#ALOOP" ("<REF>GETPTR , Push A as #, Loop
|
|
|
|
|
+" "" "0357C" :ML) "Push2#Loop" ("<REF>GETPTR , Push R0 & R1
|
|
|
|
|
+as #, Loop
|
|
|
|
|
+" "" "03F14" :ML) "Push2#aLoop" ("<REF>GETPTR , Push R0 & A as #, Loop
|
|
|
|
|
+" "" "35812" :ML) "Push#TLoop" ("<REF>GETPTR , Push R0 as #, Do TRUE
|
|
|
|
|
+" "" "036F7" :ML) "Push#FLoop" ("<REF>GETPTR , Push R0 as #, Do FALSE
|
|
|
|
|
+" "" "283A3" :ML) "PUSHhxs" ("Push A.WP as hxs
|
|
|
|
|
+" "" "266FE" :ML) "PUSHhxsLoop" ("Push A.WP as hxs, Loop
|
|
|
|
|
+" "" "0596D" :ML) "PUSHzint" ("Push A.WP as ZINT
|
|
|
|
|
+" "" "26951" :ML) "PUSHzintLoop" ("Push A.WP as ZINT, Loop
|
|
|
|
|
+" "" "26958" :ML) "POP1%SPLITA" ("( %pop -> x ) Pop %,
|
|
|
|
|
+convert to %%, <REF>SAVPTR
|
|
|
|
|
+" "" "2F62C" :ML) "POP1%" (" ( %pop -> A ) Pop %, <REF>SAVPTR
|
|
|
|
|
+. 38G: 811BF \\$j%s\\ [ML]
|
|
|
|
|
+" "" "2F636" :ML) "POP2%" ("( %pop1 %pop2 -> A,C )
|
|
|
|
|
+Pop 2 reals, <REF>SAVPTR
|
|
|
|
|
+" "" "2F65E" :ML) "PUSH%" ("( A -> %push )
|
|
|
|
|
+Push A as %, <REF>GETPTR
|
|
|
|
|
+" "" "2F7E4" :ML) "PUSH%LOOP" ("( A -> %push ) Push A as %,
|
|
|
|
|
+<REF>GETPTRLOOP
|
|
|
|
|
+" "" "2F899" :ML) "POPC%" ("( C%pop -> A:C ) Pop C%
|
|
|
|
|
+(<REF>SETDEC )
|
|
|
|
|
+" "" "26A62" :ML) "POPC%%" ("( C%%pop -> A:B C:D)
|
|
|
|
|
+Pop C%% (<REF>SETDEC )
|
|
|
|
|
+" "" "26A70" :ML) "PUSHC%" ("( A:C -> C%push ) Push C%
|
|
|
|
|
+" "" "26A69" :ML) "PUSHC%%" ("( A:B:C:D -> C%%push )
|
|
|
|
|
+Push C%%
|
|
|
|
|
+" "" "26A77" :ML) "ATTNchk" ("ATTN exit check with restoreiram
|
|
|
|
|
+" "" "2A4AA" :ML) "KeyInBuff?" ("Carry if true
|
|
|
|
|
+" "" "04999" :ML) "OnKeyDown?" ("Carry if true
|
|
|
|
|
+" "" "267C2" :ML) "OnKeyStable?" ("Carry if true
|
|
|
|
|
+" "" "267C9" :ML) "Flush" ("Flushes key buffer.
|
|
|
|
|
+" "" "267A6" :ML) "FlushAttn" ("Flushes attn counter.
|
|
|
|
|
+" "" "267AD" :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
|
|
|
|
|
+" "" "267DE" :ML) "ThisKeyDn?" ("CS if key in A.B is down
|
|
|
|
|
+Uses: A.A C.A D1 P OR
|
|
|
|
|
+" "" "26D1E" :ML :UBS) "ThisKeyDnCb?" ("A=C.B <REF>ThisKeyDn?
|
|
|
|
|
+" "" "26D17" :ML :UBS) "ASRW5" ("ASR.W 5 times
|
|
|
|
|
+" "" "26E60" :ML) "ASLW5" ("ASL.W 5 times
|
|
|
|
|
+" "" "26E71" :ML) "CCSB1" ("Uses D.S to set SB, clears carry
|
|
|
|
|
+" "" "313C8" :ML) "CHANGE_FLAG" ("Change ST flag # A.B (1-4)
|
|
|
|
|
+If A.B > 10, A.B-11 is stored
|
|
|
|
|
+into R0.B. Clears carry if ok
|
|
|
|
|
+See <REF>CHANGE_FLAG2
|
|
|
|
|
+" "" "26832" :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
|
|
|
|
|
+" "" "267EC" :ML) "CSRW5" ("CSR.W 5 times
|
|
|
|
|
+" "" "26E82" :ML) "CSLW5" ("CSL.W 5 times
|
|
|
|
|
+" "" "26E93" :ML) "DeepSleep" ("Puts calc into \"deep sleep\"
|
|
|
|
|
+Low power mode, display off
|
|
|
|
|
+Wakeup on ON key or interrupt
|
|
|
|
|
+" "" "04292" :ML) "GetStrLenStk" ("Pop $ -> C.A = length, D1 = body
|
|
|
|
|
+" "" "266F7" :ML) "GetStrLenC" ("D1 = C, <REF>GetStrLen
|
|
|
|
|
+" "" "266F0" :ML) "GetStrLen" ("D1=$ -> C.A = length,
|
|
|
|
|
+D1 = body
|
|
|
|
|
+" "" "266E9" :ML) "GetStrLenL" ("D1=$ -> C.A = length in chars
|
|
|
|
|
+" "" "268D3" :ML) "makebeep" ("C = msec, D = Hz
|
|
|
|
|
+Checks BEEP flag.
|
|
|
|
|
+" "" "267F3" :ML) "liteslp" ("Puts calc into \"lite sleep\"
|
|
|
|
|
+Low power mode with display on
|
|
|
|
|
+Wakeup on any key or interrupt
|
|
|
|
|
+" "" "04929" :ML) "DBUG" ("Displays the contents of all
|
|
|
|
|
+registers. Uses one RSTK level
|
|
|
|
|
+and #8190C to save them.
|
|
|
|
|
+<REF>DBUG.TOUCHE
|
|
|
|
|
+" "" "2685C" :ML) "DBUG.TOUCHE" ("<REF>DBUG then freezes display
|
|
|
|
|
+until keypress
|
|
|
|
|
+" "" "26863" :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") "DOFLASHP" ("Flash pointer prologue
|
|
|
|
|
+3 flash bank #
|
|
|
|
|
+4 command #
|
|
|
|
|
+" "" "026AC") "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") "DOINT" ("ZINT prologue
|
|
|
|
|
+5 length
|
|
|
|
|
+.. BCD digits, reverse order
|
|
|
|
|
+1 sign
|
|
|
|
|
+" "" "02614") "DOLAM" ("Local name (LAM) prologue
|
|
|
|
|
+see <REF>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
|
|
|
|
|
+ --
|
|
|
|
|
+<REF>TEXT:Libraries
|
|
|
|
|
+" "02B40") "DOLIST" ("List prologue
|
|
|
|
|
+see <REF>DOCOL
|
|
|
|
|
+" "" "02A74") "DOMATRIX" ("Matrix prologue
|
|
|
|
|
+.. objects
|
|
|
|
|
+5 SEMI
|
|
|
|
|
+Nested DOMATRIX objects build a
|
|
|
|
|
+multi-dimensional matrix
|
|
|
|
|
+" "" "02686") "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") "DOAPLET" ("
|
|
|
|
|
+" "" "026D5") "DOEXT0" ("
|
|
|
|
|
+" "" "02B88") "DOACPTR" ("
|
|
|
|
|
+" "" "02BAA") "DOEXT1" ("
|
|
|
|
|
+" "" "02BAA") "DOEXT2" ("
|
|
|
|
|
+" "" "02BCC") "DOEXT3" ("
|
|
|
|
|
+" "" "02BEE") "DOEXT4" ("
|
|
|
|
|
+" "" "02C10") "DOLNGCMP" ("
|
|
|
|
|
+" "" "02660") "DOLNGREAL" ("
|
|
|
|
|
+" "" "0263A") "AVMEM" ("Free mem / 5 (5)
|
|
|
|
|
+" "" "80E9B" :RAM) "DSKTOP" ("->Data stack
|
|
|
|
|
+" "" "806F8" :RAM) "RSKTOP" ("->Return stack
|
|
|
|
|
+" "" "806F3" :RAM) "OBUPSTART" ("->RPL runstream
|
|
|
|
|
+" "" "8076B" :RAM) "INTRPPTR" ("->RPL runstream
|
|
|
|
|
+" "" "8076B" :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) "GROBSCR1" ("<REF>SCREEN1 with GROB header
|
|
|
|
|
+" "" "8229E" :RAM) "GROBSCR2" ("<REF>SCREEN2 with GROB header
|
|
|
|
|
+" "" "82B32" :RAM) "GROBSCR3" ("<REF>SCREEN3 with GROB header
|
|
|
|
|
+" "" "833C6" :RAM) "GROBSCR4" ("<REF>SCREEN4 with GROB header
|
|
|
|
|
+" "" "83C5A" :RAM) "GROBSCR5" ("<REF>SCREEN5 with GROB header
|
|
|
|
|
+" "" "844EE" :RAM) "GreyOn?" ("Zero if greyscale on (1)
|
|
|
|
|
+" "If this is set to zero the
|
|
|
|
|
+interrupt system will display in
|
|
|
|
|
+greyscale, by showing each of
|
|
|
|
|
+GreyScrN/GreySoftN for one screen
|
|
|
|
|
+refresh. Note that the entries
|
|
|
|
|
+for PrintLCD use the same memory
|
|
|
|
|
+area!
|
|
|
|
|
+" "8069C" :RAM) "GreyScr1" ("->1st greyscale screen
|
|
|
|
|
+" "" "8069D" :RAM) "GreyScr2" ("->2nd greyscale screen
|
|
|
|
|
+" "" "806A7" :RAM) "GreyScr3" ("->3rd greyscale screen
|
|
|
|
|
+" "" "806B1" :RAM) "GreySoft1" ("->1st greyscale menu
|
|
|
|
|
+" "" "806A2" :RAM) "GreySoft2" ("->2nd greyscale menu
|
|
|
|
|
+" "" "806AC" :RAM) "GreySoft4" ("->3rd greyscale menu
|
|
|
|
|
+" "" "806B6" :RAM) "ECRAN" ("Space for one screen (2176)
|
|
|
|
|
+" "" "822B2" :RAM) "SCREEN1" ("Space for one screen (2176)
|
|
|
|
|
+" "" "822B2" :RAM) "SCREEN2" ("<REF>SCREEN1
|
|
|
|
|
+" "" "82B46" :RAM) "SCREEN3" ("<REF>SCREEN1
|
|
|
|
|
+" "" "833DA" :RAM) "SCREEN4" ("<REF>SCREEN1
|
|
|
|
|
+" "" "83C6E" :RAM) "SCREEN5" ("Extra screen used by <REF>DBUG (2176)
|
|
|
|
|
+" "" "84502" :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 <REF>VDISP
|
|
|
|
|
+" "" "806DF" :RAM) "ANNUNCIATORS" ("Annunciator flags (2)
|
|
|
|
|
+" "" "80F00" :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" ("<REF>R1[A]save (5)
|
|
|
|
|
+" "" "806BA" :RAM) "R2[S]save" ("<REF>R1[A]save (1)
|
|
|
|
|
+" "" "806BF" :RAM) "SavTEMPENV" ("Backup of <REF>TEMPENV
|
|
|
|
|
+" "" "81269" :RAM) "SAUV_80702" ("Backup of <REF>TEMPENV
|
|
|
|
|
+" "" "81269" :RAM) "SavFIRSTCHAR" ("Backup of <REF>FIRSTCHAR
|
|
|
|
|
+" "" "8126E" :RAM) "SAUV_80865" ("Backup of <REF>FIRSTCHAR
|
|
|
|
|
+" "" "8126E" :RAM) "SavChars" ("Used by CHARS (31)
|
|
|
|
|
+" "" "818CF" :RAM) "SAUV_CHARS" ("Used by CHARS (31)
|
|
|
|
|
+" "" "818CF" :RAM) "SavMisc" ("Free area (128)
|
|
|
|
|
+" "" "8221D" :RAM) "SAUV_DIVERS" ("Free area (128)
|
|
|
|
|
+" "" "8221D" :RAM) "SavMatrix" ("Used by MTRW (40)
|
|
|
|
|
+" "" "81278" :RAM) "SAUV_MATRIX" ("Used by MTRW (40)
|
|
|
|
|
+" "" "81278" :RAM) "SavRegA" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818F3" :RAM) "SAUV_REGA" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818F3" :RAM) "SavRegB" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818F8" :RAM) "SAUV_REGB" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818F8" :RAM) "SavRegC" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818FD" :RAM) "SAUV_REGC" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "818FD" :RAM) "SavRegD" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "81902" :RAM) "SAUV_REGD" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "81902" :RAM) "SavRegD1" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "81907" :RAM) "SAUV_REGD1" ("Used by <REF>DBUG (5)
|
|
|
|
|
+" "" "81907" :RAM) "SavRegisters" ("Used by <REF>DBUG (101)
|
|
|
|
|
+" "" "8190C" :RAM) "SAUV_REGISTR" ("Used by <REF>DBUG (101)
|
|
|
|
|
+" "" "8190C" :RAM) "SAVECLK" ("Save of CLKON state (1)
|
|
|
|
|
+" "" "80EF0" :RAM) "SAVECROSS" ("cursor moves in plotting (10)
|
|
|
|
|
+" "" "80FB7" :RAM) "SAVE_A" ("<REF>INTRAM (16)
|
|
|
|
|
+" "" "805F5" :RAM) "SAVE_B" ("<REF>INTRAM (16)
|
|
|
|
|
+" "" "80608" :RAM) "SAVE_C[A]" ("<REF>INTRAM (5)
|
|
|
|
|
+" "" "805F0" :RAM) "SAVE_BO" ("Save BitOffset (1)
|
|
|
|
|
+" "" "806C5" :RAM) "SAVE_D" ("<REF>INTRAM (16)
|
|
|
|
|
+" "" "80618" :RAM) "SAVE_D0" ("<REF>INTRAM (5)
|
|
|
|
|
+" "" "8063D" :RAM) "SAVE_LC" ("Save LineCount (2)
|
|
|
|
|
+" "" "806C6" :RAM) "SAVE_LN" ("Save LineNibs (3)
|
|
|
|
|
+" "" "806C8" :RAM) "SAVE_MODES" ("<REF>INTRAM (5)
|
|
|
|
|
+" "" "805EB" :RAM) "SAVE_OFFSET" ("Save Window Offset (5)
|
|
|
|
|
+" "" "806CB" :RAM) "SAVE_PC" ("<REF>INTRAM (5)
|
|
|
|
|
+" "" "80638" :RAM) "SAVE_R0" ("<REF>INTRAM (16)
|
|
|
|
|
+" "" "80628" :RAM) "SAVE_ST" ("<REF>INTRAM (3)
|
|
|
|
|
+" "" "80605" :RAM) "Stk0save" ("RSTK0 used by PrintLCD inside
|
|
|
|
|
+the interrupt sys (5)
|
|
|
|
|
+" "" "8069C" :RAM) "Stk1save" ("RSTK1 <REF>Stk0save (5)
|
|
|
|
|
+" "" "806A1" :RAM) "Stk2save" ("RSTK2 <REF>Stk0save (5)
|
|
|
|
|
+" "" "806A6" :RAM) "Stk3save" ("RSTK3 <REF>Stk0save (5)
|
|
|
|
|
+" "" "806AB" :RAM) "Stk4save" ("RSTK4 <REF>Stk0save (5)
|
|
|
|
|
+" "" "806B0" :RAM) "Stk5save" ("RSTK5 <REF>Stk0save (5)
|
|
|
|
|
+" "" "806B5" :RAM) "FLAG_SYSTEM2" ("Metakernel system flags (16)
|
|
|
|
|
+" "For compatibility only.
|
|
|
|
|
+" "80F12" :RAM) "FLAG_USER2" ("Metakernel system flags (16)
|
|
|
|
|
+" "Dito.
|
|
|
|
|
+" "80F32" :RAM) "SystemFlags" ("128 System flags (16)
|
|
|
|
|
+" "" "80F02" :RAM) "UserFlags" ("128 User Flags (16)
|
|
|
|
|
+" "" "80F22" :RAM) "SysNib1" ("ISysFlags 1
|
|
|
|
|
+" "" "80EC0" :RAM) "NoRolDA2MASK" ("DA2 can't be rolled up to become
|
|
|
|
|
+valid <REF>SysNib1
|
|
|
|
|
+" "" "001C0" :RAM) "AbbrStkMASK" ("Display obj types only
|
|
|
|
|
+<REF>SysNib1
|
|
|
|
|
+" "" "002C0" :RAM) "DA2bIsEdMASK" ("DA2b shows the edit line
|
|
|
|
|
+<REF>SysNib1
|
|
|
|
|
+" "" "004C0" :RAM) "IgnorAlmMASK" ("Ignore <REF>ALARMSDUE in <REF>GETKEY
|
|
|
|
|
+<REF>SysNib1
|
|
|
|
|
+" "" "008C0" :RAM) "SysNib2" ("ISysFlags 2
|
|
|
|
|
+" "" "80EC1" :RAM) "ReqClkOnMASK" ("Flag for System Request of CLKON
|
|
|
|
|
+state <REF>SysNib2
|
|
|
|
|
+" "" "001C1" :RAM) "ServModeMASK" ("Server mode on <REF>SysNib2
|
|
|
|
|
+" "" "002C1" :RAM) "TrackMASK" ("New context needs to be compared
|
|
|
|
|
+with old <REF>SysNib2
|
|
|
|
|
+" "" "004C1" :RAM) "BadMenuMASK" ("Menu system corrupt <REF>SysNib2
|
|
|
|
|
+" "" "008C1" :RAM) "SysNib3" ("ISysFlags 3
|
|
|
|
|
+" "" "80EC2" :RAM) "UNDOMASK" ("Automatic stack save <REF>SysNib3
|
|
|
|
|
+" "" "001C2" :RAM) "INSERTMASK" ("Insert/replace mode <REF>SysNib3
|
|
|
|
|
+" "" "002C2" :RAM) "ALGMASK" ("Algebraic entry mode <REF>SysNib3
|
|
|
|
|
+" "" "004C2" :RAM) "PRINTINGMASK" ("<REF>SysNib3
|
|
|
|
|
+" "" "008C2" :RAM) "SysNib4" ("ISysFlags 4
|
|
|
|
|
+" "" "80EC3" :RAM) "DA2aTempMASK" ("DA2a temporarily valid <REF>SysNib4
|
|
|
|
|
+" "" "001C3" :RAM) "DA2bTempMASK" ("DA2b temporarily valid <REF>SysNib4
|
|
|
|
|
+" "" "002C3" :RAM) "DA3TempMASK" ("DA3 temporarily valid <REF>SysNib4
|
|
|
|
|
+" "" "004C3" :RAM) "RebuildMASK" ("Menu requires TOUCHTAB rebuild
|
|
|
|
|
+each time it is redisplayed
|
|
|
|
|
+<REF>SysNib4
|
|
|
|
|
+" "" "008C3" :RAM) "SysNib5" ("ISysFlags 5
|
|
|
|
|
+" "" "80EC4" :RAM) "COMMANDMASK" ("CMD history enabled <REF>SysNib5
|
|
|
|
|
+" "" "001C4" :RAM) "BLINKMASK" ("Active Timer1 Int's <REF>SysNib5
|
|
|
|
|
+" "" "002C4" :RAM) "LOWERMASK" ("Lowercase keys <REF>SysNib5
|
|
|
|
|
+" "" "004C4" :RAM) "STKDCMASK" ("Decompilation for stack display
|
|
|
|
|
+(not editing) <REF>SysNib5
|
|
|
|
|
+" "" "008C4" :RAM) "SysNib6" ("ISysFlags 6
|
|
|
|
|
+" "" "80EC5" :RAM) "Do1UserMASK" ("One-key user mode <REF>SysNib6
|
|
|
|
|
+" "" "001C5" :RAM) "ASuspOKMASK" ("Suspending current environment
|
|
|
|
|
+is allowed <REF>SysNib6
|
|
|
|
|
+" "" "002C5" :RAM) "BadPOLUIMASK" ("POL UI possibly corrupt <REF>SysNib6
|
|
|
|
|
+" "" "004C5" :RAM) "DA1TempMASK" ("DA1 temporarily valid <REF>SysNib6
|
|
|
|
|
+" "" "008C5" :RAM) "SysNib7" ("ISysFlags 7
|
|
|
|
|
+" "" "80EC6" :RAM) "DA1ValidMASK" ("DA1 known to be valid <REF>SysNib7
|
|
|
|
|
+" "" "001C6" :RAM) "DA2aValdMASK" ("DA2a known to be valid <REF>SysNib7
|
|
|
|
|
+" "" "002C6" :RAM) "DA2bValdMASK" ("DA2b known to be valid <REF>SysNib7
|
|
|
|
|
+" "" "004C6" :RAM) "DA3ValidMASK" ("DA3 known to be valid <REF>SysNib7
|
|
|
|
|
+" "" "008C6" :RAM) "SysNib8" ("ISysFlags 8
|
|
|
|
|
+" "" "80EC7" :RAM) "DA1NoChMASK" ("DA1 not changed <REF>SysNib8
|
|
|
|
|
+" "" "001C7" :RAM) "DA2aNoChMASK" ("DA2a not changed <REF>SysNib8
|
|
|
|
|
+" "" "002C7" :RAM) "DA2bNoChMASK" ("DA2b not changed <REF>SysNib8
|
|
|
|
|
+" "" "004C7" :RAM) "DA3NoChMASK" ("DA3 not changed <REF>SysNib8
|
|
|
|
|
+" "" "008C7" :RAM) "SysNib9" ("ISysFlags 9
|
|
|
|
|
+" "" "80EC8" :RAM) "DA1BadMASK" ("DA1 invalid <REF>SysNib9
|
|
|
|
|
+" "" "001C8" :RAM) "DA2aBadMASK" ("DA2a invalid <REF>SysNib9
|
|
|
|
|
+" "" "002C8" :RAM) "DA2bBadMASK" ("DA2b invalid <REF>SysNib9
|
|
|
|
|
+" "" "004C8" :RAM) "DA3BadMASK" ("DA3 invalid <REF>SysNib9
|
|
|
|
|
+" "" "008C8" :RAM) "EDITLFLAG" ("ISysFlags 10
|
|
|
|
|
+" "" "80EC9" :RAM) "EDITFLAG" ("ISysFlags 10
|
|
|
|
|
+" "" "80EC9" :RAM) "SysNib10" ("ISysFlags 10
|
|
|
|
|
+" "" "80EC9" :RAM) "EDITLMASK" ("Edit line exists <REF>SysNib10
|
|
|
|
|
+" "" "001C9" :RAM) "NAppKeyMASK" ("Non-app keys allowed in POL <REF>SysNib10
|
|
|
|
|
+" "" "002C9" :RAM) "NUsrKeyMASK" ("Non-user keys allowed in USR mode
|
|
|
|
|
+<REF>SysNib10
|
|
|
|
|
+" "" "004C9" :RAM) "AppModeMASK" ("POL application running <REF>SysNib10
|
|
|
|
|
+" "" "008C9" :RAM) "ParenModFLAG" ("ISysFlags 11
|
|
|
|
|
+" "" "80ECA" :RAM) "SysNib11" ("ISysFlags 11
|
|
|
|
|
+" "" "80ECA" :RAM) "ParenModMASK" ("Implicit parenthesized \"/\", \"^\",
|
|
|
|
|
+and \"SQRT\" in EQW <REF>SysNib11
|
|
|
|
|
+" "" "001CA" :RAM) "1PDCMASK" ("Partial DeCompile info will not
|
|
|
|
|
+be saved <REF>SysNib11
|
|
|
|
|
+" "" "002CA" :RAM) "NewEditLMASK" ("New one-line edit line has been
|
|
|
|
|
+created <REF>SysNib11
|
|
|
|
|
+" "" "004CA" :RAM) "DoStdKeyMASK" ("Do only standard keys <REF>SysNib11
|
|
|
|
|
+" "" "008CA" :RAM) "SysNib12" ("ISysFlags 12
|
|
|
|
|
+" "" "80ECB" :RAM) "DispTimeMASK" ("Status bar clock may be displayed
|
|
|
|
|
+<REF>SysNib12
|
|
|
|
|
+" "" "001CB" :RAM) "NOP2MASK12" ("unused <REF>SysNib12
|
|
|
|
|
+" "" "002CB" :RAM) "CaseSensitiv" ("unused <REF>SysNib12
|
|
|
|
|
+" "" "004CB" :RAM) "SpeedMASK" ("Metakernel repeat speed <REF>SysNib12
|
|
|
|
|
+" "" "008CB" :RAM) "SysNib13" ("ISysFlags 13
|
|
|
|
|
+" "" "80ECC" :RAM) "InApletMASK" ("Aplet running <REF>SysNib13
|
|
|
|
|
+" "" "001CC" :RAM) "SplitMASK" ("<REF>SysNib13
|
|
|
|
|
+" "" "002CC" :RAM) "RightMASK" ("<REF>SysNib13
|
|
|
|
|
+" "" "004CC" :RAM) "CurTknMASK" ("<REF>SysNib13
|
|
|
|
|
+" "" "008CC" :RAM) "SysNib14" ("
|
|
|
|
|
+" "" "80ECD" :RAM) "SizeMLDisp" ("
|
|
|
|
|
+" "" "80ECD" :RAM) "SysNib15" ("ISysFlags 15
|
|
|
|
|
+" "" "80ECE" :RAM) "NOP1MASK15" ("TOL UI potentially corrupt
|
|
|
|
|
+<REF>SysNib15
|
|
|
|
|
+" "" "001CE" :RAM) "BadTOLUIMASK" ("TOL UI potentially corrupt
|
|
|
|
|
+<REF>SysNib15
|
|
|
|
|
+" "" "001CE" :RAM) "NOP2MASK15" ("EVAL-> will not create a list nor
|
|
|
|
|
+return NOVAL <REF>SysNib15
|
|
|
|
|
+" "" "002CE" :RAM) "NoAlgProcess" ("EVAL-> will not create a list nor
|
|
|
|
|
+return NOVAL <REF>SysNib15
|
|
|
|
|
+" "" "002CE" :RAM) "NOP4MASK15" ("<REF>SysNib15
|
|
|
|
|
+" "" "004CE" :RAM) "InSimplyExpr" ("<REF>SysNib15
|
|
|
|
|
+" "" "004CE" :RAM) "NOP8MASK15" ("<REF>SysNib15
|
|
|
|
|
+" "" "008CE" :RAM) "DoCreateMenu" ("<REF>SysNib15
|
|
|
|
|
+" "" "008CE" :RAM) "SysNib16" ("ISysFlags 16 (unused)
|
|
|
|
|
+" "" "80ECF" :RAM) "NOP1MASK16" ("<REF>SysNib16
|
|
|
|
|
+" "" "001CF" :RAM) "NOP2MASK16" ("<REF>SysNib16
|
|
|
|
|
+" "" "002CF" :RAM) "NOP4MASK16" ("<REF>SysNib16
|
|
|
|
|
+" "" "004CF" :RAM) "NOP8MASK16" ("<REF>SysNib16
|
|
|
|
|
+" "" "008CF" :RAM) "SysNib17" ("ISysFlags 17 (unused)
|
|
|
|
|
+" "" "80ED0" :RAM) "NOP1MASK17" ("<REF>SysNib17
|
|
|
|
|
+" "" "001D0" :RAM) "NOP2MASK17" ("<REF>SysNib17
|
|
|
|
|
+" "" "002D0" :RAM) "NOP4MASK17" ("<REF>SysNib17
|
|
|
|
|
+" "" "004D0" :RAM) "NOP8MASK17" ("<REF>SysNib17
|
|
|
|
|
+" "" "008D0" :RAM) "SysNib18" ("ISysFlags 18 (unused)
|
|
|
|
|
+" "" "80ED1" :RAM) "NOP1MASK18" ("<REF>SysNib18
|
|
|
|
|
+" "" "001D1" :RAM) "NOP2MASK18" ("<REF>SysNib18
|
|
|
|
|
+" "" "002D1" :RAM) "NOP4MASK18" ("<REF>SysNib18
|
|
|
|
|
+" "" "004D1" :RAM) "NOP8MASK18" ("<REF>SysNib18
|
|
|
|
|
+" "" "008D1" :RAM) "SysNib19" ("ISysFlags 19 (unused)
|
|
|
|
|
+" "" "80ED2" :RAM) "NOP1MASK19" ("<REF>SysNib19
|
|
|
|
|
+" "" "001D2" :RAM) "NOP2MASK19" ("<REF>SysNib19
|
|
|
|
|
+" "" "002D2" :RAM) "NOP4MASK19" ("<REF>SysNib19
|
|
|
|
|
+" "" "004D2" :RAM) "NOP8MASK19" ("<REF>SysNib19
|
|
|
|
|
+" "" "008D2" :RAM) "SysNib20" ("ISysFlags 20 (unused)
|
|
|
|
|
+" "" "80ED3" :RAM) "NOP1MASK20" ("<REF>SysNib20
|
|
|
|
|
+" "" "001D3" :RAM) "NOP2MASK20" ("<REF>SysNib20
|
|
|
|
|
+" "" "002D3" :RAM) "NOP4MASK20" ("<REF>SysNib20
|
|
|
|
|
+" "" "004D3" :RAM) "NOP8MASK20" ("<REF>SysNib20
|
|
|
|
|
+" "" "008D3" :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" ("<REF>FAILSTK1 2nd entry (18)
|
|
|
|
|
+" "" "80022" :RAM) "FAILSTK3" ("<REF>FAILSTK1 3rd entry (18)
|
|
|
|
|
+" "" "80034" :RAM) "FAILSTK4" ("<REF>FAILSTK1 4th entry (18)
|
|
|
|
|
+" "" "80046" :RAM) "BEG" ("Absolute BEGIN in CommandLine (5)
|
|
|
|
|
+" "" "810B6" :RAM) "BEGIN_REL" ("Relative BEGIN in CommandLine (5)
|
|
|
|
|
+" "" "810A2" :RAM) "BEGX" ("X position of BEGIN (5)
|
|
|
|
|
+" "" "810AC" :RAM) "CheckCLE" ("Checksum of cmd line (5)
|
|
|
|
|
+" "" "81273" :RAM) "CHECK_TEXTE" ("Checksum of cmd line (5)
|
|
|
|
|
+" "" "81273" :RAM) "CHECK_VAL" ("Backup of the size of the cmd
|
|
|
|
|
+line (5)
|
|
|
|
|
+" "" "8125F" :RAM) "CHECK_VAL2" ("Checksum of the key cmd line
|
|
|
|
|
+definition (5)
|
|
|
|
|
+" "" "81264" :RAM) "CR_COUNT" ("# of newlines in editline (5)
|
|
|
|
|
+" "" "80F49" :RAM) "CURSOREPOSN" ("Cursor editline position (5)
|
|
|
|
|
+" "" "80F61" :RAM) "CURSOR" ("Cursor editline position (5)
|
|
|
|
|
+" "" "80F61" :RAM) "CURSORCHR" ("Char under Cursor (2)
|
|
|
|
|
+" "" "80F6E" :RAM) "CURSORGROB" ("Cursor Grob Data (40)
|
|
|
|
|
+" "" "80F70" :RAM) "CURSORPOSN" ("Cursor position from left of
|
|
|
|
|
+screen (2)
|
|
|
|
|
+" "" "80F6B" :RAM) "CURSOROFFSET" ("Cursor position from left of
|
|
|
|
|
+screen (2)
|
|
|
|
|
+" "" "80F6B" :RAM) "CURSORROW" ("Cursor display row (5)
|
|
|
|
|
+" "" "80F66" :RAM) "CURSORPART" ("Cursor display row (5)
|
|
|
|
|
+" "" "80F66" :RAM) "CURSORSTATE" ("Show cursor/char underneath (1)
|
|
|
|
|
+" "" "80F6D" :RAM) "CURSORX" ("Pxl X-Coord of Cursor (5)
|
|
|
|
|
+" "" "80F98" :RAM) "CURSORY" ("Pxl Y-Coord of Cursor (5)
|
|
|
|
|
+" "" "80F9D" :RAM) "EDITLINE" ("->Command line
|
|
|
|
|
+" "" "806FD" :RAM) "END" ("Absolute END in CmdLine
|
|
|
|
|
+" "" "810BB" :RAM) "ENDX" ("Y Position of END
|
|
|
|
|
+" "" "810B1" :RAM) "END_REL" ("Relative END in CmdLine
|
|
|
|
|
+" "" "810A7" :RAM) "T_ECRAN" ("Size of CmdLine screen
|
|
|
|
|
+" "" "810C0" :RAM) "SizeCLScreen" ("Size of CmdLine screen
|
|
|
|
|
+" "" "810C0" :RAM) "AppCount" ("# of nested POLs (2)
|
|
|
|
|
+" "" "80ED4" :RAM) "AppCursor" ("->App cursor sub-programs
|
|
|
|
|
+" "" "807DE" :RAM) "AppDisplay" ("->App display object
|
|
|
|
|
+" "" "807C0" :RAM) "AppDoKeyOb" ("->App DoKeyOb procedure for POL
|
|
|
|
|
+" "" "807E3" :RAM) "AppError" ("->App error handler
|
|
|
|
|
+" "" "807CF" :RAM) "AppExitCond" ("->App exit condition
|
|
|
|
|
+" "" "807CA" :RAM) "AppKeys" ("->App key assignments
|
|
|
|
|
+" "" "807C5" :RAM) "AppResume" ("->App resume procedure of POL
|
|
|
|
|
+" "" "807D9" :RAM) "AppSuspend" ("->App suspend procedure of POL
|
|
|
|
|
+" "" "807D4" :RAM) "TopicVar1" ("->generic topic var 1
|
|
|
|
|
+" "" "8086A" :RAM :NOSDIAG) "TopicVar2" ("->generic topic var 2
|
|
|
|
|
+" "" "8086F" :RAM :NOSDIAG) "TopicVar3" ("->generic topic var 3
|
|
|
|
|
+" "" "80874" :RAM :NOSDIAG) "TopicVar4" ("->generic topic var 4
|
|
|
|
|
+" "" "80879" :RAM :NOSDIAG) "TopicVar5" ("->generic topic var 5
|
|
|
|
|
+" "" "8087E" :RAM :NOSDIAG) "TopicVar6" ("->generic topic var 6
|
|
|
|
|
+" "" "80883" :RAM :NOSDIAG) "TopicVar7" ("->generic topic var 7
|
|
|
|
|
+" "" "80888" :RAM :NOSDIAG) "TopicVar8" ("->generic topic var 8
|
|
|
|
|
+" "" "8088D" :RAM :NOSDIAG) "TopicVar9" ("->generic topic var 9
|
|
|
|
|
+" "" "80892" :RAM :NOSDIAG) "TopicVar10" ("->generic topic var 10
|
|
|
|
|
+" "" "80897" :RAM :NOSDIAG) "TopicVar11" ("->generic topic var 11
|
|
|
|
|
+" "" "8089C" :RAM :NOSDIAG) "TopicVar12" ("->generic topic var 12
|
|
|
|
|
+" "" "808A1" :RAM :NOSDIAG) "TopicVar13" ("->generic topic var 13
|
|
|
|
|
+" "" "808A6" :RAM :NOSDIAG) "TopicVar14" ("->generic topic var 14
|
|
|
|
|
+" "" "808AB" :RAM :NOSDIAG) "TopicVar15" ("->generic topic var 15
|
|
|
|
|
+" "" "808B0" :RAM :NOSDIAG) "TopicVar16" ("->generic topic var 16
|
|
|
|
|
+" "" "808B5" :RAM :NOSDIAG) "TopicVar17" ("->generic topic var 17
|
|
|
|
|
+" "" "808BA" :RAM :NOSDIAG) "TopicVar18" ("->generic topic var 18
|
|
|
|
|
+" "" "808BF" :RAM :NOSDIAG) "TopicVar19" ("->generic topic var 19
|
|
|
|
|
+" "" "808C4" :RAM :NOSDIAG) "TopicVar20" ("->generic topic var 20
|
|
|
|
|
+" "" "808C9" :RAM :NOSDIAG) "TopicVar21" ("->generic topic var 21
|
|
|
|
|
+" "" "808CE" :RAM :NOSDIAG) "TopicVar22" ("->generic topic var 22
|
|
|
|
|
+" "" "808D3" :RAM :NOSDIAG) "TopicVar23" ("->generic topic var 23
|
|
|
|
|
+" "" "808D8" :RAM :NOSDIAG) "TopicVar24" ("->generic topic var 24
|
|
|
|
|
+" "" "808DD" :RAM :NOSDIAG) "TopicVar25" ("->generic topic var 25
|
|
|
|
|
+" "" "808E2" :RAM :NOSDIAG) "TopicVar26" ("->generic topic var 26
|
|
|
|
|
+" "" "808E7" :RAM :NOSDIAG) "TopicVar27" ("->generic topic var 27
|
|
|
|
|
+" "" "808EC" :RAM :NOSDIAG) "TopicVar28" ("->generic topic var 28
|
|
|
|
|
+" "" "808F1" :RAM :NOSDIAG) "TopicVar29" ("->generic topic var 29
|
|
|
|
|
+" "" "808F6" :RAM :NOSDIAG) "TopicVar30" ("->generic topic var 30
|
|
|
|
|
+" "" "808FB" :RAM :NOSDIAG) "TopicVar31" ("->generic topic var 31
|
|
|
|
|
+" "" "80900" :RAM :NOSDIAG) "TopicVar32" ("->generic topic var 32
|
|
|
|
|
+" "" "80905" :RAM :NOSDIAG) "TopicVar33" ("->generic topic var 33
|
|
|
|
|
+" "" "8090A" :RAM :NOSDIAG) "TopicVar34" ("->generic topic var 34
|
|
|
|
|
+" "" "8090F" :RAM :NOSDIAG) "TopicVar35" ("->generic topic var 35
|
|
|
|
|
+" "" "80914" :RAM :NOSDIAG) "TopicVar36" ("->generic topic var 36
|
|
|
|
|
+" "" "80919" :RAM :NOSDIAG) "TopicVar37" ("->generic topic var 37
|
|
|
|
|
+" "" "8091E" :RAM :NOSDIAG) "TopicVar38" ("->generic topic var 38
|
|
|
|
|
+" "" "80923" :RAM :NOSDIAG) "TopicVar39" ("->generic topic var 39
|
|
|
|
|
+" "" "80928" :RAM :NOSDIAG) "TopicVar40" ("->generic topic var 40
|
|
|
|
|
+" "" "8092D" :RAM :NOSDIAG) "TopicVar41" ("->generic topic var 41
|
|
|
|
|
+" "" "80932" :RAM :NOSDIAG) "TopicVar42" ("->generic topic var 42
|
|
|
|
|
+" "" "80937" :RAM :NOSDIAG) "TopicVar43" ("->generic topic var 43
|
|
|
|
|
+" "" "8093C" :RAM :NOSDIAG) "TopicVar44" ("->generic topic var 44
|
|
|
|
|
+" "" "80941" :RAM :NOSDIAG) "TopicVar45" ("->generic topic var 45
|
|
|
|
|
+" "" "80946" :RAM :NOSDIAG) "TopicVar46" ("->generic topic var 46
|
|
|
|
|
+" "" "8094B" :RAM :NOSDIAG) "TopicVar47" ("->generic topic var 47
|
|
|
|
|
+" "" "80950" :RAM :NOSDIAG) "TopicVar48" ("->generic topic var 48
|
|
|
|
|
+" "" "80955" :RAM :NOSDIAG) "TopicVar49" ("->generic topic var 49
|
|
|
|
|
+" "" "8095A" :RAM :NOSDIAG) "TopicVar50" ("->generic topic var 50
|
|
|
|
|
+" "" "8095F" :RAM :NOSDIAG) "TopicVar51" ("->generic topic var 51
|
|
|
|
|
+" "" "80964" :RAM :NOSDIAG) "TopicVar52" ("->generic topic var 52
|
|
|
|
|
+" "" "80969" :RAM :NOSDIAG) "TopicVar53" ("->generic topic var 53
|
|
|
|
|
+" "" "8096E" :RAM :NOSDIAG) "TopicVar54" ("->generic topic var 54
|
|
|
|
|
+" "" "80973" :RAM :NOSDIAG) "TopicVar55" ("->generic topic var 55
|
|
|
|
|
+" "" "80978" :RAM :NOSDIAG) "TopicVar56" ("->generic topic var 56
|
|
|
|
|
+" "" "8097D" :RAM :NOSDIAG) "TopicVar57" ("->generic topic var 57
|
|
|
|
|
+" "" "80982" :RAM :NOSDIAG) "TopicVar58" ("->generic topic var 58
|
|
|
|
|
+" "" "80987" :RAM :NOSDIAG) "TopicVar59" ("->generic topic var 59
|
|
|
|
|
+" "" "8098C" :RAM :NOSDIAG) "TopicVar60" ("->generic topic var 60
|
|
|
|
|
+" "" "80991" :RAM :NOSDIAG) "TopicVar61" ("->generic topic var 61
|
|
|
|
|
+" "" "80996" :RAM :NOSDIAG) "TopicVar62" ("->generic topic var 62
|
|
|
|
|
+" "" "8099B" :RAM :NOSDIAG) "TopicVar63" ("->generic topic var 63
|
|
|
|
|
+" "" "809A0" :RAM :NOSDIAG) "TopicVar64" ("->generic topic var 64
|
|
|
|
|
+" "" "809A5" :RAM :NOSDIAG) "TopicVar65" ("->generic topic var 65
|
|
|
|
|
+" "" "809AA" :RAM :NOSDIAG) "TopicVar66" ("->generic topic var 66
|
|
|
|
|
+" "" "809AF" :RAM :NOSDIAG) "TopicVar67" ("->generic topic var 67
|
|
|
|
|
+" "" "809B4" :RAM :NOSDIAG) "TopicVar68" ("->generic topic var 68
|
|
|
|
|
+" "" "809B9" :RAM :NOSDIAG) "TopicVar69" ("->generic topic var 69
|
|
|
|
|
+" "" "809BE" :RAM :NOSDIAG) "TopicVar70" ("->generic topic var 70
|
|
|
|
|
+" "" "809C3" :RAM :NOSDIAG) "TopicVar71" ("->generic topic var 71
|
|
|
|
|
+" "" "809C8" :RAM :NOSDIAG) "TopicVar72" ("->generic topic var 72
|
|
|
|
|
+" "" "809CD" :RAM :NOSDIAG) "TopicVar73" ("->generic topic var 73
|
|
|
|
|
+" "" "809D2" :RAM :NOSDIAG) "TopicVar74" ("->generic topic var 74
|
|
|
|
|
+" "" "809D7" :RAM :NOSDIAG) "TopicVar75" ("->generic topic var 75
|
|
|
|
|
+" "" "809DC" :RAM :NOSDIAG) "TopicVar76" ("->generic topic var 76
|
|
|
|
|
+" "" "809E1" :RAM :NOSDIAG) "TopicVar77" ("->generic topic var 77
|
|
|
|
|
+" "" "809E6" :RAM :NOSDIAG) "TopicVar78" ("->generic topic var 78
|
|
|
|
|
+" "" "809EB" :RAM :NOSDIAG) "TopicVar79" ("->generic topic var 79
|
|
|
|
|
+" "" "809F0" :RAM :NOSDIAG) "TopicVar80" ("->generic topic var 80
|
|
|
|
|
+" "" "809F5" :RAM :NOSDIAG) "TopicVar81" ("->generic topic var 81
|
|
|
|
|
+" "" "809FA" :RAM :NOSDIAG) "TopicVar82" ("->generic topic var 82
|
|
|
|
|
+" "" "809FF" :RAM :NOSDIAG) "TopicVar83" ("->generic topic var 83
|
|
|
|
|
+" "" "80A04" :RAM :NOSDIAG) "TopicVar84" ("->generic topic var 84
|
|
|
|
|
+" "" "80A09" :RAM :NOSDIAG) "TopicVar85" ("->generic topic var 85
|
|
|
|
|
+" "" "80A0E" :RAM :NOSDIAG) "TopicVar86" ("->generic topic var 86
|
|
|
|
|
+" "" "80A13" :RAM :NOSDIAG) "TopicVar87" ("->generic topic var 87
|
|
|
|
|
+" "" "80A18" :RAM :NOSDIAG) "TopicVar88" ("->generic topic var 88
|
|
|
|
|
+" "" "80A1D" :RAM :NOSDIAG) "TopicVar89" ("->generic topic var 89
|
|
|
|
|
+" "" "80A22" :RAM :NOSDIAG) "TopicVar90" ("->generic topic var 90
|
|
|
|
|
+" "" "80A27" :RAM :NOSDIAG) "TopicVar91" ("->generic topic var 91
|
|
|
|
|
+" "" "80A2C" :RAM :NOSDIAG) "TopicVarNum" ("Number of TopicVars
|
|
|
|
|
+" "" "0005B" :RAM) "TOLVar1" ("->TOL var 1
|
|
|
|
|
+" "" "80A31" :RAM :NOSDIAG) "TOLVar2" ("->TOL var 2
|
|
|
|
|
+" "" "80A36" :RAM :NOSDIAG) "TOLVar3" ("->TOL var 3
|
|
|
|
|
+" "" "80A3B" :RAM :NOSDIAG) "TOLVar4" ("->TOL var 4
|
|
|
|
|
+" "" "80A40" :RAM :NOSDIAG) "TOLVar5" ("->TOL var 5
|
|
|
|
|
+" "" "80A45" :RAM :NOSDIAG) "TOLVar6" ("->TOL var 6
|
|
|
|
|
+" "" "80A4A" :RAM :NOSDIAG) "TOLVar7" ("->TOL var 7
|
|
|
|
|
+" "" "80A4F" :RAM :NOSDIAG) "TOLVar8" ("->TOL var 8
|
|
|
|
|
+" "" "80A54" :RAM :NOSDIAG) "TOLVar9" ("->TOL var 9
|
|
|
|
|
+" "" "80A59" :RAM :NOSDIAG) "TOLVar10" ("->TOL var 10
|
|
|
|
|
+" "" "80A5E" :RAM :NOSDIAG) "TOLVar11" ("->TOL var 11
|
|
|
|
|
+" "" "80A63" :RAM :NOSDIAG) "TOLVar12" ("->TOL var 12
|
|
|
|
|
+" "" "80A68" :RAM :NOSDIAG) "TOLVar13" ("->TOL var 13
|
|
|
|
|
+" "" "80A6D" :RAM :NOSDIAG) "TOLVar14" ("->TOL var 14
|
|
|
|
|
+" "" "80A72" :RAM :NOSDIAG) "TOLVar15" ("->TOL var 15
|
|
|
|
|
+" "" "80A77" :RAM :NOSDIAG) "TOLVar16" ("->TOL var 16
|
|
|
|
|
+" "" "80A7C" :RAM :NOSDIAG) "TOLVar17" ("->TOL var 17
|
|
|
|
|
+" "" "80A81" :RAM :NOSDIAG) "TOLVar18" ("->TOL var 18
|
|
|
|
|
+" "" "80A86" :RAM :NOSDIAG) "TOLVar19" ("->TOL var 19
|
|
|
|
|
+" "" "80A8B" :RAM :NOSDIAG) "TOLVar20" ("->TOL var 20
|
|
|
|
|
+" "" "80A90" :RAM :NOSDIAG) "TOLVar21" ("->TOL var 21
|
|
|
|
|
+" "" "80A95" :RAM :NOSDIAG) "TOLVar22" ("->TOL var 22
|
|
|
|
|
+" "" "80A9A" :RAM :NOSDIAG) "TOLVar23" ("->TOL var 23
|
|
|
|
|
+" "" "80A9F" :RAM :NOSDIAG) "TOLVar24" ("->TOL var 24
|
|
|
|
|
+" "" "80AA4" :RAM :NOSDIAG) "TOLVar25" ("->TOL var 25
|
|
|
|
|
+" "" "80AA9" :RAM :NOSDIAG) "TOLVar26" ("->TOL var 26
|
|
|
|
|
+" "" "80AAE" :RAM :NOSDIAG) "TOLVar27" ("->TOL var 27
|
|
|
|
|
+" "" "80AB3" :RAM :NOSDIAG) "TOLVar28" ("->TOL var 28
|
|
|
|
|
+" "" "80AB8" :RAM :NOSDIAG) "TOLVar29" ("->TOL var 29
|
|
|
|
|
+" "" "80ABD" :RAM :NOSDIAG) "TOLVar30" ("->TOL var 30
|
|
|
|
|
+" "" "80AC2" :RAM :NOSDIAG) "TOLVar31" ("->TOL var 31
|
|
|
|
|
+" "" "80AC7" :RAM :NOSDIAG) "TOLVar32" ("->TOL var 32
|
|
|
|
|
+" "" "80ACC" :RAM :NOSDIAG) "TOLVar33" ("->TOL var 33
|
|
|
|
|
+" "" "80AD1" :RAM :NOSDIAG) "TOLVar34" ("->TOL var 34
|
|
|
|
|
+" "" "80AD6" :RAM :NOSDIAG) "TOLVar35" ("->TOL var 35
|
|
|
|
|
+" "" "80ADB" :RAM :NOSDIAG) "TOLVar36" ("->TOL var 36
|
|
|
|
|
+" "" "80AE0" :RAM :NOSDIAG) "TOLVar37" ("->TOL var 37
|
|
|
|
|
+" "" "80AE5" :RAM :NOSDIAG) "TOLVar38" ("->TOL var 38
|
|
|
|
|
+" "" "80AEA" :RAM :NOSDIAG) "TOLVar39" ("->TOL var 39
|
|
|
|
|
+" "" "80AEF" :RAM :NOSDIAG) "TOLVar40" ("->TOL var 40
|
|
|
|
|
+" "" "80AF4" :RAM :NOSDIAG) "TOLVar41" ("->TOL var 41
|
|
|
|
|
+" "" "80AF9" :RAM :NOSDIAG) "TOLVar42" ("->TOL var 42
|
|
|
|
|
+" "" "80AFE" :RAM :NOSDIAG) "TOLVar43" ("->TOL var 43
|
|
|
|
|
+" "" "80B03" :RAM :NOSDIAG) "TOLVar44" ("->TOL var 44
|
|
|
|
|
+" "" "80B08" :RAM :NOSDIAG) "TOLVar45" ("->TOL var 45
|
|
|
|
|
+" "" "80B0D" :RAM :NOSDIAG) "TOLVar46" ("->TOL var 46
|
|
|
|
|
+" "" "80B12" :RAM :NOSDIAG) "TOLVar47" ("->TOL var 47
|
|
|
|
|
+" "" "80B17" :RAM :NOSDIAG) "TOLVar48" ("->TOL var 48
|
|
|
|
|
+" "" "80B1C" :RAM :NOSDIAG) "TOLVar49" ("->TOL var 49
|
|
|
|
|
+" "" "80B21" :RAM :NOSDIAG) "TOLVar50" ("->TOL var 50
|
|
|
|
|
+" "" "80B26" :RAM :NOSDIAG) "TOLVar51" ("->TOL var 51
|
|
|
|
|
+" "" "80B2B" :RAM :NOSDIAG) "TOLVar52" ("->TOL var 52
|
|
|
|
|
+" "" "80B30" :RAM :NOSDIAG) "TOLVar53" ("->TOL var 53
|
|
|
|
|
+" "" "80B35" :RAM :NOSDIAG) "TOLVar54" ("->TOL var 54
|
|
|
|
|
+" "" "80B3A" :RAM :NOSDIAG) "TOLVar55" ("->TOL var 55
|
|
|
|
|
+" "" "80B3F" :RAM :NOSDIAG) "TOLVar56" ("->TOL var 56
|
|
|
|
|
+" "" "80B44" :RAM :NOSDIAG) "TOLVar57" ("->TOL var 57
|
|
|
|
|
+" "" "80B49" :RAM :NOSDIAG) "TOLVar58" ("->TOL var 58
|
|
|
|
|
+" "" "80B4E" :RAM :NOSDIAG) "TOLVar59" ("->TOL var 59
|
|
|
|
|
+" "" "80B53" :RAM :NOSDIAG) "TOLVar60" ("->TOL var 60
|
|
|
|
|
+" "" "80B58" :RAM :NOSDIAG) "TOLVar61" ("->TOL var 61
|
|
|
|
|
+" "" "80B5D" :RAM :NOSDIAG) "TOLVar62" ("->TOL var 62
|
|
|
|
|
+" "" "80B62" :RAM :NOSDIAG) "TOLVar63" ("->TOL var 63
|
|
|
|
|
+" "" "80B67" :RAM :NOSDIAG) "TOLVar64" ("->TOL var 64
|
|
|
|
|
+" "" "80B6C" :RAM :NOSDIAG) "TOLVar65" ("->TOL var 65
|
|
|
|
|
+" "" "80B71" :RAM :NOSDIAG) "TOLVar66" ("->TOL var 66
|
|
|
|
|
+" "" "80B76" :RAM :NOSDIAG) "TOLVar67" ("->TOL var 67
|
|
|
|
|
+" "" "80B7B" :RAM :NOSDIAG) "TOLVar68" ("->TOL var 68
|
|
|
|
|
+" "" "80B80" :RAM :NOSDIAG) "TOLVar69" ("->TOL var 69
|
|
|
|
|
+" "" "80B85" :RAM :NOSDIAG) "TOLVar70" ("->TOL var 70
|
|
|
|
|
+" "" "80B8A" :RAM :NOSDIAG) "TOLVar71" ("->TOL var 71
|
|
|
|
|
+" "" "80B8F" :RAM :NOSDIAG) "TOLVar72" ("->TOL var 72
|
|
|
|
|
+" "" "80B94" :RAM :NOSDIAG) "TOLVar73" ("->TOL var 73
|
|
|
|
|
+" "" "80B99" :RAM :NOSDIAG) "TOLVar74" ("->TOL var 74
|
|
|
|
|
+" "" "80B9E" :RAM :NOSDIAG) "TOLVar75" ("->TOL var 75
|
|
|
|
|
+" "" "80BA3" :RAM :NOSDIAG) "TOLVar76" ("->TOL var 76
|
|
|
|
|
+" "" "80BA8" :RAM :NOSDIAG) "TOLVar77" ("->TOL var 77
|
|
|
|
|
+" "" "80BAD" :RAM :NOSDIAG) "TOLVar78" ("->TOL var 78
|
|
|
|
|
+" "" "80BB2" :RAM :NOSDIAG) "TOLVar79" ("->TOL var 79
|
|
|
|
|
+" "" "80BB7" :RAM :NOSDIAG) "TOLVar80" ("->TOL var 80
|
|
|
|
|
+" "" "80BBC" :RAM :NOSDIAG) "TOLVar81" ("->TOL var 81
|
|
|
|
|
+" "" "80BC1" :RAM :NOSDIAG) "TOLVar82" ("->TOL var 82
|
|
|
|
|
+" "" "80BC6" :RAM :NOSDIAG) "TOLVar83" ("->TOL var 83
|
|
|
|
|
+" "" "80BCB" :RAM :NOSDIAG) "TOLVar84" ("->TOL var 84
|
|
|
|
|
+" "" "80BD0" :RAM :NOSDIAG) "TOLVar85" ("->TOL var 85
|
|
|
|
|
+" "" "80BD5" :RAM :NOSDIAG) "TOLVar86" ("->TOL var 86
|
|
|
|
|
+" "" "80BDA" :RAM :NOSDIAG) "TOLVar87" ("->TOL var 87
|
|
|
|
|
+" "" "80BDF" :RAM :NOSDIAG) "TOLVar88" ("->TOL var 88
|
|
|
|
|
+" "" "80BE4" :RAM :NOSDIAG) "TOLVar89" ("->TOL var 89
|
|
|
|
|
+" "" "80BE9" :RAM :NOSDIAG) "TOLVar90" ("->TOL var 90
|
|
|
|
|
+" "" "80BEE" :RAM :NOSDIAG) "TOLVar91" ("->TOL var 91
|
|
|
|
|
+" "" "80BF3" :RAM :NOSDIAG) "TOLVar92" ("->TOL var 92
|
|
|
|
|
+" "" "80BF8" :RAM :NOSDIAG) "TOLVar93" ("->TOL var 93
|
|
|
|
|
+" "" "80BFD" :RAM :NOSDIAG) "TOLVar94" ("->TOL var 94
|
|
|
|
|
+" "" "80C02" :RAM :NOSDIAG) "TOLVar95" ("->TOL var 95
|
|
|
|
|
+" "" "80C07" :RAM :NOSDIAG) "TOLVar96" ("->TOL var 96
|
|
|
|
|
+" "" "80C0C" :RAM :NOSDIAG) "TOLVar97" ("->TOL var 97
|
|
|
|
|
+" "" "80C11" :RAM :NOSDIAG) "TOLVar98" ("->TOL var 98
|
|
|
|
|
+" "" "80C16" :RAM :NOSDIAG) "TOLVar99" ("->TOL var 99
|
|
|
|
|
+" "" "80C1B" :RAM :NOSDIAG) "TOLVar100" ("->TOL var 100
|
|
|
|
|
+" "" "80C20" :RAM :NOSDIAG) "TOLVar101" ("->TOL var 101
|
|
|
|
|
+" "" "80C25" :RAM :NOSDIAG) "TOLVar102" ("->TOL var 102
|
|
|
|
|
+" "" "80C2A" :RAM :NOSDIAG) "TOLVar103" ("->TOL var 103
|
|
|
|
|
+" "" "80C2F" :RAM :NOSDIAG) "TOLVar104" ("->TOL var 104
|
|
|
|
|
+" "" "80C34" :RAM :NOSDIAG) "TOLVar105" ("->TOL var 105
|
|
|
|
|
+" "" "80C39" :RAM :NOSDIAG) "TOLVar106" ("->TOL var 106
|
|
|
|
|
+" "" "80C3E" :RAM :NOSDIAG) "TOLVar107" ("->TOL var 107
|
|
|
|
|
+" "" "80C43" :RAM :NOSDIAG) "TOLVar108" ("->TOL var 108
|
|
|
|
|
+" "" "80C48" :RAM :NOSDIAG) "TOLVar109" ("->TOL var 109
|
|
|
|
|
+" "" "80C4D" :RAM :NOSDIAG) "TOLVar110" ("->TOL var 110
|
|
|
|
|
+" "" "80C52" :RAM :NOSDIAG) "TOLVar111" ("->TOL var 111
|
|
|
|
|
+" "" "80C57" :RAM :NOSDIAG) "TOLVar112" ("->TOL var 112
|
|
|
|
|
+" "" "80C5C" :RAM :NOSDIAG) "TOLVar113" ("->TOL var 113
|
|
|
|
|
+" "" "80C61" :RAM :NOSDIAG) "TOLVar114" ("->TOL var 114
|
|
|
|
|
+" "" "80C66" :RAM :NOSDIAG) "TOLVar115" ("->TOL var 115
|
|
|
|
|
+" "" "80C6B" :RAM :NOSDIAG) "TOLVar116" ("->TOL var 116
|
|
|
|
|
+" "" "80C70" :RAM :NOSDIAG) "TOLVar117" ("->TOL var 117
|
|
|
|
|
+" "" "80C75" :RAM :NOSDIAG) "TOLVar118" ("->TOL var 118
|
|
|
|
|
+" "" "80C7A" :RAM :NOSDIAG) "TOLVar119" ("->TOL var 119
|
|
|
|
|
+" "" "80C7F" :RAM :NOSDIAG) "TOLVar120" ("->TOL var 120
|
|
|
|
|
+" "" "80C84" :RAM :NOSDIAG) "TOLVar121" ("->TOL var 121
|
|
|
|
|
+" "" "80C89" :RAM :NOSDIAG) "TOLVar122" ("->TOL var 122
|
|
|
|
|
+" "" "80C8E" :RAM :NOSDIAG) "TOLVar123" ("->TOL var 123
|
|
|
|
|
+" "" "80C93" :RAM :NOSDIAG) "TOLVar124" ("->TOL var 124
|
|
|
|
|
+" "" "80C98" :RAM :NOSDIAG) "TOLVar125" ("->TOL var 125
|
|
|
|
|
+" "" "80C9D" :RAM :NOSDIAG) "TOLVar126" ("->TOL var 126
|
|
|
|
|
+" "" "80CA2" :RAM :NOSDIAG) "TOLVar127" ("->TOL var 127
|
|
|
|
|
+" "" "80CA7" :RAM :NOSDIAG) "TOLVar128" ("->TOL var 128
|
|
|
|
|
+" "" "80CAC" :RAM :NOSDIAG) "TOLVar129" ("->TOL var 129
|
|
|
|
|
+" "" "80CB1" :RAM :NOSDIAG) "TOLVar130" ("->TOL var 130
|
|
|
|
|
+" "" "80CB6" :RAM :NOSDIAG) "TOLVar131" ("->TOL var 131
|
|
|
|
|
+" "" "80CBB" :RAM :NOSDIAG) "TOLVar132" ("->TOL var 132
|
|
|
|
|
+" "" "80CC0" :RAM :NOSDIAG) "TOLVar133" ("->TOL var 133
|
|
|
|
|
+" "" "80CC5" :RAM :NOSDIAG) "TOLVar134" ("->TOL var 134
|
|
|
|
|
+" "" "80CCA" :RAM :NOSDIAG) "TOLVar135" ("->TOL var 135
|
|
|
|
|
+" "" "80CCF" :RAM :NOSDIAG) "TOLVar136" ("->TOL var 136
|
|
|
|
|
+" "" "80CD4" :RAM :NOSDIAG) "TOLVar137" ("->TOL var 137
|
|
|
|
|
+" "" "80CD9" :RAM :NOSDIAG) "TOLVar138" ("->TOL var 138
|
|
|
|
|
+" "" "80CDE" :RAM :NOSDIAG) "TOLVar139" ("->TOL var 139
|
|
|
|
|
+" "" "80CE3" :RAM :NOSDIAG) "TOLVar140" ("->TOL var 140
|
|
|
|
|
+" "" "80CE8" :RAM :NOSDIAG) "TOLVar141" ("->TOL var 141
|
|
|
|
|
+" "" "80CED" :RAM :NOSDIAG) "TOLVar142" ("->TOL var 142
|
|
|
|
|
+" "" "80CF2" :RAM :NOSDIAG) "TOLVar143" ("->TOL var 143
|
|
|
|
|
+" "" "80CF7" :RAM :NOSDIAG) "TOLVar144" ("->TOL var 144
|
|
|
|
|
+" "" "80CFC" :RAM :NOSDIAG) "TOLVar145" ("->TOL var 145
|
|
|
|
|
+" "" "80D01" :RAM :NOSDIAG) "TOLVar146" ("->TOL var 146
|
|
|
|
|
+" "" "80D06" :RAM :NOSDIAG) "TOLVar147" ("->TOL var 147
|
|
|
|
|
+" "" "80D0B" :RAM :NOSDIAG) "TOLVar148" ("->TOL var 148
|
|
|
|
|
+" "" "80D10" :RAM :NOSDIAG) "TOLVar149" ("->TOL var 149
|
|
|
|
|
+" "" "80D15" :RAM :NOSDIAG) "TOLVar150" ("->TOL var 150
|
|
|
|
|
+" "" "80D1A" :RAM :NOSDIAG) "TOLVar151" ("->TOL var 151
|
|
|
|
|
+" "" "80D1F" :RAM :NOSDIAG) "TOLVar152" ("->TOL var 152
|
|
|
|
|
+" "" "80D24" :RAM :NOSDIAG) "TOLVar153" ("->TOL var 153
|
|
|
|
|
+" "" "80D29" :RAM :NOSDIAG) "TOLVar154" ("->TOL var 154
|
|
|
|
|
+" "" "80D2E" :RAM :NOSDIAG) "TOLVar155" ("->TOL var 155
|
|
|
|
|
+" "" "80D33" :RAM :NOSDIAG) "TOLVar156" ("->TOL var 156
|
|
|
|
|
+" "" "80D38" :RAM :NOSDIAG) "TOLVar157" ("->TOL var 157
|
|
|
|
|
+" "" "80D3D" :RAM :NOSDIAG) "TOLVar158" ("->TOL var 158
|
|
|
|
|
+" "" "80D42" :RAM :NOSDIAG) "TOLVar159" ("->TOL var 159
|
|
|
|
|
+" "" "80D47" :RAM :NOSDIAG) "TOLVar160" ("->TOL var 160
|
|
|
|
|
+" "" "80D4C" :RAM :NOSDIAG) "TOLVar161" ("->TOL var 161
|
|
|
|
|
+" "" "80D51" :RAM :NOSDIAG) "TOLVar162" ("->TOL var 162
|
|
|
|
|
+" "" "80D56" :RAM :NOSDIAG) "TOLVar163" ("->TOL var 163
|
|
|
|
|
+" "" "80D5B" :RAM :NOSDIAG) "TOLVar164" ("->TOL var 164
|
|
|
|
|
+" "" "80D60" :RAM :NOSDIAG) "TOLVar165" ("->TOL var 165
|
|
|
|
|
+" "" "80D65" :RAM :NOSDIAG) "TOLVar166" ("->TOL var 166
|
|
|
|
|
+" "" "80D6A" :RAM :NOSDIAG) "TOLVar167" ("->TOL var 167
|
|
|
|
|
+" "" "80D6F" :RAM :NOSDIAG) "TOLVar168" ("->TOL var 168
|
|
|
|
|
+" "" "80D74" :RAM :NOSDIAG) "TOLVar169" ("->TOL var 169
|
|
|
|
|
+" "" "80D79" :RAM :NOSDIAG) "TOLVar170" ("->TOL var 170
|
|
|
|
|
+" "" "80D7E" :RAM :NOSDIAG) "TOLVar171" ("->TOL var 171
|
|
|
|
|
+" "" "80D83" :RAM :NOSDIAG) "TOLVar172" ("->TOL var 172
|
|
|
|
|
+" "" "80D88" :RAM :NOSDIAG) "TOLVar173" ("->TOL var 173
|
|
|
|
|
+" "" "80D8D" :RAM :NOSDIAG) "TOLVar174" ("->TOL var 174
|
|
|
|
|
+" "" "80D92" :RAM :NOSDIAG) "TOLVar175" ("->TOL var 175
|
|
|
|
|
+" "" "80D97" :RAM :NOSDIAG) "TOLVar176" ("->TOL var 176
|
|
|
|
|
+" "" "80D9C" :RAM :NOSDIAG) "TOLVar177" ("->TOL var 177
|
|
|
|
|
+" "" "80DA1" :RAM :NOSDIAG) "TOLVar178" ("->TOL var 178
|
|
|
|
|
+" "" "80DA6" :RAM :NOSDIAG) "TOLVar179" ("->TOL var 179
|
|
|
|
|
+" "" "80DAB" :RAM :NOSDIAG) "TOLVar180" ("->TOL var 180
|
|
|
|
|
+" "" "80DB0" :RAM :NOSDIAG) "TOLVar181" ("->TOL var 181
|
|
|
|
|
+" "" "80DB5" :RAM :NOSDIAG) "TOLVar182" ("->TOL var 182
|
|
|
|
|
+" "" "80DBA" :RAM :NOSDIAG) "TOLVar183" ("->TOL var 183
|
|
|
|
|
+" "" "80DBF" :RAM :NOSDIAG) "TOLVar184" ("->TOL var 184
|
|
|
|
|
+" "" "80DC4" :RAM :NOSDIAG) "TOLVar185" ("->TOL var 185
|
|
|
|
|
+" "" "80DC9" :RAM :NOSDIAG) "TOLVar186" ("->TOL var 186
|
|
|
|
|
+" "" "80DCE" :RAM :NOSDIAG) "TOLVar187" ("->TOL var 187
|
|
|
|
|
+" "" "80DD3" :RAM :NOSDIAG) "TOLVar188" ("->TOL var 188
|
|
|
|
|
+" "" "80DD8" :RAM :NOSDIAG) "TOLVar189" ("->TOL var 189
|
|
|
|
|
+" "" "80DDD" :RAM :NOSDIAG) "TOLVar190" ("->TOL var 190
|
|
|
|
|
+" "" "80DE2" :RAM :NOSDIAG) "TOLVar191" ("->TOL var 191
|
|
|
|
|
+" "" "80DE7" :RAM :NOSDIAG) "TOLVar192" ("->TOL var 192
|
|
|
|
|
+" "" "80DEC" :RAM :NOSDIAG) "TOLVar193" ("->TOL var 193
|
|
|
|
|
+" "" "80DF1" :RAM :NOSDIAG) "TOLVar194" ("->TOL var 194
|
|
|
|
|
+" "" "80DF6" :RAM :NOSDIAG) "TOLVar195" ("->TOL var 195
|
|
|
|
|
+" "" "80DFB" :RAM :NOSDIAG) "TOLVar196" ("->TOL var 196
|
|
|
|
|
+" "" "80E00" :RAM :NOSDIAG) "TOLVar197" ("->TOL var 197
|
|
|
|
|
+" "" "80E05" :RAM :NOSDIAG) "TOLVar198" ("->TOL var 198
|
|
|
|
|
+" "" "80E0A" :RAM :NOSDIAG) "TOLVar199" ("->TOL var 199
|
|
|
|
|
+" "" "80E0F" :RAM :NOSDIAG) "TOLVar200" ("->TOL var 200
|
|
|
|
|
+" "" "80E14" :RAM :NOSDIAG) "TOLVar201" ("->TOL var 201
|
|
|
|
|
+" "" "80E19" :RAM :NOSDIAG) "TOLVar202" ("->TOL var 202
|
|
|
|
|
+" "" "80E1E" :RAM :NOSDIAG) "TOLVar203" ("->TOL var 203
|
|
|
|
|
+" "" "80E23" :RAM :NOSDIAG) "TOLVar204" ("->TOL var 204
|
|
|
|
|
+" "" "80E28" :RAM :NOSDIAG) "TOLVar205" ("->TOL var 205
|
|
|
|
|
+" "" "80E2D" :RAM :NOSDIAG) "TOLVar206" ("->TOL var 206
|
|
|
|
|
+" "" "80E32" :RAM :NOSDIAG) "TOLVar207" ("->TOL var 207
|
|
|
|
|
+" "" "80E37" :RAM :NOSDIAG) "TOLVar208" ("->TOL var 208
|
|
|
|
|
+" "" "80E3C" :RAM :NOSDIAG) "TOLVar209" ("->TOL var 209
|
|
|
|
|
+" "" "80E41" :RAM :NOSDIAG) "TOLVar210" ("->TOL var 210
|
|
|
|
|
+" "" "80E46" :RAM :NOSDIAG) "TOLVar211" ("->TOL var 211
|
|
|
|
|
+" "" "80E4B" :RAM :NOSDIAG) "TOLVar212" ("->TOL var 212
|
|
|
|
|
+" "" "80E50" :RAM :NOSDIAG) "TOLVar213" ("->TOL var 213
|
|
|
|
|
+" "" "80E55" :RAM :NOSDIAG) "TOLVar214" ("->TOL var 214
|
|
|
|
|
+" "" "80E5A" :RAM :NOSDIAG) "TOLVar215" ("->TOL var 215
|
|
|
|
|
+" "" "80E5F" :RAM :NOSDIAG) "TOLVar216" ("->TOL var 216
|
|
|
|
|
+" "" "80E64" :RAM :NOSDIAG) "TOLVarNum" ("number of TOLVars
|
|
|
|
|
+" "" "000D8" :RAM) "UserInt1" ("->User interrupt routine 1
|
|
|
|
|
+" "This interrupt handler is called
|
|
|
|
|
+*before* the normal one. Only
|
|
|
|
|
+D1, P, Hex/Dec, CRY, SB, C.W and A.W
|
|
|
|
|
+are saved at that point.
|
|
|
|
|
+" "8600D" :RAM) "UserInt1g" ("Copy of <REF>UserInt1
|
|
|
|
|
+" "If this address is not equal to the
|
|
|
|
|
+one in UserInt1, none of the two
|
|
|
|
|
+will be called.
|
|
|
|
|
+" "86017" :RAM) "UserInt2" ("->User interrupt routine 2
|
|
|
|
|
+" "This interrupt handler is called
|
|
|
|
|
+*after* the normal one, before
|
|
|
|
|
+RESTORECPU. All registers are still
|
|
|
|
|
+saved.
|
|
|
|
|
+" "86012" :RAM) "UserInt2g" ("Copy of <REF>UserInt2
|
|
|
|
|
+" "If this address is not equal to the
|
|
|
|
|
+one in UserInt2, none of the two
|
|
|
|
|
+will be called.
|
|
|
|
|
+" "8601C" :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) "FROMPTABPTR" ("-> <REF>FROMPTAB0_15
|
|
|
|
|
+" "" "860AE" :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
|
|
|
|
|
+" "8611D" :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
|
|
|
|
|
+" "8611D" :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
|
|
|
|
|
+" "8611D" :RAM) "FlashROMTAB2" ("Bank switcher addresses (16*5)
|
|
|
|
|
+sorted by physical bank number
|
|
|
|
|
+" "" "860CC" :RAM) "@FONTE" ("Array of used fonts (1708)
|
|
|
|
|
+" "" "81971" :RAM) "ArryFont" ("Array of used fonts (1708)
|
|
|
|
|
+" "" "81971" :RAM) "SystemFont" ("Big system font (4626)
|
|
|
|
|
+" "" "84D82" :RAM) "FONTE_SYSTEM" ("Big system font (4626)
|
|
|
|
|
+" "" "84D82" :RAM) "H_FONTE" ("Height of the current font (5)
|
|
|
|
|
+" "" "81098" :RAM) "FontHeight" ("Height of the current font (5)
|
|
|
|
|
+" "" "81098" :RAM) "TAB_FONTE" ("Font hash table (512)
|
|
|
|
|
+" "" "8201D" :RAM) "HashArryFont" ("Font hash table (512)
|
|
|
|
|
+" "" "8201D" :RAM) "MiniFont" ("Minifont (1536)
|
|
|
|
|
+" "" "812CF" :RAM) "MINI_FONT" ("Minifont (1536)
|
|
|
|
|
+" "" "812CF" :RAM) "MiniFontObj" ("<REF>MINI_FONT with font header
|
|
|
|
|
+" "" "812C3" :RAM) "MINI_FONT.OBJ" ("<REF>MINI_FONT with font header
|
|
|
|
|
+" "" "812C3" :RAM) "NbFont" ("Number of detected fonts (5)
|
|
|
|
|
+" "" "812AA" :RAM) "NB_FONTE" ("Number of detected fonts (5)
|
|
|
|
|
+" "" "812AA" :RAM) "IRAMHOMEmsn" ("MSN of the IRAM base address
|
|
|
|
|
+" "" "00008" :RAM) "LOCUPSIZE" ("Number of variables between
|
|
|
|
|
+<REF>SYSUPSTART and <REF>OBUPSTART
|
|
|
|
|
+" "" "0001D" :RAM) "NBMAXFONT" ("Maximum number of fonts
|
|
|
|
|
+" "" "000F4" :RAM) "OBUPSIZE" ("Number of variables between
|
|
|
|
|
+<REF>OBUPSTART and <REF>OBUPEND
|
|
|
|
|
+" "" "0016F" :RAM) "ParenModmask" ("
|
|
|
|
|
+" "" "00001" :RAM) "mEditLExists" ("
|
|
|
|
|
+" "" "00001" :RAM) "SYSUPSIZE" ("<REF>OBUPSIZE + <REF>LOCUPSIZE
|
|
|
|
|
+" "" "0018C" :RAM) "ACCUM" ("(1)
|
|
|
|
|
+" "" "80FF1" :RAM) "ALARMS" ("->System Alarm List (5)
|
|
|
|
|
+" "" "8072A" :RAM) "ALARMSDUE" ("Flags Alarm Due (1)
|
|
|
|
|
+" "" "80EF1" :RAM) "ATTNFLG" ("Counts ON presses (5)
|
|
|
|
|
+" "" "80EAB" :RAM) "AccessInit" ("Saved value of INITEN & sALLOWINTR (2)
|
|
|
|
|
+" "" "800E6" :RAM) "BounceTiming" ("Minimum time between 2 same key
|
|
|
|
|
+press for key validation (8)
|
|
|
|
|
+" "" "86051" :RAM) "CALCCXT" ("->Calculator variables dir (5)
|
|
|
|
|
+" "" "80734" :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)
|
|
|
|
|
+" "" "81001" :RAM) "COLWIDTH" ("(2)
|
|
|
|
|
+" "" "80FF3" :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)
|
|
|
|
|
+" "" "80FA2" :RAM) "CatalogCache" ("->CAT list
|
|
|
|
|
+" "" "80E69" :RAM) "CatalogEntry" ("->Last CAT item selected
|
|
|
|
|
+" "" "86059" :RAM) "Clipboard" ("->Clipboard
|
|
|
|
|
+" "" "80E6E" :RAM) "ClkOnNib" ("Clock display on/off (1)
|
|
|
|
|
+" "" "80FFA" :RAM) "CplxX" ("Complex number used by plotter (37)
|
|
|
|
|
+" "" "85FBE" :RAM) "CplxY" ("<REF>CplxX
|
|
|
|
|
+" "" "85FE3" :RAM) "CtlAlarm" ("->Control alarm data
|
|
|
|
|
+" "" "807E8" :RAM) "CurRAMBank1" ("Backup of current RAM view 1 (5)
|
|
|
|
|
+" "" "860BD" :RAM) "CurRAMBank2" ("Backup of current RAM view 2 (5)
|
|
|
|
|
+" "" "860C2" :RAM) "CurRAMBank3" ("Backup of current RAM view 3 (5)
|
|
|
|
|
+" "" "860C7" :RAM) "CurROMBank1" ("Backup of current ROM view 1 (5)
|
|
|
|
|
+" "" "860B3" :RAM) "CurROMBank2" ("Backup of current ROM view 2 (5)
|
|
|
|
|
+" "" "860B8" :RAM) "DEPTHSAVE" ("Saved user stack depth (5)
|
|
|
|
|
+" "" "80EDC" :RAM) "DIGITS" ("Infinite precision digits (5)
|
|
|
|
|
+" "" "86008" :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)
|
|
|
|
|
+" "" "80EF3" :RAM) "DREND" ("Display Refresh Hi Bound (5)
|
|
|
|
|
+" "" "8064A" :RAM) "DRSTART" ("Display Refresh Lo Bound (5)
|
|
|
|
|
+" "" "80645" :RAM) "DcompWidth" ("String Decomp Width (2)
|
|
|
|
|
+" "" "80FCD" :RAM) "DelayCt" ("REDEYE Print time/line (2)
|
|
|
|
|
+" "" "80FFD" :RAM) "ELEMENT" ("decompile obj depth counter (2)
|
|
|
|
|
+" "" "80F42" :RAM) "ENTRWISE" ("(1)
|
|
|
|
|
+" "" "80FF5" :RAM) "ERROR" ("(5)
|
|
|
|
|
+" "" "80EA5" :RAM) "EXITMSG" ("->msg set by user in EXIT word
|
|
|
|
|
+" "" "807BB" :RAM) "EqPtr" ("Points to Curr Eqn in EqList (5)
|
|
|
|
|
+" "" "8102B" :RAM) "FIRSTCHAR" ("offset to 1st visible (5)
|
|
|
|
|
+" "" "80F44" :RAM) "FIRSTPROC" ("->StartupProc Secondary (5)
|
|
|
|
|
+" "" "80EB0" :RAM) "FONTCOUNT" ("counter (3)
|
|
|
|
|
+" "" "80FD1" :RAM) "FONTHEIGHT" ("font-height selector (1)
|
|
|
|
|
+" "" "80FCF" :RAM) "FONTWIDTH" ("font-width selector (1)
|
|
|
|
|
+" "" "80FD0" :RAM) "VSTACK" ("
|
|
|
|
|
+" "" "8072F" :RAM) "FSTVGERPTR" ("
|
|
|
|
|
+" "" "8072F" :RAM) "FailTime" ("SelfTest Fail Time (Ticks) (13)
|
|
|
|
|
+" "" "80085" :RAM) "FifoByteCt" ("Sum of FIFO Line Counts (2)
|
|
|
|
|
+" "" "81009" :RAM) "FindPattern" ("->Find Pattern address
|
|
|
|
|
+" "" "80E73" :RAM) "FlagMBox" ("->Flag mailbox
|
|
|
|
|
+" "" "80833" :RAM) "FlashPtrBkp" ("Space to create a FPTR (12)
|
|
|
|
|
+" "" "81082" :RAM) "FreeRoom" ("DSKTOP-RSKTOP, used by SWAPMEM (5)
|
|
|
|
|
+" "" "818EE" :RAM) "GARBSCRATCH1" ("Saves 1 RSTK level in G.C. (5)
|
|
|
|
|
+" "" "80FAD" :RAM) "GARBSCRATCH2" ("Saves counter in G.C. (5)
|
|
|
|
|
+" "" "80FB2" :RAM) "GCOLCOUNT" ("Graphics #Cols (2)
|
|
|
|
|
+" "" "80FFF" :RAM) "GraphContext" ("->Graphic Context
|
|
|
|
|
+" "" "8085B" :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
|
|
|
|
|
+" "" "80798" :RAM) "HISTORY2" ("->2nd entry <REF>HISTORY1
|
|
|
|
|
+" "" "8079D" :RAM) "HISTORY3" ("->3rd entry <REF>HISTORY1
|
|
|
|
|
+" "" "807A2" :RAM) "HISTORY4" ("->4th (oldest) entry <REF>HISTORY1
|
|
|
|
|
+" "" "807A7" :RAM) "HISTORYLEVEL" ("which stack level is next (1)
|
|
|
|
|
+" "" "80F59" :RAM) "HOMEMASK" ("Home Size of RAM (mask) (5)
|
|
|
|
|
+" "" "8000A" :RAM) "HRAMEND" ("M.S.N. of size of RAM chip (1)
|
|
|
|
|
+" "" "8000F" :RAM) "HStackPtr" ("->Highlight in stack
|
|
|
|
|
+" "" "80851" :RAM) "HStackTop" ("->How many items on stack
|
|
|
|
|
+" "" "80856" :RAM) "TAB_CMD" ("Command line hash table (360)
|
|
|
|
|
+" "" "810E8" :RAM) "HashCLE" ("Command line hash table (360)
|
|
|
|
|
+" "" "810E8" :RAM) "T_HEADER" ("Header size in lines (5)
|
|
|
|
|
+" "" "8108E" :RAM) "HeaderHeight" ("Header size in lines (5)
|
|
|
|
|
+" "" "8108E" :RAM) "HiLitePtr" ("->Highlight in window
|
|
|
|
|
+" "" "80847" :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)
|
|
|
|
|
+" "" "81006" :RAM) "IOSAVE" ("Saves HiNib of ANNCTRL (1)
|
|
|
|
|
+" "" "80654" :RAM) "IRAMBSIZE" ("Size of <REF>IRAMBUFF
|
|
|
|
|
+" "" "00219" :RAM) "IRAMBUFF" ("Exec Buff (code under IRAM) (537)
|
|
|
|
|
+" "" "800F5" :RAM) "IRAMBUFF2" ("<REF>IRAMBUFF +50
|
|
|
|
|
+" "" "80127" :RAM) "IRAMMASK" ("IRAM Size Config Mask (5)
|
|
|
|
|
+" "" "80005" :RAM) "IREG" ("Saves Interrupt History (3)
|
|
|
|
|
+" "" "8064F" :RAM) "ITEM1LINES" ("# display lines currently (1)
|
|
|
|
|
+" "" "80ED6" :RAM) "ITEM1STATE" ("->list of lists describing stack
|
|
|
|
|
+level 1
|
|
|
|
|
+" "" "80793" :RAM) "PDCSYMB" ("->Kermit error message
|
|
|
|
|
+" "" "807B1" :RAM) "KERMERRM" ("->Kermit error message
|
|
|
|
|
+" "" "807B1" :RAM) "KERMMODE" ("Kermit Mode information (1)
|
|
|
|
|
+" "" "80FCC" :RAM) "KEYLIST" ("(5)
|
|
|
|
|
+" "" "80FEB" :RAM) "KEYLOCK" ("(1)
|
|
|
|
|
+" "" "80FF0" :RAM) "KEYSTATE" ("location of kbd state (16)
|
|
|
|
|
+" "" "8065C" :RAM) "KSTATEVGER" ("KeyState for Vger Keyboard
|
|
|
|
|
+" "From rammap.a:
|
|
|
|
|
+\"(we didn't use the previous \\
|
|
|
|
|
+KEYSTATE to maintain the entry \\
|
|
|
|
|
+points)\"
|
|
|
|
|
+" "86037" :RAM) "KeyOb" ("->Pending key-object
|
|
|
|
|
+" "" "8082E" :RAM) "KeyRomPtr0" ("RomPtr for KeyOb (11)
|
|
|
|
|
+" "" "81030" :RAM) "KeyRomPtr1" ("RomPtr for MenuKey 1 (11)
|
|
|
|
|
+" "" "8103B" :RAM) "KeyRomPtr2" ("RomPtr for MenuKey 2 (11)
|
|
|
|
|
+" "" "81046" :RAM) "KeyRomPtr3" ("RomPtr for MenuKey 3 (11)
|
|
|
|
|
+" "" "81051" :RAM) "KeyRomPtr4" ("RomPtr for MenuKey 4 (11)
|
|
|
|
|
+" "" "8105C" :RAM) "KeyRomPtr5" ("RomPtr for MenuKey 5 (11)
|
|
|
|
|
+" "" "81067" :RAM) "KeyRomPtr6" ("RomPtr for MenuKey 6 (11)
|
|
|
|
|
+" "" "81072" :RAM) "LANGUAGE" ("(5)
|
|
|
|
|
+" "" "80EA0" :RAM) "LASTARG1" ("->1st argument saved in CK<n>
|
|
|
|
|
+" "" "80775" :RAM) "LASTARG" ("->1st argument saved in CK<n>
|
|
|
|
|
+" "" "80775" :RAM) "LASTARG2" ("->2nd <REF>LASTARG
|
|
|
|
|
+" "" "8077A" :RAM) "LASTARG3" ("->3rd <REF>LASTARG
|
|
|
|
|
+" "" "8077F" :RAM) "LASTARG4" ("->4th <REF>LASTARG
|
|
|
|
|
+" "" "80784" :RAM) "LASTARG5" ("->5th <REF>LASTARG
|
|
|
|
|
+" "" "80789" :RAM) "LASTARGCOUNT" ("# of args saved by CK<n> (1)
|
|
|
|
|
+" "" "80F5A" :RAM) "LASTARGf" ("Flag #Args>3 (1)
|
|
|
|
|
+" "" "80F5B" :RAM) "LASTERROR" ("Save area for error number (5)
|
|
|
|
|
+" "" "80F5C" :RAM) "LASTOP" ("3-state encoding of operand/
|
|
|
|
|
+unary/binary (1)
|
|
|
|
|
+" "" "80FDA" :RAM) "LASTROMWDOB" ("->Last user-level ROM-WORD
|
|
|
|
|
+evaluated (set by CK<n>)
|
|
|
|
|
+" "" "80829" :RAM) "LEFTTREE" ("(3)
|
|
|
|
|
+" "" "80FDB" :RAM) "LINECOUNTg" ("Ghost for LINECOUNT (2)
|
|
|
|
|
+" "" "8069A" :RAM) "LINENIBSg" ("Ghost for LINENIBS (3)
|
|
|
|
|
+" "" "80692" :RAM) "LPD_HIST" ("Low Power Detect History (1)
|
|
|
|
|
+" "" "80EFF" :RAM) "LabelDef" ("->How to make menu labels
|
|
|
|
|
+" "" "80801" :RAM) "LastContext" ("->RRP saved for CheckContext
|
|
|
|
|
+" "" "8081A" :RAM) "LastKey" ("Last key press (2)
|
|
|
|
|
+" "" "86047" :RAM) "LastKeyTime" ("Last key press time (8)
|
|
|
|
|
+" "" "86049" :RAM) "LastMenuDef" ("->Last menu definition
|
|
|
|
|
+" "" "807F2" :RAM) "LastMenuRow" ("(5)
|
|
|
|
|
+" "" "8107D" :RAM) "LastPrntTime" ("Time (Upper 11 nibs) (11)
|
|
|
|
|
+" "" "8100B" :RAM) "LineByteCt" ("Line Byte Counter (2)
|
|
|
|
|
+" "" "81007" :RAM) "LoBatTime" ("Flag periodic ((*)) updates (1)
|
|
|
|
|
+" "" "80077" :RAM) "MENULEVEL" ("User-menu level (5)
|
|
|
|
|
+" "" "80FA4" :RAM) "MenuData" ("->Menu data for touch table
|
|
|
|
|
+" "" "807F7" :RAM) "MenuDef" ("->Current menu definition
|
|
|
|
|
+" "" "807ED" :RAM) "MenuExitAct" ("->Menu exit action definition
|
|
|
|
|
+" "" "80824" :RAM) "MenuKeyLS" ("->Left-shift menu key handler
|
|
|
|
|
+" "" "8080B" :RAM) "MenuKeyNS" ("->No-shift menu key handler
|
|
|
|
|
+" "" "80806" :RAM) "MenuKeyRS" ("->Right-shift menu key handler
|
|
|
|
|
+" "" "80810" :RAM) "MenuRow" ("(5)
|
|
|
|
|
+" "" "81026" :RAM) "MenuRowAct" ("->Prev/Next action definition
|
|
|
|
|
+" "" "807FC" :RAM) "StackHeight" ("Size of the stack's screen
|
|
|
|
|
+in lines (5)
|
|
|
|
|
+" "" "81093" :RAM) "NB_LIGNE" ("Size of the stack's screen
|
|
|
|
|
+in lines (5)
|
|
|
|
|
+" "" "81093" :RAM) "NEXTIRQ" ("Time at next Timer2 int. (13)
|
|
|
|
|
+" "" "80058" :RAM) "NOALARMSRV" ("Flags Disable Alarm Service (1)
|
|
|
|
|
+" "" "80EF4" :RAM) "NODECOUNT" ("expr-tree node count (3)
|
|
|
|
|
+" "" "80FD4" :RAM) "NOTESCXT" ("->\"notes\" directory (5)
|
|
|
|
|
+" "" "8073E" :RAM) "OBTREELEN" ("object length (3)
|
|
|
|
|
+" "" "80FD7" :RAM) "OLDMENU" ("Saves previous menu number (2)
|
|
|
|
|
+" "" "80FA9" :RAM) "ORghost" ("
|
|
|
|
|
+" "" "80642" :RAM) "SAVE_OR" ("
|
|
|
|
|
+" "" "80642" :RAM) "OSAVE" ("
|
|
|
|
|
+" "" "80770" :RAM) "ObjectU1" ("->Updatable object 1
|
|
|
|
|
+" "" "80E7D" :RAM) "ObjectU2" ("->Updatable object 2
|
|
|
|
|
+" "" "80E82" :RAM) "ObjectU3" ("->Updatable object 3
|
|
|
|
|
+" "" "80E87" :RAM) "ObjectU4" ("->Updatable object 4
|
|
|
|
|
+" "" "80E8C" :RAM) "OBUPEND" ("->Updatable object 5
|
|
|
|
|
+" "" "80E91" :RAM) "ObjectU5" ("->Updatable object 5
|
|
|
|
|
+" "" "80E91" :RAM) "PADCOUNT" ("Indentation count for decomp (1)
|
|
|
|
|
+" "" "80FAC" :RAM) "PADJSAVE1" ("Status save in PTRADJUST (1)
|
|
|
|
|
+" "" "80FC1" :RAM) "PADJSAVE2" ("RSTK save in PTRADJUST (10)
|
|
|
|
|
+" "" "80FC2" :RAM) "PAINTTREE" ("->hxs of \"textbook-mode\" graphics
|
|
|
|
|
+" "" "807B6" :RAM) "PARENCOUNT" ("(2)
|
|
|
|
|
+" "" "80FF6" :RAM) "PARENTTREE" ("(3)
|
|
|
|
|
+" "" "80FE1" :RAM) "PASTDUE" ("Flags Past Due Alarm (1)
|
|
|
|
|
+" "" "80EF2" :RAM) "PDCHXS" ("->hxs map of outermost symbolic
|
|
|
|
|
+" "" "807AC" :RAM) "PFIFO" ("FIFO Buffer (16)
|
|
|
|
|
+" "" "81016" :RAM) "PGMCXT" ("->programming dir (5)
|
|
|
|
|
+" "" "80739" :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)
|
|
|
|
|
+" "" "80FE4" :RAM) "Port1CRC" ("CRC for Device in Port1 (4)
|
|
|
|
|
+" "" "800E2" :RAM) "PortStat" ("Copy of CARDSTAT Nib (1)
|
|
|
|
|
+" "" "800E1" :RAM) "ProgMBox" ("->Program mailbox
|
|
|
|
|
+" "" "8083D" :RAM) "PrtStatus" ("CPU Status Bits et al. (3)
|
|
|
|
|
+" "" "81003" :RAM) "SYSNOUPSTART" ("->End of RAM
|
|
|
|
|
+" "" "80E96" :RAM) "RAMEND" ("->End of RAM
|
|
|
|
|
+" "" "80E96" :RAM) "RESRAMEND0" ("End of statically reserved RAM
|
|
|
|
|
+" "" "8611C" :RAM) "RIGHTTREE" ("(3)
|
|
|
|
|
+" "" "80FDE" :RAM) "RNSEED" ("Random number seed (15)
|
|
|
|
|
+" "" "80EE1" :RAM) "ROMPARTS" ("->RomParts Area
|
|
|
|
|
+" "" "80716" :RAM) "RealX" ("Real number used by plotter (21)
|
|
|
|
|
+" "" "85F94" :RAM) "RealY" ("<REF>RealX
|
|
|
|
|
+" "" "85FA9" :RAM) "ReplacePatte" ("->Replace pattern
|
|
|
|
|
+" "" "80E78" :RAM) "ReviewKey" ("->Review-key definition
|
|
|
|
|
+" "" "80815" :RAM) "SEMAPH" ("Saves control byte for IREG (2)
|
|
|
|
|
+" "" "80652" :RAM) "STACKNUM" ("ref. number of 1st visible (5)
|
|
|
|
|
+" "" "80F4E" :RAM) "STOPSIGN" ("(5)
|
|
|
|
|
+" "" "80720" :RAM) "STRETCHCOUNT" ("(2)
|
|
|
|
|
+" "" "80FF8" :RAM) "SWITCH" ("Used by the Memory Manager (15)
|
|
|
|
|
+" "" "812B4" :RAM) "SW_ETime" ("Stopwatch Elapsed Time Ticks (13)
|
|
|
|
|
+" "" "800D4" :RAM) "SW_Image" ("\"HH:MM:SS:ss\" Stopwatch (22)
|
|
|
|
|
+" "" "800BE" :RAM) "T_LIGNE" ("Size of one line of text
|
|
|
|
|
+" "" "812A0" :RAM) "SizeLine" ("Size of one line of text
|
|
|
|
|
+" "" "812A0" :RAM) "StartTime" ("SelfTest Start Time (Ticks) (13)
|
|
|
|
|
+" "" "80078" :RAM) "T1COUNT" ("Decremented by srvc_timer1 (1)
|
|
|
|
|
+" "" "80FAB" :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)
|
|
|
|
|
+" "" "80F53" :RAM) "TOUCHTAB" ("(5)
|
|
|
|
|
+" "" "8070C" :RAM) "TYPE_HEADER" ("Type of header (5)
|
|
|
|
|
+" "" "8109D" :RAM) "T_BLOC" ("Size of a HashCLE block (5)
|
|
|
|
|
+" "" "8125A" :RAM) "WidthScreen" ("Width of the current screen in
|
|
|
|
|
+nibbles (5)
|
|
|
|
|
+" "" "812A5" :RAM) "T_LARGEUR" ("Width of the current screen in
|
|
|
|
|
+nibbles (5)
|
|
|
|
|
+" "" "812A5" :RAM) "Title" ("->Home Title
|
|
|
|
|
+" "" "80842" :RAM) "TrackAct" ("->Action when CONTEXT changes
|
|
|
|
|
+" "" "8081F" :RAM) "UserKeys" ("->User key assignments (5)
|
|
|
|
|
+" "" "80725" :RAM) "VERIF_CARD" ("
|
|
|
|
|
+" "" "812AF" :RAM) "VGERPTRCT" ("
|
|
|
|
|
+" "" "0000C" :RAM) "VIEWLEVEL" ("stack element currently viewed (5)
|
|
|
|
|
+" "" "80ED7" :RAM) "ViewMBox" ("->View mailbox
|
|
|
|
|
+" "" "80838" :RAM) "WindowPtr" ("->Item at bottom of window
|
|
|
|
|
+" "" "8084C" :RAM) "XmitSrcvTOut" ("XMIT/SRECV timeout (2)
|
|
|
|
|
+" "" "80FFB" :RAM) "apletPTR" ("->current aplet (5)
|
|
|
|
|
+" "" "80743" :RAM) "funcPTR" ("->current func instance (5)
|
|
|
|
|
+" "" "80748" :RAM) "has_font_f_s" ("Tells if the Decompiler has found
|
|
|
|
|
+a special font character (2)
|
|
|
|
|
+" "" "86026" :RAM) "leeway" ("->hxs which will be GC'ed in a
|
|
|
|
|
+very-low-memory condition
|
|
|
|
|
+" "" "8078E" :RAM) "misc1_f_s" ("(5)
|
|
|
|
|
+" "" "86028" :RAM) "misc2_f_s" ("(5)
|
|
|
|
|
+" "" "8602D" :RAM) "misc3_f_s" ("(5)
|
|
|
|
|
+" "" "86032" :RAM) "nb_line_f_s" ("Number of line created during
|
|
|
|
|
+decompilation (FSTR3) (5)
|
|
|
|
|
+" "" "86021" :RAM) "otherPTR" ("->current \"other\" instance (5)
|
|
|
|
|
+" "" "80766" :RAM) "paramPTR" ("->current param instance (5)
|
|
|
|
|
+" "" "80752" :RAM) "polarPTR" ("->current polar instance (5)
|
|
|
|
|
+" "" "8074D" :RAM) "seqPTR" ("->current sequence instance (5)
|
|
|
|
|
+" "" "80757" :RAM) "solvePTR" ("->current solve instance (5)
|
|
|
|
|
+" "" "80761" :RAM) "statPTR" ("->current stat instance (5)
|
|
|
|
|
+" "" "8075C" :RAM) "^algunwrap" ("
|
|
|
|
|
+" "" "00F004") "^laDELROW" ("
|
|
|
|
|
+" "" "06C003") "^laGPROW" ("
|
|
|
|
|
+" "" "06E003") "^laINSROW" ("
|
|
|
|
|
+" "" "06D003") "laMGET0" ("
|
|
|
|
|
+" "" "2F205") "x<STRUCT" ("
|
|
|
|
|
+" "" "38D83") "xCMDAPPLY" ("
|
|
|
|
|
+" "" "3F11C") "xDER" ("
|
|
|
|
|
+" "" "3D258") "xEVAL>" ("
|
|
|
|
|
+" "" "38C2C") "xFCNAPPLY" ("
|
|
|
|
|
+" "" "3D81D") "xINTEGRAL" ("
|
|
|
|
|
+" "" "3D47E") "xNOEVAL>" ("
|
|
|
|
|
+" "" "38D2F") "xSTRUCT->" ("
|
|
|
|
|
+" "" "38D94") "xSTRUCT>" ("
|
|
|
|
|
+" "" "38D72") "xWHERE" ("
|
|
|
|
|
+" "" "3D605") "xssgeneral" ("
|
|
|
|
|
+" "" "2F390") "!#1+IF<dim-1" ("
|
|
|
|
|
+" "" "2F315") "!#1-IF>0" ("
|
|
|
|
|
+" "" "2F316") "!MATTRNnc" ("
|
|
|
|
|
+" "" "263D2") "!REDIMTEMP" ("
|
|
|
|
|
+" "" "25F68") "!REDIMUSER" ("
|
|
|
|
|
+" "" "25F63") "1/X15" ("
|
|
|
|
|
+" "" "31568") ">LASTRAM-WORD" ("
|
|
|
|
|
+" "" "37C06") "?ACCPTR>" ("
|
|
|
|
|
+" "" "25F9F") "ACCESSERAM1" ("
|
|
|
|
|
+" "" "26C37" :ML) "ACCESSERAM2" ("
|
|
|
|
|
+" "" "26C3E" :ML) "ACCESSID1" ("
|
|
|
|
|
+" "" "26B81" :ML) "ACCESSID2" ("
|
|
|
|
|
+" "" "26B88" :ML) "ACCESSID3" ("
|
|
|
|
|
+" "" "26B8F" :ML) "ACCESSID4" ("
|
|
|
|
|
+" "" "26B96" :ML) "ACCESSID5" ("
|
|
|
|
|
+" "" "26B9D" :ML) "ACCESSID6" ("
|
|
|
|
|
+" "" "26BA4" :ML) "ACCESSID7" ("
|
|
|
|
|
+" "" "26BAB" :ML) "ACCESSIDn" ("
|
|
|
|
|
+" "" "26C29" :ML) "ACCESSRAM0" ("
|
|
|
|
|
+" "" "26C30" :ML) "ADDF" ("
|
|
|
|
|
+" "" "315BB") "addrADISP" ("
|
|
|
|
|
+" "" "26CD8" :ML) "addrATTNFLG" ("
|
|
|
|
|
+" "" "26CDF" :ML) "addrClkOnNib" ("
|
|
|
|
|
+" "" "2B7CC") "addrKEYSTATE" ("
|
|
|
|
|
+" "" "00A0E") "addrLINECNTg" ("
|
|
|
|
|
+" "" "26CE6" :ML) "addrORghost" ("
|
|
|
|
|
+" "" "01661") "addrTEMPENV" ("
|
|
|
|
|
+" "" "04E66") "addrTEMPTOP" ("
|
|
|
|
|
+" "" "2ACA9") "addrVDISP" ("
|
|
|
|
|
+" "" "26CED" :ML) "addrVDISP2" ("
|
|
|
|
|
+" "" "26CF4" :ML) "addtics" ("
|
|
|
|
|
+" "" "2619D") "AdjEdModes" ("
|
|
|
|
|
+" "" "2F179") "adrDISABLE_K" ("
|
|
|
|
|
+" "" "047CF") "adrKEYBUFFER" ("
|
|
|
|
|
+" "" "047DD") "adrTIMEOUTCLK" ("
|
|
|
|
|
+" "" "26CFB" :ML) "AFFICHE.REG" ("
|
|
|
|
|
+" "" "2680F" :ML) "AFFICHE.SBR" ("
|
|
|
|
|
+" "" "26816" :ML) "AFFICHEPIX.SBR" ("
|
|
|
|
|
+" "" "2681D" :ML) "aH>HMS" ("
|
|
|
|
|
+" "" "31123") "ALARMxcp" ("
|
|
|
|
|
+" "" "25E7A") "ALGeq?" ("
|
|
|
|
|
+" "" "25E7B") "allkeys" ("
|
|
|
|
|
+" "" "000FF") "aMODF" ("
|
|
|
|
|
+" "" "31066") "APPprompt1!" ("
|
|
|
|
|
+" "" "2EEEE") "APPprompt2" ("
|
|
|
|
|
+" "" "2F17A") "^Arbo" ("
|
|
|
|
|
+" "" "068004") "ATTNxcp" ("
|
|
|
|
|
+" "" "25E7D") "BITMAP" ("
|
|
|
|
|
+" "" "2676E" :ML) "BUILDKPACKET" ("
|
|
|
|
|
+" "" "2F31E") "CASEVAL" ("
|
|
|
|
|
+" "" "2AA70") "^ChangeFocus" ("
|
|
|
|
|
+" "" "0BE002") "ChkGrHook" ("
|
|
|
|
|
+" "" "26D10" :UBS) "CkEQUtil" ("
|
|
|
|
|
+" "" "2BF1C") "CkSecoType" ("
|
|
|
|
|
+" "" "2A7A7") "CleanVirtualStack" ("
|
|
|
|
|
+" "" "2684E" :ML) "CLKADJ*" ("
|
|
|
|
|
+" "" "2F153") "ClrDouseAlm" ("
|
|
|
|
|
+" "" "2EF68") "CLRFRC" ("
|
|
|
|
|
+" "" "319C1") "clrtimeout" ("
|
|
|
|
|
+" "" "26736" :ML) "COLAthexFCN" ("
|
|
|
|
|
+" "" "2BAB3") "Coldstart" ("
|
|
|
|
|
+" "" "26775" :ML) "COMPCONFCRC" ("
|
|
|
|
|
+" "" "266BF" :ML) "ComputePixel" ("
|
|
|
|
|
+" "" "26AEE" :ML) "convertbase" ("
|
|
|
|
|
+" "" "2F327") "COPYVAR" ("
|
|
|
|
|
+" "" "2C393") "corner" ("
|
|
|
|
|
+" "" "2673D" :ML) "CRUNCHNoBlame" ("
|
|
|
|
|
+" "" "25EA3") "CtlAlarm!" ("
|
|
|
|
|
+" "" "2597B") "CtlAlarm@" ("
|
|
|
|
|
+" "" "25980") "CtlAlarm0" ("
|
|
|
|
|
+" "" "25971" :UBS) "CtlAlarm0?" ("
|
|
|
|
|
+" "" "25976" :UBS) "CURRENTMARK?" ("
|
|
|
|
|
+" "" "2EEFE") "CURSOR+" ("
|
|
|
|
|
+" "" "2658A") "D0=ALoop" ("
|
|
|
|
|
+" "" "26A31" :ML) "DA2bTemp?" ("
|
|
|
|
|
+" "" "2EEA6") "DaDGNTc" ("
|
|
|
|
|
+" "" "29EE9") "DAY#" ("
|
|
|
|
|
+" "" "2DEBB") "Day>Date" ("
|
|
|
|
|
+" "" "2DD27") "^DEB.MATRIX" ("
|
|
|
|
|
+" "" "00C007") "^DEB.MATRIXTYPE" ("
|
|
|
|
|
+" "" "00D007") "delimcase" ("
|
|
|
|
|
+" "" "29D6A") "derprod1" ("
|
|
|
|
|
+" "" "2C0ED") "derquot" ("
|
|
|
|
|
+" "" "2C0A7") "^DIMS" ("
|
|
|
|
|
+" "" "004007") "DispVarsUtil" ("
|
|
|
|
|
+" "" "25EBD") "DISP_LINE" ("
|
|
|
|
|
+" "" "25F16") "DIV2" ("
|
|
|
|
|
+" "" "31994") "DoCAlarmKey" ("
|
|
|
|
|
+" "" "25EC0") "^DoKeyCancel" ("
|
|
|
|
|
+" "" "0AF002") "^DoKeyEdit" ("
|
|
|
|
|
+" "" "0B5002") "^DoKeyOK" ("
|
|
|
|
|
+" "" "0B4002") "^DoMKeyOK" ("
|
|
|
|
|
+" "" "0AE002") "DoPlotMenu" ("
|
|
|
|
|
+" "" "25ECA") "DOPRLCD" ("
|
|
|
|
|
+" "" "2EECC") "dowutil" ("
|
|
|
|
|
+" "" "2DE4A" :ML) "drax" ("
|
|
|
|
|
+" "" "2F32D") "DropSysErr$" ("
|
|
|
|
|
+" "" "2F32F") "DropSysObs" ("
|
|
|
|
|
+" "" "26062") "DupAndThen" ("
|
|
|
|
|
+" "" "37258") "DZP" ("
|
|
|
|
|
+" "" "00003") "easyabs" ("
|
|
|
|
|
+" "" "2C121") "Echo2Macros" ("
|
|
|
|
|
+" "" "25ED1") "ECUSER" ("
|
|
|
|
|
+" "" "039EF") "EDITF" ("
|
|
|
|
|
+" "" "2F1A9") "EDITPARTS" ("
|
|
|
|
|
+" "" "2EEEC") "EQCURSOR?" ("
|
|
|
|
|
+" "" "2F332") "ErrorHandled?" ("
|
|
|
|
|
+" "" "2F1A1") "EVALCRUNCH" ("
|
|
|
|
|
+" "" "25ED0") "EvalParsed" ("
|
|
|
|
|
+" "" "2EF69") "ExitFcn" ("
|
|
|
|
|
+" "" "27C33") "Extobcode" ("
|
|
|
|
|
+" "" "2F334") "FcnUtilEnd" ("
|
|
|
|
|
+" "" "2F335") "FindInDir" ("
|
|
|
|
|
+" "" "26C5A" :ML) "FixRRP" ("
|
|
|
|
|
+" "" "2F337") "FLOAT" ("
|
|
|
|
|
+" "" "2DCB5") "GET.FONT" ("
|
|
|
|
|
+" "" "26878" :ML) "GETAB0" ("
|
|
|
|
|
+" "" "314E4") "GETAB1" ("
|
|
|
|
|
+" "" "314CA") "GetBankAccess" ("
|
|
|
|
|
+" "" "26BB2" :ML) "getBPOFF" ("
|
|
|
|
|
+" "" "2DDD5") "GETCD0" ("
|
|
|
|
|
+" "" "31518") "^GetFieldVals" ("
|
|
|
|
|
+" "" "0BB002") "GetLastEdit" ("
|
|
|
|
|
+" "" "2EF6D") "GETRHS" ("
|
|
|
|
|
+" "" "2F108") "GetTimChk" ("
|
|
|
|
|
+" "" "267B4" :ML) "GetTime++" ("
|
|
|
|
|
+" "" "267BB" :ML) "GETX.VISIBLE" ("
|
|
|
|
|
+" "" "268DA" :ML) "GETX.VISIBLE.STR" ("
|
|
|
|
|
+" "" "268E1" :ML) "GET_@TAB" ("
|
|
|
|
|
+" "" "26886" :ML) "GET_ATTRIBN.REAL" ("
|
|
|
|
|
+" "" "2688D" :ML) "GET_NBLIGNE" ("
|
|
|
|
|
+" "" "268BE" :ML) "GET_NBLIGNESTK" ("
|
|
|
|
|
+" "" "268C5" :ML) "~gFldVal" ("
|
|
|
|
|
+" "" "0C80B0") "GraphicExit" ("
|
|
|
|
|
+" "" "2F341") "GsstFIN" ("
|
|
|
|
|
+" "" "2608A") "HISTON?" ("
|
|
|
|
|
+" "" "25636") "HISTON" ("
|
|
|
|
|
+" "" "2563B" :UBS) "^IFEDispField" ("
|
|
|
|
|
+" "" "0BC002") "^IfTet" ("
|
|
|
|
|
+" "" "04B004") "InitEnab" ("
|
|
|
|
|
+" "" "092DB") "InitSysUI" ("
|
|
|
|
|
+" "" "2F075") "INIT_AFFICHELIGNE" ("
|
|
|
|
|
+" "" "268F6" :ML) "INIT_AFFICHELIGNENORM" ("
|
|
|
|
|
+" "" "268FD" :ML) "InverseParcelle" ("
|
|
|
|
|
+" "" "26912" :ML) "IOC" ("
|
|
|
|
|
+" "" "00110") "IRAM@" ("
|
|
|
|
|
+" "" "0011F") "IRC" ("
|
|
|
|
|
+" "" "0011A") "^KeyLookup" ("
|
|
|
|
|
+" "" "04E004") "Keyword?" ("
|
|
|
|
|
+" "" "25F2A") "LASTPT?" ("
|
|
|
|
|
+" "" "2F351") "lbrac" ("
|
|
|
|
|
+" "" "33A5D" :UBS) "Lift" ("
|
|
|
|
|
+" "" "2F21C") "LINECHANGE" ("
|
|
|
|
|
+" "" "2F353") "List" ("
|
|
|
|
|
+" "" "2F354") "Loop" ("
|
|
|
|
|
+" "" "05149") "MACRODCMP" ("
|
|
|
|
|
+" "" "35AE2") "MATATLOOP" ("
|
|
|
|
|
+" "" "2639B") "matchob?Lp" ("
|
|
|
|
|
+" "" "376C1") "~MESRclEqn" ("
|
|
|
|
|
+" "" "0120E4") "MiniFontCmd?" ("
|
|
|
|
|
+" "" "26943" :ML) "MiniFontStk?" ("
|
|
|
|
|
+" "" "2694A" :ML) "mpop1%" ("
|
|
|
|
|
+" "" "2DE26") "nCOLCTQUOTE" ("
|
|
|
|
|
+" "" "2C2CB") "need'case" ("
|
|
|
|
|
+" "" "2AC72") "NEWACCESSRAM" ("
|
|
|
|
|
+" "" "26C45" :ML) "newBASE" ("
|
|
|
|
|
+" "" "2F357") "NEWINDEP" ("
|
|
|
|
|
+" "" "2F0D5") "NEWMARK" ("
|
|
|
|
|
+" "" "2F358") "nextpos" ("
|
|
|
|
|
+" "" "37702") "NEXTRRPOB" ("
|
|
|
|
|
+" "" "2F359") "NEXTSTEP" ("
|
|
|
|
|
+" "" "2F35A") "nextsym'R" ("
|
|
|
|
|
+" "" "26201") "ngsizecase" ("
|
|
|
|
|
+" "" "29E29") "NoIgnoreAlm" ("
|
|
|
|
|
+" "" "257E2") "norecCSseq" ("
|
|
|
|
|
+" "" "267FA" :ML) "NUMSOLVE" ("
|
|
|
|
|
+" "" "2F35B") "nWHEREDER" ("
|
|
|
|
|
+" "" "2C044") "nWHEREIFTE" ("
|
|
|
|
|
+" "" "2C039") "nWHEREINTG" ("
|
|
|
|
|
+" "" "2C04F") "nWHERESUM" ("
|
|
|
|
|
+" "" "2C05A") "nWHEREWHERE" ("
|
|
|
|
|
+" "" "2C065") "OB>BAKcode" ("
|
|
|
|
|
+" "" "2F35C") "OngoingText?" ("
|
|
|
|
|
+" "" "2F19B") "OUTCINRTN" ("
|
|
|
|
|
+" "" "0020F") "OverWrF/TLp" ("
|
|
|
|
|
+" "" "351FA") "PALPTRDCMP" ("
|
|
|
|
|
+" "" "35B46") "~PCunpack" ("
|
|
|
|
|
+" "" "02E0E7") "POLErrorTrap" ("
|
|
|
|
|
+" "" "2B682") "preFACT" ("
|
|
|
|
|
+" "" "3ABFD") "PREMARKON" ("
|
|
|
|
|
+" "" "2F360") "PRLG" ("
|
|
|
|
|
+" "" "028FC") "PtoR" ("
|
|
|
|
|
+" "" "2F363") "PTYPE>PINFO" ("
|
|
|
|
|
+" "" "2C37D") "PUTAB0" ("
|
|
|
|
|
+" "" "31532") "RBR" ("
|
|
|
|
|
+" "" "00114") "RCKBp" ("
|
|
|
|
|
+" "" "267D0" :ML) "RclCompareNames" ("
|
|
|
|
|
+" "" "26C4C" :ML) "RCL_NB_AFF_LGN" ("
|
|
|
|
|
+" "" "26274") "RCL_NB_AFF_LGNSTK" ("
|
|
|
|
|
+" "" "26279") "RCS" ("
|
|
|
|
|
+" "" "00111") "realPAcode" ("
|
|
|
|
|
+" "" "25F6D") "RECORDX&YC%" ("
|
|
|
|
|
+" "" "2F369") "^RENAME" ("
|
|
|
|
|
+" "" "069004") "REPLACE_MODE" ("
|
|
|
|
|
+" "" "2579A") "RNDC[B]" ("
|
|
|
|
|
+" "" "313D3") "Rom-Word?" ("
|
|
|
|
|
+" "" "34FE6") "rpnXROOT" ("
|
|
|
|
|
+" "" "3A200") "SAFESKIPOB" ("
|
|
|
|
|
+" "" "26713" :ML) "sALLOWINTR" ("
|
|
|
|
|
+" "" "0000F") "SAVELAM" ("
|
|
|
|
|
+" "" "34D51") "SavPtrTime*" ("
|
|
|
|
|
+" "" "267D7" :ML) "sBEG" ("
|
|
|
|
|
+" "" "00008") "sBPOFF" ("
|
|
|
|
|
+" "" "00004") "SCAN.FONTE" ("
|
|
|
|
|
+" "" "26966" :ML) "ScanEveryObjects" ("
|
|
|
|
|
+" "" "26C61" :ML) "SET" ("
|
|
|
|
|
+" "" "07661") "SetBadPOLUI" ("
|
|
|
|
|
+" "" "25683") "setflag" ("
|
|
|
|
|
+" "" "26752" :ML) "SetISysFlag" ("
|
|
|
|
|
+" "" "2671A" :ML) "SETLOOPENV" ("
|
|
|
|
|
+" "" "2F37C") "SETROMPART" ("
|
|
|
|
|
+" "" "2F25D") "settimeout" ("
|
|
|
|
|
+" "" "26759" :ML) "SET_HEADER" ("
|
|
|
|
|
+" "" "2697B" :ML) "~sFldVal" ("
|
|
|
|
|
+" "" "0D80B0") "Shrink$Any" ("
|
|
|
|
|
+" "" "26982" :ML) "Shrink$AnySafe" ("
|
|
|
|
|
+" "" "26989" :ML) "Shrink$List" ("
|
|
|
|
|
+" "" "26A4D" :ML) "SimplifyExpression" ("
|
|
|
|
|
+" "" "2AAE0") "SLEEPxcp" ("
|
|
|
|
|
+" "" "25EFA") "sFLUSH" ("
|
|
|
|
|
+" "" "00002") "sNEGATE" ("
|
|
|
|
|
+" "" "00002") "SPLITWHERE" ("
|
|
|
|
|
+" "" "2C2D6") "SQRF" ("
|
|
|
|
|
+" "" "317EE") "srvc_timer2" ("
|
|
|
|
|
+" "" "26801" :ML) "stackitw" ("
|
|
|
|
|
+" "" "261B1") "StartupProc" ("
|
|
|
|
|
+" "" "2B74F") "STOAPPLDATA" ("
|
|
|
|
|
+" "" "2F066") "STOFONT" ("
|
|
|
|
|
+" "" "26997" :ML) "STOMINIFONT" ("
|
|
|
|
|
+" "" "2699E" :ML) "STO_ML_DISP_SIZE" ("
|
|
|
|
|
+" "" "2628D") "Stretch$Any" ("
|
|
|
|
|
+" "" "269A5" :ML) "sTRUNC" ("
|
|
|
|
|
+" "" "00001") "subpdcdptch" ("
|
|
|
|
|
+" "" "261B6") "symbn" ("
|
|
|
|
|
+" "" "2EFEC") "SYMBNUMSOLVE" ("
|
|
|
|
|
+" "" "2EED9") "SysErrorTrap" ("
|
|
|
|
|
+" "" "2EE5E") "SysErrorTrapAction" ("
|
|
|
|
|
+" "" "2F1A3") "SysErrorTrapConfirm" ("
|
|
|
|
|
+" "" "2EE5F") "SysPtr@" ("
|
|
|
|
|
+" "" "08D66" :ML) "SystemLevel?" ("
|
|
|
|
|
+" "" "26157") "TBR" ("
|
|
|
|
|
+" "" "00116") "TCS" ("
|
|
|
|
|
+" "" "00112") "TIMEOUT?" ("
|
|
|
|
|
+" "" "26161") "TIMERCTRL.1" ("
|
|
|
|
|
+" "" "0012E") "TIMERCTRL.2" ("
|
|
|
|
|
+" "" "0012F") "TogInsertKey" ("
|
|
|
|
|
+" "" "25F2D") "TST15" ("
|
|
|
|
|
+" "" "3125D") "TurnOffKey" ("
|
|
|
|
|
+" "" "25F05") "~UTTYPEEXT0?" ("
|
|
|
|
|
+" "" "02F0E7") "~UTVUNS1Arg" ("
|
|
|
|
|
+" "" "0110E7") "ValidPortTag?" ("
|
|
|
|
|
+" "" "26C6F" :ML) "VLM" ("
|
|
|
|
|
+" "" "25F0A") "WaitTbz0" ("
|
|
|
|
|
+" "" "2A4FC") "norecPWLseq" ("
|
|
|
|
|
+" "" "267E5" :ML) "Warmstart" ("
|
|
|
|
|
+" "" "267E5" :ML) "WindowXY" ("
|
|
|
|
|
+" "" "26728" :ML) "Y<=X" ("
|
|
|
|
|
+" "" "31219") "ZoomX" ("
|
|
|
|
|
+" "" "255A6") "ZoomY" ("
|
|
|
|
|
+" "" "255AB") "{}>DIR" ("
|
|
|
|
|
+" "" "2F317")))
|