From 8163c2034241ca156deb3b508b0320024c65b309 Mon Sep 17 00:00:00 2001 From: Marshall Gates Date: Tue, 20 May 2025 22:58:30 -0400 Subject: [PATCH 1/6] Update readmes to have build commands --- Source/Images/d_aztecc/Readme.txt | 4 ++++ Source/Images/d_bascomp/Readme.txt | 3 ++- Source/Images/d_cobol/Readme.txt | 2 ++ Source/Images/d_fortran/Readme.txt | 3 +++ 4 files changed, 11 insertions(+), 1 deletion(-) 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_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_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_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 From e6a14dda4d18b8df0eaca6fbb7f5ecdbfef45c5f Mon Sep 17 00:00:00 2001 From: Marshall Gates Date: Tue, 20 May 2025 23:00:57 -0400 Subject: [PATCH 2/6] Add Hello World example programs --- Source/Images/d_aztecc/u0/HELLO.C | 9 +++++++++ Source/Images/d_bascomp/u0/HELLO.BAS | 6 ++++++ Source/Images/d_cobol/u0/HELLO.COB | 15 +++++++++++++++ Source/Images/d_cpm22/u0/HELLO.ASM | 15 +++++++++++++++ Source/Images/d_fortran/u0/HELLO.FOR | 8 ++++++++ Source/Images/d_tpascal/u0/HELLO.PAS | 7 +++++++ 6 files changed, 60 insertions(+) create mode 100644 Source/Images/d_aztecc/u0/HELLO.C create mode 100644 Source/Images/d_bascomp/u0/HELLO.BAS create mode 100644 Source/Images/d_cobol/u0/HELLO.COB create mode 100644 Source/Images/d_cpm22/u0/HELLO.ASM create mode 100644 Source/Images/d_fortran/u0/HELLO.FOR create mode 100644 Source/Images/d_tpascal/u0/HELLO.PAS 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/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/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/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. From cb2f4e57737331e8cec3b0d1b8b5945ce7954060 Mon Sep 17 00:00:00 2001 From: Marshall Gates Date: Tue, 20 May 2025 23:05:12 -0400 Subject: [PATCH 3/6] Update build to create my demo images --- Source/Images/Build.cmd | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Source/Images/Build.cmd b/Source/Images/Build.cmd index f39e916e..f9b9aa04 100644 --- a/Source/Images/Build.cmd +++ b/Source/Images/Build.cmd @@ -52,8 +52,9 @@ call BuildDisk.cmd msxroms1 hd wbw_hd512 || exit /b call BuildDisk.cmd msxroms2 hd wbw_hd512 || exit /b echo. -echo Building Combo Disk (512 directory entry format) Image... +echo Building Combo Disk (512 directory entry format) Images... copy /b ..\..\Binary\hd512_cpm22.img + ..\..\Binary\hd512_zsdos.img + ..\..\Binary\hd512_nzcom.img + ..\..\Binary\hd512_cpm3.img + ..\..\Binary\hd512_zpm3.img + ..\..\Binary\hd512_ws4.img ..\..\Binary\hd512_combo.img || exit /b +copy /b ..\..\Binary\hd512_cpm22.img + ..\..\Binary\hd512_ws4.img + ..\..\Binary\hd512_aztecc.img + ..\..\Binary\hd512_bascomp.img + ..\..\Binary\hd512_tpascal.img + ..\..\Binary\hd512_fortran.img + ..\..\Binary\hd512_cobol.img + ..\..\Binary\hd512_z80asm.img + ..\..\Binary\hd512_games.img ..\..\Binary\hd512_combo_demo.img || exit /b echo. echo Building Hard Disk Images (1024 directory entry format)... @@ -84,6 +85,7 @@ if exist ..\BPBIOS\bp*.rel call BuildDisk.cmd bp hd wbw_hd1k ..\zsdos\zsys_wbw.s copy hd1k_prefix.dat ..\..\Binary\ || exit /b echo. -echo Building Combo Disk (1024 directory entry format) Image... +echo Building Combo Disk (1024 directory entry format) Images... copy /b hd1k_prefix.dat + ..\..\Binary\hd1k_cpm22.img + ..\..\Binary\hd1k_zsdos.img + ..\..\Binary\hd1k_nzcom.img + ..\..\Binary\hd1k_cpm3.img + ..\..\Binary\hd1k_zpm3.img + ..\..\Binary\hd1k_ws4.img ..\..\Binary\hd1k_combo.img || exit /b - +copy /b hd1k_prefix.dat + ..\..\Binary\hd1k_cpm22.img + ..\..\Binary\hd1k_ws4.img + ..\..\Binary\hd1k_aztecc.img + ..\..\Binary\hd1k_bascomp.img + ..\..\Binary\hd1k_tpascal.img + ..\..\Binary\hd1k_fortran.img + ..\..\Binary\hd1k_cobol.img + ..\..\Binary\hd1k_z80asm.img + ..\..\Binary\hd1k_games.img ..\..\Binary\hd1k_combo_demo.img || exit /b +echo. From 4006bc022463161e6bfb2cfa2a9579a44221f8fe Mon Sep 17 00:00:00 2001 From: "Marshall G. Gates" Date: Mon, 28 Jul 2025 20:25:40 -0400 Subject: [PATCH 4/6] Added Cobol to the Readme --- ReadMe.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From d92fb77f1106246721593deecc7e770d56037464 Mon Sep 17 00:00:00 2001 From: "Marshall G. Gates" Date: Mon, 28 Jul 2025 20:26:08 -0400 Subject: [PATCH 5/6] Added a development combo disk defintion --- Source/Images/demo_dev.def | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 Source/Images/demo_dev.def diff --git a/Source/Images/demo_dev.def b/Source/Images/demo_dev.def new file mode 100644 index 00000000..df5e3fce --- /dev/null +++ b/Source/Images/demo_dev.def @@ -0,0 +1,11 @@ +# This is the programming language demo development Combo image for RomWBW + +cpm22 +ws4 +aztecc +bascomp +tpascal +fortran +cobol +z80asm +games From 21f7dfc4fb77c97184c879c506a5a95a221af4bb Mon Sep 17 00:00:00 2001 From: "Marshall G. Gates" Date: Mon, 28 Jul 2025 21:43:20 -0400 Subject: [PATCH 6/6] Renamed demo_dev combo to example --- Source/Images/{demo_dev.def => demo_dev.def.example} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename Source/Images/{demo_dev.def => demo_dev.def.example} (100%) diff --git a/Source/Images/demo_dev.def b/Source/Images/demo_dev.def.example similarity index 100% rename from Source/Images/demo_dev.def rename to Source/Images/demo_dev.def.example