Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/sleep.asm @ 1020:c1a5613ffe7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changes
author boisy
date Thu, 06 Mar 2003 01:41:03 +0000
parents c155aac72190
children 84ea83668304
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 *
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 * 2 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 Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Sleep for some ticks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/14 23:48:34 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 2
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
924
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
26 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 u0000 rmb 450
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 name fcs /Sleep/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 start clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 bsr L0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 bsr L0028
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 tfr d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 os9 F$Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 L0028 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 bcs L0048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 cmpb #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 bhi L0048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 ldb #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 stb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 ldb #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 adca ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 std ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 L0048 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66