Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/park.asm @ 200:e9ce43cc215e
Made major changes to headers for consistency and identification
| author | boisy |
|---|---|
| date | Mon, 15 Jul 2002 03:42:42 +0000 |
| parents | 089587ab2d8f |
| children | d049083f7ab0 |
| rev | line source |
|---|---|
| 127 | 1 ******************************************************************** |
| 197 | 2 * Park - Park a hard drive |
| 127 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
197
diff
changeset
|
8 * 1 From Tandy OS-9 Level One VR 02.00.00 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
197
diff
changeset
|
9 * 2 Changed name to a mixture of upper/lowercase BGP 02/07/13 |
| 127 | 10 |
| 197 | 11 nam Park |
| 127 | 12 ttl Park a hard drive |
| 13 | |
| 14 * Disassembled 02/07/06 21:41:10 by Disasm v1.6 (C) 1988 by RML | |
| 15 | |
| 16 ifp1 | |
| 17 use defsfile | |
| 18 endc | |
| 19 | |
| 20 tylg set Prgrm+Objct | |
| 21 atrv set ReEnt+rev | |
| 22 rev set $01 | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
197
diff
changeset
|
23 edition set 2 |
| 127 | 24 |
| 25 mod eom,name,tylg,atrv,start,size | |
| 26 | |
| 27 u0000 rmb 1 | |
| 28 u0001 rmb 2 | |
| 29 u0003 rmb 20 | |
| 30 u0017 rmb 502 | |
| 31 size equ . | |
| 32 | |
| 197 | 33 name fcs /Park/ |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
197
diff
changeset
|
34 fcb edition |
| 127 | 35 |
| 36 HelpMsg fcb C$LF | |
| 197 | 37 fcc "Use: Park </devname> .... " |
| 127 | 38 fcb C$LF |
| 39 fcc " To park hard disk heads" | |
| 40 fcb C$LF | |
| 41 fcc " on inner track of drive" | |
| 42 fcb C$LF,C$CR | |
| 43 HelpMsgL equ *-HelpMsg | |
| 44 | |
| 45 Parked fcc " has been parked. " | |
| 46 fcb C$CR | |
| 47 ParkedLen equ *-Parked | |
| 48 | |
| 49 NoOpen fcc " cannot be opened." | |
| 50 fcb C$CR | |
| 51 NoOpenL equ *-NoOpen | |
| 52 | |
| 53 NoPark fcc " has not been parked." | |
| 54 fcb C$CR | |
| 55 NoParkL equ *-NoPark | |
| 56 | |
| 57 start bsr L0117 | |
| 58 cmpa #C$CR | |
| 59 beq L00E0 | |
| 197 | 60 L00AE cmpa #PDELIM |
| 127 | 61 bne L00E0 |
| 62 bsr L0122 | |
| 63 lda #READ. | |
| 64 os9 I$Open | |
| 65 bcs L00FA | |
| 66 ldb #SS.SQD | |
| 67 os9 I$SetStt | |
| 68 bcs L0106 | |
| 69 lda <u0000 | |
| 70 os9 I$Close | |
| 71 bsr L00EF | |
| 72 leax >Parked,pcr | |
| 73 ldy #ParkedLen | |
| 74 L00D1 os9 I$WritLn | |
| 75 ldx <u0001 | |
| 76 lda ,x | |
| 77 cmpa #C$CR | |
| 78 bne L00AE | |
| 79 L00DC clrb | |
| 80 os9 F$Exit | |
| 197 | 81 L00E0 lda #2 |
| 127 | 82 leax >HelpMsg,pcr |
| 83 ldy #HelpMsgL | |
| 84 os9 I$WritLn | |
| 85 bra L00DC | |
| 86 L00EF leax u0003,u | |
| 197 | 87 lda #2 |
| 127 | 88 ldy <u0017 |
| 89 os9 I$Write | |
| 90 rts | |
| 91 L00FA bsr L00EF | |
| 92 leax >NoOpen,pcr | |
| 93 ldy #NoOpenL | |
| 94 bra L00D1 | |
| 95 L0106 lda <u0000 | |
| 96 os9 I$Close | |
| 97 bsr L00EF | |
| 98 leax >NoPark,pcr | |
| 99 ldy #NoParkL | |
| 100 bra L00D1 | |
| 197 | 101 |
| 102 * Skip spaces | |
| 127 | 103 L0117 lda ,x |
| 104 cmpa #C$SPAC | |
| 105 bne L0121 | |
| 106 leax 1,x | |
| 107 bra L0117 | |
| 108 L0121 rts | |
| 109 | |
| 110 L0122 clrb | |
| 111 leay u0003,u | |
| 112 pshs y | |
| 113 L0127 lda ,x+ | |
| 114 cmpa #C$SPAC | |
| 115 bls L0132 | |
| 116 sta ,y+ | |
| 117 incb | |
| 118 bra L0127 | |
| 197 | 119 L0132 lda #PENTIR |
| 127 | 120 sta ,y+ |
| 121 leax -1,x | |
| 122 bsr L0117 | |
| 123 stx <u0001 | |
| 124 clra | |
| 125 std <u0017,u | |
| 126 puls pc,x | |
| 127 | |
| 128 emod | |
| 129 eom equ * | |
| 130 end | |
| 131 |