annotate level1/cmds/prompt.asm @ 1652:558cab468052

RG fixed a bug in the Vavasour emulator clock2 module. clock2 is now of type Sbrtn instead of Systm. clock.asm has been modified to link to this type.
author boisy
date Sat, 17 Jul 2004 12:20:31 +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