Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » F/TEMPMod

F/TEMPMod

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF
Filename: F/TEMPMod
Read OK: ✔
File size: 1329 bytes
Load address: FFFFFB48
Exec address: FFFFBB50
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Control a Maplin temperature
   20REM module
   30:
   40pb0=1:REM =show lo point
   50pb1=2:REM =show hi point
   60pb2=4:REM =celcius/fahrenheit
   70pb3=8:REM =sample rate select
   80pb4=16:REM=set hours
   90pb5=32:REM=set mins
  100pb6=64:REM=clock/temperature
  110REM data=CB1 & clock=CB2
  120:
  130DIMserial% 256
  140oscopy=255-pb0-pb1-pb2-pb3-pb6
  150orb=&FE60:ddrb=&FE62
  160?orb=oscopy:?ddrb=127
  170oswc=&FFEE:osby=&FFF4:osnl=&FFE7
  180ifr=&FE6D:ier=&FE6E:pcr=&FE6C
  190:
  200FORX=0 TO2 STEP2
  210P%=serial%
  220[OPTX
  230.change
  240SEI
  250LDX&204:STXoldvec+1
  260LDY&205:STYoldvec+2
  270LDX#irqhandle MOD256:STX&204
  280LDY#irqhandle DIV256:STY&205
  290\IRQ1V changed
  300LDApcr:AND#31:ORA#64+32:STApcr
  310LDAier:ORA#128+8+16:STAier
  320\Enable IRQ when CB1/CB2 change
  330LDA#8+16:STAifr:\Clear any pending IRQs caused by the above
  340CLI:RTS
  350EQUS"(C)1998 SPROW"
  360:
  370.mustbeCB2
  380LDA#8:STAifr:\Clear irq
  390LDAstate:ANDmaskhi:ORAreshi
  400STAreshi
  410LDAstate:ANDmasklo:ORAreslo
  420STAreslo:\Update answer
  430CLC:RORmaskhi:RORmasklo
  440BCSgotall:\Got 13 bits yet?
  450PLA:PLP:LDA&FC:RTI
  460:
  470.irqhandle
  480PHP:PHA
  490LDAifr:AND#16+8:BEQbalance:\User VIA caused the IRQ?
  500AND#8:BNEmustbeCB2:\Otherwise CB1
  510:
  520.mustbeCB1
  530LDAstate:EOR#255:STAstate
  540LDApcr:EOR#16:STApcr:\Toggle edge on which to trigger
  550LDAorb:\Clear the interrupt
  560PLA:PLP:LDA&FC:RTI
  570:
  580.gotall
  590LDA#31:JSRoswc:LDA#14:JSRoswc:LDA#16:JSRoswc:\Move to (14,16)
  600LDAreshi:RORA:RORA:RORA:AND#2\:\Isolate top bit
  610BITstyle:BMIsign
  620:
  630.hundreds
  640RORA:JSRbcd:JMPtens:\If in F its the hundreds column
  650.sign
  660CLC:ADC#ASC"+":JSRoswc:\If in C its the sign
  670:
  680.tens
  690LDAreshi:JSRbcd:\Print tens
  700LDAreslo:RORA:RORA:RORA:RORA:JSRbcd:\Print units
  710LDA#ASC".":JSRoswc:\Decimal dot
  720LDAreslo:JSRbcd:\Tenths
  730LDA#16:STAmaskhi:LDA#0:STAmasklo
  740STAreshi:STAreslo:\Reset masks
  750.balance
  760PLA:PLP
  770.oldvec
  780JMP&9999:\Self modified earlier
  790:
  800.bcd
  810AND#15:CLC:ADC#ASC"0":JMPoswc
  820:
  830.state EQUB0:\Data state (0/255)
  840.style EQUB0:\For dC=255 dF=0
  850.maskhi EQUB16
  860.masklo EQUB0
  870.reshi EQUB0
  880.reslo EQUB0
  890]
  900NEXT
  910:
  920REM Ensure no cursor editing,fast keyboard repeat rate,Fkeys return ASCii values
  930*FX4,1
  940*FX12,2
  950*FX225,150,0
  960MODE7:VDU23,1,0;0;0;0;:PRINT"Temperature module controller"'"Ensure module is plugged in"
  970key=GET:CALLchange:REM Install serial reader
  980VDU11:PRINTSTRING$(39," ")
  990PROCfkey0:PROCfkey1:PROCfkey2
 1000PROCfkey3:PROCfkey4
 1010PRINT'CHR$129"F5"CHR$130''CHR$129"F6"CHR$130''"   "CHR$130"Currently ???.?":REM Draw screen,and leave background handler to fill in the temperature
 1020:
 1030REPEAT
 1040OSCLI"FX15,1":option=GET
 1050IFoption=150 THENPROCfkey0
 1060IFoption=151 THENPROCfkey1
 1070IFoption=152 THENPROCfkey2
 1080IFoption=153 THENPROCfkey3
 1090IFoption=154 THENPROCfkey4
 1100IFoption=155 THENPROCfkey5
 1110IFoption=156 THENPROCfkey6
 1120UNTIL0
 1130END
 1140:
 1150DEFPROCfkey0
 1160IF(oscopy ANDpb1)=0 AND(oscopy ANDpb0)=pb0 THENPROCfkey1:REM Ensure both cant be selected at once
 1170oscopy=oscopy EORpb0:?orb=oscopy
 1180IF(oscopy ANDpb0)=pb0 THENPRINTTAB(0,2);CHR$129"F0"CHR$130"Show lo alarm point" ELSEPRINTTAB(4,2);"Hide"
 1190ENDPROC
 1200:
 1210DEFPROCfkey1
 1220IF(oscopy ANDpb1)=pb1 AND(oscopy ANDpb0)=0 THENPROCfkey0:REM Ensure both cant be selected at once
 1230oscopy=oscopy EORpb1:?orb=oscopy
 1240IF(oscopy ANDpb1)=pb1 THENPRINTTAB(0,4);CHR$129"F1"CHR$130"Show hi alarm point" ELSEPRINTTAB(4,4);"Hide"
 1250ENDPROC
 1260:
 1270DEFPROCfkey2
 1280oscopy=oscopy EORpb2:?orb=oscopy
 1290?style=?style EOR255:REM Toggle flag in the serial reader
 1300IF(oscopy ANDpb2)=pb2 THENPRINTTAB(0,6);CHR$129"F2"CHR$130"Fahrenheit display":PRINTTAB(19,16)"C" ELSEPRINTTAB(4,6)"Celcius display   ":PRINTTAB(19,16)"F"
 1310ENDPROC
 1320:
 1330DEFPROCfkey3
 1340oscopy=oscopy EORpb6:?orb=oscopy
 1350IF(oscopy ANDpb6)=pb6 THENPRINTTAB(0,8);CHR$129"F3"CHR$130"Clock display      ":PRINTTAB(4,12)"Set lo limit":PRINTTAB(4,14)"Set hi limit" ELSEPRINTTAB(4,8)"Temperature readout":PRINTTAB(4,12)"Set hours   ":PRINTTAB(4,14)"Set minutes "
 1360ENDPROC
 1370:
 1380DEFPROCfkey4
 1390oscopy=oscopy EORpb3:?orb=oscopy
 1400IF(oscopy ANDpb3)=pb3 THENPRINTTAB(0,10);CHR$129"F4"CHR$130"Sample rate: 10s" ELSEPRINTTAB(17,10)"1s "
 1410ENDPROC
 1420:
 1430DEFPROCfkey5
 1440IF(oscopy ANDpb6)=pb6 THENPROCsetpoint(pb0):ENDPROC
 1450?orb=oscopy AND(255-pb4)
 1460then%=TIME:REM Simulate press and hold
 1470REPEAT:UNTIL(TIME-then%)>200
 1480?orb=oscopy
 1490REPEAT
 1500key=INKEY(200)
 1510IFkey=155 THEN?orb=oscopy AND(255-pb4):then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=oscopy:REM One switch push
 1520IFkey=156 THEN?orb=oscopy AND(255-pb5):then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=oscopy:REM One switch push
 1530UNTILkey=TRUE
 1540ENDPROC
 1550:
 1560DEFPROCfkey6
 1570IF(oscopy ANDpb6)=pb6 THENPROCsetpoint(pb1):ENDPROC
 1580?orb=oscopy AND(255-pb5)
 1590then%=TIME:REM Simulate press and hold
 1600REPEAT:UNTIL(TIME-then%)>200
 1610?orb=oscopy
 1620REPEAT
 1630key=INKEY(200)
 1640IFkey=156 THEN?orb=oscopy AND(255-pb5):then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=oscopy:REM One switch push
 1650IFkey=155 THEN?orb=oscopy AND(255-pb4):then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=oscopy:REM One switch push
 1660UNTILkey=TRUE
 1670ENDPROC
 1680:
 1690DEFPROCsetpoint(bit)
 1700modify=oscopy AND(255-bit) ORpb3
 1710?orb=modify
 1720PRINTTAB(4,12)"Disable alarm point":PRINTTAB(4,14)"Adjust alarm point"
 1730REPEAT
 1740key=INKEY(200)
 1750IFkey=156 THEN?orb=modify AND(255-pb5):then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=modify
 1760IFkey=155 THEN?orb=modify EORpb4:then%=TIME:REPEAT:UNTILTIME>then%+5:?orb=modify
 1770UNTILkey=TRUE
 1780?orb=oscopy:REM Back to temperature displaying mode and old settings
 1790PRINTTAB(4,12)"Set lo limit       ":PRINTTAB(4,14)"Set hi limit      "
 1800ENDPROC


