URL https://opencores.org/ocsvn/tms1000/tms1000/trunk

Subversion Repositories tms1000

[/] [tms1000/] [trunk/] [assembler/] [icalc.asm] - Blame information for rev 2

Details | Compare with Previous | View Log


.rom @0
    lock : tka
    kin  : alec 7
           br k1
           a8aac
      k1 : retn
           alec 0
           br reset
           br lock
 
   reset : tcy 6
     re1 : rstr
           dyn
           br re1
 
    disp : tcy 6
           br scan2
 
   scan1 : tya
           tcy  12
           tamiy
 
           tka
           tbit1 1
           br clok
           call kin
           alec 0
           br nok
 
   delay : dan
           br delay
           dyn
           br delay
           call lock
           alec 0
           br nok
           bl key
 
   noclk : rbit 0
     nok : tcy 12
           tmy
           dyn    ;fetch 1
 
 
   scan2 : tma
           iyc
           rstr
           dyn
           tdo
 
           setr
           ynec 15
           br scan1
           br disp
 
    clok : alec 7
           br noclk
           tbit1 0
           br nok
 
           sbit 0
           tcy  6
    tst2 : ldp 1
           mnez
           br clk1
           ldp 0
           dyn
           br tst2
 
 
           tya
           ynea
 
           tcy 13
           tcmiy 0
           br nok
           br lock
           br lock
.rom @1
    clk1 : tcy 14
           imac
           alec 9
           br clk3
           tcmiy  0
           imac
           alec 5
           br clk3
 
           tcmiy 0
    clk2 : dman
           br clk3
           tcmiy 9
           br clk2
 
    clk3 : tam
           bl nok
.rom @2
     key : tcy 6
    clen : xma
           alec 9
           br clen1
           cla
   clen1 : xma
           dyn
           br clen
 
           tcy 13
           ldp 3
           alec 1
           br func
 
 
           ldp 2
           tbit1 3
           br ne_1
           sbit 3
           calll creg
 
 
    ne_1 : tcy 12
           xma
           tbit1 2
           br k4in
 
           a6aac
    k4in : tcy 5
           mnez
           br exnum
           calll ldata
 
   exnum : bl blank
 
.rom @3
    func : rbit 3
           tcy 12
           dman
           br not_0
 
 
           tcy 13
           sbit 1
           ynea
           bl lock
 
   not_0 : ldp 15
           alec 0
           br cler
           ldp 6
           alec 1
           br trab
           ldp 4
           alec 2
           br plus
           alec 3
           br mins
           ldp 7
           alec 4
           br mult
 
   divid : ldx 1
           calll creg
 
      d1 : calll sbaa
           alec 0
           br incc
           tcy 0
    trca : ldx 1
           tma
           ldx 0
           tamiy
           ynec 7
           br trca
           bl blank
 
    incc : ldx 1
           tcy 0
    d2 :   imac
           tam
           alec 9
           br d1
           tcmiy 0
           br d2
.rom @4
    plus : calll aaba
 
    tob :  bl blank
 
    mins : calll sbaa
 
           alec 0
           br tob
 
           calll creg
           br tob
 
.rom @5
    aaba : ldx 0
           tcy 0
           cla
    ad1 :  comx
           amaac
           comx
           amaac
           br gt9
           alec 9
           br lt10
    gt9 : a6aac
          tamza
          ia
   incy : iyc
          ynec 7
          br ad1
          retn
   lt10 : tamza
          br incy
 
 
    sbaa : ldx 0
           tcy 0
           cla
      s1 : comx
           amaac
           comx
           saman
           br nobor
           a10aac
           tamza
           ia
   incys : iyc
           ynec 7
           br s1
           retn
 
   nobor : tamza
           br incys
 
.rom @6
    trac : tcy 0
    t1 :   ldx 0
           tma
           ldx 1
           tamiy
           ynec 7
           br t1
           retn
 
    trab : ldx 3
    tr0 :  tcy 0
    t2 :   comx
           tma
           comx
           tamiy
           ynec 7
           br t2
           retn
           bl blank
 
    rshft : cla
            tcy 6
      r1 :  xma
            dyn
            br r1
            retn
