VID.SRC
FILE INFORMATION
FILENAME(S): VID.SRC
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:15:14
APPEARS ON: 1 disk(s)
FILE HASH
33c1fbed816813d9a629c0b9fd256c1e6a9b2e757239d4401ffbaa8ffb2b0f62
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | VID.SRC | PRG | DuncanTwain | 30 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0E 1C E8 03 AC B2 20 24 43 39 30 30 00 15 |........ $C900..|
00000010: 1C F2 03 2E 4F 00 1C 1C FC 03 2E 53 00 3A 1C 06 |....O......S.:..|
00000020: 04 3B AB AB AB AB AB AB 20 56 49 44 45 4F 2E 4D |.;...... VIDEO.M|
00000030: 4F 56 45 20 AB AB AB AB AB AB 00 40 1C 10 04 3B |OVE .......@...;|
00000040: 00 4F 1C 1A 04 54 45 4D 50 20 B2 20 24 43 33 00 |.O...TEMP . $C3.|
00000050: 55 1C 24 04 3B 00 6F 1C 2E 04 4C 44 59 20 23 24 |U.$.;.o...LDY #$|
00000060: 46 46 3B 20 48 45 52 45 20 A4 20 53 A4 52 45 00 |FF; HERE . S.RE.|
00000070: 7D 1C 38 04 42 4E 45 20 53 45 54 55 50 00 9A 1C |}.8.BNE SETUP...|
00000080: 42 04 4C 44 59 20 23 24 30 30 3B 20 48 45 52 45 |B.LDY #$00; HERE|
00000090: 20 A4 20 52 45 43 4F 56 45 52 00 AD 1C 4C 04 53 | . RECOVER...L.S|
000000A0: 45 54 55 50 20 53 54 59 20 54 45 4D 50 00 C9 1C |ETUP STY TEMP...|
000000B0: 56 04 4A 53 52 20 24 42 37 46 31 3B 20 91 45 20 |V.JSR $B7F1; .E |
000000C0: 42 59 54 45 20 49 4E 20 58 00 E2 1C 60 04 43 50 |BYTE IN X...`.CP|
000000D0: 58 20 23 24 30 35 3B 20 53 45 43 54 49 91 20 30 |X #$05; SECTI. 0|
000000E0: AB 34 00 EF 1C 6A 04 42 43 53 20 51 54 59 31 00 |.4...j.BCS QTY1.|
000000F0: 10 1D 74 04 4C 44 41 20 23 24 45 30 3B 20 55 53 |..t.LDA #$E0; US|
00000100: 45 20 23 24 41 30 20 81 20 42 41 53 2E 52 4F 4D |E #$A0 . BAS.ROM|
00000110: 00 1E 1D 7E 04 41 47 41 49 4E 20 44 45 58 00 34 |...~.AGAIN DEX.4|
00000120: 1D 88 04 42 4D 49 20 9A 3B 20 4E 4F 20 41 44 44 |...BMI .; NO ADD|
00000130: 49 54 49 91 00 3C 1D 92 04 43 4C 43 00 49 1D 9C |ITI..<...CLC.I..|
00000140: 04 41 44 43 20 23 24 30 36 00 5E 1D A6 04 42 43 |.ADC #$06.^...BC|
00000150: 53 20 51 54 59 31 3B 20 4E 4F 20 CB 4F 44 00 6C |S QTY1; NO .OD.l|
00000160: 1D B0 04 42 4E 45 20 41 47 41 49 4E 00 80 1D BA |...BNE AGAIN....|
00000170: 04 9A 20 54 41 59 3B 20 94 20 52 45 53 55 4C 54 |.. TAY; . RESULT|
00000180: 00 9A 1D C4 04 41 44 43 20 23 24 30 35 3B 20 45 |.....ADC #$05; E|
00000190: 4E 4F 55 47 48 20 52 4F 4F 4D 00 A5 1D CE 04 42 |NOUGH ROOM.....B|
000001A0: 43 43 20 4F 4B 00 AB 1D D8 04 3B 00 D0 1D E2 04 |CC OK.....;.....|
000001B0: 51 54 59 31 20 4A 4D 50 20 24 42 32 34 38 3B 20 |QTY1 JMP $B248; |
000001C0: 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 54 59 |ILLEGAL QUANTITY|
000001D0: 00 D6 1D EC 04 3B 00 F8 1D F6 04 4F 4B 20 53 54 |.....;.....OK ST|
000001E0: 59 20 24 31 35 3B 20 48 49 AB 42 59 54 20 4F 46 |Y $15; HI.BYT OF|
000001F0: 20 53 45 43 54 2E 20 23 00 1D 1E 00 05 4C 44 41 | SECT. #.....LDA|
00000200: 20 24 30 32 38 38 3B 20 48 49 AB 42 59 54 20 4F | $0288; HI.BYT O|
00000210: 46 20 53 43 52 45 45 4E 20 4C 4F 43 2E 00 3A 1E |F SCREEN LOC..:.|
00000220: 0A 05 53 54 41 20 24 41 46 3B 20 49 4E 49 54 2E |..STA $AF; INIT.|
00000230: 20 41 44 44 52 45 53 53 45 53 00 47 1E 14 05 4C | ADDRESSES.G...L|
00000240: 44 41 20 23 24 30 30 00 53 1E 1E 05 53 54 41 20 |DA #$00.S...STA |
00000250: 24 41 45 00 5F 1E 28 05 53 54 41 20 24 31 34 00 |$AE._.(.STA $14.|
00000260: 7F 1E 32 05 4A 53 52 20 24 42 37 46 31 3B 20 57 |..2.JSR $B7F1; W|
00000270: 48 49 43 48 20 53 43 52 45 45 4E 20 B0 47 2E 00 |HICH SCREEN .G..|
00000280: 87 1E 3C 05 54 58 41 00 A6 1E 46 05 42 45 51 20 |..<.TXA...F.BEQ |
00000290: 4D 4F 56 49 54 3B 20 30 20 B2 20 54 45 58 54 20 |MOVIT; 0 . TEXT |
000002A0: 53 43 52 45 45 4E 00 C9 1E 50 05 4C 44 41 20 24 |SCREEN...P.LDA $|
000002B0: 44 44 30 30 3B 20 56 49 44 2E 42 41 4E 4B 20 46 |DD00; VID.BANK F|
000002C0: 52 4F 4D 20 43 49 41 20 32 00 DC 1E 5A 05 52 B0 |ROM CIA 2...Z.R.|
000002D0: 3B 20 42 49 54 53 20 30 20 26 20 31 00 ED 1E 64 |; BITS 0 & 1...d|
000002E0: 05 52 B0 3B 20 B5 4F 20 36 20 26 20 37 00 F4 1E |.R.; .O 6 & 7...|
000002F0: 6E 05 52 B0 00 08 1F 78 05 45 B0 20 23 24 46 46 |n.R....x.E. #$FF|
00000300: 3B 20 49 4E 56 45 52 54 00 20 1F 82 05 AF 20 23 |; INVERT. .... #|
00000310: 24 43 30 3B 20 5A 45 52 4F 20 4F 54 48 45 52 53 |$C0; ZERO OTHERS|
00000320: 00 2F 1F 8C 05 53 54 41 20 54 45 4D 50 AA 31 00 |./...STA TEMP.1.|
00000330: 55 1F 96 05 4C 44 41 20 24 44 30 31 38 3B 20 56 |U...LDA $D018; V|
00000340: 49 44 2E 4D 41 54 52 49 58 20 46 52 4F 4D 20 56 |ID.MATRIX FROM V|
00000350: 49 43 AB 49 49 00 5C 1F A0 05 52 B0 00 63 1F AA |IC.II.\...R..c..|
00000360: 05 52 B0 00 6E 1F B4 05 AF 20 23 24 33 43 00 85 |.R..n.... #$3C..|
00000370: 1F BE 05 B0 41 20 54 45 4D 50 AA 31 3B 20 43 4F |....A TEMP.1; CO|
00000380: 4D 42 49 4E 45 00 91 1F C8 05 53 54 41 20 24 41 |MBINE.....STA $A|
00000390: 46 00 9F 1F D2 05 4D 4F 56 49 54 20 53 45 49 00 |F.....MOVIT SEI.|
000003A0: AB 1F DC 05 4C 44 41 20 24 30 31 00 B3 1F E6 05 |....LDA $01.....|
000003B0: 50 48 41 00 CD 1F F0 05 AF 20 23 24 46 44 3B 20 |PHA...... #$FD; |
000003C0: 4D 41 53 4B 20 4F 55 54 20 52 4F 4D 53 00 D9 1F |MASK OUT ROMS...|
000003D0: FA 05 53 54 41 20 24 30 31 00 E6 1F 04 06 4C 44 |..STA $01.....LD|
000003E0: 58 20 23 24 30 30 00 F3 1F 0E 06 4C 44 59 20 54 |X #$00.....LDY T|
000003F0: 45 4D 50 00 03 20 18 06 42 45 51 20 52 45 43 4F |EMP.. ..BEQ RECO|
00000400: 56 45 52 00 16 20 22 06 49 4E 59 3B 20 23 24 46 |VER.. ".INY; #$F|
00000410: 46 AA 31 B2 30 30 00 2B 20 2C 06 53 A4 52 45 20 |F.1.00.+ ,.S.RE |
00000420: 4C 44 41 20 28 24 41 45 29 2C 59 00 3B 20 36 06 |LDA ($AE),Y.; 6.|
00000430: 53 54 41 20 28 24 31 34 29 2C 59 00 43 20 40 06 |STA ($14),Y.C @.|
00000440: 49 4E 59 00 50 20 4A 06 42 4E 45 20 53 A4 52 45 |INY.P J.BNE S.RE|
00000450: 00 66 20 54 06 49 4E 43 20 24 31 35 3B 20 48 42 |.f T.INC $15; HB|
00000460: 20 44 45 53 54 2E 00 7B 20 5E 06 49 4E 43 20 24 | DEST..{ ^.INC $|
00000470: 41 46 3B 20 48 42 20 53 52 43 2E 00 83 20 68 06 |AF; HB SRC... h.|
00000480: 49 4E 58 00 90 20 72 06 43 50 58 20 23 24 30 34 |INX.. r.CPX #$04|
00000490: 00 9D 20 7C 06 42 43 43 20 53 A4 52 45 00 BF 20 |.. |.BCC S.RE.. |
000004A0: 86 06 43 4F 4C B0 20 4C 44 41 20 23 24 44 38 3B |..COL. LDA #$D8;|
000004B0: 20 48 42 20 4F 46 20 43 4F 4C B0 20 52 41 4D 00 | HB OF COL. RAM.|
000004C0: CB 20 90 06 53 54 41 20 24 41 46 00 EC 20 9A 06 |. ..STA $AF.. ..|
000004D0: 43 4F 4C 31 20 4C 44 41 20 28 24 41 45 29 2C 59 |COL1 LDA ($AE),Y|
000004E0: 3B 20 A1 20 41 20 4E 59 42 42 4C 45 00 F4 20 A4 |; . A NYBBLE.. .|
000004F0: 06 41 53 4C 00 FC 20 AE 06 41 53 4C 00 04 21 B8 |.ASL.. ..ASL..!.|
00000500: 06 41 53 4C 00 1E 21 C2 06 41 53 4C 3B 20 4D 4F |.ASL..!..ASL; MO|
00000510: 56 45 20 A4 20 48 49 20 4E 59 42 42 4C 45 00 31 |VE . HI NYBBLE.1|
00000520: 21 CC 06 53 54 41 20 54 45 4D 50 3B 20 94 20 49 |!..STA TEMP; . I|
00000530: 54 00 3D 21 D6 06 49 4E 43 20 24 41 46 00 4D 21 |T.=!..INC $AF.M!|
00000540: E0 06 4C 44 41 20 28 24 41 45 29 2C 59 00 58 21 |..LDA ($AE),Y.X!|
00000550: EA 06 AF 20 23 24 30 46 00 64 21 F4 06 B0 41 20 |... #$0F.d!...A |
00000560: 54 45 4D 50 00 70 21 FE 06 44 45 43 20 24 41 46 |TEMP.p!..DEC $AF|
00000570: 00 80 21 08 07 53 54 41 20 28 24 31 34 29 2C 59 |..!..STA ($14),Y|
00000580: 00 88 21 12 07 49 4E 59 00 95 21 1C 07 42 4E 45 |..!..INY..!..BNE|
00000590: 20 43 4F 4C 31 00 9D 21 26 07 49 4E 58 00 AA 21 | COL1..!&.INX..!|
000005A0: 30 07 43 50 58 20 23 24 30 36 00 B6 21 3A 07 42 |0.CPX #$06..!:.B|
000005B0: 45 51 20 44 91 45 00 C2 21 44 07 49 4E 43 20 24 |EQ D.E..!D.INC $|
000005C0: 31 35 00 CE 21 4E 07 49 4E 43 20 24 41 46 00 DA |15..!N.INC $AF..|
000005D0: 21 58 07 49 4E 43 20 24 41 46 00 E7 21 62 07 42 |!X.INC $AF..!b.B|
000005E0: 4E 45 20 43 4F 4C 31 00 ED 21 6C 07 3B 00 05 22 |NE COL1..!l.;.."|
000005F0: 76 07 52 45 43 4F 56 45 52 20 4C 44 41 20 28 24 |v.RECOVER LDA ($|
00000600: 31 34 29 2C 59 00 15 22 80 07 53 54 41 20 28 24 |14),Y.."..STA ($|
00000610: 41 45 29 2C 59 00 1D 22 8A 07 49 4E 59 00 2D 22 |AE),Y.."..INY.-"|
00000620: 94 07 42 4E 45 20 52 45 43 4F 56 45 52 00 42 22 |..BNE RECOVER.B"|
00000630: 9E 07 49 4E 43 20 24 31 35 3B 20 48 42 20 53 52 |..INC $15; HB SR|
00000640: 43 2E 00 58 22 A8 07 49 4E 43 20 24 41 46 3B 20 |C..X"..INC $AF; |
00000650: 48 42 20 44 45 53 54 2E 00 60 22 B2 07 49 4E 58 |HB DEST..`"..INX|
00000660: 00 6D 22 BC 07 43 50 58 20 23 24 30 34 00 7D 22 |.m"..CPX #$04.}"|
00000670: C6 07 42 43 43 20 52 45 43 4F 56 45 52 00 A2 22 |..BCC RECOVER.."|
00000680: D0 07 52 45 43 43 4F 4C 20 4C 44 41 20 23 24 44 |..RECCOL LDA #$D|
00000690: 39 3B 20 50 47 32 20 4F 46 20 43 4F 4C B0 20 52 |9; PG2 OF COL. R|
000006A0: 41 4D 00 AE 22 DA 07 53 54 41 20 24 41 46 00 CD |AM.."..STA $AF..|
000006B0: 22 E4 07 43 4F 4C 32 20 4C 44 41 20 28 24 31 34 |"..COL2 LDA ($14|
000006C0: 29 2C 59 3B 20 A1 20 41 20 42 59 54 45 00 EE 22 |),Y; . A BYTE.."|
000006D0: EE 07 53 54 41 20 28 24 41 45 29 2C 59 3B 20 49 |..STA ($AE),Y; I|
000006E0: 47 4E B0 45 20 48 49 AB 4E 59 42 42 4C 45 00 F6 |GN.E HI.NYBBLE..|
000006F0: 22 F8 07 4C 53 52 00 FE 22 02 08 4C 53 52 00 06 |"..LSR.."..LSR..|
00000700: 23 0C 08 4C 53 52 00 1D 23 16 08 4C 53 52 3B 20 |#..LSR..#..LSR; |
00000710: 4D 4F 56 45 20 A4 20 4C 4F 20 4E 59 42 00 29 23 |MOVE . LO NYB.)#|
00000720: 20 08 44 45 43 20 24 41 46 00 42 23 2A 08 53 54 | .DEC $AF.B#*.ST|
00000730: 41 20 28 24 41 45 29 2C 59 3B 20 53 A4 52 45 20 |A ($AE),Y; S.RE |
00000740: 49 54 00 4E 23 34 08 49 4E 43 20 24 41 46 00 5D |IT.N#4.INC $AF.]|
00000750: 23 3E 08 49 4E 59 3B 20 50 4F B5 45 52 00 6A 23 |#>.INY; PO.ER.j#|
00000760: 48 08 42 4E 45 20 43 4F 4C 32 00 72 23 52 08 49 |H.BNE COL2.r#R.I|
00000770: 4E 58 00 8D 23 5C 08 43 50 58 20 23 24 30 36 3B |NX..#\.CPX #$06;|
00000780: 20 45 4E 4F 55 47 48 20 54 49 4D 45 53 00 99 23 | ENOUGH TIMES..#|
00000790: 66 08 42 45 51 20 44 91 45 00 A5 23 70 08 49 4E |f.BEQ D.E..#p.IN|
000007A0: 43 20 24 31 35 00 B1 23 7A 08 49 4E 43 20 24 41 |C $15..#z.INC $A|
000007B0: 46 00 BD 23 84 08 49 4E 43 20 24 41 46 00 CA 23 |F..#..INC $AF..#|
000007C0: 8E 08 42 4E 45 20 43 4F 4C 32 00 D0 23 98 08 3B |..BNE COL2..#..;|
000007D0: 00 E5 23 A2 08 44 91 45 20 50 4C 41 3B 20 A1 20 |..#..D.E PLA; . |
000007E0: 43 91 46 49 47 00 F9 23 AC 08 53 54 41 20 24 30 |C.FIG..#..STA $0|
000007F0: 31 3B 20 AF 20 8C 20 49 54 00 01 24 B6 08 43 4C |1; . . IT..$..CL|
00000800: 49 00 0E 24 C0 08 80 52 45 43 20 52 54 53 00 00 |I..$...REC RTS..|
00000810: 00 |. |
........ $C900......O......S.:...;......
VIDEO.MOVE .......@...;.O...TEMP . $C3.
U.$.;.O...LDY #$FF; HERE . S.RE.}.8.BNE
SETUP...B.LDY #$00; HERE . RECOVER...L.S
ETUP STY TEMP.I.V.JSR $B7F1; .E BYTE IN
X...`.CPX #$05; SECTI. 0.4...J.BCS QTY1.
..T.LDA #$E0; USE #$A0 . BAS.ROM...~.AGA
IN DEX.4...BMI .; NO ADDITI..<...CLC.I..
.ADC #$06.^...BCS QTY1; NO KOD.L...BNE A
GAIN...... TAY; . RESULT...D.ADC #$05; E
NOUGH ROOM...N.BCC OK...X.;.P...QTY1 JMP
$B248; ILLEGAL QUANTITY.V...;.....OK ST
Y $15; HI.BYT OF SECT. #.....LDA $0288;
HI.BYT OF SCREEN LOC..:...STA $AF; INIT.
ADDRESSES.G...LDA #$00.S...STA $AE._.(.
STA $14..2.JSR $B7F1; WHICH SCREEN .G..
..<.TXA...F.BEQ MOVIT; 0 . TEXT SCREEN.I
.P.LDA $DD00; VID.BANK FROM CIA 2...Z.R.
; BITS 0 & 1...D.R.; .O 6 & 7...N.R....X
.E. #$FF; INVERT. .... #$C0; ZERO OTHERS
./...STA TEMP.1.U...LDA $D018; VID.MATRI
X FROM VIC.II.\. .R..C...R..N.... #$3C..
....A TEMP.1; COMBINE...H.STA $AF...R.MO
VIT SEI.....LDA $01.....PHA.M.... #$FD;
MASK OUT ROMS.Y...STA $01.....LDX #$00..
...LDY TEMP.. ..BEQ RECOVER.. ".INY; #$F
F.1.00.+ ,.S.RE LDA ($AE),Y.; 6.STA ($14
),Y.C @.INY.P J.BNE S.RE.F T.INC $15; HB
DEST..{ ^.INC $AF; HB SRC... H.INX.. R.
CPX #$04.. |.BCC S.RE.. ..COL. LDA #$D8;
HB OF COL. RAM.K ..STA $AF.. ..COL1 LDA
($AE),Y; . A NYBBLE.. ..ASL.. ..ASL..!.
.ASL..!B.ASL; MOVE . HI NYBBLE.1!L.STA T
EMP; . IT.=!V.INC $AF.M!..LDA ($AE),Y.X!
... #$0F.D!...A TEMP.P!..DEC $AF..!..STA
($14),Y..!..INY..!..BNE COL1..!&.INX..!
0.CPX #$06..!:.BEQ D.E.B!D.INC $15.N!N.I
NC $AF.Z!X.INC $AF..!B.BNE COL1..!L.;.."
V.RECOVER LDA ($14),Y.."..STA ($AE),Y.."
..INY.-"..BNE RECOVER.B"..INC $15; HB SR
C..X"..INC $AF; HB DEST..`"..INX.M"..CPX
#$04.}"F.BCC RECOVER.."P.RECCOL LDA #$D
9; PG2 OF COL. RAM.."Z.STA $AF.M"..COL2
LDA ($14),Y; . A BYTE.."..STA ($AE),Y; I
GN.E HI.NYBBLE.."..LSR.."..LSR..#..LSR..
#..LSR; MOVE . LO NYB.)# .DEC $AF.B#*.ST
A ($AE),Y; S.RE IT.N#4.INC $AF.]#>.INY;
PO.ER.J#H.BNE COL2.R#R.INX..#\.CPX #$06;
ENOUGH TIMES..#F.BEQ D.E..#P.INC $15..#
Z.INC $AF..#..INC $AF.J#..BNE COL2.P#..;
..#..D.E PLA; . C.FIG..#..STA $01; . . I
T..$..CLI..$...REC RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL