diff --git a/ReadMe.md b/ReadMe.md index f487c156..846da264 100644 --- a/ReadMe.md +++ b/ReadMe.md @@ -80,7 +80,7 @@ Some of the included software: - Support for other operating systems, p-System, FreeRTOS, and FUZIX. - Programming Tools (Z80ASM, Turbo Pascal, Forth, Cowgol) - C Compiler’s including Aztec-C, and HI-TECH C -- Microsoft Basic Compiler, and Microsoft Fortran +- Microsoft Basic Compiler, Microsoft Fortran, and Microsoft COBOL - Some games such as Colossal Cave, Zork, etc - Wordstar Word processing software diff --git a/Source/Images/Build.cmd b/Source/Images/Build.cmd index 57fe1119..af05daa9 100644 --- a/Source/Images/Build.cmd +++ b/Source/Images/Build.cmd @@ -33,3 +33,4 @@ for %%f in (*.def) do ( PowerShell -ExecutionPolicy Unrestricted .\BuildDsk.ps1 hd512_%%~nf || exit /b PowerShell -ExecutionPolicy Unrestricted .\BuildDsk.ps1 hd1k_%%~nf || exit /b ) + diff --git a/Source/Images/d_aztecc/Readme.txt b/Source/Images/d_aztecc/Readme.txt index 20c682d6..23e26238 100644 --- a/Source/Images/d_aztecc/Readme.txt +++ b/Source/Images/d_aztecc/Readme.txt @@ -24,3 +24,7 @@ as-is. Bill Buckels bbuckels@mts.net + +cz hello +as hello +ln hello.o -lc diff --git a/Source/Images/d_aztecc/u0/HELLO.C b/Source/Images/d_aztecc/u0/HELLO.C new file mode 100644 index 00000000..0e412aca --- /dev/null +++ b/Source/Images/d_aztecc/u0/HELLO.C @@ -0,0 +1,9 @@ +main() +{ + int i; + for( i = 1; i <= 10; i++ ) { + printf("Hello World, from Aztec C line %d\n", i); + } +} + + \ No newline at end of file diff --git a/Source/Images/d_bascomp/Readme.txt b/Source/Images/d_bascomp/Readme.txt index fff84b63..646b73c9 100644 --- a/Source/Images/d_bascomp/Readme.txt +++ b/Source/Images/d_bascomp/Readme.txt @@ -62,4 +62,5 @@ Hello World A> - +BASCOM =HELLO /E +L80 HELLO,HELLO/N/E diff --git a/Source/Images/d_bascomp/u0/HELLO.BAS b/Source/Images/d_bascomp/u0/HELLO.BAS new file mode 100644 index 00000000..73f6b845 --- /dev/null +++ b/Source/Images/d_bascomp/u0/HELLO.BAS @@ -0,0 +1,6 @@ +10 FOR I = 1 TO 10 +20 PRINT "Hello World from BASIC, line"; I +30 NEXT I +40 END + + \ No newline at end of file diff --git a/Source/Images/d_cobol/Readme.txt b/Source/Images/d_cobol/Readme.txt index 98b77ea2..3ad86112 100644 --- a/Source/Images/d_cobol/Readme.txt +++ b/Source/Images/d_cobol/Readme.txt @@ -13,3 +13,5 @@ be run easily on 8080, z-80 or 8085 systems. The user manual is available in the Doc/Language directory, Microsoft_COBOL-80_Manuals_1878.pdf +cobol hello,hello=hello/r +l80 hello/n,hello/e diff --git a/Source/Images/d_cobol/u0/HELLO.COB b/Source/Images/d_cobol/u0/HELLO.COB new file mode 100644 index 00000000..b9e016cc --- /dev/null +++ b/Source/Images/d_cobol/u0/HELLO.COB @@ -0,0 +1,15 @@ +000100 IDENTIFICATION DIVISION. +000200 PROGRAM-ID. HELLO. +000300 ENVIRONMENT DIVISION. +000400 DATA DIVISION. +000410 WORKING-STORAGE SECTION +000420 01 LINECOUNT PIC 99. +000430 01 DISPCOUNT PIC Z9. +000500 PROCEDURE DIVISION. +000600 00-MAIN. +000700 PERFORM SHOW-MESSAGE VARYING LINECOUNT FROM 1 BY 1 +000710 UNTIL LINECOUNT > 10. +000800 STOP RUN. +000900 SHOW-MESSAGE. +000910 MOVE LINECOUNT TO DISPCOUNT. +001000 DISPLAY "Hello World From COBOL, line ", DISPCOUNT. diff --git a/Source/Images/d_cpm22/u0/HELLO.ASM b/Source/Images/d_cpm22/u0/HELLO.ASM new file mode 100644 index 00000000..a54c471a --- /dev/null +++ b/Source/Images/d_cpm22/u0/HELLO.ASM @@ -0,0 +1,15 @@ + ORG 100H + +BDOS EQU 0005H ; LOCATION OF BDOS ENTRY POINT +BOOT EQU 0000H ; LOCATION OF BOOT REQUEST + +START: + MVI C,9 ; BDOS REQUEST 9 - PRINT STRING + LXI D,MESSAGE ; OUR STRING TO PRINT + CALL BDOS + JMP BOOT ; EXIT TO CP/M + +MESSAGE: + DB 13,10,'Hello World from CP/M!',13,10,'$' + + END START diff --git a/Source/Images/d_fortran/Readme.txt b/Source/Images/d_fortran/Readme.txt index b57ee721..e8493185 100644 --- a/Source/Images/d_fortran/Readme.txt +++ b/Source/Images/d_fortran/Readme.txt @@ -8,3 +8,6 @@ the 8080/Z80 platform, not the language specification version) The user manual is available in the Doc/Language directory, Microsoft_FORTRAN-80_Users_Manual_1977.pdf + +f80 hello,hello=hello +l80 hello,forlib/s,hello/n,/e:hellow diff --git a/Source/Images/d_fortran/u0/HELLO.FOR b/Source/Images/d_fortran/u0/HELLO.FOR new file mode 100644 index 00000000..74b1ab1d --- /dev/null +++ b/Source/Images/d_fortran/u0/HELLO.FOR @@ -0,0 +1,8 @@ +C Simple Hello World Program + PROGRAM HelloWorld + + INTEGER I + DO 10 I=1, 10 +10 WRITE(1, 20) i +20 FORMAT(33H Hello World! From Fortran, Line , i2) + END diff --git a/Source/Images/d_tpascal/u0/HELLO.PAS b/Source/Images/d_tpascal/u0/HELLO.PAS new file mode 100644 index 00000000..e42ff0a1 --- /dev/null +++ b/Source/Images/d_tpascal/u0/HELLO.PAS @@ -0,0 +1,7 @@ +program hello; +var no : integer; +begin + ClrScr; + for no := 1 to 10 do + writeln('Hello World from Turbo Pascal Line ', no); +end. diff --git a/Source/Images/demo_dev.def.example b/Source/Images/demo_dev.def.example new file mode 100644 index 00000000..df5e3fce --- /dev/null +++ b/Source/Images/demo_dev.def.example @@ -0,0 +1,11 @@ +# This is the programming language demo development Combo image for RomWBW + +cpm22 +ws4 +aztecc +bascomp +tpascal +fortran +cobol +z80asm +games