GET <DIAGNOSTICS>D0IB
GOTO 3770
Y0
0

GET <DIAGNOSTICS>D0JB
GOTO 3770
Y0
0

GET <DIAGNOSTICS>D0KC
GOTO 3770
Y0
0

GET <DIAGNOSTICS>D0LC
GOTO 3770
Y0
0

GET <DIAGNOSTICS>D0ME
GOTO 3770
Y0
0

GET <DIAGNOSTICS>D0NF
;INHIBIT FLOATING POINT TEST, TEST FIXED AND BYTE
GOTO 3770
Y0
40

GET <DIAGNOSTICS>D0RC
;PATCH UNEXPLAINED TTCALL 2, HANGING PROBLEM
5143\300000,,0
;SET ITERATION COUNT
3775\100
GOTO 3770
Y0
0