REQSTARS
(GIN Macro)
Defined in: MES INTLUDES
Used in: CANTDO867, MES INTLUDES
- REQSTARS.mac.txt
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