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