|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Types: TextFile
Names: »FPERR.SRC«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─ ⟦this⟧ »FPERR.SRC«
; fperr - return a zero and set the carry bit ; NAME FPERR ENTRY FPERR EXT FLTERR INCLUDE FPINIT.SRC ; fperr: xra a ;clear acc spix ;set stack pointer pop d ;de <- return address pop y ;restore iy.... cmp intflg(x) ;test for internal operations jc flterr ;record a floating point error pop x ;...and ix lxi h,nbytes+7 ;remove op2, 2 scratch bytes and op1 dad s sphl ;fix stack pointer lxi h,0 ;save zero (op1) on the stack push h push h xchg ;return addr -> hl xra a ;clear accumulator stc ;set carry to indicate error pchl ;return ; «eof»