Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/save.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children e9ce43cc215e
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Save - Save module from memory to disk
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 3 Original Tandy distribution version
9
10 nam Save
11 ttl Save module from memory to disk
12
13 * Disassembled 98/09/14 23:45:22 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set Prgrm+Objct
20 atrv set ReEnt+rev
21 rev set $01
22 edition set 3
23
24 mod eom,name,tylg,atrv,start,size
25
26 u0000 rmb 451
27 size equ .
28
29 name fcs /Save/
30 fcb edition
31
32 start leay -1,y
33 pshs y,x
34 cmpx $02,s
35 bcc L0060
36 ldd #$022F
37 os9 I$Create
38 bcs L0061
39 sta <u0000
40 lda ,x
41 cmpa #C$CR
42 bne L002C
43 ldx ,s
44 L002C lda ,x+
45 cmpa #C$SPAC
46 beq L002C
47 cmpa #C$COMA
48 beq L002C
49 leax -$01,x
50 clra
51 os9 F$Link
52 bcs L0061
53 stx ,s
54 leax ,u
55 ldy $02,x
56 lda <u0000
57 os9 I$Write
58 pshs b,cc
59 os9 F$UnLink
60 ror ,s+
61 puls b
62 bcs L0061
63 ldx ,s
64 cmpx $02,s
65 bcs L002C
66 os9 I$Close
67 bcs L0061
68 L0060 clrb
69 L0061 os9 F$Exit
70
71 emod
72 eom equ *
73 end