; Direct Memory Access (2114/15/16) diagnostic (DSN = 101105)

echo
echo
echo ----------------------------------------------
echo DSN 101105 - Direct Memory Access (2114/15/16)
echo ----------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 101105
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 101105.

deposit M 126
assert T=101105


; Fix the diagnostic.
;
; 24322-16001 Revs. 1431 and 1502 have an apparent bug in Test 17.  Test 17
; checks byte unpacking for output transfers on 2115 and 2116 computers.  The
; documentation says that it is not performed on 2114 computers.  The prolog for
; Test 17 (T.17) does check if packing is supported, and if not, it skips the
; test.  However, the target of the skip (PT.17) is not the entry to Test 20
; (DEF T.20) but is instead the short version of Test 17 (DEF AT.17).  When DMA
; channel 2 is tested in Test 17, it fails with:
;
;   E53. D2 FLG CLR
;   E71. D2 OUT. GOOD=000001, BAD=000000
;
; ...because there is no DMA channel 2 on the 2114.
;
; We work around this problem by setting the jump target to Test 20:
;
;   03612 004036  PT.17 DEF T.20

deposit 003612 004036


; Configure the diagnostic.
;
; The DMA target select code MUST be <= 16 to be used with the 2114 DMA.

echo
echo Configuring the diagnostic.
echo Expect halt 102074 if successful.

set LPT DISABLED
set MC DIAGNOSTIC,SC=15
;;;;;
;if "%CPU%" == "2114" deposit MC LTIME 2
;if "%CPU%" != "2114" deposit MC LTIME 3

examine MC LTIME
;;;;;

deposit S 000015
reset
go 100

assert T=102074


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect halt 102027 for user intervention.

deposit S 000000
reset
go

assert T=102027


; Respond to "Press INTERNAL and EXTERNAL PRESET switches, then press RUN".

echo
echo [INTERNAL and EXTERNAL PRESET pressed, RUN pressed]
echo Expect halt 102077 for successful completion.
echo

reset
go


; End of the diagnostic.
;
; Verify HLT 77B for a successful pass.

assert T=102077


; Restore the hardware configuration.

set LPT ENABLED
set MC DEVICE,SC=44