mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 07:54:25 +00:00
81 lines
1.2 KiB
Plaintext
81 lines
1.2 KiB
Plaintext
; DATA SEGMENT
|
|
CSEG INPAGE
|
|
PUBLIC IDVT
|
|
PUBLIC FSQRN,FSQRX
|
|
PUBLIC FMACX,FMACS,FMACT,FMACG
|
|
PUBLIC FSINX
|
|
PUBLIC FATNT,FATNU
|
|
PUBLIC FCSHD
|
|
PUBLIC FSNHD,FEXOV,FSNHX
|
|
PUBLIC FLOGE,FLOGX
|
|
PUBLIC SEED
|
|
PUBLIC ACCUM
|
|
;
|
|
PUBLIC FONE,FPIV2,FLN2,FTEN,RND0
|
|
;
|
|
; FPPKG VARIABLES
|
|
PUBLIC OVER,PREX,ACCE,ACCS,ACC1,ACC2,ACC3,SF
|
|
; FPCONV VARIABLES
|
|
PUBLIC ADRL,ADRH,TMP1,TMP2,TMP3,VALE,VAL1,VAL2,VAL3,TMP4
|
|
;
|
|
;
|
|
IDVT EQU T00
|
|
FSQRN EQU T00
|
|
FSQRX EQU T04
|
|
FMACX EQU T00
|
|
FMACS EQU T04
|
|
FMACT EQU T08
|
|
FMACG EQU T0C
|
|
FSINX EQU T10
|
|
FATNT EQU T10
|
|
FATNU EQU T14
|
|
FCSHD EQU T0E
|
|
FSNHD EQU T0E
|
|
FEXOV EQU T0F
|
|
FSNHX EQU T10
|
|
FLOGE EQU T0E
|
|
FLOGX EQU T10
|
|
;
|
|
; VARIABLES FOR FLOATING POINT PACKAGE
|
|
OVER: DS 1
|
|
PREX: DS 1
|
|
ACCE: DS 1
|
|
ACCS: DS 1
|
|
ACC1: DS 1
|
|
ACC2: DS 1
|
|
ACC3: DS 1
|
|
SF: DS 1
|
|
;
|
|
; VARIABLES FOR FLOATING POINT CONVERSION
|
|
|
|
ADRL: DS 1
|
|
ADRH: DS 1
|
|
TMP1: DS 1
|
|
TMP2: DS 1
|
|
TMP3: DS 1
|
|
VALE: DS 1
|
|
VAL1: DS 1
|
|
VAL2: DS 1
|
|
VAL3: DS 1
|
|
TMP4: DS 1
|
|
ACCUM: DS 31 ;WORKING BUFFER
|
|
;
|
|
; VARIABLES FOR TRANSCENDENTAL FUNCTIONS, RANDOM NUMBER GEN
|
|
T00: DS 4
|
|
T04: DS 4
|
|
T08: DS 4
|
|
T0C: DS 2
|
|
T0E: DS 1
|
|
T0F: DS 1
|
|
T10: DS 4
|
|
T14: DS 4
|
|
SEED: DS 2 ;RANDOM NUMBER SEED
|
|
;
|
|
FONE: DB 81H,0,0,0 ;1.0
|
|
FPIV2: DB 81H,49H,0FH,0DCH;PI/2
|
|
FLN2: DB 80H,31H,72H,18H ;LN 2
|
|
FTEN: DB 84H,20H,0,0 ;10.0
|
|
RND0: DB 68H,56H,0BFH,0ADH ;.00000005
|
|
;
|
|
END
|