;64TASS
;
; =============================================================================
; 01;0;0000 (LOROM, bank 1)
bankStart_01_0
.logical $8000

Bank01x
.logical $0801
Bank01i
        .binary "fibr.prg",$02
.here
Bank01L = * - Bank01x

.rept $c000-*
  .byte $FF
.next
		
.here

         .fill $f7fff,$ff

* = $fffff
         .byte $ff

"...\64tass-1.53.1515\64tass" --long-address --no-warn ef.tas -b -o fibr.bin 
"...\WinVICE-3.1-x86\cartconv" -i fibr.bin -t easy -o fibr_ef.crt

/*-----------------------------------------------------------------------------

    EasyFlash Cartridge Framework

-----------------------------------------------------------------------------*/


    // Cartridge Parameters
    // ====================

    // Cartridge Header Parameters
    // ---------------------------
    .const CartridgeHeaderSize     = $40                         // #$40 is default Double Word (Big endian)
    .const CartridgeVersion        = 1.000                       // High/Low Order Fixed Point Word
    .const CartridgeType           = 32                          // 32 = EasyFlash (Big Endian)
    .const CartridgeEXROM          = 0                           // 0 = Inactive & 1 = Active.
    .const CartridgeGAME           = 1                           // 0 = Inactive & 1 = Active.
    .const CartridgeName           = "EasyFlash Cartridge"       // Maximum 32 bytes.

    // Chip Header Parameters
    // ----------------------
    .const CartridgeChipHeaderSize = $10                         // Size of Bank Header Integer (#$10 is default)
    .const CartridgeChipSize       = $2000                       // Size of Cartridge Banks Integer
    .const CartridgeChipType       = 2                           // 0 = ROM, 1 = RAM, 2 = Flash. Word (Big Endian)
    .var CartridgeChipNumber       = 0                           // ID Number for the Chips
    .const CartridgeLocationLo     = $8000                       // Cartridge ROM address on the C64 Word (Big Endian)
    .const CartridgeLocationHi     = $a000                       // Cartridge ROM address on the C64 Word (Big Endian)
    .var CartridgeLocation = CartridgeLocationLo

    // Cartridge Header File
    // =====================

    .pc = $0000 "Cartridge Header"

    .text "C64 CARTRIDGE   "
    .dword _SwitchEndian32(CartridgeHeaderSize)
    .byte CartridgeVersion, round([CartridgeVersion-floor(CartridgeVersion)]*1000)
    .word _SwitchEndian16(CartridgeType)
    .byte CartridgeGAME, CartridgeEXROM
    .fill 6,0
    .encoding "petscii_upper"
    .text CartridgeName
    .encoding "screencode_mixed"
    .fill 32-CartridgeName.size(),0


    // Macros
    // ======

    // Macro to set chip header for each bank (to be called at each bank)
    .macro ChipHeader() {
        .text "CHIP"
        .dword _SwitchEndian32(CartridgeChipHeaderSize + CartridgeChipSize)
        .word _SwitchEndian16(CartridgeChipType)
        .word _SwitchEndian16(CartridgeChipNumber)
        .word _SwitchEndian16(CartridgeLocation)
        .if (CartridgeLocation==CartridgeLocationLo) {
            .eval CartridgeLocation = CartridgeLocationHi
        } else {
            .eval CartridgeLocation = CartridgeLocationLo
            .eval CartridgeChipNumber++
        }
        .word _SwitchEndian16(CartridgeChipSize)
    }


    // Functions
    // =========

    // Switches endian on a 16 bit argument
    .function _SwitchEndian16(argument) {
        .return floor(argument / $100) + floor([argument/$100-floor(argument / $100)]*256)*256
    }

    // Switches endian on a 32 bit argument
    .function _SwitchEndian32(argument) {
        .return floor(argument / $1000000) + [floor(argument / $10000) - floor(argument / $1000000)*256]*256 + [floor(argument / $100) - floor(argument / $10000)*256]*$10000 + [argument - floor(argument / $100)*256]*$1000000
    }



    // LoBank #00 - Asset Manager
    // ==========================

    :ChipHeader()                       // Write the chip header for Bank #00
    .import source "Asset Manager.asm"  // Import Bank #00 which contains all the code to handle the startup and memory management etc.

    // HiBank #00 - EasyFlash Startup Bank
    //====================================

    :ChipHeader()
!Bank_Begin:

    .fill $1800,0
    // EAPI
    .import source "EasyAPI.asm"
    .encoding "petscii_upper"
    .text "EF-Name:KOL@@@@@@@@@@@@@"
    .encoding "screencode_mixed"
    .fill CartridgeChipSize - [* - !Bank_Begin-] - 2, $00
    .word $8000

    // Fill remaining banks with headers and 'null' data
    //==================================================

    .for (var i = 0 ; i < 190 - CartridgeChipNumber ; i++) {
        :ChipHeader()
    !Begin:
        .byte $00
    !End:
        .fill CartridgeChipSize - [!End- - !Begin-], $00
    }