SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Table of contents 1- 5 INTERACTIVE SCOPE SCROLLER FOR TECO "WATCH" 1- 11 GENERAL PDP-11 DEFINITIONS 1- 24 ASCII CHARACTER DEFINITIONS 2- 1 SCOPE "WATCH" ROUTINE MODIFIED FOR SCROLLING 3- 1 HANDLE W COMMANDS (SCOPE UPDATE) MODIFIED FOR SCROLLING 4- 1 START PROCESSING A SCROLLING CALL 5- 1 PROCESS A PARAMETER READ/WRITE CALL 6- 1 INITIALIZE THE SCOPE 7- 1 DO A SCREEN UPDATE, FIX UP CURSOR CHARACTER AND SCROLLED REGION SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 1 1 .TITLE SCROLL INTERACTIVE SCOPE SCROLLER FOR TECO "WATCH" 2 .NLIST TTM 3 .LIST TOC,MEB,BEX 4 .DSABL REG,GBL,LC 5 .SBTTL INTERACTIVE SCOPE SCROLLER FOR TECO "WATCH" 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 000040 SPACE = 040 ;ASCII SPACE SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 2 SCOPE "WATCH" ROUTINE MODIFIED FOR SCROLLING 1 .SBTTL SCOPE "WATCH" ROUTINE MODIFIED FOR SCROLLING 2 3 ;+ 4 ; SCREEN - SCOPE "WATCH" ROUTINE MODIFIED FOR SCROLLING. 5 ; 6 ; IF NFLG(R5) >= 0 THEN "W" COMMAND 7 ; 8 ; R0 = N OF "NW" IF "NW" 9 ; NWATCH(R5) IF "W" 10 ; 11 ; JSR PC,SCREEN 12 ; 13 ; IF NFLG(R5) < 0 THEN ":W" COMMAND 14 ; 15 ; R0 = N OF "N:W" OR "M,N:W" 16 ; 17 ; IF CFLG(R5) <> -1 THEN "N:W" COMMAND 18 ; 19 ; IF CFLG(R5) = -1 THEN "M,N:W" COMMAND 20 ; 21 ; M(R5) = M OF "M,N:W" 22 ; 23 ; JSR PC,SCREEN 24 ; 25 ; R0 = RETURNED VALUE 26 ;- 27 28 000000 .PSECT SCREEN,RO,I,GBL,REL,OVR 29 30 .ENABL LSB 31 32 000000 032765 000000G 000000G SCREEN: BIT #ET$IAS,ETYPE(R5) ;IS THE SCOPE AVAILABLE? 33 000006 001432 BEQ 20$ ;NOPE, QUICKLY EXIT... 34 000010 005765 000000G TST NFLG(R5) ;WHAT KIND OF CALL IS THIS? 35 000014 100003 BPL 10$ ;"W" COMMAND, GO PROCESS IT 36 000016 012746 000114' MOV #DOPARM,-(SP) ;":W" COMMAND, GO OFF TO PARAMETER HANDLING 37 000022 000434 BR 50$ ; AFTER LOADING THE DUMB OVERLAY... 38 39 .GLOBL ET$IAS, ETYPE, NFLG SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 3 HANDLE W COMMANDS (SCOPE UPDATE) MODIFIED FOR SCROLLING 1 .SBTTL HANDLE W COMMANDS (SCOPE UPDATE) MODIFIED FOR SCROLLING 2 3 ;+ 4 ; HANDLE W COMMANDS (SCOPE UPDATE) MODIFIED FOR SCROLLING. 5 ; 6 ; W UPDATE SCOPE SCREEN LESS SCROLLED LINES IF SCROLLING; ELSE NOP 7 ; 0W SET DEFAULT CURSOR LINE; FORGET EVERYTHING 8 ; +NW SET CURSOR LINE TO N; FORGET EVERYTHING 9 ; -1W UPDATE SCOPE SCREEN LESS SCROLLED LINES IF SCROLLING 10 ; -NW FORGET TOP N-1 LINES OF SCREEN 11 ; -1000W FORGET THAT OUTPUT WAS DONE 12 ;- 13 14 000024 005700 10$: TST R0 ;CHECK OUT THE ARGUMENT'S SIGN 15 000026 100423 BMI 30$ ;ARG <0, GO PROCESS A REAL CALL 16 000030 020065 000000G CMP R0,NWATCH(R5) ;ARG >=0, IS IT THE DEFAULT VALUE? 17 000034 001431 BEQ 60$ ;IT'S THE DEFAULT, CALL SCROLLER IF ACTIVE 18 000036 005700 TST R0 ;NOT THE DEFAULT, IS ARG=0? 19 000040 001002 BNE FORGET ;NON-ZERO, NON-DEFAULT => FORGET EVERYTHING 20 000042 004767 000056 JSR PC,70$ ;ZERO, NON-DEFAULT => CALL SCROLLER IF ACTIVE 21 000046 005065 000000C FORGET: CLR INITFL+RWSIZE(R5) ;FORGET THE ENTIRE SCREEN 22 000052 005065 000000C CLR MRKFLG+RWSIZE(R5) ;CLEAR ANY SET "MARK" 23 000056 005065 000000C CLR TOPDOT+RWSIZE(R5) ;CLEAR LAST STARTING POSITION 24 000062 012765 000040 000000C MOV #SPACE,SEEALL+RWSIZE(R5) ;RESET "SEEING ALL" FLAG 25 000070 005065 000000C CLR HLDFLG+RWSIZE(R5) ;RESET "HOLD SCREEN" FLAG 26 000074 000207 20$: RTS PC ;EXIT 27 28 000076 020027 177777 30$: CMP R0,#-1 ;IS THIS A NORMAL SCOPE UPDATE CALL? 29 000102 001002 BNE 40$ ;NOPE, A "FORGET" TYPE CALL 30 000104 004767 000014 JSR PC,70$ ;YEP, CHECK FOR CALLING THE SCROLLER 31 000110 012746 000000G 40$: MOV #SCRUPD,-(SP) ;SET TO PROCESS A REAL CALL 32 000114 000167 000000G 50$: JMP SCRLOD ;GO LOAD THE DUMB OVERLAY... 33 34 000120 012746 000074' 60$: MOV #20$,-(SP) ;JUST EXIT IF THE SCROLLER'S NOT ACTIVE 35 000124 005765 000000C 70$: TST SCROLN+RWSIZE(R5) ;IS THE SCROLLER ACTIVE? 36 000130 001761 BEQ 20$ ;NOPE, JUST EXIT 37 000132 012716 000000' MOV #DOSCRL,(SP) ;YEP, CLOBBER EXIT WITH SCROLLER CALL 38 000136 000766 BR 50$ ; AFTER LOADING THE DUMB OVERLAY... 39 40 .DSABL LSB 41 42 .GLOBL NWATCH, INITFL, RWSIZE, MRKFLG, TOPDOT 43 .GLOBL SEEALL, HLDFLG, SCRUPD, SCRLOD, SCROLN SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 4 START PROCESSING A SCROLLING CALL 1 .SBTTL START PROCESSING A SCROLLING CALL 2 3 000000 .PSECT SCRSUB,RO,I,GBL,REL,CON 4 5 000000 020065 000000G DOSCRL: CMP R0,NWATCH(R5) ;IS THE ARGUMENT THE DEFAULT? 6 000004 001402 BEQ 10$ ;YES, DO A SCROLLING STYLE SCREEN UPDATE 7 000006 005700 TST R0 ;NO, IS THIS A TRAPPED "-1W" CALL? 8 000010 100013 BPL 20$ ;NOT THAT, MUST BE EXPLICIT "0W" 9 000012 004767 000050 10$: JSR PC,30$ ;GO DO THE INITIAL SET UP 10 000016 004767 000360 JSR PC,DOUPDT ;GO DO A SCOPE UPDATE, FIX CURSOR, ETC. 11 000022 016566 000000G 000006G MOV NWATCH(R5),R0OFF+6(SP) ;RESTORE ORIGINAL CALLING ARGUMENT 12 000030 012703 000000G MOV #RESCUR,R3 ;SET SEQUENCE TO RESTORE CURSOR 13 000034 000167 000000G JMP DOTYPE ; AND GO DO IT & EXIT 14 15 000040 012700 000007 20$: MOV #7,R0 ;SET SCROLLED REGION PARAMETER ACTION (+7) 16 000044 012765 177777 000000G MOV #-1,CFLG(R5) ;SAY WE'RE CHANGING THE SCROLLED REGION 17 000052 005065 000000G CLR M(R5) ; AND IT WILL BECOME ZERO (I.E., TURNED OFF) 18 000056 004767 000032 JSR PC,DOPARM ;GO DO THE PARAMETER ALTERATIONS 19 ;CLR R0 ;(RE-)SET THE CALLING ARGUMENT 20 000062 000167 000046' JMP FORGET ; THEN FORGET EVERYTHING & EXIT 21 22 000066 004767 000242 30$: JSR PC,SCRINI ;SET THE SCOPE UP, ETC. 23 000072 012703 000000G MOV #SAVCUR,R3 ;SET SEQUENCE TO SAVE THE CURSOR 24 000076 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 25 000102 016502 000000C SETNON: MOV VTSIZE+RWSIZE(R5),R2 ;GET NON-SCROLLED SCREEN SIZE 26 000106 005001 CLR R1 ; AND START IT AT THE TOP 27 000110 000167 000000G JMP SETSCR ;GO SET THE SCROLLING REGION & EXIT 28 29 .GLOBL NWATCH, R0OFF, RESCUR, DOTYPE, CFLG 30 .GLOBL M, SAVCUR, VTSIZE, RWSIZE, SETSCR SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 5 PROCESS A PARAMETER READ/WRITE CALL 1 .SBTTL PROCESS A PARAMETER READ/WRITE CALL 2 3 000114 005765 000000G DOPARM: TST CFLG(R5) ;IS THIS CALL TO ALTER ANYTHING? 4 000120 100054 BPL 20$ ;NO, JUST READING, IT'S ALWAYS O.K. 5 000122 020027 000007 CMP R0,#7 ;IS CALL FOR SCROLLING REGION (+7)? 6 000126 001051 BNE 20$ ;NOPE 7 000130 016546 000000G MOV M(R5),-(SP) ;SAVE NEW SCROLLED REGION SIZE 8 000134 021665 000000C CMP (SP),SCROLN+RWSIZE(R5) ;IS THIS CALL REALLY CHANGING ANYTHING? 9 000140 001437 BEQ 10$ ;NOPE, JUST GO READ THE OLD VALUE... 10 000142 021627 000001 CMP (SP),#1 ;IS THE NEW SIZE ONE? 11 000146 001434 BEQ 10$ ;YEP, THAT'S AN ERROR 12 000150 016500 000000G MOV CRTYPE(R5),R0 ;GET THE SCOPE TYPE 13 000154 127027 000000G 000200 CMPB @CONSEQ(R0),#200 ;DOES THE FEATURE EXIST? 14 000162 001426 BEQ 10$ ;NOPE, WE CAN'T DO IT 15 000164 016500 000000C MOV VTSIZE+RWSIZE(R5),R0 ;GET CURRENT SCREEN HEIGHT 16 000170 066500 000000C ADD SCROLN+RWSIZE(R5),R0 ; AND FORM REAL TOTAL SCREEN HEIGHT 17 000174 161600 SUB (SP),R0 ;FIND NEW NON-SCROLLED SIZE 18 000176 010065 000000G MOV R0,M(R5) ;SET NEW SIZE FOR NON-SCROLLED AREA 19 000202 012700 000002 MOV #2,R0 ;THE CALLING ARGUMENT IS 2 FOR HEIGHT CHANGE 20 000206 004767 000000G JSR PC,SCRPRM ;NOW GO CHANGE THE SCREEN'S HEIGHT 21 000212 020065 000000G CMP R0,M(R5) ;DID WE GET WHAT WE ASKED FOR? 22 000216 001010 BNE 10$ ;NOPE 23 000220 011665 000000C MOV (SP),SCROLN+RWSIZE(R5) ;YEP, SO SET THE NEW SCROLLED SIZE 24 000224 004767 000026 JSR PC,30$ ;GO SET UP THE SCREEN 25 000230 005716 TST (SP) ;IS THE SCROLLED REGION NOW OFF? 26 000232 001402 BEQ 10$ ;YEP, WE'RE DONE... 27 000234 004767 000036 JSR PC,40$ ;NOPE, DO A SCREEN UPDATE 28 000240 005726 10$: TST (SP)+ ;POP SAVED NEW SCROLLING REGION SIZE 29 000242 012700 000007 MOV #7,R0 ;RESTORE CALLING ARGUMENT 30 000246 005065 000000G CLR CFLG(R5) ; AND INDICATE A READ PARAMETER CALL 31 000252 000167 000000G 20$: JMP SCRPRM ;GO OFF TO REAL PARAMETER HANDLING 32 33 000256 004767 000052 30$: JSR PC,SCRINI ;SET THE SCOPE UP, ETC. 34 000262 004767 177614 JSR PC,SETNON ;GO SET NON-SCROLLED AREA 35 000266 005765 000000C TST SCROLN+RWSIZE(R5) ;DID WE REALLY TURN OFF THE SCROLLER? 36 000272 001403 BEQ SCREOS ;IT'S NOW OFF, POSITION TO SCREEN'S BOTTOM 37 000274 000207 RTS PC ;IT'S NOW ON, JUST EXIT 38 39 000276 004767 000100 40$: JSR PC,DOUPDT ;GO DO A SCOPE UPDATE, FIX CURSOR, ETC. 40 000302 016500 000000C SCREOS::MOV VTSIZ1+RWSIZE(R5),R0 ;WE WANT THE LAST LINE (ROW) OF SCREEN 41 000306 066500 000000C ADD SCROLN+RWSIZE(R5),R0 ; WHICH IS BOTH SIZES ADDED TOGETHER 42 000312 005002 CLR R2 ;WE ALSO WANT THE LEFT HAND MARGIN 43 000314 012765 176030 000000C MOV #-1000.,PRELIN+RWSIZE(R5) ;ENSURE USE OF 44 000322 012765 176030 000000C MOV #-1000.,PRECOL+RWSIZE(R5) ; DIRECT CURSOR ADDRESSING 45 000330 000167 000000G JMP DIRECT ;MOVE THE CURSOR TO THERE & EXIT 46 47 .GLOBL CFLG, CRTYPE, CONSEQ, VTSIZE, RWSIZE, SCROLN 48 .GLOBL M, SCRPRM, VTSIZ1, PRELIN, PRECOL, DIRECT SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 6 INITIALIZE THE SCOPE 1 .SBTTL INITIALIZE THE SCOPE 2 3 ;+ 4 ; SCRINI - INITIALIZE THE SCOPE. 5 ; 6 ; JSR PC,SCRINI 7 ; 8 ; R0 = UNDEFINED 9 ; R1 = UNDEFINED 10 ; R2 = UNDEFINED 11 ; R3 = UNDEFINED 12 ; R4 = UNDEFINED 13 ; SP -> FORCE I/O, CLEAN UP, SAVED "ET", 'SAVREG' SAVED REGISTERS... 14 ; W/ SAVED R0 UNDEFINED 15 ;- 16 17 000334 012600 SCRINI: MOV (SP)+,R0 ;MOVE THE REAL RETURN ADDRESS TO R0 18 000336 004067 000000G JSR R0,SCRSAV ;SAVE REGISTERS, SET CLEAN UP, ETC. 19 000342 012746 000000G MOV #SCRDNE,-(SP) ; THEN SET RETURN TO FORCE OUT I/O 20 000346 004767 000000G JSR PC,NOCTLO ;CANCEL ANY CONTROL/O EFFECT 21 000352 005765 000000C TST INITFL+RWSIZE(R5) ;KNOWN SCREEN STATE? 22 000356 100407 BMI 10$ ;YEP 23 000360 012703 000000G MOV #FIXSEQ,R3 ;NOPE, SET SEQUENCE TO FIX UP TERMINAL 24 000364 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 25 000370 012765 177776 000000C MOV #-2,INITFL+RWSIZE(R5) ;STILL UNKNOWN, BUT ALL FIXED NOW 26 000376 000176 000006G 10$: JMP @R0OFF+6(SP) ;TAKE AN EXIT... 27 28 .GLOBL SCRSAV, SCRDNE, NOCTLO, INITFL, RWSIZE, FIXSEQ, DOTYPE, R0OFF SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 7 DO A SCREEN UPDATE, FIX UP CURSOR CHARACTER AND SCROLLED REGIO 1 .SBTTL DO A SCREEN UPDATE, FIX UP CURSOR CHARACTER AND SCROLLED REGION 2 3 ;+ 4 ; DOUPDT - DO A SCREEN UPDATE, FIX UP CURSOR CHARACTER AND SCROLLED REGION. 5 ; 6 ; JSR PC,DOUPDT 7 ; 8 ; R0 = UNDEFINED 9 ; R1 = UNDEFINED 10 ; R2 = UNDEFINED 11 ; R3 = UNDEFINED 12 ; R4 = UNDEFINED 13 ; SP -> FORCE I/O, CLEAN UP, SAVED "ET", 'SAVREG' SAVED REGISTERS... 14 ; W/ SAVED R0 UNDEFINED 15 ;- 16 17 000402 012700 177777 DOUPDT: MOV #-1,R0 ;SET ARGUMENT TO DO A SCOPE UPDATE 18 000406 004767 000000G JSR PC,SCRUPD ; AND GO DO IT 19 000412 012600 MOV (SP)+,R0 ;MOVE THE REAL RETURN ADDRESS TO R0 20 000414 004067 000000G JSR R0,SCRSAV ;SAVE REGISTERS, SET CLEAN UP, ETC. 21 000420 012746 000000G MOV #SCRDNE,-(SP) ; THEN SET RETURN TO FORCE OUT I/O 22 000424 005765 000000G TST TFLG(R5) ;DID THE "STOP SOON" (CONTROL/C) FLAG COME ON? 23 000430 100002 BPL 10$ ;NOPE 24 000432 005065 000000C CLR INITFL+RWSIZE(R5) ;YEP, FORGET WHAT'S ON THE SCREEN... 25 000436 004767 000000G 10$: JSR PC,NOCTLO ;ENSURE CONTROL/O IS TURNED OFF 26 000442 016501 000000C MOV CURABS+RWSIZE(R5),R1 ;DID WE FIND THE CURSOR? 27 000446 001442 BEQ 40$ ;NOPE 28 000450 012703 000000G MOV #CONSEQ,R3 ;SET SEQUENCE FOR CURSOR DISPLAY ON 29 000454 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 30 000460 111100 MOVB (R1),R0 ;GET CHARACTER UNDER THE CURSOR 31 000462 100006 BPL 20$ ;NOT WITHIN THE MARK'D REGION 32 000464 042700 177600 BIC #^C<177>,R0 ;WITHIN MARK'D REGION, TRIM OFF THE INDICATION 33 000470 012703 000000G MOV #MONSEQ,R3 ;SET SEQUENCE FOR MARK ON 34 000474 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 35 000500 020027 000040 20$: CMP R0,#SPACE ;IS CURSOR CHARACTER A SPECIAL GRAPHIC SYMBOL? 36 000504 103011 BHIS 30$ ;NOPE 37 000506 016503 000000G MOV CRTYPE(R5),R3 ;YEP, GET THE SCOPE TYPE 38 000512 066300 000000G ADD GRPTBL(R3),R0 ;FIND INDEX INTO CORRECT SYMBOL TABLE 39 000516 114000 MOVB -(R0),R0 ;GET CORRECT GRAPHICS CHARACTER 40 000520 012703 000000G MOV #GONSEQ,R3 ;SET SEQUENCE FOR GRAPHICS ON 41 000524 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 42 000530 004767 000000G 30$: JSR PC,TYPEBF ;NOW (RE-)OUTPUT THE CURSOR CHARACTER 43 000534 012703 000000G MOV #COFSEQ,R3 ;SET SEQUENCE FOR CURSOR DISPLAY OFF 44 000540 004767 000000G JSR PC,DOTYPE ; AND GO DO IT 45 000544 042701 000001 BIC #1,R1 ;MAKE THE SCREEN MAP POINTER EVEN 46 000550 012711 MOV (PC)+,(R1) ; AND "FORGET" CHARACTER(S) UNDER CURSOR 47 000552 200 200 .BYTE 200,200 48 000554 016502 000000C 40$: MOV SCROLN+RWSIZE(R5),R2 ;SET SCROLLED REGION SIZE 49 000560 016501 000000C MOV VTSIZE+RWSIZE(R5),R1 ; AND START IT AFTER NON-SCROLLED AREA 50 000564 004767 000000G JSR PC,SETSCR ;GO SET THE SCROLLING REGION 51 000570 000176 000006G JMP @R0OFF+6(SP) ;TAKE AN EXIT... 52 53 .GLOBL SCRUPD, SCRSAV, SCRDNE, TFLG, INITFL, RWSIZE, NOCTLO 54 .GLOBL CURABS, CONSEQ, DOTYPE, MONSEQ, CRTYPE, GRPTBL, GONSEQ 55 .GLOBL TYPEBF, COFSEQ, SCROLN, VTSIZE, SETSCR, R0OFF 56 57 000001 .END SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page 7-1 Symbol table CFLG = ****** G FIXSEQ= ****** G NWATCH= ****** G R4 =%000004 SCRUPD= ****** G COFSEQ= ****** G FORGET 000046R 002 PC =%000007 R5 =%000005 SEEALL= ****** G CONSEQ= ****** G GONSEQ= ****** G PRECOL= ****** G SAVCUR= ****** G SETNON 000102R 003 CRTYPE= ****** G GRPTBL= ****** G PRELIN= ****** G SCRDNE= ****** G SETSCR= ****** G CURABS= ****** G HLDFLG= ****** G RESCUR= ****** G SCREEN 000000R 002 SP =%000006 DIRECT= ****** G INITFL= ****** G RWSIZE= ****** G SCREOS 000302RG 003 SPACE = 000040 DOPARM 000114R 003 M = ****** G R0 =%000000 SCRINI 000334R 003 TFLG = ****** G DOSCRL 000000R 003 MONSEQ= ****** G R0OFF = ****** G SCRLOD= ****** G TOPDOT= ****** G DOTYPE= ****** G MRKFLG= ****** G R1 =%000001 SCROLN= ****** G TYPEBF= ****** G DOUPDT 000402R 003 NFLG = ****** G R2 =%000002 SCRPRM= ****** G VTSIZE= ****** G ETYPE = ****** G NOCTLO= ****** G R3 =%000003 SCRSAV= ****** G VTSIZ1= ****** G ET$IAS= ****** G . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000000 001 (RW,I,LCL,REL,CON) SCREEN 000140 002 (RO,I,GBL,REL,OVR) SCRSUB 000574 003 (RO,I,GBL,REL,CON) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 75 Words ( 1 Pages) Size of core pool: 16896 Words ( 66 Pages) Operating system: RT-11 (Under RSTS/E) Elapsed time: 00:00:15.13 OBJ:SCROLL,LST:SCROLL/C=MAC:SCROLL SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page S-1 Cross reference table (CREF V05.03a) CFLG 4-16* 4-29 5-3 5-30* 5-47 COFSEQ 7-43 7-55 CONSEQ 5-13 5-47 7-28 7-54 CRTYPE 5-12 5-47 7-37 7-54 CURABS 7-26 7-54 DIRECT 5-45 5-48 DOPARM 2-36 4-18 5-3# DOSCRL 3-37 4-5# DOTYPE 4-13 4-24 4-29 6-24 6-28 7-29 7-34 7-41 7-44 7-54 DOUPDT 4-10 5-39 7-17# ET$IAS 2-32 2-39 ETYPE 2-32 2-39 FIXSEQ 6-23 6-28 FORGET 3-19 3-21# 4-20 GONSEQ 7-40 7-54 GRPTBL 7-38 7-54 HLDFLG 3-25* 3-43 INITFL 3-21* 3-42 6-21 6-25* 6-28 7-24* 7-53 M 4-17* 4-30 5-7 5-18* 5-21 5-48 MONSEQ 7-33 7-54 MRKFLG 3-22* 3-42 NFLG 2-34 2-39 NOCTLO 6-20 6-28 7-25 7-53 NWATCH 3-16 3-42 4-5 4-11 4-29 PC 1-22# 3-20* 3-26* 3-30* 4-9* 4-10* 4-18* 4-22* 4-24* 5-20* 5-24* 5-27* 5-33* 5-34* 5-37* 5-39* 6-20* 6-24* 7-18* 7-25* 7-29* 7-34* 7-41* 7-42* 7-44* 7-46 7-50* PRECOL 5-44* 5-48 PRELIN 5-43* 5-48 R0 1-15# 3-14 3-16 3-18 3-28 4-5 4-7 4-15* 5-5 5-12* 5-13 5-15* 5-16* 5-17* 5-18 5-19* 5-21 5-29* 5-40* 5-41* 6-17* 6-18* 7-17* 7-19* 7-20* 7-30* 7-32* 7-35 7-38* 7-39 7-39* R0OFF 4-11* 4-29 6-26 6-28 7-51 7-55 R1 1-16# 4-26* 7-26* 7-30 7-45* 7-46* 7-49* R2 1-17# 4-25* 5-42* 7-48* R3 1-18# 4-12* 4-23* 6-23* 7-28* 7-33* 7-37* 7-38 7-40* 7-43* R4 1-19# R5 1-20# 2-32 2-34 3-16 3-21 3-22 3-23 3-24 3-25 3-35 4-5 4-11 4-16 4-17 4-25 5-3 5-7 5-8 5-12 5-15 5-16 5-18 5-21 5-23 5-30 5-35 5-40 5-41 5-43 5-44 6-21 6-25 7-22 7-24 7-26 7-37 7-48 7-49 RESCUR 4-12 4-29 RWSIZE 3-21* 3-22* 3-23* 3-24* 3-25* 3-35 3-42 4-25 4-30 5-8 5-15 5-16 5-23* 5-35 5-40 5-41 5-43* 5-44* 5-47 6-21 6-25* 6-28 7-24* 7-26 7-48 7-49 7-53 SAVCUR 4-23 4-30 SCRDNE 6-19 6-28 7-21 7-53 SCREEN 2-32# SCREOS 5-36 5-40# SCRINI 4-22 5-33 6-17# SCRLOD 3-32 3-43 SCROLN 3-35 3-43 5-8 5-16 5-23* 5-35 5-41 5-47 7-48 7-55 SCRPRM 5-20 5-31 5-48 SCRSAV 6-18 6-28 7-20 7-53 SCRUPD 3-31 3-43 7-18 7-53 SEEALL 3-24* 3-43 SCROLL INTERACTIVE SCOPE SCROL MACRO V05.03c Monday 16-Sep-85 14:55 Page S-2 Cross reference table (CREF V05.03a) SETNON 4-25# 5-34 SETSCR 4-27 4-30 7-50 7-55 SP 1-21# 2-36* 3-31* 3-34* 3-37* 4-11 5-7* 5-8 5-10 5-17 5-23 5-25 5-28 6-17 6-19* 6-26 7-19 7-21* 7-51 SPACE 1-26# 3-24 7-35 TFLG 7-22 7-53 TOPDOT 3-23* 3-42 TYPEBF 7-42 7-55 VTSIZ1 5-40 5-48 VTSIZE 4-25 4-30 5-15 5-47 7-49 7-55