Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/mktemp.a @ 2474:7d70b7e1cb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved net and alib files into here
author boisy
date Tue, 30 Mar 2010 02:44:42 +0000
parents
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 * This subroutine creates a temorary filename
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4 * by adding a "." and a 2digit hex value based
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * on the process id.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6 * IMPORTANT: there must be room after the filename
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * for at least 6 bytes!! Filename must be variable
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * area, not parameter or program sections!!!
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 * OTHER MODULES NEEDED: BIN_HEX
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 * ENTRY: X= filename
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14 * EXIT: no registers (expect cc) modified
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15 * filename ends in ".processid",$0d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17 nam Make Unique Filename
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 psect MKTEMP,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 MKTEMP:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 pshs d,x,y
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 OS9 F$PrsNam find end of name
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 tfr y,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 lda #'.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30 sta ,x+ put "." in name
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 OS9 F$ID
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33 tfr a,b convert to 4 digit hex
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34 lbsr BIN2HEX
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 std ,x++
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36 lda #$0d end name with cr
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
37 sta ,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
38 puls d,x,y,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
39
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
40 endsect