00000000: 01 08 40 08 0A 00 8F 20 54 48 49 53 20 50 52 47 |..@.... THIS PRG|
00000010: 20 50 52 47 20 53 45 4E 44 53 20 41 4E 44 20 52 | PRG SENDS AND R|
00000020: 45 43 45 49 56 45 53 20 44 41 54 41 20 54 4F 2F |ECEIVES DATA TO/|
00000030: 46 52 4F 4D 20 41 53 49 4C 45 4E 54 20 37 30 30 |FROM ASILENT 700|
00000040: 00 66 08 14 00 8F 20 54 45 52 4D 49 4E 41 4C 20 |.f.... TERMINAL |
00000050: 4D 4F 44 49 46 49 45 44 20 46 4F 52 20 50 45 54 |MODIFIED FOR PET|
00000060: 2D 41 53 43 49 49 00 A2 08 1E 00 8F 20 54 49 20 |-ASCII...... TI |
00000070: 53 49 4C 45 4E 54 20 37 30 30 20 53 45 54 2D 55 |SILENT 700 SET-U|
00000080: 50 3A 20 33 30 30 20 42 50 53 2C 37 20 42 49 54 |P: 300 BPS,7 BIT|
00000090: 20 41 53 43 49 49 2C 4D 41 52 4B 20 50 41 52 49 | ASCII,MARK PARI|
000000A0: 54 59 00 B4 08 28 00 8F 20 46 55 4C 4C 20 44 55 |TY...(.. FULL DU|
000000B0: 50 4C 45 58 00 E9 08 32 00 8F 20 53 41 4D 45 20 |PLEX...2.. SAME |
000000C0: 53 45 54 2D 55 50 20 41 54 20 43 4F 4D 50 55 54 |SET-UP AT COMPUT|
000000D0: 45 52 20 55 53 49 4E 47 20 33 2D 4C 49 4E 45 20 |ER USING 3-LINE |
000000E0: 49 4E 54 45 52 46 41 43 45 00 1A 09 64 00 9F 20 |INTERFACE...d.. |
000000F0: 32 2C 32 2C 33 2C C7 28 36 AA 33 32 29 AA C7 28 |2,2,3,.(6.32)..(|
00000100: 33 32 AA 31 32 38 29 3A 8F 20 4F 50 45 4E 20 54 |32.128):. OPEN T|
00000110: 48 45 20 43 48 41 4E 4E 45 4C 00 4E 09 6E 00 A1 |HE CHANNEL.N.n..|
00000120: 23 32 2C 41 24 3A 8F 20 54 55 45 4E 20 4F 4E 20 |#2,A$:. TUEN ON |
00000130: 52 45 43 45 49 56 45 52 20 43 48 41 4E 4E 45 4C |RECEIVER CHANNEL|
00000140: 20 28 54 4F 53 53 20 41 20 4E 55 4C 4C 29 00 5E | (TOSS A NULL).^|
00000150: 09 C8 00 8F 20 4D 41 49 4E 20 4C 4F 4F 50 00 84 |.... MAIN LOOP..|
00000160: 09 D2 00 A1 20 42 24 3A 8F 20 47 45 54 20 46 52 |.... B$:. GET FR|
00000170: 4F 4D 20 43 4F 4D 50 55 54 45 52 20 4B 45 59 42 |OM COMPUTER KEYB|
00000180: 4F 41 52 44 00 BF 09 DC 00 8B 20 42 24 B3 B1 22 |OARD...... B$.."|
00000190: 22 20 A7 20 98 32 2C 42 24 3B 3A 8F 20 49 46 20 |" . .2,B$;:. IF |
000001A0: 41 20 4B 45 59 20 50 52 45 53 53 45 44 2C 20 53 |A KEY PRESSED, S|
000001B0: 45 4E 44 20 54 4F 20 54 45 52 4D 49 4E 41 4C 00 |END TO TERMINAL.|
000001C0: E8 09 E6 00 A1 23 32 2C 43 24 3A 8F 20 47 45 54 |.....#2,C$:. GET|
000001D0: 20 41 20 4B 45 59 20 46 52 4F 4D 20 54 48 45 20 | A KEY FROM THE |
000001E0: 54 45 52 4D 49 41 4E 4C 00 14 0A F0 00 99 20 42 |TERMIANL...... B|
000001F0: 24 3B 43 24 3B 3A 8F 20 50 52 49 4E 54 20 41 4C |$;C$;:. PRINT AL|
00000200: 4C 20 49 4E 50 55 54 53 20 54 4F 20 20 20 53 43 |L INPUTS TO SC|
00000210: 52 45 45 4E 00 59 0A FA 00 53 52 B2 53 54 3A 8B |REEN.Y...SR.ST:.|
00000220: 20 53 52 B2 30 20 B0 20 53 52 B2 38 20 A7 20 32 | SR.0 . SR.8 . 2|
00000230: 30 30 3A 8F 20 20 43 48 45 43 4B 20 53 54 41 54 |00:. CHECK STAT|
00000240: 55 53 2C 20 49 46 20 47 4F 4F 44 20 54 48 45 4E |US, IF GOOD THEN|
00000250: 20 43 4F 4E 54 49 4E 55 45 00 6F 0A 2C 01 8F 20 | CONTINUE.o.,.. |
00000260: 45 52 52 4F 52 20 52 45 50 4F 52 54 49 4E 47 00 |ERROR REPORTING.|
00000270: 7F 0A 36 01 99 22 45 52 52 4F 52 3A 20 22 3B 00 |..6.."ERROR: ";.|
00000280: 99 0A 40 01 8B 20 53 52 20 AF 20 31 20 A7 20 99 |..@.. SR . 1 . .|
00000290: 20 22 50 41 52 49 54 59 22 00 B2 0A 4A 01 8B 20 | "PARITY"...J.. |
000002A0: 53 52 20 AF 20 32 20 A7 20 99 20 22 46 52 41 4D |SR . 2 . . "FRAM|
000002B0: 45 22 00 DA 0A 54 01 8B 20 53 52 20 AF 20 34 20 |E"...T.. SR . 4 |
000002C0: A7 20 99 20 22 52 45 43 45 49 56 45 52 20 42 55 |. . "RECEIVER BU|
000002D0: 46 46 45 52 20 46 55 4C 4C 22 00 F5 0A 5E 01 8B |FFER FULL"...^..|
000002E0: 20 53 52 20 AF 20 31 32 38 20 A7 20 99 20 22 42 | SR . 128 . . "B|
000002F0: 52 45 41 4B 22 00 31 0B 68 01 8B 20 28 C2 28 36 |REAK".1.h.. (.(6|
00000300: 37 33 29 20 AF 20 31 29 20 A7 20 33 36 30 3A 8F |73) . 1) . 360:.|
00000310: 20 57 41 49 54 20 55 4E 54 49 4C 20 41 4C 4C 20 | WAIT UNTIL ALL |
00000320: 43 48 41 52 53 20 54 52 41 4E 53 4D 49 54 54 45 |CHARS TRANSMITTE|
00000330: 44 00 3B 0B 72 01 A0 20 32 3A 80 00 00 00 |D.;.r.. 2:.... |
..@.... THIS PRG PRG SENDS AND RECEIVES
DATA TO/FROM ASILENT 700.F.... TERMINAL
MODIFIED FOR PET-ASCII...... TI SILENT 7
00 SET-UP: 300 BPS,7 BIT ASCII,MARK PARI
TY...(.. FULL DUPLEX...2.. SAME SET-UP A
T COMPUTER USING 3-LINE INTERFACE...D..
2,2,3,G(6.32).G(32.128):. OPEN THE CHANN
EL.N.N..#2,A$:. TUEN ON RECEIVER CHANNEL
(TOSS A NULL).^.H.. MAIN LOOP...R.. B$:
. GET FROM COMPUTER KEYBOARD...... B$.."
" . .2,B$;:. IF A KEY PRESSED, SEND TO T
ERMINAL......#2,C$:. GET A KEY FROM THE
TERMIANL...... B$;C$;:. PRINT ALL INPUTS
TO SCREEN.Y...SR.ST:. SR.0 . SR.8 . 2
00:. CHECK STATUS, IF GOOD THEN CONTINU
E.O.,.. ERROR REPORTING..6.."ERROR: ";.
..@.. SR . 1 . . "PARITY"...J.. SR . 2 .
. "FRAME".Z.T.. SR . 4 . . "RECEIVER BU
FFER FULL"...^.. SR . 128 . . "BREAK".1.
H.. (B(673) . 1) . 360:. WAIT UNTIL ALL
CHARS TRANSMITTED.;.R. 2:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL