.set noat .set noreorder .set nomacro .text .align 2 .align 4 .globl leave .ent leave leave: .frame $30,0,$26,0 .mask 0x4000000,0 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $leave..ng: lda $30,-16($30) stq $26,0($30) .prologue 1 beq $16,$L2 ldq $27,abort($29) !literal!3 jsr $26,($27),abort !lituse_jsr!3 $L2: ldq $27,exit($29) !literal!2 jsr $26,($27),exit !lituse_jsr!2 .end leave .align 2 .align 4 .globl doit .ent doit doit: .frame $30,0,$26,0 .mask 0x4000200,0 ldah $29,0($27) !gpdisp!4 lda $29,0($29) !gpdisp!4 $doit..ng: lda $30,-16($30) lda $16,12($31) ldq $27,srand($29) !literal!9 stq $9,8($30) ldq $9,globvar($29) !literal stq $26,0($30) .prologue 1 jsr $26,($27),srand !lituse_jsr!9 ldah $29,0($26) !gpdisp!10 lda $29,0($29) !gpdisp!10 ldq $27,rand($29) !literal!7 jsr $26,($27),rand !lituse_jsr!7 ldah $29,0($26) !gpdisp!8 stl $0,0($9) lda $29,0($29) !gpdisp!8 ldq $27,rand($29) !literal!5 jsr $26,($27),rand !lituse_jsr!5 ldah $29,0($26) !gpdisp!6 cpys $f31,$f31,$f31 lda $29,0($29) !gpdisp!6 ble $0,$L4 stl $31,0($9) $L4: ldl $16,0($9) ldq $26,0($30) ldq $9,8($30) lda $30,16($30) br $31,$leave..ng .end doit .align 2 .align 4 .globl main .ent main main: .frame $30,0,$26,0 ldah $29,0($27) !gpdisp!11 lda $29,0($29) !gpdisp!11 $main..ng: .prologue 1 br $31,$doit..ng .end main .comm globvar,4,4 .ident "GCC: (GNU) 3.3.2"