|
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: 896 (0x380)
Types: TextFile
Names: »CMPCHK.SRC«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─ ⟦this⟧ »CMPCHK.SRC«
;ROUTINES TO COMPLEMENT AN OPERAND, AND CHECK FOR A ZERO OPERAND ; NAME CMPCHK ENTRY COMPOP,COMP1,ZERCHK,ZERCK1 INCLUDE FPINIT.SRC ; ; complement an operand ; compop: dad d ;and calculate addr of fpacc comp1: mvi b,fracln ;process whole mantissa mov a,m ;get first byte cma ;complement and... adi 1 ;..add one compl: mov m,a ;save present byte inx h ;bump pointer mov a,m ;get next byte cma ;complement and add aci 0 ;carry djnz compl ;check for last byte ret ;yes...done ; ; check number for a zero ; zerchk: dad d ;and calculate address of fpacc zerck1: mvi b,fracln ;process whole mantissa xra a ;clear accumulator zchka: ora m ;check next byte dcx h ;bump pointer djnz zchka ;any more? ret ;no, return ; «eof»