|
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: »DONE2.SRC«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─ ⟦this⟧ »DONE2.SRC«
; done2 -- done with a two operand operation ; NAME DONE2 ENTRY DONE2 EXT FNORM INCLUDE FPINIT.SRC INCLUDE FPMAC.SRC ; done2: normfp 1 ;first normalize result push x ;restore de as stack index pop d xra a ;clear acc, carry cmp intflg(x) ;check internal op flag rnz ;return if operation is internal pop d ;de <- return address pop y ;restore iy.... pop x ;...and ix ;remove op2, 2 scratch bytes and extra byte of op1 from stack lxi h,nbytes+3 dad s sphl ;fix stack pointer xchg ;return addr -> hl xra a ;clear accumulator pchl ;return ; «eof»