0?0000800?      0001                    1      soap test tap
0?0000800?      0002                    1
0?0000800?      0003                           equsub1   1000
0?0000800?      0004                    1
6I1954195C      0005241000800?000000000D  sub1 nop 0000 sub2      commen
0?0000800?      0006                    1 sub2 tap
6I1954195C      0007240004800?000002000H  sub2 nop 0002       comment
6I1954195C      0008240008800?010002001B       hlt 0002
0?0000800?      0009                    1
6I1954195C      0010240012800?010001001F       hlt 0001
0?0000800?      0011                           pst
0?0000800?      0000                           equsub1   1000
0?0000800?      0000                           equsub2   0004