[CSDb] - User Forums - Release id #11465 : Han Solo 2blk demo

Welcome to our latest new user Harvey ! (Registered 2024-11-25)

You are not logged in - nap

CSDb User Forums

Forums > CSDb Entries > Release id #11465 : Han Solo 2blk demo

2011-11-04 12:17

bugjam

Registered: Apr 2003
Posts: 2581

Release id #11465 : Han Solo 2blk demo

Anybody got an idea which "Han Solo" coded this little thing? Maybe Han Solo ? I tried to contact him, but the email address is not valid anymore...

2011-11-04 14:57

Skate

Registered: Jul 2003
Posts: 494

I'm not %100 sure but I believe it was coded by this Han Solo.

His final release is in 1996 and it is a plasma. :)

2011-11-04 15:57

E$G

Registered: Dec 2007
Posts: 840

Source:

J $080D

$080D A9 E2 LDA #$E2
$080F 8D 18 03 STA $0318
$0812 A9 FC LDA #$FC
$0814 8D 19 03 STA $0319
$0817 A9 01 LDA #$01
$0819 A2 00 LDX #$00
$081B 86 FE STX $FE
$081D A0 3F LDY #$3F
$081F 86 FC STX $FC
//------------------------------
L_BRS_($0821)_($0848) OK
//------------------------------
$0821 86 FB STX $FB
$0823 65 FB ADC $FB
$0825 90 02 BCC L_BRS_($0829)_($0825) OK
$0827 E6 FC INC $FC
//------------------------------
L_BRS_($0829)_($0825) OK
//------------------------------
$0829 48 PHA
$082A 4A LSR A
$082B 4A LSR A
$082C 4A LSR A
$082D 85 FB STA $FB
$082F A5 FC LDA $FC
$0831 0A ASL A
$0832 0A ASL A
$0833 0A ASL A
$0834 0A ASL A
$0835 .byte $47,$FB
$0837 9D 00 C0 STA $C000,X
$083A 99 C0 C0 STA $C0C0,Y
$083D 49 FF EOR #$FF
//------------------------------
L_BRS_($083F)_($0807) OK
//------------------------------
$083F 9D 80 C0 STA $C080,X
$0842 99 40 C0 STA $C040,Y
$0845 68 PLA
$0846 E8 INX
$0847 88 DEY
$0848 10 D7 BPL L_BRS_($0821)_($0848) OK
$084A A9 AA LDA #$AA
$084C C8 INY
$084D A2 20 LDX #$20
$084F 84 FB STY $FB
$0851 86 FC STX $FC
//------------------------------
L_BRS_($0853)_($085B) OK
L_BRS_($0853)_($0860) OK
//------------------------------
$0853 91 FB STA ($FB),Y
$0855 4A LSR A
$0856 C8 INY
$0857 91 FB STA ($FB),Y
$0859 0A ASL A
$085A C8 INY
$085B D0 F6 BNE L_BRS_($0853)_($085B) OK
$085D E6 FC INC $FC
$085F CA DEX
$0860 D0 F1 BNE L_BRS_($0853)_($0860) OK
$0862 86 FB STX $FB
$0864 88 DEY
$0865 8C 0E D4 STY $D40E // Voice 3: Frequency Control - Low-Byte
$0868 A9 10 LDA #$10
$086A 8D 0F D4 STA $D40F // Voice 3: Frequency Control - High-Byte
$086D A9 09 LDA #$09
$086F 8D 05 D4 STA $D405 // Voice 1: Attack / Decay Cycle Control
$0872 A9 21 LDA #$21
$0874 8D 06 D4 STA $D406 // Voice 1: Sustain / Release Cycle Control
$0877 A9 C0 LDA #$C0
$0879 8D 0D D4 STA $D40D // Voice 2: Sustain / Release Cycle Control
$087C A2 11 LDX #$11
$087E 8E 0B D4 STX $D40B // Voice 2: Control Register
$0881 E8 INX
$0882 8E 13 D4 STX $D413 // Voice 3: Attack / Decay Cycle Control
$0885 A9 0F LDA #$0F
$0887 8D 18 D4 STA $D418 // Select Filter Mode and Volume
$088A A9 7F LDA #$7F
$088C 8D 0D DC STA $DC0D // Interrupt (IRQ) Control Register
$088F 78 SEI
$0890 C8 INY
$0891 84 05 STY $05
$0893 A9 47 LDA #$47
$0895 8D 14 03 STA $0314
$0898 A9 09 LDA #$09
$089A 8D 15 03 STA $0315
$089D A9 24 LDA #$24
$089F 8D 12 D0 STA $D012 // Raster Position
$08A2 A9 3B LDA #$3B
$08A4 8D 11 D0 STA $D011 // Control Register 1
$08A7 A9 38 LDA #$38
$08A9 8D 18 D0 STA $D018 // Memory Control Register
$08AC C8 INY
$08AD 8C 1A D0 STY $D01A // Interrupt Mask Register (IMR)
$08B0 8C 19 D0 STY $D019 // Interrupt Request Register (IRR)
$08B3 58 CLI
$08B4 A9 04 LDA #$04
$08B6 85 FF STA $FF
//------------------------------
L_BRS_($08B8)_($0923) OK
//------------------------------
$08B8 E6 FD INC $FD
$08BA E6 FB INC $FB
$08BC E6 FB INC $FB
$08BE E6 FC INC $FC
$08C0 A0 00 LDY #$00
$08C2 A9 19 LDA #$19
$08C4 85 03 STA $03
$08C6 A9 28 LDA #$28
$08C8 85 02 STA $02
//------------------------------
L_BRS_($08CA)_($090F) OK
L_BRS_($08CA)_($0917) OK
//------------------------------
$08CA A5 02 LDA $02
$08CC A6 FB LDX $FB
$08CE 18 CLC
$08CF 7D 00 C0 ADC $C000,X
$08D2 0A ASL A
$08D3 0A ASL A
$08D4 AA TAX
$08D5 BD 00 C0 LDA $C000,X
$08D8 85 04 STA $04
$08DA A5 03 LDA $03
$08DC A6 FC LDX $FC
$08DE 18 CLC
$08DF 7D 00 C0 ADC $C000,X
$08E2 0A ASL A
$08E3 0A ASL A
$08E4 AA TAX
$08E5 BD 00 C0 LDA $C000,X
$08E8 18 CLC
$08E9 65 04 ADC $04
$08EB A6 FD LDX $FD
$08ED 18 CLC
$08EE 7D 00 C0 ADC $C000,X
$08F1 4A LSR A
$08F2 4A LSR A
$08F3 4A LSR A
$08F4 4A LSR A
$08F5 AA TAX
$08F6 69 00 ADC #$00
$08F8 85 04 STA $04
$08FA BD 26 09 LDA $0926,X
$08FD A6 04 LDX $04
$08FF 0A ASL A
$0900 0A ASL A
$0901 0A ASL A
$0902 0A ASL A
$0903 7D 26 09 ADC $0926,X
$0906 91 FE STA ($FE),Y
$0908 C8 INY
$0909 D0 02 BNE L_BRS_($090D)_($0909) OK
$090B E6 FF INC $FF
//------------------------------
L_BRS_($090D)_($0909) OK
//------------------------------
$090D C6 02 DEC $02
$090F D0 B9 BNE L_BRS_($08CA)_($090F) OK
$0911 A9 28 LDA #$28
$0913 85 02 STA $02
$0915 C6 03 DEC $03
$0917 D0 B1 BNE L_BRS_($08CA)_($0917) OK
$0919 C6 05 DEC $05
$091B A5 FF LDA $FF
$091D E9 02 SBC #$02
$091F 49 08 EOR #$08
$0921 85 FF STA $FF
$0923 D0 93 BNE L_BRS_($08B8)_($0923) OK
$0925 0D 00 0B ORA $0B00
$0928 .byte $0C,$0F
$092A 01 03 ORA ($03,X)
$092C 0E 06 00 ASL $0006
$092F .byte $02
$0930 0A ASL A
$0931 .byte $07
$0932 01 0D ORA ($0D,X)
$0934 05 09 ORA $09
$0936 .byte $00
$0937 68 PLA
$0938 .byte $89
$0939 EE 3C 14 INC $143C
$093C 46 DB LSR $DB
$093E .byte $CF
$093F 11 13 ORA ($13),Y
$0941 15 17 ORA $17,X
$0943 .byte $1A
$0944 1D 20 22 ORA $2220,X
$0947 A0 07 LDY #$07
$0949 A2 05 LDX #$05
//------------------------------
L_BRS_($094B)_($094C) OK
//------------------------------
$094B CA DEX
$094C D0 FD BNE L_BRS_($094B)_($094C) OK
//------------------------------
L_BRS_($094E)_($095A) OK
//------------------------------
$094E A2 0A LDX #$0A
//------------------------------
L_BRS_($0950)_($0951) OK
//------------------------------
$0950 CA DEX
$0951 D0 FD BNE L_BRS_($0950)_($0951) OK
$0953 B9 2E 09 LDA $092E,Y
$0956 8D 20 D0 STA $D020 // Border Color
$0959 88 DEY
$095A 10 F2 BPL L_BRS_($094E)_($095A) OK
$095C AD 25 09 LDA $0925
$095F 49 0A EOR #$0A
$0961 8D 25 09 STA $0925
$0964 8C 12 D0 STY $D012 // Raster Position
$0967 A9 D7 LDA #$D7
$0969 8D 14 03 STA $0314
$096C A5 05 LDA $05
$096E F0 61 BEQ L_BRS_($09D1)_($096E) OK
$0970 AD 18 D0 LDA $D018 // Memory Control Register
$0973 49 20 EOR #$20
$0975 8D 18 D0 STA $D018 // Memory Control Register
$0978 E6 05 INC $05
$097A E6 06 INC $06
$097C A5 06 LDA $06
$097E 4A LSR A
$097F 90 0C BCC L_BRS_($098D)_($097F) OK
$0981 A9 20 LDA #$20
$0983 8D 04 D4 STA $D404 // Voice 1: Control Register
$0986 A9 80 LDA #$80
$0988 8D 12 D4 STA $D412 // Voice 3: Control Register
$098B D0 44 BNE L_BRS_($09D1)_($098B) OK
//------------------------------
L_BRS_($098D)_($097F) OK
//------------------------------
$098D A6 07 LDX $07
$098F E8 INX
$0990 4E 1B D4 LSR $D41B // Oscillator 3 Output
$0993 90 02 BCC L_BRS_($0997)_($0993) OK
$0995 CA DEX
$0996 CA DEX
//------------------------------
L_BRS_($0997)_($0993) OK
//------------------------------
$0997 86 07 STX $07
$0999 8A TXA
$099A 29 07 AND #$07
$099C AA TAX
$099D BC 37 09 LDY $0937,X
$09A0 8C 00 D4 STY $D400 // Voice 1: Frequency Control - Low-Byte
$09A3 BC 3F 09 LDY $093F,X
$09A6 8C 01 D4 STY $D401 // Voice 1: Frequency Control - High-Byte
$09A9 18 CLC
$09AA 69 04 ADC #$04
$09AC 29 07 AND #$07
$09AE AA TAX
$09AF BD 37 09 LDA $0937,X
$09B2 8D 07 D4 STA $D407 // Voice 2: Frequency Control - Low-Byte
$09B5 BD 3F 09 LDA $093F,X
$09B8 8D 08 D4 STA $D408 // Voice 2: Frequency Control - High-Byte
$09BB A5 06 LDA $06
$09BD 4A LSR A
$09BE 4A LSR A
$09BF B0 06 BCS L_BRS_($09C7)_($09BF) OK
$09C1 29 03 AND #$03
$09C3 C9 03 CMP #$03
$09C5 D0 05 BNE L_BRS_($09CC)_($09C5) OK
//------------------------------
L_BRS_($09C7)_($09BF) OK
//------------------------------
$09C7 A9 81 LDA #$81
$09C9 8D 12 D4 STA $D412 // Voice 3: Control Register
//------------------------------
L_BRS_($09CC)_($09C5) OK
//------------------------------
$09CC A9 21 LDA #$21
$09CE 8D 04 D4 STA $D404 // Voice 1: Control Register
//------------------------------
L_BRS_($09D1)_($096E) OK
L_BRS_($09D1)_($098B) OK
L_BRS_($09D1)_($09F6) OK
//------------------------------
$09D1 4E 19 D0 LSR $D019 // Interrupt Request Register (IRR)
$09D4 4C 81 EA JMP $EA81 // Restore A/X/Y and End IRQ
//------------------------------
$09D7 A0 08 LDY #$08
$09D9 A2 05 LDX #$05
//------------------------------
L_BRS_($09DB)_($09DC) OK
//------------------------------
$09DB CA DEX
$09DC D0 FD BNE L_BRS_($09DB)_($09DC) OK
//------------------------------
L_BRS_($09DE)_($09EA) OK
//------------------------------
$09DE A2 0A LDX #$0A
//------------------------------
L_BRS_($09E0)_($09E1) OK
//------------------------------
$09E0 CA DEX
$09E1 D0 FD BNE L_BRS_($09E0)_($09E1) OK
$09E3 B9 25 09 LDA $0925,Y
$09E6 8D 20 D0 STA $D020 // Border Color
$09E9 88 DEY
$09EA 10 F2 BPL L_BRS_($09DE)_($09EA) OK
$09EC A9 47 LDA #$47
$09EE 8D 14 03 STA $0314
$09F1 A9 24 LDA #$24
$09F3 8D 12 D0 STA $D012 // Raster Position
$09F6 D0 D9 BNE L_BRS_($09D1)_($09F6) OK

2011-11-04 16:24

bugjam

Registered: Apr 2003
Posts: 2581

@Skate: I don't think it is this one; I was suspecting him as well, but on the other hand, I got all his stuff on the computer, and this 2Block intro is not amongst it. I will ask him anyway, he is practically a neighbour. :-)

2011-12-02 21:14

bugjam

Registered: Apr 2003
Posts: 2581

I just skyped with Han Solo , and he is definitely not the one. He told me he coded his plasma just to try out something after seeing some "new school" C64 demos on a party (for the first time after some years without contact to C64 :) . Anyone from the Yugo scene around who might know more about the other Han Solo ?

Refresh

Subscribe to this thread: