FORWARD
(GIN Macro)
Defined in: MACINTLUDES
- FORWARD.mac.txt
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