amberisvibin/chibi-pc09
Archived
1
0
Fork 1
Code Issues 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

19
emu/yaze/COBOL/TESTCALL.CBL Normal file
View File

@@ -0,0 +1,19 @@
000000******************************************************************
000000*
000000* Program "Testcall" to demonstrate L/II COBOL calling mechanism
000000*
000000******************************************************************
000000 Working-storage section.
000000 01 progname pic x(4).
000000 01 message-size pic 9(2) comp value 60.
000000 01 message-text pic x(60) value
000000 "This message is sent via a called program to the screen.".
000000 Procedure division.
000000 move "call" to progname.
000000 call progname using message-size,message-text
000000 overflow display "call overflowed".
000000******************************************************************
000000*
000000* End of demonstration program "Testcall"
000000*
000000******************************************************************