.file "external1.cob" .version "01.01" tinycobol_compiled.: .text Ltext_external1: .stabs "external1.cob",100,0,0,external1 .stabs "external1:F1",36,0,0,external1 .stabs "display:t2=r2;0;255;",128,0,0,0 .stabs "comp:t3=r3;-2147483648;2147483647;",128,0,0,0 .stabs "comp3:t4=r3;0;255;",128,0,0,0 .stabs "compw:t5=r5;-32768;32767;",128,0,0,0 .stabs "compb:t6=r6;-128;127;",128,0,0,0 .stabs "compll:t7=r(0,1);0;01777777777777777777777",128,0,0,0 .align 16 .globl external1 .type external1,@function external1: .stabs ":t1",128,0,0,0 pushl %ebp movl %esp, %ebp subl $40, %esp movl %ebx, -24(%ebp) .Linit_external1: movl $s_base0+0, %eax pushl %eax pushl $0 pushl $9 movl $c_base0+219, %eax pushl %eax call tcob_enter_runelement addl $16, %esp movl $s_base0+0, %eax cmpl $0, 0(%eax) jne .Linite_external1 movl $1, 0(%eax) movl $w_base0+0, %eax pushl %eax movl $c_base0+85, %eax pushl %eax movl $c_base0+51, %eax pushl %eax movl $c_base0+53, %eax pushl %eax call tcob_move addl $16, %esp movl $WINT+0, %eax pushl %eax movl $c_base0+189, %eax pushl %eax movl $c_base0+51, %eax pushl %eax movl $c_base0+53, %eax pushl %eax call tcob_move addl $16, %esp movl $w_base0+67, %eax pushl %eax movl $c_base0+204, %eax pushl %eax movl $c_base0+51, %eax pushl %eax movl $c_base0+53, %eax pushl %eax call tcob_move addl $16, %esp movl $w_base0+7, %eax pushl %eax movl $c_base0+174, %eax pushl %eax movl $c_base0+125, %eax pushl %eax movl $c_base0+136, %eax pushl %eax call tcob_move addl $16, %esp .Linite_external1: .stabn 192,0,0,.LS0-Ltext_external1 .stabn 224,0,0,.LSend_external1-Ltext_external1 leal external1, %eax pushl %eax leal .Lend_pgm_external1, %eax pushl %eax .stabs "external1.cob",132,0,0,.LS0 .stabn 68,0,29,.LS0-Ltext_external1 .LS0: pushl $0 movl $c_base0+189, %eax pushl %eax movl $WINT+0, %eax pushl %eax call tcob_accept_curses addl $12, %esp .stabn 68,0,30,.LS1-Ltext_external1 .LS1: pushl $0 movl $WINT+0, %eax pushl %eax movl $c_base0+189, %eax pushl %eax call tcob_display_curses addl $12, %esp .stabn 68,0,31,.LS2-Ltext_external1 .LS2: pushl $0 movl $c_base0+244, %eax pushl %eax movl $c_base0+273, %eax pushl %eax call tcob_display_curses addl $12, %esp .stabn 68,0,32,.LS3-Ltext_external1 .LS3: pushl $0 movl $c_base0+288, %eax pushl %eax movl $c_base0+301, %eax pushl %eax call tcob_resolve_subr addl $12, %esp addl $0, %esp and %eax,%eax jz .L1 subl $0, %esp call *%eax movl $s_base0+0, %eax pushl %eax pushl $1 pushl $9 movl $c_base0+219, %eax pushl %eax call tcob_enter_runelement addl $16, %esp jmp .L2 .L1: # exceplabel call tcob_resolve_subr_error jmp .L3 .L2: # notexceplabel .L3: # endlabel pushl $0 movl $c_base0+316, %eax pushl %eax movl $c_base0+329, %eax pushl %eax call tcob_display_curses addl $12, %esp .stabn 68,0,34,.LS4-Ltext_external1 .LS4: pushl $1048576 movl $c_base0+189, %eax pushl %eax movl $WINT+0, %eax pushl %eax call tcob_accept_curses addl $12, %esp .stabn 68,0,35,.LS5-Ltext_external1 .LS5: pushl $0 movl $c_base0+344, %eax pushl %eax movl $c_base0+373, %eax pushl %eax call tcob_display_curses addl $12, %esp .stabn 68,0,36,.LS6-Ltext_external1 .LS6: pushl $0 movl $c_base0+388, %eax pushl %eax movl $c_base0+401, %eax pushl %eax call tcob_resolve_subr addl $12, %esp addl $0, %esp and %eax,%eax jz .L4 subl $0, %esp call *%eax movl $s_base0+0, %eax pushl %eax pushl $1 pushl $9 movl $c_base0+219, %eax pushl %eax call tcob_enter_runelement addl $16, %esp jmp .L5 .L4: # exceplabel call tcob_resolve_subr_error jmp .L6 .L5: # notexceplabel .L6: # endlabel pushl $0 movl $c_base0+416, %eax pushl %eax movl $c_base0+429, %eax pushl %eax call tcob_display_curses addl $12, %esp .stabn 68,0,38,.LS7-Ltext_external1 .LS7: pushl $1048576 movl $c_base0+189, %eax pushl %eax movl $WINT+0, %eax pushl %eax call tcob_accept_curses addl $12, %esp .stabn 68,0,39,.LS8-Ltext_external1 .LS8: leal .Lend_pgm_external1, %eax pushl %eax jmp .Lend_pgm_external1 # resolving paragraphs/sections labels # finish resolving paragraphs/sections labels .Lend_pgm_external1: call tcob_do_scrio_finish call tcob_stop_run leal w_base0+0, %edx movl (%edx), %eax jmp .LSend_external1 .align 16 .LSend_external1: pushl %eax call exit addl $4,%esp movl -24(%ebp), %ebx mov %ebp,%esp popl %ebp ret .Lfe1_external1: .size external1,.Lfe1_external1-external1 .data .align 4 w_base0: .stabs "RETURN-CODE:V3",38,0,0,w_base0+0 .space 4 .stabs "REG-ARQ:V(1,63)=ar3;1;63;2",38,0,0,w_base0+4 .space 63 .stabs "P-IND:V(1,3)=ar3;1;3;2",38,0,0,w_base0+4 .stabs "DESCRIPTION:V(1,60)=ar3;1;60;2",38,0,0,w_base0+7 .comm WINT,12 .stabs "WINT:V(1,12)=ar3;1;12;2",38,0,0,w_base0+0 .space 12 .stabs "FS:V(1,2)=ar3;1;2;2",38,0,0,w_base0+67 .space 2 v_base0: c_base0: .byte 32,0 .long 1 .byte 'X',0,0,1 .long c_base0+14 .byte 'X',1,0 .byte 0,0 .long 1 .byte 'X',0,0,1 .long c_base0+31 .byte 'X',1,0 .byte -1,0 .long 1 .byte 'X',0,0,1 .long c_base0+48 .byte 'X',1,0 .byte 48,0 .long 1 .byte '9',0,0,1 .long c_base0+65 .byte '9',1,0 .byte 34,0 .long 1 .byte 'X',0,0,1 .long c_base0+82 .byte 'X',1,0 .long 4 .byte 'B',0,0,0 .long c_base0+97 .byte 'S',1 .byte '9',6 .byte 0 .byte 82,97,119,46,100,97,116,0 .long 7 .byte 'X',0,0,0 .long c_base0+122 .byte 'X',7,0 .byte 97,97,97,97,97,97,97,97 .byte 97,98,0 .long 10 .byte 'X',0,0,0 .long c_base0+148 .byte 'X',10,0 .long 63 .byte 'G',0,0,0 .long 3 .byte '9',0,0,0 .long c_base0+171 .byte '9',3 .byte 0 .long 60 .byte 'X',0,0,0 .long c_base0+186 .byte 'X',60 .byte 0 .long 12 .byte '9',0,0,0 .long c_base0+201 .byte '9',12 .byte 0 .long 2 .byte '9',0,0,0 .long c_base0+216 .byte '9',2 .byte 0 .byte 101,120,116,101,114,110,97,108 .byte 49,0 .long 9 .byte '9',0,0,0 .long c_base0+241 .byte '9',9,0 .byte 99,97,108,108,32,101,120,116 .byte 101,114,110,97,108,49,115,117 .byte 98,32,40,49,115,116,32,116 .byte 105,109,101,41,0 .long 28 .byte 'X',0,0,0 .long c_base0+285 .byte 'X',28,0 .byte 101,120,116,101,114,110,97,108 .byte 49,115,117,98,0 .long 12 .byte 'X',0,0,0 .long c_base0+313 .byte 'X',12,0 .byte 98,97,99,107,32,105,110,32 .byte 109,97,105,110,0 .long 12 .byte 'X',0,0,0 .long c_base0+341 .byte 'X',12,0 .byte 99,97,108,108,32,101,120,116 .byte 101,114,110,97,108,49,115,117 .byte 98,32,40,50,110,100,32,116 .byte 105,109,101,41,0 .long 28 .byte 'X',0,0,0 .long c_base0+385 .byte 'X',28,0 .byte 101,120,116,101,114,110,97,108 .byte 49,115,117,98,0 .long 12 .byte 'X',0,0,0 .long c_base0+413 .byte 'X',12,0 .byte 98,97,99,107,32,105,110,32 .byte 109,97,105,110,0 .long 12 .byte 'X',0,0,0 .long c_base0+441 .byte 'X',12,0 s_base0: .long 0 .byte 4 .long c_base0+110 .word 63 .byte 4,1 .long 0 .space 2 .space 2 .long 0 .long 0 .byte 0 .align 4 .globl main .type main,@function main: .stabs ":t1",128,0,0,0 pushl %ebp movl %esp, %ebp subl $4,%esp movl $0,-4(%ebp) movl 12(%ebp),%eax pushl %eax movl 8(%ebp),%eax pushl %eax call tcob_init addl $8,%esp call external1 movl %eax,%eax movl %eax,-4(%ebp) call tcob_stop_run movl -4(%ebp),%edx movl %edx,%eax leave ret .Lfe1: .size main,.Lfe1-main .ident "TinyCOBOL: pre alpha 0.62.11 (linux-gnu 2005/07/26)"