ASMB,R,L,C * NAME : $MRSPS * SOURCE: 92064-18095 * RELOC: 92064-16036 * PROGMR: E.J.W. BASED ON RTE-III VERSIONS G.A.A. * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 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 R$PN$,1,10 92064-16036 REV.1650 761020 SUP PRESS EXTRANEOUS LISTING EXT MESSS,EXEC,EQLU * A EQU 0 B EQU 1 * * * R$PN$ : DESCRIPTION * PROGRAM DESCRIPTION * FTN,L * PROGRAM R$PN$(1,10) * INTEGER BUFFER(22),PRAM(5),IREG(2),P1,P2,CLASS * EQUIVALENCE (PRAM(1),CLASS), * & (PRAM(2),IREG,REG,IA), * & (PRAM(3),IB), * & (PRAM(4),LU), * & (PRAM(5),ID) * CALL RMPAR(PRAM) * 1 REG = EXEC(21,CLASS,BUFFER,22,LU,ID,LULAS) * LU = MESSS(BUFFER,IB,LU) * * * GO TO 1 * END SPC 2 R$PN$ EQU * ENTRY POINT,SCHED BY PRMPT SPC 2 LDA B,I GET CLASS # AND C160K MASK OFF CLASS NO ONLY STA RQCLS & SAVE IT IOR B20K SET FOR SAVE CLASS STA CLASS & SAVE IT ! SPC 2 WAIT JSB EXEC CLASS I/O GET DEF *+1+7 DEF D21 DEF CLASS DEF BUFF DEF DM52 DEF LU DEF ID DEF RCLAS * LDA RCLAS RAR,SLA WAS THIS A READ RETURN? JMP WAIT NO, WAIT STB IB YES, SAVE XFER LOG CHARS SZB,RSS IF ZERO-LENGTH JMP ENABL SKIP PROCESSING CODE. SPC 2 TEST EQU * LDA BUFF TEST FOR FLUSH COMMAND CPA ASCFL JMP FL YES-FLUSH THIS LU'S BUFFER SPC 2 PROCS EQU * NO-PROCESS REQUEST JSB MESSS GIVE REQUEST DEF *+1+3 DEF BUFF DEF IB TO SYSTEM DEF LU SPC 2 SZA,RSS ANY MESSAGES ? JMP ENABL NO,WAIT FOR NEXT INPUT SPC 2 STA IA SAVE 'A'REG JSB EXEC & DISPLAY DEF *+1+7 SYSTEM DEF D18 MESSAGE DEF LU DEF BUFF DEF IA DEF LU DEF ID DEF RQCLS SPC 2 JMP ENABL NOW WAIT SPC 2 FL EQU * LDA B2300 SET UP CNWRD IOR LU TO FLUSH STA CONWD JSB EXEC PERFORM DEF *+1+4 I/O DEF D3 CONTROL DEF CONWD DEF CONWD DEF RQCLS SPC 2 ENABL EQU * LDB ID RETRANSLATE JSB EQLU INCASE LU WAS REASSIGNED DEF *+1 IOR B2000 STA CONWD JSB EXEC DEF *+1+2 DEF D3 REENABLE THE TERMINAL DEF CONWD JMP WAIT SPC 2 PRAM NOP BEGIN 5 WORD PRAM BUFFER CLASS EQU PRAM IA NOP PLEASE IB NOP DO NOT LU NOP RE-ARRANGE ID NOP THESE CONSTANTS D21 DEC 21 D3 DEC 3 C160K OCT 17777 KEEP BITS 0-12 DM52 DEC -52 BUFF BSS 26 D18 DEC 18 RCLAS NOP ASCFL ASC 1,FL CONWD NOP B2300 OCT 2300 B2000 OCT 2000 B20K OCT 20000 RQCLS NOP EOP EQU * SPC 2 END R$PN$