e _vߋt ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM *** VOL1D%B000HDR100010000000100 00000 00000 000000DECFILE11AEOF14444444444324410 P0 fwd%MS \ 5Bw56wU &w  P "b9)) VBEǁ  3   10ާÝ 35 w  Z)P N/ Bˋ (w` &AUTOPATCHE2_`13MAY81160547AUTOPATCHE2 [001,001] DECFILE11A : N*;0f* : :* W:0f* I:* ;0f* 8q*8y*Z*8q*8K*:"N*u~h*y*Z y(*:":*Z*;2f*X*:#:*8q* d   [   .TITLE $IQULT .IDENT /57RXA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; $BOUTP;; OLD CS = 150105; COR CS = 005600;<; CORRUPTION OF DATA MAY OCCUR DUE TO GETS TO A VIRTUAL FILE;;-$PC=. .=$PC+540( .WORD 10 ; SUBTRACT 8. FOR VIR HEADER .END .TITLE $IVOPN .IDENT /54RXA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; $BOP;; OLD CS = 1112270; COR CS = 0055370;2; ERRONEOUS MOVE OVERFLOW BUFFER MAY OCCUR DUE TO; BAD ALLOCATION OF VIRT HDR;P;-$PC=.O .=$PC+200U .WORD 10 ; SAVE 8. NOT 6N .END .TITLE $IQKIL .IDENT /04RXA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; KIL$;; OLD CS = 0410030; COR CS = 0071500;6; KILL MAY FAIL WITH RMS ERROR -1136 WHEN PRECEDED BY ; ORG UNDEFINED OPEN;R;-$PC=.P.=$PC+70 CALL PATCHD .=$PC+152EPATCH: CLR 34(R5) ; CLR XAB CLR 26(R5) ; PATCH, CLEARS FOP RETURN .END .TITLE $IMOPN .IDENT /62CMA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; $BSHO1;; OLD CS = 176335; COR CS = 011424;,; ORGANIZATION UNDEFINED OPEN MAY FAIL WITH ; 'ATTRIBUTES NOT MATCHED' ERROR;-;-$PC=.= .=$PC+610L JMP PATCH .=$PC+1330%PATCH: MOV 10(R5),6(R0) ; CONNECT IFI  CMPB #5,1(R4) ; ORG UNDEF? BEQ 1$ ; YES JMP $PC+616 ; NO, GO BACK1$: RETURN ; RET TO IROPN .END .TITLE $IMATR .IDENT /05RXA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; $MATR1;; OLD CS = 040472; COR CS = 006635;*; OPEN MAY FAIL FOR ORGANIZATION UNDEFINED;;-$PC=.E.=$PC+16 .WORD 112765 .WORD 42 .=$PC+102 .WORD 122765P .WORD 0 .ENDV 10(R5),6(R0) ; CONNECT IFI  CMPB #5,1(R4) ; ORG UNDEF? BEQ 1$ ; YES JMP $PC+616 ; NO, GO BACK1$: RETURN ; RET TO IROPN .END .TITLE $IROPN .IDENT /24CMA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;+;; $ROPN1;; OLD CS = 064420; COR CS = 010520;8; RELATIVE OPEN MAY FAIL WHEN OPENING THE FILE FOR INPUT#; AND TAKING THE DEFAULT BUCKETSIZE4;;-$PC=..=$PC+44 JMP PATCH .=$PC+4021PATCH: MOV #512.,R3  CMPB #1,(R4) ; FOR OUTPUT ?F BEQ 1$ ; YES JMP $PC+134 ; NO, SO SKIPC1$: JMP $PC+56 ; CONTINUE ON .END .TITLE $ICPRG .IDENT /43CMA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;;PUS$A;1; OLD CS = 1203254; COR CS = 0107340;,; SEQUENTIAL OPEN PRECEEDED BY A PRINT USING.; MAY FAIL WITH 'ATTRIBUTES NOT MATCHED' ERROR;Z$PC=. .=$PC+3030 JMP PATCHP .=$PC+3346PATCH: MOV 50(R5),-(SP) CLR 50(R5) JMP $PC+3034 .ENDBEQ 1$ ; YES JMP $PC+134 ; NO, SO SKIPC1$: JMP $PC+56 ; CONTINUE ON .END .TITLE $ICFSS .IDENT /25RXA/ .PSECT BP2OTS,RW,I,LCL,REL,CON;;P;A; OLD CS = 70233; COR CS = 6347=;0D; FSS$ MAY FAIL WITH ODD ADDRESS TRAP WHEN A LONG STRING IS SUPPLIED$PC=.I .=$PC+202A MOV #108.,R0 .END .=$PC+3030 JMP PATCHP .=$PC+3346PATCH: MOV 50(R5),-(SP) CLR 50(R5) JMP $PC+3034 .ENDBEQ 1$ ; YES JMP $PC+134 ; NO, SO SKIPC1$: JMP $PC+56 ; CONTINUE ON .END .TITLE $ECONV .IDENT /20CMA/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+;; $ATOD ; ; OLD CS = 126072S; COR CS = 006335$;YB; INCORRECT ERROR MESSAGE IS GIVEN WHEN USING AN EXPONENTIAL VALUE; WHICH IS TO THE NINTH POWERN;;-$PC=. .=$PC+250P .WORD 101020A .ENDOV 50(R5),-(SP) CLR 50(R5) JMP $PC+3034 .ENDBEQ 1$ ; YES JMP $PC+134 ; NO, SO SKIPC1$: JMP $PC+56 ; CONTINUE ON .END .TITLE $ICPRG .IDENT /43CMA/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+; PUS$AA; OLD CS = 120325 ; COR CS = 7362 ;0%; PRINT USING WITH SPECIAL CHARACTERSS;V;-$PC=.N .=$PC+1240,2$: CMPB 12(R4),CURR ; CMPB DOLFLG(R4),CURR .=$PC+27010CURR: .ASCII /F/ ; (APPROPRIATE CURRENCY SIGN)%DECPT: .ASCII /,/ ; (DECIMAL POINT)1 .=$PC+2725 .ASCII /,/ ; (DECIMAL POINT) $T3DG: .ASCII /./ ; ("EVERY THIRD") .END .TITLE $ICFLD .IDENT /06CMA/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+; ; IFL$;L; OLD CS = 32402; NEW CS = 52170; -; FIELDING ZERO LENGTH FIELDED VARIABLES ARE P; HANDLED INCORRECTLYM; ;-$PC=. .=$PC+130L .WORD 3003 ;CHANGE BPL TO BGTA .END/ ; (APPROPRIATE CURRENCY SIGN)%DECPT: .ASCII /,/ ; (DECIMAL POINT)1 .=$PC+2725 .ASCII /,/ ; (DECIMAL POINT) $T3DG: .ASCII /./ ; ("EVERY THIRD") .END .TITLE $IQULT .IDENT /57RXB/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+; ; $BOUTP;; OLD CS = 151304 ; COR CS = 011255;I:; THIS PATCH CORRECTS AN RMS -912 ERROR WHEN ATTEMPTING TO7; DO I/O SPOOLED DEVICE OPENED FOR DEVICE SPECIFIC I/O.B;-$PC=. .=$PC+2254 CALL PATCHU .=$PC+2604 PATCH: MOV #30,R1 ;FILE ORG SEQ! BIC #100,136(R0) ; CLR TRM FLAG  RETURNL .END $T3DG: .ASCII /./ ; ("EVERY THIRD") .END .TITLE $TIMET .IDENT /08RXA/X .PSECT BP2OTS;+;C; TIM$C;+; OLD CS = 105656; COR CS = 005563;O;S*; THIS PATCH WILL CHANGE THE TIME RETURNED); BY THE TIME$() FUNCTION FROM AM/PM TIMEO; TO MILITARY TIME.R;V;-$PC=.C .=$PC+4509TIM.A: .WORD 20040 ; "AM FOR AM/PM , BLANKS FOR 24 HOUR 08TIM.P: .WORD 20040 ; "PM FOR AM/PM , BLANKS FOR 24 HOUR4TIM.12: .WORD 24. ; 12. FOR AM/PM , 24. FOR 24 HOUR .END .TITLE $STCVT .IDENT /04CMA/X .PSECT BP2OTS;+; TRM$T;C; OLD CS=1000011; COR CS=006556=;5%; FEATURE PATCH FOR EDIT$ FUNCTION TOT#; CONVERT EXTRA FOUR CHARACTERS IN N#; NON-ASCII CHARACTER SETS WITH 30 '; LETTERS TO UPPER-CASE [EDIT$(A$,32%)]:;O;-$PC=. .=$PC+306P( .WORD 176 ; PUT IN UPPER LIMIT (OCTAL) .ENDPM FOR AM/PM , BLANKS FOR 24 HOUR4TIM.12: .WORD 24. ; 12. FOR AM/PM , 24. FOR 24 HOUR .END .TITLE $BERFS .IDENT /04RXA/X .PSECT BP2OTS;+; $$ERF;C; OLD CS=0110651; COR CS=007523=;5; ); THIS OPTIONAL PATCH IS USED TO MOVE THEV'; BASIC2 ERROR FILE ON NON-RSTS SYSTEMSI'; TO AN ACCOUNT DIFFERENT THAN LB:[1,2]U;R$; NOTE: THE COR CHECKSUM WILL CHANGE; DEPENDING ON THE LOCATION I; CHOSEN FOR THE ERROR FILE;O;-$PC=.L .WORD 0 ; UNIT - 02 .ASCII /LB/ ; DEVICE - LB# .RAD50 /001002/ ; DIRECTORY - 1,2( .RAD50 /BASIC2ERR/ ; FILE - BASIC2.ERR .END .TITLE $IQKIL .IDENT /04RXB/X .PSECT BP2OTS,RW,I,LCL,REL,CONC ;+L ; ; KIL$ ; ; OLD CS = 43573  ; COR CS = 13150A ;7 ; KILL INCONJUNCTION WITH UNLOCK COULD PRODUCE AN ODD T ; ADDRESS TRAP ERRORI ; ;-H $PC=. .=$PC+44  CALL PATCHB .=$PC+162.PATCHB: CALL $BALCM ;ALLOCATE RMS I/O BUFFER5 JMP $RTBF1 ;GIVE IT TO RMS WHO WILL RETURN IN LINE  .ENDASCII /LB/ ; DEVICE - LB# .RAD50 /001002/ ; DIRECTORY - 1,2( .RAD50 /BASIC2ERR/ ; FILE - BASIC2.ERR .END .TITLE $ECONV .IDENT /20CMB/X .PSECT BP2OTS;+;C; $ATODC; OLD CS = 127722; COR CS = 0135573; "; THIS PATCH MAKES NUMBERS OF THE ; FORM 12E 20 LEGALC;O;-$PC=. .=$PC+230; JMP PATCH ; GO TO PATCH SPACE$ .=$PC+2340"PATCH: CMPB R5,#'- ; MINUS SIGN ? BEQ 23$ ; YESM CMPB R5,#40 ; SPACE ?R BEQ 24$ ; YESG% JMP $PC+236 ; NONE, CHECK FOR DIGIT)24$: MOVB #'+,(R2) ; SPACE FOUND, ASSUME 0 ; POSITIVE EXPONENT'23$: JMP $PC+304 ; NOW CHECK FOR DIGITR .END .TITLE $IROPN .IDENT /24CMB/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+; ; $ROPN2;; OLD CS = 071053; COR CS = 011425K;N2; OPEN OF AN EXISTING RELATIVE FILE MAY FAIL WHEN /; BUCKETSIZE IS NOT 1 WITH FILE ATTRIBUTES NOT =; MATCHED ERROR.; ;-$PC=.I .=$PC+114 JMP PATCH .=$PC+424 "PATCH: BIC #511.,R3 ; REPLACE LINE CMPB #2,(R4) ; FOR INPUT?  BEQ 1$ ; YES! JMP $PC+120 ; NO SO TRY DEFAULTE1$: JMP $PC+134 ; YES, SO SKIP: .ENDC+304 ; NOW CHECK FOR DIGITR .END .TITLE $DEBUG .IDENT /40RXA/X .PSECT BP2OTS,RW,I,LCL,REL,CONC;+; ; VALTAB;; OLD CS = 103014; COR CS = 014412K;NA; LET STATEMENTS TO MAPS, COMMON, AND VIRTUAL VARIABLES MAY CAUSEI ; "?Memory management violation"; ;-$PC=.O.=$PC+60MOVTCM: .=$PC+1772 MOV PC,R2 ADD #MOVTCM-.,R2 ; GET TABLE MOV 334(R0),R3 ; GET FLAGS BIC #17777,R3 ; ADDR MODE ONLY CMP #100000,R3 ; MAP?E BEQ 5$ ; YESP CMP #20000,R3 ; COMMON BEQ 5$ ; YESH CMP #40000,R3 ; VIRT BNE 20$ ; NO # ADD #2,R2 ; IS VIRT BUMP POINTERO5$: MOV (R2),(R4)+ ; MOV ADDR BR 30$ ;  NOP20$: .=$PC+205630$: .END;NA; LET STATEMENTS TO MAPS, COMMON, AND VIRTUAL VARIABLES MAY CAUSEI ; "?Memory management violation"; ;-$PC=.O.=$PC+60MOVTCM: .=$PC+1772 MOV PC,R2 ADD #MOVTCM-.,R2 ; GET TABLE MOV 334(R0),R3 ; GET FLAGS BIC #17777,R3 ; ADDR MODE ONLY CMP #100000,R3 ; MAP?E BEQ 5$ ; YESP CMP #20000,R3 ; COMMON BEQ 5$ ; YESH CMP #40000,R3 ; VIRT BNE 2 .TITLE $IQKIL .IDENT /04RXC/T .PSECT BP2OTS,RW,I,LCL,REL,CON+;+; ; KIL$;0; OLD CS = 52304; COR CS = 13021;.3; TEMPORARY STRINGS ARE NOT CORRECTLY HANDLED WHEN ; KILLING A FILE.I; ;-$PC=.n .=$PC+106l JMP PATCHC- .=$PC+172=+PATCHC: MOV 12(R5),-(SP) ;MOV STS ON STACKD. CALL $MNIUS ;MARK THE TEMP STR NOT IN USE JMP $PC+112 .END,R3 ; ADDR MODE ONLY CMP #100000,R3 ; MAP?E BEQ 5$ ; YESP CMP #20000,R3 ; COMMON BEQ 5$ ; YESH CMP #40000,R3 ; VIRT BNE 2 .TITLE $ICPRG .IDENT /43CMC/T .PSECT BP2OTS,RW,I,LCL,REL,CON+;+; ; PUS$A;; OLD CS = 124253 ; COR CS = 6416.; 1; A PRINT USING format string with a single * or ; $ is not handled correctly.=;;-$PC=. .=$PC+2406 TST 4(R4) ;ANY CHAR LEFT BEQ $PC+2222 ;BR IF NOT .ENDCALL $MNIUS ;MARK THE TEMP STR NOT IN USE JMP $PC+112 .END,R3 ; ADDR MODE ONLY CMP #100000,R3 ; MAP?E BEQ 5$ ; YESP CMP #20000,R3 ; COMMON BEQ 5$ ; YESH CMP #40000,R3 ; VIRT BNE 2 ; BP20RT.CMD;,; COMMAND FILE TO BUILD A 8KW HISEG FOR IAS; MUST BE BUILT ON IAS; ; EDIT HISTORY0; EDIT 29-Nov-79 07:06 PM ALIGNMENT; NBP2:[304,115]BP20RT/-HD/-PI,BP2:[304,115]BP20RT/-SP/CR/MA,BP2:[304,115]BP20RT=BP2:[304,115]BP20LB/LB:$BERFSBBP2:[304,115]BP20LB/LB:$BFPERLBP2:[304,115]BP20LB/LB:$BINIT BP2:[304,115]BP20LB/LB:$BTDID,BP2:[304,115]BP20LB/LB:$CALLR0BP2:[304,115]BP20LB/LB:$CALLSP;BP2:[304,115]BP20LB/LB:$CHANGBP2:[304,115]BP20LB/LB:$DINGBP2:[304,115]BP20LB/LB:$DMOVBP2:[304,115]BP20LB/LB:$ECDFBP2:[304,115]BP20LB/LB:$CNTRLBBP2:[304,115]BP20LB/LB:$ECONVYBP2:[304,115]BP20LB/LB:$ECPYBP2:[304,115]BP20LB/LB:$EMISC3BP2:[304,115]BP20LB/LB:$ERROR1BP2:[304,115]BP20LB/LB:$FADDBP2:[304,115]BP20LB/LB:$FADDA/BP2:[304,115]BP20LB/LB:$FADDM/BP2:[304,115]BP20LB/LB:$FCMPBP2:[304,115]BP20LB/LB:$FCON1LBP2:[304,115]BP20LB/LB:$FDIVBP2:[304,115]BP20LB/LB:$FMOVBP2:[304,115]BP20LB/LB:$FMULBP2:[304,115]BP20LB/LB:$FUNC15BP2:[304,115]BP20LB/LB:$ICEOLB;BP2:[304,115]BP20LB/LB:$ICFLDBP2:[304,115]BP20LB/LB:$ICENDLBP2:[304,115]BP20LB/LB:$ICFNSLBP2:[304,115]BP20LB/LB:$ICRCLLBP2:[304,115]BP20LB/LB:$ICRDL/BP2:[304,115]BP20LB/LB:$ICRED/BP2:[304,115]BP20LB/LB:$ICRFG/BP2:[304,115]BP20LB/LB:$ICRKYBBP2:[304,115]BP20LB/LB:$ICRPTBBP2:[304,115]BP20LB/LB:$ICROPBBP2:[304,115]BP20LB/LB:$ICULT$BP2:[304,115]BP20LB/LB:$IQULT$BP2:[304,115]BP20LB/LB:$ICWRTMBP2:[304,115]BP20LB/LB:$IVVIRLBP2:[304,115]BP20LB/LB:$JADDS5BP2:[304,115]BP20LB/LB:$JCMPSBBP2:[304,115]BP20LB/LB:$JCOMPDBP2:[304,115]BP20LB/LB:$JCONVLBP2:[304,115]BP20LB/LB:$JDIVSLBP2:[304,115]BP20LB/LB:$JMISCLBP2:[304,115]BP20LB/LB:$JMOVS/BP2:[304,115]BP20LB/LB:$JMUL /BP2:[304,115]BP20LB/LB:$JNCR /BP2:[304,115]BP20LB/LB:$JNEXTBBP2:[304,115]BP20LB/LB:$JSUBSBBP2:[304,115]BP20LB/LB:$LOADSBBP2:[304,115]BP20LB/LB:$NEGAT$BP2:[304,115]BP20LB/LB:$SSCST$BP2:[304,115]BP20LB/LB:$SSDBLMBP2:[304,115]BP20LB/LB:$SSFLTLBP2:[304,115]BP20LB/LB:$SSINT5BP2:[304,115]BP20LB/LB:$SSVIRBBP2:[304,115]BP20LB/LB:$SSPTRD;BP2:[304,115]BP20LB/LB:$STARTBP2:[304,115]BP20LB/LB:$STCMPLBP2:[304,115]BP20LB/LB:$STCOSLBP2:[304,115]BP20LB/LB:$STFN1/BP2:[304,115]BP20LB/LB:$STGTA/BP2:[304,115]BP20LB/LB:$STLSS/BP2:[304,115]BP20LB/LB:$STMOSBBP2:[304,115]BP20LB/LB:$STMSCBBP2:[304,115]BP20LB/LB:$STRSSBBP2:[304,115]BP20LB/LB:$STVLD$BP2:[304,115]BP20LB/LB:$STVLF$BP2:[304,115]BP20LB/LB:$STVLIMBP2:[304,115]BP20LB/LB:$TESTSLBP2:[304,115]BP20LB/LB:$TIMEBP2:[304,115]BP20LB/LB:RQLCBBP2:[304,115]BP20LB/LB:SAVRGBP2:[304,115]BP20LB/LB:PATCH ; 999999999:;BP2:[304,115]BP20LB/LB:$DADD:BP2:[304,115]BP20LB/LB:$DCMPBP2:[304,115]BP20LB/LB:$DDIV;BP2:[304,115]BP20LB/LB:$DEXPBP2:[304,115]BP20LB/LB:$DFIX;BP2:[304,115]BP20LB/LB:$DINTB;BP2:[304,115]BP20LB/LB:$DLOGBBP2:[304,115]BP20LB/LB:$DMUL;BP2:[304,115]BP20LB/LB:$DNEXTBP2:[304,115]BP20LB/LB:$DSCALL;BP2:[304,115]BP20LB/LB:$DXDDL;BP2:[304,115]BP20LB/LB:$DXDITBP2:[304,115]BP20LB/LB:$JCON1EBP2:[304,115]BP20LB/LB:$DCON1/:6; BASE WHEN BUILDING ON IAS - PAR WHEN BUILDING ON RSX;BASE=24UNITS=0[STACK=0PPAR=BASIC2:140000:400001EXTSCT=.99998:00402P UIC=[1,1]B//B/LB:$DDIV;BP2:[304,115]BP20LB/LB:$DEXPBP2:[304,115]BP20LB/LB:$DFIX;BP2:[304,115]BP20LB/LB:$DINTB;BP2:[304,115]BP20LB/LB:$DLOGBBP2:[304,115]BP20LB/LB:$DMUL;BP2:[304,115]BP20LB/LB:$DNEXTBP2:[304,115]BP20LB/LB:$DSCALL;BP2:[304,115]BP20LB/LB:$DXDDL;BP2:[304,115]BP20LB/LB:$DXDITBP2:[304,115]BP20LB/LB:$JCON1EBP2:[304,115]BP20LB/LB:$DCON1 ; BP21RT.CMD; ,; COMMAND FILE TO BUILD A 8KW HISEG FOR IAS; MUST BE BUILT ON IASP;A; EDIT HISTORY0; EDIT 29-Nov-79 07:06 PM ALIGNMENT;VNBP2:[304,115]BP21RT/-HD/-PI,BP2:[304,115]BP21RT/-SP/CR/MA,BP2:[304,115]BP21RT=BP2:[304,115]BP21LB/LB:$BERFSPBP2:[304,115]BP21LB/LB:$BFPER2BP2:[304,115]BP21LB/LB:$BINIT0BP2:[304,115]BP21LB/LB:$BTDIDLBP2:[304,115]BP21LB/LB:$CALLR0BP2:[304,115]BP21LB/LB:$CALLS0;BP2:[304,115]BP21LB/LB:$CHANGBP2:[304,115]BP21LB/LB:$DINGBP2:[304,115]BP21LB/LB:$DMOVBP2:[304,115]BP21LB/LB:$ECDFBP2:[304,115]BP21LB/LB:$CNTRLBBP2:[304,115]BP21LB/LB:$ECONVYBP2:[304,115]BP21LB/LB:$ECPYBP2:[304,115]BP21LB/LB:$EMISC3BP2:[304,115]BP21LB/LB:$ERROR1BP2:[304,115]BP21LB/LB:$FADDBP2:[304,115]BP21LB/LB:$FADDA/BP2:[304,115]BP21LB/LB:$FADDM/BP2:[304,115]BP21LB/LB:$FCMPBP2:[304,115]BP21LB/LB:$FCON1LBP2:[304,115]BP21LB/LB:$FDIVBP2:[304,115]BP21LB/LB:$FMOVBP2:[304,115]BP21LB/LB:$FMULBP2:[304,115]BP21LB/LB:$FUNC15BP2:[304,115]BP21LB/LB:$ICEOLB;BP2:[304,115]BP21LB/LB:$ICFLDBP2:[304,115]BP21LB/LB:$ICENDLBP2:[304,115]BP21LB/LB:$ICFNSLBP2:[304,115]BP21LB/LB:$ICRCLLBP2:[304,115]BP21LB/LB:$ICRDL/BP2:[304,115]BP21LB/LB:$ICRED/BP2:[304,115]BP21LB/LB:$ICRFG/BP2:[304,115]BP21LB/LB:$ICRKYBBP2:[304,115]BP21LB/LB:$ICRPTBBP2:[304,115]BP21LB/LB:$ICROPBBP2:[304,115]BP21LB/LB:$ICULT$BP2:[304,115]BP21LB/LB:$IQULT$BP2:[304,115]BP21LB/LB:$ICWRTMBP2:[304,115]BP21LB/LB:$IVVIRLBP2:[304,115]BP21LB/LB:$JADDS5BP2:[304,115]BP21LB/LB:$JCMPSBBP2:[304,115]BP21LB/LB:$JCOMPDBP2:[304,115]BP21LB/LB:$JCONVLBP2:[304,115]BP21LB/LB:$JDIVSLBP2:[304,115]BP21LB/LB:$JMISCLBP2:[304,115]BP21LB/LB:$JMOVS/BP2:[304,115]BP21LB/LB:$JMUL /BP2:[304,115]BP21LB/LB:$JNCR /BP2:[304,115]BP21LB/LB:$JNEXTBBP2:[304,115]BP21LB/LB:$JSUBSBBP2:[304,115]BP21LB/LB:$LOADSBBP2:[304,115]BP21LB/LB:$NEGAT$BP2:[304,115]BP21LB/LB:$SSCST$BP2:[304,115]BP21LB/LB:$SSDBLMBP2:[304,115]BP21LB/LB:$SSFLTLBP2:[304,115]BP21LB/LB:$SSINT5BP2:[304,115]BP21LB/LB:$SSVIRBBP2:[304,115]BP21LB/LB:$SSPTRD;BP2:[304,115]BP21LB/LB:$STARTBP2:[304,115]BP21LB/LB:$STCMPLBP2:[304,115]BP21LB/LB:$STCOSLBP2:[304,115]BP21LB/LB:$STFN1/BP2:[304,115]BP21LB/LB:$STGTA/BP2:[304,115]BP21LB/LB:$STLSS/BP2:[304,115]BP21LB/LB:$STMOSBBP2:[304,115]BP21LB/LB:$STMSCBBP2:[304,115]BP21LB/LB:$STRSSBBP2:[304,115]BP21LB/LB:$STVLD$BP2:[304,115]BP21LB/LB:$STVLF$BP2:[304,115]BP21LB/LB:$STVLIMBP2:[304,115]BP21LB/LB:$TESTSLBP2:[304,115]BP21LB/LB:$TIMEBP2:[304,115]BP21LB/LB:RQLCBBP2:[304,115]BP21LB/LB:SAVRGBP2:[304,115]BP21LB/LB:PATCH ; 999999999:BP2:[304,115]BP21LB/LB:$DADDBP2:[304,115]BP21LB/LB:$DCMPBP2:[304,115]BP21LB/LB:$DDIV;BP2:[304,115]BP21LB/LB:$DEXP/BP2:[304,115]BP21LB/LB:$DFIXBP2:[304,115]BP21LB/LB:$DINT;BP2:[304,115]BP21LB/LB:$DLOGTBP2:[304,115]BP21LB/LB:$DMULBP2:[304,115]BP21LB/LB:$DNEXT$BP2:[304,115]BP21LB/LB:$DSCAL$;BP2:[304,115]BP21LB/LB:$DXDD$;BP2:[304,115]BP21LB/LB:$DXDI$BP2:[304,115]BP21LB/LB:$JCON1$BP2:[304,115]BP21LB/LB:$DCON1L/6; BASE WHEN BUILDING ON IAS - PAR WHEN BUILDING ON RSX;BASE=24UNITS=0PSTACK=05PAR=BASIC2:140000:400004EXTSCT=.99998:00126 UIC=[1,1]5//1LB/LB:$DDIV;BP2:[304,115]BP21LB/LB:$DEXP/BP2:[304,115]BP21LB/LB:$DFIXBP2:[304,115]BP21LB/LB:$DINT;BP2:[304,115]BP21LB/LB:$DLOGTBP2:[304,115]BP21LB/LB:$DMULBP2:[304,115]BP21LB/LB:$DNEXT$BP2:[304,115]BP21LB/LB:$DSCAL$;BP2:[304,115]BP21LB/LB:$DXDD$;BP2:[304,115]BP21LB/LB:$DXDI$BP2:[304,115]BP21LB/LB:$JCON1$BP2:[304,115]BP21LB/LB:$DCON1L/ ; BP22RT.CMD;L,; COMMAND FILE TO BUILD A 8KW HISEG FOR IAS; MUST BE BUILT ON IASA;A; EDIT HISTORY0; EDIT 29-Nov-79 07:06 PM ALIGNMENT;NBP2:[304,115]BP22RT/-HD/-PI,BP2:[304,115]BP22RT/-SP/CR/MA,BP2:[304,115]BP22RT=BP2:[304,115]BP22LB/LB:$BERFSBBP2:[304,115]BP22LB/LB:$BFPER/BP2:[304,115]BP22LB/LB:$BINITBBP2:[304,115]BP22LB/LB:$BTDIDBBP2:[304,115]BP22LB/LB:$CALLRLBP2:[304,115]BP22LB/LB:$CALLSLBP2:[304,115]BP22LB/LB:$CHANGBBP2:[304,115]BP22LB/LB:$DFIXBP2:[304,115]BP22LB/LB:$DMOVBP2:[304,115]BP22LB/LB:$ECDFBP2:[304,115]BP22LB/LB:$CNTRLBBP2:[304,115]BP22LB/LB:$ECONVYBP2:[304,115]BP22LB/LB:$ECPYBP2:[304,115]BP22LB/LB:$EMISC3BP2:[304,115]BP22LB/LB:$ERROR1BP2:[304,115]BP22LB/LB:$FADDBP2:[304,115]BP22LB/LB:$FADDA/BP2:[304,115]BP22LB/LB:$FADDM/BP2:[304,115]BP22LB/LB:$FCMPBP2:[304,115]BP22LB/LB:$FCON1LBP2:[304,115]BP22LB/LB:$FDIVBP2:[304,115]BP22LB/LB:$FMOVBP2:[304,115]BP22LB/LB:$FMULBP2:[304,115]BP22LB/LB:$FUNC15BP2:[304,115]BP22LB/LB:$ICEOLB;BP2:[304,115]BP22LB/LB:$ICFLDBP2:[304,115]BP22LB/LB:$ICENDLBP2:[304,115]BP22LB/LB:$ICFNSLBP2:[304,115]BP22LB/LB:$ICRCLLBP2:[304,115]BP22LB/LB:$ICRDL/BP2:[304,115]BP22LB/LB:$ICRED/BP2:[304,115]BP22LB/LB:$ICRFG/BP2:[304,115]BP22LB/LB:$ICRKYBBP2:[304,115]BP22LB/LB:$ICRPTBBP2:[304,115]BP22LB/LB:$ICROPBBP2:[304,115]BP22LB/LB:$ICULT$BP2:[304,115]BP22LB/LB:$IQULT$BP2:[304,115]BP22LB/LB:$ICWRTMBP2:[304,115]BP22LB/LB:$IVVIRLBP2:[304,115]BP22LB/LB:$JADDS5BP2:[304,115]BP22LB/LB:$JCMPSBBP2:[304,115]BP22LB/LB:$JCOMPDBP2:[304,115]BP22LB/LB:$JCONVLBP2:[304,115]BP22LB/LB:$JDIVSLBP2:[304,115]BP22LB/LB:$JMISCLBP2:[304,115]BP22LB/LB:$JMOVS/BP2:[304,115]BP22LB/LB:$JMUL /BP2:[304,115]BP22LB/LB:$JNCR /BP2:[304,115]BP22LB/LB:$JNEXTBBP2:[304,115]BP22LB/LB:$JSUBSBBP2:[304,115]BP22LB/LB:$LOADSBBP2:[304,115]BP22LB/LB:$NEGAT$BP2:[304,115]BP22LB/LB:$SSCST$BP2:[304,115]BP22LB/LB:$SSDBLMBP2:[304,115]BP22LB/LB:$SSFLTLBP2:[304,115]BP22LB/LB:$SSINT5BP2:[304,115]BP22LB/LB:$SSVIRBBP2:[304,115]BP22LB/LB:$SSPTRD;BP2:[304,115]BP22LB/LB:$STARTBP2:[304,115]BP22LB/LB:$STCMPLBP2:[304,115]BP22LB/LB:$STCOSLBP2:[304,115]BP22LB/LB:$STFN1/BP2:[304,115]BP22LB/LB:$STGTA/BP2:[304,115]BP22LB/LB:$STLSS/BP2:[304,115]BP22LB/LB:$STMOSBBP2:[304,115]BP22LB/LB:$STMSCBBP2:[304,115]BP22LB/LB:$STRSSBBP2:[304,115]BP22LB/LB:$STVLD$BP2:[304,115]BP22LB/LB:$STVLF$BP2:[304,115]BP22LB/LB:$STVLIMBP2:[304,115]BP22LB/LB:$TESTSLBP2:[304,115]BP22LB/LB:$TIMEBP2:[304,115]BP22LB/LB:RQLCBBP2:[304,115]BP22LB/LB:SAVRGBP2:[304,115]BP22LB/LB:$SIZAL:BP2:[304,115]BP22LB/LB:PATCH ; 999999999:BP2:[304,115]BP22LB/LB:$FTIME:BP2:[304,115]BP22LB/LB:$DTIME:*;BP2:[304,115]BP22LB/LB:$DADD - EIS ONLY-BP2:[304,115]BP22LB/LB:$DCMPBP2:[304,115]BP22LB/LB:$DDIVBP2:[304,115]BP22LB/LB:$DEXPBP2:[304,115]BP22LB/LB:$DINTBP2:[304,115]BP22LB/LB:$DLOGBP2:[304,115]BP22LB/LB:$DMUL+;BP2:[304,115]BP22LB/LB:$DNEXT - EIS ONLY-LBP2:[304,115]BP22LB/LB:$DSCALLBP2:[304,115]BP22LB/LB:$DXDDBP2:[304,115]BP22LB/LB:$DXDIBP2:[304,115]BP22LB/LB:$FINTBP2:[304,115]BP22LB/LB:$FADDPLBP2:[304,115]BP22LB/LB:$FEXPBP2:[304,115]BP22LB/LB:$FFIXBP2:[304,115]BP22LB/LB:$FNEXTBBP2:[304,115]BP22LB/LB:$FXFIBP2:[304,115]BP22LB/LB:$STFNS/BP2:[304,115]BP22LB/LB:$JCON1BBP2:[304,115]BP22LB/LB:$DCON1$/P6; BASE WHEN BUILDING ON IAS - PAR WHEN BUILDING ON RSX;BASE=24UNITS=0BSTACK=0$PAR=BASIC2:140000:40000BEXTSCT=.99998:00512Y UIC=[1,1]4//]BP22LB/LB:$DSCALLBP2:[304,115]BP22LB/LB:$DXDDBP2:[304,1 B* BP2.DOC4 BASIC PLUS-2 PATCH LEVEL EF The patch procedure for BASIC PLUS-2 V1.6 BL-01.60 is drivenF by an indirect command file called BP2.CMD. You must copy allF files from account [212,200] of the auto-patch media to a pri-6 vileged account before invoking the procedure.F THE INDIRECT COMMAND PROCEDURE IS BUILT AROUND THE FOLLOWING ASSUMPTIONS:; 1. You are running from a PRIVILEGED account. F 2. You are NOT running from one of the primary systemF accounts, e.g., [1,1], [1,2], [1,54], [11,1], [3,54],' , OR .f5 3. NO patches have been applied to BP2.rF This procedure will apply all mandatory patches for BP2 V1.60.F If some of these patches have been applied by a previousF auto-patch kit or from the Software Dispatch, errors willF occur. These errors may be avoided by re-installing BASICF PLUS-2 V1.6 from the distribution media prior to applying the auto-patch kit. ,F The feature patches in the auto-patch kit will not be appliedF automatically. Feature patches will be left in your account? for any components you patched. If you want a feature patcho? applied, you may apply it by following the instructions given I in the Software Dispatch article for that particular patch. u@ All the feature patches are published in the Software Dispatch A for your base system in the BASIC-PLUS-2 V1.60 section and are ? indicated below by "FEA" under the "MONTH" column. The "n"t@ in the article number is equal to "15" if your base system is @ RSX and "2" if your base system is IAS. If the "n" is @ represented by a "2" or a "15", that patch applies only to  that specific base system.nF The patch procedure begins by asking you questions about howF you installed BASIC PLUS-2 and if you want the InstallationF Verification Procedure re-run after the patches have been ap- plied. F PAGE 2@The patches included in the auto-patch kit are summarized below:I---- PATCH KIT CONTENTS -----------------------------------------------l/DISPATCH MONTH MODULE PROBLEM /---------- ----- ------ -------tCOMPILER PATCHESJ10.n.2.1 FEA BERFS Move error file (BASIC2.ERR) to anH account different from LB:[1,2].E10.n.2.2 NOV IQULT First line of program may compile 4 incorrectly.E10.n.2.3 NOV ICFSS Build command with a long string -; generates an error. J10.n.2.4 NOV ECONV Numbers to the ninth power generate an@ incorrect error message.J10.n.2.5 NOV SINIT Scale 4 may scale numbers incorrectly.J10.n.2.6 NOV OPENIO Contiguous and temporary attributes inN open statement give erroneous message.?10.15.2.7 --- ------ INQ * will hang the inquire processg' and/or the system when being used. H10.n.2.8 MAR OBJGSD Compiler fails to allocate space for@ common or map area >16K.H10.n.2.9 MAR OBJGSD1 Compiler fails to allocate space for@ common or map area >16K.C10.n.2.10 JAN OBJGSD2 Illegal bit in PSECT flag word. K10.n.2.11 JAN PARSE Improper code is generated for someN? conditional statements.eBASIC2 SHARED LIBRARY PATCHES H10.n.3.1 --- ----- This article number is reserved. P PAGE 3M10.n.3.2 FEA TIMEA May be preferable to use 24 hour time / format. H10.n.3.3 --- ----- This article number is reserved.K10.n.3.4 FEA BERFS Move error file (BASIC2.ERR) to an H account different from LB:[1,2].I10.n.3.5 NOV IQULT Data may be corrupted due to improper E allocation of virtual header.H10.n.3.6 --- ----- This article number is reserved.I10.n.3.7 NOV ECONV Numbers to the ninth power may gener- ? ate an incorrect error.3F10.n.3.8 NOV IQULT RMS error -912 when doing I/O to a7 spooled device.rH10.n.3.9 --- ----- This article number is reserved.H10.n.3.10 --- ----- This article number is reserved.E10.n.3.11 NOV BINIT Extend task >16K may give maximumm8 memory exceeded.H10.n.3.12 --- ----- This article number is reserved.D10.n.3.13 NOV ECONVA Numbers of the form of 12E 20 is0 illegal.H10.n.3.14 --- ----- This article number is reserved.H10.n.3.15 --- ----- This article number is reserved.H10.n.3.16 --- ----- This article number is reserved.!BASIC2 OBJECT TIME SYSTEM PATCHES L10.n.4.1 FEA STCVT EDIT$ function with function code 32E and non-ASCII character sets. L10.n.4.2 FEA TIMEA May be preferable to use 24 hour time/ format.-G10.n.4.3 FEA ICPRG Special Print-Using characters. I10.n.4.4 FEA BERFS Move error file (BASIC2.ERR) to an I account differenct from LB:[1,2]. G10.n.4.5 FEB IQULT Corruption of data may occur due tod? GETS to a virtual file.c P PAGE 4E10.n.4.6 NOV ICPRG Sequential file open may fail if L preceded by a Print Using statement.I10.n.4.7 NOV ECONV Numbers raised to the ninth power may D generate an incorrect error.F10.n.4.8 NOV IQULT RMS error -912 when doing I/O to a7 spooled device. G10.n.4.9 NOV IQKIL Kill may fail with RMS error -1136 4M preceded by an Organization Undefined- open.dG10.n.4.10 NOV ICFSS Error may occur if a long string is D passed to the FSS$ function.F10.n.4.11 NOV BINIT Extend tasks >16K may give maximum8 memory exceeded.F10.n.4.12 NOV DEBUG Let statements into common or mapsJ gives memory management violation.J10.n.4.13 NOV ECONV Numbers of the form 12E 20 is illegal.G10.n.4.14 NOV IQKIL Kill and unlock in the same programiH gives "?ODD ADDRESS TRAP" error.K10.n.4.15 DEC ICFLDA Fielding zero length fielded variables. I10.n.4.16 JAN IQKILC Temporary strings are not handled 2 correctly.=10.n.4.17 MAR ICPRGC A PRINT USING format string with singlei% * or $ is not handled correctly. !BASRMS OBJECT TIME SYSTEM PATCHES H10.n.5.1 NOV IVOPN Erroneous ?Move overflows buffer mayN occur due to bad allocation of virtual/ header.gI10.n.5.2 NOV IMOPN Organization Undefined open may fail eK with ?Attributes not matched error.rC10.n.5.3 NOV IMATR Open may fail for Organization i P PAGE 52 Undefined.H10.n.5.4 NOV IROPN Relative open may fail when opening J for input with default bucketsize.G10.n.5.5 DEC IROPNB Open of relative file may fail when ; bucketsize not one.rBP2 UTILITIES PATCHESOF10.n.8.1 JAN TRANS Translator deletes blank lines in 8 Data statements.F10.n.8.2 JAN TRANS ';' Inserted in a Print statement H with a ')' following the string.H10.n.9.1 FEA B2XREF Feature patch to allow lines per: page to exceed 66.G10.n.9.2 FEA B2XINI Feature patch to allow default P; switches to be set.rJ10.n.9.3 MAR B2XTBL Cref fails when input program contains. BLOCK.E10.n.9.4 MAR B2XKW1 Cref may list keywords as builtin F functions. Part 1 of 2 parts.E10.n.9.5 MAR B2XKW2 Cref may list keywords as builtin F functions. Part 2 of 2 parts.N------------------------------------------------------------------------------ set.rJ10.n.9.3 MAR B2XTBL Cref fails when input program contains. BLOCK..ENABLE SUBSTITUTION .;.SETT DEBUG .SETF DEBUG.SETS $PLVL "E".SETS $KITSZ "115./120.".SETS $PATSZ "250./550.".SETS $DSTDR "[212,200]" .ONERR 32766.; C O P Y R I G H T.;0.; (C) Copyright 1977 ,1978, 1979, 1980, 1981;.; Digital Equipment Corporation, Maynard, Massachusetts.;=.; This software is furnished under a license for use only=.; on a single computer system and may be copied only with=.; the inclusion of the above copyright notice. This=.; software, or any other copies thereof, may not be pro-=.; vided or otherwise made available to any other person.=.; except for use on such system and to one who agrees toR=.; these license terms. Title to and ownership of the4.; software shall at all times remain in DIGITAL..;=.; The information in this software is subject to changee=.; without notice and should not be construed as a commit-y,.; ment by Digital Equipment Corporation..;=.; DIGITAL assumes no responsibility for the use or relia-e=.; bility of its software on equipment that is not sup-o.; plied by DIGITAL. .; .SETF $BSSUC.SETS $SYSNM "UNKNOWN".SETS $B2MCR "???".SETS $BMATH "NONE"m ; BP2.CMDo; BASIC-PLUS-2 V1.6 BL-01.60; PATCH LEVEL '$PLVL';i; .GOSUB 32600;m.IFF $BSCMP .GOTO 500i;u; COMPILER PATCHES; ; BERFSA;i.; FEATURE PATCH - MOVE ERROR FILE (BASIC2.ERR).OPEN BERFSA.ZAP> .DATA ; (COMPILER FEATURE PATCH - MOVE BASIC2.ERR ERROR FILE); to '$B2CMP'.TSKr .DATA '$B2CMP'.TSKy5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:<$$$ERF>;0R &.IF SYSTEM = 3 .DATA 3:<$$$ERF>;0R .DATA 0,0/" .DATA 0 .DATA 0,2\" .DATA 114 .DATA 0,3\m .DATA 102 .DATA 0,4/S .DATA 1401170 .DATA 0,6/E .DATA 140120 .DATA 0,10/ .DATA 6273G .DATA 0,12/ .DATA 34330 .DATA 0,14/ .DATA 21042 .DATA X .CLOSEA;i; IQULTA8; COMPILER MAY COMPILE FIRST LINE OF PROGRAM INCORRECTLY; to '$B2CMP'.TSKF.OPEN IQULT.ZAPVC .DATA ; (COMPILER) FIRST LINE OF PROGRAM MAY NOT COMPILE CORRECTLYI .DATA '$B2CMP'.TSKS2.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:21256;0R#.IF SYSTEM = 3 .DATA 3:20752;0RA .DATA 0,540/2 .DATA 6V1 .DATA 100 .DATA X .CLOSE.ZAP @IQULT.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP IQULT.ZAP;*/DE;G*; PATCH FOR BUILD COMMAND WITH LONG STRING; to '$B2CMP'.TSKA.OPEN ICFSS.ZAP7 .DATA ; (COMPILER) BUILD COMMAND WITH VERY LONG STRINGC .DATA '$B2CMP'.TSKP5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 67:56372+204/E&.IF SYSTEM = 3 .DATA 70:55770+204/ .DATA 74V .DATA 154 .DATA X .CLOSEFZAP @ICFSS.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP ICFSS.ZAP;*/DE;/; PATCH FOR EXPONENTS RAISED TO THE NINTH POWERI; to '$B2CMP'.TSKA.OPEN ECONV.ZAP3G .DATA ; (COMPILER) NUMBERS TO THE NINTH POWER GENERATE INCORRECT ERRORN .DATA '$B2CMP'.TSKP2.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:27636;0R#.IF SYSTEM = 3 .DATA 3:27234;0RA .DATA 0,250/ .DATA 100020V .DATA 101020  .DATA X .CLOSE4ZAP @ECONV.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP ECONV.ZAP;*/DE;S; PATCH FOR SCALE 4I; to '$B2CMP'.TSKS.OPEN SINIT.ZAPS; .DATA ; (COMPILER) SCALE 4 MAY NOT SCALE NUMBERS CORRECTLYH .DATA '$B2CMP'.TSK'5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 357:127232;0RB&.IF SYSTEM = 3 .DATA 360:126636;0R .DATA 0,1204/ .DATA 33061V .DATA 34061 .DATA S .DATA 30070V .DATA 30062 .DATA = .DATA 26062V2 .DATA 26064 .DATA .DATA 33061VV .DATA 33061 .DATA X .CLOSESZAP @SINIT.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP SINIT.ZAP;*/DE;1; CONTIGUOUS & TEMP IN OPEN GIVES ERRONEOUS ERROR ; to '$B2CMP'.TSK;.OPEN OPENIO.ZAP .DATA '$B2CMP'.TSKR5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 273:124106;0R.2.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:35014;1R&.IF SYSTEM = 3 .DATA 274:123512;0R#.IF SYSTEM = 3 .DATA 3:34412;1RS.IF SYSTEM = 3 .GOTO 106 .DATA 0,2102/ .DATA 20002V .DATA 10604 .DATA  .DATA 132442V .DATA 35014 .DATA 1,0/L .DATA 20002 .DATA I .DATA 132442  .DATA 3 .DATA 6566L .DATA I .DATA 12024 .DATA G .DATA 132420O .DATA  .DATA 2 .DATA .DATA 6566S .DATA .DATA 10412 .DATA C .DATA 17766 .DATA 1 .DATA 10572 .DATA T .DATA 126302. .DATA T .DATA 10604 .DATA .DATA 126220; .GOTO 107.106: .DATA 0,2102/1 .DATA 17476VY .DATA 10346 .DATA 4 .DATA 132046V .DATA 34412 .DATA 1,0/2 .DATA 17476 .DATA . .DATA 132046A .DATA A .DATA 6330. .DATA 4 .DATA 11520 .DATA 2 .DATA 132024 .DATA 2 .DATA 2 .DATA A .DATA 6330A .DATA A .DATA 10154 .DATA A .DATA 17462 .DATA . .DATA 10334 .DATA A .DATA 125706  .DATA 1 .DATA 10346 .DATA 1 .DATA 125624 .107: .DATA X. .CLOSE.ZAP @OPENIO.ZAPA.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP OPENIO.ZAP;*/DED; D.IF SYSTEM = 3 .GOTO 101 .; THIS PATCH DOES NOT APPLY TO IAS SYSTEMS;3-; PATCH TO FIX INQ* HANGING PROCESS OR SYSTEMA; to '$B2CMP'.TSKA.OPEN BASHLP.ZAPC .DATA ; This is a manditory patch to the BASIC-PLUS-2 version 1.6 .G .DATA ; compiler. It will fix the problem of INQ * hanging the processA .DATA ; or the system.A .DATA ; .DATA '$B2CMP'.TSK/AB .DATA 1:1020/ .DATA 44524V2 .DATA 54523 .DATA X .CLOSE ZAP @BASHLP.ZAP .IF <> 1 .GOSUB 32300.IFT $BSCLN PIP BASHLP.ZAP;*/DE.101: ;M;3*; COMMON OF MAP AREA TO BE LARGER THAN 16K; to '$B2CMP'.TSKA.OPEN OBJGSD.ZAPH .DATA ; This is the first part of a patch to the BASIC-PLUS-2 compiler.E .DATA ; This part must be applied before the second part. Togeather mD .DATA ; They will allow a COMMON of MAP area to be larger than 16K. .DATA ; .DATA '$B2CMP'.TSKA.IF SYSTEM = 3 .GOTO 102 .DATA 2:52414/4 .DATA 30704V5 .DATA 30756 .GOTO 103.102: .DATA 3:52272;0RS .DATA 0,0/S .DATA 30704V$ .DATA 30756 .103: .DATA X1 .CLOSE3ZAP @OBJGSD.ZAP .IF <> 1 .GOSUB 32300.IFT $BSCLN PIP OBJGSD.ZAP;*/DE;A"; COMPILER FAILS TO ALLOCATE SPACE; to '$B2CMP'.TSKS.OPEN OBJGSD1.ZAPA@ .DATA ; This is a manditory patch to the BASIC-PLUS-2 compiler.? .DATA ; It will fix the problem of the compiler not allocating6; .DATA ; space for COMMONs or MAPs that are larger than 16KB .DATA ; This is the second of two parts for this patch. The firstA .DATA ; part must be applied first, or ZAP will give ADDRESS NOT 8 .DATA ; WITHIN SEGMENT errors when this part is applied .DATA ; .DATA '$B2CMP'.TSKG.IF SYSTEM = 3 .GOTO 104 .DATA 660:112046/ .DATA 0Vo .DATA 20140 .DATA B .DATA 111714A .DATA .DATA 7224y .DATA .DATA 56724 .DATA e .DATA 11674 .DATA x .DATA 111024  .DATA l .DATA 7224t .DATA A .DATA 56724 .DATA o .DATA 10604 .DATA t .DATA 66664 .DATA .DATA 7224  .DATA r .DATA 56724 .DATA f .DATA 11674 .DATA t .DATA 110616s .DATA .DATA 20140 .DATA .DATA 111714  .DATA r .DATA 7224s .DATA a .DATA 56724 .DATA A .DATA 10604 .DATA T .DATA 67530 .DATA 660:66656/4 .DATA 10604 .DATA 2 .DATA 112046 .DATA 1 .DATA 0 .DATA A .DATA 11770 .DATA 660:67516/ .DATA 11674VA .DATA . .DATA 1110241 .DATA . .DATA 10604 .DATA . .DATA 1120725 .DATA A .DATA 0 .DATA .DATA 11770 .GOTO 105.104: .; IAS PATCH .DATA 661:111450;0R .DATA 0,0/ .DATA 0V4 .DATA 17634 .DATA 1 .DATA 111320. .DATA 0 .DATA 6766. .DATA 1 .DATA 56330 .DATA 2 .DATA 11370 .DATA 7 .DATA 110430. .DATA 4 .DATA 6766. .DATA 0 .DATA 56330 .DATA . .DATA 10346 .DATA . .DATA 66270 .DATA .DATA 6766A .DATA A .DATA 56330 .DATA 5 .DATA 11370 .DATA . .DATA 1102521 .DATA . .DATA 17634 .DATA . .DATA 1113201 .DATA . .DATA 6766A .DATA A .DATA 56330 .DATA O .DATA 10346 .DATA H .DATA 67134 .DATA 661:63472;0R .DATA 0,2570/ .DATA 10346 .DATA . .DATA 111450. .DATA . .DATA 0 .DATA 1 .DATA 11464 .DATA 0,3430/ .DATA 11370VA .DATA A .DATA 110430A .DATA A .DATA 10346 .DATA A .DATA 111474. .DATA 1 .DATA 0 .DATA A .DATA 11464.105: .DATA X .CLOSEAZAP @OBJGSD1.ZAP.IF <> 1 .GOSUB 32300 .IFT $BSCLN PIP OBJGSD1.ZAP;*/DE;6 ; OBJGSD2.;.!; Illegal bit in PSECT flags wordA; to '$B2CMP'.TSK5.OPEN OBJGSD2.ZAPA8 .DATA ; Illegal bit set by compiler in PSECT flag word. .DATA ; .DATA '$B2CMP'.TSKA!.IF SYSTEM = 3 .DATA 661:61006;0RA4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 660:61402;0R .DATA 0,10/ .DATA 2750V .DATA 2740A .DATA 0,20/ .DATA 2750V .DATA 2740 .DATA 0,30/ .DATA 2750V .DATA 27404".IF SYSTEM = 3 .DATA 661:63472;0R4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 660:64066;0R .DATA 0,3502/ .DATA 2754V .DATA 2744 ".IF SYSTEM = 3 .DATA 661:61226;0R4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 660:61622;0R .DATA 0,4/o .DATA 2650V .DATA 2640 .DATA .DATA 2650V .DATA 2640Y .DATA . .DATA 2650V .DATA 2640T .DATA R .DATA 2450V .DATA 24401 .DATA . .DATA 2650V .DATA 2640. .DATA A .DATA 2650V .DATA 2640V .DATA 2 .DATA 2650V .DATA 26402".IF SYSTEM = 3 .DATA 661:61044;0R4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 660:61440;0R .DATA 0,104/; .DATA 2650V .DATA 26402 .DATA 0,114/4 .DATA 2754V .DATA 27446 .DATA X .CLOSETZAP @OBJGSD2.ZAP.IF <> 1 .GOSUB 32300 .IFT $BSCLN PIP OBJGSD2.ZAP;*/DE;; PARSE;A<; Improper code is generated for some conditional statements; to '$B2CMP'.TSK5.OPEN PARSE.ZAPB .DATA ; Improper code is generated by some conditional statements .DATA ; .DATA '$B2CMP'.TSK.IF SYSTEM <> 3 .GOTO 1123 .DATA 202:76012;0R .DATA 0,16212/R .DATA 11524V .DATA 10346 .DATA A .DATA 34444 .DATA 3:34412;0R2 .DATA 0,32/ .DATA 0VA .DATA 11524 .DATA .DATA 34614 .DATA .DATA 122514I .DATA > .DATA 10352 .DATA T .DATA 114240G .DATA / .DATA 11370 .DATA .DATA 44052 .DATA t .DATA 17534 .DATA .DATA 123122o .DATA . .DATA 11414 .DATA .DATA 11520 .DATA i .DATA 122514s .DATA t .DATA 177777s .DATA ; .DATA 10334 .DATA .DATA 34510 .DATA 1 .DATA 64642 .DATA  .DATA 4 .DATA .DATA 44052 .DATA 1 .DATA 10316 .GOTO 113 .; RSX PATCH.112: .DATA 201:76406;0R .DATA 0,16212/1 .DATA 12030V .DATA 10604 .DATA .DATA 35046 .DATA 2:35014;0R1 .DATA 0,32/ .DATA 0V4 .DATA 12030 .DATA 1 .DATA 35216 .DATA 4 .DATA 123110 .DATA 5 .DATA 10610 .DATA 3 .DATA 114634 .DATA 4 .DATA 11674 .DATA 5 .DATA 44454 .DATA 2 .DATA 20040 .DATA 1 .DATA 123516; .DATA 1 .DATA 11720 .DATA 3 .DATA 12024 .DATA 6 .DATA 123110 .DATA .DATA 177777A .DATA . .DATA 10572 .DATA . .DATA 35112 .DATA .DATA 67220 .DATA R .DATA 4 .DATA .DATA 44454 .DATA 1 .DATA 10554 .113: .DATA X .CLOSE3ZAP @PARSE.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP PARSE.ZAP;*/DE;; PATCH FOR RO ACCESS5; to '$B2CMP'.TSKA.OPEN OBJGSD3.ZAP8 .DATA ; (COMPILER) $PDATA AND $CODE HAVE RW ACCESS ONLY .DATA '$B2CMP'.TSKA4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 660:61622;0R%.IF SYSTEM = 3 .DATA 661:61226;0R .DATA 0,4/A .DATA 2640V .DATA 2660A .DATA 0,12/ .DATA 2440V .DATA 24605.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 614:110006;1R4&.IF SYSTEM = 3 .DATA 615:107412;1R .DATA 1,1563/ .DATA 127VI .DATA 117 .DATA 1,1720\ .DATA 127V .DATA 117 .DATA X .CLOSE ZAP @OBJGSD3.ZAP.IF <> 1 .GOSUB 32300 .IFT $BSCLN PIP OBJGSD3.ZAP;*/DE;$; PATCH FOR GOTO STATEMENT; to '$B2CMP'.TSK.OPEN OPTIM1.ZAP3 .DATA ; (COMPILER) PATCH TO GENERATE CODE FOR GOTO # .DATA ; 1ST PART OF A 2 PART PATCH. .DATA '$B2CMP'.TSK62.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:52234;0R#.IF SYSTEM = 3 .DATA 3:52112;0R: .DATA 0,4/I .DATA 50144V .DATA 50160 .DATA X .CLOSE6ZAP @OPTIM1.ZAP.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP OPTIM1.ZAP;*/DE.;S; PATCH FOR GOTO STATEMENT; to '$B2CMP'.TSK3.OPEN OPTIM2.ZAP4 .DATA ; (COMPILER) PATCH TO GENERATED CODE FOR GOTO# .DATA ; 2ND PART OF A 2 PART PATCH .DATA '$B2CMP'.TSKA.IF SYSTEM = 3 .GOTO 480 .DATA 463:62202+20732;0RA .DATA 0,0/. .DATA 11714VP .DATA 10604 .DATA 0,2/. .DATA 122770V .DATA 124070 .DATA 463:124070;1R .DATA 1,0/: .DATA 0V4 .DATA 11714 .DATA 1,2/5 .DATA 0VA .DATA 122770A .DATA 1,4/ .DATA 0VA .DATA 11714 .DATA 1,6/$ .DATA 0VP .DATA 123056 .DATA 1,10/ .DATA 0VE .DATA 10604 .DATA 1,12/ .DATA 0VZ .DATA 62202+20736 .GOTO 490.480: .; IAS PATCH .DATA 464:61606+20732;0RA .DATA 0,0/ .DATA 11410VP .DATA 10346 .DATA 0,2/O .DATA 122374V .DATA 123474A .DATA 464:123474;1R .DATA 1,0/A .DATA 0V. .DATA 11410 .DATA 1,2/ .DATA 0V7 .DATA 1223741 .DATA 1,4/A .DATA 0V. .DATA 11410 .DATA 1,6/A .DATA 0V. .DATA 122462A .DATA 1,10/ .DATA 0V. .DATA 10346 .DATA 1,12/ .DATA 0V. .DATA 61606+20736 .490: .DATA X1 .CLOSEAZAP @OPTIM2.ZAP4.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP OPTIM2.ZAP;*/DE ;I;P.500: .; OTS PATCHES2 2;A.IFF $BSOTS .GOTO 7001;; B A S I C 2 O B J E C T L I B R A R Y P A T C H E S3.SETS $OLB $B2OLB3.;!.; SRC = DISTRIBUTION MODULE NAMEA.; PATCH = PATCH NAME/LEVEL0.; OLDCS = OLD SRC CHECKSUM4.; CORCS = PATCH (COR) CHECKSUMA$.; GOSUB 32100 FOR MANDATORY PATCHES".; GOSUB 32200 FOR FEATURE PATCHES;; STCVTA;/; FEATURE PATCH - EDIT$ FUNCTION WITH FUNCTION .%; CODE 32 AND NON-ASCII CHARACTER SET<; .SETS SRC "STCVT"$.SETS OLDCS " ".SETS PATCH "STCVTA".SETS CORCS "006556" .GOSUB 32200;T; TIMEA ; %; FEATURE PATCH - DEFAULT TIME FORMAT ; .SETS SRC "TIME".SETS OLDCS " ".SETS PATCH "TIMEA"U.SETS CORCS "005607" .GOSUB 32200;; ICPRGA;D0; FEATURE PATCH - SPECIAL PRINT-USING CHARACTERS;G.SETS SRC "ICPRG"A.SETS OLDCS " ".SETS PATCH "ICPRGA".SETS CORCS " " .GOSUB 32200; ; BERFSA;I.; FEATURE PATCH - MOVE ERROR FILE (BASIC2.ERR);E.SETS SRC "BERFS"R.SETS OLDCS " ".SETS PATCH "BERFSA".SETS CORCS " " .GOSUB 32200;B; IQULTT; <; CORRUPTION OF DATA MAY OCCUR DUE TO GETS TO A VIRTUAL FILE; .SETS SRC "IQULT" 6.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .SETS OLDCS "150105"'.IF SYSTEM = 3 .SETS OLDCS "147754"A.SETS PATCH "IQULT"S.SETS CORCS "005600" .GOSUB 32100;; ICPRGC; -; SEQUENTIAL OPEN PRECEEDED BY A PRINT USING -; MAY FAIL WITH ?ATTRIBUTES NOT MATCHED ERRORA; .SETS SRC "ICPRG"B.SETS OLDCS "120325".SETS PATCH "ICPRG"L.SETS CORCS "010734" .GOSUB 32100;T; ECONV ; @; NUMBERS TO THE NINTH POWER GENERATE AN INCORRECT ERROR MESSAGE;E.SETS SRC "ECONV"A.SETS OLDCS "126072".SETS PATCH "ECONV"=.SETS CORCS "006335" .GOSUB 32100;0; IQULTB;M3; RMS ERROR -912 WHEN DOING I/O TO A SPOOLED DEVICE;T.SETS SRC "IQULT"G.SETS OLDCS "151304".SETS PATCH "IQULTB".SETS CORCS "011255" .GOSUB 32100; ; IQKIL ;T3; KILL MAY FAIL WITH RMS ERROR -1136 WHEN PRECEDED S; BY AN ORG UNDEFINED OPEN.C;I.SETS SRC "IQKIL" .SETS OLDCS "041003".SETS PATCH "IQKIL" .SETS CORCS "007150" .GOSUB 32100;I; ICFSSE;R2; VERY LONG STRING NOT PROCESSED CORRECTLY BY FSS$;.SETS SRC "ICFSS"=.SETS OLDCS "070233".SETS PATCH "ICFSS" .SETS CORCS "006347" .GOSUB 32100; ; BINITS;L%; TASK EXT >16K GIVES MEMORY EXCEEDEDT.OPEN BINIT.COR .DATA .TITLE $BINITC8.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA .IDENT /60RXA/).IF SYSTEM = 3 .DATA .IDENT /60IAA/Y' .DATA .PSECT BP2OTS,RW,I,LCL,REL,CONI .DATA ;+ .DATA ;1 .DATA ; $INITM for '$SYSNM'T .DATA ;7:.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA ; OLD CS = 036572:.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA ; COR CS = 012233,.IF SYSTEM = 3 .DATA ; OLD CS = 035043,.IF SYSTEM = 3 .DATA ; COR CS = 012140 .DATA ;>6 .DATA ; AN INCORRECT ERROR MESSAGE, "MAXIMUM MEMORY 7 .DATA ; EXCEEDED", MAY BE GIVEN WHEN DOING AN EXTEND D9 .DATA ; TASK OF GREATER THAN 16 K BYTES, WHEN IN FACT, I# .DATA ; THE TASK IS A LEGAL SIZE., .DATA ;. .DATA ;- .DATA $PC=.A2.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA .=$PC+232$.IF SYSTEM = 3 .DATA .=$PC+242 .DATA JMP PATCH3.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA .=$PC+1550Y%.IF SYSTEM = 3 .DATA .=$PC+1556 .DATA PATCH: ADD #1576,R1C .DATA CMP R0,R1 .DATA BHIS 1$5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA JMP $PC+236E'.IF SYSTEM = 3 .DATA JMP $PC+246D8.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 1$: JMP $PC+340,.IF SYSTEM = 3 .DATA 1$: JMP $PC+342 .DATA .END .CLOSE=;.SETS SRC "BINIT".6.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .SETS OLDCS "036572"(.IF SYSTEM = 3 .SETS OLDCS "035043".SETS PATCH "BINIT" 6.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .SETS CORCS "012233"(.IF SYSTEM = 3 .SETS CORCS "012140" .GOSUB 32100;.; DEBUG ;IE; LET STATEMENTS INTO COMMON OR MAP GIVES MEMORY MANAGEMENT VIOLATIONM;3.SETS SRC "DEBUG"P.SETS OLDCS "103014".SETS PATCH "DEBUG"D.SETS CORCS "014412" .GOSUB 32100; ; ECONVA;:'; MAKE LEGAL NUMBERS OF THE FORM 12E 20S;.SETS SRC "ECONV"T.SETS OLDCS "127722".SETS PATCH "ECONVA".SETS CORCS "013557" .GOSUB 32100;T; IQKILB;4?; KILL & UNLOCK IN SAME PROGRAM GIVES "?ODD ADDRESS TRAP" ERROR ;C.SETS SRC "IQKIL"T.SETS OLDCS "043573".SETS PATCH "IQKILB".SETS CORCS "013150" .GOSUB 32100;I; ICFLDA; A; Fielding zero length fielded variables are handled incorrectly.T;L.SETS SRC "ICFLD" .SETS OLDCS "032402".SETS PATCH "ICFLDA".SETS CORCS "005217" .GOSUB 32100;N; IQKILC; .SETS SRC "IQKIL"S.SETS OLDCS "052304".SETS PATCH "IQKILC".SETS CORCS "013021" .GOSUB 32100;; ICPRGC;9; A PRINT USING format string with a single * or $ is notD; handled correctly ;C.SETS SRC "ICPRG"T.SETS OLDCS "124253".SETS PATCH "ICPRGC".SETS CORCS "006416" .GOSUB 32100;I; .700: .IFF $BSRMS .GOTO 800f;d;v ; OTS PATCHESn;d;; B A S R M S O B J E C T L I B R A R Y P A T C H E S.SETS $OLB $B2RMS";S; IVOPN ;51; ERRONEOUS ?MOVE OVERFLOWS BUFFER MAY OCCUR DUE K#; TO BAD ALLOCATION OF VIRTUAL HDR.C;I.SETS SRC "IVOPN" .SETS OLDCS "111227".SETS PATCH "IVOPN" .SETS CORCS "005537" .GOSUB 32100;l; IMOPNi;o+; ORGANIZATION UNDEFINED OPEN MAY FAIL WITHG; ?ATTRIBUTES NOT MATCHED ERRORA; .SETS SRC "IMOPN"C.SETS OLDCS "176335".SETS PATCH "IMOPN".SETS CORCS "011424" .GOSUB 32100; ; IMATR;*; OPEN MAY FAIL FOR ORGANIZATION UNDEFINED; .SETS SRC "IMATR" .SETS OLDCS "040472".SETS PATCH "IMATR" .SETS CORCS "006635" .GOSUB 32100;; IROPNA;C4; RELATIVE OPEN MAY FAIL WHEN OPENING FOR INPUT WITH; DEFAULT BUCKETSIZE.A; .SETS SRC "IROPN"C.SETS OLDCS "064420".SETS PATCH "IROPN".SETS CORCS "010520" .GOSUB 32100;W; IROPNB;I.SETS SRC "IROPN"R.SETS OLDCS "071053".SETS PATCH "IROPNB".SETS CORCS "011425" .GOSUB 32100;C;0.800: S.IFF $BSRES .GOTO 3000;<; B A S I C 2 S H A R E D L I B R A R Y P A T C H E S.; PROTOTYPE FOR ZAP PATCHEST.;.IF SYSTEM = 1 .GOTO L1C/.; .IFT $BSEIS .SETS SYMB "9" .; RSX ADDRESSESA.; .IFT $BSFIS .SETS SYMB "9" .; .IFT $BSFPU .SETS SYMB "9"T .; .GOTO L2S3.;.L1: .IFT $BSEIS .SETS SYMB "9" .; IAS ADDRESSESI.; .IFT $BSFIS .SETS SYMB "9"G.; .IFT $BSFPU .SETS SYMB "9"S.;.L2: .OPEN MODULE.'$BMATH'E.; .DATA ; ('$BMATH' BASIC2 RESIDENT LIBRARY OPTIONAL - WHAT ITS FOR) .; .DATA ; S .; .DATA '$B2RVU''$B2RES'.TSK/AB9.; ;.; .;L4: .DATA X .; .CLOSE;.;ZAP @MODULE.'$BMATH' .;.IF <> 1 .GOSUB 32300!.;.IFT $BSCLN PIP MODULE.ZAP;*/DEE.; END OF PROTO; %; FEATURE PATCH - DEFAULT TIME FORMAT;(; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.IF SYSTEM = 3 .GOTO 9011 .IFT $BSEIS .SETS TIM$ "173360" .; RSX ADDRESSESL .IFT $BSFIS .SETS TIM$ "171560" .IFT $BSFPU .SETS TIM$ "172200" .GOTO 9027.901: .IFT $BSEIS .SETS TIM$ "173274" .; IAS ADDRESSES. .IFT $BSFIS .SETS TIM$ "172064" .IFT $BSFPU .SETS TIM$ "172114".902: .OPEN TIMEA.'$BMATH'I .DATA ; ('$BMATH' BASIC2 RESIDENT LIBRARY FEATURE - DEFAULT TIME FORMAT)  .DATA '$B2RVU''$B2RES'.TSK/AB# .DATA 'TIM$'-'$B2RSB'+'$B2RSH';0R .DATA 0,450/ .DATA 20040 .DATA 0,452/ .DATA 20040 .DATA 0,454/O .DATA 30  .DATA X .CLOSE1;6.; FEATURE PATCH - MOVE ERROR FILE (BASIC2.ERR)4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .SETS BERFS "2000"%.IF SYSTEM = 3 .SETS BERFS "1000".(; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN BERFSA.'$BMATH'.K .DATA ;('$BMATH' BASIC2 RESLIB FEATURE PATCH - MOVE BASIC2.ERR ERROR FILE)I .DATA '$B2RVU''$B2RES'.TSK/AB .DATA 'BERFS';0RA .DATA 0,0/R .DATA 0 .DATA 0,2\$ .DATA 114 .DATA 0,3\ .DATA 102 .DATA 0,4/0 .DATA 1401172 .DATA 0,6/0 .DATA 1401204 .DATA 0,10/ .DATA 6273. .DATA 0,12/ .DATA 34330 .DATA 0,14/ .DATA 21042 .DATA X .CLOSE.;.@; DATA MAY BE CORRUPTED DUE TO IMPROPER ALLOCATION OF VIRT. HDR..IF SYSTEM = 3 .GOTO 903! .IFT $BSEIS .SETS BOUPT "160564"A! .IFT $BSFIS .SETS BOUPT "156764"2! .IFT $BSFPU .SETS BOUPT "157404". .GOTO 904&.903: .IFT $BSEIS .SETS BOUPT "160572"! .IFT $BSFIS .SETS BOUPT "157362"A! .IFT $BSFPU .SETS BOUPT "157412"A..904: ; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN IQULT.'$BMATH'M .DATA ; ('$BMATH' RES-LIB) DATA CORRUPTED DUE TO INCORRECT VIRT. HDR. ALLOC./ .DATA '$B2RVU''$B2RES'.TSK/AB# .DATA 'BOUPT'-'$B2RSB'+'$B2RSH';0RO .DATA 0,540/A .DATA 6VT .DATA 10  .DATA X .CLOSE3ZAP @IQULT.'$BMATH'B.IF <> 1 .GOSUB 32300#.IFT $BSCLN PIP IQULT.'$BMATH';*/DES;U.; NUMBERS IN E FORMAT MAY GIVE INCORRECT ERROR.IF SYSTEM = 3 .GOTO 905! .IFT $BSEIS .SETS PUS$A "143502"B! .IFT $BSFIS .SETS PUS$A "143140" ! .IFT $BSFPU .SETS PUS$A "144004"T .GOTO 906&.905: .IFT $BSEIS .SETS PUS$A "143510"! .IFT $BSFIS .SETS PUS$A "143536"I! .IFT $BSFPU .SETS PUS$A "144012"B..906: ; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN ECONV.'$BMATH'O .DATA ; ('$BMATH' RES-LIB) NUMBERS TO THE NINTH POWER GENERATE INCORRECT ERROR  .DATA '$B2RVU''$B2RES'.TSK/AB# .DATA 'PUS$A'-'$B2RSB'+'$B2RSH';0RE .DATA 0,250/E .DATA 100020V .DATA 1010203 .DATA X .CLOSEBZAP @ECONV.'$BMATH'5.IF <> 1 .GOSUB 32300#.IFT $BSCLN PIP ECONV.'$BMATH';*/DE4;43; RMS ERROR -912 WHEN DOING I/O TO A SPOOLED DEVICE".; BOUPT IS ALREADY DEFINED4(; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN IQULTB.'$BMATH'BK .DATA ; ('$BMATH' RES-LIB) RMS ERROR -912 WHEN DOING I/O TO SPOOLED DEVICEU .DATA '$B2RVU''$B2RES'.TSK/AB# .DATA 'BOUPT'-'$B2RSB'+'$B2RSH';0RB .DATA 0,2254/ .DATA 12701VB .DATA 4737' .DATA 0,2256/ .DATA 30V .DATA '$B2PAT'1$ .DATA '$B2PAT'-'$B2RSB'+'$B2RSH';0R .DATA 0,0/I .DATA 12701 .DATA 0,2/0 .DATA 30L .DATA 0,4/$ .DATA 42760 .DATA 0,6/O .DATA 100 .DATA 0,10/ .DATA 136 .DATA 0,12/ .DATA 207 .DATA X .CLOSERZAP @IQULTB.'$BMATH'.IF <> 1 .GOSUB 32300$.IFT $BSCLN PIP IQULTB.'$BMATH';*/DE;9&; TASK EXT. >16K GIVES MEMORY EXCEEDED*.; $INITM IS THE SAME ON BOTH RSX AND IAS" .IFT $BSEIS .SETS $INITM "140022"" .IFT $BSFIS .SETS $INITM "140050"" .IFT $BSFPU .SETS $INITM "140140";T(; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN BINIT.'$BMATH'B .DATA ; ('$BMATH' RES-LIB) TASK EXTEND >16K GIVES MEMORY EXCEEDED .DATA '$B2RVU''$B2RES'.TSK/AB$ .DATA '$INITM'-'$B2RSB'+'$B2RSH';0R.IF SYSTEM = 3 .GOTO 914 .DATA 0,232/ .DATA 62701V .DATA 137 .DATA 0,234/ .DATA 1576V .GOTO 915.914: .DATA 0,242/ .DATA 62701VX .DATA 137 .DATA 0,244/A .DATA 1576V.915: .DATA '$B2PAT'+14E$ .DATA '$B2PAT'-'$B2RSB'+'$B2RSH';1R .DATA 1,14/ .DATA 62701 .DATA 1,16/ .DATA 1576T .DATA 1,20/ .DATA 20001 .DATA 1,22/ .DATA 103002$ .DATA 1,24/ .DATA 137 .DATA 1,26/#.IF SYSTEM <> 3 .DATA '$INITM'+236.".IF SYSTEM = 3 .DATA '$INITM'+246 .DATA 1,30/ .DATA 137 .DATA 1,32/#.IF SYSTEM <> 3 .DATA '$INITM'+340A".IF SYSTEM = 3 .DATA '$INITM'+342 .DATA X .CLOSE.ZAP @BINIT.'$BMATH' .IF <> 1 .GOSUB 32300#.IFT $BSCLN PIP BINIT.'$BMATH';*/DE5;D'; MAKE LEGAL NUMBERS OF THE FORM 12E 20'.IF SYSTEM = 3 .GOTO 9122 .IFT $BSEIS .SETS $ATOD "143502" .; RSX ADDRESSES! .IFT $BSFIS .SETS $ATOD "143140".! .IFT $BSFPU .SETS $ATOD "144004"1 .GOTO 9137.912: .IFT $BSEIS .SETS $ATOD "143510" .; IAS ADDRESSES3! .IFT $BSFIS .SETS $ATOD "143536"! .IFT $BSFPU .SETS $ATOD "144012"M.913:.(; to '$B2RVU''$B2RES'.TSK USING '$BMATH'.OPEN ECONVA.'$BMATH'@ .DATA ; ('$BMATH' RES-LIB) MAKE LEGAL NUMBERS OF THE FORM 12E20 .DATA '$B2RVU''$B2RES'.TSK/AB# .DATA '$ATOD'-'$B2RSB'+'$B2RSH';0RO$ .DATA '$B2PAT'-'$B2RSB'+'$B2RSH';1R .DATA 0,230/E .DATA 120527V .DATA 137 .DATA 0,232/B .DATA 55V .DATA '$B2PAT'+34 .DATA 1,34/ .DATA 1205271 .DATA 1,36/ .DATA 55$ .DATA 1,40/ .DATA 1407. .DATA 1,42/ .DATA 120527S .DATA 1,44/ .DATA 40. .DATA 1,46/ .DATA 14020 .DATA 1,50/ .DATA 137 .DATA 1,52/ .DATA '$ATOD'+236 .DATA 1,54/ .DATA 112712( .DATA 1,56/ .DATA 53G .DATA 1,60/ .DATA 137 .DATA 1,62/ .DATA '$ATOD'+304 .DATA X .CLOSEBZAP @ECONVA.'$BMATH'.IF <> 1 .GOSUB 32300$.IFT $BSCLN PIP ECONVA.'$BMATH';*/DE;A.IFT $BSCLN PIP *.'$BMATH';*/DE .GOTO 3000;+;.3000: /.IFF $BSUTL .GOTO 100001;/+; B P 2 U T I L I T I E S P A T C H E SA;1 ; TRANSLATOR;23; TRANSLATOR DELETES BLANK LINES IN DATA STATEMENTS0.OPEN TRANSA.ZAP< .DATA ; This patch will solve the problem of the Translator4 .DATA ; killing blank lines inside data statements. .DATA ;; .DATA ; Note: this patch writes over code in module TRNS1,EA .DATA ; if fatal error occurs the error message will be slightlyN= .DATA ; changed. it will now read "IN TRNS1 XXXX" instead of0! .DATA ; "IN TRAN1 AT LINE XXXX". ; to '$B2UTL'TRANS.TSK .DATA ; .DATA '$B2UTL'TRANS.TSK4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 107:61276;0R%.IF SYSTEM = 3 .DATA 110:60752;0RZ .DATA 0,4420/.IF SYSTEM = 3 .GOTO 3001l .; RSX PATCH .DATA 6450A .DATA g .DATA 76224 .DATA a .DATA 15640 .DATA 0,14712/; .DATA 10152 .DATA s .DATA 14650 .DATA N .DATA 0 .DATA a .DATA 7556u .DATA r .DATA 10022 .DATA h .DATA 76256 .DATA .DATA 7364e .DATA N .DATA 103122d .DATA A .DATA 53604 .DATA X .DATA 57706 .DATA A .DATA 7406A .DATA A .DATA 102130T .DATA Y .DATA 52600 .DATA .DATA 6450: .DATA .DATA 65722 .DATA A .GOTO 3002Z .; IAS PATCH/.3001: .DATA 6212 .DATA .DATA 75700 .DATA 5 .DATA 15402 .DATA 0,14712/A .DATA 77141 .DATA A .DATA 14412 .DATA 1 .DATA 0 .DATA A .DATA 7320A .DATA A .DATA 7564 .DATA 5 .DATA 75732 .DATA 0 .DATA 7126 .DATA 2 .DATA 102576. .DATA e .DATA 53260 .DATA 2 .DATA 57362 .DATA 6 .DATA 7150 .DATA 7 .DATA 101604. .DATA A .DATA 52254 .DATA 3 .DATA 6212 .DATA 6 .DATA 65376.3002: .DATA X .CLOSE.ZAP @TRANSA.ZAPA.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP TRANSA.ZAP;*/DE.;AG; TRANSLATOR INSERTS A ';' IN A PRINT STMT IF STRING IS FOLLOWED BY ')'.OPEN TRANSB.ZAPA .DATA ; This patch will fix the Translator bug that would insertAH .DATA ; a semi-colon while processing a PRINT statement, after a quoted5 .DATA ; string if that string was followed by a ")"..; to '$B2UTL'TRANS.TSK .DATA ; .DATA '$B2UTL'TRANS.TSK5.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 215:107672;0R:&.IF SYSTEM = 3 .DATA 216:107346;0R .DATA 0,1274/ .DATA 32054 .DATA L .DATA 34460 .DATA .DATA 26066 .DATA S .DATA 26071 .DATA 0,2000/ .DATA 30064 .DATA .DATA 33071 .DATA A .DATA 34454 .DATA X .CLOSEaZAP @TRANSB.ZAPd.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP TRANSB.ZAP;*/DEt;f; B2XREF;4; FEATURE PATCH TO ALLOW LINES PER PAGE TO EXCEED 66.OPEN B2XREF.ZAP< .DATA ; This is an FEATURE patch to the BASIC-PLUS-2 V1.6 ? .DATA ; Cross-referencer (B2XREF). It will allow you to change6< .DATA ; the number of lines per page form 66 (102 octal) to .DATA ; any value desired..; to '$B2UTL'B2XREF.TSKA .DATA ; .DATA '$B2UTL'B2XREF.TSK.4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:42114+350/%.IF SYSTEM = 3 .DATA 3:42114+350/G .DATA 102VI3 .DATA XXXXX ;Enter any value you want (in octal)E .DATA X .CLOSEW;N;P"; FEATURE PATCH TO B2XREF SWITCHES;.OPEN B2XINI.ZAPG .DATA ; This is an feature patch to the BASIC-PLUS-2 V1.60 B2XREF, theXK .DATA ; Cross-Reference utility. This patch will allow the system managermL .DATA ; to set the default of the switches for the Cross-Reference utility.L .DATA ; This three word patch will change the Cross-Reference defaults, theJ .DATA ; listing defaults, and the default page width (one for each word). .DATA ;I .DATA ; To determine the Cross-Reference defaults, it is necessary to ORCN .DATA ; together the values of each switch, convert to octal, and insert this; .DATA ; number in place of XXXXX below. These values are:e .DATA ; .DATA ; 1 = /FUN .DATA ; 3 = /KEY .DATA ; 4 = /SOU .DATA ; 8 = /NOF .DATA ; 272 = /APP .DATA ; 128 = /ISO .DATA ; 256 = /SUP .DATA ;M .DATA ; In most cases, it is impossible to override any of these switches atfP .DATA ; run-time once they are selected as the default by this patch, although,$ .DATA ; other options can be added. .DATA ;O .DATA ; The next word in the patch controls the default listing type. To findXN .DATA ; the necessary value, see the table below and use it in place of YYYYY .DATA ; below.; .DATA ; .DATA ; 1 = /APP .DATA ; 2 = /OFF .DATA ; 3 = /REP .DATA ;O .DATA ; In this case it is possible to override this patch at run-time. Also,iL .DATA ; the /APP is required if /APP was included in the first word of the M .DATA ; patch. The last word of the patch is the default page width for the;Q .DATA ; output file. Simply replace the ZZZZZ below with the default page width .DATA ; desired (in octal). eP .DATA ; NOTE: This will not change the default width if the output file is TI:Q .DATA ; This patch can also be overridden at run-time. It is impossible ;N .DATA ; to have the /BAS or /MIC switches as defaults by patching. If: .DATA ; needed, they must be included in each run. .DATA ;; to '$B2UTL'B2XREF.TSKs .DATA '$B2UTL'B2XREF.TSKd.IF SYSTEM = 3 .DATA 3:34076//.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:34432 .DATA XXXXX .DATA i .DATA YYYYY .DATA ( .DATA ZZZZZ .DATA X .CLOSEs;l>; Correct "Illegal Number" error when processing BLOCK keyword; .OPEN B2XTBLA.ZAPn= .DATA ; "Illegal Number" error when processing BLOCK keyword  .DATA '$B2UTL'B2XREF.TSKM".IF SYSTEM = 3 .DATA 105:73262;0R4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 103:73606;0R .DATA 0,214/A .DATA 27517VU .DATA 27460 .DATA X.CLOSEZAP @B2XTBLA.ZAP.IF <> 1 .GOSUB 32300 .IFT $BSCLN PIP B2XTBLA.ZAP;*/DE;4; 9; MANDATORY PATCH TO B2XREF FOR BUILTIN KEYWORDS (PART 1)Z;.OPEN B2XKW1.ZAP< .DATA ; This is a mandatory patch to the BASIC-PLUS-2 Cross: .DATA ; Reference utility (B2XREF). It is the first part7 .DATA ; of a two part patch and must be applied first..= .DATA ; Together the two patches will fix the problem of theF@ .DATA ; cross referencer listing keywords as built-in functions= .DATA ; if they are followed by a "(" even if the keyword is ! .DATA ; not a built-in function.T; to '$B2UTL'B2XREF.TSKA .DATA ; .DATA '$B2UTL'B2XREF.TSKE0.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 2:52004/!.IF SYSTEM = 3 .DATA 3:51730/I .DATA 5364V,.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 5432.IF SYSTEM = 3 .DATA 5434w .DATA X .CLOSEsZAP @B2XKW1.ZAPt.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP B2XKW1.ZAP;*/DEF;.9; MANDATORY PATCH TO B2XREF FOR BUILTIN KEYWORDS (PART 2)o;.OPEN B2XKW2.ZAP< .DATA ; This is a mandatory patch to the BASIC-PLUS-2 Cross> .DATA ; reference utility (B2XREF). It is the second part of= .DATA ; a two part patch. Be sure the first part is applied2= .DATA ; before this part. Together the patches will fix theTA .DATA ; problem of the cross referencer listing certain keywordsw< .DATA ; as built-in functions if they are followed by a "("8 .DATA ; even if the keyword is not a built-in function. .DATA ;; to '$B2UTL'B2XREF.TSKR .DATA '$B2UTL'B2XREF.TSKK4.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 123:72740;0R&.IF SYSTEM = 3 .DATA 125:72414;0R .DATA 0,604/t.IF SYSTEM = 3 .GOTO 4001A .DATA 10112V .DATA 6654r .DATA s .DATA 75700 .DATA 123:75700;0R .GOTO 4002o .; IAS PATCH.4001: .DATA 7654V .DATA 6416l .DATA .DATA 75356 .DATA 125:75356;0Ry.4002: .DATA 0,0/ .DATA 0Vn.IF SYSTEM = 3 .GOTO 4003 .DATA 10112 .DATA .DATA 75510 .DATA .DATA 75712 .DATA A .DATA 6654B .DATA E .DATA 73550 .GOTO 4004E .; IAS PATCH.4003: .DATA 7654S .DATA D .DATA 75164 .DATA Y .DATA 75370 .DATA : .DATA 6416A .DATA t .DATA 73224 .4004: .DATA .DATA 17700 .DATA 63.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 75366-75716.$.IF SYSTEM = 3 .DATA 75042-75374 .DATA . .DATA 32700 .DATA . .DATA 1 .DATA 1 .DATA 1007 .DATA A .DATA 16700 .DATA I3.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .DATA 75362-75730A$.IF SYSTEM = 3 .DATA 75036-75406 .DATA A .DATA 12001 .DATA A .DATA 61001 .DATA .DATA 5301 .DATA A .DATA 142711A .DATA A .DATA 4 .DATA . .DATA 134 .DATA  .DATA X .CLOSE ZAP @B2XKW2.ZAP0.IF <> 1 .GOSUB 32300.IFT $BSCLN PIP B2XKW2.ZAP;*/DE .10000: ;6;5,; TO FINISH PATCHING YOUR SYSTEM, YOU SHOULD;A=; 1. RE-TKB TO INCORPORATE THE OBJ PATCHES IN YOUR PROGRAMS..$; 2. RE-INSTALL THE SHARED LIBRARY.7; 3. RE-VMR YOUR SAV IMAGE IF YOU RE-COPIED TASKS FROMM6; THE DISTRIBUTION MEDIA AND THEN APPLIED PATCHES."; 4. COMPRESS THE DISK LIBRARIES.; 5. CLEAN UP THIS ACCOUNT.;;A;A;. .GOTO 32765.32100:1 1.; SUBROUTINE FOR OBJECT MODULE PATCH GENERATION.0.; INPUTS: SRC OLDCS - FILE IN THE EXISTING OLB".; PATCH CORCS - CORRECTION FILE$.; $OLB - EITHER $B2OLB or $B2RMS.; CONTROL: $BSCLN;T+MAC 'PATCH'.PAT,'PATCH'.LIS/-SP='PATCH'.CORS .IF <> 1 .GOSUB 32300ILBR 'SRC'.OLD='$OLB'/EX:$'SRC' .IF <> 1 .GOSUB 323007PAT 'PATCH'='SRC'.OLD/CS:'OLDCS','PATCH'.PAT/CS:'CORCS'  .IF = 2 .GOSUB 32300 .IF = 4 .GOSUB 32300LBR '$OLB'/RP='PATCH'3 .IF <> 1 .GOSUB 32300N.IFT $BSCLN PIP 'SRC'.*;*/DE.IF SRC = PATCH .RETURN .IFT $BSCLN PIP 'PATCH'.*;*/DE.RETURNT.;.32200:R T.; FEATURE PATCHES;E,;MAC 'PATCH'.PAT,'PATCH'.LIS/-SP='PATCH'.COR;LBR 'SRC'.OLD='$OLB'/EX:$'SRC'=8;PAT 'PATCH'='SRC'.OLD/CS:'OLDCS','PATCH'.PAT/CS:'CORCS';LBR '$OLB'/RP='PATCH',.IFT $BSCLN ;PIP 'SRC'.*;*/DE,'PATCH'.*;*/DE.RETURNS.;.32300:C P.IFT DEBUG .RETURN,.; CHECK ON TASK EXIT STATUS ( IT WASNT A 1).; The previous task did not exit with SUCCESS.!; The EXIT status was ''. .SETF $BSSUC .IF = 0 .GOTO 32350I .IF = 2 .GOTO 32360R .IF = 4 .GOTO 32370A;E=; IF FACT THE EXIT STATUS WAS INVALID ( = '')R .GOTO 32399O#.32350: .; CHECK ON WARNING STATUSD :F; A warning error was reported. Warning errors are usually not fatal.E; The next question allows you to continue this procedure in spite ofE ; the error.,.ASK CONT Should this procedure continue (Y) .IFT .SETT CONTt .IFF CONT .GOTO 32399 .SETT $BSSUCT.RETURNS!.32360: .; CHECK ON ERROR STATUS  5@; A error was reported. It is advisable to stop this procedure,=; correct the cause of the error, and then restart. The nextT8; question allows you to continue in spite of the error.A.ASK CONT Will subsequent patches continue to generate errors (Y)  .IFT .SETT CONT  .IFT CONT .GOTO 32399.RETURNd(.32370: .; CHECK ON SEVERE ERROR STATUS u;t; A SEVERE error was reported.2.32399: .; KILL THE WHOLE THING BECAUSE OF STATUS $;U&; BP2 Patch procedure EXITING ........:; Please fix the error and restart the patching procedure.9; If some patches have been applied, you should completlyh9; re-install from the distribution kit before restarting.n .GOTO 32765 ;o7.32600: .; *****************************************e r".; (PSEUDO BASBLD FOR AUTO-PATCH).ENABLE GLOBAL.ENABLE ESCAPE .DISABLE DATA ;C.SETN SYSTEM S .IFT DEBUG .ASKN SYSTEM SYSTEMp .IF SYSTEM = 1 .GOTO 1 ! RSX-11M.IF SYSTEM = 3 .GOTO 3 ! IAS%.IF SYSTEM = 6 .GOTO 6 ! RSX-11M PLUS.;; UNKNOWN OPERATING SYSTEM .GOTO 32765 .1: .SETS $SYSNM "RSX-11M V 3.2" .GOTO 10 .3: .SETS $SYSNM "IAS V3.1"h .GOTO 10a$.6: .SETS $SYSNM "RSX-11M PLUS V1.0" .GOTO 10.10:C.IF SYSTEM <> 3 PIP BP20RT.CMD;*/DE,BP21RT.CMD;*/DE,BP22RT.CMD;*/DE; For '$SYSNM';B;FC; Prior to running this file, you must copy the patch kit into thisS4; account with the appropriate host system commands:;ID; The patch kit uses approximately '$KITSZ' disk blocks. At the endE; of the autopatch procedure, approximately '$PATSZ' blocks are used.3I; You should clean this account at the completion of the patch procedure.3.IFF DEBUG .GOTO 14 ).ASK DT DO YOU WANT TO COPY THE COR FILES.IFF DT .GOTO 13G.ASKS DT0S Where are the COR files (must be on disk (SPECIFY DEV:ACNT))'PIP *.COR;*/DEPIP *.*/NV/SU='DT0S'*.COR .IF SYSTEM = 3 .GOTO 14n#.13: .ASK DT Do you want to installa.IFF DT .GOTO 14.ASKS DT2S Where is BASBLD sPIP BASBLD.TSK='DT2S'BASBLD.TSKo RUN BASBLD;d; @BP2BLD.CMD being done.u @BP2BLD.CMDtPIP BP2BLD.CMD;*/DEr;s.14: ;; C; Feature patches are included in this kit but are not applied. ToH; apply any or all of the feature patches, you must edit the appropriateI; patch files which are generated by this command procedure. The commandAA; files use the same file name as given in the Software Dispatch..;OH; NOTE: You should be under a privileged account to use this patch kit.;e@; In the following dialogue, the following conventions are used:;2 ; Defaults*; A. Default value shown in parathensis=; B. Default value is selected by typing the key.t;eI; To stop the procedure, enter a ^Z (control-Z) in response to one of thet; following questions.;i.DISABLE LOWERCASE .SETS $IC2 "IC2"  .SETS COLON ":" .SETS $RMS "RMS"  .SETS $B2TMP "BAS"  .SETS B2NAM "BAS";.ASKS [1:3] $B2MCR CCL/MCR name for Basic-Plus 2 ('$B2TMP')c" .IFT .SETS $B2MCR $B2TMP! .IFF .SETS B2NAM $B2MCRo0.ASKS [3:5] $B2OLV Object Library Device (LB00:) .IFF .GOTO 15p# .IFT .SETS $B2OLV "LB00:"s .GOTO 20t3.15: .IF COLON = $B2OLV[:] .GOTO 20, .SETS T $B2OLVr .SETS $B2OLV "" .SETS $B2OLV T+":"l.20: .SETS T "[001,001]"1.ASKS [5.:9.] $B2OLU Object Library Account ('T')" .IFT .SETS $B2OLU T2B.ASKS [4:6] $B2RES Basic-Plus 2 Resident library name ('B2NAM'IC2)& .IFT .SETS $B2RES B2NAM+$IC2$ .IF $B2RES = "NONE" .SETS $B2RES ""3.ASKS [3:5] $B2CMV Compiler Location Device (LB00:)  .IFF .GOTO 25C# .IFT .SETS $B2CMV "LB00:"$ .GOTO 30:3.25: .IF COLON = $B2CMV[:] .GOTO 30L .SETS T $B2CMV. .SETS $B2CMV "" .SETS $B2CMV T+":"S.30: .SETS T E.IFF DEBUG .GOTO 31K# .IF SYSTEM = 3 .SETS T "[011,001]"n0.31: .ASKS [5.:9.] $B2CMU Compiler Account ('T') .IFT .SETS $B2CMU Tt .SETF $BSEIS' .SETF $BSFISF .SETF $BSFPUS7.50: .ASK $BSEIS Are you using the EIS math package (Y) .IFT .SETT $BSEISo .IFF $BSEIS .GOTO 60 .SETS $BMATH "EIS"2 .GOTO 80E7.60: .ASK $BSFIS Are you using the FIS math package (Y)= .IFT .SETT $BSFISO .IFF $BSFIS .GOTO 70. .SETS $BMATH "FIS". .GOTO 80 7.70: .ASK $BSFPU Are you using the FPU math package (Y)F .IFT .SETT $BSFPU] .IFF $BSFPU .GOTO 75$ .SETS $BMATH "FPU"t .GOTO 80F5.75: ; You must specify one of these options based onI0; how you answered the BASBLD questions when you; installed BP2. .GOTO 50..80: ;4; The default on the next 6 questions is YES (); .ENABLE LOWERCASE4.ASK $BSCMP Do you want the BP2 compiler patched (Y) .IFT .SETT $BSCMPI?.ASK $BSOTS Do you want the '$B2MCR'IC2.OLB objects patched (Y): .IFT .SETT $BSOTSe?.ASK $BSRMS Do you want the '$B2MCR'RMS.OLB objects patched (Y)U .IFT .SETT $BSRMSUB.ASK $BSRES Do you want the '$B2MCR'IC2 shared library patched (Y) .IFT .SETT $BSRESS5.ASK $BSUTL Do you want the BP2 utilities patched (Y)8 .IFT .SETT $BSUTLx3.ASK $BSCLN Do you want the patch files deleted (Y) .IFT .SETT $BSCLNP .SETS $CURDR )' .SETS $B2OLB $B2OLV+$B2OLU+$B2MCR+$IC2T' .SETS $B2RMS $B2OLV+$B2OLU+$B2MCR+$RMS ' .SETS $B2CMP $B2CMV+$B2CMU+$B2MCR+$IC2e .SETS $B2UTL $B2CMV+$B2CMU  .SETS $B2RVU "LB00:[001,001]".; .SETF $BSTST.IF SYSTEM = 3 .GOTO 85S.;).; SKIP ICP verification on IAS AUTOPATCHp@.; CAUSE LINK IS AVAILABLE (only TKB) so the CMD files from theA.; compiler wont work. The commands to remove and reinstall the$.; cmp and reslib on IAS work. ;eC; In the BASIC PLUS-2 Installation Guide, Chapter 4, a installation$C; verification procedure is recommended. The next question enables$F; you to re-execute that procedure. This test procedure is not invoked&; until all patches have been applied.;SC.ASK $BSTST Do you want the Installation Verification Tests run (Y) .IFT .SETT $BSTST.IFF $BSTST .GOTO 85;)A; Before the installation test are performed, it is required thatoD; BP2 be reinstalled or you will get "Memory Protection Violations".;eD; This command procedure will recreate the file "INSBP2.CMD" in this?; account if you elect to re-run the installation verification.o;o9.ASK T1 Is it acceptable to remove and re-install BP2 (Y)k.IFT .SETT T1.IFT T1 .GOTO 81 .SETF $BSTST.GOTO 85.81:; .SETS $B2TMP $B2MCRt%.IF $B2MCR = "BAS" .SETS $B2TMP "BP2" .OPEN INSBP2.CMD.IF SYSTEM = 3 .GOTO 82t.DATA REM ...'$B2TMP'e#.DATA INS '$B2CMP'/TASK=...'$B2TMP'P.IFF $BSRES .GOTO 83,.IF SYSTEM = 1 .DATA SET /NOMAIN='$B2MCR'IC2E.IF SYSTEM = 1 .ASKS $B2TMP What is the resident library base address;.IF SYSTEM = 1 .DATA SET /MAIN='$B2MCR'IC2:'$B2TMP':400:COMnM.IF SYSTEM = 1 .DATA INS LB:[1,1]'$B2MCR'IC2/PAR='$B2MCR'IC2/TASK='$B2MCR'IC2E(.IF SYSTEM = 6 .DATA REM '$B2MCR'IC2/REG=.IF SYSTEM = 6 .DATA INS LB:[1,1]'$B2MCR'IC2/TASK='$B2MCR'IC2..GOTO 83.82:0.; FOR IAS **** IN STAND ALONE MCR MODE **:.; THESE COMMANDS WONT WORK IN TIMESHARING / MCR MODE.DATA REM $$$'$B2TMP'I#.DATA INS '$B2CMP'/TASK=$$$'$B2TMP'R.IFF $BSRES .GOTO 83.DATA REM '$B2MCR'IC2/LI1.DATA INS LB:[1,1]'$B2MCR'IC2/LI/ACC=RO/UIC=[1,1]S.;/.; FOR IAS T/S MODE (ALA THE SOFTWARE DISPATCH)1.;DATA REM/LIB '$B2MCR'IC2?.;DATA INS/LIB:'$B2MCR'IC2/ACC:RO/UIC=[1,1] LB:[1,1]'$B2MCR'IC2B.;.83:.CLOSE.85:.IFF $BSRES .GOTO 820'*.IF SYSTEM = 1 .OR .IF SYSTEM = 6 .GOTO 965 .ASK T2 Have you rebuilt the BASIC2 resident library  .IFF T2 .GOTO 96W; >; Since the resident library has been rebuilt the base address=; has changed. Check your map (from the task build and enter$B; the new address. Note: This procedure assumes that the resident?; library was rebuilt from the distribution media. If you haveB?; applied any object module patches prior to the rebuild, then ]C; this will NOT work and you should stop this command file, restartT;; it, and answer NO to the patch resident library question. ; .GOTO 95*.94: ; A numeric base address is required.G.95: .ASKS $B2RSB What is the new base address for the resident library. .IF = 0 .GOTO 94 .IFT .GOTO 94h .GOTO 97s.96: .SETS $B2RSB "140000"(.97: .IF SYSTEM = 3 .SETS $B2RSH "1000" $ .IF SYSTEM = 1 .SETS $B2RSH "2000" $ .IF SYSTEM = 6 .SETS $B2RSH "2000" .IF SYSTEM = 3 .GOTO 810" .IFT $BSEIS .SETS $B2PAT "177426"" .IFT $BSFIS .SETS $B2PAT "177312"" .IFT $BSFPU .SETS $B2PAT "177316" .GOTO 820'.810: .IFT $BSEIS .SETS $B2PAT "177330":" .IFT $BSFIS .SETS $B2PAT "177604"" .IFT $BSFPU .SETS $B2PAT "177220".820: ;d.IFF DEBUG .GOTO 98 .;-.; SET UP GLOBAL SYMBOLS FOR BP2 FUNNY NAMES>6.; OR DEFAULT THEM TO STANDARD ACCOUNTS FOR THE SYSTEM.;".; (PSEUDO BASBLD FOR AUTO-PATCH).;.; CONVENTIONS.;-.; GLOBAL STRING SYMBOL VALUE $B2 SYMBOL-NAME +.; GLOBAL STRING EXISTANCE $BS SYMBOL-NAMES.;.; TEMPS Tn.;I.; LOCAL SYMBOLS ARE ASSIGNED AND NEVER ERASED SINCE IAS DOES NOT SUPPORT0I.; THE .ERASE FUNCTION. IAS ALSO DOES NOT SUPPORT .BEGIN/.END SO YOU CANT0D.; GET AROUND DIRECT ASSIGNMENT OF LABELS/VARIABLES THAT WAY EITHER..; .; LABELSG#.; SET-UP 1-99, GREATER THAN 32600;.; CMP 100-499T.; OTS 500-699T.; OTSRMS 700-799.; RESLIB 800-2999F.; UTIL 3000-3999 .; END 10000;; $SYSNM SYSTEM NAME '$SYSNM'B; $B2MCR CCL/MCR NAME '$B2MCR' ; $B2OLV OBJECT LIB DEV '$B2OLV'!; $B2OLU OBJECT LIB ACNT '$B2OLU'S!; $B2RVU RESLIB DEV/ACNT '$B2RVU'E; $B2RES RESLIB NAME '$B2RES'.!; $B2CMV COMPILER DEVICE '$B2CMV'U; $B2CMU COMPILER ACNT '$B2CMU';; $BMATH MATH OPTION '$BMATH'F; $CURDR CURRENT UIC '$CURDR'E; $DSTDR DIST UIC '$DSTDR'; $B2OLB BP2 OBJ LIB '$B2OLB' ; $B2RMS BASRMS OBJ LIB '$B2RMS'; $B2CMP BP2 COMPILER '$B2CMP'; $B2UTL UTIL DEV/ACNT '$B2UTL';; $B2RSB RESLIB BASE '$B2RSB'!; $B2RSH RESL HDR OFFSET '$B2RSH'N!; $B2PAT PATCH SPACE ADR '$B2PAT'E;$ ; SYMBOLSB;U ; $BSCMP Compiler Patch '$BSCMP'; $BSOTS OTS Patches '$BSOTS' ; $BSRMS BASRMS Patches '$BSRMS' ; $BSRES RESLIB Patches '$BSRES'!; $BSUTL Utility Patches '$BSUTL'B ; $BSCLN Clean the acnt '$BSCLN'; $BSEIS EIS Math '$BSEIS'; $BSFIS FIS Math '$BSFIS'; $BSFPU FPU Math '$BSFPU'; $BSTST ICP Tests '$BSTST'2;'.ASK CONT CONTINUE (Y) .IFT .SETT CONT/ .IFF CONT .GOTO 32765..98: .; CHECK FOR UIC THAT SHOULD NOT BE USED." .IF $CURDR = .GOTO 32760" .IF $CURDR = .GOTO 32760% .IF $CURDR = "[001,002]" .GOTO 32760O% .IF $CURDR = "[001,001]" .GOTO 32760a;e.IF SYSTEM = 3 .GOTO 99I.IFNINS PAT INS ''PATi.IFNINS LBR INS ''LBRN.IFNINS MAC INS ''MACE.IFNINS ZAP INS ''ZAPF .SETT $BSSUC.RETURNF5.99: .;CHECK FOR USIC THAT SHOULD NOT BE USED FOR IAS.IFNINS PAT INS [11,1]PATF.IFNINS LBR INS [11,1]LBRF.IFNINS MAC INS [11,1]MAC .IFNINS ZAP INS [11,1]ZAPO .SETT $BSSUC.RETURN ;S.32760:O .SETF $BSSUC?; The account should not be one of the standard system accounts2A; for example: '', '', [001,001], [001,002], ETC.O;9); You are running under account '$CURDR'. .32765:< U.;.IFF $BSTST .GOTO 32766IE.; OK LETS RETEST THE INSTALLATION TO BE SURE THAT EVERY THING STILL:.; WORKS AFTER PATCHING @INSBP2.CMDE;OE; This test corresponds to TEST ONE which is described in section 4.2 ; of the installation guide..;$.; SET UP PROTOTYPE B2S FILE FOR ICP.;.OPEN ICPTST.B2S.DATA 10 PRINT "HELLO".DATA 20 FOR I = 1 TO 10 .DATA 30 J$ = SPACE$(10)+NUM$(I).DATA 40 PRINT J$B.DATA 50 NEXT I .DATA 60 PRINT "BYE" .DATA 70 END.CLOSE.;+.; CREATE THE COMMAND FILE FOR THE COMPILERS.;.OPEN ICPBLD.CMD.DATA OLD ICPTST.DATA RENAME NEWNAME.DATA COMPILE/OBJT .DATA BUILDK .DATA EXIT.CLOSE;P'$B2TMP' @ICPBLD.CMD..; OBJ FILE WAS RENAMED TO NEWNAME FROM ICPTST TKB @NEWNAME RUN NEWNAMEa;t=; The preceding output should be verified with the example in ; the installation guide.";LA; The next section of tests correspond to TEST TWO which is givenT+; in section 4.3 of the installation guide.I;" .OPEN FOO.B2SE5.DATA 5 PRINT "BASIC-PLUS-2 IS INSTALLED CORRECTLY" &I.DATA \ GOTO 9999B".DATA 50 REM TEST OF ODL FILES &/.DATA THIS IS REALLY NOT MUCH OF A TEST BUT &T!.DATA IT WILL CHECK THE FACTORSD.DATA 111 FIND #1% &A .DATA \ FIND #1, RECORD 1% &#.DATA \ FIND #1, KEY #0% EQ A$ &d.DATA \ GET #1 &r.DATA \ GET #1, RECORD 1% & #.DATA \ GET #1, KEY #0% EQ A$ &s.DATA \ PUT #1 &o#.DATA \ PUT #1, COUNT RECOUNT &s.DATA \ PUT #1, RECORD 1% &i.DATA \ UPDATE #1 &%.DATA \ UPDATE #1, COUNT RECOUNT &D.DATA \ DELETE #1 &.DATA \ UNLOCK #1 &.DATA \ RESTORE #1 & !.DATA \ RESTORE #1, KEY #0% &U.DATA \ SCRATCH #1 & .DATA \ KILL "TEST.TMP" &%'.DATA \ NAME "JUNK.DAT" AS "MOREJ.UNK".DATA 50 MAP (XXX) A$0.DATA 9999 END.CLOSE.;5.; CREATE THE FOLLOWING PROGRAM AND COMPILER COMMANDST.;.OPEN ICP002.CMD.DATA NEW BUISEQ2.DATA 10 OPEN "BUISEQ.OUT" AS FILE #1%, SEQUENTIAL.DATA APPEND FOO .DATA COMPILET .DATA BUILD1.DATA NEW BUISRU1.DATA 10 OPEN "BUISR.OUT" AS FILE #1%, SEQUENTIAL /.DATA 20 OPEN "BUISR.REL" AS FILE #2%, RELATIVE .DATA APPEND FOO .DATA COMPILE# .DATA BUILDT.DATA NEW BUISRI2.DATA 10 OPEN "BUISRI.OUT" AS FILE #1%, SEQUENTIAL0.DATA 20 OPEN "BUISRI.REL" AS FILE #2%, RELATIVE/.DATA 30 OPEN "BUISRI.IDX" AS FILE #3%, INDEXEDW.DATA 40 MAP (XXX) A$R.DATA APPEND FOO .DATA COMP .DATA BUILD .DATA NEW BUISIO1.DATA 10 OPEN "BUISI.OUT" AS FILE #1%, SEQUENTIALE..DATA 20 OPEN "BUISI.IDX" AS FILE #3%, INDEXED.DATA 30 MAP (XXX) A$B.DATA APPEND FOO .DATA COMP .DATA BUILD0.DATA NEW BUIIND/.DATA 10 OPEN "BIGIND.OUT" AS FILE #1%, INDEXEDO.DATA 20 MAP (XXX) A$D.DATA APPEND FOO .DATA COMP .DATA BUILDA.DATA NEW BUIRIN/.DATA 20 OPEN "BUIRI.REL" AS FILE #2%, RELATIVEA..DATA 30 OPEN "BUIRI.IDX" AS FILE #3%, INDEXED.DATA 40 MAP (XXX) A$X.DATA APPEND FOO .DATA COMP .DATA BUILD .DATA NEW BUIREL0.DATA 10 OPEN "BUIREL.OUT" AS FILE #1%, RELATIVE.DATA APPEND FOO .DATA COMP .DATA BUILD .DATA NEW BUIVIR..DATA 10 OPEN "BIGVIR.OUT" AS FILE #1%,VIRTUAL.DATA APPEND FOO .DATA COMP .DATA BUILDO .DATA EXIT.CLOSE;E'$B2TMP' @ICP002; .; DO THE TASK BUILDS ;E TKB @BUISEQ TKB @BUISR TKB @BUISRI TKB @BUISI TKB @BUIIND TKB @BUIRI TKB @BUIRELR TKB @BUIVIRT;06; CHECK RESULTS OF THIS INSTALLATION VERIFICATION WITH5; THE OPERATING SPECIFIC INSTALLATION GUIDE TO ENSURET'; VERIFICATION PROCEDURE WAS A SUCCESS.A;I.IFF $BSCLN .GOTO 32766PPIP ICPTST.B2S;*/DEPIP FOO.B2S;*/DEPIP ICP002.CMD;*/DE0PIP BUISEQ.*;*/DEAPIP BUISR.*;*/DEPIP BUISRI.*;*/DEPIP BUISI.*;*/DEPIP BUIIND.*;*/DEPIP BUIRI.*;*/DEPIP BUIREL.*;*/DEDPIP BUIVIR.*;*/DEPIP ICPBLD.CMD;*/DE PIP NEWNAME.*;*/DE;K.;.32766: .;D.; WRITE OUT A RECORD OF THE SUCCESSFULL APPLICATION OF THE PATCHES.(.IFF $BSSUC .SETS TDONE "unsuccessfully"&.IFT $BSSUC .SETS TDONE "successfully".IFT $BSTST .SETS TTEST "was"U!.IFF $BSTST .SETS TTEST "was not" ".IF SYSTEM = 3 .OPEN BP2HISTRY.SAV$.IF SYSTEM <> 3 .OPENA BP2HISTRY.SAV .DATA ;# .DATA ; BASIC PLUS-2 V1.6 PatchesS .DATA ; for '$SYSNM' .DATA ;  .DATA ; '' at '