MIDI#3 OBJ.

FILE INFORMATION

FILENAME(S): MIDI#3 OBJ.

FILE TYPE(S): PRG

FILE SIZE: 2.9K

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

APPEARS ON: 1 disk(s)

FILE HASH

21ec31c169d4b385b1f9a17a64b0dbc06355586c25db477ab5319df8e0c20a4c

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SHADOW OF T E V	MIDI#3 OBJ.	PRG	Treasure Chest - PrettyOldPixel	29	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1E 08 01 00 9F 31  2C 39 2C 31 2C 22 40 3A  |.......1,9,1,"@:|
00000010: 4D 49 44 49 20 4F 42 4A  2E 2C 50 2C 57 22 00 2B  |MIDI OBJ.,P,W".+|
00000020: 08 04 00 8F 4F 50 45 4E  34 2C 34 00 64 08 05 00  |....OPEN4,4.d...|
00000030: 8F 50 52 49 4E 54 23 34  2C 22 93 2A 20 48 49 52  |.PRINT#4,".* HIR|
00000040: 45 53 2D 42 49 54 4D 41  50 50 49 4E 47 20 20 48  |ES-BITMAPPING  H|
00000050: 41 52 44 43 4F 50 59 20  46 4F 52 20 43 50 2D 38  |ARDCOPY FOR CP-8|
00000060: 30 20 2A 22 00 70 08 0A  00 9E 38 AC 34 30 39 36  |0 *".p....8.4096|
00000070: 00 7C 08 14 00 2E 4F 50  54 2E 4F 31 00 89 08 1E  |.|....OPT.O1....|
00000080: 00 AC B2 20 24 43 30 30  30 00 BC 08 28 00 49 52  |... $C000...(.IR|
00000090: 56 20 B2 20 24 30 33 31  34 3A 49 52 30 20 B2 20  |V . $0314:IR0 . |
000000A0: 24 45 41 33 31 3A 99 20  B2 20 24 46 46 44 32 3A  |$EA31:. . $FFD2:|
000000B0: A1 4B 45 59 20 B2 20 24  46 46 45 34 00 F9 08 32  |.KEY . $FFE4...2|
000000C0: 00 44 49 20 B2 20 24 46  38 3A 44 4F 20 B2 20 24  |.DI . $F8:DO . $|
000000D0: 46 41 3A 54 49 20 B2 20  24 46 43 3A A4 20 B2 20  |FA:TI . $FC:. . |
000000E0: 24 46 45 3A 44 42 20 B2  20 24 43 45 30 30 3A 54  |$FE:DB . $CE00:T|
000000F0: 42 20 B2 20 24 43 46 30  30 00 47 09 3C 00 43 52  |B . $CF00.G.<.CR|
00000100: 20 B2 20 24 44 45 30 34  3A 54 44 52 20 B2 20 24  | . $DE04:TDR . $|
00000110: 44 45 30 35 3A 53 52 20  B2 20 24 44 45 30 36 3A  |DE05:SR . $DE06:|
00000120: 52 44 52 20 B2 20 24 44  45 30 37 3A 42 55 46 46  |RDR . $DE07:BUFF|
00000130: 45 52 20 B2 20 24 38 30  30 30 3A 42 55 46 80 20  |ER . $8000:BUF. |
00000140: B2 20 24 41 30 30 30 00  57 09 94 02 52 45 43 49  |. $A000.W...RECI|
00000150: 4E 49 54 20 53 45 49 00  69 09 9E 02 4C 44 41 20  |NIT SEI.i...LDA |
00000160: 23 33 3A 53 54 41 20 43  52 00 7D 09 A8 02 4C 44  |#3:STA CR.}...LD|
00000170: 41 20 23 24 39 32 3A 53  54 41 20 43 52 00 A7 09  |A #$92:STA CR...|
00000180: B2 02 4C 44 41 20 23 B3  49 52 31 3A 53 54 41 20  |..LDA #.IR1:STA |
00000190: 49 52 56 3A 4C 44 41 20  23 B1 49 52 31 3A 53 54  |IRV:LDA #.IR1:ST|
000001A0: 41 20 49 52 56 AA 31 00  CD 09 BC 02 4C 44 41 20  |A IRV.1.....LDA |
000001B0: 23 B3 44 42 3A 53 54 41  20 44 49 3A 4C 44 41 20  |#.DB:STA DI:LDA |
000001C0: 23 B1 44 42 3A 53 54 41  20 44 49 AA 31 00 F3 09  |#.DB:STA DI.1...|
000001D0: C6 02 4C 44 41 20 23 B3  44 42 3A 53 54 41 20 44  |..LDA #.DB:STA D|
000001E0: 4F 3A 4C 44 41 20 23 B1  44 42 3A 53 54 41 20 44  |O:LDA #.DB:STA D|
000001F0: 4F AA 31 00 19 0A D0 02  4C 44 41 20 23 B3 54 42  |O.1.....LDA #.TB|
00000200: 3A 53 54 41 20 54 49 3A  4C 44 41 20 23 B1 54 42  |:STA TI:LDA #.TB|
00000210: 3A 53 54 41 20 54 49 AA  31 00 3D 0A DA 02 4C 44  |:STA TI.1.=...LD|
00000220: 41 20 23 B3 54 42 3A 53  54 41 20 A4 3A 4C 44 41  |A #.TB:STA .:LDA|
00000230: 20 23 B1 54 42 3A 53 54  41 20 A4 AA 31 00 45 0A  | #.TB:STA ..1.E.|
00000240: E4 02 43 4C 49 00 4D 0A  EE 02 52 54 53 00 5D 0A  |..CLI.M...RTS.].|
00000250: 20 03 54 49 4D 45 52 20  B2 20 24 38 42 00 6C 0A  | .TIMER . $8B.l.|
00000260: 2A 03 46 4C 41 47 20 B2  20 24 38 44 00 80 0A 3E  |*.FLAG . $8D...>|
00000270: 03 54 49 4D 49 4E 49 54  20 4C 44 59 20 23 30 31  |.TIMINIT LDY #01|
00000280: 00 8E 0A 48 03 53 54 59  20 24 44 44 30 45 00 96  |...H.STY $DD0E..|
00000290: 0A 52 03 44 45 59 00 A4  0A 5C 03 53 54 59 20 54  |.R.DEY...\.STY T|
000002A0: 49 4D 45 52 00 B4 0A 66  03 53 54 59 20 54 49 4D  |IMER...f.STY TIM|
000002B0: 45 52 AA 31 00 C1 0A 70  03 53 54 59 20 46 4C 41  |ER.1...p.STY FLA|
000002C0: 47 00 C9 0A 7A 03 52 54  53 00 D5 0A B6 03 49 52  |G...z.RTS.....IR|
000002D0: 31 20 53 45 49 00 E1 0A  C0 03 4A 53 52 20 47 54  |1 SEI.....JSR GT|
000002E0: 4D 00 EC 0A CA 03 4C 44  41 20 53 52 00 F6 0A D4  |M.....LDA SR....|
000002F0: 03 4C 53 52 20 41 00 05  0B D2 03 42 43 43 20 4B  |.LSR A.....BCC K|
00000300: 45 52 4E 41 4C 00 10 0B  F2 03 4C 44 59 20 23 30  |ERNAL.....LDY #0|
00000310: 00 1C 0B FC 03 4C 44 41  20 52 44 52 00 2B 0B 06  |.....LDA RDR.+..|
00000320: 04 53 54 41 20 28 44 49  29 2C 59 00 37 0B 10 04  |.STA (DI),Y.7...|
00000330: 42 50 4C 20 44 91 45 00  45 0B 24 04 4C 44 41 20  |BPL D.E.E.$.LDA |
00000340: 54 49 4D 45 52 00 54 0B  2E 04 53 54 41 20 28 54  |TIMER.T...STA (T|
00000350: 49 29 2C 59 00 5C 0B 38  04 49 4E 59 00 6C 0B 42  |I),Y.\.8.INY.l.B|
00000360: 04 4C 44 41 20 54 49 4D  45 52 AA 31 00 7B 0B 4C  |.LDA TIMER.1.{.L|
00000370: 04 53 54 41 20 28 54 49  29 2C 59 00 86 0B 56 04  |.STA (TI),Y...V.|
00000380: 49 4E 43 20 54 49 00 91  0B 60 04 49 4E 43 20 54  |INC TI...`.INC T|
00000390: 49 00 A0 0B 74 04 44 91  45 20 49 4E 43 20 44 49  |I...t.D.E INC DI|
000003A0: 00 A8 0B 7E 04 50 4C 41  00 B0 0B 88 04 54 41 59  |...~.PLA.....TAY|
000003B0: 00 B8 0B 92 04 50 4C 41  00 C0 0B 9C 04 54 41 58  |.....PLA.....TAX|
000003C0: 00 C8 0B A6 04 50 4C 41  00 D0 0B B0 04 52 54 49  |.....PLA.....RTI|
000003D0: 00 E3 0B C4 04 4B 45 52  4E 41 4C 20 4A 4D 50 20  |.....KERNAL JMP |
000003E0: 49 52 30 00 F6 0B 1E 05  52 45 43 45 49 56 45 20  |IR0.....RECEIVE |
000003F0: 4C 44 41 20 44 49 00 01  0C 28 05 43 4D 50 20 44  |LDA DI...(.CMP D|
00000400: 4F 00 0D 0C 32 05 42 45  51 20 4E 91 45 00 1E 0C  |O...2.BEQ N.E...|
00000410: 3C 05 87 42 59 54 45 20  4C 44 59 20 23 30 00 2D  |<..BYTE LDY #0.-|
00000420: 0C 46 05 4C 44 41 20 28  44 4F 29 2C 59 00 38 0C  |.F.LDA (DO),Y.8.|
00000430: 50 05 49 4E 43 20 44 4F  00 40 0C 5A 05 53 45 43  |P.INC DO.@.Z.SEC|
00000440: 00 48 0C 64 05 52 54 53  00 54 0C 6E 05 4E 91 45  |.H.d.RTS.T.n.N.E|
00000450: 20 43 4C 43 00 5C 0C 78  05 52 54 53 00 6B 0C D2  | CLC.\.x.RTS.k..|
00000460: 05 52 44 54 20 4C 44 59  20 23 30 00 79 0C DC 05  |.RDT LDY #0.y...|
00000470: 4C 44 41 20 28 A4 29 2C  59 00 83 0C E6 05 49 4E  |LDA (.),Y.....IN|
00000480: 43 20 A4 00 8B 0C F0 05  52 54 53 00 9D 0C 40 06  |C ......RTS...@.|
00000490: 47 54 4D 20 42 49 54 20  24 44 44 30 35 00 AC 0C  |GTM BIT $DD05...|
000004A0: 4A 06 42 56 53 20 4D 53  42 53 45 54 00 B9 0C 54  |J.BVS MSBSET...T|
000004B0: 06 42 49 54 20 46 4C 41  47 00 C4 0C 5E 06 42 50  |.BIT FLAG...^.BP|
000004C0: 4C 20 80 52 00 D2 0C 68  06 49 4E 43 20 54 49 4D  |L .R...h.INC TIM|
000004D0: 45 52 00 DE 0C 72 06 42  4E 45 20 AC AA 33 00 EE  |ER...r.BNE ..3..|
000004E0: 0C 7C 06 49 4E 43 20 54  49 4D 45 52 AA 31 00 02  |.|.INC TIMER.1..|
000004F0: 0D 86 06 4C 44 41 20 23  30 3A 53 54 41 20 46 4C  |...LDA #0:STA FL|
00000500: 41 47 00 0D 0D 90 06 42  45 51 20 80 52 00 21 0D  |AG.....BEQ .R.!.|
00000510: 9A 06 4D 53 42 53 45 54  20 42 49 54 20 46 4C 41  |..MSBSET BIT FLA|
00000520: 47 00 2C 0D A4 06 42 4D  49 20 80 52 00 3A 0D AE  |G.,...BMI .R.:..|
00000530: 06 49 4E 43 20 54 49 4D  45 52 00 46 0D B8 06 42  |.INC TIMER.F...B|
00000540: 4E 45 20 AC AA 33 00 56  0D C2 06 49 4E 43 20 54  |NE ..3.V...INC T|
00000550: 49 4D 45 52 AA 31 00 6B  0D CC 06 4C 44 41 20 24  |IMER.1.k...LDA $|
00000560: 46 46 3A 53 54 41 20 46  4C 41 47 00 76 0D D6 06  |FF:STA FLAG.v...|
00000570: 80 52 20 52 54 53 00 86  0D 12 07 44 49 53 41 42  |.R RTS.....DISAB|
00000580: 4C 45 20 53 45 49 00 98  0D 1C 07 4C 44 41 20 23  |LE SEI.....LDA #|
00000590: 33 3A 53 54 41 20 43 52  00 C2 0D 26 07 4C 44 41  |3:STA CR...&.LDA|
000005A0: 20 23 B3 49 52 30 3A 53  54 41 20 49 52 56 3A 4C  | #.IR0:STA IRV:L|
000005B0: 44 41 20 23 B1 49 52 30  3A 53 54 41 20 49 52 56  |DA #.IR0:STA IRV|
000005C0: AA 31 00 CA 0D 30 07 43  4C 49 00 D2 0D 3A 07 52  |.1...0.CLI...:.R|
000005D0: 54 53 00 E6 0D 8A 07 3B  42 55 46 46 45 52 20 B2  |TS.....;BUFFER .|
000005E0: 20 24 38 30 30 30 00 F8  0D 94 07 3B 42 55 46 80  | $8000.....;BUF.|
000005F0: 20 B2 20 24 41 30 30 30  00 04 0E 9E 07 50 20 B2  | . $A000.....P .|
00000600: 20 24 38 45 00 1D 0E D0  07 52 45 43 B0 44 20 4C  | $8E.....REC.D L|
00000610: 44 41 20 23 30 3A 53 54  41 20 31 39 38 00 49 0E  |DA #0:STA 198.I.|
00000620: DA 07 4C 44 41 20 23 B3  42 55 46 46 45 52 3A 53  |..LDA #.BUFFER:S|
00000630: 54 41 20 50 3A 4C 44 41  20 23 B1 42 55 46 46 45  |TA P:LDA #.BUFFE|
00000640: 52 3A 53 54 41 20 50 AA  31 00 59 0E E4 07 4A 53  |R:STA P.1.Y...JS|
00000650: 52 20 52 45 43 49 4E 49  54 00 69 0E EE 07 4A 53  |R RECINIT.i...JS|
00000660: 52 20 54 49 4D 49 4E 49  54 00 7B 0E F8 07 4D 41  |R TIMINIT.{...MA|
00000670: 49 4E 20 4A 53 52 20 A1  4B 45 59 00 85 0E 02 08  |IN JSR .KEY.....|
00000680: 42 45 51 20 9A 00 95 0E  0C 08 45 58 49 54 20 4C  |BEQ ......EXIT L|
00000690: 44 59 20 23 30 00 A2 0E  16 08 4C 44 41 20 23 24  |DY #0.....LDA #$|
000006A0: 46 46 00 B0 0E 20 08 53  54 41 20 28 50 29 2C 59  |FF... .STA (P),Y|
000006B0: 00 B8 0E 2A 08 54 59 41  00 C0 0E 34 08 49 4E 59  |...*.TYA...4.INY|
000006C0: 00 CE 0E 3E 08 53 54 41  20 28 50 29 2C 59 00 D6  |...>.STA (P),Y..|
000006D0: 0E 48 08 49 4E 59 00 E4  0E 52 08 53 54 41 20 28  |.H.INY...R.STA (|
000006E0: 50 29 2C 59 00 F4 0E 5C  08 4A 4D 50 20 44 49 53  |P),Y...\.JMP DIS|
000006F0: 41 42 4C 45 00 06 0F 66  08 9A 20 4A 53 52 20 52  |ABLE...f.. JSR R|
00000700: 45 43 45 49 56 45 00 13  0F 70 08 42 43 43 20 4D  |ECEIVE...p.BCC M|
00000710: 41 49 4E 00 20 0F 7A 08  43 4D 50 20 23 24 38 30  |AIN. .z.CMP #$80|
00000720: 00 2D 0F 84 08 42 43 43  20 53 A4 52 45 00 35 0F  |.-...BCC S.RE.5.|
00000730: 8E 08 50 48 41 00 42 0F  98 08 4C 44 41 20 23 22  |..PHA.B...LDA #"|
00000740: 2E 22 00 4C 0F A2 08 4A  53 52 20 99 00 54 0F AC  |.".L...JSR ..T..|
00000750: 08 50 4C 41 00 64 0F B6  08 53 A4 52 45 20 4C 44  |.PLA.d...S.RE LD|
00000760: 59 20 23 30 00 72 0F C0  08 53 54 41 20 28 50 29  |Y #0.r...STA (P)|
00000770: 2C 59 00 7C 0F CA 08 49  4E 43 20 50 00 88 0F D4  |,Y.|...INC P....|
00000780: 08 42 4E 45 20 AC AA 33  00 94 0F DE 08 49 4E 43  |.BNE ..3.....INC|
00000790: 20 50 AA 31 00 A0 0F E8  08 4C 44 58 20 50 AA 31  | P.1.....LDX P.1|
000007A0: 00 AF 0F F2 08 43 50 58  20 23 B1 42 55 46 80 00  |.....CPX #.BUF..|
000007B0: BC 0F FC 08 42 43 53 20  45 58 49 54 00 C9 0F 06  |....BCS EXIT....|
000007C0: 09 43 4D 50 20 23 24 38  30 00 D6 0F 10 09 42 43  |.CMP #$80.....BC|
000007D0: 43 20 4D 41 49 4E 00 E2  0F 1A 09 4A 53 52 20 52  |C MAIN.....JSR R|
000007E0: 44 54 00 F0 0F 24 09 53  54 41 20 28 50 29 2C 59  |DT...$.STA (P),Y|
000007F0: 00 FC 0F 2E 09 4A 53 52  20 52 44 54 00 04 10 38  |.....JSR RDT...8|
00000800: 09 49 4E 59 00 12 10 42  09 53 54 41 20 28 50 29  |.INY...B.STA (P)|
00000810: 2C 59 00 1C 10 4C 09 4C  44 41 20 50 00 24 10 56  |,Y...L.LDA P.$.V|
00000820: 09 43 4C 43 00 2F 10 60  09 41 44 43 20 23 32 00  |.CLC./.`.ADC #2.|
00000830: 39 10 6A 09 53 54 41 20  50 00 45 10 74 09 4C 44  |9.j.STA P.E.t.LD|
00000840: 41 20 50 AA 31 00 50 10  7E 09 41 44 43 20 23 30  |A P.1.P.~.ADC #0|
00000850: 00 5C 10 88 09 53 54 41  20 50 AA 31 00 6B 10 92  |.\...STA P.1.k..|
00000860: 09 43 4D 50 20 23 B1 42  55 46 80 00 77 10 9C 09  |.CMP #.BUF..w...|
00000870: 42 43 43 20 AC AA 34 00  84 10 A6 09 4A 4D 50 20  |BCC ..4.....JMP |
00000880: 45 58 49 54 00 91 10 B0  09 4A 4D 50 20 4D 41 49  |EXIT.....JMP MAI|
00000890: 4E 00 9E 10 E2 09 50 4C  41 59 20 53 45 49 00 B0  |N.....PLAY SEI..|
000008A0: 10 EC 09 4C 44 41 20 23  33 3A 53 54 41 20 43 52  |...LDA #3:STA CR|
000008B0: 00 C4 10 F6 09 4C 44 41  20 23 24 31 32 3A 53 54  |.....LDA #$12:ST|
000008C0: 41 20 43 52 00 F0 10 00  0A 4C 44 41 20 23 B3 42  |A CR.....LDA #.B|
000008D0: 55 46 46 45 52 3A 53 54  41 20 50 3A 4C 44 41 20  |UFFER:STA P:LDA |
000008E0: 23 B1 42 55 46 46 45 52  3A 53 54 41 20 50 AA 31  |#.BUFFER:STA P.1|
000008F0: 00 1A 11 0A 0A 4C 44 41  20 23 B3 49 52 32 3A 53  |.....LDA #.IR2:S|
00000900: 54 41 20 49 52 56 3A 4C  44 41 20 23 B1 49 52 32  |TA IRV:LDA #.IR2|
00000910: 3A 53 54 41 20 49 52 56  AA 31 00 44 11 14 0A 4C  |:STA IRV.1.D...L|
00000920: 44 41 20 23 B3 30 3A 53  54 41 20 54 49 4D 45 52  |DA #.0:STA TIMER|
00000930: 3A 4C 44 41 20 23 B1 30  3A 53 54 41 20 54 49 4D  |:LDA #.0:STA TIM|
00000940: 45 52 AA 31 00 4C 11 1E  0A 43 4C 49 00 5A 11 32  |ER.1.L...CLI.Z.2|
00000950: 0A 53 80 20 4C 44 59 20  23 32 00 6A 11 3C 0A 4C  |.S. LDY #2.j.<.L|
00000960: 44 41 20 54 49 4D 45 52  AA 31 00 78 11 46 0A 43  |DA TIMER.1.x.F.C|
00000970: 4D 50 20 28 50 29 2C 59  00 83 11 50 0A 42 43 43  |MP (P),Y...P.BCC|
00000980: 20 53 80 00 8B 11 5A 0A  44 45 59 00 99 11 64 0A  | S....Z.DEY...d.|
00000990: 4C 44 41 20 54 49 4D 45  52 00 A7 11 6E 0A 43 4D  |LDA TIMER...n.CM|
000009A0: 50 20 28 50 29 2C 59 00  B2 11 78 0A 42 43 43 20  |P (P),Y...x.BCC |
000009B0: 53 80 00 BA 11 82 0A 44  45 59 00 C8 11 8C 0A 4C  |S......DEY.....L|
000009C0: 44 41 20 28 50 29 2C 59  00 D5 11 96 0A 43 4D 50  |DA (P),Y.....CMP|
000009D0: 20 23 24 46 46 00 E1 11  A0 0A 42 4E 45 20 AC AA  | #$FF.....BNE ..|
000009E0: 34 00 EE 11 AA 0A 4A 4D  50 20 45 58 49 54 00 FF  |4.....JMP EXIT..|
000009F0: 11 B4 0A 4A 53 52 20 54  52 41 4E 53 4D 49 54 00  |...JSR TRANSMIT.|
00000A00: 0C 12 BE 0A 4C 44 41 20  23 22 2E 22 00 16 12 C8  |....LDA #"."....|
00000A10: 0A 4A 53 52 20 99 00 20  12 D2 0A 4C 44 41 20 50  |.JSR .. ...LDA P|
00000A20: 00 2B 12 DC 0A 41 44 43  20 23 33 00 35 12 E6 0A  |.+...ADC #3.5...|
00000A30: 53 54 41 20 50 00 41 12  F0 0A 4C 44 41 20 50 AA  |STA P.A...LDA P.|
00000A40: 31 00 4C 12 FA 0A 41 44  43 20 23 30 00 58 12 04  |1.L...ADC #0.X..|
00000A50: 0B 53 54 41 20 50 AA 31  00 67 12 0E 0B 43 4D 50  |.STA P.1.g...CMP|
00000A60: 20 23 B1 42 55 46 80 00  75 12 18 0B 42 43 43 20  | #.BUF..u...BCC |
00000A70: 24 43 31 38 33 00 82 12  22 0B 4A 4D 50 20 45 58  |$C183...".JMP EX|
00000A80: 49 54 00 91 12 2C 0B 9A  53 80 20 4C 44 59 20 23  |IT...,..S. LDY #|
00000A90: 30 00 9F 12 36 0B 4C 44  41 20 28 50 29 2C 59 00  |0...6.LDA (P),Y.|
00000AA0: AA 12 40 0B 42 4D 49 20  53 80 00 BB 12 4A 0B 4A  |..@.BMI S....J.J|
00000AB0: 53 52 20 54 52 41 4E 53  4D 49 54 00 C5 12 54 0B  |SR TRANSMIT...T.|
00000AC0: 49 4E 43 20 50 00 D1 12  5E 0B 42 4E 45 20 9A 53  |INC P...^.BNE .S|
00000AD0: 80 00 DD 12 68 0B 49 4E  43 20 50 AA 31 00 E9 12  |....h.INC P.1...|
00000AE0: 72 0B 4C 44 58 20 50 AA  31 00 F8 12 7C 0B 43 50  |r.LDX P.1...|.CP|
00000AF0: 58 20 23 B1 42 55 46 80  00 04 13 86 0B 42 43 43  |X #.BUF......BCC|
00000B00: 20 9A 53 80 00 11 13 90  0B 4A 4D 50 20 45 58 49  | .S......JMP EXI|
00000B10: 54 00 22 13 C2 0B 54 52  41 4E 53 4D 49 54 20 50  |T."...TRANSMIT P|
00000B20: 48 41 00 2F 13 CC 0B 92  20 4C 44 41 20 53 52 00  |HA./.... LDA SR.|
00000B30: 39 13 D6 0B 4C 53 52 20  41 00 43 13 E0 0B 4C 53  |9...LSR A.C...LS|
00000B40: 52 20 41 00 4D 13 EA 0B  42 43 43 20 92 00 55 13  |R A.M...BCC ..U.|
00000B50: F4 0B 50 4C 41 00 61 13  FE 0B 53 54 41 20 54 44  |..PLA.a...STA TD|
00000B60: 52 00 69 13 08 0C 52 54  53 00 75 13 44 0C 49 52  |R.i...RTS.u.D.IR|
00000B70: 32 20 53 45 49 00 83 13  4E 0C 49 4E 43 20 54 49  |2 SEI...N.INC TI|
00000B80: 4D 45 52 00 8F 13 58 0C  42 4E 45 20 AC AA 33 00  |MER...X.BNE ..3.|
00000B90: 9F 13 62 0C 49 4E 43 20  54 49 4D 45 52 AA 31 00  |..b.INC TIMER.1.|
00000BA0: AB 13 6C 0C 4A 4D 50 20  49 52 30 00 B2 13 80 0C  |..l.JMP IR0.....|
00000BB0: 2E 80 00 00 00                                    |.....           |

.......1,9,1,"@:MIDI OBJ.,P,W".+....OPEN
4,4.D....PRINT#4,".* HIRES-BITMAPPING  H
ARDCOPY FOR CP-80 *".P....8.4096.|....OP
T.O1....... $C000...(.IRV . $0314:IR0 . 
$EA31:. . $FFD2:.KEY . $FFE4...2.DI . $F
8:DO . $FA:TI . $FC:. . $FE:DB . $CE00:T
B . $CF00.G.<.CR . $DE04:TDR . $DE05:SR 
. $DE06:RDR . $DE07:BUFFER . $8000:BUF. 
. $A000.W...RECINIT SEI.I...LDA #3:STA C
R.}...LDA #$92:STA CR.....LDA #.IR1:STA 
IRV:LDA #.IR1:STA IRV.1.M...LDA #.DB:STA
 DI:LDA #.DB:STA DI.1...F.LDA #.DB:STA D
O:LDA #.DB:STA DO.1...P.LDA #.TB:STA TI:
LDA #.TB:STA TI.1.=.Z.LDA #.TB:STA .:LDA
 #.TB:STA ..1.E...CLI.M...RTS.]. .TIMER 
. $8B.L.*.FLAG . $8D...>.TIMINIT LDY #01
...H.STY $DD0E...R.DEY...\.STY TIMER...F
.STY TIMER.1.A.P.STY FLAG.I.Z.RTS.U...IR
1 SEI.....JSR GTM...J.LDA SR...T.LSR A..
.R.BCC KERNAL.....LDY #0.....LDA RDR.+..
.STA (DI),Y.7...BPL D.E.E.$.LDA TIMER.T.
..STA (TI),Y.\.8.INY.L.B.LDA TIMER.1.{.L
.STA (TI),Y...V.INC TI...`.INC TI. .T.D.
E INC DI...~.PLA.....TAY.....PLA.....TAX
.H...PLA.P...RTI...D.KERNAL JMP IR0.....
RECEIVE LDA DI...(.CMP DO...2.BEQ N.E...
<..BYTE LDY #0.-.F.LDA (DO),Y.8.P.INC DO
.@.Z.SEC.H.D.RTS.T.N.N.E CLC.\.X.RTS.K.R
.RDT LDY #0.Y...LDA (.),Y.....INC ......
RTS...@.GTM BIT $DD05...J.BVS MSBSET...T
.BIT FLAG.D.^.BPL .R.R.H.INC TIMER...R.B
NE ..3...|.INC TIMER.1.....LDA #0:STA FL
AG.....BEQ .R.!...MSBSET BIT FLAG.,...BM
I .R.:...INC TIMER.F...BNE ..3.V.B.INC T
IMER.1.K.L.LDA $FF:STA FLAG.V.V..R RTS..
...DISABLE SEI.....LDA #3:STA CR.B.&.LDA
 #.IR0:STA IRV:LDA #.IR0:STA IRV.1.J.0.C
LI.R.:.RTS.....;BUFFER . $8000.....;BUF.
 . $A000.....P . $8E...P.REC.D LDA #0:ST
A 198.I.Z.LDA #.BUFFER:STA P:LDA #.BUFFE
R:STA P.1.Y...JSR RECINIT.I...JSR TIMINI
T.{...MAIN JSR .KEY.....BEQ ......EXIT L
DY #0.....LDA #$FF... .STA (P),Y...*.TYA
...4.INY.N.>.STA (P),Y.V.H.INY...R.STA (
P),Y...\.JMP DISABLE...F.. JSR RECEIVE..
.P.BCC MAIN. .Z.CMP #$80.-...BCC S.RE.5.
..PHA.B...LDA #".".L...JSR ..T...PLA.D..
.S.RE LDY #0.R...STA (P),Y.|.J.INC P...T
.BNE ..3.....INC P.1. ...LDX P.1.....CPX
 #.BUF......BCS EXIT.I...CMP #$80.V...BC
C MAIN.....JSR RDT...$.STA (P),Y.....JSR
 RDT...8.INY...B.STA (P),Y...L.LDA P.$.V
.CLC./.`.ADC #2.9.J.STA P.E.T.LDA P.1.P.
~.ADC #0.\...STA P.1.K...CMP #.BUF..W...
BCC ..4.....JMP EXIT.....JMP MAIN.....PL
AY SEI.....LDA #3:STA CR.D...LDA #$12:ST
A CR.....LDA #.BUFFER:STA P:LDA #.BUFFER
:STA P.1.....LDA #.IR2:STA IRV:LDA #.IR2
:STA IRV.1.D...LDA #.0:STA TIMER:LDA #.0
:STA TIMER.1.L...CLI.Z.2.S. LDY #2.J.<.L
DA TIMER.1.X.F.CMP (P),Y...P.BCC S....Z.
DEY...D.LDA TIMER...N.CMP (P),Y...X.BCC 
S......DEY.H...LDA (P),Y.U...CMP #$FF...
 .BNE ..4.....JMP EXIT.....JSR TRANSMIT.
....LDA #"."...H.JSR .. .R.LDA P.+...ADC
 #3.5...STA P.A...LDA P.1.L...ADC #0.X..
.STA P.1.G...CMP #.BUF..U...BCC $C183...
".JMP EXIT...,..S. LDY #0...6.LDA (P),Y.
..@.BMI S....J.JSR TRANSMIT.E.T.INC P.Q.
^.BNE .S....H.INC P.1...R.LDX P.1...|.CP
X #.BUF......BCC .S......JMP EXIT.".B.TR
ANSMIT PHA./.L.. LDA SR.9.V.LSR A.C...LS
R A.M...BCC ..U...PLA.A...STA TDR.I...RT
S.U.D.IR2 SEI...N.INC TIMER...X.BNE ..3.
..B.INC TIMER.1...L.JMP IR0..........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL