Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/iniz.asm @ 2898:28ed72477814 lwtools-port
Dummy merge of default branch into lwtools
hg -y merge --tool=internal:fail default
hg revert --all --no-backup --rev .
hg resolve -a -m
This dummy merge discards any changes from the default branch
so that the result is the same as what lwtools already had.
When merging back to default branch later, the discarded
changes will be discarded there also, so the result
will be that the default branch will contain what
the lwtools branch had before these merges.
Only scripts/burst was "rescued" from default branch.
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Sat, 11 Jan 2014 18:40:44 +0100 |
parents | 84ea83668304 |
children |
rev | line source |
---|---|
96 | 1 ******************************************************************** |
2 * Iniz - Initialize a device | |
3 * | |
4 * $Id$ | |
5 * | |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
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:
830
diff
changeset
|
7 * Comment |
96 | 8 * ------------------------------------------------------------------ |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
9 * 3 ????/??/?? |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
11 * |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
12 * 4 2003/01/13 Boisy G. Pitre |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
13 * Tightened code, changed behavior slightly. |
96 | 14 |
15 nam Iniz | |
16 ttl Initialize a device | |
17 | |
189 | 18 * Disassembled 98/09/10 22:56:37 by Disasm v1.6 (C) 1988 by RML |
96 | 19 |
20 ifp1 | |
21 use defsfile | |
22 endc | |
23 | |
24 tylg set Prgrm+Objct | |
25 atrv set ReEnt+rev | |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
830
diff
changeset
|
26 rev set $00 |
827 | 27 edition set 4 |
28 | |
830 | 29 lsize equ 80 |
96 | 30 |
31 mod eom,name,tylg,atrv,start,size | |
826 | 32 |
33 org 0 | |
830 | 34 rbuffer rmb lsize+1 |
827 | 35 stack rmb 64 |
96 | 36 size equ . |
37 | |
38 name fcs /Iniz/ | |
189 | 39 fcb edition |
96 | 40 |
826 | 41 start lda ,x get command line char |
42 cmpa #C$CR CR? | |
43 beq ReadnInz branch if so | |
827 | 44 InizDev lda ,x+ |
96 | 45 cmpa #C$CR |
827 | 46 beq ExitOk |
47 cmpa #C$SPAC | |
48 beq InizDev | |
49 cmpa #PDELIM pathlist? | |
50 beq AttachIt | |
51 leax -1,x else back up X | |
52 AttachIt clra | |
53 os9 I$Attach attach to the device at X | |
54 bcs Exit branch if error | |
55 bra InizDev | |
826 | 56 |
827 | 57 ReadnInz clra from stdin |
830 | 58 leax rbuffer,u point to read buffer |
59 ldy #lsize get lsize bytes | |
827 | 60 os9 I$ReadLn read it! |
61 bcc InizDev branch if error | |
62 cmpb #E$EOF end of file? | |
63 bne Exit branch if not | |
64 ExitOk clrb | |
65 Exit os9 F$Exit | |
96 | 66 |
67 emod | |
68 eom equ * | |
69 end |