ASMB,L * NAME : CNVSC-- SUBROUTINE CALLED BY DSPMP * SOURCE: 91730-18004 1805 * RELOC: 91730-16004 1805 * PROGMR: G.W.J. * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * **************************************************************** * * NAM CNVSC,7 91730-16004 REV 1805 771219 ENT CNVSC,IGETX EXT $OPSY EXT .ENTR A EQU 0 B EQU 1 SC NOP ID NOP * * CNVSC NOP JSB .ENTR DEF SC LDA SC,I CLB DIV D8 ADB B60 STB SC CLB SZA DIV D8 ADB B60 BLF,BLF ADB SC STB ID,I JMP CNVSC,I * * * IGETX--SPECIAL IGET ROUTINE FOR BOTH RTE-II/III AND IV. * * IGETX NOP DLD IGETX,I SWP LDA A,I STB IGETX LDB $OPSY CPB DM9 JMP RTE4 LDA A,I JMP IGETX,I RTE4 XLA A,I JMP IGETX,I D8 DEC 8 B60 OCT 60 DM9 DEC -9 END