Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/prompt.asm @ 1251:411c88ed62f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed bug in os9p1, now boots in Level Two! Also inc'ed rev (and in os9p2)
author boisy
date Sun, 17 Aug 2003 12:59:47 +0000
parents 105c50406cb2
children 84ea83668304
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 *
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
8 * 1 Created BGP 03/06/28
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
9
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
10 nam Prompt
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
11 ttl Echo text and wait for a key
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
12
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
13 ifp1
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
14 use defsfile
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
15 endc
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
16
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
17 tylg set Prgrm+Objct
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
18 atrv set ReEnt+rev
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
19 rev set $00
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
20 edition set 1
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
21
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
22 mod eom,name,tylg,atrv,start,size
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 org 0
1217
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
25 inputbuf rmb 16
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
26 devopts rmb 32
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
27 rmb 450
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
28 size equ .
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
29
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
30 name fcs /Prompt/
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
31 fcb edition
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
32
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
33 cr fcb C$CR
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 start decb subtract CR from param length
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
36 beq readkey if zero, don't print anything
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
37 clra clear upper 8 bits
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
38 tfr d,y transfer length to Y
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
39 lda #$01 stdout
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
40 os9 I$Write
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
41 bcs exit
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
42 readkey ldd #$02*256 stderr
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
43 * ldb #SS.Opt get options
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
44 leax devopts,u
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
45 os9 I$GetStt get 'em
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
46 bcs exit
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
47 clr (PD.EKO-PD.OPT),x
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
48 os9 I$SetStt set 'em
1217
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
49 leax inputbuf,u
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
50 ldy #$0001 one character
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
51 os9 I$Read read one char from stderr
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
52 clrb
1217
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
53 leax devopts,u
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
54 inc (PD.EKO-PD.OPT),x turn on echo
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
55 os9 I$SetStt set 'em
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
56 leax cr,pcr
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
57 lda #$01 to stdout
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
58 os9 I$WritLn write it out
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
59 exit os9 F$Exit
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
60
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
61 emod
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
62 eom equ *
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
63 end
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
diff changeset
64