Edinburgh IMP77 Compiler - Version 8.4 1 %begin .section ".text" .Ltext0: .section ".rodata" .align 8 .LC0: .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 1 .byte 0 .LC1: .byte 4 .asciz "Fail" .skip 250 .LC2: .byte 7 .asciz "Test ok" .skip 247 .section ".text" .align 4 .global main .proc 04 main: .LFB185: .register %g2, #scratch .register %g7, #ignore .LVL0: save %sp, -1216, %sp .LVL1: ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 2 %constbyteintegerarray trtab(0:255)=1(255),0; mov %i1, %o1 call _imp_initialise, 0 mov %i0, %o0 .LVL2: mov 256, %o2 sethi %hi(.LC0), %o1 or %o1, %lo(.LC0), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL3: 3 %integer i,j 4 i=-1; j=addr(i) mov -1, %g1 st %g1, [%fp+1267] .LVL4: .LBB16: .LBB17: add %fp, 1267, %g1 .LBE17: .LBE16: 5 ->ok %if trtab(byteinteger(j))=0 sra %g1, 0, %g1 ldub [%g1], %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 ldub [%g1-264], %g1 cmp %g1, 0 be,pt %icc, .L2 mov 256, %o2 .L3: .LBB18: 6 printstring("Fail") sethi %hi(.LC1), %o1 or %o1, %lo(.LC1), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL5: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL6: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL7: .LBE18: .LBB19: .LBB20: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1007, %o0 .LVL8: call _imp_printstring, 0 add %fp, 1007, %o0 .LVL9: .LBE20: .LBE19: .LBB21: .LBB22: call exit, 0 mov 0, %o0 .LVL10: .L2: .LBE22: .LBE21: .LBB23: 7 %stop 8 ok:printstring("Test ok") 9 %endofprogram sethi %hi(.LC2), %o1 or %o1, %lo(.LC2), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL11: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL12: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL13: .LBE23: .LBB24: .LBB25: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1007, %o0 .LVL14: call _imp_printstring, 0 add %fp, 1007, %o0 .LVL15: .LBE25: .LBE24: .LBB26: .LBB27: call exit, 0 mov 0, %o0 .LVL16: .LBE27: .LBE26: nop .LFE185: .Letext0: 10 Statements compiled