ASMB HED . *** T S E SCREEN DATA *** NAM TSELB,7 92080-1X522 REV.2026 800512 SPC 3 ********************************************************************** * * * NAME: TSELB TSE SCREEN DATA & ERROR MESSAGES * * SOURCE: &TSELB 92080-18522 * * BINARY: %TSELB 92080-1X522 PART OF %TSE 92080-16520 * * * * PGMR: FRANCOIS GAULLIER * * * ********************************************************************** SPC 2 * ************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * ************************************************************** SPC 3 * ********************************************************* * * THIS SUBROUTINE IS USED BY THE T S E TMS-SUBROUTINE * * * TO DISPLAY A SCREEN MASK ON THE CRT. * * * * * * FORTRAN CALL : CALL TSESC(MBUFR) * * * * * ********************************************************* SPC 2 ENT TSESC,TSEOR,TSDFE,MSTSN,TSESF,ENTER,DRTFK,DRTFX EXT .ENTR,MOVCX,TMBWR,&MVW,&REMP,TCVTB,TMBCT EXT PNAME,$LIBR,$LIBX SUP A EQU 0 B EQU 1 SKP D0 DEC 00 GLOBAL SOURCE MBUFR OFFSET D6 DEC 6 LENGTH OF CR# IN BYTES D5 DEC 5 NAME BSS 3 SPC 2 .MBFR BSS 1 ADDRESS OF THE MBUFR TO MOVE IN ISCRN TSESC NOP ENTRY POINT JSB .ENTR GET CALLING PARAMETERS DEF .MBFR ADRESS OF FIRST PARAMETER * * MOVE MBUFR IN THE VARIABLE ZONE AREA * JSB MOVCX DEF *+6 DEF .MBFR,I ADDRESS OF FIRST MBUFR WORD DEF SOFST ADDRESS OF SOURCE OFSET TABLE DEF DOFST ADDRESS OF DESTINATION TABLE DEF D0 ADDRESS OF GLOBAL SOURCE OFSET DEF FOMAT ADDRESS OF NUMERIC FORMAT TABLE * * SET THE TMP/TMPD * JSB PNAME DEF *+2 DEF NAME LDA NAME+1 LDB =APD CPA =AP1 LDB =AP STB U0000+1 * * PRINT THE SCREEN * * CHANGE THE CR# TO ASCII IF REQ'D * JSB TCVTB DEF *+3 DEF T0004 DEF D6 JSB TMBWR USE TMS BUFFERED CALL TO NOT DEF *+3 BE SUSPENDED IN THIS SUBROUTINE DEF ZAT00 DEF LNG00 * * RETURN TO CALLING PROGRAM * JMP TSESC,I * * SCREEN TO DISPLAY * * ZAT00 BYT 33,143,33,130 LOCK KEYBOARD, FORMAT MODE OFF BYT 33,155 MEMORY UNLOCK BYT 33,110,33,112 HOME UP, CLEAR DISPLAY * BYT 33,46 ASC 10,s0a0b0c1d0e0f1g1h0j0 SET 2645A INTERNAL JUMPERS BYT 113,00 * BYT 40,33,46,153,61,102 SET BLOCK MODE ON * * SOFT KEY ASSIGNMENTS * * KEY # 1 : NEXT FIELD * KEY # 2 : PREVIOUS FIELD * KEY # 4 : ABORT T S E PROGRAM * KEY # 5 : NEXT SCREEN * * BYT 33,46,146,61,141,61,153,61,114,11 NEXT FIELD BYT 33,46,146,61,141,62,153,62,114,33,151,40 PREVIOUS FIELD BYT 33,46,146,61,141,63,153,61,114,40 NOT USED BYT 33,46,146,62,141,64,153,61,114,141 ABORT BYT 33,46,146,61,141,65,153,64,114,33,110,33,144,40 NEXT SCREEN BYT 33,46,146,61,141,66,153,61,114,40 NOT USED BYT 33,46,146,61,141,67,153,61,114,40 NOT USED BYT 33,46,146,61,141,70,153,61,114,40 NOT USED * * LINE # : 1 * BYT 33,46,141,53,62,61,103,0 POSITION CURSOR - 22 ASC 16,TRANSACTION SET EDITOR MENU FOR BYT 33,46,144,104 U0000 ASC 2,TMPD BYT 15,12 * * LINE # : 2 * BYT 15,12 * * LINE # : 3 * ASC 17, - Select your mode of operation BYT 72,0 BYT 15,12 * * LINE # : 4 * ASC 3, BYT 33,46,144,104 BYT 114,0 BYT 33,46,144,100 ASC 20,oad a TS LIBRARY into the Working Set ASC 11, ) BYT 15,12 * * LINE # : 5 * ASC 3, BYT 33,46,144,104 BYT 101,0 BYT 33,46,144,100 ASC 22,dd a Transaction Specification to the Workin ASC 8,g Set BYT 51,0 BYT 15,12 * * LINE # : 6 * ASC 3, BYT 33,46,144,104 BYT 104,0 BYT 33,46,144,100 ASC 22,elete a Transaction Specification from the W ASC 13,orking Set ) ...... BYT 33,46,144,102,33,133 T0000 BYT 40,0 BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 7 * ASC 3, BYT 33,46,144,104 BYT 120,0 BYT 33,46,144,100 ASC 20,rint a directory list of the Working Set BYT 33,46,141,53,62,60,103,0 POSITION CURSOR - 68 BYT 51,0 BYT 15,12 * * LINE # : 8 * ASC 3, BYT 33,46,144,104 BYT 123,0 BYT 33,46,144,100 ASC 22,tatus of a Transaction Specification in the ASC 6,Working Set BYT 33,46,141,53,64,103,0 POSITION CURSOR - 68 BYT 51,0 BYT 15,12 * * LINE # : 9 * ASC 3, BYT 33,46,144,104 BYT 124,0 BYT 33,46,144,100 ASC 22,erminate the Transaction Set Editor program BYT 33,46,141,53,61,66,103,0 POSITION CURSOR - 68 BYT 51,0 BYT 15,12 * * LINE # : 10 * BYT 15,12 * * LINE # : 11 * BYT 33,51,102,16 ASC 1,R, BYT 54,17 ASC 19, For Add, Delete or Status operations BYT 16,54 ASC 19,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,T * * LINE # : 12 * BYT 33,51,102,16 BYT 56,17 ASC 22, - Enter the Transaction specification NAME ASC 13,or NUMBER ............... BYT 40,0 BYT 33,46,144,102,33,133 T0001 ASC 3, BYT 33,135,33,46,144,100 BYT 40,16 BYT 56,0 * * LINE # : 13 * BYT 33,51,102,16 BYT 56,17 ASC 22, and the transaction specification SECURI ASC 13,TY CODE ................. BYT 40,0 BYT 33,46,144,112,33,133 T0002 ASC 3, BYT 33,135,33,46,144,100 BYT 40,16 BYT 56,0 * * LINE # : 14 * BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G * * LINE # : 15 * BYT 15,12 * * LINE # : 16 * BYT 33,51,102,16 ASC 1,R, BYT 54,17 ASC 14, For Load or Add operations BYT 16,54 ASC 22,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 2,,,,T * * LINE # : 17 * BYT 33,51,102,16 BYT 56,17 ASC 22, - Enter the LIBRARY NAME: disc file or d ASC 10,evice (MT,LCTU,RCTU) BYT 33,46,141,53,61,66,103,0 POSITION CURSOR - 80 BYT 16,56 * * LINE # : 18 * BYT 33,51,102,16 BYT 56,17 ASC 22, on which the Transaction Specification is ASC 13, to be found ............. BYT 40,0 BYT 33,46,144,102,33,133 T0003 ASC 3, BYT 33,135,33,46,144,100 BYT 40,16 BYT 56,0 * * LINE # : 19 * BYT 33,51,102,16 BYT 56,17 ASC 12, - If the library is on: BYT 00,16 BYT 33,46,141,53,65,64,103,0 POSITION CURSOR - 80 BYT 56,0 * * LINE # : 20 * BYT 33,51,102,16 BYT 56,17 ASC 19, A minicartridge or a magnetic tape, BYT 40,0 BYT 33,46,144,104 ASC 6,load device. BYT 33,46,144,100 BYT 33,46,141,53,62,67,103,0 POSITION CURSOR - 80 BYT 16,56 * * LINE # : 21 * BYT 33,51,102,16 BYT 56,17 ASC 22, A disc, give the CARTRIDGE REFERENCE NUMB ASC 13,ER (Optional) ............ BYT 40,0 BYT 33,46,144,102,33,133 T0004 ASC 3, BYT 33,135,33,46,144,100 BYT 40,16 BYT 56,0 * * LINE # : 22 * BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G * * LINE # : 23 * BYT 15,12 * * LINE # : 24 * BYT 33,142 UNLOCK THE KEYBOARD BYT 40,33,127,137 FORMAT MODE ON, SUP , SPC 1 LNG00 ABS *-ZAT00 SPC 2 * * SOURCE CHARACTER OFFSET TABLE * SOFST DEC 1 DEC 2 DEC 8 DEC 10 DEC 16 DEC 18 DEC -1 * * DESTINATION ISCRN ADDRESSES TABLE * DOFST DEF T0000 DEF T0001 DEF T0002,I DEF T0003 DEF T0004,I * * FORMAT OF NUMERIC DATA * FOMAT DEC 6 DEC 6 HED . *** T S E SCREEN FOR SFK *** TSESF NOP JSB .ENTR DEF TSESF * * PRINT THE SCREEN * JSB TMBWR DEF *+3 DEF ZAT08 DEF LNG08 * JMP TSESF,I * * SCREEN TO DISPLAY * * ZAT08 BYT 33,143,33,130 LOCK KEYBOARD, FORMAT MODE OFF BYT 33,155 MEMORY UNLOCK * BYT 33,46 ASC 10,s0a0b0c1d0e0f1g1h0j0 SET 2645A INTERNAL JUMPERS BYT 113,00 * BYT 40,33,46,153,61,102 SET BLOCK MODE ON * * SOFT KEY ASSIGNMENTS * * KEY # 1 : NEXT FIELD * KEY # 2 : PREVIOUS FIELD * KEY # 4 : ABORT T S E PROGRAM * KEY # 5 : NEXT SCREEN * * BYT 33,46,146,61,141,61,153,61,114,11 NEXT FIELD BYT 33,46,146,61,141,62,153,62,114,33,151,40 PREVIOUS FIELD BYT 33,46,146,61,141,63,153,61,114,40 NOT USED BYT 33,46,146,62,141,64,153,61,114,141 ABORT BYT 33,46,146,61,141,65,153,64,114,33,110,33,144,40 NEXT SCREEN BYT 33,46,146,61,141,66,153,61,114,40 NOT USED BYT 33,46,146,61,141,67,153,61,114,40 NOT USED BYT 33,46,146,61,141,70,153,61,114,40 NOT USED * BYT 33,110,33,112 HOME UP, CLEAR DISPLAY * * LINE # : 2 * BYT 15,12 * * LINE # : 3 * BYT 33,46,144,106 ASC 7, DATACAP/1000 BYT 33,46,144,100 BYT 33,46,141,53,61,66,103,0 POSITION CURSOR - 31 ASC 10,SOFT KEY ASSIGNMENTS BYT 33,46,141,53,61,60,103,0 POSITION CURSOR - 61 BYT 33,46,144,106 ASC 9, HP 92080A REV.202 BYT 66,0 BYT 15,12 * * LINE # : 4 * BYT 15,12 * * LINE # : 5 * BYT 33,46,141,53,62,65,103,0 POSITION CURSOR - 26 ASC 15,TRANSACTION SET EDITOR READY ! BYT 15,12 * * LINE # : 6 * BYT 33,51,102,16 BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, ASC 4,,,,,,,,T BYT 15,12 * * LINE # : 7 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,17 ASC 5,Next Field BYT 40,16 ASC 1,.. BYT 40,17 ASC 5, Previous BYT 16,56 ASC 1,. BYT 17,40 BYT 33,46,141,53,60,70,103,0 POSITION CURSOR - 52 BYT 16,40 ASC 1,.. BYT 17,40 ASC 5, Abort BYT 16,56 BYT 15,12 * * LINE # : 8 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,0 BYT 33,46,144,112 ASC 2, BYT 17,146 ASC 3,1 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112 ASC 2, BYT 17,146 ASC 3,2 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112,17,40 ASC 5, f3 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112,17,40 ASC 5, f4 BYT 33,46,144,100,16,56 BYT 15,12 * * LINE # : 9 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,17 ASC 5, (TAB) BYT 40,16 ASC 1,.. BYT 17,40 ASC 5, Field BYT 16,56 ASC 2,. BYT 17,40 ASC 3, BYT 40,16 ASC 1,.. BYT 17,40 ASC 5, Program BYT 16,56 BYT 15,12 * * LINE # : 10 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, ASC 4,,,,,,,,G BYT 15,12 * * LINE # : 11 * BYT 33,51,102,16 BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, ASC 4,,,,,,,,T BYT 15,12 * * LINE # : 12 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,17 ASC 5,Next Scree BYT 156,16 ASC 1,.. BYT 40,17 BYT 33,46,141,53,60,71,103,0 POSITION CURSOR - 39 BYT 16,40 ASC 1,.. BYT 40,17 BYT 33,46,141,53,60,71,103,0 POSITION CURSOR - 52 BYT 16,40 ASC 2,.. BYT 17,40 ASC 3, BYT 40,16 ASC 1, . BYT 15,12 * * LINE # : 13 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,0 BYT 33,46,144,112 ASC 2, BYT 17,146 ASC 3,5 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112 ASC 2, BYT 17,146 ASC 3,6 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112,17,40 ASC 5, f7 BYT 33,46,144,100,16,56 BYT 56,0 BYT 33,46,144,112,17,40 ASC 5, f8 BYT 33,46,144,100,16,56 BYT 15,12 * * LINE # : 14 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 BYT 56,17 ASC 5, (ENTER) BYT 40,16 ASC 1,.. BYT 40,17 BYT 33,46,141,53,60,71,103,0 POSITION CURSOR - 39 BYT 16,40 ASC 1,.. BYT 40,17 BYT 33,46,141,53,61,60,103,0 POSITION CURSOR - 53 BYT 16,56 BYT 56,17 BYT 33,46,141,53,61,61,103,0 POSITION CURSOR - 66 BYT 16,56 BYT 15,12 * * LINE # : 15 * BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, ASC 4,,,,,,,,G BYT 15,12 * * LINE # : 16 * BYT 15,12 * * LINE # : 17 * ASC 22, - This program assigns the terminal SFK ASC 9,'s as shown above. BYT 15,12 * * LINE # : 18 * BYT 15,12 * * LINE # : 19 * ASC 22, - Once all the correct answers have bee ASC 15,n provided for a given screen, BYT 15,12 * * LINE # : 20 * ASC 22, press the NEXT SCREEN key to continue BYT 56,0 BYT 15,12 * * LINE # : 21 * BYT 15,12 * * LINE # : 22 * BYT 15,12 * * LINE # : 23 * ASC 1, BYT 33,133 T9900 ASC 1, BYT 33,135 BYT 33,46,141,53,64,64,103,0 POSITION CURSOR - 49 BYT 33,46,144,112 ASC 3, Press BYT 40,0 BYT 33,46,144,113 ASC 5,NEXT SCREE BYT 116,0 BYT 33,46,144,112 ASC 2, key BYT 15,12 * * LINE # : 24 * BYT 33,142 UNLCK KEKBOARD BYT 40,33,127,137 FORMAT MODE ON, SUP SPC 1 LNG08 ABS *-ZAT08 HED . *** T S E DUPLICATE FILE ERROR SCREEN DATA *** SPC 2 ********************************************************************** * * * TSDFE IS USED TO PRINT OUT THE MESSAGE IN CASE OF DISC STORAGE * * FILE ALREADY CREATED ON THE CARTRIDGE. THE NAME, THE NUMBER OF * * THE TS, THE FILE NAME AND THE CR# ARE MOVED INTO THE MESSAGE AND * * THE MESSAGE IS PRINTED. * * * ********************************************************************** SPC 2 .CUTS BSS 1 ADDRESS OF THE MBUFR TO MOVE IN ISCRN TSDFE NOP ENTRY POINT JSB .ENTR GET CALLING PARAMETERS DEF .CUTS ADRESS OF FIRST PARAMETER * * MOVE MBUFR INTO THE SCREEN. * JSB MOVCX DEF *+6 DEF .CUTS,I ADDRESS OF FIRST MBUFR WORD DEF SOF03 ADDRESS OF SOURCE OFSET TABLE DEF DOF03 ADDRESS OF DESTINATION TABLE DEF D0 ADDRESS OF GLOBAL SOURCE OFSET DEF FMT03 ADDRESS OF NUMERIC FORMAT TABLE * * PRINT THE SCREEN * * AFTER CONVERTING THE CR# TO 2 ASCII CHARS IF REQ'D * JSB TCVTB DEF *+3 DEF AF304 DEF D5 * * JSB TMBWR USE TMS BUFFERED CALL TO NOT DEF *+3 BE SUSPENDED IN THIS SUBROUTINE DEF ZAT03 DEF LNG03 * * RETURN TO CALLING PROGRAM * JMP TSDFE,I * * SCREEN TO DISPLAY * * ZAT03 BYT 33,143,33,130 LOCK KEYBOARD, FORMAT MODE OFF BYT 33,155 MEMORY UNLOCK * BYT 33,46 ASC 10,s0a0b0c1d0e0f1g1h0j0 SET 2645A INTERNAL JUMPERS BYT 113,00 * BYT 40,33,46,153,61,102 SET BLOCK MODE ON * * SOFT KEY ASSIGNMENTS * * KEY # 1 : NEXT FIELD * KEY # 2 : PREVIOUS FIELD * KEY # 4 : ABORT T S E PROGRAM * KEY # 5 : NEXT SCREEN * * BYT 33,46,146,61,141,61,153,61,114,11 NEXT FIELD BYT 33,46,146,61,141,62,153,62,114,33,151,40 PREVIOUS FIELD BYT 33,46,146,61,141,63,153,61,114,40 NOT USED BYT 33,46,146,62,141,64,153,61,114,141 ABORT BYT 33,46,146,61,141,65,153,64,114,33,110,33,144,40 NEXT SCREEN BYT 33,46,146,61,141,66,153,61,114,40 NOT USED BYT 33,46,146,61,141,67,153,61,114,40 NOT USED BYT 33,46,146,61,141,70,153,61,114,40 NOT USED * * LINE # : 1 * BYT 15,12 * * LINE # : 2 * BYT 15,12 * * LINE # : 3 * BYT 15,12 * * LINE # : 4 * ZAT04 ASC 04, T.S.: AF301 ASC 03,TSNAME ASC 02, (# AF302 ASC 02,9999 ASC 15,) uses the Data Storage file: BYT 33,46,144,112 AF303 ASC 03,DATAST BYT 33,46,144,100 ASC 04, on CR # BYT 40,0 BYT 33,46,144,112 AF304 ASC 02,3276 BYT 67,0 BYT 33,46,144,100 BYT 56,0 BYT 15,12 * * LINE # : 5 * BYT 33,46,141,53,62,64,103,0 POSITION CURSOR - 25 ASC 18,This file already exists and must be BYT 40,0 BYT 33,46,144,104 ASC 3,rename BYT 144,0 BYT 33,46,144,100 ASC 3, befor BYT 145,0 BYT 15,12 * * LINE # : 6 * BYT 33,46,141,53,62,64,103,0 POSITION CURSOR - 25 ASC 22,this transaction specification can be loaded BYT 56,0 BYT 15,12 * * LINE # : 7 * BYT 33,46,141,53,62,64,103,0 POSITION CURSOR - 25 ASC 22,If no name is specified, the T.S. will not b ASC 4,e loaded BYT 41,0 BYT 15,12 * * LINE # : 8 * BYT 15,12 * * LINE # : 9 * ASC 7, Specify the BYT 33,46,144,104 ASC 1,ne BYT 167,0 BYT 33,46,144,100 ASC 22, name for the old Data Storage file ....... ASC 4,....... BYT 40,0 BYT 33,46,144,102,33,133 ASC 03, ANSWER FIELD (NAME OF THE NEW FILE) BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 10 * BYT 15,12 * * LINE # : 11 * BYT 15,12 * * LINE # : 12 * BYT 15,12 * * LINE # : 13 BYT 33,142 UNLOCK THE KEYBOARD BYT 40,33,127,137 FORMAT MODE ON, SUP , SPC 1 LNG03 ABS *-ZAT03 SPC 2 * * SOURCE CHARACTER OFFSET TABLE * SOF03 DEC 1 DEC 7 DEC 9 DEC 11 DEC 17 DEC 19 DEC -1 * * DESTINATION ISCRN ADDRESSES TABLE * DOF03 DEF AF301 DEF AF302,I DEF .BF04 DUMMY BUFFER TO STORE SC DEF AF303 DEF AF304,I * * FORMAT OF NUMERIC DATA * FMT03 DEC 4 DEC 5 SKP ********************************************************************** * * * MSTSN IS USED TO RETURN TO TSE THE NAME & NUMBER OF A TS * * FORMATTED INTO A BUFFER OF 12 WORDS. * * * ********************************************************************** SPC 2 .BF04 NOP .LN04 NOP LEN RETURNED BY THIS ROUTINE .DS04 NOP DESTINATION BUFFER ADDR MSTSN NOP JSB .ENTR DEF .BF04 * JSB MOVCX DEF *+6 DEF .BF04,I FROM BUFFER ADDR DEF SOF04 DEF DOF03 DEF D0 DEF FMT03 * LDA D12 STA .LN04,I RETURN LENGTH MOVED LDA .ZAT4 GET FROM ADDR LDB .DS04 GET TO ADDR MVW .LN04,I JMP MSTSN,I SPC 1 .ZAT4 DEF ZAT04 D12 DEC 12 SPC 1 SOF04 DEC 1 DEC 7 DEC 9 DEC -1 HED . *** T S E ERROR MESSAGE PRINTOUT *** * ********************************************************* * * * * * THIS SUBROUTINE IS USED BY THE T S E TMS-SUBROUTINE * * * TO DISPLAY AN ERROR MESSAGE AT THE BOTTOM OF THE CRT * * * THIS PROGRAM LEAVE THE TERMINAL IN BLOCK MODE, FORMAT * * * ON. * * * * * * FORTRAN CALL : CALL TSEOR(P1,P2,P3) * * * P1 = ERROR MESSAGE NUMBER * * * P2 = WRONG FIELD ADRESS * * * IF = 0, THEN THE MESSAGE IS * * * PRINTED WHERE THE CURSOR IS AND * * * THE FORMAT MODE IS NOT RESORED. * * * P3 = LU # IN ASCII FORMAT * * * (USED ONLY FOR GIVEN MESSAGE) * * * * * ********************************************************* SPC 3 TAB BYT 33,111 DM1 DEC -1 NEGATIVE CONSTANT DM5 DEC -5 .MESA DEF MESSA ADDRESS OF THE AREA TO FILL IN LENBU NOP LENGTH OF ERROR MESSAGE TO BE DISPLAYED .FINL DEF FINLX ADDRESS OF LAST WORDS TO DUMP SPC 2 .NUBS BSS 1 MESSAGE NUMBER ADDDRESS .FILD BSS 1 WRONG FIELD NUMBER ADDDRESS .ASC BSS 1 TSEOR NOP ENTRY POINT JSB .ENTR GET CALLING PARAMETERS DEF .NUBS ADRESS OF FIRST PARAMETER * * SET LU # INTO ERROR MESSAGE * LDA .ASC,I STA QES17 STA QES18 STA QES19 STA QES20 * * MOVE ERROR MESSAGE IN OUTPUT BUFFER * LDA .NUBS,I GET ERROR MESSAGE NUMBER ADA AMES0 COMPUTE APPROPRIATE LDB A,I MESSAGE ADDRESS STB .ADRS STORE IT INA COMPUTE NEXT MESSAGE LDA A,I STARTING ADDRESS CMB,INB MINUS STARTING ADDRESS ADA B COMPUTE MESSAGE LENGTH STA MESLG SAVE IT LDA .ADRS BUFFER SOURCE ADDRESS LDB .MESA BUFFER DESTINATION ADDRESS JSB &MVW MOVE WORDS IN THE MESSA BUFFER MESLG BSS 1 MESSAGE LENGTH * LDA .FILD,I RECALL THE FIELD NUMBER SZA,RSS IS IT SPECAIL CASE ? JMP TSER3 YES, SKIP CODE TO SET UP FORMAT MODE * * INCLUDE FORMAT MODE ON, HOME UP CURSOR CTRL. CHAR. * LDA MESSB GET CONTROL CHARACTER STA B,I COPY IT IN MESSAGE BUFFER INB NEXT MESSA BUFFER ADDRESS STB MESLG SAVE MESSA BUFFER ADDRESS * * INCLUDE NUMBER OF NECESSARY TABS * LDA .FILD,I GET ERROR FIELD NUMBER ADA DM1 TRANSLATE FIELD # (FROM 0) CMA,INA # TABS NEGATIVE STA TBNUB SAVE # OF TABS SZA,RSS IF 0 : NO TABS CHARACTERS JMP SUITE JUMP TO END OF PREPARATION LDA B GET NEXT MESSA BUFFER ADDRESS LDB TAB GET TAB CHARACTER JSB &REMP INCLUDE TABS IN THE MESSA BUFFER TBNUB NOP NEGATIVE NUMBER OF TABS TO INCLUDE * * INCLUDE LAST CONTROL CHARACTERS * SUITE LDB TBNUB GET NEGATIVE NUMBER OF TABS CMB,INB MAKE IT POSITIVE ADB MESLG COMPUTE NEXT MESSA BUFFER ADDRESS LDA .FINL GET CONTROL CHARACTER ADDRESS JSB &MVW MOVE CONTROL CHARACTERS DEC 2 2 CONTROL WORDS * * CALCULATES FINAL MESSA BUFFER LENGTH * TSER3 LDA .BUFR GET STARTING BUFFER ADDRESS