SENDCODE.PAL

FILE INFORMATION

FILENAME(S): SENDCODE.PAL

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-11-30 21:15:11

APPEARS ON: 1 disk(s)

FILE HASH

4dc12dc0bd392f697df7a5aca40d2b176dce4e116884c183dddc3ce7b00ab265

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	SENDCODE.PAL	PRG	DuncanTwain	10	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 E8 03 9F 31  2C 38 2C 31 2C 22 30 3A  |.......1,8,1,"0:|
00000010: 53 45 4E 44 43 4F 44 45  2E 4F 42 4A 22 00 40 08  |SENDCODE.OBJ".@.|
00000020: F2 03 9E 20 37 30 30 20  20 3B 41 43 54 49 56 41  |... 700  ;ACTIVA|
00000030: 54 45 20 50 41 4C 20 41  53 53 45 4D 42 4C 45 52  |TE PAL ASSEMBLER|
00000040: 00 62 08 FC 03 AC B2 20  24 39 46 39 32 20 3B A4  |.b..... $9F92 ;.|
00000050: 50 20 4F 46 20 4D 45 4D  B0 59 20 28 34 30 38 35  |P OF MEM.Y (4085|
00000060: 30 29 00 83 08 06 04 2E  4F 50 54 20 4F 31 20 20  |0)......OPT O1  |
00000070: 3B 4F 55 54 50 55 54 20  4F 42 4A 45 43 54 20 46  |;OUTPUT OBJECT F|
00000080: 49 4C 45 00 89 08 07 04  3B 00 AB 08 10 04 3B 20  |ILE.....;.....; |
00000090: 4F 55 54 50 55 54 20 43  4F 44 45 20 A4 20 53 45  |OUTPUT CODE . SE|
000000A0: 52 49 41 4C 20 83 20 50  4F 52 54 00 B1 08 1A 04  |RIAL . PORT.....|
000000B0: 3B 00 D4 08 24 04 3B 54  48 49 53 20 52 4F 55 54  |;...$.;THIS ROUT|
000000C0: 49 4E 45 20 43 41 4E 20  42 45 20 55 53 45 44 20  |INE CAN BE USED |
000000D0: A4 20 53 80 00 F7 08 2E  04 3B 59 4F 55 52 20 43  |. S......;YOUR C|
000000E0: 4F 44 45 20 A4 20 54 48  45 20 54 41 52 A1 20 43  |ODE . THE TAR. C|
000000F0: 4F 4D 50 55 54 45 52 00  19 09 38 04 3B 41 46 54  |OMPUTER...8.;AFT|
00000100: 45 52 20 49 54 20 48 41  53 20 42 45 45 4E 20 41  |ER IT HAS BEEN A|
00000110: 53 53 45 4D 42 4C 45 44  2E 00 3A 09 42 04 3B 43  |SSEMBLED..:.B.;C|
00000120: 41 4C 4C 20 49 54 20 46  52 4F 4D 20 59 4F 55 52  |ALL IT FROM YOUR|
00000130: 20 41 53 53 45 4D 42 4C  45 52 00 5E 09 4C 04 3B  | ASSEMBLER.^.L.;|
00000140: 45 4E 56 49 52 91 4D 45  4E 54 20 AF 20 50 41 53  |ENVIR.MENT . PAS|
00000150: 53 20 49 54 20 54 48 45  20 53 54 41 52 54 00 7F  |S IT THE START..|
00000160: 09 56 04 3B AF 20 80 20  41 44 44 52 45 53 53 45  |.V.;. . ADDRESSE|
00000170: 53 20 4F 46 20 54 48 45  20 4F 42 4A 45 43 54 00  |S OF THE OBJECT.|
00000180: A4 09 60 04 3B 43 4F 44  45 2C 20 45 2E 47 2E 20  |..`.;CODE, E.G. |
00000190: 20 9E 20 34 30 38 35 30  2C 34 39 31 35 32 2C 35  | . 40850,49152,5|
000001A0: 30 32 36 31 00 AA 09 6A  04 3B 00 CC 09 74 04 3B  |0261...j.;...t.;|
000001B0: 54 48 45 20 52 4F 55 54  49 4E 45 20 27 53 80 A4  |THE ROUTINE 'S..|
000001C0: 53 44 50 27 20 53 80 53  20 54 48 45 00 EB 09 7E  |SDP' S.S THE...~|
000001D0: 04 3B 41 44 44 52 45 53  53 20 A4 20 53 A4 52 45  |.;ADDRESS . S.RE|
000001E0: 20 28 4C 4F 57 AD 48 49  47 48 29 00 0E 0A 88 04  | (LOW.HIGH).....|
000001F0: 3B 49 4E 20 54 48 45 20  4F 54 48 45 52 20 43 36  |;IN THE OTHER C6|
00000200: 34 20 AF 20 54 48 45 20  42 59 54 45 20 A4 00 1F  |4 . THE BYTE ...|
00000210: 0A 92 04 3B 53 A4 52 45  20 54 48 45 52 45 2E 00  |...;S.RE THERE..|
00000220: 25 0A 9C 04 3B 00 3B 0A  A6 04 55 32 54 49 4D 41  |%...;.;...U2TIMA|
00000230: 4C 4F 20 20 B2 20 24 44  44 30 34 00 51 0A B0 04  |LO  . $DD04.Q...|
00000240: 55 32 54 49 4D 41 48 49  20 20 B2 20 24 44 44 30  |U2TIMAHI  . $DD0|
00000250: 35 00 73 0A BA 04 55 32  4F 55 54 20 20 20 20 20  |5.s...U2OUT     |
00000260: B2 20 24 44 44 30 43 20  3B 53 45 52 20 83 20 50  |. $DD0C ;SER . P|
00000270: 4F 52 54 00 97 0A C4 04  55 32 49 43 52 20 20 20  |ORT.....U2ICR   |
00000280: 20 20 B2 20 24 44 44 30  44 20 3B B5 45 52 52 55  |  . $DD0D ;.ERRU|
00000290: 50 54 20 43 54 52 4C 00  BB 0A CE 04 55 32 43 52  |PT CTRL.....U2CR|
000002A0: 41 20 20 20 20 20 B2 20  24 44 44 30 45 20 3B 54  |A     . $DD0E ;T|
000002B0: 49 4D 45 52 20 41 20 43  54 52 4C 00 E2 0A D8 04  |IMER A CTRL.....|
000002C0: 4F 55 54 50 55 54 20 20  20 20 B2 20 25 30 31 30  |OUTPUT    . %010|
000002D0: 30 30 30 30 30 20 3B 24  44 44 30 45 20 42 49 54  |00000 ;$DD0E BIT|
000002E0: 20 36 00 08 0B E2 04 53  48 8B 54 52 45 47 20 20  | 6.....SH.TREG  |
000002F0: B2 20 25 30 30 30 30 31  30 30 30 20 3B 24 44 44  |. %00001000 ;$DD|
00000300: 30 44 20 42 49 54 20 33  00 28 0B EC 04 44 49 53  |0D BIT 3.(...DIS|
00000310: 41 42 4C 41 4C 4C 20 B2  20 25 30 31 31 31 31 31  |ABLALL . %011111|
00000320: 31 31 20 3B 9C 20 B5 53  00 4F 0B F6 04 54 49 4D  |11 ;. .S.O...TIM|
00000330: 45 52 41 20 20 20 20 B2  20 25 30 30 30 30 30 30  |ERA    . %000000|
00000340: 30 31 20 3B 24 44 44 30  45 20 42 49 54 20 30 00  |01 ;$DD0E BIT 0.|
00000350: 55 0B 00 05 3B 00 78 0B  0A 05 43 4F 44 45 50 54  |U...;.x...CODEPT|
00000360: 52 20 B2 20 24 46 42 20  3B 50 54 52 20 A4 20 42  |R . $FB ;PTR . B|
00000370: 59 54 45 20 A4 20 53 80  00 98 0B 14 05 80 43 4F  |YTE . S.......CO|
00000380: 44 45 20 B2 20 24 46 44  20 3B 4C 41 53 54 20 42  |DE . $FD ;LAST B|
00000390: 59 54 45 20 A4 20 53 80  00 9E 0B 1E 05 3B 00 C5  |YTE . S......;..|
000003A0: 0B 28 05 42 41 55 44 20  20 20 20 B2 20 24 30 34  |.(.BAUD    . $04|
000003B0: 20 3B 42 41 55 44 20 52  41 54 45 20 50 52 45 53  | ;BAUD RATE PRES|
000003C0: 43 41 4C 45 52 00 CB 0B  32 05 3B 00 D1 0B 3C 05  |CALER...2.;...<.|
000003D0: 3B 00 DF 0B 50 05 53 80  43 4F 44 45 20 B2 AC 00  |;...P.S.CODE ...|
000003E0: 03 0C 5A 05 4A 53 52 20  A1 50 41 52 41 4D 20 20  |..Z.JSR .PARAM  |
000003F0: 20 3B 53 54 41 52 54 20  41 44 44 52 20 49 4E 20  | ;START ADDR IN |
00000400: 59 2C 41 00 15 0C 64 05  53 54 41 20 43 4F 44 45  |Y,A...d.STA CODE|
00000410: 50 54 52 AA 31 00 25 0C  6E 05 53 54 59 20 43 4F  |PTR.1.%.n.STY CO|
00000420: 44 45 50 54 52 00 43 0C  78 05 4A 53 52 20 A1 50  |DEPTR.C.x.JSR .P|
00000430: 41 52 41 4D 20 20 20 3B  A1 20 80 20 41 44 44 52  |ARAM   ;. . ADDR|
00000440: 45 53 53 00 53 0C 82 05  53 54 41 20 80 43 4F 44  |ESS.S...STA .COD|
00000450: 45 AA 31 00 61 0C 8C 05  53 54 59 20 80 43 4F 44  |E.1.a...STY .COD|
00000460: 45 00 67 0C 96 05 3B 00  88 0C A0 05 53 43 31 20  |E.g...;.....SC1 |
00000470: B2 AC 20 20 20 20 20 20  20 20 20 3B 53 80 20 41  |..         ;S. A|
00000480: 4C 4C 20 42 59 54 45 53  00 93 0C AA 05 4C 44 59  |LL BYTES.....LDY|
00000490: 20 23 30 00 B0 0C B4 05  4C 44 41 20 28 43 4F 44  | #0.....LDA (COD|
000004A0: 45 50 54 52 29 2C 59 3B  A1 20 82 20 42 59 54 45  |EPTR),Y;. . BYTE|
000004B0: 00 CD 0C BE 05 4A 53 52  20 53 80 A4 53 44 50 20  |.....JSR S..SDP |
000004C0: 20 3B 53 80 20 49 54 20  A4 20 50 B0 54 00 EE 0C  | ;S. IT . P.T...|
000004D0: C8 05 49 4E 43 20 43 4F  44 45 50 54 52 20 20 20  |..INC CODEPTR   |
000004E0: 20 3B 50 4F B5 20 A4 20  82 20 42 59 54 45 00 FA  | ;PO. . . BYTE..|
000004F0: 0C D2 05 42 4E 45 20 53  43 32 00 0C 0D DC 05 49  |...BNE SC2.....I|
00000500: 4E 43 20 43 4F 44 45 50  54 52 AA 31 00 2F 0D E6  |NC CODEPTR.1./..|
00000510: 05 53 43 32 20 B2 AC 20  3B 80 20 57 48 45 4E 20  |.SC2 .. ;. WHEN |
00000520: 43 4F 44 45 50 54 52 20  B2 20 80 43 4F 44 45 00  |CODEPTR . .CODE.|
00000530: 3F 0D F0 05 4C 44 41 20  43 4F 44 45 50 54 52 00  |?...LDA CODEPTR.|
00000540: 4D 0D FA 05 43 4D 50 20  80 43 4F 44 45 00 59 0D  |M...CMP .CODE.Y.|
00000550: 04 06 42 4E 45 20 53 43  31 00 6B 0D 0E 06 4C 44  |..BNE SC1.k...LD|
00000560: 41 20 43 4F 44 45 50 54  52 AA 31 00 7B 0D 18 06  |A CODEPTR.1.{...|
00000570: 43 4D 50 20 80 43 4F 44  45 AA 31 00 87 0D 22 06  |CMP .CODE.1...".|
00000580: 42 4E 45 20 53 43 31 00  8F 0D 2C 06 52 54 53 00  |BNE SC1...,.RTS.|
00000590: 95 0D 36 06 3B 00 9B 0D  40 06 3B 00 A9 0D 4A 06  |..6.;...@.;...J.|
000005A0: 53 80 A4 53 44 50 20 B2  AC 00 CB 0D 54 06 3B 53  |S..SDP .....T.;S|
000005B0: 80 20 27 43 4F 44 45 50  54 52 27 20 50 4F B5 45  |. 'CODEPTR' PO.E|
000005C0: 52 20 55 53 45 52 20 50  B0 54 2C 00 E7 0D 5E 06  |R USER P.T,...^.|
000005D0: 3B 46 4F 4C 4C 4F 57 45  44 20 42 59 20 42 59 54  |;FOLLOWED BY BYT|
000005E0: 45 20 49 4E 20 2E 41 00  0B 0E 68 06 53 54 41 20  |E IN .A...h.STA |
000005F0: 83 4F 55 54 20 20 3B 42  59 54 45 20 4F 46 20 43  |.OUT  ;BYTE OF C|
00000600: 4F 44 45 20 54 4F 20 53  45 4E 44 00 2F 0E 72 06  |ODE TO SEND./.r.|
00000610: 4C 44 41 20 43 4F 44 45  50 54 52 20 20 3B 41 44  |LDA CODEPTR  ;AD|
00000620: 44 52 20 4F 46 20 42 59  54 45 20 A4 20 53 80 00  |DR OF BYTE . S..|
00000630: 3E 0E 7C 06 53 54 41 20  83 4F 55 54 2B 32 00 50  |>.|.STA .OUT+2.P|
00000640: 0E 86 06 4C 44 41 20 43  4F 44 45 50 54 52 AA 31  |...LDA CODEPTR.1|
00000650: 00 5F 0E 90 06 53 54 41  20 83 4F 55 54 2B 31 00  |._...STA .OUT+1.|
00000660: 65 0E 9A 06 3B 00 78 0E  A4 06 4C 44 41 20 23 44  |e...;.x...LDA #D|
00000670: 49 53 41 42 4C 41 4C 4C  00 9C 0E AE 06 53 54 41  |ISABLALL.....STA|
00000680: 20 55 32 49 43 52 20 20  20 3B 43 4C 45 41 52 20  | U2ICR   ;CLEAR |
00000690: 41 4C 4C 20 B5 45 52 52  55 50 54 53 00 A2 0E B8  |ALL .ERRUPTS....|
000006A0: 06 3B 00 C0 0E C2 06 4C  44 41 20 23 42 41 55 44  |.;.....LDA #BAUD|
000006B0: 20 20 20 3B 53 45 54 20  55 50 20 54 49 4D 45 52  |   ;SET UP TIMER|
000006C0: 00 D1 0E CC 06 53 54 41  20 55 32 54 49 4D 41 4C  |.....STA U2TIMAL|
000006D0: 4F 00 DC 0E D6 06 4C 44  41 20 23 30 00 ED 0E E0  |O.....LDA #0....|
000006E0: 06 53 54 41 20 55 32 54  49 4D 41 48 49 00 F3 0E  |.STA U2TIMAHI...|
000006F0: EA 06 3B 00 0A 0F F4 06  4C 44 41 20 23 4F 55 54  |..;.....LDA #OUT|
00000700: 50 55 54 AA 54 49 4D 45  52 41 00 2A 0F FE 06 3B  |PUT.TIMERA.*...;|
00000710: 53 45 54 20 55 50 20 54  49 4D 45 52 20 9A 52 4F  |SET UP TIMER .RO|
00000720: 4C 20 52 45 47 49 53 54  45 52 00 38 0F 08 07 53  |L REGISTER.8...S|
00000730: 54 41 20 55 32 43 52 41  00 3E 0F 12 07 3B 00 49  |TA U2CRA.>...;.I|
00000740: 0F 1C 07 4C 44 58 20 23  32 00 6A 0F 26 07 3B 53  |...LDX #2.j.&.;S|
00000750: 80 20 33 20 42 59 54 45  53 20 53 54 41 52 54 49  |. 3 BYTES STARTI|
00000760: 4E 47 20 41 54 20 83 4F  55 54 00 8E 0F 30 07 53  |NG AT .OUT...0.S|
00000770: 45 49 20 20 20 20 20 20  20 20 3B 4E 4F 20 B5 45  |EI        ;NO .E|
00000780: 52 52 55 50 54 53 2C 20  50 4C 45 41 53 45 00 9A  |RRUPTS, PLEASE..|
00000790: 0F 3A 07 4F 55 54 83 20  3D 2A 00 A9 0F 44 07 4C  |.:.OUT. =*...D.L|
000007A0: 44 41 20 83 4F 55 54 2C  58 00 CC 0F 4E 07 53 54  |DA .OUT,X...N.ST|
000007B0: 41 20 55 32 4F 55 54 20  20 3B 50 55 54 20 42 59  |A U2OUT  ;PUT BY|
000007C0: 54 45 20 91 20 54 48 45  20 50 B0 54 00 D2 0F 58  |TE . THE P.T...X|
000007D0: 07 3B 00 E3 0F 62 07 4C  44 41 20 23 53 48 8B 54  |.;...b.LDA #SH.T|
000007E0: 52 45 47 00 F3 0F 6C 07  53 54 49 4C 4C 53 44 47  |REG...l.STILLSDG|
000007F0: 20 B2 AC 00 11 10 76 07  3B 92 20 55 4E 54 49 4C  | .....v.;. UNTIL|
00000800: 20 49 54 20 48 41 53 20  42 45 45 4E 20 53 45 4E  | IT HAS BEEN SEN|
00000810: 54 00 1F 10 80 07 42 49  54 20 55 32 49 43 52 00  |T.....BIT U2ICR.|
00000820: 30 10 8A 07 42 45 51 20  53 54 49 4C 4C 53 44 47  |0...BEQ STILLSDG|
00000830: 00 4C 10 94 07 44 45 58  20 20 20 20 20 20 20 20  |.L...DEX        |
00000840: 3B 53 80 20 54 48 45 20  82 20 91 45 00 59 10 9E  |;S. THE . .E.Y..|
00000850: 07 42 50 4C 20 4F 55 54  83 00 7A 10 A8 07 43 4C  |.BPL OUT..z...CL|
00000860: 49 20 20 20 20 20 20 20  20 3B 41 4C 4C 20 33 20  |I        ;ALL 3 |
00000870: 42 59 54 45 53 20 53 45  4E 54 00 80 10 B2 07 3B  |BYTES SENT.....;|
00000880: 00 88 10 BC 07 52 54 53  00 8E 10 C6 07 3B 00 94  |.....RTS.....;..|
00000890: 10 E4 07 3B 00 A2 10 EE  07 A1 50 41 52 41 4D 20  |...;......PARAM |
000008A0: B2 AC 00 C4 10 F8 07 3B  53 4B 49 50 20 43 4F 4D  |.......;SKIP COM|
000008B0: 4D 41 2C 20 A1 20 41 52  47 55 4D 45 4E 54 20 AF  |MA, . ARGUMENT .|
000008C0: 20 50 55 54 00 DF 10 02  08 3B 49 4E 20 59 20 28  | PUT.....;IN Y (|
000008D0: 4C 4F 57 29 20 AF 20 41  20 28 48 49 47 48 29 00  |LOW) . A (HIGH).|
000008E0: ED 10 0C 08 4A 53 52 20  24 41 45 46 44 00 FB 10  |....JSR $AEFD...|
000008F0: 16 08 4A 53 52 20 24 41  44 38 41 00 09 11 20 08  |..JSR $AD8A... .|
00000900: 4A 4D 50 20 24 42 37 46  37 00 0F 11 2A 08 3B 00  |JMP $B7F7...*.;.|
00000910: 15 11 2B 08 3B 00 24 11  B8 0B 83 4F 55 54 20 2A  |..+.;.$....OUT *|
00000920: 3D 2A 2B 33 00 43 11 C2  0B 3B 42 55 46 46 45 52  |=*+3.C...;BUFFER|
00000930: 20 81 20 41 44 44 52 20  AF 20 42 59 54 45 20 A4  | . ADDR . BYTE .|
00000940: 20 53 80 00 00 00                                 | S....          |

.......1,8,1,"0:SENDCODE.OBJ".@.... 700 
 ;ACTIVATE PAL ASSEMBLER.B..... $9F92 ;.
P OF MEM.Y (40850)......OPT O1  ;OUTPUT 
OBJECT FILE.....;.....; OUTPUT CODE . SE
RIAL . PORT.....;.T.$.;THIS ROUTINE CAN 
BE USED . S......;YOUR CODE . THE TAR. C
OMPUTER...8.;AFTER IT HAS BEEN ASSEMBLED
..:.B.;CALL IT FROM YOUR ASSEMBLER.^.L.;
ENVIR.MENT . PASS IT THE START..V.;. . 
ADDRESSES OF THE OBJECT...`.;CODE, E.G. 
 . 40850,49152,50261...J.;.L.T.;THE ROUT
