ASMB,R NAM TGP4,5 92080-16359 REV.2026 800429 HED * -TGP4- * * SOURCE 92080-18359 * SPC 2 ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. 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 2 HED * -TGP4- SUP * * PRGMR : JEAN CHARLES MIARD(HPG) * * ********************************************************************** * * * * * THIS IS A SEGMENT OF THE TGP PROGRAM USED TO WRITE ON * * THE 2640/2645 DISPLAY THE SCREEN MASKS USED TO COLLECT INFORMA- * * TION TO BUILD A TRANSACTION SPECIFICATION . * * * * TGP4 PRINT SCREENS 13,14,15,16,17 AND 18 ACCORDING TO * * ISCRN VALUE AND THEN LOADS THE REQUIRED SEGMENT TO ANALYSE THE * * USER'S ANSWERS . * * * * BEFORE PRINTING THE SCREENS TGP4 INCLUDES IN THEM THE OLD * * ANSWERS STORED IN JFORM,MFORM AND LFORM . * * SOME SCREENS ARE DYNAMIC AND ONLY PARTS OF THE TOTAL * * SCREEN ARE PRINTED . * * * * IF INDIC=-77 THE SCREEN IS TO BE PRINTED WITHOUT ERASING * * THE DISPLAY BEFORE (HELP MESSAGE) * * * * * * WARNING !! * : CARE MUST BE TAKEN : * * * * PRINTED SCREEN # 13 CORRESPONDS TO ISCRN = 14 * * ............. 14 ................. 15 * * ............. 15 ................. 16 * * ............. 16 ................. 17 * * ............. 17 ................. 18 * * ............. 18 ................. 19 * * ............. 91 ................. 91 * * * ********************************************************************** * * * ENT TGP4 ENTRY POINT EXT EXEC EXT TGP MAIN PROGRAM EXT MOVCA SUBR. MOVES CHARS. EXT MOVCX SUBR. MOVES ANSWERS IN UNPRO. FIELDS EXT &MVW MOVES WORDS EXT IGET1 MOVES BYTES EXT NUL FILLS BUFFER WITH ZEROES * * DECLARATIONS COMMON VARIABLES ************** * COM ILU,ISCRN,IQST,ISKIP,INDIC COM IFORM(780) ANSWER STORAGE COM JFORM(1700) ANSWER STORAGE COM MFORM(28) ANSWER STORAGE COM LFORM(42) ANSWER STORAGE COM ITT TRANS TYPE COM IKEY(78) COM IUMAX # OF U QUESTIONS COM IMMAX #OF M QUESTIONS COM IMODB (0/1) 3070A/3070B COM ILITE(15) COM IMAI(225) IMAGE INFO STORAGE COM IMFLG,IMAS,IMDT,IMKY COM KFORM(2844) COM ILIBR(67) COM NIMAG COM IBASE(10) * * WORD OFFSETS INTO IFORM * * ANSWERS TO SCREENS 16,17,18,41 * IAN16 EQU 0 SCREEN #16 IAN17 EQU 0 SCREEN #17 IAN18 EQU 0 SCREEN #18 IAN41 EQU 757 SCREEN #41 * * QUESTION BUFFER * IQUES EQU 637 IBQOF EQU 1275 ! START ADDR OF 1ST BYTE * * WORD OFFSETS INTO JFORM * * ANSWERS TO SCREENS 13,14,15,91 * JAN13 EQU 24 SCREEN #13 JAN14 EQU 24 SCREEN #14 JAN15 EQU 50 SCREEN #15 JAN91 EQU 17 SCREEN #91 JN91A EQU 76 SCREEN #91 (SECOND MOVE) * * NO. OF CHARACTERS PER QUESTION * JBYTE EQU 170 * * NO. OF WORDS PER QUESTION * JWORD EQU 85 * * TGP4 LDA INDIC GET INDICATOR CPA .D77 IS IT PRINT FOR HELP ? RSS YES JMP CONT NO JUMP CLA STA CL01 STA CL02 STA CL03 STA CL04 STA CL05 STA CL06 STA CL91 CONT LDA IQST GET QUESTION # ADA .D1 DECREMENT MPY D.CH MULT PER # OF CHAR. PER QUESTION STA D.OFF STORE SOURCE OFFSET * ************************************************************************ * *FIND SCREEN # TO DISPLAY * ************************************************************************ * * LDA ISCRN GET SCREEN # CPA D.91 JMP SCR91 ADA .D14 ADA ASCR JMP A,I * * TABLE OF ADDRESS FOR SCREENS * ASCR DEF *+1,I DEF SCR14 DEF SCR15 DEF SCR16 DEF SCR17 DEF SCR18 DEF SCR19 * * * DATA SECTION * A EQU 0 B EQU 1 D.0 DEC 0 .D1 DEC -1 .D2 DEC -2 D.1 DEC 1 D.2 DEC 2 D.3 DEC 3 D.6 DEC 6 D.8 DEC 8 D.9 DEC 9 D.10 DEC 10 D.12 DEC 12 D.13 DEC 13 D.747 DEC 747 D.57 DEC 57 D.91 DEC 91 .D14 DEC -14 .D77 DEC -77 D.CH ABS JBYTE QUOFF ABS IBQOF BYTE OFFSET FOR QUESTIONS D.OFF NOP DBL15 NOP * ************************************************************************* * * SCREEN # 13 : EDIT SPECIFICATIONS FOR STRINGS * ************************************************************************ * SCR14 LDA IQST QUESTION # ADA .D1 DECREMENT MPY D.12 QUEST. NAME LENGTH ADA QUOFF COMPUTE CHAR. OFFSET OF STA SOQST QUEST. NAME IN IFORM AND SAVE JSB MOVCA MOVE QUESTION DEF *+6 NAME FROM DEF IFORM ANSWER STORAGE DEF SOQST SOURCE OFFSET DEF T14 TO DEST. BUFFER DEF D.1 DEST OFFSET DEF D.12 # OF CHARS TO MOVE * JSB MOVCX MOVE ANSWERS IN UNPROT. FIELDS DEF *+6 DEF JFORM+JAN13 ANSWER STORAGE DEF SOF14 TABLE OF SOURCE CHAR. OFFSETS DEF BD14 TABLE OF DEST. BUFFERS DEF D.OFF SOURCE OFFSET DEF DBL14 QUESTION # * *--------------------------------------------------------------------! * SET UP SCREEN 13 ACCORDING TO TRANSACTION TYPE: ! * IF TRANSACTION TYPE IS 2 OR 3 THEN OUTPUT "IMAGE" QUESTIONS ! * (LINES 13, 14, 15, 16, 17) ! * IF TRANSACTION TYPE USES UWM THEN OUTPUT "USER-WRITTEN- ! * MODULES" QUESTION ! * (LINES 18, 19, 20, 21, 22, 23, 24) ! *--------------------------------------------------------------------! * * * INITIALIZE VARIABLES INVOLVED * LDA IL140 WORD COUNT OF QUESTIONS THAT ARE ALWAYS OUTPUT STA ILS14 * LDA A.141 ADDRESS OF FIRST AVAILABLE BUFFER SPACE STA BPNT FOLLOWING QUESTIONS THAT ARE ALWAYS OUTPUT * * * IF THE TRANSACTION TYPE IS 2 OR 3 THEN * OUTPUT "IMAGE" QUESTIONS * SC140 LDA ITT AND =B3 IOSLATE BITS 0 & 1 SZA,RSS IF TRANS TYPE IS 0 THEN JMP WRT14 OUTPUT PERMANENT PART OF SCREEN * ELSE ADA .D2 IS TRANS TYPE .GE. 2 ? SSA JMP SC143 NO, CHECK FOR TRANS TYPE 1 OR 3 * YES, PREPARE "IMAGE" QUESTIONS FOR OUTPUT * LDA ILS14 ADJUST WORD COUNT TO INCLUDE NEW LINES ADA IL141 STA ILS14 * * LDA A.142 SET "AVAILABLE BUFFER" POINTER TO INCLUDE NEW LINES STA BPNT * * IF THE TRANSACTION TYPE IS 1 OR 3 THEN * OUTPUT "USER-WRITTEN-MODULES" QUESTION * SC143 LDA ITT AND =B3 ISOLATE BITS 0 & 1 CPA D.2 AT THIS POINT, IT IS KNOWN THAT THE TRANS TYPE JMP WRT14 MUST BE 1,2, OR 3. IF IT IS .NE. 2, THEN IT MUST * BE 1 OR 3. * LDA IL142 ADJUST WORD COUNT TO INCLUDE NEW LINES STA LN142 ADA ILS14 STA ILS14 * LDB BPNT CPB A.142 ARE NEW OUTPUT LINES IN "NEXT AVAILABLE BUFFER" ? JMP WRT14 YES, WRITE SCREEN * NO, MOVE LINES INTO "NEXT AVAILABLE BUFFER" * LDA A.142 MOVE "IMAGE QUESTIONS" INTO "NEXT AVAILABLE BUFFER" JSB &MVW LN142 BSS 1 WORD COUNT * * OUTPUT SCREEN * WRT14 JSB EXEC DEF *+5 DEF D.2 DEF ILU DEF BSC14 DEF ILS14 JMP CANS LOAD SEGMENT TO ANALYSE USER'S ANSWERS * *--------------------------------------------------------------------- * * TABLE OF QUESTIONS * SOF14 DEC 1 TABLE OF OFFSETS IN JFORM DEC 3,4,24,44,45,50,-1 * * TABLE OF DEST BUFFER ADDRESSES * BD14 DEF T1400,I MAXIMUM LENGTH DEF T1401 POSITIONING DEF T1402 STRING MASK DEF T1403 DEFAULT ANSWER DEF T1404 NEXT ENTRY DEF T1405 USER WRITTEN MODULE * * DBL14 DEC 3 * * DATA SCREEN # 14 * BSC14 BYT 33,130 FORMAT OFF BYT 33,110 HOME UP CL01 BYT 33,112 CLEAR DISPLAY * *--------------------------------------------------------------------- * * THIS PART OF THE SCREEN IS ALWAYS OUTPUT * * * LINE # : 1 * ASC 22, STRING VALIDATION SPECIFICATIONS FOR TH ASC 10,E ANSWER TO QUESTION BYT 40,0 BYT 33,46,144,104 T14 ASC 6, BYT 33,46,144,100 BYT 15,12 * * LINE # : 2 * BYT 15,12 * * LINE # : 3 * ASC 22, - Specify the maximum length of the stri ASC 15,ng (<127) .................... BYT 40,0 BYT 33,46,144,102,33,133 T1400 ASC 1, BYT 40,0 BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 4 * ASC 22, - Specify the position of the string in ASC 9,the output buffer, BYT 15,12 * * LINE # : 5 * BYT 33,46,141,53,61,61,103,0 POSITION CURSOR - 12 BYT 33,46,144,104 BYT 122,0 BYT 33,46,144,100 ASC 10,ight positioning or BYT 33,46,144,104 BYT 114,0 BYT 33,46,144,100 ASC 22,eft positioning (default).................. BYT 33,46,144,102,33,133 T1401 BYT 40,0 BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 6 * ASC 22, - Specify the mask to be applied to the ASC 7,answer ...... BYT 33,46,144,112,33,133 T1402 ASC 10, BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 7 * ASC 22, (fill each character position with one ASC 15, of the following characters : BYT 15,12 * * LINE # : 8 * ASC 3, BYT 40,0 BYT 33,46,144,104 BYT 101,0 BYT 33,46,144,100 ASC 18, to specify an alphabetic character, BYT 40,0 BYT 33,46,144,104 BYT 71,0 BYT 33,46,144,100 ASC 16, to specify a numeric character, BYT 15,12 * * LINE # : 9 * ASC 3, BYT 40,0 BYT 33,46,144,104 BYT 130,0 BYT 33,46,144,100 ASC 18, to specify any ASCII character, any BYT 40,0 BYT 33,46,144,104 ASC 7,other characte BYT 162,0 BYT 33,46,144,100 ASC 9, to specify itself BYT 51,0 BYT 15,12 * * LINE # : 10 * ASC 16, - Specify the default answer BYT 15,12 * * LINE # : 11 * BYT 33,46,141,53,62,62,103,0 POSITION CURSOR - 35 ASC 18,(If not the displayed value) ...... BYT 33,46,144,102,33,133 T1403 ASC 10, BYT 33,135,33,46,144,100 BYT 15,12 * * LINE # : 12 * ESC14 BYT 15,12 * *--------------------------------------------------------------------- * * THESE LINES ARE OUTPUT IF THE TRANSACTION TYPE (ITT) USES DATA BASE. * * * LINE # : 13 * B.141 ASC 1, BYT 33,51,102,16 ASC 1,R, BYT 54,17 ASC 22, Enter X if the following function may be us ASC 12,ed during this question BYT 16,54 ASC 2,,,,, BYT 124,0 BYT 15,12 * * LINE # : 14 * ASC 1, BYT 33,51,102,16 ASC 1,. BYT 33,46,141,53,67,64,103,0 POSITION CURSOR - 79 BYT 56,0 BYT 15,12 * * LINE # : 15 * ASC 1, BYT 33,51,102,16 BYT 56,17 ASC 22, NEXT ENTRY in an IMAGE chain .......... ASC 15,............................. BYT 33,46,144,102,33,133 T1404 BYT 40,0 BYT 33,135,33,46,144,100,16,56 BYT 15,12 * * LINE # : 16 * ASC 1, BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 16,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, BYT 107,0 BYT 15,12 * * LINE # : 17 * E.141 BYT 15,12 * *--------------------------------------------------------------------- * * THESE LINES ARE OUTPUT IF THE TRANSACTION TYPE (ITT) USES UWM. * * * LINE # : 18 * B.142 ASC 1, BYT 33,51,102,16 ASC 10,R,,,,,,,,,,,,,,,,,,, BYT 17,40 ASC 10,User written modules BYT 40,16 ASC 17,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, BYT 124,0 BYT 15,12 * * LINE # : 19 * ASC 1, BYT 33,51,102,16 ASC 1,. BYT 17,55 ASC 22, If an additional validation is to be perfor ASC 9,med on the value, BYT 33,46,141,53,61,61,103,0 POSITION CURSOR - 79 BYT 16,56 BYT 15,12 * * LINE # : 20 * ASC 1, BYT 33,51,102,16 BYT 56,17 ASC 22, enter the name of the appropriate user wr ASC 13,itten validation module BYT 33,46,144,102,33,133 T1405 ASC 2, BYT 40,0 BYT 33,135,33,46,144,100,16,56 BYT 15,12 * * LINE # : 21 * ASC 1, BYT 33,51,102,16 ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 16,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, BYT 107,0 BYT 15,12 * * LINE # : 22 * BYT 15,12 * * LINE # : 23 * E.142 BYT 15,12 * * * STA14 EQU BSC14 LTA14 EQU ESC14 ST141 EQU B.141 LT141 EQU E.141 ST142 EQU B.142 LT142 EQU E.142 A.141 DEF B.141 A.142 DEF B.142 IL140 ABS LTA14-STA14+1 IL141 ABS LT141-ST141+1 IL142 ABS LT142-ST142+1 ILS14 NOP SOQST NOP CHAR OFFSET * ************************************************************************* * SCREEN # 14 EDIT FOR FUNCTION ONLY ANSWER TYPE * ************************************************************************* * SCR15 LDA IQST QUESTION # ADA .D1 DECREMENT MPY D.12 QUEST. LABEL LENGTH ADA QUOFF BASE OFFSET STA SOQST STORE OFFSET JSB MOVCA MOVE QUESTION LABEL IN SCREEN TITLE DEF *+6 DEF IFORM ANSWER STORAGE DEF SOQST CHAR. OFFSET IN IFORM DEF T15 DEST. BUFFER DEF D.1 DEST OFFSET DEF D.12 MOVE LENGTH * JSB MOVCX MOVE ANSWERS IN UNPROT. FIELDS DEF *+6 DEF JFORM+JAN14 ANSWER STORAGE DEF SOF15 TABLE OF CHAR.OFFSETS IN JFORM DEF BD15 TABLE OF BUFFER DEST. ADDRESS DEF D.OFF DEST.OFFSET DEF DBL15 QUESTION # * LDA ITT GET TR. TYPE AND =B3 ISOLATE BITS 0-1 STA B PUT IT IN B-REG. LDA IL150 GET SCREEN LENGTH FOR TR. TYPE 1 CPB D.1 IS 1 ? JMP STALN YES JSB NUL DEF *+3 DEF LN18 DEF LEN18 LDA IL151 NO GET SCREEN LENGTH FOR TR. TYPE 2 AND 3 STALN STA ILS15 STORE SCREEN LENGTH JSB EXEC WRITE SCREEN 14 DEF *+5 RETURN POINT DEF D.2 CODE EXEC DEF ILU CONTROL WORD DEF BSC15 BUFFER LOCATION DEF ILS15 BUFFER LENGTH JMP CANS LOAD SEGMENT TO ANALYSE USER' S ANSWERS * * TABLE OF OFFSETS SCREEN # 14 * SOF15 DEC 1 DEC 2 DEC 3 DEC 4 DEC -1 * * BUFFER DEST ADDRESS TABLE SCREEN 14 * BD15 DEF T1500 DEF T1501 DEF T1502 * * DATA SCREEN 14 * * * LINE # : 1 * BSC15 BYT 33,130 FORMAT OFF BYT 33,110 HOME UP CL02 BYT 33,112 CLEAR DISPLAY ASC 21, FUNCTION VALIDATION SPECIFICATIONS FOR ASC 11,THE ANSWER TO QUESTION BYT 40,0 BYT 33,46,144,104 T15 ASC 6, BYT 15,12 * * LINE # : 2 * BYT 15,12 * * LINE # : 3 * BYT 15,12 * * LINE # : 4 * ASC 22, The only valid answers to the question a ASC 7,re FUNCTIONS : BYT 15,12 * * LINE # : 5 * BYT 15,12 * * LINE # : 6 * BYT 33,46,141,53,60,70,103,0 POSITION CURSOR - 09 ASC 22,The functions ABORT/SELECT, SAME VALUE, and ASC 3,RECALL BYT 15,12 * * LINE # : 7 * BYT 33,46,141,53,60,70,103,0 POSITION CURSOR - 09 ASC 22,are valid answers to any question, if they h ASC 4,ave been BYT 15,12 * * LINE # : 8 * BYT 33,46,141,53,60,70,103,0 POSITION CURSOR - 09 ASC 22,defined in the SFK ASSIGNMENT SCREEN(S). BYT 15,12 * * LINE # : 9 * BYT 15,12 * * LINE # : 10 * BYT 15,12 * * LINE # : 11 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN ON LDS ASC 2,R,,, BYT 17,40 TURN LDS OFF ASC 22,Enter X to enable any of the following funct ASC 12,ions for this question, BYT 16,0 LDS ON ASC 1,,, BYT 124,0 * * LINE # : 12 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 LDS ON BYT 56,17 .,LDS OFF ASC 22, if they have been defined in the SFK AS ASC 10,SIGNMENT SCREEN(S) BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 13 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 . , TURN LDS OFF BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 14 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 . , TURN LDS OFF BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 15 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 ., TURN LDS OFF BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 ASC 22,CONTINUE to the next question ............. ASC 3,..... BYT 33,46,144,102,33,133 T1500 BYT 40,0 BYT 33,135,33,46,144,100 BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 . , TURN LDS OFF BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 16 * LN18 BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 15,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ESC15 ASC 1,,G * * LINE # : 17 * B.151 BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 ., TURN LDS OFF BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 ASC 22,NEXT ENTRY in an IMAGE chain ............. ASC 3,..... BYT 33,46,144,102,33,133 T1501 BYT 40,0 BYT 33,135,33,46,144,100 BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 18 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 . , TURN LDS OFF BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 19 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON BYT 56,17 ., TURN LDS OFF BYT 33,46,141,53,61,64,103,0 POSITION CURSOR - 15 ASC 22,DELETE ENTRY in data base ............. ASC 3,..... BYT 33,46,144,102,33,133 T1502 BYT 40,0 BYT 33,135,33,46,144,100 BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 04 BYT 16,56 TURN LDS ON * * LINE # : 20 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON, . BYT 56,17 . , TURN LDS OFF BYT 33,46,141,53,67,70,103,0 POSITION CURSOR - 80 BYT 16,56 TURN LDS ON, . * * LINE # : 21 * BYT 33,46,141,53,60,64,103,0 POSITION CURSOR - 04 BYT 33,51,102,16 TURN LDS ON ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ASC 15,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, E.151 ASC 1,,G * * ILS15 NOP STA15 EQU BSC15 LTA15 EQU ESC15 LT151 EQU E.151 ILN18 EQU LN18 LEN18 ABS ESC15-ILN18+1 IL150 ABS LTA15-STA15+1 IL151 ABS LT151-STA15+1 * ************************************************************************* * * SCREEN # 15 : DISPLAY INFORMATION * ************************************************************************ * SCR16 LDA IQST QUESTION # ADA .D1 DECREMENT MPY D.12 QUEST. NAME LENGTH ADA QUOFF COMPUTE CHAR. OFFSET OF STA SOQST QUEST. NAME IN IFORM AND SAVE JSB MOVCA MOVE QUESTION DEF *+6 NAME FROM DEF IFORM ANSWER STORAGE DEF SOQST SOURCE OFFSET DEF T16 TO DEST. BUFFER DEF D.1 DEST OFFSET DEF D.12 # OF CHARS TO MOVE * JSB MOVCX MOVE ANSWERS IN UNPROT. FIELDS DEF *+6 DEF JFORM+JAN15 ANSWER STORAGE DEF SOF16 TABLE OF SOURCE CHAR. OFFSETS DEF BD16 TABLE OF DEST. BUFFERS DEF D.OFF SOURCE OFFSET DEF DBL16 QUESTION # * *--------------------------------------------------------------------! * SET UP SCREEN 15 ACCORDING TO ANSWERS OBTAINED IN SCREEN 41 AND ! * TRANSACTION TYPE: ! * IF ANSWER 1 IN SCR 41 IS "X" THEN OUTPUT "PRINTER" QUESTIONS ! * (LINES 9, 10, 11, 12) ! * IF TRANSACTION TYPE USES UWM THEN OUTPUT "USER WRITTEN ! * MODULES" QUESTIONS ! * (LINES 13, 14, 15, 16, 17, 18) ! * IF TRANSACTION TYPE IS 2 OR 3 THEN OUTPUT "IMAGE" QUESTIONS ! * (LINES 19, 20, 21, 22, 23) ! *--------------------------------------------------------------------! * * * INITIALIZE VARIABLES INVOLVED * LDA IL16 WORD COUNT OF QUESTIONS THAT ARE ALWAYS OUTPUT STA ILS16 * LDA A.160 ADDRESS OF FIRST AVAILABLE BUFFER SPACE STA BPNT FOLLOWING QUESTIONS THAT ARE ALWAYS OUTPUT * * CHECK TO SEE IF 3077 IS USED ... IF SO NO LIGHT OF DEFAULT ANSW. * LDA ITT GET TRANSACTION TYPE AND =B2000 CHECK OF BIT 10 SZA FOR 0 JMP SC160 YES, NO LIGHTS OF DEFAULT ANSWERS * LDA ILS16 NO, LIGHTS + DEFAULT ANSWER PRINTED ADA IL160 ADJUST WORD COUNT TO INCLUDE NEW LINES STA ILS16 * LDA A.161 SET AVAILABLE BUFFER POINTER TO INCLUDE STA BPNT NEW LINES * * WITH AN ALPHA DISP, CRT OR PRINTER, ... ITT BITS 7,13,3 ... * A TEXT STRING CAN BE SPECIFIED TO LABEL DISPLAYED VALUE * SC160 LDA ITT GET TRANSACTION TYPE AND =B20210 ISOLATE BITS 3,7,13 FOR DISPLAY-PRINTER SZA SKIP IF NONE PRESENT JMP SC16Q PRESENT-PRINT LABEL TAG FOR DISPLAY LDA ITT GET TRANSACTION TYPE AGAIN AND =B22210 ISOLATE BIT 3,7,13 AND 10 SZA 0 IMPLIES PRINT OK TO PRINT LABEL FIELD JMP SC162 NO, DO NOT PRINT LABEL FIELD * SC16Q LDA IL161 NO, PRINT IT OUT STA LN161 ADA ILS16