home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / RPN128-SRC.SFX / rpnram (.txt) < prev    next >
GEOS ConVerT  |  1990-02-12  |  3KB  |  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.      @.include    geosSym
  18.      @include    geosMac
  19. .include    RPNconst
  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:    .block    1    ;Flag for Entry in progress
  35. F_EXPON:    .block    1    ;Flag if Entry is on exponent
  36. F_FRACTION:    .block    1    ;Flag if Entry is past decimal point
  37. F_NEG:    .block    1    ;Flag for negative entry
  38. F_NEGE:    .block    1    ;Flag for negative exponent on entry
  39. EnterStr:    .block    $10    ;Current String being entered (<=16 characters)
  40. EnterPos:    .block    1    ;Pointer to next open spot in EnterStr
  41. ExDigits:    .block    1    ;No. digits in Exponent so far
  42. ManDigits:    .block    1    ;No. digits in Mantissa so far
  43. IPdigs:    .block    1    ;No. digits in Int. part of Mantissa (for ov.flow)
  44. TextXpos:    .block    2    ;Next X position to place a char. on Enter Line
  45. TextYpos:    .block    1    ;Next Y position
  46. EsignX:    .block    2    ;Position of Sign placement for exponent
  47. Epos:    .block    1    ;Ptr into EnterStr to location of sign on exponent
  48. CurNumE:    .block    1    ;Current Number in Entry (icon no.)
  49. Reg1:    .block    5    ;Eight floating point registers for RPN calculator
  50. Reg2:    .block    5
  51. Reg3:    .block    5
  52. Reg4:    .block    5
  53. Reg5:    .block    5
  54. Reg6:    .block    5
  55. Reg7:    .block    5
  56. Reg8:    .block    5
  57. RegMem:    .block    5
  58. fvar:    .block    5    ;Gratuitous floating point variable
  59. stofac1:    .block    5    ;Storage of FAC1
  60. stofac2:    .block    5    ;Storage of FAC2
  61. systring:    .block    $10    ;System String
  62. sysptr:    .block    1    ;Pointer into system string
  63. INVFLG:    .block    1    ;flag for INVerse
  64. oprint:    .block    1    ;Flag for operators, true if need to print 
  65.       Regs
  66. BeforeBAS:    .block    1    ;save MMU config. for GETBASIC and FLUSHBASIC
  67. temp:    .block    1
  68. temp2:    .block    1
  69. tmpblk:    .block    6    ;6 bytes of gratuitous temporary storage
  70. DAEnd:            ;End of RPN!!!!!
  71.