.file "960117-1.c" .globl curval .section .bss .align 2 .type curval, @object .size curval, 6 curval: .zero 6 .local idc .comm idc,2,2 .text .align 2 .globl get_id .type get_id, @function get_id: link.w %a6,#0 move.l curval+2,%a0 move.b 11(%a6),(%a0) unlk %a6 rts .size get_id, .-get_id .align 2 .globl get_tok .type get_tok, @function get_tok: link.w %a6,#0 move.w idc,%d0 muls.w #33,%d0 add.l #id_space,%d0 move.l %d0,curval+2 move.l cur_line,%d0 moveq.l #10,%d1 lsl.l %d1,%d0 move.w char_pos+2,%d1 or.w %d0,%d1 move.w %d1,curval pea 99.w jbsr get_id and.l #0xFFFF,%d0 unlk %a6 rts .size get_tok, .-get_tok .align 2 .globl main .type main, @function main: link.w %a6,#0 jbsr get_tok clr.l -(%sp) jbsr exit nop .size main, .-main .local id_space .comm id_space,66,1 .local cur_line .comm cur_line,4,2 .local char_pos .comm char_pos,4,2 .ident "GCC: (GNU) 3.3.2"