* = $4800 .dsb (*-loader_end), $FF ; start of loader entry table section * = $4800 rom_content = $4800 ; define the number of available entries number_of_entries .byt $08 ; entry srtucture ; number of segments - byte ; ; repeat for each segment: ; length in bytes - word ; address to load at - word ; address of content in rom - word ; description for loading menu - (byte) length of the string, string bytes ; ; jump address - word ; Integer BASIC ; ; How to store INTEGER BASIC programs via ACI/Apple-1 Serial Interface? ; C100R ; 004A.00FFW 0800.0FFFW ; E2B3R - warm entry point basic basic_seg .byt $01 basic_len .word $1000 basic_addr .word $e000 basic_cont_start .word basic_cont basic_str .byt $0D,"INTEGER BASIC" basic_jmp_addr .word $e000 ; ; Apple 30th anniversary demo program ; apple30th apple30th_seg .byt $01 apple30th_len .word $0D80 apple30th_addr .word $0280 apple30th_cont_start .word apple30th_cont apple30th_str .byt $13,"APPLE 30TH BIRTHDAY" apple30th_jmp_addr .word $0280 ; ; Mike Willegal's memory test program ; ; 00: ; Output format: ; test_case address expected actual ; ; Test case numbers: ; 0 - All zeros - each byte of memory is verified that a 0x00 value can be written and read ; 1 - All ones - each byte of memory is verified that a 0xff value can be written and read ; 2 - Floating ones - eight passes, starting with 0x01 and moving the 1 bit to left each succeeding pass ; 0x02 0x04 0x08 0x10 0x20 0x40 0x80 ; 3 - Floating zeros - eight passes, starting with 0x7f and shifting the 0 bit to the right each succeeding pass ; 0xBF 0xDF 0xEF 0xF7 0xFB 0xFD 0xFE ; 4 - Address in Address 1 - one pass with low eight bits of the locations address is written to that location ; if this fails, you have a problem with one of the low eight address lines (this is pretty unlikely to fail, ; since you need these address lines in order to load and run this program) ; 5 - Address in Address 2 - one pass with high eight bits of the locations address written to that location ; if this fails, you have a problem with one of the eight high address lines ; memorytest memorytest_seg .byt $02 memorytest_1_len .word $0010 memorytest_1_addr .word $0000 memorytest_1_cont_start .word memorytest_cont memorytest_2_len .word $0122 memorytest_2_addr .word $0280 memorytest_2_cont_start .word memorytest_cont+16 memorytest_str .byt $10,"MEMORY TEST 280R" memorytest_jmp_addr .word $FF1F ; ; Disassembler program ; ; How to use: ; 44: - disassembler start address ; disassembler disassembler_seg .byt $01 disassembler_1_len .word $0200 disassembler_1_addr .word $0800 disassembler_1_cont_start .word disassembler_cont disassembler_str .byt $11,"DISASSEMBLER 800R" disassembler_jmp_addr .word $FF1F ; ; Applesoft BASIC ; ; A modified version from the following fork: ; https://github.com/flowenol/applesoft-lite ; applesoft applesoft_seg .byt $01 applesoft_len .word $2000 applesoft_addr .word $6000 applesoft_cont_start .word applesoft_cont applesoft_str .byt $15,"APPLESOFT BASIC 6000R" applesoft_jmp_addr .word $6000 ; ; A sample Integer BASIC program - "Matrix" effect ; ; 3 segments need to be loaded: ; 1. Integer BASIC ; 2. zero page variables for "Matrix" program ; 3. program contents between LOMEM and HIMEM ; ; Then a jump to Integer BASIC warm entrpoint has to be made ; matrix matrix_seg .byt $03 matrix_1_len .word $1000 matrix_1_addr .word $E000 matrix_1_cont_start .word basic_cont matrix_2_len .word $00B6 matrix_2_addr .word $004A matrix_2_cont_start .word matrix_cont matrix_3_len .word $0800 matrix_3_addr .word $0800 matrix_3_cont_start .word matrix_cont+$B6 matrix_str .byt $0E,"MATRIX (BASIC)" matrix_jmp_addr .word $E2B3 ; ; A sample Applesoft BASIC program - lemonade stand simulator ; ; 3 segments need to be loaded: ; 1. Applesoft BASIC ; 2. lemonade stand program content ; 3. zero page variables for lemonade stand program ; ; Then jump to the STARTFROMCART routine ; lemo lemo_seg .byt $03 lemo_1_len .word $2000 lemo_1_addr .word $6000 lemo_1_cont_start .word applesoft_cont lemo_2_len .word $1BF8 lemo_2_addr .word $0801 lemo_2_cont_start .word lemo_cont lemo_3_len .word $000D lemo_3_addr .word $0067 lemo_3_cont_start .word lemo_fix_cont lemo_str .byt $16,"LEMONADE STAND (ASOFT)" lemo_jmp_addr .word $7DF4 ; ; Another sample Applesoft BASIC program - counts to 10 in a loop ; count10 count10_seg .byt $03 count10_1_len .word $2000 count10_1_addr .word $6000 count10_1_cont_start .word applesoft_cont count10_2_len .word $0051 count10_2_addr .word $0801 count10_2_cont_start .word count10_cont count10_3_len .word $000D count10_3_addr .word $0067 count10_3_cont_start .word count10_fix_cont count10_str .byt $13,"COUNT TO 10 (ASOFT)" count10_jmp_addr .word $7DF4 ; end of loader entry table section ; start of binary content section basic_cont .bin 0,0,"inc/basic.bin" apple30th_cont .bin 0,0,"inc/apple30th.bin" memorytest_cont .bin 0,0,"inc/a1mt.bin" disassembler_cont .bin 0,0,"inc/disassembler.bin" applesoft_cont .bin 0,0,"inc/applesoft-lite.bin" matrix_cont .bin 0,0,"inc/basic/matrix-0800-1000.bin" lemo_cont .bin 0,0,"inc/asoft/lemo.bin" lemo_fix_cont .byt $01,$08,$F8,$23,$F8,$23,$F8,$23,$00,$40,$00,$FF,$00,$40 count10_cont .bin 0,0,"inc/asoft/count10.bin" count10_fix_cont .byt $01,$08,$51,$08,$58,$08,$58,$08,$00,$40,$00,$40,$00,$40 ; end of binary content section