ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/Geneve/9640news/CAT10/CALLTIM.ARK

Text File | 2006-10-19 | 6KB | 89 lines

?
This is the listing of the code to automatically set the time of the GK Utility
'CALL CLOCK'. You must have a CorComp Triple Tech Card. It may work with the
Standalone also. The listing below is a memory dump of the code right out of
the GK. I did it this way so you can put it where you want. A few changes will
be needed if you put it other than where I did. These changes are explained
below. All this program is, is a short A/L program that gets the time from the
CC clock using a standard DSR link. It then moves the time to the same CPU
memory location that the CALL LINK(SETCLK) does. This A/L program is moved to
CPU Memory (>A100) by a short GPL program. Once the program is put in CPU ram
by the GPL 'CALL TIME' it will then execute and return to the GPL interpreter.
It is possible that a long X/B program will reside at >A100 and the program
will overwrite part of it. Thus do NOT use it with very long programs.

The first line is the call statement. It can be located anywhere so long as the
first two bytes shown below as XX XX are pointed to by the last call statement.
If you add more calls, then the XX XX will point to them. If you have no more,
these will be 00 00. The eighth and ninth bytes 'F8 00' point to where the
actual code is. In this case I put it at >F800.

>7a4c XX XX 04 54 49 4D 45 F8 00 00 00 00 `***TIME*****' `************'

The first two lines below are the GPL Move program. The seventh and eighth
bytes 'F8 18' in this case, point to the third line which is the actual A/L
program to be moved. These two bytes will also need to be changed if you put
this somewhere else. After you get this all keyed in, you can use the GK Editor
to edit out the part of the call clock progam that says 'CALL LINK(SETCLK)' so
it will no longer be displayed. You must use the 'CALL TIME' afer a CALL CLOCK
or a CALL INIT or you will get a lockup. In any case it must be done after the
CALL CLOCK to work.

>F800 31 02 42 8F 1E 00 F8 18 BF 00 A2 BC `1*B*********' `***/****_*B\'
>F80C 0F F0 06 00 12 00 00 00 00 00 00 00 `************' `************'
>F818 60 00 00 00 00 00 00 00 00 00 00 00 ``***********' `************'
>F824 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F830 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F83C 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F848 00 00 00 00 00 00 00 00 00 00 00 64 `***********d' `************'
>F854 4D 41 52 4B 20 4C 4F 50 45 5A 20 56 `MARK LOPEZ V' `************'
>F860 31 2E 30 00 2E AA A1 1A A1 52 C1 7E `1.0*.****R*~' `*****JA*A*a*'
>F86C 53 E0 A1 4A C0 20 83 56 C2 40 02 29 `S**J* *V*@*)' `**A*`*#*b***'
>F878 FF F8 04 20 20 28 D0 C1 09 83 07 04 `***  (******' `******pa*#**'
>F884 02 02 A1 10 05 80 05 84 80 C4 13 06 `************' `**A** *$ d**'
>F890 04 20 20 28 DC 81 98 01 A1 4C 16 F6 `*  (*****L**' `****A!8*A***'
>F89C C1 04 13 52 02 84 00 07 15 4F 04 E0 `***R*****O**' `a****$****a*'
>F8A8 83 D0 C8 04 83 54 C8 04 A1 0A 05 84 `*****T******' `#ph*#*h*a**$'
>F8B4 A8 04 83 56 C8 20 83 56 A1 0C 02 E0 `***V* *V****' `H*#*h*#*A***'
>F8C0 83 E0 04 C1 02 0C 0F 00 C3 0C 13 01 `************' `#**a****c***'
>F8CC 1E 00 02 2C 01 00 04 E0 83 D0 02 8C `***,********' `********#p*,'
>F8D8 20 00 13 32 C8 0C 83 D0 1D 00 02 02 ` **2********' `****h*#p****'
>F8E4 40 00 98 12 A1 4D 16 EE A0 A0 A1 24 `@****M*****$' `**8*|***@@A*'
>F8F0 10 03 C0 A0 83 D2 1D 00 C0 92 13 E6 `************' `**`@#r**`2**'
>F8FC C8 02 83 D2 05 C2 C2 72 D1 60 83 55 `*******r*`*U' `h*#r*bb*q*#*'
>F908 13 09 9C 85 16 F2 09 85 02 06 A1 10 `************' `**<%***%**A*'
>F914 9C B6 16 ED 06 05 16 FC 05 81 C8 01 `************' `<V*******!h*'
>F920 A1 0E C8 09 A1 08 C8 0C A1 06 06 99 `************' `A*h*A*h*A**9'
>F92C 10 E2 1E 00 02 E0 A1 1A C0 09 04 20 `*********** ' `******A*`***'
>F938 20 28 09 D1 16 04 03 80 02 E0 A1 1A ` (**********' `***q*** **A*'
>F944 04 C1 06 C1 D7 41 F3 E0 A1 4A 03 80 `*****A***J**' `*a*aw***A** '
>F950 00 00 00 04 10 00 50 00 00 00 00 05 `******P*****' `************'
>F95C 43 4C 4F 43 4B 00 02 01 00 00 00 00 `CLOCK*******' `************'
>F968 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F974 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F980 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F98C 00 00 00 00 00 00 00 00 00 00 00 00 `************' `************'
>F998 FF FF FF FF FF FF FF FF FF FF FF FF `************' `************'
>F9A4 FF FF FF FF FF FF FF FF FF FF FF FF `************' `************'
>F9B0 FF FF FF FF FF FF FF FF FF FF FF FF `************' `************'
>F9BC FF FF FF FF FF FF FF FF FF FF FF FF `************' `************'
>F9C8 FF FF FF FF FF FF FF FF FF FF FF FF `************' `************'
>F9D4 C8 0B A2 38 02 E0 A2 4C 02 00 0F 80 `***8***L****' `h*B***B**** '
>F9E0 02 01 A2 3A 02 02 00 20 04 20 20 24 `***:*** *  $' `**B*********'
>F9EC 02 06 0F 89 C8 06 83 56 04 20 A1 4E `*******V***N' `***)h*#***A*'
>F9F8 00 08 D0 60 A2 4A 02 00 0F 80 04 20 `***`*J***** ' `**p*B**** **'
>FA04 20 20 C8 06 83 56 04 20 A1 4E 00 08 `  ***V* *N**' `**h*#***A***'
>FA10 02 00 10 0B 02 01 A2 6C 02 02 00 08 `*******l****' `******B*****'
>FA1C 04 20 20 2C 02 03 3E 07 02 00 A2 6C `*  ,**>****l' `**********B*'
>FA28 D0 70 B0 60 A1 00 D4 C1 05 83 02 83 `*p*`********' `p*P*A*ta*#*#'
>FA34 3E 0F 16 F8 D0 60 A2 4B 02 00 0F 80 `>****`**K***' `****p*B**** '
>FA40 04 20 20 20 C8 06 83 56 04 20 A1 4E `*   ***V* *N' `****h**#**A*'
>FA4C 00 08 02 E0 83 E0 04 E0 83 7C 04 60 `*********|*`' `****#***#***'
>FA58 00 70 00 00 00 00 00 00 00 00 00 00 `*p**********' `************'



Download complete.  Turn off Capture File.