"� Control a Maplin temperature
� module
:
(pb0=1:� =show lo point
2pb1=2:� =show hi point
<pb2=4:� =celcius/fahrenheit
Fpb3=8:� =sample rate select
Ppb4=16:�=set hours
Zpb5=32:�=set mins
dpb6=64:�=clock/temperature
n� data=CB1 & clock=CB2
x:
��serial% 256
�"oscopy=255-pb0-pb1-pb2-pb3-pb6
�orb=&FE60:ddrb=&FE62
�?orb=oscopy:?ddrb=127
�$oswc=&FFEE:osby=&FFF4:osnl=&FFE7
�!ifr=&FE6D:ier=&FE6E:pcr=&FE6C
�:
��X=0 �2 �2
�P%=serial%
�	[OPTX
�.change
�SEI
�LDX&204:STXoldvec+1
LDY&205:STYoldvec+2
LDX#irqhandle �256:STX&204
LDY#irqhandle �256:STY&205
"\IRQ1V changed
,LDApcr:�#31:�A#64+32:STApcr
6LDAier:�A#128+8+16:STAier
@#\Enable IRQ when CB1/CB2 change
J?LDA#8+16:STAifr:\Clear any pending IRQs caused by the above
TCLI:RTS
^EQUS"(C)1998 SPROW"
h:
r.mustbeCB2
|LDA#8:STAifr:\Clear irq
�LDAstate:�maskhi:�Areshi
�STAreshi
�LDAstate:�masklo:�Areslo
�STAreslo:\Update answer
�CLC:RORmaskhi:RORmasklo
�BCSgotall:\Got 13 bits yet?
�PLA:PLP:LDA&FC:RTI
�:
�.irqhandle
�PHP:PHA
�6LDAifr:�#16+8:BEQbalance:\User VIA caused the IRQ?
�#�#8:BNEmustbeCB2:\Otherwise CB1
�:
.mustbeCB1
LDAstate:�#255:STAstate
7LDApcr:�#16:STApcr:\Toggle edge on which to trigger
&LDAorb:\Clear the interrupt
0PLA:PLP:LDA&FC:RTI
::
D.gotall
NALDA#31:JSRoswc:LDA#14:JSRoswc:LDA#16:JSRoswc:\Move to (14,16)
X1LDAreshi:RORA:RORA:RORA:�#2\:\Isolate top bit
bBITstyle:BMIsign
l:
v
.hundreds
�8RORA:JSRbcd:JMPtens:\If in F its the hundreds column
�	.sign
�.CLC:ADC#�"+":JSRoswc:\If in C its the sign
�:
�	.tens
�LDAreshi:JSRbcd:\Print tens
�4LDAreslo:RORA:RORA:RORA:RORA:JSRbcd:\Print units
�!LDA#�".":JSRoswc:\Decimal dot
�LDAreslo:JSRbcd:\Tenths
�$LDA#16:STAmaskhi:LDA#0:STAmasklo
�"STAreshi:STAreslo:\Reset masks
�.balance
�PLA:PLP
.oldvec
#JMP&9999:\Self modified earlier
:
 .bcd
*�#15:CLC:ADC#�"0":JMPoswc
4:
>$.state EQUB0:\Data state (0/255)
H!.style EQUB0:\For dC=255 dF=0
R.maskhi EQUB16
\.masklo EQUB0
f.reshi EQUB0
p.reslo EQUB0
z]
��
�:
�R� Ensure no cursor editing,fast keyboard repeat rate,Fkeys return ASCii values
�
*FX4,1
�*FX12,2
�*FX225,150,0
�T�7:�23,1,0;0;0;0;:�"Temperature module controller"'"Ensure module is plugged in"
�)key=�:�change:� Install serial reader
��11:��39," ")
��fkey0:�fkey1:�fkey2
��fkey3:�fkey4
��'�129"F5"�130''�129"F6"�130''"   "�130"Currently ???.?":� Draw screen,and leave background handler to fill in the temperature
�:
�
�"FX15,1":option=�
�option=150 ��fkey0
$�option=151 ��fkey1
.�option=152 ��fkey2
8�option=153 ��fkey3
B�option=154 ��fkey4
L�option=155 ��fkey5
V�option=156 ��fkey6
`�0
j�
t:
~��fkey0
�V�(oscopy �pb1)=0 �(oscopy �pb0)=pb0 ��fkey1:� Ensure both cant be selected at once
�"oscopy=oscopy �pb0:?orb=oscopy
�O�(oscopy �pb0)=pb0 ��0,2);�129"F0"�130"Show lo alarm point" ��4,2);"Hide"
��
�:
���fkey1
�V�(oscopy �pb1)=pb1 �(oscopy �pb0)=0 ��fkey0:� Ensure both cant be selected at once
�"oscopy=oscopy �pb1:?orb=oscopy
�O�(oscopy �pb1)=pb1 ��0,4);�129"F1"�130"Show hi alarm point" ��4,4);"Hide"
��
�:
���fkey2
"oscopy=oscopy �pb2:?orb=oscopy

9?style=?style �255:� Toggle flag in the serial reader
s�(oscopy �pb2)=pb2 ��0,6);�129"F2"�130"Fahrenheit display":�19,16)"C" ��4,6)"Celcius display   ":�19,16)"F"
�
(:
2��fkey3
<"oscopy=oscopy �pb6:?orb=oscopy
F��(oscopy �pb6)=pb6 ��0,8);�129"F3"�130"Clock display      ":�4,12)"Set lo limit":�4,14)"Set hi limit" ��4,8)"Temperature readout":�4,12)"Set hours   ":�4,14)"Set minutes "
P�
Z:
d��fkey4
n"oscopy=oscopy �pb3:?orb=oscopy
xM�(oscopy �pb3)=pb3 ��0,10);�129"F4"�130"Sample rate: 10s" ��17,10)"1s "
��
�:
���fkey5
�(�(oscopy �pb6)=pb6 ��setpoint(pb0):�
�?orb=oscopy �(255-pb4)
�%then%=�:� Simulate press and hold
��:�(�-then%)>200
�?orb=oscopy
��
�key=�(200)
�W�key=155 �?orb=oscopy �(255-pb4):then%=�:�:��>then%+5:?orb=oscopy:� One switch push
�W�key=156 �?orb=oscopy �(255-pb5):then%=�:�:��>then%+5:?orb=oscopy:� One switch push
�
�key=�
�
:
��fkey6
"(�(oscopy �pb6)=pb6 ��setpoint(pb1):�
,?orb=oscopy �(255-pb5)
6%then%=�:� Simulate press and hold
@�:�(�-then%)>200
J?orb=oscopy
T�
^key=�(200)
hW�key=156 �?orb=oscopy �(255-pb5):then%=�:�:��>then%+5:?orb=oscopy:� One switch push
rW�key=155 �?orb=oscopy �(255-pb4):then%=�:�:��>then%+5:?orb=oscopy:� One switch push
|
�key=�
��
�:
���setpoint(bit)
�!modify=oscopy �(255-bit) �pb3
�?orb=modify
�<�4,12)"Disable alarm point":�4,14)"Adjust alarm point"
��
�key=�(200)
�E�key=156 �?orb=modify �(255-pb5):then%=�:�:��>then%+5:?orb=modify
�?�key=155 �?orb=modify �pb4:then%=�:�:��>then%+5:?orb=modify
�
�key=�
�F?orb=oscopy:� Back to temperature displaying mode and old settings
�<�4,12)"Set lo limit       ":�4,14)"Set hi limit      "
�
�
00000000  0d 00 0a 22 f4 20 43 6f  6e 74 72 6f 6c 20 61 20  |...". Control a |
00000010  4d 61 70 6c 69 6e 20 74  65 6d 70 65 72 61 74 75  |Maplin temperatu|
00000020  72 65 0d 00 14 0c f4 20  6d 6f 64 75 6c 65 0d 00  |re..... module..|
00000030  1e 05 3a 0d 00 28 1a 70  62 30 3d 31 3a f4 20 3d  |..:..(.pb0=1:. =|
00000040  73 68 6f 77 20 6c 6f 20  70 6f 69 6e 74 0d 00 32  |show lo point..2|
00000050  1a 70 62 31 3d 32 3a f4  20 3d 73 68 6f 77 20 68  |.pb1=2:. =show h|
00000060  69 20 70 6f 69 6e 74 0d  00 3c 1f 70 62 32 3d 34  |i point..<.pb2=4|
00000070  3a f4 20 3d 63 65 6c 63  69 75 73 2f 66 61 68 72  |:. =celcius/fahr|
00000080  65 6e 68 65 69 74 0d 00  46 1f 70 62 33 3d 38 3a  |enheit..F.pb3=8:|
00000090  f4 20 3d 73 61 6d 70 6c  65 20 72 61 74 65 20 73  |. =sample rate s|
000000a0  65 6c 65 63 74 0d 00 50  16 70 62 34 3d 31 36 3a  |elect..P.pb4=16:|
000000b0  f4 3d 73 65 74 20 68 6f  75 72 73 0d 00 5a 15 70  |.=set hours..Z.p|
000000c0  62 35 3d 33 32 3a f4 3d  73 65 74 20 6d 69 6e 73  |b5=32:.=set mins|
000000d0  0d 00 64 1e 70 62 36 3d  36 34 3a f4 3d 63 6c 6f  |..d.pb6=64:.=clo|
000000e0  63 6b 2f 74 65 6d 70 65  72 61 74 75 72 65 0d 00  |ck/temperature..|
000000f0  6e 1a f4 20 64 61 74 61  3d 43 42 31 20 26 20 63  |n.. data=CB1 & c|
00000100  6c 6f 63 6b 3d 43 42 32  0d 00 78 05 3a 0d 00 82  |lock=CB2..x.:...|
00000110  10 de 73 65 72 69 61 6c  25 20 32 35 36 0d 00 8c  |..serial% 256...|
00000120  22 6f 73 63 6f 70 79 3d  32 35 35 2d 70 62 30 2d  |"oscopy=255-pb0-|
00000130  70 62 31 2d 70 62 32 2d  70 62 33 2d 70 62 36 0d  |pb1-pb2-pb3-pb6.|
00000140  00 96 18 6f 72 62 3d 26  46 45 36 30 3a 64 64 72  |...orb=&FE60:ddr|
00000150  62 3d 26 46 45 36 32 0d  00 a0 19 3f 6f 72 62 3d  |b=&FE62....?orb=|
00000160  6f 73 63 6f 70 79 3a 3f  64 64 72 62 3d 31 32 37  |oscopy:?ddrb=127|
00000170  0d 00 aa 24 6f 73 77 63  3d 26 46 46 45 45 3a 6f  |...$oswc=&FFEE:o|
00000180  73 62 79 3d 26 46 46 46  34 3a 6f 73 6e 6c 3d 26  |sby=&FFF4:osnl=&|
00000190  46 46 45 37 0d 00 b4 21  69 66 72 3d 26 46 45 36  |FFE7...!ifr=&FE6|
000001a0  44 3a 69 65 72 3d 26 46  45 36 45 3a 70 63 72 3d  |D:ier=&FE6E:pcr=|
000001b0  26 46 45 36 43 0d 00 be  05 3a 0d 00 c8 0e e3 58  |&FE6C....:.....X|
000001c0  3d 30 20 b8 32 20 88 32  0d 00 d2 0e 50 25 3d 73  |=0 .2 .2....P%=s|
000001d0  65 72 69 61 6c 25 0d 00  dc 09 5b 4f 50 54 58 0d  |erial%....[OPTX.|
000001e0  00 e6 0b 2e 63 68 61 6e  67 65 0d 00 f0 07 53 45  |....change....SE|
000001f0  49 0d 00 fa 17 4c 44 58  26 32 30 34 3a 53 54 58  |I....LDX&204:STX|
00000200  6f 6c 64 76 65 63 2b 31  0d 01 04 17 4c 44 59 26  |oldvec+1....LDY&|
00000210  32 30 35 3a 53 54 59 6f  6c 64 76 65 63 2b 32 0d  |205:STYoldvec+2.|
00000220  01 0e 1e 4c 44 58 23 69  72 71 68 61 6e 64 6c 65  |...LDX#irqhandle|
00000230  20 83 32 35 36 3a 53 54  58 26 32 30 34 0d 01 18  | .256:STX&204...|
00000240  1e 4c 44 59 23 69 72 71  68 61 6e 64 6c 65 20 81  |.LDY#irqhandle .|
00000250  32 35 36 3a 53 54 59 26  32 30 35 0d 01 22 12 5c  |256:STY&205..".\|
00000260  49 52 51 31 56 20 63 68  61 6e 67 65 64 0d 01 2c  |IRQ1V changed..,|
00000270  1f 4c 44 41 70 63 72 3a  80 23 33 31 3a 84 41 23  |.LDApcr:.#31:.A#|
00000280  36 34 2b 33 32 3a 53 54  41 70 63 72 0d 01 36 1d  |64+32:STApcr..6.|
00000290  4c 44 41 69 65 72 3a 84  41 23 31 32 38 2b 38 2b  |LDAier:.A#128+8+|
000002a0  31 36 3a 53 54 41 69 65  72 0d 01 40 23 5c 45 6e  |16:STAier..@#\En|
000002b0  61 62 6c 65 20 49 52 51  20 77 68 65 6e 20 43 42  |able IRQ when CB|
000002c0  31 2f 43 42 32 20 63 68  61 6e 67 65 0d 01 4a 3f  |1/CB2 change..J?|
000002d0  4c 44 41 23 38 2b 31 36  3a 53 54 41 69 66 72 3a  |LDA#8+16:STAifr:|
000002e0  5c 43 6c 65 61 72 20 61  6e 79 20 70 65 6e 64 69  |\Clear any pendi|
000002f0  6e 67 20 49 52 51 73 20  63 61 75 73 65 64 20 62  |ng IRQs caused b|
00000300  79 20 74 68 65 20 61 62  6f 76 65 0d 01 54 0b 43  |y the above..T.C|
00000310  4c 49 3a 52 54 53 0d 01  5e 17 45 51 55 53 22 28  |LI:RTS..^.EQUS"(|
00000320  43 29 31 39 39 38 20 53  50 52 4f 57 22 0d 01 68  |C)1998 SPROW"..h|
00000330  05 3a 0d 01 72 0e 2e 6d  75 73 74 62 65 43 42 32  |.:..r..mustbeCB2|
00000340  0d 01 7c 1b 4c 44 41 23  38 3a 53 54 41 69 66 72  |..|.LDA#8:STAifr|
00000350  3a 5c 43 6c 65 61 72 20  69 72 71 0d 01 86 1c 4c  |:\Clear irq....L|
00000360  44 41 73 74 61 74 65 3a  80 6d 61 73 6b 68 69 3a  |DAstate:.maskhi:|
00000370  84 41 72 65 73 68 69 0d  01 90 0c 53 54 41 72 65  |.Areshi....STAre|
00000380  73 68 69 0d 01 9a 1c 4c  44 41 73 74 61 74 65 3a  |shi....LDAstate:|
00000390  80 6d 61 73 6b 6c 6f 3a  84 41 72 65 73 6c 6f 0d  |.masklo:.Areslo.|
000003a0  01 a4 1b 53 54 41 72 65  73 6c 6f 3a 5c 55 70 64  |...STAreslo:\Upd|
000003b0  61 74 65 20 61 6e 73 77  65 72 0d 01 ae 1b 43 4c  |ate answer....CL|
000003c0  43 3a 52 4f 52 6d 61 73  6b 68 69 3a 52 4f 52 6d  |C:RORmaskhi:RORm|
000003d0  61 73 6b 6c 6f 0d 01 b8  1f 42 43 53 67 6f 74 61  |asklo....BCSgota|
000003e0  6c 6c 3a 5c 47 6f 74 20  31 33 20 62 69 74 73 20  |ll:\Got 13 bits |
000003f0  79 65 74 3f 0d 01 c2 16  50 4c 41 3a 50 4c 50 3a  |yet?....PLA:PLP:|
00000400  4c 44 41 26 46 43 3a 52  54 49 0d 01 cc 05 3a 0d  |LDA&FC:RTI....:.|
00000410  01 d6 0e 2e 69 72 71 68  61 6e 64 6c 65 0d 01 e0  |....irqhandle...|
00000420  0b 50 48 50 3a 50 48 41  0d 01 ea 36 4c 44 41 69  |.PHP:PHA...6LDAi|
00000430  66 72 3a 80 23 31 36 2b  38 3a 42 45 51 62 61 6c  |fr:.#16+8:BEQbal|
00000440  61 6e 63 65 3a 5c 55 73  65 72 20 56 49 41 20 63  |ance:\User VIA c|
00000450  61 75 73 65 64 20 74 68  65 20 49 52 51 3f 0d 01  |aused the IRQ?..|
00000460  f4 23 80 23 38 3a 42 4e  45 6d 75 73 74 62 65 43  |.#.#8:BNEmustbeC|
00000470  42 32 3a 5c 4f 74 68 65  72 77 69 73 65 20 43 42  |B2:\Otherwise CB|
00000480  31 0d 01 fe 05 3a 0d 02  08 0e 2e 6d 75 73 74 62  |1....:.....mustb|
00000490  65 43 42 31 0d 02 12 1b  4c 44 41 73 74 61 74 65  |eCB1....LDAstate|
000004a0  3a 82 23 32 35 35 3a 53  54 41 73 74 61 74 65 0d  |:.#255:STAstate.|
000004b0  02 1c 37 4c 44 41 70 63  72 3a 82 23 31 36 3a 53  |..7LDApcr:.#16:S|
000004c0  54 41 70 63 72 3a 5c 54  6f 67 67 6c 65 20 65 64  |TApcr:\Toggle ed|
000004d0  67 65 20 6f 6e 20 77 68  69 63 68 20 74 6f 20 74  |ge on which to t|
000004e0  72 69 67 67 65 72 0d 02  26 1f 4c 44 41 6f 72 62  |rigger..&.LDAorb|
000004f0  3a 5c 43 6c 65 61 72 20  74 68 65 20 69 6e 74 65  |:\Clear the inte|
00000500  72 72 75 70 74 0d 02 30  16 50 4c 41 3a 50 4c 50  |rrupt..0.PLA:PLP|
00000510  3a 4c 44 41 26 46 43 3a  52 54 49 0d 02 3a 05 3a  |:LDA&FC:RTI..:.:|
00000520  0d 02 44 0b 2e 67 6f 74  61 6c 6c 0d 02 4e 41 4c  |..D..gotall..NAL|
00000530  44 41 23 33 31 3a 4a 53  52 6f 73 77 63 3a 4c 44  |DA#31:JSRoswc:LD|
00000540  41 23 31 34 3a 4a 53 52  6f 73 77 63 3a 4c 44 41  |A#14:JSRoswc:LDA|
00000550  23 31 36 3a 4a 53 52 6f  73 77 63 3a 5c 4d 6f 76  |#16:JSRoswc:\Mov|
00000560  65 20 74 6f 20 28 31 34  2c 31 36 29 0d 02 58 31  |e to (14,16)..X1|
00000570  4c 44 41 72 65 73 68 69  3a 52 4f 52 41 3a 52 4f  |LDAreshi:RORA:RO|
00000580  52 41 3a 52 4f 52 41 3a  80 23 32 5c 3a 5c 49 73  |RA:RORA:.#2\:\Is|
00000590  6f 6c 61 74 65 20 74 6f  70 20 62 69 74 0d 02 62  |olate top bit..b|
000005a0  14 42 49 54 73 74 79 6c  65 3a 42 4d 49 73 69 67  |.BITstyle:BMIsig|
000005b0  6e 0d 02 6c 05 3a 0d 02  76 0d 2e 68 75 6e 64 72  |n..l.:..v..hundr|
000005c0  65 64 73 0d 02 80 38 52  4f 52 41 3a 4a 53 52 62  |eds...8RORA:JSRb|
000005d0  63 64 3a 4a 4d 50 74 65  6e 73 3a 5c 49 66 20 69  |cd:JMPtens:\If i|
000005e0  6e 20 46 20 69 74 73 20  74 68 65 20 68 75 6e 64  |n F its the hund|
000005f0  72 65 64 73 20 63 6f 6c  75 6d 6e 0d 02 8a 09 2e  |reds column.....|
00000600  73 69 67 6e 0d 02 94 2e  43 4c 43 3a 41 44 43 23  |sign....CLC:ADC#|
00000610  97 22 2b 22 3a 4a 53 52  6f 73 77 63 3a 5c 49 66  |."+":JSRoswc:\If|
00000620  20 69 6e 20 43 20 69 74  73 20 74 68 65 20 73 69  | in C its the si|
00000630  67 6e 0d 02 9e 05 3a 0d  02 a8 09 2e 74 65 6e 73  |gn....:.....tens|
00000640  0d 02 b2 1f 4c 44 41 72  65 73 68 69 3a 4a 53 52  |....LDAreshi:JSR|
00000650  62 63 64 3a 5c 50 72 69  6e 74 20 74 65 6e 73 0d  |bcd:\Print tens.|
00000660  02 bc 34 4c 44 41 72 65  73 6c 6f 3a 52 4f 52 41  |..4LDAreslo:RORA|
00000670  3a 52 4f 52 41 3a 52 4f  52 41 3a 52 4f 52 41 3a  |:RORA:RORA:RORA:|
00000680  4a 53 52 62 63 64 3a 5c  50 72 69 6e 74 20 75 6e  |JSRbcd:\Print un|
00000690  69 74 73 0d 02 c6 21 4c  44 41 23 97 22 2e 22 3a  |its...!LDA#.".":|
000006a0  4a 53 52 6f 73 77 63 3a  5c 44 65 63 69 6d 61 6c  |JSRoswc:\Decimal|
000006b0  20 64 6f 74 0d 02 d0 1b  4c 44 41 72 65 73 6c 6f  | dot....LDAreslo|
000006c0  3a 4a 53 52 62 63 64 3a  5c 54 65 6e 74 68 73 0d  |:JSRbcd:\Tenths.|
000006d0  02 da 24 4c 44 41 23 31  36 3a 53 54 41 6d 61 73  |..$LDA#16:STAmas|
000006e0  6b 68 69 3a 4c 44 41 23  30 3a 53 54 41 6d 61 73  |khi:LDA#0:STAmas|
000006f0  6b 6c 6f 0d 02 e4 22 53  54 41 72 65 73 68 69 3a  |klo..."STAreshi:|
00000700  53 54 41 72 65 73 6c 6f  3a 5c 52 65 73 65 74 20  |STAreslo:\Reset |
00000710  6d 61 73 6b 73 0d 02 ee  0c 2e 62 61 6c 61 6e 63  |masks.....balanc|
00000720  65 0d 02 f8 0b 50 4c 41  3a 50 4c 50 0d 03 02 0b  |e....PLA:PLP....|
00000730  2e 6f 6c 64 76 65 63 0d  03 0c 23 4a 4d 50 26 39  |.oldvec...#JMP&9|
00000740  39 39 39 3a 5c 53 65 6c  66 20 6d 6f 64 69 66 69  |999:\Self modifi|
00000750  65 64 20 65 61 72 6c 69  65 72 0d 03 16 05 3a 0d  |ed earlier....:.|
00000760  03 20 08 2e 62 63 64 0d  03 2a 1d 80 23 31 35 3a  |. ..bcd..*..#15:|
00000770  43 4c 43 3a 41 44 43 23  97 22 30 22 3a 4a 4d 50  |CLC:ADC#."0":JMP|
00000780  6f 73 77 63 0d 03 34 05  3a 0d 03 3e 24 2e 73 74  |oswc..4.:..>$.st|
00000790  61 74 65 20 45 51 55 42  30 3a 5c 44 61 74 61 20  |ate EQUB0:\Data |
000007a0  73 74 61 74 65 20 28 30  2f 32 35 35 29 0d 03 48  |state (0/255)..H|
000007b0  21 2e 73 74 79 6c 65 20  45 51 55 42 30 3a 5c 46  |!.style EQUB0:\F|
000007c0  6f 72 20 64 43 3d 32 35  35 20 64 46 3d 30 0d 03  |or dC=255 dF=0..|
000007d0  52 12 2e 6d 61 73 6b 68  69 20 45 51 55 42 31 36  |R..maskhi EQUB16|
000007e0  0d 03 5c 11 2e 6d 61 73  6b 6c 6f 20 45 51 55 42  |..\..masklo EQUB|
000007f0  30 0d 03 66 10 2e 72 65  73 68 69 20 45 51 55 42  |0..f..reshi EQUB|
00000800  30 0d 03 70 10 2e 72 65  73 6c 6f 20 45 51 55 42  |0..p..reslo EQUB|
00000810  30 0d 03 7a 05 5d 0d 03  84 05 ed 0d 03 8e 05 3a  |0..z.].........:|
00000820  0d 03 98 52 f4 20 45 6e  73 75 72 65 20 6e 6f 20  |...R. Ensure no |
00000830  63 75 72 73 6f 72 20 65  64 69 74 69 6e 67 2c 66  |cursor editing,f|
00000840  61 73 74 20 6b 65 79 62  6f 61 72 64 20 72 65 70  |ast keyboard rep|
00000850  65 61 74 20 72 61 74 65  2c 46 6b 65 79 73 20 72  |eat rate,Fkeys r|
00000860  65 74 75 72 6e 20 41 53  43 69 69 20 76 61 6c 75  |eturn ASCii valu|
00000870  65 73 0d 03 a2 0a 2a 46  58 34 2c 31 0d 03 ac 0b  |es....*FX4,1....|
00000880  2a 46 58 31 32 2c 32 0d  03 b6 10 2a 46 58 32 32  |*FX12,2....*FX22|
00000890  35 2c 31 35 30 2c 30 0d  03 c0 54 eb 37 3a ef 32  |5,150,0...T.7:.2|
000008a0  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a f1 22 54  |3,1,0;0;0;0;:."T|
000008b0  65 6d 70 65 72 61 74 75  72 65 20 6d 6f 64 75 6c  |emperature modul|
000008c0  65 20 63 6f 6e 74 72 6f  6c 6c 65 72 22 27 22 45  |e controller"'"E|
000008d0  6e 73 75 72 65 20 6d 6f  64 75 6c 65 20 69 73 20  |nsure module is |
000008e0  70 6c 75 67 67 65 64 20  69 6e 22 0d 03 ca 29 6b  |plugged in"...)k|
000008f0  65 79 3d a5 3a d6 63 68  61 6e 67 65 3a f4 20 49  |ey=.:.change:. I|
00000900  6e 73 74 61 6c 6c 20 73  65 72 69 61 6c 20 72 65  |nstall serial re|
00000910  61 64 65 72 0d 03 d4 11  ef 31 31 3a f1 c4 33 39  |ader.....11:..39|
00000920  2c 22 20 22 29 0d 03 de  18 f2 66 6b 65 79 30 3a  |," ").....fkey0:|
00000930  f2 66 6b 65 79 31 3a f2  66 6b 65 79 32 0d 03 e8  |.fkey1:.fkey2...|
00000940  11 f2 66 6b 65 79 33 3a  f2 66 6b 65 79 34 0d 03  |..fkey3:.fkey4..|
00000950  f2 82 f1 27 bd 31 32 39  22 46 35 22 bd 31 33 30  |...'.129"F5".130|
00000960  27 27 bd 31 32 39 22 46  36 22 bd 31 33 30 27 27  |''.129"F6".130''|
00000970  22 20 20 20 22 bd 31 33  30 22 43 75 72 72 65 6e  |"   ".130"Curren|
00000980  74 6c 79 20 3f 3f 3f 2e  3f 22 3a f4 20 44 72 61  |tly ???.?":. Dra|
00000990  77 20 73 63 72 65 65 6e  2c 61 6e 64 20 6c 65 61  |w screen,and lea|
000009a0  76 65 20 62 61 63 6b 67  72 6f 75 6e 64 20 68 61  |ve background ha|
000009b0  6e 64 6c 65 72 20 74 6f  20 66 69 6c 6c 20 69 6e  |ndler to fill in|
000009c0  20 74 68 65 20 74 65 6d  70 65 72 61 74 75 72 65  | the temperature|
000009d0  0d 03 fc 05 3a 0d 04 06  05 f5 0d 04 10 16 ff 22  |....:.........."|
000009e0  46 58 31 35 2c 31 22 3a  6f 70 74 69 6f 6e 3d a5  |FX15,1":option=.|
000009f0  0d 04 1a 17 e7 6f 70 74  69 6f 6e 3d 31 35 30 20  |.....option=150 |
00000a00  8c f2 66 6b 65 79 30 0d  04 24 17 e7 6f 70 74 69  |..fkey0..$..opti|
00000a10  6f 6e 3d 31 35 31 20 8c  f2 66 6b 65 79 31 0d 04  |on=151 ..fkey1..|
00000a20  2e 17 e7 6f 70 74 69 6f  6e 3d 31 35 32 20 8c f2  |...option=152 ..|
00000a30  66 6b 65 79 32 0d 04 38  17 e7 6f 70 74 69 6f 6e  |fkey2..8..option|
00000a40  3d 31 35 33 20 8c f2 66  6b 65 79 33 0d 04 42 17  |=153 ..fkey3..B.|
00000a50  e7 6f 70 74 69 6f 6e 3d  31 35 34 20 8c f2 66 6b  |.option=154 ..fk|
00000a60  65 79 34 0d 04 4c 17 e7  6f 70 74 69 6f 6e 3d 31  |ey4..L..option=1|
00000a70  35 35 20 8c f2 66 6b 65  79 35 0d 04 56 17 e7 6f  |55 ..fkey5..V..o|
00000a80  70 74 69 6f 6e 3d 31 35  36 20 8c f2 66 6b 65 79  |ption=156 ..fkey|
00000a90  36 0d 04 60 06 fd 30 0d  04 6a 05 e0 0d 04 74 05  |6..`..0..j....t.|
00000aa0  3a 0d 04 7e 0b dd f2 66  6b 65 79 30 0d 04 88 56  |:..~...fkey0...V|
00000ab0  e7 28 6f 73 63 6f 70 79  20 80 70 62 31 29 3d 30  |.(oscopy .pb1)=0|
00000ac0  20 80 28 6f 73 63 6f 70  79 20 80 70 62 30 29 3d  | .(oscopy .pb0)=|
00000ad0  70 62 30 20 8c f2 66 6b  65 79 31 3a f4 20 45 6e  |pb0 ..fkey1:. En|
00000ae0  73 75 72 65 20 62 6f 74  68 20 63 61 6e 74 20 62  |sure both cant b|
00000af0  65 20 73 65 6c 65 63 74  65 64 20 61 74 20 6f 6e  |e selected at on|
00000b00  63 65 0d 04 92 22 6f 73  63 6f 70 79 3d 6f 73 63  |ce..."oscopy=osc|
00000b10  6f 70 79 20 82 70 62 30  3a 3f 6f 72 62 3d 6f 73  |opy .pb0:?orb=os|
00000b20  63 6f 70 79 0d 04 9c 4f  e7 28 6f 73 63 6f 70 79  |copy...O.(oscopy|
00000b30  20 80 70 62 30 29 3d 70  62 30 20 8c f1 8a 30 2c  | .pb0)=pb0 ...0,|
00000b40  32 29 3b bd 31 32 39 22  46 30 22 bd 31 33 30 22  |2);.129"F0".130"|
00000b50  53 68 6f 77 20 6c 6f 20  61 6c 61 72 6d 20 70 6f  |Show lo alarm po|
00000b60  69 6e 74 22 20 8b f1 8a  34 2c 32 29 3b 22 48 69  |int" ...4,2);"Hi|
00000b70  64 65 22 0d 04 a6 05 e1  0d 04 b0 05 3a 0d 04 ba  |de".........:...|
00000b80  0b dd f2 66 6b 65 79 31  0d 04 c4 56 e7 28 6f 73  |...fkey1...V.(os|
00000b90  63 6f 70 79 20 80 70 62  31 29 3d 70 62 31 20 80  |copy .pb1)=pb1 .|
00000ba0  28 6f 73 63 6f 70 79 20  80 70 62 30 29 3d 30 20  |(oscopy .pb0)=0 |
00000bb0  8c f2 66 6b 65 79 30 3a  f4 20 45 6e 73 75 72 65  |..fkey0:. Ensure|
00000bc0  20 62 6f 74 68 20 63 61  6e 74 20 62 65 20 73 65  | both cant be se|
00000bd0  6c 65 63 74 65 64 20 61  74 20 6f 6e 63 65 0d 04  |lected at once..|
00000be0  ce 22 6f 73 63 6f 70 79  3d 6f 73 63 6f 70 79 20  |."oscopy=oscopy |
00000bf0  82 70 62 31 3a 3f 6f 72  62 3d 6f 73 63 6f 70 79  |.pb1:?orb=oscopy|
00000c00  0d 04 d8 4f e7 28 6f 73  63 6f 70 79 20 80 70 62  |...O.(oscopy .pb|
00000c10  31 29 3d 70 62 31 20 8c  f1 8a 30 2c 34 29 3b bd  |1)=pb1 ...0,4);.|
00000c20  31 32 39 22 46 31 22 bd  31 33 30 22 53 68 6f 77  |129"F1".130"Show|
00000c30  20 68 69 20 61 6c 61 72  6d 20 70 6f 69 6e 74 22  | hi alarm point"|
00000c40  20 8b f1 8a 34 2c 34 29  3b 22 48 69 64 65 22 0d  | ...4,4);"Hide".|
00000c50  04 e2 05 e1 0d 04 ec 05  3a 0d 04 f6 0b dd f2 66  |........:......f|
00000c60  6b 65 79 32 0d 05 00 22  6f 73 63 6f 70 79 3d 6f  |key2..."oscopy=o|
00000c70  73 63 6f 70 79 20 82 70  62 32 3a 3f 6f 72 62 3d  |scopy .pb2:?orb=|
00000c80  6f 73 63 6f 70 79 0d 05  0a 39 3f 73 74 79 6c 65  |oscopy...9?style|
00000c90  3d 3f 73 74 79 6c 65 20  82 32 35 35 3a f4 20 54  |=?style .255:. T|
00000ca0  6f 67 67 6c 65 20 66 6c  61 67 20 69 6e 20 74 68  |oggle flag in th|
00000cb0  65 20 73 65 72 69 61 6c  20 72 65 61 64 65 72 0d  |e serial reader.|
00000cc0  05 14 73 e7 28 6f 73 63  6f 70 79 20 80 70 62 32  |..s.(oscopy .pb2|
00000cd0  29 3d 70 62 32 20 8c f1  8a 30 2c 36 29 3b bd 31  |)=pb2 ...0,6);.1|
00000ce0  32 39 22 46 32 22 bd 31  33 30 22 46 61 68 72 65  |29"F2".130"Fahre|
00000cf0  6e 68 65 69 74 20 64 69  73 70 6c 61 79 22 3a f1  |nheit display":.|
00000d00  8a 31 39 2c 31 36 29 22  43 22 20 8b f1 8a 34 2c  |.19,16)"C" ...4,|
00000d10  36 29 22 43 65 6c 63 69  75 73 20 64 69 73 70 6c  |6)"Celcius displ|
00000d20  61 79 20 20 20 22 3a f1  8a 31 39 2c 31 36 29 22  |ay   ":..19,16)"|
00000d30  46 22 0d 05 1e 05 e1 0d  05 28 05 3a 0d 05 32 0b  |F".......(.:..2.|
00000d40  dd f2 66 6b 65 79 33 0d  05 3c 22 6f 73 63 6f 70  |..fkey3..<"oscop|
00000d50  79 3d 6f 73 63 6f 70 79  20 82 70 62 36 3a 3f 6f  |y=oscopy .pb6:?o|
00000d60  72 62 3d 6f 73 63 6f 70  79 0d 05 46 b5 e7 28 6f  |rb=oscopy..F..(o|
00000d70  73 63 6f 70 79 20 80 70  62 36 29 3d 70 62 36 20  |scopy .pb6)=pb6 |
00000d80  8c f1 8a 30 2c 38 29 3b  bd 31 32 39 22 46 33 22  |...0,8);.129"F3"|
00000d90  bd 31 33 30 22 43 6c 6f  63 6b 20 64 69 73 70 6c  |.130"Clock displ|
00000da0  61 79 20 20 20 20 20 20  22 3a f1 8a 34 2c 31 32  |ay      ":..4,12|
00000db0  29 22 53 65 74 20 6c 6f  20 6c 69 6d 69 74 22 3a  |)"Set lo limit":|
00000dc0  f1 8a 34 2c 31 34 29 22  53 65 74 20 68 69 20 6c  |..4,14)"Set hi l|
00000dd0  69 6d 69 74 22 20 8b f1  8a 34 2c 38 29 22 54 65  |imit" ...4,8)"Te|
00000de0  6d 70 65 72 61 74 75 72  65 20 72 65 61 64 6f 75  |mperature readou|
00000df0  74 22 3a f1 8a 34 2c 31  32 29 22 53 65 74 20 68  |t":..4,12)"Set h|
00000e00  6f 75 72 73 20 20 20 22  3a f1 8a 34 2c 31 34 29  |ours   ":..4,14)|
00000e10  22 53 65 74 20 6d 69 6e  75 74 65 73 20 22 0d 05  |"Set minutes "..|
00000e20  50 05 e1 0d 05 5a 05 3a  0d 05 64 0b dd f2 66 6b  |P....Z.:..d...fk|
00000e30  65 79 34 0d 05 6e 22 6f  73 63 6f 70 79 3d 6f 73  |ey4..n"oscopy=os|
00000e40  63 6f 70 79 20 82 70 62  33 3a 3f 6f 72 62 3d 6f  |copy .pb3:?orb=o|
00000e50  73 63 6f 70 79 0d 05 78  4d e7 28 6f 73 63 6f 70  |scopy..xM.(oscop|
00000e60  79 20 80 70 62 33 29 3d  70 62 33 20 8c f1 8a 30  |y .pb3)=pb3 ...0|
00000e70  2c 31 30 29 3b bd 31 32  39 22 46 34 22 bd 31 33  |,10);.129"F4".13|
00000e80  30 22 53 61 6d 70 6c 65  20 72 61 74 65 3a 20 31  |0"Sample rate: 1|
00000e90  30 73 22 20 8b f1 8a 31  37 2c 31 30 29 22 31 73  |0s" ...17,10)"1s|
00000ea0  20 22 0d 05 82 05 e1 0d  05 8c 05 3a 0d 05 96 0b  | ".........:....|
00000eb0  dd f2 66 6b 65 79 35 0d  05 a0 28 e7 28 6f 73 63  |..fkey5...(.(osc|
00000ec0  6f 70 79 20 80 70 62 36  29 3d 70 62 36 20 8c f2  |opy .pb6)=pb6 ..|
00000ed0  73 65 74 70 6f 69 6e 74  28 70 62 30 29 3a e1 0d  |setpoint(pb0):..|
00000ee0  05 aa 1a 3f 6f 72 62 3d  6f 73 63 6f 70 79 20 80  |...?orb=oscopy .|
00000ef0  28 32 35 35 2d 70 62 34  29 0d 05 b4 25 74 68 65  |(255-pb4)...%the|
00000f00  6e 25 3d 91 3a f4 20 53  69 6d 75 6c 61 74 65 20  |n%=.:. Simulate |
00000f10  70 72 65 73 73 20 61 6e  64 20 68 6f 6c 64 0d 05  |press and hold..|
00000f20  be 14 f5 3a fd 28 91 2d  74 68 65 6e 25 29 3e 32  |...:.(.-then%)>2|
00000f30  30 30 0d 05 c8 0f 3f 6f  72 62 3d 6f 73 63 6f 70  |00....?orb=oscop|
00000f40  79 0d 05 d2 05 f5 0d 05  dc 0e 6b 65 79 3d a6 28  |y.........key=.(|
00000f50  32 30 30 29 0d 05 e6 57  e7 6b 65 79 3d 31 35 35  |200)...W.key=155|
00000f60  20 8c 3f 6f 72 62 3d 6f  73 63 6f 70 79 20 80 28  | .?orb=oscopy .(|
00000f70  32 35 35 2d 70 62 34 29  3a 74 68 65 6e 25 3d 91  |255-pb4):then%=.|
00000f80  3a f5 3a fd 91 3e 74 68  65 6e 25 2b 35 3a 3f 6f  |:.:..>then%+5:?o|
00000f90  72 62 3d 6f 73 63 6f 70  79 3a f4 20 4f 6e 65 20  |rb=oscopy:. One |
00000fa0  73 77 69 74 63 68 20 70  75 73 68 0d 05 f0 57 e7  |switch push...W.|
00000fb0  6b 65 79 3d 31 35 36 20  8c 3f 6f 72 62 3d 6f 73  |key=156 .?orb=os|
00000fc0  63 6f 70 79 20 80 28 32  35 35 2d 70 62 35 29 3a  |copy .(255-pb5):|
00000fd0  74 68 65 6e 25 3d 91 3a  f5 3a fd 91 3e 74 68 65  |then%=.:.:..>the|
00000fe0  6e 25 2b 35 3a 3f 6f 72  62 3d 6f 73 63 6f 70 79  |n%+5:?orb=oscopy|
00000ff0  3a f4 20 4f 6e 65 20 73  77 69 74 63 68 20 70 75  |:. One switch pu|
00001000  73 68 0d 05 fa 0a fd 6b  65 79 3d b9 0d 06 04 05  |sh.....key=.....|
00001010  e1 0d 06 0e 05 3a 0d 06  18 0b dd f2 66 6b 65 79  |.....:......fkey|
00001020  36 0d 06 22 28 e7 28 6f  73 63 6f 70 79 20 80 70  |6.."(.(oscopy .p|
00001030  62 36 29 3d 70 62 36 20  8c f2 73 65 74 70 6f 69  |b6)=pb6 ..setpoi|
00001040  6e 74 28 70 62 31 29 3a  e1 0d 06 2c 1a 3f 6f 72  |nt(pb1):...,.?or|
00001050  62 3d 6f 73 63 6f 70 79  20 80 28 32 35 35 2d 70  |b=oscopy .(255-p|
00001060  62 35 29 0d 06 36 25 74  68 65 6e 25 3d 91 3a f4  |b5)..6%then%=.:.|
00001070  20 53 69 6d 75 6c 61 74  65 20 70 72 65 73 73 20  | Simulate press |
00001080  61 6e 64 20 68 6f 6c 64  0d 06 40 14 f5 3a fd 28  |and hold..@..:.(|
00001090  91 2d 74 68 65 6e 25 29  3e 32 30 30 0d 06 4a 0f  |.-then%)>200..J.|
000010a0  3f 6f 72 62 3d 6f 73 63  6f 70 79 0d 06 54 05 f5  |?orb=oscopy..T..|
000010b0  0d 06 5e 0e 6b 65 79 3d  a6 28 32 30 30 29 0d 06  |..^.key=.(200)..|
000010c0  68 57 e7 6b 65 79 3d 31  35 36 20 8c 3f 6f 72 62  |hW.key=156 .?orb|
000010d0  3d 6f 73 63 6f 70 79 20  80 28 32 35 35 2d 70 62  |=oscopy .(255-pb|
000010e0  35 29 3a 74 68 65 6e 25  3d 91 3a f5 3a fd 91 3e  |5):then%=.:.:..>|
000010f0  74 68 65 6e 25 2b 35 3a  3f 6f 72 62 3d 6f 73 63  |then%+5:?orb=osc|
00001100  6f 70 79 3a f4 20 4f 6e  65 20 73 77 69 74 63 68  |opy:. One switch|
00001110  20 70 75 73 68 0d 06 72  57 e7 6b 65 79 3d 31 35  | push..rW.key=15|
00001120  35 20 8c 3f 6f 72 62 3d  6f 73 63 6f 70 79 20 80  |5 .?orb=oscopy .|
00001130  28 32 35 35 2d 70 62 34  29 3a 74 68 65 6e 25 3d  |(255-pb4):then%=|
00001140  91 3a f5 3a fd 91 3e 74  68 65 6e 25 2b 35 3a 3f  |.:.:..>then%+5:?|
00001150  6f 72 62 3d 6f 73 63 6f  70 79 3a f4 20 4f 6e 65  |orb=oscopy:. One|
00001160  20 73 77 69 74 63 68 20  70 75 73 68 0d 06 7c 0a  | switch push..|.|
00001170  fd 6b 65 79 3d b9 0d 06  86 05 e1 0d 06 90 05 3a  |.key=..........:|
00001180  0d 06 9a 13 dd f2 73 65  74 70 6f 69 6e 74 28 62  |......setpoint(b|
00001190  69 74 29 0d 06 a4 21 6d  6f 64 69 66 79 3d 6f 73  |it)...!modify=os|
000011a0  63 6f 70 79 20 80 28 32  35 35 2d 62 69 74 29 20  |copy .(255-bit) |
000011b0  84 70 62 33 0d 06 ae 0f  3f 6f 72 62 3d 6d 6f 64  |.pb3....?orb=mod|
000011c0  69 66 79 0d 06 b8 3c f1  8a 34 2c 31 32 29 22 44  |ify...<..4,12)"D|
000011d0  69 73 61 62 6c 65 20 61  6c 61 72 6d 20 70 6f 69  |isable alarm poi|
000011e0  6e 74 22 3a f1 8a 34 2c  31 34 29 22 41 64 6a 75  |nt":..4,14)"Adju|
000011f0  73 74 20 61 6c 61 72 6d  20 70 6f 69 6e 74 22 0d  |st alarm point".|
00001200  06 c2 05 f5 0d 06 cc 0e  6b 65 79 3d a6 28 32 30  |........key=.(20|
00001210  30 29 0d 06 d6 45 e7 6b  65 79 3d 31 35 36 20 8c  |0)...E.key=156 .|
00001220  3f 6f 72 62 3d 6d 6f 64  69 66 79 20 80 28 32 35  |?orb=modify .(25|
00001230  35 2d 70 62 35 29 3a 74  68 65 6e 25 3d 91 3a f5  |5-pb5):then%=.:.|
00001240  3a fd 91 3e 74 68 65 6e  25 2b 35 3a 3f 6f 72 62  |:..>then%+5:?orb|
00001250  3d 6d 6f 64 69 66 79 0d  06 e0 3f e7 6b 65 79 3d  |=modify...?.key=|
00001260  31 35 35 20 8c 3f 6f 72  62 3d 6d 6f 64 69 66 79  |155 .?orb=modify|
00001270  20 82 70 62 34 3a 74 68  65 6e 25 3d 91 3a f5 3a  | .pb4:then%=.:.:|
00001280  fd 91 3e 74 68 65 6e 25  2b 35 3a 3f 6f 72 62 3d  |..>then%+5:?orb=|
00001290  6d 6f 64 69 66 79 0d 06  ea 0a fd 6b 65 79 3d b9  |modify.....key=.|
000012a0  0d 06 f4 46 3f 6f 72 62  3d 6f 73 63 6f 70 79 3a  |...F?orb=oscopy:|
000012b0  f4 20 42 61 63 6b 20 74  6f 20 74 65 6d 70 65 72  |. Back to temper|
000012c0  61 74 75 72 65 20 64 69  73 70 6c 61 79 69 6e 67  |ature displaying|
000012d0  20 6d 6f 64 65 20 61 6e  64 20 6f 6c 64 20 73 65  | mode and old se|
000012e0  74 74 69 6e 67 73 0d 06  fe 3c f1 8a 34 2c 31 32  |ttings...<..4,12|
000012f0  29 22 53 65 74 20 6c 6f  20 6c 69 6d 69 74 20 20  |)"Set lo limit  |
00001300  20 20 20 20 20 22 3a f1  8a 34 2c 31 34 29 22 53  |     ":..4,14)"S|
00001310  65 74 20 68 69 20 6c 69  6d 69 74 20 20 20 20 20  |et hi limit     |
00001320  20 22 0d 07 08 05 e1 0d  ff                       | ".......|
00001329
F/TEMPMod.m0
F/TEMPMod.m1
F/TEMPMod.m2
F/TEMPMod.m4
F/TEMPMod.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .