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 >
Wrap
GEOS ConVerT
|
1990-02-12
|
3KB
|
71 lines
RPNram
SEQ formatted GEOS file V1.0
Star NX-10
OP V2.0 or higher
;"RPNconst
BLASTER'S CONVERTER V2.5
geosSym.RPN
geosMac
Write Image V2.1
geoWrite V2.0
0RAMSECT for RPN64.
d +# k" t
;****************************************************************
; Global Variables for RPN
;****************************************************************
noeqin
@.include geosSym
@include geosMac
.include RPNconst
.eqin
**********************************
; BASIC equates
;*********************************************************************
fac1 == $63
facexp == $63
facsgn == $68
fac2 == $6a
givayf == $af03
fac1mem == $af66
.ramsect
appzpage: .block $9e ;holds application's zero page word-registers et al
Save380: .block $80 ;holds $380 contents while CHRGET is there
GEOSzero: .block $41 ;holds GEOS Kernal's zero page while BASIC is in
F_ENTRY: .block 1 ;Flag for Entry in progress
F_EXPON: .block 1 ;Flag if Entry is on exponent
F_FRACTION: .block 1 ;Flag if Entry is past decimal point
F_NEG: .block 1 ;Flag for negative entry
F_NEGE: .block 1 ;Flag for negative exponent on entry
EnterStr: .block $10 ;Current String being entered (<=16 characters)
EnterPos: .block 1 ;Pointer to next open spot in EnterStr
ExDigits: .block 1 ;No. digits in Exponent so far
ManDigits: .block 1 ;No. digits in Mantissa so far
IPdigs: .block 1 ;No. digits in Int. part of Mantissa (for ov.flow)
TextXpos: .block 2 ;Next X position to place a char. on Enter Line
TextYpos: .block 1 ;Next Y position
EsignX: .block 2 ;Position of Sign placement for exponent
Epos: .block 1 ;Ptr into EnterStr to location of sign on exponent
CurNumE: .block 1 ;Current Number in Entry (icon no.)
Reg1: .block 5 ;Eight floating point registers for RPN calculator
Reg2: .block 5
Reg3: .block 5
Reg4: .block 5
Reg5: .block 5
Reg6: .block 5
Reg7: .block 5
Reg8: .block 5
RegMem: .block 5
fvar: .block 5 ;Gratuitous floating point variable
stofac1: .block 5 ;Storage of FAC1
stofac2: .block 5 ;Storage of FAC2
systring: .block $10 ;System String
sysptr: .block 1 ;Pointer into system string
INVFLG: .block 1 ;flag for INVerse
oprint: .block 1 ;Flag for operators, true if need to print
Regs
BeforeBAS: .block 1 ;save MMU config. for GETBASIC and FLUSHBASIC
temp: .block 1
temp2: .block 1
tmpblk: .block 6 ;6 bytes of gratuitous temporary storage
DAEnd: ;End of RPN!!!!!