URL
https://opencores.org/ocsvn/i650/i650/trunk
Subversion Repositories i650
Compare Revisions
- This comparison shows the changes necessary to convert path
/i650
- from Rev 28 to Rev 29
- ↔ Reverse comparison
Rev 28 → Rev 29
/trunk/utils/ibm650_soap2/ibm650_soap2.xcodeproj/xcuserdata/rabeles.xcuserdatad/xcschemes/ibm650_soap2.xcscheme
0,0 → 1,94
<?xml version="1.0" encoding="UTF-8"?> |
<Scheme |
LastUpgradeVersion = "0620" |
version = "1.3"> |
<BuildAction |
parallelizeBuildables = "YES" |
buildImplicitDependencies = "YES"> |
<BuildActionEntries> |
<BuildActionEntry |
buildForTesting = "YES" |
buildForRunning = "YES" |
buildForProfiling = "YES" |
buildForArchiving = "YES" |
buildForAnalyzing = "YES"> |
<BuildableReference |
BuildableIdentifier = "primary" |
BlueprintIdentifier = "2BD6129C1AD83AB100F3FDF6" |
BuildableName = "ibm650_soap2" |
BlueprintName = "ibm650_soap2" |
ReferencedContainer = "container:ibm650_soap2.xcodeproj"> |
</BuildableReference> |
</BuildActionEntry> |
</BuildActionEntries> |
</BuildAction> |
<TestAction |
selectedDebuggerIdentifier = "Xcode.DebuggerFoundation.Debugger.LLDB" |
selectedLauncherIdentifier = "Xcode.DebuggerFoundation.Launcher.LLDB" |
shouldUseLaunchSchemeArgsEnv = "YES" |
buildConfiguration = "Debug"> |
<Testables> |
</Testables> |
<MacroExpansion> |
<BuildableReference |
BuildableIdentifier = "primary" |
BlueprintIdentifier = "2BD6129C1AD83AB100F3FDF6" |
BuildableName = "ibm650_soap2" |
BlueprintName = "ibm650_soap2" |
ReferencedContainer = "container:ibm650_soap2.xcodeproj"> |
</BuildableReference> |
</MacroExpansion> |
</TestAction> |
<LaunchAction |
selectedDebuggerIdentifier = "Xcode.DebuggerFoundation.Debugger.LLDB" |
selectedLauncherIdentifier = "Xcode.DebuggerFoundation.Launcher.LLDB" |
launchStyle = "0" |
useCustomWorkingDirectory = "NO" |
buildConfiguration = "Debug" |
ignoresPersistentStateOnLaunch = "NO" |
debugDocumentVersioning = "YES" |
allowLocationSimulation = "YES"> |
<BuildableProductRunnable |
runnableDebuggingMode = "0"> |
<BuildableReference |
BuildableIdentifier = "primary" |
BlueprintIdentifier = "2BD6129C1AD83AB100F3FDF6" |
BuildableName = "ibm650_soap2" |
BlueprintName = "ibm650_soap2" |
ReferencedContainer = "container:ibm650_soap2.xcodeproj"> |
</BuildableReference> |
</BuildableProductRunnable> |
<CommandLineArguments> |
<CommandLineArgument |
argument = "-cepk soap2.txt" |
isEnabled = "YES"> |
</CommandLineArgument> |
</CommandLineArguments> |
<AdditionalOptions> |
</AdditionalOptions> |
</LaunchAction> |
<ProfileAction |
shouldUseLaunchSchemeArgsEnv = "YES" |
savedToolIdentifier = "" |
useCustomWorkingDirectory = "NO" |
buildConfiguration = "Release" |
debugDocumentVersioning = "YES"> |
<BuildableProductRunnable |
runnableDebuggingMode = "0"> |
<BuildableReference |
BuildableIdentifier = "primary" |
BlueprintIdentifier = "2BD6129C1AD83AB100F3FDF6" |
BuildableName = "ibm650_soap2" |
BlueprintName = "ibm650_soap2" |
ReferencedContainer = "container:ibm650_soap2.xcodeproj"> |
</BuildableReference> |
</BuildableProductRunnable> |
</ProfileAction> |
<AnalyzeAction |
buildConfiguration = "Debug"> |
</AnalyzeAction> |
<ArchiveAction |
buildConfiguration = "Release" |
revealArchiveInOrganizer = "YES"> |
</ArchiveAction> |
</Scheme> |
/trunk/utils/ibm650_soap2/ibm650_soap2.xcodeproj/project.pbxproj
0,0 → 1,258
// !$*UTF8*$! |
{ |
archiveVersion = 1; |
classes = { |
}; |
objectVersion = 46; |
objects = { |
|
/* Begin PBXBuildFile section */ |
2B8696361AE1832E0032BB3D /* soap2.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 2B8696351AE1832E0032BB3D /* soap2.cpp */; }; |
2B86963C1AE5F0FF0032BB3D /* ibm_codec.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 2B86963A1AE5F0FF0032BB3D /* ibm_codec.cpp */; }; |
2BD612A11AD83AB100F3FDF6 /* main.cpp in Sources */ = {isa = PBXBuildFile; fileRef = 2BD612A01AD83AB100F3FDF6 /* main.cpp */; }; |
/* End PBXBuildFile section */ |
|
/* Begin PBXCopyFilesBuildPhase section */ |
2BD6129B1AD83AB100F3FDF6 /* CopyFiles */ = { |
isa = PBXCopyFilesBuildPhase; |
buildActionMask = 12; |
dstPath = ""; |
dstSubfolderSpec = 16; |
files = ( |
); |
runOnlyForDeploymentPostprocessing = 0; |
}; |
/* End PBXCopyFilesBuildPhase section */ |
|
/* Begin PBXFileReference section */ |
2B0DFB1F1AF2DF6200690E1F /* recreating_soap2.rtf */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = text.rtf; path = recreating_soap2.rtf; sourceTree = "<group>"; }; |
2B0DFB201AF4F7C400690E1F /* soap2.7wd */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = text; path = soap2.7wd; sourceTree = "<group>"; }; |
2B0DFB211AF4F80400690E1F /* soap2.txt */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = text; path = soap2.txt; sourceTree = "<group>"; }; |
2B8696341AE17C740032BB3D /* soap2.h */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.h; path = soap2.h; sourceTree = "<group>"; }; |
2B8696351AE1832E0032BB3D /* soap2.cpp */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.cpp.cpp; path = soap2.cpp; sourceTree = "<group>"; }; |
2B86963A1AE5F0FF0032BB3D /* ibm_codec.cpp */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.cpp.cpp; path = ibm_codec.cpp; sourceTree = "<group>"; }; |
2B86963B1AE5F0FF0032BB3D /* ibm_codec.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = ibm_codec.h; sourceTree = "<group>"; }; |
2BD6129D1AD83AB100F3FDF6 /* ibm650_soap2 */ = {isa = PBXFileReference; explicitFileType = "compiled.mach-o.executable"; includeInIndex = 0; path = ibm650_soap2; sourceTree = BUILT_PRODUCTS_DIR; }; |
2BD612A01AD83AB100F3FDF6 /* main.cpp */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.cpp.cpp; path = main.cpp; sourceTree = "<group>"; }; |
/* End PBXFileReference section */ |
|
/* Begin PBXFrameworksBuildPhase section */ |
2BD6129A1AD83AB100F3FDF6 /* Frameworks */ = { |
isa = PBXFrameworksBuildPhase; |
buildActionMask = 2147483647; |
files = ( |
); |
runOnlyForDeploymentPostprocessing = 0; |
}; |
/* End PBXFrameworksBuildPhase section */ |
|
/* Begin PBXGroup section */ |
2BD612941AD83AB100F3FDF6 = { |
isa = PBXGroup; |
children = ( |
2BD6129F1AD83AB100F3FDF6 /* ibm650_soap2 */, |
2BD6129E1AD83AB100F3FDF6 /* Products */, |
); |
sourceTree = "<group>"; |
}; |
2BD6129E1AD83AB100F3FDF6 /* Products */ = { |
isa = PBXGroup; |
children = ( |
2BD6129D1AD83AB100F3FDF6 /* ibm650_soap2 */, |
); |
name = Products; |
sourceTree = "<group>"; |
}; |
2BD6129F1AD83AB100F3FDF6 /* ibm650_soap2 */ = { |
isa = PBXGroup; |
children = ( |
2BD612A01AD83AB100F3FDF6 /* main.cpp */, |
2B8696341AE17C740032BB3D /* soap2.h */, |
2B8696351AE1832E0032BB3D /* soap2.cpp */, |
2B86963A1AE5F0FF0032BB3D /* ibm_codec.cpp */, |
2B86963B1AE5F0FF0032BB3D /* ibm_codec.h */, |
2B0DFB1F1AF2DF6200690E1F /* recreating_soap2.rtf */, |
2B0DFB201AF4F7C400690E1F /* soap2.7wd */, |
2B0DFB211AF4F80400690E1F /* soap2.txt */, |
); |
path = ibm650_soap2; |
sourceTree = "<group>"; |
}; |
/* End PBXGroup section */ |
|
/* Begin PBXNativeTarget section */ |
2BD6129C1AD83AB100F3FDF6 /* ibm650_soap2 */ = { |
isa = PBXNativeTarget; |
buildConfigurationList = 2BD612A41AD83AB100F3FDF6 /* Build configuration list for PBXNativeTarget "ibm650_soap2" */; |
buildPhases = ( |
2BD612991AD83AB100F3FDF6 /* Sources */, |
2BD6129A1AD83AB100F3FDF6 /* Frameworks */, |
2BD6129B1AD83AB100F3FDF6 /* CopyFiles */, |
); |
buildRules = ( |
); |
dependencies = ( |
); |
name = ibm650_soap2; |
productName = ibm650_soap2; |
productReference = 2BD6129D1AD83AB100F3FDF6 /* ibm650_soap2 */; |
productType = "com.apple.product-type.tool"; |
}; |
/* End PBXNativeTarget section */ |
|
/* Begin PBXProject section */ |
2BD612951AD83AB100F3FDF6 /* Project object */ = { |
isa = PBXProject; |
attributes = { |
LastUpgradeCheck = 0620; |
ORGANIZATIONNAME = "Robert Abeles"; |
TargetAttributes = { |
2BD6129C1AD83AB100F3FDF6 = { |
CreatedOnToolsVersion = 6.2; |
}; |
}; |
}; |
buildConfigurationList = 2BD612981AD83AB100F3FDF6 /* Build configuration list for PBXProject "ibm650_soap2" */; |
compatibilityVersion = "Xcode 3.2"; |
developmentRegion = English; |
hasScannedForEncodings = 0; |
knownRegions = ( |
en, |
); |
mainGroup = 2BD612941AD83AB100F3FDF6; |
productRefGroup = 2BD6129E1AD83AB100F3FDF6 /* Products */; |
projectDirPath = ""; |
projectRoot = ""; |
targets = ( |
2BD6129C1AD83AB100F3FDF6 /* ibm650_soap2 */, |
); |
}; |
/* End PBXProject section */ |
|
/* Begin PBXSourcesBuildPhase section */ |
2BD612991AD83AB100F3FDF6 /* Sources */ = { |
isa = PBXSourcesBuildPhase; |
buildActionMask = 2147483647; |
files = ( |
2BD612A11AD83AB100F3FDF6 /* main.cpp in Sources */, |
2B8696361AE1832E0032BB3D /* soap2.cpp in Sources */, |
2B86963C1AE5F0FF0032BB3D /* ibm_codec.cpp in Sources */, |
); |
runOnlyForDeploymentPostprocessing = 0; |
}; |
/* End PBXSourcesBuildPhase section */ |
|
/* Begin XCBuildConfiguration section */ |
2BD612A21AD83AB100F3FDF6 /* Debug */ = { |
isa = XCBuildConfiguration; |
buildSettings = { |
ALWAYS_SEARCH_USER_PATHS = NO; |
CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x"; |
CLANG_CXX_LIBRARY = "libc++"; |
CLANG_ENABLE_MODULES = YES; |
CLANG_ENABLE_OBJC_ARC = YES; |
CLANG_WARN_BOOL_CONVERSION = YES; |
CLANG_WARN_CONSTANT_CONVERSION = YES; |
CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES_ERROR; |
CLANG_WARN_EMPTY_BODY = YES; |
CLANG_WARN_ENUM_CONVERSION = YES; |
CLANG_WARN_INT_CONVERSION = YES; |
CLANG_WARN_OBJC_ROOT_CLASS = YES_ERROR; |
CLANG_WARN_UNREACHABLE_CODE = YES; |
CLANG_WARN__DUPLICATE_METHOD_MATCH = YES; |
COPY_PHASE_STRIP = NO; |
ENABLE_STRICT_OBJC_MSGSEND = YES; |
GCC_C_LANGUAGE_STANDARD = gnu99; |
GCC_DYNAMIC_NO_PIC = NO; |
GCC_OPTIMIZATION_LEVEL = 0; |
GCC_PREPROCESSOR_DEFINITIONS = ( |
"DEBUG=1", |
"$(inherited)", |
); |
GCC_SYMBOLS_PRIVATE_EXTERN = NO; |
GCC_WARN_64_TO_32_BIT_CONVERSION = YES; |
GCC_WARN_ABOUT_RETURN_TYPE = YES_ERROR; |
GCC_WARN_UNDECLARED_SELECTOR = YES; |
GCC_WARN_UNINITIALIZED_AUTOS = YES_AGGRESSIVE; |
GCC_WARN_UNUSED_FUNCTION = YES; |
GCC_WARN_UNUSED_VARIABLE = YES; |
MACOSX_DEPLOYMENT_TARGET = 10.10; |
MTL_ENABLE_DEBUG_INFO = YES; |
ONLY_ACTIVE_ARCH = YES; |
SDKROOT = macosx; |
}; |
name = Debug; |
}; |
2BD612A31AD83AB100F3FDF6 /* Release */ = { |
isa = XCBuildConfiguration; |
buildSettings = { |
ALWAYS_SEARCH_USER_PATHS = NO; |
CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x"; |
CLANG_CXX_LIBRARY = "libc++"; |
CLANG_ENABLE_MODULES = YES; |
CLANG_ENABLE_OBJC_ARC = YES; |
CLANG_WARN_BOOL_CONVERSION = YES; |
CLANG_WARN_CONSTANT_CONVERSION = YES; |
CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES_ERROR; |
CLANG_WARN_EMPTY_BODY = YES; |
CLANG_WARN_ENUM_CONVERSION = YES; |
CLANG_WARN_INT_CONVERSION = YES; |
CLANG_WARN_OBJC_ROOT_CLASS = YES_ERROR; |
CLANG_WARN_UNREACHABLE_CODE = YES; |
CLANG_WARN__DUPLICATE_METHOD_MATCH = YES; |
COPY_PHASE_STRIP = NO; |
DEBUG_INFORMATION_FORMAT = "dwarf-with-dsym"; |
ENABLE_NS_ASSERTIONS = NO; |
ENABLE_STRICT_OBJC_MSGSEND = YES; |
GCC_C_LANGUAGE_STANDARD = gnu99; |
GCC_WARN_64_TO_32_BIT_CONVERSION = YES; |
GCC_WARN_ABOUT_RETURN_TYPE = YES_ERROR; |
GCC_WARN_UNDECLARED_SELECTOR = YES; |
GCC_WARN_UNINITIALIZED_AUTOS = YES_AGGRESSIVE; |
GCC_WARN_UNUSED_FUNCTION = YES; |
GCC_WARN_UNUSED_VARIABLE = YES; |
MACOSX_DEPLOYMENT_TARGET = 10.10; |
MTL_ENABLE_DEBUG_INFO = NO; |
SDKROOT = macosx; |
}; |
name = Release; |
}; |
2BD612A51AD83AB100F3FDF6 /* Debug */ = { |
isa = XCBuildConfiguration; |
buildSettings = { |
PRODUCT_NAME = "$(TARGET_NAME)"; |
}; |
name = Debug; |
}; |
2BD612A61AD83AB100F3FDF6 /* Release */ = { |
isa = XCBuildConfiguration; |
buildSettings = { |
PRODUCT_NAME = "$(TARGET_NAME)"; |
}; |
name = Release; |
}; |
/* End XCBuildConfiguration section */ |
|
/* Begin XCConfigurationList section */ |
2BD612981AD83AB100F3FDF6 /* Build configuration list for PBXProject "ibm650_soap2" */ = { |
isa = XCConfigurationList; |
buildConfigurations = ( |
2BD612A21AD83AB100F3FDF6 /* Debug */, |
2BD612A31AD83AB100F3FDF6 /* Release */, |
); |
defaultConfigurationIsVisible = 0; |
defaultConfigurationName = Release; |
}; |
2BD612A41AD83AB100F3FDF6 /* Build configuration list for PBXNativeTarget "ibm650_soap2" */ = { |
isa = XCConfigurationList; |
buildConfigurations = ( |
2BD612A51AD83AB100F3FDF6 /* Debug */, |
2BD612A61AD83AB100F3FDF6 /* Release */, |
); |
defaultConfigurationIsVisible = 0; |
defaultConfigurationName = Release; |
}; |
/* End XCConfigurationList section */ |
}; |
rootObject = 2BD612951AD83AB100F3FDF6 /* Project object */; |
} |
/trunk/utils/ibm650_soap2/ibm650_soap2.xcodeproj/project.xcworkspace/contents.xcworkspacedata
0,0 → 1,7
<?xml version="1.0" encoding="UTF-8"?> |
<Workspace |
version = "1.0"> |
<FileRef |
location = "self:ibm650_soap2.xcodeproj"> |
</FileRef> |
</Workspace> |
/trunk/utils/ibm650_soap2/ibm650_soap2.xcodeproj/project.xcworkspace/xcuserdata/rabeles.xcuserdatad/UserInterfaceState.xcuserstate
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
trunk/utils/ibm650_soap2/ibm650_soap2.xcodeproj/project.xcworkspace/xcuserdata/rabeles.xcuserdatad/UserInterfaceState.xcuserstate
Property changes :
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Index: trunk/utils/ibm650_soap2/ibm650_soap2/recreating_soap2.rtf
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/recreating_soap2.rtf (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/recreating_soap2.rtf (revision 29)
@@ -0,0 +1,25 @@
+{\rtf1\ansi\ansicpg1252\cocoartf1347\cocoasubrtf570
+\cocoascreenfonts1{\fonttbl\f0\fnil\fcharset0 LucidaSans;\f1\fnil\fcharset0 LucidaBright;}
+{\colortbl;\red255\green255\blue255;}
+\margl1440\margr1440\vieww9000\viewh8400\viewkind0
+\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\pardirnatural
+
+\f0\fs28 \cf0 Recreating SOAP 2 Source and Object\
+
+\f1\fs24 \
+From IBM publication 32-7646-1 "SOAP II for the IBM 650 Data Processing System"[1], I hand entered both the source statements and the 7-word object deck. \
+\
+Next, I verified the 7-word object deck by comparing a reading by voice synthesis with the original. I improved the audibility of the reading by first running the object deck through a small utility that added punctuation.\
+\
+I then wrote a program equivalent to SOAP 2 in C++ that included a command line switch to compare the generated object code with a 7-word object deck.\
+\
+Because SOAP 2 allocates operand and instruction locations according to an optimization algorithm, both the generated object code and its assigned location must be correct. This required that the optimization algorithm in my C++ code match the original in SOAP 2 exactly.\
+\
+Running the SOAP 2 source through my C++ code did not produce matching object code. Surely there were typos, but eliminating them did not improve object. The optimization algorithm in my code appeared to be working correctly. \
+\
+The problem turned out to be that some statements in the published listing were presented out of order. This may be the result of the author arranging the statements prior to assembly for optimal placement, and rearranging them for clarity. This reordering occurs in the main processing loop, symbol table lookup, and optimum location lookup and reservation.\
+\
+Another problem resulted from a patch made to the optimization table entries for the MPY and DIV instructions. It appears that the distributed SOAP 2 was assembled with a version of SOAP 2 that reversed the odd/even I optimization constants. The SOAP 2 listing and 7-word deck are corrected in [1].\
+\
+\
+ }
\ No newline at end of file
Index: trunk/utils/ibm650_soap2/ibm650_soap2/soap2.txt
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/soap2.txt (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/soap2.txt (revision 29)
@@ -0,0 +1,1413 @@
+ 1 SOAP 2
+ 1
+ 1 SYMBOLIC OPTIMAL ASSEMBLY PROG
+ 1
+ 1 FOR THE
+ 1
+ 1 IBM 650
+ 1
+ 1 DATA PROCESSING SYSTEM
+ 1
+ 1
+ REGS0000 0399 SYMBOL TAB
+ REGE0400 0599 EQUIV TABL
+ REGA0600 0799 AVAIL TABL
+ REGN0800 0899 NUM OP TAB
+ BLR 1000 1000 ENTRY
+ BLR 1001 1012 PSEUDO ENT
+ BLR 1021 1049 REG TABLE
+ REGC1050 1164 SYM OP TAB
+ BLA 1098 1099
+ BLA 1148 1149
+ BLR 1900 1900 MANUAL PAT
+ SYNREADC 1950
+ BLR 1951 1962 READ AREA
+ REGT1990 1992 TYPE
+ REGP1977 1986 PUNCH AREA
+ BLR 1998 1999
+ EQUXXXX1 1961
+ EQUXXXX2 1962
+ BLR 1563 1570 TYPE2
+ BLA 1565 1565
+ BLA 1569 1569
+ REGB0900 0901 SUB 2
+ REGH0902 0904 TYPE 2
+ REGM0905 0907
+ REGQ0908 0909
+ REGR1200 1207 SUB 5
+ REGU1250 1259 SUB 13
+ REGV0910 0912 EQU SYN
+ REGX0913 0914 TYPE O
+ REGY0915 0916 EQU SYN
+ REGZ0917 0919
+ REGW0920 0922
+ BLR 0923 0968 MULTIPLE R
+ REGI1300 1307 SUB13
+ 1
+ 1 CONTROL PROGRAM
+ 1
+ 1000LDDREADC SUB16 ENTRY
+ 1
+ READCRCD 1999 1998 READ CARD
+ 1998LDD 1951 TRANSFER
+ STDP0001 ALPHABETIC
+ LDD 1952 INPUT
+ STDP0002 TO
+ LDD 1953 OUTPUT
+ STDP0003
+ LDD 1954
+ STDP0004
+ LDD 1955
+ STDP0005
+ LDD 1956
+ STDP0006
+ RALP0009 STEP
+ ALO1IXXX CARD
+ STLP0009 NUMBER
+ RAU 1960 STORE
+ SRT 0002 CONTROL
+ STUP0008 INFO
+ AUPTORG
+ STLP0010 8003 TRANSFER
+ 8003NOP 0000 9999 TO TYPE
+ 1
+ PUNCHPCHP0001 READC PUNCH READ
+ 1
+ SETCCRAUREADC SUB10 SUDO EXIT
+ 1
+ 1
+ 1900LDDREADC SUB14 MANUAL PAT
+ 1
+ 1
+ T0001LDDX SUBR3 TYPE 0
+ 1
+ X0001LDD PROCL 650
+ LDD PROCD COMMAND OR
+ LDDPUNCH PROCI CONSTANTS
+ 1
+ X0002NOP 0000 8003 PSEUDO OP
+ 1
+ T0002RAUREADC SUB10 TYPE 1 COM
+ 1
+ X 00 0000 X0001
+ 1
+ 1 RELOCATE ROUTINE
+ 1
+ HEDT
+ T0003LDDQ SUBR3 PROCESS OP
+ Q0002NOP 0000 ILLOP ILLEGAL OP
+ Q0001RAL 1951 IS L FIXED
+ SLT 0002
+ NZU REL
+ RAU 1957 FIXED L
+ SUP2000I DRUM CORE
+ BMI FC
+ AUP 8001 RES FIXED DRUM
+ FC RAL 1957 SETL FIXED CORE
+ SR RALXXXX1 SETL SET L
+ SETL SLT 0004
+ LDDP0008
+ SDAP0008 PROD
+ REL RAU 1957 DRUM CORE
+ SUP2000I
+ BMI RC
+ AUPDDIFF RELOCATE
+ BMI BL DRUM ADDR
+ AUP2000I RES
+ RES STUXXXX1
+ LDDSR SUB2R RESERVE L
+ RC RAL 1957 RELOCATE
+ ALOCDIFF CORE
+ SLO9060
+ BMI BL
+ ALO 8001 SETL
+ BL RAUPROD SUB12 BLANK L
+ 1
+ REGJ0944 0944 D TYPE 2
+ REGG0941 0941
+ 1
+ PROD LDDPROI SET D EXIT
+ STDEXITX
+ RAU 1952 WHAT IS d
+ LDDH SUBR4
+ H0001RAL 1958 RELOCATE
+ SLO2000I D OR C
+ BMI 1564 1563
+ H0002SRT 0008 C D OR F
+ AUP1500 8003
+ 1563RALCDIFF CDD C
+ 1564RALDDIFF CDD D
+ 1566RAL 1958 J0001 F
+ CDD ALO 1958 J0001
+ H0003NOP 0000 G0003 SYMBOLIC
+ 1
+ REGJ0960 0960 I
+ REGF0955 0955
+ 1
+ PROI LDDPUNCH SET I EXIT
+ STDEXITX
+ RAU 1953 WHAT IS I
+ LDDM SUBR4
+ M0001RAL 1959 RELOCATE
+ SLO2000I D OR C
+ BMI 1568 1567
+ M0002SRT 0008 C D OR F
+ AUP1504 8003
+ 1567RALCDIFF CDI C
+ 1568RALDDIFF CDI D
+ 1570RAL 1959 J0001 F
+ CDI ALO 1959 J0001
+ M0003NOP 0000 F0003 SYMBOLIC
+ 1
+ Q 00 0000 Q0001 CONSTANTS
+ 9060 00 0000 9060
+ H 00 0000 H0001
+ 1500 00 0000 1500
+ M 00 0000 M0001
+ 1504 00 0000 1504
+ XXXX1 01 0000 XXXX1 ERASEABLE
+ 1
+ 1 BOP ROUTINE
+ 1
+ 1001LDD SUB16 INITIALIZE
+ RAUREADC SUB10 PUNCH
+ 1
+ 1 BLR ROUTINE
+ 1
+ 1002RAL 1959 BLR RESERVE
+ BLR SLO 1958 FWA TO
+ AUP 8001 LWA
+ LDDSETCC SUB2R
+ 1
+ 1 RBR ROUTINE
+ 1
+ 1012RAUDDIFF
+ ALO 1959 BLR
+ 1
+ 1 BLA ROUTINE
+ 1
+ 1003LDDH8XXX SET DRUM
+ STDDRUMT TAG TO 8
+ RAL 1959 UNRESERVE
+ SLO 1958 FWA
+ AUP 8001 TO
+ LDDSETCC SUB2U LWA
+ 1
+ 1 REG ROUTINE
+ 1
+ HEDR
+ 1004RAL 1952 IS
+ SRT 0008 REGION
+ SLO90XXX CHARACTER
+ BMI 1002 ALPHBETIC
+ ALO29XXX
+ BMI 1002
+ SLT 0004 STORE
+ ALOST REGION
+ AUP 1958 ORIGIN
+ AUPH9XXX 8002
+ 8002STU 9999 1002
+ 1
+ ST STU 1021 1002 CONSTANTS
+ HED
+ 1
+ 1 EQU REQ AND SYN ROUTINE
+ 1
+ HEDZ
+ 1005LDDH8XXX BOTH EQU
+ 1006LDDH9XXX BOTH SYN
+ BOTH STDTAG
+ RAU 1953 WHAT IS I
+ LDDZ SUBR4
+ Z0001RAL 1959 Y0001 ABSOLUTE
+ Z0002LDDY SUBR9 REGIONAL
+ Y0001STLE TD
+ Y0002RALP0010 BP REG ERROR
+ Z0003LDDW SUBR6 SYMBOLIC
+ W0001RALEQUIV Y0001 S DEFINED
+ W0002RALP0010 BP S UNDEFIND
+ W0003RALP0010 BP S TAB FULL
+ 1
+ TD RAU 1952 HEAD D
+ LDD SUB15 AND EQUATE
+ LDDV SUBR6 TO E
+ V0003RALP0010 BP S TAB FULL
+ V0001ALOE SD
+ V0002ALOE SD
+ SD LDDTT SUBR7
+ 1
+ TT LDDTAG TEST TAG
+ BDOSETCC
+ RAUE RESERVE E
+ LDDSETCC SUB2R
+ 1
+ 1011LDDH8XXX REQ
+ STDTAG ROUTINE
+ RAL 1959 IS I
+ SLO2000I DRUM O COR
+ BMID
+ ALOCDIFF CD
+ D ALODDIFF CD
+ CD ALO2000I Y0001
+ 1
+ Z 00 0000 Z0001 CONSTANTS
+ Y 00 0089 Y0001
+ W 00 0000 W0001
+ V 00 0000 V0001
+ 88 00 8800 0000
+ 1
+ BP ALO88 BY PASS
+ STLP0010 PUNCH
+ 1
+ TAG 01 0000 TAG ERASEABLE
+ E 01 0000 E
+ HED
+ 1
+ 1 ALF ROUTINE
+ 1
+ 1007LDD PROCL PROCES LOC
+ LDD 1952
+ STDP0007
+ RAL 1953 REPLACE
+ NZEPUNCH BLANK I
+ LDDSOAP2 BY
+ STDP0003 PUNCH SOAP2
+ SOAP2ALFSOAP2 SOAP2 CONSTANT
+ 1
+ 1 PAT ROUTINE
+ 1
+ 1008RAU SUB10
+ LDDREADC SUB14
+ 1
+ 1 HED ROUTINE
+ 1
+ 1009RAL 1952 STORE
+ SRT 0008 HEADING
+ STL0000H SETCC CHARACTER
+ 1
+ 1 REL ROUTINE
+ 1
+ HEDM
+ 1010RAL 1952 SET
+ NZE SDD DRUM
+ RAL 1958 SDD AND
+ SDD STLDDIFF CORE
+ RAL 1953 DELTAS
+ NZE SCD
+ RAL 1959 SCD
+ SCD STLCDIFF SETCC
+ 1
+ DDIFF 01 0000 DDIFF ERASEABLE
+ CDIFF 01 0000 CDIFF
+ HED
+ 1
+ 1 LOAD AVAILABILITY TABLE
+ 1
+ HEDL
+ 1999RAL 1951 CALC
+ SRT 0004 LOC
+ SLT 0004 W2
+ ALO 8002
+ ALO 8002
+ ALOC1
+ AUPC2 8003
+ 8003LDD 9995 8002 LOAD
+ 8002STD 9994 TUP TABLE
+ TUP SUPTW
+ NZU READC
+ AUPTWP2
+ ALO1DXXX 8003
+ 1
+ C1 STDA0001 TUP CONSTANTS
+ C2 LDD 1952 8002
+ TW LDD 1958 8002
+ TWP2 LDD 1960 8002
+ HED
+ 1
+ 1 OPTIMIZING TABLE
+ 1
+ N0001 00 0404 0998 NOP
+ N0002 00 0404 0998 HLT
+ N0003 33 2322 0999 UFA
+ N0004 00 0505 0998 RTC
+ N0005 00 0505 0998 RTN
+ N0006 00 0505 0998 RTA
+ N0007 00 0505 0998 WTN
+ N0008 00 0505 0998 WTA
+ N0009 33 1212 0999 LIB
+ N0010 33 0202 0999 LDI
+ N0011 33 0504 0999 AUP
+ N0012 33 0504 0999 SUP
+ N0013 99 9999 9999 NOT USED
+ N0014 99 9999 9999 NOT USED
+ N0015 33 1110 0999 DIV
+ N0016 33 0504 0999 ALO
+ N0017 33 0504 0999 SLO
+ N0018 33 0504 0999 AML
+ N0019 33 0504 0999 SML
+ N0020 33 2120 0999 MPY
+ N0021 54 0303 0999 STL
+ N0022 45 0303 0999 STU
+ N0023 34 0303 0999 SDA
+ N0024 34 0303 0999 SIA
+ N0025 33 0303 0999 STD
+ N0026 44 0505 0998 NTS
+ N0027 00 0505 0998 BIN
+ N0028 00 0505 0998 SET
+ N0029 33 1212 0999 SIB
+ N0030 33 0202 0999 STI
+ N0031 00 0000 0988 SRT
+ N0032 00 0000 0888 SRD
+ N0033 33 2726 0999 FAD
+ N0034 33 2726 0999 FSB
+ N0035 33 0000 0999 FDV
+ N0036 00 0000 0988 SLT
+ N0037 00 0000 0988 SCT
+ N0038 33 2726 0999 FAM
+ N0039 33 2726 0999 FSM
+ N0040 33 0000 0999 FMP
+ N0041 33 0404 0998 NZA
+ N0042 33 0404 0998 BMA
+ N0043 33 0404 0998 NZB
+ N0044 33 0404 0998 BMB
+ N0045 34 0405 0998 NZU
+ N0046 43 0504 0998 NZE
+ N0047 33 0404 0998 BMI
+ N0048 33 0505 0998 BOV
+ N0049 33 0404 0998 NZC
+ N0050 33 0404 0998 BMC
+ N0051 00 0000 0898 AXA
+ N0052 00 0000 0898 SXA
+ N0053 00 0000 0898 AXB
+ N0054 00 0000 0898 SXB
+ N0055 44 0505 0998 NEF
+ N0056 00 0505 0998 RWD
+ N0057 00 0505 0998 WTM
+ N0058 00 0505 0998 BST
+ N0059 00 0000 0898 AXC
+ N0060 00 0000 0898 SXC
+ N0061 33 0504 0999 RAU
+ N0062 33 0504 0999 RSU
+ N0063 99 9999 9999 NOT USED
+ N0064 99 9999 9999 NOT USED
+ N0065 33 1110 0999 DVR
+ N0066 33 0504 0999 RAL
+ N0067 33 0504 0999 RSL
+ N0068 33 0504 0999 RAM
+ N0069 33 0504 0999 RSM
+ N0070 33 0303 0999 LDD
+ N0071 00 0000 0999 RD1
+ N0072 00 0000 0999 WR1
+ N0073 00 0000 0999 RC1
+ N0074 00 0000 0999 RD2
+ N0075 00 0000 0999 WR2
+ N0076 00 0000 0999 RC2
+ N0077 00 0000 0999 RD3
+ N0078 00 0000 0999 WR3
+ N0079 00 0000 0999 RC3
+ N0080 00 0505 0999 RPY
+ N0081 00 0000 0898 RAA
+ N0082 00 0000 0898 RSA
+ N0083 00 0000 0898 RAB
+ N0084 00 0000 0898 RSB
+ N0085 33 0506 0999 TLU
+ N0086 00 0606 0998 SDA
+ N0087 00 0606 0998 RDS
+ N0088 00 0606 0998 WDS
+ N0089 00 0000 0898 RAC
+ N0090 00 0000 0898 RSC
+ N0091 44 0505 0998 BD0
+ N0092 33 0505 0998 BD1
+ N0093 33 0505 0998 BD2
+ N0094 33 0505 0998 BD3
+ N0095 33 0505 0998 BD4
+ N0096 33 0505 0998 BD5
+ N0097 33 0505 0998 BD6
+ N0098 33 0505 0998 BD7
+ N0099 33 0505 0998 BD8
+ N0100 44 0505 0998 BD9
+ 1
+ 1 SYMBOLIC OP TABLE
+ 1
+ C0001 61 7366 1007 ALF
+ C0002 61 7376 0015 ALO
+ C0003 61 7473 0017 AML
+ C0004 61 8477 0010 AUP
+ C0005 61 8761 0050 AXA
+ C0006 61 8762 0052 AXB
+ C0007 61 8763 0058 AXC
+ C0008 62 6476 0090 BD0
+ C0009 62 6491 0091 BD1
+ C0010 62 6492 0092 BD2
+ C0011 62 6493 0093 BD3
+ C0012 62 6494 0094 BD4
+ C0013 62 6495 0095 BD5
+ C0014 62 6496 0096 BD6
+ C0015 62 6497 0097 BD7
+ C0016 62 6498 0098 BD8
+ C0017 62 6499 0099 BD9
+ C0018 62 6975 0026 BIN
+ C0019 62 7361 1003 BLA
+ C0020 62 7379 1002 BLR
+ C0021 62 7461 0041 BMA
+ C0022 62 7462 0043 BMB
+ C0023 62 7463 0049 BMC
+ C0024 62 7469 0046 BMI
+ C0025 62 7677 1001 BOP
+ C0026 62 7685 0047 BOV
+ C0027 62 8283 0057 BST
+ C0028 64 6985 0014 DIV
+ C0029 64 8579 0064 DVR
+ C0030 65 7884 1005 EQU
+ C0031 66 6164 0032 FAD
+ C0032 66 6174 0037 FAM
+ C0033 66 6485 0034 FDV
+ C0034 66 7477 0039 FMP
+ C0035 66 8262 0033 FSB
+ C0036 66 8274 0038 FSM
+ C0037 68 6564 1009 HED
+ C0038 68 7383 0001 HLT
+ C0039 73 6464 0069 LDD
+ C0040 73 6469 0009 LDI
+ C0041 73 6962 0008 LIB
+ C0042 74 7788 0019 MPY
+ C0043 75 6566 0054 NEF
+ C0044 75 7677 0000 NOP
+ C0045 75 8382 0025 NTS
+ C0046 75 8961 0040 NZA
+ C0047 75 8962 0042 NZB
+ C0048 75 8963 0048 NZC
+ C0051 75 8965 0045 NZE
+ C0052 75 8984 0044 NZU
+ C0053 77 6183 1008 PAT
+ C0054 77 6368 0071 PCH
+ C0055 79 6161 0080 RAA
+ C0056 79 6162 0082 RAB
+ C0057 79 6163 0088 RAC
+ C0058 79 6173 0065 RAL
+ C0059 79 6174 0067 RAM
+ C0060 79 6184 0060 RAU
+ C0061 79 6279 1012 RBR
+ C0062 79 6364 0070 RCD
+ C0063 79 6391 0072 RC1
+ C0064 79 6392 0075 RC2
+ C0065 79 6393 0078 RC3
+ C0066 79 6482 0086 RDS
+ C0067 79 6491 0070 RD1
+ C0068 79 6492 0073 RD2
+ C0069 79 6493 0076 RD3
+ C0070 79 6567 1004 REG
+ C0071 79 6573 1010 REL
+ C0072 79 6578 1011 REQ
+ C0073 79 7788 0079 RPY
+ C0074 79 8261 0081 RSA
+ C0075 79 8262 0083 RSB
+ C0076 79 8263 0089 RSC
+ C0077 79 8273 0066 RSL
+ C0078 79 8274 0068 RSM
+ C0079 79 8284 0061 RSU
+ C0080 79 8361 0005 RTA
+ C0081 79 8363 0003 RTC
+ C0082 79 8375 0004 RTN
+ C0083 79 8664 0055 RWD
+ C0084 82 6383 0036 SCT
+ C0085 82 6461 0022 SDA
+ C0086 82 6482 0085 SDS
+ C0087 82 6583 0027 SET
+ C0088 82 6961 0023 SIA
+ C0089 82 6962 0028 SIB
+ C0090 82 7376 0016 SLO
+ C0091 82 7383 0035 SLT
+ C0092 82 7473 0018 SML
+ C0093 82 7964 0031 SRD
+ C0094 82 7983 0030 SRT
+ C0095 82 8364 0024 STD
+ C0096 82 8369 0029 STI
+ C0097 82 8373 0020 STL
+ C0098 82 8384 0021 STU
+ C0101 82 8477 0011 SUP
+ C0102 82 8761 0051 SXA
+ C0103 82 8762 0053 SXB
+ C0104 82 8763 0059 SXC
+ C0105 82 8875 1006 SYN
+ C0106 83 7384 0084 TLU
+ C0107 84 6661 0002 UFA
+ C0108 86 6482 0087 WDS
+ C0109 86 7991 0071 WR1
+ C0110 86 7992 0074 WR2
+ C0111 86 7993 0077 WR3
+ C0112 86 8361 0007 WTA
+ C0113 86 8374 0056 WTM
+ C0114 86 8375 0006 WTN
+ C0115 99 9999 0001 TABLE END
+ 1
+ 1 SUB 1 STORE IN FWA TO LWA
+ 1
+ HED1
+ SUBR1STDEXITX STORE EXIT
+ STUXXXX1 STORE K
+ LDDFWA SET
+ SDAFWA FWA
+ SLT 0004 LWA
+ SDAXXXX2 ADDRESSES
+ RAUFWA
+ ALOXXXX1 8003
+ 8003STL 9999 NEXT STORE K
+ NEXT SUPXXXX2 END OF
+ NZU EXITX LOOP TEST
+ AUP 8001
+ AUP1DXXX 8003 STEP
+ 1
+ FWA STL 9998 NEXT CONSTANTS
+ XXXX2 01 0000 XXXX2 ERASEABLE
+ HED
+ 1
+ 1 SUB 2 RESERVE UNRESERVE
+ 1
+ HED2
+ B0002SLT 0009 XX
+ XX STUUH
+ SLT 0001
+ RAL 8002
+ AUPW
+ SRT 0001
+ AUPUH SPR
+ SPR SRT 0009 SA
+ SA STL 9983 B0001
+ B0001RALN IS N ZERO
+ NZE EXITY
+ SLO1I REDUCE N
+ STLN BY 1
+ RAUSA IS AI
+ SUPA197 IN LAST
+ BMI TP BLOCK OF
+ AUPA201 SU 4
+ 1
+ SUB2RSTDEXITY RESERVE
+ LDDZ RU ENTRY
+ SUB2USTDEXITY UNRESERVE
+ LDD1I RU ENTRY
+ TP RALSPR IS P 9
+ SLOC2
+ NZE ZP
+ ALOC5 STEP P
+ LDDC1
+ SDAB0002
+ STLSPR
+ RAUSA REDUCE AI
+ SUPC6 SU BY 196
+ 1
+ ZP LDDC1 SET P
+ STDB0002 TO ZERO
+ LDDC7
+ STDSPR
+ RAUSA REDUCE AI
+ SUPC8 SU BY 195
+ RU STDW SET W
+ STLN STORE N
+ SLO 8001 CALC AO
+ AUP 8003 AND PO
+ SRT 0003
+ STUX
+ SUP 8001
+ SLT 0001
+ STUP
+ SUP 8001
+ SLT 0002
+ AUP 8003
+ AUPX
+ ALOP
+ SLT 0004
+ ALOC1
+ STLB0002
+ LDDC2
+ SDASPR
+ AUPC3 SU
+ SU STUSA
+ AUPC4 8003
+ 8003RAL 9992 B0002
+ 1
+ C1 SLT 0000 XX CONSTANTS
+ C2 SRT 0009 SA
+ C3 STLA0001 B0001
+ C4 45 0000 0001
+ 1I 00 0000 0001
+ A197 STLA0197 B0001
+ A201 STLA0201 B0001
+ C5 SRT 0010 SA
+ C6 00 0196 0000
+ C7 SRT 0000 SA
+ C8 00 0195 0000
+ Z 00 0000 0000
+ W 01 0000 W ERASEABLE
+ N 01 0000 N
+ B0002 01 0000 B0002
+ SPR 01 0000 SPR
+ SA 01 0000 SA
+ UH 01 0000 UH
+ X 01 0000 X
+ HED
+ 1
+ 1 SUB 3 PROCESS OP CODE
+ 1
+ HED3
+ SUBR3STDEXITX STORE EXIT
+ RAL 1954
+ SRT 0004 IS OP
+ NZE ILLOP BLANK
+ SLT 0006 IS OP
+ NZU NUM NUMERIC
+ SRT 0002
+ STLXXXX1 SEARCH
+ SLO 8001 SYMBOLIC
+ TLUC0001 OP TABLE
+ ALO1 8002
+ 8002RAL 9997 NEXT IS
+ NEXT SLOXXXX1 SYM OP
+ SLT 0006 LEGAL
+ NZUILLOP
+ SLT 0001 TEST FOR
+ NZUPSEU PSEUDO OP
+ SLT 0001 SNO STORE NUM
+ SNO STLP0007 650 OP
+ SRT 0004 GET OPTIM
+ ALO3 8002 CONSTANTS
+ 8002LDD 9996 NEX
+ NEX STDOPTIM EXITX
+ 1
+ NUM SLO4 FORM
+ SLT 0002 NUMERIC
+ SLO 8002 OP
+ SRT 0001 CODE
+ ALO 8001 SNO
+ 1
+ ILLOPRALP0010 ILLEGAL OP
+ ALO5 SET 8
+ STLP0010 FOR BLANK
+ LDD6 NEX OP
+ 1
+ PSEU SLT 0003 PSEUDO
+ ALOEXITX OP
+ ALO1IXXX 8002
+ 1
+ 1 RAL 0000 NEXT CONSTANTS
+ 2 10 0000 0000
+ 3 LDDN0001 NEX
+ 4 90 9000 0000
+ 5 00 0000 0008
+ 6 55 0505 0999
+ HED
+ 1
+ 1 SUB 4 WHAT IS ADDRESS
+ 1
+ HED4
+ SUBR4STDEXITZ STORE EXIT
+ STUXXXX1 STORE ADDR
+ SRT 0008 IS C5
+ NZU EXITZ BLANK
+ STUXXXX2 SAVE C5
+ RAU 8002 ARE LOW 4
+ AUP90XXX CHARACTERS
+ BOVLOOP LOOP NUMERIC
+ LOOP AUPH1
+ BOV SYM
+ SLT 0002
+ NZULOOP
+ RALXXXX2 LOW 4 NUM
+ SLO90XXX IS C5
+ BMI SYM ALPHABETIC
+ ALO29XXX
+ BMISYM
+ RAL1IXXX REGIONAL
+ AUPXXXX1 AEX
+ AEX ALOEXITZ
+ SLO 8002 8001
+ SYM RAUXXXX1 HED SYMBOL
+ LDD SUB15
+ ALO2IXXX STEP EXIT
+ STUHSYMB AEX
+ H1 10 0000 0000
+ HSYMB 01 0000 HSYMB ERASEABLE
+ HED
+ 1
+ 1 SUB 5 TEST ABSOLUTE ADDRESS
+ 1
+ HED5
+ SUBR5STDEXITZ STORE EXIT
+ STLXXXX1 STORE A
+ SLT 0004
+ SLO 8002
+ TLUR0001 TLU
+ ALOGET 8002 RANGE
+ 8002RAU 9972 X TABLE
+ X SLT 0006
+ SRT 0006
+ AUPEXITZ
+ ALOXXXX1
+ SUP 8003 8001
+ GET RAU 0000 X
+ R0001 00 1999 0000 RANGE
+ R0002 00 7999 0003 TABLE
+ R0003 00 8003 0001
+ R0004 00 8004 0003
+ R0005 00 8007 0001
+ R0006 00 8999 0003
+ R0007 00 9059 0002
+ R0008 99 9999 0003
+ HED
+ 1
+ 1 SUB 6 SYMBOL TEST ROUTINE
+ HED6
+ SYNOFF 6 1270
+ SYNLI 6 1614
+ SYNS 6 1601
+ SYNDEF 6 1811
+ SYNSW 6 1610
+ SYNA 6 1395
+ OFF SLOLMAX MAXIMUM
+ NZE MAX
+ ALOLMP1 SLI STEP LI
+ ON SLOLO IS LI EQUA
+ NZE SWSYM TO LO
+ ALOLOP1 SLI STEP LI
+ MAX LDDSWON SET
+ STDSW SWITCH ON
+ RALL1 SLI ZERO LI
+ A NZE UND LI ZERO
+ SLOS IS CONT OF
+ NZESW DEF LI SYMB
+ 1
+ SUBR6STDEXITZ STORE EXIT
+ STUS STORE SYMB
+ LDDSWOF SET SWITCH
+ STDSW OFF
+ MPYSC SCRAMBLE
+ RAL 8002 SYMBOL
+ SLT 0003 GIVING
+ MPYCF LO
+ SRT 0001
+ SLT 0004 SET
+ ALOL1P1 TEST
+ STLLOP1 WORD
+ SLO1DXXX
+ STLLO SLI SAVE LO
+ SLI STLLI 8001 INIT LI
+ 8001RAL 9990 A IS CONT OF
+ SW RALLI OFF IS LI
+ 1
+ UND RALEXITZ UNDEFINED
+ ALO1IXXX STEP
+ STLEXITZ EXIT
+ RALLI
+ SLOL1
+ STLLSYMB ASU
+ 1
+ DEF RALLI DEFINED
+ LDDASU SUBR8 GET
+ ASU AUPS EXITZ EQUIVALENT
+ 1
+ SWSYMHLT 0111 SYMOF S TAB FULL
+ SYMOFLDDSYMON SET SW SYM
+ STDSWSYM SYMON ON
+ SYMONRALEXITZ
+ ALO2IXXX 8002
+ 1
+ SWOF RALLI OFF CONSTANTS
+ SWON RALLI ON
+ SC 10 0100 1001
+ CF 00 0000 0004
+ L1 RAL 0000 A
+ L1P1 RAL 0001 A
+ LMAX RALE0000 A
+ LMP1 RALE0001 A
+ S 01 0000 S ERASEABLE
+ SW 01 0000 SW
+ LO 01 0000 LO
+ LI 01 0000 LI
+ LSYMB 01 0000 LSYMB
+ HED
+ 1
+ 1 SUB 7 STORE SYMBOL AND EQUIV
+ 1
+ HED7
+ SUBR7STDEXITZ STORE EXIT
+ LDDSS
+ SDAXXXX2 8001 STORE
+ 8001STU 9988 A SYMBOL
+ A SUP 8001
+ STLXXXX1 SAVE E
+ SRT 0004
+ DIV2IXXX CALCULATE
+ SLT 0004 LOCATION
+ ALOC1 OF
+ LDDC2 E
+ SDASEL AND
+ LDDC3 STORE
+ SDASER
+ STLOBEE
+ SLO 8001
+ ALOXXXX1 OBEE
+ OBEE LDD 9986 B
+ B NZUSER
+ SLT 0004 SEL
+ SS STU 9987 A CONSTANTS
+ C1 LDDE0001 B
+ C2 SDA 9985 EXITZ
+ C3 SIA 9984 EXITZ
+ OBEE 01 0000 OBEE ERASEABLE
+ SEL 01 0000 SEL
+ SER 01 0000 SER
+ HED
+ 1
+ 1 SUB 8 GIVEN SYM LOC GET EQUIV
+ 1
+ HED8
+ SUBR8STDEXIT STORE EXIT
+ LDD 8003
+ SDALSYMB STORE L
+ RAL 8001
+ DIV2DXXX
+ SLT 0004
+ ALOE1 8002
+ 8002LDD 9975 TR
+ TR NZU LH
+ RAM 8001 LR GET E RH
+ LH RAM 8001 GET E LH
+ SRT 0004 LR
+ LR LDD 8003
+ SIAEQUIV
+ RALLSYMB EXIT
+ 1
+ E1 LDDE0001 TR CONSTANT
+ EXIT 01 0000 EXIT ERASEABLE
+ EQUIV 01 0000 EQUIV
+ HED
+ 1
+ 1 SUB 9 CALCULATE REG ADDRESS
+ HED9
+ SUBR9STDEXITZ STORE EXIT
+ SRT 0008
+ RAL 8003
+ SLT 0004
+ ALOC 8002 IS
+ 8002RAL 9991 NEX REGION
+ NEX BDOILL DEFINED
+ SLT 0001
+ RAL 8002
+ SRT 0001
+ LDDEXITZ
+ BD6 L
+ BD5D I
+ L ALO 1957 ALL
+ D ALO 1958 ALL
+ I ALO 1959 ALL
+ ALL SLO1IXXX
+ BMIILL EXITZ
+ ILL RALEXITZ UNDEFINED
+ ALO1IXXX 8002 OR ILLEG
+ 1
+ C RAL 0960 NEX CONSTANT
+ HED
+ 1 SUB 10 SET CC 8 AND PUNCH
+ 1
+ SUB10ALOP0010
+ ALO84TH
+ STLP0010
+ PCHP0001 8003
+ 1
+ 84TH 00 0800 0000 CONSTANT
+ 1
+ 1 SUB 11 FIND AND RESERVE BEST
+ 1
+ HED0
+ SYNSW 0 1584
+ SYNSWOF0 1691
+ SYNSWON0 1751
+ SYNYES 0 1583
+ SW RAUAI SWOF
+ SWOF SLOAMAX IS AI MAX
+ NZE MAX
+ ALOAMP1 SAI STEP AI
+ SWON SLOAO IS AI EQUA
+ NZE FULL TO AO
+ ALOBP1 SAI STEP AI
+ MAX LDDON SET SW ON
+ STDSW
+ RALA1 SAI SET AI TO
+ SUB11LDDDRUMT TEST
+ BDO SEX DRUM TAG
+ STLEXIT IS ADR L
+ BD6DI
+ RAL 8003 SSW L
+ DI LDDF D OR I
+ SDAXXXX1 SUB13 FIND OPTIM
+ GDA SLT 0004 DYNAM ADR
+ ALO 8002
+ ALO 8002 SSW
+ SSW LDDOFF SET SW OFF
+ STDSW
+ ALOA1P1 GET TABLE
+ STLBP1 START ADDR
+ SLO1DXXX
+ STLAO SAI SAVE AO
+ SAI STLAI 8001
+ 8001RAU 9975 TA IS A LOCAT
+ TA NZUYES SW AVAILABLE
+ 1
+ FULL HLT 0222 DRUM PAKED
+ LDDH9XXX SET DRUM
+ STDDRUMT TAG TO 9
+ RALEXIT SEX STEP EXIT
+ SEX ALO1IXXX 8002
+ 1
+ YES SCT 0000 RESERVE
+ SLT 0001 LOCATION
+ SRT 0001 FOUND
+ STLXXXX2 SAVE P
+ SUP 8003
+ SLT 0004
+ AUP 8001
+ ALOSRP 8002
+ 8002SRT 0009 SCA NULIFY SCT
+ SCA RAU 8003
+ ALOAI
+ LDDST
+ SDAERAS 8001
+ 8001STU 9972 CA
+ CA SUP 8001 CALCULATE
+ SLOA1 LOCATION
+ SRT 0004 FOUND
+ DIV4I
+ MPY500
+ ALO 8003
+ SUP 8001
+ AUPXXXX2
+ MPY50
+ ALO 8003
+ SUP 8001 EXIT
+ F 00 0000 GDA CONSTANTS
+ OFF RALAI SWOF
+ A1P1 RAUA0002 TA
+ AMAX RAUA0200 TA
+ AMP1 RAUA0201 TA
+ ON RALAI SWON
+ A1 RAUA0001 TA
+ SRP SRT 0000 SCA
+ ST STU 9999 CA
+ 4I 00 0000 0004
+ 500 00 0000 0500
+ 50 00 0000 0050
+ FON RAL 8001 STEPX
+ AO 01 0000 AO ERASEABLE
+ AI 01 0000 AI
+ BP1 01 0000 BP1
+ EXIT 01 0000 EXIT
+ HED
+ 1
+ 1 SUB 12 SET BLANK L 8
+ 1
+ SUB12ALOP0010
+ ALO87TH
+ STLP0010 8003
+ 1
+ 87TH 00 0000 8000 CONSTANT
+ 1
+ 1 SUB 13 CAL OPTIMUM DYNAMIC ADR
+ 1
+ HEDY
+ SUB13STDEXITZ STORE EXIT
+ BD5 I D OR I
+ RALOPTIM D
+ SLT 0001
+ SLO 8002
+ SLT 0001
+ ALO 8001
+ SRT 0003 SEO
+ I RALOPTIM I
+ BD2SHOP SHIFT TEST
+ BD3XAS XAS TEST
+ SLT 0002 SEO
+ SEO STLXXXX1 SAVE EV OD
+ RALOPREG IS BASE
+ DIV2IXXX EVEN OR OD
+ RAU 8003
+ ALOXXXX1
+ NZU R8
+ SLT 0002
+ RAL 8002 R8
+ R8 SRT 0008 GET BASE
+ ALOOPREG PLUS DELTA
+ DIV50 MOD 50
+ RAL 8003 EXITZ
+ 1
+ SHOP RALP0007 TLU UNITS
+ SRT 0004 DIGIT OF
+ SLT 0009 D ADDRESS
+ SLO 8002
+ TLUU0001
+ ALOGU 8002
+ 8002RAL 9969 TOP
+ TOP SLT 0002
+ LDDOPTIM IS OP SRD
+ BD3 SEO
+ SLT 0004 SEO SRD
+ 1
+ XAS RALP0007 TLU
+ SRT 0004 D ADDRESS
+ SLT 0006
+ SLO 8002
+ TLUI0001
+ ALOGXD 8002
+ 8002RAL 9968 NXT
+ NXT SLT 0004 SEO
+ 1
+ U0001 00 2322 2524 SHIFT
+ U0002 10 0706 0706 OPTIMIZING
+ U0003 20 0706 0908 TABLE
+ U0004 30 0908 1110
+ U0005 40 1110 1312
+ U0006 50 1312 1514
+ U0007 60 1514 1716
+ U0008 70 1716 1918
+ U0009 80 1918 2120
+ U0010 90 2120 2322
+ 1
+ I0001 19 9906 0600 X ACCUM
+ I0002 79 9907 0700 ADD SUB
+ I0003 80 0008 0800 TABLE
+ I0004 80 0106 0600
+ I0005 80 0209 0800
+ I0006 80 0308 0900
+ I0007 90 5908 0800
+ I0008 99 9909 0900
+ 1
+ GU RAL 0000 TOP CONSTANTS
+ GXD RAL 0000 NXT
+ 50 00 0000 0050
+ HED
+ 1
+ 1 SUB 14 PUNCH AVIL TABLE
+ 1
+ HEDP
+ SUB14STDEXITX STORE EXIT
+ LDD85TH SET PUNCH
+ STDP0010 8
+ LDDA1 INIT AI
+ STDXXXX1
+ RALRS1 LOOP INIT RS
+ LOOP AUPC1 8001
+ 8001STL 9999 NEXT SET LOCAT
+ NEXT SUPTW1
+ NZU SRS
+ AUPC2
+ ALOC3 8003
+ SRS STLXXXX2 SAVE RS
+ RAUC4
+ ALOXXXX1 8002
+ 8002LDD 9998 8003 STORE
+ 8002STD 9997 TP AV TABLE
+ TP SUPTW2
+ NZU PUN
+ AUPC5
+ ALOC6 8002
+ PUN PCHP0001
+ SLOAIM IS AI MAX
+ NZE EXITX
+ ALOAMP1 STEP AI
+ STLXXXX1
+ RALXXXX2
+ SLOC7 LOOP
+ 1
+ C1 STLP0001 NEXT CONSTANTS
+ C2 STLP0009 NEXT
+ C3 00 0500 0500
+ C4 STDP0002 TP
+ C5 STDP0010 TP
+ C6 00 0001 0000
+ C7 00 1499 1499
+ TW1 STLP0007 NEXT
+ TW2 STDP0008 TP
+ 85TH 00 0080 0000
+ A1 LDDA0001 8003
+ RS1 00 0000 0450
+ AIM LDDA0200 8003
+ AMP1 LDDA0201 8003
+ HED
+ 1
+ 1 SUB 15 HEADING ROUTINE
+ 1
+ HEDH
+ SUB15STDEXITY SAVE EXIT
+ LDD 8003 IS C1
+ SLT 0008 BLANK
+ NZUDH
+ RAU 8001 HEAD
+ AUP0000H EXITY
+ DH RAU 8001 EXITY DONT HEAD
+ HED
+ 1
+ 1 SUB 16 INITIALIZATION
+ 1
+ SUB16STDEXITY STORE EXIT
+ RALI1
+ STUP0009 ZERO CARD
+ STD0000H ZERO HEAD
+ LDD SUBR1 ZERO SYM T
+ RALI2 MAKE DRUM
+ AUPI3 AVAILABLE
+ LDD SUBR1
+ LDDH8XXX SET DRUM
+ STDDRUMT TAG TO 8
+ LDDI4 SET SWSYM
+ STDSWSYM OFF
+ RALI5 UNDEFINE
+ AUPH8XXX REGIONS
+ LDDEXITY SUBR1
+ 1
+ I1 00S0001 E0200 CONSTANTS
+ I2 00A0001 A0200
+ I3 11 1111 1111
+ I4 01 0111 SYMOF
+ I5 00 1021 1049
+ PACOFBD6FINDI FINDL
+ 1
+ 1 SUB 17 CALC 800X EQUIVALENT
+ 1
+ HEDX
+ SB17DLDDDEQ DI D EQUIV
+ SB17ILDDIEQ DI I EQUIV
+ DI STDXXXX1 SAVE TAG
+ STUEXITY STORE EXIT
+ STLXXXX2 STORE 800X
+ LDDXXXX1 SUB13 GET OPTIM
+ SDA STLXXXX1 DYNAM ADDR
+ DIV2IXXX IS DY ADDR
+ NZUOD EV EVEN OR ODD
+ OD RAL8002 EO
+ EV RAL8003 EO
+ EO SLOXXXX2
+ NZE ADD1
+ RALXXXX1 EXITY
+ ADD1 RALXXXX1
+ ALO1IXXX EXITY
+ 1
+ DEQ 00 0008 SDA CONSTANTS
+ IEQ 00 0009 SDA
+ 8002 00 0000 8002
+ 8003 00 0000 8003
+ HED
+ 1
+ 1 SUB 18 INDEX ADDRESS
+ 1
+ HEDW
+ INDEXSTDEXITY STORE EXIT
+ STLXXXX1 STORE ADDR
+ RAU 1954
+ SLT 0007
+ LDDEXITY
+ BD5D D OR I
+ SLT 0002 D
+ D SRT 0009
+ MPY2000I
+ LDDEXITY
+ BD6DS DRUM O COR
+ SRT 0001 DS CORE
+ DS ALOXXXX1 EXITY
+ 1
+ EXITY 01 0000 EXITY ERASEABLE
+ HED
+ 1
+ 1 SUB 19 PROCESS LOCATION
+ 1
+ REGD0923 0923 PROC L
+ REGG0925 0925
+ REGJ0928 0928
+ REGK0931 0931
+ REGL0933 0933
+ 1
+ HEDA
+ PROCLSTDEXITX STORE EXIT
+ RAU 1951 IS L BLANK
+ NZUNB
+ LDDDRUMT BLANK TEST
+ BD0B D0002 DRUM TAG
+ B RALOPREG SETL BLANK
+ SETL SLT 0004 SET L
+ LDDP0008 TO OR
+ SDAP0008 EXITX
+ NB LDDG SUBR4 WHAT IS L
+ G0001RAL 1957 K0001 ABSOLUTE
+ G0002LDDK SUBR9 REGIONAL
+ G0003LDDJ SUBR6 SYMBOLIC
+ K0001LDDL SUBR5 TEST RANGE
+ K0002RAU87TH X REG ERROR
+ X AUPP0010 SET BLANK
+ STUP0010 SETL L8
+ L0001STLOPREG SETL DRUM ADDR
+ L0002AUP86TH 800X 800X
+ L0003LDDORCEQ 89X CORE ADDR
+ L0004RAU87TH X OTHER
+ 800X LDDORXEQ 89X
+ 89X STDOPREG X
+ J0001RALEQUIV K0001 SYM DEFIND
+ J0002RALD SUB11 SYM UNDEF
+ J0003RAU87TH X S TAB FULL
+ D0001STLOPREG SS S EQ FOUND
+ D0002RAU87TH X DRUM PAKED
+ SS AUPHSYMB STORE
+ ALOLSYMB SYMBOL
+ LDDB SUBR7
+ 1
+ G 00 0000 G0001 CONSTANTS
+ K 00 0090 K0001
+ J 00 0000 J0001
+ L 00 0000 L0001
+ D 00 0090 D0001
+ 86TH 00 0008 0000
+ 87TH 00 0000 8000
+ EXITX 01 0000 EXITX ERASEABLE
+ HED
+ 1
+ 1 SUB 20 PROCESS DATA ADDRESS
+ 1
+ REGD0937 0937 PROC D
+ REGF0939 0939
+ REGG0941 0941
+ REGJ0944 0944
+ REGK0946 0946
+ REGL0949 0949
+ 1
+ HEDB
+ PROCDSTDEXITX STORE EXIT
+ RAU 1952 IS D BLANK
+ NZUNB
+ RALD SUB11 FIND
+ D0001STLORBAL L0004 OPTIMUM D
+ D0002RAU88TH X DRUM PAKED
+ BT LDDOPTIM IS OP
+ BD1EXITX A BRANCH
+ STLOPREG EXITX D TO OR
+ X AUPP0010 SET BLANK
+ STUP0010 EXITX
+ NB LDDG SUBR4 WHAT IS D
+ G0001RAL 1958 J0001 ABSOLUTE
+ G0002LDDJ SUBR9 REGIONAL
+ G0003LDDK SUBR6 SYMBOLIC
+ J0001LDDL SUBR5 TEST RANGE
+ J0002RAU88TH X REG ERROR
+ L0001LDDAXD INDEX DRUM ADDR
+ L0002SLT 0004 800X 800X
+ L0003LDDAXC INDEX CORE ADDR
+ L0004SLT 0004 SD OTHER
+ 800X LDDP0007 SET 800X D
+ SDAP0007
+ SRT 0004
+ AUPXEQ SB17D GET 800X E
+ SCD SLT 0004 SET CORE D
+ LDDP0007
+ SDAP0007
+ SRT 0004
+ LDDCEQ SUB13 GET CORE E
+ SCEQ STLORCEQ BT SAVE CORE
+ K0001RALEQUIV J0001 SYM DEFINED
+ K0002RALF SUB11 SYM UNDEF
+ K0003RAU88TH X S TAB FULL
+ F0001STLEQ SS SAVE EQ
+ F0002RAU88TH X DRUM PAKED
+ SS AUPHSYMB STORE
+ ALOLSYMB SYMBOL
+ LDD SUBR7
+ RALEQ L0004
+ SD LDDP0007 SET D ADDR
+ SDAP0007
+ SRT 0004 BT
+ 1
+ D 00 0088 D0001 CONSTANTS
+ G 00 0000 G0001
+ J 00 0088 J0001
+ L 00 0000 L0001
+ F 00 0088 F0001
+ K 00 0000 K0001
+ AXD 00 0088 D0001
+ AXC 00 0098 SCD
+ XEQ STLORXEQ BT
+ CEQ 00 0008 SCEQ
+ 88TH 00 0000 0800
+ EQ 01 0000 EQ ERASEABELE
+ 1
+ 1 SUB 21 PROCESS INSTR ADDRESS
+ 1
+ REGD0953 0953 PROC I
+ REGF0955 0955
+ REGG0958 0958
+ REGJ0960 0960
+ REGK0962 0962
+ REGL0965 0965
+ 1
+ HEDC
+ PROCISTDEXITX STORE EXIT
+ RAU 1953 IS I BLANK
+ NZUNB
+ RAU 1952 IS D BLANK
+ NZUDNB
+ LDDDRUMT D I BLANK
+ BDO G0002 TEST DRUM
+ RALORBAL L0004 TAB
+ DNB RALD SUB11 FIND BEST
+ D0001STLORBAL L0004 FOUND
+ D0002RALP0010 X DRUM PAKED
+ X ALO89TH
+ STLP0010 EXITX
+ NB LDDF SUBR4 WHAT IS I
+ F0001RAL 1959 J0001 ABSOLUTE
+ F0002LDDJ SUBR9 REGIONAL
+ F0003LDDK SUBR6 SYMBOLIC
+ J0001LDDL SUBR5 TEST RANGE
+ J0002RALP0010 X REG ERROR
+ L0001LDDAXD INDEX DRUM ADDR
+ L0002LDDP0007 800X 800X
+ L0003LDDAXC INDEX CORE ADDR
+ L0004LDDP0007 OTHER
+ SIAP0007 MOR
+ 800X SIAP0007
+ AUPXEQ SB17I GET 800X E
+ 90XX LDDP0007 SET CORE
+ SIAP0007 ADDRESS
+ LDDCEQ SUB13 GET CORE E
+ K0001RALEQUIV J0001 SYM DEFIND
+ K0002RALG SUB11 SYM UNDEF
+ K0003RALP0010 X S TAB FULL
+ G0001LDDP0007 SI FOUND BEST
+ G0002RALP0010 X DRUM PAKED
+ SI SIAP0007
+ AUPHSYMB STORE
+ ALOLSYMB SYMBOL
+ LDDMOR SUBR7
+ MOR LDDORBAL SET OR
+ STDOPREG EXITX TO ORB
+ SCEQ STLORCEQ MOR SAVE CORE
+ 1
+ D 00 0089 D0001 CONSTANTS
+ F 00 0000 F0001
+ J 00 0089 J0001
+ K 00 0000 K0001
+ L 00 0000 L0001
+ G 00 0089 G0001
+ 89TH 00 0000 0080
+ AXD 00 0089 L0004
+ AXC 00 0099 90XX
+ XEQ STLORXEQ MOR
+ CEQ 00 0009 SCEQ
+ HED
+ 1
+ 1IXXX 00 0000 0001 CONSTANTS
+ 1DXXX 00 0001 0000
+ 2IXXX 00 0000 0002
+ 2DXXX 00 0002 0000
+ H8XXX 80 0000 0000
+ H9XXX 90 0000 0000
+ 90XXX 00 0000 0090
+ 29XXX 00 0000 0029
+ 2000I 00 0000 2000 CONSTANT
+ TORG 00 0000 T0001
+ 1
\ No newline at end of file
Index: trunk/utils/ibm650_soap2/ibm650_soap2/soap2.7wd
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/soap2.7wd (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/soap2.7wd (revision 29)
@@ -0,0 +1,165 @@
+00 0800 0007 00 0404 0998 00 0404 0998 33 2322 0999 00 0505 0998 00 0505 0998 00 0505 0998 00 0505 0998
+00 0807 0007 00 0505 0998 33 1212 0999 33 0202 0999 33 0504 0999 33 0504 0999 99 9999 9999 99 9999 9999
+00 0814 0007 33 1110 0999 33 0504 0999 33 0504 0999 33 0504 0999 33 0504 0999 33 2120 0999 54 0303 0999
+00 0821 0007 45 0303 0999 34 0303 0999 34 0303 0999 33 0303 0999 44 0505 0998 00 0505 0998 00 0505 0998
+00 0828 0007 33 1212 0999 33 0202 0999 00 0000 0988 00 0000 0888 33 2726 0999 33 2726 0999 33 0000 0999
+00 0835 0007 00 0000 0988 00 0000 0988 33 2726 0999 33 2726 0999 33 0000 0999 33 0404 0998 33 0404 0998
+00 0842 0007 33 0404 0998 33 0404 0998 34 0405 0998 43 0504 0998 33 0404 0998 33 0505 0998 33 0404 0998
+00 0849 0007 33 0404 0998 00 0000 0898 00 0000 0898 00 0000 0898 00 0000 0898 44 0505 0998 00 0505 0998
+00 0856 0007 00 0505 0998 00 0505 0998 00 0000 0898 00 0000 0898 33 0504 0999 33 0504 0999 99 9999 9999
+00 0863 0007 99 9999 9999 33 1110 0999 33 0504 0999 33 0504 0999 33 0504 0999 33 0504 0999 33 0303 0999
+00 0870 0007 00 0000 0999 00 0000 0999 00 0000 0999 00 0000 0999 00 0000 0999 00 0000 0999 00 0000 0999
+00 0877 0007 00 0000 0999 00 0000 0999 00 0505 0999 00 0000 0898 00 0000 0898 00 0000 0898 00 0000 0898
+00 0884 0007 33 0506 0999 00 0606 0998 00 0606 0998 00 0606 0998 00 0000 0898 00 0000 0898 44 0505 0998
+00 0891 0007 33 0505 0998 33 0505 0998 33 0505 0998 33 0505 0998 33 0505 0998 33 0505 0998 33 0505 0998
+00 0898 0007 33 0505 0998 44 0505 0998 65 1653 1308 01 0000 0901 65 1958 1263 30 0008 1221 00 0000 0943
+00 0905 0007 65 1959 1313 30 0008 1175 00 0000 0957 65 1951 1455 00 0000 1013 15 1519 1273 15 1519 1273
+00 0912 0007 65 1986 1191 69 1016 0969 00 0000 8003 20 1519 1322 65 1986 1191 65 1959 0915 69 1371 1174
+00 0919 0007 69 1372 1275 65 1223 0915 65 1986 1191 65 1986 1191 20 1872 1628 60 1585 1839 65 1957 0931
+00 0926 0007 69 1780 1174 69 1830 1275 65 1223 0931 65 1682 1801 60 1585 1839 69 1784 1750 60 1585 1839
+00 0933 0007 20 1872 1927 10 1688 1743 69 1738 1442 60 1585 1839 20 1492 0952 60 1542 1398 20 1793 1696
+00 0940 0007 60 1542 1398 65 1958 0944 69 1645 1174 69 1646 1275 69 1448 1750 60 1542 1398 65 1223 0944
+00 0947 0007 65 1882 1801 60 1542 1398 69 1828 1826 35 0004 1878 69 1928 1826 35 0004 1930 20 1492 0968
+00 0954 0007 65 1986 1742 65 1959 0960 69 1835 1174 69 1885 1275 69 1983 1540 65 1986 1742 69 1935 1750
+00 0961 0007 65 1986 1742 65 1223 0960 65 1490 1801 65 1986 1742 69 1736 1826 69 1983 1786 69 1836 1826
+00 0968 0007 69 1983 1886 24 1196 1899 60 1519 1323 21 1984 0987 24 1196 1949 65 1957 1311 00 0000 1500
+00 0975 0007 01 0000 0975 69 1262 1365 46 1180 1183 00 0000 1504 21 1961 1214 69 1952 1355 69 1953 1356
+00 0982 0007 69 1954 1357 69 1955 1208 69 1956 1209 65 1985 0989 15 1189 1243 10 0990 0995 60 1960 1015
+00 0989 0007 15 0992 0997 00 0000 1990 15 1986 1891 00 0000 0001 00 0000 0913 24 0600 1247 20 1986 8003
+00 0996 0007 24 1196 1349 20 1985 0988 60 1961 1765 60 1952 1407 69 1950 1353 69 1404 1353 65 1959 1363
+00 1003 0007 69 1406 1309 65 1952 1507 69 1406 1359 69 1216 1359 69 1460 0969 60 1511 1405 65 1952 1757
+00 1010 0007 65 1952 1807 69 1406 1409 60 0975 1229 65 1986 1441 00 0000 2000 30 0002 0971 69 1019 0972
+00 1017 0004 24 1979 1350 15 1771 1425 69 1350 1453 00 0001 0000
+00 1050 0007 61 7366 1007 61 7376 0015 61 7473 0017 61 8477 0010 61 8761 0050 61 8762 0052 61 8763 0058
+00 1057 0007 62 6476 0090 62 6491 0091 62 6492 0092 62 6493 0093 62 6494 0094 62 6495 0095 62 6496 0096
+00 1064 0007 62 6497 0097 62 6498 0098 62 6499 0099 62 6975 0026 62 7361 1003 62 7379 1002 62 7461 0041
+00 1071 0007 62 7462 0043 62 7463 0049 62 7469 0046 62 7677 1001 62 7685 0047 62 8283 0057 64 6985 0014
+00 1078 0007 64 8579 0064 65 7884 1005 66 6164 0032 66 6174 0037 66 6485 0034 66 7477 0039 66 8262 0033
+00 1085 0007 66 8274 0038 68 6564 1009 68 7383 0001 73 6464 0069 73 6469 0009 73 6962 0008 74 7788 0019
+00 1092 0007 75 6566 0054 75 7677 0000 75 8382 0025 75 8961 0040 75 8962 0042 75 8963 0048 16 1601 1756
+00 1099 0007 60 1953 1457 75 8965 0045 75 8984 0044 77 6183 1008 77 6368 0071 79 6161 0080 79 6162 0082
+00 1106 0007 79 6163 0088 79 6173 0065 79 6174 0067 79 6184 0060 79 6279 1012 79 6364 0070 79 6391 0072
+00 1113 0007 79 6392 0075 79 6393 0078 79 6482 0086 79 6491 0070 79 6492 0073 79 6493 0076 79 6567 1004
+00 1120 0007 79 6573 1010 79 6578 1011 79 7788 0079 79 8261 0081 79 8262 0083 79 8263 0089 79 8273 0066
+00 1127 0007 79 8274 0068 79 8284 0061 79 8361 0005 79 8363 0003 79 8375 0004 79 8664 0055 82 6383 0036
+00 1134 0007 82 6461 0022 82 6482 0085 82 6583 0027 82 6961 0023 82 6962 0028 82 7376 0016 82 7383 0035
+00 1141 0007 82 7473 0018 82 7964 0031 82 7983 0030 82 8364 0024 82 8369 0029 82 8373 0020 82 8384 0021
+00 1148 0007 35 0004 1809 10 1352 8003 82 8477 0011 82 8761 0051 82 8762 0053 82 8763 0059 82 8875 1006
+00 1155 0007 83 7384 0084 84 6661 0002 86 6482 0087 86 7991 0071 86 7992 0074 86 7993 0077 86 8361 0007
+00 1162 0007 86 8374 0056 86 8375 0006 99 9999 0001 60 1957 1261 60 1957 1361 15 1020 8003 16 1020 1525
+00 1169 0007 46 1172 0973 22 1217 1220 69 1984 1187 10 8001 0979 65 1957 1411 24 1416 1670 10 0978 8003
+00 1176 0007 01 0000 1176 35 0006 1491 00 0000 0090 46 1182 1183 15 8001 1311 22 1962 1515 10 1014 0979
+00 1183 0007 60 1237 0991 60 1401 1755 65 8002 1293 65 1953 1707 22 1984 1237 30 0009 1401 00 0000 0029
+00 1190 0007 69 1350 1553 15 1500 1505 16 1345 1449 24 1196 0999 00 0000 0008 00 0000 0908 01 0000 1196
+00 1197 0007 35 0004 1557 35 0006 1966 21 1961 1364 00 1999 0000 00 7999 0003 00 8003 0001 00 8004 0003
+00 1204 0007 00 8007 0001 00 8999 0003 00 9059 0002 99 9999 0003 24 1981 0984 24 1982 0985 00 0000 0902
+00 1211 0007 44 1165 1166 01 1212 8000- 24 1416 1919 69 1450 1503 65 1959 1463 90 0000 0000 20 9998 1402
+00 1218 0007 69 1971 1224 46 1222 1173 35 0004 1181 10 0974 8003 10 0975 1179 01 0000 1223 24 1664 1971
+00 1225 0007 16 1178 1233 22 1962 8001 45 1280 1331 65 1953 1857 15 1959 1363 01 0000 1230 01 0000 1231
+00 1232 0007 35 0004 1493 46 0986 1002 60 1401 1805 16 1188 1343 30 0004 1397 69 1190 1193 65 8002 1547
+00 1239 0007 15 1606 1711 60 0600 1579 15 0994 1149 55 0505 0999 46 1002 1197 35 0004 1911 35 0001 1451
+00 1246 0007 01 0000 1246 11 1550 1655 20 1961 1668 30 0010 1401 00 2322 2524 10 0706 0706 20 0706 0908
+00 1253 0007 30 0908 1110 40 1110 1312 50 1312 1514 60 1514 1716 70 1716 1918 80 1918 2120 90 2120 2322
+00 1260 0007 00 0000 0905 11 1014 1169 01 0000 1262 16 1014 1319 01 0000 1264 10 1958 1613 10 1719 1423
+00 1267 0007 44 1471 1196 16 1020 1775 16 1272 0977 16 1573 1227 69 1400 1503 00 0000 9060 69 0976 1279
+00 1274 0007 35 0004 1947 24 1416 1320 20 1431 1484 14 1771 1332 10 1601 1416 24 1416 1520 15 1533 1487
+00 1281 0007 10 1284 1239 67 8001 1489 15 8002 1241 01 0000 1284 14 1288 1148 10 1339 1393 11 8001 1245
+00 1288 0007 00 0002 0000 69 1242 1399 60 0601 1579 22 1231 1334 69 0600 8003 10 1246 1351 22 1575 1328
+00 1295 0007 35 0003 1803 15 1249 1703 69 1506 1559 60 8001 1813 20 1653 1556 19 9906 0600 79 9907 0700
+00 1302 0007 80 0008 0800 80 0106 0600 80 0209 0800 80 0308 0900 90 5908 0800 99 9909 0900 45 1362 1813
+00 1309 0007 24 1212 1215 21 1021 1002 35 0004 1171 69 1960 8002 16 1014 1419 82 7661 7792 60 1953 1607
+00 1316 0007 69 1769 1472 65 1231 1235 69 1216 1870 46 1564 1563 21 1601 1654 69 1400 1603 60 1952 1657
+00 1323 0007 69 1400 1503 00 0000 0450 20 1329 1400 65 1575 1534 14 1380 1390 65 8001 1285 01 1329 8000-
+00 1330 0007 30 0001 1587 69 1434 1537 60 8003 1689 44 1437 1416 10 1337 1423 15 1338 8003 15 1189 1443
+00 1337 0007 20 0600 0900 00 0500 0500 10 0000 0000 15 8003 1897 30 0002 1347 69 0800 8003 45 1296 1297
+00 1344 0007 00 0800 0000 90 9000 0000 35 0001 1753 20 1961 1414 60 8001 1818 65 1954 1659 71 1977 1950
+00 1351 0007 30 0001 1907 69 1952 8002 24 1813 1868 24 1977 0980 24 1978 0981 24 1979 0982 24 1980 0983
+00 1358 0007 20 0796 0900 24 1262 1315 00 0000 0917 11 1014 1219 16 1565 1669 16 1958 1413 69 1217 1170
+00 1365 0007 90 1400 0970 69 1565 1472 35 0002 1473 24 1986 1739 15 1958 0944 65 1614 1420 00 0089 0915
+00 1372 0007 00 0000 0920 15 1264 1619 44 1377 1528 15 8002 1283 15 1958 1562 10 1430 1335 44 1481 1282
+00 1379 0007 10 1020 8003 00 0000 0050 24 1534 1637 20 1977 1702 47 1286 1286 35 0001 1391 15 1388 8002
+00 1386 0007 65 1789 1643 44 1341 1192 00 0001 0000 44 1673 1244 65 8003 1416 44 1295 1346 21 1986 1927
+00 1393 0007 47 1396 0998 60 0799 1579 45 1098 1549 35 0002 1853 15 1650 8002 10 1986 1592 24 1452 1196
+00 1400 0007 60 1950 1405 01 0000 1401 11 1962 1267 24 1196 1849 60 1950 1405 15 1986 1641 80 0000 0000
+00 1407 0007 69 1210 1213 00 0196 0000 24 1262 1415 69 1713 1275 15 1264 1269 15 1865 1487 10 8001 1271
+00 1414 0007 16 8001 1671 65 1959 1763 01 1416 8000- 16 1178 1433 65 1324 1829 46 1568 1567 16 1467 1921
+00 1421 0007 15 1961 8003 15 0975 1619 21 1401 1604 24 1978 1752 21 1230 1715 19 1679 1552 10 1480 1385
+00 1428 0007 15 1959 1562 35 0001 1185 20 1985 1702 01 0000 1431 69 1485 1600 46 1336 0998 65 1614 1800
+00 1435 0007 45 1438 1196 22 1983 1486 21 1962 1665 15 1342 1248 69 8003 1496 69 1843 1964 15 1194 1499
+00 1442 0007 24 1872 1839 46 0998 1447 65 1687 1691 90 1649 1701 69 0400 1389 65 0992 1497 00 0000 0949
+00 1449 0007 35 0002 1905 65 1961 1311 21 1606 1609 01 1452 8000- 24 1196 1833 20 1231 1184 35 0002 1211
+00 1456 0007 60 1401 1705 69 1260 1213 30 0000 1401 10 1312 1167 69 1952 1555 69 1314 1017 69 0400 1378
+00 1463 0007 16 1958 1513 30 0008 1333 35 0004 1375 65 1725 1820 65 0000 1395 20 1983 1702 15 1959 0960
+00 1470 0007 69 1278 1381 10 8001 1379 24 1246 1299 10 8003 1281 44 1427 1578 16 8002 1483 84 1300 1912
+00 1477 0007 16 1530 1435 96 1531 1633 21 1284 1287 24 1986 1752 67 8001 1439 44 1535 1386 84 1200 1656
+00 1484 0007 16 8001 1591 65 1538 1593 30 0004 1498 20 1614 8001 24 1329 1432 30 0004 1439 00 0089 0958
+00 1491 0007 30 0006 1706 01 1492 8000- 15 1446 1651 30 0000 1722 20 1915 1268 23 1223 1326 10 1961 1715
+00 1498 0007 10 1881 1902 20 1986 1289 00 8800 0000 16 1961 1615 15 1906 1612 24 1813 1316 69 1458 1661
+00 1505 0007 20 1986 1350 35 0000 1521 30 0008 1225 00 0195 0000 22 0901 1454 65 1958 1561 69 1950 1403
+00 1512 0007 65 0960 1445 10 8001 1321 35 0004 1475 60 1217 1421 11 8003 1873 10 0100 1001 60 1424 1879
+00 1519 0007 01 0000 1519 69 1623 1226 21 1176 1429 35 0006 1387 10 1178 1383 00 1499 1499 20 1903 1487
+00 1526 0007 21 1813 1576 01 0111 1218 20 1962 1518 44 1013 1384 69 0799 8003 69 1634 1787 35 0002 1680
+00 1533 0007 65 0400 1395 01 0000 1534 65 1588 1643 22 1983 1586 24 1610 1714 00 0600 0799 65 8003 1697
+00 1540 0007 23 1983 1590 11 8001 1599 00 0000 0800 44 1298 1348 21 9999 1825 30 0004 1710 11 1111 1111
+00 1547 0007 35 0003 1806 69 1782 1964 65 1416 1871 69 1958 8002 15 0992 8002 15 8003 1760 24 1196 1099
+00 1554 0007 69 1188 1291 24 1983 1186 16 8001 1913 15 1310 1265 45 0000 0001 24 0901 1504 65 1959 1611
+00 1561 0007 20 0975 1228 16 0992 1747 65 1264 1369 65 0975 1369 00 0000 0001 65 1958 0944 65 1264 1469
+00 1568 0007 65 0975 1469 46 1422 1373 65 1959 0960 30 0003 1479 15 1771 8002 65 0399 1395 35 0008 1543
+00 1575 0007 01 0000 1575 20 1962 1626 00 1021 1049 71 1977 1477 44 1583 1584 24 1664 1724 15 8001 1639
+00 1582 0007 30 0001 1730 36 0000 1660 60 1687 1691 00 0000 8000 30 0004 1548 35 0004 1597 00 0000 8002
+00 1589 0007 71 1977 8003 10 1230 1640 15 1961 1431 21 1986 1196 10 1546 1802 00 0000 8000 24 1961 1418
+00 1596 0007 01 1596 8000- 15 1850 1856 01 1998 8000- 20 1961 1814 24 1196 1199 01 0000 1601 65 8001 1810
+00 1603 0007 24 1813 1366 10 1558 8003 30 0004 1465 01 1606 8000- 69 1360 1213 65 0000 1501 11 8001 1367
+00 1610 0007 01 0000 1610 20 1264 1400 20 1687 8001 10 1216 8002 01 0000 1614 35 0006 1529 00 0000 0004
+00 1617 0007 23 9984 1416 24 1984 1752 15 1014 0915 22 1673 1276 15 1506 1761 15 0992 8002 21 9987 1541
+00 1624 0007 00 0000 0599 14 1771 1232 69 1961 1964 24 1961 1526 10 1230 1635 15 1687 1841 65 1961 1813
+00 1631 0007 10 1406 1774 69 1212 1877 65 8003 1741 00 0000 1851 15 1575 1880 22 1983 1686 69 8003 1294
+00 1638 0007 22 1984 1196 30 0003 1947 15 1575 1690 15 1344 1699 69 1983 1536 16 1962 1726 01 1644 8000-
+00 1645 0007 00 0088 0944 00 0000 0946 20 1416 1370 01 1648 8000- 65 1416 1622 69 0800 1399 69 1704 1808
+00 1652 0007 00 0080 0000 01 0000 1653 69 1758 1861 44 1459 1950 15 1709 8002 69 1410 1663 65 1962 1417
+00 1659 0007 30 0004 1819 35 0001 1717 24 1231 1234 15 1915 1612 24 1813 1768 01 0111 1218 60 8002 1523
+00 1666 0007 65 1983 1887 30 0001 1723 65 1962 1718 20 1653 1456 30 0008 1539 84 1050 1855 15 8002 1741
+00 1673 0007 01 0000 1673 69 1527 1580 15 1957 1562 14 1771 1482 95 1680 1532 44 1831 1732 00 0000 0500
+00 1680 0007 30 0009 1727 65 1961 1776 00 0090 0923 10 8001 1791 69 1813 1777 00 0088 0937 30 0004 1728
+00 1687 0007 01 0000 1687 00 0008 0000 15 1961 1816 69 1936 1279 16 1394 1749 00 0089 0953 69 1813 1677
+00 1694 0007 01 1694 8000- 00 0000 0080 10 1230 1735 35 0004 1858 01 1698 8000- 20 1986 1589 10 0000 0000
+00 1701 0007 35 0001 1908 11 1468 1374 69 1506 1509 22 9985 1416 11 1358 1863 10 1416 1821 45 1350 1461
+00 1708 0007 45 1412 1664 60 0000 1177 14 1616 1426 35 0004 1621 24 1584 1737 00 0000 0910 65 1467 1487
+00 1715 0007 15 1416 1721 93 1772 1822 30 0001 1823 16 1524 1829 20 0800 0900 96 1773 1675 16 8002 8001
+00 1722 0007 60 8003 1629 69 1416 1720 65 1577 1631 01 0000 1725 45 1630 1681 19 1014 1684 69 1452 1778
+00 1729 0007 65 8002 1972 15 1961 1813 69 1734 1213 65 1685 1801 16 1240 1545 00 0000 0925 15 1575 1932
+00 1736 0007 00 0089 0968 65 1240 1612 01 1738 8000- 69 1292 1595 20 1738 1936 69 1444 1797 15 1695 1934
+00 1743 0007 69 1596 1442 01 1744 8000- 24 1872 1196 01 1745 8000- 46 1649 1416 01 1748 8000- 45 1502 1754
+00 1750 0007 24 1416 1969 16 1804 1859 11 1618 1474 20 1983 1236 69 1909 1712 11 1408 1423 45 1610 1811
+00 1757 0007 30 0008 1325 65 1614 1270 00 0000 0004 11 8001 1767 20 0901 1554 15 8002 1672 16 1014 1569
+00 1764 0007 19 1517 1238 69 1018 1663 65 1872 1277 10 1962 1817 69 8003 1574 00 0000 0000 20 1725 1478
+00 1771 0007 00 0000 0002 65 1983 1937 95 1376 1428 69 1813 1600 20 1804 1612 15 0992 1813 96 1730 1582
+00 1778 0007 91 1196 1783 69 1452 1862 00 0090 0931 65 1872 1927 00 0008 1832 20 1872 1196 00 0000 0933
+00 1785 0007 65 1793 0952 23 1983 1889 22 1961 1964 69 1792 1213 00 0000 8003 02 1790 8000- 15 1494 8002
+00 1792 0007 00 0000 0955 01 0000 1793 01 1794 8000- 01 1795 8000- 01 1796 8000- 24 1584 1837 01 1798 8000-
+00 1799 0007 20 1986 8003 16 1903 1708 69 1212 1965 69 1918 1600 15 1196 1551 01 0000 1804 11 1508 1423
+00 1806 0007 19 1759 1330 45 1510 1561 22 1911 1864 15 1462 8002 01 1810 8000- 65 1614 1470 15 1866 8002
+00 1813 0007 01 0000 1813 30 0004 1625 11 8003 8001 44 1922 1972 19 1920 1340 10 1329 1813 45 1522 1013
+00 1820 0007 15 0992 8002 15 1961 1815 35 0002 1947 20 1962 1516 01 1824 8000- 11 8001 1733 24 1813 1876
+00 1827 0007 44 1731 1632 00 0088 0937 10 1382 8001 00 0000 0928 69 1834 1213 20 1738 1728 60 1953 1883
+00 1834 0007 00 0000 0941 00 0089 0960 00 0099 1939 15 1290 1495 60 1952 1933 10 1986 1392 01 1840 8000-
+00 1841 0007 69 1544 1847 20 1596 1936 00 0009 1740 01 1844 8000- 01 1845 8000- 01 1846 8000- 22 1901 8001
+00 1848 0007 01 1848 8000- 69 1652 1368 65 0001 1395 35 0004 1762 96 1824 1874 44 1286 1658 69 1974 1627
+00 1855 0007 15 1608 8002 20 1865 1168 45 1560 1611 15 1512 8002 45 1662 1914 35 0001 1867 24 1610 1764
+00 1862 0007 93 1916 1947 46 1266 1317 69 1617 1620 01 1865 8000- 65 0000 1973 16 8002 1925 65 1624 1929
+00 1869 0007 15 8001 1753 24 1212 1466 15 0992 1647 01 1872 8000- 35 0004 1683 01 1874 8000- 65 1452 1910
+00 1876 0007 20 1961 1926 90 1781 0924 69 1983 1436 15 1961 8002 69 1781 1279 20 1596 1728 00 0088 0939
+00 1883 0007 44 1788 1838 90 1988 0959 00 0000 0962 23 1983 1936 30 0004 1997 65 1692 1801 10 1842 1854
+00 1890 0007 01 1890 8000- 15 1594 1799 01 1892 8000- 01 1893 8000- 01 1894 8000- 01 1895 8000- 01 1896 8000-
+00 1897 0007 11 8001 1725 01 1898 8000- 60 1951 1827 69 1950 1403 01 1901 8000- 69 1924 1627 01 0000 1903
+00 1904 0007 20 1961 1676 16 8002 1963 60 0800 1579 10 1176 1231 65 8002 1667 65 1687 1751 92 1666 1716
+00 1911 0007 01 0000 1911 15 1967 8002 10 8003 1571 01 0222 1318 01 0000 1915 35 0004 1947 16 8002 1975
+00 1918 0007 69 1406 1968 21 1961 1464 00 0000 0050 20 1575 1278 35 0002 1729 65 1452 1860 00 0008 1904
+00 1925 0007 35 0001 1581 60 1954 1976 35 0004 1987 00 0098 1931 21 1985 1488 69 1983 1636 35 0004 1642
+00 1932 0007 69 1785 1279 44 1888 1938 20 1986 1196 00 0000 0965 69 1492 1745 30 0004 1198 69 1212 1884
+00 1939 0007 69 1983 1989 01 1940 8000- 15 1872 1327 01 1942 8000- 01 1943 8000- 01 1944 8000- 01 1945 8000-
+00 1946 0005 01 1946 8000- 20 1961 1766 01 1948 8000- 60 1952 1678 70 1999 1998
+00 1963 0007 30 0001 1869 24 1416 1970 90 1770 1820 16 8002 1476 65 0000 1274 24 1212 1674 20 1961 1514
+00 1970 0007 95 1923 1875 65 1416 1572 30 0008 1941 35 0002 1779 00 0009 1904 84 1250 1812 35 0007 1693
+00 1987 0007 69 1984 1638 65 1492 0968 23 1983 1440 69 0993 0996 60 1950 1405 69 1195 0996 01 1993 8000-
+00 1994 0006 01 1994 8000- 01 1995 8000- 01 1996 8000- 35 0009 1917 69 1951 1354 65 1951 1605
Index: trunk/utils/ibm650_soap2/ibm650_soap2/soap2.cpp
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/soap2.cpp (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/soap2.cpp (revision 29)
@@ -0,0 +1,1256 @@
+//////////////////////////////////////////////////////////////////////////////////
+// IBM 650 Reconstruction in Verilog (i650)
+//
+// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
+// http:////www.opencores.org/project,i650
+//
+// Description: An implementation of SOAP 2 for the IBM 650.
+//
+// Additional Comments: .
+//
+// Copyright (c) 2015 Robert Abeles
+//
+// This source file is free software; you can redistribute it
+// and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation;
+// either version 2.1 of the License, or (at your option) any
+// later version.
+//
+// This source is distributed in the hope that it will be
+// useful, but WITHOUT ANY WARRANTY; without even the implied
+// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+// PURPOSE. See the GNU Lesser General Public License for more
+// details.
+//
+// You should have received a copy of the GNU Lesser General
+// Public License along with this source; if not, download it
+// from http://www.opencores.org/lgpl.shtml
+//////////////////////////////////////////////////////////////////////////////////
+
+#include "soap2.h"
+
+static addr_type get_addr_type(int32_t addr)
+{
+ if ((addr >= 0) && (addr <= 1999))
+ return addr_gs;
+ if ((addr >= 9000) && (addr <= 9059))
+ return addr_ias;
+ if ((addr >= 8000) && (addr <= 8003))
+ return addr_800X;
+ if ((addr >= 8005) && (addr <= 8007))
+ return addr_800X;
+
+ return addr_invalid;
+}
+
+static inline char zone_x(int c)
+{
+ c = (c < '0')? '0' : (c > '9')? '9' : c;
+ c = (c == '0')? '!' : (c - '0' + 'J');
+ return c;
+}
+
+static inline char zone_y(int c)
+{
+ c = (c < '0')? '0' : (c > '9')? '9' : c;
+ c = (c == '0')? '?' : (c - '0' + 'A');
+ return c;
+}
+
+asmfield::asmfield(const string &f, u_int8_t h) : src(f), type(field_error)
+{
+ if (src == " ") {
+ type = field_blank;
+ return;
+ }
+
+ if (src[0] == ' ') {
+ for (int i = 1; i < 5; i++)
+ if (!isdigit(src[i])) return;
+ type = field_numeric;
+ nval = stoi(src.substr(1,4));
+ return;
+ }
+
+ if (isalpha(src[0])) {
+ bool numeric = true;
+ for (int i = 1; i < 5; i++)
+ if (!isdigit(src[i])) numeric = false;
+ if (numeric) {
+ type = field_region;
+ nval = stoi(src.substr(1, 4));
+ region = src[0];
+ return;
+ }
+ }
+
+ type = field_symbolic;
+ symbol = src;
+ if (symbol[4] == ' ')
+ symbol[4] = h;
+}
+
+void memory::load_7wd_deck(istream &d7)
+{
+ bool ctl_word = true;
+ bool op_fld = true;
+ bool op_d = false;
+ bool op_i = false;
+ string number = "";
+ char ch;
+
+ bool word_valid = false;
+ u_int32_t addr = 0;
+ bool sign = false; // true is minus
+ u_int32_t op = 0;
+ u_int32_t d = 0;
+ u_int32_t i = 0;
+
+ while (EOF != (ch = d7.get())) {
+ if ('\n' == ch) {
+ if (word_valid) {
+ i = stoi(number);
+ int64_t v = op * 100000000LL + d * 10000 + i;
+ mem[addr].set_sign(sign);
+ mem[addr].set_value(v);
+ addr++;
+ sign = false;
+ op = d = i = 0;
+ word_valid = false;
+ }
+ ctl_word = true;
+ op_fld = true;
+ op_d = false;
+ op_i = false;
+ number = "";
+ } else if (isdigit(ch)) {
+ word_valid = true;
+ number += ch;
+ } else if (' ' == ch) {
+ if (number != "") {
+ if (op_fld) {
+ op = stoi(number);
+ op_fld = false;
+ op_d = true;
+ } else if (op_d) {
+ d = stoi(number);
+ op_d = false;
+ op_i = true;
+ } else if (op_i) {
+ i = stoi(number);
+ op_i = false;
+ op_fld = true;
+ if (ctl_word) {
+ addr = d;
+ ctl_word = false;
+ } else {
+ int64_t v = op * 100000000LL + d * 10000 + i;
+ mem[addr].set_sign(sign);
+ mem[addr].set_value(v);
+ addr++;
+ sign = false;
+ op = d = i = 0;
+ word_valid = false;
+ }
+ }
+ number = "";
+ }
+ } else if ('-' == ch) {
+ sign = true;
+ }
+ }
+}
+
+memmap::memmap(u_int32_t s, u_int32_t o)
+ : size(s)
+ , origin(o)
+ , freectr(s)
+{
+ allocmap.resize(size, false);
+}
+
+void memmap::reserve(u_int32_t addr)
+{
+ if ((addr >= origin) && (addr < (origin + size))) {
+ if (!allocmap[addr-origin]) {
+ freectr--;
+ allocmap[addr-origin] = true;
+ }
+ }
+}
+
+void memmap::reserve(u_int32_t fwa, u_int32_t sz)
+{
+ for (int i = 0; i < sz; i++)
+ reserve(fwa+i);
+}
+
+void memmap::unreserve(u_int32_t addr)
+{
+ if ((addr >= origin) && (addr < (origin + size))) {
+ if (allocmap[addr-origin]) {
+ freectr--;
+ allocmap[addr-origin] = false;
+ }
+ }
+}
+
+void memmap::unreserve(u_int32_t fwa, u_int32_t sz)
+{
+ for (int i= 0; i < sz; i++)
+ unreserve(fwa+i);
+}
+
+void memmap::reset()
+{
+ for (int i = 0; i < size; i++)
+ allocmap[i] = false;
+ freectr = size;
+}
+
+int32_t memmap::optimum(u_int32_t rot)
+{
+ // 50 words per band
+ // 40 bands per drum
+ if (isfull())
+ return -1;
+ u_int32_t addr = rot;
+ for (signed ctr = 0; ctr < size; ctr++) {
+ if (!allocmap[addr]) {
+ allocmap[addr] = true;
+ freectr--;
+ break;
+ }
+ addr += 50;
+ if (addr >= size)
+ addr = (addr % 50) + 1;
+ }
+ return addr;
+}
+
+static opcode optab[] = {
+ // the flags field is encoded 8 for on, 9 for off
+ // the digits in the flag field are, left to right,
+ // A, B, and C.
+ // A is on for index reg ops and for the SRD op
+ // B is on for shift ops
+ // C is on for index reg ops, shift ops, branch ops, HLT, NOP, etc.
+
+ // SOAP2 decodes the flags with a nest of conditional branches.
+ //
+ // |------------------------------- Decimal opcode
+ // | |---------------------------- Idx reg ops and SRD
+ // | ||--------------------------- Shift ops
+ // | |||-------------------------- Idx reg, shift, branch, etc.
+ // | ||| |----------------------- D even
+ // | ||| | |-------------------- D odd
+ // | ||| | | |---------------- I even
+ // | ||| | | | |------------ I odd
+ // v vvv v v v v
+ opcode("ALO", 15, 999, 3, 3, 5, 4, real_op),
+ opcode("AML", 17, 999, 3, 3, 5, 4, real_op),
+ opcode("AUP", 10, 999, 3, 3, 5, 4, real_op),
+ opcode("AXA", 50, 898, 0, 0, 0, 0, real_op),
+ opcode("AXB", 52, 898, 0, 0, 0, 0, real_op),
+ opcode("AXC", 58, 898, 0, 0, 0, 0, real_op),
+ opcode("BDO", 90, 998, 4, 4, 5, 5, real_op),
+ opcode("BD1", 91, 998, 3, 3, 5, 5, real_op),
+ opcode("BD2", 92, 998, 3, 3, 5, 5, real_op),
+ opcode("BD3", 93, 998, 3, 3, 5, 5, real_op),
+ opcode("BD4", 94, 998, 3, 3, 5, 5, real_op),
+ opcode("BD5", 95, 998, 3, 3, 5, 5, real_op),
+ opcode("BD6", 96, 998, 3, 3, 5, 5, real_op),
+ opcode("BD7", 97, 998, 3, 3, 5, 5, real_op),
+ opcode("BD8", 98, 998, 3, 3, 5, 5, real_op),
+ opcode("BD9", 99, 998, 4, 4, 5, 5, real_op),
+ opcode("BIN", 26, 998, 0, 0, 5, 5, real_op),
+ opcode("BMA", 41, 998, 3, 3, 4, 4, real_op),
+ opcode("BMB", 43, 998, 3, 3, 4, 4, real_op),
+ opcode("BMC", 49, 998, 3, 3, 4, 4, real_op),
+ opcode("BMI", 46, 998, 3, 3, 4, 4, real_op),
+ opcode("BOV", 47, 998, 3, 3, 5, 5, real_op),
+ opcode("BST", 57, 998, 0, 0, 5, 5, real_op),
+ opcode("DIV", 14, 999, 3, 3, 10, 11, real_op), // modified from 11,10
+ opcode("DVR", 64, 999, 3, 3, 11, 10, real_op),
+ opcode("FAD", 32, 999, 3, 3, 27, 26, real_op),
+ opcode("FAM", 37, 999, 3, 3, 27, 26, real_op),
+ opcode("FDV", 34, 999, 3, 3, 0, 0, real_op),
+ opcode("FMP", 39, 999, 3, 3, 0, 0, real_op),
+ opcode("FSB", 33, 999, 3, 3, 27, 26, real_op),
+ opcode("FSM", 38, 999, 3, 3, 27, 26, real_op),
+ opcode("HLT", 1, 998, 0, 0, 4, 4, real_op),
+ opcode("LDD", 69, 999, 3, 3, 3, 3, real_op),
+ opcode("LDI", 9, 999, 3, 3, 2, 2, real_op),
+ opcode("LIB", 8, 999, 3, 3, 12, 12, real_op),
+ opcode("MPY", 19, 999, 3, 3, 20, 21, real_op), // modified from 21,20
+ opcode("NEF", 54, 998, 4, 4, 5, 5, real_op),
+ opcode("NOP", 0, 998, 0, 0, 4, 4, real_op),
+ opcode("NTS", 25, 998, 4, 4, 5, 5, real_op),
+ opcode("NZA", 40, 998, 3, 3, 4, 4, real_op),
+ opcode("NZB", 42, 998, 3, 3, 4, 4, real_op),
+ opcode("NZC", 48, 998, 3, 3, 4, 4, real_op),
+ opcode("NZE", 45, 998, 4, 3, 5, 4, real_op),
+ opcode("NZU", 44, 998, 3, 4, 4, 5, real_op),
+ opcode("RAA", 80, 898, 0, 0, 0, 0, real_op),
+ opcode("RAB", 82, 898, 0, 0, 0, 0, real_op),
+ opcode("RAC", 88, 898, 0, 0, 0, 0, real_op),
+ opcode("RAL", 65, 999, 3, 3, 5, 4, real_op),
+ opcode("RAM", 67, 999, 3, 3, 5, 4, real_op),
+ opcode("RAU", 60, 999, 3, 3, 5, 4, real_op),
+ opcode("RC1", 72, 999, 0, 0, 0, 0, real_op),
+ opcode("RC2", 75, 999, 0, 0, 0, 0, real_op),
+ opcode("RC3", 78, 999, 0, 0, 0, 0, real_op),
+ opcode("RD1", 70, 999, 0, 0, 0, 0, real_op),
+ opcode("RD2", 73, 999, 0, 0, 0, 0, real_op),
+ opcode("RD3", 76, 999, 0, 0, 0, 0, real_op),
+ opcode("RDS", 86, 998, 0, 0, 6, 6, real_op),
+ opcode("RPY", 79, 999, 0, 0, 5, 5, real_op),
+ opcode("RSA", 81, 898, 0, 0, 0, 0, real_op),
+ opcode("RSB", 83, 898, 0, 0, 0, 0, real_op),
+ opcode("RSC", 89, 898, 0, 0, 0, 0, real_op),
+ opcode("RSL", 66, 999, 3, 3, 5, 4, real_op),
+ opcode("RSM", 68, 999, 3, 3, 5, 4, real_op),
+ opcode("RSU", 61, 999, 3, 3, 5, 4, real_op),
+ opcode("RTA", 5, 998, 0, 0, 5, 5, real_op),
+ opcode("RTC", 3, 998, 0, 0, 5, 5, real_op),
+ opcode("RTN", 4, 998, 0, 0, 5, 5, real_op),
+ opcode("RWD", 55, 998, 0, 0, 5, 5, real_op),
+ opcode("SCT", 36, 988, 0, 0, 0, 0, real_op),
+ opcode("SDA", 22, 999, 3, 4, 3, 3, real_op),
+ opcode("SDS", 85, 998, 0, 0, 6, 6, real_op),
+ opcode("SET", 27, 998, 0, 0, 5, 5, real_op),
+ opcode("SIA", 23, 999, 3, 4, 3, 3, real_op),
+ opcode("SIB", 28, 999, 3, 3, 12, 12, real_op),
+ opcode("SLO", 16, 999, 3, 3, 5, 4, real_op),
+ opcode("SLT", 35, 988, 0, 0, 0, 0, real_op),
+ opcode("SML", 18, 999, 3, 3, 5, 4, real_op),
+ opcode("SRD", 31, 888, 0, 0, 0, 0, real_op),
+ opcode("SRT", 30, 988, 0, 0, 0, 0, real_op),
+ opcode("STD", 24, 999, 3, 3, 3, 3, real_op),
+ opcode("STI", 29, 999, 3, 3, 2, 2, real_op),
+ opcode("STL", 20, 999, 5, 4, 3, 3, real_op),
+ opcode("STU", 21, 999, 4, 5, 3, 3, real_op),
+ opcode("SUP", 11, 999, 3, 3, 5, 4, real_op),
+ opcode("SXA", 51, 898, 0, 0, 0, 0, real_op),
+ opcode("SXB", 53, 898, 0, 0, 0, 0, real_op),
+ opcode("SXC", 59, 898, 0, 0, 0, 0, real_op),
+ opcode("TLU", 84, 999, 3, 3, 5, 6, real_op),
+ opcode("UFA", 2, 999, 3, 3, 23, 22, real_op),
+ opcode("WDS", 87, 998, 0, 0, 6, 6, real_op),
+ opcode("WR1", 71, 999, 0, 0, 0, 0, real_op),
+ opcode("WR2", 74, 999, 0, 0, 0, 0, real_op),
+ opcode("WR3", 77, 999, 0, 0, 0, 0, real_op),
+ opcode("WTA", 7, 998, 0, 0, 5, 5, real_op),
+ opcode("WTM", 56, 998, 0, 0, 5, 5, real_op),
+ opcode("WTN", 6, 998, 0, 0, 5, 5, real_op),
+#if 0
+ opcode("",12,Unused op,,,,,,,,
+ opcode("",13,Unused op,,,,,,,,
+ opcode("",62,Unused op,,,,,,,,
+ opcode("",63,Unused op,,,,,,,,
+#endif
+ // symbolic op aliases
+ opcode("RCD", "RD1"),
+ opcode("PCH", "WR1"),
+ opcode("BD0", "BDO"),
+
+ // pseudo ops
+ opcode("ALF", pseudo_alf, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("BLA", pseudo_bla, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("BLR", pseudo_blr, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("BOP", pseudo_bop, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("EQU", pseudo_equ, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("HED", pseudo_hed, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("PAT", pseudo_pat, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("RBR", pseudo_rbr, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("REG", pseudo_reg, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("REL", pseudo_rel, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("REQ", pseudo_req, 0, 0, 0, 0, 0, pseudo_op),
+ opcode("SYN", pseudo_syn, 0, 0, 0, 0, 0, pseudo_op),
+
+ opcode("FIN", 0, 0, 0, 0, 0, 0, final_op),
+};
+
+static opcode dummy_op("DUM", 0, 999, 5, 5, 5, 5, real_op);
+
+void soap2::init_opcodetab()
+{
+ // initialize opcode lookup by-symbol and by-opcode tables
+ opbycodetab.resize(100, &dummy_op);
+ for (int i=0; optab[i].type != final_op; i++) {
+ opcodetab[optab[i].op] = &optab[i];
+ if (optab[i].type == real_op)
+ opbycodetab[optab[i].code] = &optab[i];
+ }
+
+}
+
+soap2::soap2(int c, int f, istream &cds_in, ostream &cds_out, ostream &listing, istream &ck_deck)
+ : gsmap (2000, 0)
+ , input_deck (cds_in)
+ , output_deck (cds_out)
+ , listing (listing)
+ , check_deck (ck_deck)
+ , ibm_obj (2000)
+ , codec (c)
+ , flags (f)
+{
+ init_opcodetab();
+ if (flags & asmflag_k)
+ ibm_obj.load_7wd_deck(check_deck);
+ assemble();
+}
+
+void soap2::error_message(const string &msg)
+{
+ errors << cardnumber << ": " << msg << endl;
+}
+
+void soap2::assemble()
+{
+ char inbuf[102];
+ hed_char = ' ';
+ opt_addr = -1;
+ opt_gs = -1;
+ opt_ias = -1;
+ opt_800x = -1;
+ cardnumber = 0;
+ while (!input_deck.eof()) {
+ ++cardnumber;
+ input_deck.getline(&inbuf[0], 100);
+ src = inbuf;
+ src.resize(80, ' ');
+ assemble_statement();
+ }
+ if (!errors.str().empty()) {
+ cout << "Errors:" << endl;
+ cout << errors.str();
+ listing << endl << "Errors:" << endl;
+ listing << errors.str();
+ }
+ print_symtab(listing);
+ print_availtab(listing);
+ print_regiontab(listing);
+}
+
+void soap2::assemble_statement()
+{
+ // resets for new statement
+ asm_loc = 0;
+ asm_op = 0;
+ asm_d = 0;
+ asm_i = 0;
+ op = NULL;
+ blank_loc = false;
+ blank_op = false;
+ blank_d = false;
+ blank_i = false;
+ punch_800x = false;
+ bypass = false;
+
+ // break statement into assembler fields
+ src_type = src.substr(40, 1);
+ src_sign = src.substr(41, 1);
+ src_loc = src.substr(42, 5);
+ src_op = src.substr(47, 3);
+ src_d = src.substr(50, 5);
+ src_dtag = src.substr(55, 1);
+ src_i = src.substr(56, 5);
+ src_itag = src.substr(61, 1);
+ src_comm = src.substr(62, 10);
+ src_fcom = src.substr(42, 30);
+
+ // determine type and invoke processor
+ switch (src_type[0]) {
+ case ' ':
+ assemble_command();
+ punch_command(output_deck);
+ print_command(listing);
+ break;
+ case '1':
+ assemble_comment();
+ if (flags & asmflag_c)
+ punch_comment(output_deck);
+ print_comment(listing);
+ break;
+ case '2':
+ error_message("Relocatable statements no supported.");
+ //assemble_relocate();
+ break;
+ default:
+ error_message("Invalid statement type code");
+ break;
+ }
+}
+
+void soap2::assemble_command()
+{
+ process_op();
+ if (op) {
+ switch (op->type) {
+ case real_op:
+ assemble_realop();
+ break;
+ case pseudo_op:
+ assemble_pseudo();
+ break;
+ default:
+ error_message("Internal error, invalid op type");
+ break;
+ }
+ } else {
+ error_message("Invalid opcode");
+ }
+}
+
+void soap2::punch_command(ostream &os)
+{
+ if (op) {
+ if ((op->type == real_op) || (op->code == pseudo_alf)) {
+ if (punch_800x && (flags & asmflag_e)) {
+ os << zone_y('6') << "91954800" << zone_y('0')
+ << " "
+ << setfill('0') << setw(4) << dec << (cardnumber % 10000)
+ << "24" << setfill('0') << setw(4) << dec << asm_loc
+ << "800" << zone_y('0')
+ << setfill('0') << setw(2) << dec << asm_op
+ << setfill('0') << setw(4) << dec << asm_d
+ << setfill('0') << setw(3) << dec << (asm_i / 10)
+ << ((src_sign == " ")? zone_y(asm_i % 10 + '0')
+ : zone_x(asm_i % 10 + '0'))
+ << src_type
+ << ((src_sign == " ")? ' ' : '-')
+ << src_fcom
+ << " " << '-' << " "
+ << endl;
+ } else {
+ os << zone_y('6') << "91954195" << zone_y('3')
+ << " "
+ << setfill('0') << setw(4) << dec << (cardnumber % 10000)
+ << "24" << setfill('0') << setw(4) << dec << asm_loc
+ << "800" << zone_y('0')
+ << setfill('0') << setw(2) << dec << asm_op
+ << setfill('0') << setw(4) << dec << asm_d
+ << setfill('0') << setw(3) << dec << (asm_i / 10)
+ << ((src_sign == " ")? zone_y(asm_i % 10 + '0')
+ : zone_x(asm_i % 10 + '0'))
+ << src_type
+ << ((src_sign == " ")? ' ' : '-')
+ << src_fcom
+ << " "
+ << endl;
+ }
+ } else if ((op->type == pseudo_op) && (flags & asmflag_p)) {
+ os << zone_y('0') << "00000800" << zone_y('0')
+ << " "
+ << setfill('0') << setw(4) << dec << (cardnumber % 10000)
+ << " "
+ << src_type
+ << ((src_sign == " ")? ' ' : '-')
+ << src_fcom
+ << "9 "
+ << endl;
+ }
+ }
+}
+
+void soap2::print_command(ostream &os)
+{
+ if (op) {
+ if ((op->type == real_op) || (op->code == pseudo_alf)) {
+ os << dec << setfill(' ') << setw(4) << cardnumber << ": "
+ << src_loc
+ << ' ' << src_op
+ << ' ' << src_d << src_dtag
+ << ' ' << src_i << src_itag
+ << ' ' << src_comm << " "
+ << dec << setfill(' ') << setw(4) << asm_loc << ": "
+ << setfill('0') << setw(2) << asm_op
+ << ' ' << setw(4) << asm_d
+ << ' ' << setw(4) << asm_i;
+ check_obj(os);
+ os << endl;
+ } else if (op->type == pseudo_op) {
+ os << setfill(' ') << setw(4) << dec << cardnumber
+ << ": "
+ << src_loc
+ << ' ' << src_op
+ << ' ' << src_d << src_dtag
+ << ' ' << src_i << src_itag
+ << ' ' << src_comm
+ << endl;
+ }
+ }
+}
+
+void soap2::assemble_comment()
+{
+}
+
+void soap2::punch_comment(ostream &os)
+{
+ os << zone_y('0') << "00000800" << zone_y('0')
+ << " "
+ << setfill('0') << setw(4) << dec << (cardnumber % 10000)
+ << " "
+ << src_type
+ << ((src_sign == " ")? ' ' : '-')
+ << src_fcom
+ << "9" << " "
+ << endl;
+}
+
+void soap2::print_comment(ostream &os)
+{
+ os << setfill(' ') << setw(4) << dec << cardnumber
+ << ": "
+ << src_fcom
+ << endl;
+}
+
+void soap2::assemble_relocate()
+{
+}
+
+void soap2::assemble_realop()
+{
+ process_loc();
+ process_d();
+ process_i();
+}
+
+void soap2::assemble_pseudo()
+{
+ asmfield d(src_d, ' ');
+ asmfield i(src_i, ' ');
+ switch (op->code) {
+ case pseudo_alf:
+ process_loc();
+ asm_op = ascii_to_650(src_d[0]);
+ asm_d = ascii_to_650(src_d[1]) * 100 + ascii_to_650(src_d[2]);
+ asm_i = ascii_to_650(src_d[3]) * 100 + ascii_to_650(src_d[4]);
+ if ((src_i) == " ")
+ src_i = "SOAP2";
+ break;
+
+ case pseudo_bla:
+ if (d.type == field_numeric) {
+ if (i.type == field_numeric) {
+ if (gsmap.isvalid(d.nval, i.nval - d.nval + 1))
+ gsmap.unreserve(d.nval, i.nval - d.nval + 1);
+ else
+ error_message("Invalid address range");
+ } else {
+ error_message("Invalid I field");
+ }
+ } else {
+ error_message("Invalid D field");
+ }
+ break;
+
+ case pseudo_blr:
+ if (d.type == field_numeric) {
+ if (i.type == field_numeric) {
+ if (gsmap.isvalid(d.nval, i.nval - d.nval + 1))
+ gsmap.reserve(d.nval, i.nval - d.nval + 1);
+ else
+ error_message("Invalid address range");
+ } else {
+ error_message("Invalid I field");
+ }
+ } else {
+ error_message("Invalid D field");
+ }
+ break;
+
+ case pseudo_bop:
+ error_message("BOP not supported");
+ break;
+
+ case pseudo_syn:
+ case pseudo_equ: {
+ int32_t eaddr = -1;
+ switch (i.type) {
+ case field_numeric:
+ eaddr = i.nval;
+ break;
+
+ case field_region: {
+ regiter ri = regiontab.find(i.region);
+ if (ri == regiontab.end()) {
+ error_message("Region not defined");
+ bypass = true;
+ } else {
+ eaddr = ri->second->start + i.nval;
+ }
+ }
+ break;
+
+ case field_symbolic: {
+ symiter si = symboltab.find(i.symbol);
+ if (si == symboltab.end()) {
+ error_message("Symbol not defined");
+ bypass = true;
+ } else {
+ eaddr = si->second->location;
+ si->second->add_ref(cardnumber);
+ }
+ }
+ break;
+
+ case field_blank:
+ error_message("I field may not be blank");
+ bypass = true;
+ break;
+
+ case field_error:
+ error_message("Invalid I field");
+ bypass = true;
+ break;
+
+ default:
+ error_message("Internal error: unknown field code");
+ bypass = true;
+ break;
+ }
+ if (!bypass) {
+ if (d.type != field_symbolic) {
+ error_message("D field must be a symbol");
+ bypass = true;
+ } else {
+ symboltab[d.symbol] = new symbol(d.symbol, eaddr, cardnumber);
+ if (op->code == pseudo_syn)
+ gsmap.reserve(eaddr);
+ }
+ }
+ }
+ break;
+
+ case pseudo_hed:
+ hed_char = src_d[0];
+ break;
+
+ case pseudo_pat:
+ print_availtab(cout);
+ //error_message("PAT not supported");
+ break;
+
+ case pseudo_rbr:
+ error_message("RBR not supported");
+ break;
+
+ case pseudo_reg:
+ switch (d.type) {
+ case field_numeric:
+ case field_region:
+ switch (i.type) {
+ case field_numeric:
+ if (d.type == field_region) {
+ regiter ri = regiontab.find(d.region);
+ if (ri == regiontab.end()) {
+ regiontab[d.region] = new region(d.region, d.nval);
+ } else {
+ ri->second->start = d.nval;
+ }
+ }
+ if (d.nval < i.nval)
+ gsmap.reserve(d.nval, i.nval - d.nval + 1);
+ break;
+ default:
+ error_message("Invalid I field");
+ break;
+ }
+ break;
+ default:
+ error_message("Invalid D field");
+ break;
+ }
+ break;
+
+ case pseudo_rel:
+ error_message("REL not supported");
+ break;
+
+ case pseudo_req:
+ error_message("REQ not supported");
+ break;
+
+ default:
+ error_message("Internal error, invalid pseudo op");
+ break;
+ }
+}
+
+void soap2::check_obj(ostream &os)
+{
+ if (((op->type == real_op) && !punch_800x) || (op->code == pseudo_alf)) {
+ int64_t v = asm_op * 100000000LL + asm_d * 10000 + asm_i;
+ if ((v != ibm_obj[asm_loc].value()) || ((src_sign == " ") && ibm_obj[asm_loc].sign())) {
+ int64_t ov = ibm_obj[asm_loc].value();
+ os << " : " << setfill('0') << setw(2) << ov / 100000000LL
+ << ' ' << setw(4) << ov / 10000 % 10000
+ << ' ' << setw(4) << ov % 10000;
+ }
+ }
+}
+
+struct opt_deltas {
+ int even;
+ int odd;
+
+ opt_deltas(int even, int odd) : even(even), odd(odd) {}
+ opt_deltas() : even(0), odd(0) {}
+};
+
+static opt_deltas shift_deltas[] = {
+ opt_deltas(23, 22),
+ opt_deltas( 7, 6),
+ opt_deltas( 7, 6),
+ opt_deltas( 9, 8),
+ opt_deltas(11, 10),
+ opt_deltas(13, 12),
+ opt_deltas(15, 14),
+ opt_deltas(17, 16),
+ opt_deltas(19, 18),
+ opt_deltas(21, 20)
+};
+
+static opt_deltas srd_deltas[] = {
+ opt_deltas(25, 24),
+ opt_deltas( 7, 6),
+ opt_deltas( 9, 8),
+ opt_deltas(11, 10),
+ opt_deltas(13, 12),
+ opt_deltas(15, 14),
+ opt_deltas(17, 16),
+ opt_deltas(19, 18),
+ opt_deltas(21, 20),
+ opt_deltas(23, 22)
+};
+
+u_int32_t soap2::find_optimal_wt(opt_type ot)
+{
+ opt_deltas deltas;
+
+ if (opt_addr < 0) {
+ return 0;
+ }
+ if (opt_i == ot) {
+ deltas = opt_deltas(op->i_even, op->i_odd);
+ if (op->opt_B()) {
+ int scount = asm_d % 10;
+ deltas = (op->opt_A())? srd_deltas[scount] : shift_deltas[scount];
+ } else if (op->opt_A()) {
+ if (asm_d <= 1999) deltas = opt_deltas( 6, 6);
+ else if (asm_d <= 7999) deltas = opt_deltas( 6, 6);
+ else if (asm_d == 8000) deltas = opt_deltas( 8, 8);
+ else if (asm_d == 8001) deltas = opt_deltas( 6, 6);
+ else if (asm_d == 8002) deltas = opt_deltas( 9, 8);
+ else if (asm_d == 8003) deltas = opt_deltas( 8, 9);
+ else if (asm_d <= 9059) deltas = opt_deltas( 8, 8);
+ else deltas = opt_deltas( 9, 9);
+
+ }
+ } else {
+ deltas = opt_deltas(op->d_even, op->d_odd);
+ }
+ int delta = (opt_addr & 1)? deltas.odd : deltas.even;
+ return (opt_addr + delta) % 50;
+}
+
+u_int32_t soap2::find_optimal_800x(opt_type ot, u_int32_t opa)
+{
+ u_int32_t opta = find_optimal_wt(ot);
+ if (8002 == opa) {
+ if ((opta & 1)) opta++;
+ } else if (8003 == opa) {
+ if (!(opta & 1)) opta++;
+ }
+ return opta % 50;
+}
+
+void soap2::process_loc_addr()
+{
+ switch (get_addr_type(asm_loc)) {
+ case addr_gs:
+ opt_addr = asm_loc;
+ break;
+
+ case addr_800X:
+ opt_addr = opt_800x;
+ punch_800x = true;
+ break;
+
+ case addr_ias:
+ opt_addr = opt_ias;
+ break;
+
+ case addr_invalid:
+ error_message("Invalid location address");
+ blank_loc = true;
+ break;
+
+ default:
+ break;
+ }
+}
+
+void soap2::process_loc()
+{
+ asmfield field(src_loc, hed_char);
+ switch (field.type) {
+ case field_blank:
+ if (opt_addr < 0) {
+ error_message("Cannot assign location, optimal address invalid");
+ blank_loc = true;
+ } else {
+ asm_loc = opt_addr;
+ }
+ break;
+
+ case field_symbolic: {
+ symiter symi = symboltab.find(field.symbol);
+ if (symi == symboltab.end()) {
+ int32_t oaddr = gsmap.optimum(0);
+ if (oaddr < 0) {
+ error_message("General storage packed");
+ blank_loc = true;
+ } else {
+ symboltab[field.symbol] = new symbol(field.symbol, oaddr, cardnumber);
+ opt_addr = oaddr;
+ asm_loc = oaddr;
+ }
+ } else {
+ asm_loc = symi->second->location;
+ symi->second->add_ref(cardnumber);
+ process_loc_addr();
+ }
+ }
+ break;
+ case field_numeric:
+ asm_loc = field.nval;
+ process_loc_addr();
+ break;
+
+ case field_region: {
+ regiter regi = regiontab.find(field.region);
+ if (regi == regiontab.end()) {
+ error_message("Undefined region");
+ blank_loc = true;
+ } else {
+ asm_loc = field.nval - 1 + regi->second->start;
+ process_loc_addr();
+ }
+ }
+ break;
+
+ case field_error:
+ error_message("Invalid location field");
+ blank_loc = true;
+ break;
+
+ default:
+ error_message("Internal error: processing location");
+ blank_loc = true;
+ break;
+ }
+}
+
+void soap2::process_op()
+{
+ op = NULL;
+ if (src_op[0] == ' ') {
+ bool numeric = true;
+ for (int i = 1; i < 3; i++)
+ if (!isdigit(src_op[i]))
+ numeric = false;
+ if (numeric) {
+ int opcode = stoi(src_op.substr(1, 2));
+ op = opbycodetab[opcode];
+ asm_op = opcode;
+ return;
+ } else {
+ error_message("Malformed opcode");
+ blank_op = true;
+ return;
+ }
+ }
+ opiter oi = opcodetab.find(src_op);
+ if (oi != opcodetab.end()) {
+ if (oi->second->type == alias_op) {
+ oi = opcodetab.find(oi->second->alias);
+ if (oi == opcodetab.end()) {
+ error_message("Internal error: opcode alias not found");
+ blank_op = true;
+ return;
+ }
+ }
+ op = oi->second;
+ asm_op = op->code;
+ } else {
+ error_message("Invalid symbolic opcode");
+ op = &dummy_op;
+ blank_op = true;
+ }
+}
+
+void soap2::process_d_addr()
+{
+ switch (get_addr_type(asm_d)) {
+ case addr_gs:
+ // todo: index
+ if (!op->opt_C())
+ opt_addr = asm_d;
+ break;
+
+ case addr_800X:
+ opt_800x = find_optimal_800x(opt_d, asm_d);
+ opt_addr = opt_800x;
+ break;
+
+ case addr_ias:
+ // todo: index
+ opt_ias = find_optimal_wt(opt_d);
+ if (!op->opt_C())
+ opt_addr = asm_d;
+ break;
+
+ case addr_invalid:
+ if (!op->opt_C())
+ opt_addr = asm_d;
+ break;
+
+ default:
+ error_message("Internal error: processing D field");
+ blank_d = true;
+ break;
+ }
+}
+
+void soap2::process_d()
+{
+ asmfield field(src_d, hed_char);
+ switch (field.type) {
+ case field_blank: {
+ int32_t oaddr = gsmap.optimum(find_optimal_wt(opt_d));
+ if (oaddr < 0) {
+ error_message("General storage packed");
+ blank_d = true;
+ } else {
+ opt_b = oaddr;
+ asm_d = oaddr;
+ if (!op->opt_C())
+ opt_addr = oaddr;
+ }
+ }
+ break;
+
+ case field_numeric:
+ asm_d = field.nval;
+ process_d_addr();
+ break;
+
+ case field_symbolic: {
+ symiter symi = symboltab.find(field.symbol);
+ if (symi == symboltab.end()) {
+ int32_t oaddr = gsmap.optimum(find_optimal_wt(opt_d));
+ if (oaddr < 0) {
+ error_message("General storage packed");
+ blank_d = true;
+ } else {
+ symboltab[field.symbol] = new symbol(field.symbol, oaddr, cardnumber);
+ asm_d = oaddr;
+ if (!op->opt_C())
+ opt_addr = oaddr;
+ }
+ } else {
+ asm_d = symi->second->location;
+ symi->second->add_ref(cardnumber);
+ process_d_addr();
+ }
+ }
+ break;
+
+ case field_region: {
+ regiter regi = regiontab.find(field.region);
+ if (regi == regiontab.end()) {
+ error_message("Undefined region");
+ blank_d = true;
+ } else {
+ asm_d = field.nval - 1 + regi->second->start;
+ process_d_addr();
+ }
+ }
+ break;
+
+ case field_error:
+ error_message("Invalid D field");
+ blank_loc = true;
+ break;
+
+ default:
+ error_message("Internal error: processing D field");
+ blank_loc = true;
+ break;
+ }
+}
+
+void soap2::process_i_addr()
+{
+ switch (get_addr_type(asm_i)) {
+ case addr_gs:
+ // todo: index
+ break;
+
+ case addr_800X: {
+ opt_800x = find_optimal_800x(opt_i, asm_i);
+ break;
+ }
+ case addr_ias:
+ // todo: index
+ opt_ias = find_optimal_wt(opt_i);
+ break;
+
+ case addr_invalid:
+ break;
+
+ default:
+ error_message("Internal error: processing I field");
+ blank_i = true;
+ break;
+ }
+ opt_addr = opt_b;
+}
+
+void soap2::process_i()
+{
+ asmfield field(src_i, hed_char);
+ asmfield field_d(src_d, hed_char);
+ switch (field.type) {
+ case field_blank:
+ if (field_blank == field_d.type) {
+ if (gsmap.isfull()) {
+ blank_i = true;
+ } else {
+ asm_i = opt_b;
+ opt_addr = opt_b;
+ }
+ } else {
+ int32_t oaddr = gsmap.optimum(find_optimal_wt(opt_i));
+ if (oaddr < 0) {
+ error_message("General storage packed");
+ blank_i = true;
+ } else {
+ opt_b = oaddr;
+ asm_i = oaddr;
+ opt_addr = oaddr;
+ }
+ }
+ break;
+
+ case field_numeric:
+ asm_i = field.nval;
+ process_i_addr();
+ break;
+
+ case field_symbolic: {
+ symiter symi = symboltab.find(field.symbol);
+ if (symi == symboltab.end()) {
+ int32_t oaddr = gsmap.optimum(find_optimal_wt(opt_i));
+ if (oaddr < 0) {
+ error_message("General storage packed");
+ blank_i = true;
+ } else {
+ symboltab[field.symbol] = new symbol(field.symbol, oaddr, cardnumber);
+ asm_i = oaddr;
+ opt_addr = opt_b;
+ }
+ } else {
+ asm_i = symi->second->location;
+ symi->second->add_ref(cardnumber);
+ process_i_addr();
+ }
+ }
+ break;
+
+ case field_region: {
+ regiter regi = regiontab.find(field.region);
+ if (regi == regiontab.end()) {
+ error_message("Undefined region");
+ blank_i = true;
+ } else {
+ asm_i = field.nval - 1 + regi->second->start;
+ process_i_addr();
+ }
+ }
+ break;
+
+ case field_error:
+ error_message("Invalid I field");
+ blank_loc = true;
+ break;
+
+ default:
+ error_message("Internal error: processing I field");
+ blank_loc = true;
+ break;
+ }
+}
+
+void soap2::print_symtab(ostream &sout)
+{
+ sout << endl << "Symbol Table:" << endl;
+ symiter siter;
+ for (siter = symboltab.begin(); siter != symboltab.end(); siter++) {
+ sout << siter->first << ": " << setfill(' ') << setw(4) << dec << siter->second->location;
+ int rctr = 0;
+ for (int ref : siter->second->ref_line) {
+ if (0 == (++rctr % 20)) sout << endl << " ";
+ sout << " " << setfill(' ') << setw(4) << dec << ref;
+ }
+ sout << endl;
+ }
+}
+
+void memmap::print_availtab(ostream &sout)
+{
+ sout << endl << "Availability Table:" << endl;
+ for (int i = 0; i < size; i++) {
+ sout.width(4);
+ if (0 == i % 50) sout << endl << i << ":";
+ sout.width(1);
+ if (0 == i % 10) sout << " ";
+ sout << ((allocmap[i])? '1' : '0');
+ }
+ sout << endl;
+ for (int i = 0; i < 50; i++) {
+ sout << setw(2) << i << ':';
+ int addr = i;
+ int ctr = 0;
+ while (addr < size) {
+ if (0 == allocmap[addr]) {
+ if (ctr == 20) {
+ sout << endl << " ";
+ ctr = 0;
+ }
+ sout << ' ' << setw(4) << addr;
+ ctr++;
+ }
+ addr += 50;
+ }
+ sout << endl;
+ }
+}
+
+void soap2::print_availtab(ostream &sout)
+{
+ gsmap.print_availtab(sout);
+}
+
+void soap2::print_regiontab(ostream &sout)
+{
+ sout << endl << "Region Table:" << endl;
+ for (regiter riter = regiontab.begin(); riter != regiontab.end(); riter++) {
+ sout << riter->first << ": " << riter->second->start << endl;
+ }
+}
Index: trunk/utils/ibm650_soap2/ibm650_soap2/main.cpp
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/main.cpp (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/main.cpp (revision 29)
@@ -0,0 +1,141 @@
+//////////////////////////////////////////////////////////////////////////////////
+// IBM 650 Reconstruction in Verilog (i650)
+//
+// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
+// http:////www.opencores.org/project,i650
+//
+// Description: An implementation of SOAP 2 for the IBM 650.
+//
+// Additional Comments: .
+//
+// Copyright (c) 2015 Robert Abeles
+//
+// This source file is free software; you can redistribute it
+// and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation;
+// either version 2.1 of the License, or (at your option) any
+// later version.
+//
+// This source is distributed in the hope that it will be
+// useful, but WITHOUT ANY WARRANTY; without even the implied
+// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+// PURPOSE. See the GNU Lesser General Public License for more
+// details.
+//
+// You should have received a copy of the GNU Lesser General
+// Public License along with this source; if not, download it
+// from http://www.opencores.org/lgpl.shtml
+//////////////////////////////////////////////////////////////////////////////////
+
+#include
+#include "soap2.h"
+
+static void usage() {
+ cout << "Usage: ibm650_soap2 [options] source_file" << endl;
+ cout << "Options" << endl;
+ cout << " -h, --help Print this message and exit." << endl;
+ cout << " -c, --punch_comments Punches comment cards." << endl;
+ cout << " -e, --punch_800x Punches 800x cards." << endl;
+ cout << " -p, --punch_pseudo Punches pseudo op cards." << endl;
+ cout << " -k, --check_object Compare generated object to 7-word deck." << endl;
+}
+
+int main(int argc, char *argv[]) {
+ ifstream file_source, file_check;
+ ofstream file_list, file_obj;
+ string name_prefix, name_source, name_list, name_obj, name_check;
+ int ch;
+ int help_flag = 0;
+ int err_flag = 0;
+ int flags = 0;
+
+ static struct option longopts[] = {
+ { "help", no_argument, NULL, 'h' },
+ { "punch_comments", no_argument, NULL, 'c' },
+ { "punch_800x", no_argument, NULL, 'e' },
+ { "punch_pseudo", no_argument, NULL, 'p' },
+ { "check_object", no_argument, NULL, 'k' },
+ { NULL, 0, NULL, 0 }
+ };
+
+ while ((ch = ::getopt_long(argc, argv, "hcepk", longopts, NULL)) != -1)
+ switch (ch) {
+ case 'h':
+ help_flag = 1;
+ break;
+ case 'c':
+ flags |= asmflag_c;
+ break;
+ case 'e':
+ flags |= asmflag_e;
+ break;
+ case 'p':
+ flags |= asmflag_p;
+ break;
+ case 'k':
+ flags |= asmflag_k;
+ break;
+ default:
+ err_flag = 1;
+ break;
+ }
+ argc -= optind;
+ argv += optind;
+ if (argc == 0) {
+ cout << "Error: Missing source_file." << endl;
+ err_flag = 1;
+ }
+ if (argc > 1) {
+ cout << "Error: Extraneous argument(s)." << endl;
+ err_flag = 1;
+ }
+ if (err_flag) {
+ usage();
+ return -1;
+ }
+ if (help_flag) {
+ usage();
+ return 0;
+ }
+ name_source = argv[0];
+ if (string::npos != name_source.rfind('.')) {
+ name_prefix = name_source.substr(0, name_source.rfind('.'));
+ if (name_prefix.empty()) {
+ cout << "Error: Malformed source_file." << endl;
+ err_flag = 1;
+ }
+ } else {
+ name_prefix = name_source;
+ }
+ name_list = name_prefix + ".listing";
+ name_obj = name_prefix + ".obj";
+ name_check= name_prefix + ".7wd";
+ file_source.open(name_source);
+ if (!file_source) {
+ cout << "Error: Unable to open source_file." << endl;
+ err_flag = 1;
+ }
+ file_list.open(name_list);
+ if (!file_list) {
+ cout << "Error: Unable to open list_file." << endl;
+ err_flag = 1;
+ }
+ file_obj.open(name_obj);
+ if (!file_obj) {
+ cout << "Error: Unable to open obj_file." << endl;
+ err_flag = 1;
+ }
+ if (flags & asmflag_k) {
+ file_check.open(name_check);
+ if (!file_check) {
+ cout << "Error: Unable to open check_file." << endl;
+ err_flag = 1;
+ }
+ }
+ if (err_flag) {
+ usage();
+ return -1;
+ }
+ soap2 myasm(cs_bcd48+cs_bcd48_f, flags, file_source, file_obj, file_list, file_check);
+ return 0;
+}
Index: trunk/utils/ibm650_soap2/ibm650_soap2/ibm_codec.cpp
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/ibm_codec.cpp (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/ibm_codec.cpp (revision 29)
@@ -0,0 +1,342 @@
+//////////////////////////////////////////////////////////////////////////////////
+// IBM 650 Reconstruction in Verilog (i650)
+//
+// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
+// http:////www.opencores.org/project,i650
+//
+// Description: An implementation of SOAP 2 for the IBM 650.
+//
+// Additional Comments: .
+//
+// Copyright (c) 2015 Robert Abeles
+//
+// This source file is free software; you can redistribute it
+// and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation;
+// either version 2.1 of the License, or (at your option) any
+// later version.
+//
+// This source is distributed in the hope that it will be
+// useful, but WITHOUT ANY WARRANTY; without even the implied
+// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+// PURPOSE. See the GNU Lesser General Public License for more
+// details.
+//
+// You should have received a copy of the GNU Lesser General
+// Public License along with this source; if not, download it
+// from http://www.opencores.org/lgpl.shtml
+//////////////////////////////////////////////////////////////////////////////////
+
+#include "ibm_codec.h"
+#include
+#include
+
+using namespace std;
+
+// -------------------------------------------------------------------------
+// Hollerith zone and digit punches.
+// -------------------------------------------------------------------------
+enum holl_zn {
+ holl_znone,
+ holl_z0,
+ holl_z11, // aka X punch
+ holl_z12 // aka Y punch
+};
+enum holl_dig {
+ holl_dnone,
+ holl_d0,
+ holl_d1,
+ holl_d2,
+ holl_d3,
+ holl_d4,
+ holl_d5,
+ holl_d6,
+ holl_d7,
+ holl_d8,
+ holl_d9,
+ holl_d8_2,
+ holl_d8_3,
+ holl_d8_4,
+ holl_d8_5,
+ holl_d8_6,
+ holl_d8_7
+};
+
+// -------------------------------------------------------------------------
+// Glyph specification.
+// -------------------------------------------------------------------------
+struct glyph_spec {
+ holl_zn zone;
+ holl_dig digit;
+ int unicode;
+ int ascii;
+ int keycode; // Qt keycode
+ int code650;
+ int bcd704;
+ int bcd705;
+ int codeset;
+};
+
+// -------------------------------------------------------------------------
+// Not all BCD characters have readily available keyboard equivalents.
+// To these characters, we assign a modifier plus an alphabetic key.
+// When the keycode field is not negative, it contains the unmodified
+// keycode of the alphabetic key that when entered with a platform-
+// pecific modifier key will enter the unavailable code. For example,
+// pressing alt-R on a Mac will enter the unicode 'square root' character.
+// Pressing the modifier key with a digit, '-', or '=' key will act
+// as a multipunch, where '-' is an 11 punch and '=' is a 12 punch.
+//
+// The special characters in the final group, shown below, have
+// several alternate encodings, designated by IBM as special character
+// arrangements A through K. Encodings A, F and H are implemented above.
+//
+// A - &.^-$*,%/#@
+// B - /.^-$*,%&#@
+// C - &.^-$*,%0#@
+// D - -.^-$*,%/#@
+// E - -.<./*,%&#>
+// F - +.)-$*,(/=-
+// G - +.^-$*,%/+-
+// H - +.)-$*,(/='
+// J - +.^-$*,%/#@
+// K - +.)-$*,(/=@
+//
+// In addition to the standard 48 BCD encodings shown above, the 705
+// uses 6 additional encodings, 4 for marks (tape mark, record mark,
+// group mark, storage and drum mark), and 2 encodings for signed zeroes
+// (plus zero, minus zero).
+//
+// A word about marks. Some of the BCD character codes have special meaning to
+// early IBM business computers. The 702 and its successor machines (705, 7070)
+// were 'character oriented', i.e., they operated on variable length BCD character
+// strings. Mark characters ('tape mark', 'record mark', 'group mark',
+// 'segment mark', and 'word separator') served to delineate variable length
+// objects on tape and in memory.
+//
+// In fact, a six bit character can have 64 unique values. The remaining
+// unused BCD character codes were assigned by subsequent machines until
+// all possible codes were accounted for. Mappings between BCD and Hollerith
+// remain stable across the IBM product line, but glyph assignment differs
+// between systems, options, and RPQs.
+// -------------------------------------------------------------------------
+#define A48 cs_bcd48_a
+#define F48 cs_bcd48_f
+#define H48 cs_bcd48_h
+#define BCD48 cs_bcd48
+#define BCD64 cs_bcd64
+
+static glyph_spec glyph_codes[] = {
+// zone digit unicode ascii keycd 650 704 14xx codeset(s)
+// BCD BCD BCD
+ {holl_znone, holl_dnone, ' ', ' ', -1, 00, 060, 000, BCD48},
+ {holl_znone, holl_d0, '0', '0', -1, 90, 000, 012, BCD48},
+ {holl_znone, holl_d1, '1', '1', -1, 91, 001, 001, BCD48},
+ {holl_znone, holl_d2, '2', '2', -1, 92, 002, 002, BCD48},
+ {holl_znone, holl_d3, '3', '3', -1, 93, 003, 003, BCD48},
+ {holl_znone, holl_d4, '4', '4', -1, 94, 004, 004, BCD48},
+ {holl_znone, holl_d5, '5', '5', -1, 95, 005, 005, BCD48},
+ {holl_znone, holl_d6, '6', '6', -1, 96, 006, 006, BCD48},
+ {holl_znone, holl_d7, '7', '7', -1, 97, 007, 007, BCD48},
+ {holl_znone, holl_d8, '8', '8', -1, 98, 010, 010, BCD48},
+ {holl_znone, holl_d9, '9', '9', -1, 99, 011, 011, BCD48},
+
+ {holl_z12, holl_d0, '?', '?', -1, -1, 032, 072, BCD64}, // plus zero
+ {holl_z12, holl_d1, 'A', 'A', -1, 61, 021, 061, BCD48},
+ {holl_z12, holl_d2, 'B', 'B', -1, 62, 022, 062, BCD48},
+ {holl_z12, holl_d3, 'C', 'C', -1, 63, 023, 063, BCD48},
+ {holl_z12, holl_d4, 'D', 'D', -1, 64, 024, 064, BCD48},
+ {holl_z12, holl_d5, 'E', 'E', -1, 65, 025, 065, BCD48},
+ {holl_z12, holl_d6, 'F', 'F', -1, 66, 026, 066, BCD48},
+ {holl_z12, holl_d7, 'G', 'G', -1, 67, 027, 067, BCD48},
+ {holl_z12, holl_d8, 'H', 'H', -1, 68, 030, 070, BCD48},
+ {holl_z12, holl_d9, 'I', 'I', -1, 69, 031, 071, BCD48},
+
+ {holl_z11, holl_d0, '!', '!', -1, -1, 052, 052, BCD64}, // minus zero
+ {holl_z11, holl_d1, 'J', 'J', -1, 71, 041, 041, BCD48},
+ {holl_z11, holl_d2, 'K', 'K', -1, 72, 042, 042, BCD48},
+ {holl_z11, holl_d3, 'L', 'L', -1, 73, 043, 043, BCD48},
+ {holl_z11, holl_d4, 'M', 'M', -1, 74, 044, 044, BCD48},
+ {holl_z11, holl_d5, 'N', 'N', -1, 75, 045, 045, BCD48},
+ {holl_z11, holl_d6, 'O', 'O', -1, 76, 046, 046, BCD48},
+ {holl_z11, holl_d7, 'P', 'P', -1, 77, 047, 047, BCD48},
+ {holl_z11, holl_d8, 'Q', 'Q', -1, 78, 050, 050, BCD48},
+ {holl_z11, holl_d9, 'R', 'R', -1, 79, 051, 051, BCD48},
+
+ {holl_z0, holl_d1, '/', '/', -1, 31, 061, 021, A48+F48+H48},
+ {holl_z0, holl_d2, 'S', 'S', -1, 82, 062, 022, BCD48},
+ {holl_z0, holl_d3, 'T', 'T', -1, 83, 063, 023, BCD48},
+ {holl_z0, holl_d4, 'U', 'U', -1, 84, 064, 024, BCD48},
+ {holl_z0, holl_d5, 'V', 'V', -1, 85, 065, 025, BCD48},
+ {holl_z0, holl_d6, 'W', 'W', -1, 86, 066, 026, BCD48},
+ {holl_z0, holl_d7, 'X', 'X', -1, 87, 067, 027, BCD48},
+ {holl_z0, holl_d8, 'Y', 'Y', -1, 88, 070, 030, BCD48},
+ {holl_z0, holl_d9, 'Z', 'Z', -1, 89, 071, 031, BCD48},
+
+ {holl_z12, holl_dnone, '&', '&', -1, 20, 020, 060, A48},
+ {holl_z12, holl_dnone, '+', '+', -1, 20, 020, 060, F48+H48},
+ {holl_z12, holl_d8_3, '.', '.', -1, 18, 033, 073, A48+F48+H48},
+ {holl_z12, holl_d8_4, L'⌑', '^', 'L', 19, 034, 074, A48}, // unicode 'square lozenge'
+ {holl_z12, holl_d8_4, ')', ')', -1, 19, 034, 074, F48+H48},
+ {holl_z12, holl_d8_5, '[', '[', -1, -1, 035, 075, BCD64},
+ {holl_z12, holl_d8_6, '<', '<', -1, -1, 036, 076, BCD64},
+ {holl_z12, holl_d8_7,L'\uF000', -1, 'G', -1, 037, 077, BCD64}, // group mark, use uF000 for triple dagger
+
+ {holl_z11, holl_dnone, '-', '-', -1, 30, 040, 040, A48+F48+H48},
+ {holl_z11, holl_d8_3, '$', '$', -1, 28, 053, 053, A48+F48+H48},
+ {holl_z11, holl_d8_4, '*', '*', -1, 29, 054, 054, A48+F48+H48},
+ {holl_z11, holl_d8_5, ']', ']', -1, 29, 055, 055, BCD64},
+ {holl_z11, holl_d8_6, ';', ';', -1, 29, 056, 056, BCD64},
+ {holl_z11, holl_d8_7,L'\uF004', -1, 'D', 29, 057, 057, BCD64}, // delta -> unicode uppercase delta
+
+ {holl_z0, holl_d8_2, L'‡', -1, 'R', -1, 073, 033, BCD64}, // record mark -> double dagger
+ {holl_z0, holl_d8_3, ',', ',', -1, 38, 073, 033, A48+F48+H48},
+ {holl_z0, holl_d8_4, '%', '%', -1, 39, 074, 034, A48},
+ {holl_z0, holl_d8_4, '(', '(', -1, 39, 074, 034, F48+H48},
+ {holl_z0, holl_d8_5,L'\u2423', -1, 'W', -1, 075, 035, BCD64}, // word separator -> open box
+ {holl_z0, holl_d8_6, '\\', '\\', -1, -1, 076, 036, BCD64}, // left oblique
+ {holl_z0, holl_d8_7,L'\u29FB', -1, 'S', -1, 077, 037, BCD64}, // segment mark -> triple plus
+
+ {holl_znone, holl_d8_2,L'\u2422',' ', ' ', -1, 060, 020, BCD64}, // alternate blank
+ {holl_znone, holl_d8_3, '#', '#', -1, 48, 013, 013, A48},
+ {holl_znone, holl_d8_3, '=', '=', -1, 48, 013, 013, F48+H48},
+ {holl_znone, holl_d8_4, '@', '@', -1, 49, 014, 014, A48},
+ {holl_znone, holl_d8_4, '-', '-', -1, 49, 014, 014, F48}, // FORTRAN's other minus
+ {holl_znone, holl_d8_4, '\'', '\'', -1, 49, 014, 014, H48},
+ {holl_znone, holl_d8_5, ':', ':', -1, -1, 015, 015, BCD64}, // colon
+ {holl_znone, holl_d8_6, '>', '>', -1, -1, 016, 016, BCD64}, // greater than
+ {holl_znone, holl_d8_7, L'√', -1, 'T', -1, 017, 017, BCD64} // radical
+};
+
+static uint16_t make_holl(int z, int d)
+{
+ uint16_t h = 0;
+ switch (z) {
+ case holl_znone:
+ break;
+ case holl_z0:
+ h += (1 << 9);
+ break;
+ case holl_z11:
+ h += (1 << 10);
+ break;
+ case holl_z12:
+ h += (1 << 11);
+ break;
+ default:
+ break;
+ }
+ switch (d) {
+ case holl_dnone:
+ break;
+ case holl_d0:
+ h += (1 << 9);
+ break;
+ case holl_d1:
+ h += (1 << 8);
+ break;
+ case holl_d2:
+ h += (1 << 7);
+ break;
+ case holl_d3:
+ h += (1 << 6);
+ break;
+ case holl_d4:
+ h += (1 << 5);
+ break;
+ case holl_d5:
+ h += (1 << 4);
+ break;
+ case holl_d6:
+ h += (1 << 3);
+ break;
+ case holl_d7:
+ h += (1 << 2);
+ break;
+ case holl_d8:
+ h += (1 << 1);
+ break;
+ case holl_d9:
+ h += (1 << 0);
+ break;
+ case holl_d8_2:
+ h += (1 << 1) + (1 << 7);
+ break;
+ case holl_d8_3:
+ h += (1 << 1) + (1 << 6);
+ break;
+ case holl_d8_4:
+ h += (1 << 1) + (1 << 5);
+ break;
+ case holl_d8_5:
+ h += (1 << 1) + (1 << 4);
+ break;
+ case holl_d8_6:
+ h += (1 << 1) + (1 << 3);
+ break;
+ case holl_d8_7:
+ h += (1 << 1) + (1 << 2);
+ break;
+ default:
+ break;
+ }
+ return h;
+}
+
+void ibm_codec::setup_tables(int c) {
+ hollerith_to_code650_.resize(4096);
+ code650_to_hollerith_.resize(100);
+ hollerith_to_unicode_.resize(4096);
+ unicode_to_hollerith_.resize(65536);
+ hollerith_to_ascii_ .resize(4096);
+ ascii_to_hollerith_ .resize(256);
+ ascii_to_code650_ .resize(256);
+ code650_to_ascii_ .resize(100);
+ keycode_to_unicode_ .resize(256);
+
+ // mark all translations invalid (-1)
+ for (int i = 0; i < 65536; i++) {
+ unicode_to_hollerith_[i] = -1;
+ if (i < 4096) {
+ hollerith_to_code650_[i] = -1;
+ hollerith_to_unicode_[i] = -1;
+ hollerith_to_ascii_[i] = -1;
+ }
+ if (i < 256) {
+ ascii_to_code650_[i] = -1;
+ ascii_to_hollerith_[i] = -1;
+ keycode_to_unicode_[i] = -1;
+ }
+ if (i < 100) {
+ code650_to_hollerith_[i] = -1;
+ code650_to_ascii_[i] = -1;
+ }
+ }
+
+ // Fill in glyphs from table that are in the specified codeset(s).
+ // When multiple glyphs map to the same codepoint, the first
+ // glyph encoutered in the table occupying a codepoint takes
+ // precedence.
+ for (auto glyph : glyph_codes) {
+ if (!(glyph.codeset & c)) continue;
+ uint16_t hcode = make_holl(glyph.zone, glyph.digit);
+ if (hollerith_to_code650_[hcode] < 0)
+ hollerith_to_code650_[hcode] = glyph.code650;
+ if (code650_to_hollerith_[glyph.code650] < 0)
+ code650_to_hollerith_[glyph.code650] = hcode;
+ if (hollerith_to_unicode_[hcode] < 0)
+ hollerith_to_unicode_[hcode] = glyph.unicode;
+ if (unicode_to_hollerith_[glyph.unicode] < 0)
+ unicode_to_hollerith_[glyph.unicode] = hcode;
+ if (keycode_to_unicode_[glyph.keycode] < 0)
+ keycode_to_unicode_[glyph.keycode] = glyph.unicode;
+ if (hollerith_to_ascii_[hcode] < 0)
+ hollerith_to_ascii_[hcode] = glyph.ascii;
+ if (ascii_to_hollerith_[glyph.ascii] < 0)
+ ascii_to_hollerith_[glyph.ascii] = hcode;
+ if (ascii_to_code650_[glyph.ascii] < 0)
+ ascii_to_code650_[glyph.ascii] = glyph.code650;
+ if (code650_to_ascii_[glyph.code650] < 0)
+ code650_to_ascii_[glyph.code650] = glyph.ascii;
+ }
+}
Index: trunk/utils/ibm650_soap2/ibm650_soap2/soap2.h
===================================================================
--- trunk/utils/ibm650_soap2/ibm650_soap2/soap2.h (nonexistent)
+++ trunk/utils/ibm650_soap2/ibm650_soap2/soap2.h (revision 29)
@@ -0,0 +1,293 @@
+//////////////////////////////////////////////////////////////////////////////////
+// IBM 650 Reconstruction in Verilog (i650)
+//
+// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
+// http:////www.opencores.org/project,i650
+//
+// Description: An implementation of SOAP 2 for the IBM 650.
+//
+// Additional Comments: .
+//
+// Copyright (c) 2015 Robert Abeles
+//
+// This source file is free software; you can redistribute it
+// and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation;
+// either version 2.1 of the License, or (at your option) any
+// later version.
+//
+// This source is distributed in the hope that it will be
+// useful, but WITHOUT ANY WARRANTY; without even the implied
+// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+// PURPOSE. See the GNU Lesser General Public License for more
+// details.
+//
+// You should have received a copy of the GNU Lesser General
+// Public License along with this source; if not, download it
+// from http://www.opencores.org/lgpl.shtml
+//////////////////////////////////////////////////////////////////////////////////
+
+#ifndef ibm650_soap2_soap2_h
+#define ibm650_soap2_soap2_h
+
+#include
+#include
+#include
+#include
+#include
+#include
+#include
/trunk/rtl/arith_ctl.v
0,0 → 1,208
`timescale 1ns / 1ps |
////////////////////////////////////////////////////////////////////////////////// |
// IBM 650 Reconstruction in Verilog (i650) |
// |
// This file is part of the IBM 650 Reconstruction in Verilog (i650) project |
// http:////www.opencores.org/project,i650 |
// |
// Description: Arithmetic operation control. |
// |
// Additional Comments: See US 2959351, Fig. 85. |
// |
// Copyright (c) 2015 Robert Abeles |
// |
// This source file is free software; you can redistribute it |
// and/or modify it under the terms of the GNU Lesser General |
// Public License as published by the Free Software Foundation; |
// either version 2.1 of the License, or (at your option) any |
// later version. |
// |
// This source is distributed in the hope that it will be |
// useful, but WITHOUT ANY WARRANTY; without even the implied |
// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR |
// PURPOSE. See the GNU Lesser General Public License for more |
// details. |
// |
// You should have received a copy of the GNU Lesser General |
// Public License along with this source; if not, download it |
// from http://www.opencores.org/lgpl.shtml |
////////////////////////////////////////////////////////////////////////////////// |
`include "defines.v" |
|
module arith_ctl ( |
input rst, |
input ap, bp, cp, |
input dx, d0, d5, d9, dxl, d0l, d1l, |
input wu, |
|
input [0:6] adder_out, |
input man_acc_reset, overflow_stop, |
input prog_add_d0, |
input half_correct_sig, |
|
output end_of_operation, arith_restart_d5, zero_insert, carry_blank, |
no_carry_blank, carry_insert, no_carry_insert, |
output reg compl_adj, divide, multiply, acc_true_add, |
output reg half_correct, hc_add_5 |
); |
|
// registers to be defined: |
// reg compl_adj, divide, multiply; |
reg compl_result, end_mult_div, acc_compl_add, left_shift, shift_count, |
right_shift, dist_true; |
|
//----------------------------------------------------------------------------- |
// Special control circuits |
// |
// [88:70] Several special control circuits which are not associated with any |
// particular operation or group of operations are energized by the arithmetic |
// controls. |
// |
// These are: (1) Arithmetic operation and arithmetic restart. (2) Upper-lower |
// check (adder control gate). (3) Adder output zero insert control. (4) No |
// carry insert-carry blank and carry insert-no carry blank. (5) Accumulator |
// sign read-out. |
//----------------------------------------------------------------------------- |
|
//----------------------------------------------------------------------------- |
// Arithmetic operation and arithmetic restart |
// |
// [89:20] On arithmetic operations the restart signal is sent back to program |
// control shortly after the operation signal is received by arithmetic |
// control, before the operation is completed. This allows the control |
// commutator to advance on its "I" half cycle, find the next instruction and |
// begin its interpretation, concurrently with the performance of the operation |
// by arithmetic control. The control commutator's operation interlock will |
// prevent its advance beyond the point where there would be conflict between |
// the arithmetic operation in process and an operation called for by the new |
// instruction. Athe the end of the arithmetic operation in process, and end of |
// operation signal developed by arithmetic control releases the operation |
// interlock and allows the contorl commutator to advance. |
//----------------------------------------------------------------------------- |
reg arith_operation, arith_restart; |
assign arith_restart_d5 = arith_restart & d5; |
wire arith_op_on_p = compl_adj |
| divide |
| multiply |
| compl_result |
| acc_true_add |
| acc_compl_add |
| hc_add_5 |
| left_shift |
| shift_count |
| right_shift |
| overflow_stop |
| end_mult_div; |
|
always @(posedge ap) |
if (rst) begin |
arith_operation <= 0; |
arith_restart <= 0; |
end else begin |
arith_operation <= arith_op_on_p? 1'b1 |
: dx? 1'b0 |
: arith_operation; |
arith_restart <= (arith_op_on_p & ~arith_operation)? 1'b1 |
: d9? 1'b0 |
: arith_restart; |
end; |
digit_pulse eop (rst, bp, ~arith_operation, 1'b1, end_of_operation); |
|
`ifdef 0 |
//----------------------------------------------------------------------------- |
// Upper-lower check -- adder control gate |
// |
// [90:5] It will be recalled from the description of the one digit adder in |
// the section on basic principles that an upper-lower check gate was required |
// as on of the conditions necessary to allow the distributor early outputs |
// through to the adder, in either true or complement form. The purpose of this |
// gate is to insure that either an upper or a lower signal and not both has |
// been sensed and that both reset and no reset are not present before allowing |
// distributor values to enter the adder. |
//----------------------------------------------------------------------------- |
|
//----------------------------------------------------------------------------- |
// Adder output zero insert control |
// |
// [90:45] |
//----------------------------------------------------------------------------- |
assign zero_insert = dxl & right_shift |
| (dxl | d0l) & left_shift |
| (dxl | d0l) & acc_true_add & compl_adj |
| end_mult_div & acc_true_add & dist_true |
& div & no_rem & wu |
| d0l & add_or_subt_sig |
| dxl & mult_or_div_sig |
| left_shift & (dxl | (d1l & ~significant_digit)) |
| mult_div_left_shift & d1l |
| d0l & significant_digit; |
|
//----------------------------------------------------------------------------- |
// Carry insertion |
//----------------------------------------------------------------------------- |
assign carry_blank = dxl |
| prog_add_d0 |
| (d0l & ~compl_acc_or_dist & ~hc_add_5); |
assign no_carry_blank = d1 & sel_stor_add_tlu |
| d1l & quotient_digit & compl_acc_or_dist |
| d0l & ~quotient_digit & compl_acc_or_dist; |
assign carry_insert = d1 & sel_stor_add_tlu |
| d1l & quotient_digit & compl_acc_or_dist |
| d0l & ~quotient_digit & compl_acc_or_dist; |
assign no_carry_insert = dxl |
| prog_add_d0 |
| (d0l & ~compl_acc_or_dist & ~hc_add_5); |
|
//----------------------------------------------------------------------------- |
// Sign control |
//----------------------------------------------------------------------------- |
assign acc_plus_out = (((~rem & d0u & ~ap) | (d0l & ~ap)) & acc_plus) |
| (d0u & rem & rem_plus & ~ap); |
assign acc_minus_out = (((~rem & d0u & ~ap) | (d0l & ~ap)) & acc_plus) |
| (d0u & rem & rem_minus & ~ap); |
wire acc_sign_reset = (d1l & add_sign_ctrl & ~divide & ~multiply) |
| (d0 & mult_or_div_sig & a_c); |
|
reg acc_plus, acc_minus; |
//wire acc_plus_on_p = (carry_test & compl_result_test_sig) |
// | (add_or_subt_sig & reset_op) |
// | (rem_minus & |
//wire acc_minus_on_p = |
|
|
//----------------------------------------------------------------------------- |
// Adder entry controls |
//----------------------------------------------------------------------------- |
|
|
//----------------------------------------------------------------------------- |
// Arithmetic control |
//----------------------------------------------------------------------------- |
wire end_true_add; |
|
//----------------------------------------------------------------------------- |
// Half correct control |
//----------------------------------------------------------------------------- |
wire hc_ed0l_9 = ed0l & half_correct |
& adder_out[`biq_b5] & adder_out[`biq_q4]; |
|
always @(posedge rst, posedge cp) begin |
if (rst) begin |
half_correct <= 0; |
hc_add_5 <= 0; |
end else begin |
if (man_acc_reset | end_true_add) begin |
hc_add_5 <= 0; |
end else if (hc_ed0l_9) begin |
hc_add_5 <= 1; |
end |
if (hc_add_5 & ~hc_ed0l_9 & ed0l) begin |
half_correct <= 0; |
end else if (half_correct_sig) begin |
half_correct <= 1; |
end |
end |
end; |
`endif |
|
endmodule |
trunk/rtl/arith_ctl.v
Property changes :
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property