Return to 8q.s CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst

Annotation of researchv10no/cmd/lcc/gen2/mc-sun/tst/8q.s, revision 1.1.1.1

1.1       root        1: .text
                      2: .globl _main
                      3: .align 2
                      4: _main:link a6,#-8
                      5: moveml #0x80,a6@(-4)
                      6: clrl d7
                      7: L2:
                      8: movl #1,@(_down:l,d7:l:4)
                      9: movl #1,@(_up:l,d7:l:4)
                     10: L3:
                     11: addql #1,d7
                     12: cmpl #15,d7; jlt L2
                     13: clrl d7
                     14: L6:
                     15: movl #1,@(_rows:l,d7:l:4)
                     16: L7:
                     17: addql #1,d7
                     18: cmpl #8,d7; jlt L6
                     19: movl #0,sp@
                     20: jbsr _queens:l
                     21: clrl d0
                     22: L1:
                     23: moveml a6@(-4),#0x80
                     24: unlk a6
                     25: rts
                     26: .globl _queens
                     27: .align 2
                     28: _queens:link a6,#-16
                     29: moveml #0xd0,a6@(-12)
                     30: movl a6@(8),d7
                     31: clrl d6
                     32: L11:
                     33: tstl @(_rows:l,d6:l:4); jeq L15
                     34: movl d6,d4; subl d7,d4
                     35: tstl @(_up+28:l,d4:l:4); jeq L15
                     36: movl d6,d4; addl d7,d4
                     37: tstl @(_down:l,d4:l:4); jeq L15
                     38: movl d6,d4; addl d7,d4
                     39: clrl @(_down:l,d4:l:4)
                     40: movl d6,d4; subl d7,d4
                     41: clrl @(_up+28:l,d4:l:4)
                     42: clrl @(_rows:l,d6:l:4)
                     43: movl d6,@(_x:l,d7:l:4)
                     44: cmpl #7,d7; jne L19
                     45: jbsr _print:l
                     46: jra L20
                     47: L19:
                     48: movl d7,d4; addql #1,d4
                     49: movl d4,sp@
                     50: jbsr _queens:l
                     51: L20:
                     52: movl d6,d4; addl d7,d4
                     53: movl #1,@(_down:l,d4:l:4)
                     54: movl d6,d4; subl d7,d4
                     55: movl #1,@(_up+28:l,d4:l:4)
                     56: movl #1,@(_rows:l,d6:l:4)
                     57: L15:
                     58: L12:
                     59: addql #1,d6
                     60: cmpl #8,d6; jlt L11
                     61: L10:
                     62: moveml a6@(-12),#0xd0
                     63: unlk a6
                     64: rts
                     65: .globl _print
                     66: .align 2
                     67: _print:link a6,#-16
                     68: moveml #0x90,a6@(-8)
                     69: clrl d7
                     70: L23:
                     71: movl #L27,sp@
                     72: movl @(_x:l,d7:l:4),d4
                     73: addl #49,d4
                     74: movl d4,sp@(4)
                     75: jbsr _printf:l
                     76: L24:
                     77: addql #1,d7
                     78: cmpl #8,d7; jlt L23
                     79: movl #L28,sp@
                     80: jbsr _printf:l
                     81: L22:
                     82: moveml a6@(-8),#0x90
                     83: unlk a6
                     84: rts
                     85: .bss
                     86: .globl _x
                     87: .comm _x,32
                     88: .globl _rows
                     89: .comm _rows,32
                     90: .globl _down
                     91: .comm _down,60
                     92: .globl _up
                     93: .comm _up,60
                     94: .text
                     95: .align 2; L28:.byte 10,0
                     96: .align 2; L27:.ascii "%c \000"

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.