100  REM
110  REM 12604B D.S.I. RTE-BASIC VERIFICATION TEST
120  REM
130  REM     SOURCE:   09601-18018
140  REM     ERS:    A-09601-18018-1
150  REM     LSTG:   A-09601-18018-2
160  REM
170  REM
200  PRINT  
205  PRINT "12604B D.S.I. RTE-BASIC VERIFICATION TEST"
210  PRINT  
220  PRINT "OPTIONS ARE:" 
230  PRINT "    1)  PRINT STATUS OF ALL 32 BITS"
240  PRINT "    2)  PRINT EIGHT BCD DIGITS" 
250  PRINT "    3)  NEW UNIT NUMBER"
260  PRINT "   ANYTHING ELSE)  ABORT PROGRAM."
300  PRINT "UNIT NUMBER (NEGATIVE FOR NO ENCODE)" 
310  INPUT U
320  PRINT "OPTION";
330  INPUT Q
340  IF Q=3 THEN 300
350  IF Q=2 THEN 700
360  IF Q=1 THEN 400
370  STOP 
400  REM OPTION TO PRINT STATUS OF ALL 32 BITS
410  DSI(U,0,A,B) 
420  FOR I=15 TO 0 STEP -1
430  IBTST(A,I,Z) 
440  PRINT Z; 
450  IF I/4#INT(I/4) THEN 460 
455  PRINT  
460  NEXT I 
470  PRINT  
480  PRINT  
500  FOR I=15 TO 0 STEP -1
510  IBTST(B,I,Z) 
520  PRINT Z; 
530  IF I/4#INT(I/4) THEN 540 
535  PRINT  
540  NEXT I 
600  GOTO 320 
700  REM PRINT AS EIGHT BCD DIGITS
710  DSI(U,8,A,B) 
720  PRINT "M.S. 6 DIGITS=";A 
730  PRINT "L.S. 2 DIGITS=";B 
740  GOTO 320 
800  END  
                                                                                              