ASMB,L
      NAM SISVF 91711-16011  REV 1926  790421 
      ENT SISVF 
      EXT .ENTR 
**********************************************************************
*                                                                    *
*     SCIENTIFIC INSTRUCTION SET VERIFICATION SUBROUTINE             *
*                                                                    *
*     CALL SISVF(ICODE)                                              *
*                                                                    *
*     RETURNS:   ICODE = 0     SIS NOT INSTALLED                     *
*                ICODE < 0     SIS VERIFICATION FAILURE              *
*                ICODE > 0     ICODE = FIRMWARE REV. NUMBER          *
*                                                                    *
**********************************************************************
ICODE BSS 1 
* 
SISVF NOP           ENTRY POINT 
      JSB .ENTR     GET ADDRESSES 
      DEF ICODE 
      CLA           SET A = 0 
      CAX           SET X = 0 
* 
      CLB           SET B = 0 
      OCT 105321    SQRT
      JMP DONE      JUMP IF NOT INSTALLED 
      ISX           SIS INSTALLED, SET REV = 1
* 
      LIB 1         SET B = S-REGISTER
      STB TEMP      SAVE S-REGISTER IN B
      CLA           SET A = 0 
      OTA 1         SET S = 0 
      OCT 105337    SIS SELF-TEST 
      NOP           SELF-TEST ERROR RETURN
      LIA 1         SET A = TEST RESULT 
      LDB TEMP      SET B = TEMP
      OTB 1         RESTORE S-REGISTER
* 
      CXB           SET B = X 
      CPB =D1       DID TEST EXECUTE? 
      JMP DONE      NO, ALL DONE
      CPA HLT77     YES, CHECK RESULT 
      JMP DONE      SIS OK, ALL DONE
      LDX =D-1      SIS FAILURE, ERROR CODE 
* 
DONE  STX ICODE,I   RETURN ICODE
      JMP SISVF,I   RETURN
* 
TEMP  BSS 1 
HLT77 HLT 77B 
* 
      END 
                                                                                                                                                