Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/save.asm @ 474:31ce96b2dc9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered: chdir chmod qsort strass toupper tsleep wait
author roug
date Sun, 06 Oct 2002 09:10:36 +0000
parents e9ce43cc215e
children ce3cd4f19b18
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Save - Save module from memory to disk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 0
diff changeset
8 * 3 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Save
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Save module from memory to disk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/14 23:45:22 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 edition set 3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 u0000 rmb 451
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 name fcs /Save/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 start leay -1,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 pshs y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 cmpx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 bcc L0060
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 ldd #$022F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 os9 I$Create
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 bcs L0061
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 sta <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 bne L002C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 ldx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 L002C lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 cmpa #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 beq L002C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 cmpa #C$COMA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 beq L002C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 bcs L0061
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 stx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 leax ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 ldy $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 os9 F$UnLink
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 ror ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 bcs L0061
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 ldx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 cmpx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 bcs L002C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 bcs L0061
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 L0060 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 L0061 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 end