08027162ca
- Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test
205 lines
7.4 KiB
INI
205 lines
7.4 KiB
INI
|
|
; demo all .ini scripts
|
|
|
|
set console -n log=console.txt
|
|
set debug -q stdout
|
|
set debug -q -n debug.txt
|
|
set cpu debug=cmd;data;detail
|
|
set mt debug=cmd;data;detail;exp
|
|
set dsk debug=cmd;data;detail;exp
|
|
|
|
; uncomment any of them to simulate ibm 650 real speed
|
|
; set throttle 11k
|
|
; set throttle 55/5
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test build_soap_from_source.ini
|
|
echo ===========================================================
|
|
echo generates soap assembly listing
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do build_soap_from_source.ini
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_soap.ini
|
|
echo ===========================================================
|
|
echo example from manual
|
|
echo should print 0100 lines
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_soap.ini soap/soap_example_1_src.txt 1000
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test build_soap4_tap_lib.ini
|
|
echo ===========================================================
|
|
echo generate a library tape, assemble and run a prog that calls it
|
|
echo should display 38 0100 up to 38 6600
|
|
echo then assemble example
|
|
echo ===========================================================
|
|
echo
|
|
|
|
; build_soap4_tap_lib.ini calls run_soap4.ini, so no need to test it again
|
|
do build_soap4_tap_lib.ini
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test build_ssoap_ramac_from_decks.ini
|
|
echo ===========================================================
|
|
echo builds supersoap on ramac disk, then assemble example prog
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do build_ssoap_ramac_from_decks.ini
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test assemble ssoap from source
|
|
echo ===========================================================
|
|
echo assemble original supersoap source
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_supersoap_ramac.ini supersoap/ssoap_main_core_src.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_fds.ini
|
|
echo ===========================================================
|
|
echo generates 9 lines (numberes 1-9) with 3 colums of numbers
|
|
echo integer (1..9), float (1..9), sqrt (1..9)
|
|
echo last line is: 00 0000 0009 50 9000 0000 50 3000 0000
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_fds.ini fds/example.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_ra.ini
|
|
echo ===========================================================
|
|
echo regional assembler assembles and run aprog to list on one column 5-word cards
|
|
echo listing is one column, words from 0900-0925, some 1960, 0990,
|
|
echo more 1960s, 0401-0411. echo last line is: 0411 00 0000 0900
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_ra.ini regional/print_five_field_ctrl_cards.txt regional/print_five_field_src.txt 0900 deck_in.dck
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo build_is_from_decks.ini
|
|
echo ===========================================================
|
|
echo build is from source deck
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do build_is_from_decks.ini ntr lbox
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_is.ini
|
|
echo ===========================================================
|
|
echo sieve of eratosthenes - print prime numbers < 50 (last one is 47)
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_is.ini bell/is_example_1_src.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_it.ini
|
|
echo ===========================================================
|
|
echo example from manual
|
|
echo should print one line: 200020005 6400000051 100050005 11
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_it.ini it/it_example_1_src.txt it/it_example_1_data.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_it.ini
|
|
echo ===========================================================
|
|
echo sieve of eratosthenes - print prime numbers < 50 (last one is 47)
|
|
echo ===========================================================
|
|
echo
|
|
|
|
|
|
do run_it.ini it/it_example_2_src.txt nul
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test build_fortransit_pack.ini
|
|
echo ===========================================================
|
|
echo build fortransit funcion packs
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do build_fortransit_pack.ini
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_fortransit.ini
|
|
echo ===========================================================
|
|
echo example from manual - matrix multiplication
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_fortransit.ini fortransit/fortransit_example_2_src.txt fortransit/fortransit_example_2_data.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_fortransit.ini
|
|
echo ===========================================================
|
|
echo sieve of eratosthenes - print prime numbers < 50 (last one is 47)
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_fortransit.ini fortransit/fortransit_example_1_src.txt nul
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_fortransit.ini
|
|
echo ===========================================================
|
|
echo test fortran functions (each one identified by a 1111 to 9999)
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_fortransit.ini fortransit/fortransit_example_4_src.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
echo
|
|
echo ===========================================================
|
|
echo test run_fortransit.ini
|
|
echo ===========================================================
|
|
echo list a fortran graphic!
|
|
echo ===========================================================
|
|
echo
|
|
|
|
do run_fortransit.ini fortransit/fortransit_example_5_src.txt
|
|
set env -P "Press Enter to continue . . . " dummy=cont
|
|
|
|
quit
|
|
|
|
goto end
|
|
|
|
:end
|