Mercurial > hg > Members > kono > nitros9-code

comparison 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
comparison
equal deleted inserted replaced
1868:cba8a54bc509 1869:a51439f6b206
1 ********************************************************************
2 * Load - Load a module
3 *
4 * $Id$
5 *
6 * Edt/Rev YYYY/MM/DD Modified by
7 * Comment
8 * ------------------------------------------------------------------
9 * 4 ????/??/??
10 * From Tandy OS-9 Level One VR 02.00.00.
11
12 nam Load
13 ttl Load a module
14
15 use defsfile.d
16
17 rev set $00
18 edition set 4
19
20 psect load_a,Prgrm+Objct,ReEnt+rev,edition,200,start
21
22 vsect dp
23 u0000 rmb 200
24 endsect
25
26 start os9 F$Load
27 bcs Exit
28 lda ,x
29 cmpa #C$CR
30 bne start
31 clrb
32 Exit os9 F$Exit
33
34 endsect