08027162ca
- Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test
2248 lines
176 KiB
Text
2248 lines
176 KiB
Text
1 soap 4000
|
|
1
|
|
1 symbolic optimal assembly prog
|
|
1
|
|
1 for the
|
|
1
|
|
1 ibm 650 model 4
|
|
1
|
|
1 data processing system
|
|
1
|
|
1
|
|
0 5cd 4007 0006
|
|
0 blr 0000 0040 avail
|
|
0 blr 0050 0090 table
|
|
0 blr 0100 0140 areas
|
|
0 blr 0150 0190
|
|
0 blr 0200 0240
|
|
0 blr 0250 0290
|
|
0 blr 0300 0340
|
|
0 blr 0350 0390
|
|
0 blr 0400 0440
|
|
0 blr 0450 0490
|
|
0 regb0041 0042 subr2
|
|
0 reg=0043 0044 sub 11
|
|
0 reg*0045 0046 punch subr
|
|
0 reg/0091 0093
|
|
0 blr 0191 0191
|
|
0 reg.0500 0509 sub 11
|
|
0 reg(0550 0560 sub 11
|
|
0 equ1ixxx (0001
|
|
0 equ0010i (0002
|
|
0 equ100ix (0003
|
|
0 equ1dxxx (0005
|
|
0 equ10dxx (0006
|
|
0 equh1 4 (0010
|
|
0 reg)0600 0612 index tabl
|
|
0 regn0700 0752 optim tabl
|
|
0 blr 0800 0819 pseudo ent
|
|
0 regh0902 0904 type 2
|
|
0 regm0905 0907
|
|
0 regv0910 0911 equ syn
|
|
0 regx0913 0914 type 0
|
|
0 regy0915 0916 equ syn
|
|
0 regz0917 0919
|
|
0 regw0920 0921
|
|
0 blr 0923 0968 multiple r
|
|
0 regd0923 0923 proc l
|
|
0 bla 0930 0930
|
|
0 bla 0964 0964
|
|
0 reg+0977 0986 5/cd outpt
|
|
0 equ85thp +0010
|
|
0 blr 1000 1000 entry
|
|
0 blr 1002 1002 literal
|
|
0 blr 1005 1005 symbols
|
|
0 blr 1017 1017
|
|
0 blr 1025 1025
|
|
0 blr 1041 1041
|
|
0 blr 1055 1055
|
|
0 rego1185 1199 multipass
|
|
0 regr1200 1207 sub 5
|
|
0 regu1250 1259 sub 13
|
|
0 blr 1292 1292
|
|
0 regi1300 1307 sub 13
|
|
0 blr 1563 1570 type2
|
|
0 bla 1565 1565
|
|
0 bla 1569 1569
|
|
0 syn. 1578
|
|
0 syn) 1579
|
|
0 syn+ 1580
|
|
0 syn$ 1588
|
|
0 syn* 1589
|
|
0 syn- 1590
|
|
0 syn/ 1591
|
|
0 syn, 1598
|
|
0 syn( 1599
|
|
0 syn= 1608
|
|
0 syn' 1609
|
|
0 blr 1621 1649 reg table
|
|
0 equpchex 1630
|
|
0 equzzzz1 1640 temporary
|
|
0 equzzzz2 1641 storage
|
|
0 equtag zzzz1
|
|
0 regc1650 1786 symblic op
|
|
0 blr 1800 1800 manual pst
|
|
0 blr 1900 1900 manual pat
|
|
0 syn80xxl 1912
|
|
0 syn80xxd 1928
|
|
0 reg-1937 1941
|
|
0 syn80xxi 1944
|
|
0 synreadc 1950
|
|
0 blr 1951 1967 17wd buffr
|
|
0 equxxxx1 1961
|
|
0 equxxxx2 1962
|
|
0 equw 2 xxxx2
|
|
0 regp1977 1986 punch area
|
|
0 regt1990 1993 type
|
|
0 blr 1998 1999
|
|
0 regs2000 3099 symbol tab
|
|
0 rege3200 3749 equiv tabl
|
|
0 rega0510 0527
|
|
0 reg$0528 0545
|
|
0 hed3
|
|
0 subr3stdexitx downr stor exit
|
|
0 downrrau 1954
|
|
0 siaxxxx1
|
|
0 ral 8001 is op blnk
|
|
0 nze illop
|
|
0 slt 0002
|
|
0 nzu num
|
|
0 rau 8001
|
|
0 tluc0001 search
|
|
0 alo1 8002 symbolic
|
|
0 8002rau 9998 nxt op table
|
|
0 nxt supxxxx1
|
|
0 srt 0004 is symb op
|
|
0 nzuillop legal
|
|
0 slt 0001
|
|
0 nzu norm
|
|
0 sup4ixxx test pseu
|
|
0 nzurpq
|
|
0 slt 0003 8003 pseudo op
|
|
1
|
|
0 norm stlp0007 store num
|
|
0 slo 8001 op and get
|
|
0 tlun0001 optimizing
|
|
0 alo5 8002 data
|
|
0 8002ldd 9998 nxtin
|
|
0 nxtinstdoptim exitx
|
|
1
|
|
0 num rau 8001 op code in
|
|
0 ldd compr dbl digit
|
|
0 raup0007
|
|
0 srt 0002 norm to 1 digit
|
|
1
|
|
0 rpq slt 0001 negativ op
|
|
0 stlp0007 add cntrol
|
|
0 slo 8002 8 to pch
|
|
0 slt 0004 minus and
|
|
0 alop0010 get proper
|
|
0 slt 0001 entry in
|
|
0 slo 8002 0ptimizing
|
|
0 aloh8xxx table
|
|
0 srt 0001 aup
|
|
1
|
|
0 illopralp0010 illegal
|
|
0 alo8ixxx aup op pch
|
|
0 aup aup2 blank op
|
|
0 stlp0010 8003
|
|
0 8003lddn0000 nxtin
|
|
1
|
|
0 1 rau 0000 nxt constants
|
|
0 2 lddn0004 nxtin
|
|
0 5 ldd 0000 nxtin
|
|
0 optim 01 0000 optim
|
|
0 hed
|
|
1
|
|
1 sub 4 what is address
|
|
1
|
|
0 hed4
|
|
0 subr4bov
|
|
0 stdexitz
|
|
0 stuxxxx1 store addr
|
|
0 srt 0008 is c5
|
|
0 stuxxxx2 save c5
|
|
0 rau 8002 are low 4
|
|
0 aup90xxx loop
|
|
0 loop auph1
|
|
0 bov sym
|
|
0 slt 0002
|
|
0 nzuloop
|
|
0 ralxxxx2 low 4 num
|
|
0 nze exitz
|
|
0 slo90xxx is c5
|
|
0 bmi sym alphabetic
|
|
0 ral1ixxx regional
|
|
0 aupxxxx1 aex
|
|
0 aex aloexitz
|
|
0 slo 8002 8001
|
|
0 sym rauxxxx1 hed symbol
|
|
0 ldd sub15
|
|
0 stuhsymb
|
|
0 srt 0008
|
|
0 nzu lit
|
|
0 rau 8001
|
|
0 alo2ixxx aex
|
|
0 lit rau 8001
|
|
0 alo100ix aex
|
|
0 hsymb 01 0000 hsymb eraseable
|
|
0 hed
|
|
1
|
|
1 sub 15 heading routine
|
|
1
|
|
0 hedh
|
|
0 sub15stdexity save exit
|
|
0 ldd 8003 is c1
|
|
0 slt 0008 blank
|
|
0 nzudh
|
|
0 rau 8001 head
|
|
0 aup0000h exity
|
|
0 dh rau 8001 exity dont head
|
|
0 hed
|
|
1
|
|
1 sub 5 test absolute address
|
|
1
|
|
0 hed5
|
|
0 subr5stdexitz store exit
|
|
0 stlxxxx1 store a
|
|
0 slt 0004
|
|
0 slo 8002
|
|
0 tlur0001 tlu
|
|
0 aloget 8002 range
|
|
0 8002rau 9972 x table
|
|
0 x slt 0006
|
|
0 srt 0006
|
|
0 aupexitz
|
|
0 aloxxxx1
|
|
0 sup 8003 8001
|
|
0 get rau 0000 x
|
|
0 r0001 00 3999 0000 range
|
|
0 r0002 00 7999 0003 table
|
|
0 r0003 00 8003 0001
|
|
0 r0004 00 8004 0979
|
|
0 r0005 00 8007 0001
|
|
0 r0006 00 8999 0979
|
|
0 r0007 00 9199 0002
|
|
0 r0008 99 9999 0003
|
|
1
|
|
0 exitz 01 0000 exitz
|
|
0 hed
|
|
1
|
|
1
|
|
1 sub 6 symbol test routine
|
|
1
|
|
0 hed6
|
|
0 subr6stdexitz store exit
|
|
0 stus store symb
|
|
0 lddswof set switch
|
|
0 stdsw off
|
|
0 ral 8003 scramnle
|
|
0 divrf symbol
|
|
0 ral 8003 giving lo
|
|
0 slt 0004
|
|
0 alol1 sli
|
|
0 sli stlli 8001 init li
|
|
0 8001ral 9990 a is cont of
|
|
0 a nze und li zero
|
|
0 slos is cont of
|
|
0 nzesw def li symb
|
|
0 sw ralli off is li
|
|
0 off slolmax maximum
|
|
0 nze max
|
|
0 alolmp1 sli step li
|
|
0 on alo1dxxx sli step li
|
|
0 max lddswon set
|
|
0 stdsw switch on
|
|
0 rall1 sli zero li
|
|
1
|
|
0 def ralli defined
|
|
0 lddasu subr8 get
|
|
0 asu aups exitz equivalent
|
|
1
|
|
0 und ralexitz if symbol
|
|
0 bd5l is undefnd
|
|
0 bd6d i test if it
|
|
0 l ldd 1960 has been
|
|
0 bd9 alo1 previously
|
|
0 ldd 1957 stequ establshed
|
|
0 d ldd 1960 and if so
|
|
0 bd8 alo1 store it
|
|
0 ldd 1958 stequ as equiv
|
|
0 i ldd 1960
|
|
0 bd7 alo1
|
|
0 ldd 1959 stequ if still
|
|
0 stequstdequiv ralli undefined
|
|
0 alo1 alo1ixxx then step
|
|
0 stlexitz exit
|
|
0 ralsymct
|
|
0 slo1ixxx zero if
|
|
0 stlsymct 1000th
|
|
0 nzeralli full symbol
|
|
1
|
|
0 ralliralli
|
|
0 slolx
|
|
0 stllsymb asu
|
|
1
|
|
0 full lddset5+ suspend
|
|
0 stdpchwd 5/cd punch
|
|
0 ldd4d888 1100 symbs
|
|
0 stdtrans set contrl
|
|
0 lddinto1 to enter
|
|
0 stdintox pass
|
|
0 lddp0009 routine
|
|
0 stdnhold on next
|
|
0 ldd0000h card read
|
|
0 stdhhold ralli
|
|
1
|
|
0 swof ralli off constants
|
|
0 swon ralli on
|
|
0 rf 00 0000 1099
|
|
0 lx ral 0000 a
|
|
0 l1 rals0001 a
|
|
0 lmax rals1100 a
|
|
0 lmp1 rals1101 a
|
|
0 4d888 04 0000 8880
|
|
0 into1alotorgp first
|
|
0 s 01 0000 s eraseable
|
|
0 sw 01 0000 sw
|
|
0 lo 01 0000 lo
|
|
0 li 01 0000 li
|
|
0 lsymb 01 0000 lsymb
|
|
0 symct 01 0000 symct
|
|
0 nhold 01 0000 nhold
|
|
0 hhold 01 0000 hhold
|
|
0 trans 01 0000 trans
|
|
0 hed
|
|
1
|
|
1 sub 7 store symbol and equiv
|
|
1
|
|
0 hed7
|
|
0 subr7stdexitz store exit
|
|
0 lddss
|
|
0 sdaxxxx2 8001 store
|
|
0 8001stu 9988 a symbol
|
|
0 a sup 8001
|
|
0 stlxxxx1 save e
|
|
0 srt 0004
|
|
0 div2ixxx calculate
|
|
0 slt 0004 location
|
|
0 aloc1 of
|
|
0 lddc2 e
|
|
0 sdasel and
|
|
0 lddc3 store
|
|
0 sdaser
|
|
0 stlobee
|
|
0 slo 8001
|
|
0 aloxxxx1 obee
|
|
0 obee ldd 9986 b
|
|
0 b nzuser
|
|
0 slt 0004 sel
|
|
0 ss stu 9987 a condtants
|
|
0 c1 ldd 2200 b
|
|
0 c2 sda 9985 exitz
|
|
0 c3 sia 9984 exitz
|
|
0 obee 01 0000 obee eraseable
|
|
0 sel 01 0000 sel
|
|
0 ser 01 0000 ser
|
|
0 hed
|
|
1
|
|
1 sub 8 given sym loc get equiv
|
|
1
|
|
0 hed8
|
|
0 subr8stdexit store exit
|
|
0 ldd 8003
|
|
0 sdalsymb store l
|
|
0 ral 8001
|
|
0 div2dxxx
|
|
0 slt 0004
|
|
0 aloe1 8002
|
|
0 8002ldd 9975 tr
|
|
0 tr nzu lh
|
|
0 ram 8001 lr get e rh
|
|
0 lh ram 8001 get e lh
|
|
0 srt 0004 lr
|
|
0 lr ldd 8003
|
|
0 siaequiv
|
|
0 rallsymb exit
|
|
1
|
|
0 e1 ldd 2200 tr
|
|
0 exit 01 0000 exit eraseable
|
|
0 equiv 01 0000 equiv
|
|
0 hed
|
|
1
|
|
1 sub 9 calculate reg address
|
|
0 hed9
|
|
0 subr9stlexitz
|
|
0 lddmask
|
|
0 sdazzzz1
|
|
0 lddal0c stor
|
|
0 stor stdxxxx1
|
|
0 srt 0008
|
|
0 ral 8003 test char
|
|
0 slo90xxx region
|
|
0 bmi 0801
|
|
0 slt 0004 xxxx1
|
|
3 xxxx1aloc 8002
|
|
0 8002ral 9991 nex
|
|
0 nex bdoill is reg cha
|
|
0 sloh9xxx zzzz1 defined
|
|
3 zzzz1alo 1959 all
|
|
0 all slo1ixxx
|
|
0 bmiill exitz
|
|
0 ill ralexitz undefined
|
|
0 alo1ixxx 8002 or illegal
|
|
1
|
|
0 mask alo 9999 all
|
|
0 al0c aloc 8002
|
|
0 c ral 1650 nex
|
|
0 hed
|
|
1 sub 10 set cc 8 and punch
|
|
1
|
|
0 sub10stucongo
|
|
0 raup0010
|
|
0 aup84th
|
|
0 lddcongo h8sub
|
|
1
|
|
0 84th 00 0800 0000 constant
|
|
1
|
|
0 h8substd8exit
|
|
0 slt 0001
|
|
0 srt 0001
|
|
0 auph8xxx
|
|
0 stup0010
|
|
0 pchp0001
|
|
0 rautyp3a 8exit
|
|
1
|
|
1
|
|
1 sub 11 find and reserve best
|
|
1
|
|
0 hed0
|
|
0 sub11aupdrumt test drum
|
|
0 nzusex tag
|
|
0 stlexit is addr l
|
|
0 bd6di
|
|
0 ralseqll
|
|
0 bmi d0001
|
|
0 ral 8003 ssw l
|
|
0 di lddf d or i
|
|
0 sdaxxxx1 sub13 find optim
|
|
1
|
|
0 ssw ldd gda11 get table
|
|
0 srt 0005 ta strt
|
|
0 ta aloa1p1 8002 srch tabl
|
|
0 8002aup 0040 =0001 is a locat
|
|
0 =0001nzu add available
|
|
0 bmi yes
|
|
0 sup 8001 sw no strtlu
|
|
0 add alo1dxxx 8002
|
|
1
|
|
3 sw stlao swin multiple
|
|
3 sw sloamax swof exit
|
|
3 sw sloao swon
|
|
1
|
|
0 swin lddoff2 stsw get tlu st
|
|
1
|
|
0 swof nze max test end
|
|
0 aloamp1 sai of table
|
|
1
|
|
0 swon nze full is drum
|
|
0 alo 8001 full
|
|
0 alo10dxx sai
|
|
1
|
|
0 sai ldd1ixxx 8002 tlu avail
|
|
0 8002tlu 0040 =0002 table
|
|
0 =0002sloa1 ta
|
|
1
|
|
0 max rala1 tbl end-60
|
|
0 lddon test full
|
|
0 stdsw sai
|
|
1
|
|
0 stsw stdsw 8001
|
|
1
|
|
0 full hlt 0222 drum packd
|
|
0 ralexit set drum
|
|
0 ldd1ixxx tag to 1
|
|
0 stddrumt sex
|
|
0 sex alo 8001 8002 k+1 exit
|
|
1
|
|
0 yes lddst reserve
|
|
0 sdaeras location
|
|
0 rau 8003 found
|
|
0 tlu(0001
|
|
0 alofixav 8002
|
|
0 8002sup(0011 sca
|
|
0 sca bmi eras
|
|
0 aup 8001
|
|
0 slo1dxxx 8002
|
|
0 eras stu 0040 ca
|
|
0 ca slostmpy calculate
|
|
0 sdasau2 location
|
|
0 rslst found
|
|
0 aloeras
|
|
0 slt 0004
|
|
0 slo 8002
|
|
0 slt 0005
|
|
0 tlu.0001
|
|
0 stdrcall
|
|
0 aup 8002
|
|
0 studla
|
|
0 alosxavl 8002
|
|
0 8002ral.0010 asca
|
|
0 asca slorcall
|
|
0 slt 0007
|
|
0 aupsau2
|
|
0 mpy-50
|
|
0 alodla
|
|
0 alocnvrt
|
|
0 srt 0004 exit
|
|
1
|
|
0 gda11stdrerun given
|
|
0 rau 8002 dynamic
|
|
0 stddyna level-get
|
|
0 aup 8001 tabl start
|
|
0 srt 0001 address
|
|
0 rsl 8002
|
|
0 lddoff
|
|
0 stdsw
|
|
0 aupdyna rerun
|
|
1
|
|
0 .0001 07 0000 0000 group tabl
|
|
0 .0002 15 0000 0000
|
|
0 .0003 23 0000 0000
|
|
0 .0004 31 0000 0000
|
|
0 .0005 39 0000 0000
|
|
0 .0006 57 0000 0000
|
|
0 .0007 65 0000 0000
|
|
0 .0008 73 0000 0000
|
|
0 .0009 81 0000 0000
|
|
0 .0010 89 0000 0000
|
|
1
|
|
0 (0001 00 0000 0001 band table
|
|
0 (0002 00 0000 0010
|
|
0 (0003 00 0000 0100
|
|
0 (0004 00 0000 1000
|
|
0 (0005 00 0001 0000
|
|
0 (0006 00 0010 0000
|
|
0 (0007 00 0100 0000
|
|
0 (0008 00 1000 0000
|
|
0 (0009 01 0000 0000
|
|
0 (0010 10 0000 0000
|
|
0 (0011 99 9999 9999
|
|
1
|
|
0 f 00 0000 ssw constants
|
|
0 a1p1 aup 0000 =0001
|
|
0 ao hlt 0000 ao
|
|
0 amax aup 0490 =0001
|
|
0 apex 74 0000 0001
|
|
0 off2 sloamax swof
|
|
0 amp1 tlu 0500 0044
|
|
0 a1 tlu 0000 =0002
|
|
0 on sloao swon
|
|
0 sw hlt 0000 sw
|
|
0 st stu 0000 ca
|
|
0 fixavsup 0000 sca
|
|
0 stmpy 00 0550 0000
|
|
0 sau2 hlt 0000 sau2
|
|
0 rcallhlt 0000 rcall
|
|
0 dla hlt 0000 dla
|
|
0--50 00 0000 0050
|
|
0 cnvrt 00 3450 0000
|
|
0 rerunhlt 0000 rerun
|
|
0 dyna hlt 0000 dyna
|
|
0 off stlao swin
|
|
0 sxavlral 0000 asca
|
|
0 hed
|
|
1
|
|
1 sub 12 set blank l 8
|
|
1
|
|
0 sub12alop0010
|
|
0 alo87nth
|
|
0 stlp0010 8003
|
|
1
|
|
1 sub 13 cal optimum dynamic adr
|
|
1
|
|
0 hedy
|
|
0 sub13stdexitz store exit
|
|
0 bd5 i d or i
|
|
0 bd6ram + '+u
|
|
0 ral 1954 test core
|
|
0 srt 0002 d addr
|
|
0 rau 8002 tagged
|
|
0 srt 0002
|
|
0 sup 8003
|
|
0 nze ram
|
|
0 ralopreg set opreg
|
|
0 alo1ixxx to n + 1
|
|
0 stlopreg ram
|
|
0 ram ramoptim
|
|
0 slt 0002 clear op
|
|
0 sup 8003 code
|
|
0 slt 0001
|
|
0 slo 8002
|
|
0 slt 0001
|
|
0 alo 8001
|
|
0 srt 0003 seo
|
|
0 i ramoptim i
|
|
0 bd2shop shift test
|
|
0 slt 0004 seo + '+u
|
|
0 seo stlxxxx1 save ev od
|
|
0 ralopreg
|
|
0 div2ixxx
|
|
0 rau 8003
|
|
0 aloxxxx1
|
|
0 nzu r8
|
|
0 slt 0002
|
|
0 ral 8002 r8
|
|
0 r8 srt 0008 get base
|
|
0 aloopreg plus delta
|
|
0 div50xxx
|
|
0 ral 8003 exitz
|
|
1
|
|
0 shop bd3 xas ir test
|
|
0 ralp0007
|
|
0 srt 0004 digit of
|
|
0 slt 0009 d address
|
|
0 slo 8002
|
|
0 tluu0001
|
|
0 alogu 8002
|
|
0 8002ral 9969 top
|
|
0 top slt 0002
|
|
0 lddoptim is op srd
|
|
0 bd4 seo
|
|
0 slt 0004 seo srd
|
|
1
|
|
0 xas ralp0007 tlu
|
|
0 srt 0004 d address
|
|
0 slt 0006
|
|
0 slo 8002
|
|
0 tlui0001
|
|
0 alogxd 8002
|
|
0 8002ral 9968 nxt
|
|
0 nxt slt 0004 seo
|
|
1
|
|
0 u0001 00 2322 2524 shift
|
|
0 u0002 10 0706 0706 optimizing
|
|
0 u0003 20 0706 0908 table
|
|
0 u0004 30 0908 1110
|
|
0 u0005 40 1110 1312
|
|
0 u0006 50 1312 1514
|
|
0 u0007 60 1514 1716
|
|
0 u0008 70 1716 1918
|
|
0 u0009 80 1918 2120
|
|
0 u0010 90 2120 2322
|
|
1
|
|
0 i0001 39 9906 0600 x accum
|
|
0 i0002 79 9907 0700 add sub
|
|
0 i0003 80 0008 0800 table
|
|
0 i0004 80 0106 0600
|
|
0 i0005 80 0209 0800
|
|
0 i0006 80 0308 0900
|
|
0 i0007 90 5908 0800
|
|
0 i0008 99 9909 0900
|
|
1
|
|
0 gu ral 0000 top constants
|
|
0 gxd ral 0000 nxt
|
|
0 hed
|
|
1
|
|
1 sub 17 calc 800x equivalent
|
|
1
|
|
0 hedx
|
|
0 sb17dldddeq di d equiv
|
|
0 sb17ilddieq di i equiv
|
|
0 di stdxxxx1 save tag
|
|
0 stuexity save exit
|
|
0 stlxxxx2 save 800x
|
|
0 lddxxxx1 sub13 calc optim
|
|
0 sda stlequiv dynam addr
|
|
0 div2ixxx
|
|
0 stuxxxx1 store even
|
|
0 raloptim odd factor
|
|
0 bmi xm
|
|
0 lddexitz branch if
|
|
0 bd5d i arithmetic
|
|
0 d ralxxxx2 op code
|
|
0 slo8001 and lessen
|
|
0 nzexm even 8001
|
|
0 ralxxxx1 data da
|
|
0 nzeex by 2 or
|
|
0 ral48 alo increase
|
|
0 i ralequiv any 800x
|
|
0 alo2ixxx inst da
|
|
0 stlequiv xm by 2
|
|
0 xm ralxxxx1
|
|
0 nzeod ev add to da
|
|
0 od ral8002 eo possible
|
|
0 ev ral8003 eo even or
|
|
0 eo sloxxxx2 odd factor
|
|
0 nzeex add1 for 8002
|
|
0 ex ralequiv exity and 8003 d
|
|
0 add1 ral1ixxx alo and i das
|
|
0 alo aloequiv exity
|
|
1
|
|
0 deq 00 0088 sda
|
|
0 ieq 00 0009 sda
|
|
0 8001 00 0000 8001
|
|
0 8002 00 0000 8002
|
|
0 8003 00 0000 8003
|
|
0 48 00 0000 0048
|
|
0 hed
|
|
1
|
|
1 sub 18 index address
|
|
1
|
|
0 hedw
|
|
0 indexstlxxxx1 store addr
|
|
0 stuexity store exit
|
|
0 rau 1954 get d tag
|
|
0 slt 0007 clear opcd
|
|
0 aloindxi
|
|
0 lddexity
|
|
0 bd5d i d or i
|
|
0 i slt 0002
|
|
0 bd6drmi cori test core
|
|
0 drmi nzucomp1 or drum
|
|
0 srt 0001 a
|
|
0 cori nzudtag and i tag
|
|
0 srt 0002 chnge 4000
|
|
0 alo 8002 a to 800
|
|
0 dtag sup 8003
|
|
0 nzecomp2
|
|
0 ral 8001 set to mpy
|
|
0 slt 0001 cord itag by200
|
|
0 d srt 0009 positn tag
|
|
0 bd6drmd cord testdrm or
|
|
0 cord mpy0200i a core
|
|
0 drmd slo 8002
|
|
0 nzu a is there a
|
|
0 sup2ixxx
|
|
0 lddexity test 80xx
|
|
0 bd7 800x or
|
|
0 bmidax d80xx drum
|
|
0 d80xxldd400ix tag 8 or c
|
|
0 stdindxi
|
|
0 nzudax a test b c
|
|
0 800x nzu 0945 d80xx is it b
|
|
0 dax ral4000i a tag a andc
|
|
0 a aloxxxx1 exity
|
|
0 400ix 00 0000 0400
|
|
1
|
|
0 comp1stuitagw 1620r save tag
|
|
0 comp2stditagw 1620r
|
|
0 1620rrau 1952
|
|
0 nzu clrit
|
|
0 rau 1954 test ir
|
|
0 siaxxxx2 ir op code
|
|
0 tlu)0001
|
|
0 aloopsrh 8002
|
|
0 8002sup)0013 ars
|
|
0 ars srt 0004
|
|
0 nzu clrit
|
|
0 ral 1954 clr i-tag
|
|
0 srt 0002 from
|
|
0 slt 0002 instructn
|
|
0 stlp0004
|
|
0 std 1954 zero i-go
|
|
0 stup0003 dnb c find locat
|
|
0 clritstuitagw 0954 error
|
|
0 opsrhsup 0000 ars
|
|
0 itagwhlt 0000 itagw
|
|
1
|
|
0 )0001alfaxa soap2 tagged
|
|
0 )0002alfaxb soap2 i-address
|
|
0 )0003alfaxc soap2 op code
|
|
0 )0004alfraa soap2 search
|
|
0 )0005alfrab soap2 table
|
|
0 )0006alfrac soap2
|
|
0 )0007alfrsa soap2
|
|
0 )0008alfrsb soap2
|
|
0 )0009alfrsc soap2
|
|
0 )0010alfsxa soap2
|
|
0 )0011alfsxb soap2
|
|
0 )0012alfsxc soap2
|
|
0 )0013alf99999 soap2 table end
|
|
0 exity 01 0000 exity eraseable
|
|
0 hed
|
|
1
|
|
1 sub 19 process location
|
|
1
|
|
0 regg0925 0925
|
|
0 regj0928 0928
|
|
0 regk0931 0931
|
|
0 regl0933 0933
|
|
1
|
|
0 heda
|
|
0 proclstdexitx store exit
|
|
0 rau 1951 is l blank
|
|
0 nzunb
|
|
0 aloseqll
|
|
0 bmiblnk
|
|
0 lddtcori
|
|
0 bdok0001 l0003
|
|
0 blnk raudrumt
|
|
0 nzud0002 b
|
|
0 b ralopreg setl blank
|
|
0 setl slt 0004 set l
|
|
0 lddp0008 to or
|
|
0 sdap0008
|
|
0 ralseqll
|
|
0 bmiexitx
|
|
0 aloctrsq
|
|
0 stlseqll exitx
|
|
0 nb lddg subr4 what is l
|
|
0 g0001ral 1957 k0001 absolute
|
|
0 g0002alok subr9
|
|
0 g0003lddj subr6 symbolic
|
|
0 g0101lddj subr6
|
|
0 k0001lddl subr5 test range
|
|
0 k0002rau87nth x reg error
|
|
0 x aupp0010 set blank
|
|
0 stup0010 setl l8
|
|
0 l0001stlopreg setl drum addr
|
|
0 l0002stltyp3a 800x 800x loc
|
|
0 l0003lddorceq 89x core addr
|
|
0 l0004rau87nth x other
|
|
0 80xxlrau87nth x 80xx addr
|
|
0 800x lddorxeq 89x
|
|
0 89x stdopreg x
|
|
0 j0001ralequiv k0001 sym defind
|
|
0 j0002rald sub11 sym undef
|
|
0 d0001stlopreg ss s eq found
|
|
0 d0002rau87nth x drum paked
|
|
0 ss auphsymb store
|
|
0 alolsymb symbol
|
|
0 lddb subr7
|
|
1
|
|
0 g 00 0000 g0001 constants
|
|
0 k nop 1957 k0001
|
|
0 j 00 0008 j0001
|
|
0 l 00 0000 l0001
|
|
0 d 00 0090 d0001
|
|
0 86th 00 0008 0000
|
|
0 87nth 00 0000 8000
|
|
0 exitx 01 0000 exitx eraseable
|
|
0 opreg 00 0000 0000
|
|
0 drumt 01 0000 drumt
|
|
0 orceq 01 0000 orceq
|
|
0 orxeq 01 0000 orxeq
|
|
0 hed
|
|
1
|
|
1 sub 20 process data address
|
|
1
|
|
0 regd0937 0937 proc d
|
|
0 regf0939 0939
|
|
0 regg0941 0941
|
|
0 regj0944 0944
|
|
0 regk0946 0946
|
|
0 regl0949 0949
|
|
1
|
|
0 hedb
|
|
0 procdstdexitx store exit
|
|
0 rau 1952
|
|
0 nzunb
|
|
0 aloseqdd
|
|
0 bmi j0001
|
|
0 rald sub11 find
|
|
0 d0001stlorbal l0004 optimum d
|
|
0 d0002rau88th x drum paked
|
|
0 bt lddoptim is op
|
|
0 bd1cksqd
|
|
0 stlopreg cksqd
|
|
0 x aupp0010 set blank
|
|
0 stup0010 cksqd
|
|
0 cksqdralseqdd
|
|
0 bmiexitx
|
|
0 aloctrsq
|
|
0 stlseqdd exitx
|
|
0 nb lddg subr4 what is d
|
|
0 g0001ral 1958 j0001
|
|
0 g0002aloj subr9
|
|
0 g0003lddk subr6 symbolic
|
|
0 g0101lddk- subr6
|
|
0 j0001lddl subr5 test range
|
|
0 j0002rau88th x reg error
|
|
0 l0001aupaxd index drum addr
|
|
0 l0002aupax8a index test tag
|
|
0 l0003aupaxc index core addr
|
|
0 l0004slt 0004 sd other
|
|
0 80xxdaupax8t index 80xx addr
|
|
0 800x slt 0004 set 80xx d
|
|
0 lddp0007
|
|
0 sdap0007
|
|
0 srt 0004
|
|
0 aupxeq sb17d get 800x e
|
|
0 scd slt 0004 set core d
|
|
0 lddp0007
|
|
0 sdap0007
|
|
0 srt 0004
|
|
0 lddceq sub13 get core e
|
|
0 sceq stlorceq bt save core
|
|
0 k0001stdpchex k0003
|
|
0 k0002ralequiv j0001
|
|
0 k0003ralf sub11
|
|
0 f0001stleq ss save eq
|
|
0 f0002studdrmt j0002 drum paked
|
|
0 ss auphsymb store
|
|
0 alolsymb symbol
|
|
0 ldd subr7
|
|
0 raleq l0001
|
|
0 sd lddp0007 set d addr
|
|
0 sdap0007
|
|
0 srt 0004 bt
|
|
1
|
|
0 d 00 0088 d0001 constants
|
|
0 g 00 0000 g0001
|
|
0 j nop 1958 j0001
|
|
0 l 00 0000 l0001
|
|
0 f 00 0088 f0001
|
|
0 k 00 0089 k0002
|
|
0-k- 00 0089 k0002
|
|
0 axd 00 0888 d0001
|
|
0 axc 00 0098 scd
|
|
0 ax8t 00 0988 l0004
|
|
0 ax8a 00 0988 800x
|
|
0 xeq stlorxeq bt
|
|
0 ceq 00 0098 sceq
|
|
0 88th 00 0000 0800
|
|
0 eq 01 0000 eq eraseable
|
|
0 orbal 01 0000 orbal
|
|
0 hed
|
|
1
|
|
1 sub 21 process instr address
|
|
1
|
|
0 regd0953 0953 proc i
|
|
0 regf0955 0955
|
|
0 regg0958 0958
|
|
0 regj0960 0960
|
|
0 regk0962 0962
|
|
0 regl0965 0965
|
|
1
|
|
0 hedc
|
|
0 procistdexitx store exit
|
|
0 rau 1953 is i blank
|
|
0 nzunb
|
|
0 aloseqii
|
|
0 bmi j0001
|
|
0 rau 1952 is d blank
|
|
0 nzudnb
|
|
0 aupdrumt
|
|
0 nzug0002
|
|
0 ralorbal l0004 tag
|
|
0 dnb rald sub11 find best
|
|
0 d0001stlorbal l0001 found
|
|
0 d0002ralp0010 x drum paked
|
|
0 x alo89th
|
|
0 stlp0010 cksqi
|
|
0 nb lddf subr4 what is i
|
|
0 f0001ral 1959 j0001 absolute
|
|
0 f0002aloj subr9
|
|
0 f0003lddk subr6 symbolic
|
|
0 f0101lddk subr6
|
|
0 j0001lddl subr5 test range
|
|
0 j0002ralp0010 x reg err0r
|
|
0 l0001aupaxd index drum addr
|
|
0 l0002aup 8002 800x 800x
|
|
0 l0003aupaxc index core addr
|
|
0 l0004lddp0007 other
|
|
0 siap0007 mor
|
|
0 80xxinop 0000 l0004 80xx iaddr
|
|
0 800x aloindxi
|
|
0 alo 8001
|
|
0 lddp0007
|
|
0 siap0007
|
|
0 ral 8003
|
|
0 aupxeq sb17i
|
|
0 90xx lddp0007 set core
|
|
0 siap0007 address
|
|
0 lddceq sub13 get core e
|
|
0 k0001ralequiv j0001 sym defind
|
|
0 k0002ralg sub11 sym undef
|
|
0 g0001aupaxds index found best
|
|
0 g0002ralp0010 x drum paked
|
|
0 ldd lddp0007 si
|
|
0 si siap0007
|
|
0 ralxxxx1
|
|
0 auphsymb store
|
|
0 alolsymb symbol
|
|
0 lddmor subr7
|
|
0 mor lddorbal set or
|
|
0 stdopreg cksqi
|
|
0 cksqiralseqii
|
|
bmiexitx
|
|
0 aloctrsq
|
|
0 stlseqii exitx
|
|
0 sceq stlorceq mor save core
|
|
1
|
|
0 d 00 0089 d0001 constants
|
|
0 f 00 0000 f0001
|
|
0 j nop 1959 j0001
|
|
0 k 00 0099 k0001
|
|
0 l 00 0000 l0001
|
|
0 g 00 0089 g0001
|
|
0 89th 00 0000 0080
|
|
0 axd 00 0089 l0004
|
|
0 axc 00 0099 90xx
|
|
0 axds 00 0089 ldd
|
|
0 xeq stlorxeq mor
|
|
0 ceq 00 0009 sceq
|
|
0 hed
|
|
1
|
|
1 sub 2 reserve unreserve
|
|
1
|
|
0 hed2
|
|
0 subr2stdexity
|
|
0 stln store n
|
|
0 slo 8001
|
|
0 aup 8003
|
|
0 srt 0003
|
|
0 stux save group
|
|
0 sup 8001
|
|
0 slt 0001
|
|
0 stup save band
|
|
0 sup 8001
|
|
0 slt 0002
|
|
0 mpy51xxx get
|
|
0 srt 0001 table
|
|
0 ldd gda11
|
|
0 slt 0001
|
|
0 stuany
|
|
0 srt 0002
|
|
0 slo 8002
|
|
0 srt 0006
|
|
0 alo 8001
|
|
0 aloh5
|
|
0 nzu slt
|
|
0 alo5000 slt
|
|
0 slt slt 0002
|
|
0 alobgin2
|
|
0 stla393
|
|
0 rauany
|
|
0 aupx
|
|
0 alop
|
|
0 slt 0004
|
|
0 aloc1 get slt
|
|
0 stlb0002 and srt
|
|
0 lddc2 1nstructns
|
|
0 sdaspr
|
|
0 aupc3 su and ral
|
|
0 su stusa
|
|
0 aupc4 8003
|
|
0 8003ral 9992 b0002
|
|
0 b0002slt 0009 xx
|
|
0 xx alo 8003
|
|
0 rau 8002
|
|
0 slt 0001
|
|
0 srt 0001
|
|
0 aupw spr
|
|
0 spr srt 0009 sac
|
|
0 sac aup 8002 sa
|
|
0 sa stu 9983 b0001
|
|
1
|
|
0 b0001raln is n zero
|
|
0 nze1or50 exity
|
|
0 1or50slo1ixxx next reduce n
|
|
0 next stln eithr by 1
|
|
0 eithrrausa eith2 is ai
|
|
0 eith2supa393 at band
|
|
0 bmi tpl end yes
|
|
0 aup 8001 no
|
|
0 aup su
|
|
0 00 0008 0000
|
|
1
|
|
0 tpl aup 8001 band end
|
|
0 alo 8001 test tabl
|
|
0 suplast end
|
|
0 bmi tp
|
|
0 aup 8001 no step
|
|
0 alo50d to nxt bnd
|
|
0 stla393
|
|
0 aup su
|
|
0 00 0018 0000
|
|
1
|
|
0 tp lddbgin2
|
|
0 stda393 tpr
|
|
0 tpr ralspr
|
|
0 sloc2 is p 9
|
|
0 nze zp
|
|
0 aloc5
|
|
0 lddc1
|
|
0 sdab0002
|
|
0 stlspr 56
|
|
0 56 rausa sz reduce ai
|
|
0 sz sup su by 482
|
|
0 00 0482 0000
|
|
1
|
|
0 zp lddc1 set p to
|
|
0 stdb0002 zero
|
|
0 lddc7
|
|
0 stdspr 78
|
|
0 78 rausa 178 reduce ai
|
|
0 178 sup su by 481
|
|
0 00 0481 0000
|
|
1
|
|
0 c1 slt 0000 xx constants
|
|
0 c2 srt 0009 sac
|
|
0 c3 stu 0000 b0001
|
|
0 c4 44 0000 0001
|
|
0 a393 stu 0482 b0001
|
|
0 c5 srt 0010 sac
|
|
0 c7 srt 0000 sac
|
|
0 w hlt 0000 w
|
|
0 p hlt 0000 p
|
|
0 n hlt 0000 n
|
|
0 spr hlt 0000 spr
|
|
0 sa hlt 0000 sa
|
|
0 x hlt 0000 x
|
|
0 51xxx 00 0000 0005
|
|
0 last stu 0482 b0001
|
|
0 h5 50 0000 0000
|
|
0 5000 00 0000 5000
|
|
0 bgin2stu 0032 b0001
|
|
0 50d 00 0050 0000
|
|
0 hed2
|
|
0 hed
|
|
1
|
|
1 optimizing table
|
|
1
|
|
0 n0001 01 0004 0498 nop hlt
|
|
0 n0002 02 3323 2299 ufa
|
|
0 n0003 07 0005 0598 03 to 07
|
|
0 n0004 08 3312 1299 lib ill op
|
|
0 n0005 09 3302 0299 ldi
|
|
0-n0006 11 3305 0499 aup sup
|
|
0 n0007 13 0000 0099 rsr
|
|
0 n0008 14 3311 1099 div
|
|
0-n0009 18 3305 0499 15 to 18
|
|
0 n0010 19 3321 2099 mpy
|
|
0 n0011 20 5403 0399 stl
|
|
0 n0012 21 4503 0399 stu
|
|
0 n0013 23 3403 0399 sda sia
|
|
0 n0014 24 3303 0399 std sfm
|
|
0 n0015 25 4405 0598 nts
|
|
0 n0016 26 0004 0498 bin
|
|
0 n0017 27 0005 0598 set wts
|
|
0 n0018 28 3312 1299 sib
|
|
0 n0019 29 3302 0299 sti
|
|
0 n0020 30 0000 9888 srt sps
|
|
0 n0021 31 0000 8888 srd
|
|
0 n0022 33 3327 2699 fad fsb
|
|
0 n0023 34 3300 0099 fdv
|
|
0 n0024 36 0000 9888 slt sct
|
|
0 n0025 38 3327 2699 fam fsm
|
|
0 n0026 39 3300 0099 fmp
|
|
0 n0027 43 3304 0498 40 to 43
|
|
0 n0028 44 3404 0598 nzu
|
|
0 n0029 45 4305 0498 nze
|
|
0 n0030 46 3304 0498 bmi
|
|
0 n0031 47 3305 0598 bov
|
|
0 n0032 49 3304 0498 nzc bmc
|
|
0 n0033 53 0000 0988 50 to 53
|
|
0 n0034 54 4405 0598 nef
|
|
0 n0035 57 0005 0598 55 to 57
|
|
0 n0036 59 0000 0988 axc sxc
|
|
0-n0037 61 3305 0499 rau rsu
|
|
0 n0038 63 3305 0699 tle
|
|
0 n0039 64 3311 1099 dvr
|
|
0-n0040 68 3305 0499 65 to 68
|
|
0 n0041 69 3303 0399 ldd
|
|
0 n0042 78 0000 0099 70 to 78
|
|
0 n0043 79 0005 0599 rpy
|
|
0 n0044 83 0000 0988 80 70 83
|
|
0 n0045 84 3305 0699 tlu
|
|
0 n0046 87 0005 0598 85 to 87
|
|
0 n0047 89 0000 0988 rac rsc
|
|
0 n0048 90 4405 0598 bd0
|
|
0 n0049 00 3306 0599 nac
|
|
0 n0050 00 5406 0598 elu neu
|
|
0 n0051 98 3305 0598 bd1 to bd8
|
|
0 n0052 99 4405 0598 bd9
|
|
0 n0053 00 6503 0399 anc
|
|
1
|
|
1 symbolic op table
|
|
1
|
|
0 1650seq
|
|
0 61 7366 4806 alf
|
|
0 61 7376 0150 alo
|
|
0 61 7473 0170 aml
|
|
0 61 7563 8920 anc
|
|
0 61 8477 0100 aup
|
|
0 61 8761 0500 axa
|
|
0 61 8762 0520 axb
|
|
0 61 8763 0580 axc
|
|
0 62 6476 0900 bdo
|
|
0 62 6490 0900 bd0 now ok
|
|
0 62 6491 0910 bd1
|
|
0 62 6492 0920 bd2
|
|
0 62 6493 0930 bd3
|
|
0 62 6494 0940 bd4
|
|
0 62 6495 0950 bd5
|
|
0 62 6496 0960 bd6
|
|
0 62 6497 0970 bd7
|
|
0 62 6498 0980 bd8
|
|
0 62 6499 0990 bd9
|
|
0 62 6975 0260 bin
|
|
0 62 7361 4802 bla
|
|
0 62 7379 4801 blr
|
|
0 62 7461 0410 bma
|
|
0 62 7462 0430 bmb
|
|
0 62 7463 0490 bmc
|
|
0 62 7469 0460 bmi
|
|
0 62 7677 4814 bop
|
|
0 62 7685 0470 bov
|
|
0 62 8283 0570 bst
|
|
0 64 6985 0140 div
|
|
0 64 7361 4815 dla
|
|
0 64 8579 0640 dvr
|
|
0 65 7384 8643 elu
|
|
0 65 7884 4804 equ
|
|
0 66 6164 0320 fad
|
|
0 66 6174 0370 fam
|
|
0 66 6485 0340 fdv
|
|
0 66 7477 0390 fmp
|
|
0 66 8262 0330 fsb
|
|
0 66 8274 0380 fsm
|
|
0 68 6564 4808 hed
|
|
0 68 7383 0010 hlt
|
|
0 73 6464 0690 ldd
|
|
0 73 6469 0090 ldi
|
|
0 73 6962 0080 lib
|
|
0 74 7788 0190 mpy
|
|
0 75 6163 8565 nac
|
|
0 75 6566 0540 nef
|
|
0 1700seq
|
|
0 75 6584 8642 neu
|
|
0 75 7677 0000 nop
|
|
0 75 8382 0250 nts
|
|
0 75 8961 0400 nza
|
|
0 75 8962 0420 nzb
|
|
0 75 8963 0480 nzc
|
|
0 75 8965 0450 nze
|
|
0 75 8984 0440 nzu
|
|
0 77 6183 4807 pat
|
|
0 77 6368 0710 pch
|
|
0 77 8283 4812 pst
|
|
0 79 6161 0800 raa
|
|
0 79 6162 0820 rab
|
|
0 79 6163 0880 rac
|
|
0 79 6173 0650 ral
|
|
0 79 6174 0670 ram
|
|
0 79 6184 0600 rau
|
|
0 79 6279 4811 rbr
|
|
0 79 6364 0700 rcd
|
|
0 79 6391 0720 rc1
|
|
0 79 6392 0750 rc2
|
|
0 79 6393 0780 rc3
|
|
0 79 6479 4813 rdr
|
|
0 79 6482 0860 rds
|
|
0 79 6491 0700 rd1
|
|
0 79 6492 0730 rd2
|
|
0 79 6493 0760 rd3
|
|
0 79 6567 4803 reg
|
|
0 79 6573 4809 rel
|
|
0 79 6578 4810 req
|
|
0 79 7788 0790 rpy
|
|
0 79 8261 0810 rsa
|
|
0 79 8262 0830 rsb
|
|
0 79 8263 0890 rsc
|
|
0 79 8273 0660 rsl
|
|
0 79 8274 0680 rsm
|
|
0 79 8279 0120 rsr
|
|
0 79 8284 0610 rsu
|
|
0 79 8361 0050 rta
|
|
0 79 8363 0030 rtc
|
|
0 79 8375 0040 rtn
|
|
0 79 8382 8205 rts
|
|
0 79 8664 0550 rwd
|
|
0 82 6383 0360 sct
|
|
0 82 6461 0220 sda
|
|
0 82 6482 0850 sds
|
|
0 82 6578 4816 seq
|
|
0 82 6583 0270 set
|
|
0 1750seq
|
|
0 82 6674 5019 sfm
|
|
0 82 6961 0230 sia
|
|
0 82 6962 0280 sib
|
|
0 82 7376 0160 slo
|
|
0 82 7383 0350 slt
|
|
0 82 7473 0180 sml
|
|
0 82 7782 5630 sps
|
|
0 82 7964 0310 srd
|
|
0 82 7983 0300 srt
|
|
0 82 8364 0240 std
|
|
0 82 8369 0290 sti
|
|
0 82 8373 0200 stl
|
|
0 82 8384 0210 stu
|
|
0 82 8477 0110 sup
|
|
0 82 8761 0510 sxa
|
|
0 82 8762 0530 sxb
|
|
0 82 8763 0590 sxc
|
|
0 82 8875 4805 syn
|
|
0 83 6177 4817 tap
|
|
0 83 7365 0630 tle
|
|
0 83 7384 0840 tlu
|
|
0 83 8876 7879 tyo
|
|
0 84 6661 0020 ufa
|
|
0 86 6482 0870 wds
|
|
0 86 7991 0710 wr1
|
|
0 86 7992 0740 wr2
|
|
0 86 7993 0770 wr3
|
|
0 86 8361 0070 wta
|
|
0 86 8374 0560 wtm
|
|
0 86 8375 0060 wtn
|
|
0 86 8382 5307 wts
|
|
0 87 6679 4818 xfr
|
|
0 95 6364 4819 5cd
|
|
0 00 0000 0000
|
|
0 00 0000 0000
|
|
0 00 0000 0000
|
|
0 99 9999 9999 table end
|
|
0 seq
|
|
1
|
|
1 control program
|
|
1
|
|
0 1000lddreadc sub16 entry
|
|
1
|
|
0 readcrcd 1999 1998 read card
|
|
0 1998rau 1951 transfer
|
|
0 stdp0001 alphabetic
|
|
0 stlindxi
|
|
0 ldd 1952 input
|
|
0 stdp0002 to
|
|
0 ldd 1953 output
|
|
0 stdp0003
|
|
0 ldd 1954
|
|
0 stdp0004
|
|
0 ldd 1955
|
|
0 stdp0005
|
|
0 ldd 1956
|
|
0 stdp0006 count
|
|
0 countralp0009 step
|
|
0 alo1ixxx card
|
|
0 stlp0009 number
|
|
0 rau 1960
|
|
0 stltyp3a zro testwd
|
|
0 srt 0002 store
|
|
0 slo 8002 control
|
|
0 stdp0010 info
|
|
0 alo 8003
|
|
0 auptrans
|
|
0 stup0008 intox
|
|
0 intoxalotorg 8002 transfer
|
|
0 8002nop 0999 9999 to type
|
|
0 intoxalotorgp first or multi
|
|
0 intoxalotorgp test pass cntrl
|
|
1
|
|
0 torg 00 0000 t0001
|
|
1
|
|
0 torgp 00 0000 o0001 constants
|
|
1
|
|
1
|
|
1 punch routine
|
|
1
|
|
0 hed+
|
|
0 punchraltyp3a test typ3
|
|
0 nze h8pre
|
|
0 raup0010 add contrl
|
|
0 aup86tha preh8 8 to p0010
|
|
0 h8preraup0010 preh8
|
|
0 preh8lddset5 h8sub
|
|
3 set5 ralpchex lit 1/cd exit
|
|
3 set5 nzepexit 5/cd 5/cd entry
|
|
3 set5 lddbrnch rstor a typ3 lit
|
|
0 5/cd bov
|
|
0 raup0010 test neg
|
|
0 slt 0001 instrcyn
|
|
0 auph8xxx
|
|
0 bovneg
|
|
0 ramp0007 posit positive
|
|
0 neg rsmp0007 posit negative
|
|
3 positstl+0006 *0001 stor inst
|
|
0 *0001ralp0008
|
|
0 ldd 8003 loc
|
|
3 loc sda-0005 *0002 stor loc
|
|
0 *0002rauposit
|
|
0 sup+max test pch
|
|
0 nzu 5cd
|
|
0 aup+amp1 + up store
|
|
0 + stuposit instrctns
|
|
0 auplocm
|
|
0 stuloc pexit
|
|
1
|
|
0 5cd rau-0003
|
|
0 srt 0002 set 5/cd
|
|
0 alo-0005 locations
|
|
0 srt 0004 in words
|
|
0 alo-0004 7-8 of
|
|
0 stl+0008 output cd
|
|
0 slt 0002
|
|
0 aup-0002
|
|
0 srt 0004
|
|
0 aup-0001
|
|
0 slt 0002
|
|
0 stu+0007
|
|
0 pch+0001 pch 5/cd
|
|
0 ram+0001 up card
|
|
0 alo1ixxx number
|
|
0 stl+0001
|
|
0 raurset +
|
|
1
|
|
0 pexitralpchex lit test litrl
|
|
0 lit nzetryit symbl no
|
|
0 rauitagw hld5c + '+u
|
|
3 hld5cnzuitag readc
|
|
3 hld5cnzuitag tsful
|
|
0 tsfullddtrans test full
|
|
0 bd2 readc symbl tabl
|
|
0 lddpexit
|
|
0 stdset5 suspend
|
|
0 lddrsltt 5/cd punch
|
|
0 stdhld5c readc
|
|
0 rslttnzuitag tsful
|
|
0 itag stlwhere
|
|
0 bmisecnd hirst
|
|
0 secndlddsaved
|
|
0 stdopreg
|
|
0 stlitagw pexit
|
|
0 hirstrsu 8003
|
|
0 stuitagw
|
|
0 raup0007
|
|
0 slt 0002
|
|
0 ral 8003
|
|
0 srt 0006
|
|
0 stlsaved
|
|
0 ramitagw
|
|
0 slt 0002
|
|
0 aml 8001
|
|
0 slt 0003
|
|
0 aupnzsym
|
|
0 stu 1954
|
|
0 rau 1953
|
|
0 std 1952
|
|
0 stl 1951
|
|
0 ldd subr4
|
|
0 00 0000 /0001
|
|
0 /0001ldd 1959 set58
|
|
0 set58std 1958 1998
|
|
0 /0002ldd 1959 set58
|
|
0 /0003nop 0000 1998
|
|
0 /0101nop 0000 1998
|
|
0 tryitrauitagw
|
|
0 nzu litc
|
|
0 bmisecnd
|
|
0 lddp0007
|
|
0 stdabsol
|
|
0 lddp0002
|
|
0 stdlitsm
|
|
0 stdwhere hirst
|
|
1
|
|
0 litc rauwhere
|
|
0 stlp0002
|
|
0 nzumoved
|
|
0 ral 1952 ornry
|
|
0 movedlddabsol trsfr data
|
|
0 stdp0007 to normal
|
|
0 rallitsm area
|
|
0 stuwhere ornry
|
|
0 ornrysrt 0006 test neg m
|
|
0 sloalfm
|
|
0 nzeh8x
|
|
0 ralh88 st88
|
|
0 h8x ralh8xxx st88
|
|
0 st88 aupddrmt drum paked
|
|
0 nzu stlit
|
|
0 alo87nth stlit
|
|
0 stlitstlp0010
|
|
0 ralp0009
|
|
0 alo1ixxx
|
|
0 stlp0009
|
|
0 stup0001
|
|
0 ralp0007
|
|
0 lddtran1
|
|
0 sdap0008
|
|
0 raup0005
|
|
0 ldd compr
|
|
0 raup0006
|
|
0 lddstp7
|
|
0 stdxxxx2 sct
|
|
0 stp7 stupchex
|
|
0 stdp0003
|
|
0 lddltalf
|
|
0 stdp0004
|
|
rauset5 are we in
|
|
supbrnch 5cd mode
|
|
nzupunch
|
|
lddrset5
|
|
stdset5 punch
|
|
rset5lddbrnch rstor
|
|
rstorstdset5 5/cd
|
|
0 +max stl+0006 *0001
|
|
0 +amp1stl+0007 *0001
|
|
0 locm 02 0959 0001
|
|
0 loc hlt 0000 loc
|
|
0 symflnzuitag readc
|
|
0 h88 88 0000 0000
|
|
0 alfm alf m soap2
|
|
0 ltalfalflit soap2
|
|
0 tran1 09 0000 9991
|
|
0 nzsym 75 8960 6000
|
|
1 convert double digit numeric
|
|
1 word to single digit form
|
|
0 comprstdxxxx2
|
|
0 stlp0007 sct
|
|
0 sct sct 0000 ckzer
|
|
0 ckzernzu xxxx2
|
|
0 slt 0001
|
|
0 ral 8003
|
|
0 aupp0007
|
|
0 slt 0001
|
|
0 stup0007
|
|
0 rau 8002 ckzer
|
|
0 hed
|
|
1
|
|
0 setccraureadc sub10 sudo exit
|
|
1
|
|
0 1800lddreadc sub22 manual pst
|
|
1
|
|
0 1900lddreadc sub14 manual pat
|
|
1
|
|
0 t0004stdtyp3a t0001 set testwd
|
|
0 t0001ldd subr3 type 0
|
|
0 ldd procl 650
|
|
0 ldd procd command or
|
|
0 lddpunch proci constants
|
|
1
|
|
1
|
|
0 t0002rau 1954
|
|
0 supltalf
|
|
0 nzusetcc cdnod
|
|
0 cdnodralp0009
|
|
0 slo1ixxx
|
|
0 stlp0009 readc
|
|
1
|
|
1
|
|
1 multipass control section
|
|
1
|
|
0 test ral 8002 if zero
|
|
0 slt 0003 enter
|
|
0 nzu 8001 multipass
|
|
0 lddhhold restore
|
|
0 std0000h card numbr
|
|
0 lddnhold and
|
|
0 stdp0009 heading
|
|
0 ral 8000 pst if
|
|
0 bmi zero 8000 is
|
|
0 lddzero sub22 minus
|
|
1
|
|
0 zero ldd1998x sub16 zero sym t
|
|
1
|
|
0 firstldd8d888 alter
|
|
0 stdtrans control
|
|
0 lddintop for cards
|
|
0 stdintox test 2 thru x
|
|
1
|
|
0 o0002raureadc sub10 comments
|
|
0 o0003nop 0000 o0005 relocate
|
|
0 o0004stdtyp3a o0001 set testwd
|
|
0 o0001ral 1954 type 0
|
|
0 sloc0041 test hed
|
|
0 slt 0006
|
|
0 nzu 0808
|
|
0 rau 1951
|
|
0 aloo5 look
|
|
0 o0005rau 1952 control
|
|
0 aloo6 look exits for
|
|
0 o0006rau 1953 examining
|
|
0 aloo7 look loc data
|
|
0 o0007ralp0010 and inst
|
|
0 stutyp3a zro testwd
|
|
0 alo8and8 addresses
|
|
0 stlp0010 punch
|
|
0 look nzu 8001 blank
|
|
0 stdexitx
|
|
0 lddo11
|
|
0 sdao11
|
|
0 rau 8003
|
|
0 lddo8 subr4
|
|
0 o0008nop 0000 exitx
|
|
0 o0009nop 0000 exitx regional
|
|
0 o0010lddo11 subr6 symbolic
|
|
0 o010 lddo11 subr6
|
|
0 o0012nop 0000 exitx undefined
|
|
0 o0011ralequiv defined or
|
|
0 slt 0004 previously
|
|
0 aupexitx establishd
|
|
0 aup8ixxx
|
|
0 lddp0007 8003
|
|
0 o0013lddp0008 cause drum
|
|
0 sdap0008 equivalent
|
|
0 rsl3000i fix to be pchd
|
|
0 o0014sdap0007 as l d or
|
|
0 rsl0200i fix i and 5 6
|
|
0 o001 srt 0004 or 7 to be
|
|
0 siap0007 punched
|
|
0 rsl0010i fix accordngly
|
|
0 fix alop0008
|
|
0 stlp0008 exitx
|
|
1
|
|
0 8d888 08 0000 8880
|
|
0 intopalotorgp test
|
|
0 1998xnop 0800 1998
|
|
0 o5 nop 0008 o0005 constants
|
|
0 o6 nop 0089 o0006
|
|
0 o7 nop 0099 o0007
|
|
0 8and8 00 8008 0000
|
|
0 o8 nop 0000 o0008
|
|
0 o11 nop 0000 o0011 eraseable
|
|
1
|
|
1 relocate routine
|
|
1
|
|
0 hedt
|
|
0 t0003ldd subr3 process op
|
|
0 ral 1951 is l fixed
|
|
0 slt 0002
|
|
0 nzu rel
|
|
0 rau 1957 fixed l
|
|
0 sup4000i drum core
|
|
0 bmi fc
|
|
0 aup 8001 res fixed drum
|
|
0 fc ral 1957 setl + '+u
|
|
0 sr ral 1951 setl
|
|
0 setl slt 0004
|
|
0 lddp0008
|
|
0 sdap0008 prod
|
|
0 rel rau 1957 drum core
|
|
0 sup4000i
|
|
0 bmi rc
|
|
0 aupddiff relocate
|
|
0 bmi bl drum addr
|
|
0 aup4000i res
|
|
0 res stu 1951
|
|
0 stlw 2
|
|
0 lddsr subr2
|
|
0 rc ral 1957 relocate
|
|
0 alocdiff core
|
|
0 slo9060
|
|
0 bmi bl
|
|
0 alo 8001 setl
|
|
0 bl rauprod sub12 bl4nk l
|
|
1
|
|
0 regj0944 0944 d type 2
|
|
0 regg0941 0941
|
|
1
|
|
0 prod lddproi set d exit
|
|
0 stdexitx
|
|
0 rau 1952 what is d
|
|
0 lddh subr4
|
|
0 h0001ral 1958 relocate
|
|
0 slo4000i d 0r c
|
|
0 bmi 1564 1563
|
|
0 h0002srt 0008 c d or f
|
|
0 aup1500 8003
|
|
0 1563ralcdiff cdd c
|
|
0 1564ralddiff cdd d
|
|
0 1566ral 1958 j0001 f
|
|
0 cdd alo 1958 j0001
|
|
0 h0003nop 0000 g0003 symbolic
|
|
0 h0101nop 0000 g0101
|
|
1
|
|
0 regj0960 0960 i
|
|
0 regf0955 0955
|
|
1
|
|
0 proi lddpunch set i exit
|
|
0 stdexitx
|
|
0 rau 1953 what is i
|
|
0 lddm subr4
|
|
0 m0001ral 1959 relocate
|
|
0 slo4000i d or c
|
|
0 bmi 1568 1567
|
|
0 m0002srt 0008 c d or f
|
|
0 aup1504 8003
|
|
0 1567ralcdiff cdi c
|
|
0 1568ralddiff cdi d
|
|
0 1570ral 1959 j0001 f
|
|
0 cdi alo 1959 j0001
|
|
0 m0003nop 0000 f0003 symbolic
|
|
0 m0101nop 0000 f0101
|
|
1
|
|
0 9060 00 0000 9060
|
|
0 h 00 0000 h0001
|
|
0 1500 00 0000 1500
|
|
0 m 00 0000 m0001
|
|
0 1504 00 0000 1504
|
|
0 xxxx1 01 0000 xxxx1 eraseable
|
|
0 hed
|
|
1
|
|
1 bop routine
|
|
1
|
|
0 0814lddsetcc sub16
|
|
1
|
|
1 blr routine
|
|
1
|
|
0 0801ral 1959 blr
|
|
0 blr lddzeroo blr1
|
|
0 zeroo 00 0000 0000
|
|
0 blr1 stdw 2
|
|
0 slo 1958
|
|
0 aup 8001
|
|
0 sup4000i
|
|
0 bmi setcc
|
|
0 aup 8001
|
|
0 lddsetcc subr2
|
|
1
|
|
1 rbr routine
|
|
1
|
|
0 0811rauddiff
|
|
0 alo 1959 blr
|
|
1
|
|
1 dla routine
|
|
1
|
|
0 0815lddits50 dla
|
|
0 std1or50 routine
|
|
0 ldd24
|
|
0 std56 2 modfy
|
|
0 ldd35 subr2
|
|
0 std78 2
|
|
0 lddtpr 2
|
|
0 stdeithr
|
|
0 lddpreex
|
|
0 stdsetcc 0802
|
|
0 preexldd13
|
|
0 std56 2 reset
|
|
0 ldd08 exits
|
|
0 std78 2
|
|
0 ldd964
|
|
0 stdeithr
|
|
0 lddslo11
|
|
0 std1or50
|
|
0 lddpcha
|
|
0 stdsetcc 8001
|
|
0 its50slo50xxx next2
|
|
0 24 rausa 2 su 2
|
|
0 35 rausa 2
|
|
0 aup1dxxx su 2
|
|
0 08 rausa 2 178 2
|
|
0 964 rausa 2 eith2
|
|
0 slo11slo1ixxx next2
|
|
0 pcha raureadc sub10
|
|
0 13 rausa 2 sz 2
|
|
1
|
|
1 bla routine
|
|
1
|
|
0 0802ral 1959
|
|
0 studrumt
|
|
0 stdddrmt
|
|
0 ldd(0010 blr1
|
|
1
|
|
1 reg routine
|
|
1
|
|
0 hedr
|
|
0 0803rau 1952
|
|
0 ldd stor9
|
|
0 alost
|
|
0 aup 1958
|
|
0 auph9xxx 8002 add def 9
|
|
0 8002stu 9999 0801
|
|
0 st stu 1650 0801 store reg
|
|
0 hed
|
|
1
|
|
1 equ req and syn routine
|
|
1
|
|
0 hedz
|
|
0 eque 1958
|
|
0 0804lddh8xxx both
|
|
0 0805lddh9xxx both
|
|
0 both stdtag
|
|
0 rau 1953 what is 1
|
|
0 lddz subr4
|
|
0 z0001ral 1959 y0001 absolute
|
|
0 z0002aloy subr9
|
|
0 y0001stle
|
|
0 std 1959 td
|
|
0 y0002ralp0010 bp reg error
|
|
0 z0003lddw subr6 symbolic
|
|
0 z0101lddw subr6
|
|
0 w0001ralequiv y0001 s defined
|
|
0 w0002ralp0010 bp s undefind
|
|
1
|
|
0 td rau 1952 head d
|
|
0 ldd sub15 and equate
|
|
0 lddv subr6 to e
|
|
0 v0001aloe sd
|
|
0 v0002aloe symb und
|
|
0 stlxxxx1
|
|
0 ral 1952 test lit
|
|
0 slt 0002 symbol
|
|
0 nzuok
|
|
0 stlpchex set testw
|
|
0 rale set l
|
|
0 lddp0007
|
|
0 slt 0004
|
|
0 sdap0007
|
|
0 ldd1
|
|
0 stdreadc ok set return
|
|
0 ok ralxxxx1
|
|
0 aups 6 sd
|
|
0 1 lddrdcd* go to
|
|
0 stdreadc pexit pch lit
|
|
0 sd lddtt subr7
|
|
0 rdcd*rcd 1999 1998
|
|
1
|
|
0 tt lddtag test tag
|
|
0 bdosetcc 0801
|
|
1
|
|
0 0810lddh8xxx
|
|
0 stdtag routine
|
|
0 ral 1959 is i
|
|
0 slo4000i drum 0 cor
|
|
0 bmid
|
|
0 alocdiff cd
|
|
0 d aloddiff cd
|
|
0 cd alo4000i y0001
|
|
1
|
|
0 bp alo88 by pass
|
|
0 stlp0010 setcc
|
|
1
|
|
0 z 00 0000 z0001 constants
|
|
0 y nop 1959 y0001
|
|
0 w 00 0099 w0001
|
|
0 v 00 0089 v0001
|
|
0 88 00 8000 0000
|
|
1
|
|
0 tag 01 0000 tag eraseable
|
|
0 hed
|
|
1
|
|
1 alf routine
|
|
1
|
|
0 0806ldd procl
|
|
0 ldd 1952
|
|
0 stdp0007
|
|
0 ral 1953
|
|
0 nzepunch
|
|
0 lddsoap2 by
|
|
0 stdp0003 punch soap2
|
|
1
|
|
0 soap2alfsoap2 so4p2 constant
|
|
1
|
|
1 pat routine
|
|
1
|
|
0 hedp
|
|
0 sub14stdexitx store exir
|
|
0 raua1 set for
|
|
0 alors1 1st hal
|
|
0 ldd avtb
|
|
0 raua2 set for
|
|
0 alors2 2nd half
|
|
0 lddexitx avtb of drum
|
|
0 avtb stdexit store exit
|
|
0 ldd85th set punch
|
|
0 stdp0010 8
|
|
0 stuxxxx1
|
|
0 aup35d
|
|
0 stubdmax
|
|
0 aup450d
|
|
0 stuamax
|
|
0 aup15d
|
|
0 stuamp5
|
|
0 sup 8003 loop
|
|
0 loop aupc1 8001
|
|
0 8001stl 9999 next set locat
|
|
0 next suptw1
|
|
0 nzu srs
|
|
0 aupc2
|
|
0 aloc3 8003
|
|
0 srs stlxxxx2 save rs
|
|
0 rauc4
|
|
0 aloxxxx1 8002
|
|
0 8002ldd 9998 8003
|
|
0 8003std 9997 tp
|
|
0 tp suptw2
|
|
0 nzu pun
|
|
0 aupc5
|
|
0 alo1dxxx 8002
|
|
0 pun pchp0001
|
|
0 ram 8002
|
|
0 slobdmax
|
|
0 nze tsten
|
|
0 alo 8001
|
|
0 alo5dxxx stlxx
|
|
0 tstenalo 8001
|
|
0 sloamax
|
|
0 nze exit
|
|
0 aloamp5
|
|
0 aupbdmax
|
|
0 aup50d 2
|
|
0 stubdmax stlxx
|
|
0 stlxxstlxxxx1
|
|
0 ralxxxx2
|
|
0 sloc7 loop
|
|
1
|
|
0 a1 ldd 0000 8003
|
|
0 a2 ldd 0004 8003
|
|
0 rs1 00 0000 0450
|
|
0 rs2 00 2000 2450
|
|
0 zp1 stup0001 nxt
|
|
0 zp9 stup0009 nxt
|
|
0 zp10 stup0010 nxt
|
|
0 c1 stlp0001 next
|
|
0 c2 stlp0009 next
|
|
0 c3 00 0500 0500
|
|
0 c4 stdp0002 tp
|
|
0 c5 stdp0010 tp
|
|
0 c7 00 1499 1499
|
|
0 tw1 stlp0007 next
|
|
0 tw2 stdp0008 tp
|
|
0 35d 00 0035 0000
|
|
0 450d 00 0450 0000
|
|
0 15d 00 0015 0000
|
|
0 5dxxx 00 0005 0000
|
|
0 85th 00 0080 0000
|
|
0 hed
|
|
1 rdr routine
|
|
1
|
|
0 0813rau 8002 zero 80023
|
|
0 lddsetcc unrav
|
|
0 unravstdzzzz1 store exit
|
|
0 stuxxxx1
|
|
0 aloi2 incrm get start
|
|
0 incrmstlzzzz2 store k
|
|
0 ldd subr1 to avail
|
|
0 ralzzzz2
|
|
0 sloi99 are we
|
|
0 nze zzzz1 done
|
|
0 alo 8001
|
|
0 alo astrk
|
|
0 00 0050 0050
|
|
0 astrkaupxxxx1 incrm
|
|
0 i99 00 0450 0489
|
|
0 i2 00 0000 0039
|
|
1
|
|
1
|
|
1 tap routine
|
|
1
|
|
0 hed)
|
|
0817lddtran1 comments
|
|
stdp0008
|
|
raubb817
|
|
aloh8xxx sub10
|
|
0 bb817rau set test 1st
|
|
0 ral 1951 tap rcd vs
|
|
0 slo 9050 card
|
|
0 nzepass init no yes
|
|
0 setblset 9050 trsfr tape
|
|
0 sib 1951 1998 to cd area
|
|
0 set set 9050 read tape
|
|
0 rtn 8012 nts
|
|
0 nts nts 8001
|
|
0 nef exit
|
|
0 nze halt
|
|
0 slt 0001 reread
|
|
0 bst 8012 set routine
|
|
0 halt hlt 0000 9999
|
|
0 init lddcopy found
|
|
0 stdreadc routine
|
|
0 lddrwind set to
|
|
0 stdexit setbl process
|
|
0 rwindrwd 8012 finished
|
|
0 lddentr routine
|
|
0 stdexit 1 z
|
|
0 pass rau 8001 bypass
|
|
0 rtc 8012 nts routine
|
|
0 copy ralsetbl set
|
|
0 entr nop 0000 bb817
|
|
0 exit nop 0000 bb817
|
|
0 hed
|
|
1
|
|
1 pst routine
|
|
1
|
|
0 0812rau 1800 sub10
|
|
1
|
|
1 hed routine
|
|
1
|
|
0 0808ral 1952
|
|
0 srt 0008 heading
|
|
0 stl0000h setcc character
|
|
1
|
|
0 0000h 01 0000 0000h eraseable
|
|
1
|
|
1 rel routine
|
|
1
|
|
0 hedm
|
|
0 0809ral 1952
|
|
0 nze sdd drum
|
|
0 ral 1958 sdd and
|
|
0 sdd stlddiff core
|
|
0 ral 1953 deltas
|
|
0 nze scd
|
|
0 ral 1959 scd
|
|
0 scd stlcdiff setcc
|
|
1
|
|
0 ddiff 01 0000 ddiff eraseable
|
|
0 cdiff 01 0000 cdiff
|
|
0 hed
|
|
1
|
|
1 seq routine
|
|
1
|
|
0 0816rau 1951
|
|
0 nzu s9h
|
|
0 alo 1957 stll
|
|
0 s9h rsl 1954 stll
|
|
0 stll stlseqll
|
|
0 rau 1952
|
|
0 nzu s9i
|
|
0 alo 1958 stld
|
|
0 s9i rsl 1954 stld
|
|
0 stld stlseqdd
|
|
0 rau 1953
|
|
0 nzu s9j
|
|
0 ral 1959
|
|
0 slo9000
|
|
0 bmi cseqi
|
|
0 alo 8001 tuvwx
|
|
0 tuvwxlddh8xxx s9k
|
|
0 s9k stdtcori
|
|
0 stlseqii
|
|
0 rau 1960
|
|
0 srt 0001
|
|
0 sup 8003
|
|
0 nzenegsq
|
|
0 ram1ixxx stiix
|
|
0 negsqrsm1ixxx stiix
|
|
0 stiixstlctrsq setcc
|
|
0 s9j rsl 1954 tuvwx
|
|
0 cseqialo 8001
|
|
0 lddh9xxx s9k
|
|
0 9000 00 0000 9000
|
|
1
|
|
1 transfer card routine
|
|
1
|
|
0 hed*
|
|
0 0818rau sub10 xfr
|
|
0 rau 1952 test
|
|
0 nzu y blank trsf
|
|
0 stlp0007
|
|
0 ldd procd get start
|
|
0 ralretn z address
|
|
0 y raltw z
|
|
0 z aupposit must we
|
|
0 sup+min pch lastcd
|
|
0 nzu 8002 no
|
|
0 stlreadc 5cd + yes
|
|
0 retn rsm+0001 set id wd
|
|
0 stl+0001 negative
|
|
0 ralp0007
|
|
0 srt 0004 stor start
|
|
0 stl+0002 address
|
|
0 rali6 zero
|
|
0 ldd subr1 wds3-8
|
|
0 pch+0001
|
|
0 ram+0001
|
|
0 alo1ixxx
|
|
0 stl+0001 tw
|
|
0 tw lddrdcd
|
|
0 stdreadc 8001 rset exit
|
|
0 i6 00+0003 +0008
|
|
0 +min stl+0002 *0001
|
|
1
|
|
1 5cd routine
|
|
1
|
|
0 0819rau sub10 5/cd punch
|
|
0 rau 1952 insert id
|
|
0 nzu * if any
|
|
0 ral 1958
|
|
0 slt 0004 *
|
|
0 * aup 1953 and set cd
|
|
0 nzu skp no+ strt
|
|
0 alo 1959 sia
|
|
0 skp alo1ixxx sia
|
|
0 sia ldd+0001
|
|
0 sdazzzz1
|
|
0 sia+0001
|
|
0 raubrnch
|
|
0 stdset5+ 8001
|
|
0 brnchnzepexit 5/cd+
|
|
1
|
|
0 0807rau 1900 sub10
|
|
1 sub 22 punch symbols and equvs
|
|
1
|
|
0 heds
|
|
0 sub22stdexitx set exit
|
|
0 raup0009 save card
|
|
0 stdxxxx1 numbering
|
|
0 stlp0001 blank out
|
|
0 stdp0005 locn and
|
|
0 stdp0006 comments
|
|
0 stdp0009 and number
|
|
0 ldd9d999 set nines
|
|
0 stdp0008 for pching
|
|
0 lddc0034 store equ
|
|
0 siap0004 as pseudop
|
|
0 rala see
|
|
0 see sloterm exit when
|
|
0 nze endst finished
|
|
0 alomore increment
|
|
0 stlxxxx2 8001 st locatn
|
|
0 8001aup 2000 test
|
|
0 test nzu see
|
|
0 sup 8003
|
|
0 stdp0002 if symbol
|
|
0 stup0010 is in tabl
|
|
0 ldd subr8 get equiv
|
|
0 rauequiv enter
|
|
0 aup1dxxx loop loop to
|
|
0 loop srt 0001 convert
|
|
0 sup 8003 numeric
|
|
0 srt 0001 equivalent
|
|
0 aup 8001 to alpha
|
|
0 nzuloop form
|
|
0 aloy store it
|
|
0 stlp0003 for punch
|
|
0 rau sub10 punch a
|
|
0 ralxxxx2 see
|
|
1
|
|
0 endstlddxxxx1 restore
|
|
0 stdp0009 exitx card numbr
|
|
1
|
|
0 a aups0000 test constants
|
|
0 term aups1100 test
|
|
0 more aups1101 test
|
|
0 y 99 9090 9090
|
|
0 hed
|
|
1
|
|
1 sub 16 initialization
|
|
1
|
|
0 sub16stdalpha
|
|
0 bd7 init
|
|
0 lddpchwd part reset pch
|
|
0 init ralrset+
|
|
0 stdposit 5/cd pch
|
|
0 alolocm+
|
|
0 stlloc +
|
|
0 raui3
|
|
0 stlp0009 zero numb
|
|
0 std0000h zero hed
|
|
0 ldd unrav make drum
|
|
0 rsu 8001 available
|
|
0 stuseqll
|
|
0 stdseqdd
|
|
0 stdseqii
|
|
0 ldd87nth
|
|
0 stdopreg
|
|
0 rali5
|
|
0 studrumt + '+u
|
|
0 stdddrmt
|
|
0 stditagw
|
|
0 auph8xxx undefine
|
|
0 stdtcori
|
|
0 std. undefine
|
|
0 std$ special
|
|
0 std, character
|
|
0 std=
|
|
0 std)
|
|
0 std*
|
|
0 std(
|
|
0 std'
|
|
0 std+
|
|
0 std-
|
|
0 std/
|
|
0 ldd subr1
|
|
0 lddpexit
|
|
0 stdpchwd part
|
|
0 part stdset5+
|
|
0 lddsymfl
|
|
0 stdhld5c
|
|
0 ldd1198i restore
|
|
0 stdsymct sym count
|
|
0 rali1 zero out
|
|
0 stupchex
|
|
0 ldd subr1 symbol tab
|
|
0 ldd9d999 set con
|
|
0 stdtrans trols for
|
|
0 lddintoa assembly
|
|
0 stdintox alpha
|
|
1
|
|
0 i1 00s0001 s1100
|
|
0 i3 11 1111 1111
|
|
0 i5 00 1621 1649
|
|
0 9d999 09 0000 9990
|
|
0 intoaalotorg 8002
|
|
0 rset+stl+0002 *0001
|
|
0 +0001hlt 0000 9999
|
|
0 1198i 00 0000 0998
|
|
1
|
|
0 hed
|
|
1
|
|
1 sub 1 store k in fwa to lwa
|
|
1
|
|
0 hed1
|
|
0 subr1stdexitx store exit
|
|
0 stuxxxx1 store k
|
|
0 lddfwa set
|
|
0 sdafwa fwa
|
|
0 slt 0004 lwa
|
|
0 sdaxxxx2 addresses
|
|
0 raufwa
|
|
0 aloxxxx1 8003
|
|
0 8003stl 9999 next store k
|
|
0 next supxxxx2 end of
|
|
0 nzu exitx loop test
|
|
0 aup 8001 aup1d
|
|
0 aup1daup1dxxx 8003
|
|
1
|
|
0 fwa stl 9998 next constants
|
|
0 hed
|
|
1
|
|
1 load availability table subr
|
|
1
|
|
0 1999ral 1951 calculate
|
|
0 srt 0004 location
|
|
0 rau 8002 in avail
|
|
0 srt 0003 table
|
|
0 aup 8003
|
|
0 stuadd
|
|
0 sup 8001
|
|
0 srt 0007
|
|
0 ldd gda11
|
|
0 slt 0001
|
|
0 aupadd
|
|
0 srt 0006
|
|
0 aloc1
|
|
0 aupc3 8003
|
|
0 8003ldd 9995 8002
|
|
0 8002std 9994 tup
|
|
0 tup suptw
|
|
0 nzu readc
|
|
0 auptwp2
|
|
0 alo1dxxx 8003
|
|
0 tw ldd 1958 8002
|
|
0 twp2 ldd 1960 8002
|
|
1
|
|
0 50xxx 00 0000 0050
|
|
0 90xxx 00 0000 0090
|
|
0 0200i 00 0000 0200
|
|
0 3000i 00 0000 3000
|
|
0 4000i 00 0000 4000
|
|
0 1dxxx 00 0001 0000
|
|
0 2dxxx 00 0002 0000
|
|
0 h8xxx 80 0000 0000
|
|
0 h9xxx 90 0000 0000
|
|
0 3999i 00 0000 3999
|
|
0 32dxx 00 0032 0000
|
|
0 3dxxx 00 0003 0000
|
|
0 11ixx 00 0000 0011
|
|
0 2ixxx 00 0000 0002
|
|
0 4ixxx 00 0000 0004
|
|
0 8ixxx 00 0000 0008
|
|
0- 0040 99 9999 9999 table end
|
|
0- 0090 99 9999 9999 for
|
|
0- 0140 99 9999 9999 avail
|
|
0- 0190 99 9999 9999 tbl
|
|
0- 0240 99 9999 9999
|
|
0- 0290 99 9999 9999
|
|
0- 0340 99 9999 9999
|
|
0- 0390 99 9999 9999
|
|
0- 0440 99 9999 9999
|
|
0- 0490 99 9999 9999
|
|
1
|
|
0 c1 std 0000 tup constants
|
|
0 c3 ldd 1952 8002
|
|
1 ii00 00 0000 1600
|
|
0 pat
|
|
0 pst
|