*20
/TPTS - TAPE QUICKIE MAINDEC 12-D0GA-A
/AUTHOR - WALTER MANTER
/MAINTAINER - DIAGNOSTIC GROUP
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP.,MAYNARD, MASS.
/TESTS MAJOR REGISTER INFORMATION FLOW
/THROUGH USE OF THE MAINTENANCE INST
/REGISTERS TESTED IN ORDER ARE:
/TAC
/TB
/RWB
/TBN
/TMA
/TMA SETUP
/ALSO ADDITION TB+TAC TO TAC
/ALSO SHIFT OF RWB
/SENSE SWITCHES 0-2 CONTROL THE MODE OF OPERATION DESIRED
/SNS 0-2 =0 LOOP ENTIRE PROGRAM
/SNS 0   =1 LOOP REGISTER TRANSFER TESTS
/SNS 1   =1 LOOP ADDITION TEST (TBTAC)
/SNS 2   =1 LOOP SHIFT RWB TEST (SHRWB)
	
	EJECT
	 
	LMODE
	*20
	 
/TTAC TEST - TRANSFER CONTENTS OF THE
/PROCESSOR AC TO THE TAPE ACCUMULATOR
/READ IT BACK AND TEST FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE
/LEFT SWITCHES
/PROCEED TO NEXT TEST IF NO ERROR
	 
TTAC,	CLR		
	LDA I		
	1000		
	IOB	
	6151	
	LSW		
	STA		
	10	
	IOB	
	6154
	CLR
	TAC
	SAE
	10
	HLT
	NOP
	 
	EJECT
/TB - TRANSFER THE CONTENTS OF THE
/PROCESSOR AC TO THE TAPE BUFFER
/READ IT BACK AND TEST FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE 
/LEFT SWITCHES
/PROCEED TO NEXT TEST IF NO ERRORS
	 
	
TB,	CLR
	IOB
	6151
	LSW
	STA
	10
	IOB
	6154
	LDA I
	3000
	IOB
	6151
	CLR
	IOB
	6154
	SAE
	10
	HLT
	NOP
	 
	EJECT
	 
/RWB - TRANSFER CONTENTS OF PROCESSOR
/AC TO TAPE BUFFER
/TRANSFER TAPE BUFFER TO
/TAPE READ WRITE BUFFER
/TRANSFER TAPE READ WRITE BUFFER TO
/PROCESSOR AC
/TEST BIT PATTERN RECEIVED FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE
/LEFT SWITCHES
/IF NO ERROR CONTINUE TO NEXT TEST
	 
RWB,	CLR
	IOB
	6151
	LSW
	STA
	10
	IOB
	6154
	LDA I
	1000
	IOB
	6152
	LDA I
	3400
	IOB
	6151
	CLR
	IOB
	6154
	SAE
	10
	HLT
	NOP
	 
	EJECT
	 
/TBN - TRANSFER CONTENTS OF PROCESSOR
/AC TO TAPE BLOCK NUMBER REGISTER (TBN)
/READ IT BACK AND TEST FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE
/LEFT SWITCHES
/PROCEED TO NEXT TEST IF NO ERROR
	 
TBN,	CLR
	LDA I
	400
	IOB
	6151
	LSW
	STA
	10
	IOB
	6154
	LDA I
	2400
	IOB
	6151
	CLR
	IOB
	6154
	SAE
	10
	HLT
	NOP
	 
	EJECT
	 
/TTMA - TRANSFER THE CONTENTS OF PROCESSOR
/AC TO TAPE MEMORY ADDRESS REGISTER (TMA)
/READ IT BACK AND TEST FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE
/LEFT SWITCHES
/PROCEED TO NEXT TEST IF NO ERRORS
	 
TTMA,	CLR
	LDA I
	1400
	IOB
	6151
	LSW
	STA
	10
	IOB
	6154
	LDA I
	7000
	IOB
	6151
	CLR
	IOB
	6154
	SAE
	10
	HLT
	NOP
	 
	EJECT
	 
/TMAS - TRANSFER CONTENTS OF PROCESSOR
/AC TO TMA SETUP REGISTER (TMAS)
/READ IT BACK AND TEST FOR DISCREPANCY
/THE BIT PATTERN IS DETERMINED BY THE
/LEFT SWITCHES
/PROCEED TO NEXT TEST IF NO ERRORS
	 
TMAS,	CLR
	LSW
	STA
	10
	TMA
	LDA I
	2000
	IOB
	6151
	CLR
	IOB
	6154
	SAE
	10
	HLT
	SNS I 0
	JMP TTAC
	 
	EJECT
	 
/TBTAC - ENTER TEST IF SENSE SWITCH
/0 IS NOT DEPRESSED
/TRANSFER CONTENTS OF PROCESOR AC
/AS DETERMINED BY THE LEFT SWITCHES
/TO THE TAPE BUFFER (TB)
/THEN TRANSFER CONTENTS OF THE PROCESSOR AC
/AS DETERMINED BY THE RIGHT SWITCHES
/TO THE TAPE ACCUMULATOR (TAC)
/NOW ADDITION OF TB TO TAC IS DONE
/THE SUM IS READ BACK AND TESTED FOR
/DISCREPANCY AGAINST A COMPUTED SUM
/STORED IN INDEX REGISTER 12
/IF THERE ARE ANY ERRORS THE PROGRAM
/WILL HALT
/IF SENSE SWITCH 1 IS DEPRESSED
/THE PROGRAM WILL LOOP ON THIS TEST
/OTHERWISE IT WILL CONTINUE WITH THE 
/NEXT TEST
	 
TBTAC,	CLR
	IOB
	6151
	LSW
	STA
	10
	IOB
	6154
	LDA I
	1000
	IOB
	6151
	RSW
	STA
	11
	IOB
	6154
	LAM
	10
	STA
	12
	LDA I
	400
	IOB
	6152
	CLR
	TAC
	SAE
	12
	HLT
	SNS I 1
	JMP TBTAC
	 
	EJECT
	 
/SHRWB - ENTER TEST IF SENSE SWITCH
/1 IS NOT DEPRESSED
/TRANSFER CONTENTS OF PROCESSOR
/AC TO TAPE BUFFER (TB)
/THEN TAPE BUFFER IS TRANSFERRED TO READ WRITE BUFFER (RWB)
/THE READ WRITE BUFFER IS NOW SHIFTED
/ONE BIT POSITION AND ITS CONTENTS READ
/BACK TO THE AC AND COMPARED WITH A
/SIMULATED SHIFT IN THE PROCESSOR
/IF AN ERROR OCCURS THE PROGRAM WILL HALT
/THE THREE BITS SHIFTED OUT FROM UNDER
/THE READ WRITE HEAD ARE MASKED OUT AS
/THEY COULD BE EITHER SET OR RESET
/IF SENS SWITCH 2 IS DEPRESSED YOU WILL
/LOOP THIS TEST OTHERWISE YOU WILL GO
/BACK TO THE BEGINNING OF THE PROGRAM
/AND START THROUGH AGAIN
	 
SHRWB,	CLR
	IOB
	6151
	LSW
	IOB
	6154
	ROL I 1
	BCL I
	0421
	STA
	10
	LDA I
	1000
	IOB
	6152
	LDA I
	2000
	IOB
	6152
	LDA I
	3400
	IOB
	6151
	CLR
	IOB
	6154
	BCL I
	0421
	SAE
	10
	HLT
	SNS I 2
	JMP SHRWB
	JMP TTAC