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