Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/setime.asm @ 1020:c1a5613ffe7b
changes
| author | boisy |
|---|---|
| date | Thu, 06 Mar 2003 01:41:03 +0000 |
| parents | c155aac72190 |
| children | 84ea83668304 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Setime - Set Date/Time | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * This is a Setime for use when a Y2K compliant system is required. | |
| 7 * | |
| 8 * This is somewhat of a cheat in that any attempts to do a full | |
| 9 * 4 digit conversion on the entered date string would have | |
| 10 * seriously broken the nice, generally compact codeing of the | |
| 11 * original setime module. I didn't want to do that, so I cheated | |
| 12 * and simply added one more byte to the date packet image it builds | |
| 13 * on the stack. Its conversion algorithm does 2 digits per pass/byte | |
| 14 * so if you enter 1998 (You MUST now enter the year as a 4 digit | |
| 15 * value!), this image will have a $13 as itas first and unused | |
| 16 * digit, if you enter a 20xx date, it will be a $14. | |
| 17 * | |
| 18 * I check this value after the rest of the conversion is all | |
| 19 * done, and if its $14 (or more), an extra 100 ($64) is added to the | |
| 20 * os9 year byte before the system F$STime call is made, pointing | |
| 21 * the F$STime call at only the normal 6 byte packet of time data. | |
| 22 * | |
| 23 * I've played with this maybe 20 minutes. Hopefully you can use | |
| 24 * this into the next century without any further concerns about | |
| 25 * the "Y2K" problem. | |
| 26 * | |
| 27 * Ed. Comments Who YY/MM/DD | |
| 28 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
11
diff
changeset
|
29 * 10 Made Y2K compliant GH |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
11
diff
changeset
|
30 * 11 Made totally compliant for 1900-2155 BGP 99/05/07 |
|
265
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
31 * 12 Typing a CR at the prompt no longer sets the BGP 02/07/20 |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
32 * time to a bogus value. |
| 0 | 33 |
| 34 nam Setime | |
| 35 ttl Set Date/Time | |
| 36 | |
| 37 * Disassembled 96/09/26 00:34:54 by Dsm v1.7 (C) 1988 by RML | |
| 38 | |
| 39 ifp1 | |
| 40 use defsfile | |
| 41 endc | |
| 42 | |
| 43 tylg set Prgrm+Objct | |
| 44 atrv set ReEnt+rev | |
| 45 rev set $01 | |
|
265
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
46 edition set 12 |
| 0 | 47 |
| 48 mod eom,name,tylg,atrv,start,size | |
| 49 | |
| 924 | 50 org 0 |
| 0 | 51 u0000 rmb 450 |
| 52 size equ . | |
| 53 | |
| 54 name fcs /Setime/ | |
| 55 fcb 10 | |
| 56 | |
| 57 L0014 fcb C$LF | |
| 58 fcb C$LF | |
| 59 fcb C$BELL | |
| 60 fcc " >> No Clock module found <<" | |
| 61 fcb C$LF | |
| 62 fcb C$LF | |
| 63 L0036 fcb C$LF | |
| 64 fcb C$LF | |
| 65 fcb C$BELL | |
| 66 fcc " >> Clock Initialization Errors <<" | |
| 67 fcb C$LF | |
| 68 fcb C$LF | |
| 69 L005E fcb C$LF | |
| 70 fcc " yyyy/mm/dd hh:mm:ss" | |
| 71 fcb C$LF | |
| 72 fcc "Time ? " | |
| 73 L005EL equ *-L005E | |
| 74 | |
| 75 start cmpd #2 | |
| 76 bcc L00A3 | |
| 77 leas <-20,s | |
| 78 leax >L005E,pcr | |
| 79 ldy #L005EL | |
| 80 lda #1 | |
| 81 os9 I$WritLn | |
| 82 leax ,s | |
| 83 lda #C$CR | |
| 84 sta ,x | |
| 85 ldy #21 | |
| 86 clra | |
| 87 os9 I$ReadLn | |
| 88 | |
|
265
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
89 L00A3 |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
90 * BGP: following lines added in case CR is pressed at prompt. No need to set time |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
91 * if there is nothing to process |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
92 GetNext lda ,x+ +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
93 cmpa #C$CR +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
94 beq L00DF +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
95 cmpa #C$SPAC +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
96 beq GetNext +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
97 cmpa #C$COMA +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
98 beq GetNext +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
99 leax -1,x +BGP+ |
|
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
100 |
| 0 | 101 * Make room for time packet on stack |
|
265
4b547814b192
Added code to prevent setting of time if carriage return was pressed
boisy
parents:
200
diff
changeset
|
102 leas -7,s |
| 0 | 103 bsr L00E3 |
| 104 stb ,s | |
| 105 bsr L00E3 | |
| 106 stb $01,s | |
| 107 bsr L00E3 | |
| 108 stb $02,s | |
| 109 bsr L00E3 | |
| 110 stb $03,s | |
| 111 bsr L00E3 | |
| 112 stb $04,s | |
| 113 bsr L00E3 | |
| 114 stb $05,s | |
| 115 bsr L00E3 | |
| 116 stb $06,s now we have a 7 byte pkt | |
| 117 ldb ,s get 1st 2 digits (century) | |
| 118 subb #19 subtract 19 from century +BGP+ | |
| 119 lda #100 now we will +BGP+ | |
| 120 mul multiply difference * 100, now B holds 0, 100 or 200 +BGP+ | |
| 121 addb 1,s add os9's year to century byte +BGP+ | |
| 122 stb 1,s save back in year | |
| 123 leax 1,s | |
| 124 os9 F$STime | |
| 125 bcc L00DF | |
| 126 cmpb #$EA | |
| 127 bne L00D2 | |
| 128 leax >L0014,pcr | |
| 129 ldy #$0022 | |
| 130 bra L00DA | |
| 131 L00D2 leax >L0036,pcr | |
| 132 ldy #40 | |
| 133 L00DA lda #1 | |
| 134 os9 I$WritLn | |
| 135 L00DF clrb | |
| 136 os9 F$Exit | |
| 137 | |
| 138 L00E3 clrb | |
| 139 bsr L0101 | |
| 140 bsr L0101 | |
| 141 lda ,x+ | |
| 142 cmpa #C$SPAC | |
| 143 beq L0100 | |
| 144 cmpa #'/ | |
| 145 beq L0100 | |
| 146 cmpa #': | |
| 147 beq L0100 | |
| 11 | 148 cmpa #C$COMA |
| 0 | 149 beq L0100 |
| 11 | 150 cmpa #C$PERD |
| 0 | 151 beq L0100 |
| 152 leax -1,x | |
| 153 L0100 rts | |
| 154 | |
| 155 L0101 lda ,x get a digit | |
| 156 suba #$30 make it binary | |
| 157 bcs L0114 not a number, go | |
| 158 cmpa #$09 | |
| 159 bhi L0114 not a number, go | |
| 160 leax $01,x inc to next num | |
| 161 pshs a save a | |
| 162 lda #$0A do a 10x | |
| 163 mul | |
| 164 addb ,s+ save result | |
| 165 L0114 rts all done | |
| 166 | |
| 167 emod | |
| 168 eom equ * | |
| 169 end |