{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: REQSTARS)}}
====== REQSTARS ======
(GIN Macro)
**Defined in:** [[george:source:MES_INTLUDES|MES INTLUDES]]
**Used in:** [[george:source:CANTDO867|CANTDO867]], [[george:source:MES_INTLUDES|MES INTLUDES]]
3N8B #
3NN2 #
3P7L #MAC REQSTARS
3PM= #ORD
3Q6W #INT
3QLG #DEF Z = 1?-2�$#40000000
3R66 SLINK +0
3RKQ #STR OFF,%A
3S5B (
3SK2 STARS 8H****00**
3T4L ...MPLEASE 8HPLEA00SE
3TJ= )
3W3W #STR ON,%A
3WHG (
3X36 ...MPLEASE 8H****00**
3XGQ STARS 8HPLEA00SE
3Y2B )
3YG2 #SKI Z
3Y^L SPACS 4H
3^F= X512 +512
3^YW PERI 6:0,0,0,0,0
42DG MAX +1024-(SB-SLINK)+1 [ MAX BUFFER SPACE +1
42Y6 SUMPART1 +0
43CQ ZMS +0 [ ADDR OF WORD AFTER MESSAGES
43XB WCH +0 [ WHICH CHAPTER
44C2 WMS +0 [ POINTER TO CURRENT MESSAGE
44WL SEG 8H
45B= TCHD +0 [ ACTUAL CHAPTER D ADDRESS
45TW TCHL +0 [ ACTUAL CHAPTER LENGTH
46*G TABLE
46T6 #GAP AMFNUMBER [ COMPILED-IN CHAPTERS
472# ...#UNS ADDMESS
477G ...(
47#Q +DMESSX/128+(LMESSX@L13)
47SB #SKI ADDMESS� [ IF ANY MESSXX ETC.
48#2 (
48RL +DMESSXX/128+(LMESSXX@L13)
49?= #SKI AKMESSXX>1$1
49QW +DMESSXY/128+(LMESSXY@L13)
4==G #SKI AKMESSXX>2$2
4=Q6 +DMESSXZ/128+(LMESSXZ@L13)
4?4H ...)
4?BY ...)
4?PB TABEND +TABEND-TABLE
4#92 TD [ DISC ADDRESS OF CURRENT TRANSFER
4#NL +DCHTABLE+KMESSA/128+1
4*8= TL [ LENGTH OF CURRENT TRANSFER
4*MW +DCHTABLE+KMESSA±+AMFNUMBER
4B7G QCHANG -1 [ SET TO 0 IF ANY CHANGES THIS TIME
4BM6 #
4C6Q TFR DEX 0 PERI [ DISC TRANSFER ROUTINE,
4CLB LDX 0 TD [ ALLOWING FOR END-OF-SEEK-AREA
4D62 STO 0 PERI+4
4DKL LDX 0 TL
4F5= STO 0 PERI+2
4FJW LDN 0 SB
4G4G STO 0 PERI+3
4GJ6 RPT PERI 0 PERI
4H3Q SUSBY 0 6
4HHB LDCT 0 #200
4J32 ANDX 0 PERI+1
4JGL BZE 0 XESA
4K2= LDX 0 PERI+1 [ END OF SEEK AREA HIT
4KFW ANDN 0 #7777
4K^G SBX 0 PERI+3
4LF6 ADS 0 PERI+3
4LYQ SBS 0 PERI+2
4MDB SRL 0 7
4MY2 ADS 0 PERI+4
4NCL BRN RPT
4NX= XESA EXIT 7 0
4PBW #
4PWG START STO 0 SLINK
4QB6 #SKI Z
4QTQ CALL 3 18?+2]+10]
4R*B LDN 0 2 [ INITIALLY, READ MESSAGE CHAPTER
4RT2 CALL 7 TFR [ DETAILS FROM CHTABLE INTO BUFFER
4S#L LDN 6 DCHTABLE+KMESSA±+SB
4SS= LDN 7 TABLE
4T?W MOVE 6 AMFNUMBER [ COPY RELEVANT DATA INTO TABLE
4TRG LDX 3 WCH
4W?6 NCHAP
4WQQ LDX 1 TABLE(3)
4X=B SRL 12 13
4XQ2 STO 1 TCHL [ UNPACK L AND D VALUES
4Y9L SRL 2 11
4YP= STO 2 TCHD
4^8W ADN 2 1
4^NG STO 2 TD
5286 TXL 1 MAX
52MQ BCS NTB
537B LDN 1 640
53M2 NTB STO 1 TL
546L LDN 0 2
54L= CALL 7 TFR
555W STO 7 QCHANG [ SET # 0 AT START OF NEW SEG
55KG TXU 1 TCHL
5656 BCC PLZ
56JQ LDN 1 512
574B STO 1 TL
57J2 PLZ LDX 0 K90MESSA+SB
583L STO 0 ZMS
58H= LDN 2 K90MESSA+1
592W STO 2 WMS
59GG LDX 0 SB
5=26 LDX 1 SB+1
5=FQ STO 0 SEG
5=^B STO 1 SEG+1
5?F2 STOZ SUMPART1
5?YL NMESS
5#D= LDX 5 SB+2(2)
5#XW LDX 6 SB+3(2)
5*CG SRL 67 12
5*X6 ... TXU 5 MPLEASE
5BBQ ... TXU 6 MPLEASE+1
5BWB BCS SRCH [ NOT 'PLEASE' REQUEST
5CB2 STOZ QCHANG
5CTL LDX 5 STARS
5D*= LDX 6 STARS+1
5DSW SLL 67 12
5F#G STO 5 SB+2(2)
5FS6 STO 6 SB+3(2)
5G?Q #SKI Z
5GRB (
5H?2 LDN 6 SB+2(2)
5HQL LDX 4 SB(2)
5J== CALL 5 18?+2]+20]
5JPW LDX 1 18?+1]+62
5K9G LDN 0 SEG
5KP6 MVCH 0 8
5L8Q LDX 5 SPACS
5LNB STO 5 0(1)
5M82 LDN 2 1(1)
5MML MOVE 1 27
5N7= LDN 7 0(1)
5NLW LDN 2 111
5P6G ANDN 4 #7777
5PL6 SBN 4 1
5Q5Q TXL 2 4
5QKB BCS TOOL
5R52 LDX 2 4
5RJL TOOL MVCH 6 1(2)
5S4= CALL 3 18?+2]+19]
5SHW LDX 2 WMS
5T3G )
5TH6 SRCH LDEX 3 SB(2)
5W2Q ADN 3 3
5WGB SRL 3 2
5X22 ADN 2 2(3)
5XFL TXL 2 TL
5X^= BCC VFLO
5YDW STO 2 WMS
5YYG TXL 2 ZMS
5^D6 BCS NMESS
5^XQ #
62CB SEGEND
62X2 LDX 0 QCHANG
63BL BNZ 0 UNCH
63W= LDX 6 SUMPART1
64*W LDX 2 TL
64TG LDN 1 SB
65*6 SBN 2 1
65SQ TXL 2 X512
66#B BCS SHORT
66S2 SUM 0 0
67?L TXU 2 X512
67R= BCC SUMMD
68=W LDX 6 0
68QG LDN 1 SB+512
69=6 SHORT SUM 0 0(2)
69PQ ADX 0 6
6=9B SUMMD LDX 1 TCHD
6=P2 SLL 1 7
6?8L SBX 1 0
6?N= STO 1 SB(2)
6#7W LDN 0 3
6#MG CALL 7 TFR
6*76 UNCH LDX 3 WCH
6*LQ ADN 3 1
6B6B STO 3 WCH
6BL2 TXL 3 TABEND
6C5L BCS NCHAP
6CK= #SKI Z
6D4W CALL 3 18?+2]+10]
6DJG LDX 0 SLINK
6F46 EXIT 0 0
6FHQ #
6G3B VFLO LDN 1 SB
6GH2 SUM 0 0
6H2L STO 0 SUMPART1
6HG= LDX 6 QCHANG
6H^W BNZ 6 PT1UC
6JFG LDN 0 3
6J^6 CALL 7 TFR
6KDQ PT1UC LDN 0 4
6KYB ADS 0 TD
6LD2 LDX 0 TCHL
6LXL SBN 0 512
6MC= STO 0 TL
6MWW SBN 2 512
6NBG STO 2 WMS
6NW6 LDN 0 512
6P*Q SBS 0 ZMS
6PTB LDN 0 2
6Q*2 CALL 7 TFR
6QSL BNZ 6 NMESS
6R#= LDN 0 SB+512
6RRW MOVE 0 128
6S?G BRN NMESS
6SR6 #
6T=Q SB [ DISC BUFFER FOR MESSAGE CHAPTERS
6TQB #JUM START
6W=2 #EXT
6WPL #FRE Z
6X9= #NOR