COL.SRC
FILE INFORMATION
FILENAME(S): COL.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:15:14
APPEARS ON: 1 disk(s)
FILE HASH
38da79c2627edb6c05ffae06726e3ecfb068ff3f0b4ecfd798315cba01372851
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | COL.SRC | PRG | DuncanTwain | 6 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0E 1C E8 03 AC B2 20 24 43 38 37 38 00 15 |........ $C878..| 00000010: 1C F2 03 2E 4F 00 1C 1C FC 03 2E 53 00 33 1C 06 |....O......S.3..| 00000020: 04 3B AB AB AB 20 43 4F 4C B0 2E 4D 4F 56 45 20 |.;... COL..MOVE | 00000030: AB AB AB 00 39 1C 10 04 3B 00 48 1C 1A 04 54 45 |....9...;.H...TE| 00000040: 4D 50 20 B2 20 24 43 33 00 4E 1C 24 04 3B 00 68 |MP . $C3.N.$.;.h| 00000050: 1C 2E 04 4C 44 59 20 23 24 46 46 3B 20 46 4C 41 |...LDY #$FF; FLA| 00000060: 47 20 B2 20 53 A4 52 45 00 76 1C 38 04 42 4E 45 |G . S.RE.v.8.BNE| 00000070: 20 53 45 54 55 50 00 93 1C 42 04 4C 44 59 20 23 | SETUP...B.LDY #| 00000080: 24 30 30 3B 20 46 4C 41 47 20 B2 20 52 45 43 4F |$00; FLAG . RECO| 00000090: 56 45 52 00 AF 1C 4C 04 53 45 54 55 50 20 53 54 |VER...L.SETUP ST| 000000A0: 59 20 54 45 4D 50 3B 20 94 20 45 4E 54 52 59 00 |Y TEMP; . ENTRY.| 000000B0: CD 1C 56 04 4A 53 52 20 24 42 37 46 31 3B 20 53 |..V.JSR $B7F1; S| 000000C0: 45 43 54 49 91 20 23 20 49 4E 20 2E 58 00 EB 1C |ECTI. # IN .X...| 000000D0: 60 04 43 50 58 20 23 24 31 30 3B 20 43 48 4B 2E |`.CPX #$10; CHK.| 000000E0: 20 52 41 4E 47 45 20 30 AB 31 35 00 06 1D 6A 04 | RANGE 0.15...j.| 000000F0: 42 43 53 20 51 54 59 31 3B 20 B1 24 30 46 20 49 |BCS QTY1; .$0F I| 00000100: 4C 4C 45 47 41 4C 00 0E 1D 74 04 54 58 41 00 1F |LLEGAL...t.TXA..| 00000110: 1D 7E 04 41 53 4C 3B 20 54 49 4D 45 53 20 32 00 |.~.ASL; TIMES 2.| 00000120: 27 1D 88 04 43 4C 43 00 46 1D 92 04 41 44 43 20 |'...CLC.F...ADC | 00000130: 23 24 45 30 3B 20 55 53 45 20 41 30 20 81 20 42 |#$E0; USE A0 . B| 00000140: 41 53 2E 52 4F 4D 00 69 1D 9C 04 42 43 53 20 51 |AS.ROM.i...BCS Q| 00000150: 54 59 31 3B 20 52 4F 4C 4C 45 44 20 4F 56 45 52 |TY1; ROLLED OVER| 00000160: 2E 20 4E 4F 20 52 4F 4F 4D 00 71 1D A6 04 54 41 |. NO ROOM.q...TA| 00000170: 58 00 79 1D B0 04 49 4E 58 00 9F 1D BA 04 42 45 |X.y...INX.....BE| 00000180: 51 20 51 54 59 31 3B 20 57 49 4C 4C 20 52 4F 4C |Q QTY1; WILL ROL| 00000190: 4C 20 4F 56 45 52 2E 20 4E 4F 20 52 4F 4F 4D 00 |L OVER. NO ROOM.| 000001A0: AC 1D C4 04 4C 44 58 20 23 24 30 30 00 C9 1D CE |....LDX #$00....| 000001B0: 04 53 54 41 20 24 32 35 3B 20 49 4E 49 54 2E 20 |.STA $25; INIT. | 000001C0: 41 44 44 52 45 53 53 45 53 00 D5 1D D8 04 53 54 |ADDRESSES.....ST| 000001D0: 58 20 24 32 32 00 E1 1D E2 04 53 54 58 20 24 32 |X $22.....STX $2| 000001E0: 34 00 F7 1D EC 04 4C 44 58 20 23 24 46 45 3B 20 |4.....LDX #$FE; | 000001F0: 43 4F 55 4E 54 45 52 00 0F 1E F6 04 4C 44 59 20 |COUNTER.....LDY | 00000200: 54 45 4D 50 3B 20 57 48 49 43 48 20 57 41 59 00 |TEMP; WHICH WAY.| 00000210: 1F 1E 00 05 42 45 51 20 52 45 43 4F 56 45 52 00 |....BEQ RECOVER.| 00000220: 36 1E 0A 05 53 41 56 43 4F 4C 20 49 4E 59 3B 20 |6...SAVCOL INY; | 00000230: 23 24 46 46 AA 31 00 53 1E 14 05 4C 44 41 20 23 |#$FF.1.S...LDA #| 00000240: 24 44 38 3B 20 48 42 20 4F 46 20 43 4F 4C B0 20 |$D8; HB OF COL. | 00000250: 52 41 4D 00 70 1E 1E 05 53 54 41 20 24 32 33 3B |RAM.p...STA $23;| 00000260: 20 24 32 32 AB 32 33 20 B2 20 53 4F 55 52 43 45 | $22.23 . SOURCE| 00000270: 00 91 1E 28 05 43 4F 4C 31 20 4C 44 41 20 28 24 |...(.COL1 LDA ($| 00000280: 32 32 29 2C 59 3B 20 A1 20 41 20 4E 59 42 42 4C |22),Y; . A NYBBL| 00000290: 45 00 99 1E 32 05 41 53 4C 00 A1 1E 3C 05 41 53 |E...2.ASL...<.AS| 000002A0: 4C 00 A9 1E 46 05 41 53 4C 00 C3 1E 50 05 41 53 |L...F.ASL...P.AS| 000002B0: 4C 3B 20 4D 4F 56 45 20 A4 20 48 49 20 4E 59 42 |L; MOVE . HI NYB| 000002C0: 42 4C 45 00 D6 1E 5A 05 53 54 41 20 54 45 4D 50 |BLE...Z.STA TEMP| 000002D0: 3B 20 94 20 49 54 00 F6 1E 64 05 49 4E 43 20 24 |; . IT...d.INC $| 000002E0: 32 33 3B 20 82 20 50 47 2E 20 4F 46 20 43 4F 4C |23; . PG. OF COL| 000002F0: 2E 20 4D 45 4D 2E 00 0C 1F 6E 05 4C 44 41 20 28 |. MEM....n.LDA (| 00000300: 24 32 32 29 2C 59 3B 20 A1 20 49 54 00 17 1F 78 |$22),Y; . IT...x| 00000310: 05 AF 20 23 24 30 46 00 30 1F 82 05 B0 41 20 54 |.. #$0F.0....A T| 00000320: 45 4D 50 3B 20 43 4F 4D 42 49 4E 45 20 27 45 4D |EMP; COMBINE 'EM| 00000330: 00 49 1F 8C 05 44 45 43 20 24 32 33 3B 20 50 52 |.I...DEC $23; PR| 00000340: 45 50 41 52 45 20 81 20 82 00 59 1F 96 05 53 54 |EPARE . ..Y...ST| 00000350: 41 20 28 24 32 34 29 2C 59 00 61 1F A0 05 49 4E |A ($24),Y.a...IN| 00000360: 59 00 6E 1F AA 05 42 4E 45 20 43 4F 4C 31 00 76 |Y.n...BNE COL1.v| 00000370: 1F B4 05 49 4E 58 00 91 1F BE 05 42 45 51 20 45 |...INX.....BEQ E| 00000380: 58 49 54 3B 20 45 4E 4F 55 47 48 20 54 49 4D 45 |XIT; ENOUGH TIME| 00000390: 53 00 9D 1F C8 05 49 4E 43 20 24 32 35 00 A9 1F |S.....INC $25...| 000003A0: D2 05 49 4E 43 20 24 32 33 00 B5 1F DC 05 49 4E |..INC $23.....IN| 000003B0: 43 20 24 32 33 00 D1 1F E6 05 42 4E 45 20 43 4F |C $23.....BNE CO| 000003C0: 4C 31 3B 20 42 52 41 4E 43 48 20 41 4C 57 41 59 |L1; BRANCH ALWAY| 000003D0: 53 00 D7 1F F0 05 3B 00 FA 1F FA 05 51 54 59 31 |S.....;.....QTY1| 000003E0: 20 4A 4D 50 20 24 42 32 34 38 3B 20 49 4C 4C 45 | JMP $B248; ILLE| 000003F0: 47 41 4C 20 51 55 41 4E 54 2E 00 00 20 04 06 3B |GAL QUANT... ..;| 00000400: 00 10 20 0E 06 52 45 43 4F 56 45 52 20 53 45 49 |.. ..RECOVER SEI| 00000410: 00 26 20 18 06 4C 44 41 20 24 30 31 3B 20 A1 20 |.& ..LDA $01; . | 00000420: 43 91 46 49 47 2E 00 2E 20 22 06 50 48 41 00 48 |C.FIG... ".PHA.H| 00000430: 20 2C 06 AF 20 23 24 46 44 3B 20 4D 41 53 4B 20 | ,.. #$FD; MASK | 00000440: 4F 55 54 20 52 4F 4D 53 00 54 20 36 06 53 54 41 |OUT ROMS.T 6.STA| 00000450: 20 24 30 31 00 72 20 40 06 4C 44 41 20 23 24 44 | $01.r @.LDA #$D| 00000460: 39 3B 20 50 47 32 20 4F 46 20 43 4F 4C B0 20 52 |9; PG2 OF COL. R| 00000470: 41 4D 00 7E 20 4A 06 53 54 41 20 24 32 33 00 9D |AM.~ J.STA $23..| 00000480: 20 54 06 43 4F 4C 32 20 4C 44 41 20 28 24 32 34 | T.COL2 LDA ($24| 00000490: 29 2C 59 3B 20 A1 20 41 20 42 59 54 45 00 BE 20 |),Y; . A BYTE.. | 000004A0: 5E 06 53 54 41 20 28 24 32 32 29 2C 59 3B 20 49 |^.STA ($22),Y; I| 000004B0: 47 4E B0 45 20 48 49 AB 4E 59 42 42 4C 45 00 C6 |GN.E HI.NYBBLE..| 000004C0: 20 68 06 4C 53 52 00 CE 20 72 06 4C 53 52 00 D6 | h.LSR.. r.LSR..| 000004D0: 20 7C 06 4C 53 52 00 ED 20 86 06 4C 53 52 3B 20 | |.LSR.. ..LSR; | 000004E0: 4D 4F 56 45 20 A4 20 4C 4F 20 4E 59 42 00 F9 20 |MOVE . LO NYB.. | 000004F0: 90 06 44 45 43 20 24 32 33 00 12 21 9A 06 53 54 |..DEC $23..!..ST| 00000500: 41 20 28 24 32 32 29 2C 59 3B 20 53 A4 52 45 20 |A ($22),Y; S.RE | 00000510: 49 54 00 1E 21 A4 06 49 4E 43 20 24 32 33 00 2D |IT..!..INC $23.-| 00000520: 21 AE 06 49 4E 59 3B 20 50 4F B5 45 52 00 3A 21 |!..INY; PO.ER.:!| 00000530: B8 06 42 4E 45 20 43 4F 4C 32 00 42 21 C2 06 49 |..BNE COL2.B!..I| 00000540: 4E 58 00 4F 21 CC 06 42 45 51 20 52 44 91 45 00 |NX.O!..BEQ RD.E.| 00000550: 5B 21 D6 06 49 4E 43 20 24 32 35 00 67 21 E0 06 |[!..INC $25.g!..| 00000560: 49 4E 43 20 24 32 33 00 73 21 EA 06 49 4E 43 20 |INC $23.s!..INC | 00000570: 24 32 33 00 80 21 F4 06 42 4E 45 20 43 4F 4C 32 |$23..!..BNE COL2| 00000580: 00 96 21 FE 06 52 44 91 45 20 50 4C 41 3B 20 A1 |..!..RD.E PLA; .| 00000590: 20 43 91 46 49 47 00 AA 21 08 07 53 54 41 20 24 | C.FIG..!..STA $| 000005A0: 30 31 3B 20 AF 20 8C 20 49 54 00 B2 21 12 07 43 |01; . . IT..!..C| 000005B0: 4C 49 00 BF 21 1C 07 45 58 49 54 20 52 54 53 00 |LI..!..EXIT RTS.| 000005C0: 00 00 |.. |
........ $C878......O......S.3...;... CO L..MOVE ....9...;.H...TEMP . $C3.N.$.;.H ...LDY #$FF; FLAG . S.RE.V.8.BNE SETUP.. .B.LDY #$00; FLAG . RECOVER...L.SETUP ST Y TEMP; . ENTRY.M.V.JSR $B7F1; SECTI. # IN .X...`.CPX #$10; CHK. RANGE 0.15...J. BCS QTY1; .$0F ILLEGAL...T.TXA...~.ASL; TIMES 2.'...CLC.F...ADC #$E0; USE A0 . B AS.ROM.I...BCS QTY1; ROLLED OVER. NO ROO M.Q...TAX.Y...INX.....BEQ QTY1; WILL ROL L OVER. NO ROOM...D.LDX #$00.I.N.STA $25 ; INIT. ADDRESSES.U.X.STX $22.....STX $2 4.....LDX #$FE; COUNTER.....LDY TEMP; WH ICH WAY.....BEQ RECOVER.6...SAVCOL INY; #$FF.1.S...LDA #$D8; HB OF COL. RAM.P... STA $23; $22.23 . SOURCE...(.COL1 LDA ($ 22),Y; . A NYBBLE...2.ASL...<.ASL...F.AS L.C.P.ASL; MOVE . HI NYBBLE.V.Z.STA TEMP ; . IT...D.INC $23; . PG. OF COL. MEM... .N.LDA ($22),Y; . IT...X.. #$0F.0....A T EMP; COMBINE 'EM.I...DEC $23; PREPARE . ..Y...STA ($24),Y.A. .INY.N...BNE COL1.V ...INX.....BEQ EXIT; ENOUGH TIMES...H.IN C $25...R.INC $23.....INC $23.Q...BNE CO L1; BRANCH ALWAYS.W...;.....QTY1 JMP $B2 48; ILLEGAL QUANT... ..;.. ..RECOVER SEI .& ..LDA $01; . C.FIG... ".PHA.H ,.. #$F D; MASK OUT ROMS.T 6.STA $01.R @.LDA #$D 9; PG2 OF COL. RAM.~ J.STA $23.. T.COL2 LDA ($24),Y; . A BYTE.. ^.STA ($22),Y; I GN.E HI.NYBBLE.F H.LSR.N R.LSR.V |.LSR.. ..LSR; MOVE . LO NYB.. ..DEC $23..!..ST A ($22),Y; S.RE IT..!..INC $23.-!..INY; PO.ER.:!..BNE COL2.B!B.INX.O!L.BEQ RD.E. [!V.INC $25.G!..INC $23.S!..INC $23..!.. BNE COL2..!..RD.E PLA; . C.FIG..!..STA $ 01; . . IT..!..CLI..!..EXIT RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL