ASMB,L,C HED PRMPT - MTM PROMPTER * NAME: PRMPT * SOURCE: 92001-18003 * RELOC: 92001-16003 * PGMR: G.A.A. * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975. 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 PRMPT,1,10 92001-16003 REV.B 741216 SUP PRESS ALL EXTRANEOUS LISTING EXT EXEC,EQLU A EQU 0 B EQU 1 * THIS INTERRUPT ROUTINE REPLACES (AUXTY IN RTE) WITH (PRMPT IN RTE II). * IT IS SCHEDULED ON INTERRUPT BY DVR00 IF THAT TERMINAL HAS BEEN * PROPERLY ENABLED (ON,CNTRL,LU,20) * PRMPT : DETERMINES LU IN ASCII & BINARY * OUTPUTS A ZERO LENGTH RECORD * OUTPUTS "LU>_" * REQUESTS A CLASS READ TO THE INTERRUPTING LU * SCHEDULES R$PN$,2,10 WITH :CLASS #,EQT4,LU,ASCII LU * W/O WAIT * TERMINATES,SAVING RESOURCES SPC 2 PRMPT EQU * STB EQT4 SAVE INTERRUPTING DEVICE'S EQT WORD 4 ADDRESS JSB EQLU OBTAIN LU IN BINARY & ASCII DEF *+1 SZA,RSS FOUND ONE ? JMP EXIT NO,TERMINATE. STA LU YES,SAVE LU IOR B400 READY PRINT BACK STA RLU SAVE READ LU + CNTRL IN RLU STB ASCLU SAVE ASCII LU XOR B2500 STA CONWD JSB EXEC DEF *+1+2 DEF D3 DEF CONWD CRLF JSB EXEC RESPOND WITH DEF *+1+4 ZERO LENGTH RECORD DEF DS2 DEF LU DEF BUFF DEF D0 NOP PROMT JSB EXEC RESPOND WITH DEF *+1+4 "LU>_" DEF DS2 DEF LU DEF BUFF DEF D2 NOP SPC 1 INPUT JSB EXEC PERFORM CLASS I/O READ DEF *+1+7 DEF DS17 DEF RLU DEF * DEF DM52 DEF LU DEF EQT4 DEF CLASS NOP SSA ERROR RETURN? JMP EXIT YES-BEAT IT ! SPC 1 SCHED JSB EXEC SCHEDULE R$PN$ W/O WAIT DEF *+1+3 DEF D10 DEF R$PN$ DEF CLASS * * IGNORE NOT SCHEDULED ERRORS SINCE R$PN$ IS CLASS GET SUSPENDED * EXIT JSB EXEC TERMINATE DEF *+1+3 & SAVE DEF D6 RESOURCES DEF D0 DEF D1 JMP PRMPT RESTART HERE ON INTERRUPT SPC 2 EQT4 BSS 1 LU BSS 1 B400 OCT 400 B2500 OCT 2500 RLU BSS 1 DS2 OCT 100002 D2 OCT 2 D3 DEC 3 CONWD NOP BUFF EQU * ASCLU ASC 2,00>_ PROMPT MESSAGE D6 DEC 6 D0 DEC 0 D1 DEC 1 CLASS NOP DM52 DEC -52 D10 DEC 10 R$PN$ ASC 3,R$PN$ DS17 OCT 100021 EOP EQU * SPC 2 END PRMPT ASMB,R,L,C HED R$PN$ MTM RESPONSE * NAME: R$PN$ * SOURCE: 92001-18003 REV.B * RELOC: 92001-16003 REV.B * PGMR: G.A.A. * DATE: AUGUST 1,1974 * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975. 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 92001-16003 REV.B 741002 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$