Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/load.a @ 1869:a51439f6b206

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Massive checkin
author boisy
date Sat, 30 Jul 2005 03:36:05 +0000
parents
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1869
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
1 ********************************************************************
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
2 * Load - Load a module
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
3 *
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
4 * $Id$
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
5 *
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
7 * Comment
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
9 * 4 ????/??/??
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
10 * From Tandy OS-9 Level One VR 02.00.00.
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
11
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
12 nam Load
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
13 ttl Load a module
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
14
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
15 use defsfile.d
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
16
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
17 rev set $00
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
18 edition set 4
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
19
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
20 psect load_a,Prgrm+Objct,ReEnt+rev,edition,200,start
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
21
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
22 vsect dp
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
23 u0000 rmb 200
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
24 endsect
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
25
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
26 start os9 F$Load
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
27 bcs Exit
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
28 lda ,x
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
29 cmpa #C$CR
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
30 bne start
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
31 clrb
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
32 Exit os9 F$Exit
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
33
a51439f6b206 Massive checkin
boisy
parents:
diff changeset
34 endsect