File SHONUM

Directory of image this file is from
This file as a plain text file

*20
/GET RANDOM DIGIT IN (1,9) AND DISPLAY
/IT AT RANDOM COORDINATES XC,YC IN
/(60,720) AND (-340,340) OCTAL FOR DNTM
/MSEC
ADTASK,	TAD C11
	DCA RNDM3
	JMS I RNDM1
	TAD RNDM2
	IAC
	DCA DISNUM	/RAND DIG
	TAD C540
	DCA RNDM3
	JMS I RNDM1
	TAD RNDM2
	TAD C60
	DCA XC		/RAND X-COOR.
	TAD C700
	DCA RNDM3
	JMS I RNDM1
	TAD M340
	TAD RNDM2
	DCA YC		/RAND Y-COOR.
	CLLR
	TAD MCLOCK
	CLLR
	JMS I NUMBERS	/JMS SHONUM
	CLCA
	TAD DNTM
	SPA CLA
	JMP .-4
/ADD NUMBER TO SUM. CHECK TO SEE IF
/ANOTHER NUMBER IS REQUIRED.
	TAD SUM
	TAD DISNUM
	DCA SUM
	ISZ NSHOW
	JMP ADTASK
/DONE WITH DISPLAY OF SERIES OF NUMBERS
/NOW SHOW FOUR CONSECUTIVE ALTERNATIVE
/CHOICES TO SUBJECT: CORRECT ONE IS
/RANDOMLY PLACED IN THIS SEQUENCE
	STA CLL RTL	/-3
	TAD SUM
	DCA DISNUM
	STL IAC RAL	/3
	DCA RNDM3
	JMS I RNDM1
	TAD RNDM2
	TAD DISNUM
	DCA DISNUM	/LO CHOICE
/ALTERNATIVES CHOSE; NOW SHOW THEM TO
/SUBJECT UNTIL HE DEPRESSES HIS GUESS
	TAD M4
	DCA CHOICE
	DCA XC
	DCA YC
CLOOP,	TAD XC
	TAD C140
	DCA XC		/NEW X-COOR.
	JMS I NUMBERS	/SHOW ALTERN.
	IS/ DISNUM	/NEXT ALTERN.
	ISZ CHOICE	/ANOTHER?
	JMP .+ 
	XXXXXXXX	/FILLIN RESP
	XXXXXXXX  	/ANALYSIS
	XXXXXXXX	/AND FEEDBACK
/XXXXXXXXX/AND TALLYING
	TAD M4
	TAD DISNUM
	DCA DISNUM	/RESET SEQUENCE
	JMP CLOOP
	DCA XC
/SUBR DISPLAYS UNSIGNED 4-DIGIT DECIMAL
/INTEGER DISNUM ON SCOPE AT COORDINATES
/(XC,YC). LEADING ZEROES BLANKED.
SHONUM,	0
	CLA
	TAD DISNUM
	DCA NUM
	DCA LEAD
	TAD XC
	DCA 1
	DCA DIGIT
	TAD NUM
	TAD MD1000
	SPA
	JMP .+3
	ISZ DIGIT
	JMP .-4
	TAD D1000
	DCA NUM
	TAD DIGIT
	DCA LEAD
	TAD LEAD
	SZA CLA
	JMP .+3
	TAD C40
	JMP .+3
	TAD C60
	TAD DIGIT
	JMS SHINE
	DCA DIGIT
	TAD NUM
	TAD MD100
	SPA
	JMP .+3
	ISZ DIGIT
	JMP .-4
	TAD D100
	DCA NUM
	TAD DIGIT
	TAD LEAD
	DCA LEAD
	TAD LEAD
	SZA CLA
	JMP .+3
	TAD C40
	JMP .+3
	TAD C60
	TAD DIGIT
	JMS SHINE
	DCA DIGIT
	TAD NUM
	TAD MD10
	SPA
	JMP .+3
	ISZ DIGIT
	JMP .-4
	TAD C72    	/C60+D10
	DCA NUM
	TAD DIGIT
	TAD LEAD
	SZA CLA
	JMP .+3
	TAD C40
	JMP .+3
	TAD DIGIT
	TAD C60
	JMS SHINE
	TAD NUM
	JMS SHINE
	JMP I SHONUM
/AUX. SUBR. USED BY SHONUM
SHINE,	0
	CLL RAL
	TAD CHTABL
	DCA 2
	ISZ 1
	TAD VC
	LINC
	LMODE
	DSC 2
	DSC I 2
	PDP
	PMODE
	CLA
	JMP I SHINE



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search