Cleanup
This commit is contained in:
J.B. Langston
@@ -40,23 +40,26 @@ if len(mon1) != len(mon2):
|
|||||||
print("input files are not the same length")
|
print("input files are not the same length")
|
||||||
sys.exit()
|
sys.exit()
|
||||||
|
|
||||||
if len(mon1) > 38911:
|
# get end of first program from header
|
||||||
print("input files too large")
|
end1 = struct.unpack('H', mon1[0:2])[0] + len(mon1) - 2
|
||||||
sys.exit()
|
|
||||||
|
|
||||||
origin = struct.unpack('H', mon1[0:2])[0]
|
# strip origin from both programs
|
||||||
mon1 = mon1[2:]
|
mon1 = mon1[2:]
|
||||||
mon2 = mon2[2:]
|
mon2 = mon2[2:]
|
||||||
|
|
||||||
with open(sys.argv[4], 'wb') as out:
|
with open(sys.argv[4], 'wb') as out:
|
||||||
|
# prepend relocator stub
|
||||||
out.write(stub)
|
out.write(stub)
|
||||||
|
# separate from supermon code with $36 twice
|
||||||
out.write(b'\x36\x36')
|
out.write(b'\x36\x36')
|
||||||
i = 0
|
i = 0
|
||||||
while i < len(mon1):
|
while i < len(mon1):
|
||||||
if len(mon1) > i+1 and mon1[i+1] != mon2[i+1]:
|
if len(mon1) > i+1 and mon1[i+1] != mon2[i+1]:
|
||||||
addr = struct.unpack('H', mon1[i:i+2])[0]
|
addr = struct.unpack('H', mon1[i:i+2])[0]
|
||||||
offset = struct.pack('h', addr - origin - len(mon1))
|
# calculate offset to address
|
||||||
|
offset = struct.pack('h', addr - end1)
|
||||||
out.write(offset)
|
out.write(offset)
|
||||||
|
# mark address to be adjusted with $36
|
||||||
out.write(b'\x36')
|
out.write(b'\x36')
|
||||||
i += 2
|
i += 2
|
||||||
else:
|
else:
|
||||||
|
|||||||
+3
-21
@@ -1,22 +1,5 @@
|
|||||||
|
|
||||||
; Relocatable code stub for Supermon 64 by Jim Butterfield
|
; Relocatable code stub for Supermon 64 by Jim Butterfield
|
||||||
|
|
||||||
; Jim Butterfield described the post-processing of Supermon 64 binaries
|
|
||||||
; in a posting to comp.sys.cbm on Dec 20, 2003:
|
|
||||||
|
|
||||||
; I should note that, since Supermon+64 is relocatable code, the source
|
|
||||||
; does not assemble into the final binary file. It may seem crude, but
|
|
||||||
; I follow this procedure: (1) The source is carefully structured so
|
|
||||||
; that there are no "dispersed addresses" such as might be created with
|
|
||||||
; something like LDA #>VECTOR .. LDY #<VECTOR - every relocatable
|
|
||||||
; address is two adjacent bytes; (2) I assemble the source TWICE, to
|
|
||||||
; two different page addresses; the only difference in the binaries will
|
|
||||||
; be the high-order bytes of the relocatable addresses; (3) a small
|
|
||||||
; post-processing program blends the two binaries into a relocatable
|
|
||||||
; package, adding a Basic driver to complete the bundle.
|
|
||||||
|
|
||||||
; Source: https://groups.google.com/forum/#!searchin/comp.sys.cbm/supermon$2064%7Csort:relevance/comp.sys.cbm/5owItyf5qjk/50_UQlwVnPcJ
|
|
||||||
|
|
||||||
; This code was disassembled from the original Supermon+64 V1.2 binary.
|
; This code was disassembled from the original Supermon+64 V1.2 binary.
|
||||||
|
|
||||||
; The relocation stub starts at the Start of Variables pointer (VARTAB) and
|
; The relocation stub starts at the Start of Variables pointer (VARTAB) and
|
||||||
@@ -29,9 +12,8 @@
|
|||||||
; adding the top of memory to them will yield the absolute address of the
|
; adding the top of memory to them will yield the absolute address of the
|
||||||
; jump target in the relocated code.
|
; jump target in the relocated code.
|
||||||
|
|
||||||
; The next step will be to build a Python script that will take Supermon64
|
; build.py will build a relocatable Supermon64 binary from this stub plus
|
||||||
; binaries assembled to two different addresses and output relocatable code
|
; standard Supermon64 binaries assembled to two different pages.
|
||||||
; with the relative addresses and $36 address markers.
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; variables
|
; variables
|
||||||
@@ -118,4 +100,4 @@ DONE LDA TARGET ; fix pointer to string storage
|
|||||||
STA FRETOP
|
STA FRETOP
|
||||||
LDA TARGET+1
|
LDA TARGET+1
|
||||||
STA FRETOP+1
|
STA FRETOP+1
|
||||||
JMP (TARGET) ; jump to the beginning of the relocated code
|
JMP (TARGET) ; jump to the beginning of the relocated code
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
@@ -1,285 +0,0 @@
|
|||||||
S U P E R M O N + 64
|
|
||||||
|
|
||||||
In the following discussion, keyboard
|
|
||||||
input in designated by brackets.
|
|
||||||
|
|
||||||
<this is what you type>
|
|
||||||
|
|
||||||
|
|
||||||
SUPERMON+ is a new version of
|
|
||||||
'SUPERMON' the reason for the new
|
|
||||||
version is to provide identical
|
|
||||||
commands to those of the built-in
|
|
||||||
monitor of the commodore 128.
|
|
||||||
|
|
||||||
|
|
||||||
The most visible changes from earlier
|
|
||||||
versions of SUPERMON are:
|
|
||||||
|
|
||||||
--decimal or binary input allowed;
|
|
||||||
--disk status and commands (@);
|
|
||||||
--looser (easier) syntax.
|
|
||||||
|
|
||||||
|
|
||||||
NUMBER CONVERSION
|
|
||||||
|
|
||||||
<$2000>
|
|
||||||
$2000
|
|
||||||
+8192
|
|
||||||
&20000
|
|
||||||
%10000000000000
|
|
||||||
|
|
||||||
In the above example the user
|
|
||||||
has asked for the numeric
|
|
||||||
equivalents to hexadecimal 2000.
|
|
||||||
The reply shows the value in hex
|
|
||||||
($), in decimal (+), in octal (&)
|
|
||||||
and in binary (%).
|
|
||||||
|
|
||||||
The user could ask for a number
|
|
||||||
to be converted from any of these
|
|
||||||
bases by giving the appropriate
|
|
||||||
prefix.
|
|
||||||
|
|
||||||
|
|
||||||
IMPORTANT NOTE --
|
|
||||||
At any time in the following text,
|
|
||||||
you may enter any number in any
|
|
||||||
base and conversion will be done
|
|
||||||
for you.
|
|
||||||
|
|
||||||
Example:
|
|
||||||
|
|
||||||
<m +4096>
|
|
||||||
Will cause a memory display from
|
|
||||||
decimal address 4096. In the
|
|
||||||
display, the hex address ($1000)
|
|
||||||
will be shown. Similarly,
|
|
||||||
|
|
||||||
<+2048 lda#%10000000>
|
|
||||||
Will be converted to assemble:
|
|
||||||
"a $0400 lda #$80"
|
|
||||||
|
|
||||||
If you don't give a prefix, the
|
|
||||||
monitor will assume hexadecimal.
|
|
||||||
|
|
||||||
|
|
||||||
REGISTER DISPLAY
|
|
||||||
|
|
||||||
<r>
|
|
||||||
|
|
||||||
pc sr ac xr yr sp
|
|
||||||
; 0000 01 02 03 04 05
|
|
||||||
|
|
||||||
Displays the register values
|
|
||||||
saved when SUPERMON+ was entered.
|
|
||||||
Values may be changed by typing
|
|
||||||
over the display followed by a
|
|
||||||
return character.
|
|
||||||
|
|
||||||
pc - program counter
|
|
||||||
sr - status register
|
|
||||||
ac, xr, yr - a, x, and y
|
|
||||||
registers
|
|
||||||
sp - stack pointer
|
|
||||||
|
|
||||||
|
|
||||||
<m 200 209>
|
|
||||||
|
|
||||||
>0200 4d 20 32 30 30 20 32 30: m 200 20
|
|
||||||
>0208 39 00 00 04 00 04 00 04: 9.......
|
|
||||||
|
|
||||||
Display memory from 0200 hex to
|
|
||||||
0209 hex. Display is in lines of
|
|
||||||
8, so addresses $200 to $20f are
|
|
||||||
shown. If only one address is
|
|
||||||
used then 12 lines (96 locations)
|
|
||||||
will be shown. If no address is
|
|
||||||
given display will go from the
|
|
||||||
last address. Equivalent ASCII
|
|
||||||
characters are shown in reverse
|
|
||||||
at the right. Values are changed
|
|
||||||
by typing over the display
|
|
||||||
followed by a return character.
|
|
||||||
|
|
||||||
|
|
||||||
EXIT TO BASIC
|
|
||||||
|
|
||||||
<x>
|
|
||||||
Return to BASIC READY mode. When
|
|
||||||
you wish to return to SUPERMON+,
|
|
||||||
command "SYS 8".
|
|
||||||
|
|
||||||
|
|
||||||
SIMPLE ASSEMBLER
|
|
||||||
|
|
||||||
<a 2000 lda #+18>
|
|
||||||
|
|
||||||
(changes to:)
|
|
||||||
a 2000 a9 12 lda #$12
|
|
||||||
a 2002 ..next instruction
|
|
||||||
|
|
||||||
In the above example the user
|
|
||||||
started assembly at 2000 hex. The
|
|
||||||
first instruction was load a
|
|
||||||
register with immediate 18
|
|
||||||
decimal. In following lines the
|
|
||||||
user need not type the "a" and
|
|
||||||
address. The simple assembler
|
|
||||||
prompts with the next address. To
|
|
||||||
exit the assembler type a return
|
|
||||||
after the the address prompt.
|
|
||||||
|
|
||||||
Previous lines may be changed by
|
|
||||||
typing over the right hand part.
|
|
||||||
|
|
||||||
<d 2000 2004>
|
|
||||||
|
|
||||||
. 2000 a9 12 lda #$12
|
|
||||||
. 2002 9d 00 80 sta $8000,x
|
|
||||||
|
|
||||||
Disassembles instructions from
|
|
||||||
2000 to 2004 hex. If one address
|
|
||||||
is given, 20 bytes will be
|
|
||||||
disassembled. If no address,
|
|
||||||
start from the last used address.
|
|
||||||
|
|
||||||
Code may be reassembled by moving
|
|
||||||
the cursor back and typing over
|
|
||||||
the right hand part.
|
|
||||||
|
|
||||||
|
|
||||||
FILL MEMORY
|
|
||||||
|
|
||||||
<f 1000 1100 ff>
|
|
||||||
fills the memory from 1000 hex to
|
|
||||||
1100 hex with the byte ff hex.
|
|
||||||
|
|
||||||
GO (RUN)
|
|
||||||
|
|
||||||
<g 1000>
|
|
||||||
Go to address 1000 hex and begin
|
|
||||||
running code. If no address is
|
|
||||||
given, the address from the <pc>
|
|
||||||
register is used.
|
|
||||||
|
|
||||||
JUMP (SUBROUTINE)
|
|
||||||
|
|
||||||
<j 1000>
|
|
||||||
Call address 1000 hex and begin
|
|
||||||
running code. Return to the
|
|
||||||
monitor.
|
|
||||||
|
|
||||||
HUNT MEMORY
|
|
||||||
|
|
||||||
<h c000 d000 'read>
|
|
||||||
Hunt thru memory from c000 hex to
|
|
||||||
d000 hex for the ascii string
|
|
||||||
"read" and print the address
|
|
||||||
where it is found. A maximum of
|
|
||||||
32 characters may be used.
|
|
||||||
<h c000 d000 20 d2 ff>
|
|
||||||
Hunt memory from c000 hex to d000
|
|
||||||
hex for the sequence of bytes
|
|
||||||
20 d2 ff and print the address. A
|
|
||||||
maximum of 32 bytes may be used.
|
|
||||||
|
|
||||||
FILE HANDLING
|
|
||||||
|
|
||||||
LOAD
|
|
||||||
|
|
||||||
<l>
|
|
||||||
Load any program from cassette #1.
|
|
||||||
|
|
||||||
<l "ram test">
|
|
||||||
Load from cassette #1 the program
|
|
||||||
named "ram test".
|
|
||||||
|
|
||||||
<l "ram test",08>
|
|
||||||
Load from disk (device 8) the
|
|
||||||
program named "ram test". This
|
|
||||||
command leaves basic pointers
|
|
||||||
unchanged.
|
|
||||||
|
|
||||||
SAVE
|
|
||||||
|
|
||||||
<s "program name",01,0800,0c80>
|
|
||||||
Save to cassette #1 memory from
|
|
||||||
0800 hex up to but not including
|
|
||||||
0c80 hex and name it
|
|
||||||
"program name".
|
|
||||||
|
|
||||||
<s "0:program name",08,1200,1f50>
|
|
||||||
Save to disk drive #0 memory from
|
|
||||||
1200 hex up to but not including
|
|
||||||
1f50 hex and name it
|
|
||||||
"program name".
|
|
||||||
|
|
||||||
TRANSFER MEMORY
|
|
||||||
|
|
||||||
<t 1000 1100 5000>
|
|
||||||
Transfer memory in the range 1000
|
|
||||||
hex to 1100 hex and start storing
|
|
||||||
it at address 5000 hex.
|
|
||||||
|
|
||||||
COMPARE MEMORY
|
|
||||||
|
|
||||||
<c 1000 1100 5000>
|
|
||||||
Compare memory in the range 1000
|
|
||||||
hex to 1100 hex with memory
|
|
||||||
starting at address 5000 hex.
|
|
||||||
|
|
||||||
DISK OPERATIONS
|
|
||||||
|
|
||||||
CHECK DISK
|
|
||||||
|
|
||||||
<@>
|
|
||||||
Get disk status message
|
|
||||||
|
|
||||||
<@9>
|
|
||||||
Get disk unit 9 status message
|
|
||||||
|
|
||||||
<@,$0>
|
|
||||||
Get drive 0 directory
|
|
||||||
|
|
||||||
<@,s0:temp>
|
|
||||||
Scratch file 'temp' from disk
|
|
||||||
|
|
||||||
|
|
||||||
OUTPUT TO PRINTER
|
|
||||||
Call SUPERMON+ from basic with:
|
|
||||||
<open 4,4:cmd 4:sys 8>
|
|
||||||
All commands will go the printer.
|
|
||||||
When complete, return to basic
|
|
||||||
with "x" and command:
|
|
||||||
<print#4:close 4>
|
|
||||||
|
|
||||||
|
|
||||||
SUMMARY
|
|
||||||
|
|
||||||
$ , + , & , % number conversion
|
|
||||||
g go (run)
|
|
||||||
j jump (subroutine)
|
|
||||||
l load from tape or disk
|
|
||||||
m memory display
|
|
||||||
r register display
|
|
||||||
s save to tape or disk
|
|
||||||
x exit to basic
|
|
||||||
a simple assembler
|
|
||||||
d disassembler
|
|
||||||
f fill memory
|
|
||||||
h hunt memory
|
|
||||||
t transfer memory
|
|
||||||
c compare memory
|
|
||||||
@ disk status/command
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Supermon will load itself into the top
|
|
||||||
of memory...wherever that happens to
|
|
||||||
be on your machine. Be sure to note
|
|
||||||
the SYS command which links SUPERMON
|
|
||||||
to the Commodore. It may be used to
|
|
||||||
reconnect the monitor if it is
|
|
||||||
accidentally disconnected by use of
|
|
||||||
the run-stop/restore keys.
|
|
||||||
File diff suppressed because one or more lines are too long
-1104
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user