forked from amberisvibin/chibi-pc09
27 lines
1.0 KiB
COBOL
27 lines
1.0 KiB
COBOL
000000******************************************************************
|
|
000000*
|
|
000000* Program "Call" called by "Testcall"; this is COBOL version;
|
|
000000* compare with functionally equivalent assembler version.
|
|
000000*
|
|
000000******************************************************************
|
|
000000 Working-storage section.
|
|
000000 01 temp pic 9(2) comp.
|
|
000000 01 text-buffer value space.
|
|
000000 02 tbuf-table pic x occurs 80.
|
|
000000 Linkage section.
|
|
000000 01 mess-text.
|
|
000000 02 mtex-table pic x occurs 80.
|
|
000000 01 mess-size pic 9(2) comp.
|
|
000000 Procedure division using mess-size,mess-text.
|
|
000000 l.
|
|
000000 move 0 to temp perform move-byte until temp = mess-size.
|
|
000000 display text-buffer.
|
|
000000 exit program.
|
|
000000 move-byte.
|
|
000000 add 1 to temp move mtex-table (temp) to tbuf-table (temp).
|
|
000000******************************************************************
|
|
000000*
|
|
000000* End of demonstration program "Call"
|
|
000000*
|
|
000000******************************************************************
|