mirror of
https://github.com/simh/simh.git
synced 2026-04-25 19:51:25 +00:00
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
1725 lines
138 KiB
Plaintext
1725 lines
138 KiB
Plaintext
1 program for fortran
|
|
1 statements to it statements
|
|
blr 1000 1010
|
|
blr 1150 1171 functions
|
|
blr 1200 1210 nonarith t
|
|
blr 1450 1454 equ var ta
|
|
blr 1500 1519 jibase tbl
|
|
blr 1600 1699 varbl tabl
|
|
blr 1821 1830 startnarit
|
|
blr 1900 1930 pack band
|
|
blr 1948 1949
|
|
regr1951 1960 read band
|
|
regp1977 1986 punch band
|
|
blr 1990 1998 comp gp ta
|
|
synstart 1999
|
|
synreset 0228
|
|
synstorg 1961
|
|
synsubsc 1962
|
|
startrcd 1952 reset read first
|
|
resetral 1960 card
|
|
slt 0001 test for
|
|
nzustart
|
|
stuiad sub a
|
|
stdsw4 sub a
|
|
stdsw5 sub a
|
|
stdctvar
|
|
lddeghts
|
|
stdp0010
|
|
lddcnpka
|
|
stdswpka pack
|
|
cnpkastltesta suba1 switch pka
|
|
read raliac is wd end
|
|
nzearead frst wd in
|
|
raltemae pack band
|
|
sloendcn if no rd
|
|
nzearead 1830 next card
|
|
endcn 00 6575 6400
|
|
areadrcd 1951 if yes
|
|
ral 1960 punch hedr
|
|
slt 0001 card and
|
|
nzuread reinitia
|
|
slt 0001 lize
|
|
nzupack
|
|
lddcnpka pack sw a1
|
|
stdswpka swt
|
|
swt lddin2 tr ca suba
|
|
tr castdsw 59
|
|
raltemae
|
|
stutesta
|
|
nzenzt5 in2
|
|
nzt5 slt 0002
|
|
nzunzt 4 nzt5
|
|
pack ralltr f
|
|
ldd tr uc
|
|
stdtemph
|
|
stlp0006
|
|
auppacka
|
|
lddtjasw sub x
|
|
suba1lddcnpkb pack sw a2
|
|
stdswpka
|
|
lddpacka
|
|
stdsw 59
|
|
lddswh switch 3
|
|
stdsw 60
|
|
rau 1960 statement
|
|
stdp0008
|
|
stliac
|
|
stup0009 tra1b
|
|
tra1braltesta tr aa
|
|
cnpkbstltesta suba2
|
|
suba2alotemae tr aa
|
|
tr aaslt 0002 to temp
|
|
nzunzt 4 test 6 cha
|
|
stltemae sub a
|
|
nzt 4srt 0002 five char
|
|
stutemae
|
|
aupiac index
|
|
supcnbkb
|
|
nzu stp r
|
|
aupcnbib
|
|
stuiac store
|
|
aupcn f1 8003 word
|
|
cn f1stl 1899 sub a
|
|
sub araltesta lt parnt
|
|
sloparnl
|
|
nzenztt
|
|
ralone tr l add to cou
|
|
tr laloiad
|
|
stliad tr m
|
|
nztt aloplus
|
|
nzesw 60
|
|
rslone tr l sub to cou
|
|
tr mnzenzt9a set sw 3
|
|
lddswh tr n on
|
|
nzt9alddsw 59 tr n off
|
|
tr nstdsw 60 sw 59
|
|
tr onzenzt10 sw b on
|
|
lddone equal out
|
|
stdsw4 sw 59
|
|
nzt10alocn a5
|
|
nzesw 59
|
|
lddone comma out
|
|
stdsw5 sw 59
|
|
swh slomult tr o suba
|
|
in2 raliad tr ml parn count
|
|
tr mlstuiad zero iad
|
|
nzestopa test
|
|
ralsw4 test type
|
|
stusw4 reset equa
|
|
nze in3
|
|
ralsw5
|
|
nzein3 in4 out
|
|
in3 ral 1900
|
|
stusw5
|
|
srt 0006 look up
|
|
slt 0006 for
|
|
stltemaa
|
|
ralcn j1 non
|
|
lddtemaa
|
|
tlu 1200 8002 statemen
|
|
tr pslotemaa
|
|
slt 0004 look up
|
|
nzustopb nz is erro
|
|
srt 0004 8002 zt is ok
|
|
cn j1ral 0000 tr p suba
|
|
scan stltemae
|
|
std 1992
|
|
lddnnal1
|
|
stdnn l1
|
|
lddswba1
|
|
stdsw ba
|
|
lddtj10b
|
|
stdtj 10
|
|
lddnzu2a
|
|
stdnzu2
|
|
lddsw oa tr mt
|
|
tr mtstdsw 56
|
|
rauiac
|
|
stlf3
|
|
stdtemac
|
|
lddsw bh tr tn
|
|
sw bhnzutr rn zt h4
|
|
tr rnalof3
|
|
aloone
|
|
stlf3
|
|
rau 8003 sw 56
|
|
sw oasupdecpt
|
|
nzu zt g8
|
|
suptwo 1
|
|
nzu zt g9
|
|
supnine
|
|
nzu zt h1
|
|
supone 1
|
|
nzu zt h2
|
|
supone 1
|
|
nzu zt n8
|
|
supeight
|
|
nzu zt h3
|
|
aupparnl tr mv
|
|
tr mvstutemaf tr mw
|
|
tr mwraltemac
|
|
slt 0002
|
|
alotemaf
|
|
stltemac nztb2
|
|
zt h4raltempf
|
|
sloone tr rj
|
|
tr rjstltempf
|
|
stutemac
|
|
nzetx dg
|
|
ldd 1991
|
|
bd1flo2 arith
|
|
zt h2rauminus tr pn
|
|
tr pnlddf3
|
|
stdoutp
|
|
lddsw pa tr rp
|
|
tr rpstdsw 59
|
|
alotemaa
|
|
srt 0002
|
|
stltemaa tr rh
|
|
tr rhralnxtwd
|
|
sloone
|
|
lddnn m1
|
|
sdanxtwd tr pr
|
|
tr prrautemac
|
|
nzu tr nk
|
|
srt 0002
|
|
stutemac
|
|
ral 8002
|
|
slt 0002 sw 59
|
|
tr nkstutemaa nxtwd
|
|
nn m1ral 0000
|
|
stltemac tr rh
|
|
zt g9rauplus tr pn
|
|
sw pasupparnr
|
|
nzunzti4 zt i4
|
|
zt i4aup 8001
|
|
lddout1s tr ps
|
|
tr psstdf8
|
|
alotemaa
|
|
srt 0002
|
|
stltemaa
|
|
ralf3
|
|
sloone
|
|
stlf3 f8
|
|
out1sralone tr pu
|
|
tr pualosw 61
|
|
stlsw 61 tr pr
|
|
nzti4supone 1
|
|
nzunzti5
|
|
rauplus tr pv
|
|
tr pvldd tr ps
|
|
rslsw 61 tr ux
|
|
tr uxbmitr pr zt l3
|
|
nzti5supnine
|
|
nzunzti7
|
|
raumult
|
|
ldd tr ps
|
|
rslsw 61
|
|
nzetr ux nzti8
|
|
nzti7supone 1
|
|
nzunztq5
|
|
rauminus tr pv
|
|
nztq5supone 1
|
|
nzunztj5
|
|
raudivid tr pv
|
|
nztj5supseven
|
|
nzunztj6
|
|
raucomma tr pv
|
|
nztj6supone 1
|
|
nzunztj7 zt j7
|
|
zt j7rauparnl
|
|
ldd tr ps
|
|
rslone tr pu
|
|
nztj7supnine
|
|
nzunztj8 zt j8
|
|
nztj8aupequal
|
|
lddtr pr tr ps
|
|
zt j8rauequal
|
|
lddzt l3 tr ps
|
|
nzti8lddsw pc
|
|
stdsw 59 tr pr
|
|
sw pcsupparnr
|
|
nzu zt i4
|
|
supone 1
|
|
nzunztk3
|
|
rauplus tr py
|
|
tr pyldd tr ps
|
|
rsusw 61
|
|
bmitr pr zt k4
|
|
nztk3supcn a5
|
|
nzunztk4
|
|
rauminus tr py
|
|
nztk4supeight
|
|
nzunztk5
|
|
raucomma tr py
|
|
nztk5supone 1
|
|
nzunzt03
|
|
rslsw 61
|
|
bmizt j7
|
|
lddsw pd
|
|
stdsw 59 zt j7
|
|
sw pdsupltr f
|
|
nzu zt o2
|
|
aup 8001
|
|
lddsw ph
|
|
stdsw 59 8001
|
|
zt o2aup 8001 tr sb
|
|
nzt03supnine
|
|
nzunztj8
|
|
rauequal tr sb
|
|
tr sbsrt 0002
|
|
auptemac
|
|
slt 0002
|
|
stutemac tr qc
|
|
zt k4lddout4v
|
|
stdtesto tr qa
|
|
out4vralf3
|
|
aloone
|
|
stlf3 tr qc
|
|
tr qcraloutp
|
|
aloone
|
|
stloutp
|
|
ralnn m3
|
|
aloiac
|
|
stlf4 8001
|
|
nn m3rau 1899
|
|
srt 0004
|
|
ral 8002
|
|
nze zt kb
|
|
ralf4
|
|
aloone
|
|
lddnn m4
|
|
sdaf4
|
|
ralnn n6
|
|
slof4
|
|
nze 8001 stopc
|
|
nn m4stu 0000 tr tz
|
|
tr tzraliac
|
|
aloone
|
|
stliac zt kb
|
|
zt kbralnxtwd
|
|
aloone
|
|
lddnn m7
|
|
sdanxtwd
|
|
lddnn mb
|
|
sdastore
|
|
rauparnl
|
|
alotemaa
|
|
srt 0002 tr qd
|
|
tr qdstltemaa
|
|
lddout1v
|
|
stdtesto tr rg
|
|
sub vraltemac
|
|
slt 0002
|
|
nzu tr qa
|
|
srt 0002 store
|
|
tr qarautemac
|
|
alotemaa
|
|
slt 0002
|
|
stutemac
|
|
stltemaa testo
|
|
out1vralf3
|
|
aloone
|
|
stlf3
|
|
slooutp
|
|
nzetr rg sw qa
|
|
nn mbstl 0000 tr qe
|
|
tr qestutemac
|
|
ralnxtwd
|
|
aloone
|
|
stlnxtwd
|
|
lddstore
|
|
sdastore tr rg
|
|
tr rgraltemaa
|
|
nzesub v nxtwd
|
|
sw qaraloutp
|
|
aloone
|
|
stloutp
|
|
ralnxtwd
|
|
ldd 8003
|
|
sdaf7
|
|
lddnnm16
|
|
sdanxtwd
|
|
lddnnm13
|
|
sdastore
|
|
ralf4
|
|
lddstore
|
|
sdaf4
|
|
slof7
|
|
sdaf7
|
|
lddout5v
|
|
stdtesto
|
|
raltemaa
|
|
nzenzto5 zt o5
|
|
nzto5aupparnr
|
|
srt 0002
|
|
std 1993 tr sk
|
|
zt o5ral 1992
|
|
nze nzto5
|
|
rsl 8002
|
|
stlf7
|
|
raltemaa
|
|
std 1992 nzto5
|
|
nnm13stl 0000
|
|
ral 1993
|
|
nze zt o6
|
|
ralf7
|
|
stu 1993
|
|
sloone
|
|
stlf7 zt o6
|
|
zt o6ralf4
|
|
slostore
|
|
nzetr qe zt l3
|
|
nnm16ral 0000 tr sk
|
|
tr skstltemaa sub v
|
|
zt l3raltemae
|
|
nze tr rv
|
|
stdoutp
|
|
stutemae tr rv
|
|
tr rvraloutp
|
|
lddtr mw tr ud
|
|
tr udstdf1
|
|
stlout q
|
|
ldd tr mt
|
|
stutemaf
|
|
ralf3
|
|
sloout q
|
|
nzetr mw
|
|
lddsw oa
|
|
stdsw 56 f1
|
|
out5vraltemaa
|
|
nzesub v
|
|
std 1993
|
|
ralf7
|
|
bmitr rm
|
|
sloone
|
|
stlf7 nxtwd
|
|
tr rmrautemac
|
|
sct 0000
|
|
ral 8003 store
|
|
zt h3rautemaf
|
|
supltr f
|
|
nzu tr nf
|
|
aupseven
|
|
bmitr nf
|
|
lddsw oe
|
|
stdsw 56 tr nf
|
|
tr nfrauparnl tr mv
|
|
sw oesupparnr
|
|
nzunzth6 tr sq
|
|
nzth6aup 8001 tr mv
|
|
tr sqaup 8001
|
|
alosw oa tr sr
|
|
tr srstlsw 56 tr mv
|
|
zt h1raumult
|
|
alo tr ro
|
|
supmult
|
|
nzutr mz tr sf
|
|
tr mzaup 8001
|
|
lddsw oa tr sc
|
|
tr scstdsw 56 8001
|
|
tr sfralf3 tr sa
|
|
tr saaloone
|
|
stltemae
|
|
lddsw bl
|
|
stdsw 50 tr so
|
|
tr solddsw oi tr sn
|
|
tr snstdsw 56 nztb2
|
|
tr rolddf3
|
|
stdf6 tr sr
|
|
zt g8aup 8001
|
|
alo tr ro
|
|
supltr a
|
|
bmitr mz
|
|
aup 8001
|
|
supltr e
|
|
nzunzth6
|
|
aup 8001
|
|
alo tr sr
|
|
supltr a
|
|
bmitr sf tr sq
|
|
sw blnzutr rn
|
|
raltempf
|
|
sloone
|
|
nzetr rj
|
|
ralone
|
|
std 1992 tr ru
|
|
tr rualof3 tr sl
|
|
tr slstloutp
|
|
ralf6
|
|
ldd tr ud
|
|
rautemaf
|
|
lddsw ph tr rp
|
|
sw phsupmult
|
|
nzu zt n7
|
|
aup 8001
|
|
supdivid
|
|
nzu zt n7
|
|
aup 8001 sw pc
|
|
zt n7aup 8001 tr py
|
|
zt n8ralf3
|
|
stdf6 tr sa
|
|
sw oisupequal
|
|
bmi nztb2
|
|
aupmult
|
|
nzu zt n6
|
|
supcn a5
|
|
nzu zt o4
|
|
sup 8001
|
|
nzu zt n5
|
|
aupone 1
|
|
nzu zt q4
|
|
aupplus
|
|
nzuzt q4 zt o1
|
|
zt q4ralf3 tr uy
|
|
tr uysupsw 61
|
|
bminztb2 tr sl
|
|
zt o1ldd tr sn
|
|
supltr a
|
|
bmitr ry
|
|
aup 8001
|
|
supltr e
|
|
nzunztb2
|
|
lddtr so tr sn
|
|
tr ryaup 8001 tr sm
|
|
tr smlddsw oi tr sc
|
|
zt n6lddsw ja
|
|
stdsw 56
|
|
rslone tr sp
|
|
tr spalosw 61
|
|
stlsw 61 nztb2
|
|
sw jasupltr a
|
|
bmitr ry zt q4
|
|
zt n5ralone tr sp
|
|
zt o4ldd tr sn
|
|
stutemaf
|
|
supmult
|
|
nzu tr uv
|
|
rslsw 61
|
|
bmi tr sd
|
|
rautemaf tr sm
|
|
tr uvralsw 61
|
|
bmitr sd tr so
|
|
tr sdrslone tr ru
|
|
nn m7ral 0000 tr qd
|
|
nn n6stu 1931 tr tz
|
|
in4 lddnine tr sh
|
|
tr shstd 1991 scan
|
|
arithralfive rith1
|
|
rith1stutemab
|
|
auptx db
|
|
lddzt c5 flo 1
|
|
flo 1stdsw 62
|
|
stliae
|
|
stusw 59
|
|
lddtx de
|
|
stdsw 60
|
|
lddsw fa
|
|
stdsw 54
|
|
raufour
|
|
stliai
|
|
alotx dl
|
|
lddsw ba tr tn
|
|
tr tnstdsw 50
|
|
stlsw 61
|
|
stutempf
|
|
lddnn l1
|
|
stdnxtwd tx dg
|
|
tx dgralnxtwd word to ac
|
|
aloone modify nex
|
|
stlnxtwd 8002 word addr
|
|
tr jmslt 0002
|
|
stltemaa
|
|
rau 8003 sw 50
|
|
nztatsupcomma test for
|
|
nzu tx dm comma
|
|
aupplus test for
|
|
nzu tx da decimal p
|
|
supone 1 test for
|
|
nzu sw 59 right pae
|
|
supone 1 test for
|
|
nzu tx dj plus sign
|
|
supnine test for
|
|
nzu tx dc mult sign
|
|
supone 1 test for
|
|
nzu tx dk minus sig
|
|
supone 1 test for
|
|
nzu tx dd divide si
|
|
supeight test for
|
|
nzu sw 60 left pare
|
|
supnine test for
|
|
nzu tx df equal sig
|
|
aupequal tr ha restore
|
|
tr hastutemac
|
|
raltemab
|
|
slt 0002
|
|
nzustopm test ten a
|
|
alotemac
|
|
slt 0002
|
|
nzunztc8 zt cb
|
|
zt cbsrt 0002
|
|
stltemab tr hb store tem
|
|
tr hbraliae tr jl decr shift
|
|
tr jlsloone count
|
|
stliae store
|
|
nzenztb2 zt b2 test
|
|
nztb2raltemaa tr jm temaa to a
|
|
zt b2lddfive reset shif
|
|
stdiae count
|
|
raliac decr word
|
|
sloone count
|
|
stliac store
|
|
nzetx dg tx dh test word
|
|
nztc8supzerol test tem a
|
|
bmi abnum for numer
|
|
aupzerol zt cb
|
|
abnumlddtr hb
|
|
stdoutp tr hc
|
|
tr hcaupzerol tr jn restore
|
|
tr jnsrt 0002 tr jo
|
|
tr jostltemab sw 54
|
|
tr hestdiaf
|
|
lddnn l2 next pch
|
|
stdtx di word inst
|
|
lddnn l3 punch stor
|
|
stdstore instr
|
|
ldd tr uc
|
|
stdp0006 punch ban
|
|
lddsw fb
|
|
stdsw 54 8001
|
|
tr hnslt 0002 store
|
|
tr hostltemab la to tem
|
|
rauiaf decr shift
|
|
supone count
|
|
stuiaf store
|
|
nzunztb3
|
|
ralp0006
|
|
nzezt b4
|
|
lddfive tr mr
|
|
tr mrstdiaf tr ka
|
|
nztb3raltemab tem ab to
|
|
nzesw 54 outp any more
|
|
zt b4pch 1977 tr hp
|
|
tr karaltx di
|
|
aloone modify nex
|
|
stltx di pch wd in
|
|
lddstore modify pun
|
|
sdastore nztb3 store ins
|
|
tr hpraltempf
|
|
sloone count
|
|
stltempf
|
|
nzenztb6 test
|
|
lddstopn tr lg set sw 54
|
|
tr lgstdsw 54 nztb3 error sto
|
|
nztb6lddsw fa tr lg
|
|
tx dhlddout 1 tr is
|
|
tr hkraltemab tem ab to
|
|
nzenztb7 outp test
|
|
nztb7slt 0002 tem ab to
|
|
nzu nztb7 high orde
|
|
supzerol test for
|
|
bmitr hf tr hc numeric
|
|
tr hdsct 0000
|
|
stup0001
|
|
ralp0006 tj sw insert f
|
|
tjaswslt 0002 in last wd
|
|
nzutr rf tr ex of punch
|
|
tr exalolast tr sg statement
|
|
tjbswslt 0004 output
|
|
nzu tr ex
|
|
srt 0002 insert of
|
|
nzutr rf in last wd
|
|
pch 1977 of read
|
|
raltempf statement
|
|
sloone output
|
|
stltempf
|
|
nzetr rf stopn
|
|
tr sgstlp0006
|
|
ldd 1991
|
|
bd1 punch
|
|
pch 1977 out19
|
|
tr rfralsw 54
|
|
slostopn
|
|
nze 8001
|
|
rallast
|
|
lddtr sg tr uc
|
|
tr ucstdout q
|
|
stup0001
|
|
stdp0002
|
|
stdp0003
|
|
stdp0004
|
|
stdp0005 out q
|
|
tr hfrautemab tj 10
|
|
tj 10lddtstpr subj
|
|
tj10alddtstpr subj
|
|
tj10blddtr jo subj
|
|
tstprnzu tj 20 precede
|
|
stutemac location
|
|
sup 8001 number of
|
|
ralltr t last vari
|
|
lddout30 tr kk able in
|
|
out30rauprodt read or
|
|
ldd sube punch
|
|
lddout31 tr kk statement
|
|
out31rautemac by t
|
|
srt 0004 exit to
|
|
sup 8003 punch out
|
|
aupnine put and
|
|
slt 0004 continue
|
|
ldd sube procedding
|
|
slt 0002 statements
|
|
lddout 1 tr kk
|
|
tj 20slt 0002
|
|
sup 8003
|
|
srt 0002
|
|
aloltr t tr jo
|
|
tx dfraultr z
|
|
ldd 1991
|
|
bd1tr uo tr hl
|
|
tr uostutemac
|
|
lddout 3 tr jz
|
|
tr hlstutemac sign
|
|
lddout 3 tr is
|
|
tr isstdoutp tr hk
|
|
tr hrstdtemab tr jp
|
|
tr jplddtr hb tr jz
|
|
tr jzstdoutp sw 54
|
|
tx ddraultr d tr hl store divi
|
|
tx djraultr s tr hl store plus
|
|
tx dkraultr m tr hl store minu
|
|
tx dbraultr r tr hl store rtpa
|
|
tx dmraultrkh tr hl stor comma
|
|
tx dclddsw bb tr li
|
|
tr listdsw 50
|
|
lddtr hb tr is
|
|
tr hmnzunztc1
|
|
lddsw ba
|
|
stdsw 50
|
|
ralltr p tr jo
|
|
tr ldlddsw bf
|
|
stdsw 50 tr mo
|
|
tr moaupltr e tr ha
|
|
tr mpnzu zt g5
|
|
bmitr kp tr mo
|
|
zt g5raultr b tr pi
|
|
nztc1aupmult
|
|
alotemaa
|
|
srt 0002
|
|
stltemaa
|
|
raliae
|
|
aloone
|
|
stliae
|
|
lddltr x tr jk
|
|
tx daraultr j
|
|
lddsw bg tr pj
|
|
tr hunzu zt c2
|
|
bmitr kp tr ld
|
|
tr kpaup 8001
|
|
lddsw ba
|
|
stdsw 50 nztat
|
|
zt c2rauzrob tr pi
|
|
tr pilddsw ba tr pj
|
|
tr pjstdsw 50 tr hl
|
|
tx derautemab tr kh
|
|
tr khnzunztc5 sw 62
|
|
zt c5lddltr l tr hr
|
|
nztc5srt 0002
|
|
ral 8002
|
|
sloltrfh
|
|
nze sw 61
|
|
rsutemab
|
|
lddnzu2 subj
|
|
nzu2 stutemac tj 5a
|
|
nzu2anzutj ba stopf
|
|
tj bastltemab
|
|
stutemac tj 8
|
|
tj 8 lddout 4 tr jz
|
|
tr ibsloone 1
|
|
ldd 8003
|
|
siatemae
|
|
slt 0003
|
|
stutemaf
|
|
nzu zt d1
|
|
ral 8002
|
|
slt 0003
|
|
stutemaf
|
|
rsl 8003
|
|
alotemae
|
|
stltemae
|
|
lddsw hb tr if
|
|
tr ifstdsw 56 out 5
|
|
zt d1lddsw ha tr if
|
|
tr ikstdsw 50
|
|
slo 8002
|
|
stlf6
|
|
stdf7
|
|
stdf8
|
|
stdf9
|
|
lddone 1 tr kn
|
|
tr knstddim i
|
|
stlf1
|
|
stdf3
|
|
stdf4
|
|
stdf5
|
|
lddsw ia tr ki
|
|
tr kistdsw 57 tr hb
|
|
tr ilbminztd4
|
|
aup 8001
|
|
stutemac sw 57
|
|
tr imslt 0002
|
|
nzustopo
|
|
alotemac
|
|
stlf1 tr hb
|
|
nztd4aupmult
|
|
bminztd6
|
|
aupltr a
|
|
stutemac sw ib
|
|
tr inslt 0002
|
|
nzustopo
|
|
alotemac
|
|
stlf3 tr ig
|
|
tr iglddsw ib tr ki
|
|
nztd6aupdivid
|
|
nzu zt e1
|
|
aupone 1
|
|
nzu tr ig
|
|
aupnine
|
|
nzunzte1 tr ip
|
|
tr iplddsw ic tr ki
|
|
tr ioslt 0002
|
|
nzustopo
|
|
alotemac
|
|
stlf5 tr hb
|
|
zt e1lddone 1
|
|
stdf4 tr ip
|
|
nzte1ralf7
|
|
stdf9
|
|
stuf7
|
|
lddf6
|
|
stdf8
|
|
stuf6
|
|
ralf5
|
|
nze zt e5
|
|
lddoutq1 tr lh
|
|
tr lhstdout q sub q
|
|
tr jrralf4
|
|
nzenztj2
|
|
ralf5 tr jt
|
|
nztj2rslf5 tr jt
|
|
tr jtalotemae
|
|
stltemae zt e5
|
|
zt e5ralf1
|
|
nzenzte6 nzte7
|
|
sub qstutemac zt f4
|
|
zt f4slt 0001
|
|
nzu zt f4
|
|
supnine
|
|
auptemac
|
|
slt 0001
|
|
stutemac
|
|
ral 8002
|
|
nzezt f4
|
|
rautemac
|
|
mpydim i out q
|
|
nzte6lddoutq2 tr lh
|
|
tr jvrauf3
|
|
nzenzte7
|
|
raltemae
|
|
alof6
|
|
stltemae
|
|
stuf6
|
|
lddout12
|
|
stdsw 58 sw 56
|
|
nzte7lddout 6
|
|
stdsw 58
|
|
rauf3
|
|
lddtr ir subj
|
|
tr irstlf7 sw 56
|
|
sw 56ralf7 jtest bypass
|
|
jtestnzejstor jzero insertion
|
|
jstorralltr l of l and r
|
|
ldd tr kk for
|
|
raltemae specific
|
|
bmitr ix tr iu variable
|
|
jzeroralf9 of array
|
|
nzejstor
|
|
rautemae
|
|
ldd sube
|
|
stltemab trajk
|
|
tr itstdsw 56
|
|
lddtemaf tr kn
|
|
tr iulddsw 58 tr iv
|
|
tr ivstdoutp
|
|
nzetr iz tr hc
|
|
tr izlddtr jo tr un
|
|
tr unslt 0004 sube1
|
|
tr ixrallmcom
|
|
lddout 7 tr kk
|
|
tr iystdoutp
|
|
ramtemae tr iz
|
|
tr jalddout 8 tr kk
|
|
tr kkstdoutp tr jo
|
|
tr jblddsw 58 tr kk
|
|
tr jcnzenzte9 zt e9
|
|
nzte9lddout10 tr iv
|
|
tr jdlddout11 tr kk
|
|
tr jflddout 9 tr kk
|
|
tr jslddout12 tr kk
|
|
zt e9ralf7
|
|
nze out12
|
|
raltemaf
|
|
nzenzte9 out11
|
|
tr jgnze zt f2
|
|
ralltr s
|
|
lddout13 tr kk
|
|
tr jhlddout14 tr iv
|
|
tr jilddout15 tr kk
|
|
tr jjlddout16 tr kk
|
|
zt f2ralf9
|
|
nze out16
|
|
ralltr s tr ji
|
|
tr jkstdtemab trajk
|
|
trajklddsw ba
|
|
stdsw 50 tr jp
|
|
flo stltemab
|
|
raunine
|
|
slt 0004
|
|
aup 1900
|
|
stu 1900
|
|
lddeight tr sh
|
|
flo2 lddiac
|
|
stdiafi
|
|
lddone
|
|
stdtemph
|
|
ral 1900
|
|
slt 0004
|
|
stl 1900
|
|
ralthree
|
|
aupsw ka
|
|
lddsw lb flo 1
|
|
sw karaltr ua
|
|
supone tr uw
|
|
tr uanzutx db zt f6
|
|
tr lpaupiai
|
|
stuiai 8002
|
|
zt f6lddsw be tr li
|
|
tr kfsrt 0002
|
|
stltemaf
|
|
raliac
|
|
sloone
|
|
lddiafi
|
|
stdiac
|
|
stliafi out 1
|
|
sw lbralzt c5
|
|
aupone tr uw
|
|
tr uwauptemph
|
|
stutemph 8002
|
|
tr kdaupone tr lp
|
|
tx dlraltr ub
|
|
stu 1990 tr kd
|
|
tr ublddtr lq
|
|
stdtest
|
|
ralsw kb
|
|
aupsw ma
|
|
lddsw na tr qx
|
|
tr qxstdsw 62
|
|
stlsw 59
|
|
stusw 61 test
|
|
tr lqralmask1
|
|
lddtemab
|
|
tlu 1161
|
|
lddmask2
|
|
sdatesto
|
|
slocnaib 8002
|
|
mask1ral 0000
|
|
slotemab
|
|
nze 1171
|
|
lddltr q
|
|
stdtemab testo
|
|
mask2rau 0000 tr uo
|
|
tr lnsloone
|
|
stliai
|
|
nzetr lo
|
|
rautx dl
|
|
lddtr lo
|
|
stdtest
|
|
ldd 1991
|
|
bd1 tr se
|
|
alosw ka
|
|
lddsw lb tr qx
|
|
tr sealotx db
|
|
lddzt c5 tr qx
|
|
tr loraultr q tr hl
|
|
tr lznze zt g3
|
|
sloone
|
|
stl 1990 tx db
|
|
sw naral 1990
|
|
aloone
|
|
stl 1990 zt c5
|
|
zt g3raliai tr ln
|
|
1160 99 9999 9999 end of tab
|
|
swba1nzunztat tx dh
|
|
sw bbsupmult tr hm for
|
|
sw bdsupzerol tr il 50
|
|
sw bealotemaa tr kf
|
|
sw bfsupltr e tr mp
|
|
sw bgsupltr e tr hu
|
|
sw faralfive tr he settings f
|
|
sw fbraltemab tx di switch 54
|
|
sw haralf7 jtest settings f
|
|
sw hbrausw ha tr it switch 56
|
|
sw iaralf1 tr im settings
|
|
sw ibralf3 tr in for
|
|
sw icralf5 tr io switch 57
|
|
sw kbral 1990 tr lz
|
|
sw maraltr lq tr kd
|
|
nnal1ral 1899 tr jm
|
|
nn l1ral 1899 tr jm nxt wd ins
|
|
nn l2aup 1977 tr hn to tx di
|
|
nn l3stu 1977 tr ho store pch
|
|
out 1raup0001 tr hd
|
|
out 3lddtemac tr hr exits
|
|
out 4raltemac tr ib from
|
|
out 6ralslcom tr ja
|
|
out 5lddsw bd tr ik store
|
|
out 7lddout17 tr iy
|
|
out 8ralf6 tr jc subroutin
|
|
out 9ralltr r tr js
|
|
out10ralltr x tr jd
|
|
out11ralf7 tr jf
|
|
out12ralf8 tr jg
|
|
out13ralf8 tr jh
|
|
out14ralltr x tr ji
|
|
out15ralf9 tr jj
|
|
out16lddltr r tr jk
|
|
out17ralltr r tr jb
|
|
out19ralsw ab in10
|
|
outq1stlf5 tr jr
|
|
outq2stlf6 tr jv
|
|
1
|
|
1 insert variables in table and
|
|
1 assign i or y value depending
|
|
1 if variable is fixed point or
|
|
1 floating point
|
|
subj stdout subj1 store
|
|
subj1sct 0000 signed var
|
|
stutest in temploc
|
|
rauctvar zero
|
|
stlsubsc temporary
|
|
stdstorg counters
|
|
nzej101 insvr
|
|
insvraupone
|
|
aloone 1
|
|
stuctvar store
|
|
stlstorg mnemonic
|
|
aup j1 in varibal
|
|
std 1599 j2 table
|
|
j1 lddtest 8003
|
|
j2 ral 8001 test if
|
|
bmi j4b subsc or
|
|
rausubsc nonsubsc
|
|
supd20 halt over
|
|
nzuj2a stp n 20 subsc
|
|
stp nhlt 0002 pack variables
|
|
j2a aupd21 increment
|
|
stusubsc subsc ctr
|
|
rautesto
|
|
srt 0003 set up
|
|
stloute j i base
|
|
rautestn word and
|
|
slt 0004 store in
|
|
aupoute subscrpt
|
|
aupstorg table
|
|
alosubsc
|
|
alo j3
|
|
stu 1499 j4 set swchs
|
|
j3 lddseta a and a1
|
|
sdaswcha for fix
|
|
lddseta1 flt test
|
|
sdaswha1 8002 if subs vr
|
|
j4 rautesto increment
|
|
nzunzmpy storg ctr
|
|
alotestn j4a by i times
|
|
nzmpympytestn j4a
|
|
j4a alostorg
|
|
sloone 1 j minus 1
|
|
stlstorg
|
|
stdtotlc fxflt
|
|
fxfltramtest test var
|
|
slt 0002 for fix or
|
|
rau 8003 flt pt
|
|
supltrni
|
|
bmiswcha brch flt
|
|
supseven
|
|
bmiswha1 swcha brch fix
|
|
seta ram 1499 sw a set
|
|
rau 8002 j6
|
|
normaraustorg j7 sw a norm
|
|
seta1ram 1499
|
|
rau 8002 j8 sw a1 set
|
|
nrma1raustorg j9 swa1 norm
|
|
j6 aloltr y out
|
|
j7 lddj6 sube2
|
|
j8 aloltr i out
|
|
j9 lddj8 sube2
|
|
j4b lddstorg
|
|
stdtotlc nosub
|
|
nosublddnorma sws a and
|
|
stdswcha a1 norm 44
|
|
lddnrma1 fix flt if
|
|
stdswha1 fxflt nonsubs vr
|
|
sube2stdoute2
|
|
ldddone1 sube
|
|
sube1slt 0006 sube
|
|
sube stdoute lopff set up
|
|
lopffnzu oute doubl digt
|
|
srt 0001 location
|
|
stuteste number for
|
|
sup 8001 nonsubsc
|
|
srt 0001 variables
|
|
aloazero
|
|
aupteste lopff
|
|
done1srt 0002 oute2
|
|
j101 suphndrd halt over
|
|
nze stp n 100 vars
|
|
aup 8001 nxtvr test
|
|
nxtvraloone
|
|
stlmchct variable
|
|
alo j101a for table
|
|
ram 1599 j101b test
|
|
j101alddtsvar
|
|
sdatsvar 8002
|
|
j101bsmltest
|
|
nzej102 match
|
|
j102 lddnormb sws b c
|
|
stdswchb and d norm
|
|
stdswchc to repeat
|
|
lddnormd table
|
|
stdswchd tsvar search
|
|
tsvarral 0000 increment
|
|
bmi plsad storg and
|
|
ralsubsc subsc ctrs
|
|
aloone as needed
|
|
stlsubsc before
|
|
alo j103 continuing
|
|
ram 1499 j104 search or
|
|
j103 lddseta exiting
|
|
sdaswcha set fix
|
|
lddseta1 flt sign
|
|
sdaswha1 8002 sw for mch
|
|
j104 slt 0003
|
|
nzuj105
|
|
slt 0003
|
|
ral 8003 j106
|
|
j105 stuoute1
|
|
sup 8003
|
|
slt 0003
|
|
rau 8003
|
|
mpyoute1 j106
|
|
j106 stlprodt j107
|
|
j106astlprodt j107
|
|
j107 ralsubsc
|
|
alo 8002
|
|
ral 1499 swchd
|
|
normdbmiproc j107a
|
|
setd bmifxflt j107a
|
|
j107aralprodt
|
|
alostorg swchb
|
|
swchbstlstorg fxflt yes match
|
|
proc ralmchct if no
|
|
sloctvar match
|
|
nzej108 insert
|
|
rau 8001 variable
|
|
alostorg insvr in table
|
|
j108 alo 8001 nxtvr serch ovr
|
|
plsadralstorg
|
|
aloone 1 swchc
|
|
swchcstlstorg nosub yes match
|
|
matchlddsetb sws b c
|
|
stdswchb and d set
|
|
lddsetc if match
|
|
stdswchc found
|
|
lddsetd
|
|
stdswchd tsvar
|
|
1
|
|
1 subrotine constants
|
|
d20 00 0020 0000
|
|
d21 00 0021 0000
|
|
one 00 0001 0000
|
|
one 1 00 0000 0001
|
|
setb stlstorg fxflt
|
|
normbstlstorg proc
|
|
setc stlstorg nosub
|
|
1200 63 7600 1821 continue
|
|
1201 64 6900 1822 dimension
|
|
1202 64 7600 1823 do
|
|
1203 65 7800 1824 equivalnce
|
|
1204 67 7600 1825 go to
|
|
1205 69 6600 1826 if
|
|
1206 77 6100 1827 pause
|
|
1207 77 8400 1828 punch
|
|
1208 79 6500 1829 read
|
|
1209 82 8300 1827 stop
|
|
1210 99 9999 9999 end of tab
|
|
subf2stdlast subf3
|
|
subf3stutemaf subf1
|
|
subf1stlnext sub f
|
|
sub fraltemaf lp f1
|
|
lp f1nze zt f1
|
|
slt 0002 next char
|
|
stltemaf
|
|
rau 8003 next
|
|
zt f1raliafi dec iafi
|
|
nze last final char
|
|
sloone
|
|
stliafi
|
|
rsl 8002
|
|
aloiac
|
|
alocnffi 8002
|
|
cnffiral 1899 lp f1 sub f
|
|
subk1aup 8001 sub k
|
|
subk2aupcomma sub k restpr com
|
|
sub kral 8003 trski
|
|
trskialotemph
|
|
slt 0002
|
|
nzusw6 zt 30
|
|
zt 30lddswv tr cc
|
|
tr aslddstopm tr cc
|
|
tr ccstdsw6 tr qr
|
|
tr qrstltemph sub f
|
|
swv srt 0002 tr as sub k
|
|
pch cstlp0001 punch
|
|
punchpch 1977 pack end contin
|
|
pch bpch 1977 sub f do pch if
|
|
headrraltotlc statmnt no
|
|
stlp0004 pch 37 40
|
|
stup0006
|
|
stup0007 61 70
|
|
stdp0008 71 80
|
|
stdp0001
|
|
lddlow88 set contro
|
|
stdp0010
|
|
pch 1977 start
|
|
1822lddtr uh tr ug dimension
|
|
tr ugstdout q
|
|
raliac
|
|
slotwo word cou
|
|
stliafi
|
|
rau 1901 out q
|
|
tr uhslt 0008
|
|
aloswdma
|
|
lddtrdme subf2
|
|
trdmanzusubk1
|
|
raltemph process v
|
|
stutemph
|
|
stltest
|
|
stutesto zero v j
|
|
stutestn
|
|
ralswdmb subf1
|
|
trdmbnzu ztdmc comma test
|
|
aupparnr
|
|
nzu ztdmd parenr tes
|
|
aupparnr 2par z com
|
|
srt 0001 collect su
|
|
supnine charater
|
|
bmistopf n
|
|
auptesto
|
|
slt 0001 trdmg
|
|
ztdmcraltesto subscript
|
|
stltestn trdmg
|
|
trdmgstutesto sub f ze
|
|
ztdmdlddtrdmc
|
|
stdnext
|
|
raltestn at comma
|
|
nzesub f ztdmc over 2 sub
|
|
trdmclddswdma trdmh supparltrd
|
|
trdmhstdnext trdmd
|
|
trdmdlddnzu3 trdmf
|
|
trdmelddnzu1 trdmf
|
|
trdmfstdout
|
|
rsutest subj1
|
|
nzu1 nzupack stopf
|
|
nzu3 nzusub f stopf
|
|
swdmasupparnl trdma next 1
|
|
swdmbsupcomma trdmb next 2
|
|
1823lddtr ue tr bd do statmnt
|
|
tr bdstdout q
|
|
raliac
|
|
sloone
|
|
stliafi
|
|
rau 1900 shift off
|
|
slt 0004 out q
|
|
tr uealoswdoa
|
|
lddcn b4 subf2
|
|
swdoasupzerol tr c
|
|
tr cbmi subk1
|
|
aupzerol
|
|
slt 0002
|
|
alotemph
|
|
stutemph
|
|
stltest tr b
|
|
tr baloltr k add comma
|
|
stdp0003 punch wor
|
|
stdp0005 punch wor
|
|
stlp0001
|
|
ralswdob subf1
|
|
tr dnzusubk1 zt5
|
|
zt5 rautemph
|
|
stltemph
|
|
lddtr f subj
|
|
tr fstlp0002 punch 2
|
|
lddswdod stlp0004tr
|
|
stdsw 59
|
|
ralswdoc subf1
|
|
tr gnzusubk2 zt7
|
|
zt7 raltemph
|
|
stltest test b
|
|
stutemph tx e
|
|
tx eslt 0002 to high
|
|
nzu tx e order
|
|
supzerol
|
|
bminzt9
|
|
raltest sw 59
|
|
nzt9 rautest
|
|
lddsw 59 subj
|
|
tr hstup0006
|
|
pch 1977 pch card 0
|
|
stup0001 zero punch
|
|
stup0002 words for
|
|
stdp0004
|
|
lddswdoe tr qo
|
|
tr ilddswdof tr qo
|
|
tr qostdsw 59 sub f
|
|
tr klddltr f f in word
|
|
stdp0006 punch six
|
|
tr jnzezt7 t store m
|
|
lddswdog stlp0004tr
|
|
stdsw 59
|
|
lddaone 0000 0 91
|
|
stdp0002 zt7 one for h3
|
|
cn b4ralp0004 tr j last
|
|
swdobsupequal tr d next b
|
|
swdocsupcomma tr g next c
|
|
swdodstlp0004 tr h swdo2 1
|
|
swdoestlp0004 tr i swdo2 2
|
|
swdofstlp0002 tr k swdo2 3
|
|
swdogstlp0004 tr k swdo2 4
|
|
1826raucnif6 if statmnt
|
|
lddtraea subj
|
|
traeastltempg flo
|
|
in10 lddltr f
|
|
stdp0006
|
|
stlsw 59
|
|
ralsw aa
|
|
lddzt 95 tr ui
|
|
tr dmnzusubk2 zt 95
|
|
zt 95raltemph
|
|
stutemph
|
|
srt 0002
|
|
aloltr g
|
|
stlp0001 sw 59
|
|
sw ablddzrojo
|
|
stdp0003
|
|
lddif
|
|
stdp0002
|
|
stup0009
|
|
ralltr v
|
|
auptempg
|
|
ldd tradp
|
|
lddtempg
|
|
stdp0003
|
|
ralltr u
|
|
aupzrojo
|
|
lddsw ad tradp
|
|
tradpstdsw 59
|
|
stlp0004
|
|
stup0005 pch b
|
|
tr dsstdp0004 punch
|
|
sw aasupcomma tr dm if
|
|
sw adlddltr v tr ds if
|
|
1825stuiaw go to
|
|
ldd tr bd
|
|
slt 0004
|
|
alocn a7
|
|
ldd subf2
|
|
raltemph in5
|
|
cn a7supparnl
|
|
nzusubk1 in7
|
|
in5 srt 0002
|
|
aloltr g pch c
|
|
in7 ralcn f2
|
|
lddcnaf1 tr ui
|
|
tr uistdlast subf1
|
|
tr snzu tr u
|
|
supparnr
|
|
nzusubk2 tr u
|
|
tr uraltemph
|
|
stutemph zero temph
|
|
nzeloopr sub f
|
|
loopraupiaw
|
|
supcnakb
|
|
nzu stp n
|
|
aupcnaib
|
|
stuiaw
|
|
aupcn f5 8003 stl1149sub
|
|
cn f5stl 1989 sub f computed
|
|
tr xstdp0002
|
|
lddltr u
|
|
stdp0004
|
|
rautemph
|
|
lddtr y subj
|
|
tr ystlp0003
|
|
raliaw trgog
|
|
looptnze punch
|
|
pch 1977
|
|
stup0009
|
|
stliaw trgog
|
|
trgogldd sube1
|
|
stlp0005
|
|
raliaw
|
|
alocn f6 8002 ldd1149sub
|
|
cn f6ral 1989 tr z computed g
|
|
tr zsrt 0002
|
|
aloltr g
|
|
stlp0001
|
|
raliaw
|
|
sloone loopt
|
|
cnaf1lddif tr x computed g
|
|
cn f2supparnr tr s computed g
|
|
1
|
|
1 changes for punch routine
|
|
1828ralnnal1 set sw 50
|
|
aloone nxtwd and
|
|
aupswba2 1991 for
|
|
ldd tm ra processing
|
|
raliac punch
|
|
sloone statements
|
|
stliac arith
|
|
swba2supcomma bypass
|
|
nzutr hb n comma
|
|
lddtj10a and reset
|
|
stdtj 10 sw 50 to
|
|
lddswba3 process
|
|
stdsw ba tr li statement
|
|
swba3nzu tx dh if parnl
|
|
supparnl want elem
|
|
nzu tj 5 of array
|
|
aupone 1 if comma
|
|
nzu tj 3 var asmbld
|
|
aupcomma tr ha to process
|
|
tj 3 rautemab
|
|
nzu tr hb
|
|
lddstrup subj
|
|
strupstutemac precede
|
|
sup 8001 var loc
|
|
slt 0002 number by
|
|
sup 8003 t for read
|
|
srt 0002 and punch
|
|
aloltr t statements
|
|
lddout21 tr kk
|
|
out21rautemac if whole
|
|
nzuout22 tr hb array
|
|
out22rauprodt specified
|
|
ldd sube by punch
|
|
lddout23 statement
|
|
stdoutp tr jo process ij
|
|
out23rautemac product
|
|
srt 0004 followed
|
|
sup 8003 by base
|
|
aupnine
|
|
slt 0004
|
|
ldd sube
|
|
slt 0002
|
|
stltemab tr jp
|
|
tj 5 lddnzu2b
|
|
stdnzu2 tx de
|
|
nzu2bstutemac tj 5a rrecd loc
|
|
tj 5aralltr t num by t
|
|
stltemab tj 8
|
|
1
|
|
1 changes for read statements
|
|
1829ralnnal1 set sw 50
|
|
aupswba2 nxtwd and
|
|
ldd tm ra 1991 for
|
|
rau 1900 read state
|
|
srt 0002 ments
|
|
stl 1900 bybass wd
|
|
rautr rd read
|
|
aloltrdf store df
|
|
lddtjbsw sub x
|
|
tr rdralone rith1
|
|
tm rastdoute
|
|
lddnine
|
|
std 1991
|
|
stusw ba
|
|
stlnn l1 oute
|
|
sub xstdtj sw
|
|
stllast 8003
|
|
1821ralccn01 pch c continue
|
|
1830ralltrff end
|
|
ldd tr uc
|
|
stlp0006
|
|
pch 1977 headr
|
|
1827ralcst01 pch c oause stop
|
|
one 1 00 0000 0001 one 1
|
|
two 1 00 0000 0002
|
|
seven 00 0000 0007
|
|
eight 00 0000 0008
|
|
nine 00 0000 0009 nine in 10
|
|
cn a5 00 0000 0010 equl n com
|
|
decpt 00 0000 0018 decimal pt
|
|
parnr 00 0000 0019
|
|
plus 00 0000 0020 plus sign
|
|
mult 00 0000 0029 milt sign
|
|
minus 00 0000 0030 minus sign
|
|
divid 00 0000 0031
|
|
comma 00 0000 0038
|
|
parnl 00 0000 0039
|
|
equal 00 0000 0048 equal sign
|
|
ltr a 00 0000 0061
|
|
ltr e 00 0000 0065
|
|
ltr f 00 0000 0066
|
|
ltrni 00 0000 0069
|
|
ltr k 00 0000 0072
|
|
egton 00 0000 0081
|
|
low88 00 0000 0088
|
|
zerol 00 0000 0090 alpha o lo
|
|
aone 00 0000 0091 alpha one
|
|
ltrff 00 0000 6666
|
|
if 00 0000 6966
|
|
one 00 0001 0000 one in fif
|
|
two 00 0002 0000 two in fif
|
|
three 00 0003 0000 three in 5
|
|
four 00 0004 0000 four in 5t
|
|
five 00 0005 0000 five in 5t
|
|
six 00 0006 0000
|
|
cnakb 00 0010 0000
|
|
cnaib 00 0011 0000
|
|
cnbkb 00 0025 0000
|
|
cnbib 00 0026 0000
|
|
cnif6 00 0091 6966
|
|
hndrd 00 0100 0000 table cnst
|
|
ltr b 62 0000 0000
|
|
ltr d 64 0000 0000
|
|
ltrfh 66 0000 0000 f in hop
|
|
ltr g 67 0000 0000
|
|
cst01 68 0000 0000 word halt
|
|
ltr i 69 0000 0000
|
|
ltr j 71 0000 0000
|
|
ltr l 73 0000 0000
|
|
ltr m 74 0000 0000
|
|
ltr p 77 0000 0000
|
|
ltr q 78 0000 0000
|
|
ltr r 79 0000 0000
|
|
ltr s 82 0000 0000
|
|
ltr t 83 0000 0000
|
|
ltr u 84 0000 0000
|
|
ltr v 85 0000 0000
|
|
ltr x 87 0000 0000
|
|
ltr y 88 0000 0000
|
|
ltr z 89 0000 0000
|
|
ltrdf 00 0000 6466
|
|
ltrkh 72 0000 0000 k in hop
|
|
azero 90 0000 0000
|
|
zrob 90 6200 0000
|
|
ccn01 88 9189 8891 cont const
|
|
lmcom 73 7400 0000
|
|
slcom 82 7300 0000
|
|
stopahlt 0010 pack nz parn co
|
|
stopbhlt 0001 pack tlu error
|
|
stopfhlt 0400 pack not intege
|
|
stophhlt 0020 pack pack error
|
|
stp nhlt 0002 pack table ovfl
|
|
stp rhlt 0003 pack
|
|
stopmhlt 0004 pack variable o
|
|
stopnhlt 0300 pack transltn o
|
|
stopohlt 0100 pack subscrpt o
|
|
1171hlt 0030 pack function n
|
|
stopchlt 0005 pack scan ovrfl
|
|
eghts 00 0800 8080
|
|
zrojo 90 7190 0000 if constan
|
|
1 process equivalence statement
|
|
1824raliac initialze
|
|
slothree word count
|
|
stliafi parn count
|
|
stutemaa
|
|
rau 1902
|
|
slt 0002 is charac
|
|
aloeqsw1 subf3 is charac
|
|
eqsw1supparnl left paren
|
|
nzu eq1 comma or
|
|
aupone 1 rght paren
|
|
nzu eq2 if no
|
|
aupparnr restor var
|
|
nzusubk1 eq3
|
|
eq1 raltemaa yes left
|
|
aloone paren
|
|
stuf1 increment
|
|
stdf3 parn count
|
|
stdtemab
|
|
stdf9 initialze
|
|
stltemaa sub f for new
|
|
1 equivl set
|
|
eq2 rautemaa yes comma
|
|
nzueq2a eqout prnct zro
|
|
eq2a rautemph start new
|
|
stltemph equiv set
|
|
lddouteq subj
|
|
outeqrau 8003 not zero
|
|
srt 0004 proces var
|
|
sup 8003 is base
|
|
srt 0006 of new var
|
|
stlout q less than
|
|
aupf1 base of
|
|
nzu eq2aa previous
|
|
sup 8002 variable
|
|
bmieq2b eq2aa
|
|
eq2aastlf1 eq2b save low
|
|
eq2b ralprodt base
|
|
slof3 is ji
|
|
bmieq2c prod of
|
|
alo 8001 new var
|
|
stlf3 greater
|
|
lddeq2ba than prod
|
|
stdeqsw2 of previos
|
|
lddout q variable
|
|
stdtemae treq1 save bse
|
|
treq1rauf9 of lrg ary
|
|
supfive
|
|
nzu stp n save lrge
|
|
aupsix product
|
|
stuf9 store
|
|
stdf6 subsc tabl
|
|
alosubsc locat in
|
|
aup 8003 equ bar ta
|
|
stl 1449 eqsw2 halt if
|
|
eq2baaloeq2b1 more
|
|
lddeqsw3 eq2bb than
|
|
eq2bbstdsw 50 eq2be five
|
|
eq2belddeq2b2 eq2bc variables
|
|
eq2bcsdaf8 in equ set
|
|
stlf7
|
|
rslf1 f7 read equ
|
|
eq2b1ldd 1499 f8 var table
|
|
eq2b2sia 0000 eq2bd to insert
|
|
eq2bdrauf6 low base
|
|
supone in 15xx
|
|
nzu sub f
|
|
stuf6 if ij
|
|
aup 8003 prodt of
|
|
ral 1449 sw 50
|
|
eqsw3aloeq2b3 eq2be
|
|
eq2b3sup 1499 equiv set
|
|
bmi eq2bd chnge 15xx
|
|
ldd 8003 f8 to minus
|
|
eq2c lddeq2ca in subsc
|
|
stdeqsw2 treq1 table
|
|
eq2caaloeq2b3
|
|
lddeqsw4 eq2bb
|
|
eqsw4aloeq2b1 eq2be
|
|
eq3 raltemaa yes rght
|
|
sloone paren
|
|
stltemaa decrement
|
|
lddeqout paren
|
|
stdlast eq2a count
|
|
eqoutraleq3a1 eq3a prepar to
|
|
eq3a sloeq3a2 scan subsc
|
|
nze eq3d table and
|
|
aloeq3b adjust
|
|
lddeq3c1 bases
|
|
sdaf4
|
|
lddeq3c2
|
|
sdaf5
|
|
stltemac 8001
|
|
eq3a1ral 1499 eq3ba
|
|
eq3a2ral 1519 eq3ba
|
|
eq3b ral 1520 eq3ba
|
|
eq3babmi eq3bb
|
|
lddsetm storm
|
|
eq3bblddeq3bc storm
|
|
stormstdswchm compare
|
|
rsm 8002 base of
|
|
slt 0006 15xx with
|
|
stuoutp bse of eqv
|
|
sup 8003 set
|
|
slt 0004 if less
|
|
aupf1 continue
|
|
bmieq3c scan
|
|
nzueq3bc swchm if equal
|
|
eq3bcraltemac eq3a adjust loc
|
|
setm ramoutp count
|
|
slt 0004 if grter
|
|
lddeq3bd compare
|
|
stdj106 j104 with orig
|
|
eq3bdalotemab bse of
|
|
lddj106a lrgst aray
|
|
stdj106 decrease
|
|
stltemab eq3bc or increse
|
|
eq3c sup 8001 base of
|
|
auptemae 15xx as
|
|
bmieq3cb needed
|
|
sup 8001
|
|
ram 8003
|
|
alof3 eq3ca
|
|
eq3caslotemab f4
|
|
eq3c1ldd 0000 f5
|
|
eq3c2sia 0000 eq3bc
|
|
eq3cbsup 8001
|
|
ram 8003 eq3ca
|
|
eq3d lddpack
|
|
stdlast sub f
|
|
pat
|
|
1
|
|
equminus 0167
|
|
equswpka 0098
|
|
equread 0050
|
|
equpacka 0088
|
|
1 pack
|
|
1 for transit i s and ii s
|
|
bla 1000 1010
|
|
regr1951 1960
|
|
packaralr0001
|
|
nze ztpk1
|
|
slt 0002
|
|
stlr0001
|
|
ral 8003
|
|
nzeswpkt packa
|
|
ztpk1ralr0002
|
|
nze ztpk2
|
|
slt 0002
|
|
stlr0002
|
|
ral 8003
|
|
nzeswpkt ztpk1
|
|
ztpk2ralr0003
|
|
nze ztpk3
|
|
slt 0002
|
|
stlr0003
|
|
ral 8003
|
|
nzeswpkt ztpk2
|
|
ztpk3ralr0004
|
|
nze ztpk4
|
|
slt 0002
|
|
stlr0004
|
|
ral 8003
|
|
nzeswpkt ztpk3
|
|
ztpk4ralr0005
|
|
nze ztpk5
|
|
slt 0002
|
|
stlr0005
|
|
ral 8003
|
|
nzeswpkt ztpk4
|
|
ztpk5ralr0006
|
|
nze read
|
|
slt 0002
|
|
stlr0006
|
|
ral 8003
|
|
nzeswpkt ztpk5
|
|
swpktsloi49
|
|
nzenzk1
|
|
ralminus swpka
|
|
nzk1 alo 8001 swpka
|
|
i49 00 0000 0049
|
|
pat
|
|
pst
|