PRINTER REDIRECT
FILE INFORMATION
FILENAME(S): PRINTER REDIRECT
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-02 02:14:02
APPEARS ON: 1 disk(s)
FILE HASH
d3c5d1fa06804e0195dcb6093896dfa9f35fe2d072fdd2fddc6e7bf42a8f4784
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MODEMPROGS C128 | PRINTER REDIRECT | PRG | The BAM Archive | 34 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 52 53 2D 32 33 32 20 50 |..%.... RS-232 P| 00000010: 52 49 4E 54 45 52 20 44 52 49 56 45 52 20 46 4F |RINTER DRIVER FO| 00000020: 52 20 43 36 34 00 4B 08 14 00 8F 20 52 45 44 49 |R C64.K.... REDI| 00000030: 52 45 43 54 53 20 44 41 54 41 20 46 4F 52 20 44 |RECTS DATA FOR D| 00000040: 45 56 49 43 45 20 23 34 20 54 4F 00 69 08 1E 00 |EVICE #4 TO.i...| 00000050: 8F 20 52 53 2D 32 33 32 20 50 4F 52 54 20 28 44 |. RS-232 PORT (D| 00000060: 45 56 49 43 45 20 23 32 29 00 89 08 28 00 8F 20 |EVICE #2)...(.. | 00000070: 57 52 49 54 54 45 4E 20 42 59 20 4A 4F 53 45 50 |WRITTEN BY JOSEP| 00000080: 48 20 42 55 43 4B 4C 45 59 00 A8 08 32 00 41 44 |H BUCKLEY...2.AD| 00000090: B2 34 39 31 35 32 3A 8F 20 4D 4C 20 4C 4F 41 44 |.49152:. ML LOAD| 000000A0: 20 41 44 44 52 45 53 53 00 CE 08 3C 00 81 20 54 | ADDRESS...<.. T| 000000B0: B2 30 20 A4 20 39 34 3A 87 20 58 3A 5A 5A B2 5A |.0 . 94:. X:ZZ.Z| 000000C0: 5A AA 58 3A 97 20 41 44 AA 54 2C 58 3A 82 00 00 |Z.X:. AD.T,X:...| 000000D0: 09 46 00 8B 20 5A 5A B3 B1 31 31 38 33 32 20 A7 |.F.. ZZ..11832 .| 000000E0: 20 99 22 4D 49 53 54 41 4B 45 20 49 4E 20 44 41 | ."MISTAKE IN DA| 000000F0: 54 41 20 53 54 41 54 45 4D 45 4E 54 53 22 3A 90 |TA STATEMENTS":.| 00000100: 00 1F 09 50 00 8F 20 53 45 54 20 4A 4D 50 20 41 |...P.. SET JMP A| 00000110: 44 44 52 45 53 53 20 46 4F 52 20 4F 50 45 4E 00 |DDRESS FOR OPEN.| 00000120: 37 09 5A 00 4F 4C B2 C2 28 37 39 34 29 3A 4F 48 |7.Z.OL..(794):OH| 00000130: B2 C2 28 37 39 35 29 00 51 09 64 00 97 20 41 44 |..(795).Q.d.. AD| 00000140: AA 32 34 2C 4F 4C 3A 97 20 41 44 AA 32 35 2C 4F |.24,OL:. AD.25,O| 00000150: 48 00 7D 09 6E 00 41 48 B2 B5 28 41 44 AD 32 35 |H.}.n.AH..(AD.25| 00000160: 36 29 3A 97 20 37 39 34 2C 41 44 AB 28 32 35 36 |6):. 794,AD.(256| 00000170: AC 41 48 29 3A 97 20 37 39 35 2C 41 48 00 9C 09 |.AH):. 795,AH...| 00000180: 78 00 8F 20 53 45 54 20 52 53 2D 32 33 32 20 4F |x.. SET RS-232 O| 00000190: 55 54 50 55 54 20 42 55 46 46 45 52 00 C4 09 82 |UTPUT BUFFER....| 000001A0: 00 42 48 B2 B5 28 28 41 44 AA 39 36 29 AD 32 35 |.BH..((AD.96).25| 000001B0: 36 29 3A 42 4C B2 41 44 AA 39 36 AB 28 32 35 36 |6):BL.AD.96.(256| 000001C0: AC 42 48 29 00 DE 09 8C 00 97 20 41 44 AA 31 36 |.BH)...... AD.16| 000001D0: 2C 42 4C 3A 97 20 41 44 AA 31 38 2C 42 48 00 1C |,BL:. AD.18,BH..| 000001E0: 0A 96 00 8F 20 53 45 54 20 42 41 55 44 20 52 41 |.... SET BAUD RA| 000001F0: 54 45 20 53 41 4D 45 20 41 53 20 50 52 49 4E 54 |TE SAME AS PRINT| 00000200: 45 52 20 28 36 3D 33 30 30 2F 37 3D 36 30 30 2F |ER (6=300/7=600/| 00000210: 38 3D 31 32 30 30 20 42 41 55 44 29 00 2A 0A A0 |8=1200 BAUD).*..| 00000220: 00 97 20 41 44 AA 31 31 2C 37 00 46 0A AA 00 8F |.. AD.11,7.F....| 00000230: 20 53 45 54 20 54 45 4D 50 4F 52 41 52 59 20 53 | SET TEMPORARY S| 00000240: 54 4F 52 41 47 45 00 6E 0A B4 00 53 48 B2 B5 28 |TORAGE.n...SH..(| 00000250: 28 41 44 AA 39 35 29 AD 32 35 36 29 3A 53 4C B2 |(AD.95).256):SL.| 00000260: 41 44 AA 39 35 AB 28 53 48 AC 32 35 36 29 00 9E |AD.95.(SH.256)..| 00000270: 0A BE 00 97 20 41 44 AA 32 39 2C 53 4C 3A 97 20 |.... AD.29,SL:. | 00000280: 41 44 AA 33 30 2C 53 48 3A 97 20 41 44 AA 33 38 |AD.30,SH:. AD.38| 00000290: 2C 53 4C 3A 97 20 41 44 AA 33 39 2C 53 48 00 CE |,SL:. AD.39,SH..| 000002A0: 0A C8 00 97 20 41 44 AA 38 37 2C 53 4C 3A 97 20 |.... AD.87,SL:. | 000002B0: 41 44 AA 38 38 2C 53 48 3A 97 20 41 44 AA 39 30 |AD.88,SH:. AD.90| 000002C0: 2C 53 4C 3A 97 20 41 44 AA 39 31 2C 53 48 00 F8 |,SL:. AD.91,SH..| 000002D0: 0A D2 00 8F 20 41 44 44 20 4C 49 4E 45 46 45 45 |.... ADD LINEFEE| 000002E0: 44 20 41 46 54 45 52 20 43 52 20 28 31 30 20 59 |D AFTER CR (10 Y| 000002F0: 45 53 2F 30 20 4E 4F 29 00 07 0B DC 00 97 20 41 |ES/0 NO)...... A| 00000300: 44 AA 34 35 2C 31 30 00 36 0B E6 00 8F 20 53 45 |D.45,10.6.... SE| 00000310: 54 20 41 53 43 49 49 20 43 4F 4E 56 45 52 53 49 |T ASCII CONVERSI| 00000320: 4F 4E 20 46 4C 41 47 20 28 35 36 20 59 45 53 2F |ON FLAG (56 YES/| 00000330: 32 34 20 4E 4F 29 00 45 0B F0 00 97 20 41 44 AA |24 NO).E.... AD.| 00000340: 35 31 2C 35 36 00 65 0B FA 00 8F 20 53 45 54 20 |51,56.e.... SET | 00000350: 4A 4D 50 20 41 44 44 52 45 53 53 20 46 4F 52 20 |JMP ADDRESS FOR | 00000360: 50 52 49 4E 54 00 7D 0B 04 01 50 4C B2 C2 28 38 |PRINT.}...PL..(8| 00000370: 30 36 29 3A 50 48 B2 C2 28 38 30 37 29 00 AD 0B |06):PH..(807)...| 00000380: 0E 01 97 20 41 44 AA 34 37 2C 50 4C 3A 97 20 41 |... AD.47,PL:. A| 00000390: 44 AA 34 38 2C 50 48 3A 97 20 41 44 AA 39 33 2C |D.48,PH:. AD.93,| 000003A0: 50 4C 3A 97 20 41 44 AA 39 34 2C 50 48 00 D5 0B |PL:. AD.94,PH...| 000003B0: 18 01 50 48 B2 B5 28 28 41 44 AA 32 38 29 AD 32 |..PH..((AD.28).2| 000003C0: 35 36 29 3A 50 4C B2 41 44 AA 32 38 AB 28 32 35 |56):PL.AD.28.(25| 000003D0: 36 AC 50 48 29 00 EB 0B 22 01 97 20 38 30 36 2C |6.PH)...".. 806,| 000003E0: 50 4C 3A 97 20 38 30 37 2C 50 48 00 29 0C 2C 01 |PL:. 807,PH.).,.| 000003F0: 83 20 31 36 35 2C 31 38 36 2C 32 30 31 2C 30 30 |. 165,186,201,00| 00000400: 34 2C 32 30 38 2C 30 31 37 2C 31 36 39 2C 30 30 |4,208,017,169,00| 00000410: 32 2C 31 33 33 2C 31 38 36 2C 31 36 39 2C 30 30 |2,133,186,169,00| 00000420: 37 2C 31 34 31 2C 31 34 37 00 67 0C 36 01 83 20 |7,141,147.g.6.. | 00000430: 30 30 32 2C 31 36 39 2C 30 39 36 2C 31 36 32 2C |002,169,096,162,| 00000440: 31 39 32 2C 31 33 33 2C 32 34 39 2C 31 33 34 2C |192,133,249,134,| 00000450: 32 35 30 2C 30 33 32 2C 30 37 34 2C 32 34 33 2C |250,032,074,243,| 00000460: 30 32 34 2C 30 39 36 00 A5 0C 40 01 83 20 31 34 |024,096...@.. 14| 00000470: 31 2C 30 39 35 2C 31 39 32 2C 31 36 35 2C 31 35 |1,095,192,165,15| 00000480: 34 2C 32 30 31 2C 30 30 32 2C 32 30 38 2C 30 35 |4,201,002,208,05| 00000490: 32 2C 31 37 33 2C 30 39 35 2C 31 39 32 2C 32 30 |2,173,095,192,20| 000004A0: 31 2C 30 31 33 00 E3 0C 4A 01 83 20 32 30 38 2C |1,013...J.. 208,| 000004B0: 30 30 37 2C 31 36 39 2C 30 31 30 2C 30 33 32 2C |007,169,010,032,| 000004C0: 32 30 32 2C 32 34 31 2C 31 36 39 2C 30 31 33 2C |202,241,169,013,| 000004D0: 30 35 36 2C 31 34 34 2C 30 33 32 2C 32 30 31 2C |056,144,032,201,| 000004E0: 30 36 35 00 21 0D 54 01 83 20 31 34 34 2C 30 30 |065.!.T.. 144,00| 000004F0: 39 2C 32 30 31 2C 30 39 31 2C 31 37 36 2C 30 30 |9,201,091,176,00| 00000500: 35 2C 30 32 34 2C 31 30 35 2C 30 33 32 2C 32 30 |5,024,105,032,20| 00000510: 38 2C 30 31 39 2C 32 30 31 2C 31 39 33 2C 31 34 |8,019,201,193,14| 00000520: 34 00 5F 0D 5E 01 83 20 30 30 39 2C 32 30 31 2C |4._.^.. 009,201,| 00000530: 32 31 39 2C 31 37 36 2C 30 30 35 2C 30 35 36 2C |219,176,005,056,| 00000540: 32 33 33 2C 31 32 38 2C 32 30 38 2C 30 30 36 2C |233,128,208,006,| 00000550: 32 30 31 2C 30 32 30 2C 32 30 38 2C 30 30 32 00 |201,020,208,002.| 00000560: 91 0D 68 01 83 20 31 36 39 2C 30 30 38 2C 31 34 |..h.. 169,008,14| 00000570: 31 2C 30 39 35 2C 31 39 32 2C 31 37 33 2C 30 39 |1,095,192,173,09| 00000580: 35 2C 31 39 32 2C 30 37 36 2C 32 30 32 2C 32 34 |5,192,076,202,24| 00000590: 31 00 00 00 |1... |
..%.... RS-232 PRINTER DRIVER FOR C64.K. ... REDIRECTS DATA FOR DEVICE #4 TO.I... . RS-232 PORT (DEVICE #2)...(.. WRITTEN BY JOSEPH BUCKLEY...2.AD.49152:. ML LOAD ADDRESS.N.<.. T.0 . 94:. X:ZZ.ZZ.X:. AD .T,X:....F.. ZZ..11832 . ."MISTAKE IN DA TA STATEMENTS":....P.. SET JMP ADDRESS F OR OPEN.7.Z.OL.B(794):OH.B(795).Q.D.. AD .24,OL:. AD.25,OH.}.N.AH..(AD.256):. 794 ,AD.(256.AH):. 795,AH...X.. SET RS-232 O UTPUT BUFFER.D...BH..((AD.96).256):BL.AD .96.(256.BH)...... AD.16,BL:. AD.18,BH.. .... SET BAUD RATE SAME AS PRINTER (6=30 0/7=600/8=1200 BAUD).*. .. AD.11,7.F.... SET TEMPORARY STORAGE.N...SH..((AD.95). 256):SL.AD.95.(SH.256)...... AD.29,SL:. AD.30,SH:. AD.38,SL:. AD.39,SH.N.H.. AD. 87,SL:. AD.88,SH:. AD.90,SL:. AD.91,SH.. .R.. ADD LINEFEED AFTER CR (10 YES/0 NO) ...... AD.45,10.6.... SET ASCII CONVERSI ON FLAG (56 YES/24 NO).E.... AD.51,56.E. ... SET JMP ADDRESS FOR PRINT.}...PL.B(8 06):PH.B(807)...... AD.47,PL:. AD.48,PH: . AD.93,PL:. AD.94,PH.U...PH..((AD.28).2 56):PL.AD.28.(256.PH)...".. 806,PL:. 807 ,PH.).,.. 165,186,201,004,208,017,169,00 2,133,186,169,007,141,147.G.6.. 002,169, 096,162,192,133,249,134,250,032,074,243, 024,096...@.. 141,095,192,165,154,201,00 2,208,052,173,095,192,201,013...J.. 208, 007,169,010,032,202,241,169,013,056,144, 032,201,065.!.T.. 144,009,201,091,176,00 5,024,105,032,208,019,201,193,144._.^.. 009,201,219,176,005,056,233,128,208,006, 201,020,208,002...H.. 169,008,141,095,19 2,173,095,192,076,202,241...
> CLICK IMAGE PREVIEW FOR FULL MODAL