.set noat .set noreorder .set nomacro .globl vc_cons .data .align 3 .type vc_cons, @object .size vc_cons, 504 vc_cons: .quad a_con .zero 496 .text .align 2 .align 4 .globl reset_palette .ent reset_palette reset_palette: .frame $30,0,$26,0 .mask 0x4000000,0 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $reset_palette..ng: ldah $1,vc_cons($29) !gprelhigh lda $30,-16($30) ldq $21,default_red($29) !literal lda $1,vc_cons($1) !gprellow ldq $0,default_grn($29) !literal s8addq $16,$1,$24 stq $26,0($30) .prologue 1 mov $31,$23 ldq $28,default_blu($29) !literal mov $31,$25 .align 4 $L6: s4addq $25,0,$7 ldq $3,0($24) addq $7,$21,$4 addq $7,$0,$6 addq $3,$23,$3 ldl $2,0($4) lda $5,8($3) cpys $f31,$f31,$f31 addl $23,1,$23 ldq_u $1,8($3) insbl $2,$5,$2 mov $23,$8 mskbl $1,$5,$1 addl $23,1,$23 bis $2,$1,$2 stq_u $2,8($3) ldq $4,0($24) bis $31,$31,$31 mov $23,$22 ldl $2,0($6) addq $7,$28,$7 addq $4,$8,$4 lda $3,8($4) cpys $f31,$f31,$f31 insbl $2,$3,$2 ldq_u $1,8($4) addl $25,1,$25 cmple $25,15,$5 mskbl $1,$3,$1 addl $23,1,$23 bis $2,$1,$2 stq_u $2,8($4) ldq $3,0($24) ldl $2,0($7) addq $3,$22,$3 lda $4,8($3) insbl $2,$4,$2 ldq_u $1,8($3) mskbl $1,$4,$1 bis $2,$1,$2 stq_u $2,8($3) bne $5,$L6 lda $16,48($31) ldq $27,bar($29) !literal!2 jsr $26,($27),bar !lituse_jsr!2 ldah $29,0($26) !gpdisp!3 lda $29,0($29) !gpdisp!3 ldq $26,0($30) lda $30,16($30) ret $31,($26),1 .end reset_palette .align 2 .align 4 .globl bar .ent bar bar: .frame $30,0,$26,0 .mask 0x4000000,0 ldah $29,0($27) !gpdisp!4 lda $29,0($29) !gpdisp!4 $bar..ng: lda $30,-16($30) cmpeq $16,48,$16 stq $26,0($30) .prologue 1 beq $16,$L11 ldq $26,0($30) lda $30,16($30) ret $31,($26),1 $L11: ldq $27,abort($29) !literal!5 jsr $26,($27),abort !lituse_jsr!5 .end bar .align 2 .align 4 .globl main .ent main main: .frame $30,0,$26,0 .mask 0x4000000,0 ldah $29,0($27) !gpdisp!6 lda $29,0($29) !gpdisp!6 $main..ng: lda $30,-16($30) mov $31,$16 stq $26,0($30) .prologue 1 cpys $f31,$f31,$f31 bsr $26,$reset_palette..ng mov $31,$16 ldq $27,exit($29) !literal!7 jsr $26,($27),exit !lituse_jsr!7 .end main .comm a_con,56,8 .comm default_red,64,4 .comm default_grn,64,4 .comm default_blu,64,4 .ident "GCC: (GNU) 3.3.2"