COLOR 80.SRC
FILE INFORMATION
FILENAME(S): COLOR 80.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
1f52e023c151e70dc4d92a6e0c8638a0dc0b4819153d86766a41ebd2aa211380
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | COLOR 80.SRC | PRG | DuncanTwain | 7 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1E 1C E8 03 8F 20 53 41 56 45 22 30 3A 43 |....... SAVE"0:C| 00000010: 4F 4C 4F 52 20 38 30 2E 53 52 43 22 2C 38 00 68 |OLOR 80.SRC",8.h| 00000020: 1C F2 03 8F 20 2A 2A 20 53 4F 55 52 43 45 20 53 |.... ** SOURCE S| 00000030: 54 41 52 54 2D 55 50 20 49 4E 20 50 4F 57 45 52 |TART-UP IN POWER| 00000040: 20 41 53 53 45 4D 42 4C 45 52 20 46 4F 52 4D 41 | ASSEMBLER FORMA| 00000050: 54 20 28 41 4B 41 20 42 55 44 44 59 2D 31 32 38 |T (AKA BUDDY-128| 00000060: 20 53 59 53 54 45 4D 29 00 72 1C FC 03 9E 34 30 | SYSTEM).r....40| 00000070: 30 30 00 7E 1C 06 04 AC B2 24 30 43 30 30 00 87 |00.~.....$0C00..| 00000080: 1C 10 04 2E 4D 45 4D 00 8D 1C 1A 04 3B 00 A1 1C |....MEM.....;...| 00000090: 24 04 3B 20 E7 20 38 30 20 E7 20 48 49 AB 52 45 |$.; . 80 . HI.RE| 000000A0: 53 00 BE 1C 2E 04 3B 20 43 4F 4D B9 49 54 45 20 |S.....; COM.ITE | 000000B0: A4 20 52 47 42 20 43 91 56 45 52 54 45 52 00 DE |. RGB C.VERTER..| 000000C0: 1C 38 04 3B 20 4D 41 54 54 48 45 57 20 50 41 4C |.8.; MATTHEW PAL| 000000D0: 43 49 43 20 AB 20 31 36 4B 20 56 32 2E 31 00 E4 |CIC . 16K V2.1..| 000000E0: 1C 42 04 3B 00 08 1D 4C 04 4A 53 52 20 43 4C 45 |.B.;...L.JSR CLE| 000000F0: 41 52 20 20 20 20 20 20 3B 4D 41 49 4E 20 53 55 |AR ;MAIN SU| 00000100: 42 52 4F 55 54 49 4E 45 00 22 1D 56 04 4A 53 52 |BROUTINE.".V.JSR| 00000110: 20 42 4C 41 4E 4B 20 20 20 20 20 20 3B 54 41 42 | BLANK ;TAB| 00000120: 4C 45 00 2F 1D 60 04 4A 53 52 20 43 4F 50 59 00 |LE./.`.JSR COPY.| 00000130: 3C 1D 6A 04 4A 53 52 20 53 48 8B 54 00 4C 1D 74 |<.j.JSR SH.T.L.t| 00000140: 04 4A 53 52 20 56 49 43 A4 56 44 43 00 5A 1D 7E |.JSR VIC.VDC.Z.~| 00000150: 04 4A 53 52 20 48 49 54 4D 45 00 6A 1D 88 04 4A |.JSR HITME.j...J| 00000160: 53 52 20 55 4E 42 4C 41 4E 4B 00 72 1D 92 04 52 |SR UNBLANK.r...R| 00000170: 54 53 00 78 1D 9C 04 3B 00 A7 1D A6 04 43 4C 45 |TS.x...;.....CLE| 00000180: 41 52 20 B2 20 AC 20 20 20 20 20 20 20 20 20 20 |AR . . | 00000190: 3B 43 4C 45 41 52 20 56 44 43 20 57 AD 42 4C 4F |;CLEAR VDC W.BLO| 000001A0: 43 4B 20 46 49 4C 4C 00 D2 1D B0 04 4C 44 58 20 |CK FILL.....LDX | 000001B0: 23 31 38 20 20 20 20 20 20 20 20 20 20 20 20 3B |#18 ;| 000001C0: 53 45 54 20 83 20 50 4F 49 4E 54 45 52 20 54 4F |SET . POINTER TO| 000001D0: 20 30 00 FB 1D BA 04 4C 44 41 20 23 30 20 20 20 | 0.....LDA #0 | 000001E0: 20 20 20 20 20 20 20 20 20 20 3B 81 20 53 54 41 | ;. STA| 000001F0: 52 54 20 4F 46 20 48 49 52 45 53 00 0A 1E C4 04 |RT OF HIRES.....| 00000200: 4A 53 52 20 57 52 49 54 45 52 00 12 1E CE 04 49 |JSR WRITER.....I| 00000210: 4E 58 00 21 1E D8 04 4A 53 52 20 57 52 49 54 45 |NX.!...JSR WRITE| 00000220: 52 00 4B 1E E2 04 4C 44 41 20 23 30 20 20 20 20 |R.K...LDA #0 | 00000230: 20 20 20 20 20 20 20 20 20 3B 53 45 54 20 46 49 | ;SET FI| 00000240: 4C 4C 20 42 59 54 45 20 A4 20 30 00 59 1E EC 04 |LL BYTE . 0.Y...| 00000250: 4A 53 52 20 57 52 49 54 45 00 80 1E F6 04 4C 44 |JSR WRITE.....LD| 00000260: 58 20 23 32 34 20 20 20 20 20 20 20 20 20 20 20 |X #24 | 00000270: 20 3B 43 4C 45 41 52 20 42 49 54 20 37 20 4F 46 | ;CLEAR BIT 7 OF| 00000280: 00 A6 1E 00 05 4A 53 52 20 52 45 45 44 45 52 20 |.....JSR REEDER | 00000290: 20 20 20 20 20 20 20 20 3B 52 45 47 49 53 54 45 | ;REGISTE| 000002A0: 52 20 32 34 20 A4 00 CE 1E 0A 05 AF 20 23 31 32 |R 24 ....... #12| 000002B0: 37 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 4C |7 ;SEL| 000002C0: 45 43 54 20 42 4C 4F 43 4B 20 46 49 4C 4C 00 DD |ECT BLOCK FILL..| 000002D0: 1E 14 05 4A 53 52 20 57 52 49 54 45 52 00 21 1F |...JSR WRITER.!.| 000002E0: 1E 05 4C 44 59 20 23 36 34 20 20 20 20 20 20 20 |..LDY #64 | 000002F0: 20 20 20 20 20 3B 43 4C 45 41 52 20 36 34 20 50 | ;CLEAR 64 P| 00000300: 41 47 45 53 20 28 36 34 AC 32 35 36 B2 31 36 33 |AGES (64.256.163| 00000310: 38 34 20 42 59 54 45 53 20 A4 20 43 4C 45 41 52 |84 BYTES . CLEAR| 00000320: 29 00 4D 1F 28 05 4C 44 58 20 23 33 30 20 20 20 |).M.(.LDX #30 | 00000330: 20 20 20 20 20 20 20 20 20 3B 52 45 47 20 33 30 | ;REG 30| 00000340: 20 49 53 20 57 B0 44 20 43 4F 55 4E 54 00 76 1F | IS W.D COUNT.v.| 00000350: 32 05 4C 44 41 20 23 30 20 20 20 20 20 20 20 20 |2.LDA #0 | 00000360: 20 20 20 20 20 3B 30 20 57 B0 44 53 B2 32 35 36 | ;0 W.DS.256| 00000370: 20 42 59 54 45 53 00 7C 1F 3C 05 3B 00 8B 1F 46 | BYTES.|.<.;...F| 00000380: 05 43 4C 45 41 52 31 20 B2 20 AC 00 9A 1F 50 05 |.CLEAR1 . ....P.| 00000390: 4A 53 52 20 57 52 49 54 45 52 00 A2 1F 5A 05 44 |JSR WRITER...Z.D| 000003A0: 45 59 00 B1 1F 64 05 42 4E 45 20 43 4C 45 41 52 |EY...d.BNE CLEAR| 000003B0: 31 00 B7 1F 6E 05 3B 00 BF 1F 78 05 52 54 53 00 |1...n.;...x.RTS.| 000003C0: C5 1F 82 05 3B 00 F0 1F 8C 05 53 48 8B 54 20 B2 |....;.....SH.T .| 000003D0: 20 AC 20 20 20 20 20 20 20 20 20 20 3B 54 52 41 | . ;TRA| 000003E0: 4E 53 4C 41 54 45 20 43 4F 4C B0 20 49 4E 46 4F |NSLATE COL. INFO| 000003F0: 00 FB 1F 96 05 4C 44 41 20 23 30 00 07 20 A0 05 |.....LDA #0.. ..| 00000400: 53 54 41 20 24 46 41 00 30 20 AA 05 4C 44 41 20 |STA $FA.0 ..LDA | 00000410: 23 24 31 33 20 20 20 20 20 20 20 20 20 20 20 3B |#$13 ;| 00000420: 43 4F 4C B0 20 53 54 41 52 54 20 24 31 33 30 30 |COL. START $1300| 00000430: 00 55 20 B4 05 53 54 41 20 24 46 42 20 20 20 20 |.U ..STA $FB | 00000440: 20 20 20 20 20 20 20 20 3B 43 91 56 45 52 54 20 | ;C.VERT | 00000450: 24 31 33 30 30 00 6D 20 BE 05 4A 53 52 20 43 91 |$1300.m ..JSR C.| 00000460: 56 20 20 20 20 20 20 20 20 20 20 20 3B 00 92 20 |V ;.. | 00000470: C8 05 49 4E 43 20 24 46 42 20 20 20 20 20 20 20 |..INC $FB | 00000480: 20 20 20 20 20 3B 43 91 56 45 52 54 20 24 31 34 | ;C.VERT $14| 00000490: 30 30 00 9E 20 D2 05 4A 53 52 20 43 91 56 00 C3 |00.. ..JSR C.V..| 000004A0: 20 DC 05 49 4E 43 20 24 46 42 20 20 20 20 20 20 | ..INC $FB | 000004B0: 20 20 20 20 20 20 3B 43 91 56 45 52 54 20 24 31 | ;C.VERT $1| 000004C0: 35 30 30 00 CF 20 E6 05 4A 53 52 20 43 91 56 00 |500.. ..JSR C.V.| 000004D0: F4 20 F0 05 49 4E 43 20 24 46 42 20 20 20 20 20 |. ..INC $FB | 000004E0: 20 20 20 20 20 20 20 3B 43 91 56 45 52 54 20 24 | ;C.VERT $| 000004F0: 31 36 30 30 00 00 21 FA 05 4A 53 52 20 43 91 56 |1600..!..JSR C.V| 00000500: 00 08 21 04 06 52 54 53 00 0E 21 0E 06 3B 00 1A |..!..RTS..!..;..| 00000510: 21 18 06 43 91 56 20 B2 20 AC 00 25 21 22 06 4C |!..C.V . ..%!".L| 00000520: 44 59 20 23 30 00 2B 21 2C 06 3B 00 53 21 36 06 |DY #0.+!,.;.S!6.| 00000530: 4E 49 42 42 4C 45 53 20 B2 20 AC 20 20 20 20 20 |NIBBLES . . | 00000540: 20 20 20 3B 43 91 56 45 52 54 20 81 45 47 52 4F | ;C.VERT .EGRO| 00000550: 55 4E 44 00 72 21 40 06 4C 44 41 20 28 24 46 41 |UND.r!@.LDA ($FA| 00000560: 29 2C 59 20 20 20 20 20 20 20 20 3B A1 20 43 4F |),Y ;. CO| 00000570: 4C B0 00 7E 21 4A 06 53 54 41 20 24 46 43 00 A9 |L..~!J.STA $FC..| 00000580: 21 54 06 4C 53 52 20 20 20 20 20 20 20 20 20 20 |!T.LSR | 00000590: 20 20 20 20 20 20 3B 53 48 8B 54 20 81 45 47 52 | ;SH.T .EGR| 000005A0: 4F 55 4E 44 20 44 4F 57 4E 00 D0 21 5E 06 4C 53 |OUND DOWN..!^.LS| 000005B0: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R | 000005C0: 20 3B A4 20 42 4F 54 A4 4D 20 4E 49 42 42 4C 45 | ;. BOT.M NIBBLE| 000005D0: 00 D8 21 68 06 4C 53 52 00 E0 21 72 06 4C 53 52 |..!h.LSR..!r.LSR| 000005E0: 00 E8 21 7C 06 54 41 58 00 07 22 86 06 4C 44 41 |..!|.TAX.."..LDA| 000005F0: 20 43 4F 4C B0 53 2C 58 20 20 20 20 20 20 20 3B | COL.S,X ;| 00000600: A1 20 A2 20 C5 55 45 00 2D 22 90 06 53 54 41 20 |. . .UE.-"..STA | 00000610: 24 46 44 20 20 20 20 20 20 20 20 20 20 20 20 3B |$FD ;| 00000620: 53 A4 52 45 20 81 45 47 52 4F 55 4E 44 00 60 22 |S.RE .EGROUND.`"| 00000630: 9A 06 4C 44 41 20 24 46 43 20 20 20 20 20 20 20 |..LDA $FC | 00000640: 20 20 20 20 20 3B 52 45 54 52 49 45 56 45 20 B0 | ;RETRIEVE .| 00000650: 49 47 49 4E 41 4C 20 43 4F 4C B0 20 42 59 54 45 |IGINAL COL. BYTE| 00000660: 00 94 22 A4 06 41 53 4C 20 20 20 20 20 20 20 20 |.."..ASL | 00000670: 20 20 20 20 20 20 20 20 3B 53 48 8B 54 20 4C 45 | ;SH.T LE| 00000680: 46 54 20 A4 20 43 4C 45 41 52 20 A4 50 20 4E 49 |FT . CLEAR .P NI| 00000690: 42 42 4C 45 00 9C 22 AE 06 41 53 4C 00 A4 22 B8 |BBLE.."..ASL..".| 000006A0: 06 41 53 4C 00 AC 22 C2 06 41 53 4C 00 DD 22 CC |.ASL.."..ASL..".| 000006B0: 06 4C 53 52 20 20 20 20 20 20 20 20 20 20 20 20 |.LSR | 000006C0: 20 20 20 20 3B 4D 4F 56 45 20 42 41 43 4B 20 A4 | ;MOVE BACK .| 000006D0: 20 42 4F 54 A4 4D 20 4E 49 42 42 4C 45 00 E5 22 | BOT.M NIBBLE.."| 000006E0: D6 06 4C 53 52 00 ED 22 E0 06 4C 53 52 00 F5 22 |..LSR.."..LSR.."| 000006F0: EA 06 4C 53 52 00 FD 22 F4 06 54 41 58 00 1C 23 |..LSR.."..TAX..#| 00000700: FE 06 4C 44 41 20 43 4F 4C B0 53 2C 58 20 20 20 |..LDA COL.S,X | 00000710: 20 20 20 20 3B A1 20 A2 20 C5 55 45 00 50 23 08 | ;. . .UE.P#.| 00000720: 07 41 53 4C 20 20 20 20 20 20 20 20 20 20 20 20 |.ASL | 00000730: 20 20 20 20 3B 4D 4F 56 45 20 42 41 43 4B 47 52 | ;MOVE BACKGR| 00000740: 4F 55 4E 44 20 A4 20 A4 50 20 4E 49 42 42 4C 45 |OUND . .P NIBBLE| 00000750: 00 58 23 12 07 41 53 4C 00 60 23 1C 07 41 53 4C |.X#..ASL.`#..ASL| 00000760: 00 68 23 26 07 41 53 4C 00 9E 23 30 07 41 44 43 |.h#&.ASL..#0.ADC| 00000770: 20 24 46 44 20 20 20 20 20 20 20 20 20 20 20 20 | $FD | 00000780: 3B 43 4F 4D 42 49 4E 45 20 81 45 47 52 4F 55 4E |;COMBINE .EGROUN| 00000790: 44 20 AF 20 42 41 43 4B 47 52 4F 55 4E 44 00 AE |D . BACKGROUND..| 000007A0: 23 3A 07 53 54 41 20 28 24 46 41 29 2C 59 00 B6 |#:.STA ($FA),Y..| 000007B0: 23 44 07 49 4E 59 00 C6 23 4E 07 42 4E 45 20 4E |#D.INY..#N.BNE N| 000007C0: 49 42 42 4C 45 53 00 CE 23 58 07 52 54 53 00 D4 |IBBLES..#X.RTS..| 000007D0: 23 62 07 3B 00 F7 23 6C 07 43 4F 4C B0 53 20 B2 |#b.;..#l.COL.S .| 000007E0: 20 AC 20 20 20 20 20 20 20 20 20 3B 34 30 20 43 | . ;40 C| 000007F0: 4F 4C 20 43 4F 4C B0 00 15 24 76 07 2E 42 59 54 |OL COL...$v..BYT| 00000800: 45 20 20 30 20 20 20 20 20 20 20 20 20 20 20 3B |E 0 ;| 00000810: 42 4C 41 43 4B 00 33 24 80 07 2E 42 59 54 45 20 |BLACK.3$...BYTE | 00000820: 31 35 20 20 20 20 20 20 20 20 20 20 20 3B 57 48 |15 ;WH| 00000830: 49 54 45 00 4F 24 8A 07 2E 42 59 54 45 20 20 38 |ITE.O$...BYTE 8| 00000840: 20 20 20 20 20 20 20 20 20 20 20 3B 52 45 44 00 | ;RED.| 00000850: 6C 24 94 07 2E 42 59 54 45 20 20 37 20 20 20 20 |l$...BYTE 7 | 00000860: 20 20 20 20 20 20 20 3B 43 59 41 4E 00 8B 24 9E | ;CYAN..$.| 00000870: 07 2E 42 59 54 45 20 31 30 20 20 20 20 20 20 20 |..BYTE 10 | 00000880: 20 20 20 20 3B 50 55 52 50 4C 45 00 A9 24 A8 07 | ;PURPLE..$..| 00000890: 2E 42 59 54 45 20 20 34 20 20 20 20 20 20 20 20 |.BYTE 4 | 000008A0: 20 20 20 3B 47 52 45 45 4E 00 C6 24 B2 07 2E 42 | ;GREEN..$...B| 000008B0: 59 54 45 20 20 32 20 20 20 20 20 20 20 20 20 20 |YTE 2 | 000008C0: 20 3B 42 4C 55 45 00 E5 24 BC 07 2E 42 59 54 45 | ;BLUE..$...BYTE| 000008D0: 20 31 33 20 20 20 20 20 20 20 20 20 20 20 3B 59 | 13 ;Y| 000008E0: 45 4C 4C 4F 57 00 03 25 C6 07 2E 42 59 54 45 20 |ELLOW..%...BYTE | 000008F0: 31 31 20 20 20 20 20 20 20 20 20 20 20 3B B0 41 |11 ;.A| 00000900: 4E 47 45 00 21 25 D0 07 2E 42 59 54 45 20 31 32 |NGE.!%...BYTE 12| 00000910: 20 20 20 20 20 20 20 20 20 20 20 3B 42 52 4F 57 | ;BROW| 00000920: 4E 00 43 25 DA 07 2E 42 59 54 45 20 20 39 20 20 |N.C%...BYTE 9 | 00000930: 20 20 20 20 20 20 20 20 20 3B 4C 49 47 48 54 20 | ;LIGHT | 00000940: 52 45 44 00 65 25 E4 07 2E 42 59 54 45 20 20 31 |RED.e%...BYTE 1| 00000950: 20 20 20 20 20 20 20 20 20 20 20 3B 44 41 52 4B | ;DARK| 00000960: 20 47 52 41 59 00 89 25 EE 07 2E 42 59 54 45 20 | GRAY..%...BYTE | 00000970: 20 36 20 20 20 20 20 20 20 20 20 20 20 3B 4D 45 | 6 ;ME| 00000980: 44 49 55 4D 20 47 52 41 59 00 AD 25 F8 07 2E 42 |DIUM GRAY..%...B| 00000990: 59 54 45 20 20 35 20 20 20 20 20 20 20 20 20 20 |YTE 5 | 000009A0: 20 3B 4C 49 47 48 54 20 47 52 45 45 4E 00 D0 25 | ;LIGHT GREEN..%| 000009B0: 02 08 2E 42 59 54 45 20 20 33 20 20 20 20 20 20 |...BYTE 3 | 000009C0: 20 20 20 20 20 3B 4C 49 47 48 54 20 42 4C 55 45 | ;LIGHT BLUE| 000009D0: 00 F3 25 0C 08 2E 42 59 54 45 20 31 34 20 20 20 |..%...BYTE 14 | 000009E0: 20 20 20 20 20 20 20 20 3B 4C 49 47 48 54 20 47 | ;LIGHT G| 000009F0: 52 41 59 00 F9 25 16 08 3B 00 06 26 20 08 43 4F |RAY..%..;..& .CO| 00000A00: 50 59 20 B2 20 AC 00 11 26 2A 08 4C 44 41 20 23 |PY . ...&*.LDA #| 00000A10: 30 00 37 26 34 08 53 54 41 20 24 46 41 20 20 20 |0.7&4.STA $FA | 00000A20: 20 20 20 20 20 20 20 20 20 3B 43 4F 50 59 20 43 | ;COPY C| 00000A30: 4F 4C B0 20 52 41 4D 00 61 26 3E 08 53 54 41 20 |OL. RAM.a&>.STA | 00000A40: 24 46 43 20 20 20 20 20 20 20 20 20 20 20 20 3B |$FC ;| 00000A50: 46 52 4F 4D 20 4E B0 4D 41 4C 20 56 49 43 AB 49 |FROM N.MAL VIC.I| 00000A60: 49 00 88 26 48 08 4C 44 41 20 23 24 31 43 20 20 |I..&H.LDA #$1C | 00000A70: 20 20 20 20 20 20 20 20 20 3B 53 43 52 45 45 4E | ;SCREEN| 00000A80: 20 28 24 31 43 30 30 29 00 94 26 52 08 53 54 41 | ($1C00)..&R.STA| 00000A90: 20 24 46 42 00 B9 26 5C 08 4C 44 41 20 23 24 31 | $FB..&\.LDA #$1| 00000AA0: 33 20 20 20 20 20 20 20 20 20 20 20 3B 43 4F 50 |3 ;COP| 00000AB0: 59 20 A4 20 24 31 33 30 30 00 C5 26 66 08 53 54 |Y . $1300..&f.ST| 00000AC0: 41 20 24 46 44 00 E7 26 70 08 4C 44 58 20 23 34 |A $FD..&p.LDX #4| 00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B F4 20 | ;. | 00000AE0: 34 20 50 41 47 45 53 00 ED 26 7A 08 3B 00 FB 26 |4 PAGES..&z.;..&| 00000AF0: 84 08 43 4F 50 59 31 20 B2 20 AC 00 0A 27 8E 08 |..COPY1 . ...'..| 00000B00: 4A 53 52 20 43 4F 50 59 49 54 00 16 27 98 08 49 |JSR COPYIT..'..I| 00000B10: 4E 43 20 24 46 42 00 22 27 A2 08 49 4E 43 20 24 |NC $FB."'..INC $| 00000B20: 46 44 00 2A 27 AC 08 44 45 58 00 38 27 B6 08 42 |FD.*'..DEX.8'..B| 00000B30: 4E 45 20 43 4F 50 59 31 00 3E 27 C0 08 3B 00 46 |NE COPY1.>'..;.F| 00000B40: 27 CA 08 52 54 53 00 4C 27 D4 08 3B 00 5B 27 DE |'..RTS.L'..;.['.| 00000B50: 08 43 4F 50 59 49 54 20 B2 20 AC 00 66 27 E8 08 |.COPYIT . ..f'..| 00000B60: 4C 44 59 20 23 30 00 6C 27 F2 08 3B 00 7D 27 FC |LDY #0.l'..;.}'.| 00000B70: 08 43 4F 50 59 42 59 54 45 20 B2 20 AC 00 8D 27 |.COPYBYTE . ...'| 00000B80: 06 09 4C 44 41 20 28 24 46 41 29 2C 59 00 9D 27 |..LDA ($FA),Y..'| 00000B90: 10 09 53 54 41 20 28 24 46 43 29 2C 59 00 A5 27 |..STA ($FC),Y..'| 00000BA0: 1A 09 49 4E 59 00 B6 27 24 09 42 4E 45 20 43 4F |..INY..'$.BNE CO| 00000BB0: 50 59 42 59 54 45 00 BC 27 2E 09 3B 00 C4 27 38 |PYBYTE..'..;..'8| 00000BC0: 09 52 54 53 00 CA 27 42 09 3B 00 04 28 4C 09 56 |.RTS..'B.;..(L.V| 00000BD0: 49 43 A4 56 44 43 20 B2 20 AC 20 20 20 20 20 20 |IC.VDC . . | 00000BE0: 20 3B 54 52 41 4E 53 4C 41 54 45 20 56 49 43 AB | ;TRANSLATE VIC.| 00000BF0: 49 49 20 48 49 52 45 53 20 A4 20 56 44 43 20 48 |II HIRES . VDC H| 00000C00: 49 52 45 53 00 2C 28 56 09 4C 44 58 20 23 32 35 |IRES.,(V.LDX #25| 00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 54 | ;SET| 00000C20: 20 52 45 47 49 53 54 45 52 20 32 35 00 51 28 60 | REGISTER 25.Q(`| 00000C30: 09 4A 53 52 20 52 45 45 44 45 52 20 20 20 20 20 |.JSR REEDER | 00000C40: 20 20 20 20 3B 42 49 54 20 4D 41 50 20 4D 4F 44 | ;BIT MAP MOD| 00000C50: 45 00 6E 28 6A 09 B0 41 20 23 31 32 38 20 20 20 |E.n(j..A #128 | 00000C60: 20 20 20 20 20 20 20 20 3B 42 49 54 20 37 00 7D | ;BIT 7.}| 00000C70: 28 74 09 4A 53 52 20 57 52 49 54 45 52 00 B7 28 |(t.JSR WRITER..(| 00000C80: 7E 09 4C 44 58 20 23 32 30 20 20 20 20 20 20 20 |~.LDX #20 | 00000C90: 20 20 20 20 20 3B 53 45 54 20 41 54 54 52 49 42 | ;SET ATTRIB| 00000CA0: 55 54 45 53 20 41 54 20 24 32 30 30 30 20 28 56 |UTES AT $2000 (V| 00000CB0: 44 43 20 52 41 4D 29 00 C4 28 88 09 4C 44 41 20 |DC RAM)..(..LDA | 00000CC0: 23 24 32 30 00 D3 28 92 09 4A 53 52 20 57 52 49 |#$20..(..JSR WRI| 00000CD0: 54 45 52 00 DF 28 9C 09 4C 44 58 20 23 32 31 00 |TER..(..LDX #21.| 00000CE0: EA 28 A6 09 4C 44 41 20 23 30 00 F9 28 B0 09 4A |.(..LDA #0..(..J| 00000CF0: 53 52 20 57 52 49 54 45 52 00 2E 29 BA 09 4C 44 |SR WRITER..)..LD| 00000D00: 58 20 23 31 20 20 20 20 20 20 20 20 20 20 20 20 |X #1 | 00000D10: 20 3B 53 45 54 20 56 44 43 20 53 43 52 45 45 4E | ;SET VDC SCREEN| 00000D20: 20 57 49 44 54 48 20 28 52 45 47 20 31 29 00 53 | WIDTH (REG 1).S| 00000D30: 29 C4 09 4C 44 41 20 23 34 30 20 20 20 20 20 20 |)..LDA #40 | 00000D40: 20 20 20 20 20 20 3B A4 20 34 30 20 43 4F 4C 55 | ;. 40 COLU| 00000D50: 4D 4E 53 00 62 29 CE 09 4A 53 52 20 57 52 49 54 |MNS.b)..JSR WRIT| 00000D60: 45 52 00 96 29 D8 09 4C 44 41 20 23 24 32 30 20 |ER..)..LDA #$20 | 00000D70: 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 52 54 | ;START| 00000D80: 20 4F 46 20 56 49 43 AB 49 49 20 48 49 52 45 53 | OF VIC.II HIRES| 00000D90: 20 24 32 30 30 30 00 A2 29 E2 09 53 54 41 20 24 | $2000..)..STA $| 00000DA0: 46 42 00 AD 29 EC 09 4C 44 41 20 23 30 00 B9 29 |FB..)..LDA #0..)| 00000DB0: F6 09 53 54 41 20 24 46 41 00 EA 29 00 0A 4C 44 |..STA $FA..)..LD| 00000DC0: 58 20 23 31 38 20 20 20 20 20 20 20 20 20 20 20 |X #18 | 00000DD0: 20 3B 83 20 50 4F 49 4E 54 45 52 20 28 56 44 43 | ;. POINTER (VDC| 00000DE0: 29 20 54 4F 20 24 30 30 30 30 00 19 2A 0A 0A 4A |) TO $0000..*..J| 00000DF0: 53 52 20 57 52 49 54 45 52 20 20 20 20 20 20 20 |SR WRITER | 00000E00: 20 20 3B 81 20 53 54 41 52 54 20 4F 46 20 56 44 | ;. START OF VD| 00000E10: 43 20 42 49 54 20 4D 41 50 00 21 2A 14 0A 49 4E |C BIT MAP.!*..IN| 00000E20: 58 00 30 2A 1E 0A 4A 53 52 20 57 52 49 54 45 52 |X.0*..JSR WRITER| 00000E30: 00 57 2A 28 0A 53 54 41 20 24 42 31 20 20 20 20 |.W*(.STA $B1 | 00000E40: 20 20 20 20 20 20 20 20 3B 43 4F 4C 55 4D 4E 20 | ;COLUMN | 00000E50: 43 4F 55 4E 54 45 52 00 64 2A 32 0A 4C 44 41 20 |COUNTER.d*2.LDA | 00000E60: 23 24 31 39 00 70 2A 3C 0A 53 54 41 20 24 39 42 |#$19.p*<.STA $9B| 00000E70: 00 76 2A 46 0A 3B 00 85 2A 50 0A 41 47 41 49 4E |.v*F.;..*P.AGAIN| 00000E80: 31 20 B2 20 AC 00 B6 2A 5A 0A 4C 44 41 20 23 37 |1 . ...*Z.LDA #7| 00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 38 20 | ;8 | 00000EA0: 42 59 54 45 53 20 50 45 52 20 E0 41 43 54 45 52 |BYTES PER .ACTER| 00000EB0: 20 28 30 AB 37 29 00 C2 2A 64 0A 53 54 41 20 24 | (0.7)..*d.STA $| 00000EC0: 39 43 00 C8 2A 6E 0A 3B 00 D6 2A 78 0A 41 47 41 |9C..*n.;..*x.AGA| 00000ED0: 49 4E 20 B2 20 AC 00 00 2B 82 0A 4C 44 41 20 23 |IN . ...+..LDA #| 00000EE0: 24 32 37 20 20 20 20 20 20 20 20 20 20 20 3B 34 |$27 ;4| 00000EF0: 30 20 43 4F 4C 55 4D 4E 53 20 28 30 AB 33 39 29 |0 COLUMNS (0.39)| 00000F00: 00 0C 2B 8C 0A 53 54 41 20 24 46 45 00 12 2B 96 |..+..STA $FE..+.| 00000F10: 0A 3B 00 21 2B A0 0A 54 52 41 4E 48 49 20 B2 20 |.;.!+..TRANHI . | 00000F20: AC 00 2C 2B AA 0A 4C 44 58 20 23 30 00 3C 2B B4 |..,+..LDX #0.<+.| 00000F30: 0A 4C 44 41 20 28 24 46 41 2C 58 29 00 4A 2B BE |.LDA ($FA,X).J+.| 00000F40: 0A 4A 53 52 20 57 52 49 54 45 00 56 2B C8 0A 4A |.JSR WRITE.V+..J| 00000F50: 53 52 20 41 44 44 00 62 2B D2 0A 44 45 43 20 24 |SR ADD.b+..DEC $| 00000F60: 46 45 00 71 2B DC 0A 42 4E 45 20 54 52 41 4E 48 |FE.q+..BNE TRANH| 00000F70: 49 00 77 2B E6 0A 3B 00 83 2B F0 0A 4C 44 41 20 |I.w+..;..+..LDA | 00000F80: 24 42 31 00 90 2B FA 0A 42 4E 45 20 48 41 4C 46 |$B1..+..BNE HALF| 00000F90: 00 96 2B 04 0B 3B 00 A1 2B 0E 0B 4C 44 58 20 23 |..+..;..+..LDX #| 00000FA0: 30 00 B1 2B 18 0B 4C 44 41 20 28 24 46 41 2C 58 |0..+..LDA ($FA,X| 00000FB0: 29 00 BF 2B 22 0B 4A 53 52 20 57 52 49 54 45 00 |)..+".JSR WRITE.| 00000FC0: D0 2B 2C 0B 4A 53 52 20 49 4E 43 52 45 41 53 45 |.+,.JSR INCREASE| 00000FD0: 00 DC 2B 36 0B 44 45 43 20 24 39 43 00 EA 2B 40 |..+6.DEC $9C..+@| 00000FE0: 0B 42 4E 45 20 41 47 41 49 4E 00 F0 2B 4A 0B 3B |.BNE AGAIN..+J.;| 00000FF0: 00 FB 2B 54 0B 4C 44 41 20 23 31 00 07 2C 5E 0B |..+T.LDA #1..,^.| 00001000: 53 54 41 20 24 42 31 00 15 2C 68 0B 4A 4D 50 20 |STA $B1..,h.JMP | 00001010: 41 47 41 49 4E 00 1B 2C 72 0B 3B 00 28 2C 7C 0B |AGAIN..,r.;.(,|.| 00001020: 48 41 4C 46 20 B2 20 AC 00 33 2C 86 0B 4C 44 41 |HALF . ..3,..LDA| 00001030: 20 23 30 00 3F 2C 90 0B 53 54 41 20 24 42 31 00 | #0.?,..STA $B1.| 00001040: 4A 2C 9A 0B 4C 44 58 20 23 30 00 5A 2C A4 0B 4C |J,..LDX #0.Z,..L| 00001050: 44 41 20 28 24 46 41 2C 58 29 00 68 2C AE 0B 4A |DA ($FA,X).h,..J| 00001060: 53 52 20 57 52 49 54 45 00 78 2C B8 0B 4A 53 52 |SR WRITE.x,..JSR| 00001070: 20 55 50 54 48 45 52 45 00 84 2C C2 0B 44 45 43 | UPTHERE..,..DEC| 00001080: 20 24 39 42 00 93 2C CC 0B 42 4E 45 20 41 47 41 | $9B..,..BNE AGA| 00001090: 49 4E 31 00 99 2C D6 0B 3B 00 A1 2C E0 0B 52 54 |IN1..,..;..,..RT| 000010A0: 53 00 A7 2C EA 0B 3B 00 B3 2C F4 0B 41 44 44 20 |S..,..;..,..ADD | 000010B0: B2 20 AC 00 BB 2C FE 0B 43 4C 43 00 C7 2C 08 0C |. ...,..CLC..,..| 000010C0: 4C 44 41 20 24 46 41 00 D2 2C 12 0C 41 44 43 20 |LDA $FA..,..ADC | 000010D0: 23 38 00 DE 2C 1C 0C 53 54 41 20 24 46 41 00 EB |#8..,..STA $FA..| 000010E0: 2C 26 0C 42 43 43 20 41 44 44 31 00 F1 2C 30 0C |,&.BCC ADD1..,0.| 000010F0: 3B 00 FD 2C 3A 0C 49 4E 43 20 24 46 42 00 03 2D |;..,:.INC $FB..-| 00001100: 44 0C 3B 00 10 2D 4E 0C 41 44 44 31 20 B2 20 AC |D.;..-N.ADD1 . .| 00001110: 00 18 2D 58 0C 52 54 53 00 1E 2D 62 0C 3B 00 2F |..-X.RTS..-b.;./| 00001120: 2D 6C 0C 49 4E 43 52 45 41 53 45 20 B2 20 AC 00 |-l.INCREASE . ..| 00001130: 37 2D 76 0C 53 45 43 00 43 2D 80 0C 4C 44 41 20 |7-v.SEC.C-..LDA | 00001140: 24 46 42 00 4E 2D 8A 0C 53 42 43 20 23 31 00 5A |$FB.N-..SBC #1.Z| 00001150: 2D 94 0C 53 54 41 20 24 46 42 00 66 2D 9E 0C 4C |-..STA $FB.f-..L| 00001160: 44 41 20 24 46 41 00 73 2D A8 0C 53 42 43 20 23 |DA $FA.s-..SBC #| 00001170: 24 33 37 00 7F 2D B2 0C 53 54 41 20 24 46 41 00 |$37..-..STA $FA.| 00001180: 87 2D BC 0C 52 54 53 00 8D 2D C6 0C 3B 00 9D 2D |.-..RTS..-..;..-| 00001190: D0 0C 55 50 54 48 45 52 45 20 B2 20 AC 00 A9 2D |..UPTHERE . ...-| 000011A0: DA 0C 49 4E 43 20 24 46 41 00 B5 2D E4 0C 42 4E |..INC $FA..-..BN| 000011B0: 45 20 55 50 31 00 BB 2D EE 0C 3B 00 C7 2D F8 0C |E UP1..-..;..-..| 000011C0: 49 4E 43 20 24 46 42 00 CD 2D 02 0D 3B 00 D9 2D |INC $FB..-..;..-| 000011D0: 0C 0D 55 50 31 20 B2 20 AC 00 E1 2D 16 0D 52 54 |..UP1 . ...-..RT| 000011E0: 53 00 E7 2D 20 0D 3B 00 0F 2E 2A 0D 57 52 49 54 |S..- .;...*.WRIT| 000011F0: 45 20 B2 20 AC 20 20 20 20 20 20 20 20 20 20 3B |E . . ;| 00001200: 57 52 49 54 45 20 A4 20 56 44 43 20 52 41 4D 00 |WRITE . VDC RAM.| 00001210: 1B 2E 34 0D 4C 44 58 20 23 33 31 00 21 2E 3E 0D |..4.LDX #31.!.>.| 00001220: 3B 00 4E 2E 48 0D 57 52 49 54 45 52 20 B2 20 AC |;.N.H.WRITER . .| 00001230: 20 20 20 20 20 20 20 20 20 3B 57 52 49 54 45 20 | ;WRITE | 00001240: A4 20 56 44 43 20 52 45 47 49 53 54 45 52 00 5C |. VDC REGISTER.\| 00001250: 2E 52 0D 53 54 58 20 24 44 36 30 30 00 62 2E 5C |.R.STX $D600.b.\| 00001260: 0D 3B 00 71 2E 66 0D 57 52 49 54 45 31 20 B2 20 |.;.q.f.WRITE1 . | 00001270: AC 00 A1 2E 70 0D 42 49 54 20 24 44 36 30 30 20 |....p.BIT $D600 | 00001280: 20 20 20 20 20 20 20 20 20 3B 92 20 81 20 53 54 | ;. . ST| 00001290: 41 54 55 53 20 42 49 54 20 A4 20 CB 20 48 49 47 |ATUS BIT . . HIG| 000012A0: 48 00 B0 2E 7A 0D 42 50 4C 20 57 52 49 54 45 31 |H...z.BPL WRITE1| 000012B0: 00 B6 2E 84 0D 3B 00 D8 2E 8E 0D 53 54 41 20 24 |.....;.....STA $| 000012C0: 44 36 30 31 20 20 20 20 20 20 20 20 20 20 3B 57 |D601 ;W| 000012D0: 52 49 54 45 20 C5 55 45 00 E0 2E 98 0D 52 54 53 |RITE .UE.....RTS| 000012E0: 00 E6 2E A2 0D 3B 00 08 2F AC 0D 52 45 45 44 20 |.....;../..REED | 000012F0: B2 20 AC 20 20 20 20 20 20 20 20 20 20 20 3B 87 |. . ;.| 00001300: 20 56 44 43 20 52 41 4D 00 14 2F B6 0D 4C 44 58 | VDC RAM../..LDX| 00001310: 20 23 33 31 00 1A 2F C0 0D 3B 00 41 2F CA 0D 52 | #31../..;.A/..R| 00001320: 45 45 44 45 52 20 B2 20 AC 20 20 20 20 20 20 20 |EEDER . . | 00001330: 20 20 3B 87 20 56 44 43 20 52 45 47 49 53 54 45 | ;. VDC REGISTE| 00001340: 52 00 4F 2F D4 0D 53 54 58 20 24 44 36 30 30 00 |R.O/..STX $D600.| 00001350: 55 2F DE 0D 3B 00 64 2F E8 0D 52 45 45 44 31 20 |U/..;.d/..REED1 | 00001360: 20 B2 20 AC 00 94 2F F2 0D 42 49 54 20 24 44 36 | . .../..BIT $D6| 00001370: 30 30 20 20 20 20 20 20 20 20 20 20 3B 92 20 81 |00 ;. .| 00001380: 20 53 54 41 54 55 53 20 42 49 54 20 A4 20 CB 20 | STATUS BIT . . | 00001390: 48 49 47 48 00 A2 2F FC 0D 42 50 4C 20 52 45 45 |HIGH../..BPL REE| 000013A0: 44 31 00 A8 2F 06 0E 3B 00 C6 2F 10 0E 4C 44 41 |D1../..;../..LDA| 000013B0: 20 24 44 36 30 31 20 20 20 20 20 20 20 20 20 20 | $D601 | 000013C0: 3B 87 20 C5 55 45 00 CE 2F 1A 0E 52 54 53 00 D4 |;. .UE../..RTS..| 000013D0: 2F 24 0E 3B 00 09 30 2E 0E 48 49 54 4D 45 20 B2 |/$.;..0..HITME .| 000013E0: 20 AC 20 20 20 20 20 20 20 20 20 20 3B 54 52 41 | . ;TRA| 000013F0: 4E 53 46 45 52 20 43 4F 4C B0 20 46 52 4F 4D 20 |NSFER COL. FROM | 00001400: 52 41 4D 20 A4 20 56 44 43 00 41 30 38 0E 4C 44 |RAM . VDC.A08.LD| 00001410: 58 20 23 31 38 20 20 20 20 20 20 20 20 20 20 20 |X #18 | 00001420: 20 3B 83 20 50 4F 49 4E 54 45 52 20 54 4F 20 24 | ;. POINTER TO $| 00001430: 32 30 30 30 20 28 41 54 54 52 49 42 55 54 45 53 |2000 (ATTRIBUTES| 00001440: 29 00 4E 30 42 0E 4C 44 41 20 23 24 32 30 00 5D |).N0B.LDA #$20.]| 00001450: 30 4C 0E 4A 53 52 20 57 52 49 54 45 52 00 69 30 |0L.JSR WRITER.i0| 00001460: 56 0E 4C 44 58 20 23 31 39 00 74 30 60 0E 4C 44 |V.LDX #19.t0`.LD| 00001470: 41 20 23 30 00 83 30 6A 0E 4A 53 52 20 57 52 49 |A #0..0j.JSR WRI| 00001480: 54 45 52 00 8E 30 74 0E 4C 44 41 20 23 30 00 9A |TER..0t.LDA #0..| 00001490: 30 7E 0E 53 54 41 20 24 46 41 00 C5 30 88 0E 4C |0~.STA $FA..0..L| 000014A0: 44 41 20 23 24 31 33 20 20 20 20 20 20 20 20 20 |DA #$13 | 000014B0: 20 20 3B 43 4F 4C B0 53 20 41 52 45 20 41 54 20 | ;COL.S ARE AT | 000014C0: 24 31 33 30 30 00 EC 30 92 0E 53 54 41 20 24 46 |$1300..0..STA $F| 000014D0: 42 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 52 |B ;TR| 000014E0: 41 4E 53 46 45 52 20 24 31 33 30 30 00 FA 30 9C |ANSFER $1300..0.| 000014F0: 0E 4A 53 52 20 41 48 45 41 44 00 21 31 A6 0E 49 |.JSR AHEAD.!1..I| 00001500: 4E 43 20 24 46 42 20 20 20 20 20 20 20 20 20 20 |NC $FB | 00001510: 20 20 3B 54 52 41 4E 53 46 45 52 20 24 31 34 30 | ;TRANSFER $140| 00001520: 30 00 2F 31 B0 0E 4A 53 52 20 41 48 45 41 44 00 |0./1..JSR AHEAD.| 00001530: 56 31 BA 0E 49 4E 43 20 24 46 42 20 20 20 20 20 |V1..INC $FB | 00001540: 20 20 20 20 20 20 20 3B 54 52 41 4E 53 46 45 52 | ;TRANSFER| 00001550: 20 24 31 35 30 30 00 64 31 C4 0E 4A 53 52 20 41 | $1500.d1..JSR A| 00001560: 48 45 41 44 00 8B 31 CE 0E 49 4E 43 20 24 46 42 |HEAD..1..INC $FB| 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 52 41 | ;TRA| 00001580: 4E 53 46 45 52 20 24 31 36 30 30 00 99 31 D8 0E |NSFER $1600..1..| 00001590: 4A 53 52 20 41 48 45 41 44 00 A1 31 E2 0E 52 54 |JSR AHEAD..1..RT| 000015A0: 53 00 A7 31 EC 0E 3B 00 B5 31 F6 0E 41 48 45 41 |S..1..;..1..AHEA| 000015B0: 44 20 B2 20 AC 00 C0 31 00 0F 4C 44 59 20 23 30 |D . ...1..LDY #0| 000015C0: 00 C6 31 0A 0F 3B 00 D5 31 14 0F 41 48 45 41 44 |..1..;..1..AHEAD| 000015D0: 31 20 B2 20 AC 00 F3 31 1E 0F 4C 44 41 20 28 24 |1 . ...1..LDA ($| 000015E0: 46 41 29 2C 59 20 20 20 20 20 20 20 20 3B 87 20 |FA),Y ;. | 000015F0: 52 41 4D 00 17 32 28 0F 4A 53 52 20 57 52 49 54 |RAM..2(.JSR WRIT| 00001600: 45 20 20 20 20 20 20 20 20 20 20 3B 57 52 49 54 |E ;WRIT| 00001610: 45 20 A4 20 56 44 43 00 1F 32 32 0F 49 4E 59 00 |E . VDC..22.INY.| 00001620: 2E 32 3C 0F 42 4E 45 20 41 48 45 41 44 31 00 34 |.2<.BNE AHEAD1.4| 00001630: 32 46 0F 3B 00 3C 32 50 0F 52 54 53 00 42 32 5A |2F.;.<2P.RTS.B2Z| 00001640: 0F 3B 00 68 32 64 0F 42 4C 41 4E 4B 20 B2 20 AC |.;.h2d.BLANK . .| 00001650: 20 20 20 20 20 20 20 20 20 20 3B 42 4C 41 4E 4B | ;BLANK| 00001660: 20 38 30 20 43 4F 4C 53 00 74 32 6E 0F 4C 44 58 | 80 COLS.t2n.LDX| 00001670: 20 23 33 35 00 83 32 78 0F 4A 53 52 20 52 45 45 | #35..2x.JSR REE| 00001680: 44 45 52 00 B6 32 82 0F 53 54 41 20 24 46 46 20 |DER..2..STA $FF | 00001690: 20 20 20 20 20 20 20 20 20 20 20 3B 53 A4 52 45 | ;S.RE| 000016A0: 20 43 55 52 52 45 4E 54 20 53 43 52 45 45 4E 20 | CURRENT SCREEN | 000016B0: 50 41 52 41 4D 53 00 C1 32 8C 0F 4C 44 41 20 23 |PARAMS..2..LDA #| 000016C0: 30 00 E2 32 96 0F 4A 53 52 20 57 52 49 54 45 52 |0..2..JSR WRITER| 000016D0: 20 20 20 20 20 20 20 20 20 3B 42 4C 41 4E 4B 20 | ;BLANK | 000016E0: 49 54 00 EA 32 A0 0F 52 54 53 00 F0 32 AA 0F 3B |IT..2..RTS..2..;| 000016F0: 00 11 33 B4 0F 55 4E 42 4C 41 4E 4B 20 B2 20 AC |..3..UNBLANK . .| 00001700: 20 20 20 20 20 20 20 20 3B 8C 20 53 43 52 45 45 | ;. SCREE| 00001710: 4E 00 1D 33 BE 0F 4C 44 58 20 23 33 35 00 4C 33 |N..3..LDX #35.L3| 00001720: C8 0F 4C 44 41 20 24 46 46 20 20 20 20 20 20 20 |..LDA $FF | 00001730: 20 20 20 20 20 3B 52 45 54 52 49 45 56 45 20 53 | ;RETRIEVE S| 00001740: 43 52 45 45 4E 20 50 41 52 41 4D 53 00 6C 33 D2 |CREEN PARAMS.l3.| 00001750: 0F 4A 53 52 20 57 52 49 54 45 52 20 20 20 20 20 |.JSR WRITER | 00001760: 20 20 20 20 3B 8C 20 50 41 52 41 4D 00 74 33 DC | ;. PARAM.t3.| 00001770: 0F 52 54 53 00 7A 33 E6 0F 3B 00 81 33 F0 0F 2E |.RTS.z3..;..3...| 00001780: 80 00 00 00 |.... |
....... SAVE"0:COLOR 80.SRC",8.H.... **
SOURCE START-UP IN POWER ASSEMBLER FORMA
T (AKA BUDDY-128 SYSTEM).R....4000.~....
.$0C00......MEM.....;...$.; . 80 . HI.RE
S.....; COM.ITE . RGB C.VERTER...8.; MAT
THEW PALCIC . 16K V2.1...B.;...L.JSR CLE
AR ;MAIN SUBROUTINE.".V.JSR BLANK
;TABLE./.`.JSR COPY.<.J.JSR SH.T.L.T
.JSR VIC.VDC.Z.~.JSR HITME.J...JSR UNBLA
NK.R...RTS.X...;.....CLEAR . .
;CLEAR VDC W.BLOCK FILL.R...LDX #18
;SET . POINTER TO 0.....LDA #0
;. START OF HIRES...D.JSR WRIT
ER...N.INX.!.X.JSR WRITER.K...LDA #0
;SET FILL BYTE . 0.Y...JSR WRIT
E.....LDX #24 ;CLEAR BIT 7 OF
.....JSR REEDER ;REGISTER 24 ..N
.... #127 ;SELECT BLOCK FILL..
...JSR WRITER.!...LDY #64 ;CL
EAR 64 PAGES (64.256.16384 BYTES . CLEAR
).M.(.LDX #30 ;REG 30 IS W.D
COUNT.V.2.LDA #0 ;0 W.DS.256
BYTES.|.<.;...F.CLEAR1 . ....P.JSR WRIT
ER...Z.DEY...D.BNE CLEAR1...N.;...X.RTS.
E...;.....SH.T . . ;TRANSLATE C
OL. INFO.....LDA #0.. .STA $FA.0 ..LDA
#$13 ;COL. START $1300.U ..STA
$FB ;C.VERT $1300.M ..JSR C.
V ;.. H.INC $FB ;C.
VERT $1400.. R.JSR C.V.C ..INC $FB
;C.VERT $1500.O ..JSR C.V.. ..INC
$FB ;C.VERT $1600..!..JSR C.V
..!..RTS..!..;..!..C.V . ..%!".LDY #0.+!
,.;.S!6.NIBBLES . . ;C.VERT .EGRO
UND.R!@.LDA ($FA),Y ;. COL..~!J.S
TA $FC..!T.LSR ;SH.T .EGR
OUND DOWN.P!^.LSR ;. BOT.
M NIBBLE.X!H.LSR..!R.LSR..!|.TAX.."..LDA
COL.S,X ;. . EUE.-"..STA $FD
;S.RE .EGROUND.`"..LDA $FC
;RETRIEVE .IGINAL COL. BYTE.."..ASL
;SH.T LEFT . CLEAR .P NI
BBLE.."..ASL.."..ASL.."B.ASL.."L.LSR
;MOVE BACK . BOT.M NIBBLE.."
V.LSR.."..LSR.."..LSR.."..TAX..#..LDA CO
L.S,X ;. . EUE.P#..ASL
;MOVE BACKGROUND . .P NIBBLE.X#..ASL
.`#..ASL.H#&.ASL..#0.ADC $FD
;COMBINE .EGROUND . BACKGROUND..#:.STA (
$FA),Y..#D.INY.F#N.BNE NIBBLES.N#X.RTS.T
#B.;..#L.COL.S . . ;40 COL COL..
.$V..BYTE 0 ;BLACK.3$...BYTE
15 ;WHITE.O$...BYTE 8
;RED.L$...BYTE 7 ;CYAN..$.
..BYTE 10 ;PURPLE..$...BYTE 4
;GREEN.F$...BYTE 2
;BLUE..$...BYTE 13 ;YELLOW..%
F..BYTE 11 ;.ANGE.!%P..BYTE 12
;BROWN.C%Z..BYTE 9
;LIGHT RED.E%...BYTE 1 ;DARK
GRAY..%...BYTE 6 ;MEDIUM GRA
Y..%...BYTE 5 ;LIGHT GREEN.P%
...BYTE 3 ;LIGHT BLUE..%...BY
TE 14 ;LIGHT GRAY..%..;..& .CO
PY . ...&*.LDA #0.7&4.STA $FA
;COPY COL. RAM.A&>.STA $FC ;
FROM N.MAL VIC.II..&H.LDA #$1C
;SCREEN ($1C00)..&R.STA $FB..&\.LDA #$1
3 ;COPY . $1300.E&F.STA $FD..&
P.LDX #4 ;. 4 PAGES..&Z.;..&
..COPY1 . ...'..JSR COPYIT..'..INC $FB."
'..INC $FD.*'..DEX.8'..BNE COPY1.>'..;.F
'J.RTS.L'T.;.['..COPYIT . ..F'..LDY #0.L
'..;.}'..COPYBYTE . ...'..LDA ($FA),Y..'
..STA ($FC),Y..'..INY..'$.BNE COPYBYTE..
'..;.D'8.RTS.J'B.;..(L.VIC.VDC . .
;TRANSLATE VIC.II HIRES . VDC HIRES.,(V
.LDX #25 ;SET REGISTER 25.Q(`
.JSR REEDER ;BIT MAP MODE.N(J..A
#128 ;BIT 7.}(T.JSR WRITER..(
~.LDX #20 ;SET ATTRIBUTES AT
$2000 (VDC RAM).D(..LDA #$20.S(..JSR WRI
TER..(..LDX #21..(..LDA #0..(..JSR WRITE
R..)..LDX #1 ;SET VDC SCREEN
WIDTH (REG 1).S)D.LDA #40 ;.
40 COLUMNS.B)N.JSR WRITER..)X.LDA #$20
;START OF VIC.II HIRES $2000..
)..STA $FB..)..LDA #0..)..STA $FA..)..LD
X #18 ;. POINTER (VDC) TO $00
00..*..JSR WRITER ;. START OF VD
C BIT MAP.!*..INX.0*..JSR WRITER.W*(.STA
$B1 ;COLUMN COUNTER.D*2.LDA
#$19.P*<.STA $9B.V*F.;..*P.AGAIN1 . ...*
Z.LDA #7 ;8 BYTES PER .ACTER
(0.7).B*D.STA $9C.H*N.;.V*X.AGAIN . ...
+..LDA #$27 ;40 COLUMNS (0.39)
..+..STA $FE..+..;.!+ .TRANHI . ..,+..LD
X #0.<+..LDA ($FA,X).J+..JSR WRITE.V+H.J
SR ADD.B+R.DEC $FE.Q+..BNE TRANHI.W+..;.
.+..LDA $B1..+..BNE HALF..+..;..+..LDX #
0..+..LDA ($FA,X)..+".JSR WRITE.P+,.JSR
INCREASE..+6.DEC $9C..+@.BNE AGAIN..+J.;
..+T.LDA #1..,^.STA $B1..,H.JMP AGAIN..,
R.;.(,|.HALF . ..3,..LDA #0.?,..STA $B1.
J,..LDX #0.Z,..LDA ($FA,X).H,..JSR WRITE
.X,..JSR UPTHERE..,B.DEC $9B..,L.BNE AGA
IN1..,V.;..,..RTS..,..;..,..ADD . ...,..
CLC.G,..LDA $FA.R,..ADC #8..,..STA $FA..
,&.BCC ADD1..,0.;..,:.INC $FB..-D.;..-N.
ADD1 . ...-X.RTS..-B.;./-L.INCREASE . ..
7-V.SEC.C-..LDA $FB.N-..SBC #1.Z-..STA $
FB.F-..LDA $FA.S-..SBC #$37.-..STA $FA.
.-..RTS..-F.;..-P.UPTHERE . ...-Z.INC $F
A..-..BNE UP1..-..;.G-..INC $FB.M-..;.Y-
..UP1 . ...-..RTS..- .;...*.WRITE . .
;WRITE . VDC RAM...4.LDX #31.!.>.
;.N.H.WRITER . . ;WRITE . VDC RE
GISTER.\.R.STX $D600.B.\.;.Q.F.WRITE1 .
....P.BIT $D600 ;. . STATUS BIT
. K HIGH...Z.BPL WRITE1.....;.X...STA $
D601 ;WRITE EUE.....RTS.....;..
/..REED . . ;. VDC RAM../..LDX
#31../..;.A/J.REEDER . . ;. VDC
REGISTER.O/T.STX $D600.U/..;.D/..REED1
. .../..BIT $D600 ;. . STATUS
BIT . K HIGH../..BPL REED1../..;.F/..LDA
$D601 ;. EUE.N/..RTS.T/$.;..0.
.HITME . . ;TRANSFER COL. FROM
RAM . VDC.A08.LDX #18 ;. POIN
TER TO $2000 (ATTRIBUTES).N0B.LDA #$20.]
0L.JSR WRITER.I0V.LDX #19.T0`.LDA #0..0J
.JSR WRITER..0T.LDA #0..0~.STA $FA.E0..L
DA #$13 ;COL.S ARE AT $1300..0
..STA $FB ;TRANSFER $1300..0.
.JSR AHEAD.!1..INC $FB ;TRANS
FER $1400./1..JSR AHEAD.V1..INC $FB
;TRANSFER $1500.D1D.JSR AHEAD..1N
.INC $FB ;TRANSFER $1600..1X.
JSR AHEAD..1..RTS..1..;..1..AHEAD . ...1
..LDY #0.F1..;.U1..AHEAD1 . ...1..LDA ($
FA),Y ;. RAM..2(.JSR WRITE
;WRITE . VDC..22.INY..2<.BNE AHEAD1.4
2F.;.<2P.RTS.B2Z.;.H2D.BLANK . .
;BLANK 80 COLS.T2N.LDX #35..2X.JSR REE
DER..2..STA $FF ;S.RE CURRENT
SCREEN PARAMS.A2..LDA #0..2..JSR WRITER
;BLANK IT..2 .RTS..2..;..3..UNB
LANK . . ;. SCREEN..3..LDX #35.L3
H.LDA $FF ;RETRIEVE SCREEN PA
RAMS.L3R.JSR WRITER ;. PARAM.T3.
.RTS.Z3..;..3.......
> CLICK IMAGE PREVIEW FOR FULL MODAL