Difference between revisions of "Super Huey"

From Software Archive
Jump to navigation Jump to search
(Created page with "Category:C64 Game [https://www.mobygames.com/game/14414/super-huey-uh-ix/ mobygames link] == Source 1 == <!--T:2--> {| class="wikitable" |- ! Property !! Data |- | Title...")
 
 
(One intermediate revision by the same user not shown)
Line 39: Line 39:
 
<gallery>
 
<gallery>
 
File:SuperHuey_Cosmi_q8_a_dos_r1.png|Side 0
 
File:SuperHuey_Cosmi_q8_a_dos_r1.png|Side 0
 +
</gallery>
 +
<gallery>
 +
File:SuperHuey_Cosmi_q8_disk.jpg|Disk
 
</gallery>
 
</gallery>
 
<gallery>
 
<gallery>
Line 44: Line 47:
 
File:SuperHuey_Cosmi_q8_a_game.png|Game
 
File:SuperHuey_Cosmi_q8_a_game.png|Game
 
</gallery>
 
</gallery>
 +
==== Protection ====
 +
in "SH"
 +
 +
3 ifathen442
 +
30 rem adc format protection routine
 +
34 gosub 63989:rem ttttttttttttttttttt
 +
50 kk=3:kc=0:sk=35
 +
60 r1=20:rem tttttttttttttt
 +
190 d$="0"
 +
200 open 15,8,15,"i"+d$:gosub 650
 +
205 open4,4
 +
210 open 2,8,2,"#":gosub 650
 +
215 tk=kk:sc=kc:rem tttttttttttttttttttt
 +
220 print#15,"u1:2,"d$;tk,sc:gosub 650
 +
222 e1=en
 +
225 close 15:close4:close 2
 +
226 gosub 425:rem ttttttttttttttttttt
 +
258 d$="0"
 +
260 open 15,8,15,"i"+d$:gosub 650
 +
265 open4,4
 +
270 open 2,8,2,"#":gosub 650
 +
320 t=sk:s=kc:rem ttttttttttttttttttt
 +
330 print#15,"u1:2,"d$;t,s:gosub 650
 +
332 e2=en
 +
362 close 15:close 4:close 2
 +
422 gosub 435
 +
423 goto 440
 +
425 return:remcheck
 +
427 if e1<>r1 then goto 430:rem ttttttttttttttttttt
 +
428 return
 +
430 print "error 50":end:rem tttttttttttttttttttttttttttttt
 +
432 print "error 30":end:rem tttttttttttttttttttttttttttttt
 +
435 rem check error subroutine
 +
436 if e2<>r1+1 then goto 432:rem ttttttttttttttttttttt
 +
438 return
 +
440 if a then 442
 +
441 print"“qqqlO"+chr$(34)+" rcdir"+chr$(34)+",8"
 +
442 print"qqqqrUs":poke631,13:poke632,13:poke198,2:new
 +
650 input#15,en,em$,et,es:return:rem tttttttttttttttttttt
 +
700 end
 +
63989 ky=2049:for j=1 to 27:rem ttttttttttttttttttt
 +
63991 for lp=1 to (2 16)-1:rem ttttttttttt
 +
63992 lng=peek(ky+2)+peek(ky+3)*256:rem ttttttttt
 +
63993 nxln=peek(ky)+peek(ky+1)*256:rem ttttttttt
 +
63994 if lng<ln then ky=nxln:next lp:end
 +
63995 if lng>ln then print "error":end
 +
63996 lo=peek(ky)+peek(ky+1)*256:rem tttttttttttttttttttt
 +
63997 nl=peek(lo):nh=peek(lo+1)
 +
63998 poke ky,nl:poke ky+1,nh:rem tttttttt
 +
63999 next j:return:rem
 
==== Streams ====
 
==== Streams ====
 
[[File:Streams_SuperHuey_Cosmi_q8.zip]]
 
[[File:Streams_SuperHuey_Cosmi_q8.zip]]

Latest revision as of 20:25, 11 September 2024

mobygames link

Source 1

Property Data
Title Super Huey
Publisher and/or Developer Cosmi Corp.
Year 1985
Disk(s) 1
Number of Index Holes ?
Media Type 5.25 DSDD
Retail, Budget or Compilation (with name) Retail
Country of Release US
Language(s) English
Platform C64
NTSC or PAL NTSC
Protection Checks if track 35 is unformatted
Working? Yes
Archived 7 Sep 2024 enigma, provided by Quadflyer8@F64
Verified by enigma

Protection

in "SH"

3 ifathen442
30 rem adc format protection routine
34 gosub 63989:rem ttttttttttttttttttt
50 kk=3:kc=0:sk=35
60 r1=20:rem tttttttttttttt
190 d$="0"
200 open 15,8,15,"i"+d$:gosub 650
205 open4,4
210 open 2,8,2,"#":gosub 650
215 tk=kk:sc=kc:rem tttttttttttttttttttt
220 print#15,"u1:2,"d$;tk,sc:gosub 650
222 e1=en
225 close 15:close4:close 2
226 gosub 425:rem ttttttttttttttttttt
258 d$="0"
260 open 15,8,15,"i"+d$:gosub 650
265 open4,4
270 open 2,8,2,"#":gosub 650
320 t=sk:s=kc:rem ttttttttttttttttttt
330 print#15,"u1:2,"d$;t,s:gosub 650
332 e2=en
362 close 15:close 4:close 2
422 gosub 435
423 goto 440
425 return:remcheck
427 if e1<>r1 then goto 430:rem ttttttttttttttttttt
428 return
430 print "error 50":end:rem tttttttttttttttttttttttttttttt
432 print "error 30":end:rem tttttttttttttttttttttttttttttt
435 rem check error subroutine
436 if e2<>r1+1 then goto 432:rem ttttttttttttttttttttt
438 return
440 if a then 442
441 print"“qqqlO"+chr$(34)+" rcdir"+chr$(34)+",8"
442 print"qqqqrUs":poke631,13:poke632,13:poke198,2:new
650 input#15,en,em$,et,es:return:rem tttttttttttttttttttt
700 end
63989 ky=2049:for j=1 to 27:rem ttttttttttttttttttt
63991 for lp=1 to (2 16)-1:rem ttttttttttt
63992 lng=peek(ky+2)+peek(ky+3)*256:rem ttttttttt
63993 nxln=peek(ky)+peek(ky+1)*256:rem ttttttttt
63994 if lng<ln then ky=nxln:next lp:end
63995 if lng>ln then print "error":end
63996 lo=peek(ky)+peek(ky+1)*256:rem tttttttttttttttttttt
63997 nl=peek(lo):nh=peek(lo+1)
63998 poke ky,nl:poke ky+1,nh:rem tttttttt
63999 next j:return:rem

Streams

File:Streams SuperHuey Cosmi q8.zip

G64

File:SuperHuey Cosmi q8 s0.g64

Disk side 1 is empty.