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