00000000  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000100  0d 00 32 14 20 f4 20 2d  20 43 41 4c 4c 20 4d 31  |..2. . - CALL M1|
00000110  2c 43 57 25 0d 00 37 23  20 f4 20 20 20 52 6f 74  |,CW%..7# .   Rot|
00000120  61 74 65 73 20 4d 6f 74  6f 72 20 23 31 20 63 6c  |ates Motor #1 cl|
00000130  6f 63 6b 77 69 73 65 0d  00 3c 15 20 f4 20 2d 20  |ockwise..<. . - |
00000140  43 41 4c 4c 20 4d 31 2c  43 43 57 25 0d 00 41 2b  |CALL M1,CCW%..A+|
00000150  20 f4 20 20 20 52 6f 74  61 74 65 73 20 4d 6f 74  | .   Rotates Mot|
00000160  6f 72 20 23 31 20 63 6f  75 6e 74 65 72 2d 63 6c  |or #1 counter-cl|
00000170  6f 63 6b 77 69 73 65 0d  00 46 14 20 f4 20 2d 20  |ockwise..F. . - |
00000180  43 41 4c 4c 20 4d 31 2c  47 4f 25 0d 00 4b 2b 20  |CALL M1,GO%..K+ |
00000190  f4 20 20 20 53 77 69 74  63 68 65 73 20 64 65 76  |.   Switches dev|
000001a0  69 63 65 20 63 6f 6e 6e  65 63 74 65 64 20 74 6f  |ice connected to|
000001b0  20 4d 31 20 6f 6e 0d 00  50 16 20 f4 20 2d 20 43  | M1 on..P. . - C|
000001c0  41 4c 4c 20 4d 31 2c 48  41 4c 54 25 0d 00 55 2c  |ALL M1,HALT%..U,|
000001d0  20 f4 20 20 20 53 77 69  74 63 68 65 73 20 64 65  | .   Switches de|
000001e0  76 69 63 65 20 63 6f 6e  6e 65 63 74 65 64 20 74  |vice connected t|
000001f0  6f 20 4d 31 20 6f 66 66  0d 00 5a 34 20 f4 20 49  |o M1 off..Z4 . I|
00000200  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000300  6e 64 69 6e 67 20 6f 6e  20 74 68 65 20 63 75 72  |nding on the cur|
00000310  72 65 6e 74 20 70 6f 73  69 74 69 6f 6e 20 6f 66  |rent position of|
00000320  20 74 68 65 20 70 6f 74  65 6e 74 69 6f 6d 65 74  | the potentiomet|
00000330  65 72 0d 00 78 53 20 f4  20 49 6e 73 74 65 61 64  |er..xS . Instead|
00000340  20 6f 66 20 27 45 58 27  20 79 6f 75 20 63 61 6e  | of 'EX' you can|
00000350  20 61 6c 73 6f 20 75 73  65 20 27 45 59 27 20 74  | also use 'EY' t|
00000360  6f 20 6f 62 74 61 69 6e  20 61 20 76 61 6c 75 65  |o obtain a value|
00000370  20 66 72 6f 6d 20 70 6f  74 65 6e 74 69 6f 6d 65  | from potentiome|
00000380  74 65 72 20 59 0d 00 7d  0e 20 e9 20 64 72 72 3d  |ter Y..}. . drr=|
00000390  26 36 32 0d 00 82 0d 20  e9 20 75 70 3d 26 36 30  |&62.... . up=&60|
000003a0  0d 00 87 0e 20 e9 20 74  69 6c 3d 26 36 38 0d 00  |.... . til=&68..|
000003b0  8c 0e 20 e9 20 74 69 68  3d 26 36 39 0d 00 91 0e  |.. . tih=&69....|
000003c0  20 e9 20 74 69 63 3d 26  36 42 0d 00 96 0f 20 e9  | . tic=&6B.... .|
000003d0  20 61 76 61 72 3d 26 38  30 0d 00 9b 0f 20 e9 20  | avar=&80.... . |
000003e0  6d 61 73 6b 3d 26 38 31  0d 00 a0 10 20 e9 20 62  |mask=&81.... . b|
000003f0  75 66 66 3d 26 38 32 20  0d 00 a5 10 20 e9 20 61  |uff=&82 .... . a|
00000400  73 61 76 65 3d 26 38 34  0d 00 aa 10 20 e9 20 78  |save=&84.... . x|
00000410  73 61 76 65 3d 26 38 35  0d 00 af 10 20 e9 20 79  |save=&85.... . y|
00000420  73 61 76 65 3d 26 38 36  0d 00 b4 0d 20 de 20 4d  |save=&86.... . M|
00000430  25 20 35 30 30 0d 00 b9  12 20 e3 20 5a 3d 30 20  |% 500.... . Z=0 |
00000440  b8 20 32 20 88 20 32 0d  00 be 0a 20 50 25 3d 4d  |. 2 . 2.... P%=M|
00000450  25 0d 00 c3 05 5b 0d 00  c8 0a 20 4f 50 54 20 5a  |%....[.... OPT Z|
00000460  0d 00 cd 1c 20 5c 20 2a  20 2a 20 4f 55 54 50 55  |.... \ * * OUTPU|
00000470  54 20 44 52 49 56 45 52  20 2a 20 2a 0d 00 d2 58  |T DRIVER * *...X|
00000480  20 2e 69 6e 69 74 3a 6c  64 61 20 23 30 3a 62 65  | .init:lda #0:be|
00000490  71 20 73 74 76 61 72 3a  6c 64 61 20 23 33 20 3a  |q stvar:lda #3 :|
000004a0  62 6e 65 20 62 6f 75 74  3a 6c 64 61 20 23 31 32  |bne bout:lda #12|
000004b0  3a 62 6e 65 20 62 6f 75  74 3a 6c 64 61 20 23 26  |:bne bout:lda #&|
000004c0  33 30 3a 62 6e 65 20 62  6f 75 74 3a 6c 64 61 20  |30:bne bout:lda |
000004d0  23 26 43 30 0d 00 d7 41  20 2e 62 6f 75 74 20 3a  |#&C0...A .bout :|
000004e0  73 74 61 20 6d 61 73 6b  3a 6c 64 61 20 61 76 61  |sta mask:lda ava|
000004f0  72 3a 6f 72 61 20 6d 61  73 6b 3a 73 74 61 20 61  |r:ora mask:sta a|
00000500  76 61 72 3a 6a 73 72 20  63 68 65 63 6b 3a 6a 6d  |var:jsr check:jm|
00000510  70 20 6f 6b 32 0d 00 dc  24 20 2e 63 68 65 63 6b  |p ok2...$ .check|
00000520  20 3a 6c 64 61 20 26 30  36 30 30 3a 63 6d 70 20  | :lda &0600:cmp |
00000530  23 31 3a 62 65 71 20 6f  6b 0d 00 e1 51 20 2e 65  |#1:beq ok...Q .e|
00000540  72 72 31 3a 62 72 6b 3a  5d 3a f2 65 71 75 62 20  |rr1:brk:]:.equb |
00000550  28 26 46 46 29 3a f2 65  71 75 73 20 28 22 55 73  |(&FF):.equs ("Us|
00000560  65 20 65 78 61 63 74 6c  79 20 6f 6e 65 20 70 61  |e exactly one pa|
00000570  72 61 6d 65 74 65 72 22  29 3a f2 65 71 75 62 20  |rameter"):.equb |
00000580  28 30 29 3a 5b 4f 50 54  20 5a 0d 00 e6 22 20 2e  |(0):[OPT Z..." .|
00000590  6f 6b 3a 6c 64 61 26 36  30 33 3a 20 63 6d 70 20  |ok:lda&603: cmp |
000005a0  23 34 3a 62 65 71 20 6f  6b 31 20 20 0d 00 eb 50  |#4:beq ok1  ...P|
000005b0  20 2e 65 72 72 32 3a 62  72 6b 3a 5d 3a f2 65 71  | .err2:brk:]:.eq|
000005c0  75 62 28 26 46 46 29 3a  f2 65 71 75 73 28 22 55  |ub(&FF):.equs("U|
000005d0  73 65 20 69 6e 74 65 67  65 72 20 70 61 72 61 6d  |se integer param|
000005e0  65 74 65 72 73 20 6f 6e  6c 79 22 29 3a f2 65 71  |eters only"):.eq|
000005f0  75 62 28 30 29 3a 5b 4f  50 54 20 5a 0d 00 f0 43  |ub(0):[OPT Z...C|
00000600  20 2e 6f 6b 31 3a 6c 64  61 20 26 36 30 31 3a 73  | .ok1:lda &601:s|
00000610  74 61 20 62 75 66 66 3a  6c 64 61 20 26 36 30 32  |ta buff:lda &602|
00000620  3a 73 74 61 20 62 75 66  66 2b 31 3a 6c 64 79 20  |:sta buff+1:ldy |
00000630  23 30 3a 6c 64 61 20 28  62 75 66 66 29 2c 59 0d  |#0:lda (buff),Y.|
00000640  00 f5 0f 20 2e 62 61 63  6b 3a 72 74 73 20 0d 00  |... .back:rts ..|
00000650  fa 2f 20 2e 6f 6b 32 3a  61 6e 64 20 6d 61 73 6b  |./ .ok2:and mask|
00000660  3a 73 74 61 20 6d 61 73  6b 3a 20 6c 64 61 20 61  |:sta mask: lda a|
00000670  76 61 72 3a 65 6f 72 20  6d 61 73 6b 20 0d 00 ff  |var:eor mask ...|
00000680  19 20 2e 73 74 76 61 72  3a 73 74 61 20 61 76 61  |. .stvar:sta ava|
00000690  72 3a 20 74 61 79 0d 01  04 40 20 2e 73 68 6f 75  |r: tay...@ .shou|
000006a0  74 3a 6a 73 72 20 73 61  76 65 3a 6c 64 79 20 23  |t:jsr save:ldy #|
000006b0  26 33 46 3a 6c 64 78 20  23 64 72 72 3a 6a 73 72  |&3F:ldx #drr:jsr|
000006c0  20 77 72 69 74 65 3a 6a  73 72 20 6c 6f 61 64 3a  | write:jsr load:|
000006d0  6c 64 78 20 23 38 0d 01  09 2e 20 2e 6c 6f 6f 70  |ldx #8.... .loop|
000006e0  3a 20 6c 64 61 20 23 26  33 30 3a 61 73 6c 20 61  |: lda #&30:asl a|
000006f0  76 61 72 3a 20 62 63 63  20 6e 75 6c 6c 3a 6f 72  |var: bcc null:or|
00000700  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000900  6c 20 41 3a 6a 73 72 20  73 61 76 65 3a 6c 64 78  |l A:jsr save:ldx|
00000910  20 23 75 70 3a 6a 73 72  20 72 65 61 64 3a 74 79  | #up:jsr read:ty|
00000920  61 3a 61 6e 64 20 23 26  38 30 3a 62 65 71 20 6e  |a:and #&80:beq n|
00000930  75 6c 32 3a 6a 73 72 20  6c 6f 61 64 3a 6f 72 61  |ul2:jsr load:ora|
00000940  20 23 31 3a 6a 6d 70 20  6e 75 6c 33 0d 01 4a 13  | #1:jmp nul3..J.|
00000950  20 2e 6e 75 6c 32 3a 6a  73 72 20 6c 6f 61 64 0d  | .nul2:jsr load.|
00000960  01 4f 84 20 2e 6e 75 6c  33 3a 6a 73 72 20 73 61  |.O. .nul3:jsr sa|
00000970  76 65 3a 6c 64 79 20 23  26 33 30 3a 6c 64 78 20  |ve:ldy #&30:ldx |
00000980  23 75 70 3a 6a 73 72 20  77 72 69 74 65 3a 6a 73  |#up:jsr write:js|
00000990  72 20 6c 6f 61 64 3a 6c  64 79 20 23 26 33 38 3a  |r load:ldy #&38:|
000009a0  6c 64 78 20 23 75 70 3a  6a 73 72 20 77 72 69 74  |ldx #up:jsr writ|
000009b0  65 3a 6a 73 72 20 6c 6f  61 64 3a 64 65 78 3a 62  |e:jsr load:dex:b|
000009c0  6e 65 20 6c 6f 6f 70 32  3a 61 6e 64 20 6d 61 73  |ne loop2:and mas|
000009d0  6b 3a 62 65 71 20 62 61  63 6b 31 3a 6c 64 61 20  |k:beq back1:lda |
000009e0  23 31 20 0d 01 54 0b 20  2e 62 61 63 6b 31 0d 01  |#1 ..T. .back1..|
000009f0  59 08 20 72 74 73 0d 01  5e 1a 20 2e 45 58 3a 6c  |Y. rts..^. .EX:l|
00000a00  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000c00  34 3a 63 6c 63 3a 72 74  73 0d 01 86 2d 20 2e 73  |4:clc:rts...- .s|
00000c10  61 76 65 3a 73 74 61 20  61 73 61 76 65 3a 73 74  |ave:sta asave:st|
00000c20  78 20 78 73 61 76 65 3a  73 74 79 20 79 73 61 76  |x xsave:sty ysav|
00000c30  65 3a 72 74 73 20 0d 01  8b 2c 20 2e 6c 6f 61 64  |e:rts ..., .load|
00000c40  3a 6c 64 61 20 61 73 61  76 65 3a 6c 64 78 20 78  |:lda asave:ldx x|
00000c50  73 61 76 65 3a 6c 64 79  20 79 73 61 76 65 3a 72  |save:ldy ysave:r|
00000c60  74 73 0d 01 90 05 5d 0d  01 95 08 20 ed 20 5a 0d  |ts....].... . Z.|
00000c70  01 9a 10 20 e9 20 4d 31  3d 69 6e 69 74 2b 34 0d  |... . M1=init+4.|
00000c80  01 9f 10 20 e9 20 4d 32  3d 69 6e 69 74 2b 38 0d  |... . M2=init+8.|
00000c90  01 a4 11 20 e9 20 4d 33  3d 69 6e 69 74 2b 31 32  |... . M3=init+12|
00000ca0  0d 01 a9 11 20 e9 20 4d  34 3d 69 6e 69 74 2b 31  |.... . M4=init+1|
00000cb0  36 0d 01 ae 10 20 e9 20  49 4e 49 54 3d 69 6e 69  |6.... . INIT=ini|
00000cc0  74 0d 01 b3 0d 20 e9 20  43 57 25 3d 38 35 0d 01  |t.... . CW%=85..|
00000cd0  b8 0f 20 e9 20 43 43 57  25 3d 31 37 30 0d 01 bd  |.. . CCW%=170...|
00000ce0  0d 20 e9 20 47 4f 25 3d  38 35 0d 01 c2 10 20 e9  |. . GO%=85.... .|
00000cf0  20 48 41 4c 54 25 3d 32  35 35 0d 01 c7 20 20 f4  | HALT%=255...  .|
00000d00  20 2a 20 2a 20 2a 20 45  4e 44 20 4f 46 20 44 52  | * * * END OF DR|
00000d10  49 56 45 52 20 2a 20 2a  20 2a 0d 01 cc 1b 20 dd  |IVER * * *.... .|
00000d20  20 a4 55 53 52 28 41 29  3d ba 28 41 29 20 80 20  | .USR(A)=.(A) . |
00000d30  26 46 46 20 20 0d 01 d6  22 20 dd f2 65 71 75 62  |&FF  ..." ..equb|
00000d40  28 6e 75 6d 29 3a 3f 50  25 3d 6e 75 6d 3a 50 25  |(num):?P%=num:P%|
00000d50  3d 50 25 2b 31 3a e1 0d  01 e0 2c 20 dd f2 65 71  |=P%+1:...., ..eq|
00000d60  75 73 28 74 65 78 74 24  29 3a 24 50 25 3d 74 65  |us(text$):$P%=te|
00000d70  78 74 24 3a 50 25 3d 50  25 2b a9 20 74 65 78 74  |xt$:P%=P%+. text|
00000d80  24 3a e1 0d 01 f4 0b 20  d6 20 49 4e 49 54 0d 01  |$:..... . INIT..|
00000d90  fe 06 20 f4 0d 02 08 1f  20 f4 20 46 49 53 43 48  |.. ..... . FISCH|
00000da0  45 52 54 45 43 48 4e 49  4b 20 43 4f 4d 50 55 54  |ERTECHNIK COMPUT|
00000db0  49 4e 47 0d 02 12 07 20  f4 20 0d 02 1c 1a 20 f4  |ING.... . .... .|
00000dc0  20 53 4f 4c 41 52 20 43  45 4c 4c 20 54 52 41 43  | SOLAR CELL TRAC|
00000dd0  4b 49 4e 47 0d 02 26 07  20 f4 20 0d 02 30 19 20  |KING..&. . ..0. |
00000de0  f4 20 43 4f 50 59 52 49  47 48 54 20 28 43 29 20  |. COPYRIGHT (C) |
00000df0  31 39 38 34 0d 02 3a 21  20 f4 20 42 59 20 41 52  |1984..:! . BY AR|
00000e00  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000f00  31 3d 41 5a 49 4d 55 54  48 41 4c 20 44 52 49 56  |1=AZIMUTHAL DRIV|
00000f10  45 20 4d 4f 54 4f 52 0d  02 e4 1f 20 f4 20 4d 32  |E MOTOR.... . M2|
00000f20  3d 45 4c 45 56 41 54 49  4f 4e 20 44 52 49 56 45  |=ELEVATION DRIVE|
00000f30  20 4d 4f 54 4f 52 0d 02  ee 0f 20 f4 20 46 55 4e  | MOTOR.... . FUN|
00000f40  4b 54 49 4f 4e 0d 02 f8  64 20 f4 20 54 48 45 20  |KTION...d . THE |
00000f50  46 4f 4c 4c 4f 57 49 4e  47 20 50 52 4f 47 52 41  |FOLLOWING PROGRA|
00000f60  4d 20 43 41 4c 43 55 4c  41 54 45 53 20 54 48 45  |M CALCULATES THE|
00000f70  20 50 4f 53 49 54 49 4f  4e 20 4f 46 20 54 48 45  | POSITION OF THE|
00000f80  20 53 55 4e 20 41 4e 44  20 43 4f 4e 54 52 4f 4c  | SUN AND CONTROL|
00000f90  53 20 54 48 45 20 53 4f  4c 41 52 20 43 45 4c 4c  |S THE SOLAR CELL|
00000fa0  20 54 52 41 43 4b 49 4e  47 0d 03 02 1c 20 f4 20  | TRACKING.... . |
00000fb0  49 4e 50 55 54 20 50 41  52 41 4d 45 54 45 52 53  |INPUT PARAMETERS|
00000fc0  20 41 52 45 3a 0d 03 0c  64 20 f4 20 54 48 45 20  | ARE:...d . THE |
00000fd0  59 45 41 52 2c 54 48 45  20 44 41 59 20 49 4e 20  |YEAR,THE DAY IN |
00000fe0  54 48 45 20 59 45 41 52  2c 53 54 41 52 54 49 4e  |THE YEAR,STARTIN|
00000ff0  47 20 57 49 54 48 20 31  20 4f 4e 20 4a 41 4e 55  |G WITH 1 ON JANU|
00001000  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00001100  54 48 45 20 4c 4f 43 41  4c 20 4c 41 54 49 54 55  |THE LOCAL LATITU|
00001110  44 45 28 50 4f 53 49 54  49 56 45 20 54 4f 20 4e  |DE(POSITIVE TO N|
00001120  4f 52 54 48 29 0d 03 3e  2c 20 f4 20 54 48 45 20  |ORTH)..>, . THE |
00001130  4c 4f 43 41 4c 20 4c 4f  4e 47 49 54 55 44 45 20  |LOCAL LONGITUDE |
00001140  57 45 53 54 20 4f 46 20  47 52 45 45 4e 57 49 43  |WEST OF GREENWIC|
00001150  48 0d 03 48 23 20 f4 20  54 48 45 20 46 4f 52 4d  |H..H# . THE FORM|
00001160  55 4c 41 45 20 41 52 45  20 54 41 4b 45 4e 20 46  |ULAE ARE TAKEN F|
00001170  52 4f 4d 3a 0d 03 52 38  20 f4 20 52 2e 57 41 4c  |ROM:..R8 . R.WAL|
00001180  52 41 56 45 4e 20 49 4e  20 53 4f 4c 41 52 20 45  |RAVEN IN SOLAR E|
00001190  4e 45 52 47 59 2c 56 4f  4c 2e 32 30 28 31 39 37  |NERGY,VOL.20(197|
000011a0  38 29 2c 50 2e 33 39 33  5f 33 39 37 0d 03 98 20  |8),P.393_397... |
000011b0  20 f4 20 43 4f 4e 53 54  41 4e 54 53 20 32 2a 50  | . CONSTANTS 2*P|
000011c0  49 20 41 4e 44 20 50 49  2f 31 38 30 0d 03 a2 17  |I AND PI/180....|
000011d0  20 54 57 4f 50 49 3d 32  2a af 3a 52 44 3d af 2f  | TWOPI=2*.:RD=./|
000011e0  31 38 30 0d 03 b6 1e 20  e9 20 41 4c 3d 32 30 3a  |180.... . AL=20:|
000011f0  f4 20 4d 49 4e 2e 56 41  4c 55 45 20 4f 46 20 45  |. MIN.VALUE OF E|
00001200  59 0d 03 c0 1f 20 e9 20  41 52 3d 32 30 30 3a f4  |Y.... . AR=200:.|
00001210  20 4d 41 58 2e 56 41 4c  55 45 20 4f 46 20 45 59  | MAX.VALUE OF EY|
00001220  0d 03 ca 1e 20 e9 20 45  4d 3d 32 30 3a f4 20 4d  |.... . EM=20:. M|
00001230  49 4e 2e 56 41 4c 55 45  20 4f 46 20 45 58 0d 03  |IN.VALUE OF EX..|
00001240  d4 1f 20 e9 20 45 52 3d  32 30 30 3a f4 20 4d 41  |.. . ER=200:. MA|
00001250  58 2e 56 41 4c 55 45 20  4f 46 20 45 58 0d 03 de  |X.VALUE OF EX...|
00001260  0c 20 e9 20 45 41 3d 45  4d 0d 03 e8 0c 20 e9 20  |. . EA=EM.... . |
00001270  41 41 3d 41 4c 0d 04 06  2c 20 e9 20 47 41 3d 35  |AA=AL..., . GA=5|
00001280  3a f4 20 42 52 41 4b 45  20 50 45 52 49 4f 44 20  |:. BRAKE PERIOD |
00001290  46 4f 52 20 41 5a 49 4d  55 54 48 20 4d 4f 54 4f  |FOR AZIMUTH MOTO|
000012a0  52 0d 04 10 07 20 eb 36  0d 04 1a 17 20 f1 20 22  |R.... .6.... . "|
000012b0  46 49 53 43 48 45 52 54  45 43 48 4e 49 4b 22 0d  |FISCHERTECHNIK".|
000012c0  04 24 14 20 f1 20 22 43  4f 4d 50 55 54 49 4e 47  |.$. . "COMPUTING|
000012d0  22 20 20 0d 04 2e 06 20  f1 0d 04 38 1d 20 f1 20  |"  .... ...8. . |
000012e0  22 20 53 4f 4c 41 52 20  43 45 4c 4c 20 54 52 41  |" SOLAR CELL TRA|
000012f0  43 4b 49 4e 47 22 0d 04  42 06 20 f1 0d 04 4c 15  |CKING"..B. ...L.|
00001300  20 e8 20 22 59 45 41 52  20 3a 20 22 2c 59 45 41  | . "YEAR : ",YEA|
00001310  52 0d 04 56 1b 20 e8 20  22 44 41 59 20 4f 46 20  |R..V. . "DAY OF |
00001320  59 45 41 52 20 3a 20 22  2c 44 41 59 0d 04 6a 15  |YEAR : ",DAY..j.|
00001330  20 e8 20 22 54 49 4d 45  20 5a 4f 4e 45 22 2c 54  | . "TIME ZONE",T|
00001340  5a 0d 04 74 1f 20 e8 20  22 44 45 47 52 45 45 20  |Z..t. . "DEGREE |
00001350  4f 46 20 4c 41 54 49 54  55 44 45 22 2c 4c 41 54  |OF LATITUDE",LAT|
00001360  0d 04 7e 21 20 e8 20 22  44 45 47 52 45 45 20 4f  |..~! . "DEGREE O|
00001370  46 20 4c 4f 4e 47 49 54  55 44 45 22 2c 4c 4f 4e  |F LONGITUDE",LON|
00001380  47 0d 04 88 12 20 f4 20  43 41 4c 49 42 52 41 54  |G.... . CALIBRAT|
00001390  49 4f 4e 0d 04 92 24 20  f1 20 22 50 4c 45 41 53  |ION...$ . "PLEAS|
000013a0  45 20 43 41 4c 49 42 52  41 54 45 20 53 4f 4c 41  |E CALIBRATE SOLA|
000013b0  52 20 43 45 4c 4c 22 0d  04 9c 23 20 e9 20 41 24  |R CELL"...# . A$|
000013c0  3d 22 4d 4f 56 45 20 53  4f 4c 41 52 20 43 45 4c  |="MOVE SOLAR CEL|
000013d0  4c 20 45 58 41 43 54 4c  59 22 0d 04 a6 11 20 f1  |L EXACTLY".... .|
000013e0  20 41 24 3b 22 20 45 41  53 54 22 0d 04 b0 1c 20  | A$;" EAST".... |
000013f0  f1 20 22 46 41 43 49 4e  47 20 54 48 45 20 48 4f  |. "FACING THE HO|
00001400  52 49 5a 4f 4e 22 20 0d  04 ba 0b 20 e4 20 8d 64  |RIZON" .... . .d|
00001410  50 47 0d 04 c4 0b 20 e9  20 59 30 3d 59 0d 04 ce  |PG.... . Y0=Y...|
00001420  0b 20 e9 20 45 30 3d 58  0d 04 d8 11 20 f1 20 41  |. . E0=X.... . A|
00001430  24 3b 22 20 57 45 53 54  22 0d 04 e2 20 20 f1 20  |$;" WEST"...  . |
00001440  22 46 41 43 49 4e 47 20  53 54 52 41 49 47 48 54  |"FACING STRAIGHT|
00001450  20 55 50 57 41 52 44 53  22 0d 04 ec 0b 20 e4 20  | UPWARDS".... . |
00001460  8d 64 50 47 0d 04 f6 12  20 e9 20 41 30 3d 28 59  |.dPG.... . A0=(Y|
00001470  2b 59 30 29 2f 32 0d 05  00 14 20 e9 20 46 41 3d  |+Y0)/2.... . FA=|
00001480  28 59 30 2d 59 29 2f 31  38 30 0d 05 0a 14 20 e9  |(Y0-Y)/180.... .|
00001490  20 46 45 3d 28 58 2d 45  30 29 2f 39 30 20 0d 05  | FE=(X-E0)/90 ..|
000014a0  14 13 20 f1 20 22 49 4e  50 55 54 20 54 49 4d 45  |.. . "INPUT TIME|
000014b0  22 0d 05 1e 12 20 e8 20  22 48 4f 55 52 20 3a 22  |".... . "HOUR :"|
000014c0  2c 48 24 0d 05 28 15 20  e8 20 22 4d 49 4e 55 54  |,H$..(. . "MINUT|
000014d0  45 20 3a 20 22 2c 4d 24  0d 05 32 15 20 e8 20 22  |E : ",M$..2. . "|
000014e0  53 45 43 4f 4e 44 20 3a  20 22 2c 53 24 0d 05 3c  |SECOND : ",S$..<|
000014f0  28 20 54 49 3d 28 28 bb  28 48 24 29 2a 36 30 2b  |( TI=((.(H$)*60+|
00001500  bb 28 4d 24 29 29 2a 36  30 2b bb 28 53 24 29 29  |.(M$))*60+.(S$))|
00001510  2a 31 30 30 20 0d 05 41  20 20 d1 3d 54 49 20 3a  |*100 ..A  .=TI :|
00001520  f4 20 53 45 54 20 52 45  41 4c 20 54 49 4d 45 20  |. SET REAL TIME |
00001530  43 4c 4f 43 4b 0d 05 64  0b 20 e9 20 5a 52 3d 30  |CLOCK..d. . ZR=0|
00001540  0d 05 6e 14 20 e7 20 54  49 3d 30 20 8c 20 e9 20  |..n. . TI=0 . . |
00001550  5a 52 3d 31 0d 05 aa 13  20 e9 20 44 46 3d 59 45  |ZR=1.... . DF=YE|
00001560  41 52 2d 31 39 38 30 0d  05 b4 17 20 e9 20 4c 45  |AR-1980.... . LE|
00001570  41 50 59 45 41 52 3d a8  28 44 46 2f 34 29 0d 05  |APYEAR=.(DF/4)..|
00001580  be 11 20 e9 20 48 4f 55  52 3d bb 28 48 24 29 0d  |.. . HOUR=.(H$).|
00001590  05 c8 10 20 e9 20 4d 49  4e 3d bb 28 4d 24 29 0d  |... . MIN=.(M$).|
000015a0  05 d2 11 20 e9 20 53 4b  3d bb 28 53 24 29 20 20  |... . SK=.(S$)  |
000015b0  0d 05 dc 22 20 e9 20 54  54 49 4d 3d 48 4f 55 52  |..." . TTIM=HOUR|
000015c0  2b 28 4d 49 4e 2b 53 4b  2f 36 30 29 2f 36 30 2b  |+(MIN+SK/60)/60+|
000015d0  54 5a 0d 05 e6 28 20 e9  20 54 49 4d 3d 44 46 2a  |TZ...( . TIM=DF*|
000015e0  33 36 35 2b 4c 45 41 50  59 45 41 52 2b 44 41 59  |365+LEAPYEAR+DAY|
000015f0  2d 31 2b 54 54 49 4d 2f  32 34 0d 05 f0 22 20 e7  |-1+TTIM/24..." .|
00001600  20 44 46 3d 34 2a 4c 45  41 50 59 45 41 52 20 8c  | DF=4*LEAPYEAR .|
00001610  20 e9 20 54 49 4d 3d 54  49 4d 2d 31 0d 05 fa 2f  | . TIM=TIM-1.../|
00001620  20 20 e7 20 28 44 46 3c  30 29 20 80 20 28 44 46  |  . (DF<0) . (DF|
00001630  3c 3e 34 2a 4c 45 41 50  59 45 41 52 29 20 8c 20  |<>4*LEAPYEAR) . |
00001640  e9 20 54 49 4d 3d 54 49  4d 2d 31 0d 06 04 1f 20  |. TIM=TIM-1.... |
00001650  e9 20 54 48 45 54 41 3d  28 54 57 4f 50 49 2a 54  |. THETA=(TWOPI*T|
00001660  49 4d 2f 33 36 35 2e 32  35 29 0d 06 0e 29 20 e9  |IM/365.25)...) .|
00001670  20 47 3d 2d 30 2e 30 33  31 32 37 31 2d 28 34 2e  | G=-0.031271-(4.|
00001680  35 33 39 36 33 45 2d 37  29 2a 54 49 4d 2b 54 48  |53963E-7)*TIM+TH|
00001690  45 54 41 0d 06 18 23 20  e9 20 45 4c 3d 34 2e 39  |ETA...# . EL=4.9|
000016a0  30 30 39 36 38 2b 28 33  2e 36 37 34 37 34 45 2d  |00968+(3.67474E-|
000016b0  37 29 2a 54 49 4d 0d 06  22 29 20 e9 20 45 4c 3d  |7)*TIM..") . EL=|
000016c0  45 4c 2b 28 30 2e 30 33  33 34 33 34 2d 28 32 2e  |EL+(0.033434-(2.|
000016d0  33 45 2d 39 29 2a 54 49  4d 29 2a b5 28 47 29 0d  |3E-9)*TIM)*.(G).|
000016e0  06 2c 23 20 e9 20 45 4c  3d 45 4c 2b 28 33 2e 34  |.,# . EL=EL+(3.4|
000016f0  39 45 2d 34 29 2a b5 28  32 2a 47 29 2b 54 48 45  |9E-4)*.(2*G)+THE|
00001700  54 41 0d 06 36 18 20 f4  20 4c 45 4e 47 54 48 20  |TA..6. . LENGTH |
00001710  4f 46 20 54 48 45 20 53  55 4e 0d 06 40 10 20 e9  |OF THE SUN..@. .|
00001720  20 53 45 4c 3d b5 28 45  4c 29 0d 06 4a 22 20 e9  | SEL=.(EL)..J" .|
00001730  20 45 50 53 3d 30 2e 34  30 39 31 34 2d 28 36 2e  | EPS=0.40914-(6.|
00001740  32 31 34 39 45 2d 39 29  2a 54 49 4d 0d 06 54 24  |2149E-9)*TIM..T$|
00001750  20 f4 20 45 43 4c 49 50  54 49 43 20 41 50 50 52  | . ECLIPTIC APPR|
00001760  4f 58 2e 20 32 33 2e 35  20 44 45 47 52 45 45 53  |OX. 23.5 DEGREES|
00001770  0d 06 5e 1d 20 e9 20 52  41 3d 99 28 53 45 4c 2a  |..^. . RA=.(SEL*|
00001780  9b 28 45 50 53 29 2f 9b  28 45 4c 29 29 0d 06 68  |.(EPS)/.(EL))..h|
00001790  1d 20 e7 20 52 41 3c 30  20 8c 20 e9 20 52 41 3d  |. . RA<0 . . RA=|
000017a0  52 41 2b 54 57 4f 50 49  2f 32 0d 06 72 19 20 e9  |RA+TWOPI/2..r. .|
000017b0  20 44 45 4b 4c 3d 98 28  53 45 4c 2a b5 28 45 50  | DEKL=.(SEL*.(EP|
000017c0  53 29 29 0d 06 7c 13 20  f4 20 44 45 43 4c 49 4e  |S))..|. . DECLIN|
000017d0  41 54 49 4f 4e 20 0d 06  86 38 20 e9 20 53 49 44  |ATION ...8 . SID|
000017e0  3d 31 2e 37 35 39 33 33  35 2b 54 57 4f 50 49 2a  |=1.759335+TWOPI*|
000017f0  28 54 49 4d 2f 33 36 35  2e 32 35 2d 44 46 29 2b  |(TIM/365.25-DF)+|
00001800  28 33 2e 36 39 34 45 2d  37 29 2a 54 49 4d 0d 06  |(3.694E-7)*TIM..|
00001810  90 24 20 e7 20 53 49 44  3e 3d 54 57 4f 50 49 20  |.$ . SID>=TWOPI |
00001820  8c 20 e9 20 53 49 44 3d  53 49 44 2d 54 57 4f 50  |. . SID=SID-TWOP|
00001830  49 20 0d 06 9a 14 20 f4  20 53 49 44 45 52 45 41  |I .... . SIDEREA|
00001840  4c 20 54 49 4d 45 0d 06  a4 1e 20 e9 20 53 3d 53  |L TIME.... . S=S|
00001850  49 44 2b 28 54 54 49 4d  2a 31 35 2d 4c 4f 4e 47  |ID+(TTIM*15-LONG|
00001860  29 2a 52 44 0d 06 ae 1d  20 e7 20 53 3e 3d 54 57  |)*RD.... . S>=TW|
00001870  4f 50 49 20 8c 20 e9 20  53 3d 53 2d 54 57 4f 50  |OPI . . S=S-TWOP|
00001880  49 0d 06 b8 15 20 f4 20  4c 4f 43 41 4c 20 53 55  |I.... . LOCAL SU|
00001890  4e 2d 54 49 4d 45 0d 06  c2 0d 20 e9 20 48 3d 52  |N-TIME.... . H=R|
000018a0  41 2d 53 0d 06 cc 11 20  f4 20 48 4f 55 52 20 41  |A-S.... . HOUR A|
000018b0  4e 47 4c 45 0d 06 d6 11  20 e9 20 50 48 49 3d 4c  |NGLE.... . PHI=L|
000018c0  41 54 2a 52 44 0d 06 e0  2e 20 e9 20 45 3d 98 28  |AT*RD.... . E=.(|
000018d0  b5 28 50 48 49 29 2a b5  28 44 45 4b 4c 29 2b 9b  |.(PHI)*.(DEKL)+.|
000018e0  28 50 48 49 29 2a 9b 28  44 45 4b 4c 29 2a 9b 28  |(PHI)*.(DEKL)*.(|
000018f0  48 29 29 0d 06 ea 20 20  e9 20 41 3d 98 28 9b 28  |H))...  . A=.(.(|
00001900  44 45 4b 4c 29 2a b5 28  48 29 2f 9b 28 45 29 29  |DEKL)*.(H)/.(E))|
00001910  2f 52 44 0d 06 f4 24 20  e7 20 b5 28 45 29 3e 3d  |/RD...$ . .(E)>=|
00001920  b5 28 44 45 4b 4c 29 2f  b5 28 50 48 49 29 20 8c  |.(DEKL)/.(PHI) .|
00001930  20 e5 20 8d 54 52 47 0d  06 fe 14 20 e7 20 41 3c  | . .TRG.... . A<|
00001940  30 20 8c 20 41 3d 41 2b  33 36 30 0d 07 08 0e 20  |0 . A=A+360.... |
00001950  e9 20 41 3d 31 38 30 2d  41 0d 07 12 0d 20 e9 20  |. A=180-A.... . |
00001960  45 3d 45 2f 52 44 0d 07  1c 17 20 f1 20 48 24 3b  |E=E/RD.... . H$;|
00001970  22 3a 22 3b 4d 24 3b 22  3a 22 3b 53 24 0d 07 26  |":";M$;":";S$..&|
00001980  22 20 f1 20 22 41 3d 22  3b 41 3b 22 20 44 45 47  |" . "A=";A;" DEG|
00001990  20 20 20 45 3d 22 3b 45  3b 22 20 44 45 47 22 0d  |   E=";E;" DEG".|
000019a0  07 30 1d 20 e4 20 8d 74  78 4b 3a f4 20 43 4f 4e  |.0. . .txK:. CON|
000019b0  54 52 4f 4c 20 52 4f 55  54 49 4e 45 0d 07 3a 11  |TROL ROUTINE..:.|
000019c0  20 e9 20 4d 49 4e 3d 4d  49 4e 2b 31 30 0d 07 44  | . MIN=MIN+10..D|
000019d0  16 20 e7 20 4d 49 4e 3c  36 30 20 8c 20 e5 20 8d  |. . MIN<60 . . .|
000019e0  44 62 47 0d 07 4e 0c 20  e9 20 4d 49 4e 3d 30 0d  |DbG..N. . MIN=0.|
000019f0  07 58 12 20 e9 20 48 4f  55 52 3d 48 4f 55 52 2b  |.X. . HOUR=HOUR+|
00001a00  31 0d 07 62 17 20 e7 20  48 4f 55 52 3c 32 34 20  |1..b. . HOUR<24 |
00001a10  8c 20 e5 20 8d 74 40 47  0d 07 6c 0d 20 e9 20 48  |. . .t@G..l. . H|
00001a20  4f 55 52 3d 30 0d 07 76  10 20 e9 20 44 41 59 3d  |OUR=0..v. . DAY=|
00001a30  44 41 59 2b 31 0d 07 80  10 20 e9 20 4d 24 3d c3  |DAY+1.... . M$=.|
00001a40  28 4d 49 4e 29 0d 07 8a  11 20 e9 20 48 24 3d c3  |(MIN).... . H$=.|
00001a50  28 48 4f 55 52 29 0d 07  94 14 20 e7 20 5a 52 3d  |(HOUR).... . ZR=|
00001a60  31 20 8c 20 e5 20 8d 64  5c 45 0d 07 9e 22 20 e9  |1 . . .d\E..." .|
00001a70  20 54 3d 28 28 48 4f 55  52 2a 36 30 2b 4d 49 4e  | T=((HOUR*60+MIN|
00001a80  29 2a 36 30 2b 53 4b 29  2a 31 30 30 0d 07 a8 13  |)*60+SK)*100....|
00001a90  20 e7 20 91 3c 54 20 8c  20 e5 20 8d 74 68 47 0d  | . .<T . . .thG.|
00001aa0  07 b2 0b 20 e5 20 8d 64  5c 45 0d 07 d0 1f 20 f4  |... . .d\E.... .|
00001ab0  20 41 43 43 45 50 54 20  43 41 4c 49 42 52 41 54  | ACCEPT CALIBRAT|
00001ac0  45 44 20 56 41 4c 55 45  53 0d 07 da 1b 20 f1 20  |ED VALUES.... . |
00001ad0  22 49 46 20 44 49 52 45  43 54 49 4f 4e 20 49 53  |"IF DIRECTION IS|
00001ae0  20 4f 4b 22 0d 07 e4 15  20 f1 20 22 50 52 45 53  | OK".... . "PRES|
00001af0  53 20 4b 45 59 20 45 36  22 0d 07 ee 09 20 4d 3d  |S KEY E6".... M=|
00001b00  4d 31 0d 07 f8 18 20 e7  20 a4 55 53 52 28 45 35  |M1.... . .USR(E5|
00001b10  29 3d 31 20 8c 20 4d 3d  4d 32 0d 08 02 1a 20 e7  |)=1 . M=M2.... .|
00001b20  20 a4 55 53 52 28 45 33  29 3d 30 20 8c 20 e5 20  | .USR(E3)=0 . . |
00001b30  8d 54 60 48 0d 08 0c 18  20 d6 20 4d 2c 43 57 25  |.T`H.... . M,CW%|
00001b40  3a 20 f4 20 55 50 2f 52  49 47 48 54 0d 08 16 0b  |: . UP/RIGHT....|
00001b50  20 e5 20 8d 54 42 48 0d  08 20 0f 20 d6 20 4d 31  | . .TBH.. . . M1|
00001b60  2c 48 41 4c 54 25 0d 08  2a 0f 20 d6 20 4d 32 2c  |,HALT%..*. . M2,|
00001b70  48 41 4c 54 25 0d 08 34  1a 20 e7 20 a4 55 53 52  |HALT%..4. . .USR|
00001b80  28 45 34 29 3d 30 20 8c  20 e5 20 8d 44 52 48 0d  |(E4)=0 . . .DRH.|
00001b90  08 3e 1a 20 d6 20 4d 2c  43 43 57 25 3a 20 f4 20  |.>. . M,CCW%: . |
00001ba0  44 4f 57 4e 2f 4c 45 46  54 0d 08 48 0b 20 e5 20  |DOWN/LEFT..H. . |
00001bb0  8d 54 74 48 0d 08 52 0f  20 d6 20 4d 31 2c 48 41  |.TtH..R. . M1,HA|
00001bc0  4c 54 25 0d 08 5c 0f 20  d6 20 4d 32 2c 48 41 4c  |LT%..\. . M2,HAL|
00001bd0  54 25 0d 08 66 1b 20 e7  20 a4 55 53 52 28 45 36  |T%..f. . .USR(E6|
00001be0  29 3d 30 20 8c 20 e5 20  8d 64 6e 47 20 0d 08 70  |)=0 . . .dnG ..p|
00001bf0  1e 20 e9 20 58 3d a4 55  53 52 28 45 58 29 3a 20  |. . X=.USR(EX): |
00001c00  f4 20 45 4c 45 56 41 54  49 4f 4e 0d 08 7a 21 20  |. ELEVATION..z! |
00001c10  e9 20 59 3d a4 55 53 52  28 45 59 29 3a 20 f4 20  |. Y=.USR(EY): . |
00001c20  41 5a 49 4d 55 54 48 20  20 20 20 20 0d 08 84 1a  |AZIMUTH     ....|
00001c30  20 e7 20 a4 55 53 52 28  45 36 29 3d 31 20 8c 20  | . .USR(E6)=1 . |
00001c40  e5 20 8d 74 44 48 0d 08  8e 06 20 f8 0d 0b b8 17  |. .tDH.... .....|
00001c50  20 f4 20 4d 4f 56 45 4d  45 4e 54 20 52 4f 55 54  | . MOVEMENT ROUT|
00001c60  49 4e 45 0d 0b bd 0e 20  e7 20 45 3c 30 20 8c 20  |INE.... . E<0 . |
00001c70  f8 0d 0b c2 19 20 e9 20  41 53 3d a8 28 41 2a 46  |..... . AS=.(A*F|
00001c80  41 2b 41 30 2b 30 2e 35  29 20 0d 0b cc 18 20 e9  |A+A0+0.5) .... .|
00001c90  20 45 53 3d a8 28 45 2a  46 45 2b 45 30 2b 30 2e  | ES=.(E*FE+E0+0.|
00001ca0  35 29 0d 0b d6 16 20 e7  20 41 53 3c 41 4c 20 8c  |5).... . AS<AL .|
00001cb0  20 e9 20 41 53 3d 41 4c  0d 0b e0 16 20 e7 20 41  | . AS=AL.... . A|
00001cc0  53 3e 41 52 20 8c 20 e9  20 41 53 3d 41 52 0d 0b  |S>AR . . AS=AR..|
00001cd0  ea 16 20 e7 20 45 53 3c  45 4d 20 8c 20 e9 20 45  |.. . ES<EM . . E|
00001ce0  53 3d 45 4d 0d 0b f4 18  20 e7 20 45 53 3e 45 52  |S=EM.... . ES>ER|
00001cf0  20 8c 20 e9 20 45 53 3d  45 52 20 20 0d 0b fe 15  | . . ES=ER  ....|
00001d00  20 e7 20 45 53 3d 45 41  20 8c 20 e5 20 8d 44 58  | . ES=EA . . .DX|
00001d10  4c 0d 0c 08 1b 20 f4 20  43 4f 4e 54 52 4f 4c 20  |L.... . CONTROL |
00001d20  4f 46 20 45 4c 45 56 41  54 49 4f 4e 0d 0c 12 14  |OF ELEVATION....|
00001d30  20 e9 20 44 3d a4 55 53  52 28 45 58 29 2d 45 53  | . D=.USR(EX)-ES|
00001d40  0d 0c 1c 15 20 e7 20 44  3e 30 20 8c 20 d6 20 4d  |.... . D>0 . . M|
00001d50  32 2c 43 57 25 0d 0c 30  16 20 e7 20 44 3c 30 20  |2,CW%..0. . D<0 |
00001d60  8c 20 d6 20 4d 32 2c 43  43 57 25 0d 0c 44 13 20  |. . M2,CCW%..D. |
00001d70  e7 20 44 3d 30 20 8c 20  e5 20 8d 44 58 4c 0d 0c  |. D=0 . . .DXL..|
00001d80  46 0c 20 e3 20 49 3d 30  b8 35 0d 0c 47 08 20 ed  |F. . I=0.5..G. .|
00001d90  20 49 0d 0c 49 0f 20 d6  20 4d 32 2c 48 41 4c 54  | I..I. . M2,HALT|
00001da0  25 0d 0c 4e 0b 20 e5 20  8d 54 52 4c 0d 0c 58 0c  |%..N. . .TRL..X.|
00001db0  20 e9 20 45 41 3d 45 53  0d 0c 62 15 20 e7 20 41  | . EA=ES..b. . A|
00001dc0  53 3d 41 41 20 8c 20 e5  20 8d 64 46 4c 0d 0c 6c  |S=AA . . .dFL..l|
00001dd0  19 20 f4 20 43 4f 4e 54  52 4f 4c 20 4f 46 20 41  |. . CONTROL OF A|
00001de0  5a 49 4d 55 54 48 0d 0c  76 14 20 e9 20 44 3d a4  |ZIMUTH..v. . D=.|
00001df0  55 53 52 28 45 59 29 2d  41 53 0d 0c 80 15 20 e7  |USR(EY)-AS.... .|
00001e00  20 44 3e 30 20 8c 20 d6  20 4d 31 2c 43 57 25 0d  | D>0 . . M1,CW%.|
00001e10  0c 8a 16 20 e7 20 44 3c  30 20 8c 20 d6 20 4d 31  |... . D<0 . . M1|
00001e20  2c 43 43 57 25 0d 0c 94  13 20 e7 20 44 3d 30 20  |,CCW%.... . D=0 |
00001e30  8c 20 e5 20 8d 64 46 4c  0d 0c 9e 0d 20 e9 20 44  |. . .dFL.... . D|
00001e40  3d 94 28 44 29 0d 0c a8  14 20 e7 20 44 3e 47 41  |=.(D).... . D>GA|
00001e50  20 8c 20 e5 20 8d 44 76  4c 0d 0c b2 0f 20 d6 20  | . . .DvL.... . |
00001e60  4d 31 2c 48 41 4c 54 25  0d 0c bc 0b 20 e5 20 8d  |M1,HALT%.... . .|
00001e70  44 76 4c 0d 0c c6 0c 20  e9 20 41 41 3d 41 53 0d  |DvL.... . AA=AS.|
00001e80  0c d0 06 20 f8 0d ff                              |... ...|
00001e87