Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/sleep.asm @ 2898:28ed72477814 lwtools-port
Dummy merge of default branch into lwtools
hg -y merge --tool=internal:fail default
hg revert --all --no-backup --rev .
hg resolve -a -m
This dummy merge discards any changes from the default branch
so that the result is the same as what lwtools already had.
When merging back to default branch later, the discarded
changes will be discarded there also, so the result
will be that the default branch will contain what
the lwtools branch had before these merges.
Only scripts/burst was "rescued" from default branch.
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Sat, 11 Jan 2014 18:40:44 +0100 |
parents | 84ea83668304 |
children |
rev | line source |
---|---|
0 | 1 ******************************************************************** |
2 * Sleep - Sleep for some ticks | |
3 * | |
4 * $Id$ | |
5 * | |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
7 * Comment |
0 | 8 * ------------------------------------------------------------------ |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
9 * 2 ????/??/?? |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
0 | 11 |
12 nam Sleep | |
13 ttl Sleep for some ticks | |
14 | |
15 * Disassembled 98/09/14 23:48:34 by Disasm v1.6 (C) 1988 by RML | |
16 | |
17 ifp1 | |
18 use defsfile | |
19 endc | |
20 | |
21 tylg set Prgrm+Objct | |
22 atrv set ReEnt+rev | |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
23 rev set $00 |
0 | 24 edition set 2 |
25 | |
26 mod eom,name,tylg,atrv,start,size | |
27 | |
924 | 28 org 0 |
0 | 29 u0000 rmb 450 |
30 size equ . | |
31 | |
32 name fcs /Sleep/ | |
33 fcb edition | |
34 | |
35 start clra | |
36 clrb | |
37 bsr L0028 | |
38 bsr L0028 | |
39 bsr L0028 | |
40 bsr L0028 | |
41 bsr L0028 | |
42 tfr d,x | |
43 os9 F$Sleep | |
44 clrb | |
45 os9 F$Exit | |
46 L0028 pshs b,a | |
47 ldb ,x | |
48 subb #$30 | |
49 bcs L0048 | |
50 cmpb #$09 | |
51 bhi L0048 | |
52 leax $01,x | |
53 pshs b | |
54 ldb #$0A | |
55 mul | |
56 stb $01,s | |
57 lda $02,s | |
58 ldb #$0A | |
59 mul | |
60 addb ,s+ | |
61 adca ,s | |
62 std ,s | |
63 L0048 puls pc,b,a | |
64 | |
65 emod | |
66 eom equ * | |
67 end | |
68 |