games/mix: remove tests directory
This commit is contained in:
parent
4b68ddfb5a
commit
339fda9164
3 changed files with 0 additions and 88 deletions
|
@ -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.
|
|
@ -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
|
|
@ -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
|
Loading…
Reference in a new issue