Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/bin_asc.a @ 2765:0bd16cca86b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated rules.mak for all the os9 format's to format the entire disk. People were having some issues with the disk images not being formatted to their full capacity and preventing some functions from working.
author drencor-xeen
date Thu, 17 Jan 2013 11:03:26 -0600
parents 7d70b7e1cb21
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 ******************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * Binary word to ASCII string conversion
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * OTHER MODULES NEEDED: none
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * ENTRY: D = binary value
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * X = buffer for 16 bit number
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10 * EXIT: all registers (except cc) preserved
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 nam Convert # to Ascii String
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16 psect BIN_ASC,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 BIN_ASC:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 pshs a,b,x save registers
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 pshs a,b save data again
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 ldb #16 total bits to convert
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 andcc #%11111110 clear CARRY to start
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 binas1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 lda #'0 get ASCII 0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 rol 1,S get hi bit in LSB to carry
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 rol ,S and into MSB; is it 1 or 0?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 bcc binas2 0, skip
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 inca get ASCII 1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31 binas2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 sta ,x+ put it in the buffer
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33 decb done all bits?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34 bne binas1 no, loop
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 clr ,x mark end of string
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36 leas 2,s clean up
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
37 puls a,b,x,pc restore & return
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
38
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
39 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
40