Category : Miscellaneous Language Source Code
Archive   : SAPLPC-1.ZIP
Filename : APDEFNA.PCC

; 1854339PC360:UTIL:APDEFNA.IPSN.PCC.8.18530. */
;/* ======================================= */
;/* */
;/* SHARP APL PC INTERRUPT DEFINITIONS. */
;/* */
;/* ======================================= */
;/* */
INTSFS EQU 96
;#DEFINE INTSFS 96 /* FILE SYSTEM INTERRUPT */
INTSVP EQU 97
;#DEFINE INTSVP 97 /* SHARED VARIABLE PROCESSOR INTERRUPT */
INTPOST EQU 98
;#DEFINE INTPOST 98 /* TASK POST INTERRUPT */
INTDISP EQU 99
;#DEFINE INTDISP 99 /* ENTRY TO TASK DISPATCHER FROM LOW PRIORITY
; TASK ONLY */
INTSHUT EQU 100
;#DEFINE INTSHUT 100 /* TASK SHUTDOWN */
;/* ======================================= */
;/* */
;/* SHARP APL SVP/PC PERCMD DEFINITION */
;/* */
;/* ======================================= */
;/* */
PERCMD STRUC
;STRUCT PERCMD
;{
PCCMD DB ?
; UNSIGNED CHAR PCCMD ; /* SVP COMMAND*/
PCFLAGS DB ?
; UNSIGNED CHAR PCFLAGS;/* COMMAND FLAGS: RESERVED: MUST BE 0 */
PCP1 DD ?
PCP2 DD ?
PCP3 DD ?
; UNSIGNED LONG PCP1,PCP2,PCP3; /* MAJOR PARAMETERS AND RESULTS */
;/*
; SVP PERCMD CONTENTS:
;
;CMD PCP1 PCP2 PCP3
; IN OUT IN OUT IN OUT
;
;
;SHARE ASCV - - DOC - -
;RETRACT SCVPO - - DOC - CHRON
;USEINIT SCVPO - - LEN - -
;
;USEDATA SCVPO - AVAL - LEN -
;COPYDATA SCVPO - AVAL - LEN -
;SETINIT SCVPO - - LEN - -
;
;SETDATA SCVPO - AVAL - LEN -
;SEIZE SCVPO - - LEN - -
;
;RELEASE SCVPO - - - - -
;SVC SCVPO - ACV CCV - -
;
;SVS SCVPO - - CCV - -
;SCAN ASCV - - - - -
;SIGNON APCV - - PPI - -
;SIGNOFF APCV - - - - -
;RETRALL APCV - - - - -
;SETCLONE APCV - CID - - -
;
;CONTENTS OF FIELDS:
;
;SCVPO: PEROFFER INDEX, FROM SCVPO AS THE RESULT OF SHARE OR SCAN.
;APCV: MAINSTORE ADDRESS OF PROCESSOR CONTROL VECTOR.
;ASCV: MAINSTORE ADDRESS OF SHARE CONTROL VECTOR.
;ASV: ACCESS STATE VECTOR.
;ACV: ACCESS CONTROL VECTOR.
;PPI: PERPROC INDEX ASSIGNED TO THIS PROCESSOR.
;AVAL: MAINSTORE ADDRESS OF VALUE.
;CCV: COMBINED ACCESS STATE VECTOR, ACCESS CONTROL VECTOR.
;CID: NEW CLONEID.
;LEN: LENGTH OF VALUE IN BYTES. IF LEN IS A RESULT, -1 INDICATES
; NO VALUE AVAILABLE.
;CHRON: CHRONOLOGY OF NEW OFFER.
;DOC: PREVIOUS DEGREE OF COUPLING.
;*/
PERCMD ENDS
;} ;
;/* */
;/* */
;/* SHARED VARIABLE OPERATION CODES. */
;/* */
;/* */
; /* RETRACT ALL VARIABLES. USED ONLY BY APL */
SVPSVRA EQU 2
;#DEFINE SVPSVRA 2
; /* SIGN ON. */
SVPON EQU 3
;#DEFINE SVPON 3
; /* SIGN OFF. */
SVPOFF EQU 4
;#DEFINE SVPOFF 4
;/* */
; /* SCAN FOR OFFERS. */
SVPSVQ EQU 5
;#DEFINE SVPSVQ 5
; /* SHARE. */
SVPSVO EQU 6
;#DEFINE SVPSVO 6
; /* RETRACT. */
SVPSVR EQU 7
;#DEFINE SVPSVR 7
;/* */
; /* SET ACCESS CONTROL. */
SVPSVC EQU 8
;#DEFINE SVPSVC 8
; /* RETURN ACCESS STATE (AND CONTROL VECTOR) */
SVPSVS EQU 9
;#DEFINE SVPSVS 9
;/* */
; /* USE INITIAL SELECTION. */
SVPUIS EQU 10
;#DEFINE SVPUIS 10
; /* SET INITIAL SELECTION. */
SVPSIS EQU 11
;#DEFINE SVPSIS 11
; /* COPY INITIAL SELECTION. (SEIZE). */
SVPCIS EQU 12
;#DEFINE SVPCIS 12
;/* */
; /* USE DATA TRANSFER. */
SVPUDT EQU 13
;#DEFINE SVPUDT 13
; /* SET DATA TRANSFER. */
SVPSDT EQU 14
;#DEFINE SVPSDT 14
; /* COPY DATA TRANSFER. */
SVPCDT EQU 15
;#DEFINE SVPCDT 15
; /* NO DATA TRANSFER (RELEASE). */
SVPNDT EQU 16
;#DEFINE SVPNDT 16
;/* */
;
; /* SET NEW CLONEID. USED ONLY BY APL. */
SVPCID EQU 17
;#DEFINE SVPCID 17
;
SVPMAX EQU 17
;#DEFINE SVPMAX 17 /* MAXIMUM LEGAL SVP COMMAND */
;/* */
;/* */
;/* */
;/* */
;/* SHARED VARIABLE PROCESSOR RETURN CODES... */
;/* */
;/* - RETURNED TO THE CALLING PROGRAM BY THE SSVP. */
;/* */
; /* VARIABLE IS AN OFFER (NO OTHER SHARER). */
SVZNOS EQU 1
;#DEFINE SVZNOS 1
;/* */
;/* NOTE ... SVZNOS OCCURS IN COMBINATION WITH OTHER */
;/* RETURN CODES, IE, IF RELEVANT IT WILL BE */
;/* ORED WITH THE ACTUAL COMPLETION CODE. */
;/* */
; /* REJECTION BECAUSE OF ACCESS CONTROL. */
SVZLOCK EQU 0
;#DEFINE SVZLOCK 0
; /*TEMPORARY SETDATA REJECTION BECAUSE OF */
;/* INSUFFICIENT S.V. STORAGE. CONTROL RETAINED.*/
SVZSVSF EQU 2
;#DEFINE SVZSVSF 2
; /*USE, SET, OR COPY DATA TRANSFER INCORRECT*/
SVZILI EQU 4
;#DEFINE SVZILI 4
; /*SCAN, NO OFFERS FOUND. */
SVZNOF EQU 6
;#DEFINE SVZNOF 6
; /*NORMAL END - REQUEST COMPLETED SUCCESSFULLY.*/
SVZNE EQU 8
;#DEFINE SVZNE 8
; /*PROCESSOR ID IN USE. */
SVZNIU EQU 10
;#DEFINE SVZNIU 10
; /*PROCESSOR NOT SIGNED ON TO SVP. */
SVZNSO EQU 12
;#DEFINE SVZNSO 12
; /*PROCESSOR ALREADY SIGNED ON WITH SAME ID. */
SVZASO EQU 14
;#DEFINE SVZASO 14
; /*INVALID REQUEST SEQUENCE. */
SVZIVS EQU 16
;#DEFINE SVZIVS 16
; /*(USEINIT) NO VALUE AVAILABLE IN S.V.S. */
SVZNV EQU 18
;#DEFINE SVZNV 18
; /*STORAGE PROTECTION EXCEPTION. */
SVZSPE EQU 20
;#DEFINE SVZSPE 20
; /*SVP NOT AVAILABLE (NOT RUNNING). */
SVZNA EQU 22
;#DEFINE SVZNA 22
; /*PERSHARE TABLE FULL. */
SVZPSF EQU 24
;#DEFINE SVZPSF 24
; /*PROCESSOR TABLE FULL. */
SVZPPF EQU 26
;#DEFINE SVZPPF 26
; /*VALUE TOO LARGE (WILL NEVER FIT). */
SVZVTL EQU 28
;#DEFINE SVZVTL 28
; /*ARGUMENT ERROR DETECTED IN VALIDITY CHECK. */
SVZARG EQU 30
;#DEFINE SVZARG 30
; /*MUST BE MAX/SVZCODES. */
SVZMAX EQU SVZARG
;#DEFINE SVZMAX SVZARG
;
;/* SVP DEGREES OF COUPLING */
COUPLE0 EQU 0
;#DEFINE COUPLE0 0
COUPLE1 EQU 1
;#DEFINE COUPLE1 1
COUPLE2 EQU 2
;#DEFINE COUPLE2 2
;
;
;
;
;
;/* ============================================= */
;/* */
;/* SHARP APL SVP/PC PROCESSOR CONTROL VECTOR */
;/* */
;/* ============================================= */
;/* */
PERPCV STRUC
;STRUCT PERPCV
;{
;/* PERSCV AND PERPCV ASSUME THAT ID,NID COME FIRST IN SAME FORMAT */
PCVID DD ?
; LONG PCVID ; /* PROCESSOR ID */
PCVNID DD ?
; LONG PCVNID; /* CLONEID */
PCVPOST DW ?
; UNSIGNED INT PCVPOST; /* REASONS FOR POST */
;/* */
;/* EXTENSION OF PCV FOR TASK DISPATCHER FIELDS. */
;/* */
PCVTCS DD ?
; UNSIGNED LONG PCVTCS ; /* CS:IP VALUE FOR TASK DISPATCH*/
PCVTSS DD ?
; UNSIGNED LONG PCVTSS ; /* SS:SP VALUE FOR TASK DISPATCH*/
PCVTDS DD ?
; UNSIGNED LONG PCVTDS ; /* DS:DX VALUE FOR TASK DISPATCH*/
PCVTBP DW ?
; UNSIGNED INT PCVTBP ; /* BP VALUE FOR TASK DISPATCH*/
PERPCV ENDS
;} ;
;
;/* PCVPOST VALUES. */
; /* END OF STORAGE WAIT */
PERPWFS EQU 1
;#DEFINE PERPWFS 1
; /* SHARE COMPLETED */
PERPSHAR EQU 2
;#DEFINE PERPSHAR 2
; /* RETRACTION */
PERPRETR EQU 4
;#DEFINE PERPRETR 4
; /* USE DATA */
PERPUSE EQU 8
;#DEFINE PERPUSE 8
; /* SET DATA */
PERPSET EQU 16
;#DEFINE PERPSET 16
; /* RELEASE */
PERPRELS EQU 32
;#DEFINE PERPRELS 32
; /* SET ACV */
PERPSACV EQU 64
;#DEFINE PERPSACV 64
; /* OFFER RECEIVED */
PERPOFFR EQU 128
;#DEFINE PERPOFFR 128
;/*
; THE NEXT 4 BITS ARE RESERVED FOR USE BY AUXILIARY PROCESSORS.
; THE SVP WILL NOT SET THESE BITS, NOT MAKE ANY USE OF THEM.
; THEY ARE INTENDED FOR SIMPLE COMMUNICATION AMONG APS.
;*/
; /* AP POST BIT 0. */
PERPAP0 EQU 256
;#DEFINE PERPAP0 256
; /* AP POST BIT 1. */
PERPAP1 EQU 512
;#DEFINE PERPAP1 512
; /* AP POST BIT 2. */
PERPAP2 EQU 1024
;#DEFINE PERPAP2 1024
; /* AP POST BIT 3. */
PERPAP3 EQU 2048
;#DEFINE PERPAP3 2048
; /* AP SHUTDOWN BIT. */
PERPSHUT EQU 4096
;#DEFINE PERPSHUT 4096
;/* NEXT 3 BITS ARE RESERVED FOR FUTURE EXPANSION*/
;
;
;
;
;
;/* ======================================= */
;/* */
;/* SHARP APL SVP/PC PERSCV DEFINITION */
;/* */
;/* ======================================= */
;/* */
MAXPSN EQU 11
;#DEFINE MAXPSN 11
PERSCV STRUC
;STRUCT PERSCV
;{
SCVCOUNT DD ?
; LONG SCVCOUNT; /* BYTE COUNT OF VALUE, IF ANY */
SCVSOS DW ?
; UNSIGNED INT SCVSOS; /* MUST BE 0 OR 1 */
; /* IF 1, A SCAN OR SHARE ISSUED BY
; THIS PROCESSOR WILL EXAMINE ONLY OFFERS
; RESULTING FROM SHARE, AND WILL IGNORE OFFERS
; RESULTING FROM RETRACT.
; ALSO, THIS PROCESOR WILL NOT
; RECOUPLE TO AN OFFER RESULTING FROM THIS
; PROCESSOR RETRACTING. THE OTHER PROCESSOR
; IS NOT AFFECTED, AND MAY RETRACT AND RESHARE,
; UNLESS IT TOO SETS SCVSOS. */
;
;/* PPIDSRCH ASSUMES THAT ID,PID ARE IDENTICAL IN SCV,PCV */
SCVID DD ?
; LONG SCVID ; /* PROCESSOR ID */
SCVNID DD ?
; LONG SCVNID ; /* CLONEID*/
SCVALUE DD ?
; UNSIGNED LONG SCVALUE; /* MAINSTORE ADDRESS OF VALUE, IF ANY */
SCVCHRON DD ?
; UNSIGNED LONG SCVCHRON; /* CHRONOLOGY */
SCVPO DD ?
; UNSIGNED LONG SCVPO ; /* PEROFFER ASSOCIATED WITH THIS PERSCV.*/
SCVOTHER DD ?
; LONG SCVOTHER; /* PROCESSOR ID OF PARTNER*/
SCVNOTHR DD ?
; LONG SCVNOTHR; /* CLONE ID OF PARTNER */
SCVNAMEL DB ?
; UNSIGNED CHAR SCVNAMEL; /*LENGTH OF NAME, OR LONGEST ACCEPTABLE NAME*/
; /* MAXIMUM IDENTIFIER LENGTH */
SCVNAME DB MAXPSN DUP(?)
; UNSIGNED CHAR SCVNAME[MAXPSN]; /* NAME OF SHARED VARIABLE. IF FIRST
; CHARACTER IS BINARY 0, ANY NAME WILL MATCH.*/
PERSCV ENDS
;} ;
;/*APL CHARACTER EQUATES */
QALPHA EQU 42
;#DEFINE QALPHA 42
QOMEGA EQU 46
;#DEFINE QOMEGA 46
QA EQU 86
;#DEFINE QA 86
QB EQU 87
;#DEFINE QB 87
QC EQU 88
;#DEFINE QC 88
QD EQU 89
;#DEFINE QD 89
QE EQU 90
;#DEFINE QE 90
QF EQU 91
;#DEFINE QF 91
QG EQU 92
;#DEFINE QG 92
QH EQU 93
;#DEFINE QH 93
QI EQU 94
;#DEFINE QI 94
QJ EQU 95
;#DEFINE QJ 95
QK EQU 96
;#DEFINE QK 96
QL EQU 97
;#DEFINE QL 97
QM EQU 98
;#DEFINE QM 98
QN EQU 99
;#DEFINE QN 99
QO EQU 100
;#DEFINE QO 100
QP EQU 101
;#DEFINE QP 101
QQ EQU 102
;#DEFINE QQ 102
QR EQU 103
;#DEFINE QR 103
QS EQU 104
;#DEFINE QS 104
QT EQU 105
;#DEFINE QT 105
QU EQU 106
;#DEFINE QU 106
QV EQU 107
;#DEFINE QV 107
QW EQU 108
;#DEFINE QW 108
QX EQU 109
;#DEFINE QX 109
QY EQU 110
;#DEFINE QY 110
QZ EQU 111
;#DEFINE QZ 111
QDELTA EQU 112
;#DEFINE QDELTA 112
;
QAU EQU 113
;#DEFINE QAU 113
QBU EQU 114
;#DEFINE QBU 114
QCU EQU 115
;#DEFINE QCU 115
QDU EQU 116
;#DEFINE QDU 116
QEU EQU 117
;#DEFINE QEU 117
QFU EQU 118
;#DEFINE QFU 118
QGU EQU 119
;#DEFINE QGU 119
QHU EQU 120
;#DEFINE QHU 120
QIU EQU 121
;#DEFINE QIU 121
QJU EQU 122
;#DEFINE QJU 122
QKU EQU 123
;#DEFINE QKU 123
QLU EQU 124
;#DEFINE QLU 124
QMU EQU 125
;#DEFINE QMU 125
QNU EQU 126
;#DEFINE QNU 126
QOU EQU 127
;#DEFINE QOU 127
QPU EQU 128
;#DEFINE QPU 128
QQU EQU 129
;#DEFINE QQU 129
QRU EQU 130
;#DEFINE QRU 130
QSU EQU 131
;#DEFINE QSU 131
QTU EQU 132
;#DEFINE QTU 132
QUU EQU 133
;#DEFINE QUU 133
QVU EQU 134
;#DEFINE QVU 134
QWU EQU 135
;#DEFINE QWU 135
QXU EQU 136
;#DEFINE QXU 136
QYU EQU 137
;#DEFINE QYU 137
QZU EQU 138
;#DEFINE QZU 138
QDELTAU EQU 139
;#DEFINE QDELTAU 139
;
Q0 EQU 140
;#DEFINE Q0 140
Q1 EQU 141
;#DEFINE Q1 141
Q2 EQU 142
;#DEFINE Q2 142
Q3 EQU 143
;#DEFINE Q3 143
Q4 EQU 144
;#DEFINE Q4 144
Q5 EQU 145
;#DEFINE Q5 145
Q6 EQU 146
;#DEFINE Q6 146
Q7 EQU 147
;#DEFINE Q7 147
Q8 EQU 148
;#DEFINE Q8 148
Q9 EQU 149
;#DEFINE Q9 149
QBLANK EQU 152
;#DEFINE QBLANK 152
QSEMIC EQU 18
;#DEFINE QSEMIC 18
;/*=================================*/
;/* */
;/* ASDATA */
;/* APL SHARED VARIABLE ARRAY */
;/* */
;/*=================================*/
;
;/*========================================*/
;/* */
;/* APL ARRAY OBJECT DEFINITION. */
;/* ALL FIELDS ARE 370 FORMAT. */
;/* SEE IBM SYSTEM/370 PRINCIPLES OF */
;/* OPERATION (GA22-7000) FOR DETAILS. */
;/* */
;/*========================================*/
;
;
;/* NOTE THAT THE BYTE ORDERING OF THE SYSTEM/370 AND THE 8088 ARE */
;/* REVERSED FROM ONE ANOTHER. THE 8088 STORES THE LOW-ORDER BYTE IN */
;/* THE LOWEST-NUMBERED STORAGE LOCATION, AND THE 370 STORES THE */
;/* LOW-ORDER BYTE IN THE THE HIGHEST-NUMBERED STORAGE LOCATION. */
;/* THIS MEANS THAT A FUNCTION MUST BE USED TO REVERSE THE ORDER OF */
;/* BYTES AS THEY ARE STORED OR FETCHED INTO THE ASDATA ARRAY. */
;
ASDATA STRUC
;STRUCT ASDATA
; {
ASTYPE DB ?
; CHAR ASTYPE; /* TYPE OF APL OBJECT */
;
MT2 DB ?
; CHAR MT2; /* UNUSED. MUST BE 0 */
ASRANK DW ?
; SHORT ASRANK; /* 4 * RANK OF OBJECT,*/
; /* BYTE COUNT OF SHAPE VECTOR WHICH FOLLOWS*/
;
;/* FOR EXAMPLE, A SCALAR HAS ASRANK OF 0, A VECTOR HAS ASRANK OF */
;/* 4, AND A RANK-3 ARRAY HAS ASRANK OF 12. */
ASSHAPE DD ?
; LONG ASSHAPE; /* SHAPE VECTOR, DATA FOLLOWS */
ASDATA ENDS
; }; /* END ASDATA */
;
; VALUE OF ASTYPE AND ITS MEANING:
;
TYPB EQU 1
;#DEFINE TYPB 1 /* ARRAY IS BOOLEAN */
TYPI EQU 2
;#DEFINE TYPI 2 /* ARRAY IS INTEGER */
TYPF EQU 3
;#DEFINE TYPF 3 /* ARRAY IS REAL */
TYPC EQU 4
;#DEFINE TYPC 4 /* ARRAY IS CHARACTER */
TYPP EQU 5
;#DEFINE TYPP 5 /* ARRAY IS PACKAGE */
TYPA EQU 6
;#DEFINE TYPA 6 /* ARRAY IS ENCLOSED */
TYPZ EQU 7
;#DEFINE TYPZ 7 /* ARRAYS IS COMPLEX */
;
;/* FORMAT OF ASDATA ENTRIES: */
;
;/* ALL DATA ELEMENTS ARE STORED IN RAVEL ORDER. EACH DATA TYPE HAS */
;/* A DIFFERENT NUMBER OF BITS PER ELEMENT: */
;
;/* DATA TYPE NUMBER OF BITS PER ELEMENT
;
; BOOLEAN 1
; INTEGER 32
; FLOATING 64
; CHARACTER 8
; PACKAGE INDETERMINATE
; ENCLOSED INDETERMINATE
; COMPLEX 128
;
;ALL ARRAYS ARE STORED LEFT-JUSTIFIED IN THE 370 WORD, AND ALL BYTE
;COUNTS MUST BE A MULTIPLE OF 4. THE LEFT-JUSTIFICATION IS ONLY
;EVIDENT IN BOOLEAN AND CHARACTER ARRAYS.
;
;BOOLEAN ARRAYS ARE STORED AS 1 BIT PER ELEMENT:
;ASSUME B IS THE BOOLEAN MATRIX: 3 4 RESHAPE 1 0 1 0 1 0 1 1 1 0 1 0.
;B LOOKS LIKE:
; 01 00 00 08 TYPE AND RANK
; 00 00 00 03 SHAPE VECTOR
; 00 00 00 04
; AB A0 00 00 VALUE.
;
;INTEGER ARRAYS ARE STORED AS 4 BYTES PER ELEMENT:
;ASSUME B IS THE INTEGER SCALAR: 272.
;B LOOKS LIKE:
; 02 00 00 00 TYPE AND RANK
; 00 00 01 10 VALUE (NOTE NO SHAPE VECTOR).
;
;THE ARRAY IOTA 0 LOOKS LIKE:
; 02 00 00 04 TYPE AND RANK.
; 00 00 00 00 SHAPE.
; NOTE NO VALUE.
;
;FLOATING ARRAYS ARE STORED AS 8 BYTES PER ELEMENT:
;ASSUME B IS THE FLOATING POINT VECTOR 3 .5.
;B IS STORED IN 370 DOUBLE PRECISION FLOATING POINT FORMAT,
;AND LOOKS LIKE:
;
; 03 00 00 04 TYPE AND RANK
; 00 00 00 02 SHAPE VECTOR
; 41 30 00 00 VALUE
; 00 00 00 00
; 40 80 00 00
; 00 00 00 00
;
;NOTE THAT FLOATING AND COMPLEX VALUES MUST BE STORED IN NORMALIZED
;FORM, AND THAT ZEROS MUST BE TRUE ZEROS(8 BYTES OF 0), OR APL WILL
;PRODUCE INCORRECT RESULTS.
;ALSO, NOTE THAT S/370 FLOATING POINT IS NOT COMPATIBLE WITH
;IEEE FLOATING POINT. THEY AREN'T EVEN CLOSE.
;
;PACKAGE AND ENCLOSED DATA TYPES ARE NOT DESCRIBED IN THIS RELEASE OF
;SHARP APL/PC.
;
;COMPLEX ARRAYS ARE STORED AS 16 BYTES PER ELEMENT, AS PAIRS
;OF S/370 FLOATING POINT NUMBERS, REPRESENTING THE REAL AND IMAGINARY
;PARTS, RESPECTIVELY.
;ASSUME B IS THE COMPLEX SCALAR (-1)*.5.
;B LOOKS LIKE:
;
; 07 00 00 00 TYPE AND RANK
; 00 00 00 00 VALUE OF 0J1.
; 00 00 00 00
; 41 10 00 00
; 00 00 00 00
;
;NOTE THAT FLOATING AND COMPLEX VALUES MUST BE STORED IN NORMALIZED
;FORM, AND THAT ZEROS MUST BE TRUE ZEROS(8 BYTES OF 0), OR APL WILL
;PRODUCE INCORRECT RESULTS.
;ALSO, NOTE THAT S/370 FLOATING POINT IS NOT COMPATIBLE WITH
;IEEE FLOATING POINT. THEY AREN'T EVEN CLOSE.
;
;*/