Difference between revisions of "Super Huey"
Jump to navigation
Jump to search
| Line 47: | 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"“qqqlO"+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 19:25, 11 September 2024
Contents
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 |
Side 0
Disk
Title
Game
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"“qqqlO"+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.
