RCV.PAL
FILE INFORMATION
FILENAME(S): RCV.PAL
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:15:11
APPEARS ON: 1 disk(s)
FILE HASH
f92f02b138545a48660c7a3893d420767d334446807881ff582edb53c64d5137
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | RCV.PAL | PRG | DuncanTwain | 10 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 E8 03 9F 31 2C 38 2C 31 2C 22 30 3A |.......1,8,1,"0:| 00000010: 52 43 56 2E 4F 42 4A 00 21 08 F2 03 9E 20 37 30 |RCV.OBJ.!.... 70| 00000020: 30 00 2D 08 FC 03 2E 4F 50 54 20 4F 31 00 4E 08 |0.-....OPT O1.N.| 00000030: 06 04 3B 20 43 4F 50 59 52 49 47 48 54 20 31 39 |..; COPYRIGHT 19| 00000040: 38 36 20 4A 41 43 4B 20 42 45 44 41 52 44 00 54 |86 JACK BEDARD.T| 00000050: 08 10 04 3B 00 75 08 1A 04 3B 20 52 45 43 45 49 |...;.u...; RECEI| 00000060: 56 45 20 41 53 53 45 4D 42 4C 45 44 20 43 4F 44 |VE ASSEMBLED COD| 00000070: 45 20 56 49 41 00 8E 08 24 04 3B 20 54 48 45 20 |E VIA...$.; THE | 00000080: 53 45 52 49 41 4C 20 83 20 50 4F 52 54 2E 00 94 |SERIAL . PORT...| 00000090: 08 2E 04 3B 00 B2 08 38 04 3B 20 52 45 43 45 49 |...;...8.; RECEI| 000000A0: 56 45 53 20 41 44 44 52 45 53 53 20 A4 20 53 A4 |VES ADDRESS . S.| 000000B0: 52 45 00 CE 08 42 04 3B 20 28 4C 4F 57 AD 48 49 |RE...B.; (LOW.HI| 000000C0: 47 48 29 20 AF 20 54 48 45 20 42 59 54 45 00 E2 |GH) . THE BYTE..| 000000D0: 08 4C 04 3B 20 A4 20 53 A4 52 45 20 54 48 45 52 |.L.; . S.RE THER| 000000E0: 45 2E 00 E8 08 56 04 3B 00 FD 08 60 04 50 54 52 |E....V.;...`.PTR| 000000F0: 20 20 20 20 20 20 20 20 B2 20 24 46 44 00 10 09 | . $FD...| 00000100: 6A 04 55 31 85 20 20 20 20 B2 20 24 44 43 30 43 |j.U1. . $DC0C| 00000110: 00 27 09 74 04 55 31 49 43 52 20 20 20 20 20 20 |.'.t.U1ICR | 00000120: B2 20 24 44 43 30 44 00 3E 09 7E 04 55 31 43 52 |. $DC0D.>.~.U1CR| 00000130: 41 20 20 20 20 20 20 B2 20 24 44 43 30 45 00 55 |A . $DC0E.U| 00000140: 09 88 04 55 50 44 41 54 45 39 31 20 20 20 B2 20 |...UPDATE91 . | 00000150: 24 46 36 42 43 00 67 09 92 04 90 20 20 20 20 20 |$F6BC.g.... | 00000160: 20 20 B2 20 24 39 31 00 6D 09 9C 04 3B 00 88 09 | . $91.m...;...| 00000170: A6 04 4F 55 54 50 55 54 20 20 20 20 20 B2 20 25 |..OUTPUT . %| 00000180: 30 31 30 30 30 30 30 30 00 A2 09 B0 04 53 48 8B |01000000.....SH.| 00000190: 54 52 45 47 20 20 20 B2 20 25 30 30 30 30 31 30 |TREG . %000010| 000001A0: 30 30 00 BD 09 BA 04 44 49 53 41 42 4C 41 4C 4C |00.....DISABLALL| 000001B0: 20 20 B2 20 25 30 31 31 31 31 31 31 31 00 D8 09 | . %01111111...| 000001C0: C4 04 45 4E 41 42 4C 45 20 20 20 20 20 B2 20 25 |..ENABLE . %| 000001D0: 31 30 30 30 30 30 30 30 00 F3 09 CE 04 54 49 4D |10000000.....TIM| 000001E0: 45 52 41 20 20 20 20 20 B2 20 25 30 30 30 30 30 |ERA . %00000| 000001F0: 30 30 31 00 F9 09 D8 04 3B 00 1C 0A E2 04 AC B2 |001.....;.......| 00000200: 20 38 32 38 20 3B CB 45 53 20 49 4E 20 43 41 53 | 828 ;.ES IN CAS| 00000210: 53 45 54 54 45 20 42 55 46 46 45 52 00 22 0A EC |SETTE BUFFER."..| 00000220: 04 3B 00 28 0A ED 04 3B 00 48 0A F6 04 54 53 58 |.;.(...;.H...TSX| 00000230: 20 20 20 20 20 20 20 20 20 20 3B 94 20 53 54 41 | ;. STA| 00000240: 43 4B 20 50 54 52 20 81 00 69 0A 00 05 53 54 58 |CK PTR ..i...STX| 00000250: 20 94 53 50 20 20 20 3B 20 43 4C 45 41 4E 20 45 | .SP ; CLEAN E| 00000260: 58 49 54 20 4C 41 54 45 52 00 6F 0A 0A 05 3B 00 |XIT LATER.o...;.| 00000270: 82 0A 14 05 4C 44 41 20 23 44 49 53 41 42 4C 41 |....LDA #DISABLA| 00000280: 4C 4C 00 A5 0A 1E 05 53 54 41 20 55 31 49 43 52 |LL.....STA U1ICR| 00000290: 20 20 20 20 3B 44 49 53 41 42 4C 45 20 B5 45 52 | ;DISABLE .ER| 000002A0: 52 55 50 54 53 00 AB 0A 28 05 3B 00 D0 0A 32 05 |RUPTS...(.;...2.| 000002B0: 4C 44 41 20 55 31 43 52 41 20 20 20 20 3B 43 4C |LDA U1CRA ;CL| 000002C0: 45 41 52 20 42 49 54 20 36 20 4F 46 20 43 52 41 |EAR BIT 6 OF CRA| 000002D0: 00 E2 0A 3C 05 AF 20 23 24 46 46 AB 4F 55 54 50 |...<.. #$FF.OUTP| 000002E0: 55 54 00 04 0B 46 05 3B 20 20 20 20 20 20 20 20 |UT...F.; | 000002F0: 20 20 20 20 3B 53 45 52 49 41 4C 20 50 B0 54 20 | ;SERIAL P.T | 00000300: 85 20 41 54 00 2B 0B 50 05 53 54 41 20 55 31 43 |. AT.+.P.STA U1C| 00000310: 52 41 20 20 20 20 3B 20 45 58 54 45 52 4E 41 4C |RA ; EXTERNAL| 00000320: 20 43 4C 4F 43 4B 20 52 41 54 45 00 31 0B 5A 05 | CLOCK RATE.1.Z.| 00000330: 3B 00 41 0B 64 05 4D 41 49 4E 4C 4F 4F 50 20 B2 |;.A.d.MAINLOOP .| 00000340: AC 00 5F 0B 6E 05 4A 53 52 20 A1 53 44 50 20 20 |.._.n.JSR .SDP | 00000350: 20 3B A1 20 83 20 42 59 54 45 20 41 44 44 52 00 | ;. . BYTE ADDR.| 00000360: 6B 0B 78 05 53 54 41 20 50 54 52 00 78 0B 82 05 |k.x.STA PTR.x...| 00000370: 4A 53 52 20 A1 53 44 50 00 86 0B 8C 05 53 54 41 |JSR .SDP.....STA| 00000380: 20 50 54 52 AA 31 00 9F 0B 96 05 4A 53 52 20 A1 | PTR.1.....JSR .| 00000390: 53 44 50 20 20 20 3B A1 20 83 20 42 59 54 45 00 |SDP ;. . BYTE.| 000003A0: A5 0B A0 05 3B 00 B0 0B AA 05 4C 44 59 20 23 30 |....;.....LDY #0| 000003B0: 00 CE 0B B4 05 53 54 41 20 28 50 54 52 29 2C 59 |.....STA (PTR),Y| 000003C0: 20 20 3B 53 A4 52 45 20 83 20 42 59 54 45 00 EB | ;S.RE . BYTE..| 000003D0: 0B BE 05 42 45 51 20 4D 41 49 4E 4C 4F 4F 50 20 |...BEQ MAINLOOP | 000003E0: 3B 4C 4F 4F 50 20 81 45 56 45 52 00 F1 0B C8 05 |;LOOP .EVER.....| 000003F0: 3B 00 F7 0B C9 05 3B 00 03 0C D2 05 45 58 49 54 |;.....;.....EXIT| 00000400: 20 B2 AC 00 1D 0C DC 05 3B 20 52 45 AB 45 4E 41 | .......; RE.ENA| 00000410: 42 4C 45 20 B5 45 52 52 55 50 54 53 2C 00 32 0C |BLE .ERRUPTS,.2.| 00000420: E6 05 3B 20 8C 20 53 54 41 43 4B 20 AF 20 51 55 |..; . STACK . QU| 00000430: 49 54 00 49 0C F0 05 4C 44 41 20 23 45 4E 41 42 |IT.I...LDA #ENAB| 00000440: 4C 45 AA 54 49 4D 45 52 41 00 57 0C FA 05 53 54 |LE.TIMERA.W...ST| 00000450: 41 20 55 31 49 43 52 00 63 0C 04 06 4C 44 58 20 |A U1ICR.c...LDX | 00000460: 94 53 50 00 6B 0C 0E 06 54 58 53 00 73 0C 18 06 |.SP.k...TXS.s...| 00000470: 52 54 53 00 79 0C 22 06 3B 00 7F 0C 23 06 3B 00 |RTS.y.".;...#.;.| 00000480: 8B 0C 2C 06 A1 53 44 50 20 B2 AC 00 AB 0C 36 06 |..,..SDP .....6.| 00000490: 3B 20 A1 20 42 59 54 45 20 46 52 4F 4D 20 53 45 |; . BYTE FROM SE| 000004A0: 52 49 41 4C 20 83 20 50 4F 52 54 00 C9 0C 40 06 |RIAL . PORT...@.| 000004B0: 4A 53 52 20 55 50 44 41 54 45 39 31 20 3B 43 48 |JSR UPDATE91 ;CH| 000004C0: 45 43 4B 20 90 20 4B 45 59 00 D3 0C 4A 06 4C 44 |ECK . KEY...J.LD| 000004D0: 41 20 90 00 E0 0C 54 06 42 50 4C 20 45 58 49 54 |A ....T.BPL EXIT| 000004E0: 00 E6 0C 5E 06 3B 00 03 0D 68 06 4C 44 41 20 55 |...^.;...h.LDA U| 000004F0: 31 49 43 52 20 20 20 20 3B 92 20 81 20 85 20 42 |1ICR ;. . . B| 00000500: 59 54 45 00 12 0D 72 06 AF 20 23 53 48 8B 54 52 |YTE...r.. #SH.TR| 00000510: 45 47 00 36 0D 7C 06 42 45 51 20 A1 53 44 50 20 |EG.6.|.BEQ .SDP | 00000520: 20 20 3B 4E 4F 20 42 59 54 45 3B 20 4C 4F 4F 50 | ;NO BYTE; LOOP| 00000530: 20 41 47 41 49 4E 00 4F 0D 86 06 4C 44 41 20 55 | AGAIN.O...LDA U| 00000540: 31 85 20 20 3B 87 20 54 48 45 20 42 59 54 45 00 |1. ;. THE BYTE.| 00000550: 57 0D 90 06 52 54 53 00 5D 0D 9A 06 3B 00 6B 0D |W...RTS.]...;.k.| 00000560: A4 06 94 53 50 20 AC B2 AC AA 31 00 00 00 |...SP ....1... |
.......1,8,1,"0:RCV.OBJ.!.... 700.-....O
PT O1.N...; COPYRIGHT 1986 JACK BEDARD.T
...;.U...; RECEIVE ASSEMBLED CODE VIA...
$.; THE SERIAL . PORT......;...8.; RECEI
VES ADDRESS . S.RE.N.B.; (LOW.HIGH) . TH
E BYTE...L.; . S.RE THERE....V.;...`.PTR
. $FD...J.U1. . $DC0C.'.T.U1I
CR . $DC0D.>.~.U1CRA . $DC0E.U
...UPDATE91 . $F6BC.G.... . $91.
M...;.....OUTPUT . %01000000.....SH.
TREG . %00001000.....DISABLALL . %011
11111.X.D.ENABLE . %10000000...N.TIM
ERA . %00000001...X.;....... 828 ;KE
S IN CASSETTE BUFFER."...;.(...;.H...TSX
;. STACK PTR ..I...STX .SP ;
CLEAN EXIT LATER.O...;.....LDA #DISABLA
LL.....STA U1ICR ;DISABLE .ERRUPTS...
(.;.P.2.LDA U1CRA ;CLEAR BIT 6 OF CRA
...<.. #$FF.OUTPUT...F.; ;SER
IAL P.T . AT.+.P.STA U1CRA ; EXTERNAL
CLOCK RATE.1.Z.;.A.D.MAINLOOP ..._.N.JS
R .SDP ;. . BYTE ADDR.K.X.STA PTR.X...
JSR .SDP.....STA PTR.1.....JSR .SDP ;.
. BYTE... .;.....LDY #0.N...STA (PTR),Y
;S.RE . BYTE.....BEQ MAINLOOP ;LOOP .E
VER...H.;...I.;...R.EXIT .......; RE.ENA
BLE .ERRUPTS,.2...; . STACK . QUIT.I...L
DA #ENABLE.TIMERA.W...STA U1ICR.C...LDX
.SP.K...TXS.S...RTS.Y.".;..#.;...,..SDP
.....6.; . BYTE FROM SERIAL . PORT.I.@.
JSR UPDATE91 ;CHECK . KEY.S.J.LDA ....T.
BPL EXIT...^.;...H.LDA U1ICR ;. . . B
YTE...R.. #SH.TREG.6.|.BEQ .SDP ;NO BY
TE; LOOP AGAIN.O...LDA U1. ;. THE BYTE.
W...RTS.]...;.K....SP ....1...
> CLICK IMAGE PREVIEW FOR FULL MODAL