.file "991201-1.c" .globl vc_cons .data .align 2 .type vc_cons, @object .size vc_cons, 252 vc_cons: .long a_con .zero 248 .text .align 2 .globl reset_palette .type reset_palette, @function reset_palette: link.w %a6,#0 movm.l #0x2038,-(%sp) move.l 8(%a6),%d2 clr.l %d0 lea vc_cons,%a3 lea default_blu+3,%a4 lea default_grn+3,%a2 lea default_red+3,%a1 moveq.l #15,%d1 .align 2 .L6: move.l %d0,%a0 add.l (%a3,%d2.l*4),%a0 move.b (%a1),4(%a0) addq.l #4,%a1 addq.l #1,%d0 move.l %d0,%a0 add.l (%a3,%d2.l*4),%a0 move.b (%a2),4(%a0) addq.l #4,%a2 addq.l #1,%d0 move.l %d0,%a0 add.l (%a3,%d2.l*4),%a0 move.b (%a4),4(%a0) addq.l #4,%a4 addq.l #1,%d0 subq.l #1,%d1 jbpl .L6 pea 48.w jbsr bar movm.l -16(%a6),#0x1c04 unlk %a6 rts .size reset_palette, .-reset_palette .align 2 .globl bar .type bar, @function bar: link.w %a6,#0 moveq.l #48,%d0 cmp.l 8(%a6),%d0 jbeq .L9 jbsr abort .align 2 .L9: unlk %a6 rts .size bar, .-bar .align 2 .globl main .type main, @function main: link.w %a6,#0 clr.l -(%sp) jbsr reset_palette clr.l -(%sp) jbsr exit nop .size main, .-main .comm a_con,52,2 .comm default_red,64,2 .comm default_grn,64,2 .comm default_blu,64,2 .ident "GCC: (GNU) 3.3.2"