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