80-Bus News

Patch to MBASIC for HSA-88B support 08-10-85 MACRO-80 3.44 09-Dec-81 PAGE

co31 6032 C034 C036 CO3T 6039 cosB cox CO3E co40 co4i

C043 045 co46 cO48 CO4A CO4B

co4D CO4E C051 C054 C057 COSA co5B COSE co61

C064 C066 C068 C069 CO6eB

coec co6D CO6E co70 coT2 coT3 COTS coTe COTT co7s8 co79 COTA co7e

18 1D 3B 02

18 18 38 03

18 13 3B 04

18 OF 3E O07

18 09 3E OA

18 04

cp coee 21 0CO4 CD 2837 cD coe6c

CD C064

CD cosc 03 2BA9

D3 81 DB 81

38 FB

sin:

cost

tant

atnt

exp:

push af dr got ld a2 push af jr got la a,3 push af dr got 14 a,4 push af jr gol la a,T push af gr gol ld a,Oah push af ir gol

1-1

} Save command, push operands into Am9511, issue command, read

go:

gots

3; Issue

eomnad: omndO:

on em om cm

envamd:

camds

push af eall cnvamd id hl,fac call movrm eall eonvamd pop af call emnd call cnvms gp mnovfr

Push operand 1 Get 2nd

ae ee

Pugh it

Add command

Carry it out

Get result

Put back in FAC & exit

om on ee em em

a command and wait for completion

out (amd$e),a in a, (amd$c) rlea

dr c,cmndO ret

Read status fest busy bit Loop if so

tm em om oe

Conversion routine to convert Microsoft Format to AMDQ511 format, while pushing the value onto the AMD stack.

Number is held in BCDE, with the exponent in B.

1d a,b or a

jr BOBS sub 80h add aa ri c

rra

push af act

1d a,c rra

1d c,amd$d out (a),e

Load exponent Zero?

Remove bias Shift up

Save it Set MSB of mantissa

Point to data port Send mantissa

oman

reed

Done (Ignore any errors)

Get sign of mantissa in carry Put on front of Exponent

Patch to MBASIC

COTE co80 cos2 C083 C085 C086 COBT COBA

cose COBB cago co92 C094 C096 co9T cogs CO9A cooB co9D coor COAt

COA2 COM COAG COAT COAA

QOAB

Macros:

Symbols: 90381 COTA coe6ec C039 co1s co4D 28A9 co2Fr C086

ED 51 ED 79

AMDSC

CRVAMD cos FPADD GO MOVFR

222

No Fatal error(s)

0080 CO64 cose c048 C026 cos! 2887 CO3E

Bani

onvms:

codelen

AMDSD CMND CNYMS EXP FPDIV G01 MOVRM TAN

for HSA--88B support 08-10-83 MACRO-8 3.44 09-Dec-8!1 PAGE 192

out (c),4 out (c),a pop af out (c),a ret

push af

id de,O ar cand

Recover exponent Send it

Done

Set 0 on stack ensure DE isa 0

we em em em em

Routine to read a result back from the AMD9511, and to convert it to Microsoft format.

1d c,amd$d in .a,(e) in \b,

in in ld ld rl add rr sra add ld in a, (amd$c) and 20h

ret z

ld be,0

ret

Data port Get Exponent + Mantisaa sign Get mantissa

Bo

aN oo 8 ete

Get to correct place

*

*

Get rid of leading 1 replace by Mantisaa sign

Extended Exponent sign while Replace the bias Guthag Put in B

Check if was 0

Zero?

No, done

Yes, flag it

Done.

a os 6 oococ ons og of

-dephase

equ $-ttt Ho. of bytes to move

end

C043 ATN C066 CMNDO OOAB CODSLEN oco4 FAC co22 FPMPY CO2A LOG C034 SIN oooc’ ttt

11