SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Table of contents 1- 5 SCOPE "WATCH" INSERT PROCESSING FOR TECO 1- 11 GENERAL PDP-11 DEFINITIONS 1- 24 ASCII CHARACTER DEFINITIONS 2- 1 HANDLE -256+N:W (INSERT PROCESSING, ETC.) SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 1 1 .TITLE SCRINS SCOPE "WATCH" INSERT PROCESSING FOR TECO 2 .NLIST TTM 3 .LIST TOC,MEB,BEX 4 .DSABL REG,GBL,LC 5 .SBTTL SCOPE "WATCH" INSERT PROCESSING FOR TECO 6 7 ; LAST EDIT ON 02-JUN-83 BY MARK BRAMHALL 8 9 .IDENT /V39.00/ 10 11 .SBTTL GENERAL PDP-11 DEFINITIONS 12 13 ; GENERAL REGISTER DEFINITIONS 14 15 000000 R0 = %0 16 000001 R1 = %1 17 000002 R2 = %2 18 000003 R3 = %3 19 000004 R4 = %4 20 000005 R5 = %5 21 000006 SP = %6 22 000007 PC = %7 23 24 .SBTTL ASCII CHARACTER DEFINITIONS 25 26 000010 BS = 010 ;ASCII BACKSPACE 27 000011 TAB = 011 ;ASCII HORIZONTAL TAB 28 000012 LF = 012 ;ASCII LINE FEED 29 000015 CR = 015 ;ASCII CARRIAGE RETURN 30 000040 SPACE = 040 ;ASCII SPACE 31 000177 DEL = 177 ;ASCII DELETE (ALSO CALLED RUBOUT) SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 2 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 .SBTTL HANDLE -256+N:W (INSERT PROCESSING, ETC.) 2 3 ;+ 4 ; SCRINS - HANDLE -256+N:W (INSERT PROCESSING, ETC.). 5 ; 6 ; R0 = -256.+N WHERE: 7 ; 8 ; N = +128. = 200 = <7> => DON'T STALL IF NO TERMINAL INPUT IS AVAILABLE 9 ; +64. = 100 = <6> => EXIT ON ANY CHARACTER 10 ; +32. = 40 = <5> => DON'T UPDATE SCREEN 11 ; +16. = 20 = <4> => ** RESERVED ** 12 ; +8. = 10 = <3> => TREAT M(R5) AS EXCEPTION CHARACTER(S) 13 ; +4. = 4 = <2> => UPPER CASE ANY INSERT(S) 14 ; +2. = 2 = <1> => TREAT AS AN EXCEPTION CHARACTER 15 ; +1. = 1 = <0> => NO NEED TO INITIALLY UPDATE THE SCREEN 16 ; 17 ; IF CFLG(R5)=-1 THEN 18 ; M(R5) = UPDATE INTERVAL IF <2> OF N IS 0 19 ; = EXCEPTION CHARACTER(S) IF <2> OF N IS 1 20 ; 21 ; JSR PC,SCRINS 22 ; 23 ; R0 = RETURNED EXIT VALUE WHERE: 24 ; 25 ; R0 <15> => ONE OR MORE INSERT(S) WERE DONE 26 ; R0 <14-8> = ** RESERVED ** 27 ; R0 <7-0> = 377 => DON'T STALL SPECIFIED AND NO INPUT AVAILABLE 28 ; <> 377 => EXCEPTION CHARACTER'S VALUE 29 ;- 30 31 .GLOBL SI.OK ;SCREEN IMAGE IS O.K. 32 .GLOBL SI.EXT ;TREAT AS AN EXCEPTION CHARACTER 33 .GLOBL SI.UC ;UPPER CASE ANY INSERT(S) 34 .GLOBL SI.EXM ;TREAT M(R5) AS EXCEPTION CHARACTER(S) 35 ; ;** RESERVED ** 36 .GLOBL SI.NUP ;DON'T UPDATE SCREEN 37 .GLOBL SI.EXA ;EXIT ON ANY CHARACTER 38 .GLOBL SI.NST ;DON'T STALL IF NO TERMINAL INPUT IS AVAILABLE 39 40 .GLOBL SI.OKS ;ALL SET FOR A SIMPLE SCREEN UPDATE 41 .GLOBL SI.INS ;ONE OR MORE INSERT(S) WERE DONE SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 3 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 000000 .PSECT SCRINS,RO,I,GBL,REL,OVR 2 3 000000 016546 000000G SCRINS: MOV ETYPE(R5),-(SP) ;SAVE INITIAL "ETYPE" 4 000004 005065 000000G CLR N(R5) ;GUESS AT NO SPECIAL EXCEPTION CHARACTER(S) 5 000010 030027 000000G BIT R0,#SI.EXM ;GOOD GUESS? 6 000014 001406 BEQ 10$ ;YEP 7 000016 005265 000000G INC CFLG(R5) ;M,N FORMAT? 8 000022 001006 BNE 20$ ;NO 9 000024 016565 000000G 000000G MOV M(R5),N(R5) ;YES, SET EXCEPTION CHARACTER CODE(S) 10 000032 005265 000000G 10$: INC CFLG(R5) ;M,N FORMAT? 11 000036 001402 BEQ 30$ ;YES, M HAS THE UPDATE INTERVAL VALUE 12 000040 005065 000000G 20$: CLR M(R5) ;SET UPDATE INTERVAL VALUE TO "INFINITY" 13 000044 005765 000000G 30$: TST M(R5) ;A VALID UPDATE INTERVAL VALUE? 14 000050 100773 BMI 20$ ;NOPE, GO MAKE IT "INFINITY" 15 000052 005065 000000G CLR CFLG(R5) ;ENSURE COMMA FLAG IS NOW OFF 16 000056 016565 000000G 000000C MOV M(R5),OUTCHR+RWSIZE(R5) ;SET UPDATE INTERVAL INTO TEMP COUNTER 17 000064 005046 CLR -(SP) ;STACK A FLAG WORD 18 000066 110016 MOVB R0,(SP) ; AND INSERT THE CALLING ARGUMENT BITS 19 20 .GLOBL ETYPE, N, CFLG, M, OUTCHR, RWSIZE SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 4 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 000070 052765 000000C 000000G READCS: BIS #ET$CC!ET$CKE!ET$NCH,ETYPE(R5) ;INDICATE NO STALL, ETC. 2 000076 105716 TSTB (SP) ;NO STALL? 3 000100 100406 BMI 10$ ;GO READ W/O A STALL IF NO STALL 4 ;.IIF NE SI.NST-200, .ERROR ;THE ABOVE WON'T WORK 5 000102 031627 000000C BIT (SP),#SI.NUP!SI.OK ;NOT UPDATING A/O SCREEN ALREADY O.K.? 6 000106 001403 BEQ 10$ ;NEITHER, GO READ W/O A STALL 7 000110 042765 000000G 000000G BIC #ET$CKE,ETYPE(R5) ;GO BACK TO TERMINAL STALL MODE 8 000116 004767 000000G 10$: JSR PC,TLISTN ;READ FROM THE TERMINAL 9 000122' SI$RET == . ;** RETURN ADDRESS FOR CONTROL/T INPUT CALLS ** 10 000122 005765 000000G TST ETYPE(R5) ;CHECK FOR CONTROL/C TYPED 11 000126 100020 BPL 30$ ;WHOOPS! CONTROL/C TYPED 12 ;.IIF NE ET$CC-100000, .ERROR ;THE ABOVE WON'T WORK 13 000130 005700 TST R0 ;DID WE GET ANYTHING? 14 000132 100023 BPL 40$ ;YES 15 000134 105716 TSTB (SP) ;NO STALL? 16 000136 100066 BPL 80$ ;NOPE, GO CHECK THE DISPLAY CORRECTNESS 17 ;.IIF NE SI.NST-200, .ERROR ;THE ABOVE WON'T WORK 18 000140 042716 000000C 20$: BIC #^C,(SP) ;CLEAR ALL BUT INSERT(S) DONE 19 000144 110016 MOVB R0,(SP) ;PUT EXCEPTION CHARACTER VALUE INTO FLAG 20 000146 012600 MOV (SP)+,R0 ; AND SET R0 FOR RETURNED VALUE 21 000150 042716 000000C BIC #^C,(SP) ;TRIM SAVED "ETYPE" 22 000154 042765 000000C 000000G BIC #ET$CC!ET$CKE!ET$NCH,ETYPE(R5) ;TURN OFF OUR BITS 23 000162 052665 000000G BIS (SP)+,ETYPE(R5) ; THEN RESTORE ORIGINAL "ETYPE" 24 000166 000207 RTS PC ; AND EXIT 25 26 .GLOBL ET$CC, ET$CKE, ET$NCH, ETYPE, TLISTN SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 5 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 000170 012700 000003 30$: MOV #'C-100,R0 ;SET A CONTROL/C AS TYPED 2 000174 042766 000000G 000002 BIC #ET$CC,2(SP) ; AND ENSURE THAT CONTROL/C TRAPS TURN OFF 3 000202 031627 000000G 40$: BIT (SP),#SI.EXA ;EXIT ON ANY CHARACTER? 4 000206 001354 BNE 20$ ;YES, EXIT 5 000210 120027 000177 CMPB R0,#DEL ;CONTROL CHARACTER OR G1 GRAPHIC? 6 000214 103351 BHIS 20$ ;YES (177 TO 377), EXIT 7 000216 120027 000040 CMPB R0,#SPACE ;MIGHT BE... 8 000222 103006 BHIS 50$ ;NORMAL GRAPHIC (040 TO 176) 9 000224 120027 000011 CMPB R0,#TAB ;CONTROL CHARACTER, IS IT ? 10 000230 001343 BNE 20$ ;NO, OTHER, EXIT 11 000232 031627 000000G BIT (SP),#SI.EXT ;ALLOWING ? 12 000236 001340 BNE 20$ ;NO, EXIT 13 000240 031627 000000G 50$: BIT (SP),#SI.EXM ;EXIT ON SPECIAL(S)? 14 000244 001406 BEQ 60$ ;NOPE 15 000246 120065 000000G CMPB R0,N(R5) ;FIRST SPECIAL MATCH? 16 000252 001732 BEQ 20$ ;YES, EXIT 17 000254 120065 000001G CMPB R0,N+1(R5) ;SECOND SPECIAL MATCH? 18 000260 001727 BEQ 20$ ;YES, EXIT ALSO 19 000262 031627 000000G 60$: BIT (SP),#SI.UC ;UPPER CASE INSERT(S)? 20 000266 001402 BEQ 70$ ;NOPE 21 000270 004767 000000G JSR PC,UPPERC ;YEP, SO GO DO SO 22 000274 052716 000000C 70$: BIS #SI.INS!SI.OK,(SP) ; THEN INDICATE INSERT(S) DONE 23 000300 005316 DEC (SP) ; BUT INDICATE DISPLAY NOT NOW CORRECT 24 ;.IIF NE SI.OK-1, .ERROR ;THE ABOVE WON'T WORK 25 000302 004767 000114 JSR PC,DOINST ;GO SAVE REGISTERS AND DO TEXT BUFFER INSERT 26 000306 005365 000000C DEC OUTCHR+RWSIZE(R5) ;SHOULD WE UPDATE THE DISPLAY NOW? 27 000312 001266 BNE READCS ;NO, JUST LOOP FOR READ... 28 000314 031627 000000C 80$: BIT (SP),#SI.NUP!SI.OK ;NO UPDATE OR SCREEN O.K.? 29 000320 001004 BNE 90$ ;ONE OR THE OTHER, DON'T UPDATE 30 000322 004767 000022 JSR PC,100$ ;ELSE GO UPDATE THE SCREEN 31 000326 052716 000000C BIS #SI.OKS!SI.OK,(SP) ;SAY SCREEN IS FULLY UPDATED NOW 32 000332 016565 000000G 000000C 90$: MOV M(R5),OUTCHR+RWSIZE(R5) ;RESET UPDATE INTERVAL TEMP COUNTER 33 000340 005765 000000G TST ETYPE(R5) ;SET N-BIT=0 IF A CONTROL/C TYPED 34 000344 100651 BMI READCS ;N-BIT=1 => NO CONTROL/C, LOOP FOR READ... 35 ;.IIF NE ET$CC-100000, .ERROR ;THE ABOVE WON'T WORK 36 000346 000710 BR 30$ ;CONTROL/C, SO GO EXIT WITH IT 37 38 000350 036627 000002 000000G 100$: BIT 2(SP),#SI.OKS ;ALL SET FOR A SIMPLE UPDATE? 39 000356 001415 BEQ 110$ ;NOPE, MUST DO A FULL SCREEN UPDATE 40 000360 004067 000000G JSR R0,SCRSAV ;YEP, SAVE ALL REGISTERS, ETC. 41 000364 016500 000000C MOV TOPDOT+RWSIZE(R5),R0 ;GET LAST USED UPPER LEFT HAND CORNER 42 000370 005300 DEC R0 ; AND CORRECT IT 43 000372 010065 000000C MOV R0,LINPTR+RWSIZE(R5) ;SET THAT AS THE STARTING POINT 44 000376 016546 000000G MOV P(R5),-(SP) ;STACK "DOT" POSITION 45 000402 012746 000000G MOV #SCROUT,-(SP) ;STACK THE SCREEN OUTPUT ROUTINE 46 000406 000167 000000G JMP CHKSCN ;NOW GO OFF AND DO THE SIMPLE UPDATE 47 48 000412 012700 177777 110$: MOV #-1,R0 ;SET CALLING ARGUMENT TO -1 49 000416 000167 000000G JMP SCRUPD ; AND GO UPDATE THE SCREEN 50 51 .GLOBL ET$CC, N, UPPERC, OUTCHR, RWSIZE, M, ETYPE 52 .GLOBL SCRSAV, TOPDOT, LINPTR, P, SCROUT, CHKSCN, SCRUPD SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 6 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 000422 010665 000000C DOINST: MOV SP,OUTBLN+RWSIZE(R5) ;SAVE CALLING SP STACK VALUE 2 000426 004067 000000G JSR R0,SCRSAV ;SAVE ALL REGISTERS 3 000432 004767 000000G JSR PC,.III.I ;GO DO THE TEXT BUFFER INSERT 4 000436 016504 000000C MOV OUTBLN+RWSIZE(R5),R4 ;GET POINTER TO ARGUMENT BITS -2 5 000442 005724 TST (R4)+ ; THEN MAKE IT A POINTER TO ARGUMENT BITS 6 000444 031427 000000G BIT (R4),#SI.OKS ;WAS DISPLAY SET FOR A SIMPLE UPDATE? 7 000450 001522 BEQ 40$ ;NOPE, FORGET THIS OPTIMIZATION... 8 000452 016501 000000C MOV CURPOS+RWSIZE(R5),R1 ;GET CURRENT TEXT BUFFER POINTER 9 000456 112100 MOVB (R1)+,R0 ; AND GET BACK THE INSERTED CHARACTER 10 000460 020027 000011 CMP R0,#TAB ;WAS IT A ? 11 000464 001514 BEQ 40$ ;YEP, NO OPTIMIZATION CAN BE DONE... 12 000466 166501 000000G SUB TXSTOR(R5),R1 ;MAKE TEXT POINTER RELATIVE 13 000472 020165 000000G CMP R1,P(R5) ;AT CURRENT "DOT"? 14 000476 001107 BNE 40$ ;NOPE, OTHER INSERT(S) DONE, FORGET IT... 15 000500 020165 000000G CMP R1,ZZ(R5) ;AT END-OF-TEXT? 16 000504 001410 BEQ 10$ ;YEP 17 000506 066501 000000G ADD TXSTOR(R5),R1 ;NOPE, MAKE POINTER ABSOLUTE AGAIN 18 000512 122127 000015 CMPB (R1)+,#CR ;FACING THE END OF THE LINE? 19 000516 001077 BNE 40$ ;NOPE, CAN'T DO ANYTHING... 20 000520 122127 000012 CMPB (R1)+,#LF ;A TRUE, NORMAL END OF LINE? 21 000524 001074 BNE 40$ ;NO WAY, PUNT ON IT... 22 000526 016501 000000C 10$: MOV CURABS+RWSIZE(R5),R1 ;DID WE FIND THE CURSOR? 23 000532 001471 BEQ 40$ ;NO, FORGET IT... 24 000534 112102 MOVB (R1)+,R2 ;YES, SNAG CURRENT SCREEN MAP CHARACTER 25 000536 121127 000040 CMPB (R1),#SPACE ;A SPACE AFTER IT? 26 000542 001065 BNE 40$ ;NOPE, NO GO... 27 000544 026565 000000C 000000C 20$: CMP CURCOL+RWSIZE(R5),HTSIZ2+RWSIZE(R5) ;IS CURSOR TOO FAR RIGHT? 28 000552 103061 BHIS 40$ ;YEP, FORGET IT... 29 000554 031427 000000G BIT (R4),#SI.NUP ;UPDATING THE SCREEN AT ALL? 30 000560 001056 BNE 40$ ;NOPE 31 000562 005765 000000G TST OUTDNE(R5) ;HAS SOME OUTPUT BEEN DONE? 32 000566 001053 BNE 40$ ;YES, TOO MESSY FOR US... 33 000570 005765 000000C TST MRKFLG+RWSIZE(R5) ;MARK'D REGION ACTIVE? 34 000574 001050 BNE 40$ ;YES, ALSO TOO MESSY... 35 36 .GLOBL OUTBLN, RWSIZE, SCRSAV, .III.I, CURPOS, TXSTOR, P, ZZ 37 .GLOBL CURABS, CURCOL, HTSIZ2, OUTDNE, MRKFLG SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 7 HANDLE -256+N:W (INSERT PROCESSING, ETC.) 1 000576 005214 INC (R4) ;DISPLAY IS NOW CORRECT AGAIN 2 ;.IIF NE SI.OK-1, .ERROR ;THE ABOVE WON'T WORK 3 000600 110211 MOVB R2,(R1) ;REPLACE THE OLD SCREEN MAP CHARACTER 4 000602 110041 MOVB R0,-(R1) ; AND SET INSERTED CHARACTER INTO SCREEN MAP 5 000604 005265 000000C INC CURABS+RWSIZE(R5) ;UPDATE THE SCREEN MAP POINTER 6 000610 005265 000000C INC CURPOS+RWSIZE(R5) ; AND CURRENT TEXT BUFFER POINTER 7 000614 004767 000000G JSR PC,TYPEBF ;OUTPUT THE CHARACTER 8 000620 005265 000000C INC PRECOL+RWSIZE(R5) ; WHICH MOVES US ONE COLUMN RIGHT 9 000624 005265 000000C INC CURCOL+RWSIZE(R5) ; IN THE CURSOR SPOT ALSO 10 000630 020227 000040 CMP R2,#SPACE ;NORMAL OLD SCREEN MAP CHARACTER? 11 000634 103023 BHIS 30$ ;YES 12 000636 016503 000000G MOV CRTYPE(R5),R3 ;NO, GET THE SCOPE TYPE 13 000642 066302 000000G ADD GRPTBL(R3),R2 ;FIND INDEX INTO CORRECT SYMBOL TABLE 14 000646 114200 MOVB -(R2),R0 ;GET THE CORRECT GRAPHICS CHARACTER 15 000650 012703 000000G MOV #GONSEQ,R3 ;SET TO TURN GRAPHICS ON 16 000654 004767 000000G JSR PC,DOTYPE ;GO OUTPUT THE GRAPHICS ON SEQUENCE 17 000660 004767 000000G JSR PC,TYPEBF ;OUTPUT THE SPECIAL GRAPHICS CHARACTER 18 000664 012703 000000G MOV #GOFSEQ,R3 ;SET TO TURN GRAPHICS BACK OFF 19 000670 004767 000000G JSR PC,DOTYPE ;GO OUTPUT THE GRAPHICS OFF SEQUENCE 20 000674 012700 000010 MOV #BS,R0 ;SET UP A 21 000700 004767 000000G JSR PC,TYPEBF ; AND GO OUTPUT IT TO CORRECT CURSOR 22 000704 004767 000000G 30$: JSR PC,SCRDNE ;GO FORCE BUFFER; CLEAR OUTPUT DONE 23 000710 016565 000000G 000000C MOV M(R5),OUTCHR+RWSIZE(R5) ;RESET UPDATE INTERVAL TEMP COUNTER 24 000716 000207 40$: RTS PC ;EXIT 25 26 .GLOBL CURABS, RWSIZE, CURPOS, TYPEBF, PRECOL, CURCOL 27 .GLOBL CRTYPE, GRPTBL, GONSEQ, DOTYPE, GOFSEQ, SCRDNE, M, OUTCHR 28 29 000001 .END SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page 7-1 Symbol table BS = 000010 ET$CKE= ****** G OUTDNE= ****** G SCRINS 000000R 002 SI.OKS= ****** G CFLG = ****** G ET$NCH= ****** G P = ****** G SCROUT= ****** G SI.UC = ****** G CHKSCN= ****** G GOFSEQ= ****** G PC =%000007 SCRSAV= ****** G SP =%000006 CR = 000015 GONSEQ= ****** G PRECOL= ****** G SCRUPD= ****** G SPACE = 000040 CRTYPE= ****** G GRPTBL= ****** G READCS 000070R 002 SI$RET= 000122RG 002 TAB = 000011 CURABS= ****** G HTSIZ2= ****** G RWSIZE= ****** G SI.EXA= ****** G TLISTN= ****** G CURCOL= ****** G LF = 000012 R0 =%000000 SI.EXM= ****** G TOPDOT= ****** G CURPOS= ****** G LINPTR= ****** G R1 =%000001 SI.EXT= ****** G TXSTOR= ****** G DEL = 000177 M = ****** G R2 =%000002 SI.INS= ****** G TYPEBF= ****** G DOINST 000422R 002 MRKFLG= ****** G R3 =%000003 SI.NST= ****** G UPPERC= ****** G DOTYPE= ****** G N = ****** G R4 =%000004 SI.NUP= ****** G ZZ = ****** G ETYPE = ****** G OUTBLN= ****** G R5 =%000005 SI.OK = ****** G .III.I= ****** G ET$CC = ****** G OUTCHR= ****** G SCRDNE= ****** G . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000000 001 (RW,I,LCL,REL,CON) SCRINS 000720 002 (RO,I,GBL,REL,OVR) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 94 Words ( 1 Pages) Size of core pool: 16896 Words ( 66 Pages) Operating system: RT-11 (Under RSTS/E) Elapsed time: 00:00:15.37 OBJ:SCRINS,LST:SCRINS/C=MAC:SCRINS SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page S-1 Cross reference table (CREF V05.03a) .III.I 6-3 6-36 BS 1-26# 7-20 CFLG 3-7* 3-10* 3-15* 3-20 CHKSCN 5-46 5-52 CR 1-29# 6-18 CRTYPE 7-12 7-27 CURABS 6-22 6-37 7-5* 7-26 CURCOL 6-27 6-37 7-9* 7-26 CURPOS 6-8 6-36 7-6* 7-26 DEL 1-31# 5-5 DOINST 5-25 6-1# DOTYPE 7-16 7-19 7-27 ET$CC 4-1 4-21 4-22 4-26 5-2 5-51 ET$CKE 4-1 4-7 4-21 4-22 4-26 ET$NCH 4-1 4-21 4-22 4-26 ETYPE 3-3 3-20 4-1* 4-7* 4-10 4-22* 4-23* 4-26 5-33 5-51 GOFSEQ 7-18 7-27 GONSEQ 7-15 7-27 GRPTBL 7-13 7-27 HTSIZ2 6-27 6-37 LF 1-28# 6-20 LINPTR 5-43* 5-52 M 3-9 3-12* 3-13 3-16 3-20 5-32 5-51 7-23 7-27 MRKFLG 6-33 6-37 N 3-4* 3-9* 3-20 5-15 5-17 5-51 OUTBLN 6-1* 6-4 6-36 OUTCHR 3-16* 3-20 5-26* 5-32* 5-51 7-23* 7-27 OUTDNE 6-31 6-37 P 5-44 5-52 6-13 6-36 PC 1-22# 4-8* 4-24* 5-21* 5-25* 5-30* 6-3* 7-7* 7-16* 7-17* 7-19* 7-21* 7-22* 7-24* PRECOL 7-8* 7-26 R0 1-15# 3-5 3-18 4-13 4-19 4-20* 5-1* 5-5 5-7 5-9 5-15 5-17 5-40* 5-41* 5-42* 5-43 5-48* 6-2* 6-9* 6-10 7-4 7-14* 7-20* R1 1-16# 6-8* 6-9 6-12* 6-13 6-15 6-17* 6-18 6-20 6-22* 6-24 6-25 7-3* 7-4* R2 1-17# 6-24* 7-3 7-10 7-13* 7-14 R3 1-18# 7-12* 7-13 7-15* 7-18* R4 1-19# 6-4* 6-5 6-6 6-29 7-1* R5 1-20# 3-3 3-4 3-7 3-9 3-9 3-10 3-12 3-13 3-15 3-16 3-16 4-1 4-7 4-10 4-22 4-23 5-15 5-17 5-26 5-32 5-32 5-33 5-41 5-43 5-44 6-1 6-4 6-8 6-12 6-13 6-15 6-17 6-22 6-27 6-27 6-31 6-33 7-5 7-6 7-8 7-9 7-12 7-23 7-23 READCS 4-1# 5-27 5-34 RWSIZE 3-16* 3-20 5-26* 5-32* 5-41 5-43* 5-51 6-1* 6-4 6-8 6-22 6-27 6-27 6-33 6-36 7-5* 7-6* 7-8* 7-9* 7-23* 7-26 SCRDNE 7-22 7-27 SCRINS 3-3# SCROUT 5-45 5-52 SCRSAV 5-40 5-52 6-2 6-36 SCRUPD 5-49 5-52 SI$RET 4-9# SI.EXA 2-37 5-3 SI.EXM 2-34 3-5 5-13 SI.EXT 2-32 5-11 SI.INS 2-41 4-18 5-22 SCRINS SCOPE "WATCH" INSERT PR MACRO V05.03c Monday 16-Sep-85 14:55 Page S-2 Cross reference table (CREF V05.03a) SI.NST 2-38 SI.NUP 2-36 4-5 5-28 6-29 SI.OK 2-31 4-5 5-22 5-28 5-31 SI.OKS 2-40 5-31 5-38 6-6 SI.UC 2-33 5-19 SP 1-21# 3-3* 3-17* 3-18* 4-2 4-5 4-15 4-18* 4-19* 4-20 4-21* 4-23 5-2 5-3 5-11 5-13 5-19 5-22* 5-23* 5-28 5-31* 5-38 5-44* 5-45* 6-1 SPACE 1-30# 5-7 6-25 7-10 TAB 1-27# 5-9 6-10 TLISTN 4-8 4-26 TOPDOT 5-41 5-52 TXSTOR 6-12 6-17 6-36 TYPEBF 7-7 7-17 7-21 7-26 UPPERC 5-21 5-51 ZZ 6-15 6-36