396 lines
7.2 KiB
ArmAsm
396 lines
7.2 KiB
ArmAsm
.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)"
|