Mercurial > hg > Members > kono > nitros9-code
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