.rom @7
    mult : calll trac
           tcmiy 6
           ldx 0
           calll creg
     ml2 : ldx 1
           tcy 7
           tmy
           dman
           br nobr
           tcy 7
           dman
           br ml1
           bl blank
     ml1 : tam
           ldx 0
 
 
     lshft : cla
    ldata :  tcy 0
    l1    :  xma
             iyc
             ynec 7
             br l1
             retn
 
            br ml2
    nobr :  tam
            calll aaba
            br ml2
 
 
.rom @f
          cla
          tcy 0
          ynea
   cler : ldx 3
          call creg
          ldx 1
          call creg
          ldx 0
 
  clall : tcy 7
          br c1
 
   creg : tcy 0
    c1 :  tcmiy 0
          ynec 7
          br c1
          retn
 
 
    blank : ldx 0
            tcy 6
     bl1 :  mnez
            br brlck
            tcmiy  15
            dyn
            dyn
            br bl1
    brlck : bl lock
 
    .symtab

Browse

Tools

Subversion Repositories tms1000

[/] [tms1000/] [trunk/] [assembler/] [icalc.asm] - Blame information for rev 2

Line No.	Rev	Author	Line
1	2	nand_gates	`.rom @0`
2			`lock : tka`
3			`kin : alec 7`
4			`br k1`
5			`a8aac`
6			`k1 : retn`
7			`alec 0`
8			`br reset`
9			`br lock`
10
11			`reset : tcy 6`
12			`re1 : rstr`
13			`dyn`
14			`br re1`
15
16			`disp : tcy 6`
17			`br scan2`
18
19			`scan1 : tya`
20			`tcy 12`
21			`tamiy`
22
23			`tka`
24			`tbit1 1`
25			`br clok`
26			`call kin`
27			`alec 0`
28			`br nok`
29
30			`delay : dan`
31			`br delay`
32			`dyn`
33			`br delay`
34			`call lock`
35			`alec 0`
36			`br nok`
37			`bl key`
38
39			`noclk : rbit 0`
40			`nok : tcy 12`
41			`tmy`
42			`dyn ;fetch 1`
43
44
45			`scan2 : tma`
46			`iyc`
47			`rstr`
48			`dyn`
49			`tdo`
50
51			`setr`
52			`ynec 15`
53			`br scan1`
54			`br disp`
55
56			`clok : alec 7`
57			`br noclk`
58			`tbit1 0`
59			`br nok`
60
61			`sbit 0`
62			`tcy 6`
63			`tst2 : ldp 1`
64			`mnez`
65			`br clk1`
66			`ldp 0`
67			`dyn`
68			`br tst2`
69
70
71			`tya`
72			`ynea`
73
74			`tcy 13`
75			`tcmiy 0`
76			`br nok`
77			`br lock`
78			`br lock`
79			`.rom @1`
80			`clk1 : tcy 14`
81			`imac`
82			`alec 9`
83			`br clk3`
84			`tcmiy 0`
85			`imac`
86			`alec 5`
87			`br clk3`
88
89			`tcmiy 0`
90			`clk2 : dman`
91			`br clk3`
92			`tcmiy 9`
93			`br clk2`
94
95			`clk3 : tam`
96			`bl nok`
97			`.rom @2`
98			`key : tcy 6`
99			`clen : xma`
100			`alec 9`
101			`br clen1`
102			`cla`
103			`clen1 : xma`
104			`dyn`
105			`br clen`
106
107			`tcy 13`
108			`ldp 3`
109			`alec 1`
110			`br func`
111
112
113			`ldp 2`
114			`tbit1 3`
115			`br ne_1`
116			`sbit 3`
117			`calll creg`
118
119
120			`ne_1 : tcy 12`
121			`xma`
122			`tbit1 2`
123			`br k4in`
124
125			`a6aac`
126			`k4in : tcy 5`
127			`mnez`
128			`br exnum`
129			`calll ldata`
130
131			`exnum : bl blank`
132
133			`.rom @3`
134			`func : rbit 3`
135			`tcy 12`
136			`dman`
137			`br not_0`
138
139
140			`tcy 13`
141			`sbit 1`
142			`ynea`
143			`bl lock`
144
145			`not_0 : ldp 15`
146			`alec 0`
147			`br cler`
148			`ldp 6`
149			`alec 1`
150			`br trab`
151			`ldp 4`
152			`alec 2`
153			`br plus`
154			`alec 3`
155			`br mins`
156			`ldp 7`
157			`alec 4`
158			`br mult`
159
160			`divid : ldx 1`
161			`calll creg`
162
163			`d1 : calll sbaa`
164			`alec 0`
165			`br incc`
166			`tcy 0`
167			`trca : ldx 1`
168			`tma`
169			`ldx 0`
170			`tamiy`
171			`ynec 7`
172			`br trca`
173			`bl blank`
174
175			`incc : ldx 1`
176			`tcy 0`
177			`d2 : imac`
178			`tam`
179			`alec 9`
180			`br d1`
181			`tcmiy 0`
182			`br d2`
183			`.rom @4`
184			`plus : calll aaba`
185
186			`tob : bl blank`
187
188			`mins : calll sbaa`
189
190			`alec 0`
191			`br tob`
192
193			`calll creg`
194			`br tob`
195
196			`.rom @5`
197			`aaba : ldx 0`
198			`tcy 0`
199			`cla`
200			`ad1 : comx`
201			`amaac`
202			`comx`
203			`amaac`
204			`br gt9`
205			`alec 9`
206			`br lt10`
207			`gt9 : a6aac`
208			`tamza`
209			`ia`
210			`incy : iyc`
211			`ynec 7`
212			`br ad1`
213			`retn`
214			`lt10 : tamza`
215			`br incy`
216
217
218			`sbaa : ldx 0`
219			`tcy 0`
220			`cla`
221			`s1 : comx`
222			`amaac`
223			`comx`
224			`saman`
225			`br nobor`
226			`a10aac`
227			`tamza`
228			`ia`
229			`incys : iyc`
230			`ynec 7`
231			`br s1`
232			`retn`
233
234			`nobor : tamza`
235			`br incys`
236
237			`.rom @6`
238			`trac : tcy 0`
239			`t1 : ldx 0`
240			`tma`
241			`ldx 1`
242			`tamiy`
243			`ynec 7`
244			`br t1`
245			`retn`
246
247			`trab : ldx 3`
248			`tr0 : tcy 0`
249			`t2 : comx`
250			`tma`
251			`comx`
252			`tamiy`
253			`ynec 7`
254			`br t2`
255			`retn`
256			`bl blank`
257
258			`rshft : cla`
259			`tcy 6`
260			`r1 : xma`
261			`dyn`
262			`br r1`
263			`retn`
264			`.rom @7`
265			`mult : calll trac`
266			`tcmiy 6`
267			`ldx 0`
268			`calll creg`
269			`ml2 : ldx 1`
270			`tcy 7`
271			`tmy`
272			`dman`
273			`br nobr`
274			`tcy 7`
275			`dman`
276			`br ml1`
277			`bl blank`
278			`ml1 : tam`
279			`ldx 0`
280
281
282			`lshft : cla`
283			`ldata : tcy 0`
284			`l1 : xma`
285			`iyc`
286			`ynec 7`
287			`br l1`
288			`retn`
289
290			`br ml2`
291			`nobr : tam`
292			`calll aaba`
293			`br ml2`
294
295
296			`.rom @f`
297			`cla`
298			`tcy 0`
299			`ynea`
300			`cler : ldx 3`
301			`call creg`
302			`ldx 1`
303			`call creg`
304			`ldx 0`
305
306			`clall : tcy 7`
307			`br c1`
308
309			`creg : tcy 0`
310			`c1 : tcmiy 0`
311			`ynec 7`
312			`br c1`
313			`retn`
314
315
316			`blank : ldx 0`
317			`tcy 6`
318			`bl1 : mnez`
319			`br brlck`
320			`tcmiy 15`
321			`dyn`
322			`dyn`
323			`br bl1`
324			`brlck : bl lock`
325
326			`.symtab`