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
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 * Sleep - Sleep for some ticks
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 *
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 nam Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 ttl Sleep for some ticks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 * Disassembled 98/09/14 23:48:34 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 edition set 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27
924
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
28 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0000 rmb 450
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 name fcs /Sleep/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 start clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 tfr d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 os9 F$Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 L0028 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 bcs L0048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 cmpb #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 bhi L0048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 ldb #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 stb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 ldb #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 adca ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 std ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 L0048 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68