MIDI V2 #4

FILE INFORMATION

FILENAME(S): MIDI V2 #4

FILE TYPE(S): PRG

FILE SIZE: 2.9K

FIRST SEEN: 2025-11-02 16:41:28

APPEARS ON: 1 disk(s)

FILE HASH

62fdfda7f0a10f068c47f03e53db9bf722bfd337ca590f1dda795b07f1d7ebaa

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SHADOW OF T E V	MIDI V2 #4	PRG	Treasure Chest - PrettyOldPixel	29	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 27 08 01 00 8F 4F  50 45 4E 31 2C 38 2C 31  |..'....OPEN1,8,1|
00000010: 2C 22 40 3A 4B 4F 41 20  43 50 38 30 20 34 39 33  |,"@:KOA CP80 493|
00000020: 30 36 2C 50 2C 57 22 00  30 08 04 00 9F 34 2C 34  |06,P,W".0....4,4|
00000030: 00 69 08 05 00 8F 50 52  49 4E 54 23 34 2C 22 93  |.i....PRINT#4,".|
00000040: 2A 20 48 49 52 45 53 2D  42 49 54 4D 41 50 50 49  |* HIRES-BITMAPPI|
00000050: 4E 47 20 20 48 41 52 44  43 4F 50 59 20 46 4F 52  |NG  HARDCOPY FOR|
00000060: 20 43 50 2D 38 30 20 2A  22 00 76 08 06 00 8F 2E  | CP-80 *".v.....|
00000070: 4F 50 54 2E 4F 4F 00 82  08 0A 00 9E 38 AC 34 30  |OPT.OO......8.40|
00000080: 39 36 00 91 08 14 00 2E  4F 50 54 2E 50 34 2C 4F  |96......OPT.P4,O|
00000090: 4F 00 9E 08 1E 00 AC B2  20 24 43 30 30 30 00 D1  |O....... $C000..|
000000A0: 08 28 00 49 52 56 20 B2  20 24 30 33 31 34 3A 49  |.(.IRV . $0314:I|
000000B0: 52 30 20 B2 20 24 45 41  33 31 3A 99 20 B2 20 24  |R0 . $EA31:. . $|
000000C0: 46 46 44 32 3A A1 4B 45  59 20 B2 20 24 46 46 45  |FFD2:.KEY . $FFE|
000000D0: 34 00 0E 09 32 00 44 49  20 B2 20 24 46 38 3A 44  |4...2.DI . $F8:D|
000000E0: 4F 20 B2 20 24 46 41 3A  54 49 20 B2 20 24 46 43  |O . $FA:TI . $FC|
000000F0: 3A A4 20 B2 20 24 46 45  3A 44 42 20 B2 20 24 43  |:. . $FE:DB . $C|
00000100: 45 30 30 3A 54 42 20 B2  20 24 43 46 30 30 00 40  |E00:TB . $CF00.@|
00000110: 09 3C 00 43 52 20 B2 20  24 44 45 30 34 3A 54 44  |.<.CR . $DE04:TD|
00000120: 52 20 B2 20 24 44 45 30  35 3A 53 52 20 B2 20 24  |R . $DE05:SR . $|
00000130: 44 45 30 36 3A 52 44 52  20 B2 20 24 44 45 30 37  |DE06:RDR . $DE07|
00000140: 00 50 09 94 02 52 45 43  49 4E 49 54 20 53 45 49  |.P...RECINIT SEI|
00000150: 00 62 09 9E 02 4C 44 41  20 23 33 3A 53 54 41 20  |.b...LDA #3:STA |
00000160: 43 52 00 76 09 A8 02 4C  44 41 20 23 24 39 32 3A  |CR.v...LDA #$92:|
00000170: 53 54 41 20 43 52 00 A0  09 B2 02 4C 44 41 20 23  |STA CR.....LDA #|
00000180: B3 49 52 31 3A 53 54 41  20 49 52 56 3A 4C 44 41  |.IR1:STA IRV:LDA|
00000190: 20 23 B1 49 52 31 3A 53  54 41 20 49 52 56 AA 31  | #.IR1:STA IRV.1|
000001A0: 00 C6 09 BC 02 4C 44 41  20 23 B3 44 42 3A 53 54  |.....LDA #.DB:ST|
000001B0: 41 20 44 49 3A 4C 44 41  20 23 B1 44 42 3A 53 54  |A DI:LDA #.DB:ST|
000001C0: 41 20 44 49 AA 31 00 EC  09 C6 02 4C 44 41 20 23  |A DI.1.....LDA #|
000001D0: B3 44 42 3A 53 54 41 20  44 4F 3A 4C 44 41 20 23  |.DB:STA DO:LDA #|
000001E0: B1 44 42 3A 53 54 41 20  44 4F AA 31 00 12 0A D0  |.DB:STA DO.1....|
000001F0: 02 4C 44 41 20 23 B3 54  42 3A 53 54 41 20 54 49  |.LDA #.TB:STA TI|
00000200: 3A 4C 44 41 20 23 B1 54  42 3A 53 54 41 20 54 49  |:LDA #.TB:STA TI|
00000210: AA 31 00 36 0A DA 02 4C  44 41 20 23 B3 54 42 3A  |.1.6...LDA #.TB:|
00000220: 53 54 41 20 A4 3A 4C 44  41 20 23 B1 54 42 3A 53  |STA .:LDA #.TB:S|
00000230: 54 41 20 A4 AA 31 00 3E  0A E4 02 43 4C 49 00 46  |TA ..1.>...CLI.F|
00000240: 0A EE 02 52 54 53 00 56  0A 20 03 54 49 4D 45 52  |...RTS.V. .TIMER|
00000250: 20 B2 20 24 38 42 00 65  0A 2A 03 46 4C 41 47 20  | . $8B.e.*.FLAG |
00000260: B2 20 24 38 44 00 79 0A  3E 03 54 49 4D 49 4E 49  |. $8D.y.>.TIMINI|
00000270: 54 20 4C 44 59 20 23 30  31 00 87 0A 48 03 53 54  |T LDY #01...H.ST|
00000280: 59 20 24 44 44 30 45 00  8F 0A 52 03 44 45 59 00  |Y $DD0E...R.DEY.|
00000290: 9D 0A 5C 03 53 54 59 20  54 49 4D 45 52 00 AD 0A  |..\.STY TIMER...|
000002A0: 66 03 53 54 59 20 54 49  4D 45 52 AA 31 00 BA 0A  |f.STY TIMER.1...|
000002B0: 70 03 53 54 59 20 46 4C  41 47 00 C2 0A 7A 03 52  |p.STY FLAG...z.R|
000002C0: 54 53 00 CE 0A B6 03 49  52 31 20 53 45 49 00 DA  |TS.....IR1 SEI..|
000002D0: 0A C0 03 4A 53 52 20 47  54 4D 00 E5 0A CA 03 4C  |...JSR GTM.....L|
000002E0: 44 41 20 53 52 00 EF 0A  D4 03 4C 53 52 20 41 00  |DA SR.....LSR A.|
000002F0: FE 0A DE 03 42 43 43 20  4B 45 52 4E 41 4C 00 09  |....BCC KERNAL..|
00000300: 0B F2 03 4C 44 59 20 23  30 00 15 0B FC 03 4C 44  |...LDY #0.....LD|
00000310: 41 20 52 44 52 00 24 0B  06 04 53 54 41 20 28 44  |A RDR.$...STA (D|
00000320: 49 29 2C 59 00 30 0B 10  04 42 50 4C 20 44 91 45  |I),Y.0...BPL D.E|
00000330: 00 3E 0B 24 04 4C 44 41  20 54 49 4D 45 52 00 4D  |.>.$.LDA TIMER.M|
00000340: 0B 2E 04 53 54 41 20 28  54 49 29 2C 59 00 55 0B  |...STA (TI),Y.U.|
00000350: 38 04 49 4E 59 00 65 0B  42 04 4C 44 41 20 54 49  |8.INY.e.B.LDA TI|
00000360: 4D 45 52 AA 31 00 74 0B  4C 04 53 54 41 20 28 54  |MER.1.t.L.STA (T|
00000370: 49 29 2C 59 00 7F 0B 56  04 49 4E 43 20 54 49 00  |I),Y...V.INC TI.|
00000380: 8A 0B 60 04 49 4E 43 20  54 49 00 99 0B 74 04 44  |..`.INC TI...t.D|
00000390: 91 45 20 49 4E 43 20 44  49 00 A1 0B 7E 04 50 4C  |.E INC DI...~.PL|
000003A0: 41 00 A9 0B 88 04 54 41  59 00 B1 0B 92 04 50 4C  |A.....TAY.....PL|
000003B0: 41 00 B9 0B 9C 04 54 41  58 00 C1 0B A6 04 50 4C  |A.....TAX.....PL|
000003C0: 41 00 C9 0B B0 04 52 54  49 00 DC 0B C4 04 4B 45  |A.....RTI.....KE|
000003D0: 52 4E 41 4C 20 4A 4D 50  20 49 52 30 00 EF 0B 1E  |RNAL JMP IR0....|
000003E0: 05 52 45 43 45 49 56 45  20 4C 44 41 20 44 49 00  |.RECEIVE LDA DI.|
000003F0: FA 0B 28 05 43 4D 50 20  44 4F 00 06 0C 32 05 42  |..(.CMP DO...2.B|
00000400: 45 51 20 4E 91 45 00 16  0C 3C 05 87 42 59 54 45  |EQ N.E...<..BYTE|
00000410: 20 4C 44 59 23 30 00 25  0C 46 05 4C 44 41 20 28  | LDY#0.%.F.LDA (|
00000420: 44 4F 29 2C 59 00 30 0C  50 05 49 4E 43 20 44 4F  |DO),Y.0.P.INC DO|
00000430: 00 38 0C 5A 05 53 45 43  00 40 0C 64 05 52 54 53  |.8.Z.SEC.@.d.RTS|
00000440: 00 4C 0C 6E 05 4E 91 45  20 43 4C 43 00 54 0C 78  |.L.n.N.E CLC.T.x|
00000450: 05 52 54 53 00 62 0C D2  05 52 44 54 20 4C 44 59  |.RTS.b...RDT LDY|
00000460: 23 30 00 70 0C DC 05 4C  44 41 20 28 A4 29 2C 59  |#0.p...LDA (.),Y|
00000470: 00 7A 0C E6 05 49 4E 43  20 A4 00 82 0C F0 05 52  |.z...INC ......R|
00000480: 54 53 00 94 0C 40 06 47  54 4D 20 42 49 54 20 24  |TS...@.GTM BIT $|
00000490: 44 44 30 35 00 A3 0C 4A  06 42 56 53 20 4D 53 42  |DD05...J.BVS MSB|
000004A0: 53 45 54 00 B0 0C 54 06  42 49 54 20 46 4C 41 47  |SET...T.BIT FLAG|
000004B0: 00 BB 0C 5E 06 42 50 4C  20 80 52 00 C9 0C 68 06  |...^.BPL .R...h.|
000004C0: 49 4E 43 20 54 49 4D 45  52 00 D5 0C 72 06 42 4E  |INC TIMER...r.BN|
000004D0: 45 20 B2 AA 33 00 E5 0C  7C 06 49 4E 43 20 54 49  |E ..3...|.INC TI|
000004E0: 4D 45 52 AA 31 00 F9 0C  86 06 4C 44 41 20 23 30  |MER.1.....LDA #0|
000004F0: 3A 53 54 41 20 46 4C 41  47 00 04 0D 90 06 42 45  |:STA FLAG.....BE|
00000500: 51 20 80 52 00 18 0D 9A  06 4D 53 42 53 45 54 20  |Q .R.....MSBSET |
00000510: 42 49 54 20 46 4C 41 47  00 23 0D A4 06 42 4D 49  |BIT FLAG.#...BMI|
00000520: 20 80 52 00 31 0D AE 06  49 4E 43 20 54 49 4D 45  | .R.1...INC TIME|
00000530: 52 00 3D 0D B8 06 42 4E  45 20 B2 AA 33 00 4D 0D  |R.=...BNE ..3.M.|
00000540: C2 06 49 4E 43 20 54 49  4D 45 52 AA 31 00 62 0D  |..INC TIMER.1.b.|
00000550: CC 06 4C 44 41 20 24 46  46 3A 53 54 41 20 46 4C  |..LDA $FF:STA FL|
00000560: 41 47 00 6D 0D D6 06 80  52 20 52 54 53 00 7D 0D  |AG.m....R RTS.}.|
00000570: 12 07 44 49 53 41 42 4C  45 20 53 45 49 00 8F 0D  |..DISABLE SEI...|
00000580: 1C 07 4C 44 41 20 23 33  3A 53 54 41 20 43 52 00  |..LDA #3:STA CR.|
00000590: B9 0D 26 07 4C 44 41 20  23 B3 49 52 30 3A 53 54  |..&.LDA #.IR0:ST|
000005A0: 41 20 49 52 56 3A 4C 44  41 20 23 B1 49 52 30 3A  |A IRV:LDA #.IR0:|
000005B0: 53 54 41 20 49 52 56 AA  31 00 C1 0D 30 07 43 4C  |STA IRV.1...0.CL|
000005C0: 49 00 C9 0D 3A 07 52 54  53 00 DC 0D 8A 07 42 55  |I...:.RTS.....BU|
000005D0: 46 46 45 52 20 B2 20 24  38 30 30 30 00 ED 0D 94  |FFER . $8000....|
000005E0: 07 42 55 46 80 20 B2 20  24 41 30 30 30 00 F9 0D  |.BUF. . $A000...|
000005F0: 9E 07 50 20 B2 20 24 38  45 00 13 0E D0 07 52 45  |..P . $8E.....RE|
00000600: 43 B0 44 20 4C 44 41 20  23 30 3A 53 54 41 20 23  |C.D LDA #0:STA #|
00000610: 31 39 38 00 3F 0E DA 07  4C 44 41 20 23 B3 42 55  |198.?...LDA #.BU|
00000620: 46 46 45 52 3A 53 54 41  20 50 3A 4C 44 41 20 23  |FFER:STA P:LDA #|
00000630: B1 42 55 46 46 45 52 3A  53 54 41 20 50 AA 31 00  |.BUFFER:STA P.1.|
00000640: 4F 0E E4 07 4A 53 52 20  52 45 43 49 4E 49 54 00  |O...JSR RECINIT.|
00000650: 5F 0E EE 07 4A 53 52 20  54 49 4D 49 4E 49 54 00  |_...JSR TIMINIT.|
00000660: 71 0E F8 07 4D 41 49 4E  20 4A 53 52 20 A1 4B 45  |q...MAIN JSR .KE|
00000670: 59 00 7B 0E 02 08 42 45  51 20 9A 00 8B 0E 0C 08  |Y.{...BEQ ......|
00000680: 45 58 49 54 20 4C 44 59  20 23 30 00 98 0E 16 08  |EXIT LDY #0.....|
00000690: 4C 44 41 20 23 24 46 46  00 A6 0E 20 08 53 54 41  |LDA #$FF... .STA|
000006A0: 20 28 50 29 2C 59 00 AE  0E 2A 08 54 59 41 00 B6  | (P),Y...*.TYA..|
000006B0: 0E 34 08 49 4E 59 00 C4  0E 3E 08 53 54 41 20 28  |.4.INY...>.STA (|
000006C0: 50 29 2C 59 00 CC 0E 48  08 49 4E 59 00 DA 0E 52  |P),Y...H.INY...R|
000006D0: 08 53 54 41 20 28 50 29  2C 59 00 EA 0E 5C 08 4A  |.STA (P),Y...\.J|
000006E0: 4D 50 20 44 49 53 41 42  4C 45 00 FC 0E 66 08 9A  |MP DISABLE...f..|
000006F0: 20 4A 53 52 20 52 45 43  45 49 56 45 00 09 0F 70  | JSR RECEIVE...p|
00000700: 08 42 43 43 20 4D 41 49  4E 00 16 0F 7A 08 43 4D  |.BCC MAIN...z.CM|
00000710: 50 20 23 24 38 30 00 23  0F 84 08 42 43 43 20 53  |P #$80.#...BCC S|
00000720: A4 52 45 00 2B 0F 8E 08  50 48 41 00 38 0F 98 08  |.RE.+...PHA.8...|
00000730: 4C 44 41 20 23 27 2E 27  00 42 0F A2 08 4A 53 52  |LDA #'.'.B...JSR|
00000740: 20 99 00 4A 0F AC 08 50  4C 41 00 5A 0F B6 08 53  | ..J...PLA.Z...S|
00000750: A4 52 45 20 4C 44 59 20  23 30 00 68 0F C0 08 53  |.RE LDY #0.h...S|
00000760: 54 41 20 28 50 29 2C 59  00 72 0F CA 08 49 4E 43  |TA (P),Y.r...INC|
00000770: 20 50 00 7E 0F D4 08 42  4E 45 20 B2 AA 33 00 8A  | P.~...BNE ..3..|
00000780: 0F DE 08 49 4E 43 20 50  AA 31 00 96 0F E8 08 4C  |...INC P.1.....L|
00000790: 44 58 20 50 AA 31 00 A6  0F F2 08 43 50 58 20 23  |DX P.1.....CPX #|
000007A0: 48 2C 42 55 46 80 00 B3  0F FC 08 42 43 53 20 45  |H,BUF......BCS E|
000007B0: 58 49 54 00 C0 0F 06 09  43 50 4D 20 23 24 38 30  |XIT.....CPM #$80|
000007C0: 00 CD 0F 10 09 42 43 43  20 4D 41 49 4E 00 D9 0F  |.....BCC MAIN...|
000007D0: 1A 09 4A 53 52 20 52 44  54 00 E7 0F 24 09 53 54  |..JSR RDT...$.ST|
000007E0: 41 20 28 50 29 2C 59 00  F3 0F 2E 09 4A 53 52 20  |A (P),Y.....JSR |
000007F0: 52 44 54 00 FB 0F 38 09  49 4E 59 00 09 10 42 09  |RDT...8.INY...B.|
00000800: 53 54 41 20 28 50 29 2C  59 00 13 10 4C 09 4C 44  |STA (P),Y...L.LD|
00000810: 41 20 50 00 1B 10 56 09  43 4C 43 00 26 10 60 09  |A P...V.CLC.&.`.|
00000820: 41 44 43 20 23 32 00 30  10 6A 09 53 54 41 20 50  |ADC #2.0.j.STA P|
00000830: 00 3C 10 74 09 4C 44 41  20 50 AA 31 00 47 10 7E  |.<.t.LDA P.1.G.~|
00000840: 09 41 44 43 20 23 30 00  53 10 88 09 53 54 41 20  |.ADC #0.S...STA |
00000850: 50 AA 31 00 63 10 92 09  43 4D 50 20 23 48 2C 42  |P.1.c...CMP #H,B|
00000860: 55 46 80 00 6F 10 9C 09  42 43 43 20 B2 AA 34 00  |UF..o...BCC ..4.|
00000870: 7C 10 A6 09 4A 4D 50 20  45 58 49 54 00 89 10 B0  ||...JMP EXIT....|
00000880: 09 4A 4D 50 20 4D 41 49  4E 00 96 10 E2 09 50 4C  |.JMP MAIN.....PL|
00000890: 41 59 20 53 45 49 00 A8  10 EC 09 4C 44 41 20 23  |AY SEI.....LDA #|
000008A0: 33 3A 53 54 41 20 43 52  00 BC 10 F6 09 4C 44 41  |3:STA CR.....LDA|
000008B0: 20 23 24 31 32 3A 53 54  41 20 43 52 00 E8 10 00  | #$12:STA CR....|
000008C0: 0A 4C 44 41 20 23 B3 42  55 46 46 45 52 3A 53 54  |.LDA #.BUFFER:ST|
000008D0: 41 20 50 3A 4C 44 41 20  23 B1 42 55 46 46 45 52  |A P:LDA #.BUFFER|
000008E0: 3A 53 54 41 20 50 AA 31  00 12 11 0A 0A 4C 44 41  |:STA P.1.....LDA|
000008F0: 20 23 B3 49 52 32 3A 53  54 41 20 49 52 56 3A 4C  | #.IR2:STA IRV:L|
00000900: 44 41 20 23 B1 49 52 32  3A 53 54 41 20 49 52 56  |DA #.IR2:STA IRV|
00000910: AA 31 00 3C 11 14 0A 4C  44 41 20 23 B3 30 3A 53  |.1.<...LDA #.0:S|
00000920: 54 41 20 54 49 4D 45 52  3A 4C 44 41 20 23 B1 30  |TA TIMER:LDA #.0|
00000930: 3A 53 54 41 20 54 49 4D  45 52 AA 31 00 44 11 1E  |:STA TIMER.1.D..|
00000940: 0A 43 4C 49 00 4F 11 32  0A 4C 44 59 20 23 32 00  |.CLI.O.2.LDY #2.|
00000950: 5F 11 3C 0A 4C 44 41 20  54 49 4D 45 52 AA 31 00  |_.<.LDA TIMER.1.|
00000960: 6D 11 46 0A 43 4D 50 20  28 50 29 2C 59 00 78 11  |m.F.CMP (P),Y.x.|
00000970: 50 0A 42 43 43 20 53 80  00 80 11 5A 0A 44 45 59  |P.BCC S....Z.DEY|
00000980: 00 8E 11 64 0A 4C 44 41  20 54 49 4D 45 52 00 9C  |...d.LDA TIMER..|
00000990: 11 6E 0A 43 4D 50 20 28  50 29 2C 59 00 A7 11 78  |.n.CMP (P),Y...x|
000009A0: 0A 42 43 43 20 53 80 00  AF 11 82 0A 44 45 59 00  |.BCC S......DEY.|
000009B0: BD 11 8C 0A 4C 44 41 20  28 50 29 2C 59 00 CA 11  |....LDA (P),Y...|
000009C0: 96 0A 43 4D 50 20 23 24  46 46 00 D6 11 A0 0A 42  |..CMP #$FF.....B|
000009D0: 4E 45 20 B2 AA 34 00 E3  11 AA 0A 4A 4D 50 20 45  |NE ..4.....JMP E|
000009E0: 58 49 54 00 F4 11 B4 0A  4A 53 52 20 54 52 41 4E  |XIT.....JSR TRAN|
000009F0: 53 4D 49 54 00 01 12 BE  0A 4C 44 41 20 23 27 2E  |SMIT.....LDA #'.|
00000A00: 27 00 0B 12 C8 0A 4A 53  52 20 99 00 15 12 D2 0A  |'.....JSR ......|
00000A10: 4C 44 41 20 50 00 20 12  DC 0A 41 44 43 20 23 33  |LDA P. ...ADC #3|
00000A20: 00 2A 12 E6 0A 53 54 41  20 50 00 36 12 F0 0A 4C  |.*...STA P.6...L|
00000A30: 44 41 20 50 AA 31 00 41  12 FA 0A 41 44 43 20 23  |DA P.1.A...ADC #|
00000A40: 30 00 4D 12 04 0B 53 54  41 20 50 AA 31 00 5D 12  |0.M...STA P.1.].|
00000A50: 0E 0B 43 4D 50 20 23 48  2C 42 55 46 80 00 69 12  |..CMP #H,BUF..i.|
00000A60: 18 0B 42 43 43 20 B2 AA  34 00 76 12 22 0B 4A 4D  |..BCC ..4.v.".JM|
00000A70: 50 20 45 58 49 54 00 85  12 2C 0B 9A 53 80 20 4C  |P EXIT...,..S. L|
00000A80: 44 59 20 23 30 00 93 12  36 0B 4C 44 41 20 28 50  |DY #0...6.LDA (P|
00000A90: 29 2C 59 00 9E 12 40 0B  42 4D 49 20 53 80 00 AF  |),Y...@.BMI S...|
00000AA0: 12 4A 0B 4A 53 52 20 54  52 41 4E 53 4D 49 54 00  |.J.JSR TRANSMIT.|
00000AB0: B9 12 54 0B 49 4E 43 20  50 00 C5 12 5E 0B 42 4E  |..T.INC P...^.BN|
00000AC0: 45 20 9A 53 80 00 D1 12  68 0B 49 4E 43 20 50 AA  |E .S....h.INC P.|
00000AD0: 31 00 DD 12 72 0B 4C 44  58 20 50 AA 31 00 ED 12  |1...r.LDX P.1...|
00000AE0: 7C 0B 43 50 58 20 23 48  2C 42 55 46 80 00 F9 12  ||.CPX #H,BUF....|
00000AF0: 86 0B 42 43 43 20 9A 53  80 00 06 13 90 0B 4A 4D  |..BCC .S......JM|
00000B00: 50 20 45 58 49 54 00 17  13 C2 0B 54 52 41 4E 53  |P EXIT.....TRANS|
00000B10: 4D 49 54 20 50 48 41 00  24 13 CC 0B 92 20 4C 44  |MIT PHA.$.... LD|
00000B20: 41 20 53 52 00 2E 13 D6  0B 4C 53 52 20 41 00 38  |A SR.....LSR A.8|
00000B30: 13 E0 0B 4C 53 52 20 41  00 42 13 EA 0B 42 43 43  |...LSR A.B...BCC|
00000B40: 20 92 00 4A 13 F4 0B 50  4C 41 00 56 13 FE 0B 53  | ..J...PLA.V...S|
00000B50: 54 41 20 54 44 52 00 5E  13 08 0C 52 54 53 00 6A  |TA TDR.^...RTS.j|
00000B60: 13 44 0C 49 52 32 20 53  45 49 00 78 13 4E 0C 49  |.D.IR2 SEI.x.N.I|
00000B70: 4E 43 20 54 49 4D 45 52  00 84 13 58 0C 42 4E 45  |NC TIMER...X.BNE|
00000B80: 20 B2 AA 33 00 94 13 62  0C 49 4E 43 20 54 49 4D  | ..3...b.INC TIM|
00000B90: 45 52 AA 31 00 A0 13 6C  0C 4A 4D 50 20 49 52 30  |ER.1...l.JMP IR0|
00000BA0: 00 A6 13 80 0C 80 00 00  00                       |.........       |

