189 lines
5.5 KiB
Plaintext
189 lines
5.5 KiB
Plaintext
* = $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: <start_low_byte> <start_high_byte> <end_low_byte> <end_high_byte>
|
|
; 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: <low_byte> <high_byte> - 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
|