mirror of
https://github.com/simonowen/apple1emu.git
synced 2024-06-10 04:29:30 +00:00
Changes for the switch from SubVersion to git
- Fixed line endings of all text files - Set executable bit on m.bat - Added basic .gitignore
This commit is contained in:
parent
869c9a319f
commit
215b5758f5
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
.*
|
||||||
|
!.gitignore
|
||||||
|
apple1emu.dsk
|
54
ReadMe.txt
54
ReadMe.txt
|
@ -1,27 +1,27 @@
|
||||||
Apple 1 Emulator for SAM Coupe (v1.2)
|
Apple 1 Emulator for SAM Coupe (v1.2)
|
||||||
-------------------------------------
|
-------------------------------------
|
||||||
|
|
||||||
See website for usage: http://simonowen.com/sam/apple1emu/
|
See website for usage: http://simonowen.com/sam/apple1emu/
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
Version 1.2 (5/9/2008)
|
Version 1.2 (5/9/2008)
|
||||||
- Fixed BRK flags (clear D, set I, N/Z set from wrong EXX set)
|
- Fixed BRK flags (clear D, set I, N/Z set from wrong EXX set)
|
||||||
- Fixed Esc repeat, broken in previous version
|
- Fixed Esc repeat, broken in previous version
|
||||||
- Added Applesoft BASIC [Lite] and Lee Davidson's Enhanced BASIC
|
- Added Applesoft BASIC [Lite] and Lee Davidson's Enhanced BASIC
|
||||||
- Updated Ken Wessen's Krusader assembler to v1.3
|
- Updated Ken Wessen's Krusader assembler to v1.3
|
||||||
- First byte of emulator at &c000 appears to be ROM (for Applesoft BASIC ROM)
|
- First byte of emulator at &c000 appears to be ROM (for Applesoft BASIC ROM)
|
||||||
- Terminal output now supports lower-case characters (for Enhanced BASIC)
|
- Terminal output now supports lower-case characters (for Enhanced BASIC)
|
||||||
|
|
||||||
Version 1.1 (27/8/2008)
|
Version 1.1 (27/8/2008)
|
||||||
- Improved 65C02 core for ~20% speed boost
|
- Improved 65C02 core for ~20% speed boost
|
||||||
- Fixed broken TRB, which was masking the wrong value
|
- Fixed broken TRB, which was masking the wrong value
|
||||||
- BIT #imm no longer considers setting N flag
|
- BIT #imm no longer considers setting N flag
|
||||||
|
|
||||||
Version 1.0 (19/3/2007)
|
Version 1.0 (19/3/2007)
|
||||||
- Initial release
|
- Initial release
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
Simon Owen
|
Simon Owen
|
||||||
simon@simonowen.com
|
simon@simonowen.com
|
||||||
|
|
1328
apple1emu.asm
1328
apple1emu.asm
File diff suppressed because it is too large
Load Diff
128
font.pl
128
font.pl
|
@ -1,64 +1,64 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# Convert PNG image to raw font binary for Apple 1 emulator
|
# Convert PNG image to raw font binary for Apple 1 emulator
|
||||||
#
|
#
|
||||||
# Makes lots of assumptions about the input image!
|
# Makes lots of assumptions about the input image!
|
||||||
|
|
||||||
use Compress::Zlib;
|
use Compress::Zlib;
|
||||||
|
|
||||||
# Input image and output data file
|
# Input image and output data file
|
||||||
my $input = 'font.png';
|
my $input = 'font.png';
|
||||||
my $output = 'font.bin';
|
my $output = 'font.bin';
|
||||||
|
|
||||||
# Our characters are 6 pixels wide
|
# Our characters are 6 pixels wide
|
||||||
$chrw = 6;
|
$chrw = 6;
|
||||||
|
|
||||||
|
|
||||||
# Slurp the entire PNG image
|
# Slurp the entire PNG image
|
||||||
open INPUT, "<$input" and binmode INPUT or die "$input: $!\n";
|
open INPUT, "<$input" and binmode INPUT or die "$input: $!\n";
|
||||||
read INPUT, $data='', -s $input;
|
read INPUT, $data='', -s $input;
|
||||||
close INPUT;
|
close INPUT;
|
||||||
|
|
||||||
# Find and extract the image dimensions
|
# Find and extract the image dimensions
|
||||||
$data =~ /IHDR(.{8})/s;
|
$data =~ /IHDR(.{8})/s;
|
||||||
($w,$h) = unpack "N2", $1;
|
($w,$h) = unpack "N2", $1;
|
||||||
|
|
||||||
# Extract and expand the compressed image data
|
# Extract and expand the compressed image data
|
||||||
($data) = $data =~ /IDAT(.*).{8}IEND/s;
|
($data) = $data =~ /IDAT(.*).{8}IEND/s;
|
||||||
$data = Compress::Zlib::uncompress($data);
|
$data = Compress::Zlib::uncompress($data);
|
||||||
|
|
||||||
# Remove the type byte from the start of each line
|
# Remove the type byte from the start of each line
|
||||||
$w_2 = $w/2;
|
$w_2 = $w/2;
|
||||||
$data =~ s/.(.{$w_2})/$1/sg;
|
$data =~ s/.(.{$w_2})/$1/sg;
|
||||||
|
|
||||||
@data = ();
|
@data = ();
|
||||||
|
|
||||||
# Unpack the pixel nibbles
|
# Unpack the pixel nibbles
|
||||||
foreach (unpack "C*", $data) {
|
foreach (unpack "C*", $data) {
|
||||||
push @data, $_>>4, $_&1;
|
push @data, $_>>4, $_&1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
open OUTPUT, ">$output" and binmode OUTPUT or die "$output: $!\n";
|
open OUTPUT, ">$output" and binmode OUTPUT or die "$output: $!\n";
|
||||||
|
|
||||||
# Process all characters
|
# Process all characters
|
||||||
foreach $chr (0..$w/$chrw-1)
|
foreach $chr (0..$w/$chrw-1)
|
||||||
{
|
{
|
||||||
# Process the image line by line
|
# Process the image line by line
|
||||||
foreach $y (0..$h-1)
|
foreach $y (0..$h-1)
|
||||||
{
|
{
|
||||||
# Locate the pixel data for the current character
|
# Locate the pixel data for the current character
|
||||||
my $x = $chr*$chrw + $w*$y;
|
my $x = $chr*$chrw + $w*$y;
|
||||||
my $b = 0;
|
my $b = 0;
|
||||||
|
|
||||||
# Pack the 1bpp data into a single byte
|
# Pack the 1bpp data into a single byte
|
||||||
foreach (@data[$x..$x+$chrw-1]) {
|
foreach (@data[$x..$x+$chrw-1]) {
|
||||||
$b = ($b << 1) | $_;
|
$b = ($b << 1) | $_;
|
||||||
}
|
}
|
||||||
|
|
||||||
# Left-align within the byte and output it
|
# Left-align within the byte and output it
|
||||||
print OUTPUT chr($b << (8-$chrw));
|
print OUTPUT chr($b << (8-$chrw));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
close OUTPUT;
|
close OUTPUT;
|
||||||
|
|
4
m.bat
Normal file → Executable file
4
m.bat
Normal file → Executable file
|
@ -1,2 +1,2 @@
|
||||||
pyz80.py -I samdos2 -s length apple1emu.asm
|
pyz80.py -I samdos2 -s length apple1emu.asm
|
||||||
@if %errorlevel%==0 start apple1emu.dsk
|
@if %errorlevel%==0 start apple1emu.dsk
|
||||||
|
|
516
opdefs.inc
516
opdefs.inc
|
@ -1,258 +1,258 @@
|
||||||
; Opcode table positions (auto-generated by opdefs.pl)
|
; Opcode table positions (auto-generated by opdefs.pl)
|
||||||
|
|
||||||
op_00: equ &c000 ; +42
|
op_00: equ &c000 ; +42
|
||||||
op_01: equ &c401 ; +18
|
op_01: equ &c401 ; +18
|
||||||
op_02: equ &ca02 ; +3
|
op_02: equ &ca02 ; +3
|
||||||
op_03: equ &c103 ; +3
|
op_03: equ &c103 ; +3
|
||||||
op_04: equ &c304 ; +14
|
op_04: equ &c304 ; +14
|
||||||
op_05: equ &c205 ; +12
|
op_05: equ &c205 ; +12
|
||||||
op_06: equ &c706 ; +13
|
op_06: equ &c706 ; +13
|
||||||
op_07: equ &cb07 ; +9
|
op_07: equ &cb07 ; +9
|
||||||
op_08: equ &c108 ; +23
|
op_08: equ &c108 ; +23
|
||||||
op_09: equ &ca09 ; +10
|
op_09: equ &ca09 ; +10
|
||||||
op_0a: equ &cc0a ; +7
|
op_0a: equ &cc0a ; +7
|
||||||
op_0b: equ &c90b ; +3
|
op_0b: equ &c90b ; +3
|
||||||
op_0c: equ &c50c ; +16
|
op_0c: equ &c50c ; +16
|
||||||
op_0d: equ &c80d ; +13
|
op_0d: equ &c80d ; +13
|
||||||
op_0e: equ &c60e ; +14
|
op_0e: equ &c60e ; +14
|
||||||
op_0f: equ &c90f ; +13
|
op_0f: equ &c90f ; +13
|
||||||
op_10: equ &cd10 ; +8
|
op_10: equ &cd10 ; +8
|
||||||
op_11: equ &c211 ; +22
|
op_11: equ &c211 ; +22
|
||||||
op_12: equ &c312 ; +20
|
op_12: equ &c312 ; +20
|
||||||
op_13: equ &c413 ; +3
|
op_13: equ &c413 ; +3
|
||||||
op_14: equ &ca14 ; +15
|
op_14: equ &ca14 ; +15
|
||||||
op_15: equ &cc15 ; +14
|
op_15: equ &cc15 ; +14
|
||||||
op_16: equ &cb16 ; +15
|
op_16: equ &cb16 ; +15
|
||||||
op_17: equ &ce17 ; +9
|
op_17: equ &ce17 ; +9
|
||||||
op_18: equ &cd18 ; +4
|
op_18: equ &cd18 ; +4
|
||||||
op_19: equ &c719 ; +17
|
op_19: equ &c719 ; +17
|
||||||
op_1a: equ &c41a ; +4
|
op_1a: equ &c41a ; +4
|
||||||
op_1b: equ &cf1b ; +3
|
op_1b: equ &cf1b ; +3
|
||||||
op_1c: equ &c61c ; +17
|
op_1c: equ &c61c ; +17
|
||||||
op_1d: equ &c81d ; +17
|
op_1d: equ &c81d ; +17
|
||||||
op_1e: equ &c41e ; +18
|
op_1e: equ &c41e ; +18
|
||||||
op_1f: equ &cd1f ; +13
|
op_1f: equ &cd1f ; +13
|
||||||
op_20: equ &c920 ; +16
|
op_20: equ &c920 ; +16
|
||||||
op_21: equ &c521 ; +18
|
op_21: equ &c521 ; +18
|
||||||
op_22: equ &ce22 ; +3
|
op_22: equ &ce22 ; +3
|
||||||
op_23: equ &ca23 ; +3
|
op_23: equ &ca23 ; +3
|
||||||
op_24: equ &c124 ; +27
|
op_24: equ &c124 ; +27
|
||||||
op_25: equ &cb25 ; +12
|
op_25: equ &cb25 ; +12
|
||||||
op_26: equ &ca26 ; +13
|
op_26: equ &ca26 ; +13
|
||||||
op_27: equ &c327 ; +9
|
op_27: equ &c327 ; +9
|
||||||
op_28: equ &c228 ; +25
|
op_28: equ &c228 ; +25
|
||||||
op_29: equ &cc29 ; +10
|
op_29: equ &cc29 ; +10
|
||||||
op_2a: equ &ce2a ; +7
|
op_2a: equ &ce2a ; +7
|
||||||
op_2b: equ &c02b ; +3
|
op_2b: equ &c02b ; +3
|
||||||
op_2c: equ &cd2c ; +9
|
op_2c: equ &cd2c ; +9
|
||||||
op_2d: equ &c62d ; +13
|
op_2d: equ &c62d ; +13
|
||||||
op_2e: equ &c02e ; +14
|
op_2e: equ &c02e ; +14
|
||||||
op_2f: equ &c72f ; +13
|
op_2f: equ &c72f ; +13
|
||||||
op_30: equ &c830 ; +8
|
op_30: equ &c830 ; +8
|
||||||
op_31: equ &c331 ; +22
|
op_31: equ &c331 ; +22
|
||||||
op_32: equ &c432 ; +20
|
op_32: equ &c432 ; +20
|
||||||
op_33: equ &c933 ; +3
|
op_33: equ &c933 ; +3
|
||||||
op_34: equ &c534 ; +10
|
op_34: equ &c534 ; +10
|
||||||
op_35: equ &ca35 ; +14
|
op_35: equ &ca35 ; +14
|
||||||
op_36: equ &c936 ; +15
|
op_36: equ &c936 ; +15
|
||||||
op_37: equ &cc37 ; +9
|
op_37: equ &cc37 ; +9
|
||||||
op_38: equ &cb38 ; +4
|
op_38: equ &cb38 ; +4
|
||||||
op_39: equ &c839 ; +17
|
op_39: equ &c839 ; +17
|
||||||
op_3a: equ &c63a ; +4
|
op_3a: equ &c63a ; +4
|
||||||
op_3b: equ &cd3b ; +3
|
op_3b: equ &cd3b ; +3
|
||||||
op_3c: equ &cb3c ; +13
|
op_3c: equ &cb3c ; +13
|
||||||
op_3d: equ &c73d ; +17
|
op_3d: equ &c73d ; +17
|
||||||
op_3e: equ &c63e ; +18
|
op_3e: equ &c63e ; +18
|
||||||
op_3f: equ &c13f ; +13
|
op_3f: equ &c13f ; +13
|
||||||
op_40: equ &c040 ; +35
|
op_40: equ &c040 ; +35
|
||||||
op_41: equ &c541 ; +18
|
op_41: equ &c541 ; +18
|
||||||
op_42: equ &c242 ; +3
|
op_42: equ &c242 ; +3
|
||||||
op_43: equ &cc43 ; +3
|
op_43: equ &cc43 ; +3
|
||||||
op_44: equ &ca44 ; +3
|
op_44: equ &ca44 ; +3
|
||||||
op_45: equ &c245 ; +12
|
op_45: equ &c245 ; +12
|
||||||
op_46: equ &c446 ; +13
|
op_46: equ &c446 ; +13
|
||||||
op_47: equ &ca47 ; +9
|
op_47: equ &ca47 ; +9
|
||||||
op_48: equ &cc48 ; +7
|
op_48: equ &cc48 ; +7
|
||||||
op_49: equ &cb49 ; +10
|
op_49: equ &cb49 ; +10
|
||||||
op_4a: equ &cd4a ; +7
|
op_4a: equ &cd4a ; +7
|
||||||
op_4b: equ &c34b ; +3
|
op_4b: equ &c34b ; +3
|
||||||
op_4c: equ &ce4c ; +6
|
op_4c: equ &ce4c ; +6
|
||||||
op_4d: equ &c94d ; +13
|
op_4d: equ &c94d ; +13
|
||||||
op_4e: equ &c34e ; +14
|
op_4e: equ &c34e ; +14
|
||||||
op_4f: equ &c84f ; +13
|
op_4f: equ &c84f ; +13
|
||||||
op_50: equ &ca50 ; +10
|
op_50: equ &ca50 ; +10
|
||||||
op_51: equ &c151 ; +22
|
op_51: equ &c151 ; +22
|
||||||
op_52: equ &c252 ; +20
|
op_52: equ &c252 ; +20
|
||||||
op_53: equ &c453 ; +3
|
op_53: equ &c453 ; +3
|
||||||
op_54: equ &c554 ; +3
|
op_54: equ &c554 ; +3
|
||||||
op_55: equ &c755 ; +14
|
op_55: equ &c755 ; +14
|
||||||
op_56: equ &c656 ; +15
|
op_56: equ &c656 ; +15
|
||||||
op_57: equ &cb57 ; +9
|
op_57: equ &cb57 ; +9
|
||||||
op_58: equ &cd58 ; +6
|
op_58: equ &cd58 ; +6
|
||||||
op_59: equ &c559 ; +17
|
op_59: equ &c559 ; +17
|
||||||
op_5a: equ &cc5a ; +8
|
op_5a: equ &cc5a ; +8
|
||||||
op_5b: equ &c95b ; +3
|
op_5b: equ &c95b ; +3
|
||||||
op_5c: equ &c85c ; +3
|
op_5c: equ &c85c ; +3
|
||||||
op_5d: equ &c45d ; +17
|
op_5d: equ &c45d ; +17
|
||||||
op_5e: equ &c35e ; +18
|
op_5e: equ &c35e ; +18
|
||||||
op_5f: equ &c95f ; +13
|
op_5f: equ &c95f ; +13
|
||||||
op_60: equ &ca60 ; +13
|
op_60: equ &ca60 ; +13
|
||||||
op_61: equ &c861 ; +14
|
op_61: equ &c861 ; +14
|
||||||
op_62: equ &cc62 ; +3
|
op_62: equ &cc62 ; +3
|
||||||
op_63: equ &c063 ; +3
|
op_63: equ &c063 ; +3
|
||||||
op_64: equ &cb64 ; +8
|
op_64: equ &cb64 ; +8
|
||||||
op_65: equ &cd65 ; +8
|
op_65: equ &cd65 ; +8
|
||||||
op_66: equ &c666 ; +13
|
op_66: equ &c666 ; +13
|
||||||
op_67: equ &c767 ; +9
|
op_67: equ &c767 ; +9
|
||||||
op_68: equ &cc68 ; +8
|
op_68: equ &cc68 ; +8
|
||||||
op_69: equ &c069 ; +27
|
op_69: equ &c069 ; +27
|
||||||
op_6a: equ &ce6a ; +7
|
op_6a: equ &ce6a ; +7
|
||||||
op_6b: equ &c16b ; +3
|
op_6b: equ &c16b ; +3
|
||||||
op_6c: equ &c56c ; +10
|
op_6c: equ &c56c ; +10
|
||||||
op_6d: equ &cb6d ; +9
|
op_6d: equ &cb6d ; +9
|
||||||
op_6e: equ &c16e ; +14
|
op_6e: equ &c16e ; +14
|
||||||
op_6f: equ &c26f ; +13
|
op_6f: equ &c26f ; +13
|
||||||
op_70: equ &c970 ; +10
|
op_70: equ &c970 ; +10
|
||||||
op_71: equ &c371 ; +18
|
op_71: equ &c371 ; +18
|
||||||
op_72: equ &c472 ; +16
|
op_72: equ &c472 ; +16
|
||||||
op_73: equ &c673 ; +3
|
op_73: equ &c673 ; +3
|
||||||
op_74: equ &ca74 ; +10
|
op_74: equ &ca74 ; +10
|
||||||
op_75: equ &c775 ; +10
|
op_75: equ &c775 ; +10
|
||||||
op_76: equ &c676 ; +15
|
op_76: equ &c676 ; +15
|
||||||
op_77: equ &cc77 ; +9
|
op_77: equ &cc77 ; +9
|
||||||
op_78: equ &cd78 ; +6
|
op_78: equ &cd78 ; +6
|
||||||
op_79: equ &c879 ; +13
|
op_79: equ &c879 ; +13
|
||||||
op_7a: equ &cb7a ; +9
|
op_7a: equ &cb7a ; +9
|
||||||
op_7b: equ &ce7b ; +3
|
op_7b: equ &ce7b ; +3
|
||||||
op_7c: equ &c57c ; +15
|
op_7c: equ &c57c ; +15
|
||||||
op_7d: equ &c97d ; +13
|
op_7d: equ &c97d ; +13
|
||||||
op_7e: equ &c27e ; +18
|
op_7e: equ &c27e ; +18
|
||||||
op_7f: equ &ca7f ; +13
|
op_7f: equ &ca7f ; +13
|
||||||
op_80: equ &c180 ; +21
|
op_80: equ &c180 ; +21
|
||||||
op_81: equ &c781 ; +14
|
op_81: equ &c781 ; +14
|
||||||
op_82: equ &c482 ; +3
|
op_82: equ &c482 ; +3
|
||||||
op_83: equ &cb83 ; +3
|
op_83: equ &cb83 ; +3
|
||||||
op_84: equ &c384 ; +10
|
op_84: equ &c384 ; +10
|
||||||
op_85: equ &c485 ; +8
|
op_85: equ &c485 ; +8
|
||||||
op_86: equ &c086 ; +10
|
op_86: equ &c086 ; +10
|
||||||
op_87: equ &c887 ; +9
|
op_87: equ &c887 ; +9
|
||||||
op_88: equ &cc88 ; +6
|
op_88: equ &cc88 ; +6
|
||||||
op_89: equ &cb89 ; +7
|
op_89: equ &cb89 ; +7
|
||||||
op_8a: equ &c98a ; +5
|
op_8a: equ &c98a ; +5
|
||||||
op_8b: equ &cd8b ; +3
|
op_8b: equ &cd8b ; +3
|
||||||
op_8c: equ &c58c ; +12
|
op_8c: equ &c58c ; +12
|
||||||
op_8d: equ &c68d ; +10
|
op_8d: equ &c68d ; +10
|
||||||
op_8e: equ &c48e ; +12
|
op_8e: equ &c48e ; +12
|
||||||
op_8f: equ &c38f ; +13
|
op_8f: equ &c38f ; +13
|
||||||
op_90: equ &c990 ; +8
|
op_90: equ &c990 ; +8
|
||||||
op_91: equ &c091 ; +19
|
op_91: equ &c091 ; +19
|
||||||
op_92: equ &c292 ; +17
|
op_92: equ &c292 ; +17
|
||||||
op_93: equ &c793 ; +3
|
op_93: equ &c793 ; +3
|
||||||
op_94: equ &c894 ; +12
|
op_94: equ &c894 ; +12
|
||||||
op_95: equ &c195 ; +10
|
op_95: equ &c195 ; +10
|
||||||
op_96: equ &c796 ; +12
|
op_96: equ &c796 ; +12
|
||||||
op_97: equ &ca97 ; +9
|
op_97: equ &ca97 ; +9
|
||||||
op_98: equ &c698 ; +5
|
op_98: equ &c698 ; +5
|
||||||
op_99: equ &c599 ; +14
|
op_99: equ &c599 ; +14
|
||||||
op_9a: equ &cb9a ; +7
|
op_9a: equ &cb9a ; +7
|
||||||
op_9b: equ &cc9b ; +3
|
op_9b: equ &cc9b ; +3
|
||||||
op_9c: equ &c99c ; +11
|
op_9c: equ &c99c ; +11
|
||||||
op_9d: equ &c49d ; +14
|
op_9d: equ &c49d ; +14
|
||||||
op_9e: equ &c39e ; +15
|
op_9e: equ &c39e ; +15
|
||||||
op_9f: equ &c69f ; +13
|
op_9f: equ &c69f ; +13
|
||||||
op_a0: equ &caa0 ; +7
|
op_a0: equ &caa0 ; +7
|
||||||
op_a1: equ &c1a1 ; +15
|
op_a1: equ &c1a1 ; +15
|
||||||
op_a2: equ &c8a2 ; +7
|
op_a2: equ &c8a2 ; +7
|
||||||
op_a3: equ &c7a3 ; +3
|
op_a3: equ &c7a3 ; +3
|
||||||
op_a4: equ &c0a4 ; +10
|
op_a4: equ &c0a4 ; +10
|
||||||
op_a5: equ &c2a5 ; +9
|
op_a5: equ &c2a5 ; +9
|
||||||
op_a6: equ &c7a6 ; +10
|
op_a6: equ &c7a6 ; +10
|
||||||
op_a7: equ &c5a7 ; +9
|
op_a7: equ &c5a7 ; +9
|
||||||
op_a8: equ &caa8 ; +5
|
op_a8: equ &caa8 ; +5
|
||||||
op_a9: equ &c8a9 ; +6
|
op_a9: equ &c8a9 ; +6
|
||||||
op_aa: equ &c9aa ; +5
|
op_aa: equ &c9aa ; +5
|
||||||
op_ab: equ &cbab ; +3
|
op_ab: equ &cbab ; +3
|
||||||
op_ac: equ &c4ac ; +12
|
op_ac: equ &c4ac ; +12
|
||||||
op_ad: equ &c6ad ; +11
|
op_ad: equ &c6ad ; +11
|
||||||
op_ae: equ &c3ae ; +12
|
op_ae: equ &c3ae ; +12
|
||||||
op_af: equ &c2af ; +13
|
op_af: equ &c2af ; +13
|
||||||
op_b0: equ &c7b0 ; +8
|
op_b0: equ &c7b0 ; +8
|
||||||
op_b1: equ &c0b1 ; +20
|
op_b1: equ &c0b1 ; +20
|
||||||
op_b2: equ &c1b2 ; +18
|
op_b2: equ &c1b2 ; +18
|
||||||
op_b3: equ &c5b3 ; +3
|
op_b3: equ &c5b3 ; +3
|
||||||
op_b4: equ &c8b4 ; +12
|
op_b4: equ &c8b4 ; +12
|
||||||
op_b5: equ &c9b5 ; +11
|
op_b5: equ &c9b5 ; +11
|
||||||
op_b6: equ &c5b6 ; +12
|
op_b6: equ &c5b6 ; +12
|
||||||
op_b7: equ &cbb7 ; +9
|
op_b7: equ &cbb7 ; +9
|
||||||
op_b8: equ &c4b8 ; +6
|
op_b8: equ &c4b8 ; +6
|
||||||
op_b9: equ &c6b9 ; +15
|
op_b9: equ &c6b9 ; +15
|
||||||
op_ba: equ &ccba ; +8
|
op_ba: equ &ccba ; +8
|
||||||
op_bb: equ &cabb ; +3
|
op_bb: equ &cabb ; +3
|
||||||
op_bc: equ &c3bc ; +16
|
op_bc: equ &c3bc ; +16
|
||||||
op_bd: equ &c7bd ; +15
|
op_bd: equ &c7bd ; +15
|
||||||
op_be: equ &c4be ; +16
|
op_be: equ &c4be ; +16
|
||||||
op_bf: equ &cabf ; +13
|
op_bf: equ &cabf ; +13
|
||||||
op_c0: equ &c9c0 ; +13
|
op_c0: equ &c9c0 ; +13
|
||||||
op_c1: equ &c2c1 ; +20
|
op_c1: equ &c2c1 ; +20
|
||||||
op_c2: equ &c8c2 ; +3
|
op_c2: equ &c8c2 ; +3
|
||||||
op_c3: equ &cbc3 ; +3
|
op_c3: equ &cbc3 ; +3
|
||||||
op_c4: equ &c5c4 ; +15
|
op_c4: equ &c5c4 ; +15
|
||||||
op_c5: equ &c8c5 ; +14
|
op_c5: equ &c8c5 ; +14
|
||||||
op_c6: equ &c0c6 ; +9
|
op_c6: equ &c0c6 ; +9
|
||||||
op_c7: equ &c1c7 ; +9
|
op_c7: equ &c1c7 ; +9
|
||||||
op_c8: equ &ccc8 ; +6
|
op_c8: equ &ccc8 ; +6
|
||||||
op_c9: equ &cbc9 ; +12
|
op_c9: equ &cbc9 ; +12
|
||||||
op_ca: equ &cdca ; +6
|
op_ca: equ &cdca ; +6
|
||||||
op_cb: equ &cecb ; +3
|
op_cb: equ &cecb ; +3
|
||||||
op_cc: equ &c3cc ; +16
|
op_cc: equ &c3cc ; +16
|
||||||
op_cd: equ &c6cd ; +15
|
op_cd: equ &c6cd ; +15
|
||||||
op_ce: equ &c9ce ; +11
|
op_ce: equ &c9ce ; +11
|
||||||
op_cf: equ &c7cf ; +13
|
op_cf: equ &c7cf ; +13
|
||||||
op_d0: equ &ccd0 ; +8
|
op_d0: equ &ccd0 ; +8
|
||||||
op_d1: equ &c0d1 ; +24
|
op_d1: equ &c0d1 ; +24
|
||||||
op_d2: equ &c1d2 ; +22
|
op_d2: equ &c1d2 ; +22
|
||||||
op_d3: equ &c5d3 ; +3
|
op_d3: equ &c5d3 ; +3
|
||||||
op_d4: equ &c8d4 ; +3
|
op_d4: equ &c8d4 ; +3
|
||||||
op_d5: equ &c4d5 ; +16
|
op_d5: equ &c4d5 ; +16
|
||||||
op_d6: equ &c5d6 ; +11
|
op_d6: equ &c5d6 ; +11
|
||||||
op_d7: equ &cad7 ; +9
|
op_d7: equ &cad7 ; +9
|
||||||
op_d8: equ &c8d8 ; +13
|
op_d8: equ &c8d8 ; +13
|
||||||
op_d9: equ &c2d9 ; +19
|
op_d9: equ &c2d9 ; +19
|
||||||
op_da: equ &cbda ; +8
|
op_da: equ &cbda ; +8
|
||||||
op_db: equ &c9db ; +4
|
op_db: equ &c9db ; +4
|
||||||
op_dc: equ &c7dc ; +3
|
op_dc: equ &c7dc ; +3
|
||||||
op_dd: equ &c3dd ; +19
|
op_dd: equ &c3dd ; +19
|
||||||
op_de: equ &c6de ; +15
|
op_de: equ &c6de ; +15
|
||||||
op_df: equ &c9df ; +13
|
op_df: equ &c9df ; +13
|
||||||
op_e0: equ &cae0 ; +13
|
op_e0: equ &cae0 ; +13
|
||||||
op_e1: equ &c7e1 ; +14
|
op_e1: equ &c7e1 ; +14
|
||||||
op_e2: equ &cce2 ; +3
|
op_e2: equ &cce2 ; +3
|
||||||
op_e3: equ &cbe3 ; +3
|
op_e3: equ &cbe3 ; +3
|
||||||
op_e4: equ &c5e4 ; +15
|
op_e4: equ &c5e4 ; +15
|
||||||
op_e5: equ &c8e5 ; +8
|
op_e5: equ &c8e5 ; +8
|
||||||
op_e6: equ &cce6 ; +9
|
op_e6: equ &cce6 ; +9
|
||||||
op_e7: equ &cbe7 ; +9
|
op_e7: equ &cbe7 ; +9
|
||||||
op_e8: equ &c1e8 ; +6
|
op_e8: equ &c1e8 ; +6
|
||||||
op_e9: equ &c0e9 ; +22
|
op_e9: equ &c0e9 ; +22
|
||||||
op_ea: equ &c4ea ; +2
|
op_ea: equ &c4ea ; +2
|
||||||
op_eb: equ &cdeb ; +3
|
op_eb: equ &cdeb ; +3
|
||||||
op_ec: equ &c4ec ; +16
|
op_ec: equ &c4ec ; +16
|
||||||
op_ed: equ &c6ed ; +9
|
op_ed: equ &c6ed ; +9
|
||||||
op_ee: equ &c8ee ; +11
|
op_ee: equ &c8ee ; +11
|
||||||
op_ef: equ &c7ef ; +13
|
op_ef: equ &c7ef ; +13
|
||||||
op_f0: equ &caf0 ; +8
|
op_f0: equ &caf0 ; +8
|
||||||
op_f1: equ &c1f1 ; +18
|
op_f1: equ &c1f1 ; +18
|
||||||
op_f2: equ &c2f2 ; +16
|
op_f2: equ &c2f2 ; +16
|
||||||
op_f3: equ &c3f3 ; +3
|
op_f3: equ &c3f3 ; +3
|
||||||
op_f4: equ &c5f4 ; +3
|
op_f4: equ &c5f4 ; +3
|
||||||
op_f5: equ &c9f5 ; +10
|
op_f5: equ &c9f5 ; +10
|
||||||
op_f6: equ &c3f6 ; +11
|
op_f6: equ &c3f6 ; +11
|
||||||
op_f7: equ &cbf7 ; +9
|
op_f7: equ &cbf7 ; +9
|
||||||
op_f8: equ &c6f8 ; +14
|
op_f8: equ &c6f8 ; +14
|
||||||
op_f9: equ &c8f9 ; +13
|
op_f9: equ &c8f9 ; +13
|
||||||
op_fa: equ &cafa ; +9
|
op_fa: equ &cafa ; +9
|
||||||
op_fb: equ &c5fb ; +3
|
op_fb: equ &c5fb ; +3
|
||||||
op_fc: equ &c4fc ; +3
|
op_fc: equ &c4fc ; +3
|
||||||
op_fd: equ &c7fd ; +13
|
op_fd: equ &c7fd ; +13
|
||||||
op_fe: equ &c5fe ; +15
|
op_fe: equ &c5fe ; +15
|
||||||
op_ff: equ &c4ff ; +13
|
op_ff: equ &c4ff ; +13
|
||||||
|
|
170
opdefs.pl
170
opdefs.pl
|
@ -1,85 +1,85 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# Calculates opcode addresses for the inline instruction decoding table
|
# Calculates opcode addresses for the inline instruction decoding table
|
||||||
#
|
#
|
||||||
# Used by the Apple 1 emulator, available from:
|
# Used by the Apple 1 emulator, available from:
|
||||||
#
|
#
|
||||||
# http://simonowen.com/sam/apple1emu/
|
# http://simonowen.com/sam/apple1emu/
|
||||||
|
|
||||||
$source = 'apple1emu.asm';
|
$source = 'apple1emu.asm';
|
||||||
$codeend = 0xd000;
|
$codeend = 0xd000;
|
||||||
|
|
||||||
# Assemble, outputting the symbols containing opcode implementation lengths
|
# Assemble, outputting the symbols containing opcode implementation lengths
|
||||||
$_ = `pyz80.py -s op_.*_len $source`;
|
$_ = `pyz80.py -s op_.*_len $source`;
|
||||||
|
|
||||||
# Create include file for definitions
|
# Create include file for definitions
|
||||||
my $outfile = 'opdefs.inc';
|
my $outfile = 'opdefs.inc';
|
||||||
open(FILE, ">$outfile") or die "$!";
|
open(FILE, ">$outfile") or die "$!";
|
||||||
print FILE "; Opcode table positions (auto-generated by opdefs.pl)\n\n";
|
print FILE "; Opcode table positions (auto-generated by opdefs.pl)\n\n";
|
||||||
|
|
||||||
# Assembly failed?
|
# Assembly failed?
|
||||||
if ($?)
|
if ($?)
|
||||||
{
|
{
|
||||||
# Create dummy offset list to allow lengths to be calculated
|
# Create dummy offset list to allow lengths to be calculated
|
||||||
for (0..255) {
|
for (0..255) {
|
||||||
printf FILE "op_%02x: equ &%04x\n", $_, $codeend-0x1000;
|
printf FILE "op_%02x: equ &%04x\n", $_, $codeend-0x1000;
|
||||||
}
|
}
|
||||||
|
|
||||||
print "Assembly error, creating dummy definitions!\n";
|
print "Assembly error, creating dummy definitions!\n";
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
# Create hash from opcode to length
|
# Create hash from opcode to length
|
||||||
while (/OP_(..)_LEN': (\d+)/g) {
|
while (/OP_(..)_LEN': (\d+)/g) {
|
||||||
$len{hex $1} = $2;
|
$len{hex $1} = $2;
|
||||||
}
|
}
|
||||||
|
|
||||||
# Position in order of size, largest first
|
# Position in order of size, largest first
|
||||||
@todo = reverse sort { $len{$a} <=> $len{$b} } keys %len;
|
@todo = reverse sort { $len{$a} <=> $len{$b} } keys %len;
|
||||||
|
|
||||||
my($size,$used) = (0,0);
|
my($size,$used) = (0,0);
|
||||||
|
|
||||||
OPCODE:
|
OPCODE:
|
||||||
foreach $op (@todo)
|
foreach $op (@todo)
|
||||||
{
|
{
|
||||||
MSB:
|
MSB:
|
||||||
# Work up through MSB values until we find a space
|
# Work up through MSB values until we find a space
|
||||||
for ($msb = 0 ; ; $msb++)
|
for ($msb = 0 ; ; $msb++)
|
||||||
{
|
{
|
||||||
# Determine the extent of the opcode in the current MSB
|
# Determine the extent of the opcode in the current MSB
|
||||||
my $start = ($msb << 8) | $op;
|
my $start = ($msb << 8) | $op;
|
||||||
my $end = $start + $len{$op}-1;
|
my $end = $start + $len{$op}-1;
|
||||||
|
|
||||||
# Check against what we've already positioned
|
# Check against what we've already positioned
|
||||||
foreach (keys %off)
|
foreach (keys %off)
|
||||||
{
|
{
|
||||||
# Determine extent of existing item
|
# Determine extent of existing item
|
||||||
my $start2 = $off{$_};
|
my $start2 = $off{$_};
|
||||||
my $end2 = $start2 + $len{$_}-1;
|
my $end2 = $start2 + $len{$_}-1;
|
||||||
|
|
||||||
# Reject MSB if new position would overlap
|
# Reject MSB if new position would overlap
|
||||||
next MSB unless ($start > $end2 || $end < $start2);
|
next MSB unless ($start > $end2 || $end < $start2);
|
||||||
}
|
}
|
||||||
|
|
||||||
# Assign to the free spot we've found
|
# Assign to the free spot we've found
|
||||||
$off{$op} = $start;
|
$off{$op} = $start;
|
||||||
|
|
||||||
# Update size stats
|
# Update size stats
|
||||||
$used += $len{$op};
|
$used += $len{$op};
|
||||||
if ($end > $size) { $size = $end; }
|
if ($end > $size) { $size = $end; }
|
||||||
|
|
||||||
next OPCODE;
|
next OPCODE;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
# Position base so code finishes at the required point
|
# Position base so code finishes at the required point
|
||||||
$base = $codeend - (($size + 0xff) & ~0xff);
|
$base = $codeend - (($size + 0xff) & ~0xff);
|
||||||
|
|
||||||
print "Size = $size, used = $used, slack = ", $size-$used, "\n";
|
print "Size = $size, used = $used, slack = ", $size-$used, "\n";
|
||||||
|
|
||||||
# Output sorted list of calculated positions
|
# Output sorted list of calculated positions
|
||||||
foreach (sort { $a <=> $b } @todo) {
|
foreach (sort { $a <=> $b } @todo) {
|
||||||
printf FILE "op_%02x: equ &%04x ; +$len{$_}\n", $_, $base+$off{$_};
|
printf FILE "op_%02x: equ &%04x ; +$len{$_}\n", $_, $base+$off{$_};
|
||||||
}
|
}
|
||||||
|
|
||||||
close FILE;
|
close FILE;
|
||||||
|
|
7088
opimpl.inc
7088
opimpl.inc
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user