80-Bus News |
September–October 1983, Volume 2, Issue 5 |
|
|
|
Page 11 of 67 |
|
|
|
---|
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
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 11 of 67 |
|
|
|
---|