Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/prompt.asm @ 1919:028161cd3535
uses ss.fd
author | boisy |
---|---|
date | Fri, 25 Nov 2005 12:39:54 +0000 |
parents | 2b0af03a7915 |
children |
rev | line source |
---|---|
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
1 ******************************************************************** |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
2 * Prompt - Echo text and wait for a key |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
3 * |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
4 * $Id$ |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
5 * |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1217
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:
1217
diff
changeset
|
7 * Comment |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
8 * ------------------------------------------------------------------ |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1217
diff
changeset
|
9 * 1 2003/06/28 Boisy G. Pitre |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1217
diff
changeset
|
10 * Created. |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
11 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
12 nam Prompt |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
13 ttl Echo text and wait for a key |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
14 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
15 ifp1 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
16 use defsfile |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
17 endc |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
18 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
19 tylg set Prgrm+Objct |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
20 atrv set ReEnt+rev |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
21 rev set $00 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
22 edition set 1 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
23 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
24 mod eom,name,tylg,atrv,start,size |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
25 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
26 org 0 |
1217 | 27 inputbuf rmb 16 |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
28 devopts rmb 32 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
29 rmb 450 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
30 size equ . |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
31 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
32 name fcs /Prompt/ |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
33 fcb edition |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
34 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
35 cr fcb C$CR |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
36 |
1359
2b0af03a7915
Replaced decb with subd #$0001 which is more "proper"
boisy
parents:
1325
diff
changeset
|
37 start subd #$0001 subtract CR from param length |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
38 beq readkey if zero, don't print anything |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
39 clra clear upper 8 bits |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
40 tfr d,y transfer length to Y |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
41 lda #$01 stdout |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
42 os9 I$Write |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
43 bcs exit |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
44 readkey ldd #$02*256 stderr |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
45 * ldb #SS.Opt get options |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
46 leax devopts,u |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
47 os9 I$GetStt get 'em |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
48 bcs exit |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
49 clr (PD.EKO-PD.OPT),x |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
50 os9 I$SetStt set 'em |
1217 | 51 leax inputbuf,u |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
52 ldy #$0001 one character |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
53 os9 I$Read read one char from stderr |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
54 clrb |
1217 | 55 leax devopts,u |
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
56 inc (PD.EKO-PD.OPT),x turn on echo |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
57 os9 I$SetStt set 'em |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
58 leax cr,pcr |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
59 lda #$01 to stdout |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
60 os9 I$WritLn write it out |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
61 exit os9 F$Exit |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
62 |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
63 emod |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
64 eom equ * |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
65 end |
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff
changeset
|
66 |