JSB RESP GET RESPONCE. CPA =ACD CARD INPUT? RSS YES. JMP MT NO. CLB,INB SET "INIO" FOR CARD INPUT. STB INIO CLB STB CODE SET INPUT CODE TO EBCDIC. JMP OUT? GO GET OUTPUT DEVICE. * MT CPA =AMT MAG TAPE? RSS YES JMP ASSGN NO, WRONG INPUT! CLB STB INIO SET "INIO" FOR TAPE INPUT. LDB =D14 ASK IF TAPE IS JSB GETCD IN ASCII OR EBCDIC. STB CODE CONFIGURE ACCORDINGLY. * OUT? LDB =D22 ASK FOR OUTPUT DEVICES(S). JSB CNSL JSB RESP GET RESPONCE. CLB CPA =ALP LINE PRINTER? INB YES. CPA =AMT MAG TAPE? LDB =B2 YES. CPA =ABO BOTH? LDB =B3 YES. SZB,RSS ANY OF ABOVE? JMP OUT? NO, ASK AGAIN. STB OUTIO CONFIGURE OUTPUT INDICATOR. * CLB,INB DEFAULT TO ASCII STB CODE1 CPA =ALP LINE PRINTER? JMP MTS YES, GO GET NEXT FUNCTION. CLB,INB SET OUTPUT CODE STB CODE1 TO ASCII. CPA =ABO BOTH TAPE & PRINT? JMP MTS YES. * LDB =D15 GET MAG TAPE JSB GETCD OUTPUT CODE. STB CODE1 CONFIGURE ACCORDINGLY. JMP MTS GET NEXT FUNCTION. SKP * * *** ROUTINE TO CONFIGURE "SIGNON" & SIGNOFF" LOGIC. *** * ONOFF LDB =D24 ASK IF HPRJE SHOULD JSB CNSL SIGNON TO THE HOST SYSTEM. JSB RESP CLB CPA =AYE "YES"? CCB YES, SET FLAG. STB ON1 * LDB =D25 ASK IF HPRJE SHOULD JSB CNSL SIGNOFF FROM THE JSB RESP HOST SYSTEM. CLB CPA =AYE "YES"? CCB YES, SET FLAG. STB OFF1 JMP MTS * ROUTINE TO INITIALIZE TIMING ROUTINE. ON * ENTRY A-REG SHOULD CONTAIN THE TIME IN * MINUTES TO WAIT BEFORE SIGING OFF FROM * THE HOST SYSTEM. * TIMIN NOP CMA,INA STA TIME JSB .IOC. ABS 10100B+TBG JMP *-2 DEF TON DEC 3 * JMP TIMIN,I * ROUTINE TO SIGN OFF FROM HOST AFTER * SPECIFIED TIME. * TIMER NOP JSB .IOC. GET CURRENT COUNTS ABS 10100B+TBG JMP *-2 DEF TOFF DEC 3 LDA TON SUBTRACT LDB TON+1 TON COUNTS CMA FOR CMB,CLE ELASPED TIME INA SEZ INB CLE ADA TOFF SEZ INB ADB TOFF+1 DIV =D6000 CONVERT TO MINUTES ADA TIME SSA TIME UP JMP TIMER,I NO,RETURN JSB .IOC. YES,CLEAR CONSOLE OCT 1 LDB =D30 JSB CNSL WRITE MESSAGE JMP NOWAT SIGN OFF SKP * * *** ROUTINE TO HANDLE CONSOLE INPUT AND OUTPUT. *** * CNSL NOP ADB DEFTB ADD LOOKUP ADDRESS. LDA B,I GET POINTER TO MESSAGE. STA SADD CONFIGURE IOC CALL. INB CMA,INA DETERMINE LENGTH ADA B,I OF MESSAGE. STA SADD+1 CONFIGURE IOC CALL. * JSB .IOC. PRINT MESSAGE OCT 20002 ON CONSOLE. JMP *-2 SADD NOP NOP * JMP CNSL,I RETURN. SPC 4 RESP NOP JSB .IOC. ALLOW CONSOLE OCT 10401 INPUT. JMP *-2 DEFRP DEF RSP DEC 40 * JSB CSTAT WAIT FOR CR,LF. LDA RSP GET RESPONCE IN A-REG. JMP RESP,I RETURN. SPC 4 CSTAT NOP JSB .IOC. CONSOLE STATUS. OCT 40001 SSA JMP *-3 JMP CSTAT,I RETURN. SPC 4 DEFTB DEF *+1 TABLE OF MESSAGE POINTER. DEF MSG0 DEF MSG1 DEF MSG2 DEF MSG3 DEF MSG4 DEF MSG5 DEF MSG6 DEF MSG7 DEF MSG8 DEF MSG9 DEF MSG10 DEF MSG11 DEF MSG12 DEF MSG13 DEF MSG14 DEF MSG15 DEF MSG16 DEF MSG17 DEF MSG18 DEF MSG19 DEF MSG20 DEF MSG21 DEF MSG22 DEF MSG23 DEF MSG24 DEF MSG25 DEF MSG26 DEF MSG27 DEF MSG28 DEF MSG29 DEF MSG30 DEF EOTBL END OF TABLE POINTER. SPC 4 MSG0 OCT 5012 ASC 15,HP REMOTE JOB ENTRY PROCESSOR. MSG1 OCT 5012 ASC 7,FUNCTION LIST: OCT 6412 ASC 12,1 = PRINT FUNCTION LIST. OCT 6412 ASC 11,2 = TRANSMIT JOB FILE. OCT 6412 ASC 12,3 = RECEIVE JOB OUTPUT. OCT 6412 ASC 10,4 = STATUS REQUEST. OCT 6412 ASC 11,5 = ADVANCE MAG TAPE. OCT 6412 ASC 11,6 = CARD TO MAG TAPE. OCT 6412 ASC 8,7 = PRINT FILE. OCT 6412 ASC 13,8 = REASSIGN I/O DEVICES. OCT 6412 ASC 10,9 = SIGNON-OFF LOGIC. OCT 6412 ASC 10,10 = RETURN TO DOS OCT 6412 MSG2 OCT 6412,12 ASC 12,ENTER DESIRED FUNCTION. MSG3 ASC 6,DIAL REMOTE. MSG4 ASC 14,JOB(S) ARE BEING PROCESSED. MSG5 ASC 16,REMOTES OUTPUT BUFFER IS EMPTY. MSG6 ASC 11,ABORT - LINE PROBLEMS! MSG7 ASC 12,ABORT - MAG TAPE ERROR. MSG8 ASC 15,JOB(S) SHOULD BE PROCESSING. MSG9 ASC 9,PRINT IS COMPLETE. MSG10 OCT 5012 ASC 4,COMMAND? MSG11 ASC 19,CARD READER ERROR. CORRECT - PRESS RUN. MSG12 ASC 13,HOW MANY "FILES,RECORDS"? MSG13 ASC 8,RECORD COUNT = BSS 3 MSG14 ASC 8,DATA INPUT CODE? MSG15 ASC 9,DATA OUTPUT CODE? MSG16 ASC 1,?? MSG17 ASC 10,ABORT-FORMAT ERROR. MSG18 ASC 13,CARD TO TAPE IS COMPLETE. OCT 6412 BSS 3 ASC 6, CARDS READ. MSG19 OCT -1,137 MSG20 ASC 14,WAITING FOR HOST CPU OUTPUT. OCT 6412 MSG21 ASC 14,INPUT DEVICE? ("CD" OR "MT") MSG22 ASC 18,OUTPUT DEVICE? ("LP","MT", OR "BO") MSG23 ASC 9,SIGNOFF COMPLETE. MSG24 ASC 11,SIGNON AFTER CONNECT? MSG25 ASC 13,SIGNOFF BEFORE DISCONNECT? MSG26 ASC 14,INSERT SIGN ON CARD REPLY OK MSG27 ASC 14,HOPPER IS EMPTY INSERT CARDS MSG28 OCT 6412 ASC 12,10 MINUTES HAVE ELAPSED ASC 9,WITH NO RESPONSE OCT 6412 ASC 6,SIGNING OFF OCT 6412 MSG29 OCT 3407,3407,3407,6412 ASC 10,END-OF-TAPE REACHED OCT 3407,3407,3407,6412 ASC 14,TO CONTINUE, MOUNT NEW TAPE, ASC 5,TYPE 'GO'. OCT 3407,3407,3407,6412 ASC 12,TO ABORT THIS FUNCTION, ASC 6,TYPE 'OFF'. OCT 3407,3407,3407,6412 MSG30 OCT 3407,3407,3407,6412 ASC 14,YOU MUST MAKE SOME RESPONSE ASC 12,(A BLANK IS SUFFICIENT) OCT 6412 ASC 13,WITHIN 10 MINUTES TO AVOID ASC 9,BEING SIGNED OFF. OCT 3407,3407,3407,6412 EOTBL NOP SKP * * *** DATA SECTION. *** * EM OCT 31 ESC OCT 47 ETX OCT 3 IUS OCT 37 RSS RSS STCLK OCT 2,1 STX OCT 2 SYN OCT 62 OCT 31002,60534 RSP BSS 41 SIGN OCT 31002 SYNC,STX ASC 12,/*SIGNON REMOTE1 ASC 14, ASC 14, OCT 1400 ETX SOFF OCT 31002 SYNC,STX ASC 12,/*SIGNOFF ASC 14, ASC 14, OCT 1400 ETX * .EJCT ASC 1,1 ASAVE BSS 1 BCCCH BSS 1 BSAVE BSS 1 CCNTR BSS 1 CCSAV NOP CODE OCT 0 INPUT CODE (DEFAULT IS EBCDIC) CODE1 OCT 1 OUTPUT CODE (DEFAULT IS ASCII) CNTR1 BSS 1 CNTR2 BSS 1 CNTR3 BSS 1 CNTR4 NOP CHARS BSS 1 COUNT BSS 1 E.A. BSS 1 EXTRA BSS 1 FEND BSS 1 FF BSS 1 FILES BSS 1 FFLOP BSS 1 FLIP BSS 1 FLOP BSS 1 HOLD BSS 1 INIO OCT 1 INPUT INDICATOR (DEFAULT IS CARD) LASTC BSS 1 LNGTH NOP MAX BSS 1 ON OCT -1 ZERO FOR NO SIGNON ON1 OCT -1 ZERO FOR NO SIGNON OFF OCT -1 ZERO FOR NO SIGNOFF. OFF1 OCT -1 ZERO FOR NO SIGNOFF. OUTIO OCT 1 OUTPUT INDICATOR (DEFAULT IS PRINTER) REC BSS 1 SCONT DEC -40 SA1 BSS 1 SAVE BSS 1 SSTOR BSS 1 S.A. BSS 1 TEMP BSS 1 WORK BSS 1 COM BUF1(215),BUF2(215),IMAGE(80) ASTOR BSS 1 BSTOR BSS 1 TIME BSS 1 TOFF BSS 3 TON BSS 3 UNS SKP * * *** LITERALS. *** * END HPRJE 24380-18018 1402