172 lines
4.9 KiB
Plaintext
172 lines
4.9 KiB
Plaintext
* = $4800
|
|
.dsb (*-loader_end), $FF
|
|
|
|
* = $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
|
|
|
|
; start of configuration section
|
|
/*
|
|
Integer BASIC
|
|
|
|
How to store INTEGER BASIC programs via 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>
|
|
test address expected actual
|
|
|
|
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 port
|
|
*/
|
|
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 with "Matrix" effect
|
|
*/
|
|
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
|
|
*/
|
|
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 $7DFE
|
|
|
|
|
|
/*
|
|
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 $1BF8
|
|
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 $7DFE
|
|
|
|
; end of configuration 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
|