Mercurial > hg > Members > kono > os9 > sbc09
view CoCoOS9/level2v3/CMDS/sleep.asm @ 31:bd2b07db8917 cocoos9lv2v3
CoCoOS9 version
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 14 Jul 2018 15:16:13 +0900 |
parents | |
children |
line wrap: on
line source
******************************************************************** * Sleep - Sleep for some ticks * * $Id: sleep.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 2 Original Tandy distribution version nam Sleep ttl Sleep for some ticks * Disassembled 98/09/14 23:48:34 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set 2 mod eom,name,tylg,atrv,start,size u0000 rmb 450 size equ . name fcs /Sleep/ fcb edition start clra clrb bsr L0028 bsr L0028 bsr L0028 bsr L0028 bsr L0028 tfr d,x os9 F$Sleep clrb os9 F$Exit L0028 pshs b,a ldb ,x subb #$30 bcs L0048 cmpb #$09 bhi L0048 leax $01,x pshs b ldb #$0A mul stb $01,s lda $02,s ldb #$0A mul addb ,s+ adca ,s std ,s L0048 puls pc,b,a emod eom equ * end