home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / RPN64-SRC.SFX / rpnram (.txt) < prev    next >
GEOS ConVerT  |  1990-02-12  |  3KB  |  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. @.include    geosSym
  17. @include    geosMac
  18. .include    RPNconst
  19. .eqin
  20. .ramsect
  21. recoverFlag:
  22.     .block    1    ;holds flags passed from application in r10L
  23. screenBuf:    .block    FG_BUF_SIZE    ;holds application's FG screen data
  24. colorBuf:    .block    NUM_CARDS    ;holds applicatoin
  25. .ramsect
  26. recoverFlag:
  27.     .block    1    ;holds flags passed from application in r10L
  28. screenBuf:    .block    FG_BUF_SIZE    ;holds application's FG screen data
  29. colorBuf:    .block    NUM_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:    .block    1    ;Flag for Entry in progress
  33. F_EXPON:    .block    1    ;Flag if Entry is on exponent
  34. F_FRACTION:        ;Flag if Entry is past decimal point
  35.     .block    1
  36. F_NEG:    .block    1    ;Flag for negative entry
  37. F_NEGE:    .block    1    ;Flag for negative exponent on entry
  38. EnterStr:    .block    $10    ;Current String being entered
  39. EnterPos:    .block    1    ;Pointer to next open spot in EnterStr
  40. ExDigits:    .block    1    ;No. digits in Exponent so far
  41. ManDigits:    .block    1    ;No. digits in Mantissa so far
  42. IPdigs:    .block    1    ;No. digits in Integer part of Mantissa (used in ov.flow check)
  43. TextXpos:    .block    2    ;Next X position to place a character on Enter Line
  44. TextYpos:    .block    1    ;Next Y position
  45. EsignX:    .block    2    ;Position of Sign placement for exponent
  46. Epos:    .block    1    ;Pointer into EnterStr to location of sign on exponent
  47. CurNumE:    .block    1    ;Current Number in Entry (icon no.)
  48. Reg1:    .block    5    ;Eight floating point registers for RPN calculator
  49. Reg2:    .block    5
  50. Reg3:    .block    5
  51. Reg4:    .block    5
  52. Reg5:    .block    5
  53. Reg6:    .block    5
  54. Reg7:    .block    5
  55. Reg8:    .block    5
  56. RegMem:    .block    5
  57. fvar:    .block    5    ;Gratuitous floating point variable
  58. systring:    .block    $10    ;System String
  59. sysptr:    .block    1    ;Pointer into system string
  60. INVFLG:    .block    1    ;flag for INVerse
  61. oprint:    .block    1    ;Flag for operators, true if need to print 
  62.       Regs
  63. BeforeBAS:    .block    1    ;storage of $01 for GETBASIC and FLUSHBASIC
  64. temp:    .block    1
  65. temp2:    .block    1
  66. tmpblk:    .block    6    ;6 bytes of gratuitous temporary storage open to everyone
  67. DAEnd:            ;End of RPN!!!!!
  68.