..'....OPEN1,8,1,"@:KOA CP80 49306,P,W".
0....4,4.I....PRINT#4,".* HIRES-BITMAPPI
NG  HARDCOPY FOR CP-80 *".V.....OPT.OO..
....8.4096......OPT.P4,OO....... $C000.Q
.(.IRV . $0314:IR0 . $EA31:. . $FFD2:.KE
Y . $FFE4...2.DI . $F8:DO . $FA:TI . $FC
:. . $FE:DB . $CE00:TB . $CF00.@.<.CR . 
$DE04:TDR . $DE05:SR . $DE06:RDR . $DE07
.P...RECINIT SEI.B...LDA #3:STA CR.V...L
DA #$92:STA CR. ...LDA #.IR1:STA IRV:LDA
 #.IR1:STA IRV.1.F...LDA #.DB:STA DI:LDA
 #.DB:STA DI.1...F.LDA #.DB:STA DO:LDA #
.DB:STA DO.1...P.LDA #.TB:STA TI:LDA #.T
B:STA TI.1.6.Z.LDA #.TB:STA .:LDA #.TB:S
TA ..1.>...CLI.F...RTS.V. .TIMER . $8B.E
.*.FLAG . $8D.Y.>.TIMINIT LDY #01...H.ST
Y $DD0E...R.DEY...\.STY TIMER...F.STY TI
MER.1...P.STY FLAG.B.Z.RTS.N...IR1 SEI.Z
...JSR GTM...J.LDA SR...T.LSR A.....BCC 
KERNAL.....LDY #0.....LDA RDR.$...STA (D
I),Y.0...BPL D.E.>.$.LDA TIMER.M...STA (
TI),Y.U.8.INY.E.B.LDA TIMER.1.T.L.STA (T
I),Y..V.INC TI...`.INC TI...T.D.E INC D
I...~.PLA.....TAY.....PLA.....TAX.A...PL
A.I...RTI...D.KERNAL JMP IR0.....RECEIVE
 LDA DI...(.CMP DO...2.BEQ N.E...<..BYTE
 LDY#0.%.F.LDA (DO),Y.0.P.INC DO.8.Z.SEC
.@.D.RTS.L.N.N.E CLC.T.X.RTS.B.R.RDT LDY
#0.P...LDA (.),Y.Z...INC ......RTS...@.G
TM BIT $DD05...J.BVS MSBSET...T.BIT FLAG
...^.BPL .R.I.H.INC TIMER.U.R.BNE ..3...
|.INC TIMER.1.....LDA #0:STA FLAG.....BE
Q .R.....MSBSET BIT FLAG.#...BMI .R.1...
INC TIMER.=...BNE ..3.M.B.INC TIMER.1.B.
L.LDA $FF:STA FLAG.M.V..R RTS.}...DISABL
E SEI.....LDA #3:STA CR...&.LDA #.IR0:ST
A IRV:LDA #.IR0:STA IRV.1.A.0.CLI.I.:.RT
S.....BUFFER . $8000.....BUF. . $A000...
..P . $8E...P.REC.D LDA #0:STA #198.?.Z.
LDA #.BUFFER:STA P:LDA #.BUFFER:STA P.1.
O...JSR RECINIT._...JSR TIMINIT.Q...MAIN
 JSR .KEY.{...BEQ ......EXIT LDY #0.....
LDA #$FF... .STA (P),Y...*.TYA...4.INY.D
.>.STA (P),Y.L.H.INY.Z.R.STA (P),Y...\.J
MP DISABLE...F.. JSR RECEIVE...P.BCC MAI
N...Z.CMP #$80.#...BCC S.RE.+...PHA.8...
LDA #'.'.B...JSR ..J...PLA.Z...S.RE LDY 
#0.H...STA (P),Y.R.J.INC P.~.T.BNE ..3..
...INC P.1.....LDX P.1.....CPX #H,BUF...
...BCS EXIT.....CPM #$80.M...BCC MAIN.Y.
..JSR RDT...$.STA (P),Y.....JSR RDT...8.
INY...B.STA (P),Y...L.LDA P...V.CLC.&.`.
ADC #2.0.J.STA P.<.T.LDA P.1.G.~.ADC #0.
S...STA P.1.C...CMP #H,BUF..O...BCC ..4.
|...JMP EXIT.....JMP MAIN.....PLAY SEI..
...LDA #3:STA CR.....LDA #$12:STA CR....
.LDA #.BUFFER:STA P:LDA #.BUFFER:STA P.1
.....LDA #.IR2:STA IRV:LDA #.IR2:STA IRV
.1.<...LDA #.0:STA TIMER:LDA #.0:STA TIM
ER.1.D...CLI.O.2.LDY #2._.<.LDA TIMER.1.
M.F.CMP (P),Y.X.P.BCC S....Z.DEY...D.LDA
 TIMER...N.CMP (P),Y...X.BCC S......DEY.
....LDA (P),Y.J...CMP #$FF.V. .BNE ..4..
...JMP EXIT.....JSR TRANSMIT.....LDA #'.
'...H.JSR ....R.LDA P. ...ADC #3.*...STA
 P.6...LDA P.1.A...ADC #0.M...STA P.1.].
..CMP #H,BUF..I...BCC ..4.V.".JMP EXIT..
.,..S. LDY #0...6.LDA (P),Y...@.BMI S...
.J.JSR TRANSMIT...T.INC P.E.^.BNE .S..Q.
H.INC P.1...R.LDX P.1...|.CPX #H,BUF....
..BCC .S......JMP EXIT...B.TRANSMIT PHA.
$.L.. LDA SR...V.LSR A.8...LSR A.B...BCC
 ..J...PLA.V...STA TDR.^...RTS.J.D.IR2 S
EI.X.N.INC TIMER...X.BNE ..3...B.INC TIM
ER.1. .L.JMP IR0.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL