gfaraday/chibi-pc09
1
0
Fork 0
forked from amberisvibin/chibi-pc09
Code Pull Requests Activity

copy all local files to repo

Browse Source 
cp/m files, sprites, circuit design
This commit is contained in:
Amber
2020-05-15 09:07:45 -04:00
parent 8353edd599
commit 783d32a495
461 changed files with 80153 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
emu/yaze/COBOL/CALL.CBL Normal file
View File

@@ -0,0 +1,26 @@
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******************************************************************