{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FORWARD)}}
====== FORWARD ======
(GIN Macro)
**Defined in:** [[george:source:MACINTLUDES|MACINTLUDES]]
**Used in:** [[george:source:MESSCF|MESSCF]], [[george:source:OPERIN867|OPERIN867]]
MX7G ...[??? FORWARD SECT DIAG FGN 200 DOC
MXM6 ...#MAC FORWARD [J.T.WIFFEN
MY6Q ...[
MYLB ...[
M^62 ...[ **********
M^KL ...[ * FORWARD*
N25= ...[ **********
N2JW ...[
N34G ...[
N3J6 ...#SKI 77?>521$521
N43Q ...(
N4HB ...#SKI 84?+0]<1$1
N532 ...(
N5GL ...#CON NO PROGRAM FILE FORWARD REFERENCES
N62= ...# !! NO PROGRAM FILE FORWARD REFERENCES
N6FW ...#EXIT
N6^G ...)
N7F6 ...#FRL
N7YQ ...#DEF MLIST=1?
N8DB ...#LIS 0 [SHOULD BE 0 AFTER TESTING
N8Y2 ...#ORD
N9CL ...#INT
N9X= ...XLINK +0
N=BW ...XDA 0
N=WG ...X1024 1024
N?B6 ...VFRPTR 0
N?TQ ...WAR 4H!!!!
N#*B ...WFFRPTR 0
N#T2 ...XDATUM 0 [DATUM OF CURRENT SEGMENT
N*#L ...SPACE 4H
N*S= ...ONESP #20
NB?W ...XAT 4H AT
NBRG ...XIN 4H IN
NC?6 ...MASK #17777777
NCQQ ...NFR 0
ND=B ...NTRY STO 0 XLINK [SAVE LINK BACK TO GIN
NDQ2 ... LDX 3 84?
NF9L ... BZE 3 NONE [SHOULD NOT HAVE GOT THIS FAR
NFP= ...X3 STO 3 WFFRPTR
NG8W ... CALL 0 18?+2]+6] [ :FIND:
NGNG ... LDX 0 0(3) [ FPTR
NH86 ... ANDX 0 MASK
NHMQ ... STO 0 NFR [SAVE FOR LATTER
NJ7B ... LDX 0 1(3) [GET PROG. FILE FILL IN ADD.
NJM2 ... ANDX 0 MASK
NK6L ... STO 0 XDA [ D ADDRESS OF FR
NKL= ... LDX 0 2(3)
NL5W ... ANDX 0 MASK
NLKG ... STO 0 VFRPTR [PTR TO VALUE OF U/V
NM56 ... LDX 3 4(3) [PTR TO INC RECORD
NMJQ ... ANDX 3 MASK
NN4B ... CALL 0 18?+2]+6] [ GET INC RECORD :FIND
NNJ2 ... CALL 5 18?+2]+20] [GET PRINT BUFFER
NP3L ... LDX 1 18?+1]+62
NPH= ... LDN 2 1(1)
NQ2W ... LDX 0 SPACE
NQGG ... STO 0 0(1) [ SPACE FILL BUFFER
NR26 ... MOVE 1 29
NRFQ ... LDN 5 11(1)
NR^B ... LDN 4 1(3)
NSF2 ... MOVE 4 2 [MOVE SEG NAME TO LP BUFF
NSYL ...[ NOW WE SET UP D'SEG NAME'
NTD= ... LDN 3 1(3)
NTXW ... LDN 2 18?+1]+7
NWCG ... STO 0 0(2) [SPACE FILL ANAME
NWX6 ... STO 0 1(2)
NXBQ ... STO 0 2(2)
NXWB ... LDN 7 #44 [ APPEND SEGNAME TO 'D'
NYB2 ... DCH 7 0(2)
NYTL ... BCHX 2 £
N^*= ... LDN 6 8
N^SW ...X4 LDCH 7 0(3)
P2#G ... TXU 7 ONESP
P2S6 ... BCC XCEND [END OF SEG NAME
P3?Q ... DCH 7 0(2)
P3RB ... BCHX 3 £
P4?2 ... BCHX 2 £
P4QL ... BCT 6 X4
P5== ...XCEND
P5PW ... LDN 0 9
P69G ... SBX 0 6 [LENGTH OF IDENTIFIER
P6P6 ... ADN 0 3
P78Q ... SRL 0 2 [ GET WORD COUNT
P7NB ... STO 0 18?+1]+56
P882 ... SRC 0 6
P8ML ... STO 0 18?+1]+55
P97= ... STO 0 18?+1]+57 [ MARK AS UNIVERSAL
P9LW ... CALL 0 18?+2]+1] [ FINDIT
P=6G ... BRN 24 [PM ENTRY ;THIS SHOULD NEVER HAPPEN
P=L6 ... LDX 0 1(3) [GET SEGS DATUM
P?5Q ... STO 0 XDATUM
P?KB ... LDX 3 VFRPTR
P#52 ... SBN 3 1 [ POINT TO START OF UNI RECORD
P#JL ... CALL 0 18?+2]+6] [ :FIND:
P*4= ... LDX 1 18?+1]+62
P*HW ... LDCH 2 3(3) [LENGTH OF UNI
PB3G ... SMO 35?+2
PBH6 ... LDN 6 0(3)
PC2Q ... LDN 7 3(1)
PCGB ... MOVE 6 0(2) [MOVE NAME OF UNI
PD22 ... LDX 7 XAT
PDFL ... STO 7 6(1)
PD^= ... LDX 7 XIN
PFDW ... STO 7 9(1)
PFYG ... LDX 5 XDA
PGD6 ... SBX 5 XDATUM [RELATIVE TO SEGS D
PGXQ ... TXL 5 X1024
PHCB ... BCS XOK [ IN RANGE
PHX2 ... ADX 5 XDATUM [GET PROGRAM FILE ADD
PJBL ... LDX 7 WAR
PJW= ... STO 7 14(1)
PK*W ... STO 7 1(1)
PKTG ...XOK LDN 1 7(1)
PL*6 ... CALL 2 18?+2]+9] [ :AL48:
PLSQ ... CALL 3 18?+2]+19] [ :APLINE:
PM#B ... LDX 3 WFFRPTR
PMS2 ... TXU 3 84?-1
PN?L ... BCC NONE [ FINISH IF WE PROCESSED LAST RECORD
PNR= ... LDX 3 NFR [ POINTER TO NEXT
PP=W ... BRN X3 [ CARRY ON
PPQG ...NONE
PQ=6 ... LDX 0 XLINK
PQPQ ... EXIT 0 0 [ BACK TO GOOD OLD GIN
PR9B ...#
PRP2 ...#
PS8L ...#JUMP NTRY
PSN= ...#EXT
PT7W ...#LIS MLIST
PTMG ...#FRL
PW76 ...)
PWLQ ...#SKI 77?<522$522
PX6B ...! GIN OF THE WRONG VINTAGE FOR FORWARD
PXL2 ...#NOR