INE 'S..SDP' S.S THE...~.;ADDRESS . S.RE
 (LOW.HIGH).....;IN THE OTHER C64 . THE 
BYTE ......;S.RE THERE..%...;.;...U2TIMA
LO  . $DD04.Q...U2TIMAHI  . $DD05.S...U2
OUT     . $DD0C ;SER . PORT...D.U2ICR   
  . $DD0D ;.ERRUPT CTRL...N.U2CRA     . 
$DD0E ;TIMER A CTRL...X.OUTPUT    . %010
00000 ;$DD0E BIT 6.....SH.TREG  . %00001
000 ;$DD0D BIT 3.(...DISABLALL . %011111
11 ;. .S.O...TIMERA    . %00000001 ;$DD0
E BIT 0.U...;.X...CODEPTR . $FB ;PTR . B
YTE . S.......CODE . $FD ;LAST BYTE . S.
.....;.E.(.BAUD    . $04 ;BAUD RATE PRES
CALER.K.2.;.Q.<.;...P.S.CODE .....Z.JSR 
.PARAM   ;START ADDR IN Y,A...D.STA CODE
PTR.1.%.N.STY CODEPTR.C.X.JSR .PARAM   ;
. . ADDRESS.S...STA .CODE.1.A...STY .COD
E.G...;... .SC1 ..         ;S. ALL BYTES
.....LDY #0.....LDA (CODEPTR),Y;. . BYTE
.M...JSR S..SDP  ;S. IT . P.T...H.INC CO
DEPTR    ;PO. . . BYTE...R.BNE SC2.....I
NC CODEPTR.1./...SC2 .. ;. WHEN CODEPTR 
. .CODE.?...LDA CODEPTR.M...CMP .CODE.Y.
..BNE SC1.K...LDA CODEPTR.1.{...CMP .COD
E.1...".BNE SC1...,.RTS...6.;...@.;...J.
S..SDP ...K.T.;S. 'CODEPTR' PO.ER USER P
.T,...^.;FOLLOWED BY BYTE IN .A...H.STA 
.OUT  ;BYTE OF CODE TO SEND./.R.LDA CODE
PTR  ;ADDR OF BYTE . S..>.|.STA .OUT+2.P
...LDA CODEPTR.1._...STA .OUT+1.E...;.X.
..LDA #DISABLALL.....STA U2ICR   ;CLEAR 
ALL .ERRUPTS.....;...B.LDA #BAUD   ;SET 
UP TIMER.Q.L.STA U2TIMALO...V.LDA #0....
.STA U2TIMAHI.....;.....LDA #OUTPUT.TIME
RA.*...;SET UP TIMER .ROL REGISTER.8...S
TA U2CRA.>...;.I...LDX #2.J.&.;S. 3 BYTE
S STARTING AT .OUT...0.SEI        ;NO .E
RRUPTS, PLEASE...:.OUT. =*...D.LDA .OUT,
X.L.N.STA U2OUT  ;PUT BYTE . THE P.T.R.X
.;...B.LDA #SH.TREG...L.STILLSDG .....V.
;. UNTIL IT HAS BEEN SENT.....BIT U2ICR.
0...BEQ STILLSDG.L...DEX        ;S. THE 
. .E.Y...BPL OUT..Z...CLI        ;ALL 3 
BYTES SENT.....;.....RTS...F.;.....;....
..PARAM ...D...;SKIP COMMA, . ARGUMENT .
 PUT.....;IN Y (LOW) . A (HIGH).....JSR 
$AEFD.....JSR $AD8A... .JMP $B7F7...*.;.
..+.;.$....OUT *=*+3.C.B.;BUFFER . ADDR 
. BYTE . S....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL