mirror of
https://github.com/open-simh/simh.git
synced 2026-01-13 07:20:12 +00:00
111 lines
2.4 KiB
Plaintext
111 lines
2.4 KiB
Plaintext
cd %~p0
|
|
|
|
# The tests check writing to the tape, so use a copy.
|
|
copy classic-test.linc clobbered.linc
|
|
attach tape0 clobbered.linc
|
|
|
|
echo CONTRL
|
|
load -e classic-test.linc block=0 start=0 length=400
|
|
break 34
|
|
|
|
# Special treatment for this test, because it's supposed to halt.
|
|
echo *** Test: 70 - HLTTST ***
|
|
load -e classic-test.linc block=1 start=400 length=400
|
|
assert 400==70
|
|
go 401
|
|
assert P==402
|
|
continue
|
|
assert P==34
|
|
|
|
deposit RSW 0300
|
|
deposit LSW 0700
|
|
deposit SSW 77
|
|
deposit SAM[0] 177
|
|
deposit XL[0] 1
|
|
deposit XL[1] 1
|
|
deposit XL[2] 1
|
|
deposit XL[3] 1
|
|
deposit XL[4] 1
|
|
deposit XL[5] 1
|
|
deposit XL[6] 1
|
|
deposit XL[7] 1
|
|
deposit XL[8] 1
|
|
deposit XL[9] 1
|
|
deposit XL[10] 1
|
|
deposit XL[11] 1
|
|
|
|
call test 1 SAETST 002
|
|
call test 2 BCLTST 003
|
|
call test 3 BSETST 004
|
|
call test 4 BCOTST 005
|
|
call test 5 ROTL1 006
|
|
call test 6 ROTL2 007
|
|
call test 7 ROTL3 010
|
|
call test 10 ROTL4 011
|
|
call test 11 ROTL5 012
|
|
call test 12 ROTR1 013
|
|
call test 13 ROTR2 014
|
|
call test 14 ROTR3 015
|
|
call test 15 ROTR4 016
|
|
call test 16 ROTR5 017
|
|
call test 17 CLRTST 020
|
|
call test 20 ADDONE 021
|
|
call test 21 COMT1 022
|
|
call test 22 SCRT1 023
|
|
call test 23 SCRT2 024
|
|
call test 24 SCRT3 025
|
|
call test 25 SCRT4 027
|
|
call test 26 ADDT1 031
|
|
call test 27 FADRT1 032
|
|
call test 30 FADRT2 033
|
|
call test 31 iBETA1 035
|
|
call test 32 iBETA2 036
|
|
call test 33 iBETA3 037
|
|
call test 34 iBETA4 040
|
|
call test 35 LDAT1 041
|
|
call test 36 STAT1 042
|
|
call test 37 ADMT1 043
|
|
call test 40 LAMT1 044
|
|
call test 41 MULT1 045
|
|
call test 42 SROT1 046
|
|
call test 43 SETT1 047
|
|
call test 44 SETT2 050
|
|
call test 45 XSKT1 051
|
|
call test 46 XSKT2 052
|
|
call test 47 AZET1 053
|
|
call test 50 APOT1 054
|
|
call test 51 LZET1 055
|
|
call test 52 HWCT1 056
|
|
call test 53 HWCT2 057
|
|
call test 54 HWCT3 060
|
|
call test 55 HWCT4 061
|
|
call test 56 HWCT5 062
|
|
call test 57 RANADD 063
|
|
call test 60 ATRT1 064
|
|
call test 61 IBZT1 065
|
|
call test 62 JMPUP 066
|
|
call test 63 JMPDWN 067
|
|
call test 64 TAPETS 070
|
|
call test 65 MTBTST 101
|
|
call test 66 DISTST 102
|
|
call test 67 DSCTST 103
|
|
call test 700 OVFT1 104
|
|
call test 701 ZTAT1 105
|
|
call test 702 ZCLR1 106
|
|
call test 703 ZCLRT2 107
|
|
deposit INTREQ 1
|
|
call test 704 ENIT1 110
|
|
call test 71 MISCTS 111
|
|
|
|
echo DIAGNOSTICS PASSED
|
|
quit
|
|
|
|
:test
|
|
echo *** Test: %1 - %2 ***
|
|
load -e classic-test.linc block=%3 start=400 length=400
|
|
assert 400==%1
|
|
deposit 21 1%3
|
|
go 401
|
|
assert P==34
|
|
return
|