Mercurial > hg > Members > kono > nitros9-code
comparison level1/cmds/prompt.asm @ 1213:4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
author | boisy |
---|---|
date | Sat, 28 Jun 2003 18:41:05 +0000 |
parents | |
children | 105c50406cb2 |
comparison
equal
deleted
inserted
replaced
1212:c2f6949523f6 | 1213:4e235f213651 |
---|---|
1 ******************************************************************** | |
2 * Prompt - Echo text and wait for a key | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
8 * 1 Created BGP 03/06/28 | |
9 | |
10 nam Prompt | |
11 ttl Echo text and wait for a key | |
12 | |
13 ifp1 | |
14 use defsfile | |
15 endc | |
16 | |
17 tylg set Prgrm+Objct | |
18 atrv set ReEnt+rev | |
19 rev set $00 | |
20 edition set 1 | |
21 | |
22 mod eom,name,tylg,atrv,start,size | |
23 | |
24 org 0 | |
25 devopts rmb 32 | |
26 rmb 450 | |
27 size equ . | |
28 | |
29 name fcs /Prompt/ | |
30 fcb edition | |
31 | |
32 cr fcb C$CR | |
33 | |
34 start decb subtract CR from param length | |
35 beq readkey if zero, don't print anything | |
36 clra clear upper 8 bits | |
37 tfr d,y transfer length to Y | |
38 lda #$01 stdout | |
39 os9 I$Write | |
40 bcs exit | |
41 readkey ldd #$02*256 stderr | |
42 * ldb #SS.Opt get options | |
43 leax devopts,u | |
44 os9 I$GetStt get 'em | |
45 bcs exit | |
46 clr (PD.EKO-PD.OPT),x | |
47 os9 I$SetStt set 'em | |
48 ldy #$0001 one character | |
49 os9 I$Read read one char from stderr | |
50 clrb | |
51 inc (PD.EKO-PD.OPT),x turn on echo | |
52 os9 I$SetStt set 'em | |
53 leax cr,pcr | |
54 lda #$01 to stdout | |
55 os9 I$WritLn write it out | |
56 exit os9 F$Exit | |
57 | |
58 emod | |
59 eom equ * | |
60 end | |
61 |