* Proof FIXED_FIXED_CONSTANT_POOL (#207) * wip(p636/648): Proof P30-P37 #232 * wip(p645/648): Proof P30-P37 #232 * done(p648/648): Proof P30-P37 #232
This commit is contained in:
parent
3913f198f4
commit
55bff79224
@ -59,7 +59,7 @@ END45 TC INTPRET
|
|||||||
RGEXIT
|
RGEXIT
|
||||||
|
|
||||||
COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
||||||
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE **
|
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED .. BEWARE **
|
||||||
|
|
||||||
TC UPFLAG # SET TIMRFLAG
|
TC UPFLAG # SET TIMRFLAG
|
||||||
ADRES TIMRFLAG # BIT 11 FLAG 7
|
ADRES TIMRFLAG # BIT 11 FLAG 7
|
||||||
@ -79,41 +79,43 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
|||||||
TC PHSPRDT6
|
TC PHSPRDT6
|
||||||
# Page 636
|
# Page 636
|
||||||
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
||||||
# MOD. I BY S. ZELDIN: TO ADD P31 AND ADAPT P30 FOR P31 USE. 22DEC67
|
|
||||||
#
|
# MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE. 22DEC67
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
# P30 (EXTERNAL DELTA-V TARGETING PROGRAM)
|
# +30(EXTERNAL DELTA-V TARGETTING PROGRAM)
|
||||||
# ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
|
# ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY,
|
||||||
# APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER.
|
# APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER
|
||||||
# P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
|
|
||||||
|
# P31(GENERAL LAMBERT AIMPOINT GUIDANCE)
|
||||||
# A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
|
# A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
|
||||||
# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
|
# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
|
||||||
# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
|
# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
|
||||||
# ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
|
# ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
|
||||||
# AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
|
# AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
|
||||||
# DESIRED MANEUVER.
|
# DESIRED MANEUVER
|
||||||
#
|
|
||||||
# THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
|
# THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
|
||||||
# S30.1 (P30 ONLY)
|
# S30.1 (P30 ONLY)
|
||||||
# S31.1 (P31 ONLY)
|
# S31.1 (P31 ONLY)
|
||||||
# P30/P31 -- DISPLAYS TIG
|
# P30/P31 - DISPLAYS TIG
|
||||||
# CNTUP30 -- DISPLAYS DELV(LV)
|
# CNTUP30 - DISPLAYS DELV(LV)
|
||||||
# PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
|
# PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
|
||||||
# MARKS SINCE LAST THRUSTING MANEUVER
|
# MARKS SINCE LAST THRUSTING MANEUVER
|
||||||
#
|
|
||||||
# CALLING SEQUENCE VIA JOB FROM V37
|
# CALLING SEQUENCE VIA JOB FROM V37
|
||||||
#
|
|
||||||
# EXIT VIA V37 OR GOTOP00H
|
# EXIT VIA V37 OR GOTOP00H
|
||||||
#
|
|
||||||
# OUTPUT FOR POWERED FLIGHT
|
# OUTPUT FOR POWERED FLIGHT
|
||||||
# VTIG X
|
# VTIG X
|
||||||
# RTIG X SEE S30.1
|
# RTIG XSEE S30.1
|
||||||
# DELVSIN X
|
# DELVSIN X
|
||||||
# VGDISP
|
# VGDISP
|
||||||
# RTARG X
|
# RTARG X
|
||||||
# TPASS4 X SEE S31.1
|
# TPASS4 X SEE S31.1
|
||||||
# X
|
# X
|
||||||
|
|
||||||
|
|
||||||
COUNT 35/P30
|
COUNT 35/P30
|
||||||
|
|
||||||
P30 TC P30/P31
|
P30 TC P30/P31
|
||||||
@ -142,7 +144,7 @@ P31 TC P30/P31
|
|||||||
TC CNTNUP30
|
TC CNTNUP30
|
||||||
TC PARAM30
|
TC PARAM30
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES XDELVFLG # BIT 8 FLAG 2.
|
ADRES XDELVFLG # BIT 8 FLAG 2
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
|
|
||||||
P30/P31 XCH Q
|
P30/P31 XCH Q
|
||||||
@ -181,7 +183,7 @@ PARAM30 XCH Q
|
|||||||
REFTEST CAF BIT13
|
REFTEST CAF BIT13
|
||||||
MASK STATE +3 # REFSMFLAG
|
MASK STATE +3 # REFSMFLAG
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET
|
BZF NOTSET # REFSMFLAG =0 , THEN BRANCH TO NOTSET
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
VLOAD PUSH
|
VLOAD PUSH
|
||||||
DELVSIN
|
DELVSIN
|
||||||
@ -199,7 +201,7 @@ FLASHMGA CALL
|
|||||||
TC P30/31RT
|
TC P30/31RT
|
||||||
MARSDP OCT 00000 # (00000) (16440) = (+00001)
|
MARSDP OCT 00000 # (00000) (16440) = (+00001)
|
||||||
OCT 35100
|
OCT 35100
|
||||||
# ( .01 ) DEGREES IN THE LOW ORDER REGISTER
|
# ( .01 ) DEGREES IN THE LOW ORDER REGISTE
|
||||||
|
|
||||||
V06N33 VN 0633
|
V06N33 VN 0633
|
||||||
V06N42 VN 0642
|
V06N42 VN 0642
|
||||||
@ -208,45 +210,39 @@ V06N45 VN 0645
|
|||||||
|
|
||||||
# Page 639
|
# Page 639
|
||||||
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66
|
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66
|
||||||
|
|
||||||
# MOD NO 1 LOG SECTION P30,P37
|
# MOD NO 1 LOG SECTION P30,P37
|
||||||
# MOD BY RAMA AIYAWAR **
|
# MOD BY RAMA AIYAWAR **
|
||||||
# MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
|
# MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
|
||||||
#
|
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
# BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
|
# BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
|
||||||
# IGNITION (VTIG), TIME OF IGNITION (TIG)), DELV(LV), COMPUTE PERIGEE ALTITUDE
|
# IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE
|
||||||
# APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN).
|
# A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
|
||||||
#
|
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 S30.1
|
# L+1 S30.1
|
||||||
#
|
|
||||||
# NORMAL EXIT MODE
|
# NORMAL EXIT MODE
|
||||||
# AT L+2 OR CALLING SEQUENCE (GOTO L+2)
|
# AT L+2 OR CALLING SEQUENCE (GOTO L+2)
|
||||||
#
|
|
||||||
# SUBROUTINES CALLED
|
# SUBROUTINES CALLED
|
||||||
# THISPREC
|
# THISPREC
|
||||||
# PERIAPO
|
# PERIAPO
|
||||||
#
|
|
||||||
# ALARM OR ABORT EXIT MODES
|
# ALARM OR ABORT EXIT MODES
|
||||||
# NONE
|
# NONE
|
||||||
#
|
|
||||||
# ERASABLE INITIALIZATION REQUIRED
|
# ERASABLE INITIALIZATION REQUIRED
|
||||||
# TIG TIME OF IGNITION DP B28CS
|
# TIG TIME OF IGNITION DP B28CS
|
||||||
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
|
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
|
||||||
# COORDS. OF ACTIVE VEHICLE AT
|
# COORDS. OF ACTIVE VEHICLE AT
|
||||||
# TIME OF IGNITION VCT. B+7 M/CS
|
# TIME OF IGNITION VCT. B+7M/CS
|
||||||
#
|
#
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
# RTIG POSITION AT TIG VCT. B+29 M
|
# RTIG POSITION AT TIG VCT. B+29M
|
||||||
# VTIG VELOCITY AT TIG VCT. B+7 M
|
# VTIG VELOCITY AT TIG VCT. B+7M
|
||||||
# HAPO APOGEE ALT. DP B+29 M
|
# HAPO APOGEE ALT. DP B+29M
|
||||||
# HPER PERIGEE ALT. DP B+29 M
|
# HPER PERIGEE ALT. DP B+29M
|
||||||
# DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS
|
# DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS
|
||||||
# VGDISP MAG. OF DELVSIN DP B+7 M/CS
|
# VGDISP MAG. OF DELVSIN DP B+7M/CS
|
||||||
#
|
# DEBRIS QTEMP TEMP. ERASABLE
|
||||||
# DEBRIS QTEMP TEMP.ERASABLE
|
# QPRET,MPAC
|
||||||
# QPRET, MPAC
|
|
||||||
# PUSHLIST
|
# PUSHLIST
|
||||||
|
|
||||||
SETLOC P30S1A
|
SETLOC P30S1A
|
||||||
@ -302,38 +298,33 @@ S30.1 STQ DLOAD
|
|||||||
# Page 641
|
# Page 641
|
||||||
# S31.1 PROGRAM DESCRIPTION 28DEC67
|
# S31.1 PROGRAM DESCRIPTION 28DEC67
|
||||||
# MOD.1 BY S.ZELDIN
|
# MOD.1 BY S.ZELDIN
|
||||||
#
|
|
||||||
# S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
|
# S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
|
||||||
# APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
|
# APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
|
||||||
#
|
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 S31.1
|
# L+1 S31.1
|
||||||
#
|
|
||||||
# NORMAL EXIT MODE
|
# NORMAL EXIT MODE
|
||||||
# AT L +2 OF CALLING SEQUENCE (GOTO L+2)
|
# AT L +2 OF CALLING SEQUENCE(GOTO L+2)
|
||||||
#
|
|
||||||
# SUBROUTINES CALLED
|
# SUBROUTINES CALLED
|
||||||
# AGAIN
|
# AGAIN
|
||||||
# PERIAPO1
|
# PERIAPO1
|
||||||
# SHIFTR1
|
# SHIFTR1
|
||||||
# MIDGIM
|
# MIDGIM
|
||||||
#
|
|
||||||
# NO ALARM OR ABORT MODES
|
# NO ALARM OR ABORT MODES
|
||||||
#
|
|
||||||
# INPUT
|
# INPUT
|
||||||
# DELLT4 DP +28
|
# DELLT4 DP +28
|
||||||
# TIG DP +28
|
# TIG DP +28
|
||||||
# RTARG VCT +29
|
# RTARG VCT +29
|
||||||
#
|
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
# DELVLVC VCT +7
|
# DELVLVC VCT +7
|
||||||
# VGDISP DP +7
|
# VGDISP DP +7
|
||||||
# HAPO DP +29
|
# HAPO DP +29
|
||||||
# HPER DP +29
|
# HPER DP +29
|
||||||
# TPASS4 DP +28
|
# TPASS4 DP +28
|
||||||
#
|
# DEBRIS - QTEMP
|
||||||
# DEBRIS -- QTEMP
|
|
||||||
|
|
||||||
S31.1 STQ DLOAD
|
S31.1 STQ DLOAD
|
||||||
QTEMP
|
QTEMP
|
||||||
@ -361,7 +352,7 @@ S31.1 STQ DLOAD
|
|||||||
STORE 0
|
STORE 0
|
||||||
SET CALL
|
SET CALL
|
||||||
AVFLAG
|
AVFLAG
|
||||||
MIDGIM # GET DELVLVC B7 FOR DISPLAY
|
MIDGIM # GET DELVLVC B7 FORDISPLAY
|
||||||
ABVAL
|
ABVAL
|
||||||
STODL VGDISP # B+7 FOR DISPLAY
|
STODL VGDISP # B+7 FOR DISPLAY
|
||||||
DELLT4
|
DELLT4
|
||||||
@ -371,33 +362,26 @@ S31.1 STQ DLOAD
|
|||||||
QTEMP
|
QTEMP
|
||||||
|
|
||||||
# Page 643
|
# Page 643
|
||||||
# SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTIVE)
|
# SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
|
||||||
# TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
|
# TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
|
||||||
# MOD NO: 0 MOD BY: ZELDIN DATE:
|
# MOD NO: 0 MOD BY: ZELDIN DATE:
|
||||||
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
|
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
|
||||||
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
|
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
|
||||||
# MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2
|
# MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2.
|
||||||
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
|
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
|
||||||
# MOD 4 MOD BY S.ZELDIN DATE: 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.16 WHICH REPLA
|
# MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
|
||||||
#
|
|
||||||
# FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
|
# FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
|
||||||
# ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
|
# ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
|
||||||
# SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
|
# SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
|
||||||
# THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
|
# THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
|
||||||
# ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET.
|
# ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET
|
||||||
# THE PRESENT TARGET LOCATION IS USED.
|
# THE PRESENT TARGET LOCATION IS USED.
|
||||||
#
|
# CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
|
||||||
# CALLING SEQUENCE: CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
|
|
||||||
#
|
|
||||||
# SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
|
# SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
|
||||||
#
|
|
||||||
# EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET
|
# EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET
|
||||||
#
|
# ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
|
||||||
# ERASABLE INITIALIZATION: LEFT BY SR30.1 AND V82GON1
|
|
||||||
#
|
|
||||||
# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI.
|
# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI.
|
||||||
#
|
# DEBRIS: QPRET, PDL0 ...PDL7 ,PDL10
|
||||||
# DEBRIS: QPRET, PDL0 ... PDL7, PDL10.
|
|
||||||
|
|
||||||
# THETA(1)
|
# THETA(1)
|
||||||
|
|
||||||
@ -452,7 +436,7 @@ DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
|
|||||||
SPLRET
|
SPLRET
|
||||||
CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
|
CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
|
||||||
# FOR RANGE ANGLE.
|
# FOR RANGE ANGLE.
|
||||||
HIDPHALF # TO PDL 0 FOR DEN INDDV.
|
HIDPHALF # TO PDL 0 FOR DEN IN DDV.
|
||||||
HI6ZEROS
|
HI6ZEROS
|
||||||
PUSH # ZERO TO PDL 2 FOR PHI ENTRY
|
PUSH # ZERO TO PDL 2 FOR PHI ENTRY
|
||||||
STCALL 8D
|
STCALL 8D
|
||||||
@ -533,7 +517,8 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
|
|||||||
COUNT* $$/P30
|
COUNT* $$/P30
|
||||||
|
|
||||||
# BELOW
|
# BELOW
|
||||||
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
# <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
|
||||||
|
|
||||||
2DEC 7.07304526 E-4 # 5500
|
2DEC 7.07304526 E-4 # 5500
|
||||||
|
|
||||||
2DEC 3.08641975 E-4 # 2400
|
2DEC 3.08641975 E-4 # 2400
|
||||||
@ -587,16 +572,15 @@ X1CON DEC 10
|
|||||||
DEC 8
|
DEC 8
|
||||||
|
|
||||||
DEC 6
|
DEC 6
|
||||||
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
# <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
|
||||||
# ABOVE
|
# ABOVE
|
||||||
# Page 648
|
# Page 648
|
||||||
# ***** AVFLAG/P *****
|
# ***** AVFLAGA/P *****
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
#
|
|
||||||
# UPFLAG
|
# UPFLAG
|
||||||
# DOWNFLAG
|
# DOWNFLAG
|
||||||
|
|
||||||
SETLOC P30SUBS
|
SETLOC P30SUBS
|
||||||
BANK
|
BANK
|
||||||
EBANK= SUBEXIT
|
EBANK= SUBEXIT
|
||||||
@ -625,5 +609,3 @@ P20FLGON EXTEND
|
|||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES UPDATFLG
|
ADRES UPDATFLG
|
||||||
TC SUBEXIT # DP B4
|
TC SUBEXIT # DP B4
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user