view lib/alib/mktemp.a @ 2782:aaba193af04f lwtools-port

Updated code to use lwasm/lwlink
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 08:26:31 -0600
parents 7d70b7e1cb21
children
line wrap: on
line source

******************************************
*
* This subroutine creates a temorary filename
* by adding a "." and a 2digit hex value based
* on the process id.
* IMPORTANT: there must be room after the filename
* for at least 6 bytes!! Filename must be variable
* area, not parameter or program sections!!!

* OTHER MODULES NEEDED: BIN_HEX

* ENTRY: X= filename

* EXIT: no registers (expect cc) modified
*       filename ends in ".processid",$0d

 nam Make Unique Filename
 ttl Assembler Library Module


 section .text

MKTEMP:
 pshs d,x,y

 OS9 F$PrsNam find end of name
 tfr y,x

 lda #'.
 sta ,x+ put "." in name

 OS9 F$ID
 tfr a,b convert to 4 digit hex
 lbsr BIN2HEX 
 std ,x++
 lda #$0d end name with cr
 sta ,x
 puls d,x,y,pc

 endsect