annotate level1/cmds/prompt.asm @ 1919:028161cd3535

uses ss.fd
author boisy
date Fri, 25 Nov 2005 12:39:54 +0000
parents 2b0af03a7915
children
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 *
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
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
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
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
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
105c50406cb2 Removed .60hz and .50hz targets
boisy
parents: 1213
diff changeset
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