見る/開く - Kagoshima University Repository
Contents
1. REM x TYPEWRITER INTERFACE CONTROL PROGRAM ds 7 REM xxxxxx xTYPECTRL BAGS 3 9 33 Xx x3 10 A amp H700 Bz amp H8000 FzQ 15 OUT 430 0UT 115 amp H82 z FOR J 0 TO 255 30 POKE B JsPEEN CA J NEXT J 40 IF INP 9 AND1 1 THEN GOSUB 500 65 K 130 GOTO 9090 70 IzsINPt 4 72 IF I5s35 THEN 400 73 PzINP 9 76 IF P gt 127 THEN 73 80 CEPEEK B 90 IF Cs THEN 70 95 IF C 1 THEN 70 100 IF C 63 THEN 300 110 IF C zU00 THEN zoo 120 IF F THEN GOSUB 700 130 GOTO 300 0 IF F 1 THEN GOSUR 800 3 IF C 13 THEN 900 310 IF K gt 130 THEN 00 2D OUT B30 OUT 8C OR 128 K K 1 430 GOSUB 600 340 GOTO 70 400 IF INP 9 AND64 64 THEN 400 410 IF INP 9 AND32 THEN 80 42Q GOTO 70 300 FOR J TO 255 510 IzINP 4 IF I Q THEN 510 915 PONE B J I 5z NEXT J RETURN 600 MzINP C9 MzM AND 15 MzM 41 610 FOR L TO M 160 NEXT LsRETURN 700 OUT BB OUT 85142 F 1 710 FOR NOQ TO Z00 NEXT N RETURN 800 OUT 85 0 O0UT 83143 1 Fz0 NzQ amp z0 FOR N TO ZOQ NEXT N RETURN 900 OUT 8 0 0UT 85141 910 FOR NsQ TO ZOO NEXT N 920 FOR L TO KX 16 NEXT I 730 EGOTO 70 X 7 PU 2 4 eue acc2. ROM BASIC 2 4 CPU CPU CPU CPU Z80A CRT HD46505SP 64K y Z RAM MK4164S 512x480 2 2 LS1Z3 l wu Q y Eo D5 at eT M CAEN S CS RE 5 RO E 6 r h 4 NEN DR aa peus EH i x A0 m ERR ER E Mecca rude codicc 2 3 Ts TETEN S123 50ms 6
3. IC online 4E 2 CPU 80 12K BASIC CPU 1K 1O 13K BASIC ROM 1O 80 CPU TRS 80 1 MZ 80 RAM ROM
4. 1C Department of Physics Faculty of Science Kagoshima University Kagoshima Japan 72 DOS NEWDOS DOS 1 CPU IO DOS TRSDOS NEWDOS NEWDOS Disk BASIC BASIC FORTRAN MACRO80 EDITER SCRIPSIT SCRIPSIT Dictionary RS 232C z ROM 4k BASIC 2 3 CPU CPU ROM ROM z v 2 ROM CPU 80 ROM 13K RAM48K Video RAM Casette I F Display Timer Floppy I F RS 232C 300bps Ip 06CCrs P y Co
5. 81 6 0 V F 8 V F 1 MHz 10V 1 6 100 8 V 2 V 1 12 A D D A D A X t 2 AA D CPU
6. K Repository oan Autors O0 00 00 000 00 0 HHHHHHHHHH HHHHHHHHH 16 71 86 Citation URL http hdl handle net 10232 6411 BP KISA id Wi l2 K http ir kagoshima u ac jp KAGOSHIMA UNIVERSITY A No 16 p 71 86 1983 R 1983 9 10 Laboratory Automation Hiroto TATENO Youichirou IWASHITA Akira FUKAI Received Sep 30 1983 Abstract Today the study of material science is so complicated and accurate it requires amount of measurements and processings of data and rapid publication of work To do with them we have used microprocessor and function IC to control the measurement devices to TEOG and process the measured data and to link to the data processing center And we have surveyed literature using Acoustic Coupler and saved effort at writing paper in English to check misspelling in paper and enable to type papers at certain format The result flexibility and rapid response to the experimental condition was obtained We wish to provide the circuit diagrams and the programs as manual 1l
7. D IBM CPU 75 IBM IBMM 6 7 LF356 DO s LS92 LS123 6 p l b smk 4 lq 5 m 9g b C A1 N e to LJ CU L LJ Ll LJ Ld L p UT g 07 loe os Da os t2 Toi Too E d a P 4049 MO d Ji 4 id C T 4 LS30 2 oc 0 B8 1
8. 8 1 Hz 200 kHz 1 Hz TEX 3 X t XX Y CPU LSI 8255A TTL 8 9 7 0 1 2 IF BASIC IF V V IF Va Vg f CPU Vw
9. PDT EE EE I 52 79 COPY ous ROM 4 5 5 A as
10. MOS RAM HM6116LP RAM L EP ROM ROM ROM 1 2 ROM ROM b ROM BASIC BASIC EP ROM 3 2 2957 2116 2164 e 1 DOAN De 5 r O gt 0 1 2 3 4 5 6 7 0 1 2 3 4 5 6 7 8 LS02 d LC 6 d 20 1 5 5 2 4 ED m 3 3 q 2 0 l 5 1 6 0 7 n e OUT 9 9 10 10 10K CB 1 gt dPGM 1 y 10y gt o o RAMOS ROM C373 A495 5V C735 2
11. 1F Va V VF 8 8 1 CPU 1 DA 3 lt X t IF 10 11 82 PE A aTM e X urt 6 17 60 63 r 5 3 to Fren syn 3 1 digit 1 15V 415V Analcq EU 6 Anaicg 1t d IAM 2 s O c 2100K 5 59 Li e r3 0 01 15V GK ZOA 54 82K SA Aw 15V A Lnaloq i 100K 1S15cc 50p 1002 0 5V vb RD6A 0 1 I pc El NAE Y C Ir Cw i L Lo INCCK SVO 1 DACH TDA 15 o Analog gut 52 55 e e tn GIO 5 o Anal cut zs En m LS367 74154 A7 5 4 3 2 Al 224 0 H 39 TIR 9 T
12. yOF As 2 3 INPUT OF 1085 IF VS 0 THEN MODE Q EGOTO 1100 1090 Ad z N IF N 2ABS OEN ST VS THEN PRINT Remember DATA Y N s4Z 3A 5 s INPUT A IF At z Y THEN MODE 4 ELSE MODE Q ELSE MO DE U 1100 TO0 O0s Tz Os Izc O I z A4L U 5 VL A X49 1110 C 2 CURSOR 1120 PRINT PRINTER OUT Y NDsX 5 A 5 5 INPUT A IF A 2 Y THEN MODE MODE OR B 1125 PRINT INTERVAL PRINT OUT Y N sZ 5A 53 5 INPUT A IF A Y THEN MODE MODE OR 16 PRINT INVERVAL TIME sec lt TS5 3 INPUT TS 1127 PRINT INTERVAL DISK OUT Y N 34 AS S INPUT AS IF A z Y THEN MODE MODE 0 R 3z PRINT INTERVAL TIME secOsS s TS 2 s INPUT TS LINE INPUT File Name L OP EN Q 15L 1130 IF MODE AND 24 THEN LINEINPUT Comment sCM LPRINT CM 1135 IF MODE AND 32 THEN LINEINPUT COMMENT 7 sSCM PRINTH1 CM 1140 PRINT START OH Y N s45 3A9 3 52 INPUT A 1190 IF A lt gt Y THEN 1000 1160 PRINT 9 LO PRINT 64 5 L3 3 CHR 31 1165 IF MODE AND 32 THEN PRINT Q3 L 1170 IF MODE AND B THEN LPRINT L 3 1175 IF MODE AND 16 THEN LPRINT TIME sec sL3 CMD T PONREA 130 POKEAs 0 PONEA 1 0 PONREA Z30 CMD R 1177 IF MODE AND 32 THEN CMD T POKE A 1s0 PONE As POKE A c 1s0 POHE Atz CMD R 1180 FOR VD ST TO EN STEP VS 1190 Pz3 D VD GOSUR 150 FOR M 1 TO 1000 NEXT MG and Wait 1200 GOSUB 8740 COUNTERS READ 1210 DZzFNDZ CP ADC READ 1 JF
13. A z amp HB8O000 TO amp HFFFF STEP 2 1020 POKE AsD POKE A 15D 1030 NEXT A 1040 GOTO 9999 z000 GOSUB 2500 X zD z010 GOGUB 2500 Y D 2020 C ASC P 2030 IF O ASC O THEN 9999 2045 GOSUB 3500 z 050 GOTO 2000 2500 D PEEK B P 2505 IF D 13 THEN O ASC O RETURN 2510 IF D ASC THEN PzP 1 GOTO Z500 2520 IF DzsASC THEN S 1 PzP 1 GOTO 2540 2530 S 1 2540 DzQ 2550 N PEEK B P ASC Z560 IF NE OR N 9 THEN 6 g 2570 DzD 10 N PzP 1 2580 IF P G THEN O ASC O RETURN 2590 GOTO 2550 z600 REM Z610 DzDX S RETURN 39 9 GOSUB Z2500 X D 3010 GOSUB Z500 YzD 30z0 C ASC C R 34030 IF OzASC O THEN 9999 3045 GOSUB 2500 3050 GOTO 3000 3500 IF X Q OR X2511 OR YOU OR Y2479 THEN RETURN 3505 AsINT GX 8 CY 64 amp H8000 3510 Dzi1 1IF X AND 7 THEN FOR I 1 TO X AND 7 20 DzD ZzZ NEXT I 3520 IF C ASC P THEN D D OR PEEK A GOTO 2600 3530 IF CzASC R THEN D D XOR 255 AND PEEK A GOTO 2600 3540 GOTO 3610 34600 POKE AsD 3610 RETURN 4000 GOSUB Z500 zD 4010 GOSUB 5 D 40z0 IF O ASC O THEN 9999 4030 GOSUR 2500 L D 4040 GOSUB Z500 M D 4050 IF O ASC O THEN 9999 4060 C ASC P 4075 GOSUR 4500 4080 J L KzM GOTO 4030 4500 FzO UzABS L J V ABS UM RK 4510 W z OL J20 L J 0 Z OM K70 OM KZQD 4520 IF U zV THEN 4550 4530 F 1 T J J K K T T L L M M T N Ui TS 77 T U U V
14. AND SW 1 OF WRITER OK A IF LEFT A i Y THEN 130 140 PAz4 PB 3 PCzs6 CT 27 PPI GB8Z55 PORT 150 QUT CT amp HVQ PA IN PB OUT PC 0UT 160 OUT PC amp H40 OUTPUT ENABLE 170 DEFUSRO C amp HEOQ00 ERASE CHECK ROUTINE 180 DEFUSRi12 amp HEO19 WRITE SUBROUTINE 190 IF F lt gt 1 024 THEN DEFUSRZZ amp HEUA49 ELSE DEFUSRZ Z amp HEO0S52 9 w VERIFY SUBROUTINE zU0 CLS PRINT IT IS EPROM WRITING PROGRAM 210 PRINT lt 20 PRINT Using memerv uf OEOO00H OEDA1H 230 PRINT z240 REM ERASE CHECK 750 INPUT ERASE CHECK TURN ON THE SWITCH ON THE BOARD AND PUT ROM INTO SOCKET OK A lt 69 IF LEFT A 10z5 Y THEN 250 270 A 0 280 A USR CA 190 CLS PRINT ERASE CHECK 300 IF AZF THEN PRINT PRINT ERROR THIS ROM DOES NOT ERASED PRINT Y QU MUST CHANGE ROM OR ERASE IT STOP 310 PRINT 3 2 PRINT ORK 330 PRINT NOWs WE WILL WRITE l 340 PRINT INPUT INPUT START ADDRESS HEX A GOSUB 480 IF D32767 THEN D D 65534 450 D D AND G PRINT ADDRESSz SFNHZ D FNHZ D F 12 INPUT IF OK THEN TURN OFF THE SWITCH ON THE BOARD ON sA IF LEFT A 51 N THEN 340 3 Q0 PRINT WRITING AzUSRI1 D 370 PRINT 380 PRINT WRITE OVER 490 PRINT NOW VERIFY 410 A USR D 4720 IF A lt gt D F THEN PRINT PRINT ERROR WE FAIL TO WRITE STOP 430 PRINT 440 PRINT VERIFY OK 450 PRINT PUT OFF THE PROGRAMMED ROM 460 INPUT WRITE ONCE MORE A 47 IF LEFT A 3 10 Y T
15. ROM 74 X 5 REM s xxx xx EP ROM WRITER CONTROL PROGRAM 3J3dycxaex 10 DEFINT amp A CsE Z CLS CHD T lt DEFFNHX A MID 1S34567B9ABCDEF 5 A 1 5 1 22 DEFFNHY A FNHX AZ 16 TFNHX AAND15 lt DEFFNHZ A FNHY A 256 KG x0 256 FNHY CAANDZS55 30 PRINT TAB 20 E P ROM WRITER 40 PRINT 20 PRINT TABC10 WHICH 2708 452716 B 253Z2z C32764 2D PRINT TAB 16 60 INPUT A IF A A OR A z B OR A C OR A D THEN FzsASC OA 64 ELSE 50 65 PRINT WAIT FOR SOME MINUITES 70 IF F 1 THEN PRINT Z708 FORPAZOTO CKHBF sREADA S NEXT FOR PA C amp HEDOD TO amp HEO A1 READA GOSUB480 POKEPA DiNEXTEGOTO9 80 FORPAz C amp HEOQO0 TOC amp HEDBF READA GOSUBAB O POREPA D NEXT 90 ON F GOSUB 92594396 98 GO0TO 100 92 PRINT 2708 Fz1024 G CKHF COO RETURN 94 PRINT 2716 Fz2048 G C amp HFB00 PORE C amp HEO3Z s OE POKE HE 4 9 C amp KHF7 PORE C amp HED6A 3 C amp HO7 PONE C amp HEO68 s amp HCO PORE EHEOBS amp HOBG RETURN 96 PRINT 25JZ2 Fz4096 G z CKHF O0 RETURN 98 PRINT 2764 Fz819Z Gz C amp HEODQD PORE C amp HED32Z 323 PORE C amp HEUAQ0 CKH9F PORE amp HEQ06 3 J a amp HiF PORE C amp HEDOB C amp HEO POKE C amp HEDB8S s CEHZOD RETURN 100 REM 110 REM EP ROM WRITER MAIN ROUTINE 120 REM 130 INPUT PLEASE TURN ON THE POWER SWITCH
16. 0 Valta9e divider 770 IF INP 25Z AND 8 8 THEN IF I THEN I zINKEY GOTO 770 ELSE 860 780 DE 0 790 FOR J 3 TO STEP i 800 QUT 254 J B i6 810 FOR W 1 TO 10 NEXT WAIT BS DIzINP Z254 830 DES DES 100 INTODI 162 0 10 DI AND 15 840 NEXT J 850 IF MODE AND 1 THEN PRINT Vd V9 raticoz DE45 IF INHKEY THEN 870 860 RETURN 870 DOUBLE COUNTER READ 880 IF P 5 THEN OUT 49520 OUT 495 28 Reset Pulse eof Fres 890 OUT 2545160 0UTZ543Z4 Reset Pulse of Div 900 IF PZ 6 THEN GOSUR 670 Fres 910 IF P425 THEN GOSUB 770 Div 920 RETURN 6 930 MODE means 940 MODE 1 DisPlav read DATA af FREG 5 ar RATTO 6 950 2 Display output DATA af DAC 1s324 960 4 Recurd DATA to Arrars DESCIOSFRSCIOsAD CID 970 8 PRINT QUT TO PRINTER in Measurement 8 16 PRINT OUT TO PRINTER at re9ular intervals 990 in measurement 1000 Measurement 1010 PRINT START VOLT 0 4095 5 z 385T5 2 3 INPUT ST IF ST O THEN RETURN 1020 Pz3 MODE Z DE ST PRINT CHR 27 3STRING 325 25 035 GOSUB 520 PRINT 1030 PRINT END VOLT 04095 4 35ENS 3 INPUT EN 1040 PRINT STEP VOLT 1 4095 4 3UG5 5 INPUT VS IF VS lt THEN 1040 1050 PRINT DAC 4 X t Recorder I 9 3 NYY d OVd V9 N N Z SKEH3 2 s INPUT KE 1070 PRINT DAC 1 739 X T RECORDER T AYY VD VG N s N lt sKF3 3 2 s sINPUT KF 1075 PRINT Vd V9 2 lt
17. 150 GOSUB170 z00 CLEAR Z000 DEFINT A Z lt 1 CsO Dz0 Di 0 DA4 Q DIzO DE 0 DS 20 EN 4095 12 0 Jz0 MODEZO NO P ZO STzO VD O VS z10 W 0 W1 0 J1z0 J2z0 T 0 TOx0 T8z0 AzC amp HA0 1 DF 0 DE O0 KE 1 KRF 1 FI f 8 eQ0Q DoS 0 DDHWH 0 DO 0 OF 0 DPH 0 230 DEF FND1 A Z NOTINPCS6 ANDZ55 16 NOTINPCSBD ANDZA4O 16 z4Q0 DEF FNDZ GAOz INPCS7 ANDZAOD 100 16 CINPC CS7 AND15 10 CINPCGB AND15 290 DEF FND3 GA Z X NOTINP OZ ANDZS993 16t NOTINP GS4 ANDZ2A40 16 z 0 DEF FNDA4 A z NOTINPOS232 ANDZ55 16 NOTINP S4 AND15 270 U CHR amp H21 CHR amp HC0 CHR amp H3C CHR amp H11 CHR C amp H80 CHR C amp H3C CHR amp H 01 t CHR O amp HA4UD D CHR OEHOJ3 CHR HED CHR HB CHR amp GHC9 280 UA VARPTR U U zPEEKCUA 1 PEEK CUA Z EG 790 U U 658936 U 232768 300 DEFUSR U 310 LOs z axaxxeacxxxxxx INTERNAL FRICTION MEASUREMENT SYSTEM 3 3 3zU CM z F HggpnH ags sSTRINGS438 4F AS z ISz L z 430 L1 DAC C1 ADC CZz DAC 3 DAC A4 FREQ 5 VOL TDIV C 320 L2 Ri HHHH HHHH HHHH TH HEHHSEHdE HHHHHHHH HH HHH V amp dH4 V HH H4HHV BH HHHV 350 L3 Vg 3 Vd Vga 6 d Vd V9g Rect4 Frea 5 ADC Z I F 1 360 L4 z idu Wii Hii ii UI HHHHHHHH HHHH HHHH 3470 N z1500 DIM DE N FR N ADN 380 CLS 90 PRINT QOsLUOU 5 400 MODEzQ GOSUP 870 MODE z1 I 410 PRINT 643L11 4720 PRINT USING LZ 3FND1 A sFNDZCA s3
18. 79 GOSUR 3500 NEXT YiNEXT X C ASC P FOR N Q TO L STEP Z J H ON E 47 H N 1 4G FOR M z TO 2 X NM 5 Y M GOGUB 3500 X2J M GOSUB 23500 NEXT M NEXT N GOTO 9999 GOTO 5 Wb 78 X f ROM BASIC CPU BASIC 8K G 32768 32767 26
19. 8578 06 3C 025 413 C94 1B 233 7A 4 B3 z090 DATA C9 7C E6 033 4F DE 065 E63 AG s B1 D2s065 7Ds DI 5350505 C9 X3 ROM NI 280A LS24 2 ro cn CD N G n9 G en P 65 r PES Z ADNA 6 7 cn en P 600 r cNn Pl 4 7K 1 rm N LS04 19822 RFSH 120 390 A15 50 LS05 No FATT lt AC 14 A O videoout erem D0 7 Bl4 To ETE BUSY DETA cen dera N mi col gt e c l TD N y gt Njen 76 X GOSUB 5000 Bz amp H1400 G amp H300 O ASC P kiH amp H1 1 DIM H 100Q 10 P Z GOSUB 500 IF D 13 THEN POKE B P DiGOTO 50 25 IF D 9 THEN END 3 IF D amp HZU THEN 2 40 POKE B P DiP P 1 iGOTO 20 50 REM 100 P Q 110 D PEEK B P P P 1 120 IF D 13 THEN RETURN 130 IF D ASC THEN 110 140 IF D ASC C THEN 1000 150 IF DsASC S THEN Z000 160 IF D ASC R THEN 3000 170 IF DzASC L THEN 4000 180 IF D ASC H THEN 6000 190 IF D ASC G THEN 7000 200 GOTO 9999 S00 REM x INPUT SUB x x 510 IF INP amp HB6 AND32 THEN 500 520 D INP amp H84 RETURN 1000 D Q 1010 FOR
20. FND3 AO s FNDA CAO DF DESSFND1 A2 10 40963 FND A 100 FND3CA 10 4076s5 FNDACA 10 4096 430 PRINT I O Pert Number CHR 31 440 PRINT DAC 1 0 1 ADC DAC 3 37 DAC 4 4 Fres 5 5 Unu1 6 6 450 PRINT Ga measurementzi 35 460 PRINT PRINT UWHICH 1 1020Z2 5P3 35 INPUT P 470 IF PX1 OR P510 THEN END 480 ON P GOSUE 500 35 620 5500 5 500 58B7 870 390 390 5 390 31000 490 GOTO 390 2300 DAC 1s35 4 2 2910 PRINT USING DAC 8 VOLT 3 Ps INPUT DE eZ ON P GOSUB 120 3140 5160 3180 530 IF DE lt OR DE24095 THEN RETURN 340 IF MODE AND 2 THEN PRINT USING F 3 DS8 950 FOR D DS TO DE STEP SGN DE DS 360 ON P GOSUBE 110 5130 31150 170 570 IF MODE AND 1 THEN PRINT 1Z0 9 P USING F D 580 IF MODE AND 2 THEN PRINT USING G 3i D 590 IF I THEN I zINHEY ELSE D DE 600 NEXT 610 RETURN 620 ADC 2 30 PRINT USING ADC 2 W V sFNDZ P 100 640 IF INKEY THEN 4630 650 RETURN 83 64 X 660 Fres Counter 670 IF P 5 THEN IF INP 5 AND 8B B THEN IF I THEN I INKEY GOTO 670 ELS E 750 680 DF 0 690 FOR J 3 TO OQ STEP i 700 QUT 49 J4ZO FOR W i TO 10 NEXT WAIT 710 DI INP 48 720 DF amp zDFi3 100 INT ODI 152 10 DI AND 15 730 NEXT 740 IF MODE AND 1 THEN PRINT Freauencwvz sDFH4S IF INKEY THEN 870 750 RETURN 76
21. HEN Z00 ELSE END 480 DzO FORIZ1TOLEN CA KZASCIOMID AS 5 122 IFR247ANDKRKZ71THENDz ZD 164K 484 K264 71 NEXT RETURNEL SENEX T RETURN 10MO DATA CD B0 EO CD 873 EQ CDs 6813 EQ DB s 045 CDs 753 EDS 3C 20 1010 DATA 05 CD 70 EO zZ s FO C35 9A 0A CD 809 EQs 3E 80 D3 07 1020 DATA D3 7E CD 75 EQ FE FF ZB 195 D33 045 CDs 613 EQ DB 1030 DATA 65F65 4 5D 35 965 15 Cy IE OB 79 B1 20 FB DE 65E6 1040 DATA BFE D3 65 CD 705 EO ZO DA C9 CD 5E 5 CD B75 EO CD 1050 DATA l EQ DB 043 CD 75 ED BEs ZQ RC CD 70 EQ ZO S FO 18 1060 DATA B5 7C5E6 QF 3473 DB s 063 E65 COS BOs D3 06s 7D3 D35 055 C9 1070 DATA 1B5323 7A3B334 C9 Fh ADS 7CS EG 9035F653C5475F15 0231 C9 1080 DATA CD 7F QA 115 00 105 C2 3E 90 D3 07 3E 405 D3 06 C9 2000 DATA CD 735E 5 CDs 6As EO s CDA 913 EO DB 045 CDs 7A EQs 3C Z z010 DATA 05 CD 8C EU ZO FO C33 9s 0 CD 734 EO 3E s BO D33 07 z0z20 DATA ES sDDsE1s0635643 DDs ES E11 113003045 7E FE FF 28316 z030 DATA D3 4 CD 91 EQ DP s Qo Fo EOS D3 06 3E ED 3D ZO FD 2040 DATA DB 65E65 7F D3 Y 6 CD 8C EO ZOs EO 78 CDs B5 EO 10 z050 DATA D4 C93 CDs 735 EO CDs 6 5 EQ CDs 913 EO DB 045 CDs 7A EO 2060 DATA BE 2 0 B3 CD BCs EU Z0 I F0 185 ACI 3ES 90 D3 0735 3E 40 zZ070 DATA D3 6 C935 CD 7F3 04 115 005 045 CO3F 55 4D 7C EG O3 SF z080 DATA 3Cs 473F1302 C9234
22. I Q0 THEN FI DE DG DE 1230 DD DE DG DG DE DIFFERENCE 1z40 IF MODE AND 4 THEN DE I DE FR I DF AD I DZ 85 1750 I I 1 1260 DO DD KE 4 0264 2048 1265 IF V8 U THEN DOS DFS HEH 4 096 GOTO 1270 DAC A4 z1 Vg 1270 D4zDO3 INT DO3S 4096 4096 1280 D D4 1290 GOSUR 170 DAC 4 1300 DOS DESR HFH DPHZCDESR OFH KFH A 096 1310 D1 DPH INT GDPH 4096 4096 1320 D Di 1330 GOSUR 110 DAC 1 1340 PRINT 64 C3 USING L4 3VDs DES DD DAS DF DZ Dt 1350 C C 1 IF C 16 THEN CzUSRO CCO Cz15 PRINT Q64 C STRING 63332 5 1360 IF MODE AND 8 THEN LPRINT USING L4 5VD DEH DD DAs DFs DE D1 36z IF MODE AND 48 THEN 1364 ELSE 1370 1364 T PEEK A PEEK CA 120X x60 PEEKCA 2 Xx3600 1368 IF T TO THEN IF MODE AND 16 THEN LPRINT USING HSSHHEHEHHH LASTS VD DES 3 DD DAs DF DZ Di TOSTO TSSELSE PRINT S1sTSDEHRSDFH 5D2 TOSTO TG 1370 IF Id S THEN 1390 ELSE I INHKHEY 1380 NEXT VD 1390 END OF MEASUREMENT 1400 PRINT STRING 4327 MODE ZzMODE OR ZsUAzsIs IS z 1410 PRINT END OF MEASUREMENT 1412 PRINT INVERSE Y N Z sA 2 s INPUT A 1414 IF A Y THEN ENZST STzVD VS5 z VS GOTO 1180 1416 A z Y 420 PRINT VOLT ZERO Y S ND A 3 2 s INPUT A 1430 IF At Y THEN PRINT CHR 27 3STRING 305 25 3 DEzQ P 3 GOSUB 520 PRINT ELSE IF A S THEN Dz GOSUR 150 1435 IF MODE AND 4 THEN 1500 If there are n
23. N 3K SYSKES j Ear GUT E DNI IN eki ze o E n iet SC po 1 2 2 4 5 6 1 4 401512 9 1 SE ASEENA BEE REIT SCE RESE Y S SCRI CIO NC A S MOIS GE KESEREDPL CSS I VI IM n 10 xx x Internal Friction Measurement Program xx z CX xexdexexuritten bv Y Iua xxxdxxdx3xx3 3 30 4 INTFRICZ BASXd3 3 9 d X 4 590 INITIALIZE o0 OUT 515145 Frea Coaunter 5 70 QUT 55 128 DAC 3 5 4 B OUT 595131 DAC 1 2 ADC 2 90 QUT 635128 SYNTHESIZ2ER 100 OUT 50 48 GOTO 190 10 SEC RATIO 110 OUT 56 NOT D 152 ANDZ55 O0UT 58 NOT D AND 1520 16 OR INP GS82 AND15 2 D1 D RETU RN 120 DS D1 iRETURN 130 RETURN 140 DSzFNDZ GP RETURN 1590 OUT 5Zs5 NOT D 16 ANDZ55 0UT 54 NOT D AND 15 w16 OR NOT D4 AND 15 D3 D RETU RN 160 DS D3 RETURN 170 OUT S33NOT amp D 16 ANDZ55S 0UT 545 NOT D3 AND 152 16 OR NOT D AND 15 D4 D RETU RN 180 DS D4 RETURN 190 D O GOSUB110 GOSUBRB
24. RCI 18z0 IF Is THEN DD ELSE DD DE I 1 DE I 1830 DO DE KF 1840 D4zDOH8 INTIODOHR 4096 4076 1850 DFHZFREHCI 1860 DOSzDF4 HFd4 2048 1870 DizDOs4 INT GCDOR 409726 x4096 1880 LPRINT USING L4 3VD DEs DD D4s DE DE Di 1890 I I 1 IF I UA THEN VD EN 1900 NEXT VD 1910 RETURN 1930 WRITE DISK FILE 1940 LINEINPUT DISK FILE NAME sA 1950 LINEINPUT COMMENT sCM 1960 OPEN 0 is A 1970 PRINT 1 CM 1980 PRINT 1 ST EN VS UA 1990 FOR I TO UA zouo PRINT 1s DEHCGIOSFRHSCIOSAD OIO 5 z lg NEXT I a CLOSE z030 PRINT DISK WRITE END zU40 RETURN 0930 END 3000 LINEINPUT FILENAME s 4 A010 OPEN I 51534 3020 LINEINPUT 4515 A PRINT Af 4030 INPUT i STEN VS UVA PRINT ST EN VS UA 3040 FOR I 0 TO UA 3050 INPUT 1 DEH DFHSDZ PRINT DE DF DE A060 NEXT I 4070 CLOSE 10 35DEG iD Senee SE 430000 00 434000 00 439000 00 442000 00 446000 00 450000 00 1 0 s 11 9 12 5 13 4 14 4 ur 15 4 DCUM trat dur 17 32 18 28 21 1 22 1 23 0 24 0 22 0 11
25. V T T W W Z Z T R U 2 IF F THEN X J iY K GOTO 4580 K s Y J GOSUR 3500 IF J L THEN 4630 J J W R R V IF RIU THEN 4560 R R U K K Z GOTO 4560 IF F 1 THEN TzsL LzM M T RETURN A 128 Dz129 QUT A sQ QUT D495 0UT As 1 OUT Ds64 O0UT AsZ OUT D377 0UT As 3 0UT Ds4 QUT As4 0UT D 34 0UT As55 0UT Ds4 QUT A s6 0UT Ds 30 OUT As7 0UT Ds 32 QUT A BOUT Ds 3 OUT As9 OUT Ds 7 0UT A51 EQOUT DsO OUT As11 GUT D5 QUT A 12 0UT DsO OUT As13 0UT DiOUT As14 0UT DsQ OUT As515 0UT D FOR Az amp HB8O000 TO amp HFFFF POKE AsQ NEXT A RETURN D 13 GOSUB 6500 Dz8 GOSUBPB 6500 FOR L TO 73 FOR J TO 479 K 479 J z Lx7 8 X64 H amp 4HBODD EPEEK A F PEEK A 1 MzL 7 MzM INTIG1 8 8 IF M THEN D E GOTO 4080 FOR I 1 TO M EZE Z2 NEXT I FOR I 1 TO B M FzFX Z NEXT I D E OR F D D AND amp H7F OR amp HB80 GOSUB 6500 NEXT J NEXT L D 13 GOSUB 6500 GOTO 9999 REM OUT SUB xx IF INP amp HB6 AND1 1 THEN 6510 OUT amp H85 D OUT amp H87s amp HOC OUT amp H87 amp H D RETURN REM GRAPH PLOT x GOSUP 2500 H 0 zD EzD GOSUB 2500 H 1 zD Gz D 1 GOSUB 2500 H I D I I 1 IF DXE THEN E D GOGUB 75 H I D I I i IF DXG THEN G D IF O cASC O THEN LzI Z3 GOTO 7100 GoTO 7040 FOR I TO 479 4z1I 64 amp H8000 POKE APEEK A OR 1 IF INT I 10 10 I THEN POKE APEEK A OR amp HI1F NEXT I FOR Az amp HF7CO TO amp HF7FF STEP Z POKE As amp HFF POKE A T15 amp HFFENEXT A FOR Xz10 TO 510 STEP 1Q FOR Y 475 TO 4
26. mputer Center Mini Disk Printer GRAPHIC PROCESSER o fidI g it board O Analog 1 F board O o Anali u aitai tto i 1 board oAnalo Jii 1 I i z ACC DAConverter oAr lt e Cut x3 7 I Q MN iocari pregunam dU M ERE Ea 4 4 hoard2 oAnaluu Im o Analog t 1 CPU 73 a ROM gt 1 2 GJARE AH J LSI 8255A PEP ROM 2708 IK 2764 8K HL ROM MB7051 MB7052 EP ROM BASIC CPU ROM TTL IC ROM EP ROM EP ROM 5 5
27. o DATA 1440 A N PRINT X t Recorder OUT Y ND 5X 3sA 5 INPUT Af 14590 IF A z Y THEN GOSUB 1520 1460 PRINT PRINTER OUT Y ND 4 354 5 s INPUT A 1470 IF A Y THEN GOSUE 1760 1480 PRINT DISK WRITEGY N X 354 5 2 35 INPUT A 1490 IF A Y THEN GOSUB 1930 1500 Pzi10 CLOSE RETURN 1510 END 15z0 Recerder QUT 1330 INPUT TIME INTERVAL mS sU1 1540 INPUT DAC 4 X t Recorder I 9 z A 4U d Vd Vg z4 N N J 1550 IF J gt Q THEN KEd 548 FOR IzQ TO J KEHZHEHXIZ INEXT I ELSE KE 2 FOR I J TO Q KERZNEHR ZENEXT I 1560 INPUT DAC 1 X t Recorder I 9 Y 4U Freauencv zt N sNe sJ 1970 IF J gt THEN KF4z 548 FOR I TO J KFHZHFHXZ INEXT I ELSE KF 2 FOR IsJ TO NFHZHFR4 Z NEXT I 1580 I 0 1590 FOR VD ST TO EN STEP VS 1600 DAC 3 2 1610 GOSUB 30 1620 IF I0 THEN DD 0 ELSE DD DE I 1 DE I 1630 DOS zDDH HKEH ZUAG 1640 D4zDOH INT CDO4S 4095 4096 1650 DAC 4 1660 DzDA4 GOSUPR 170 1670 DO DEH I RF Z0 2 8 1680 DizDO4O4 INT DO4 4096 x40926 1690 DAC 1 1700 D D1 GOSUBR 110 1710 FOR WzQ TO Wi NEXT WAIT 1720 I I 1 PRINT USING F I5 IF I UA THEN VD EN 1730 NEXT VD 1740 PRINT PRINT X t OUT END 1750 RETURN 86 FA ATEH RF X 1760 PRINTER OUT 1770 LINEINPUT Comment 3CM 1780 LPRINT LPRINT ChM LPRINT L 3 1790 l0 1800 FOR VD ST TO EN STEP VS 1810 DESZDE
28. om cds prete t a 80 X Jim JP S 65 27 gt 4 IBM BASIC FORTRAN o7
Download Pdf Manuals
Related Search