; FILE: Source:BlizKick.ASM REV: 505 --- BlizKick - the ultimate maprom tool ; History ; 1 Running OK! ; 15 Now BlizKick should work with all Blizzard turbos. ; 19 Now BlizKick should even support KS 1.0... (?) ; 25 Added LOCALFAST feature. ; 31 Added QUICKBOOT feature. ; 33 Added better Printf. ; 48 Added Better ROM identification code (checksum). ; 65 Added "real" cache clear routine. ; 69 Fixed _seek bug. ; 71 Fixed KS 1.3 SPEEDROM bug. ; 81 Replaced "execinit" patch with resident tag. ; 107 Fix for Blizzard 1260! 1230-IV too!! ; 111 Added original Kickstart restoration. ; 114 Implemented KS1.x KS restoration. ; 115 Improved error messages. ; 116 Improved MAPROM test and CacheClear routine. ; 125 Added HOGWAITBLIT feature. ; 129 Added SetPatch (680x0.library) check. ; 175 Added MODULE feature. ; 186 Added EXTRESBUF feature. ; 210 Added External patches and BKMF_ExtResBuf flag, fixed 1.x ROMTag support. ; 215 Fixed LOCALFAST feature not to force MEMF_LOCAL or MEMF_KICK! ; 220 Fixed KS 1.x ROMTag support. ; 225 Added special handling for 1230-IV and 1260. Fixed FORCE. ; 240 Removed need to be run before SetPatch on 1260 systems. ; 248 Can be used with Enforcer, CPU FASTROM, VMM etc. ; 257 Improved 040/060 cache flushing code. BlizKick release 1.6. ; 266 Fixed bug in 040/060 MMU test code. ; 276 Added XPK support. ; 277 Modified to work better with PowerPC... :) ; 279 Added better (Old)OpenLibrary code. Removed FindName() things. ; 289 Fixed XPK support. ; 293 Now will set memory node name if null. ; 300 Fixed EXTRESBUF. ; 302 Fixed negative return code bug. ; 307 Added ROM address validity test. ; 311 Fixed BLIZZARD 2060 code. ; 313 Fixed one terrible bug from B2060 code. ; 328 Fixing EXTRESBUF... ; 332 Finished! Now it should work with 1260, 2040 and 2060. ; 338 DOES work on 1260. Fixed one minor bug. SoftSCSI module doesn't work. ; 340 Added memheader move code to LOCALFAST. -> Speed AllocMem() ; 343 Fixed reset code! ; 344 Allowed BlizKick to kick same kickfile and rom chip version. ; 348 Fixed .testblizppcrunnommu. Added pseudofile (*) feature. ; 353 Added LastPatches (fix for MEMF_REVERSE svstack, etc.) ; 361 Fixed svstack trash, disabled SVSTACKTRASH. ; 377 Added QUIET switch, fixed LastPatches, KS 33.180 works now! ; 388 Got KS 33.180 finally work 100%. ; 389 Added handling for BKMODPATH env variable. ; 399 Improved HOGWAITBLIT. ; 400 Found out that 2040 and 2060 boards are almost identical. ; 403 Fixed reset code to *disable* caches. ; 404 1.11ß1: Trying to get EXTRESBUF into fastmem. ; 412 Did it. Seems to work 100%. ; 415 Fixed MAPROM test. Now should detect if MAPROM not set. ; 416 Disabled SUPERVISOR_NOREVERSE from LastPatches. ; 421 Added support for (A4000?) CPU Cards. ; 425 Now KS 1.x are only patched if they're original versions. This should ; prevent problems with some patches 1.x ROM images. ; 426 Fixed bug in ROM image validation test. ; 427 9th Dec 1997: ARGH! Wrote nice CPUCard support but forgot to enable ; it!!! ;-) ; 429 Added support for Cyberstorm PPC and MKIII. Now should work at least ; with CBM CPU Cards, Cyberstorm MKI, MKIII and PPC. ; 439 Separated A1200 and other model's check routines. Hopefully fixed CS ; MKIII/PPC support. Added CS MKII support. Now CPUCARD is only meant to ; be used with CS MKI & compatible. ; 442 Fixed few typos etc. ; 443 Fixed stupid BUG from CS support... THANKS DUKEN!! =) ; 444 Had mixed 20x0 and CS MK II product IDs... doh! Thanks shido at #amiga! ; 445 Fixed some Lock bugs. ; 446 13th May 1998 Made the source public in hope someone would continue the ; development. ; 450 6th July 1998 Added Blizzard PPC support. ; 458 8th July 1998 Fixed Blizzard PPC and CS MKII support (I hope). ; 459 17th July 1998 Fixed stupid bug from CS MKII support. ; 461 4th October 1998 Finally fixed the blizz ppc bug. hehe. ; 462 6th October 1998 Fixed support for old KS. ; 463 9th October 1998 Fixed MK2 bug. Ta ChaoZer. ; 464 13th October 1998 Another MK2 fix . Ta ChaoZer. ; 467 3rd November 1998 Disabled rom checksum disable in SPEEDROM. ; 468 24th January 1999 Fixed stupid blizzppc (and probably CSPPC too) ; bug, blizzppc/csppc kernel overwrote EXTRES buffer. Now allocates ; 1mb extra memory. froze 1.18. ; 469 7th November 1999 Made BlizKick use fastmem hunks again. Finally ; made it possible to `FORCE-after-maprom-is-already-active' and remove ; maprom for Blizzard PPC. ; 470 Implemented new straightforward method to solve BKMODPATH variable ; in DoPlanting routine. ; 471 Doesn't Delay(25) if QUIET is specified. ; 472 Added 040/060 move16 optimized copymem256. ; 473 Sped up FindResident and resident module reconnect. froze 1.19. ; 474 7th Jan 2000: Bumped revision strings to 1.20. ; 475 8th Jan 2000: Fixed major memory loss on extresbuf Deallocate on error ; condition. Also that Deallocate() call wasn't called in Forbid state. ; 476 9th Jan 2000: New feature: you can give *any* loadsegable executable ; as module. Resident modules inside will be initialized. Cool. Renders ; SCSIDEV43 module obsolete, just give devs:scsi43.device as one module! ; You can also give l:fastfilesystem etc! wooow, this is WAY too cool. :) ; This required a change in the internal way of handling EXTRES buffer ; + some new InternalLoadSeg code. ; 477 Now uses move.l an,an as nop when possible. FindResident bugged, it ; scanned ROM first, then EXTRES buffer. Fixed to be opposite. ; 478 Added mmu.library support to getmmu and runnommu routine. This is a ; "good thing"(TM). ; 479 14th Jan 2000: LOCALFAST and QUICKBOOT are now finally gone. Arguments ; are there, but do nothing. Now the good news: Finally cleaned up the ; code, and changed EXTRES buffer attaching to ROM such way it finally ; works everytime on blizzppc. Yes! Added new argument SANITY/K/N to ; specify sanity added to EXTRES buffer allocation in kbytes. PoolMem ; could have fucked BlizKick in several ways, it changes MemHeaders on ; the fly... Fixed. froze 1.20. ; 480 17th Jan 2000: *MAJOR BUG*: move16 could have easily got source ; aligned by only 8 causing copy source shifted by 8 bytes -> non ; working rom image. *THIS* has caused all these weird crashed with ; different EXTRESBUF sizes. Me & my ultrafast copyloop. Duh! :( ; Now uses *only* movem copy. ; 481 Wrote separate LocalFast module so removed ARG_LOCALFAST completely. ; exe module support didn't set error code properly when out of EXTRES ; buffer memory. Accidently called dos.library/Open for _gettc when ; exec.library/Supervisor should have been called. Fun thing is that ; this had so side effects. :) froze 1.21. ; 482 29th Jan: Fixed some nastiness from Blizzard 1230 maprom .testcode, ; dunno if this fixes anything, but anyway it was bugged. mmu.library ; getmmu was bugged: it always thought machine had 030 compatible MMU, ; this didn't cause any problems though, but was wrong. Oops, stupid ; bug in MK2 support, blo instead of bhi. Also 20x0 support could have ; been affected. froze 1.22beta1. ; 483 31th Jan: removed CPU Card test code, I think it prevented it from ; working, I hope. froze 1.22beta2. ; 484 3rd Feb: CS MK II works now, but BlizKick didn't recognize if it was ; run before. Tweaked check code to run MMU disabled, see _checkactive. ; froze 1.22beta3. ; 485 24th Feb: Disabled memory header name checks, should now work better ; if memory node name is fucked. Fixed LocalFast module, it was kindof ; broken. froze 1.22beta4. ; 486 my BK_MOD macro was fucked in previous release. damn! :( ; froze 1.22beta5. ; 487 6th Mar: InstallModule BKMB_SingleMode misbehaved if module was ; already installed. fixed. Forgot to remove LOCALFAST commandline ; argument when I wrote LocalFast module. fixed. froze 1.22beta7. ; 488 7th Mar: Removed _regtemp stuff as mmu.library WithoutMMU passes ; registers around. Rewrote runnommu, adding transparent translation ; disable for 68030/68040/68060 and proper ATC cache flushing for ; 68030. Now BlizKick checks for activity first MMU enabled then MMU ; disabled. Added elfloadseg-patch ioerr bug workaround, now you get ; proper error message when module is not found. Added 256k ROM ; support for CPU Cards. froze 1.22beta8. ; 489 27th Mar: oops, the new 030 runnommu accidently did rts instead of ; rte. Definetely broke BlizKick on 030 machines. froze 1.22beta10. ; 490 28th Apr: No longer tries to open mmu.library if run before ; SetPatch. froze 1.22beta11. ; 491 1st Aug: Bugfix: the 040+ cacheclear routine didn't invalidate the ; data and inst cache after flush. froze 1.22beta12. ; 492 4th Aug: Bugfix: Terrible horrible stupid "nggh ngggh!" -level bug ; fixed from 020/030 MMU test code, it fucked up VBR completely! Many ; thanks go to "John Stunner" who found this and reported it at ; ru.amiga 2nd Aug. Also special thanks to Useless who redirected this ; message to me 3rd Aug. This bug was very evil as it fucked up ALL ; exception vectors in VBR, every time BlizKick was run. So it made ; 030 systems very unstable... oh my god! ;) froze 1.22beta13. ; 493 6th Aug: Fixes to DisableCacheS: now invalidate cache on 040/060. ; Made disable 060 superscalar dispatch. froze 1.22beta14. ; 494 7th Aug: Finally found the reason for CS MK II ; 'Kickstart wasn't kicked using BlizKick!' -error. When _restore check ; failed it fell thru to this error message. Now has special error ; message 'Kickstart restoring not supported!' for this case. Should ; finally work fine on CS MK II. Now will quit quietly (RC = WARN) if ; MorphOS is running. froze 1.22beta15. ; 495 10th Aug: PutResident RTF_AUTOINIT support was a bit broken. Never ; really used, so was harmless. 15th Aug: Improved 030 runnommu not to ; mess with mmu registers if mmu seems to be disabled already. ; 496 2nd Sep: froze 1.22. ; 497 4th Sep: Fixed silly bug from 030 MMU code, wrong stack offset was ; used for restoring TC in runnommu (Remco Komduur). froze 1.23. ; 498 11th Sep: Total rewrote of the 040/060 cache & MMU code. Much cleaner ; implementation now. Bugs fixed: runnommu didn't turn off 68060 ; StoreBuffer, could have caused malfunction with specific buggy CPU ; Cards. runnommu didn't disable the 68060 Branch Cache, if 'Branch ; Prediction Error' took place the code might have screwed up. The ; CSPPC/CSMKIII/BPPC maprom trigger code restored only partial MMU ; setup, and without clearning the ATC cache, if the MMU setup wasn't ; standard the code probably screwed up. Maprom trigger code turned ; off the 68060 StoreLoadBypass feature, now it isn't touched. Now ; mmu.library/WithoutMMU() is only used for pre-68040 CPUs. froze ; 1.24beta1. ; 499 12th Oct: fixed small bug in SPEEDROM: the RT_END of the last ROMTag ; was made to point to $fffffe. Due some funny side effect ($1000000 - ; $fffffe) / 2 - 1 = 0) it caused the ROM's ROMTag scanner access ; longword at $fffffe, thus accessing non-existent memory. (maybe this ; was it Gunther... :-) froze 1.24beta2. ; 500 3rd Nov 2000: I broke CPUCARD support when I added 256K rom support ; in 1.22beta8. Oh my, oh my, now I feel very stupid.:-). ; 501 6th Nov 2000: Now this one was funny: I had some really weird & crap ; problems with TC_EXCEPTCODE with another project. Turned out that ; that BlizKick's final Forbid() was the cause for ALL those problems. ; Now that I think of it, it makes NO sense to call Forbid() before ; final 'rts' in a CLI program, it is only valid in WB programs. This ; bugfix probably solves lots of those weird problems there has been ; with BlizKick. froze 1.24beta3. ; 502 24th Jan 2001: Copyright update recompile. froze 1.24beta5. ; 503 1st Feb 2001: (Hopefully) added EXTRESBUF support for CPUCARDs ; (^Berserk^). Now default to BKMODPATH of "DEVS:Modules/" if the ; env variable is not found (Lizard). Added IGNPATH option for ; completeness. Reworked B20x0 code, hopefully fixed some problems. ; Reworked KickSys to use set of subroutines for different cards, ; much cleaner now. froze 1.24beta6. ; 504 24th Oct 2001: Minor code cleanups. Fixed 12th Oct 2001 flashrom ; problem (In the new flashrom the blizzard memory node attributes ; was added MEMF_LOCAL flag, which prevented BlizKick from locating ; the memory node. Generally this is good thing (TM), since this ; finally officially documents the feature that blizzppc memory ; doesn't go away at reset. However, I was unable to predict this ; change, and while I want BlizKick to be 100% bulletproof when ; probing for the memory node, this change broke it). froze 1.24beta7. ; 505 25th Oct 2001: Fixed massive bug in mmu.library logic. Now it ; really should work as expected. If maprom was available but failed ; to initialize BlizKick crashed horribly. Fixed. I think these bugs ; were added in 1.24beta6. Found a very long standing bug from PUP- ; cards reboot code: due to some card reset hardware magic, ExecBase ; was never trashed like with other cards. This caused all reset ; proof applications to stay in memory, which definetely is not what ; should happen. Fixed to behave like other cards. Added commandline ; option to disable trashing of ExecBase (KEEPEXEC), however its' ; use is not recommended and it can cause some weird problems. Fixed ; *very* long standing problem with some PowerUP systems where ; rebooting the system gave red screen (ie. ROM checksum wrong). ; New commandline option NOPUPREBOOT fixes this behaviour on these ; systems. froze 1.24beta8. ; ;DEBUGMODE EQU 1 ;don't clone code ; ; I seriously doubt if this source code is useful for anything else. ; Hairy code everywhere, this one is really a bitch to maintain... ; ; TODO (err, not never, maybe, huh) ; o total rewrite in C (btw is still currently in progress ;-) ; o unused romtag zapper & support for this extra space to FindSpace. ; also add this functionality to applypatch ; o BootControl module. Maybe. Requested by several users. ; o ROM checksum (restore orig rom if bad ROM checksum) ; o possibility to get commandline arguments from a file ; (can be emulated with `BlizKick ? buggy AllocMem result test! ;; bne.b .scanloop ;;.found bsr FoundMem move.l (MH_UPPER,a5),a3 move.l a3,d0 Test for MapROM: beq.b .exit and.l #$0007FFFF,d0 bne.b .exit move.l a3,d0 and.l #$00080000,d0 beq.b .exit move.l d6,d0 "known"? bne .exit_known move.l a3,a2 add.l #$80000-4,a2 lea $00F80000+$80000-4,a1 lea (.testcode,pc),a0 bsr runnommu beq.b .exit move.l a3,d7 .exit tst.l d7 beq .trymore bra .exitsp .is_mk2 move.l #$08000000,d1 move.l #$10000000,d2 .mk2scanloop move.l (a5),a5 cmp.l a5,a4 beq .exitsp moveq #MEMF_POOLMEM!MEMF_CHIP!MEMF_FAST!MEMF_PUBLIC,d0 Public fast? and.w (MH_ATTRIBUTES,a5),d0 cmp.w #MEMF_FAST!MEMF_PUBLIC,d0 bne.b .mk2scanloop cmp.l (MH_LOWER,a5),d1 bhi.b .mk2scanloop bug: was blo! cmp.l (MH_UPPER,a5),d2 blo.b .mk2scanloop bsr FoundMem move.l (MH_UPPER,a5),d0 move.l #$80000,d1 move.l d0,d2 and.l d1,d2 bne.b .mk2skip sub.l d1,d0 .mk2skip move.l d0,d7 bra .exitsp .csfindmem move.b (_MK2,pc),d0 bne.b .is_mk2 .cstrymore sub.l a3,a3 .csscanloop move.l (a5),a5 cmp.l a5,a4 beq .exitsp moveq #MEMF_POOLMEM!MEMF_CHIP!MEMF_FAST!MEMF_PUBLIC,d0 Public fast? and.w (MH_ATTRIBUTES,a5),d0 cmp.w #MEMF_FAST!MEMF_PUBLIC,d0 bne.b .csscanloop swap d3 ; get lower limit cmp.w (MH_LOWER,a5),d3 bhi.b .csscanloop swap d3 ; get upper limit cmp.w (MH_UPPER,a5),d3 blo.b .csscanloop bsr FoundMem move.l (MH_UPPER,a5),a3 move.l a3,d0 Test for MapROM: beq.b .csexit and.l #$0007FFFF,d0 bne.b .csexit move.l d6,d0 "known"? bne .exit_known move.b (_B20x0,pc),d0 beq.b .no20x0a cmp.w #$0800,(MH_LOWER,a5) Test for $08000000 mem. bne.b .csexit .no20x0a move.l a3,d7 .csexit tst.l d7 beq .cstrymore bra .exitsp ; a1=ROM, a2=RAM .testcode or.w #$700,sr Disable interrupts move.l (a2),d1 cmp.l (a1),d1 bne.b .exite not.l d1 move.l d1,(a2) bsr CacheClrS cmp.l (a1),d1 sne d0 not.l d1 Restore before testing! move.l d1,(a2) (this was bugged) bsr CacheClrS tst.b d0 bne.b .exite cmp.l (a1),d1 bne.b .exite moveq #1,d0 rts .exite moveq #0,d0 rts BITEM MACRO dc.w \2,\3,\1 dc.l \4 ENDM .boards BITEM $0000,BLIZPROD,$18,$08001000 18 2040-ERC/2060 ;BITEM $0000,BLIZPROD,$0C,$08002000 0C Cyberstorm MKI BITEM $0000,BLIZPROD,$19,0 19 Cyberstorm MKII BITEM $FFF0,BLIZPROD,$64,$08002000 64 Cyberstorm MKIII / PPC BITEM $4FF8,BLIZPROD,$11,-1 11 1230-IV / 1260 / 1240-T/ERC BITEM $1EF8,BLIZPROD,$0D,-1 0D 1230-III BITEM $0FF8,BLIZPROD,$0B,-1 0B 1230-II ;; BITEM $????,BLIZPROD,$??,-1 0? 1230-I dc.w -1 .ExpName dc.b 'expansion.library',0 CNOP 0,2 ; FindMemHeader - find memheader even if it has moved by PoolMem ; MUST call this in Forbid()! Use returned memheader before Permit()! ; ; IN: a0=clone of MH (up to MH_FIRST) to find ; a6=execbase ; OUT: a0=memheader or NULL, Z flag set ; FindMemHeader movem.l d0-d3/a1,-(sp) moveq #0,d0 move.w (MH_ATTRIBUTES,a0),d1 move.w (LN_TYPE,a0),d2 move.l (LN_NAME,a0),d3 lea (MemList,a6),a0 lea (LH_TAIL,a0),a1 .find move.l (a0),a0 cmp.l a0,a1 beq.b .fail cmp.w (MH_ATTRIBUTES,a0),d1 bne.b .find cmp.w (LN_TYPE,a0),d2 type & pri bne.b .find cmp.l (LN_NAME,a0),d3 bne.b .find .exit move.l a0,d0 movem.l (sp)+,d0-d3/a1 rts .fail sub.l a0,a0 bra.b .exit ; IN: a0=rom, d0=rom len ; OUT: d0=success, fail if no AGA or WaitBlit func couln't be found PutHogWaitBlit movem.l d1-a6,-(sp) moveq #0,d7 cmp.w #39,($C,a0) Requires rom 39+ blo.b .exit lea -4(a0,d0.l),a1 move.w $DFF004,d0 Test AGA: and.w #$7F00,d0 lsr.w #8,d0 bclr #4,d0 cmp.b #$22,d0 beq.b .aga cmp.b #$23,d0 bne.b .exit .aga move.l #$08390006,d0 .find addq.l #2,a0 cmp.l a1,a0 beq.b .exit cmp.l (a0),d0 bne.b .find cmp.l #$00DFF002,(4,a0) bne.b .find cmp.l #$66024E75,(8,a0) bne.b .find cmp.l #$08390006,(-8,a0) No KS 1.x! beq.b .exit cmp.l #$4A3900DF,(-6,a0) KS 2.x/3.x: bne.b .exit subq.l #6,a0 lea (.waitblit,pc),a1 moveq #(.waitblitend-.waitblit)/2,d0 .copy move.w (a1)+,(a0)+ subq.l #1,d0 bne.b .copy moveq #1,d7 .exit move.l d7,d0 movem.l (sp)+,d1-a6 rts ; 1.x 36 bytes ; 2.05 40 bytes ; 3.0 48 bytes ; 3.1 48 bytes .waitblit btst #DMAB_BLTDONE-8,$DFF000+dmaconr 8 bne.b .gowait 2 rts 2 .gowait move.l a0,-(sp) 2 lea ($DFF000+dmaconr),a0 6 move.w #DMAF_SETCLR!DMAF_BLITHOG,(dmacon-dmaconr,a0) 6 .wait btst #DMAB_BLTDONE-8,(a0) 4 bne.b .wait 2 move.w #DMAF_BLITHOG,(dmacon-dmaconr,a0) 6 move.l (sp)+,a0 2 rts 2 =42 IFGT 0 .gowait move.w #DMAF_SETCLR!DMAF_BLITHOG,$DFF000+dmacon 8 .wait btst #DMAB_BLTDONE-8,$DFF000+dmaconr 8 bne.b .wait 2 move.w #DMAF_BLITHOG,$DFF000+dmacon 8 rts 2 =40 ENDC .waitblitend IFGT (.waitblitend-.waitblit)-42 FAIL !! WAITBLIT routine too long !! ENDC ; IN: a0=rom start (buf) ; d0=rom len ; a1=name ; OUT: d0=ptr to resident (buf) or NULL FindResident movem.l d1-a6,-(sp) move.l a1,a3 move.l d0,d4 move.l a0,a4 moveq #1,d6 lea (_erh_arealen,pc),a0 move.l (a0)+,d0 beq.b .try_rom move.l (a0),a0 sub.l a5,a5 Difference=0 .findres moveq #RT_SIZE-2,d1 sub.l d1,d0 move.w #RTC_MATCHWORD,d1 .find subq.l #2,d0 bls.b .try_rom cmp.w (a0)+,d1 bne.b .find moveq #2,d2 add.l (a0),d2 (RT_MATCHTAG-2,a0),d2 add.l a5,d2 cmp.l a0,d2 bne.b .find move.l (RT_NAME-2,a0),a1 add.l a5,a1 move.l a3,a2 .compare cmpm.b (a2)+,(a1)+ bne.b .find tst.b (-1,a2) bne.b .compare move.l a0,d0 subq.l #2,d0 .exit movem.l (sp)+,d1-a6 rts .exit_nf moveq #0,d0 bra.b .exit .try_rom tst.l d6 beq.b .exit_nf move.l d4,d0 move.l a4,a0 move.l #$01000000,d1 sub.l d0,d1 d2=rom start (rom) move.l a0,a5 sub.l d1,a5 a5=difference moveq #0,d6 bra.b .findres PATHBUF_SIZE EQU 256 ; IN: a0=ptr to rom (buf), d0=rom len, a3=array (d6=dosbase) ; OUT: d0=success, will print doserror if failed DoPlanting movem.l d1-a6,-(sp) lea (-PATHBUF_SIZE,sp),sp move.l sp,a5 move.l d6,a6 move.l d0,d1 move.l (ARG_MODULE,a3),d0 beq .exit OK! ;-) move.l d0,a2 IFND HAVE_NEW_ENV_METHOD moveq #0,d3 ENDC moveq #0,d4 null! cmp.w #37,(LIB_VERSION,a6) blo .not20 tst.l (ARG_IGNPATH,a3) bne .ignorepath IFD HAVE_NEW_ENV_METHOD movem.l d1-d3/a0,-(sp) sub.l a1,a1 move.l (_ExecBase,pc),a6 call FindTask move.l d6,a6 move.l d0,a0 lea (pr_WindowPtr,a0),a0 move.l (a0),-(sp) move.l a0,-(sp) moveq #-1,d0 move.l d0,(a0) lea (_VarName,pc),a0 move.l a0,d1 move.l a5,d2 move.l #PATHBUF_SIZE,d3 d4=0 call GetVar addq.l #1,d0 bne.b .gotvar lea (_VarEnvArcName,pc),a0 move.l a0,d1 call GetVar addq.l #1,d0 bne.b .gotvar lea (_VarEnvArcName,pc),a0 move.l a0,d1 move.l #MODE_OLDFILE,d2 call Open move.l d0,d4 d4=0 if failed, no dirlock beq.b .novar move.l d4,d1 move.l a5,d2 subq.l #1,d3 #PATHBUF_SIZE-1 call Read move.l d0,d2 move.l d4,d1 call Close tst.l d2 bmi.b .novar clr.b 0(a5,d2.l) null terminate move.l a5,a0 strip linefeeds .filt_loop move.b (a0)+,d0 beq.b .filt_end cmp.b #10,d0 bne.b .filt_loop clr.b -(a0) .filt_end IFNE HAVE_DEFBKMODPATH bra.b .gotvar .novar lea (_DefaultBKMODPATH,pc),a0 move.l a5,a1 .def_cpy move.b (a0)+,(a1)+ bne.b .def_cpy ENDC .gotvar move.l a5,d1 bsr _lockread beq.b .nolock move.l d1,d4 call CurrentDir move.l d0,d7 oldlock .nolock IFEQ HAVE_DEFBKMODPATH .novar ENDC move.l (sp)+,a0 move.l (sp)+,(a0) movem.l (sp)+,d1-d3/a0 .ignorepath .not20 ELSE movem.l d1-d2/a0,-(sp) sub.l a1,a1 move.l (_ExecBase,pc),a6 call FindTask move.l d6,a6 move.l d0,a0 lea (pr_WindowPtr,a0),a0 move.l (a0),-(sp) move.l a0,-(sp) moveq #-1,d0 move.l d0,(a0) lea (_EnvName,pc),a0 move.b #':',(3,a0) move.l a0,d1 bsr _lockread move.l d0,d2 call UnLock move.l (sp)+,a0 move.l (sp)+,(a0) tst.l d2 bne.b .has_env lea (_EnvArcName,pc),a0 move.l a0,d1 bsr _lockread beq.b .no_envarclock move.l d0,d2 lea (_EnvName,pc),a0 clr.b (3,a0) move.l a0,d1 call AssignLock move.l d0,d3 d3=assignstate bne.b .got_assign move.l d2,d1 call UnLock .got_assign .no_envarclock .has_env lea (_VarName,pc),a0 move.l a0,d1 move.l a5,d2 move.l d3,-(sp) move.l #PATHBUF_SIZE,d3 d4=0 call GetVar move.l (sp)+,d3 addq.l #1,d0 beq.b .novar move.l a5,d1 bsr _lockread beq.b .nolock move.l d0,d4 move.l d4,d1 call CurrentDir move.l d0,d7 oldlock .nolock .novar movem.l (sp)+,d1-d2/a0 .not20 ENDC .loop move.l (a2)+,d0 beq.b .exit2 move.l d0,a1 move.l d1,d0 bsr.b FilePlant bne.b .loop bsr _PrintFault IN: d5=kickflag, d6=dosbase lea (PlantError,pc),a0 move.l a2,a1 subq.l #4,a1 bsr _Printf moveq #-1,d0 .exit2 tst.l d4 beq.b .nodirlock move.l d0,-(sp) move.l d7,d1 call CurrentDir move.l d4,d1 call UnLock move.l (sp)+,d0 .nodirlock IFND HAVE_NEW_ENV_METHOD tst.l d3 beq.b .noassign move.l d0,d7 lea (_EnvName,pc),a0 clr.b (3,a0) move.l a0,d1 moveq #0,d2 call AssignLock move.l d7,d0 .noassign ENDC .exit not.l d0 lea (PATHBUF_SIZE,sp),sp movem.l (sp)+,d1-a6 rts _lockread moveq #ACCESS_READ,d2 call Lock move.l d0,d1 rts ; IN: a1=ptr to filename, a0=ptr to rom (buf), d0=rom len (d6=dosbase) ; OUT: d0=success FilePlant movem.l d1-a6,-(sp) move.l d6,a6 moveq #0,d7 move.l d0,d4 move.l a0,a4 ; this is a elfloadseg-patch ioerr bug ; workaround: move.l a1,a2 move.l a1,d1 moveq #ACCESS_READ,d2 call Lock move.l d0,d1 beq.b .exit call UnLock move.l a2,d1 call LoadSeg move.l d0,d5 beq.b .exit move.l d5,a1 add.l a1,a1 addq.l #2,a1 ;-) add.l a1,a1 move.l d4,d0 move.l a4,a0 bsr InstallModule move.l d0,d7 bne.b .was_module ; try direct executable planting cmp.l #BKMODULE_ID,(a1) was it a module that failed? beq.b .was_module yes, quit! ; the test above is really needed or else horrors ; would happen. namely installing non-functional ; resident tag that would crash system. move.l (8*4,sp),d1 filename from stack move.l #MODE_OLDFILE,d2 call Open move.l d0,d4 beq.b .exit lea (.af_dosbase,pc),a0 move.l a6,(a0) pea (.freefunc,pc) pea (.allocfunc,pc) pea (.readfunc,pc) move.l sp,a1 clr.l -(sp) move.l sp,a2 sub.l a0,a0 ;move.l d4,d0 d0=filehandle!! call InternalLoadSeg lea (4*4,sp),sp move.l d0,d7 move.l d4,d1 call Close .was_module move.l d5,d1 beq.b .exit call UnLoadSeg .exit move.l d7,d0 movem.l (sp)+,d1-a6 rts ; IN: d0=size, d1=flags ; OUT: d0=memory .allocfunc tst.l d0 bne.b .af_do .af_fail move.l a6,-(sp) move.l (.af_dosbase,pc),a6 moveq #ERROR_NO_FREE_STORE,d1 call SetIoErr move.l (sp)+,a6 moveq #0,d0 rts .af_do btst #MEMB_CHIP,d1 don't allow chipmem bne.b .af_fail movem.l d0/d1,-(sp) move.l (_erh_memheader,pc),d0 beq.b .af_exit move.l d0,a0 move.l (sp),d0 call Allocate tst.l d0 beq.b .af_nomem ; d0=return val ; should clear allocated area? btst #MEMB_CLEAR-16,(1,sp) beq.b .af_exit ; get original alloc req and align it move.l (sp),d1 addq.l #MEM_BLOCKMASK,d1 and.w #-MEM_BLOCKSIZE,d1 move.l d0,a0 .af_clear clr.l (a0)+ clr.l (a0)+ subq.l #8,d1 bne.b .af_clear .af_exit addq.l #8,sp rts .af_nomem addq.l #8,sp bra.b .af_fail .af_dosbase ds.l 1 ; IN: a1=memory d0=size ; OUT: - .freefunc tst.l d0 bne.b .ff_do .ff_no rts .ff_do move.l a1,d1 beq.b .ff_no move.l (_erh_memheader,pc),d1 beq.b .ff_no movem.l d0/a1,-(sp) move.l a1,d1 and.w #-MEM_BLOCKSIZE,d1 exg d1,a1 addq.l #MEM_BLOCKMASK,d0 sub.l a1,d1 add.l d1,d0 moveq #-1,d1 and.l #-MEM_BLOCKSIZE,d0 note: .l!! beq.b .ff_nofill .ff_fill move.l d1,(a1)+ move.l d1,(a1)+ subq.l #8,d0 bne.b .ff_fill .ff_nofill movem.l (sp)+,d0/a1 move.l (_erh_memheader,pc),a0 jmp (_LVODeallocate,a6) ; IN: d1=fh, d2=buffer, d3=len ; OUT: d0=actual .readfunc jmp (_LVORead,a6) ; IN: d1.l=error (d6=dosbase) SetIoErr movem.l d0-d1/a0-a1/a6,-(sp) move.l d6,a6 cmp.w #36,(LIB_VERSION,a6) blo.b .old call SetIoErr bra.b .exit .old move.l (_ExecBase,pc),a6 sub.l a1,a1 call FindTask move.l d0,a0 move.l (4,sp),(pr_Result2,a0) .exit movem.l (sp)+,d0-d1/a0-a1/a6 rts ; IN: a1=ptr to module, a0=ptr to rom (buf), d0=rom len (d6=dosbase) ; OUT: d0=success, d1/a0/a1 preserved InstallModule movem.l d1-a6,-(sp) moveq #0,d7 move.l #ERROR_OBJECT_WRONG_TYPE,d1 bsr.b SetIoErr move.l #$01000000,d2 sub.l d0,d2 move.l a0,a5 sub.l d2,a5 a5=difference cmp.l #BKMODULE_ID,(a1)+ (bkm_ID) bne.b .exit move.w (a1)+,d4 d4=bkm_Flags, a1=bkm_ResTag move.w d4,d1 and.w #~BKMF_ALL,d1 Test validity: bne.b .exit cmp.w #BKEP_ID,(a1) Test for patch module: beq .is_epatch cmp.l #RTC_MATCHWORD<<16,(a1) bne.b .exit move.l #ERROR_OBJECT_TOO_LARGE,d1 bsr.b SetIoErr lea (.replace_test,pc),a3 lsr.w #1,d4 btst #BKMB_ReplaceMode,d4 bcs.b .replace lea (.single_test,pc),a3 lsr.w #1,d4 btst #BKMB_SingleMode,d4 bcc.b .no_findresident .replace movem.l d0/a1,-(sp) add.l (RT_NAME,a1),a1 bsr FindResident move.l d0,a2 movem.l (sp)+,d0/a1 jmp (a3) .no_findresident .is_single .is_erbf move.l (RT_ENDSKIP,a1),d1 lsr.w #1,d4 btst #BKMB_ExtResBuf,d4 bcc.b .no_extresbuf1 neg.l d1 .no_extresbuf1 bsr FindSpace beq.b .exit .go_replace move.l d0,a3 a3=ptr to func (buf) move.l d1,a2 a2=ptr to func (ROM) move.w ($C,a0),d1 d1=rom version move.l a1,a0 lea (RT_VERSION,a0),a4 cmp.b (a4),d1 Test version! blo.b .nofail move.b d1,(a4) Force current version! cmp.w #36,d1 shs d1 move.l a3,a1 a2=ptr to func (ROM) bsr PutResident .nofail moveq #1,d7 .exit move.l d7,d0 .exit2 bsr CacheClearOS Clear caches. movem.l (sp)+,d1-a6 rts .replace_test beq.b .exit If no match exit! move.b (RT_PRI,a2),d1 cmp.b (RT_PRI,a1),d1 bne.b .exit If no match exit! lsr.w #1,d4 btst #0,d4 btst BKMB_ExtResBuf,d4 bne.b .is_erbf move.l (RT_ENDSKIP,a2),d1 d1=ptr to ENDSKIP (ROM) add.l a5,d1 d1=ptr to ENDSKIP (buf) sub.l a2,d1 cmp.l (RT_ENDSKIP,a1),d1 ble.b .exit move.l a2,d0 move.l d0,d1 sub.l a5,d1 bra.b .go_replace .single_test beq.b .is_single SINGLE: If no match continue! move.b (RT_PRI,a2),d1 cmp.b (RT_PRI,a1),d1 bne.b .is_single SINGLE: If no match continue! move.l #ERROR_TOO_MANY_ARGS,d1 bsr SetIoErr bra.b .exit ; a0=ptr to rom start (buf), a1=ptr to epatch, d0=rom len, d2=ptr to rom start (ROM) .is_epatch lea (2,a1),a5 move.l d2,a1 lea (FindResident,pc),a2 lea (InstallModule,pc),a3 lea (_Printf,pc),a4 move.l (_ExecBase,pc),a6 jsr (a5) bra.b .exit2 ; IN: a0=rom (buf), d0=rom len, d1=required space (negate if ExtResBuf required) ; OUT: d0=ptr to area (buf) or NULL, d1=ptr to area (rom) ;NOTE: condition codes set on return! FindSpace movem.l d2-d3/d6-d7/a0-a2,-(sp) moveq #0,d7 move.l #$01000000,d2 sub.l d0,d2 move.l a0,d6 sub.l d2,d6 d6=difference (buf-rom) tst.l d1 bmi.b .required_extres lea ROMSUMOFFS(a0,d0.l),a1 bsr.b .find bhs.b .found Big enough 'empty' space. move.l #$00040000,d2 cmp.l d2,d0 Test for >$40000 ROM bls.b .try_extres lea (a0,d0.l),a1 sub.l d2,a1 a1=$FC0000 move.l (a1),d2 and.l #$FFF8FFFF,d2 cmp.l #$11104EF9,d2 bne.b .try_extres bsr.b .find blo.b .try_extres .found move.l a1,d7 addq.l #1+3,d7 and.w #-4,d7 .exit move.l d7,d1 sub.l d6,d1 move.l d7,d0 movem.l (sp)+,d2-d3/d6-d7/a0-a2 rts .find moveq #-1,d2 .null move.b -(a1),d3 addq.l #1,d2 not.b d3 beq.b .null cmp.l d1,d2 rts .required_extres neg.l d1 .try_extres move.l (_erh_memheader,pc),d0 beq.b .exit move.l d0,a0 move.l d1,d0 move.l a6,-(sp) move.l (_ExecBase,pc),a6 call Allocate move.l (sp)+,a6 move.l d0,d7 moveq #0,d6 NULL difference! bra.b .exit ; IN: a0=resident ; a1=adr to "free" buf ; a2=adr to "free" buf (rom) ; d1.b=zero if >16,(8,a0) addq.l #1,d7 .not0 ENDC move.l (_OrigSum,pc),d5 cmp.l ROMSUMOFFS(a6,d6.l),d5 bne .not_correct_chksum cmp.l #33<<16!180,($C,a6) bne.b .not_33180 cmp.l #$56F2E2A6,d5 Must be original to patch! bne.b .not_33180 move.w #$0020,($19C,a6) 2MB chip ram move.l #$FF000001,($3000,a6) ExecBase address mask IFGT 0 move.l #$20482249,d0 move.l a0,a0 / move.l a1,a1 move.l d0,($4D9A,a6) expansion.library bug move.l #$4EAEFF3A,($4D9A+4,a6) move.l #$4A80672E,($4D9A+8,a6) move.l #$24002200,($4D9A+12,a6) move.l #$20434280,($4D9A+16,a6) move.l #$302F0002,($4D9A+20,a6) move.w d0,($4D9A+24,a6) ENDC move.l #$20482249,d0 move.l a0,a0 / move.l a1,a1 move.w d0,($4D9A,a6) expansion.library bug move.l d0,($4D9A+2,a6) move.l #$4A80672C,($4DA4,a6) move.l #$24002240,($4DA4+4,a6) move.l #$20437000,($4DA4+8,a6) move.b #$30,($4DA4+12,a6) ; my: move.l #$99CC4ED5,($1E6,a6) no $C00000 mem, please !! ;; clr.b ($56D,a6) disable cache (instruction) addq.l #1,d7 .not_33180 cmp.l #34<<16!5,($C,a6) bne.b .not_3405 cmp.l #$15267DB3,d5 Must be original to patch! bne.b .not_3405 move.w #$0020,($19C,a6) 2MB chip ram move.l #$FF000001,($303C,a6) ExecBase address mask addq.l #1,d7 .not_3405 .not_correct_chksum move.l d7,d0 movem.l (sp)+,d1-a6 rts ; IN: a0=rom, d0=rom len ; OUT: d0=success (number of patches done, or zero) SpeedROM movem.l d1-a6,-(sp) moveq #0,d7 move.l a0,a2 move.l d0,d4 move.l #$01000000,d2 sub.l d4,d2 move.l a2,a5 sub.l d2,a5 a5=difference move.l (4,a2),a1 add.l a5,a1 cmp.w #$203C,(6,a1) KS 1.x start: (34.5) bne.b .nosp1 cmp.l #$53806EFC,(12,a1) bne.b .nosp1 move.w #$6008,(6,a1) addq.l #1,d7 .nosp1 IFNE HAVE_SPEEDROMCHECKSUM cmp.l #$41F900F8,(4,a1) KS 3.0 chksum: bne.b .nosp2 cmp.l #$72FF7401,(10,a1) bne.b .nosp2 move.l #$7AFF6010,(10,a1) addq.l #1,d7 .nosp2 cmp.l #$41FAFF28,(4,a1) KS 3.1 chksum: bne.b .nosp3 cmp.l #$72FF7401,(8,a1) bne.b .nosp3 move.l #$7AFF6010,(8,a1) addq.l #1,d7 .nosp3 ENDC ; Reconnect resident modules: moveq #-(RT_SIZE+2),d1 move.l a2,a0 add.l d4,d1 sub.l a1,a1 .find subq.l #2,d1 bls.b .done cmp.w #RTC_MATCHWORD,(a0)+ bne.b .find moveq #2,d0 add.l (a0),d0 (RT_MATCHTAG-2,a0),d0 add.l a5,d0 cmp.l a0,d0 bne.b .find subq.l #2,a0 move.l a1,d0 beq.b .is_1st move.l a0,d0 sub.l a5,d0 move.l d0,(RT_ENDSKIP,a1) .is_1st move.l a0,a1 lea (RT_SIZE,a0),a0 bra.b .find .done move.l a1,d0 beq.b .none ; make last RT_ENDSKIP point $00FFFFFA move.l #$00FFFFFA,(RT_ENDSKIP,a1) .none ; can't really reconnect EXTRES buffer restags ; ... addq.l #1,d7 move.l d7,d0 movem.l (sp)+,d1-a6 rts IFGT 0 ; *** WARNING: REQUIRES SOURCE AND DESTINATION ADDRESSES ALIGNEG BY 16! *** ; IN: a0=source ptr ; a1=dest ptr ; d0=copy len, aligned by 256 ; OUT: a0=source ptr + copy len ; a1=dest ptr + copy len ; d0=copy len copymem256_040 move.l d0,-(sp) lsr.l #8,d0 /256 .copy move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 subq.l #1,d0 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 move16 (a0)+,(a1)+ 16 bne.b .copy move.l (sp)+,d0 rts ENDC ; IN: a0=source ptr ; a1=dest ptr ; d0=copy len, aligned by 256 ; OUT: a0=source ptr + copy len ; a1=dest ptr + copy len ; d0=copy len copymem256 movem.l d0-d7/a2-a6,-(sp) lsr.l #8,d0 /256 .copy movem.l (a0)+,d1-d7/a2-a6 movem.l d1-d7/a2-a6,(a1) 12*4=48 movem.l (a0)+,d1-d7/a2-a6 movem.l d1-d7/a2-a6,(1*48,a1) 12*4=48 movem.l (a0)+,d1-d7/a2-a6 movem.l d1-d7/a2-a6,(2*48,a1) 12*4=48 movem.l (a0)+,d1-d7/a2-a6 movem.l d1-d7/a2-a6,(3*48,a1) 12*4=48 movem.l (a0)+,d1-d7/a2-a6 movem.l d1-d7/a2-a6,(4*48,a1) 12*4=48 movem.l (a0)+,d1-d4 movem.l d1-d4,(5*48,a1) 4*4=16 subq.l #1,d0 lea (256,a1),a1 bne.b .copy movem.l (sp)+,d0-d7/a2-a6 rts ;IFGT (copymem256_000-copymem256)-$7E ;FAIL "copymem256 offset out of bra.b!" ;ENDC ; IN: a4=rom buffer ; d3=rom size KickSys movem.l d1-a6,-(sp) ;illegal lea (default_pre,pc),a2 lea (default_post,pc),a3 move.b (_B20x0,pc),d0 beq.b .not_b20x0 lea (b20x0_pre,pc),a2 lea (b20x0_post,pc),a3 .not_b20x0 move.b (_MK2,pc),d0 beq.b .not_csmk2 ; uses default_pre lea (csmk2_post,pc),a3 .not_csmk2 move.b (_CSPPC_MK3,pc),d0 beq.b .not_scppc_mk3 lea (csppcmk3_pre,pc),a2 lea (csppcmk3_post,pc),a3 .not_scppc_mk3 move.b (_BlizPPC,pc),d0 beq.b .not_blizzppc lea (blizzppc_pre,pc),a2 lea (blizzppc_post,pc),a3 .not_blizzppc move.b (_CPUCard,pc),d0 beq.b .notcpucard lea (cpucard_pre,pc),a2 lea (cpucard_post,pc),a3 .notcpucard move.l (_ExecBase,pc),a6 lea (GfxName,pc),a1 moveq #0,d0 bsr OpenLib tst.l d0 beq.b .nogfx move.l d0,-(sp) move.l d0,a6 call OwnBlitter call WaitBlit sub.l a1,a1 move.l (gb_ActiView,a6),-(sp) call LoadView call WaitTOF ; Reset AGA hardware cmp.w #39,(LIB_VERSION,a6) blo.b .noaga btst #GFXB_AA_ALICE,(gb_ChipRevBits0,a6) beq.b .noaga lea $DFF106,a0 move.w #$0C00,(a0) move.w #$0000,($1FC-$106,a0) .noaga call WaitTOF ; Call the hw banging routine move.l (_ExecBase,pc),a6 lea (.super,pc),a0 bsr runnommu ; We drop in here if something goes terribly wrong. ; Restore view move.l (sp)+,a1 move.l (sp)+,a6 call LoadView call WaitTOF call DisownBlitter ; Close gfxbase move.l a6,a1 move.l (_ExecBase,pc),a6 call CloseLibrary ; Whine to user lea (KickSysErr,pc),a0 bsr _Printf .nogfx movem.l (sp)+,d1-a6 rts .super ori.w #$700,sr Disable all ints! bsr CacheClrS flush caches ; Do whatever init the card needs movem.l d3/a4,-(sp) jsr (a2) movem.l (sp)+,d3/a4 tst.l d0 Did it fail? bne.b .cont ; NOTE: MUST USE RTS HERE! rts .cont ; Copy the ROM to the magic address move.l (_BlizROM,pc),a1 cmp.l #$40000,d3 Is it 256K ROM? bne.b .no1st move.l d3,d0 Copy 256k: move.l a4,a0 bsr copymem256 .no1st move.l d3,d0 Copy ROM: move.l a4,a0 bsr copymem256 ; Flush & Disable caches ; bsr DisableCacheS Disable all caches. ; Do whatever post processing the card needs ; jsr (a3) ; Trash execbase pointer (MMU disabled) ; bsr trashexecbase_sv ; Reboot the system ; lea $DFF09A,a0 move.w #$4000,(a0)+ All interrupts off move.w #$3FFF,(a0) All DMA off lea $01000000+4,a0 ...and reboot... sub.l (ROMSIZEOFFS-4,a0),a0 move.l (a0),a0 subq.l #2,a0 IFGT (*-Main)&2 Main must be longword aligned! move.l a1,a1 ENDC reset jmp (a0) ; Trash execbase pointer, in both supervisor and user state ; ; IN: - (supervisor state, interrupts disabled) ; OUT: d0-d1/a0-a1 trashed trashexecbase_sv move.l (_Array+ARG_KEEPEXEC,pc),d0 bne.b .exit sub.l a1,a1 btst #AFB_68010,(_AttnFlags+1,pc) beq.b .novbr movec vbr,a1 .novbr lea (8*4,a1),a1 ; vector 8 (privilege violation) lea (.privilege_violation,pc),a0 move.l (a1),d1 ; save old privilege violation vector move.l a0,(a1) ; set new privilege violation vector lea (4).w,a0 moveq #-1,d0 move.l d0,(a0) ; Trash execbase (supervisor) move.l d0,(4-(8*4),a1) ; Trash execbase (in VBR table) and.w #~$2000,sr ; drop to user state ; (must not use (sp) here, USP could be inaccessable!) move.l d0,(a0) ; Trash execbase (user) ori.w #$2000,sr ; back to supervisor nop move.l d1,(a1) ; restore privilege violation vector bsr CacheClrS .exit rts .privilege_violation or.w #$2000,(sp) ; force supervisor nop rte ; and re-try ; Default: Blizzard 12x0 default_pre moveq #1,d0 default_post rts ; Blizzard 2040-ERC / 2060 b20x0_pre move.l (_BlizROM,pc),a0 moveq #4-1,d0 .loop moveq #0,d1 Turn shadow off bsr.b SetMemShadow move.l (4,a0),-(sp) Do some poking magic move.l (a0),-(sp) move.l (sp),d2 move.l d2,d1 eor.l #$BADC0DE5,d2 move.l d2,(a0) Write test long nop move.l d1,(4,a0) Trash bus nop move.l (a0),d1 Read test long nop move.l (sp)+,(a0) Restore to original move.l (sp)+,(4,a0) nop bsr CacheClrS cmp.l d2,d1 Found mapping? beq.b .found moveq #1,d1 Turn shadow on bsr.b SetMemShadow subq.l #1,d0 bpl.b .loop ; return failure moveq #0,d0 .exit bra CacheClrS .found lea (_B20x0Bank,pc),a0 move.l d0,(a0) ; return success ; NOTE: The shadow is *left* off intentionally! moveq #1,d0 bra.b .exit b20x0_post moveq #1,d1 Turn shadow on ; [FALL THRU] ; ; This one is from old CyberMap I think... ; Modified a bit. ; ;********************************************************* ;* writes memshadowregister of the given rambank ;* setmemshadow(D0=bank,D1=on/off (bool)) ;********************************************************* ;* $ 8 2 c ;* %100x yy10 1100 ---- ---- ---- ---- ----Shadow Register Format ;* x = Set/Clr Flag 0=on 1=off ;* y = Bank Number MEMSHWREG EQU $82C00000 Shadow Enable Control Register SetMemShadowN move.l (_B20x0Bank,pc),d0 ; [FALL THRU] ; IN: d0=bank, d1=mode SetMemShadow movem.l d0-d1/a6,-(sp) ror.l #6,d0 shift in place or.l #MEMSHWREG,d0 mask in MEMSHWREG adr tst.l (4,sp) d1 from stack bne.b .sf_skip =! 0 -> TRUE -> b28=0 bset #28,d0 == 0 -> FALSE -> b28=1 .sf_skip move.l d0,a6 Write Register moveq #%011,d0 movec dfc,d1 store old DFC movec d0,dfc set DFC to %011 nop moves.l a6,(a6) nop movec d1,dfc restore old DFC movem.l (sp)+,d0-d1/a6 rts ; Cyberstorm MK II csmk2_post bset #7,$00DE0002 Set Gary Coldstart move.b #$2A,$880000E3 Trigger MKII maprom nop rts ; Cyberstorm MK III or PPC csppcmk3_pre bset #7,$00DE0002 Set Gary Coldstart lea (csppc_mkiii_code1,pc),a0 bsr runwithmmu040 moveq #1,d0 rts csppcmk3_post lea (csppc_mkiii_code2,pc),a0 bra.b csppcmk3_comm ; BlizzardPPC blizzppc_pre lea (blizppc_code1,pc),a0 bsr runwithmmu040 moveq #1,d0 rts blizzppc_post lea (blizppc_code2,pc),a0 csppcmk3_comm bsr runwithmmu040 ;;bra.b pupcard_reboot pupcard_reboot ; Some PowerUP cards somehow screw up when rebooted ; with the magic below. If NOPUPREBOOT option is set ; this code is not run, but regular reboot code is ; executed instead. ; ; This *finally* fix the annoying red screen crashes ; with these systems, I hope. ; move.l (_Array+ARG_NOPUPREBOOT,pc),d0 bne.b .nopupreboot ; Trash execbase pointer (MMU disabled) ; bsr trashexecbase_sv ; trigger the card to reboot the system ; move.b #$40,$00F60018 ; blizzppc/csppc/mkiii move.b #$0C,$00F60000 ; majik nop nop ; ; NOTE: We should never get here, the code above trigger ; hard reset. ; rts .nopupreboot move.b #$40,$00F60018 ; blizzppc/csppc/mkiii majic rts ; Cyberstorm MK I / A3640 / Blizzard A4030 cpucard_pre bset #7,$00DE0002 Set Gary Coldstart clr.b $00DE0000 Gary bootflags=ColdStart clr.b $00DE0001 nop move.l #1,$80F80000 Trigger maprom nop moveq #1,d0 rts cpucard_post move.b #$80,$00DE0000 Gary BootFlag=ColdBoot move.b #$80,$00DE0001 rts ; Some BlizzardPPC / CS PPC / CS MK III routines blizppc_code1 clr.b $00F60013 Turn off BlizPPC maprom ; fall thru csppc_mkiii_code1 nop nop move.b #$10,$00F60000 blizzppc/csppc/mkiii nop majik nop rts csppc_mkiii_code2 lea $00F60020,a0 Trigger PPC/MKIII maprom move.b #$60,(a0) nop move.b #$50,(a0) nop move.b #$30,(a0) nop move.b #1,(-8,a0) nop clr.b (a0) nop ; fall thru pupcard_common ; disable interupts lea $DFF09A,a0 move.w #$4000,(a0)+ All interrupts off move.w #$3FFF,(a0) All DMA off nop nop nop nop ; If no Enforcer/CyberGuard/MuForce is running, ; trash execbase with original MMU tables too. ; Strictly speaking, this is not needed, but ; this doesn't hurt either. ; move.l (_EnforcerFlag,pc),d0 bne.b .dontpoke ; Trash execbase pointer (MMU enabled) ; bsr trashexecbase_sv .dontpoke rts blizppc_code2 clr.b $00F60012 Trigger BlizPPC maprom nop bra.b pupcard_common TestCPUCard movem.l d1-d7/a0-a6,-(sp) moveq #0,d7 move.l (_ExecBase,pc),a6 call Forbid lea (MemList,a6),a5 lea (LH_TAIL,a5),a4 move.l #$07000000,d1 move.l #$08000000,d2 .loop move.l (a5),a5 cmp.l a5,a4 beq .nomem moveq #MEMF_POOLMEM!MEMF_CHIP!MEMF_FAST!MEMF_PUBLIC,d0 Public fast? and.w (MH_ATTRIBUTES,a5),d0 cmp.w #MEMF_FAST!MEMF_PUBLIC,d0 bne.b .loop cmp.l (MH_LOWER,a5),d1 bhi.b .loop cmp.l (MH_UPPER,a5),d2 blo.b .loop bsr FoundMem call Permit IFNE HAVE_CPUCARDPOKING bsr.b CheckCPUCard tst.l d0 beq.b .exit ENDC ; exit ok lea (_BlizROM,pc),a0 move.l #$07F80000,(a0) moveq #1,d0 .exit movem.l (sp)+,d1-d7/a0-a6 rts .nomem call Permit moveq #0,d0 bra.b .exit IFNE HAVE_CPUCARDPOKING ; IN: - ; OUT: d0,cc=nonzero if CPU Card with MAPROM present, else zero CheckCPUCard movem.l d7/a6,-(sp) moveq #0,d7 move.l (_ExecBase,pc),a6 cmp.w #37,(LIB_VERSION,a6) blo.b .exit call Forbid bsr.b cachecontroli move.l d0,-(sp) lea (.nommu,pc),a0 bsr runnommu move.l d0,d7 move.l (sp)+,d0 bsr.b cachecontrol call Permit .exit move.l d7,d0 movem.l (sp)+,d7/a6 rts .nommu ori.w #$700,sr Lock All Irqs moveq #0,d2 clr.b $DE0000 Gary bootflags=ColdStart clr.b $DE0001 nop move.l #1,$80F80000 Trigger maprom nop move.l $07F80000,d0 Test MAPROM cmp.l $00F80000,d0 bne.b .nomap move.l d0,d1 2nd test not.l d1 move.l d1,$07F80000 cmp.l $F80000,d1 beq.b .does_map .xit move.l d0,$07F80000 .nomap move.b #$80,$DE0000 Gary bootflags=Warmstart move.l d2,d0 rts .does_map moveq #1,d2 bra.b .xit cachecontroli moveq #CACRF_EnableI!CACRF_IBE,d0 cachecontrol move.l #~CACRF_WriteAllocate,d1 jmp (_LVOCacheControl,a6) ENDC DosName dc.b 'dos.library',0 _mmuflag EQU *-1 GfxName dc.b 'graphics.library',0 dc.b '$VER: ' _Version dc.b 'BlizKick 1.24 (26.10.01)',0 dc.b '$COPYRIGHT: ' _Copyright dc.b 'Copyright © 1996-2001 PitPlane Productions',0 _Template dc.b 'KICKFILE,MODULE/M,EXTRESBUF/N,SANITY/K/N,FORCE/S,' dc.b 'SPEEDROM/S,HOGWAITBLIT/S,CPUCARD=CSMKI/S,' dc.b 'IGNPATH=IGNOREBKMODPATH/S,NOPUPREBOOT/S,KEEPEXEC/S,' dc.b 'QUIET/S',0 _13Help dc.b 'Usage: BlizKick ',$9b,'1mKICKFILE',$9b,'0m',10 dc.b 'KICKFILE is full path for the ROM image to kick.',10,0 _ks13error dc.b 'DOS Error #%ld!',10,0 IFD HAVE_NEW_ENV_METHOD _VarEnvArcName dc.b 'ENVARC:' _VarName dc.b 'BKMODPATH',0 IFNE HAVE_DEFBKMODPATH _DefaultBKMODPATH dc.b 'DEVS:Modules/',0 ENDC ELSE _EnvName dc.b 'ENVx',0 _EnvArcName dc.b 'ENVARC:',0 _VarName dc.b 'BKMODPATH',0 ENDC _enforcer dc.b '_The Enforcer_',0 NoHardware dc.b 'BlizKick requires turbo board/CPU-card with MAPROM feature.',10,0 NoCPUCard dc.b 'Couldn''t find CPU Card (or motherboard memory)!',10,0 PlantError dc.b 'Couldn''t plant module ''%s''!',10,0 Messu dc.b 'Phase5 turbo board MapROM tool written by Harry "Piru" Sintonen.',10,0 Messu2 dc.b 'Kicking AMIGA ROM Operating System %d.%d.',10,0 Already dc.b 'Kickstart is already kicked!',10,0 CouldNotKick dc.b 'Couldn''t kick file ''%s''!',10,0 NoRem dc.b 'Kickstart wasn''t kicked using BlizKick!',10,0 NoRestore dc.b 'Kickstart restoring not supported!',10,0 KickSysErr dc.b 'Hardware banging failed!',10,0 CNOP 0,4 _ExecBase ds.l 1 _EnforcerFlag ds.l 1 _mmubase ds.l 1 _Array ds.l 12 _BlizROM ds.l 1 _Quiet ds.l 1 _OrigSum ds.l 1 _erh_alloclen ds.l 1 _erh_freeaddr ds.l 1 _erh_arealen ds.l 1 _erh_areastart ds.l 1 _B20x0Bank ds.l 1 _mmuregs _itt0 ds.l 1 } _itt1 ds.l 1 } _dtt0 ds.l 1 } fixed order _dtt1 ds.l 1 } _cacr ds.l 1 } _tc ds.l 1 } _memhead ds.b MH_FIRST _AttnFlags ds.w 1 _MemHeaderFlag ds.b 1 _B20x0 ds.b 1 _CPUCard ds.b 1 _CSPPC_MK3 ds.b 1 _MK2 ds.b 1 _BlizPPC ds.b 1 COPYCODE_SIZEOF EQU (*-Copy+7)&-8 END ; maprom not on: ; ; CS MKI MH_UPPER & $80000 == 0 ; CS MKII MH_UPPER & $80000 == 0 ; CS MKIII MH_UPPER & $80000 == 0 ; CS PPC MH_UPPER & $80000 != 0 ; BLIZZ PPC MH_UPPER & $F0000 != 0 ; ; model id mem start end notes maprom ;turbo mem 2140/? - ? - ? A500 ; 1220 2140/0C 4 meg $00200000-$00600000 A1200 ; 1230-I 2140/0? ? meg $????????-$???????? A1200 $???????? ; 1230-II 2140/0B 4 meg $0E000000-$0E400000 A1200 $0FF80000 ! ?? ; 1230-II 2140/0B 8 meg $????????-$???????? A1200 $1EF80000 ! ?? ; 1230-III 2140/0D 8 meg $1DC00000-$1E400000 A1200 $1EF80000 ; 1230-III 2140/0D 32 meg $1D000000-$1EF80000 A1200 $1EF80000 ; 1230-IV 2140/11 8 meg $78000000-$78800000 A1200 $4FF80000 ; 1230-IV 2140/11 2 meg $78000000-$78200000 A1200 $4FF80000? ; 1230-IV 2140/11 16 meg $68000000-$68F80000 A1200 $4FF80000? ;?1260 2140/11 4 meg $68000000-$68400000 A1200 $4FF80000 040&060 flag set! ;>1260 2140/11 8 meg $78000000-$78800000 A1200 $4FF80000 040&060 flag set! ;?1260 2140/11 16 meg $68000000-$69000000 A1200 $4FF80000 040&060 flag set! ; 1260 2140/11 4 meg $68000000-$68380000 A1200 $4FF80000? 040&060 flag set! ; 1240-T 2140/11 16 meg $68000000-$69000000 A1200 $4FF80000? 040 flag set! ; 2040-ERC 2140/18 8 meg $08000000-$08800000 A2000 $???????? 040 flag set! 'blizzard fastram' ; 2060 2140/18 20 meg $08000000-$09400000 A2000 $???????? 040&060 flag set! ; 4030 2140/? - ? - ? A4000 ; CSMKI 2140/0C 32 meg $08000000-$0A000000 A4000 csmagic 040 flag set ; CSMKII 2140/19 80 meg $08000000-$0D000000 A4000 csmagic ; CS-PPC 2140/64 ? meg ? - ? A4000 ; BLIZPPC 2140/6E 16 meg $68000000-$68800000 A1200 $FFF00000 040 flag set Board (unidentified): Prod=8512/25($2140/$19) (@$EA0000 128K) Board (unidentified): Prod=2092/18($82C/$12) (@$E90000 64K) Board (unidentified): Prod=2167/201($877/$C9) (@$EC0000 64K) Board (unidentified): Prod=8512/34($2140/$22) (@$40000000, size 64meg, subsize same) last one is CV 64 VERS: Kickstart version 40.70, Exec version 40.10, Disk version 40.42 RAM: Node type $A, Attributes $505 (FAST), at $8000000-$CFFFFFF (80.0 meg) *** CS MK I: PROCESSOR: CPU 68040/68882fpu CUSTOM CHIPS: AA PAL Alice (id=$0023), AA Lisa (id=$00F8) VERS: Kickstart version 39.106, Exec version 39.47, Disk version 39.29 RAM: Node type $A, Attributes $505 (FAST), at $8000000-$9FFFFFF (32.0 meg) Node type $A, Attributes $703 (CHIP), at $2000-$1FFFFF (~2.0 meg) BOARDS: ======================================================================= Board + ROM (HD?) (unidentified): Prod=8512/12($2140/$C) (@$E90000 64K) ConfigDev structure found at location $2840 ==== Board ID (ExpansionRom) information: er_Manufacturer =8512=$2140=(~$DEBF) er_Product =12=$C=(~$F3) er_Type =$D1 (type 3, size 64K, not for free list, ROM diag vec valid, not chained) er_Flags =$0 (no space preference, can be shut up) er_InitDiagVec =$80 DiagCopy at =$8003320 ==== Configuration (ConfigDev) information: cd_BoardAddr =$E90000 cd_BoardSize =$10000 (64K) cd_Flags =$0 (CONFIGME bit cleared)