13cb294274
New Hardware support: - IBM 653 Storage Unit: provides machine opcodes for Floating Point, Immediate Access Storage (IAS), Three Index registers, Cards Punch-read synchronizers 2 and 3. New Software included: - FORTRANSIT: version II (S), plus run time PACKAGE with standard Fortran functions. - Reorganized sw directory, separating each language in its own folder. Each one Includes a 00_readme.txt file with restoration notes and comments. New features: - Support for SOAP opcode mnemonics in addition to regular IBM mnemonics - FAST / REALTIME CPU options - PROP pseudo register - CARDDECK ECHOLAST command
1399 lines
98 KiB
Text
1399 lines
98 KiB
Text
1 soap 2
|
|
1
|
|
1 symbolic optimal assembly prog
|
|
1
|
|
1 for the
|
|
1
|
|
1 ibm 650
|
|
1
|
|
1 data processing system
|
|
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 0
|
|
regy0915 0916 equ syn
|
|
regz0917 0919
|
|
regw0920 0922
|
|
blr 0923 0968 multiple r
|
|
regi1300 1307 sub 13
|
|
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
|
|
1900lddreadc sub14 manual pat
|
|
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
|
|
hed
|
|
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 alphabetic
|
|
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 availablity 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 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 bmz
|
|
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 sds
|
|
n0087 00 0606 0998 rds
|
|
n0088 00 0606 0998 wds
|
|
n0089 00 0000 0898 rac
|
|
n0090 00 0000 0898 rsc
|
|
n0091 44 0505 0998 bdo
|
|
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 bdo
|
|
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 k 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
|
|
sub2rstdexity reserve
|
|
lddz ru entry
|
|
sub2ustdexity unreserve
|
|
ldd1i ru entry
|
|
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
|
|
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
|
|
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
|
|
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
|
|
1
|
|
hed6
|
|
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
|
|
a nze und li zero
|
|
slos is cont of
|
|
nzesw def li symb
|
|
sw ralli off is li
|
|
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
|
|
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 erasable
|
|
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 erasable
|
|
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
|
|
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
|
|
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 locat
|
|
ta nzuyes sw available
|
|
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
|
|
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 erasable
|
|
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 rb
|
|
slt 0002
|
|
ral 8002 rb
|
|
rb 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 avail table
|
|
1
|
|
hedp
|
|
sub14stdexitx store exit
|
|
ldd85th set punch
|
|
stdp0010 8
|
|
ldda1 init a1
|
|
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
|
|
8003std 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 od
|
|
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 0 cor
|
|
srt 0001 ds core
|
|
ds aloxxxx1 exity
|
|
1
|
|
exity 01 0000 exity erasabele
|
|
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
|
|
bdob d0002 drum tag
|
|
b ralopreg setl blank
|
|
setl slt 0004 set l
|
|
lddp0008 to dr
|
|
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
|
|
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 defind
|
|
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
|
|
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 erasable
|
|
hed
|
|
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 tag
|
|
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
|
|
pat
|