home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / source / rpn128-src.sfx / rpnram (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1990-02-12  |  3.0 KB  |  71 lines
  1. rpnRAM
  2. seq FORMATTED geos FILE v1.0
  3. sTAR nx-10
  4. op v2.0 OR HIGHER
  5. ;"rpnCONST
  6. blaster's converter v2.5
  7. GEOSsYM.rpn
  8. GEOSmAC
  9. wRITE iMAGE v2.1
  10. GEOwRITE    v2.0
  11. 0ramsect FOR rpn64.
  12. D +# K" T
  13. ;****************************************************************
  14. ;gLOBAL vARIABLES FOR rpn
  15. ;****************************************************************
  16. NOEQIN
  17.  @.INCLUDEGEOSsYM
  18.  @INCLUDEGEOSmAC
  19. .INCLUDErpnCONST
  20. .EQIN
  21. **********************************
  22. ; basic EQUATES
  23. ;*********************************************************************
  24. FAC1==$63
  25. FACEXP==$63
  26. FACSGN==$68
  27. FAC2==$6A
  28. GIVAYF==$AF03
  29. FAC1MEM==$AF66
  30. .RAMSECT
  31. APPZPAGE:.BLOCK$9E;HOLDS APPLICATION'S ZERO PAGE WORD-REGISTERS ET AL
  32. sAVE380:.BLOCK$80;HOLDS $380 CONTENTS WHILE chrget IS THERE
  33. geosZERO:.BLOCK$41;HOLDS geos kERNAL'S ZERO PAGE WHILE basic IS IN
  34. f_entry:.BLOCK1;fLAG FOR eNTRY IN PROGRESS
  35. f_expon:.BLOCK1;fLAG IF eNTRY IS ON EXPONENT
  36. f_fraction:.BLOCK1;fLAG IF eNTRY IS PAST DECIMAL POINT
  37. f_neg:.BLOCK1;fLAG FOR NEGATIVE ENTRY
  38. f_nege:.BLOCK1;fLAG FOR NEGATIVE EXPONENT ON ENTRY
  39. eNTERsTR:.BLOCK$10;cURRENT sTRING BEING ENTERED (<=16 CHARACTERS)
  40. eNTERpOS:.BLOCK1;pOINTER TO NEXT OPEN SPOT IN eNTERsTR
  41. eXdIGITS:.BLOCK1;nO. DIGITS IN eXPONENT SO FAR
  42. mANdIGITS:.BLOCK1;nO. DIGITS IN mANTISSA SO FAR
  43. ipDIGS:.BLOCK1;nO. DIGITS IN iNT. PART OF mANTISSA (FOR OV.FLOW)
  44. tEXTxPOS:.BLOCK2;nEXT x POSITION TO PLACE A CHAR. ON eNTER lINE
  45. tEXTyPOS:.BLOCK1;nEXT y POSITION
  46. eSIGNx:.BLOCK2;pOSITION OF sIGN PLACEMENT FOR EXPONENT
  47. ePOS:.BLOCK1;pTR INTO eNTERsTR TO LOCATION OF SIGN ON EXPONENT
  48. cURnUMe:.BLOCK1;cURRENT nUMBER IN eNTRY (ICON NO.)
  49. rEG1:.BLOCK5;eIGHT FLOATING POINT REGISTERS FOR rpn CALCULATOR
  50. rEG2:.BLOCK5
  51. rEG3:.BLOCK5
  52. rEG4:.BLOCK5
  53. rEG5:.BLOCK5
  54. rEG6:.BLOCK5
  55. rEG7:.BLOCK5
  56. rEG8:.BLOCK5
  57. rEGmEM:.BLOCK5
  58. FVAR:.BLOCK5;gRATUITOUS FLOATING POINT VARIABLE
  59. STOFAC1:.BLOCK5;sTORAGE OF fac1
  60. STOFAC2:.BLOCK5;sTORAGE OF fac2
  61. SYSTRING:.BLOCK$10;sYSTEM sTRING
  62. SYSPTR:.BLOCK1;pOINTER INTO SYSTEM STRING
  63. invflg:.BLOCK1;FLAG FOR invERSE
  64. OPRINT:.BLOCK1;fLAG FOR OPERATORS, TRUE IF NEED TO PRINT 
  65.   rEGS
  66. bEFOREbas:.BLOCK1;SAVE mmu CONFIG. FOR getbasic AND flushbasic
  67. TEMP:.BLOCK1
  68. TEMP2:.BLOCK1
  69. TMPBLK:.BLOCK6;6 BYTES OF GRATUITOUS TEMPORARY STORAGE
  70. daeND:;eND OF rpn!!!!!
  71.