diff --git a/sys/src/games/mix/tests/maximum.m b/sys/src/games/mix/tests/maximum.m deleted file mode 100644 index 65c611692..000000000 --- a/sys/src/games/mix/tests/maximum.m +++ /dev/null @@ -1,14 +0,0 @@ -# Entry condition R1 = n. -# Exit: RA = max R2 = index of max in X -X EQU 1000 -ORIG 3000 -MAXIMUM STJ EXIT # Subroutine linkage. -INIT ENT3 0,1 # M1. Initialize k ← n. - JMP CHANGEM # j ← n, m ← X[n], k ← n-1. -LOOP CMPA X,3 # M3. Compare. - JGE *+3 # To M5 if m ≥ X[k]. -CHANGEM ENT2 0,3 # M4. Change m. j ← k. - LDA X,3 # m ← X[k]. - DEC3 1 # M5. Decrease k. - J3P LOOP # M2. All tested? To M3 if k > 0. -EXIT JMP * # Return to main program. diff --git a/sys/src/games/mix/tests/maxmain.m b/sys/src/games/mix/tests/maxmain.m deleted file mode 100644 index 42c57a67d..000000000 --- a/sys/src/games/mix/tests/maxmain.m +++ /dev/null @@ -1,25 +0,0 @@ - ORIG X - CON 0 - CON 3910 - CON 23 - CON -45 - CON 310 - CON 475 - CON 40291 - CON 358 - CON 20912 -RESULT ALF "MAX: " - CON 0 - ALF " AT: " - CON 0 - ORIG EXIT+1 -MAIN ENT1 RESULT-X-1 - JMP MAXIMUM - CHAR - STX RESULT+1 - ENTA ,2 - CHAR - STX RESULT+3 - OUT RESULT(19) - HLT - END MAIN diff --git a/sys/src/games/mix/tests/primes.m b/sys/src/games/mix/tests/primes.m deleted file mode 100644 index 31b7b86f0..000000000 --- a/sys/src/games/mix/tests/primes.m +++ /dev/null @@ -1,49 +0,0 @@ -L EQU 500 -PRINTER EQU 18 -PRIME EQU -1 -BUF0 EQU 2000 -BUF1 EQU BUF0+25 - ORIG 3000 -START IOC 0(PRINTER) - LD1 =1-L= - LD2 =3= -2H INC1 1 - ST2 PRIME+L,1 - J1Z 2F -4H INC2 2 - ENT3 2 -6H ENTA 0 - ENTX 0,2 - DIV PRIME,3 - JXZ 4B - CMPA PRIME,3 - INC3 1 - JG 6B - JMP 2B -2H OUT TITLE(PRINTER) - ENT4 BUF1+10 - ENT5 -50 -2H INC5 L+1 -4H LDA PRIME,5 - CHAR - STX 0,4(1:4) - DEC4 1 - DEC5 50 - J5P 4B - OUT 0,4(PRINTER) - LD4 24,4 - J5N 2B - HLT -ORIG PRIME+1 - CON 2 - ORIG BUF0-5 -TITLE ALF "FIRST" - ALF " FIVE" - ALF " HUND" - ALF "RED P" - ALF "RIMES" - ORIG BUF0+24 - CON BUF1+10 - ORIG BUF1+24 - CON BUF0+10 - END START